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WOK NOTICE sialata 


: Heulett-Packard Lorwin nakes no express or implied’ warranty with 
regard to the documentation and progran naterial offered of to. the -- © 


fitness of such naterial for any particular purpose. The 
docunentation and progran material 1s nade available solely on an 
"as is" basis, and the entire risk as to its quality and. 


performance 1s with the user. Should the decusentation and progras —. 
Material prove defective, the user (and not Hewlett-Packard Conpany ©‘: 


or any other party) shall bear the entire cost of all necessary . 


correction’ and allt incidental’ or. consequential. danages.: - 


Heulett-Packard Conpany shall not be liable for any incidental or 
consequential: damages in connection aith or arising out of the 
furnishing, use, or perfornance of the docunentation and prograa 
naterial. 
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HP-74. Softuare 18S - Operating Systen Source tistings 


a a anaee Simm ahaa eee adnate maw en enn afine a dee nna gae canned 


| Be Te wap y ee. : t 
ie “INTRODUCTION = OE opera e 7 


. hig, Vehine. cantaine : ‘the copiate® source coda | a dita Par the 


MP-71 Oper atin Systen. . Ye wodules are. pres Hress order 
according: ee -positien ivy ‘the jeter ahhntey pdt creeribed “Yron Jouast 
address to hightet adress: The following sections give. -ahist of 
the nodule nanes in address order, faelloned by.an-alphabetical list 
of the. nodule manws:. A- nodule’s eburce fité as denoted with an 
anpersand (&) in The file nane, and its repeal ie? file 
with a. percent sign (Z) in the file PI a Laas iat 
Interface ‘infornation te an entry point ‘or poll is described: in a 
-secunentation header in the geurce file that contains that -eritry 
point. or poll. Supported interfaces are identified by the 
Hane{S}" line of te docunentation neees as, . aeegt toed in Votawe 
Ty of . this dpcunent. 


It as: “the. “intent of - He to’  preseree” the supported: intertaces 
described in: this doeunent,» as well as the absolute, address 
position of each supported entry point, through. any. futgne, updates 
of the HP-73 operating syste: Ih general this allous external: 
softuare which. uses these interfaces to work @Pedictably without 
regard.to the version of the HP-71 on which i% is run. omever, HP 
reserves the yet to adjust the supported interfaces in any manner 
it chonsgs, .- 


od 
4 


An siaupsites wnaty poiat’ vay be “shed, to the supported Leet if HP 
deens the request to be justified. ‘fo request support for an entry . 


point, please. contact Systens Engineering Sapport in the HP 
Portable Conpater Diviszon Product Suppert Group at (503) 757-2000. 
Correctjons. or requested enhancenents to the interface 
docunentation are uelcore and pete also be reported in this 
Wanner. 

MARNING 1 ne 


Oe eee ee 


Only supported. Stes points are avarlablé for use by external 
software. HP expresses no intent to indefinitely preserve the 
interfaces te any unsupported entry points described in this valune 
or in Volune TT; Since it is inevitable that code im any 64K byte 
operating systen will have to change of nove occasjorally to fix 
bugs, The interface to unsupported entry points, and their 
absolute address position, nay ‘therefore change at any tine ard 
without notice to outside parties. 
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+ 
| | 
j LIST OF MODULES IN ADDRESS ORDER | CHAPTER 2 | 
| | 

+ 


ee ne oe ne ee ee ee ee ee 


Address Range WNodule Title 


ee w enw we eww ewe mem we eR RP Me we we wee ee ee ee we ew wep eee ew me mew eee eee 


00000 - 00784 SBZDVR Main Driver 

00785 - 00786 TIZREV HP-71 Revision Nunber 

00787 - OOC9A SBZBIT ASCII Tables (Rounded Letters) 
OOC9B - OOCF6 SBAFGT F &G Shift Table 

OOCF7? - 01130 SBZKEY Keyboard Driver (14 Colurn Keyboard) 
01131 - 01626 TIZUTL Cornmand Execution Utilities 
01627 - O188F SBACND Corrand Stack Utilities 

018% - 02483 SBZDSP Display Driver 

02484 - O259F MBZROM HP-71 ROM Test 

025% - 02025 JPZPR1 Line Parse Driver - Part 1 

02026 - 03305 JPZPR2 Parse Routines - Part 2 

03306 - O3FD4 JPZPR3 Parse Routines - Part 3 

O3FD5 - O48E5 SBZEXP Expression Parser 

O48E6 - O4F5D ABZLEX Lexical Analyzer 

O4F5SE - 05921 SGZLDC Line Decompile 

05922 - O624F SBXEXD Expression Deconpile 

06250 - 062B1 TIZFX1 ROM 1 Fix Module 

063A0 - O6FZE SGZSYS System Commands: DELETE, AUTO, and CAT 
O6F2F - O7DDB JPZSYS  Systen Commands, RUN Loop 

O7DDC - 08647 JPXEXC Progran Execution Routines 

08648 - 09392 SGZEXC Miscellaneous Execution Routines 
09393 - 09875 TIZERD Error Message Driver 

09B76 - ORIZA SGZFXQ File Execution Routines 

OAS2B - ORA8O SBZFCN Function Definitions 

OAR81 - OAA82 JPZZER Zero File 

OAR83 - ORA84 TIXREV HP-71 Revision Number 

OAR85 - OAACE TIXFK2 ROM 2 Fix Module 

OABF8 - OB638 ABZREG Variable Creation Routines 

0B639 - OC326 ABZFCN Functions 

0C327 - OD434 JTXNTH Math Routines - Part 1 

00435 - ODEZE SM“MTH Math Routines - Part 2 

ODE2F - OFESFO PNASTA Statistics 

OESF1 - OFC6D MNZBP BEEP Module 

OECGE - OF177? ANZUTL Miscellaneous Utilities 

OF178 - OFSD9 ABZEXP Expression Execution Controller 
OF5DA - OFA46 ABZASN Assignrient Statenent Controller 
OFA47 - OFFSE SCZTRC TRACE Module 

OFFSF - 10191 JPZNEMN Progran Edit 

10192 - 11052 MNACNF Configuration Module 

11053 - 1231A SCZFIL File Utility & Systen Buffer Routines 
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Address Range Module Title 


wm we we eee ee ee ww ene ee a ea a a a a ae a a we ee ee me eee ee 


1231B - 12549 JPZPOL POLL Routine 

12548 - 13448  MNZTM Clock Syster 

13449 - 13884 PNXFLG Flags, Traps, and Modes 

138B5 - 14C7F SCZDAT Store & Retrieve Data - PRINTH/READ# 
14C80 - 153A8  MNZED Character Editor 

153A9 - 153AA JPXZER Zero File 

153AB - 153AC TIZREY HP-71 Revision Nunber 

153AC TIZFX3 ROM 3 Fix Module 

1551F - 1632B ABZCLC CALC Mode 

16320 - 16671 ABZBLD CALC Mode Decompiler 

16672 - 16AAD ABZED CALC Mode Editor 

16ARE - 17032 FHATFM TRANSFORM Execution 

17A33 - 17BC6 MNZFRP FREE/CLAIN PORT 

17BC? - 170BB SBXRD READ Statenent Execute 

17DBC - 18C57 SBzI0 I/O Execution Routines 

18C58 - 18071 MNZLCK LOCK Module 

18D72 - 1A3D3 SCZSUB SUBprogran And DEF FN 

1A3D4 - 1A57B SBZEXC Miscellaneous Execution Routines 
1AS7C - 1ARAO 8 SCXREN RENUNBER Module 

TARA1 - 1ADED SGZKEY Key Routines 

{AD6E - 1AFOO 8 SBZVAL =VAL Function 

1AFO1 - 1BO1E MNZGSB = External GOSUB Module 

1BO1F - 1B445 ABZUTL Miscellaneous Utility Routines 
1B446 - 1BRA3 MBXING IMAGE Parse Routines 

1BAR4 - 103C4 MBZUSG USING Execution Routines 

1C3C5 - 1C4ED SBZGPH Graphics Control Routines 
1C4EE - 1€878  SGZPOK POKE, PEEK$, and ADDRS 

10879 - 1DBA5 MNZCD Card Reader Module 

1DBR6 - 1DBA? JPZZER Zero File 

1DBA8 - 1DBA9 TIZREV HP-71 Revision Number 

1DBAA - 1DBFE TIZFX4 ROM 4 Fix Module 

1DCCE - 1B003 = TIZTS Tinestanp File 

10004 - 16536 JPZTAB Lexical Analyzer Tables--ID=01 
1€537 - 1F3DF SBXTAB Lexical Analyzer Tables--ID=00 
1F3EO - 1FD23  TIZERM Mainfrane Nessage Table 

1FD24 - 1FE73 SBZ%KCM keycode Map 

1FE74 - 1FF2D ABZLXT Lextype Table 

1FF2E - 1FFFF SCZTAB File Type Table 

2£100 - 2F9EG SBARAM Systern RAM Declarations 

No address TIZEQU = =Equate File 
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wee eww | ee ee eee Oe EE EERE HOE EOE Oe em 


OFR46 «Assignment Statenent Controller 


ABZBLD 16320 - 16671 CALC Mode Deconpiler 
ABZCLC «6 1SSIF - 1632B CALC Mode 
ABZED 16672 - 16AAD CALC Mode Editor 


- OF509 Expression: Execution Controller 
- 0(326 Functions 

- O4F50 - Lexical Ahalyzer ~ 

- TFF2D° Lextype Table - 

- 08638 | Variable Creation Routines 

~ 18445 Miscellaneous Utility Routines 
- 17832. TRANSFORM Execution. 

- 08647 Progran Execution Routines 

- 10191 Program ‘Edit 

- 12549 = POLL Routine 

- 02025 Line. Parse Driver - Part 1 

- 037305 Parse Routines - Part 2 

- O3FD4 Parse Routines - Part 3’ 

- O7DDB Systen Conrands, RUN Loop 
JPZTAB =1DD04 - 1€536 Lexical Analyzer Tables--10=01 
- OARB2  Zerd File 

- 1§3AA Zero File 


(ae mm rE Oe cre erie le ree ee Se Ete RY AEE A AAT CAAA. 


10BA7 Zero File cs 

00434 «Math Routines - Part i 
1BAA3 IMAGE Parse Routines 

O259F HP-71 ROM Test | 

103C4 = USING Execution Rout ines 
OEC6D =©BEEP Moduie 

1DBA5 Card Reader Module: 

11052 Configuration Module 

153A8 Character Editor 

17BC6 = FREE/CLAIN PORT 

1BO1E External GOSUB Module 
18071 LOCK ; 
13448 = Clock Systen 
OF1?77 Miscellaneous Utilities 
13884 Flags, Traps, and Modes 
OESFO = Statistics 

OOC9R ASCII Tables (Rounded Letters) 
O188F Conmand Stack Utilities 
02483 Display Driver 

00784 Main Driver 


SBZDYR 00000 
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Nodule 


oo en ne ee a oe 


SBZEXC 
SBZEXD 
SBZEXP 
SBZFCN 
SBZF GT 
SBZGPH 
SBZ10 


SBZKCN 


SBZKEY 
SBZRAN 


SBZRD - 


SBZTAB 
SBXFAL 
SCXDAT 


SCZFIL 


SCZREN 
SCZSUB 
SCZTAB 
SCZTRE 
SGZEXC 
SGZFXKQ 
SGZKEY 
SGZLDE 
SGZPOK 


SOZSYS | 


SMANTH 
TIZXEQU 
TIZERD 
TIZERN 
TIZFX1 
TIZFK2 


TIZFX3 . 


TIZFX4 
TIZREV 
TIZREV 
TIZREV 
TIZREV 
TIZTS 

TIZUTL 


Address mate 


1A3D4 - 18578 
05922 - O624F 
O3F05 - O48E5 
OA92B - OAR8O 
OOC9B - OOCF6 
1€3C5 - iC4ED 
170BC - 18C57. 
1F024 - 1FE73 
OOCF7? - 01190 
2£100 - 2FSE6 
17BC7 - °47DBB 
41E537 - 4F30F 
IADGE - 1AFQO 
13885 - 14C7F 
11053 - 1231A 
1A57C - TAAARO 
18072 - 18303 
1FFZE - 1FFFF 
OFR47 - OFF SE 
08648 - 09392 
09876 - OR92A 
1ARA1 - 1ADED 
O4FSE - 06921 
1C4EE - 1€878 
O63RO - O6F2E 
00435 - ODEZE 
No address 
09393 - 09675 
1F3E0 - 1FD23 
06250 - 062B1 
ORAS - ORACE 
153AC 

IBBRA - 10BFE 
00785 -.00786 
ORA83 - ORAS4 
153AB - t53AC 


IDBA8 - 1DBAS 


IDCCE 


10003 


01131 - 01626 


Operating Systen Source Listings 


Oe eee es ee 


Miscellaneous Execution Routines 
Expression Deconpile 

Expression Parser 

Function Definitions 

F &G Shift Table- 

Graphics Control] Routines 

1/0 Execution Routines 


Keycode Map 


Keyboard Driver (14 Cotunn Keyboard) 
Systen RAN Declarations — 
READ Staterent Execute 


lexical Analyzer Tables--1D=00 


VAL Function 
Store & Retrieve Data - PRINTH/READS 


File Utility & System Buffer Routines | 
RENUNBER Module 


SUBprogran And DEF FN 

File Type Table 

TRACE Module . - 

Miscellaneous Execution Routines 
File Execution Routines 

Key Routines 

Line Deconpile 


_POKE, PEEK$, and ADDRS 


Systen Commands: DELETE, AUTO, and CAT 
Math Routines.- Part 2 
Equate File 

Error flessage Driver 
Mainfrane Message Table 
ROM 1 Fix Module 

RON 2 Fix Madule 

ROM 3 Fix Module 

ROM 4 Fix Module 

HP-71 Revision Nunber 

HP-71 Revision Nunber 

HP-71 Revision Nunber 

HP-71 Revision Nunber 
Tinestanp File 

Corinand Execution Utilities 


te te perpen ale ena ry + ere 


an el een RR RR REPRE te ee Set RNR EORCOTY Pe tat ARRAN Tee Re eae. a tenet Ne Nain —eaNSONeNLeR an nanyntihie! “nee ~emee <n ean tN ~ gpetpetenlen eae Rhee sme 8 maa 
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ak 


tk 77777 
ak 7 
ak 7 
ak 7 
ak 7 

ak 7 

ak 7 


ak 


1 
11 
1 
1 
1 
{ 
1 


114 


xx 

1 BBBB«=sC«éBBBB=Ss«#@BBBBSCSC~*«é@#BBSB xk 

1 B B BB BB 6B B_ 

1 B B 6B B BB B B_ 

ess BBBB.»=s«BBBB.=Ss«éiBBBSC*«é@BBBSB as 
sxz B B 6B B BB BB _ 
1 B B 6B B BB BB. 

111 BBBB  6BBB = BBBB- _—=&BBBB _ 

x 


FSO IOI I III DITTO TID II III IIIT DI III IIT IIIA SII III ISIIIISI ISIS II SSIS IISSI SIA 
SLOAD Rev. 2309/Ver. 1.40 


Qutput nodule: 


TIZRG': TI:HS::- 


Date=Fri 


Source modules: 


SBZDVR: MS 
Date=Fri 


TIXREV: MS 
Date=Fri 


SBABIT::NS 
Date=Fri 


SBXFGT: MS 
Date=Fri 


SBAKEY: NS 
Date=Fri 


TIZUTL: 9S 
Date=Fri 


SBACHB: MS 
Date=Fri 


SBZDSP: MS 
Date=Fri 


MBZRON: MS 
Date=F ri 


JPZPR1::4S 
Date=Fri 


JPAPR2::NS 
Date-Fri 


JPZPR3::NS 
Date=Fri 


SBZEXP: MS 
Date=Fri 


ABZ LEX::NS 
Date=Fri 


1 
Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Start=00000 End=1FFFF Length=20000 Syns=2960 Refs=4653 
®, 1983 5:23 an Tatle=HP-71 ROM Release 1B8BBB 


Start=00000 End=00784 Length=00785 


H, 1983 4:11 an Title=Main Driver <831216.1559> 
Start=00785 End=00786 Length=00002 

3X, 1983 5:20 an Title=HP-71 Revision Nunber 
Start=00787 End=00C9A Length=00514 

, 1983 4:06 an Title=ASCII Tables (Rounded Letters) 
Start=00C9B End=00CF6 Length=0005C 

W, 1983 4:21 an Title=F & G Shift Table<831212.1206> 
Start=O00CF7 End=01130 Length=0043A 

3%, 1983 4:26 an Title=Keyboard Driver (14 Colunn Keyboard)<83 
Start=01131 End=01626 Length=004F6 

3%, 1983 5:20 an Title=Cornmand Execution Utilities <831212.1 
Start=01627? End=0188F Length=00269 

3, 1983 4:07 an Title=Cornmand Stack Utilities<831212.1%06> 
Start=01890 End=02483 Length=O0BF4 

%, 1983 4:08 an Taitle=Display Driver <831216.1505> 
Start=02484 End=0259F Length=0011C 

3%, 1983 3:3 an Title=HP-71 Ron Test <831212.1205> 
Start=025AO End=02C25 Length=00686 

3, 1983 2:58 an Title=Line Parse Driver - Part 1 <831212.1516 
Start=02C26 End=033D5 Length=007B0 

30, 1983 3:01 an Title=Parse Routines - Part 2<831212.12%04> 
Start=033D6 End=03FD4 Length=O0BFF 

30, 1983 3:04 am Title=Parse Routines - Part 3<831212.1204> 
Start=03FD5 End=048E5 Length=00911 

HX, 1983 4:18 an Title=Expression Parser<831212.1206> 
Start=048E6 End=04F5D Length=00678 

%, 1983 2:38 an Title=Lexical Analyzer <831212.1512> 





SGZ LOC: NS 
Date=Fri 


SBZEXD: MS 
Date=Fri 


TIZFK1: MS 
Date=Fri 


SGZSYS: NS 
Date=Fri 


JPZSYS: NS 
Date=Fri 


JPZEXC: MS 
Date=Fri 


SGZEXC: MS 
Date=Fri 


TIZERD: MS 
Date=Fri 


SGAFRKQ: NS 
Date=Fri 


SBAFCN: NS 
Date=Fri 


JPZZER: NS 
Date=Fri 


TIZREV: NS 
Date=Fri 


TIZF KE: NS 
Date=Fri 


ABZREG: : NS 
Date=Fri 


ABZAFCN: NS 
Date=Fri 


JTZNTH: NS 
Date=Fri 


SMZNTH: sMS 
Date=Fri 


PHYSTA::MS 
Date=Fri 


NNZBP: : MS 
Date=Fri 


MANZUTL: MS 
Date=Fri 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Start=04F5E End=05921 Length=009C4 
3%, 1983 5:00 an Title=Line Deconpile <831216.1615> 


Start=05922 End=0624F Length=0092E 
30, 1983 4:15 an Taitle=Expression Deconpile <831212.1206> 


Start=06250 End=062B1 Length=00062 
%, 1983 5:19 an Title=ROM 1 Fix Module 


Start=063A0 End=06F2E Length=O0B8F 
%, 1983 5:06 an Title=Syster Commands: DELETE, AUTO, and CAT 


Start=O6F2F End=07DDB Length=O0EAD 
®, 1983 3:10 an Title=Syster Commands, RUN Loop<831212.1204> 


Start=07DDC End=08647 Length=0086C 
30, 1983 2:50 an Title=Progran Execution Routines <831212.1515 


Start=08648 End=09392 Length=00D4B 
3X, 1983 4:49 an Title=Miscellaneous Execution Routines<831216 


Start=09393 End=09B75 Length=007E3 
30, 1983 5:13 an Title=Error Message Driver <831216.1627> 


Start=09B76 End=0A92A Length=00DB5 
30, 1983 4:54 an Title=File Execution Routines<831216. 1614> 


Start=0A92B End=ORA80 Length=00156 
30, 1983 4:20 an Title=Function Definitions <831212.1206> 


Start=OAA81 End=ORA82 Length=00002 
30, 1983 3:18 an Title=Zero File - End of chain 


Start=ORA83 End=OAR84 Length=00002 
30, 1983 5:20 an Title=HP-71 Revision Nuriber 


Start=OAA85 End=ORACE Length=0004A 
30, 1983 5:19 an Title=ROM 2 Fix Module 


Start=OABF8 End=0B638 Length=00A41 
3, 1983 2:39 am Title=Variable Creation Routines <831216.1818 


Start=0B639 End=0C326 Length=O0CEE 
H%, 1983 2:34 an Title=Functions <831212.1512> 


Start=0C32? End=00434 Length=0110E 
30, 1983 3:18 an Tatle=Math Routines - Part 1 <831213.100?> 


Start=0D435 End=ODEZE Length=009FR 

30, 1983 5:10 an Tatle=Math Routines - Part 2 «831216. 1618> 
Start=ODE2F End=0E9FO Length=00B8C2 

3, 1983 4:01 am Title=Statistics <831216.1457> 


Start=0E9F1 End=0EC6D Length=0027D 
30, 1983 3:34 an Title=BEEP Module <831212.1529> 


Start=OEC6E End=0F177 Length=0050A 
30, 1983 3:57 an Title=Miscellaneous Utilities< 831216. 1456> 


ABZEXP:: NS 
Date=Fri 


ABZASN:: NS 
Date=Fri 


SCZTRC:: MS 
Date=Fri 


JPAMEM: 1S 
Date=Fri 


HNAZCNF:: MS 
Date=Fri 


SCAFIL: MS 
Date=Fri 


JPXPOL:: MS 
Date=Fri 


MNZTN: AS 
Date=Fri 


PHAFLG:: MS 
Date=Fri 


SCZDAT:: MS 
Date=Fri 


MNZED: 3S 
Date:Fri 


JPZZER: MS 
Date=Fri 


TIZREV: 3 MS 
Date=Fri 


TIZFRK3=:3 M8 
Date=Fri 


ABZCLCE:: MNS 
Date=Fri 


ABZBLD:: NS 
Date=Fri 


ABZED: AS 
Date=Fri 


FHATFN: NS 
Date=Fri 


MNAFRP:: 1S 
Date=Fri 


SBZRD: MS 
Date=Fri 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Start=0F178 End=0F5D9 Length=00462 
, 1983 2:33 an Tatle=Expression Execution Controller<831212. 


Start=OF50A End=0FA46 Length=0046D 
H, 1983 2:27 an Taitle=Assignnent Statenent Controller<831216. 


Start=OF R47 End=OFFS5SE Length=00518 
W®, 1983 4:48 an Tatle=TRACE Module <831216.1824> 


Start=OFFSF End=10191 Length=00233 
®, 1983 2:55 an Title=Progran Edit <831212.1204> 


Start=10192 End=11052 Length=O0EC1 
%, 1983 3:42 an Title=Configuration Module <831213.1255> 


Start=11053 End=1231A Length=012C8 
*, 1983 4:34 an Title=File Utility & Systen Buffer Routines<8 


Start=1231B End=12549 Length=0022F 
W, 1983 2:56 an Title=POLL Routine <831212.1204> 


Start=1254A End=13448 Length=O0EFF 
®, 1983 3:51 am Title=Clock Systen «831228. 1028> 


Start=13443 End=138B4 Length=0046C 
, 1983 3:59 an Title=Flags, Traps, and Modes<831216.1456> 


Start=138B5 End=14C7F Length=013(B 
3%, 1983 4:28 an Tatle=Store & Retrieve Data - PRINTH/READH<83 


Start=14C80 End=153AR8 Length=00729 
3%, 1983 3:47 an Taitle=Character Editor <831213.1314> 


Start=153A9 End=153AAR Length=00002 
3%, 1983 3:18 an Title=Zero File - End of chain 


Start=153AB End=153AC Length=00002 
®, 1983 5:20 am Tatle=HP-71 Revision Nunber 


Module Contains No Code 
3%, 1983 5:20 an Title=ROM 3 Fix Acdule 


Start=1551F End=1632B Length=00E0D 
3%, 1983 2:29 an Title=CALC Mode <831228.1215> 


Start=1632C End=16671 Length=00346 
%, 1983 2:29 an Title=CALC Node Decorpiler <831212.1509> 


Start=16672 End=16RAD Length=0043C 
%, 1983 2:32 an Title=CALC Node Editor <831212.1510> 


Start=16RRE End=17A32 Length=O0F85 
3%, 1983 2:44 an Title=TRANSFORM Execution <831212.1203> 


Start=17A33 End=17BC6 Length=00194 
%, 1983 3:49 an Title=FREE/CLAIN PORT <831212.1205> 


Start=17BC7 End=17DBB Length=001F5 
3%, 1983 4:27 an Title=READ Statenent Execute <831216. 1605> 


SBZIO: AS 
Date=Fri 


MNZLCK:: MS 
Date=Fri 


SCZSUB:: NS 
Date=F ri 


SBZEKC:: MS 
Date=Fri 


SCHREN: : NS 
Date=Fri 


SGAKEY:: MS 
Date=Fri 


SBXVAL:: MS 
Date=Fri 


NNXGSB::MS 
Date=Fri 


ABZUTL:: MS 
Date=Fri 


MBZING: MS 
Date=Fri 


NBZUSG:: MS 
Date=Fri 


SBAGPH:: MS 
Date=Fri 


SGLPOK: MS 
Date=Fri 


MNZCD: MS 
Date=Fri 


JPZZER:: MS 
Date=Fri 


TIZREV: 3 MS 
Date=Fri 


TIZFX4::MS 
Date=Fri 


TIZTS: MS 
Date=Fri 


JPZTAB: MS 
Date=Fri 


SBZTAB:: MS 
Date=Fri 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Start=17BBC End=18C57 Length=00E9C 


3%, 1983 4:21 an Title=I/0 Execution Routines <831228.1849> 
Start=18C58 End=18D71 Length=0011A 

3%, 1983 3:50 an Tatle=LOCK Module <831216.1454> 
Start=18D72 End=1A3B3 Length=01662 

3%, 1983 4:42 an Title=SUBprogran and DEF FN <831216.1610> 
Start=1A3D4 End=1A57B Length=001A8 

3%, 1983 4:15 an Tatle=Miscellaneous Execution Routines <83121 
Start=1A57C End=1ARAO Length=00525 

%, 1983 4:41 an Title=RENUNBER Module <831216.1609> 
Start=1AAA1 End=1AD6D Length=002CD 

%, 1983 4:59 an Title=Key Routines 831212. 1207> 
Start=1AD6E End=1AFOO Length=00193 

%, 1983 4:28 an Title=VAL Function <831212.1206> 
Start=1AFO1 End=1BO1E Length=O011E 

®, 1983 3:50 an Title=External GOSUB Module<831216. 1453> 
Start=1BO1F End=1B445 Length=00427 

%, 1983 2:42 an Title=Miscellaneous Utility Routines 831212. 
Start=1B446 End=1BAA3 Length=0065E 

%, 1983 3:24 an Title=IMAGE Parse Routines <831212.1518> 
Start=1BAR4 End=1C03C4 Length=00921 

3%, 1983 3:3 an Taitle=USING Execution Routines <831212. 1519> 
Start=1C3C5 End=1C4ED Length=00129 

®, 1983 4:21 an Title=Graphics Control Routines 
Start=1C4EE End=10878 Length=00388 

3%, 1983 5:04 an Title=POKE, PEEK$, and ADDR$ < 831216. 1616> 
Start=1C0879 End=1DBAS Length=0132D 

3%, 1983 3:35 an Title=Card Reader Module <831212.1617> 
Start=1DBA6 End=1DBA7 Length=00002 

%, 1983 3:18 an Taitle=Zero File - End of chain 
Start=1DBR8 End=1DBAS Length=00002 

%, 1983 5:20 an Title=HP-71 Revision Nunber 
Start=1DBAA End=10BFE Length=00055 

%, 1983 5:20 an Title=ROM 4 Fix Module 
Start=10CCE End=1DD03 Length=00036 

%, 1983 5:20 an Title=Tinestanp File 
Start=1DD04 End=1£536 Length=00833 

3%, 1983 2:24 an Taitle=Lexical Analyzer Tables--ID=01 
Start=1E537 End=1F3B0F Length=O0ER9 

W®, 1983 2:21 an Tatle=Lexical Analyzer Tables--ID=00 


TIZERM: AS 
Date=Fri 


SBZKCM: - MS 
Date-Fri 


RBZLXT: 2 AS 
Date=Fri 


SCZTAB: AS 
Date=Fri 


SBZRANM: MS 
Date=Fri 


TIZEQU: 2 AS 
Date=Fri 


Dec 


Dec 


Dec 


Dec 


Dec 


Dec 


Start=1F3EO End=1FD23 Length=00944 
W®, 1983 5:17 an Title=Mainfrane Message Table 


Start=1FD24 End=1FE73 Length=00150 
3, 1983 2:27 an Title=Keycode Map<831212.1206> 


Start=1FE74 End=1FF2D Length=O00BA 
%, 1983 2:39 an Tatle=Lextype Table <831212.1512> 


Start=1FF2E End=1FFFF Length=00002 
%, 1983 4:47 an Title=File Type Table 


Module Contains No Code: 
%®, 1983) 2:20 an Taitle=Systen RAN Declarations<831212.1206> 


Module Contains No Code 
%, 1983 2:25 an Taitle=Equate File <831228.1851> 








Saturn 
1K 
'CK2 
1CK3 
#CK 


-CHAR 
- LINE 


/LINEH 
¥/X15 


1/X15S 


?PRFI+ 
?PRFIL 


Long Cross Reference Listing 


R-MULT = 


A=CUR 
ABS 
ACBRT? 


ACBTSR 
ACCEPT 
ACOS 


ACOS12 
ACOS15 
ACTIVE 


ACTIMR 
ADSM 
ADISS 
ADISs 


AD2-12 
AD2-15 
ADD 
ADDO 
ADDF 
AODDONE 


ADDP 
ADDRS 
ABDRSS 


ee tomo 


4th oth ote tk Wo ot on 


O2EOC JPZPR2 


02E13 JPZPR2 
O2E1F JPZPR2 


03356 JPZPR2 


1527D MNZED: 
15275 MNZED: 


2F8E4 FHATFN 
OC33E JTZNTH 


0C344 JTZNTH 


17380 FHATFM 
1737E FHZTFM 


1B349 ABZUTL 


O20AR SBZDSP 
OB%9 ABZFCN 
OEF29 MNZUTL 


OEFI7 MNZUTL 
O450F SBZEXP 
OBDES ABZFCN 


ODBD3 SMZNTH 
ODBD? SMZNTH 
2F5A8 SBZRAN 


131A9 ANZTM: 
OC366 JTZNTH 
OE19D PMZSTR 
OC369 JTZANTH 


OC35F JTANTH 
0C363 JTZNTH 
ODE? PMZSTA 
05470 SG“LBC 
00372 JTZNTH 
00330 JTZNTH 


O3A03 IJPXPR3 
10801 SGZPOK 
OF52? ABZEXP 


- 0277D JPZPR1(001DD) 


+ 


i> +> 1 


O294F 
O34RE 
03828 
02844 


O2B5D 
033DR 
037BE 
O38DE 
O3ADC 


18AF4 
1?72BA 
OD8F7 


ODSEC 
ODCD8 


117E8 


+ 14791 
- 09500 


1EB54 


- 00658 
+ 1CFE4 


00723 
1 OD6F 


+ 1EBOC 


1+ + 1 


1 ot + +— | 4 


i i ae | 


+ 


OBDFe 


07030 
OB2R2 
197D7 
07EDC 


oDnls 
ODDn? 
OETRS 


TEDIF 
ODE68 
ODOFC 
ODSEO 
oODC3D 
OE 889 
ODE 6D 
1DD78 
ORDDF 
OBOLB 


JPZPR1 (OO3AF ) 
JPZPR3(000D8 ) 
JPZPR3(00455 ) 
JPZPR1(002A4 ) 


JPZPR1 (O05BD) 
JPZPR3(00004 ) 
JPZPR3(003E8) 
JPZPR3(00508) 
JPZPR3(00706) 


$BZ10: (00038) 
FHATFM(O080C ) 


SMANTH(004C2 ) 
SMZNTH(O05B7 ) 
SMZNTH(008A3) 


SCAFIL(00795 ) 
SCZDAT (OOEDC ) 
TIZERD(0022D) 
SB%TAB(0061D) 
SBZDVR (00658 ) 
HNZCD: (0076B) 
SBZDVR (00723) 


JPZTAB(O006B ) 
SB%TAB{005D5 ) 
ABZFCN(007B9) 


JPZSYS(OOEOE ) 
ABZRE G(O06RA) 
SCZSUB(OORES ) 
JPZEXC (00100 ) 


SNZNTH(00993) 
SMANTH(OO9R2) 
PMXSTA(00376 } 


SBZTAB(OO07E8 ) 
PNZSTA(00039) 
SNZNTH(O02C 7 ) 
SMZNTH(OOSAB) 
SNZNTH(00868 ) 
PHZSTA(OORSA) 
PNZSTA(0003E) 
JPZTAB(00074) 
ABYREG(OO1E?) 
ABZREG(OC4D 3} 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=0. 


Type=1. 
Type=1. 
Type=1. 


Type=0. 
Type=1. 
Type=1. 
Type=1. 
Type=0. 
Type=0. 
Type=0. 


Type=1. 
Type=1. 
Type=1. 


Type=0. 
Type=0. 
Type=0, 
Type=0. 


Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Nibs=3 
Nibs=3 
Nibs=3 
Nibs=4 
Nibs=3 


Nibs=4 
Nibs=3 
Nibs=3 
Nibs=3 
Nibs=3 


Nibs=4 
Nibs=2 


Nibs=4 
Nibs=4 
Nibs=4 


Nibs=5 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 


Nibs=5 


2 Nibs=5 
1 Nibs=4 


—_—OOoOD 


Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 


Nibs=4 
Nibs=4 
Nibs=4 


Nibs=5 
Nibs=5 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=5 
Nihs=4 
Nibs=4 


Dist=0068F 
Dist=004BD 
Dist=006R2 
Dist=00A18 
Dist=005D8 


Dist=007F9 
Dist=00084 
Dist=00468 
Dis t=00588 
Dist=00786 


Dist=0387F 


Dist=015B9 
Dist=016RE 
Dist=0199A 


Dist=O06BB8 
Dist=07516 
Dist=13248 


Dist=11F86 
Dist=12D23 
Dist=01DE1 


Dist=O1ASF 
Dist=01R6E 
Dist=O1E3C 


Dist=10ERD 
Dist=O089F8 
Dist=0138A 
Dist=016B0 
Dist=0196D 
Das t=02559 
Dist=O0R46A~A 
Dast=01577 
Dist=04748 
Dis t=0445( 


ADHD 
ADHEAD 


ADJA 

ADJAAA 
ADIN 

RDJNNN 
ADIPTR 
ADJREF 
RDRS40 


oo Me th tet 


RDRS5SO = 


ADRS80 
ADRSUB 
AF 

RIDEST 
ALINFO 


ALLDUN 
ALASRV 


ALRMM1 


ALRN2 
ALRM3 
ALRIN4 
ALRM5 
ALRMG 
AND 

ANGLE 
ANN .5 
RNNAD1 


ANNADZ 


ANNAD3 
ANNAD4 


ARANGE 


won Wott oH foe 


TACEE SGZKEY 
181B7 SBZI0: 


1289R MNZTN: 
12008 MNXTM: 
12825 MNZTH: 
12D2C ANZTH: 
OB527 ABZREG 
013A9 TIZUTL 
OF52B ABZEXP 


OF551 ABZEXP 


OF567 RBZEXP 
OF4CF ABZEXP 
12DEC MNZTN: 
OB3BE ABZREG 
01531 TIZUTL 


O4BEF ABZLEX 
12570 MNZTM: 


2F719 SBZRAN 


2F725 SBZRAN 
2F731 SBZRAN 
2F730 SBZRAN 
2-749 SBZRAA 
2F755 SBZRAN 
08877 ABZAFCN 
OBE12 ABZFCN 
2£101 SBZRAN 
2£100 SBZRAN 


2€102 SBZRAN 


2E34C SBXRAN 
2E34E SBXRAN 


04501 SBAEXP 


(++ + einen ee 


i++ 1 + + 1 ' 


i 2 en ee | 


(+++ + + 1 + 1 


~_+ ee tei 


OBADF 
OBBB4 
15FB6 
1DBEB 
18873 
1ADA3 
OAR45 
17060 
1ACFO 


10081 


10D08A 
194BA 


ORE5A 
ORF CF 
OF BSE 
0E426 
0E568 
199A9 
1R08? 
10093 
OF8EB 
O6FE?7 
O81CF 
16RBA 


OOSF9 
00747 
0215A 
07593 
OED76 
14E5B 
1295A 
131C4 


1270D 
1ER85 
1DD9C 


01905 
135CA 
000C6 
005C9 
00E35 
OOESD 
OOFE? 
1359A 
135AC 
01965 
1358C 
03744 
O3F 88 
OS3BE 
08983 
151A6 


ABZFCN(004RA6) 
ABZFCN(0057B) 
ABZC LE (00R97) 
TIZF X4 (00041 ) 
SB%EXC(001R5) 
SBZVAL(000 35 ) 
SBZFCN(0011A) 
SBZRD: (00199) 
SGZKEY(0024F ) 


JPZTAB(0007D ) 


JPZTAB(00086 ) 
SCZSUB(00748) 


ABZREG(00262) 
ABZREG(003D7) 
SCZTRC (00157) 
PMZSTA(OO5F 7) 
PAZSTA(00739) 
SCZSUB(00C 37) 
SCZSUB(01315) 
JPZTAB(O008F ) 
ABZASN(00311) 
JPZSYS(000B8 ) 
JPZEXC (003F 3) 
FHZTFM(OOO0C ) 


SBZDVR(O05F 9) 
SBZDVR(00747) 
SBZDSP(O08CR) 
JPZSYS(00664 ) 
MNZUTL(00108) 
HNZED: (001DB) 
MNZTH: (00410) 
ANZTN: (O0C7A~A) 


MNZTH: (00103) 
SBZTAB(O054E ) 
JPZTAB(00098) 


SBXDSP(00075) 
PMZFLG(00181 ) 
SBZDVR(000C6) 
SBZDVR(005C9) 
SBYKEY(0013E) 
SBZKEY (00166) 
SBZKEY(O02FO) 
PNZFLG(00151) 
PMZF LG(00163) 
SBZDSP(000D5) 
PMZF LG(00143) 
JPZPR3(0036E) 
JPZPR3(00BB2) 
SGZLDC (00460) 
SGZEXC (00338) 
NNZED: (00526) 


Type=1.1 
Type=1.1 
Type=1.1 
Type=0. 1 
Type=1.0 
Type=1.1 
Type=0.1 
Type=1.1 
Type=1.0 

2 

2 

1 


Type=1. 


Type=1. 
Type=0. 


Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 
Type=0. 1 
Type=0.1 
Type=1.2 
Type=1.1 
Type=1.1 
Type=1.1 
Type=0. 1 


Type=0. 1 
Type=0. 1 
Type=0.1 
Type=0. 1 
Type=1.1 
Type=1.1 
Type=0.0 
Type=0.0 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=3 
Nibs=3 
Nibs=5 
Nibs=3 
Nibs=4 


Nibs=5 


Nibs=5 
Nibs=5 


Nibs=4 
Nibs=4 
Nibs=3 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=5 


Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=5 


Nibs=5 
Nibs=5 
Nibs=5 


Nibs=5 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=3 
Nibs=4 
Nibs=4 
Nibs=5 


Dist=03R48 
Dis t=03973 
Dist=O6AR8F 


Dist=00775 
Dist=000B5 


Dist=00457 
Dist=02B39 


Dis t=0B8079 
Dist=OB05E 


Dist=046D1 
Dis t=0455C 
Dist=00673 
Dist=0112B 
Dist=O0FE9 


Dist=OAFA?7 
Dist=0452D 
Dis t=05AB6 
Dist=06C39E 


Dist=03807 
Dist=O28DE 


Of fset= 


Dist=1320E 
Dist=11F8A 


Of fset= 


Offset= 


Dist=00E8D 
Dist=00649 
Dist=O0DED 
Dist=04382 


ARG12 
ARG15 
ARGCNT 
ARGERR 


ARGF 

ARGPR+ 
ARGPRP 
ARGST- 
ARGSTA 


ARITH 
ARRAY 


ARRYCK 


ARYDC 
ARYELM 
ARYSIZ 
ASCO2 
ASCICK 
ASCII 
ASIN 


ASINI2 
ASIN15 
ASLW3 
ASLWA4 
ASLWS 


RSNMNT 


ASNMP 
ASNSTO 


ASRW3 


ASRW4 
ASRW5 
RSSIGN 
RSSNDC 
RSSNP 
RATAN 


ATANI2 
RATAN15 
RICHK 

ARINC LR 
RINDIS 
AINF LG 


how oo ou 


i" ee fe oth 


41th ROE 


8 o6t Ot EE 


uw 


0th FR ht 


ott ooh eB 


O067B SMANTH 
OD67F SMZNTH 
16137 ABZCLC 
OBF19 ABZFCN 


OD6A4 
OESEB 
OESEF 
0E910 
OE90C 


SMANTH 
PMZSTA 
PMZSTA 
PMZSTA 
PMZSTA 


061E0 
OBADD 


SBZEXD 
ABZFCN 


0366A JPZPR3 


05178 
OB5A7 
06618 
05158 
O514E 
00798 
OBDCF 


SGZLOC 
ABZREG 
ABZREG 
SGZLDC 
SGZLDC 
SBxXBIT 
RBZF CN 


SMANTH 
SMZNTH 
OED21 MNZUTL 
OEDIE MNZUTL 
OEDIB MNZUTL 


ODBCS 
ODBCC 


OFSEO ABZASN 


JIPZPR2 
ABZASN 


O314E 
OFSED 
OED10 MNZUTL 
OEDOD 
OEDOR 
T1F 33 
05409 
O3ADB 
OBDFD 


MNZUTL 
ANZUTL 
SCZFIL 
SGZLDC 
JPZPR3 
ABZFCN 


SMZNTH 
SMZMTH 
JPZSYS 
SBZDVR 
SBZRAN 
SBZRAN 


ODBBR 
ODBBE 
077D7 
00510 
2F 441 
cF442 


ee ee ee ee ee 


(++ + + 1 


(+*e t| + 1 


1 oe 1 me FE me lm eH aa 


' +> 4 ' 


OBE1B 


167C6 
O6BER 
O80BC 
08DC4 
OSF1D 
08067 
OE922 
11453 
12D4R 


136CD 
O7E7E 
080A8 
OSER6 
OEESC 
12CF4 
16483 
O4BDB 
1ERO7 
03290 
O32CE 


147A8 
1984F 


O19F7 
1DDAS 
1EBO03 
OBDD8 


101D6 
1336E 
10F 94 
14E9A 
1D20D 
07401 
08689 
02B25 
19RO2 
19E49 
101E6 
12FFB 
10506 
10214 
1DDRE 
11F29 
TIF 2E 
1DDB? 
1EB15 
OBEO6 


0363A 
18053 
OOF B8 
512 


ABZFCN(007E2) 


ABZED: (00154) 
SGZSYS(0084A) 
JPZEXC(002E0) 
SGZEXC (00770) 
SGZF XQ(003A7) 
ABZREG(O046F ) 
PHAZSTA(OORF 3) 
SCZFIL(00400 ) 
MNZTM: (00800) 


PNZF LG(00284 ) 
JPZEXC(O00R2) 
JPZEXC(O02CC) 
SGZF KQ(00330) 
MNZUTL(OO21E) 
MNZTM: (007AR) 
ABZBLD(00157) 
ABZLEX(002F5) 
SB%TAB(004D0 ) 
JPZPR2(00676) 
JPZPR2(006A8) 


SCZDAT (OOEF 3) 
SCZSUB(OOADD) 


SBZDSP(00167) 
JPZTAB(OO0A1 ) 
SBZTAB(OOSCC) 
RBZFCN(0079F ) 


MNZCNF (00044 ) 
MNZTN: (00E24) 
MNZCNF (OOEO2) 
MNZED: (0021A) 
MNZCD: (00994) 
IPZSYS (00592) 
SGZEKC (00071 ) 
JPZPR1 (00585) 
SCZSUB(00C90 ) 
SCZSUB(O10D7) 
MNXCNF (00054 ) 
MINX TM: (OORB1 ) 
MNZCD: (OOD5D) 
MNZCD: (0099B) 
JPZTAB(OOORA ) 
SCZFIL(OOE NG) 
SCZFIL( QOEDB) 
JPXTAB(000B3) 
SBZTAB(OOSDE ) 
ABZFCN(007CD) 


TIZERD(O02A7) 
SBZ10: (00E97) 
SBZKEY (00201) 
SBZDVR (00512) 


—_ 


Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


ooooooco- 
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Type=1.4 
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Type=1.1 
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Type=1.1 
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Type=1.1 
Type=0.1 
Type=0.1 
Type=t.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.1 


Type=1.0 
Type=0.1 
Type=0.0 
Type=0,.0 


Nibs=4 


Nibs=3 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=4 
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Nibs=4 
Nibs=4 
Nibs=3 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=3 
Nibs=3 


Nibs=5 
Nibs=5 


Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=3 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=4 
Nibs=5 
Nibs=5 
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Dis t=01860 


Dist=0068F 
Dist=0532F 
Dist=03E5D 
Dist=03155 
Dist=O1FFC 
Dist=O0EB2 
Dist=02A09 
Dist=0553A 
Dist=06E31 


Dist=04D8D 
Dist=O6A8E 
Dist=06864 
Dist=04A66 
Dist=00580 
Dis t=043E8 


Dist=12F2R 
Dist=003CE 
Dist=0039C 


Dist=11FD6 
Dist=12D34 
Dist=01DFO 
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Dis t=04650 
Dist=02279 
Dist=0617F 


Dist=06F2? 
Dis t=00629 


Dist=014D6 
Dist=042EB 


Dist=OBE 7B 
Dist=OCR60 
Dist=0E453 
Dist=11FBA 
Dist=12D18 
Dist=01DB4 
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ATTNIN 
AUTCLR 


RUTDEL 
AUT INC 


AUT LN2 
AUTO 
RUTOCK 


AUT OP 
AUT XQ? 
AVE=C 
AVE =D1 


AVN2DS = 
AVMENE = 
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Dist=0F59B 
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Dist=05307 
Dist=O0R4E 
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OPNCHH 
OPNF + 
OPSTRp 
OPT DC 
OPTION 
OPTP 
OR 
ORGSB 
ORIGIN 


ORSB 
ORXN 
OUT1T+ 
OUT1TK 


OUT2TC 


QUT 2TK 


QUT3TC 
QUT 3TK 


OUT =1 
QUT =F 
OUTB+5 
OUTBS 


OUTBY+ 
OUTBYT 


OUTC15 


OUTEL1 
OUTELA 
QUT LI1 
OUT LIT 
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O2D4E 
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00633 
O2CDF 
O2CEB 


O2CFD 


O2CFF 


O2D12 
02015 
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06281 
03836 
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O2CE5 
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05300 
05303 
03709 
036F3 
0333A 


SCAFIL 
SCZFIL 
JPZPR3 
S6Z LDC 
PAXF LG 
JPZPR2 
ABZFCN 
SHANTH 
ABZCLCE 


SMZNTH 
SMZNTH 
JP£PR2 
JPZPR2 


JPZPR2 


JPZPR2 


IPZPR2 
JPZPR2 


TIZF 1 
TIZFX1 
JPZPR3 
SBZRAN 
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SGZLOC 
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IPZPR3 
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1A3DF SBZEXC(0000B ) 
137B4 PMZFLG(0036B) 
1EDF7 SBZTAB(O08C0) 
137B9 PAZFLG(00370) 
1EA97 SBZTAB(00560 ) 


166FC ABZED: (0008A) 
16849 ABZED: (001D7) 
OE1AB PAZSTR(0037C ) 


0525A SGXLDC(O02FC) 
0187C SB%CMD(00255) 
O27BC JPZPR1(0021C) 
033FA JPZPR3(00024) 
O461E SBXEXP(00649) 
05F94 SB%EXD(00672) 
17CD9 SBZRD: (00112) 
1882A SBZI0: (OOAGE ) 
02R27 JPZPR1 (00487) 
0581C SGZLDC (O08BE ) 
072B3 JPZSYS (00384 ) 
OFB25 SCZTRC(OOODE ) 
O268F JPZPR1(OO0EF ) 
02937 JPZPR1(00397) 
03E93 JPXPR3(OORBD) 
OSAS59 SBXEXD(00137) 
Q5A7B SBZEXD(00159) 
O58A6 SGZLDC (00948) 
027B5 JPZPR1(00215) 
02A20 JPZPR1(00480) 
O3BEF JPZPR3(00819) 
OOSDB SBZDVR(OO5DB) 
OOGCF SBZDVR(OOECF ) 
0272B JPZPR1(0018B) 
01425 TIZUTL(O02F4) 
01437 TIZUTL(00306) 
01483 TIZUTL(00352) 
O28BF JPZPR1(0031F ) 
05069 SG LDC(0010B) 
O6B2A SGZ£SYS(0078A) 
06D48 SGZSYS(009A8) 
O56C9 SGZLDC(0076B) 
017A1 SBZCND(0017A) 
02814 JPZPR1(00274) 
0296B JPZPR1(003CB) 
02A15 JPZPR1(00475) 
02A34 JPZPR1 (00494) 
039CO JPZPR3(O05ER) 
O5CC8 SBXEXD(003A6) 
06C20 SGZSYS(00880) 
1ABFF SGZKEY({O015E ) 
OR481 SGXZFXQ(0090B) 
1RACA SGZKEY(00029) 


04059 SBZEXP(00084 ) 
O3B1 JPZPR2(0048B) 
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Nibs=3 
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Nibs=3 Dist=002D3 
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OUTRES 
OUTRP 
OUTVAR 
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OVERCK 
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OVFL 
OVFNIB 
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PARERR 
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PCADDR 
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PDEV 
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PEDITD 
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02048 
OBC84 
O5CC2 
0373E 


O39BE 
{ABFD 
1723B 
13893 
OD1F? 
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OSEA4 
OF FSF 
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JPAPR2 
ABZFCN 
SBZEXD 
JPZPR3 


JPZPR3 
SGAKEY 
FHATFM 
PNAZF LG 
JTZNTH 
JTANTH 
JTAMTH 
SBZRAN 


JTAMTH 


SBAEXP 
IPZPR2 
ABZCLCE 
S84 10: 
JPZSYS 
SBZRAM 


SGZSYS 
SGZFXQ 
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JPZMEN 
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0176B 
04297 
0444C 
06043 
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O05BB4 
O5DED 
06758 
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SBZCND (00144) 
SBZEXP(002C2) 
SBZEXP (00477) 
SBZEXD (00721 ) 
JPZPR2(0008D ) 
JPZPR3(00924 ) 
SBZEXP(O06AS ) 
SBZEXD (00292 ) 
SBZEXD(004(B ) 
SGZSYS (00 3B8 ) 
SGZSYS(0055B) 
SGZFXQ(00913) 
SGZKEY (OO0F 7) 
JPZPR3(004 2D) 
SBZEXP(001D8 ) 
JPZPR1 (00312) 


SGZLDC (00778) 
JPZPR2(0058B ) 
JPZPR3(OO3FF ) 
JPZPR3(004 3B ) 
SBZEXP (00050 ) 
SBZEXP(00071 ) 
SBXEXP(O01CF ) 
SB%EXP(003A5 ) 
SBZEXP(OO8DC ) 
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03839 
1463€ 
18B22 
19783 
1A5R9 
1€673 


17A3A 
17B35 
OBF 99 
O288F 
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ABZCLC(OOC9A) 
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MBZUSG(006R3 ) 
SBZTAB(007FA) 
JPZSYS(00556 ) 
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SGAEXC (002B6 ) 
SGZEXC (00405 ) 
TIZERD(007A6 ) 
SCZDAT (00089) 
SBZ IO: (00066 ) 
SCZSUB(OOAR11) 
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SGZPOK (00085 ) 
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PERCNT 
PFINDL 
PFNDL* 
PFNOZL 
PI 
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PI/2 
PI/2D 
PI/4 
PILP 
PILP+ 
PKFIX1 
PLIST 
PLUS 
PNOALN 
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POKE 
POKEZ5 
POKEP 
POKERR 
POLL 


POLLD+ 
POP 
POP1N 


POPIN+ 


POPIR 
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OB6BC 
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10776 
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1232D 
O8FCF 
OBDIC 


0BD91 


OE8FD 


0BD38 


ABZFCN 
JPZSYS 
JPZSYS 
JPZSYS 
ABZFCN 
ABZFCN 
SMZNTH 
SITANTH 
SMZATH 
JPZPR3 
JPZPR3 
TIZFRK4 
SGZSYS 
RBZFCN 
SBZRAN 


SGZPOK 
SGZPOK 
JPZPR3 
SGZPOK 
JPZPOL 


JPZPOL 
SGZEKC 
ABZFCON 


ABZFCN 


PHZSTA 


ABZFCN 


t t¢ bt ee e+ eH Fo Ft Fo ba 


(++ e+e +e Herero 


+e re ere Heo~—_o~qeovntrireeretirtetieee eee e ee i 


TER4F SBZTAB(00518) Type=1. 
1B468 MBZING(00022) Type=0. 
1A963 SCZREN{003E7) Type=0. 


1E9E3 SB%TAB(OO4AC) Type=1. 


03238 JPXZPR2(00612) Type=1 
O2A62 JPZPR1(004C2) Type=1 
1C6B2 SGZPOK(001C4) Type=1 
1DE50 JPXTAB(O014C) Type=1 
1EAG1 SBZTAB(OOS2A) Type=1 
074CC JPZSYS(0059D) Type=0 
07551 JPZSYS(00622) Type=0 
07588 JPZSYS(00659) Type=0 
12A3F MNZTH: (O004F5) Type=0 
12R4B MNZTH: (00501) Type=0 


1DFAG JPZTAB(OO2AZ) Type=1. 
SBZGPH(OOOF8) Type=1. 
SGZP0K(00136) Type=1. 
TIZFR4 (00024) Type=1. 
SGXZFKO(OO8DF) Type=1. 
SCZFIL(OO66A) Type=1. 
SCZDAT (00579) Type=1. 
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10624 
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19082 SCZSUB(00310) Type=1. 
196FD SCZSUB(0098B) Type=1. 
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03D95 JPZPR3(009BF) Type=0. 
IDFAF JPZTAB(OO2AB) Type=1. 
ABZREG(00175) Type=1. 
PMZSTA(OORDO) Type=1. 
SCZFIL(0O130) Type=1. 
ABZCLE(OO8BC) Type=0. 
ABZCLE (00934) Type=0. 
ABZBLD(00243) Type=0. 
SBZ10: (0023B) Type=0. 
SB%10: (0035B) Type=0. 
SBZI0: (003R6) Type=0. 
SBZVAL(00149) Type=0. 
SGZEXC (00841) Type=1. 
PMZSTA(00843) Type=1. 
PMZFLG(000D7) Type=1. 
SGZEXC (00230) Type=1. 
SGZEXC (00396) Type=1. 
SGZPOK(00002) Type=0. 
SGZEXC(00755) Type=1. 
SBZFCN(00095) Type=1. 
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Dist=129E3 


Dist=0019E 
Dist=00977 
Dist=014F8 
Dist=17410 
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Dist=0197D 
Dist=001DC 
Dist=18E96 
Dist=01458 
Dist=O7EE2 
Dist=00C7A 
Dist=01AF7 
Dist=0503F 
Dist=06262 
Dist=06291 
Dist=0604B 
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Dist=14FE0 
Dist=O0F AF 
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Dist=054 74 


Dist=02(08 
Dist=028E1 
Dist=0778F 
Dist=06085 
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Dist=02F 9B 
Dist=01378 
Dist=012E1 
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POP2N+ 
POPARG 
POPBUF 


POPCHH 
POPGSB 


POPNTH 


POPSTK 


POPSTR 
POPUPD 


POS 
POLL) 


PO1L)) 
PPOS 
PREDV 
PRENCK 


PREP 
PRESCN 
PRGFE 
PROFNF 


PRGNEN 


PRGNST 


PRGRONM 
PRINT 

PRINTH 
PRINT * 
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O8F 3E 
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03681 
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OA146 
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OR 30E 
17FOE 
14291 
17F3? 


ABAFCN 
ABZFCN 
SCAFIL 
SBZKEY 


SCZFIL 
SGZEXC 


ABZUTL 


SGKEXC 


ABZUTL 
SGKEXC 


ABZFCN 
SGZFXQ 


SCZDAT 
SBZRAN 
PHZSTA 
JPZPR3 


RBZREG 
ABY LEX 
SGAFKQ 
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SBZRAM 


SBZRAN 
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19287 
00165 
021B0 
O21E0 
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1977D 
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SCZSUB(00515) Type=0. 
SBZDVR(00165) Type=0. 
SBZDSP(00920) Type=1. 
SBZDSP(00950) Type=1. 
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SBZDSP(0095A) 
SGZSYS(001EB) 
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SGZKEY(0021E) 


SCZSUB(OOROB) Type=1. 
JPZSYS(OOBE4) Type=1. 
MNZGSB(00037) Type=0. 
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PNZSTA(00673) 
SCZTRC(003A8) 


SCZDAT (00490) Type=1. 
SCZDAT(OO6A1) Type=1. 
SBZ10: (00774) Type=1. 
NBZUSG(00600) Type=1. 


SGZSYS(O0ROO) Type=1 


SBXVAL(00139) Type=0. 
SCZSUB(O01A9) Type=1. 


124CD JPZPOL(001B2) 
16CB6 FHZTFA(00208 ) 
16F1E FHZTFN(00470) 
1OFB8 JPZTAB(O02B4 ) 
06B83 SGZSYS(007E3) 
O76FR JPZSYS(007BB) 
08453 JPZEKC (00677) 
093B8 TIZERD(00025) 
1A876 SCZREN(OO02FA) 
185BR SBX%I0: (007FE) 
1EB39 SBXTAB(00602 ) 
03101 JPZPR2(004DB ) 
033B8 JPZPR2(00792) 
04003 SBZEXP(OOOEE ) 
01337 TIZUTL(00206) 
O85D2 JPZEXC(007F 6) 
07016 JPZSYS(OO0E7) 
1736F FHZTFN(O08C1 ) 
0725C JPZSYS(0032D) 
07469 JPZSYS(0053A) 
0791D JPZSYS(OOSEE ) 
08506 JPZEXC(0072R) 
087A1 SGZEXC (00159) 
17028 SBXRD: (00061 ) 
19064 SCZSUB(O02F 2) 
07788 JPZSYS(00859) 
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TACTE SCZSUB(O14AC) 
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Nibs=4 Dist=008F8 
Nibs=3 Dist=00642 
Nibs=3 Dist=0039C 
Nibs=3 Dist=00381 
Nibs=3 Dist=0043C 
Nibs=3 Dist=006(6 
Nibs=4 Dist=00DDE 
Nibs=4 Dist=019E2 
Nibs=4 Dist=03B92 
Nibs=4 Dist=05427 
Nibs=3 Dist=00597 
Nibs=3 Dist=005A4 


Nibs=5 
Nibs=4 Dist=01A8D 
Nibs=4 Dist=04E23 


Nibs=5 
Nibs=4 
Nibs=5 
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2F 880 SBXRAM 
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11538 
1166C 
147B9 
14806 
17A14 
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1C65A 
06478 
064A2 
06539 
07118 
O721E 
OR 71 
ORTEE 
OACCS 
ODF 69 
OE061 
OEORF 
OFD26 
170E8 


02605 JPZPR1(00065) 
02004 JPZPR1 (00664 ) 


06488 
06591 
02018 
063A2 
06612 
OACSD 
OE0C3 
13E7E 
14865 
02581 
09D29 
09049 
OF 7DD 
OF 8F 1 
OFC49 
11764 
1417CC 
14A84 
19D15 
O6ADA 
06848 
OF 7BB 
14AC1 
14AF9 
14867 
1729E 
TACFC 
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08911 
OADF 9 
ORE46 
OFA3A 
OFEOB 
11673 


SCZTRC(00338) Type=0.0 
SCZFIL(O04E7) Type=0.0 
SCZFIL(00619) Type=0.0 
SCKDAT(O0FO4) Type=0.0 
SCZDAT (OOF 51) Type=0.0 
FHXTFN(OOF66) Type=0.0 
SCZSUB(0029B) Type=0.0 
SC%SUB(0049D) Type=0.0 
SC%SUB(011B0) Type=0.0 
SGZPOK(00145) Type=0.0 
SGZPOK(0016C) Type=0.0 
SGZSYS(OO0DB) Type=0.0 
SGZSYS(00102) Type=0.0 
SG%SYS(00199) Type=0.0 
IPZSYS(OO1EC) Type=0.0 
JPZSYS(OO2EF) Type=0.0 
SGAFXQ(OO5FB) Type=0.0 
SGZFXQ(00678) Type=0.0 
ABZREG(000D0) Type=0.0 
PMZSTA(0013A) Type=0.0 
PMXSTA(00232) Type=0.0 
PNZSTA(00280) Type=0.0 
SCZTRC(OO2DF) Type=0.0 
FHXTFN(0063A) Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 


SG%SYS(OO0EB ) 
SG%SYS(O01F 1) 
JPZPR1 (00678) 
SGZSYS (00002 ) 
SGZSYS (00272) 
ABZREG(00095) Type=0.0 
PMZSTA(00294) Type=0.0 
SCXDAT(005C9) Type=0.0 
SCZDAT(OOFBO) Type=0.0 
JPZPR1 (00011) Type=0.0 
SGZ%FXQ(001B3) Type=0.0 
SGZFXQ(001D3) Type=0.0 
ABZASN(00203) Type=0.0 
ABZASN(00317) Type=0.0 
SCZTRO(00202) Type=0.0 
SCZFIL(00711) Type=0.0 
SCXFIL(00779) Type=0.0 
SCZDAT(O11CF) Type=0.0 
SCZSUB(OOFA3) Type=0.0 
SG%SYS(0073A) Type=0.0 
SGZSYS(007A8) Type=0.0 
ABZASN(001E1) Type=0.0 
SCZDAT(O1200) Type=0.0 
SCZDAT(01244) Type=0.0 
SCXDAT(O12B2) Type=0.0 
FHATFN(QO7FO) Type=0.0 
SGZKEY(0025B) Type=0.0 
JPXPR1(00037) Type=0.0 
SGZEXC (00209) Type=0.0 
ABZREG(00201) Type=0.0 
ABZREG(0024E) Type=0.0 
ABZASN(00460) Type=0.0 
SCZTRO(003C4) Type=0.0 
SCZFIL(OO520) Type=0.0 
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Nibs=5 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 Offset= 
Nibs=5 Offset= 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
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SALLOC 
SAVDO 


SAVDO- 
SAVD1 
SAVEDO 


SAVE L# 


SAVEL+ 
SAVE LO 


SAVESB 
SAVERN 
SAVGSB 
SAVSTK 


SB15S 
SBEXC 
SBFCN 
SCAN 
SCNRT 
SCOPCK 


SCOPEN 
SCREXO 


SCREX1 
SCREK2 
SCREX3 
SCRLLR 


SCROLT 


SCRPTR 
SCRSTO 





fowou 


it 


moot 


2F 890 SBZRAN 
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SGZPOK 
SCZFIL 
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SMZATH 
SMZATH 
SMZNTH 
SBZRAN 


OE19A 
1A3D4 
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0440 
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PNZSTA 
SBZEXC 
SBZFEN 
ABZ LEX 
SBZDSP 
SGZEXC 
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064D2 
16360 
1DO5E 
00223 
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01D07D 
OEEDS 
OESCC 
oCC72 
OcceBc 
OE9D5 


ABZTLE (00070) Type=0. 
ABZCLE (00209) Type=0. 
ABZCLC(002F1) Type=0. 
ABZCLCE (00757) Type=0. 
ABZED: (0013A) Type=0. 
ABZED: (00184) Type=0. 
ABZED: (002B0) Type=0. 
ABZED: (002E7) Type=0. 
SCZSUB(O0CE65) Type=0. 
SCZSUB(01081) Type=0. 
JPZPR1 (00432) Type=0. 
JPZPR2(003E7) Type=0. 
JPZPR2(00411) Type=0. 
ABZREG(00023) Type=0. 
ABZASN(OO028F) Type=0. 
JPZPOL(0004C) Type=0. 
SGZSYS(002CA) Type=0. 
PNZSTA(0071D) Type=0. 
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ABZFCN(00966) Type=0. 
SOZFKQ(00004) Type=1. 
SCZDAT(0093E) Type=1. 
SCZSUB(00085) Type=1. 
JPZSYS(00463) Type=0. 
SGZEXC(OOREE) Type=1. 
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JPZEXC (00694) Type=0.0 
JPXPOL(OO1DF) Type=0.0 
SBZI0: (0002C) Type=0.0 


JP%SYS(00795) Type=1.0 
SC%SUB(00891) Type=0.1 
SC%SUB(014A0) Type=0.1 
MNZTH: (00016) Type=0.0 
HNZTH: (00051) Type=0.0 


SBZDVR(00173) Type=0. 
SG%SYS (00132) Type=1. 
ABZBLD(00034) Type=0. 
MNZCD: (OO7E5) Type=0. 
SB%DVR(00223) Type=0.0 
SBZDSP(00462) Type=0.0 
SBZDSP(OO4ED) Type=0.0 
MANZUTL(0026B) Type=0.0 
PNZSTA(OOB9D) Type=0.0 
JTANTH(O094B) Type=0.0 
JTZNTH(00995) Type=0.0 
PMXSTA(OOBRE) Type=0.0 
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SECURE 
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SENDIT 
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SETALR 
SETDAT 
SETDGT 
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SETSUS 
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SGAFXQ 
JPZPR3 
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MBZING 
NNZATM: 
ANZTN: 
MNZTN: 
ANZUTL 
MNZUTL 
MNZTN: 
SMANTH 


JPZSYS 
JPZSYS 
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ANZTM: 
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19A3E 
004TE 
OER9S 
OEFS? 


TIZUTL(0027F ) 
SCKFIL(O0C89) 
SCZFIL(OODEA) 
SCZFIL(OOE 3F ) 
ANZTN: (00564 ) 
MNZTH: (0057E) 
HNZGSB (00063) 
MNZ6SB (000939 ) 
MNZGSB(000CO ) 
HNZGSB(OOOF 1 ) 
MNZCD: (0069A) 
NNZCD: (007A8 ) 
JPZTAB(00317) 
SB%TAB(OO5F 9) 


JPZEXC (000B7) 
NNZUT L(OOOF 4) 


SGZFKQ(00810) 
SGZFXQ(00821 ) 
JPZTAB(00329) 
SGZFXQ(00815) 
SGZFKQ(06826 ) 


SGZSYS(0079E ) 
NBZUSG(0069B ) 
NBZUSG(0071 7) 


TIZERD(O03ED) 
NBZUSG(00180) 
MBZUSG(00255 ) 


MNZUTL(00102) 
JPZTAB(0033B) 
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Dist=04B4D 
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Dist=0437E 
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SFLAGT 


SFLGDC 
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SFlagl 
SGN 
SHF 10 
SHF LAC 
SHF RAC 
SHFRBD 
SHF TKN 
SHORT 
SHOW 
SHOWp 
SHRT 
SHUTDN 
SIGCHK 
SIGNAN 
SIGTST 


SIN 
SINI2 
SIN15 
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SKIPOC 
SKPBYT 
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SMALL 
SNAPBF 
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SNRPRS 
SNAP SV 


ft RR aE ht aa 


thou et 
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03C7B JPZPR3 


O7B7A JPZSYS 
1510F MNZED: 
OB8D8 ABZFCN 
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ODB46 SNZNTH 
ODB51 SMZNTH 
ODBSF SIZNTH 
O4BE6 RBZLEX 
ORCO2 ABZREG 
OR466 SGZF XQ 
03389 JPXPR2 
OF96C ABZASN 
OO5E2 SBXDVR 
OBD98 ABZFCN 
00916 JTZNTH 
0636 PMZSTA 


ABZFCN 
SMZMTH 
SNZNTH 
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SGZLDC 
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SBZDVR 
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MNZTH: (OO3BF ) 
MNZED: (00491) 
ABZED: (00204) 
ANZ LEK (00067) 
SBZDVR(004D5 ) 
MNZBP: (0009A) 
MNZUTL(O02DF ) 
MNZED: (0061B) 
ABZCLC (00050) 
ABZCLE(OOCBF ) 
ABZCLE(00D29) 
SCZSUB(00096 ) 
SB%CND(0001A) 
JPZEXC (00039) 
HNZED: (005(9) 
PNZF LG( 00000 ) 
PMZF LG(000 3F ) 
PHZF LG(00005 ) 
PMZF LG(00044 ) 
TIZERD(00048) 
SCZSUB(003E2) 
SBXTAB(00614 ) 
SMZNTH(00981 ) 
JTZMTH(OOCC9) 


SBZTAB(0078E ) 
JP%TAB(0034D) 
SGZF XQ(OO8EB) 


ABZASN(003C5) 
ABZFCN(0017C) 
ABZFCN(0072B) 
ABZF CN(0073E ) 
ABZFCN(00761 ) 
SBZTAB(005B1 ) 
ABZFCN( 00823) 
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SCZFIL(OO2FF ) 
SBZDSP(0050B ) 
SBZDSP (00599) 
SBZDSP (008B8 ) 
MNZED: (00109) 


TIZUTL(00442) 
TIZUTL(0047D) 
JPZPOL(O005C) 
JP%POL(001BD) 
JTZMNTH(00932) 
JPZPOL(00140) 
JPZPOL(001 36) 
SCZFIL(O057F ) 
SCZFIL(OOARS ) 
JPZPOL(00020) 
JPZPOL(00193) 
SCZDAT (00205) 
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Nibs=5 
Nibs=4 


Nibs=5 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=5 


Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 


Dist=00CF8 
Dist=01B10 
Dis t=03275 
Dist=056BE 


Dist=04B6F 
Dist=046AD 
Dist=01CA1 
Dist=01F75 
Dist=02BE4 
Dist=02C4E 
Dis t=0580E 


Dist=01C41 
Dist=ODF9A 
Dist=ODFD9 
Dist=0F 703 
Dist=OF812 
Dist=01861 
Dis t=04045 
Dist=13273 
Dist=019% 
Dis t=00B56 


Dist=140C3 
Dist=13BEB 
Dist=070D8 


Dist=03C07 
Dist=01161 
Dist=028D2 
Dist=028BF 
Dist=0289C 
Dist=12C95 
Dist=018BA 


Dist=026R8 
Dist=016D9 
Dist=01767 
Dist=01R86 


Of fset= 


Of fset= 


42 


42 


SNOWD+ 
SNerif 


SPACE 
SPLITA 


SPLITC 
SPLTAC 


SPLTAS 
SPLTAX 
SOR 


SQR12 
SQR15 
SQR15N 
SQR1? 
SQR 70 
SQRSAY 


SRLEAS 
SST 
ST01 
STABI 
STAB1X 


STAB2 
STAKDN 


STAKUP 


STAT 
STATAR 


STATDC 
STATIC 


uot 


uo oO 


17E1F 
08072 


OADSD 
OC6BF 


0940 
00934 


O£1 3F 
OE628 
OC16F 


0530 
00534 
0(5 34 
0(553 
0C5C3 
00629 


O15EC 
07228 
12RAC 
003D9 
ob712 


00400 
15F 75 


15F48 


08014 
2F7AD 


OS8F 2 
OF 27— 


SBZI0: 
SGZEXC 


ABZREG 
JTZMTH 


JTZMTH 
JT“NTH 


PMZSTR 
PMZSTA 
ABZF CN 


JTX“NTH 
JTZNTH 
JTZMTH 
JTXMTH 
JTXMTH 
SMAMTH 


TIZUTL 
JPZSYS 
MNZTM: 
JTZNTH 
SMANTH 


JTZMTH 
ABZC LC 


ABZCLC 


ABZREG 
SBZRAN 


SGZLOC 
ABZE XP 
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06B37 SGZSYS(00797) Type=0. 
07B49 JPZSYS(O0C1A) Type=1. 
Type=0. 


19039 


0C15D 
0C183 
0D708 
OE62F 
OF 370 


OB6R1 
OD?70E 


1£05A 
1EAC4 
00177 
OD9ES 
OD62F 
ObCBC 


OE312 
OE 3BF 
124F3 
004BD 
08600 
1C8F3 
00713 
O£00D 
O£1DE 
ODECO 
0pC97 
O9?7F5 
16366 
166F 7 
097B6 
16334 
166EC 
1ECEO 
0B056 
OE5D5 
OBOOR 
1E7EB 
1E7F4 
1E7FD 
TE806 
TE80F 
1£818 
1821 
TE&CA 
1£833 
1E83€ 
1€845 
1E84E 
1E89? 
1£ 860 
1£869 
1E872 
1E8?B 
TESS4 


SCZSUB(O1207) 


ABZFCN(O0B24 ) 
ABZF CN( O0B50 ) 
SMZNTH(002D3) 
PHZSTA( 00800 ) 
ABZASN(00396 ) 


ABZFCN(00068) 
SMZANTH(002D9) 


JPZTAB(00356) 
SBZTAB( 00580) 
ABZF CN( OOB3E ) 
SNZNTH(005B1 ) 
SMZNTH(OO1FA) 
SMZNTH( 00887) 


PNZSTA(O04E3) 
PMZSTA(00590) 
JPZPOL(001D8) 
SBZDVR(O04BD ) 
IPZEKC (00824) 
MNZCD: (0007A) 
SMXNTH(O02DE ) 
PMXZSTA(O01DE) 
PMZSTA(OO3AF ) 
PMZSTA(00091 ) 
SMZNTH(00862) 
TIZERD (00462) 
ABZBLD(0003A) 
ABZED: (00085) 
TIZERD(00423) 
ABZBLD (00008) 
ABZED: (0007A—) 
SB%TAB(007A9) 
ABZREG(O045E ) 
PNXSTA(007A6) 
ABZREG( 00412) 
SB%TAB(002B4 ) 
SBXTAB(OO2BD) 
SBZTAB(002C6) 
SBZTAB(OO2CF ) 
SBZTAB(OO2D8) 
SBZTAB(O02E1) 
SBZTAB(OO2EA) 
SBXTAB( O02F 3) 
SBXTAB( OO2FC ) 
SBX%TAB( 00305) 
SBXTRB(O030E ) 
SBZTAB( 00317) 
SBX%TAB( 00320) 
SB%TAB(00329) 
SBXZTAB( 00332) 
SBZTAB(0033B) 
SBZTAB(00344) 
SBZTAB(O0 340) 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=0. 
Type=1. 
Type=0. 
Type=0. 
Type=1. 
Type=1. 
Type=1, 
Type=1. 
Type=1. 
Type=0. 
Type=1. 
Type=1. 
Type=0. 
Type=1. 
Type=1. 
Type=1. 
Type=0, 
Type=0. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=t. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
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Nibs=5 
Nibs=4 
Nibs=5 


Nibs=3 
Nibs=3 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=4 
Nibs=4 


Nibs=5 
Nibs=5 
Nibs=3 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=4 
Nibs=4 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=3 
Nibs=4 
Nibs=4 
Nibs=3 
Nibs=4 
Nibs=5 
Nibs=3 
Nibs=3 
Nibs=5 
Nibs=3 
Nibs=3 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs.=5 


Dist=01129 


Dis t=00562 
Dist=00536 
Dist=01043 
Dist=01F70 
Dist=032B1 


Dist=01293 
Dist=00DDA 


Dist=11EEB 
Dist=12955 
Dist=003B9 
Dist=014B2 
Dist=O10FB 
Dist=01769 


Dist=00CE9 
Dist=00096 


Dis t=06D6B 


Dist=0033A 
Dist=00C34 
Dist=00E05 
Dist=O07RE 
Dist=00897 


Dist=003F1 
Dist=00782 


Dist=003EC 
Dis t=007A4 
Dist=13CCC 


Dist=05718 
Dist=OF571 
Dist=OF57A 
Dist=0F 583 
Dist=OF58C 
Dist=OF595 
Dist=OF59E 
Dist=OF5A?7 
Dist=OF SBO 
Dist=OF5B9 
Dist=OF5C2 
Dist=OF5CB 
Dis t=OF5D4 
Dist=OF5D0 
Dist=OF5E6 
Dist=OF5EF 
Dist=OF5F8 
Dist=OF 601 
Qist=OF BOR 


STATP 
STRTR+ 
STATRS 
STATSV 
STCD2 
STD 
STBRG? 
STFPIR 
STHD10 
STK16? 
STK19? 


STKBRK 
STKCH+ 
STKCHR 


STKCAD 
STKEND 
STKVC+ 
STKVCT 


STKWP 

STLXP2 
STLXPT 
STMBCL 
STMBUF 


STMEND 
STMTDO 


STMTD1 


88 he ek 


O3ROE JPZPR3 
1730C FHXTFM 
172F3 FHATFN 
1732F FHATFN 
00427 JIXMTH 
OEFF? MANZUTL 
1CE59 MNXCD: 
113AA4 SCZFIL 
14C3E SCZDAT 
13DB3 SCZDAT 
13DB0 SCZDAT 


15F68 ABACLC 
18507 SBZI0: 
18504 SB£10: 


155ED ABZCLC 
1S51F ABZCLC 
14708 SCZDAT 
1470C SCZDAT 


TASSD SBZEXC 
04009 ABZ LEX 
04006 ABZ LEX 
Q90E? SGKEXC 
OSODF SGZEXC 


12DC6 MNZTH: 
2F891 SBZRAN 


2F896 SBARAN 


i i hn Se Se 


i ee | 
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1E88D 
16896 
1E89F 
1E8A8 
1E8B1 
1E8BR 
1€8C3 
1E8CC 
OBOOF 
1701C 


1DDD2 


0E260 
19A6E 
19AE2 
16813 


ORSBE 
17049 
iACD2 
TADSE 
017C5 


17004 
17092 


O2FC8 
03E77 
0039C 
07103 
195B1 
1023 
1340? 
O25F5 
02992 
O2F B8 
0702D 
0703E 
1129F 
1149F 
14B75 
187CB 
188A3 
1921R 
19480 
19673 
19FO1 
OE1F3 
OE20D 
111FB 
1136? 
11394 
11486 
12203 


SBZTAB (00356 ) 
SBZTAB(O035F ) 
SB“ TAB (00368 ) 
SB%TAB(00371 ) 
SB%TRB(0037A) 
SB%TAB(00383) 
SB%TAB(0038C ) 
S$BZTAB(00395 ) 
ABZREG(00417) 
FHA TFN(O056E ) 


JPZTAB(OOOCE ) 


PMZSTA(004 31 ) 
SCZSUB(OOCFC) 
SCZSUB(00D70) 
ABZED: (001A7} 


SB%FCN(0008B ) 
SBZRD: (00182) 
SGZKEY (00231 ) 
SBZVAL(00030) 
SB%CND(0019E) 


SBZRD: (00030) 
SBZRD: (001 CB) 


JPZPR2(003R2 ) 
JPZPR3(OOAAT ) 
SBZDVR(0039C ) 
IPZSYS(00294 ) 
SCZ SUB (008 3F ) 
SCZSUB(0128B1 ) 
PNZFLG(OO08E ) 
JPZPR1 (00055) 
JIPZPR1 (003F 2) 
JPZPR2(00392 ) 
JPZSYS(OOOFE ) 
JPZSYS(001 OF ) 
SCZFIL(0024C) 
SCZFIL(0044C ) 
SCZDAT (01200) 
SBZI0: (OOROF ) 
SBZ10: (OORE7) 
SCZSUB(004A8 ) 
SCZSUB(0070E ) 
SCZSUB (00901 ) 
SCZSUB(0118F ) 
PHZSTA(003C4 ) 
PHZSTA(O03DE ) 
SCZFIL(001A8) 
SCZFIL(00314 ) 
SCZFIL(00341) 
SCZFIL(00433) 
SCZFIL(0118B6) 


Type=1.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.2 
Type=1.1 


Type=1.2 


Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 


Type=0.1 
Type=1.14 
Type=1.1 
Type=1.1 
Type=0. 1 


Type=1.1 
Type=1.1 


Type=1. 
Type=1. 
Type=0. 
Type=1. 
Type=0. 
Type=0. 
Type=1. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
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Nibs=5 Dist=0F613 
Nibs=5 Dist=OF61C 
Nibs=5 Dist=OF625 
Nibs=5 Dist=OF62E 
Nibs=5 Dist=0F637 
Nibs=5 Dist=0F640 
Nibs=5 Dist=0F 649 
Nibs=5 Dist=0F652 
Nibs=5 Dist=07601 
Nibs=3 Dist=002F0 


Nibs=5 Dist=OEDDB 


Nibs=4 Dist=05B53 
Nibs=4 Dist=O5CBE 
Nibs=4 Dist=05D32 
Nibs=4 Dist=008B1 


Nibs=5 
Nibs=3 Dist=007BB 
Nibs=4 Dist=027CE 
Nibs=4 Dist=02898 
Nibs=5 


Nibs=4 Dist=034F8 
Nibs=4 Dist=03686 


Nibs=4 Dist=01041 
Nibs=4 Dist=O0E8F 
Nibs=5 
Nibs=4 Dist=01F 24 
Nibs=5 
Nibs=5 
Nibs=3 Dist=00711 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5§ 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 





STNTL+ 


STNTLO 
STMTNF 


STMTRO 


STMTR1 


SINTST 
STOP 
STOPDC 


STORE 


STORTN 
STOSTA 
STPASG 


ity 


wok oo 


wom on 


o2DC4 


02DC7 
1B4E6 


2F 874 


2F 881 


18B20 
07696 
05303 


OF SF8 


14015 
01 BRB 
11A98 


JPZPR2 


JPZPR2 
MBZING 


SBZRAN 


SBZRAM 


SBZ10: 
JPZSYS 
SCZ LDC 


ABZASN 


SCZDAT 
SBXDSP 
SCHFIL 
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13AC7 SCZDAT(OO212) Type= 
13D03 SCZDAT(0044E) Type= 


14A8E 
14B03 
14BCB 
15988 
159D4 
15839 
16200 
1?71F9 
17228 
19035 
02808 
02858 
O34EF 
07170 
1R5BD 
O7F 7F 
115D9 
116A5 
11B62 
11043 
11094 
1104 
11CF9 
11021 
11DEF 
1113 
17405 
17440 
1?7DC3 
17£09 
180A2 
18103 
18578 
1163F 
T1FC8 
OFO16 
1€043 
0768C 
07608 
O7F D8 
O8FCS 
O8F D6 
ODE44 
OEFED 


120CC M1 


13853 
1386B 
1D70B 
O892R 
0B353 
13F 47 
14005 
15E 38 
18861 
18BB3 
13FFC 
1C4RA 


191B0 


SCZDAT (01109) 
SCZDAT(0124E ) 
SCZDAT (01316) 
ABZCLE(00463) 
ABZCLE (00485 ) 
AB~CLCE(0061A) 
ABZCLE(OOCE1) 
FHATFN(0074B) 
FHZTFM(0077R) 
SCZSUB(OOF C3) 
JPZPR1 (00268 ) 
JPZPR1 (00288 ) 
JPZPR3(00119) 
IPZSYS(0024E ) 
SCZREN(00041 ) 
JPZEXC(001A3) 
SCZFIL(00586 ) 
SCZFIL(00652 ) 
SCZFIL(OOBOF ) 
SCZFIL(OOBFO) 
SCHFIL(00C41 ) 
SCZFIL(00C71 ) 
SCZFIL(OOCAG) 
SCZFIL(OOCCE ) 
SCZFIL(OOD9C ) 
SCZFIL(OODCO) 
FHATFN(00957 ) 
FHATFM(00992 ) 
SBZ10: (00007) 
SB%10: (0004D ) 
SBZ10: (002E6) 
SBZ10: (00347) 
SBZ10: (0078F ) 
SCZFIL(OOSEC) 
SCAFIL(OOF 75) 
MNZUTL(003A8 ) 
SB%TAB(O080C ) 
JPZSYS(0075D) 
JPZSYS(00799) 
JPZEXC(OO1FC) 
SGZEXC (00970) 
SGZEXC (O098E ) 
PNZSTA(00015 } 
MNZUTL(OO37F ) 
NZTM: (00882) 
PNZFLG(004 10 ) 
PAZF LG(004 22 | 
MNZCD: (OOE92) 
SGZEXC(002E2 ) 
ABZREG(0075B ) 
SCZDAT (00692 ) 
SCZDAT (00750 ) 
ABZCLE (00919) 
SBZI0: (OOFAS ) 
SBZ 10; (OODF 7) 
SCZDRT (00747) 
SBZGPH(QOOES ) 
SCZSUB(004 3E) 


Type 
Type= 
Type= 
Type=0. 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=1.1 
Type=1.1 
Type=1.1 
Type=0. 1 
ype: =1.0 


0.0 
0.0 
0.0 
=0.0 
=0.0 
0 


Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=3 
Nibs=3 
Nibs=3 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
- Nibs=5 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 


Dist=005BC 
Dast=0056C 
Dist=00728 


Dist=O0F 29 


Of fset= 


Of fset= 


Of fset= 
Of fset= 
Of fset= 
Of fset= 
Of fset= 
Of fset= 
Of fset= 


Dist=176AD 
Dist=02389 
Dist=023C5 
Dist=02CD5 
Dist=03CC2 
Dast=03CD3 
Dist=08B41 
Dist=O09CEA 
Dist=ODAC9 
Dist=0F556 
Dist=0F568 
Dist=18408 
Dist=O6CCE 


Dist=0494F 
Dast=06840 


Dist=07715 


1 


_ 


bl’ANH— — 


STRS 
STRSO0O 
STRSSB 


STRASN 
STREQL 


STRGCK 
STRHOR 


STRHED 
STRING 
STRLIT 


STRNGP 


STROVF = 


STRRCL 
STRSPC 
STRIST 
STRTUP 
STSAVE 


STSCR 
STUFF 
SUB 
SUBS 


SUBCHK 
SUBDC 
SUBONE 


SUBP 

SVFTYP 
SVINF + 
SVINFO 


SVRST+ 
SVRST2 
SY TRC 


SWRPKY 


SWPBYT 
SYCOLL 
SYNTAX 
SYNTXe 
SYSEN 


woo 


uo 


eo ot 


oot 


howou 


Oo ot th om 


18156 
1815C 
18149 


OF 683 
IB1EF 


0368A 
OFO9A 


14C2E 
OF 39 
OC1AR 


03790 


1411A 


OF 40C 
14A44 
181C7 
1R48E 
2F OBE 


OE92C 
1BOB2 
18D7C 
OC1FC 


19764 
0586A 
00327 


037B2 
11560 
08457 
0845A 


025A6 
025(5 
OF A35 


ODAOB 


17R24 
01455 
15D09 
02E2B 
2F 58A 


SBZI0: 
SBZ10: 
SB4I0: 


ABZASN 
ABZUTL 


JPZPR3 
ANZUTL 


SCZDAT 
ABZEXP 
ABZFCN 


JPZPR3 


SCXDAT 


ABZEXKP 
SCZDAT 
ABZUTL 
SBZEXC 
SBZRAM 


PMZSTA 
ABZUTL 
SCZ SUB 
ABZFCN 


SCZSUB 
SGZLOC 
JTANTH 


JPZPR3 
SCZFIL 
JPZEXC 
JPZERC 


JPZPRI1 
JPZPR1 
ABZ ASN 


SMZNTH 


FHATFM 
TIZUTL 
ABZCLE 
JPZPR2 
SB%RAN 
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f tie + 4b 


1+ t+ 1 


1EB78 SBZTAB(00641) Type=1.2 


OFDCA SCZTRC(00383) Type=0.1 
14494 SCZDAT(OOBDF) Type=1.1 
1633F ABZBLD(00013) Type=1.1 
1BCA7 MBZUSG(00203) Type=1.1 
193C1 SCZSUB(OO64F) Type=0.1 
OCOAA ABZFCN(00OA71) Type=0.1 
15655 ABZCLC(00136) Type=1.1 
03227 JPZPR2(00601) Type=1.1 
12024 MNZTM: (OO6DA) Type=1.1 
1(539 SGZPOK(0004B) Type=0.1 
1€843 SGZPOK(00355) Type=0.1 


1E737 SBZTAB(00200) Type=1.2 
1E6D4 SBZTAB(O019D) Type=1.2 
1€701 SBZTAB(OO1CA) Type=1.2 
092BC SGZEXC(00C74) Type=1.2 
18C5D MINZLCK(0000S) Type=1.2 
1489 SBXEXC(000B5) Type=1.2 
1A4C9 SBZEXC(OOOFS) Type=1.2 
1C45D SBZGPH(00098) Type=1.2 
18FA9 SCZSUB(00237) Type=1.0 
1R4CO SBZEXC(OOOEC) Type=1.0 
OBB85 ABZFCN(OOS4C) Type=1.0 


OB83A ABZFCN(00201) Type=0. 
1E063 JPZTAB(OO35F) Type=1. 
OF5BA ABZEXP(00442) Type=0. 
OF5CA ABZEXP(00452) Type=0. 
19CEB SCZSUB(OOF79) Type=0. 
19F5B SCZSUB(O11E9) Type=0. 


1 
2 
0 
0 
0 
0 
16436 ABZBLD(OO10A) Type=1.0 
1EC6B SBZTAB(00734) Type=1.2 
044B5 SBZEXP(004E0) Type=0.0 
O44C4 SBZEXP(OO4EF) Type=0.0 
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SCZDAT (OOCE6E ) 
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ABZASN(000D3) 
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IPXSYS(00814) 
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SCXZTAB(00010) 
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SCXDAT (00941) 
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SBZKCN 
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SBZKCM 
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SBZKCN 
SBZKCN 
SBZKCN 
SBxKCA 
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SBZKCN 
SBZKCN 
SBZKCM 
SBZKCN 
SBZKCN 
SBZKCN 
SBZKCN 
SBZKCN 
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SBZKCN 
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SBZKCN 
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0219F 
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18744 


18730 
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14FF2 
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SBZCMD(OO1AD) Type=1.1 
JPZSYS(O00E32) Type=1.1 


SBZKEY(0037D) Type=0.0 
SBZKEY(00382) Type=0.0 
SBZKEY (00387) Type=0.0 
MNZCD: (007F9) Type=0.0 


SG%SYS(00159) Type=0.0 


SGZSYS(0014A) Type=0.0 
SBZKEY(0038C) Type=0.0 
MNZCD: (007F4) Type=0.0 
SBZDSP(0090A) Type=0.0 
SBZDSP(00914) Type=0.0 


SBZDSP(00905) Type=0.0 
HNZED: (O01E6) Type=0.0 
MNZCD: (OO7FE) Type=0.0 
SBXDSP(O090F) Type=0.0 


SGZSYS(00154) Type=0.0 
SGZSYS(0014F) Type=0.0 


MBZUSG(OO84F ) Type=1.0 


SBZ10: (OO96F) Type=0.0 


ABZCLCE (00257) Type=0.0 
SBZI10: (00988) Type=0.0 


SBZ10: (00974) Type=0.0 
MNZED: (00370) Type=0.0 
SBZI0:(0097E) Type=0.0 


SBZ10: (0098D) Type=0.0 
MNZED: (00372) Type=0.0 
MNZED: (0038B) Type=0.0 
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ABZCLCE(0037C) Type=0. 
SBZ10: (00992) Type=0. 
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Nibs=5 
Nibs=2 


Nibs=2 


Dist=06920 


Dist=00E05 


kc TOP 

kcUP 

kcUSER 
kcUSEX 
kcVIEW 
keyfnd 
keyscn 


1ACCSb 
1Ap 
1BPOSp 
1COPYb 
1CPOSb 
1D0p 
1D1p 
1DATEh 
1DBEGb 
IDEVC 
IDEVCb 
IDLENb 
1Bp 
IEOL 
1FBEGb 
LF BF#b 
1FIB 


IFILRb 
LFILSV 


LF LAGh 
LF LENh 
1FNAN+ 
LFNANS 
JFNAMNH 
1FSIZb 
lFTYPb 
1FTYPh 
1LXADR 


LLXENT 


ILXFAD 
ILXID 

ILXTKR 
INSGp 

LPOL#p 
IPOLtp 
1POLS¥ 
1POLra 
1PROTb 
LRECHb 
IRECLb 
IRLENb 
ARTNip 
IRINCp 
LRTNSp: 
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00014 
00012 
00003 
0000C 
00008 
15191 
00155 


00001 
00010 
00005 
00001 
00006 
00005 
00005 
00006 
00008 
00005 
00001 
00006 
00010 
00002 
00006 
00003 
0003F 
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00032 


00002 
00005 
00004 
00010 
00010 
00006 
00004 
00004 
00005 
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00005 
00002 
00004 
00004 
00005 
00005 
0003E 
00006 
00001 
00004 
00004 
00005 
00005 
00005 
00005 


SBZKCN 
SBZKCM 
SBXZKCM 
SBZKCN 
SB“KCM 
HNZED: 
SBZDVR 


TIZEQU 
TIZEQU 
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TIZEQU 
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SBZ10: (00983) 
SBZ10: (00979) 
MNZED: (00377) 
MNZED: (00386) 
NNZED: (00381 ) 
SGZKEY (00048 ) 
SBZDVR(001D3) 


FHATFN(0075F ) 


FHZTFM(OO6FB) 


SCZFIL(00B54 ) 
SCZFIL(OOB95 ) 
SCZFIL(OOBD6 ) 
SCZFIL(01082) 
SCZFIL(O11AC ) 
SCZFIL(012AD) 


TIZUTL (00402 ) 
TIZUTL(004B6) 


SCZFIL(007A2 ) 


TIZERD (00649) 
TIZERD (00679) 
TIZERD (00641 ) 
MNZCNF (O0E17) 


JPZPOL(00018) 
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Type=0.0 
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Nibs=2 
Nibs=2 
Nibs=2 
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Nibs=2 
Nibs=4 Dist=0595B 
Nibs=3 Dist=0007E 
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Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
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Nibs=2 


Nibs=5 
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Nibs=1 Offset= -1 
Nibs=1 Offset= -1 
Nibs=1 Of fset= -4 
Nibs=1 


Nibs=2 Offset= 6 
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ISHLNb 
1SPOTB 
ISPOn 

ISPBPn2 
1TEXTp 
LTINEh 
Isleep 


nakebf 
nferrs 
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o4isod 
oACCSb 
oAp 

oBNsod 
oBPOSp 
oBSsod 
oC OPYb 
of POSb 
oDOp 

oDip 

oDATEh 
oDRsod 
oDBEGh 
oDEVCb 
oDLENb 
oDp 

oF BEGb 
oF BF#b 
oF TL#b 
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oF LSTr 


oF NAMh 
oF SIZb 
oF T-FL 
oF TYPb 
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oIMPLh 
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00002 
0O04E 
00001 
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060004 
00004 
00190 


0015C 
16B70 


0247D 


118F 3 
02804 


00005 
00008 
0003E 
00011 
00005 
00011 
0000A 
00028 
00019 
OO01E 
0001RA 
00000 
00015 
0000C 
0002E 
0002E 
0000D 
00002 


00014 
00020 


00031 


000393 
00010 
00005 
00010 
00025 


06005 
00005 


TIZEQU 
TIXEQU 
TIZXEQU 
TIZEQU 
TIZEQU 
TIZEQU 
SBZDVR 


SBZDVR 
FHZTFA 


SBZDSP 


SCZFIL 
JPZPR1 
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TIZEQU 
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TIZEQU 
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00638 
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1FFAD 
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1FF31 
11237 


171A5 


O85ER 
11004 
06517 
O6F 21 
07020 
O83AC 
O85BF 
11784 
11085 
T1EFO 
1C7BD 
OA224 
17A78 
1A9A3 


16F40 
11CRE 
11FF3 
O8CE1 
1FF69 
TFFEA 


SB%I0: (0ODA1) Type=1.0 


SBZDVR(O04E5) Type=1.1 
SBZDVR(00638) Type=1.1 
SBZKEY(00314) Type=1.1 
SBZ10:(001C6) Type=1.0 
JPZPR2(0027D) Type=1.1 


SCZTAB(O007F) Type=0.0 


SCZTAB(00093) Type=0.0 
SCZTAB(O001B) Type=0.0 
SCZDAT(00285) Type=0.0 


SC%ZTAB(00003) Type=0.0 
SCZFIL(OO1E4) Type=0.0 


FHATFIN(OO6F7) Type=0.0 


JPZEXC(O080E) Type=0.0 
SCZFIL(OOD81) Type=0.0 
SGZS¥S(00177) Type=0.0 
SGZSYS(00B81) Type=0.0 
JPZSYS(OOLF1) Type=0.0 
JPZEXC (00500) Type=0.0 
JPZEXC(O07E3) Type=0.0 
SCZFIL(00731) Type=0.0 
SCZFIL(O0C32) Type=0.0 
SCAFIL(OOE9D) Type=0.0 
SGZPOK(OO2CF) Type=0.0 
SGZFXQ(OOGAE) Type=0.0 
MNZFRP(00045) Type=0.0 
SCZREN(00427) Type=0.0 


FHATFM(00492) Type=0.0 
SCZFIL(OOC5B) Type=0.0 
SCZFIL(OOFAO) Type=0.0 
SGZEKC (00699) Type=0.0 
SCZTAB(O003B) Type=0.0 
SCZTRB(OO0B3) Type=0.0 


Nibs=4 Dist=01FED 


Nibs=4 Dist=01F98 
Nibs=4 Dist=01E45 
Nibs=4 Dist=01472 
Nibs=4 Dist=0638F 
Nibs=3 Dist=0020F 


Nibs=2 


Nibs=2 
Nibs=2 
Nibs=2 


Nibs=2 
Nibs=2 


Nibs=1 Offset= 


Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
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Nibs=2 Offset= 
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Nibs=2 
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oNAINT 
oNSGPT 
oPOL#p 
oPROTb 
oRECHb 
oRECLb 
oRLENb 
oRTNip 
oRTN2p 
oRTN3p 
oSHLNb 
oSPDTB 
oSPDn2 
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oSUBLn = 


oTINEh 
olXsod 


out2tc = 


outbyt 


pBSCen 
pBSCex 
pCALRS 
pCALSV 
pCAT 
pcAaT$ 
pCLDST 
pCHPLx 
pCONFG 
pCOPYx 
pCRORB 
pCREAT 
pCRT=8 
pCURSR 
pDATLN 
pDEVEp 
pDIDST 
pDSWKY 
pDSUNK 
pEDIT 
pENTER 
pEQFIL 
pERROR 
pExcpt 
pFRSCH 
pFILDC 
pFILXQ 
pF INDF 


pFNIN 
pFNOUT 
pF PROT 
pF SPE p 
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0005D TIZEQU 
00009 TIZEQU 
OOOOR TIZEQU 
00009 TIZEQU 
00020 TIZEQU 
60024 TIZEQU 
00034 TIZEQU 
OOOOR TIZEQU 
OOOOF TIZEQU 
00014 TIZEQU 
00013 TIZEQU 
00111 TIZEQU 
OOOOE TIZEQU 
00025 TIZEQU 
00016 
00005 


TIZEQU 
TIZEQU 


0581A SGZLDC 


O5(C6 SBXEXD 


OOOF5 
OOOF 6 
00036 
00037 
00006 
00007 
OOOF F 
00038 
OOOFB 
00008 
00033 
00009 
00023 
00029 
G002R 
00001 
OO00R 
OOOFD 
OOOFE 
00028 
00012 
00025 
OOOF 2 
OOOF§ 
0002C 
00002 
00003 
0001? 
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TIZEQU 
TIZEQU 
TIXEQU 
TIZEQU 
TIZEQU 
TIZEQU 
TIZEQU 
TIZEQU 
TIZEQU 
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TIZEQU 
TIZEQU 
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TIZEQU 
TIZEQU 
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10F 73 
099E5 


17100 


04A71 
O4AA0 
050B9 
TR2FE 
1A73A 


1FF81 
TFF99 
O5A9D 
OSF5A 
056E1 
O56E9 
O56F1 
O56FC 
0590A 


07444 
0761? 
19701 
19086 
O65CF 
O66F2 
002FB 
OBC60 
10FOR 
08278 
1D4F? 
1174B 
116DE 
10076 
T1E6F 
03D5B 
11E0B 
0064A 
00620 
OASCO 


13FEE 
0O93F5 
O752F 
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05709 
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NNZCNF (OODE?7) 
TIZERD(00652) 


FHATFN(00712) 


AB%LEX(0018B) 
ABZ LEX(001BA) 
$G%LDC(0015B) 
SCZSUB(O158C ) 
SCZREN(001 BE ) 


SCZTAB(0005 3) 
SCZTAB(0006B ) 
SBZEXD (001 7B) 
SBZEXD(00638) 
SGZLDC (00783) 
SG% LDC (00788) 
SGZ LDL (00793) 
SGZ LDC (0079E ) 
SGZLDC(OO9AC ) 


JP%SYS (00515) 
JPZSYS(O06E8) 
SCZSUB(0098F } 
SC%SUB(00314 ) 
SG%SYS(0022F ) 
SGZSYS(00352) 
SBZDVR(O02FB) 
ABZFCN(00627) 
NNZCNF (00078) 
IPZEXC(0049C ) 
MNZCD: (OOC7E) 
SC“ZFIL(OO6F8) 
SCZFIL(O068B) 
JP“MEN(00117) 
SCUFIL(OOEIC) 
JP%PR3(00985 ) 
SC“ZFIL(OODB8) 
SBZDVR(0064A) 
SBZDVR(00620) 
SGZFKO(OOR4A) 


SC ZDAT (06739) 
TIZERD(00062 ) 
JPZSYS(00600 ) 
SC“FIL(00097) 
SG“ LDC (0086B) 
SGZFKQ(00148) 
SCZFIL(OOAL9) 
SCUFIL(OOF57) 
SC%SUB(01068 } 
SC ZSUB(0114E) 
SGZFXQ(OO8BRA) 
JPZPRI(0034D) 
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Type=1. 
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Type=1. 
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Type=0. 
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Type=G, 
Type=0. 
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Type=0. 
Type=0. 
Type=0. 
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Nibs=2 
Nibs=1 


Nibs=1 


Nibs=3 
Nibs=1 
Nibs=1 
Nibs=5 
Nibs=2 


Nibs=2 
Nibs=2 
Nibs=3 
Nibs=3 
Nibs=3 
Nibs=3 
Nibs=3 
Nibs=3 
Nibs=3 


Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 


Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=e 


Offset= -1 


Offset= ={ 


Of fset= ~| 


Dist=00283 
Dist=00740 
Dist=005E5 
Dist=005D0 
Dist=00505 
Dist=005CA 
Dist=003BC 


pFSPCx 
pFTYPE 
pINCHR 
pIhxch 
pIMxaT 
pimbck 
piticpi 
pIficpu 
pkYDF 
pLIST 
pLIST2 
phen 
pheRGe 
phnlP 
pNRGE2 
pPARSE 
pPOLL2 
pPOLL3 
pPRGPR 
pPRIN# 
pPRTCL 
pPRTIS 
pPURGE 


pPWROF 
pRCRD 
pROCBF 


pRONBF 


pREAD# 
pREN 
pRNANE 
pRINTp 
pRUNFt 
pRUNnB 
pSREC# 
pSREQ 
pTEST 
pTinre 
pTRANS 
pTRFNx 
pVER$ 
pWARN 
puCRD 
pWCRD8 
pWRCBF 


puTKY 

pZERPG 
polld+ 
popbuf 
poprith 


r<rst2 
r<rstk 
reconf 
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00005 TIZEQU 
0002D TIZEQU 
QOO1E TIZEQU 
QOO1F TIZEQU 
0001D TIZEQU 
00020 TIZEQU 
00021 TIZEQU 
00022 TIXEQU 
00018 TIXEQU 
O00OC TIZXEQU 
OOO2E TIZEQU 
OOOF1 TIZEQU 
0000D TIZEQU 
OOOFA TIZEQU 
OOO2F TIZEQU 
OOOF4 TIZEQU 
OA2F8 SGZAF XQ 
06080 SGZSYS 
00032 TIXEQU 
00026 TIZEQU 
QOOOE TIZEQU 
OOOOF TIZEQU 
00010 TIZEQU 


OOOF C 
000 34 
00018 


TIXE QU 
TIZEQU 
TIZEQU 


00019 TIZEQU 


00027 TIZEQU 
00039 TIZXEQU 
00011 TIZEQU 
0003A TIXEQU 
00030 TIZEQU 
00031 TIZXEQU 
00028 TIZEQU 
OOOFS TIZEQU 
OOOFO TIZEQU 
0003B TIZEQU 
OOOEF TIZEQU 
0003C TIZEQU 
00000 TIZEQU 
OOOF3 TIZEQU 
00035 TIZEQU 
00024 TIZEQU 
OOO1R TIZXEQU 


0001C TIXEQU 
OOOF? TIZEQU 
03D8D JPZPR3 
00163 SBZDVR 
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SBZDVR 
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O9F51 
11071 
1B57F 
1BB93 
iBADA 
1B984 
1B8BD 
1BDO5 
14ERA 
06A51 
O6RSF 
09471 
06070 
00317 
06C7E 
0263A 
06503 


OR10E 
142AB 
185CC 
1853D 
OROR3 
1737R 
005A1 
1D4C9 
1141F 
13B63 
13A55 
13AA4 
13ED5 
187A 
OAZF6 
09014 
07091 
O71E5 
11226 
00760 


080E1 


17046 
OR994 
093(B 
1(B19 
1C9A7 
113FF 
12230 
14E1E 
07D8D 
0$7C5 


17D70 


18CC7 
TADBC 


O65F 1 
06645 
08551 


SGZF XQ(003DB) 
SCZFIL(OO01E) 
MBZING(001 39) 
MBZUSG(OOOEF ) 
MBZUSG (00036) 
NBZING(0053E ) 
MBZING(00477) 
MBZUSG(00261 ) 
NNZED: (0022A) 
SGZSYS (006B1) 
SGXSYS(OO6BF ) 
TIZERD(OOODE ) 
SGZSYS(008D0) 
SBZDVR (00317) 
SGXSYS(O08DE ) 
JPZPR1(0009A) 
SGZSY$ (00233) 


SGLF XQ(00598) 
SCZDAT(O09F 6) 
SBZIO: (00810) 
SBZ10: (007E1) 
SGZFKQ(0052D) 
FHZTFA(OO8CC) 
SBZDVR(005A1 ) 
MNZCD: (00050) 
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033F2 JPZPR3(0001C) Type=0.0 
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0000 6F 90 
0007 B9OF 


0047 %FO 
O5390F00 
TO8DEF OF 
T5DEF 881 


F RFOQOO6 
CEOOOOF 3 
E06202FD 
F 864BR6D 


F20CC2DE 
14D BFEF 


5B200000 0EB20000 
13B47FFD 223EE2BE 


3Z2ADOFDS 83000000 
25C4FD7D 3514CE72 
R6FFD544 OO3CED85 
4A455354 54031464 


5249554R 07341445 
44501934 (4149404 
£4452514 35457173 
45019449 43505420 


09542525 04421295 
4554E444 62564948 
2B 744494 35054202 
F2DB4549 544F475E 


4584637D 45414647 
37E45414 25C35E45 
45404505 F4051450 
54805759 44445346 


4E455D42 45425A49 
54345525 54F4D355 
45450354 51425455 
52514058 5F55E405 


54222975 94444584 
0660CB05 514B13E1 
E35E35E3 50E09000 
BOFO0008 CBOFOO0O 


OFQ00098 BOF 00006 
FOOOOR4B OF 000014 
0000BOBO FOO0020B 
00021BOF OOO006DAD 


OO3DROFO OOOACAROF 
O49ROFOO OOBBROFO 
O8ROFOOO 07 7ROFOO 
1ROFOOOO DOROF OOO 


AQCFOOOOB 6ROFOOOO 
OFOOOOT? ADFOOOO3 
FOQOODES OF QOQO4E 
QOOOERIO FOQOO8OI 


OOOBBSOF 00002690 
OOC2390FO 0003290F 
OCC7DEFG 1281ECEF 
6C4DEF4D O3024FF7 


DODEOOOO 2A1DEOEF 
CCEOOOOS 4(CEO341 
CEOOR171 ECEOES3A 
EF8B2594 DEFBR181 


FROODD2R EFA308E2 
S44D8DCE FOOOSBDL 


00902075 EFF3E238 GEFDEE2O 20BED7F2 360EEFOO 
DB23DDFO FDA33176 OFDD43C3 1EEF6533 C1AEDS63 


B934D20F FB74ADDO FD6A3473 CEDD212A SAFFSB3D 
ES511EEF DE3B24CF D704C520 FF41434A 8FD72467 
40000005 14343510 91444442 54220814 44A41424 
50914E47 4€454605 14356470 81435359 474643805 


42B09348 41494E41 17348414 25355445 42210348 
31934041 43535419 34C4F434 8451B34C 43545144 
4F4E4458 1734F425 25918342 55414455 48104454 
574425F4 05617444 58442F1D 54€444(4 94645402 


48514344 53295485 05041342 F548505F 4645444 
500764C4 14747296 4C4F4F42 5827644 F4759276 
97444943 505B2584 45440279 4E445F4E 2DB45495 
4033434 135€4744 5237C4F4 34B4339C 4F474051 


35D454D4 83904542 57454930 D494E425 5414C4A3 
47403705 342544£3 9055454B 442F3905 (4943545 
5F43524D 05259465 14455434 DOS25F44 55434454 
4F2514E4 44F40494 AS745255 44484825 54641404 


25543554 45B4925F 455£444C 45353494 £0735445 
44544144 55415035 54454594 04542573 584F4753 
50555535 45440094 5F44514C 465F4525 14643564 
25F44554 3495F55E 43554345 52554AS7 65142535 


53B7594E 444F475E 47A55425 FAC11FFO OOOFFOOO 
E35202E3 56625825 D2713F33 £63E354B 31346A4C 
OO3BE3FC C1IF856EO OOO2?3COF OOOD3IEBO FOOOOADB 
FBBOFOOO O6BBOFOO OODABOFO OOO4RBOF 00008980 


CBOFOOOO DBBOFOOO O4BBOFOO OOBRBOFO OO02ABOF 
BOFOOOO8 3BOFO000 F2BOFOOO 062BOFOO 0001 BOFO 
OFOOOOSF ROFQOO0O FROFOOOO D2BOFOOO 042B0F OO 
EQQOOOOB OFOO007F ROFQOOOE EROFOOOO SEROF 000 


00001CRO FOOOO8BA OFOOOOFR AOFOOOOS 6COFOO0O 
OOODAROF O0004ARO FOOOOBSA 0F000029 ROFO0009 
QOEBROFO OOOSBAOF 000013AO FOOOO82A OFOOOOF1 
O40AOFOO OCOBFIOFO OOOF8AOF 000068R0 FOO0OD?7A 


Z26ROFOOO O95AOFOO OOOSROFO OOO74ROF OOODE 3AD 
ZAOFOOOO ATAOFOOO O11TAOFOO OO8OROFO OOOFF SOF 
GOFOOOOB DIOFOOOO 2D90FOOO O9CIOFOO OOOCS9OFO 
OFOOOOFF 80FOQ006 F80FO0O0 DE8OFOOO O4E80F00 


FOOOO9SS OF 000005 390FO000? 490F0000 £390F 000 
OF4283FF EFCDICEE FEFOE200 ECEFG14D 87DEFSC3 
47160ECE FS807DEF EF662BF2 CFFEO316 7DEFD?711 
COOGC4FF B73D16DE FOOOO32D EFDD4891 4FFOOOOL 


360FCEFO OOSICCEO D2353CCE OOOOLITC EO00053C 
BE6DEOOO OBSCITEOO 00000000 OOOCSICE 000094DC 
FDCEQOOO C970FOOO 03970F05 C2894DEF 1B2F 84DE 
A4DEF3C40 214FFF54 B63DEF3B O673DEFF R4183DEF 


DEFD3244 DFEFAFCR A?7FEFI34 FR7FEFD8 34E7F EFF 
EFG3316E BEFD9OOC 2DEFA253 12CFF294 EDSSFFOO 


1EB80 
TEBCO 


1ECOO 
1EC40 
1EC8O 
1ECCO 


1ED00 
tED4O 
1ED80 
1EDCO 


1EEOO 
1EE40 
TEE8O 
TEECO 


1EFOO 
1EF40 
TEF8O 
1EFCO 


1FOOO 
1F040 
1F080 
1FOCO 


1F100 
1F 140 
1F180 
1F1CO 


1F 200 
1F 240 
1F280 
1F eco 


1F 300 
1F 340 
1F 380 
1F 3C0 


1F 400 
1F440 
1F480 
1F4CO 


1F 500 
1F540 
1F 580 
1F5CO 


1F 600 
1F 640 
1F 680 
1F6CO 


1F 700 
1F 740 


' ‘ ' ' 


OB76DEF4 BISBCFEF 582593DE FOOOORGO 
TEC4FF56 SACCSFFC F4ABC4FF C41FBC4F 


CS9EDEC2 4F7FEDFO 1D4D7E75 51219BE7 
FBED713B E6BEDE11 ACSCED79 2F 8FOFDE 
9E32236C B9E98314 A2SFDCBO 88D9E8EC 
ED254D3F BEDF2124 FBEDA937 329FD174 


05020000 OO8E065B 4FD4B3F5 B4FD4103 
7843598E 0B613F88 ED704882 AED3E1B8 
432B09ED F335029E 02154609 £D391 BAC 
278CSEOB SO4ACFED O505709E OF E45 700 


B9B7E700 ODO39EDO OOBC 30FO 0002C OF 
83AEOC74 CDBSEOGA 47FBSEOD 10EEBSEO 
BSEOD151 CB9EO824 EDO8ED90 2FAB9E85 
4C48F514 £444B871 43594649 97144514 


4058E734 14C4C49F 73414254 40053414 
425424A7 34F40595 5B534F43 57974414 
454649BD 44547425 54543530 54454 74F 
54354525 F495EB54 494D4(C7 44943505 


54043554 5F554E44 4AD55405 35177542 
5485F425 C8554850 54976414 34458A96 
B6974F43 55524CD7 74F445F4 DD374F40 
4£405554 S9CD94E4 45547454 25AC534E 


5C4EAR7B4 54954237 78454953 SFCSB454 
B4SFB7C4 943545BB 30464199 C4F47413 
04148525 5414C4C6 5D41485D A7D45414 
B7E45485 454CS5E4F 44518564 55D43A5F 


25085F46 S64FA90S 14553554 70305949 
£4450090 55525745 4BED2514 44941464 
4(B52554 D46ED255 43545F42 554ED525 
5E4440A5 2555E4EF 73544546 56993564 


594E4695 35152529 73545144 5£073545 
52410545 14247F54 51464897 45845454 
40454B73 45F43F94 52514345 4AE555E4 
594£474D F56514C4 5A775149 4458D1FF 


C6F677C6 1207F467 562766C6 FE77C013 
14E4D3E3 FCO15040 3E5E6567 6CC06020 
6CC19OAE 45676E5E 4F6E6D29 6E647C61 
76C21005 C4F47482 03920610 O704F474 


ODZE3FCD OO1E3F1A 20300011 113E5E3F 
64602F40 70814185 SEGF6274 65627564 
70224164 74756279 7CF171BB 36973747 
66963696 56667470 2D456D6F 62797C01 


JAFGE666 96765727 164796F6 ES6CDOBIE 
51015255 636F 6274 GESFCIIE 13354706 
O26E4F60 24416471 6CD01216 4E4E8ECB 
2A051627 16065647 562702D4 69637061 


26645706 56279636 E4FC7172 EFE3D416 
31924348 6E6CO3ZE 8EC81AZ2 64F425EB 


FF5O58AE BEF50371 
FE421AC4 FFOOOSFE 


FDOGDCAF 20000828 
82D588ED 094111AF 
JO3F8FDF B1i2F68E7 
433CED17 20000001 


51FED201 E710FDE6 
C8EDOF13 SC8EDDE3 
9EOOD42A C9EOC72E 
FD7A3462 BEDC70E3 


00009830 FO8E4000 
660B4F9F 00906264 
1424352A 71434F43 
£4B97145 545F4EE7 


45CE7345 494(4279 
45146094 41445544 
69445404 14956DB4 
5C544946 56854465 


52504577 542525£4 
45445348 48036464 
039464FD 99404147 
44509594 £4852B39 


S55E5C45 4£49A5C4 
03395C4F 47409304 
£4095D49 4£4CA5D4 
46464163 F4E40EBF 


7705F425 45109052 
35405251 44466725 
BAISF7B2 55445552 
C41474BF 53574541 


54056F 73 545F4059 
4F 945940 45442599 
64089550 52534428 
54252502 C4500008 


0A548505 F4E454E4 


.3E503C00 70203F 20 


AO735152 582E6567 
82E65676 I2CEOEOE 


CDO21E3F 1£503CC1 
6€415169 46656871 
56060254 2727F 627 
916D4F64 65706560 


CE11464C 81C18355 
47E8EC81 F1844164 
O22085E1 20313248 
6473686C 51525354 


E697E4FO 37(5182E 
E3£45485 45081823 


DFEFIF23 FCFEFDS2 
DEFOOOFE 6DEF8A0C 


FO6AZ14E 7EDSD34C 
80004339A FO3D1DD9 
FI2OFS9F DC2264FB 
70000000 28300000 


S1A98EC3 3SE100FD 
R4C8ED20 2804RED8 
1D9ED4E3 OSC9EDES 
67EDF437 C94FD540 


G008B47A 30FO061B 
FDC34EDS 4FDOOOAC 
5A951444 445D0514C 
24143554 96724545 


34640414 74AF 7348 
28774414 45547754 
45404544 5547BD44 
AS1B7544 49445887 


67954252 5F4253E7 
00564F42 53036405 
454FF594 £4640799 
405A6394 35765946 


54450CBC 494£4055 
256B7D41 494£420D 
F444477E 4140454) 
4054594F 4E4DE3F4 


5544465F 99052594 
§414447C 7255414C 
5E4BD525 D444D652 
AS3584F4 25458053 


07354525 426A5355 
45940454 25467459 
A7553554 262£9653 
110855E6 46562766 


45820392 €1140345 
3(01804F 2A55627F 
692CFOBO ECE2142? 
SFOF ESF CEOFOE3F 


31A35967 6£616C65 
63647CC1 61AC4F67 
CD281A94 £6375766 
2E6F 1564 6C12A1BC 


72637362 79607470 
71602459 7075641 
575F 4254 4E8ECB24 
72736E67 6E5FC716 


FE264567 7E4FO37C 
£4548545 EBE264F4 








1F 780 - 
{F700 - 


1F 800 - 
1F84O - 
1F 880 - 
1F8CO - 


1F9O0 - 
1F940 - 
1F 980 - 
1F9CO - 


1FROO - 
1FAAO - 
1FA8O - 
1FACO - 


1FBOO - 
TFB40 - 
1FB80 - 
1FBCO - 


1FCOO - 
VFC40 - 
1FC80 - 
TFCCO - 


1FDOO - 
1FD40 - 
1FD80 - 
tFDCO - 


1FEOO - 
TFE4O - 
TFE8O - 
1FECO - 


1FFOO - 
1FF4O - 
1FF8O - 
IFFCO - 


/SLOAD: 


eSCA1C22 2545E4EB £474F435 
74C31F24 94041474 5S4ESFCFO 


2E9EC513 3EDE5021 42727169 
654E6460 2F66602E AECBO73E 
41A3ECEE AE337075 6360 71B3 
BOD3EREE 8FC31E3E AE402F40 


63656E8E CC1144C4 96665602 
48E4F647 02458696 3702EAEC 
E6F677E6 02341627 46081648 
EFE335C6 F677CA19 497527F6 


53597E64 71687CBO C4092E7E 
34861627 37CBOFSE 6EESEC11 
96373796 £6760205 1627D6CF 
FOSSECE2 B45697C7 1656F407 


18584564 04027525 E402C4F2 
2752747E OFCFOCS2 656697E0 
355E6072 7EOFCFOO 62341647? 
27B6E7FO 92C616E7 94C6C656 


E4F 64702 64F657E6 46(419E6 
Feo2CeiC E794E667 16069646 
30214C69 67666024 786566E6 
F294E666 C214F502 94E60757 


F32F6660 2F2C618F 7020527F 
14354464 7484A4B4 (4034353 
80900221 31D003E2 C2B2F DAF 
8E8A6979 89498BCE DBBES8CBB 


71011777 56274797 5796F 607 
366726E6 D6B5D591 12223204 
58098072 08209203 807801FO 
3O2FOCI2 D3ZE32F3 20401412 


10511512 51351451 55165175 
OETFOEOO 11124143 59434441 
05045548 54502210 001D0E44 
1112494E 40202440 2E502E60 


55240310 
O3ECE245 


70314 3ED 
CEEIFC?74 
ERE60254 
756E6C61 


EFE3C4F6 
C144A655 
25F 27502 
£67602E4 


C3104415 
O5ECE 354 
O35ECE26 
562716E6 


OA3F1CBO 
FC11D532 
EOFC9116 
7616C602 


JAF 6E647 
02C11DEE 
02546444 
47C015F4 


64756364 
63A2A585 
5F 3C3F4C 
7BEESBF? 


72B7D7E5 
610000A0 
280E2 348 
41341441 


1851951f 
2£512E61 
05004 946 
2E 702E00 


End of Saturn Loader Execution 


2ECE494D 41474540 
1424CF01 32355726 


£4963747 9636CF05 
83E1F602 64169606 
87963747 37C51C3E 
F3ECEERE 40245970 


£676C812 44752796 
62796669 70264169 
542727F6 27011 74E 
16D656C5 1A4EREOO 


57F64756 E7ECFIE4 
87072701 115ECE30 
51627CA1 45905275 
46E7EC91 757F4075 


OSE6FE7F C31ASE6F 
$561646E OFC11E53 
34527B60 2F3344F6 
(817E802 54870756 


568747CE ORE36496 
CE335471 647CEOFE 
C4E4C811 F8452716 
02F46766 COCEO6F3 


7CFF1575 54254595 
346524E4 04829200 
9B5E5D6B F9D9IEI29 
99A9B99 81000011 


16374666 7686R6B6 
5060A141 51910003 
00331332 33333433 
54164174 1841941A 


51850680 05008011 
2E712E00 05084549 
41302110 00220503 
15004548 50202480 


S1E2ECE4 55359464 
E8EC1123 36516270 


SEDE202F 40707163 
5646(809 3EREE8EC 
6E514363 6563737C 
75605104 54456679 


4756£8F1 5646CB13 
oC6CF154 BBSSESBS 
FE364163 74701184 
2EFE2249 67602184 


BB548736 56373702 
§1627D6C F1i25BBD4 
63656465 6£63656C 
6271647F 627E7ECF 


40234162 746CFOBS 
0527F647 EOFCIIFS 
£656C615 £4028247 
36475646 CA18E902 


C656C01B £40277F2 
345F 6F60 2CB20FAA 
£63766F6 27D6CC03 
0567C6C6 C317F002 


5594F405 738393F 2 
132333D2 EOOQQOOFO 
SFCDBDDD SCDCS5CCC 
70002010 40F 73080 


C6B34252 62A3R78? 
E3F 31202 20322420 
§3363373 3833933A 
41841041 D41E41F4 


00044144 5140220F 
50202200 2ED02E44 
54414451 410D0E00 
ZE9OZERO 2EBOCEFF 
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She Ua ROR See SRO Ree ene eee 
CSCwWWO~ANAH SW — WOON DH OT & WPA — WONKA MSwWM S$ CWAONHDUN Dwr 


& Sb b 
ta A 


NQahH BDA DS 
COWOMAnnuS 


anna 
mewn 


Main Driver <831216.1559> Fri Dec ©, 1983 4:11 an 
Page 1 
A SSS BBBB & DDDD V V_ RRRR 
* $ S$ B B && DDBV VR R 
* S B B && DDBVY VR R 
* SSS. BBBB é 0D BD ¥V_— RRRR 
- SB 8 &&& DD VV RR 
* S$ S$ B 8B & & DOD V RR 
; SSS. BBBB 8& & DDDD V R OR 
TITLE Main Driver <831216.1559> 
ABS #0 
PAS2+ EQU 2 Set to include pass2 deletions 


RDSYNB TIZEQU: : MS 


RDSYMB SBZRAN: : NS 
JO IOI IOUT IIT TO LIT IID LIT TTT AIA 


FOI TIT TT TOT TT TTT TIT IK 


kk 
** Nane:(S) COLDST - Cold starts machine 

kK 

kk Category: SYSTEN 

dk 

** Purpose: 

ae Initializes all systen RAN, I0 Buffers, Pointers etc. 
ak 

** Entry: 

x None 

aK 

RY ERI 

= Exits to MAINLP 

ik 

** Calls: CONF, INITCL, OSPRST,WIPOUT, AUTCLR, BF2DSP, EDITWF , 
ae I/OALL, FPOLL 

xk 

OR USBS cee, 

xX Exclusive: Absolutely everything in the entire machine 
ax except independent RAMs 

xk 

+* NOTE: 

a This routine should be used with caution since it nay 
An arinoy the user. 

kk 

xX Algorithn: 

K 

x Enables interrupt systen 

= Initialize CMOS test word 

kk Initialize systen RAM to zeroes 

xx Reset display 

ae Turn display on 

ak Set display row drivers 

ae Set display contrast nibble 

a Initialize DELAY paraneters 

am Perforn ColdStart configure 

se Create Staterent Buffer 

kk Initialize clock systen 

= Check for low battery 

kk 


Initialize flags and traps 
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56 

57 

58 

53 

60 

61 

62 

63 

64 

65 

66 

67 

68 

63 

70 

71 

72 

73 

74 

75 

76 

7? 00000 20 

78 00002 34EE 
100 

79 00009 06 

80 O000B OF 

81 00000 


xk 
xk 
xx 
xx 
xk 
xx 
xx 
ak 
xx 
ak 
ak 
kk 
kk 
kk 
x 


xx 
xx 
xx 
wk 
xk 


=C 


=C 


Main Driver <831216.1559> Fri Dec 30, 1983 4:11 an 
Page 2 


Zero RAN between AYMNENS and RANEND 
Clear AUTO rode 

Clear progran running flag 

Clear don’t continue flag 
Initialize IS-TBL table 

Initialize PRINT and DISP position and width 
Initialize ENDLINE string 

Put Coldstart message in display 
Create Workfile 

Create file inforriation buffer 
Initialize randon nunber seed 
Perforn coldstart fast poll 


History: 


Date Progranner Modification 


07/14/82 B.S. Updated docunentation 


JOO IOI OI IIT TTI TI OT 
JOO IOI OTIC TI IO III SOTO 


OLDST P= 0 

ic(5) =CLOST1 

RSTK=C 

RTI Enable interrupts, goto CLDST1 
KSUM1 BSS 2 
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Ver. 3.39/Rev. 2X6 Interrupt Routine Page 3 
82 STITLE Interrupt Routine 
83 JOOS COC STITT TS II IIIS IIS III SAS IIA 
84 SOIR IOI IIIT OO 
85 xk 
86 ** Nane: INTRPT - Interrupt Handler 
87 ** Narie:(S) INTR5O - Reentry point for ext. interrupt handler 
88 a 
89 ** Category:  GENUTL 
90 xk 
91 ** Purpose: 
92 ak INTRPT: 
93 ae Processes interrupts whenever they happen 
94 ah INTRSO: 
95 ak Reentry point for external interrupt handlers 
96 ak Restores CPU registers for interrupt RAN then 
97 aR returns fron interrupt. 
98 ** Entry: 
99 aR None 
100 aK 
101 aK Exit: 
102 . R4(R)=D0 at tine of call. No other registers changed. 
103 * 
104 ** Calls: KEYSCN 
105 aK 
106 KK Uses.....0. 
107 a Exclusive: R4(A), RAMCINTR4, INTA, INTB, INTM) 
108 
109 ** Stk lvls: 0 
110 aR 
111 ** Detail: 
112 a Uses 56 nibbles of reserved RAN to save state of 
113 ak Nachine. Assunes that the subroutine stack has at 
114 ae least one (out of 8) levels available to save the 
115 aR return address. 
116 ae This routine is not perriitted to alter any hardware 
11? a status bits or the D register since they are not 
118 ex saved or restored. 
119 ax R4(A) saves C register 
120 aR INTR4 saves R4(15-5) and DO 
121 aK INTA saves A register 
122 x INTB saves B register 
123 ae INTN saves Mode,P, Carry, RSTK[N+1] 
124 an 
125 ** Algorithn: 
126 an Save C(W) ain R4 
12? kk Save R4(5-15) and DO in INTR4 
128 xx Save A(W) in INTA 
129 ax Save B(W) in INTB 
130 ae Save 1 stack level, Pointer, Carry, and Mode in INTM 
131 ax If this is not a module pulled interrupt then 
132 a goto INTR20 
133 ax NP=0 
134 xk If MP still active then 
135 ae goto MPI 
136 xe Set fFIMPI 
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Ver. 3.39/Rev. 2306 Interrupt Routine Page 4 

137 aX INTR20: 
138 sie If Interrupt Ignore Flag is set 
139 ax then clear it and goto RESTORE 
140 a If CMOS test word is invalid 
141 xk then Call WARNST and goto RESTORE if it returns 
142 a If VECTOR is non-zero 
143 an then jurip to that address 
144 xx Wait 8/512ths second to debounce keyboard 
145 xR Call KEYSCN 
146 aR RESTORE: 
147 ae Restore Mode, Carry, Pointer and 1 Stack level 
148 ak Restore B(W) 
149 ak Restore A(W) 
150 ak Restore DO 
151 ax Restore C and R4 
152 ak Return from interrupt 
153 ao 
154 ** History: 
155 aig 
156 a Date Progranner Nodification 
157 Wh Beeole, Geteeeests. Sethe hee tet St ee 
158 on 07/15/82 B.S. Updated docurientation 

k 
He JOOS OUI ICI ISU OCCT II TK 
161 JI IO II IO TIT ITI III IIIS I IIIT II II IIIS IIIT IIS II IIIS I TIA II SAK 
162 . BSS #F~-* 
163 OOOOF 12C =INTRPT CR4EX Save C in R4 
164 00012 136 CDOEX Save DO first 
165 00015 1B00 DO=(5) =INTR4 

4F2 

166 0001C 1547 DATO=C W R4(5-15) and DO saved 
167 00020 1901 DO=(2) =INTA 
168 00024 1507 DATO=A W Save A 
169 00028 1902 DO=(2) =INTB 
170 0002C AF4 A=B W 
171 Q002F 1507 DATO=A W Save B 
172 00033 AF2 C=0 W Start misc saves 
173 00036 0? C=RSTK Save top of return stack 
174 00038 80F6 CPEX 6 Save Pointer 
175 0003C 25 P= 5 
176 OO03E 450 GOC INTR1O Save Carry (0=Set,1=Clear) 
1277 00041 B06 C=C+1 PP 
178 00044 27 INTR1O P= 7 
179 00046 ACE C=C-1 P Save Mode 
180 00049 04 SETHEX 
181 0004B B06 C=C+1 P 
182 QOO4E 16F DO=D0+ 16 
183 00051 15C7 DATO=C 8 Save nisc stuff 
184 * start of interrupt processing code 
185 00055 838 ?MP=0 Module pulled? 
186 00058 £1 GOYES INTR2O No. 
187 0005A 828 MP=0 Yes. 
188 0OO5D 838 ?mP=0 See if still active. 
1839 00060 20 GOYES INTR19 Set carry if MPI still active. 


190 00062 7B96 INTR19 GOSUB RCFfINP Let’s indicate MPI occurred 
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191 00066 851 ST=1 1 
192 00069 OB CSTEX 
193 0006B 15(0 DATO=C 1 Set F1MPI 
194 OOO6F 460 GOC INTR2O Go if MPI not active anynore 
195 00072 6821 GOTO nPI Handle nodule-pulled interrupt 
196 00076 20 INTR2O P= 0 Do transparent interrupt 
197 00078 1807 DO=(5) =DISINT Check interrupt ignore flag 
4F2 
198 O007F 15E0 C=DATO 1 
199 00083 390A “C=O OP Should we ignore this interrupt 
200 00086 BO GOYES INTR26 No, then don’t ignore it 
201 00088 D2 C=0 A Zero register 
202 OO08—A 15C0 DATO=C 1 Yes, clear ignore flag 
203 OOO8E 5C4 GONC  INTRS5O (B.E.1.) Now ignore interrupt 
204 00091 1983 INTR26 0O=(2) =CNOSTH 
205 00095 15A3 A=DATO 4 Read CHOS test word 
206 00099 33F8 LC(4) =CNOSTV Load correct CMOS test word 
61 
207 OOO9F 23 P= 3 
208 OOOA1 912 *A=C OP Are they the sane? 
209 OO00R4 60 GOYES INTR27 Yes, then okay 
210 OOOR6 695F ; GOTO  COLDST No, then machine is trashed 
211 - 
212 i. 
213 OOORA 163 INTR27 DO=D0+ 4 DO=VECTOR 
214 OOORD 146 C=DATO A Read VECTOR 
215 OOOBO 8AR C20) =A Is it zero? 
216 OOOB3 60 GOYES INTR28 Yes, then process interrupt here 
217 OOOBS 06 RSTK=C No, then call interrupt handler 
218 OOOB7 03 RTNCC .Branch to interrupt handler 
219 4 
220 Re 
221 % At this point we know that the interrupt must have been 
222 * caused by a key going down. Since a keyboard interrupt 
223 * can occur only uhen all keys have been up and a key has 
224 * gone down, therefore keys that are now down are new keys 
225 * and any keys that were down at last KEYSCN are nou 
226 * irrelevant. 
227 
228 OOOB9 1926 INTR28 DO=(2) =KEYSAV 
229 OOOBD AF2 C=0 W 
230 O00CO 15CD DATO=C 14 Clear out all previous keys 
231 000C4 1A20 DO=(4) =RNNADZ 
1E 
232 OOOCR 14E C=DATO B 
233 OOOCD OB CSTEX 
234 OOOCF 840 STO (0 
235 000D2 OB CSTEX 
236 000D4 14C DATO=C B 
237 OOOD? 7E50 GOSUB debnce Scan for new keys doun 
238 
239 * end of interrupt processing code 
240 
241 00008 =INTR5O (Entry needed for debugger --NB.) 


242 O000B 1803 


DO=(5) =INTN 
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4Fe 
243 OOOE2 15E? 
244 OES 06 
245 OWES 27 
246 OOOER SOR 
247 OOOED 40 
248 OOOEF 05 
249 OOOF1 25 
250 OOOF3 AOE 
251 OOOF6 80F6 
252 QOOFA 1902 
253 OOOFE 1567 
254 00102 RFS 
255 00105 1901 
256 00109 1527 
257 00100 1900 
258 00111 1567 
259 00115 134 
260 00118 12C 
261 0011B OF 
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INTR9O 


C=DATO 8 
RSTK=C 

P= ? 

C=O OP 
GOYES INTR9O 
SETDEC 


INTB 


INTA 
INTR4 


oO 
4 
Qo 
D> 
~ 
oS 
Scr EernreeETewunwvn 


NHbnvDdui ois 
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Get misc stuff 
Restore return stack 
Restore Mode 

Hex node if 0 

Dec trode otherwise 


Set carry 1f necessary 


Get pointer 


Restore B 
Restore A 
Get R4(5-15) and DO back 


Restore D0 
Restore C and R4(4-15) 
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262 STITLE Entry point table 
263 0011D 8000 =bldbit GOVLNG =BLDBIT 


264 00124 3000 =blddsp GOVLNG =BLDDSP 
265 0012B 3000 *bldlcd GOVLNG =BLDLCD 
266 00132 3000 =chedit GOVLNG =CHEDIT 
267 00139 3000 =debnce GOVLNG =DEBNCE 
268 00140 3000 =dspcha GOVLNG =DSPCHA 
269 00147 3000 =dsprst GOVLNG =DSPRST 
270 OO14E 3000 =dspupd GOVLNG =DSPUPD 
271 00155 3000 =keyscn GOVLNG =KEYSCN 
272 OO15C 8000 snakebf GOVLNG =MAKEBF 
273 00163 3000 =popbuf GOVLNG =POPBUF 
274 OO016A 3000 =rptky GOVLNG =RPTKY 
275 00171 3000 =scrllr GOVLNG =SCRLLR 


000 
276 00178 8D00 =viewdi GOVLNG =VIEND1 


000 
277 OO17F D9 = =reconf C=B A | Reconfigure to address in B[A) ! 
278 00181 805 CONFIG ! ! 
279 00184 8C(00 GOLONG =Nxtstn ! Next staterent ' 
00 
280 x 
281 0018A 8C0O0 =Harritx GOLONG =WARMN1X 
00 


282 00190 6C(35 =lsleep GOTO =LSLEEP 
283 00194 8D00 =sflag? GOVLNG =SFLAG? 
000 
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284 
285 
286 
287 
288 
283 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
dee 
323 


324 
325 
326 
32? 
328 
329 
3% 


331 
332 
333 
334 
335 
336 


00138 
0013E 
001A1 
001A3 
001A6 


OO1RD 
001B1 
001B4 
0018? 
001BA 
001BC 
001BF 


001C6 
001C9 
001CC 
OO1CF 
00162 
00106 


80A 
AF2 
20 
308 
1BFF 
1E2 
150 
186 
$28 
838 
$1 
306 
8FOO 
000 
301 
801 
807 
54E 
7F7F 
8FOO 
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STITLE Nodule-Pulled Interrupt Handler 
III III TIO III I III IIIS ITI TITS II II TOOT IA IIT II IOI RIS IIIA 


FOI JOO OI IIT III TOC 


ax 


xk Narie: 
ke 


kk Category: 
et 


** Purpose: 


MPI e 
CONFIG 


Nodule Pulled Handler 


adel Recover fron having a nodule pulled. 


th 
** Entry: 


Rk Exit: 


ak Through COLDST if configuration believes a coldstart 


ax rust be perforned. 


** Algorithn: 


Else through MFERR. 


ek 4: Set tiner to wake us in 12 nsec. 


xe Sleep. 

ax Clear MP bit. 

kx If MP set, goto 1. 

ak Perforrt powerup configure (SO=0). 

ae If configuration requested coldstart (S0=1) then goto 
a COLDST. 

- Goto MFERR with "Module Pulled". 


** History: 
x 


x Date Prograrnner 
Ro Secs Bees 
** 09/08/82 NM 

ak 


Modification 


FOI OI IIIT OOOO IO 
FOI RIO III OIC IO III ITO 


MPI RESET 

C=0 W 

P= 0 

LCHEX 8 

DO=(5) (=TIMER3}+7 


DATO=C 14 
DO=DO0- 7 

MP=0 

?MP =O 

GOYES MPI20 
LCHEX 6 
GOSBVL =WRTTNR 


MPI10 


LCHEX 1 
OUT=C 
SHUTDN 
GONC 
SUB 
GOSBYL 


MPI10 
=keyscn 
=PUCONF 


MPI20 


Unconfigure all nodules 


Enable timer 3 
Point at tiner nibbles 


MP bit stall active? 

No. 

Yes. 6-S5i2ths = 12 nsec. 
Wake us up in 12 msec. 


Sleep 

BE: 

Look for keys 
Configure nachine 
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000 
337 001DD 3400 LC(5) =MFERR 
000 
338 OO1E4 06 RSTK=C 
339 OO1F6 3100 LC(2) =eMPI Module pulled nessage 
WO OOTER 26 P= 6 For MFERR 


341 OO1EC OF RTI 


42 
343 OO1EE 
344 OO1EE 


345 OO1FS 


346 OO1FB 
347 OO1FF 
348 00202 
H3 00205 
360 00205 
351 00209 
352 00208 
353 00200 
354 00210 


365 00217 
356 0021B 
357 00218 
358 00210 
359 

360 

361 00221 


362 00227 


363 00220 
364 00231 
365 00235 
366 

36? 

368 00239 
369 0023C 


370 
371 
372 00243 


a8 
374 
375 
376 0024R 
37? 
378 
379 OO24E 


380 00255 


381 00250 
382 00260 
383 00263 
384 00266 
385 00268 


386 OO26F 
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1F83 
4Fe 
33F8 
61 
1§D3 
828 
AFO 


10C3 


22 
8 
8FOO 


702F 


04 
7444 


1R64 
OF 

3340 
01 

1503 
196? 
1540 


850 
8F0O 


8F0O 


7804 


8FOO 
8FOO 


1049 
143 
131 
E2 
8FOO 
000 
8E00 
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STITLE 
=CLDST1 
01=(5) 


Cold Start 
=ChOSTU 


LC(4) =CNOSTV 
DAT1=C 4 
AP=0 
A=0 W 
=VECTR! 
D1=(2) =VECTOR 
C=0 A 
p= 2 
LCHEX 8 
GOSBVL =WIPOUT 


GOSUB 
CLDST2 

SETHEX 

GOSUB 


dsprst 


LCDINI 


DO=(4) =SCROLT 


LC(4) 1674 
DATO=C 4 
DO=(2) =MAXCND 
DATO=C P 


* Configure systen 
ST=1 0 
GOSBVL =CONF 


* Initialize clack systen 
GOSBVL =INITCL 


* Check for low battery 
GOSUB achat? 


* Initialize flags and traps 
GOSBVL =CSTRST 


GOSBVL =C=RANE 


Di=(2) =AVNENS 
A=DAT1 A 

D1=R 

{=C-A A 
GOSBVL =WIPOUT 


GOSUBL =RUTCLR 


4:11 ar 
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Address of CNOS test word 
Value for CMOS test word 


Initialize CNOSTW test word 
Clear module-pulled bit 


(Entry needed for debugger --MB) 


Start of RAM to zero 
C=00800 
Clear 8 kbits of RAN 


Reset display 


Set row drivers, 
turn on display, 
set contrast 


SCROLT=4/32 sec; DELAYT=16/32 sec 
Initialize cormand stack count=4 
Request coldstart configure 


Configure 


Init clock systen 


Reset traps, SFLAGs[1-32], UFLAGs 


Clear Auto # mode 
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393 00282 AF2 
394 00285 AE 
395 00288 1500 
396 O028C 170 
397 OO28F 150D 
398 00293 1EF4 
oF 
393 00239 3606 
4DOA 
0 
400 002A2 14D 
401 002A5 178 
402 002A8 1508 
403 OO2AC 1FFS8 


600 
404 002B3 8E00 


00 

405 002B9 858 

406 

407 0O02BC 8FOO 
000 

408 

409 

410 

411 

412 002C3 20 

413 002C5 32H 
8 

414 002CA D1 

415 o02CC ES 

416 002CE E5 

417 002D0 8FOO 
000 

418 00207 D2 

419 00209 14D 

420 

421 

422 

423 002DC 1AEF 
6F 

424 0O2E2 3E33 
5380 
33H 
0599 
9 

425 002F3 15(CE 

426 


x 
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00 

387 00275 84D ST=0 = PgnRun Clear progran running bit 

388 00278 84E ST=0 NoCont Clear auto halt bit 

389 * 

390 * Initialize IS table 

391 x 

392 0027B 1FD8 01=(5) =IS-TBL Initialize IS table 
7F2 


C=0 W 

C=C-1 W 

DATI=C 14 

D1=Di+ 14 

DAT1=C 14 28 nibs of F 

D1=(4) =DWIDTH Initialize DISP/PRINT 
LCHEX OfROD460 CR LF 1 PW 

DATI=C B Init DPOS,DWIDTH 

D1=D1+ (PWIDTH)-(DWIDTH) 

DATI=C 9 Init PWIDTH, EOLLEN, EOLSTR 


01=(5) =COLDSN Point to cold start message 


GOSUBL =BF2DSP 
ST=1 11 Don’t want CATalog 
(ok to collapse stacks) 


GOSBVL =EDITUF Create workfile 


* Create File Infornation Buffer 


x 
x 


x 


Write File#=00 @ end of buffer 


P= 0 

LC(3) =bFIB File Information Buffer ID 
B=0 A 

B=B+1 A Length = 2 

B=B+1 A 

GOSBYL =I/OALL 

C=0 A File# = 00 

DAT1=C B Write End of FIB chain 


* Initialize Randon Nunber Seed 
k 


DO=(4) =RNSEED 
LCHEX 999500333083533 


DATO=C 15 
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427 * Poll All Modules for Cold Start and turn rrachine off 

428 x 

429 OO2F? 7721 GOSUB  fpoll Perform cold start poll 

430 OO2FB FF CON(2) =pCLDST 

431 * Fall into nain loop 

432 JOIST ICO CII CCGG TOI CK 

433 JOIST I IIIT I TOIT II IIA IA 

434 xk 

435 ** Nane:(S) pCLDST - Coldstart poll 

436 xk 

437 **® Category: POLL 

438 = 

439 ** Type: FPOLL 

440 at 

441 *X Purpose: 

442 ak Allows todule to gain control at Coldstart 

443 aR 

444 *% Should poll be "Handled" (return with XN=0)?: No 

445 a 

446 ** Entry conditions for handler (registers, ST, RAM, etc.): 

447 xx B[A] = Poll nunber. 

448 ak HEX node. 

449 xk P=0. 

450 xR 

451 ** Normal exit conditions fron handler if not handled (ST, RAN, 

452 ** registers, etc.): 

453 ak HEX rode. 

454 ak XM=1. 

455 ak 

456 ** Available subroutine levels: 5 

457 kk 

458 ** What registers/RAM nay be used if not handled?: 

459 ae Nothing natters except D(A) 

460 a 

461 *k Envisioned application(s): 

462 ae Operating systen take overs. 2 

463 ax Initialization of buffers, RAM, etc. 

464 ak 

465 ** History: 

466 on 

467 ae Date Progranrier Modification 

468 KX” icicoteSon: \aeetectionoe, + chen oscScsl. oc eadeee ene cme be eelsemecioe 

469 ke 07/15/82 B.S. Added docunentation 

470 xe 10/17/83 BLS. Updated docurentation 

471 xe 

472 ORO ORT III GIO OHO IO III OIG 

473 FORO ROO IO OGIO OI OIG IS IOI IG OGIO IEG IIIT 


474 
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475 STITLE Main Systen Loop 
476 SII II IS IKI IIR IIIS IIIS IIE III IS IIIS SIS IS SII IIS ISIS SSSI ISSS SSSI 
477 SII IIA III IIIS ISIS SI IIIA ISIIISS SSSI SII SSSI SSIS IIS ASIS SII SIS 
478 AE 
479 ** Warie:(S) MAINLP - Main Loop 
480 ** Narie:(S) MRINOS - Main Loop 
481 ** Nare:(S) MAIN3O - Main Loop 
482 an 
483 ** Category: SYSTEM 
484 ak 
485 ** Purpose: 
436 ak These entry points inplenent the nornal idle state 
487 ak where the cursor is blinking in the display. 
488 &k 
489 *k Entry: 
4% ak MAINLP: Alnost nothing matters. The systen will 
491 ax check a feu flags and clear a few. Then... 
492 ah MAINOS: Allows user. to scroll displayed line if there 
493 aR is one then prompts for input. Then... 
494 ak MAIN3O: Calls character editor to input a line until 
495 ah special key is hit then jumps to a routine 
496 ak to handle that key. 
497 as 
498 ak Exit: 
499 ah P = 0 
500 ak Control is passed to one of LINEP,WAKEUP,ATINTN, RUNK, 
501 ak CONTK, SST, CALC, PUROFF ,CURTOP, CURBOT, CURSU), CURSD), 
502 - CMDSTK, PHROFF , IEXKEY 
503 ae 
504 ** Calls: SFLAG?, SFLAGS, SFLAGC ,FPOLL,AUTOCK, SCRLLR, BF2DPP 
505 ne COLLAP,CLCOLL, STMBCL, NOPRGN, I/ODAL, ATNCLR, 
506 a CURSFR, TBLINC 
507 ak 
508 ** Algorithn: 
509 a MAINLP: If FITNOF or FINKOF set then 
510 ae Go to PWROFF 
511 aR If CALC node set then 
512 a Go to CLCERR 
513 am Fast Poll (pMNLP) (FPOLL ) 
514 ak If in AUTO node then 
515 as Go to =AUTKQ7 
516 x MAINOS: If CALC node (FICALC) is set then 
517 ak Go to =CLCERR 
518 kk Clear program annunciator & status bit (NOPRGN) 
519 ae Set f1DORA 
520 x If Don’t Prompt flag (FINOPR) is set then 
521 ak Go to MAIN3O 
522 x If scrolling needed (NEEDSC) then 
523 ax Allow user to scroll (SCRLLR) 
524 kk Send prompt string consisting of (BF2DPP) 
525 aK Cursor off, prompt character(">"), 
526 ae Cursor on 
S27 ae MAIN3O: If Attn key has been pressed junp to 
528 ae clean up as necessary. (ATTNTN) 


529 ak Clear Don’t Continue flag (NoCont) 
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530 aK Collapse math stack (COLLAP) 
531 RK Collapse AVMENS,QUTBS,SYSEN to CLCSTK  (CLCOLL) 
532 ak Clear Don’t Prompt flag (f1NOPR) 

533 RR Collapse statenent buffer (STNBCL) 
534 ak Delete Innediate Execute Key buffer (bIEXKY) 
535 ak Set “Dornant" flag (f1DORN) (SFLAGS) 
536 ae Call Character Editor (CHEDIT) 
537 Ak If Irmediate Execute Key then 
538 ak Go to IEXKEY 
539 ay If not cursor up/down then 
540 ak Clear command stack flag (f1CNDS) (SFLAGC) 
54) ak Clear "Dormant" flag (f1DORM) (SFLAGC) 
542 aK Clear Attention Flag so HPIL won’t abort(ATNCLR) 
543 ae Nove cursor to far right of display (CURSFR) 
544 RK Go to appropriate place to process key (TBLINC) 
545 x Endline (LINEP) 
546 ak Attention (ATTNIN) 
547 ak RUN key (RUNK) 
548 xk CONT key (CONTK) 
549 ai SST key (SST) 
550 aK Cursor Up (CURSU}) 
551 aK Cursor Doun (CURSD)) 
552 ak Cursor Top (CURST)) 
553 ak Cursor Botton (CURSB)) 
554 ak G-Attention (ATTNIN) 
555 ne CALC Mode key (CALC) 
556 ak Off key (PWROFF ) 
557 ae Connand Stack (CMDSTK) 
558 ak 
559 kk History: 
560 ak 
561 ee Date Progranner Modification 
562 PRS stececses, . wseweseees: , SasseGicutetevesioweeheccee saeco 
563 ** 01/05/83 «B.S. Added docunentation 
; ih 
be OIRO JO OOO IOI I III IOI IOI IO I OO 
566 JU GOIGIIISIIG OIG GGG K 
56? *Note that cold start falls into this code 
568 OO2FD 20 = =MAINLP P= 0 
569 OO2FF 7CA3 GQSUB TNOFF? 
570 00303 560 GONC MAINO 
571 00306 6F12 GOTO PWROFF 
572 
573 OO30A 8EOQO MAINO1 GOSUBL =fCALC? 
00 
574 00310 403 GOC clcerr 
575 00313 7801 GOSUB fpoll 
576 00317 RF CON(2) =pMNLP 
577 
578 00319 8EO GOSUBL =RUTOCK Auto # node? 
00 
579 OO31F 481 GOC MAINOS No 
580 00322 8(00 GOLONG =RUTXQ? Yes, supply line nunber 
00 


581 FIO ITO OO JOIST IO 
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582 $0 OI I TITS T ARIS RIT ITI SII II III ASTI SOIT I ITT IT IS 
583 RR 
584 ** Wane: (S) pMNLP - Poll on entry to main loop 
585 a 
586 ** Category: POLL 
587 aK 
588 ** Type: FPOLL 
5389 kK 
590 ** Purpose: 

591 Rx Poll on entry to main loop. 

592 aK 

533 ** Should poll be "Handled" (return with xM=0)?: 

594 ax NO!'! NEVER!! Take over, yes. Handle, no. 

595 ax 

596 *k Meaning of "Handling" Poll (what does code do if handled?): 
597 kk N/A 

598 ak 

599 *x Entry conditions for handler (registers, ST, RAN, etc.): 
600 ak Carry set. 

601 ak B[A]} = Poll number = pMNLP. 

602 ak HEX mode. 

603 ax P=0, 

604 hk 

605 **k Wornal exit conditions fron handler if handled (ST, RAN, 
606 ** registers, etc.): 

607 &k N/A 

608 ak 

609 ** Nornal exit conditions from handler if not handled (ST, RAN, 
610 %k registers, etc.): 

611 tas HEX node. 

612 e* XN=1. 

613 ae 

614 ** Available subroutine levels: 

615 xm 5 

616 Ee 

617 xx NOTE: 

618 ax Machine is entering an idle state. This 1s a good tine 
619 ax to take over. This poll is one of the very first 

620 Re things done on entry to nain loop. We have not done 
621 kx display scrolling, auto line#, collapsing stnt buffer, 
622 kk checking for CALC node, etc. 

623 ax . 

624 ** What registers/RAM nay be used if handled?: 

625 xe N/A 

626 a 

627 *k What registers/RAM nay be used if not handled?: 

628 ax All CPU registers except D[A]. 

629 a All scratch RAN. 

630 tk 

631 ** Special nerory/pointer considerations (are pointers funny?): 
632 ae May be in CALC node. The routine fFCALC? will RTNSC 
633 aK if we are in CALC node without using D[A]. 

634 £k 

635 ** Envisioned application(s): 


636 aE Taking over, maybe? 
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637 aR 
638 &* History: 
639 oo 
640 a Date Progratiner Modification 
641 TS. erclbes, .noeneecees bei edaotiterqawereooereeeenaaeiae 
642 kk 03/23/83 NI Added docunentation 
643 ak 
644 $I III II III OT II III III I IIIS IO SSIS ISIS SIS SI SII III III IIIS IIS III AIK 
645 $O III TI III IIIT II III SITS IIS III SI IIIT ISI STII SITS II ITN 
646 x 
647 x 
648 00328 DOAO =CRLFPR NIBHEX DORO CR/LF 
649 0032C B1C3 =PROMPT NIBHEX B1C3 Turn off cursor(Non-readable) 
650 00330 E3 NIBASC \>\ Prompt character 
651 00332 B1E3 NIBHEX B1E3 Turn on cursor(Readable) 
652 00336 FF NIBHEX FF End of string 
653 00338 8£00 =MAINOS GOSUBL =fCALC? Should we be in CALC node? 
00 
654 0033E 590 GONC MAINOE No, then okay 
655 00341 8D00 clcerr GOVLNG =CLCERR Yes, then resune CALC node 
000 
656 
657 00348 8E00 MAINO6 GOSUBL =NOPRGN Clear progran annun. & status bit 
00 
658 O034E 315D LC(2) =f 1D0RN 
659 00352 7071 GOSUB sflags Set dornant flag 
660 00356 316E LC(2) =f1NOPR 
661 O035A 763E GOSUB  sflag? Is "Don’t prompt" flag set 
662 OO35E 4F1 GOC MAINIO Yes, then skip prompting 
663 00361 7571 GOSUB ATNTST Check if ATTN key pressed 
664 00365 8E00 GOSUBL =C=SCRL 
00 
665 00368 930A *C=0 =~?P Anything there to be scrolled? 
666 0036E RO GOYES MAINOS No,skip scrolling & put up prompt 
667 00370 7DFD GOSUB  scrillr Scroll left and right 
668 00374 7261 GOSUB ATNTST Check if ATTN key pressed 
663 00378 8E0O MAINO$ GOSUBL =BF2DPP Send prompt string 
00 
670 x 
671 OO37E =MAINIO 
672 OO37E =MAIN30 
673 O037E =WAKEUP 
674 O037E 7851 GOSUB ATNTST Is ATNFLG set? 
675 00382 84E ST=0 —-=NoCont 
676 00385 8F0O GOSBVL =COLLAP 
000 
677 0038C 8E00 GOSUBL =CLCOLL Collapse AVMEMS, QUTBS, SYSEN 
00 
678 to CLCSTK 
679 00392 316E LC(2) =f NOPR 
680 00396 7231 GOSUB  sflagc Clear "Don’t prompt" flag 
681 O0339R 8F0O GOSBVL =STMBCL Collapse Statenent Buffer 
000 
682 003A1 3220 LC(3) =bIEXKY 
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684 

685 003AD 
686 00381 
687 00385 
688 00389 
689 OO3BC 
69 003BE 
691 00301 
692 

693 0033 
694 003(6 
695 003C8 
696 003CB 
697 003(D 


698 003D2 


699 00308 
700 00308 
701 0O3DF 
702 003E3 
703 003E7 
704 003EB 


705 0O3F2 
706 003F5 


707 OO3FB 
708 OO3FE 
709 00401 
710 00404 
711 00407 
712 OO40A 
713 90400 
714 00410 
716 00413 
716 00416 
717 00419 
718 OO41C 
719 OO41F 
720 

721 

722 00422 


723 
724 
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2306 Main Systen Loop 
8F0O GOSBVL =I/ODAL 
000 
3150 LC(2) =F 1DORM 
7E11 GOSUB sflags 
797D GOSUB chedit 
5E6 GONC IEXKEY 
D2 C=0 A 
xD LC(1) 13 
EA A=A-C A 
101 R1i=A 
CE C=C-1 A 
962 7A=C OB 
41 GOYES MAINO 
3250 LCHEX 805 
8 
8£00 GOSUBL =Range 
oO 
560 GONC MAIN4O 
79EO GOSUB CNDOFF 
315D MARIN4O LC(2) =f 1DORN 
75E0 GUSUB sflagc 
7§21 GOSUB RTNCLR 
8F0O GOSBVL =CURSFR 
000 
119 C=R1 
8E0O GOSUBL =TBLIMC 
00 
ER REL(3) EOLK 
5E0 REL(3) ATTNTN 
ERO REL(3) RUNK} 
180 REL(3) CONTK) 
480 REL(3) SST} 
B70 REL(3) cursuj 
080 REL(3) cursdj 
380 REL(3) curstj 
680 REL(3) cursb) 
DCO REL(3) ATTNTN 
8AO REL(3) CALC) 
AO1 REL(3) PWROFF 
080 REL(3) CNDSTK 


xo 
x 


8(00 fpoll GOLONG =FPoll 


00 
ke 


x. 
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Delete “Innediate Execute Key" 
buffer 


Set "Dornant" flag 
Call character editor 
Process colon key def 


Nuriber of first relevant keycode 
Nap terninating keycodes to 
start at 0 
Save terninating keycode ninus 12 
C=12 
Is it a g EndLine key? 
Yes, then okay 
Is it a cursor up or down key? 


Yes, then okay 
No, then exit corinand stack node 


Clear "Dormant" flag 
Don’t abort HPIL send 
So video doesn’t overtirite chars 


Get terminating keycode ninus 12 
Jurip into oblivion 


13 EndLline 

14 Attention 

15 RUN key 

16 CONTinue key 

17 SST key 

18 Cursor up 

19 Cursor doun 

20 Cursor to top 

21 Cursor to botton 
22 g ON 

23 CALC node key 

24 OFF key 

25 Command Stack (g EOL) 
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725 STITLE IEXKEY 
726 JIG IO III IO IO III IIIT ITI IIIT TT IIL 
727 JISC III II IO III IE II IO ITT TT TTT 
728 ax 
729 ** Nane: IEXKEY - Immediate Execute Keys Processing 
730 ae 
731 *k Category: SYSTEM 
732 am 
733 ** Purpose: 
734 ax Process an Immediate Execute Key 
735 am 
736 ** Entry: 
73? ak P = 0 
738 ak D1 Points at definition 
739 ak R3=Definition length+1 
740 KK 
741 AX Exit: 
742 a p = 0 
743 xe Exits thru LINEP+ 
744 km 
745 kk Calls: 1/OALL, NOVEU3 
746 tel 
747 AK USS. ...005 
748 kk Inclusive: 
749 xn 
750 kk Stk lvls: 1 
751 ie 
752 ** Algorithn: 
753 x Clear "Dornant" flag 
754 ak Clear cormand stack flag (f1CNDS) 
755 ak Calculate required buffer size 
756 aK Rilocate buffer (I/OALL) 
757 ae If not enough rienory then 
758 si Go to =MEMERX 
753 xk Copy definition into buffer (NOVEU3) 
760 ee Append CR to definition in buffer 
761 x* Set up pointer to buffer 
762 an Go to =LINEP+ 
763 we 
764 &k History: 
765 me 
766 = Date Progranner Modification 
767 MRT ieee ot deinen, | ad eh teeth ae ite ane ae ete eae 
768 kX 01/05/83 B.S. Rdded docunentation 
769 RK O2/18/ 83. BLS. Now clear dormant flag 
770 Kx 
771 pe CeSCCRESSSCCCSSECCSSSESS SE SSOSCCECC SEE SSS CCCCESSCSCECSE SES SSS SSE S 
77e FORO ORR JOJO IO ITO IO I IOI tO 
773 00428 3150 TIEXKEY LC(2) =F 1DORN 
774 420 7090 GOSUB sf lagc Clear “Dornant" flag 
775 04H 74% COSUB CNDOFF 
776 00434 137 CDIEX 
777 00437 108 RO=C Save definition pointer 
778 0043A 113 A=R3 Recall definition length+1 
779 00430 18 B=A A 
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780 0043F 
781 00441 


782 00446 


783 

784 0044D 
785 00450 
786 00453 
787 

788 00456 
789 00459 
790 0045C 
791 OO45E 


792 00465 
793 00469 
794 0046C 
795 0O46F 
796 00472 
797 

798 00475 
799 00478 


800 
801 
802 0047E 
803 0047E 
804 00480 


805 
806 
807 00487 


808 0048D 
809 00493 
810 00499 


811 
812 
813 0049F 


814 0O04A5 
815 
816 
817 004A9 
818 004A9 


819 
820 
821 OO4AF 


822 


ES 
3220 
8 
8FOO 
000 


503 
110 
132 


100 
11B 
CE 
8FOO 
000 
31D0 
14D 
110 
131 
175 


137 
8000 
00 


22 


8E00 
00 
68DE 


8C00 
00 


8000 
00 
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LINEP j 


xe 
x. 


TEXKYE 


we 
ae 


cursu) 
cursd } 
curst) 


cursb) 
x. 


x. 
CHDSTk 


ae 
xe 


EOLk 


x. 
x 


RUNK j 


xe 


B=B+1 A 
LC(3) =bIEXKY 


GOSBVL =I/OALL 
GONC 


A=RO 
ADOEX 


TEXKYE 


RO=A 

C=R3 

C=C-1 A 
GOSBVL =MOVEU3 
LCHEX OD 
DATI=C 8B 

A=RO 

01=A 

D1=D1+ 6 


CDIEX 
GOLONG =LINEP+ 


P= 2 
GOVLNG =NENERX 


GOLONG =CURSU; 
GOLONG =CURSD} 
GOLONG =CURSTj 
GOLONG =CURSB} 


GOSUBL =CNDSTK 
GOTO MRIN1IO 
GOLONG =LINEP 


GOLONG =RUNK 
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Buffer size=Def len+2 


Allocate buffer 


D1 points to start of destination 
Enough nenory? No, then error 
Recall definition pointer 
DO=Start of source 

A(A)=Start of buffer 

Save start of buffer 

Recall definition length+!1 
Definition length 

Move definition into buffer 


Carriage return 
Append CR to buffer 
Recall start of buffer pointer 


Point at start of text 
(Skip buffer #, len) 

Put pointer in C(A) 

Parse line fron buffer 


Menory error (execution) 
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823 

824 00485 8CO0 
00 

825 

826 

827 OO4BB 8C00 
00 

828 

829 

830 004C1 8D00 
000 

831 

832 


833 004C8 3110 
834 0O4(C 8D00 
000 
835 004D3 8D00 
000 


x boas ‘ 
CONTK) GOLONG =CONTK 
a 

ke 

SSTj  GOLONG =SST 
a. 
k 

=CALC) GOVLNG =CALC 
x 


xs 


CMDOFF LC(2) =f1CNDS 
=sflagc GOVLNG =SFLAGC 


=sflags GOVLNG =SFLAGS 
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836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

85? 

858 

859 

860 

861 

862 

863 

864 

865 

866 OO4DA 8E00 
00 

867 OO4EO 400 

868 OO04E3 8E00 
00 

869 OO4E9 8E00 
00 

870 QO4EF 870 

871 OO04F2 90 

872 OO4F4 8FOO 
000 

873 OO4FB 8FOO 
000 


874 00502 8E00 
00 

875 00508 7400 

876 OO50C 6OFD 

877 

878 


STITLE 


RTTNIN 
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FORO JOT TORR Er 
FOR ROTO I IORI JOT TI TTT ITT I SIT TITIIIDIDI DIT IN 


ak 
kk 
ak 
ak 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
kk 
ax 
ax 
ak 
ak 
an 


ak 
ax 
ah 
xx 


Nane: ATININ - Attention Key Processing 


Category: 


Purpose: 


SYSTEM 


Sends CR/LF to display, Clears Auto, ATNFLG, Goes to 


MAINLP 
Entry: 


Exit: 
Pp 


Calls: 


History: 


07/14/82 
08/27/82 
04/23/83 
05/20/83 


= 0 


S-CRLF ,AUTCLR, ATNCLR 


Progranner 
B.S. 
B.S. 
B.S. 
B.S. 


Modification 
Added docunentation 
Nou clears f1CHDS 
No longer clears fFICNDS 
Now flushes key buffer 


SOI TOO TTT TTT TTI ITI TTI ITT ITT TTT IDI ITI TTT IK 
OIRO IO TOIT OR TOT TT 


RTNTST GOSUBL =CK"ON" 


RTNC 


=ATTNTN GOSUBL 


A 


GOSUBL 
*ST=1 
GOYES 
GOSBYVL 
TINIO GOSBYL 
GOSUBL 


GOSUB 
GOTO 


=nokeys 
=GETSTA 
=Clear 

ATTNIO 

=FINLIN 
=NOSCRL 
=AUTCLR 


ATNCLR 
MAINLP 


Send CR/LF to display 


Turn off autot# 
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879 

880 

881 

882 

883 

884 

885 

836 

88? 

838 

889 

890 

894 

892 

893 

894 

895 

896 

897 

398 

899 

300 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

9141 

912 00510 

913 00510 1F24 
4F2 

914 00517 DO 

915 00519 1532 

916 00510 19% 

91? 00621 A2C 

918 00624 01 
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STITLE RTNCLR 
J III I IGUICICIIOU CCI OOK OI TT ITI TTI TK 


JOJO IDIOT OTTO TOO IT TI TO TIO 
xx 


kk Nane:(S) ATNCLR - Clear Attention Flags 


tk 
kk Category:  GENUTL 

ak 

*k Purpose: 

ak Clears ATNFLG to inhibit effects of ATIN 

ak key. Also returns old state of ATIN flag. 

kk 

ak Entry: 

tk 

aX Exit: 

ak Carry clear iff ATNFLG was set. 

ak 

kk Calls: None 

ak 

ak Uses....... 

*k Inclusive: A[A],D1 

kk 

ek Stk lvls: 0 

ak 

**k History: 

ak 

a Date Progranmer Modification 

Tee ee eee oes eee ee ones 
ek 11/10/82 NN Added docunentation 

a®. 07/25/83. B.S; No longer clears Except status bit 
ik 


FOI I IOI IOI IO IO OOOO TO TOOK 
FOI OIC IIIT OI TOTO TIT TO I TI TIO 


=ATNCLR 

ATNCL1 D1=(5) =RTNFLG 
A=0 A 
A=DAT1 XS 
DAT1=RA 1 

ATNCL2 A=A-1 XS 
RIN 


Set carry if was clear. 
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, 319 STITLE PUROFF 
920 JU IO OI IOI ISIS CT ITT 
971 JU OI ICISOI IOC STS SISTA SITS IISA A IA 
922 a 
923 **& Narie:(S) PWROFF - Power Off 
924 aR 
925 ** Category: SYSTEM 
926 aK 
927 ** Purpose: 
928 ak Sends nachine into deep sleep and waits for wakeup 
929 tk 
4 9% && Entry: 
j 931 ak 
; 932 tk Exit: 
; 933 * Exits to LINEP+ if a connand buffer needs processing 
934 ax otherwise exits to MAINLP 
935 ak 
936 tk Calls: DPSO10(DSLEEP), SFLAGS, I/OFND 
93? Rk 
938 *k Algorithn: 
939 ak Set f1PHDN 
940 as Call DPS010 to go to deep sleep 
941 aK If there is an external connand buffer 
942 si then jurip to LINEP+ to process it 
943 aR If there is an STARTUP buffer 
944 &% then junp to LINEP+ to process it 
945 — Jurip to MAINLP 
946 xk 
947 ** History: 
948 kk 
943 xx Date Progranner Nodif ication 
950 $0 Setouvea,. tuciceseses. Sutdect cece ke kosatoccete locos 
951 kk 67/15/82 B.S. Updated docunentation 
952 aX 
953 JOIST OOO OCCT IS IIS OITA TIT K 
954 JOO OC OCIS III TIO IRS ISOS TOTO SS IST IS TI II IIIA 
955 00526 04 =PWROFF SETHEX 
956 00528 20 P= 0 
957 0O52—A 31FC LC(2) =f1lPWDN 
958 OO52E 71AF GOSUB sflags Set POWERDOWN flag to indicate 
953 00532 7340 GOSUB DPSO10 DSLEEP called fron PWROFF. 
960 00536 3290 LC(3) =bECOMD 
8 
961 0053B 8F0O GOSBVL =I/OFND Is there an Ext Crd buffer? 
000 
962 00542 59 GONC PWR100 No 
963 00545 137 PWROSO CDIEX 
964 00548 6F2F GOTO LINEP) Process cnd buffer 
965 0054C 3280 PWRIOO LC(3) =bSTART 
8 
966 00551 8F0O GOSBVL =I/OFND Is there a STARTUP buffer? 
000 
967 00558 4CE GOC PWROSO Yes, process it. 
968 00558 61AD GOTO  MAINLP 


369 ae 
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970 as 

971 OOS5F =PWROFS 
972 OOSSF BIE3 

973 00563 DOARO 

974 0056? BIC3 

975 0O56B FF 


NIBHEX B1E3 
NIBHEX DORO 
NIBHEX B1C3 
NIBHEX FF 
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Cursor on 
CR/LF 
Cursor off 
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976 STITLE DSLEEP 
977 x 
978 x 
979 JOIST OTITIS ASI I SSSI IIIA SSIS SOS SII AI IAN 
980 FOI IIIT ATT ITT TTT AIA TI III IIS IIIS ISIS SIS SSSI SIS ISIS IIS 
981 ak 
982 ** Nane:(S) DSLEEP - Deep sleep 
983 an 
984 ** Category:  GENUTL 
985 aK 
386 *k Purpose: 
987 ka Put TITAN into a power-off state. 
988 km 
989 ** Entry: 
990 ak None. 
991 ae 
992 kk Exit: 
993 ak P=0, 
994 a Carry clear. 
995 ak 
996 ** Calls: ALMSRV, ATNCL1, BF2DSP, FIBOFF, I/ODAL, LOCKD?, 
997 ak QUT=1, PUCONF, RCLSTA, FPOLL, NOKEYS, SFLAG?, 
998 ak SFLAGC, SFLAGS, ACBAT? 
999 x 
1000 k* Uses......- 
1001 kk All CPU registers. SCRICH in RAN. 
1002 ne 
1003 *K Stk lvls: 5 
1004 xx 
1005 ** NOTE: 
1006 a This is how you put the machine to sleep. If nenory 
1007 as configuration changes while the rachine is asleep, 
1008 kk the soft-configured nodule which called DSLEEP nay have 
1003 ak noved. Thus when DSLEEP tries to return, the machine 
1010 a will go out to lunch. It is RECOMMENDED that you call 
1011 mm DSLEEP through the MGOSUB utility: 
1012 aR GOSBYVL =NGOSUB 
1013 a CON(5) =DSLEEP 
1014 kx Then if configuration changes, the GOSUB stack will be 
1015 ae collapsed and the attenpt to return fron DSLEEP will 
1016 a give a SYSTEM ERROR. This beats going out to lunch. 
1017 ax 
1018 al Secondary local entry point DPS010 1s used by PWROFF. 
1019 ae 
1020 ** Detail: 
1021 ae Perforns power-doun poll on entry and one or two 
1022 power-up polls on wakeup. Control is returned to the 
1023 as calling routine in the following circumstances: 
1024 ak 
1025 i If ATIN key was not hit: 
1026 7 An on-tiner alarn is pending uith progran running 
1027 ae or 
1028 Kx A poll handler cleared =flTNOF on =pDSWNK poll. 
1029 Ex 


10% a If ATTN key was hit: 
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1031 ae R poll handler cleared =flTNOF on =pDSWKY poll. 
1032 am or 
1033 xx Passuord is null 
1034 ax or 
1035 aK User supplies correct password. 

1036 aK 

1037 ax LOCK is implemented with the aid of the =f1TNOF and 
1038 KR =f1MKOF flags. Proper manipulation thereof will keep 
1039 xk the user fron breaking into a locked machine. Guide- 
1040 aK lines for their use are found in the poll interface 
1041 ak descriptions belou. 

1042 ae 

1043 KK Sore special things happen for the benefit of the 
1044 KR PWROFF routine, since PWROFF returns control to the 
1045 ax Haln loop upon uakeup. See PWROFF docunentation for 
1046 a nore detail, including explanation of =bECOMD. 

1047 ax 

1048 ** Algorithn: 

1049 ** DSLEEP: Clear =f1PWDN flag (indicate that we were not 
1050 ax called fron PWROFF). 

1051 xx DPSO10: (Entry point for PWROFF). 

1052 ee If ON key doun 

1053 al Set ATIN flag and goto DSPO40 

1054 KK If display-clear flag clear then goto DPS030 
1055 ak Send <cursor on>/CR/LF. 

1056 xk DPSOX Send <cursor off> 

105? ** DPSO35: Perforn poter-doun poll. 

1058 Ex Set TURNOFF (f1TNOF) flag. 

1059 as Clear MAKEOFF (f1MKOF) flag. 

1060 aK Turn off display. 

1061 = Clear f-g shift status bits. 

1062 ae Clear ATNFLG and ATNDIS. 

1063 se Turn off tiner _#3 (Lou battery check). 

1064 xe Activate KB row mith ATTN key. 

1065 ae SHUTON. 

1066 aX 

1067 x DPSO40: Configure. 

1068 ais Deallocate external command buffer (to give poll 
1069 am handlers a chance to create one if we were 
1070 a called by PWROFF). 

1071 oe Check clock systen 

1072 ue If RTTN key woke us up, goto DPS200. 

1073 ne If program running and ON TIMER pending 

1074 oe Clear =f1lTNOF; goto DPS200. 

1075 ae Perforn pDSWNK poll (who woke us up?!?). 

1076 x If turnoff flag set and ATNFLG clear then 

1077 Ee gato DSPO35 

1078 ** DPS200: Flush key buffer. 

1079 a Clear flALRM flag. 

1080 Ke =pDSWKY poll 

1081 :* Password processing (does not require password if 
1082 a passuord=null or =f1TNOF 1s clear). 

1083 +s If failed to unlock machine (password required but 
1084 es not correctly given), goto DPSO35. 


1085 ar AC/BAT check 
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1086 st RETURN 
1087 me 
1088 ** History: 
1089 as 
1090 ak Date Progranner Modification 
1091 BR eee e enn ete teen eet ete ene en ern eee e ween nee eee 
1092 ak 07/15/82 9 NM Added nane to docurentation 
1093 ** 09/07/82 NM Added calls to AC/BAT at end 
1094 *k 09/09/82 = NM Moved puroff poll after DSP020 
1095 *k 09/13/82 NM Made CR/LF conditional on clear flg 
1096 *& 09/20/82 NN Check ON key at DPSO10 
1097 *X 09/23/82 NM Clear FIALRM before pDSWKY poll 
1098 *X 10/25/83 B.S. Updated docunentation 
xk 
ae FRI III IIIT IDI III IIIT ISI SSSI III STII III IIS SSI SII SII SIS IISI ISIS IA 
1104 RII SII SII ISI ISI IIIT I III SSIS II III II I III III III II IIIS TI IIIS KIS ISIN 
1102 0056D 04 =DSLEEP SETHEX 
1103 OO56F 20 P= 0 
1104 00571 31FC LC(2) =f 1PWON Will clear POWERDOWN flag to 
1105 00575 735F GOSUB sflagc indicate not called fron PWROFF. 
1106 00579 DPSO10 Entry past clear of PWDN flag 
1107 00579 20 P= 0 
1108 00578 8FOO DPSO23 GOSBVL =FIBOFF Reclain FIB stuff 
000 
1109 00582 1FF5 DPSO24 01=(5) =PUROFS Point at <curs on>/CR/LF/<c of f> 
500 
1110 00589 8E00 GOSUBL =RCLSTA Suap display status into ST 
00 
1111 OO58F 860 ?ST=0 «=Clear Display-clear bit set? 
1112 00592 50 GOYES DPS030 No. 
1113 00594 177 D1=D1i+ 2%4 Yes. Point past <curs on>/CR/LF. 
1114 00597 8£00 DPSO30 GOSUBL =BF2DSP 
00 
1115 00590 718E— DPSO35 GOSUB fpoll 
1116 0OS5A1 CF CON(2) =pPWROF 
1117 0O5A3 31DC LC(2) =f 1 TNOF 
1118 OOSA? 782F GOSUB  sflags Set turnoff flag 
1119 OOSAB 31EC LC(2) =f 1NKOF 
1120 OOSAF 791F GOSUB  sflagc Clear mnakeoff flag 
1121 00583 795F GOSUB ATNCLI Clear ATIN flag 
1122 005B?7 1C0 Di=Di- 1 Point at ATNDIS 
1123 OO5BR 149 DATI=A B Clear ATIN disable(and ATNFLG) 
1124 OO5SBD 1EFF D1=(4) =DDICTL Disp Control Nibble 
3E 
1125 005C3 1590 DATI=A 14 Turn off display 
1126 OO5C7 1E£20 D1=(4) =ANNAD2 Point to FG ann nibble 
1E 
1127 OO5CD 1590 DATI=A 1 Reset FG status 
1128 005D1 1DFF 01=(2) =DD3CTL 
1129 005D5 1590 DAT1I=A 1 Turn off TIMER #3 
1130 005D9 8E00 GOSUBL =OUT=1 Set QUT=001. (Bug#39-1000(9)) 
00 
1131 OO5DF 867 SHUTDN Goodnight 
1132 FOTO JO TOTO JOO ITOK 


FOOT TTT OTT IOI TI III TI I IG 
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1134 a 
1135 rm Narie: SHUTDN - Address following DSLEEP shutdown 
1136 
1137 *% Category: SYSTEM 
1138 at 
1139 **k Purpose: 
1140 aS This is where the CPU will continue executing after 
1141 sty being awakened fron SHUTON in deep sleep. 
1142 a 
1143 ae Hard-configured takeover ROMs should expect to receive 
1144 aR control at this address. 
1145 RE 
1146 ** History: 
1147 a 
1148 ak Date Progranner Modification 
1149 Rk neem eee meen eee eee ncn n ene ce nn en nner ner n reer nee 
1150 xk 11/01/83 «B.S. Added docunentation 
xk 
2 FOI IOI IT II ISIE TOT III TIT IIIT ISI STII STI STII I III III IA 
1153 KIKI IOI RIT TI IIIS III IIIT TAI II TIA III II TOD IIS III EI ITI IIS IIT IIIA IK 
1154 OO5E2 =SHUTDN Good norning 
1155 OOSE2 8FOO DPSO40 GOSBVL =PWCONF Configure 
000 
1156 OO5E9 20 P= 0 
1157 OOSEB 3290 LC(3) =bECOND 
8 
1158 OO5SFO 8FOO GOSBVL =I/O0DAL Deallocate External CMD buffer 
000 
1159 OOSF? 8FOO GOSBVL =ALMSRV Check alarn clock systen 
000 
1160 OOSFE 7E0F GOSUB ATNCL1 Check ATTN flag 
1161 00602 533 GONC DPS200 Go if was hit. 
1162 00605 86D ?$T=0 «13 Not hit. Progran running? 
1163 00608 41 GOYES DPS150 No. Poll. 
1164 0060R 843 ST=0 3 Clear tineout bit 
1165 0060D 03 C=ST Look at alarn bits 
1166 OO60F SOR 7C=0 =P Yes. On-tiner #1,2 or 3 pending? 
116? 00612 ARO GOYES DPS150 No. Poll. 
1168 00614 31DC LC(2) =f 1 TNOF Yes 
1169 00618 70BE GOSUB sflagc Clear turnoff flag 
1170 OO61C 720E DPS150 GOSUB fpoll Deepsleep wake u/o key poll 
1171 00620 EF CON(2) =pDSWNK 
1172 00622 20 P= 0 
1173 00624 31DC LO(2) =f 1 TNOF 
1174 00628 7868 GOSUB sflag* Has turnoff flag been cleared? 
1175 0062C 590 GONC DPS200 Yes. 
1176 O062F 7DDE GOSUB ATNCL1 No. Check ATIN flag. 
1177 00633 492 GOC DPS100 Go 1f hasn’t been set. 
1178 00636 8EOO DPS200 GOSUBL =nokeys Flush key buffer. 
oo 
1179 0063C 20 P= 0 
1180 0063E 314¢ LC(2) =f lALRM 
1181 00642 768E GOSUB sflage Clear ALARM annunciator 
1182 00646 78DD GOSUB fpoll Wakeup poll 


1183 0064A DF CON(2) =pDSWKY 


Saturn Asserbler 


Main Driver <831216.1559> Fri Dec 3, 1983 4:11 ar 


Ver, 3.39/Rev. 2306 DSLEEP Page 29 
1184 OO064C 8F0O GOSBVL =LOCKD? Password processing if f1TNOF on 
1185 00653 pO GONC DPS101 Go if failed to unlock nachine 
1186 00656 8000 acbat? GOVLNG =ACBAT? Check AC/BAT and RTNCC 
1187 0065D Or DPS100 GOTO DPSO35 Inrange shortjunp fron above 


1188 00661 602F 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 


DPS101 GOTO OPS024 


ak 
ax 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
ae 
ax 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
aX 
*x 
xk 
ak 
aK 
ak 
kk 
xk 
ak 
x 
xx 


FOTO IRIRRIOJO II O BO TOOT TT 
FOO TOR RII OIRO IOI IO TOL 


Narie:(S) pPWROF - Poll when powering off 
Category: POLL 
Type: FPOLL 


Purpose: 
Poll on entry to deep sleep. 


Should poll be "Handled" (return with XM=0)?: 
No. 


Meaning of “Handling” Poll (what does code do if handled?): 
N/A 


Entry conditions for handler (registers, ST, RAM, etc.): 
Carry set. 
B[A] = Poll nunber = pPWROF 
HEX node. 
P=0. 
fIPHDN set iff deepsleep nas called fron PWROFF. 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
N/A 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XM=1. 


Available subroutine levels: 3 
NOTE: 
The flag fFIPWDN indicates that the machine was called 


fron PHROFF, as opposed to CALC node, progrannatic BYE, 
or sonebody else. 


This is a good tine to take over. 


What registers/RAN nay be used if handled?: 
N/A 


What registers/RAM nay be used if not handled?: 
All CPU registers except D(A]. 
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1237 ae All scratch RAM. 
1238 aK 
1239 ** Special mnenory/pointer considerations (are pointers funny?): 
1240 ax May be in CALC node. 
1241 ae 
1242 ** Envisioned application(s): 
1243 ak Sore sort of takeover on shutdoun. 
1244 aK 
1245 ax Pocket secretary processing alarns at shutdown. 
1246 ak Suggested method if an alarw is due and you want to 
1247 ak process it at power-off: 
1248 xk Schedule inmediate wakeup through external alarn. 
1249 ae Create external command buffer at wakeup poll using 
1250 the pocket secretary’s handy ACKNOWLEDGE keyword. 
1251 k 
1252 ek History: 
1253 as 
1254 a Date Programmer Modification 
1255 RR nee ee anne eee nee n nnn cane eee nen ee nnn 
1256 03/24/83 NN Added docunentation 
x 
ee JOG OIE IOC ICCC IOI IE IIT RI 
1259 JI OCI TIO TIT TT IE TT 
1260 JOO COC IO IIIT ITT LITT TT TET TT TE 
1261 JURIDIC III SIRT IIIT RIE IT TORK 
1262 aR 
1263 *k Narne:(S) pDSWNK - Poll to awake machine u/o key 
1264 ak 
1265 *k Category: POLL 
1266 - 
1267 *k Type: FPOLL 
1268 a 
1269 *k Purpose: 
1270 aK Poll if machine awoke without ATIN being hit or 
1271 a ON TIMER going off. 
1272 - 
1273 ** Should poll be "Handled" (return with XM=0)?: 
1274 an No. I don’t think so. 
1275 #R 
1276 ** Meaning of "Handling" Poll (uhat does code do if handled’): 
{e?7? aK N/A 
1278 et 
1279 ** Entry conditions for handler (registers, ST, RAM, etc.): 
1280 ae Carry set. 
1281 aK B[A} = Poll nunber. 
1282 x HEX node. 
1283 aR P=0. 
1284 as 
1285 tk Normal exit conditions from handler if handled (ST, RAN, 
1286 ** registers, etc.): 
1287 = N/A 
1288 + 
1289 4% Norrial exit conditions fron handler if not handled (ST, RAN, 
12390 ** registers, etc.): 


1291 ak HEX rode. 
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1292 1% XM=1, 
1293 x If flTNOF is cleared during this poll, the machine will 
1294 aK wake up AND will circunvent password processing 
1295 ia (asking for password if one exists). If you wish to 
1296 Rx wake up the machine this way but not give control to 
1297 aK the user, setting fFIMKOF will force machine back to 
1298 aK sleep as soon as it hits the main loop. This is a 
1299 &K Way to wake up to process alarns and then return to 
1300 ak sleep. 
1301 ax If ATNFLG 1s set during this poll, the machine will 
1We ax continue as though ATTN had been hit... wake up, 
1303 ax perforn passuord processing, etc. 
1304 ax 
1305 %* Available subroutine levels: 3 
1306 aK 
1307 *x NOTE: 
1308 am The flag FIPWDN indicates that the machine was called 
1309 &X fron PHROFF, as opposed to CALC mode, programmatic BYE, 
1310 a or sonebody else. The importance of this is that on 
1311 ae return fron DSLEEP, PWROFF will recognize and process 
1312 aie an external connand buffer. Nobody else will. So if 
1313 ax you wish to create a command buffer to be executed, 
1314 ] FIPWON indicates whether or not it will be ignored. 
1315 
1316 ax The external connand buffer was deallocated before the 
1317 aK wakeup polls. If it currently exists, 1t means that a 
1318 ee poll handler has created it. Think real hard about 
1319 ax how badly you want to wipe out somebody else’s connand. 
1320 le On the other hand, sone externally inplenented sort of 
1321 7 STARTUP may grab this buffer every tine. Such are the 
1322 ae dangers in this zoo. I guess this means not to assune 
1323 ae that creating this buffer guarantees that it will be 
1324 el used. 
1325 ae 
1326 *X What registers/RAM nay be used if handled?: 
1327 ax N/A 
1328 a 
1329 XX What registers/RAM nay be used if not handled?: 
130 gs All registers except D[A]. 
1331 az All scratch RAN. 
1332 ” 
1333 ** Special neriory/pointer considerations (are pointers funny?): 
1334 aX May be in CALC node. 
1335 em 
1336 *X Envisioned application(s): 
1337 ies Allowing non-ATTN, non-ON-TINER to awake nachine. 
1338 x 
1339 kX History: 
1340 a 
1341 sg Date Programmer Nodification 
1342 RRM Gieestke  Seccesisoa -scleSesdscoecec sess. esos hee Sees 
1343 *k 03/24/83 9 NN Added docunentation 

kk 

rae FO JOO OO 


1346 FOOT ITT OTT TT TTT TTI OK 
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1347 JI III IO IO OIA ISI OO COO CT OT OCOIOSIIOOO T IK 
1348 JIU IO OOS ISSO OOS OCC IIS TOO I IO 
1349 es 
1350 ** Name: (S) pDSWKY - Poll if machine wants to wake up 
1351 aK 
1352 x Category: POLL 
1353 Rx 
1354 *k Type: FPOLL 
1355 ak 
1356 ** Purpose: 

1357 ax Poll if we are going to wake up because: 

1358 aK ATTN key was hit. 

1359 ax ON TINER went off. 

1360 aR Responder to pDSWNK told us to wake up. 

1361 aK 

1362 ** Should poll be "Handled" (return with XM=0)?: 

1363 -* No. 

1364 aX 

1365 *x Meaning of "Handling" Poll (what does code do if handled?): 
1366 ~~ N/A 

1367 a 

1368 ** Entry conditions for handler (registers, ST, RAM, etc.): 
1369 ai Carry set. 

1370 ax B[R} = Poll nunber. 

1371 xx HEX node. 

1372 P=0. 

1373 a 

1374 ** Nornal exit conditions fron handler if handled (ST, RAM, 
1375 *k registers, etc.): 

1376 ae N/A 

1377 am 

1378 ** Nornal exit conditions fron handler if not handled (ST, RAN, 
1379 ** registers, etc.): 

1380 - HEX node. 

4381 ax xM=1. 

1382 7* If f1lTNOF cleared, we will wake up without password 
1383 a processing. 

1384 xx 

1385 ** Available subroutine levels: 3 

1386 a 

1387 X* NOTE: 

1388 am At this point, we are connitted to trying to wake up 
1389 am nachine. If, however, flTNOF 1s set on terrination of 
139% ae this poll (it may or may not be set before poll), we 
1391 a will go through password processing... soliciting a 
1392 ie passuord from the user if the rachine has been locked. 
1393 a 

1394 Ex The fFIALRM flag (ALARM annunciator) was cleared just 
1395 as before the poll. This 1s the tine ta set the flag if 
1396 a that annunciator should be on. 

1397 Ax 

1398 *x The flag FIPWDN indicates that the riachine was called 
1399 ks fron PWROFF, as opposed to CALC node, progranmatic BYE, 
1400 aie or sonebody else. The inportance of this 1s that on 


1401 ae return fron DSLEEP, PWROFF will recognize and process 
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1402 aK an external cormand buffer. Nobody else will. So if 
1403 a% you wish to create a cornmand buffer to be executed, 
1404 . f1PWON indicates whether or not it will be ignored. 
1405 
1406 aR The external corinmand buffer was deallocated before the 
1407, ax uakeup polls. If it currently exists, it means that a 
1408 am poll handler has created it. Think real hard about 
1409 an how badly you want to wipe out sonebody else’s connand. 
1410 Ae On the other hand, sone externally inplerented sort of 
1411 ae STARTUP nay grab this buffer every tine. Such are the 
1412 ges dangers in this zoo. I guess this rieans not to assune 
1413 ax that creating this buffer guarantees that it will be 
1414 a used. 

1415 ak 
1416 ** What registers/RAN nay be used if handled?: 
1417 a N/A 
1418 ae 
1419 ** What registers/RAN nay be used if not handled?: 
1420 aX All CPU registers except D[A]}. 
1421 a All scratch RAN. 
1422 x 
1423 ** Special nenory/pointer considerations (are pointers funny?): 
1424 ax May be in CALC node. 
1425 a 
1426 *k Envisioned application(s): 
1427 ak Takeover ROM at powerup. 
1428 ai 
1429 ae Alarm processing. 
14% =n 
1431 ** History: 
1432 BK 
1433 gi Date Progranner Modification 
1434 KX. Gecesacc! ~,Seescclcass. ° ce stetbocdéeccecess seca sete cesews 
1435 a 10/25/83 NN Updated docurentation 
x 
a JOIST IO IO ITO OCI IOS TSI TTA ISOC IT IIIT 


1438 FOI RII TOI ITT IO TOTO IT ITO OTR TT I 
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14339 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
146? 
1468 
1469 
1470 
1471 
1472 00665 


1473 d066C 


1474 

1475 0O067E 
1476 00682 
147? 00686 
1478 0068A 
1479 00680 
1480 

1481 

1482 OO68F 
1483 00691 


1484 0OO69F 


1805 
3E2 
3F 80 
0140 
0220 
0410 
08 


154? 
{SEF 
3191 
14C 
03 


BI 

C3D4 
56D6 
F627 
9? 

0204 
F637 
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STITLE LCDINI - Initialize LCD 
JOO ICO IE T TT TIT TIT III II II II IIIT TT IA 


FORO III TOTTI IT IIIT 
wk 


** Nane:(S) LCDINI - Initialize LCD display 


kk 
**& Category:  DSPUTL 

xk 

** Purpose: 

xk Initialize LCD row driver and contrast, turn display on 
kx 

xk Entry: 

ax Pp = QO 

ka 

KK Exit: 

kx P = QO 

kx Carry clear 

kk 

** Calls: None 

kk 

KX Uses.....0. 

kk Inclusive: C(W) 

kk 

Kk Stk lvls: 0 

ko 

kk History: 

kk 

kk Date Prograntier Modification 

PEO eae. Ge SLUOEe, «eee geet it ect ees oles Gene ieeetns 
Kk 10/25/83 B.S. Added docunentation 

ik 


FOI IOI IO III ISIOITIOI IOI IO IOI OI IO 
FORO OOO TO IO ITO TTT IK 


=LCDINI DO=(5) =ROWDVR 
LCHEX 8001400220041008 Bit pattern for driving 
display 
a W Write out display drivers 
DO=(2) (=DDICTL)-1 Display contrast/control byte 
LOHEX 19 Set contrast to 9, display on 
DRTO=C B Turn on display, Set contrast 


RTNCC RTNCC 
+ 


aL 


=COLDSM NIBHEX B1 Escape 
NIBASC \<Merory\ 


NIBASC \ Lost\ 
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47 
1485 006A9 DORO NIBHEX DOROFF CR/LF /eol 
FF 
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1486 STITLE TNOFF? 
1487 SII III IIIT OI III IOC III IIIS IS IAI I IK 
1488 JOO I III III ISO II CII OI OT II ITA S IS IIS IIT IIT I IK 
1489 a 
1490 ** Nare: TNOFF? - Check for f1TNOF and f1MKOF 
1491 ah 
1492 ** Category:  GENUTL 
1493 aK 
1434 ** Purpose: 
1495 ae Deternine if machine should go to sleep. 
1496 aR 
1497 &k Entry: 
1498 xk P=0, 
1499 ae 
1500 &K Exit: 
1501 aR P=0, 
1502 oe Carry set if machine should go to sleep. The check 
1503 = in the main loop and in calc mode. Carry set 
1504 xk typically reans that user tried to jump password 
1505 ae with INIT 1. 
1506 zt 
1507 aX Calis: SF LAG? 
1508 wes 
1509 RE USES ie sociins 
1510 xa A(A),C(S),C(5-0), D(A) 
1511 as 
1512 ** Stk lvls: 2 
1513 aa 
1514 ** History: 
1515 aR 
1516 ae Date Progranner Modification 
151? RR wm e ene ence wenn terme ere e reer n ener ner n nr cnn cence 
1518 kk 06/27/83 NN Stripped out of MRINLP code 
at 
ie JO III IIIT IOC TI TOT IIIS IIS I IIIS III IITA IA 
4521 JI III III III IIIT TIGR I IIT TOIT STIS IO STII II II 
1522 OOGAF 31EC =INOFF? LC(2) =f 1NKOF 
1523 006B3 7DDA GOSUB sflag? Is Makeoff flag set? 
1524 006B? 400 RTNC Yes. Must power doun. 
1525 OO6BA 31DC LC(2) =f 1 TNOF 
1526 OOBBE 650A GOTO sflag? Check turnoff flag 
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1527 STITLE SLEEP 
4528 FOI RIOT IR ROTOR IORI JOR JOO BR I 
1529 FOR JO TOR STOO ZRII TOR TO OOOO TT I 
1530 an 
1531 ** Nane:(S) SLEEP - Scan KB, do LSLEEP if key buffer enpty 
1532 *k Nanie:(S) LSLEEP - Light Sleep 
1533 a 
1534 ** Category:  GENUTL 
1535 ak 
1536 ** Purpose: 
1537 ak SLEEP: 
1538 aK Debounces keyboard and shuts CPU down unless keys are 
1539 ak in buffer or down. 
1540 ak LSLEEP: 
1541 ak Shuts CPU down (enters low power state) until sone 
1542 ax activity on the bus or the keyboard wakes up CPU. 
1543 ae 
1544 ek Entry: 
1545 ak 
1546 ae Exits 
1547 ax P = 0 
1548 ak Carry clear if keys in buffer 
1549 ax Carry set if no keys were in buffer 
1550 ak 
1551 tk Calls: DEBNCE, KEY? 
1552 a 
1553 BR MSOS oe scgsetss 
1554 kk Exclusive: C(A) 
1555 xk Inclusive: A(H),B(W),C(W), 00 
1556 mn 
1557 aX Stk lvls: 1 
1558 nx 
1559 *k Algorithn: 
1560 ak Debounce for 8/512ths second then scan keyboard 
1561 ak If key buffer not empty 
1562 ak then return with carry clear 
1563 el If any keys are doun 
1564 a then return with carry set 
1565 ak Shut down CPU 
1566 an If MP=1 or FIMPI set then 
1567 ae Go to MPI 
1568 ax Return with carry set 
1569 ak 
1570 kk History: 
1571 ak 
1572 ak Date Progranner Modification 
1573 BR nnn e nnn ener ee reer nnn none ene enn nnn ene 
1574 . 07/15/82 ~—s«B.S. Updated docunentation 
x 
ee JOO ICO OSI TIT 
1577 JI II IOI TI II SIT IT III III IO ISOS IIIS III ISI IIIT IA 


1578 006C2 7000 
1579 OO06C6 7840 
1580 O06CA 500 
1581 O06CD 8E00 


=SLEEP GOSUB =DEBNCE Scan keyboard 
GOSUB KEY? Is the key buffer enpty? 
RTNNC Return if buffer not enpty 


=LSLEEP GOSUBL =QUT=F Set OUT=O0F. (Bug#39-1000(9)) 
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00 
1582 x 
1583 00603 D2 
1584 00605 803 
1585 00608 8AE 
1586 O06DB 00 
1587 
1588 OO6DD 7220 
1589 OO6E1 841 
1590 O06E4 OB 
1591 O06E6 15C0 
1592 QO6ER 807 
1593 OO6ED 838 
1594 OO6FO 60 
1595 O06F2 68AR LSLEOS 
1596 O06F6 7900 LSLE10 
1597 OO6FA 871 
1598 OO6FD SF 
1599 OO6FF OB 
1600 00701 02 
1601 x 
1602 00703 1B3E RCFINP 
6F2 
1603 0070R 15E0 
1604 OO70E OB 
1605 00710 01 
1606 x 
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C=0 A 
C=IN 
*cHO OA 
RTNYES 


GOSUB RCFINP 
ST=0 1 
CSTEX 

DATO=C 1 
SHUTDN 
?MP=0 
GOYES 
GOTO 8 MPI 
GOSUB RCF1MP 
*ST=1 1 
GOYES LSLEOS 
CSTEX 

RTNSC 


LSLE10 


DO=(5) (=SYSFLG)+10 


C=DATO 1 
CSTEX 
RTN 


4:11 an 
Page 38 


Fri Dec 30, 1983 


Clear fIMPI 


Module pulled? 
Not lately. Detected by intrpt? 
Yes. Handle it. 


f1INPI set? 

Yes. MPI processing. 

No. Restore status bits. 
All is well. 
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1607 STITLE KEY? 
1608 RRO ITO Ok 
1609 FOR IIS JOR TTT TTT TTT TOI 
1610 ae 
1611 tk Nane: KEY? - Is key buffer enpty? 
1612 a 
1613 ** Category: KEYUTL 
1614 ak 
1615 ** Purpose: 
1616 kk Test if key buffer is enpty. 
1617 ae 
1618 tk Entry: 
1619 ax 
1620 ** Exit: 
1621 ak Carry set iff keybuffer enpty. 
1622 a 
1623 xx Calls: None. 
1624 ax 
1625 &k Uses....... 
1626 ah A[XS]}, DO 
1627 ae 
1628 *e Stk lvls: 0 
1629 xx 
1630 ** History: 
1631 ae 
1632 ak Date Progranner Modification 
1633 BR wee w een cece ewer teen nner rr een n nnn en en nce n nnn reece 
1634 i 11/10/82 NM Added docunentation 
ee 20 IO TO III OT III IIIT IIIT OTS ISI IIIT IIIS ISIS ISI ASSIA 
1637 JK III II TID II IIT III II IIIS I ISIS III I III III IIIT ASIII SA IAS 
1638 00712 1B34 =KEY? DO0=(5) =KEYPTR 


4F2 
1639 00719 1522 
1640 0071D 630E 


A=DATO XS 
GOTO ATNCL2 Is buffer enpty? 





1695 
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1641 STITLE CKSREQ 
1642 1 II III ITI IIT III ISI III IIIS ISAS ISI IIS ISI SIS III II III SI ISS II ISSA 
1643 JI III II OI IIT I III IIIT IID IIS STII III IST IIIS IIIT IOS T III IM 
1644 aK 
1645 ** Mane: (S) CKSREQ - Handle service requests 
1646 ie 
1647 ** Category:  GENUTL 
1648 ax 
1649 ** Purpose: 
1650 ae Handle service requests. This routine recognizes 
1651 ax several possible sources of service requests: 
1652 wk 1) Tiner 1--Display code needs service. 
1653 ak 2) Tiner 2--Clock systen needs service. 
1654 ax 3) Tiner 3--Battery check code needs service. 
1655 ak 
1656 ak After exarining above, CKSREQ perforns a poll which 
1657 ax allous: 
1658 aX 1) Handling of SREQs we don’t recognize. 
1659 + 2) Handling related to recognized SREQs (e.g., 
1660 ax scheduling a new external alarn through clock 
1661 ae systen). 
1662 aK 
1663 ax This code is typically called when: 
1664 ak 1) We wake up from a sleep state (delay, etc.). 
1665 ae 2) We recognize that an SREQ is exerted at certain 
1666 ae points in the nainfrarie (e.g., interpreter loop). 
1667 ak 
1668 ** Entry: 
1669 ae Hex Mode 
1670 zs 
1671 ek Exit: 
1672 xs Hex Node 
1673 as 
1674 ** Calls: ACBTSR, CKTNOU, DSPUPD, ALMSRY, PUTPND, FPOLL 
1675 a 
1676 eX Uses....... 
1677 aX A,B,C,D,P,00,01,32 nibs at SCRICH 
1678 ax 
1679 ** Stk lvls: 4 
1680 te: 
1681 ** NOTE: 
1682 eg This code saves the status bits in the user-status 
1683 ay save area used by the display code. 
1684 a 
1685 ** Algorithn: 
1686 oi Set BAT annunciator if low battery 
ee 168? az Save caller’s status bits in display status area 
1688 ee If display tirner has tined out 
1689 as then update display (blink cursor, etc.) 
1690 s Check alarn clock systen 
1691 ee Clear external alarn bit in clock systen status 
16392 * If Except bit set or service request still pending then 
1693 ey Poll (pSREQ) 
1694 A¥ Restore caller’s status 
* Return 
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1696 ne 
1697 ** History: 
1698 Ae 
1699 xk Date Progranner Modification 
1700 1 deenven! Baceweesa! .ecenelasnnn weeteoeesaneeeeweeeton. 
1701 Kk 02/25/83 = NM Added docunentation 
1702 kk 10/25/83 B.S. Updated docunentation 
1703 aX 
1704 FOR JOO IO JOTI IT OO 
1705 FOO JO RII OOO TTR 
1706 00721 8FOO =CKSREQ GOSBVL =ACBTSR Chk Bat if tirer3 pending 
000 
1707 00728 8£00 GOSUBL =GETSTA Get display status 
00 
1708 0072E 1BDF DO=(5) (=TIMER1)+5 
3E2 
1709 00735 8FOO GOSBVL =CKTMOU Tine for display update? 
000 
1710 0073C 580 GONC CKSR10 No, then continue 
1711 0073F 8E00 GOSUBL =DSPUP1 Yes, then update display 
00 
1712 00745 CKSR10 
1713 x 
1714 * Alarn clock systen does very little processing if its tiner 
1715 * is not tined out 
1716 x 
1717 00745 8F00 GOSBVL =ALNSRV Service alarn clock systen 
000 
1718 0074C 845 ST=0 5 Clear external alarn bit 
1719 OO74F 09 C=ST 
1720 00751 8FOO GOSBVL =PUTPND Write out pending alarn bitnap 
000 
1721 x 
1722 00758 87C ?ST=1 Except Exception flag set? 
1723 00758 DO GOYES CKSR20 Yes, nust poll. 
1724 0075D 80E SREQ? SREQ still pending? 
1725 00760 834 ?S$R=0 
1726 00763 BO GOYES CKSR30 No. 
1727 00765 824 SR=0 Yes, then clear bit 
1728 00768 76BC CKSR2O GOSUB fpoll Poll. 
1729 0076C SF CON(2) =pSREQ 
1730 0076E 8C00 CKSR3 GOLONG =USRSTR 
4) 
1731 k 
1732 III IIIA IIT IIT IISA III III I IIS IOIIIIIIS SSSI IIIS IIS ISI IISSSS SSSI 
4733 III KIT DDI II I IIIT III III III ISIS IIIS SSIS SISISII IIS III SISS SIS SSIS 
1734 a 
1735 **k Nane:(S) pSREQ - Service Request poll 
1736 ax 
1737 ** Category: POLL 
1738 aX 
1739 *k Type: FPOLL 
1740 eis 
1741 xk Purpose: 


1742 ax Allow LEXFILE processing when a hardware service 
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1743 kk request 1s exerted. 
1744 kk 
1745 **k Should poll be “Handled” (return with XN=0)?: 
1746 xx NO'!) NEVER! ! 
174? ax 
1748 ** Heaning of "Handling" Poll (what does code do if handled?): 
1749 aR N/A 
1750 aK 
1751 ** Entry conditions for handler (registers, ST, RAM, etc.): 
1782 ‘x Carry set. 
1753 ks B[A] = pSREQ. 
1754 ax HEX rode. 
1755 Kk P=0, 
1756 aK f1DORM flag is set if nachine is in nain loop 
175? ak qonank 
1758 aK 
1759 ** Norrial exit conditions fron handler if handled (ST, RAN, 
1760 *k registers, etc.): 
1761 ak N/R 
1762 a 
1763 kk Nornal exit conditions from handler if not handled (ST, RAN, 
1764 ** registers, etc.): 
1765 Kk HEX rode. 
1766 Kk XN=1, 
176? ae 
1768 ** Available subroutine levels: 
1769 ae 2 
1770 xx 
1771 ** NOTE: 
1772 ax D[A}, and RO-R4 must be preserved. 
1773 a 
1774 ae A copy of the user’s status bits as they existed on 
12775 ax entry to CKSREQ exists at DSPSTA (the 3 nibbles used 
1776 7 by display routines to save status bits). Do not 
177? a destroy this copy; it 1s needed so ST can be restored 
1778 aS after the poll. 
1779 at 
1780 ax The available scratch RAM 1s, conveniently, just enough 
1781 oe to use the clock systen safely. You can save RO and R1 
1782 kk at SCRTCH, D[A] at SCREXO, and subroutine levels in 
1783 aK SCREX1, SCREX2, SCREX3. 
1784 aK 
1785 = This poll IS NOT a tine to take over the nachine. It 
1786 xs Hay occur during display delay, program execution, 
178? ss character editing, wait, etc. This poll IS a tine for 
1788 eR handling service requests non-disruptively (such as 
1789 a scheduling an alarn, doing a beep, setting the 
1790 x exception flag, or anything else which does not disrupt 
1791 as the flow of whatever was going on when you generated 
1792 - your service request) and for setting up to take over 
1793 ae the machine (such as setting a flag which tells you to 
1794 ae grab the exception poll or the deepsleep poll). 
1795 ae 
1796 *k What registers/RAMN nay be used if handled?: 


1797 aS N/A 
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1798 aK 
1799 ** What registers/RAM nay be used if not handled?: 
1800 = A-C, D{15-5), DO, D1, P, ST. 
1801 ax First 32 nibbles at SCRTCH. 
1802 ae SCREXO, SCREX1, SCREX2, SCREX3. 
1803 at 
1804 ** Special nenory/pointer considerations (are pointers funny?): 
1805 ax We could be in CALC node. 
1806 Ae 
1807 ** Envisioned application(s): 
1808 an Scheduling external alarns though the clock systen is 
1809 aR one very inportant application. If a few sinple rules 
1810 za are followed when dealing with the clock systen, 
1811 AK everything should work just fine: 
1812 ak 
1813 ah Rule #1: If the current external alarn is past due 
1814 aR (before current tine), you nay schedule an 
1815 ak external alarn. 
1816 ak Rule #2: If the current external alarn is not past 
1817 ak due, you may only schedule an external alarn 
1818 ak if a) your alarn is not past due, and b) it 
1819 ak occurs before the currently scheduled 
1820 ax external alarn. 
1821 aR Rule #3: You can tell if one of your alarns is 
1822 ak pending by conparing it to the current tine. 
1823 ak Do not count on the current value in the 
1824 ae external alarn slot being yours... sonebody 
1825 aR nay have followed rule #2 and junped in 
1826 ax ahead of you. 
1827 xk 
1828 sa 
1829 xe Another application: Reriote Keyboard. Presunably your 
1830 a code is associated with sone hardware (an HPIL nailbox, 
1831 a naybe) which has exerted a service request because of a 
1832 ak renote keyboard. Take this poll as an opportunity to 
1833 ae stuff a key# in the keybuffer. If it is not a key# 
1834 ak which can be understood by the machine, you can define 
1835 x it by handling the key definition poll. 
1836 xk 
1837 xk History: 
1838 a 
1839 eR Date Prograriner Modification 
4840 Ti ene “Gaotdiaaes imedestweneuacatavuirallenenou Sas 
1841 kK 03/23/83 = NN Added docunentation 

aR 

a JI II OI ITI TIS III IIIT TIE ITI I IIIS IIIT III IIS SI II ISI IAS 


1844 FORO IIT TOI TOT II 








Saturn Asseribler 


Nain Driver «831216. 1559> Fri Dec 30, 1983 4:11 an 


Ver. 3.39/Rev. 2306 KYDN? Page 44 
1845 STITLE KYON? 
1846 JIS III III III I III ITI TT TTI IIIT IAI ITI TI III ISI II IIIS II ISI SK 
1847 III I III III III ITI TI IIIT TTI TI TI III III IIIT III III III I III IIIS IIS IK 
1848 Ak 
1849 ** Nane:(S) KYDN? - Is a Key Down in Current Rou? 
1850 a 
1851 ** Category: CONFIG 
1852 ae 
1853 xt Purpose: 
1854 *R Deterrine if a key 1s down which could cause a problen 
1855 ak for configuration. 
1856 a 
1857 *k Entry: 
1858 xe 
1859 aS Exe: 
1860 aK Carry clear if a key is down in the currently energized 
1861 xR rou(s), else carry clear. 
1862 RE 
1863 ** Calls: None. 
1864 BR 
1865 RE USOS. oy cin 
1866 a None 
1867 ee 
1868 Xe Stk lvls: 1 
1869 ae 
1870 ** NOTE: 
1871 = A brief description of the problen: If 2 or nore keys 
1872 ax are down in a colunn, and a row containing one of the 
1873 ak keys is energized, the riultiple keys short the routs 
1874 x together, resulting in energizing multiple rows. In 
1875 a configuration, this anounts to addressing more than one 
1876 an port daisy chain at once, which can lead to disaster. 
1877 aR This routine 1s called at appropriate tines to ensure 
1878 ae that no keys are down that can screw up configuration. 
1879 ae 
1880 ** Detail: 
1881 an Preserves all registers at the expense of a subroutine 
1882 ax level. 
1883 me 
1884 ** History: 
1885 “ 
1886 a Date Programmer Nodification 
1887 BE Reakteeee: Resa tee ann wetn Gade es maded tan tena een bees cam 
1888 kk 09/16/82 NM Added docunentation 
1889 mx 
1890 JOIOIOII III ISI IOI IOI IO TOA III II 
1891 FORT UU OOOO OI IOI OTE TORO OE 
1892 00774 06 =KYDN? = RSTK=C Save C 
1893 00776 803 C=IN 
1894 00779 F2 CSL 
1895 0077B C6 C=C+C A Knock off upper 2 bits in IN reg 
1896 0077D Co C=C+C A so we are left with lower 14. 
1897 OO77F CE C=€-1 A Set carry if no keys down (IN=0) 
1898 00781 07 C=RSTK Restore C 
1899 00783 01 RTN 


Saturn Assenbler Main Driver «831216. 1559> Fri Dec ®, 1983 4:11 an 
Ver, 3.39/Rev. 2306 KYDN? Page 45 


1900 00785 END 
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ACBRT? 
ACBTSR 
ALASRV 
ANNADZ 
ATNC LI 
ATNCL2 
=ATNCLR 
ATNF LG 
ATNTST 
ATIN10 
=ATININ 
AUTCLR 
AUTOCK 
AUTXQ7 
AVNEMS 
BF 2DPP 
BF2DSP 
BLOBIT 
BLDDSP 
BLOLCD 
C=RANE 
C=SCRL 
CALC 

=CALC ) 

CHEDIT 
CK" ON" 
CKSR10 
CKSR20 
CKSR30 
=CKSREQ 
=CKSUM1 
CKTNOU 
CLCERR 
CLEOLL 
=CLOST1 
CLOST2 
CNOOFF 
CMOS TK 
CMOS Tk 
CNOSTY 
CNOSTH 
=COLDSN 
=COLDST 
COLLAP 
CONF 

CONTK 
CONTK) 
=CRLFPR 
CSTRST 
CURSB) 
CURSD)} 
CURSFR 
CURST) 
CURSU) 
Clear 


Ext 
Ext 
Ext 
Ros 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Rbs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Ros 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


188674 #2E102 
1296 #00510 
1313 #00521 
1296 #00510 

193602 #2F442 
1242 #OO4DA 
1275 #004FB 
1251 #OO4E3 


193940 #2F594 


1217 #004C1 


1861 #00745 
1896 #00768 
1902 #0076E 
1825 #00721 

13 #00000 


494 HOO1EE 
539 #0021B 
1224 #004C8 


1183 #004 9F 
5775 #0168F 
193592 H2F4 38 
1679 #OO8F 

Q #00000 


1205 #004B5 
808 #00328 


# @ & £F § £F F 4 Ff 


ft £ ¢ ¢€ 


1186 
1706 
1159 
13 
313 
917 
912 
13 
866 
873 
868 
386 
578 
580 
13 
669 
404 
263 
264 
265 
380 
664 
830 
830 
266 
866 
1712 
1728 
17H” 
1706 
81 
1709 
655 
677 
343 
356 
833 
813 
813 
13 
13 
1482 
7? 
676 
369 
824 


824 


648 
379 
810 
808 
704 
809 
807 
870 


Main Driver <831216.1559> 


1717 
231 
1121 
1640 
703 
913 
663 
871 
708 
874 


381 
1114 


717 


1710 
1723 
1726 


78 
700 
719 
206 
204 


403 
210 


710 


1111 
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1126 
1160 1176 


875 
668 674 
716 


775 


345 
344 
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DDICTL Abs 189439 #2E3FF 13° 1124 1476 


DDICTL Abs 188927 H2E1FF - 13° 1128 
DEBNCE Ext - 267 1578 
DISINT Abs 193648 #2F470 - 13. 197 
DPSO10 «Abs 1401 #00579 - 1106 959 
DPSO23 Abs 1403 #0057B - 1108 

DPSO24 Abs 1410 #00582 - 1109 1188 
DPSOW Abs 1431 #00597 - 1114 1112 
DPSO35 Abs 1437 #0059D 1115 1187 
DPSO40 Abs 1506 #OO5E2 1155 

DPS100 Abs 1629 #0O65D 1187 1177 
DPS101 Abs 1633 #00661 1188 1185 


1170 1163 1167 
1178 1161 1175 


DPS150 Abs 1564 #0061C 
DPS200 Abs 1590 #00636 


t t ' ’ ‘ ' ' i) 


=DSLEEP Abs 1389 #0056D 1102 

DSPCHA Ext 268 

DSPRST Ext - 269 

DSPUP1 Ext - 1711 

DSPUPD Ext - 270 

DWIDTH Abs 194895 H2F94F - 13 398 401 
EDITWF Ext - 407 

EOLK Abs 1193 #004A9 - 817 707 
Except Abs 12 #00O00C - 12 1722 
FIBOFF Ext - 1108 

FINLIN Ext - 872 

FPoll) Ext - 722 

GETSTA Ext - 869 1707 
I/OALL Ext - 417 782 
I/ODAL Ext - 683 1158 
I/OFND Ext - 961 966 
TEXKEY Abs 1064 #00428 - 773 688 
TEXKYE Abs 1150 #0047E - 802 784 
INITCL Ext - 372 

INTA Abs 193552 #2F410 - 13. 167 255 
INTB Abs 193568 #2F420 - 13 169 252 
INTM Abs 193584 #2F4% - 13 242 
INTR1O Abs 68 #00044 - 178 176 
INTR19 Abs 98 #00062 - 190 189 
INTR20 Abs 118 #00076 - 196 186 194 
INTR26 Abs 145 #00091 - 204 200 
INTR27 Abs 170 HOOORA - 213 209 
INTR28 Abs 185 #000B9 - 228 216 . 
INTR4 Abs 193536 #2F400 - 13. 165 267 
=INTRSO Abs 219 H0000DB - 241 203 
INTR9O Abs 241 HOOOF1 - 249 247 
sINTRPT flbs 15 #OOO0F - 163 

IS-TBL Abs 194445 #2F78D - 13. 392 
=KEY? Abs 1810 #00712 - 1638 1579 
KEYPTR Abs 193603 #2F443 - 13 1638 
KEYSAV Abs 193634 #2F462 - 13. 228 
KEYSCN Ext - 271 
=KYDN? = Abs 1908 #00774 - 1892 
=LCDINI Abs 1637 #00665 - 1472 358 
LINEP = Ext -~ 818 

LINEP+ Ext - 799 
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LINEP} 
LOCKD? 
LSLEOS 
LSLE10 
=LSLEEP 
MAINO1 
=MAINOS 
MRINOG 
MAINOS 
=MAIN1O 
=MRINW 
MAIN40 
=MAINLP 
MAKE BF 
“ MAXCHD 
MENERX 
MNFERR 
NOVEU3 
MPI 
MPI10 
MPI20 
NOPRGN 
NOSCRL 
NoCont 
Nxtstri 
OUT=1 
OUT=F 
PAS2+ 
POPBUF 
=PROMPT 
PUTPND 
PUCONF 
PWIDTH 
PWROSO 
PUR100 
=PUROFF 
=PUROFS 
PgnRun 
RCLSTA 
RCf NP 
RNSEED 
ROWDVR 
RPTKY 
RINCC 
RUNK 
RUNK } 
ae Range 
SCRLLR 
SCROLT 
SFLAG? 
SFLAGC 
SFLAGS 
=SHUTDN 
=SLEEP 
SST 


Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 


1144 


1778 
1782 
1741 
778 
824 
840 
888 
894 
894 
991 
765 


194934 


411 
436 
466 


14 


2 
812 


194904 
1349 
1356 
1318 
1375 

13 


1795 
194302 
189264 

167? 


1199 


194886 


1506 
17% 
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Syribol 
#00478 


HOOBFZ 
#OO6F 6 
#OO6CD 
#00 30A 
#00338 
#00348 
#00378 
#0037E 
#00 37E 
#00 3DF 
#002FD 


#2F 976 


#00158 
#00184 
#00102 


HOOOOE 


#00002 
#00 32C 


#2F 958 
#00545 
#0054( 
#00526 
#OOSSF 
#00000 


#00 703 
#2F OFE 
#2E 350 
#0068) 


#004 AF 


#2F 946 


H#OO5E2 
#00602 


799 
1184 
1595 
1596 
1581 

573 

653 

657 

669 

671 

672 

701 

568 

272 

13 

804 

337 

794 

319 

326 

335 

65? 

873 

12 
ero 
1130 
1581 
11 

273 

649 
1720 

336 

13 

363 

965 

955 

971 

12 
1110 
1602 

13 

13 

274 
1479 

821 

824 

638 

275 

13 

283 

834 

835 
1154 
1578 

827 


964 


1598 
1594 
282 
570 
579 
654 
666 
662 


696 
876 


364 


195 
334 
328 


388 


1155 
401 
96? 
962 
571 

1109 
387 


190 
423 
1472 


709 


3614 


814 


699 
968 


1595 


675 


718 


1588 


1696 
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SST) Abs 1211 #004BB - 827 711 
STMBCL Ext - 681 
SYSFLG Abs 194265 #2F6D9 - 13 1602 
TBLINC Ext - 706 
TIMER1 Abs 189432 #2E3F8 - 13. 1708 
TIMERS Abs 188920 H2E1F8 - 13. 323 

=TNOFF? Abs 1711 HOOGRF - 1522 569 
USRSTA Ext - 17H” 
VECTOR Abs 193596 #2F43C - 13 350 

=VECTR! Abs 517 #00205 - = 349 
VIEWD1 Ext - 276 

=WRKEUP Abs 894 #O037E - 673 
WARMIX Ext - 281 
WIPOUT Ext - 354 385 
WRTTHR Ext - 3 


achat? Abs 1622 #00656 - 1186 376 
bECOMD Abs 2057 #00809 - 12 960 1157 


bF IB Abs 2051 #00803 - 12 413 
bIEXKY Abs 2050 #00802 - 12 682 781 
bSTART Abs 2056 #00808 - 12 965 


=bldbit Abs 285 #0011D - =. 263 
=blddsp Abs 292 #00124 - 264 
=bldicd Abs 299 #0012B - 265 
=chedit Abs 6 #00132 - 266 8687 
cleerr Abs 833 #00341 - 655 574 
cursbj Abs 1177 #00499 - 810 715 
cursd} Abs 1165 #0048D - 808 713 
curstj Abs 1171 #00493 - 89 714 
cursu) Abs 1159 #00487 - 807 712 
=debnce Abs 313 #00139 - 267 237 
=dspcha Abs 320 #00140 - =. 268 
=dsprst Abs 327 #00147 - 269 355 
=dspupd Abs 334 HOOI4E - = 270 


eMPI Ext = 339 

fFCALC? Ext a. SES: “653 

FIALRM Abs -60 HFFFC4 - 12 1180 

fFICMDS Abs -47 #FFFD1 - 12. 833 

f1DORN Rbs -43 #FFFDS - 12 658 685 701° 773 
f1MKOF Abs -50 RFFFCE - 12. 1119 1522 

f1NOPR Abs -26 HFFFE6 - 12 660 679 

fIPWDN Abs -49 HFFFCF - 12 957 1104 

fl1TNOF Abs -$1 WFFFCD - 12 1117 1168 1173 1525 


fpoll Abs 1058 #00422 - 722 429 575 1115 1170 1182 1728 
=keyscn Abs 341 #00155 - 271 335 
=lsleep Abs 400 #00190 - = 282 
=nakebf Abs 348 #OO15C - 272 


nokeys Ext - 868 1178 
pCLDST Abs 255 HOOOFF - 12 4380 
pOSWKY Abs 253 ROOOFD - 12 1183 
pDSWNK Abs 254 #OO0FE - 12 1171 
pliNLP Abs 250 #OOOFR - 12 576 
pPWROF Abs 252 #HOOOFC - 12 1116 


pSREQ = Abs 249 HOOOFS - 12 17293 
=popbuf Abs 365 #00163 - 273 
=reconf Abs 383 #0017F - 277 
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=rptky Abs 362 HOO16A - 274 

=scrllr Abs 369 #00171 - 275 66? 

=sflag? Abs 404 #00194 - 283 661 1174 1523 1526 

=sflagc Abs 1228 #004CC - 834 680 702 774 1105 1120 1169 1181 
=sflags Abs 1235 #00403 - 835 659 686 958 1118 

=viend1 Abs 376 #00178 - = 276 

=warnix Abs 394 #0018R - = 281 
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Input Paraneters 
Source file nane is SB&DVR:: NS 
Listing file name 1s SB/DVR:TI:ML::-1 
Object file name is SBZDVR: TI:MS::-1 


411111 
0123456789 12345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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ww oo SON ON & Ww AO -— 


19 00000 24 
11 00002 


HP-71 


TTT 
T 


T 
T 
T 
T 
I 


Revision Nunber Fri Dec 30, 1983 5:20 an 


Page 1 
TT III & RRRR EEEEE VV 
I && R RE VOY 
I && R RE VOY 
I é RRRR_ = EEEE VV 
I &&& RR E VV 
I && RR E Vv 
III 8&& R R_ EEEEE v 


TITLE HP-71 Revision Nunber 
NIBASC \B\ 
END 
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Input Paraneters 
Source file nane is TI&REV::MS 
Listing file name is TI/REV:TI:ML::-1 
Object file nane is TIZREV:TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Asseribler Neus 


Fri Dec 30, 1983 5:20 an 
Page 2 
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NWO & wr — Won nmnhwnrn — WONNM DWM OWONDMN LP wWM 


38 
39 


40 
4} 
42 
43 
44 
45 
46 
4? 
48 


49 
50 
51 


00787 


0078? F7F? 
FPF? 
F? 


00791 8001 
ESF? 
C1 


ASCII Tables (Rounded Letters) Fri Dec 30, 1983 4:06 an 
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* SSS. BBBB 8 BBBB) sFIIT =TITTT 
x S$ S$ B B &&% B B I T 
‘ S B B &&% B. °36. «J T 
x SSS. BBBB & BBBB I T 
S$ 68 B &&& B 8B I T 
S$ S$ B 8B & & 8B 8B I T 
: SSS. BBBB. 8&8 & «=BBBB-EOITI T 


TITLE ASCII Tables (Rounded Letters) 


ABS #787 
JU TIIIIOOIIITIOITOCGOOOOTOTIIIIIITTI TTT IT ITT I IK 


TORII II III OOOO ITT ITO SII TTI ITI ITT IN 
Kx 


kk Wane: (S$) ASCII - ASCII Bit Pattern Tables 

kk 

*x Category:  DSPUTL 

ax 

** Purpose: 

“ Bit patterns for built in character set. 

ax 

** Detail: 

ax The bit pattern for each character requires 10 

aK nibbles, Each of the 5 pairs of nibbles defines 
ax one display colunn. Each column has 8 bits where 
a the lsb of the byte is the top row and the nsb is 
3% the bottor row. The bit pattern for an ASCII char 
Ay nay be found by reading 10 nibbles at the address 
a ASCII + 10 * (Chart). 

ik 

*x History: 

&k 

xx Date Progranner Modification 

RAS Joes Sok ce see | Ue Sete ee Se Sola eae eo 
kx 07/29/83 B.S. Updated docunentation 

ka 


SOR UII IIIT IIIT IOI TTI ITO ITOK 
FOR III III TOR IC 


=REPCUR NIBHEX FF 7F7F 7F 7 Replace cursor 


k 
k 
k 
x 
t 
x 
x 
x 
=INSCUR NIBHEX 80C1E3F7C1 Insert Cursor 
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57 00798 

58 0079B 0000 
0000 
© 


67 OO7A5 0070 
5070 


76 OO7AF 5492 
1192 
54 


85 007B9 8001 
A280 


94 00703 8344 
4433 


ASCII Tables (Rounded Letters) 


ASCII 


we eS Oe eH Oe OF + ee Be SS eH ee ee eS ee Oe 


OF 0 OF OE OF 


eo e@« 8s 8© 8 @ 


ee ee e ew 8 @ 


Char 00 


Char 01 


Char 02 


Char 03: 


Char 04 


Fri Dec 3, 1983 4:06 an 


Page 2 


: Null 


: Degree 


: XBar 


Left Arron 


: Alpha 
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97 
98 
99 
100 
101 
102 
103 


104 
105 
106 
107 
108 
109 
110 
111 
ite 


113 
114 
115 
116 
11? 
118 
119 
120 
121 


122 
123 
124 
125 
126 
12? 
128 
129 
130 


131 
Te 
133 
134 
135 
136 
13? 
138 
139 


140 
141 


007CD 


00707 


007E1 


00 7EB 


OO 7F5 


CFAO 
RAR4 
43 


F710 
1010 


0303 
£703 
03 


F151 
AO85 
86 


8344 
(443 
40 


Oe Oe OF OF 


ee ee ee OF es Fe ee ee OM 


ee ee ee ee 


a ee Oe ee OO 


ASCII Tables (Rounded Letters) Fri Dec 3, 1983 4:06 an 


> © © e 8 «6 


re aes 
Se 44 
Ores a4 
@.@@a. 
@e@e.@.. 
ares oe 

@@. 


Page 3 


Char 05: Beta 


Char 06: Garna 


Char 07: Bell 


Char 08: Backspace 


Char 09: signa 


Saturn Assenbler ASCII Tables (Rounded Letters) Fri Dec 30, 1983 4:06 an 


Ver. 3.39/Rev. 206 Page 4 

142 * ~-@ eee. 

143 . @.@.2.; 

144 a @..@. 

145 x @..@, 

146 a .@@., 

147 Ona cy rte ee Oe 

148 OO7FF FO8 NIBHEX FO80008782 Char OA: Linefeed 
0087 
82 

149 x Oa oe ac 

50 e Dmg de gs 

151 * @ ce oe 

152 * @@.@@. 

153 ‘ ere ae 

154 x .@@, 

155 - .@.. 

156 Bo bere, 

157 00809 17A0 NIBHEX 1780408007 Char OB: Lanbda 
4080 
07 . 

158 . Oe hes 

159 . pie ate. 

160 x sn igh Oa a 

161 * .@.@, 

162 > @...4 

163 x @...@ 

164 - @. @ 

165 Bn gh ths eat a ees 

166 00813 CFO4 NIBHEX CFO404( 304 Char OC: Mu 
04C3 
04 

167 Rea eGR ase hos 

168 Me a oh Sang 

169 x @..@ 

170 * @..@ 

171 * @.. 8 

172 . @..@ 

173 x @e@.@ 

174 . Sige os tae 

175 0081D 0207 NIBHEX 02078A02F 3 Char 0D: Carriage Return 
8AC2 
F3 

176 x ies 

177 x .@. 

178 * ps 

179 * @.@. 

180 x .@..@., 

181 x eeee@ee. 

182 x @.... 

183 * ie ig, MO ds dod 

184 00827 8040 NIBHEX 8040C 74020 Char OE: Tau 
C740 
20 

185 BO as 


186 n goa ae % 
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187 

188 

189 

190 

191 

192 

193 00831 8055 
F755 
80 

194 

195 

196 

197 

198 

199 


202 0083B £394 
9494 
E3 


211 00845 C526 
2026 
C5 


219 

220 OO84F O3A4 
D494 
03 

221 

eee 

2c 

224 

225 

226 

ee? 

228 

229 00859 0083 
4544 
00 

230 

231 


+ % Me FF Oe OF Oe OE + Mh Fe ee Oe e* % Fe ee 


ee ee ee 


NIBHEX 8055F 75580 


.@e@e@.. 


e 8 © 8 28 8 


. 8 8 8 @ @ 


. © © © 8 @ 


ASCII Tables (Rounded Letters) Fri 


Char OF: 


Char 10: 


Char 11: 


Char 12: 


Char 13: 


Dec 30, 1983 4:06 an 
Page 


Phi 


Theta 


Onega 


delta 


epsilon 
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232 

233 

234 

235 

236 

237 

238 00863 40(7 
40C7 
40 

239 

240 

241 

242 

243 

244 

245 

246 

247 0086D C731 
2131 
C? 

248 

249 

250 

251 

252 

253 

254 

255 

256 00877 0255 
4555 
87 

257 

258 

259 

260 

261 

262 

263 

264 

265 00881 C334 
2434 
C3 

266 

267 

268 

269 

270 

271 

272 

273 

274 0088B 8354 
4454 
83 

275 

276 


oe 0 Me Oe 0 Oe OF we MS ee ee Se ee ee lt *» + 6) 


*  @ ele 


ASCII Tables (Rounded Letters) 


7. 8 © 8 8 @ 


oo 8 © e@ @ @ 


Char 14: 


Char 15 


Char 16: 


Char 17 


Char 18: 


Fri Dec ®, 1983 


pi 


: A Unlaut 


a Unlaut 


: O Unlaut 


o Unlaut 


4:06 an 


Page 


6 


Saturn Assenbler 
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27? 
278 
279 
280 
281 
282 
283 00895 C314 
0414 
C3 
284 
285 
286 
2387 
288 
289 
290 
291 
292 OO89F C314 
0403 
04 
293 
294 
295 
296 
297 
298 
299 
300 
301 OO08AS F151 
1705 
05 
302 
303 
304 
305 
306 
307 
~ 308 
309 
310 008B3 1436 
5594 
36 
311 
312 
313 
314 
315 
316 
317 
318 
319 OO8BD 4143 
C161 
41 
320 
321 


Fe 0 OF OF OF OO ee Oe OF Oe Ot ee Oe Oe Oe Oe Oe Oe + > % OF Oe 


we Fe OF ee ee 


"= 8 © e 8 @ 


NIBHEX 1436559436 


@e@eea@e. 
¢ 5 Ws 


ASCII Tables (Rounded Letters) 


Char 


Char 


Char 


Char 


Char 


Fri Dec 30, 19883 4:06 an 


19: 


1A: 


1C: 


Page 7? 


U Unlaut 


u Unlaut 


: Escape 


Signa 


: NotEqual 


Saturn Asseribler ASCII Tables (Rounded Letters) Fri Dec 30, 1983 4:06 an 
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322 
323 
324 
325 
Bee RE te 
S2F) ew Re ee ee ere 
328 008C7 84E7 NIBHEX 8467941420 Char 1£: Pound (English) 
9414 
20 


*» we S & 
- ®- 
®> 
- @® 
® 
® 


Ww 
w 
KR 
Fe OF OO OF OF 
. 8 @Me se 
DDODD 
® 


G50: ewe heated ee Ge 

337 008D1 55A2 NIBHEX 55A255A255 Char 1F: 
55R2 
55 


nr 
Me Ob 0 OF Oe OF 


346 008DB 0000 NIBHEX 0000000000 Char 20: (space) 
0000 


oe 8 © © 8 
* 2 8 © @ 
e 6 © © © © 
eo 8 8 © 2 
- 2 © @ © 8 
o 8 © © e 8 


WwW 
wn 
—_ 
we 3% 6 OS MS OF Oe 


355 OO8E5 0000 NIBHEX OOO0F 50000 Char 21: ! 
F500 
00 

356 

35? 

358 

359 

360 

361 

362 


* SF Ot ee 


e 8 8 © 8 2 


364 OO8EF 0070 NIBHEX 0070007000 —s Char 22: " 
0070 
00 
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36? 
368 
369 
370 
371 
Bieen eh Se eae S 
373 OO8FS 41F? NIBHEX 41F 7417741 Char 23: # 
41F? 
41 


- + ee 


374 
375 
376 
377 
378 
379 
380 : 
381 Bate Pensa este oe Sas 
382 00903 42R2 NIBHEX 42A2F7A221 Char 24: $ 
F?R2 
21 


* ee ee ee Oe Oe 


383 
384 
385 
386 
387 
388 
383 : igh Be 
BIO ane | oe Canny aah ch le 
391 00900 3231 NIBHEX 3231804626 Char 25: % 
8046 
26 


Oe Oe OF Oe OF OF 
@® 
® 
-» 


392 
393 
394 
395 
396 
39? 
398 eo i 
OIF ee teat, noe ob an are Re 
400 00317 6394 NIBHEX 6394650205 Char 26: & 
6502 
05 


ee Oe OOO 
*® 


401 


> 
2 
st 
Me Oe Oh Oe Oe Ot OOF 


409 00921 0000 NIBHEX 0000 700000 Char 27: ? 
7000 
00 
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412 

413 

414 

415 

416 

417 

418 0092B 00C1 
2214 
00 

419 

420 

421 

422 

423 

424 

425 

426 

427 00935 0014 
2201 
00 

428 

429 

4n 

431 

432 

433 

434 

435 

436 0093F 80R2 
CiR2 


80 

437 

438 

439 

440 

441 

442 

443 

444 

445 00949 8080 
E380 
80 

446 

447 

448 

449 

450 

451 

452 

453 

454 00953 O00B 
0700 
00 

455 

456 


ee he Se HF Oe * ee ee ee » we ee OF OF 


0 FF OF 


ee Oe Oe OF OF 


ASCII Tables (Rounded Letters) 


e 8s 28 8 # @ 


ee 8s e«# © 8 @ 


Char 28: 


Char 29: 


Char 2A: 


Char 2B: 


Char 2C: 


Fri Dec 30, 1983 


( 


) 


4:06 ar 


Page 


10 
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45? 

458 

459 

460 

461 

462 

463 0095) 8080 
8080 
00 

464 

465 

466 

467 

468 

469 

470 

471 

472 00967 0006 
0600 
0 

473 

474 

475 

476 

47? 

478 

479 

480 

481 00971 0201 
8040 
20 

482 

483 

484 

485 

486 

487 

488 

489 

490 00978 E315 
9454 
E3 

491 

492 

493 

494 

495 

496 

497 

498 

439 00985 0024 
F704 
oo 

500 

501 


ee ee Oe OO ee ee ee ee Oe ee ee Oe Oe OF Oe ee Oe ee OF 


ASCII Tables (Rounded Letters) Fri Dec 30, 1983 4:06 an 


se ee 2 @ 8 © 
e 8 © @ 8 © 
oe 8 © #8 @ 8 


“© © © «@ « 
oe 6 © © © «© 
o 8 © © we 
. © © © 8 «© 


eo 8s 8 e 8 @ 


eo 8 = 8 2 28 


NIBHEX 0024F 70400 


Page 11 


Char 2D: - 


Char 2E: . 


Char 2F: / 


Char 30: 0 


Char 31: 1 


Saturn Assenbler ASCII Tables (Rounded Letters) Fri Dec 30, 1983 4:06 an 
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DBD® 


S 
mn 
% 0 0 OF 


7 

508 0O98F 2615 NIBHEX 2615949464 Char 32: 2 
9494 
64 

509 

510 

511 

512 

513 

514 

$15 

BI le ce a NE ee erat Se 

517 00999 2294 NIBHEX 2294949463 Char 33: 3 
9494 


Oe OO OE OE Oe OE 
® 


63 
518 
519 
520 
521 
522 
523 
524 
BED tate. | het, See eee ge 
526 0O9A3 8141 NIBHEX 814121F 701 Char 34: 4 
21F7 
01 


ee He ee HH Oe OF 


527 
528 
629 
530 
531 
532 
533 Be : 
BOs ee ae 0 Te ee & 
535 OOSAD 7254 NIBHEX 7254545493 Char 35: § 
5454 
93 


* 3% 0% 0 Mh OH He 


536 
§37 
§38 
§39 


x 
x 
x 
x 
540 x @ 
x 
x 
x 


544 009B7 C3A4 NIBHEX €3R4949403 Char 36: 6 
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553 009C1 1017 
9050 
0 

554 

555 

556 

557 

558 

553 

560 

561 

562 009CB 6394 
9494 
63 

563 

564 

565 

566 

567 

568 

569 

§70 

571 00905 6094 
9492 
E1 

Sie 

573 

574 

575 

576 

577 

578 

579 

580 OOSDF 0063 
6300 
00 

581 

582 

583 

584 

585 

586 

58? 

$88 

589 OO9E9 006B 
6700 
00 

590 

591 


a oe 0 ee Oe OF OF > 0 Oe FO 0 Oe oe OF Oe  M OF Fe OF OF 


a Oe Fe Oe OF 
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NIBHEX 1017905030 


@eea@e, 
ABS at to HO 


= * © 2© 2 @ 


© 2 © © 8 


Page 13 


Char 37: 7? 


Char 38: 8 


Char 39: 9 


Char 3A: : 


Char 38: ; 
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592 

593 

594 

595 

596 

597 

598 O09F3 8041 
2214 
00 

599 

600 

601 

602 

603 

604 

605 

606 

607 OOSFD 4141 
4141 
41 

608 

609 

610 

611 

612 

613 

614 

615 

616 OORO? 1422 
418 
00 

617 

618 

619 

620 

621 

622 

623 

624 

625 OOR11 2010 
15% 
60 

626 

627 

628 

629 

630 

631 

632 

633 

634 OOR1B £314 
D594 
£4 

635 

636 


oe ee Se ee Oe ee * Se Se ee Oe ee we ee Oe ee Oe % 0 0 


sw ee OF Oe OF Oe 


ASCII Tables (Rounded Letters) 


oe 8 @ @© #@ 8 


s © © 8 #8 @ 


oo Ff © @© @# « 


Char 3C: 


Char 3D: 


Char 3€: 


Char 3F: 


Char 40: 


Fri Dec }, 1983 


4:06 an 
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637 x @e.@.@ 

638 x @.@@6@ 

639 % @.@. 

640 Bs AB 8 se ek 

641 x @@@@ 

642 ee oe ee 

643 OOAZS E790 NIBHEX £7909090E7 Char 41: A 
9090 
E7 

644 x eee 

645 x @...@ 

646 * @...4@ 

647 x @e@ee@ee@ 

648 @...@ 

649 & @...@ 

650 - @e...@ 

651 BN te Sef G oe 

652 OOAZF F794 NIBHEX F794949463 Char 42: B 
9494 
63 

653 x @e@e.. 

654 - Gs 4.4 8% 

655 x @...@. 

656 7 @ee@e@e.. 

657 x Oe Bs 

658 x Ge ey 

659 : ee@e@e.. 

660 Renee SN eghed da ie: ees 

661 OOA39 E314 NIBHEX £314141422 Char 43: C 
1414 
22 

662 . .@@e@.. 

663 s Cg Oy 

664 x Oe chara 

665 - gs he cers 

666 ‘ Cs, Bik as 

667 x @...@ 

668 . .@@e@ 

669 Bk, Ree fee ad ae id 

670 OOR43 F714 NIBHEX F7141422C1 Char 44: D 
1422 
C1 

671 * @e@e@e.. 

672 . Bio ar ees 

673 5 G2 < &. 

674 x @...@, 

675 x @...@, 

676 - @...@. 

677 x @ee@.., 

678 Rg te. hes fe nba 

679 OOR4D F794 NIBHEX F 794949414 Char 45: E 
9494 
14 

680 : eeee@ee@. 


681 . Does eae ge-e 
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682 
683 
684 
685 
686 
Bor Od a ee eS 
688 OORS7 F790 NIBHEX F 790909010 Char 46: F 
9090 
10 


eo 8 © © @ 


» » oe Oe Ow 


689 
690 
691 
692 
693 
694 
635 
BOG i ce | Aut ame Saas 
697 OORE1 E314 NIBHEX £314141527 Char 47: G 
1415 
e7 


» we Mw Oe ee Oe 


698 
699 
700 
701 
702 
703 
704 
TOR me gn orate elas a 
706 OOR6B F780 NIBHEX F7808080F 7 Char 48: H 
8080 
F? 


OF OOF Oe 
® 


707 
708 
703 
710 
711 
712 
713 eae es 
TUE nett te) | AS ty setae See er ce 
715 OOR75 0014 NIBHEX 0014F71400 Char 49: I 
F714 
00 


0 Oe OF OM OF 


716 
e17 
718 
719 
720 
721 
722 
POS oe gt po teil POMS 
724 OOR7F OW4 NIBHEX 03040404F 3 Char 48: J 
0404 
F3 
725 * ee eee ee 
726 x SNE ees 


+ Mw w FF ee 
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727 

728 

729 

730 

731 

732 

733 O0R89 F780 
4122 
14 

734 

735 

736 

737 

738 

739 

740 

741 

742 00893 F704 
0404 
04 

743 

744 

745 

746 

747 

748 

743 

750 

751 OOASD F720 
C020 
F7 

752 

753 

754 

755 

756 

757 

758 

759 

760 OORA? F740 
8001 
F7 

761 

762 

763 

764 

765 

766 

767 

768 

769 OOAB1 E314 
1414 
E3 

770 

771 


se Oe OF OO OF 0 OF Oe 0 Me OF Oe OO Fe OO 


ee Oe eee 
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Char 4B: K 


Char 4€: L 


Char 4D: M 


Char 4E: N 


Char 4F: 0 


4:06 an 
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772 
773 
774 
775 
776 
777 


778 OORBB F790 


779 
780 
781 
782 
783 
784 
785 
736 
787 


788 
789 
790 
794 
792 
793 
794 
795 
796 


797 
798 
799 


OORTS 


OORCF 


OORE3 


9090 
60 


E314 
1612 
ES 


F790 
9192 


6294 
9494 
23 


1010 
F710 
10 


e* Me ee - he ee He Oe ee we Fe OF 1% % Mw OF OF 


Me Me OF Oe OO 


o 28 © 8 #e «@ 


. = © @ # © 


NIBHEX 1010F 71010 


@ee@ea. 
ar Re fae ES oe 


ASCII Tables (Rounded Letters) Fri 


Char 50: 


Char 51: 


Char 52: 


Char 53: 


Char 54: 


Dec 3, 1983 4:06 an 
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817 
818 
813 
820 
821 
822 


823 OORED FO4 


824 
825 
826 
827 
828 
829 
830 
831 
832 


833 
834 
835 
336 
837 
838 
839 
840 
841 


842 
843 
844 
845 
846 
847 
848 
849 
850 


851 
852 
853 
854 
855 
856 
857 
858 
859 


860 
861 


QORF? 


00B01 


0OBOB 


OOB15 


0404 
F3 


7081 
0681 
70 


F702 
8102 
F? 


3641 
8041 
36 


240 
8740 


OF 0 OF OF OF Fe ee ee ee Oe ee Oe OF OF Oe OF OF ee MH OF He 


ee ee me Oe Oe 
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NIBHEX 70810681 70 


oe ee © @ 28 @ 


NIBHEX F7028102F7 


© a ae RS 
SC. 5.¢%. 
Cie OyG & 
6 a Oe hc 
2a 2 
On eg 
Cis) gs 


Page 19 


Char 55: U 


Char 56: V 


Char 57: W 


Char 58: X 


Char 59: Y 
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868 OOBIF 1615 
9454 


4 

869 

870 

871 

872 

873 

874 

875 

876 

877 00829 OOF? 
1414 
© 

878 

879 

880 

831 

882 


886 00833 2040 
8001 
02 

887 

888 

889 

890 

891 

892 

893 

894 

895 0OB3D 0014 
14F? 
00 

896 


94 00847 4020 
1020 
40 

905 

%6 


e* % M SH Se % > OF Se He ee Oe * OF Oe 


% % 0 He 


% Oe 0 OF 0 Me 


ASCII Tables (Rounded Letters) 


ee e« e© ee #8 @ 


eo 8 e e@ 8 @ 


NIBHEX 4020102040 
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Char 58: 2 


Char 5B: [ 


Char 5C: \ 


Char 5D: J 


Char 5E: * 


4:06 an 
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907 

908 

909 

310 

911 

912 

913 00B51 0808 
0808 
08 

914 

915 

916 

917 

918 

919 

920 

921 

922 OOB5B 0030 
4000 
00 

923 

924 

925 

926 

927 

928 

929 

930 

931 00B65 0245 
4545 
87 

932 

933 

934 

935 

936 

937 

938 

939 

840 OOB6F F744 
4444 
83 

941 

942 

943 

944 

945 

946 

947 

948 

949 00B79 8344 
4444 
44 

350 

951 


OF OF OF OF OO a OF OF OF OF 


% 0 OF 0 ee OF 


ee ee OF Oe 


ee Oe Oe 
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eo 8 © © 8 8 
e 8 © 8 2 
eo = © 8 2 2 
o 8 » 8 © 6 


NIBHEX 0030400000 


eo 8 © 8 © © 
oe 8 © © © © 
oe 8 © @ 8 
. 8 © © © «© 


e 8 © ee 8 © 


e = © 8 8 2 


Char 5F: _ (Underline) 


Char 60: * 


Char 61: a 


Char 62: b 


Char 63: ¢ 
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952 

953 

954 

955 

956 

95? 

958 OOB83 8344 
4444 
F? 


967 OOB8D 8345 
4545 
81 

968 

969 

970 

971 

972 

973 

974 

975 

976 OOB97 80E7 
9020 
00 

977 

978 

979 

980 

981 

982 

383 

984 

985 OOBR1 814A 
4A4A 
87 

986 

987 

988 

989 

990 

991 

992 


933 

994 OOBAB F740 
4040 
87 

395 

996 


ee OF Fe OF He * eS SS ee OF OF es ee ee ee Oe Fe Oe +e © Oe 


0 ee OF 


ASCII Tables (Rounded Letters) 


> 2 e@ 8 @ 


Fri Dec W, 1983 


Char 64: d 


Char 65: 


Char 66: 


Char 67: 


Char 68: 


e 


f 
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997 
998 
999 
1000 
1001 : 
1,2 rr Se 
1003 OOBBS 0044 NIBHEX 0044070400 Char 69: i 
0704 
00 


eM OF OF OF 


1004 
1005 
1006 
1007 
1008 
1003 
1010 
TOT td op teh ene i Ae 
1012 OOBBF 0408 NIBHEX 040848D700 Char 6A: } 
48D? 
00 


> Fe OO Oe 


1013 
1014 
1015 
1016 
1017 
1018 ne ee ery 
1019 Ow Biss 
1020 ‘ et cg 
1021 OOBC9 F701 NIBHEX F 701824400 Char 6B: k 
8244 
00 


* ee * wh FF Fe 


1022 
1023 
1024 
1025 
1026 
1027 
1028 ‘ 
VOCS) om oe NP at See ah at ins 
1030 OOBD3 0014 NIBHEX 0014F 70400 Char 6: 1 
F704 
00 


ee ee Oe 
DDAD®D 


1031 
1032 
1033 
1034 
1035 
10 36 
1037 
TOSS: 2 eS, ye em ce te 
1039 OOBDD C740 NIBHEX €740814087 Char 6D: n 
8140 
87 
1040 BR Shae Og 
1041 Be RN east hae 


ee Oe Oe Oe Oe Oe 
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1042 
1043 
1044 
1045 
1046 
NORE oc oe ry St Maat ie nee 
1048 OOBE7 C740 NIBHEX C740404087 Char 6€: n 
4040 
87 


»- ee we oe 


1049 
1050 
1051 
1052 
1053 
1054 
1055 3 
NOSE eo te 
1057 OOBF1 8344 NIBHEX 8344444483 Char 6F: o 
4444 
83 


OF 0 8 Oe Oe 
DDSA ® 
@ @® 


1058 
1059 
1060 
1061 
1062 
1063 
1064 
NOGS oe Rn io ye Be og 
1066 OOBFB CF42 NIBHEX CF42424281 Char 70: p 
4242 
31 


OF OF OF OF OF OF 
'" BAB: 
®® 


1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 Oe ce-ok es 
1075 OO0COS 8142 NIBHEX 81424242CF Char 71: q 
4242 
CF 


eo 8 © 8 &© © 


+ Ot Oe Oe OF OF OF Oe 
® 
® ® 


1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 Jig Sees 
1084 OOCOF C780 NIBHEX €780404040 Char 72: r 
4040 
49 
1085 Bois we Ee 
1086 Be ig Fe a8 


OF OF OF Oe OF OF 
@® ® 
® 
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1087 
1088 
1089 
1090 
1091 
1092 
1093 


1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 


1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 


1112 
1113 
1114 
1115 
4116 
111? 
1118 
1119 
1120 


11214 
1122 
1123 
1124 
eS 1125 
1126 
a7 
1128 
1129 


1130 
4131 


00C19 8445 
4545 
42 


00C23 40F3 
4402 
00 


00C2D CH4 
0404 
C? 


0003? C102 
0402 
C1 


00C41 CW4 
0,4 
C3 


ee Fe Oe 


+ se ee ee Oe 


mw Oe Oe Oe Ot 


se eee 


ee OO 
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es © © 8 © @ 


> © © © 2 @ 


> 8 © #8 8 8 


- es © «© 8 


Char 73: s 


Char 74: t 


Char 75: u 


Char 76: v 


Char 7?: w 
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1132 

1133 

1134 

1136 

1136 

1137 

1138 OOC4B 4482 
0182 
44 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 OOCS55 C10A 
OROR 
ey, 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 OOC5F 4446 
45C4 
44 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 00C69 8063 
1414 


1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 00€73 0000 
F700 


1175 
1176 


* © He & e+ Fe ee ee es ee eH OO * Be Be 


oe Oe Oe OF OO 


ASCII Tables (Rounded Letters) 


e 8 © © 8 © 


NIBHEX OOOOF 70000 


® B® 


Fri Dec ®, 1983 


Char 78: x 


Char 79: y 


Char 7A: 2 


Char 78: 


Char 7C: | 


4:06 ar 
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117? 
1178 
1179 
1180 
1181 gs SOS Gece 
WAGs es ye Nn 8 pti She dane 
1183 OOC7D 0014 NIBHEX 0014146380 Char 7D: } 
1463 
80 


Oe Oe Oe 
DDD D 


1184 
1185 
1186 
1187 
1188 
1189 
119% : 
TASU Jee Sto | et ae ae el ee 
1192 00C87 8040 NIBHEX 80408001 80 Char 7E: ~ 
8001 
80 


ee Fe FF ee 


1193 
1194 
1195 
1196 
1197 
1198 
1199 
NOOO Lg | ge YS 8 euett dna Seats 
1201 00C91 £380 NIBHEX £380808080 Char 7F: 
8080 
80 


se =» © = 8 © 


ee ee ee ee Oe 
® 


1202 
1203 
1204 
1205 
1206 
120? 
1208 
WEOD ee tae ae cy 
1210 0OC9B END 


oe 8 © © 2 


ee ee ee 





Saturn Assenbler 
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=ASCII = Abs 
=INSCUR Abs 


=REPCUR Abs 


ASCII Tables (Rounded Letters) 


6 Synbol 


1947 #00798 
1937 #00791 
1927 #00787 


Table 


57 
48 
39 


Fri Dec 30, 1983 


4:06 an 
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aes 
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Input Paraneters 
Source file nane is SB&BIT::NS 
Listing file nane is SB/BIT: TI:ML::-1 
Object file nane is SBABIT: TI:MS::-1 


114711 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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oN OO a Ww Ph — 


9 O0C9B 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
33 
40 
4 
42 
43 
44 
45 
46 
4? 
48 

49 


51 
52 
53 
54 
55 


F & G Shift Table<831212.1206> Fri Dec 30, 1983 4:21 an 


Page 1 

* SSS. BBBB & FFFFF GGG TTTTT 
* S S$ B B &8& F G G T 
* S B B && F G T 
‘ SSS. BBBB & FFFF G GGG T 
, S$ 8B B &&8& F G G T 
x S$ S$ B B& & F G 6G T 
A SSS. BBBB 8& & F GGG T 

TITLE F & G Shift Table<831212.1206> 


ABS #OOC9B 
III III I III II TAI ITI IIIT ITT SII LI TIA TAIT I ISI SIS IIIS III SIS SSSI IS 


FORGO IIIT TO TOTTI TI K 


ak 
. Narie:(S) FGTBL - State table for F & G shifted keys 

= Category: KEYUTL 

k 

*k Purpose: 

kk This table defines a state machine used to deternine 
S how to process f and g shifted keys 

x 

Ax Ent ty: 

sx Do not enter 

ak 

** Detail: 

= The state nachine has 7 input bits and 4 output bits. 
ax The seven input bits are as follous 

a Bit 6 F key currently doun 

me Bit § G key currently doun 

ak Bit 4 Sone non-FG key newly down 

bis Bit 3. g annunciator on 

an Bit 2 f annunciator on 

xe Bit 1 Ghost bit 

he Bit © F or G key was down during last key scan 

ax The ghost bit 1s used to indicate that anf or g 
a shift has been perforred but the annunciator mas 
is left on because the corresponding key was still 

xt down. 

a The lower 4 bits are stored between key scans 

a in the display RAN nibble that contains the f and 
al g annunciators. The lower two bits do not affect 
ae the display since there are no annunciators in the 
ax LCD to correspond to these bits. 

ae These 7 bits forn an offset into the table 

xe which gives the new "state" of the state machine 
ax and 1s stored back into display nenory. If 

ae bit 4 1s set but bits 5 and 6 are clear then 

x all bits should be cleared following putting the 
zx f or g modified key codes in the buffer. 

aK 

** History: 

ak 

ay Date Progranmner Modification 

A! Ge OMe | azeee een’, * alee elt cette fe ie 
x 10/18/83 B.S. Updated docunentation 

at 
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56 $38 RII II III III III IIIS OS SIS III III SIS IIS I SSIS IIS I ISIS 
57 $2 IIIS IOI OCCT STO STS SSIS I SO SIS IR II IK 
58 af@h gf@h gf@h gf@h gf@h gf@h gf@h gf@h gf@h gf@h gf@h gf@h 
59 s 0000 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 
60 *F GX 
61 000 0000 0000 .... .... 0100 0100 0000 0000 1000 1000 0000 0000 
62 a 0 0 0 0 4 4 0 0 8 8 0 0 
63 © 2001 0000 0000 .... «0... 0100 0100 0100 0100 1000 1000 1000 1000 
64 ‘ 0 0 0 0 4 4 0 0 8 8 0 0 
65 4010 1001 0001 .... 2... 1001 1001 1001 1001 0001 1001 1011 1011 
66 x 9 1 0 0 9 9 9 9 1 9 B 8B 
67 4011. 1011 1011 .... 0... 1011 1011 1011 1011 1011 1011 1011 1011 
68 & B B 0 oO 8B B B68 B B 6B 8B 8B 
69 100 0101 0001 .... .... 0001 0101 0111 0111 0101 0101 0101 0101 
70 z 5 1 0 0 1 5 ? ? 5 5 5 5 
71 101 0111 0111 .... 0... 0111 0111 0111 0111 0111 0111 0111 0111 
72 a 7 7 0 0 ? 7? 7? ? ? ? ? 7 
73 ¥110 0000 0000 .... .... 0000 0000 0000 0000 0000 0000 0000 0000 
74 * 0 0 0 0 0 0 0 0 0 0 0 0 
75 ¥111 0000 0000 .... .... 0000 0000 0000 0000 0000 0000 0000 0000 
76 x 0 0 0 0 0 0 0 0 0 0 0 0 
77 
78 
79 OOC9B 0000 =FGTBL NIBHEX 0000440088000000 

4400 

8800 

0000 
80 OOCAB 0000 NIBHEX 0000440088000000 

4400 

8800 

0000 
81 OOCBB 9100 NIBHEX 910099991 9BBO0OO 

9939 

19BB 

0000 
82 OOCCB BBOO NIBHEX BBOOBBBBBBBBOOOO 

BBBB 

BBBB 

0000 
83 OOCDB 5100 NIBHEX 5100157755550000 

1677 

5555 

0000 
84 OOCEB 7700 NIBHEX 770077777777 

7777 

7777 


85 OOCF? END 


Saturn Asserbler 
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=FGOTBL Abs 


F&G Shift Table<831212.1206> 
306 Symbol Table 


3227 #OOT9B - 79 


Fri Dec 30, 1983 
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Input Paraneters 

‘Source file nane is SB&FGT:: AS 
Listing file nane 1s SB/FGT:TI:ML: :-1 
Object file nane is SBZFGT: TI: MS::-1 


1411111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 
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CONIDN ON & WIPRO 


AMNAnAN fH HDD H HAD PW WWW WWW WWWNNRMYNYNNNNNDND 2 Am AeA ASP 
NPWM | OWWNHUDWMH $$ CWWNAMHSWNM HOH WONHMAWNM | OWOUNHAM PWN | OW 


OOCF? 


* ee Fe Oe 


ar 
aR 
ak 
a 
xk 
ak 
ak 
ae 
ak 
ax 
ak 
an 
ak 
xk 
xx 
xk 
xk 
xk 
aK 
ax 
xk 
xR 
ak 
ax 
ak 
xk 
ak 
xk 
xx 
ak 
ax 
ax 
xk 
xk 
ak 
xk 
xx 
an 
xx 
ak 
xx 
xk 
ax 
an 
aK 
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SSS. BBBB 8 K K EEEEE Y Y 

$ S$ B B && K K EC Y Y¥ 
S B B && K K E YY 
SSS. BBBB. & KK EEEE Y 
S B B &&& KK E y 
S $ B B& & K K € Y 
SSS. BBBB 8&8 & K K_ EEEEE Y 


TITLE Keyboard Driver (14 Colunn Keyboard )<831216.1604> 


ABS HOOCF 7 
SRI IDIOT TT TITAS III III IIIS IIA SISIII ISI I III I TIAL ITT. 


ORO TT OT OO TOTO 


Nane:(S) DEBNCE - Debounce and scan keyboard 
Nane:(S) KEYSCN - Scan keyboard 


Category:  KEYUTL 


Purpose: 
Scans keyboard and puts all new keys in key buffer 


Entry: 
Exit: 


P 
DO=(5) 


0 
DISINT (except for WARNST exit) 
Calls: None 


Inclusive: A(W),B(W),C(W),DO 
Stk lvls: 06 


Detail: 
The keyboard is scanned and a bit nap of all keys 
down 1s made. If the nunber of keys down (not 
counting the ON key is greater than 3 then no change 
1s made to the bit map or key buffer and KEYSCN 
returns innediately. The nap is compared to the tap 
that was made the last tine the routine was called. 
The neu bit nap is saved for the next call. All keys 
that have gone down since the last call (up to 7 new 
keys) are added to the key buffer (space perritting). 
The logical keycodes for unshifted keys that are 
generated and stored in the buffer are as follous: 


$n ben tnt bon tenn tn tenn tee nto nt tet 
PQPHUPTETRITIYPUTTIOTPtE7 silat s/t 
| 01] 02] 03| 04] OSF O6| 07] O08] 09] OA] OB] OC] OD] OE] 
4 nn t-te tn tt tnt tenn tent nn tin tenn toot 
PAL SITOLFIGITHIJIT KILI" 14) 564% | 
| OF{ 10] 14] 12] 13] 14] 15] 16] 17] 18] 19] 1A] 1B] 1C] 
fan ntaen nto nite tet nn te nt tenn tenn te nt nto nn tent 


PZEXITCIVIBINIMIE CT) E1bersit-t 
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56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

7? 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

30 

91 

92 

93 

94 

95 

96 

9? 

98 OOCF? 1B8F 
3E2 

939 OOCFE 1564 

100 00002 20 

101 0OD04 808F 


Keybo 


xk | 
ak +- 
xk | 
xk | 
ak +- 
xk 

xr 

xx 

zk 

xx 

x 

ak 

ak 

xx 

ax 

xk 

ak 

a 

ae 

aK gage 
at | | 
KK g-ge 


kk OA A 


ax | + 
an 
ke gee 
x 
ak 
ak 
xx 
ak 
xX Hist 
xk 
xx D 
ak OL 
at 07 / 


ae 44 / 
ak 


KKK AKI K 
RAKKKKK 


N512th 
=DEBNCE 


102 00008 3200 DBNC10 


? 
103 OODOD Eb 
104 OODOF 800 
105 OOD12 802 
106 OODI5 ROG 
10? 00018 5D0 
108 0OD1B 970 


DBNC20 
DBNC30 


ard Driver (14 Column Key Fri Dec 3, 1983 4:26 an 
Page 2 


1D| 1E] 1F{ 20] 21] 22] 23] 24] 25]eol] 27] 28] 29] 2A 
wo tenn $- nt $$ t= t= t--- + 26 4---t---t--- tt 
ON| f | g{RUN] LF] RtISPC| Up] Dnf Jol. | =i | 
2B] =|) | 2Et QF] Ol 31] 32] 33] =| 35] 36] 37] 38] 
wot enn tenn tenn tenn tenn ten tenn tenn tent tne to tent 


F shifted keys have 56 added to these values. 
G shifted keys have 112 added to these values. 


The f and g keys therselves are never put in the 
buffer. 


AR state machine is used to control turning on and off 
of the f and g annunciators. See docurientation on 
FGTBL for further details. 


The key buffer looks like this: 


123 4 5 6 7 8 910 11 12 13 14 15 

mht nbn ten tanta ten ten tebe nto nm ten ten den tenn nt 
Pitd tt t | ttt t t dod | 
mtn nbn ten tan tent ten ben te tn te nben dan ten tenn nent 

---- KEYBUF (points to first of 15 | 

bytes of key buffer) | 

-- KEYPTR (points to nibble that | 

tells hou many keycodes | 

buffer contains) | 

KEYSAY (points to 14 nibbles that | 

hold previous key bit nap) --+ 


ory: 
ate Prograrner Modification 

16/82 B.S. Updated docunentation 

16/82 NB. Updated exit conditions 


FORO III TITIAN 
FORT ITI TO TI 


RDSYMB SBZRAN: MS 
EQU ? 
DO=(5) =TINER1 


C=DATO S 
P= 0 

INTOFF 

LC(3) (N512th)~O 


C=C+1 A 
BUT=CS 

R=IN 

C=C+C P 

GONC DBNC35 
7A=B OW 
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109 OOD1E D1 
110 00020 AF8 
111 60023 54E 
112 
113 
114 00026 BFO 
115 00029 BFO 
116 OOD2C BFO 
117 OOD2F BFO 
118 00D32 5CD 
119 
120 
121 00D35 20 
122 OOD37 6832 
123 
124 
125 00D3B 1524 
126 OOD3F 942 
127 00D42 BC 
128 00044 AC6 
129 00D47 AZE 
130 OOD4A 52C 
131 OOD4D 22 
132 OOD4F 3F11 
1111 
1111 
1114 
10 
133 0O0D61 AF1 
134 00064 ACA 
135 O0D67 844 
136 OODER B44 
137 OOD6D 808F 
138 00071 800 
139 00074 802 
140 00077 FO 
141 00079 C4 
142 00D7B 550 
143 OOD7E B45 
144 00081 C4 
145 O0D83 8A8 
146 00086 51 
147 OOD88 C4 
148 OOD8R 5BO 
143 OOD8D AO1 
150 00090 AAC 
151 00D93 41A 
152 00096 OC 
153 00098 5AE 
154 O0D9B 22 
155 OOD9D A76 
156 OODRO 50D 
15? OODA3 20 
158 OODAS 30F 
153 OODA8 800 


x 
x 


Keyboard Driver (14 Colunn Key 


DBNC35 


DBNC40 


KEYSCN 


KEYSO5 


KEYSO8 
KEYS10 


KEYS15 
KEYS20 


GOYES DBNC40 
B=A W 
GONC  DBNC10 


ASL 
ASL 
ASL 
ASL 
GONC 


P= 
GOTO KEYS70 


R=DRTO S$ 
vAzC OS 
GOYES DBNC20 
C=A S 
C=C-1 XS 
GONC DBNC20 
P= 2 
LCHEX 


?A=0 

GOYES KEYS20 
R=A+A A 

GONC KEYS15 
B=B+C P 
A=A-1 
GOC 
P=P+1 
GONC KEYS10 
P= 2 
C=C+C W 

GONC KEYSO5 
P= 0 
LCHEX F 
OUT=CS 


S 
>SKEYS 


4:26 an 
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O1V11999999919191 


A(S)=3 (Maxinun number of keys) 
Next instrs. not interruptable 
Activate a key row line 
Read active key colurnns 


Is ON key down? 

Yes then turn on bit 

Shift off left 6 bits 

Any bits on in this rou? 

No, then go to next row 
Shift off highest bit 

Skip if bit was clear 

Mark proper bit in nap 
Decrerient nunber of keys 
Exit loop if more that 3 keys 
Move to next colunn 

Loop until all columns done 
Reset pointer for next rou 
Change constant for next rou 
Loop until all rows done 


Leave key rons enabled 
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160 OODAB 1B26 
4F2 
161 OODB2 15D 
162 OODBE AE 
163 OODB9 BFS 
164 OODBC BFS 
165 OODBF AF4 
166 OODC2 158D 
167 OODC6 BFE 
168 OODC9 OE76 
169 OODCD 2B 
170 OODCF 31£E 
171 OODD3 O£06 
172 OODD? 2C 
173 OODD9 OF06 
174 OODDD 16A 
175 OODEO 14€ 
176 
177 OODE3 AES 
178 QODE6 1907 
179 OODER 1540 
180 
181 OODEE AF2 
182 OODF1 8080 
183 OODFS 15CO 
184 
185 
186 
187 
188 
189 OODF9 20 
19 
191 OODFB 3111 
192 OODFF OE61 
193 O0E03 AOS 
194 OOEO6 ROS 
195 QOEO9 ROS 
196 
197 OOEOC A6S 
198 QOEOF AGS 
199 
200 QOE12 96D 
201 OOE15 50 
cO2 OOE17 R4E 
203 OOETA eD 
204 OOETL 918 
205 OOETF 80 
206 OOE21 Ab1 
207 O0E24 550 
208 OOE27 AC2 
209 OOEZA 20 
210 
211 OOF2C 31B5 
212 OOE30 RED 
213 QOE33 1B20 


x 


x 


x 


t 
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FG10 


FG15 
FG20 


DO=(5) =KEYSAV 


C=DATO 14 
B=0 B 
BSR W 
BSR W 
R=B W 
DATO=R 1 
C=-C-1 W 
A=R&C OW 
P= 11 
LCHEX EE 
A=R&C OP 
= 12 
A=R8C OP 


4 
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Page 4 
Point to key nap save 


Read in last key nap 
Don’t shift off non-zero nibs 


Shift map to low end of B 

Nove new key nap to A 

Write out new key nap 

1’°S conplenent (NOT) of old keys 
Get all keys that are newly down 


Mask out G shift key 


Mask out F shift key 


DO=DO+ (KCOL2)-(KEYSAV) Point at key colunn 2 save 


P= 0 


B(B) = xxxF xxxG 


LCHEX 11 
B=B&C B 
B=B+B P 
B=B+B P 
B=B+B P 


B(B) = OOOF GO00 


B=B+B 8B 
B=B+B B 


B(B) = OFGO 0000 


*BHO OB 
GOYES FG10 
C=C-1 § 
P= 13 
?A=0 WP 
GOYES FG15 
B=B+C B 
GONC F620 
C=0 S 
P= 0 


B(B) = OFGX 000? 


LCHEX 5B 
BCEX B 
DO=(5) =ANNAD2 


Read colunns containing F and G 
shifts 
Copy to B(B) 
Point to interrupt disable flag 
Set interrupt ignore flag 
Note: C(P)<>0 
Needed later (Disable post-clear) 


Clear interrupt ignore flag 

(if it isn’t already cleared by 
extraneous interrupt caused by 
changing output register mith 
a key down and interrupts 
disabled) 


Nask out al] but F & G shifts 


Shift & 


Shift F and G 


Are either F or G shift down? 
Yes, then skip 
No, then enable post-clear 


Any non-shift keys newly doun? 
No, then disable post-clear 
Yes, then increment B(1) 
(B.E.T.) Skip 

Disable post-clear 


Linit of valid table 
B(B)=linat, C(AR)=index 
Point to shift annunciators 
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' 1E2 

214 OOE3A 1560 C=DATO P Read annunciator nibble 

215 x C(B) = OFGX gf@h 

216 OOE3E 9E1 7BoC =O«B Is index in table? 

217 OOF41 80 GOYES FG Yes, then read table 

218 OOE43 A82 C=0 Pp No, then value is zero 

219 OOF46 5B1 GONC F640 (B.E.T.) 

220 OOE49 DS FG =: B=C a Copy index to B(A) 

221 QOE4B 3400 LC(5) =FGTBL Start of table 
000 

222 OOES2 C9 C=C+B A 

223 OOE54 134 DO=C Point into table 

224 OOE57 1560 C=DATO P Read table entry 

225 OOE5B8 1B20 DO=(5) =ANNAD2 Point back at annunciators 
1E2 

226 OOE62 1540 FG4O0 DATO=C P Write out new annunciators 

227 OOE66 AAZ C=0 XS 

228 OOE69 ADE C=C+C P Is G shift on? 

229 OOF6C 480 GOC FG5O Yes, then increnent C(S) tuice 

230 OOEGF ADE - C=C+C P Is F shift on? 

231 OOE72 480 GOC FG51 Yes, then increnent C(S) once 

232 O0OE75 580 . GONC F652 (B.£.7.) No, then skip 

233 - 

234 & 


235 OOE78 B26 =FGSO 8 C=C+t XS 
236 OOE7B B26 =FG51 9 C=C+i XS 
237 OOE7E RE2 FG52 C20 B 


238 OOE81 AFI B=0 W 

239 OOE84 2D P= 13 

240 * 

241 OOE86 918 KEYS25 ?A=0 WP Are any new keys here? 

242 OOE89 D2 GOYES KEYS40 No, then finish up 

243 OOE8B 9OC KEYS ?AHO OP Are any keys down in this nibble? 
244 OOE8E 31 GOYES KEYS35 Yes, then find then 

245 OOE90 OD P=P-1 No, then skip these 4 bits 

246 OOES2 B66 C=C+1 8B 

247 OOE95 Be C=C+1 B 

248 OOE98 B66 C=C+1 8B 

249 OOESB Be6 C=C+1 8B Skip 4 keycodes 

250 OOESE SCE : GONC KEYS30 (B.E.1.) Loop back for next nib 
251 - 

252 ‘ . 

253 OOEA1 B66 KEYS35 C=C+1 B Add one to keycode 

254 OOEA4 A14 A=A+A WP Shift, was high bit set? 

255 OOER? 59F GONC KEYS35 No, then loop to next bit 

256 OOEAA BF BSL Wi 

257 OOEAD BFI BSL Wi Shift keycode list 

258 OOEBO RES B=C B Add this keycode to list 

259 OOEB3 42D GOC KEYS25 (B.E.1.) Loop back for more keys 
260 OOFB6 94A = KEYS40 7€=0) = § Is post-clear required? 

261 OOEBS 90 GOYES KEYS45 No, then skip 

262 OOEBB AC2Z C=0 S$ 

263 OOEBE 1544 DATO=C $ Clear annunciators 


264 OOEC2 8002 KEYS45 P=C 2 
265 OOEC6 80FF CPEX 15 P=0,C(S)=C(XS) 
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266 OOECA 969 KEYS46 ?B=0 8B Is the keycode list erpty? 
267 OOECD 74 GOYES KEYS6) Yes, then check for special ON 
268 key processing 
269 OOECF AD B=B-1 8B Convert to option base 0 
270 OOED2 3130 LCHEX 03 Two bit mask 
271 OOED6 AEA A=C B Copy mask to A(B) 

272 OOEDS BEC A=-A-1 B Conplenent mask 
273 OOEDC O€60 R=R8B OB Don’t shift off any non zero bits 
274 QOEEO 3810 ASRB 
275 OOEE3 81C ASRB Divide by 4 
276 OOEE6 OF65 C=C&B B Get nod 4 of keycode 
277 OOEER R66 C=C+C B x2 
278 OOEED AES B=C B =2x 
279 OOEFO Ab6 C=C+C B x4 
280 OOEF3 Abi B=B+C B =6x 
281 OOEF6 R66 C=C+C 8B x8 
282 OOEFS A6l B=B+C 8B =14x 
283 OOEFC R68 B=B+A B Row najor keycode 
284 OOEFF 3183 LC(2) 56 
285 OOFO3 800F P=C 15 Recall FG shift status 
286 OOFO? 890 KEYS48 ?P= 0 Shifted? 
287 OOFOR DO GOYES KEYS493 No, then continue 
288 OOFOC OD P=P-1 Decrenent shift status 
289 OOFOE Ab1 B=B+C B Add back in shift 
290 OOF 11 55F GONC KEYS48 (B.E.T.) Loop back 
291 ke 
292 x 
293 OOF 14 474 ~=KEYS6) GOC KEYS60 (B27 
294 x. 
295 r- 
296 OOF17 B65 KEYS49 B=B+1 8B Convert back to option base 1 
297 OOF IA 3424 LC(5) (=KEYBUF)-2 Pointer to key buffer-2 
GF 
298 OOF 21 1A34 DO=(4) =KEYPTR Point to buffer pointer 
4F 
299 OOF 2? DO A=0 A 
300 OOF 29 808F INTOFF 
301 OOF 2D 1520 R=DATO P Read in one buffer pointer 
302 OOF 31 BO4 A=A+1 P Increnent buffer pointer 
303 OOF 34 431 GOC KEYSSO Is buffer full? Then exit 
304 OOF 3? 1500 DATO=A P Write out new buffer pointer 
305 OOF3B C2 C=C+A A 
306 OOF 3D C2 C=C+R A Point to proper buffer loc 
307 OOF 3F 134 DO=C Move pointer to DO 
308 OOF 42 REY C=B B Move keycode to C 
309 OOF 45 140 DATO=C B Write out keycode to buffer 
310 OOF 48 8080 KEYS5O INTON Re-enable interrupts 
311 OOFAC RAEI B=0 B . Don’t shift off non-zero nibs 
312 OOF4F BFS BSR W 
313 OOF52 BFS BSR W 
314 OOF55 460 GOC KEYS60 Exit if buffer overflowed 
315 OOF5S8 617F GOTO KEYS46 Loop back for next keycode 
316 SPECIAL ON KEY PROCESSING 


317 OOF5C 301 KEYS60 LCHEX 1 
318 OOF5SF 808F INT OFF 
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319 OOF 63 800 OUT=CS Activate ON key row 
320 OOF66 803 C=IN 
321 OOF69 Fe (SLA 
322 OOF 6B Cé C=C+C A Is ON key down? 
323 OOF 6D 4F1 GOC KEYS80 _ Yes, then do special processing 
324 OOF70 WF  KEYS?70 LCHEX F 
325 OOF 73 800 OUT=CS Activate all key rous before 
326 returning 
327 OOF76 1807 DO=(5) =DISINT 
4F2 
328 OOF 7D 15C0 DATO=C 1 Disable interrupt that may occur 
329 OOF 81 8080 INTON following this instruction 
330 OOF85 D2 C=0 aR 
331 OOF87 15C0 DATO=C 1 Reenable interrupts 
332 OOF 8B 03 RTNCC Return fron KEYSCN 
333 - 
334 we 
335 OOF 8D KEYS80 
336 OOF8D 28 LCHEX 8 Activate row containing "/" key 
337 OOF 800 OUT=CS 
338 OOF93 803 C=IN 
339 OOF96 F2 (SLA 
340 OOF 98 C6 C=C+C A 
341 OOFSA C6 C=C+C A 
M2 OOFIC C6 C=C+C A Is "/" key down? 
343 OOFSE 445 GOC WARNST Yes, then perforn warn start 
344 OOFRA1 301 LCHEX 1 
345 OOFR4 800 OUT=CS Activate key row containing ON 
346 OOFA? 803 C=IN 
34? OOFRA F2 (SLO 
Hs OOFAC C6 C=C+C A Is ON key down? 
349 OOFRE 4ED GOC KEYS80 Yes, loop back to continue scan 
350 OOFB1 94E CHO OS Is the ON key f or g shifted? 
351 OOFB4 CB GOYES KEYS70 Yes, then exit KEYSCN 
352 OOFB6 1A14 DO=(4) =ATNDIS 
4F 
353 OOFBC 1660 C=DATO P Read attn disable flag 
354 OOFCO 90E CHO | P Is it set? 
355 OOFC3 DA GOYES KEYS70 Yes, then exit KEYSCN 
356 OOFCS 160 DO=D0+ (ATNFLG)-(ATNDIS) 
357 OOFC8 3301 LCHEX 2810 Set key buf= ON key, 
B2 
358 (leave roon for ATNFLG 
359 OOFCE 1560 C=DATO P Read ATNFLG 
360 OOFD2 144 DATO=C A Initialize key buffer 
361 OOFDS AOE C=C-1 P Decrenent ATNFLG 
362 OOFD8 90A C=O) =—~P Would this urap it around to zero 
363 OOFDB 50 GOYES KEYS85 Yes, then leave RINFLG at 1 
364 OOFDD 14C DATO=C B Re-urite out decrenented ATNFLG 
365 OOFEO 850 KEYS85 ST=1 9 =Except Set exception flag 
366 OOFE3 D2 C=0 A 
367 OOFE5 1A20 DO=(4) =ANNAD2Z 
1E 
368 OOFEB 15C0 DATO=C 1 Clear f and g annunciator status 


369 OOFEF 608F COTO KEYS70 
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371 EJECT 
372 JE IOUT OOO TR TRI TT 
373 JOSIE TIT IOIITI OAT TAL 
374 xs 
375 xx Nane: WARMST - Warn Start 
376 tk 
377 ** Category:  KEYUTL 
378 xn 
379 **% Purpose: 
380 aa Prompts user for recovery level. Allows control to 


381 ah be regained fron microcode infinite loops. 

382 ae 

383 ** Entry: 

384 ah 

385 RK Exit: 

386 ak Depends on user response. See Detail. 

387 ah 

388 ** Detail: 

389 ah "INIT:" is sent to display. The display is 

390 ee turned on and the keyboard is scanned. If the user 

391 xh presses a digit key in the valid range (below) the 

392 ie digit is displayed. When the End Line key 1s pushed 
393 ak the warn start requested is performed. The warn 

394 aA start levels are as follows: 

395 aR 

396 ae 1: Clear USER node then junp to MAINLP 

397 mA 2: Perform ROM test, Clear USER then junp to MARINLP 
398 ee 3: Cold Start 

399 ne 

400 ** History: 

404 xk 

402 A Date Programmer Nodif ication 

403 WE cceidvia. Werteeeece GWudhepokulcelece see ne lees bebee 
404 kk 07/22/82 ~—s2B.S. Reurote in present forn to use 

405 x display routines. 

406 ak 01/23/83 B.S. Added check for CALC node before 
407 aa juriping to MAINLP 

408 ae 

409 KIT III IIS III I III ISI ISIS IT II IIL III IIIA I SITS IIIS EI IITA IIS ADI ISIS IA 


410 FOOTJOBS 


411 OOFF3 31E8 =WARNST LCHEX 8€ 

412 OOFF7 8E00 GOSUBL =RCKBp 
00 

413 OOFFD 7320 


Beep paraneters 
Make a beep 


GOSUB CLRXDS Disable external display 





414 01001 803  WARNSO C=IN 
415 01004 8RE CHO OAR Are all keys up? 
416 01007 AF GOYES WARNSO No, then continue to wait 
417 01009 8£00 GOSUBL =nokeys Clear key buffer 
00 
418 O100F 8E00 GOSUBL =LCDINI Initialize LCD 
00 
419 (Row Drivers, Contrast on) 
420 01015 3463 LC(5) WARMS+ 


010 
421 0101C 8080 


INTON 


Need interrupts on 
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422 01020 06 
423 01022 OF 
424 
425 
426 01024 D2 
427 01026 1B47 
6F2 
428 0102D 144 
429 01030 01 
430 
431 
432 01032 OC 
433 01034 0C 
434 01036 
435 01036 D2 
436 01038 80F0 
437 0103C 108 
438 0103F 8E00 
00 
439 01045 1FCD 
010 
440 0104C 7000 
441 01050 110 
442 01053 3113 
443 01057 C2 
444 01059 8£00 
00 
445 0105F 8E00 
00 
446 01065 7580 
447 01069 4BF 
448 0106C D4 
449 0106E 8£00 
00 
450 01074 00 
451 01076 OCF 
452 01079 00 
453 01078 SBF 
454 0107E 00 
455 01080 2BF 
456 01083 00 
457 01085 800 
458 01088 00 
459 0108A 5AD 
460 
461 
462 0108D 118 
463 01090 CE 
464 01092 431 
465 01095 CE 
466 01097 480 
467 0109A 8000 
00 
468 
469 


x 
x 
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WARN3D 
WARN2D 
WARNS + 
WARN1D 


WARN2O 


WARNE X 


WARN3X 


RSTK=C 
RTI 


C=0 A 
DO=(5) =DSPCHX 


DATO=C A 
RTN 


P=P+1 
P=P+1 


C-0 A 

CPEX 0 

RO=C 

GOSUBL =DSPRST 
D1=(5) =INITMS 
GOSUB =Bf2Dsp 
R=RO 

LC(2) \1\ 
C=A+C A 
GOSUBL =DSPCHC 


GOSUBL =BLDDSP 


GOSUB POPBUF 
GOC WARN20 
A=B A 

GOSUBL =FINDA 


CON(2) =k#1 
REL(3) WARM1D 
CON(2) =k#2 
REL(3) WARN2D 
CON(2) =k#3 
REL(3) WARN3D 
CON(2) =kHEOL 
REL(3) WARMEX 
CON(2) 0 

GONC WARN2O 


=RO 

=C-1 A 

ac WARN1 X 
C=C-1 A 

GOC WARN2X 
GOLONG =CLDST1 


C 
C 
G 
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Reenable interrupts 


Disable external display devices 


Warn Start 1:USER node off 
Warn Start 2:ROM test 
Warn Start 3:Clear all 


Endline: Do it. 


(B.E.T.) 
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470 O10RO 8E00 WARN2X GOSUBL =RONTST Test ROM and go to MAINLP 
oOo. 
471 010R6 3100 =WARNIX LC(2) =f LUSER 
472 O10ARA 8E00 GOSUBL =sflagc Clear USER node 
00 
473 010B0 8E00 GOSUBL =CRLFND 
00 
474 O10B6 8E0O GOSUBL =fCALC? 
00 
475 O10BC 580 GONC MAIN) 
476 O10BF 8COO GOLONG =CALC) 
00 
477 he 
478 t. 
479 010C5 =CONFIN Configure then jump to nain loop 
480 01005 840 MAIN} ST=0 0 
481 01008 8FOO GOSBVL =NOSCRL 
000 
482 O10CF 8FOO GOSBVL =CONF 
000 
483 01006 8C00 GOLONG =MAINLP 
00 
484 r. 
485 te 
486 O10DC B1 = =INITNS NIBHEX 81 Cursor off, INIT: 
487 O10DE C394 NIBASC \<INIT: \ 
£494 
45A3 
02 
488 O10EC FF NIBHEX FF 


439 - 
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490 EJECT 
494 JOR IIT II IDI TID IRI IIIT IIT IIIT AI IS ISIS IASI I 
492 JU II II III DRI II III I IOS IIS ISIS STII III II IIIS 
493 x 
494 ** Nane:(S) POPBUF - Pop Key Buffer 
495 a 
496 ** Category: KEYUTL 
497 ak 
498 ** Purpose: 
499 at Pops a key fron keyboard buffer into B(A) 
500 ak 
501 ** Entry: 
502 ak 
503 ek Exit: 
504 ak Carry set ==> Key buffer was enpty 


505 ak clear > BCR) contains keycode 
506 ak Key# just popped has been copied to last position 
507 ak in keybuffer. 
508 ak 
509 **k Calls: None 
510 ae 
511 Rk Uses....... 
512 *k Inclusive: C(W),B(A), DO 
513 ak 
514 ** Stk lvls: 0 
515 kk 
516 **k Detail: 
517 . Disables interrupts and pops a key fron buffer. 
518 
519 **k History: 
520 ak 
521 aR Date Progranner Modification 
522 Pe Goceecees:. Sees et Se oe a eames ieee 
523 ke 07/16/82 B.S. Updated docurientation 
524 - 11/04/82 NM Add copy of last key to key14 slot 
x 
oe FER IOI RIA SIL IA TTT TTI I ISTO TIS IAI ISI III IIIS II III IIA IDI IAA 
527 JEU ITT III IIIS IIIT IIIA ISIS I AIA 
528 O1OEE 1834 =POPBUF DO=(5) =KEYPTR 
4F2 
529 O10F5 1562 C=DATO XS Buffer entry count 
530 O10F9 AZE C=C-1 XS Enpty? 
531 OFC 400 RTNC Yes. 
532 O10FF 808F INTOFF No. 
533 01103 1542 DATO=C X$ Update entry count. 
534 01107 160 DO=D0+ 1 Point at keybuffer 
535 O110R 1567 C=DATO W 
536 O10E 01 B=0 A 
537 01110 RES B=C B Pop top key. 
538 01113 816 CSR 
539 01116 816 CSRC Shift off top key 
540 01119 15¢D DATO=C 14 Update first 7 chars 
541 01110 16F PO=D0+ 16 
542 01120 15ED C=BATO 14 Read top 7 chars 


543 01124 181 NO=DO- 2 
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: 544 01127 1547 DATO=C W Update rest of buffer u/last key 
545 0112B 8080 INTON 
546 0112F 03 RTNCC 


547 01131 END 
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>3KEYS Abs 3381 #00035 - 121 151 
ANNAD2 Abs 188674 #2E102 - 96 213 225 86367 
AINDIS Abs 193601 #2F441 - 96 352 356 
ATNFLG Abs 193602 #2F442 - 96 6356 
BLODSP Ext - 445 
Bf2Dsp Ext - 440 
CALC} Ext - 476 
CLOST1 Ext - 467 
=CLRXDS Abs 4132 #01024 - 426 413 
CONF Ext - 482 
=CONFAN Abs 4293 #01005 - 479 
CRLFND Ext 473 
DBNC10 Abs 3336 #00008 402 «111 


DBNC20 Abs 3341 #00D0D - 103 127 18 
DBNC30 Abs 3343 #OODOF - 104 118 
DBNC35 Abs 3366 #00026 - 114 10? 
DBNC40 «Abs 3387 #00038 - 125 109 


=DEBNCE Abs 3319 HOOCF? - 98 

DISINT Abs 193648 #2F470 - 96 178 327 
DSPCHC Ext - 444 

DSPCHX Abs 194164 #2F674 - 96 427 
DSPRST Ext - 438 

Except Ext - 365 

FG10 Abs 3610 HOOEIA - 203 201 

FG15 Abs 3623 HOOE27 - 208 205 

F620 Abs 3626 HOOEZA - 209 207 

FEO Abs 3657 HOOE49 - 220 21? 

F640 Abs 3682 HOOE62 - 226 219 

F G50 Abs 3704 HOOE78 - 235 229 

FG51 Abs 3707 #OOE7B - 236 231 

FG52 Abs 3710 HOOE7E - 237 232 

FOTBL Ext eS, eel 

FINDA Ext - 449 

=INITMS Abs 4316 #O10DC - 486 439 

KCOL2 Abs 193645 #2F46D - 96 «6174 
KEYBUF Abs 193604 #2F444 - 96 «297 
KEYPTR Rbs 193603 #2F443 - 96 298 528 


KEYSO5 Abs 3441 #00071 - 138 156 
KEYSO8 Abs 3457 #00D81 - 144 142 
KEYS10 Abs 3459 #00083 - 145 153 
KEYS15 Abs 3478 #00096 - 152 148 
KEYS20 Abs 3483 #OOD9B - 154 146 
KEYS26 Abs 3718 HOOE86 - 241 = 259 
KEYS30 Abs 3723 HOOE8B - 243 250 
KEYS35 Abs 3745 #HOOER1 - 253 244 = 255 
KEYS40 Abs 3766 HOCEBH - 260 86242 
KEYS45 = Abs 3778 HOOELS - 264 89261 
KEYS46 = Abs 3786 HOCECA - 266 = 315 
KEYS48 Abs 3847? HOOFO? - 286 «290 
KEYS49 Abs 3863 HOOFI7 - 296 287 
KEYS5O Abs 3912 HOOF4S - 310 3. 
KEYS60 Abs 3932 HOOFST - 317 293 314 
KEYS6) Abs 3860 HOOFI4 - 293 26? 
KEYS?70 Abs 3952 HOOF70 - 324 122 351 355 369 
KEYS80 Abs 3981 #00F8D - 335 323 349 
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KEYS85 Abs 4064 HOOFEO - 365 363 
KEYSAV Abs 193634 #2F462 - 96 160 174 

=KEYSCN Abs 3405 #0OD4D - 131 
LODINI Ext - 418 
MAINLP Ext - 483 
MAIN) Abs 4293 #01005 - 480 475 
N512th Abs 7? #00007 - 97, 102 
NOSCRL Ext - 481 

=POPBUF Abs 4334 #O10EE - 528 446 
RCKBp ss Ext - 412 
ROMTST Ext - 420 


TIMER1 Abs 189432 #2E3F8 - 96 98 
WARNID Abs 4150 #01036 - 435 451 
=WARNIX Abs 4262 #010A6 - 471 464 
WARN20 Abs 4197 #01065 - 446 447 459 
WARN2D Abs 4148 #01034 - 433 453 
WARN2K Abs 4256 #010RO0 - 470 466 
WARN3D Abs 4146 #01032 - 432 455 
WARN3X Abs 4250 #0109R - 467 
WARMEX Abs 4237 #0108D - 462 457 


WARNS+ Abs 4150 #01036 - 434 420 

WARNSO Abs 4097 #01001 - 414 416 
=WARMST Abs 4083 MOOFF3 - 411 343 

fFCALC? Ext - 474 

FLUSER Ext - 471 

k#1 Ext - 450 

k#2 Ext - 462 

k#3 Ext - 454 

kHEOL = =Ext - 456 

nokeys Ext - 417 

sflagc Ext - 472 
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Input Paraneters 
Source file nane 1s SB&KEY: MS 
Listing file nane is SB/KEY:TI:ML::-1 
Object file nane is SBXKEY: TI: MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 DEFFIL STITLE Fetch Default File Spec 

2 

3 x TTTTT IIIII & UU oTITIT OL 

4 x T I & & uo oU T L 

5 x T I & & uu JB T L 

6 * T I & uO T L 

7 x T I &&& Ui U T L 

8 x T I & & Ui U T L 

9 x T IIIII 8& & Wu T LLLLL 
10 
11 TITLE Conmand Execution Utilities  <831212.1208> 


12 01131 ABS #1131 


13 RDSYMB TIZEQU: : NS 
14 RDSYMB SBZRAM: : MS 
15 
16 JOR IO RIT II TI TTT TIT T TIT IIT I TIS III IIIT SISOS I IASI IK 
17 FOI TI TI TTI IT TTT TI TIT RTI ITO IIT IIA 
18 xk 
19 ** Nane: DEFFIL - Fetch Default (Current) File Spec 
20 xe 
21 ** Category:  FILUTL 
992 kk 
23 ** Purpose: 
24 ax Fetches current file nane and device code into 
25 i the sane registers as FSPECx. 
26 xn 
27 xk Entry: 
28 ak P = 0 
29 es 
30 AECERLTS 
31 ae = File nane 
32 ax RO(3-0) = Two blanks (characters 9, 10 of file nane) 
33 aA D(S) = Device type as returned fron FSPECx 
34 xR (MARIN = O, IRAN = 1, ROM = 2, etc) 
35 aR D(A) = 0 if MAIN 
36 a = D(B) = Port ID if PORT, rest 0 
37 xR P = 0 
38 x Carry = Clear 
39 as 
40 xk Calls: CURDVC, DI=CRS, FLDEVX 
41 xk 
2 RR USES. 258 wre 
43 *t Exclusive: A, C, D(A), RO, D1 
44 *t Inclusive: A, B, C, D, RO, R1, R2, D1, S2 
45 aK 
46 ** Stk lvls: 4 
47 as 
48 ** History: 
4Q ae 
50 ae Date Progranner Modification 
51 $e ese ete, ee ote ae Sate eect niadehs 
52 *k 06/08/82 FH Designed and coded. 
53 ae 
64 FOO RRO OO IOI OO OIE 


65 FOI OI OOOO III IR I Ok 
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56 01131 8FOO =DEFFIL GOSBVL =CURDVC Find current device 


000 
57 01138 7810 
58 0113C 8&0 

00 
59 01142 1537 
60 01146 3W2 

02 
61 O114C 108 
62 O114F 03 


GOSUB FLDEVX 
GOSUBL =D1=CRS 


A=ORT1 W 
Leasc \ \ 


RO=C 
RTNCC 


Clean up D(A) 
Read current file nane 


Load tuo trailing blanks 


Saturn Asserbler Cormand Execution Utilities Fri Dec 30, 1983 5:20 an 


Ver. 3.39/Rev. 2306 Make File Device Code Explicit Page 3 
63 FLDEVX STITLE Make File Device Code Explicit 
64 JID IO IOO IG OO IIIT I I ITI IK 
65 JU III OCI III COCCI III ITI ITI III IIR ITI K 
66 tk 
67 ek Nanie:(S) FLDEVX - Make Device Code Explicit 
68 - Nate: FLDEV+ - fake Device Code Explicit 
69 * 
70 xk Category:  EXCUTL 
74 kk 
72 xk Purpose: 
73 ak Naps the FSPECx device code into the FIB device code 
74 ax without having to find the file using FINDF. In certain 
75 ak cases naps unspecified device states to appropriate code. 
76 bk 
77 ak For SOURCE device: 
78 tk Does NOT map undefined device to MAIN. Identifies port 
79 = if explicit. Returns carry set only for illegal port. 
80 
81 ms For DESTINATION device: 
82 ae Naps undefined device to MAIN, explicitly identifies 
83 ae port. Returns carry set for illegal or unspecified 
84 ak port. 
85 ak 
86 kk Entry: 
87 ak S3(sDEST) = 0 if SOURCE file (see above), 1 if DEST file. 
88 xe P = 0 
89 x FLDEVX: 
x” aK D(S) = Device code returned fron FSPECx. 
91 a D(3-0) = Device code data returned from FSPECx. 
92 aa FLDEV+: (for file info as returned by RDINFO) 
93 aK D(O) = Device code returned from FSPECx. 
94 aK D(4-1) = Device code data returned fron FSPECx. 
95 ke 
96 tk Exit: 
a7 ak P = 0 
98 ae Carry clear: 
99 sf Device code and data are sufficiently explicit. 
100 ak D(S) = See Detail 
1014 - D(A) = See Detail 
102 ee Carry set: 
103 an Device code and data are illegal or not explicit: 
104 xe SOURCE: Port ID is specified but illegal. 
105 ze D(A) = 0 
106 ae DEST: Port ID unspecified or illegal. 
107 aK If PORT ID unspecified: 0D(B) = FF 
108 ak else D(A) = 0 
109 ae 
110 “se C(3-0) = Error code: "Device not Found" 
111 aK 
112 tk Calls: ROMF-1, CSLW5, CSRWS 
113 ae 
114 ES OUSES siesta 
115 ke Exclusive: C(S), C(A), OCA), RO(15-5), 
116 ** Inclusive: B, C, D, 01, RO(15-5), R1, R2, R3, S2 


117 xe 
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118 ** Stk lvis: 3 
119 ak 
120 ** Detail: 
121 ax ON ENTRY ON EXIT 
122 RK 060 See Sees || beee seco coco Del ete eee ccee 
123 Ax D(S) D(S) D(4-3)  D(xXS) 0(B) 
124 kk aeatessesees, Siete cles. toate tecte eas. pec ee ice 
125 kk F (Undef ) 0 (DEST) 0 0 0 
126 ax F (SOURCE) 0 0 0 
127 i O (MAIN) 0 0 0 0 
128 A 1 (PORT) 1 CIRAM) 0 0 Port ID 
129 ak 2 (RON) 0 0 Port ID 
130 ak 3 (EEPROM) 0 0 Port ID 
131 x 7 (CARD) ? (CARD) entry entry PCRD flg 
132 x 8+ (HPIL+) 8+ entry <device address> 
133 ak 
134 tk 
135 *k History: 
136 a 
13? ak Date Progranner Modification 
138 WY eeneeiee “abe ewscues:, Voeecnde cies sl 
139 rk 05/19/82 FH Wrote. 
140 ke 11/15/82 FH Completely reurote for new device 
141 x codes. 
142 a 
143 8k 03/21/83 JP Error Msg = eDVCNF 
144 ek 03/21/83 JP Pack byte by calling ROMF- 
145 an 03/21/83 JP If PORT not found, set D(A)=0 
x 
ia $I III SIS SITIO TOSI TS OSS SSS SIS ISI III III IIS IAS ISIS SAS 
148 20 IO SIO OS OS TTI STIS IIS SII III OSS IS SII II IK 
149 01151 817 =FLDEV+ DSRC Shift RDINFO file data 
150 01154 D2 =FLDEVX C=0 A 
151 01156 ACB C=D S$ Fetch device code 
152 01159 B46 C=C+1 §$ Device defined? 
153 0115C 531 GONC FLDE6O GOYES 
154 O115F D3 D=0 A Clear D(A) 
155 01161 863 ?S$T=0 sDEST Don’t nap to MAIN? 
156 01164 50 GOYES FLDE20 
157 01166 AC3 D=0 Ss Nap to MAIN 
158 01169 ABB FLDE20 C=D x Fetch device addr if present 
159 0116C D7 FLDE40 D=C A Install cleaned up code 
160 O116E 03 =F LDESO RTNCC 
161 01170 A46 =FLDEGO C=C+C § CARD or HPIL+? ( 7 <= D(S) « F ) 
162 01173 4AF GOC FLDE5O If so, return D(A) as is 
163 01176 948 20 = S MAIN? 
164 01179 3F GOYES FLDE40 Clear D(A), RTNCC 
165 01178 REB C=D B Fetch port ID 
166 0117E DB? D=C A . and restore cleaned up data 
167 01180 B66 C=C+1 8B Port specified? 
168 01183 590 GONC FLDE8 
169 01186 873 *$T=1 =sDEST Error? 
170 01189 D3 GOYES FLDE% 
171 0118B 03 RTNCC 


172 0118D 102 FLDE80 R2=A 
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173 01190 118 
174 01193 8F0O 
000 
175 O119R 136 
176 01190 108 
177 O11AO 8FOO 
000 
178 
179 
180 
184 
182 O11A7 540 
183 O11AA D3 
184 O11AC 112 
185 O11AF 118 
186 O11B2 134 
187 O11B5 8F0O 
000 
188 O11BC 108 
189 O11BF B2 
190 01101 AEB 
191 011C4 D? 
192 
193 01106 350 
00 
194 O11CC 01 
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x 


C=RO 
GOSBVL =CSLW5S 


CDOOEX 
RO=C 
GOSBVL =RONF- 
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Save DO in RO 
. and preserve file nane 


Identify port 


* If PORT not found (Carry Set) 
x Set D(A)=0 to distinguish fron PORT not specified D(B)=FF 
i 


FLDE85 


i 
=F LDE90 


GONC FLDE85 
D=0 AR 

A=R2 

C=RO 

DO=C 

GOSBVL =CSRW5 


RO=C 


ovoc°on 


C= A 
C= B 
D= A 


LC(4) =eDVCNF 


RIN 


Recall file nane 
Restore DO 


Restore last chars of file nane 
Clean up D(R) 


Load error code (MUST BE LC(4)) 


Return carry set or clear 
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195 FILFIL STITLE Fall mesing File Nane 
196 SOROS IO OO OK 
197 FORO KIO JIS OJOS OOO TTT TOO TOE 
198 aK 
199 ** Wane: (S) FILFIL - Fill in Missing File Nane 
200 ka 
204 ** Category:  FILUTL 
202 am 
203 ** Purpose: 
204 am Adjusts file spec info on Save Stack to fill in missing 
205 am file nane if necessary. If the destination file nane 
206 KR is null, it always receives the source file nane. If 
207 KK source file narie 1s null, it receives desination file 
208 ak nane unless source device is CARD or PCRD, or if high 
209 ak bit of the device info is set. Status is returned 
210 aK indicating if one file spec (or both) is external, and 
211 aR if both fale nanes are undefined. 
212 KR 
213 kk Entry: 
214 KK P = 0 
215 Kk File specs on Save Stack as per SVINFO. 
216 x Upper nib of device info on stack has upper bit set if 
217 Kx source file nane fill is NOT to be done for this file 
218 aR spec. 
219 xk 
220 Kk Exit: 
221 a Pp = 0 
222 xk Updated file specs on Save stack as per SVINFO, mith 
223 ax the no-fill flag cleared for each file spec 
224 ax S(sEXTDV) = Set if either or both file specs are 
225 aK on HPIL device. 
226 KR S(sUNDEF) = Set if both file nares are zero 
227 aR (that is, undefined). 
228 ax S(sCARD) = 1 if Source or Dest Device = CARD|PCRD 
229 ak S(sDEST) = 0 ("Source") 
230 ax A = First 8 chars of source file nane 
231 xx RO(3-0) = Last 2 chars of source file nane 
232 xk D(A) = Source device info fron RDINFO 
233 a R2(R) = Dest device info fron RDINFO 
234 Be Carry = Clear 
235 KR 
236 3 Calls: RDINFS, RDINFD, SVINFO, MFDEVC, MFDVC- 
237 
238 KK Uses. ...... 
239 xk Inclusive: &,B,C,D(A),01,RO,R1,R2, S4-S0 
240 KK 
241 Kk Stk lvls: 2 
242 KK 
243 ** Detail: Module Flow: 
244 KR Bas scan dealer ora 
245 KK Clear Status 
246 a Read Source info, check device type and save aay 
247 xk Read Dest info 
248 kk If Source file is undefined and device not card 


249 aa Source file nane <-- Dest file narie 


Saturn Assenbler Corinand Execution Utilities Fri Dec 3, 1983 5:20 an 


Ver. 3.39/Rev. 2306 Fill Missing File Nane Page 7 
250 sad Check Dest device type 
251 a , If Dest file nane is undefined 
252 aK and neither device is CARD | PCRD 
253 xx Dest file nane <-- Source file nane 
254 aR Write back Dest file info 
255 aK Recall Source file info 
256 ak Check Source device type 
257 KK Write back Source file info 
258 ak 
259 ** History: 
260 kk 
261 KK Date Progranner Modification 
262 Ke ceeeccke. ocebocicuus,  Scedteecudéeccet Soccek che scuweeetees 
263 ek 05/15/82 FH Designed and coded. 
264 Kk 92/15/83 FH Added check for "No fill" bit of 
265 a device code 
266 xm 
267 JO IIIT IIIT ISGIG ISO IOI I IT TOT IK 
268 JO OIG IO IOI OIG I IO I IO I TIRE 
269 O11CE 840 =FILFIL ST=0 =sEXTDV 
270 01101 341 ST=0  =sUNDEF 
271 01104 E00 GOSUBL =RDINFS Read source info and save anay 
0 
272 O11DA 7701 GOSUB NFDEVC Check source device type 
273 O11DE AF8 B=A W ‘ 
274 O11E1 118 C=RO 
275 011E4 109 R1=C : 
276 O11E7 DB C=D A . (device code) 
277 O11E9 108A R2=C ‘ 
278 O11EC 8E00 FILO10 GOSUBL =RDINFD Read Dest info 
® 
279 O11F2 8AD ?BHO OA Source file defined? 
280 O11F5 81 GOYES FILO20 
281 O11F7 872 ?ST=1  =sCARD Source device CARD or PCRD? 
282 O11FA 31 GOYES FILO20 
283 O11FC 11A C=R2 Recall source device code 
284 O11FF C6 C=C+C A No fill bit set? 
285 01201 480 GOC FILO20 GOYES 
286 01204 AF8 B=A W Source file narie <-- Dest file nane 
287 01207 118 C=RO 
288 0120A 109 R1=C : 
289 01200 7700 FILO20 GOSUB MFDVC- Check dest device, set status 
290 01211 8AC RHO OR Dest file defined? 
291 01214 BO COYES FILO30 
292 01216 AF4 A=B W Dest file nare <-- Source file nare 
293 01219 119 C=R1 
294 O121E 108 RO=C : 
295 O121F SOR FILO30 *=0 =P Device NOT :MAIN? 
296 01222 AD GOYES FILO35 
297 01224 7A30 GOSUB FILOSO Convert dest filename to upper case 
298 01228 7630 GOSUB FILOSO ’ 
299 Oi22C 06 FILO35 (C=A R Test for both files undefined 
300 0122E OEFD C=C'B A ; 
1 01232 8AE CHO) O#A Either file defined? 


H2 01235 GOYES FILO40 
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3 01237 851 
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4 0123R 7310 FILO4O 


5 0123E 843 
6 01241 AFA 
7 01244 119 
#8 01247 108 
39 0124A DB 
310 0124C 12A 
311 0124F D7 
312 01251 34FF 
FF? 
313 01258 OEF3 
314 0125C 8C00 
00 
315 01262 120 
316 01265 8C00 
00 


FILO45 


svinfo 


FILOSO 


ST=1  =sUNDEF 
FILO45 

=sDEST 

A=B W 


A 
LCHEX 7FFFF 


D=C8D A 
GOLONG =SVINFO 


AROEX 
GOLONG =CVUCW 


5:20 an 
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Set status 
Write back destination file info 
Write back source file info 


(suap dest, source dev codes) 
Clear no-fill flag 


(and return carry clear) 


Convert AROEX to upper case 





Saturn Assenbler Conriand Execution Utilities Fri Dec 30, 1983 5:20 an 


Ver. 3.39/Rev. 2306 Find First/Last Address Page 9 
317 FLADDR STITLE Find First/Last Address 
318 JOO IO OCI UCI OTC TCI IK 
319 JOTI OI TI III OI IO ICU TIO TIT TOR 
320 xx 
321 a Nane:(S) FLADDR - Find First/Last Address of Men Device 
322 * 
323 ** Category:  FILUTL 
324 xe 
325 ** Purpose: 
326 a Find the first and last address of available nenory on 
327 s the specified wenory device (PORT or MAIN). 
328 
329 ** Entry: 
330 ak D(S) = Device type code of menory device (MAIN = 0, 
331 x IRAN = 1, ROM = 2, etc) 
332 ah D(O} = Port number if PORT device 
333 a D(1) = Extender nunber if PORT device 
334 ax D(7-2) = Nibs 8-3 on configuration table entry for 
335 x port device (contains size, address) 
336 xx Pp = 9 
337 x 
338 ak Exit: 
339 a A(R) = Address of first nib available nenory on 
340 aK device 
341 Kx C{A) = Address of last nib available nenory on 
42 ta device 
343 a D = Entry state 
344 a 01 @ AVMENS for MAIN device 
345 ak = Size of module if PORT device 
346 Sa P = 0 
347 ax Carry clear 
348 xk 
349 *k Calls: EOFLC+, LSTADR 
350 ae 
351 RR SHS caters 
352 ** Exclusive: A(R),C,D1 
353 *k Inclusive: A, C,D1 
354 as 
355 ** Stk lvls: 2 
356 aR 
357 ** Algorithn: 
358 xx If PORT then 
359 = Start of module plus offset to file chain 
360 ba Skip to end of file chain 
361 ne Space beyond chain to av nen start 
362 as Find last address (call LSTADR) 
363 = Else (it’s MAIN) 
364 ae Fetch AVNENS, AVNENE 
365 Kx 
366 ** History: 
367 kk 
368 ae Date Progranner Modification 
369 Wis Lies eee ee tel ee ee sete ees 
370 ak 06/11/82 FH Designed and coded 


371 os 
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372 FOI OIG UII TO TE 
373 JOR ITI TTT TOK 
374 0126B 94B =FLADDR 70=0 = = 6§ Systen RAM? 

375 O126E 12 GOYES FLADZO 
376 01270 AFB C=) W Find address of file chain offset 
377 01273 BF6 CSR W é 
378 01276 3180 LC(2) 8 ‘ 
379 0127—A 8EX GOSUBL =EOFLC+ Skip to end of file chain 
. 00 
380 01280 171 D1=D1+ 2 . and space to av. nen. start 
381 01283 8FOO GOSBYL =LSTADR ‘ 
000 
382 0128A 133 ADIEX 
383 0128) 03 RTWCC 
384 O128F 1F99 FLAD2O D1=(5) =AVMENE Set up exit conditions 
5F2 
385 01296 147 FLAD30 C=DAT1 A 
386 01299 1F49 =DI@AVS D1=(5) =RVMENS For docunentation see OBCOLL nodule 
5F2 
387 O12A0 143 A=DAT1 A 


388 012A3 03 RTNCC 
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389 MENCKL STITLE MENCKL - Neriory Check with Leeway 
390 JORIS IT III TIT T STII IIIT ISIS ISSO SII SI IIIA 
391 SI IOI II IR IIIA III III ILI IIIA ISS I III I ISIS SSIS I IIIS ISI IIIS 
392 aK 
393 ek Nane:(S) MEMCKL - Check Avail Menory With, Without Leenay 
394 *k Nane: MEMCK+ - Check Avail Menory With, Without Leeway 
395 ** Narie: CHKSPC - Check Available Menory With Leeuay 
396 ax Nane: CHKSPF - Check Available Menory Without Leeway 
397 - Nane:(S) CHKrnen - Check Available Nenory Without Leeway 
398 x 
399 tk Category:  PTRUTL 
400 kk 
401 ** Purpose: 
402 ah See if requested renory anount [+ Leeway] is less than 
403 ak or equal to available nenory. Nonzero value of P on 
404 ak entry deternines whether leeway will be included in 
405 ak check for sone entry points. "Insufficient Menory" 
406 ak error code is returned with carry set if requested 
407 ax ariount exceeds the available nenory. 
408 ah 
409 ** Entry: 
419 aK MENCKL: 
411 Ae C(A) = Absolute ariount nHeriory to check 
412 ax P = 0 iff LEEWAY to be added to ant being checked 
413 kk MEN LE: 
414 AX B(A) = Absolute anount retiory to check 
415 ak P = 0 iff LEEWAY to be added to ant being checked 
416 Ak CHKSPC: (LEEWAY ALWAYS added; B(A) not used) 
41? aK C(A) = Absolute amount menory to check 
418 ak P = 0 
419 Kk CHKSPF: (LEEWAY NEVER added; B(A) not used) 
420 aK C(A) = Absolute arnount nenory to check 
421 ax D1 @ Available nenory end pointer 
422 ak CHKiniert: (LEEWAY NEVER added; B(A) not used) 
423 aK ACA) = Available nenory end 
424 ak C(A) = Absolute ariount nerory to check 
425 ae P = 0 
426 an 
42) ek Exit: 
428 xk Carry Clear: Enough neror 
429 aK B(A) = Amount to check (MEMCKL, MEMCL+ only) 
430 kk ACA) = Available Merory start 
431 ak D1 @ AVNENS 
432 ak C(A) = Available menory MINUS requested amount 
433 ax (MINUS Leeway if also checked) 
434 x P = 0 
435 ae Carry set: Not enough nenary 
436 a B(R) = Amount to check (MENCKL, MEMCL+ only) 
437 ay C(A) = enEn 
438 ak P = 0 
439 ae 
440 AX Calis: None 
441 a 
442 PF USRS is ome ee 


443 *# Inclusive: A(A),C(A),B1,8(A) (MEMCKL, MENCL+ only) 
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444 ae 
445 *% Stk lvls: 0 
446 ax 
447 %* Algorithn: 
448 k 
449 ** HEMCKL: B <-- Requested Anount 
450 ek MENCL+: C <-- B 
451 aK If P=0 
452 *% CHKSPC: C <-- Leeway 
453 ax Ariount = Req Anount + Leeway 
454 am If overflow ---> Error Return 
455 aK D1 <-- AVMENE 

; 456 *& CHKSPF: A <-- Available Menory End 

f 457 &* Chknen: Subtract Req Anount fron Available Menory End 

458 ean If negative --> Error Return 

459 ak D1 <-- AVMENS 
460 &k A <-- Available Menory Start 
461 ax Subtract Avail Menory start fron subtracted amount 
462 ak If negative, then 
463 x Error Return [ C <-- eMEM } 
464 al else 
465 ax Return carry clear 
466 ax 
467 ** History: 
468 ze 
469 %k Date Progranner Modification 
470 PAs wise. chteedees, ins bbalitekas an temuestoueiaatas 
471 &k 07/04/82 JP Modified docunentation 
472 ek 09/11/82 JP Added Leeway check code 
473 2 10/24/83 FH Updated docunentation 
me $I II ORI ITT II II III III ITI IIS SII IIS IIS II III II IIIS IIIS SII III AK 
476 JI III OOO ITI ISOS TOT III III III ITI III ISIS III IIA 
477 012A5 DS =MENCKL B=C A Save allocation amount in B(R) 
478 012A7 D9 = =MEMCL+ C=B A Move anount to check into C(A) 
473 012A9 880 ?PH 0 NO Leeway check? 
480 012AC FO GOYES CKSPC1 ‘ 
481 O12RE DR = =CHKSPC A=C A Add leeway count to allocation 
482 012B0 D2 C=0 A i 
483 012B2 314D LC(2) =LEEWAY 
484 01286 C2 C=A+C A : 
485 012B8 422 GOC CKSPC2 If overflow, error out 
486 012BB 1F99 CKSPC1 D1=(5) =AVMENE Set D1 to avail menory end ptr 

5F2 
487 012C2 20  =CHKSPF P= 0 Reset P to 0 
488 012C4 143 A=DAT1 A Read available nenory end 
489 012C7 EE =CHKren C=A-C A Conpute [End] - [Requested ant] 
490 01209 411 GOC CKSPC2 Error if negative (carry set) 
491 O12CC 1F49 D1i=(5) =AVNENS D1 @ Av meriory start (DON’T pack) 
5F2 

492 012D3 143 A=DAT1 A Read available nenory start 
493 01206 E2 C=C-A A Compute [End] - [Ant] - [Start] 
494 01208 500 RTNNC Return OK if not negative 


495 012DB 6311 CKSPC2 GOTO RNMEMIO Load nenory error nunber 
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496 NFDEVC STITLE Mainfrane Device Check 
497 JO II I OOOO COC IC OR ITT IK 
498 JOU III I CIO IOC III CITI II 
499 ae 
500 ** Nane: MFDEVC - Mainfrane Device Check on File Info 
501 &* Nane: MFDOVC- - Mainframe Device Check on File Info 
502 As Nare: MFDVC+ - Mainfrane Device Check on Selected File 
503 x 
504 ** Category:  FILUTL 
505 ae 
506 ** Purpose: 
507 ax Indicate whether device 1s in mainfrane, on card, or on 
508 aK HPIL. MFDVC+ calls RDINFO before the check is nade. 
509 am MFDEV- perfornis like MFDEVC, but will leave sCARD (S2) 
510 UNTOUCHED if the device is not CARD or PCRD. 
511 
512 *k Entry: 
513 an P = 0 
514 aX Source, dest file info on the Save Stack as per SVINFO 
515 am NFDEVC, MFDEVC-: 
516 ai D(A) = Device code as per RDINFO 
517 ak MFOVC+: 
518 am S3(sDEST) = 1 if destination file info is to be read 
519 ae before falling into MFDEVC 
520 ai = 0 aif destination file info is to be read 
521 ue before falling into MFDEVC 
522 ax 
§23 aX Exit: 
524 kx S2(sCARD) = Set if device is CARD or PCRD (all entry 
525 a pts), else it is CLEARED (MFDEVC and 
526 ki NFDEV+ only) 
527 aX SO(SsEXTDV) = Set if device is HPIL, 
528 ah else it is UNCHANGED 
529 wk D(R) = Device code from RDINFQ (NOTE: This code 
530 ax has been shifted one nibble left circular 
531 a fron where FSPECx originally returned it) 
532 ax C(O) = ? (CARD device code, =dCARD) 
533 kk C(4-1) = D(4-1) exit condition 
534 an P = 0 
535 ca Carry = Clear 
536 aa NFOVC+ also exits with: 
537 ax A = First 8 characters of file nane 
538 am RO = Last 2 characters of file nare 
5393 A 
540 ** Calls: RDINFO. 
541 ak 
542 tk Uses....... 
543 ** Exclusive: C(A),0(XS), sCARD, sEXTOV, sDEST, sREADI 
544 &*& Inclusive: A,C,D(A),D1,RO,S0,82,53, 84 
545 ae 
546 * Stk lvls: 1 
547 aK 
548 ** History: 
549 ae 


550 a Date Progranner Modification 
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551 Recetas a act eit Sat ae at acter 
552 ek 11/15/82 FH Modified docunentation, supplied 
553 ae C(O) exit condition 
554 ay 
555 FIO IIS TIT III DTI DTA IS IST IS IIIS IOS SSS SSI II SSIS SSIS SII SSISSS SIS 
556 III III IDI LIDIA III ISI IISA III III III IIIT III III III SII SIS SSIS IIIS 
557 012DF 8EOO =MFDVC+ GOSUBL =RDINFO Read device info 

v4) 
558 O12E5 842 =MFDEVC ST=0 =sCARD Clear Card status 
559 012E8 DB = =MFOVC- C=0 A Fetch device info 
560 012EA B06 C=C+1 P Device undefined? 
561 012ED 400 GOC MF D010 GOYES 
562 012FO DB C=D A 
563 012F2 AG C=C+C P Not HPIL device? 
564 012F5 550 GONC fFDO10 . GOYES 
565 012F8 850 ST=1  =sEXTDV 
566 O12FB 7 8=MFOO10 LC(1) dCARD . (load up card device code) 
567 O12FE 907 *DHC OP Device not CARD or PCRD? 
568 01301 50 GOYES MFDO2O 
569 01303 852 ST=1  =sCARD Set CARD Device flag 


570 01306 03 MFDOZO RTNCC 
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571 MOVE*N STITLE Move Merory Up or Down 
572 JOU III TIT OR TIT TTI ERE III I TIT IIIT TIT III 
573 JIU IO OI IOI TIO II III II III IIIS IIIT AIA 
574 ax 
575 . Nane:(S) MOVE*M -~- Move Nenory Up or Down Without Ref Adj 
576 x 
577 ** Category:  GENUTL 
578 wh 
579 ** Purpose: 
580 a Nove tenory up or down with no reference adjust. 
531 
582 ** Entry: 
583 xx ACA) = Source address 
584 ax B(A) = Length of block to nove in nibs 
585 kk C(A) = Dest address 
586 Kx 
587 a* Exit: 
588 ax All entry conditions 
589 ax P = 0 
590 ek 
591 ** Calls: MOVEDN, MOVEUN 
592 a 
593 KK USCS. cc cee. 
594 xk Exclusive: A, C(A), DO, D1 
595 kk Inclusive: A, C(A), DO, D1, P 
596 “A 
597 AK Stk lvls: 1 
598 ens 
599 ** History: 
600 xk 
601 kk Date Progranrer Modification 
602 KA Soeieeshen itiveseswes,” “Setawoesce.owe eet cece wee ot 
603 RK 06/14/82 FH Designed and coded. 
604 wk 
605 JOIST IO TC III I OO I TISAI IIIS III I IST IIS 
606 OOO IO TOTO II IO IOI IO TIO IOI IIIIIOITIOIIOT 
607 01308 DE =NOVE*M ACEX A 
608 0130A 8B2 7A<C OA Move to lower address? 
609 01300 51 GOYES MOVE10 
610 O130F CO A=A+B OA Compute end of dest 
611 01311 C9 C=C+B A Conpute end of source 
612 01313 8FOO COSBVL =NOVEDN 
000 
613 O131A 132 ADOEX ‘ 
614 01310 137 CDIEX Set up exit conditions 
615 01320 03 RTNCC 
616 01322 8FOO NOVEIO GOSBVL =MOVEUN 
OOO 
617 01329 132 ADOEX 
618 0132C £0 A=A-B A : 
619 0132E 137 CDIEX Set up exit conditions 
620 01331 £9 C=C-B A : 
621 01333 03 RTNCC 


Saturn Assenbler Connand Execution Utilities Fri Dec 3, 1983 5:20 an 


Ver. 3.39/Rev. 2306 Move File Menory W/Ref Adjust Page 16 
622 MVNEM «©STITLE Move File Menory W/Ref Adjust 
623 KAI II SITS III DEED IISA ISIE ITI ITI III ISD TI III IID ISO IIS SIS ASSIA 
624 RII III SIS IIIS I III II IIS IIS II II II III IIIS SISOS IIIS ISI SS SISSIS ISI IAS 
625 aR i 
626 xt Nane: MVMEM - Move File Menory W/Ref Adjust 
627 ** Nane:(S) MVMEM+ - Move File Menory W/Ref Adjust 
628 ek 
629 ** Category:  GENUTL 
630 xR 
631 ** Purpose: 
632 aS Move nenory in a file chain up or down with reference 
633 a adjust. Works for either MAIN or Independent RAN. 
634 xt RFADJ 1s called, and pointers MAINEN -> AVMEMS and 
635 a CURRST -> CURREN are updated if they fall into the 
636 ak block that moved. Note that if the pointer value falls 
637 ala outside the block that moved but inside the area into 
638 as which it moved, no action is taken. If the source of 
639 aK the nove is NOT EQUAL to the corresponding file header 
640 ak address passed in C(A), then that file header’s chain 
641 aR length is also adjusted. 
642 kX 
643 ak Entry: 
644 ae ACA) = Starting address to nove up or down. Equal 
645 ak to C(R) if adding or deleting file to/fron 
646 ak file chain. 
647 xe B(A) = Offset (dest address - source address) 
648 aS C(A) = Address of header of file containing address 
649 a to be moved. File chain length field of the 
650 RR header will be updated to new length if and 
651 an only if C(A) # ACA). If adding or deleting a 
652 ns file to or from the chain, this address should 
653 ae point to the following file header in the file 
654 ae chain or to the end of the chain. 
655 aR P = 0 
656 i MVNEN: 
657 aK D(S) = Device code for nenory device 
658 a D(B) = Port nunber if port device 
659 ne D(7-2) = Nibs 8-3 of port’s configuration table entry 
660 xk MVNEN+: 
661 aa D entry state will be conputed fron C(A) 
662 ae 
663 xk Exit: 
664 - RO = A(R) entry: starting address of rove 
665 ae R2 = ((R) entry: start of file header 
666 x B(R) = Entry state 
667 kk P = 9 
668 aR Carry clear: 
669 = Meriory moved and references adjusted 
670 as Carry set: 
671 a C(3-0) = Error code if error occurred: 
672 a eMEM - Insufficient Merory 
673 AE eILACS - Illegal Access (if ROM or EPROM) 
674 ak 
675 ae 


676 ** Calls: LOCADR, FLADDR, RMENCH, NOVE*N, ADJREF 
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677 xk 
678 RR USES Ss. o-en% 
679 kK Exclusive: A,B,C,D,D0,01,RO,R1,R2 
680 ** Inclusive: A,B,C,D,D0,D1,RO,R1,R2,SCRICH(4-0) 
681 xa 
682 *K Stk lvls: 3 
683 Rk 
684 xk NOTE: 
685 ae NO CHECK IS MADE to verify that the starting address 
686 a actually falls within a file chain or whether the port 
687 aR specified corresponds to the specified address. 
688 ak 
689 **k Algorithn: 
690 ak OMVMEM+ : 
691 a Compute mnenory device info 
692 kk OMVMEN 
693 a If nove is merory expansion then 
694 ax Check neriory (return if error) 
695 a If source # file header start then 
696 as Update chain length 
697 xR Move nenory 
698 a Adjust references 
699 aK 
700 *® History: 
701 = 
702 ax Date Progranner Modification 
703 Ke: ‘“Soewaewe.. Siteccaecc, . Unacieoetoeeeetoainc tcemoe Sosa ee aee S 
704 Kk 6/09/82 FH Designed and coded. 
705 aA SH Check for ROM file 
706 - 02/15/83 FH Packed, updated docunentation 

x 
i JOO UI III IO IO ITI TI ITI IAI TOK 
209 JOOS ITU CT III III II IIIT III II IAT I IK 
710 01335 8000 MVMEOO GOVLNG =PRGFE Note: C(S), D(S) have meaning! 

000 
711 : Loads eFACCS in C(3-0), RINSC. 
712 x 
713: 0133C 134 =MVMNEN+ 0O=C Save file header address 
714 0133F D9 C=B A Save offset in RO 
715 01341 108 RO=C : 
716 01344 D6 {=A R Get renory device info 
717 01346 8FOO GOSBVL =LOCADR : 
000 

718 0134D ACB C=D S 
719 01350 A4E C=C-1 § 
720 01353 470 Goc MYNE20 MAIN? 
721 01356 94E CHO SS ROM or 
722 01359 CB GOYES MV¥MEOO ROM or PROM? 
723 0135B 118  MY¥ME2O C=RO Restore offset 
724 0135E 05 B=C A . 
725 01360 136 CDOEX Restore file header address 
726 01363 100 =MVNEM RO=A Save source start for RFADJ in RO 
727 01366 10A R2=C Save file header address in R2 
728 01369 ACI B=0 5 Presune "Memory expansion" 
729 0136C Be c=A A Compute dest address in C 
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7W 0136E C9 C=C+B A ; 
731 01370 8B2 700A =A MNenory expansion? 
732 01373 AO GOYES tWVnE40 
733 01375 8Re 7R=C OR Nothing to nove? 
734 01378 £8 GOYES MFDO20 RTWCC 
735 0137A B45 B=B+1 §$ Flag “Menory contraction" 
736 01370 7AEE MVME40 GOSUB =FLADDR Conpute dev first & last address 
737 01381 94D BHO OS Menory contraction? 
738 01384 9% GOYES MVME6O 
739 01386 7340 GOSUB =RNMENCH Check available nenory 
740 0138A 400 RTNC 
741 a 
742 ; At this point A is at av nen start of port or MAIN 
743 
744 0138D 120 MVMEGO AROEX A = SOURCE, RO = av nen st 
745 01390 11A C=R2 Fetch file hdr addr 
746 01393 8A2 *A=C OA Source = file header? 
747 01396 60 ; GOYES MVNE8O If so, don’t update file header 
748 
749 * Update file chain length 
750 * 
751 01398 7872 GOSUB UPDFCL 
752 a 
753 * Move nenory 
754 * 
755 0139C 118 MVME80 C=RO B = LEN = av nen st - source 
756 0139F E2 C=C-A A 
757 013A1 DD BCEX A , 
758 013A3 C2 C=A+C A C = DEST = source + offset 
759 O13A5 7F5F : GOSUB = =MOVE*N Move nenory 
760 
761 * Adjust references 
762 * by falling into ADIREF 
k 


763 
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764 

765 

766 

767 

768 

769 

720 

777i 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

79 

794 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 O13A9 100 

808 O13AC DC 

809 O13RE 1F10 
SFe 

810 01385 CO 

811 013B7 141 

812 O13BR ED 

813 O138C 490 

814 O13BF 8D00 
000 

815 01306 8D0O 
000 
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ADIREF STITLE oe ek All Menory References 
SII II I IIE III III III III IIIT III III IIIT ITI III ISS IIS IST II IAT III IITA 


FO RII IOI OTT TT TTT TOK 
xx 


** Nare: ADJREF - Adjust All Menory References 

ik 

&* Category:  PTRUTL 

ae 

*k Purpose: 

ak ADJREF adjusts all pointers (CURRST -> AVMENS) and 


ak nenory references 1f they fall within the specified 
an block that noved. The werory nay be up or down, and 
ak in either MAIN or IRAN renory. 

ak 

kk Entry: 

ak ADIREF: [Systen RAN or IRAN Move] 

ae A(R) = Source start of rove 

ak B(R) = Length of block that moved in nibs 

kK C(A) = Destination start of nove 

tk 

ARAEXLAS 

a RO = Source start of nove 

ak B(R) = Entry state 

ak p = 9 

1 

t* Calls: RFAD+I, RFAD-I 

ik 

RESUS OS. Souaie 

** Inclusive: A,B,C,D,D0,01,RO,R1,R2,P, SCRTCH(4-0) 

ak 

tk Stk lvls: 2 

ak 

** History: 

ak 

xx Date Progranner Modification 

Peete ee, Sete Seed ee ates 
10/11/82 FH Adapted fron RPLLIN code 

th 


FO III IOI ITT TT TIT TIT IIIT TN 
FORO UI III OI IOI TT TT IK IT DIRK 
x 


x NOTE: The above code of MVMEN falls into here 

x 

=ADJREF RO=A Save source start for RFADJ 
ABEX A A(A)=Source len;B(A)=Source start 
01=(5) =SCRTICH 
A=A+B A A(R)=End Source 
DAT1=RA A 
B=C(-B A Offset: Dest Start-Source Start 
GOC ADJR20 Carry => Men noving to lower addr 
GOVLNG =RFAD+I Use sane entry pt for MAIN & IRAN 


ABJR2O GOVLNG =RFAD-I Use sane entry pt for MAIN & IRAN 
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816 RNENCH STITLE RON/RAN Menory Check 
817 2 TOI III TIO IOS TIS ITI ASO SIT SII ISAS SSI STIS: 
818 $I IOI II TSI IO IIIT ISS SII ITI ISS ISI SI IOS SASSI SII S: 
819 aK 
820 a Nane: RMEMNCH - Check Menory in Menory Device 
821 
822 **% Category:  GENUTL 
823 a 
824 ** Purpose: 
825 ak Check if there 1s a specified amount of roon in the 
826 A specified nenory device given its first and last 
827 aR address of available menory; return error code if not. 
828 kx If the device is MAIN, the menory check is done with 
829 ak LEEWAY. 
8H ax 
831 ** Entry: 
832 ax A(A) = Address of first nib of available menory on 
833 kk the device 
834 ak B(A) = Amount of nenory requested 
835 ak C(A) = Address of last nib of available memory on 
836 see the device + 1 
837 ae P = 0 
838 ak 
839 RX Exit: 
840 x A(A) = Entry state 
841 ak B(A) = Entry state 
842 aes P = 0 
843 ak Carry clear: 
844 a C(A) = Total nenory available on this device 
845 xe Carry set: 
846 — C(3-0) = Error code "Insufficient Menory" (eMEM) 
847 x 
848 *X® Calls: None 
849 ae 
850 ** Uses....... 
851 *k Inclusive: C(A), D(A) 
852 x 
853 ** Stk lvls: None 
854 ae 
855 ** NOTE: 
856 ae LEEWAY is included in the nenory check iff MAIN device. 
857 * 
858 ** History: 
859 ax 
860 a Date Prograrner Modification 
361 RKO Cee tocsie:. -eeunessua es: eSesaoesos cue soa ie See See ede eoce cos 
862 ek 06/11/82 FH Designed and coded. 
863 kK 03/10/83 FH Check for < 0 nenory 
864 ax 
865 ORR IOI OTT TOI 
866 FOO ITT IIT IOI OK 
867 O13CD E2  =RMEMCH C=C-A A Coripute available nenory 
868 O13CF 881 *C<B OR Not enough roon? 
869 013D2 D1 GOYES RMEM10 
870 01304 94F *DHO OS Not in MAIN? 
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871 013D? 61 GOYES 

872 x 

873 * Check serory 

874 % 

875 01309 D7 D=C 

876 013DB D2 C=0 

877 013DD 3140 LC(2) 

878 013E1 DF COEX 

879 013E3 EB C=C-D 

880 013E5 49 GOC 

881 013E8 8B1 7C<B 

882 O13EB 40 GOYES 

883 x 

884 013ED 03 = RMENOS RTNCC 

885 O13EF 3300 =RNEM10 LC(4) 
00 

886 013F5 02 RTNSC 


RNENOS 
With LEEWAY if ain MAIN 


A 

A 

=LEEWAY 

A 

A 

RNENIO If less than 0 nenory 
A 

RMEM10 


=eNEn Return error code 
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887 RPLLIN STITLE Replace Lane in Menory File 
888 (IGG III OCT GOTO TOC TOR TT TR 
889 FOI TID III ITI TOSS I III IOS TS IO II SSI IST OS STS SSS SI SSIS IITA 
39%) ih 
891 - Nane:(S) RPLLIN - Replace Line in Menory File 
892 x 
893 k* Category:  FILUTL 
$94 ak 
895 *k Purpose: 
896 an Replace a line in a menory file with the contents of 
897 an the output buffer. May be used to insert, delete, or 
898 ak replace a line in the file. 
899 ax 
90) xk Entry: 
1 aa OUTBS @ Start of replacenent line 
2 am AVNENS @ End of replacerent line (address of last 
%3 ae nib + 1) 
904 ax ACA) = Address of last nib + 1 of old line 
905 xx C(A) = Address of file header of file 
96 ae R3(A) = Length of OLD line in nibs (zero for 
907 ak insertion) 
908 ae P = 0 
909 xk 
910 ae Exit: 
911 a R3(A) = Offset of nove (DEST END - SOURCE END) 
912 ae P = 0 
913 ax Carry clear: [Successful replacenent] 
914 aK Output buffer collapsed 
915 kk ACA) = End + 1 of replaced line in file 
916 an B(A) = Length of replacenent line in nibs 
917 kk C(A) = (OUTBS) 
918 ax Carry set: 
919 ak C(3-0) = Error code: 
920 x eMENM - Insufficient nenory 
921 ak eILACS - Illegal access (if ROM or PRON) 
922 kk 
923 ** Calls: OBLCNP, MOVE*N, MVMNEM+, INITPT 
924 x 
925 *k Uses....... 
926 kk Exclusive: A,B(A),C, D1,RO,R1, R3 
927 Inclusive: A,B  ,C,D(S),D(7-0),00,01,RO,R1,R2,R3 
928 
929 ** Stk lvls: 3 
930 tok 
931 KX NOTE: 
932 aS Security and privacy are not checked. ROM or EPROM 
933 i access returns eFACCS error. 
934 a 
935 as 
936 ** Algorithn: 
937 ak 
938 xk History: 
939 a 
940 ax Date Progranner Modification 


941 EM. Guess, Coceeesacee , ECU loe eee oe ee 
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942 kx FH Adapted fron a TRANSFORM utility 
943 Kk 92/15/83 FH Packed and updated docunentation 
046 JIC ITI I IOI SIO IIIT O TTS II STII II SIS IIIA 
947 IOSD I ISI III III III II II III IIIS IIIT III OSTA I ISI STIS IST ISI ITI SII IN 
948 013F7 108 =RPLLIN RO=C Save file header 
949 O13FA 101 R1=A Save line end + 1 
950 013FD 7880 GOSUB OBLCNP Corpute line length 
951 01401 D8 B=A A . into B 
952 01403 123 AR3EX Exchange old line, new line len 
953 01406 £8 B=B-A A B = OFFSET 
954 01408 118 C=RO C = FILE HEADER 
955 0140B 111 A=R1 A = SOURCE = old line end + 1 
956 O140E 7A2F GOSUB AVNEN+ Move menory out 
957 01412 D4 A=B A R3 = offset 
958 01414 123 AR 3EX . and A = New line len 
959 01417 400 RTNC Return if error 
960 O141A 118 C=RO Recall old line end + 1 
961 01410 C9 C=C+B A C = new line end + 1 
962 O141F E2 C=C-A A C = DEST = old line begin 
963 01421 D8 B=A A B = LEN 
964 01423 1FF8 Di=(5) =OUTBS A = SOURCE = (QUTBS) 

Fe 
965 0142A 143 R=DAT1 A é 
966 0142) 77DE GOSUB MOVE*N Move new line into position 
96? 01431 C3 C=C+B A A = New line end 
968 01433 DA A=C ‘ 
969 JI IK III IIA II IIIT ID ISI IIIS IS TTI IIIS ITN 
970 * NOTE: FALLS INTO FOLLOWING CODE * 


971 JOU III ITT TTT TE OTT TT TK 
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972 OBCOLL STITLE Output Buffer Pointer Manipulation 
973 IK IIIS III IIIA RI IOI IIIS IIIT IOI I IIIS OSS SSIS III SII IIS IISSISSISI IAS: 
974 JOO OTT TIS OSI III IT ISIS IS IIS ISO IOI I SAI SAS 
975 ah 
976 ** Nane: CLCOLL - Collapse Buffer Pointers to CLCSTK 
977 a* Narie: SYCOLL - Collapse Buffer Pointers to SYSEN 
978 ** Narie:(S) OBCOLL - Collapse Output Buffer 
979 ** Nane: BBCOLL - Collapse Input, Output Buffer Pointers 
980 ** Nane: OBPRD - Read Output Buffer Pointers 
981 ** Nane: OBLCMP - Conpute Output Buffer Length 
982 ** Nane: INBS=C - Set INBS to the Value in C 
983 **% Nane: D1=IBS - Set D1 to Start of Input Buffer 
984 ** Nare:(S) DI@AVS - Set D1 to Available Menory Start 
985 AX Nane: AVS=DO - Set AVMEMS to Value in DO 
986 xk Nane: AVS=C - Set AVMENS to Value in C 
987 aR 
988 *% Category:  PTRUTL 
989 kk 
990 xk Purpose: 
991 aR Manipulate buffer pointers. 
992 aK 
993 x CLCOLL: 
994 Ki Collapse SYSEN, OUTBS, and AVNENS to CLCSTK. 
995 - 
996 aa SYCOLL: 
997 aA Collapse OUTBS and AVMENS to SYSEN. 
998 aR 
999 aR OBCOLL: 
1000 . Collapse AVMENS to OUTBS (collapse output buffer). 
1001 
1002 in BBCOLL: 
1003 x Collapse INBS, OUTBS, and AVNENS to SYSEN (collapse 
1004 ak both input and output buffers). 
1005 ae 
1006 i OBPRD: 
1007 ad Read output buffer pointers QUTBS and AVNENS into C(A), 
1008 a ACA). 
1009 _ OBLCHP: 
1010 ee Compute length of output buffer = (AVMEMS) - (OUTBS). 
1011 
1012 zs INBS=C: 
1013 a Set INBS to the value in C. 
1014 ae 
1015 x D1=IBS: 
1016 ae Set D1 to start of input buffer. 
1017 x 
1018 a DI@AVS: 
1019 = Set D1 to AVMENS, ACA) to (AVMNENS). 
1020 eS 
1021 ae AVS=D0: 
1022 xR Set AVNENS to value of DO. 
1023 a 
1024 ae AVS=C: 
1025 ak Set AVMENS to the value in C(A). 


1026 ae 
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1027 ak 
1028 **k Entry: 
1029 se No entry conditions assuned unless explicitly stated below. 
1030 ax 
1031 ae INBS=C: 
1032 st C(A) = Value to store in INBS. 
1033 se 
1034 ak AVS=C: 
1035 aR C(A) = Value to store in AVNENS. 
1036 a 
1037 an 
1038 AS Exit: 
1039 x 
1040 an CLCOLL: 
1041 ak C(A) = (CLKSTK) 
1042 a D1 = § beyond AVNENS 
1043 ae Carry = Clear 
1044 = 
1045 xx SYCOLL: 
1046 ah C(A) = (SYSEN) . 
1047 xk D1 = 5 beyond AVNENS 
1048 a Carry = Clear 
1049 a 
1050 xk OBCOLL: 
1051 aX C(A) = (OUTBS) 
1052 = D1 = § beyond AVMENS 
1053 ah Carry = Clear 
1054 ae 
1055 am BBCOLL: 
1056 an C(A) = (SYSEN) 
1057 xh 01 = INBS 
1058 ax Carry = Clear 
1059 = 
1060 xR OBPRD: 
1061 ae ACA) = (RYMENS) 
1062 ae C(A) = (OUTBS) 
1063 ae D4 @ AVMENS 
1064 ae Carry = Clear 
1065 7 
1066 ae OBLCNP: 
1067 ax ACA) = Length of output buffer -- (AVMEMS) - (OUTBS) 
1068 ex C(A) = (OUTBS) 
1069 = D1 @ AVNENS 
1070 ae Carry = Clear 
1071 aa 
1072 Re INBS=C: 
1073 a C(A} = Entry state 
1074 ae D1 = INBS 
1075 a Carry = Clear 
1076 ie 
1077 =e D1=IBS: 
1078 Se M1 @ Start of input buffer 
1079 a C(A) = INBS 
1080 AR Carry preserved 


1084 Be 
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1082 BK AVS=D0: 
1083 ail C(A) = AVMENS 
1084 ae Carry = Clear 
1085 ak 
1086 ae AVS=C: 
1087 ah C(A) = AVMENS 
1088 ak DO @ C(A) entry value 
1089 A% Carry = Clear 
1090 ak 
1091 a 
1092 ** Calls: INITPT (CLCOLL,SYCOLL,OBCOLL only) 
1093 ae 
1094 &* Uses....... 
1095 ** Inclusive: €(A),D1 (CLCOLL, SYCOLL, OBCOLL, BBCOLL, 
1096 ak INBS=C ,D1=IBS) 
1097 ak ACA), 01 (DI@AVS) 
1098 an A(A),C(A),01 (OBPRD, OBLCNP) 
1099 ak C(A) (AVS=D0) 
1100 at C(A), DO (AVS=C) 
1101 aK 
1102 ** Stk lvls: © (CLCOLL,SYCOLL, OBCOLL, OBPRD, INBS=C, 
1103 ae D1=IBS, DI@AVS, AVS=D0,, AVS=C) 
1104 ah 1 (OBLCNP) 
1105 ak 2 (BBCOLL) 
1106 ak 
1107 ** History: 
1108 ak 
1109 xk Date Progranner Modification 
1110 BR meee ene newer nen e cee n nnn ne en nn nnn nent erent enter eee 
1114 ak 09/16/82 FH Designed and coded. 
1112 Rk 10/12/82 FH Added CLCOLL, SYCOLL, BBCOLL, INBS=C, 
1113 ak D1=IBS, AVS=D0, AVS=C 
1114 Rk 02/10/83 FH Renoved IBPRD, OBSKIP, OBBACK 
ak 
ne III III IIIA II III ID IIS IS ISI SSS SISISS SSS SSI IS SSSSSSSISSIS ISIS SISSIS SII ISIS 
1117 RII III KITA III II TI SII I IOI IIIS ISIN STSISII IS ASISSSSSIS ISS SIS SSSI IS 
1118 FORO IO TOO 
1119 * NOTE: FALLEN INTO FROM ABOVE !! & 
1120 IIR III III SII IIIS ISO TTI TIS IS SSSO AISA IIS 
1121 01435 1FF8 =0BCOLL D1=(5) =OUTBS Fetch Output Buffer Start 
5F2 
1122 0143C 2E P= 15-((AVMENS )-(QUTBS))/5 
1123 O143€ 147 OBCOL1 C=DAT1 A Read value to collapse to 
1124 01441 8D00 =initpt GOVLNG =INITPT Set all pointers to C(A) 
000 
1125 5 
1126 01448 1F$8 =CLCOLL D1=(5) =CLCSTK Fetch Calc Stack start 
5F2 
1127 O144F 2C P= 15-((AVMENS)-(CLOSTK))/5 
1128 01451 6CEF GOTO OBscoLi 
1129 x 
1130 01455 1FA8 =SYCOLL D1=(5) =SYSEN Fetch Systen End 
5F2 
1131 0145C 2D P= 15-((AVMENS )-(SYSEN) )/5 


1132 O145€ 6FDF GOTO OBCOL1 
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1133 

1134 01462 7FEF 

1135 01466 1F6C 
6F2 

1136 O146D 145 

1137 01470 03 

1138 

1139 01472 1F6C 
6F2 

1140 01479 147 

1141 0147C 137 

1142 O147F 01 

1143 

1144 01481 1FF8 
5F2 


1145 01488 6DOE 
& 


1146 
1147 O148C 71FF 
1148 01490 ER 
1149 01492 03 
1150 
1151 01494 136 
1152 01497 1B49 
5F2 
1153 O149E 144 
1154 O14A1 136 
1155 014A4 03 
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x 


=BBCOLL GOSUB SYCOLL 
=INBS=C D1=(5) =INBS 


DAT1=C A 
RTNCC 
& 


=D1=IBS D1=(5) =INBS 


C=DAT1 A 
CD1IEX 
RIN 

& 


=OBPRD 01=(5) =OUTBS 
GOTO FLADI0 
=OBLCNP GOSUB OBPRD 
A=A-C A 
RTNCC 
=C DO=(5) =AVNENS 
DATO=C A 


CDOEX 
RTNCC 
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Page 27 
Collapse QUTBS, AVMENS 
Update INBS 
Read INBS 
into D1 


C(A) = (OUTBS) 


Read pointers 
Conpute length 


C(A) = new avrens 
Update RVMENS 


DO == _~new avneris 
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1156 RSTK<R STITLE Restore RSTK Level(s) Fron RAN 
1157 JI IO RR IA IIA III IIIT IIIT SII TRIAS 
1158 RERREKERKKEKRIKIII KOO IIIT I TTT 
1159 x 
1160 &k Mane: (S) RSTK<R - Restore RSTK Level(s) Fron RSTKBF Buffer 
1161 ak 
1162 ** Category:  SAVUTL 
1163 RK 
1164 ** Purpose: 
1165 ax Restore Return Stack Level(s) fron circular buffer. 
1166 ak Levels are saved and restored on a last-in-first-out 
1167 am (LIFO) basis (see R<RSTK for save routine). The buffer 
1168 ak holds up to 16 levels. No nore than 6 levels should be 
1169 am saved or retored in one call, however, since the return 
1170 s to the caller of RSTK<R requires one level. 
1171 
1172 &* Entry: 
1173 ak P = n- 1, where n is nunber of levels to restore 
1174 ax (not counting return to caller of R<RSTK) 
1175 ax 
1176 tk Exit: 
1177 x Carry = Clear 
1178 ak P = 0 
1179 ax DO @ RSTKBp RAM location 
1180 aK 
11814 ** Calls: RSTK>1 
1182 ak 
1183 RX Uses....... 
1184 tk Inclusive: C(A), C(S), BCA), DO 
1185 ae 
1186 *k Stk lvls: on (n levels are ADDED te the stack on return) 
1187 x 
1188 ** NOTE: 
1189 aK The addresses stored in the buffer are NOT updated by 
1190 aX RFADJ. 
1191 x 
1192 ** Detail: 
1193 kx The position in the circular buffer is indicated by 
1194 it the nibble =RSTKBp in Systen RAN, which points to the 
1195 a last position uritten. 
1196 ak 
1197 Be During the routine: 
1198 ak C(S) = Level counter (fron P on entry) 
1199 cae P = (Circular buffer position (fron =RSTKBp) 
120 x These counters are set up by routine RSTK>1, which is 
1201 ze shared by RSTK<R and R<RSTK. 
1202 ae 
1203 ** History: 
1204 a 
1205 x Date Prograriner Modification 
1206 RK ewer meee eee en rere ner r renner terre creer erence cen c rene 
1207 Rk 09/14/82 FH Designed and coded 
1208 k 02/24/83 FH Expanded buffer fron 8 to 16 levels 
1209 a 


1210 FORO JRO RIO IJ I ITI TI TTI IT III 
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1211 JOO ICICI OCIS ISIS OGIO ITO II ITI IK 
1212 014A6 22 9 -=RST2«R P= 2 Restore 3 levels. 

1213 014A8 FD = =RSTK<R B=-B-1 A Clear carry: no pointer increnent 
1214 O14AA 07 C=RSTK 

1215 O14AC 7450 : GOSUB RSTK>1 Set up counters and position 
1216 

1217 * Recall levels 

1218 x 

1219 01480 146 R>RS20 C=DATO A Restore level 

1220 014B3 06 RSTK=C ; 

1221 O14B5 184 DO=DO- 5 Move position 

1222 014B8 OD P=P-] : 

1223 O14BA 560 GONC = R>RS40 : 

1224 O14BD 1986 DO=(2) (=RSTKBF)+15*5 =. (wrap around) 

1225 O14C€1 A4E RoRS40 C=C-1 S$ Decrenent level counter 
1226 014C4 SBE GONC =R>RS20 Loop if wore 

1227 x 

1228 : Save position, restore registers, and return 

1229 

1230 014C7 80FO R>RSGO CPEX 0 Save position 

1231 O14CB 19F1 D0=(2) =RSTKBp 

1232 O14CF 15C0 DATO=C 1 

1233 01403 20 P= 0 

1234 01405 D9 C=B A Recall return address 
1235 01407 06 RSTK=C Return 


1236 014D9 03 RTNCC 
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Ver. 3.39/Rev. 2306 Save RSTK Level(s) Into RAN Page 3 
1237 R<RSTK STITLE Save RSTK Level(s) Into RAN 
1238 JOGOS TT IIIS TOOT TOTS ISI IOI SAS: 
1239 FOO IOI JOIST TTT OR FO 
1240 a 
1241 **K Nane:(S) R<RSTK - Save RSTK Level(s) Into RSTKBF Buffer 
1242 xx 
1243 **k Category:  SAVUTL 
1244 ak 
1245 *% Purpose: 
1246 ax Save Return Stack Level(s) in circular buffer. Levels 
1247 ak are saved and restored on a last-in-first-out (LIFO) 
1248 KK basis (see RSTK<R for restore routine). The buffer may 
1249 aK hold up to 16 levels. No more than 6 levels should be 
1250 ae saved or retored in one call, however, since the return 
1251 an to the caller of R<RSTK requires one level. 
1252 aR 
1253 &* Entry: 
1254 aR p > n- 1, where n is nunber of levels to save 
1255 ax (not counting return to caller of R<RSTK, 
1256 xx which is not saved) 
1257 ak 
1258 *k Exit: 
1259 a Carry = Clear 
1260 aK P = 0 
1261 ae DO @ RSTKBp RAN location 
1262 a 
1263 *k Calls: RSTK>1 
1264 is 
1265 PR USSG oo uch 
1266 ** Inclusive: BCA), CCA), C(S), DO (R<RSTK) 
1267 aK 
1268 e Stk lvls: -n (n levels are REMOVED fron stack on return) 
1269 
1270 xx NOTE: 
1271 ax The addresses stored in the buffer are NOT updated by 
1272 a RFADJ. 
1273 xx 
1274 ** Detail: 
1275 ae The position in the circular buffer is indicated by the 
1276 aK nibble =RSTKBp in Systen RAN, which points to the last 
1277 a position written. 
1278 a 
1279 ae During the routine: 
1280 ak C(S) = Level counter (fron P on entry) 
1281 ak Pp = (Circular buffer position (from =RSTKBp) 
1282 se These counters are set up by routine RSTK>1, which is 
1283 a shared by RSTK<R and R<RSTK. 
1284 ke 
1285 *k History: 
1286 ne 
1287 aX Date Progranner Modification 
1288 KK meee n ne tenn meee n ne pe rr e reer ernment ener rn er renner ee 
1289 kK 09/14/82 FH Designed and coded. 
12% KK 92/24/83 FH Expanded to 16 use levels 


1291 a 
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4292 SII IOI IO TIO TTI TOT TTT IIT RIT IIIT III IOI SAI IDA 
4293 SII III OR II IIIS TO TI DIT ATI TIT I II OT IIIT III IDI IIIT I IIS 
1294 O14DB 22 9 = R<RST2 P= Z To save 3 levels. 

1295 O14DD D1 = =R<RSTK B=O0 A Set carry for pointer increnent 

1296 O14DF CD B=B-1 A ‘ 

1297 O14E1 07 C=RSTK 

1298 O14E3 7D10 GOSUB RSTK>1 Set up counters 

1299 O14E7 5EO GONC RSTK40 BET 

1300 x 

101 * Store stack level 

12 x 

1303 O14EA 164 RSTK20 DO=D0+ 5 Move position 

1304 O14ED OC P=P+14 4 

1305 O14EF 560 GONC RSTK40 . (continue unless wraparound) 

1306 014F2 1902 DO=(2) =RSTKBF ; 

1307 O14F6 07 RSTK40 C=RSTK Save level 

1308 O14F8 144 DATO=C A ‘ 

1309 O14FB A4E C=C-1 § Decrenent level count 

1310 O14FE SBE GONC = RSTK20 . and loop if nore 

1311 01501 45C GOC R>RS6O BET 

ie JOU ICI IDOI ISI II III IST III IIIT ISI IIIT IIIA 

1314 x 

1315 : RSTK>1 - Set up counters for R<RSTK and RSTK<R. 

1316 

131? * Entry: Carry = Set if buffer position to be increnented 

1318 : = Clear if buffer position already correct 

1319 x C(A) = Return address 

1320 e P = n- 1 (level count - 1) 

1321 : 

1322 x Exit: C(S) = n- 1 

1323 - B(A) = Return address 

1324 x P = Buffer pointer (increrented if needed) 

1325 x DO @ Position in RSTKBF corresponding to P 

1326 x Carry = Clear 

132? * 

1328 01504 05 RSTK>1 B=C A Save return address 

1329 01506 1BF1 DO=(5) =RSTKBp Position DO @ buffer pointer 
8F2 

1330 01500 1564 C=DATO § Set P = pointer, 

1331 01511 80FF CPEX 15 . C(S)en-4 

1332 01515 540 GONC = RSTK>2 No increnent needed? 

1333 01518 OC P=P+] Increnent 

1334 O151A D2 RSTK>2 C=0 A Make C(A) = 1*pointer 

1335 0151C 8000 C=P 0 ‘ 

1336 01520 C6 C=C+C A «i 2*pointer 

133? 01522 C6 C=C+C A ont 4*pointer 

1338 01524 809 C+P+1 ot ut 1 + 5*pointer 

1339 0152? 132 ADOEX Calculate address = 

1346 0152A CA A=R+C A . RSTKBp + 1 + 5*pointer 

1341 0152C 132 ADOEX : 


1342 O152F 03 RTNCC 
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1343 SALLOC STITLE Allocate Save Stack Area 
1344 KIKI IK IIIT DTI DT ITT IT DTT ISAS AIR IDI IIIT I ISI IIS ISI SII IIA SSI IIS 
1345 S000 IJ JOIST TOT TTT TTT TTT TTT RTT TOK 
1346 la 
1347 ** Nane:(S) SALLOC - Allocate Arbitrary Save Stack Block 
1348 Nare: ALINFO - Allocate File Info Save Stack Block 
1349 
1350 **% Category: SAVSTK 
1351 as 
1352 xt Purpose: 
1353 ak Allocates a block of the specified size on the Save 
1354 aR Stack (SAVSTK). SALLOC allocates an arbitrary size, 
1355 xk and ALINFO allocates the arount for the filespec info 
1356 xk area used by COPY and TRANSFORM. Available nmenory is 
1357 ak checked with or without LEEWAY, depending on the entry 
1358 ah conditions. 
1359 xk 
1360 ak Entry: 
1361 ak P = © if menory check to be perforned with LEEWAY 
1362 = # © if menory check to be performed without LEEWAY 
1363 ah SALLOC: 
1364 ah C(A) = Nunber of nibs to allocate 
1365 ax 
1366 ** Exit: 
1367 a Pp = 0 
1368 ae B(A) = Number of nibs allocated 
1369 ae 
1370 ak Carry clear: 
1371 a Allocation was successful 
1372 wh AVMEME updated 
1373 ak D1 @ Start of newly created Save Area 
1374 ah C=D0 on entry. 
1375 aR 
1376 =e Carry set: 
1377 xe Allocation failed due to insufficient menory 
1378 = C(3-0) = Error code (=eMEN) 
1379 x 
1380 a 
1381 ** Calls: MENCKL, MOVEU3 
1382 a 
1383 *A Uses....... 
1384 &k Exclusive: A(A),B(A),CCA),D1 
1385 ** Inclusive: A,  B(A),C(A),D1 
1386 as 
1387 kk Stk vis: 2 
1388 = 
1389 *k Detail: If sufficient nenory to allocate 
1390 aR Save DO on stack 
1391 ax Move nenory between SAVSTK --> AVNENE 
1392 aA Update AVNENE 
1393 aR Restore DO 
1394 ee 
1395 SS SSS SSS SSE SSS SS ESS ESOS ECS S ESS SSS SSS SSS SSS S559 00 0.05.8.5.5 5.5.5.5.0.9. 6.5 
1396 FO III RO TOO JOO III RO TIT OTTO TO OK 


1397 - 
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1398 
1399 
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* NOTE: LC(5) NOT possible to preserve P setting on entry 
rs 


1400 01531 1F23 =ALINFO D1=(5) =LFILSV 


000 
1401 01538 137 


CDIEX 


1402 0153B 766D =SALLOC GOSUB MEMCKL 


1403 0153F 400 

1404 01542 136 

1405 01545 06 

1406 

140? 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 01547 174 

1418 0154A 143 

1419 0154D 1BE9 
5F2 

1420 01554 146 

1421 01557 130 

1422 0155A E2 

1423 O155C EO 

1424 O155E 141 

1425 01561 131 

1426 01564 8E00 
00 

1427 0156A 0? 

1428 0156C 134 

1429 O156F 03 


ia 


we Oe OF 0 Oe > OO Oe Oe 


RTNC 
CDOEX 
RSTK=C 


Allocate 50 decinal nibs 


Move into C(A) 
Insufficient nenory? 
Error Return 
Preserve D0 


Move Menory between (SAVSTK) ---> (AYNENE) 


Conpute Move Nenory paraneters 


Start of Source = 

Start of Dest = 

Length to Move = 
Update AVNENE 

D1 @ AVNENS 


B = Length to Allocate 


Current AVMEME (DO) 
(AVMENE) - Length to Alloc (D1) 
((SAVSTK) - (AVMENE)) (C) 


D1=D1+ (AVMENE)-(AVYNENS) Position to AYNENE 


A=DAT1 A 
DO=(5) =SAVSTK 


— 
oO 
D> 


NOveu3 


Current AVNENE 


Start of Source = AVMENE 
Length to Nove 

New AVMEME 

Update AVMENME 

Start of Destination 
Nove nenory 


Restore DO 


Successful Allocate 
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1490 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 


SNAPRS STITLE Restore CPU Snapshot 
RIK IIT KI IK KILI AI III LISI IS IIIS ISAS SSIS IIIISSISISSI ISIS SIS SII SSIS IIS. 


FOTO ITT TUTTO TTT TO TTT TT TOK 


ak 
ax 
ak 
ak 
aK 
ax 
aK 
ak 
ak 
ak 
ak 
aK 
ak 
ax 
aK 
ax 
ak 
ax 
ak 
an 
ak 
ax 
ak 
aK 
ak 
ak 
ak 
ak 
ax 
ak 
ax 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
ak 
ax 
xx 
ak 
ak 
ak 
ak 
a 
ak 
xk 
aK 
ax 
xx 
ax 


Nare:(S) SNAPRS - Restore CPU Snapshot Fron SNAPSV Buffer 
Narie:(S) SNAPR* - Restore CPU Snapshot Fron Any Buffer 


Category: SAVUTL 
Purpose: 


Restore registers saved by SNAPSV (A, D, DO, Di) and 
return saved stack level for caller to push onto stack. 


Entry: 
SNAPRS: 
None. 
SNAPR*: 
01 @ Starting address of save buffer + 42 decinal 
Exit: 
DO = Value saved by last SNAPSV call. 
01 = Value saved by last SNAPSV call. 
aR = Value saved by last SNAPSV call. 
B(R) = Stack level saved by last SNAPSV call. 
C(A) = Stack level saved by last SNAPSV call. 
D = Value saved by last SNAPSV call. 
Carry = Clear. 
Calls: None. 
Uses....... 


Inclusive: A, B(A), C(A), D, DO, 01 
Stk lvls: 0 
Detail: 


SNAPSHOT SAVE BUFFER LAYOUT 


Of fset 
into 
Buffer Nibs Register 
0 16 A 
16 16 D 
32 5 01 
37 5 DO 
42 5 Stack level 
History: 
Date Programmer Modification 
09/10/82 FH Designed and coded. 
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1485 SII TORR TO DIA LILI IIT I STI TID I TDI TI ITI III IISIISS IS ISS SSIS SII SII IIS 
1486 JR III RIK III III IIIS ASI III III SIDI IS III III II ISIS ISI SOS SSIS SSS SISIS: 
1487 01571 1FA1 =SNAPRS D1=(5) (=SNAPBF)+42 Fetch return address into B(A) 

8F2 
1488 01578 143 =SNAPR* A=DATI A 
1489 0157B D8 B=A A : 
1490 01570 1C4 D1=D1- 5 Restore DO 
1491 01580 143 A=DATI A : 
1492 01883 130 DO=A ; 
1493 01586 1C4 D1=D1- 5 Fetch D1 
1494 01589 147 C=DAT1 A ; 
1495 O158C 1CF D1=D1- 16 Restore D 
1496 O158F AFF CDEX W . (Do not pack this sequence out 
1497 01592 1577 C=DAT1 W since upper C(W) nibs must be 
1498 01596 AFF CDEX WwW perserved for nsg routines) 
1499 01599 1CF D1=D1- 16 Restore A 
1500 0159C 1537 A=DAT1 W ‘ 
1501 O15A0 135 D1=C Restore D1 
1502 015A3 DS C=B A Position stack level 
1503 015A5 03 RTNCC 
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1504 BNAPSV STITLE CPU Snapshot Save 
$505 III TR IIIA IIS IS SIDI ISI III I IIL IA ISIS IIS II III ISIS SII III SSI SSIS. 
1506 JI ITO OTIS TI SIS IIT SATII IIIA ISI ISIS 
4507 aK 
1508 ** Nane:(S) SNAPSV - Save Snapshot of CPU in SNAPSV Buffer 
1509 Nane: SNAPLC - Save Snapshot of CPU in Any Buffer 
1510 * 
1511 ** Category: SAVUTL 
1512 ae 
1513 ** Purpose: 
: 1514 x Save linited snapshot of CPU (1 stack level, A,D,DO,D1) 
1515 aX to allow a routine to function without disturbing the 
1516 ah registers of its caller. Useful for tight situations. 
1517 a Snapshot 1s saved in systen RAN, and 1s restored by the 
1518 xx routine SNAPRS. 
1519 ax 
t 1520 i SNAPSV uses dedicated RAN locations for storage. 
1521 ae SNAPLC uses a “local” RAM location for storage. 
1522 ax 
1523 ** Entry: 
1524 ax SNAPSV 
1525 ax C(A) = Stack level to be saved; popped by caller of 
1526 ak SNAPSV. 
1527 ae 
1528 ax SNAPLC 
1529 pias D1 @ Starting address of save buffer + 42 decinal 
15H ak C(R) = Anything you want to save. 
1531 ax 
1532 tk Exit: 
1533 ak B(A) = C(A) on entry 
1534 ax C(A) @ Save area start address + 42 decinal 
1535 aA Carry = Clear. 
1536 ae 
1537 xXx 
1538 ** Calls: None. 
' 1539 a 
: 1540 kk Uses. ...... 
d 1541 kk Inclusive: B(A), C(A) 
1542 ae 
1543 ** Stk lvls: 0 
1544 xx 
: 1545 xX Detail: 
1546 - 
1547 ax SNAPSHOT SAVE BUFFER LAYOUT 
1548 ax 
1549 a Offset 
1550 xe into 
1551 ae Buffer Nibs Register 
1582 RKO er erne wt teen en 
1553 a 0 16 A 
1554 ae 16 16 D 
1555 ae 32 5 D1 
1556 ag: 37 5 DO 
1557 z 42 5 Stack level 


1558 - 
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1559 *k History: 
1560 a 
1561 aR Date Progranner Modification 
1562 BK nnn nee nen n ene nee n nee enn enter e cence 
1563 *K 09/10/82 FH Designed and coded. 
1564 ek 11/15/82 NB Added SNAPLC entry 
aX 
ee 1G OI TOTTI III OTT IIIT RE III IIT IIS ISIS SAIS III IS 
1567 JI III OI IIIS I IIIT TI ITI I I TIT TITS TITAS ISIS IS ISS SSSI IK 
1568 015A? DS = =SNAPSV B=C RA Set aside stack level 
1569 015A9 137 CDIEX Save A 
1570 O1SAC 1FOF D1=(5) =SNAPBF 
7F2 
1571 015B3 1517 =SNAPLC DAT1=A W : 
1572 01587 17F D1=Di+ 16 Save D 
1573 O15BA AFF CDEX W ‘ 
1574 O15BD 1557 DAT1=C W 
1575 O15C1 AFF CDEX WwW H 
1576 O15C4 17F D1i=B1+ 16 Save D1 
1577 015C? 145 DAT1=C A : 
1578 O15CA 174 Di=D1+ 5 Save DO 
4579 O15CD 136 CDOEX ; 
1580 015D0 145 DAT1=C A ; 
1581 01503 136 CDOEX . and restore it 
1582 01506 DD CBEX A Save stack level 
1583 01508 174 D1i=Di+t 5 ‘ 
1584 01508 145 DAT1=C A : 
1585 O15DE DD BCEX A . and return it to BCA) 
1586 015E0 137 CDIEX Restore D1 


1587 O15E3 03 RTNCC 
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1588 SRLEAS STITLE Release Block fron Save Stack 
1589 KIIK KK KEK IRE RE RIO ORR SOT SOO JO JOR SOOO OOOO TE 
1590 FOI IOI IO ITO OO TTT TTI IIIT DTI ITI SSI TDN 
1591 ak 
1592 ** Nane:(S) SRLEAS - Release Arbitrary Block Fron Save Stack 
1593 Nane: RLINFOQ - Release File Info Block Fron Save Stack 
1594 
1595 ** Category:  SAVUTL 
1596 aK 
1597 ** Purpose: 
1598 zs Release block of specified size fron the Save Stack. 
1599 ak SRLERS releases a block of arbitrary size, while RLINFO 
1600 ae releases a block the size of the filespec info area 
1601 aR used by COPY and TRANSFORM. 
1602 ak 
1603 ak Entry: 
1604 xn SRLEAS: 
1605 aK C(A) = Number of nibs to release. 
1606 a RLINFO: 
1607 aa P = 0 
1608 kk 
1609 aX Exit: 
1610 an P = 0 
1611 ae dO @ Old Av nen end 
1612 ak D1 @ New Ay nen end 
1613 ak Carry = Clear 
1614 an 
1615 ** Calls: MOVED3 (RLINFO falls inte SRLEAS) 
1616 am 
1617 Ke Uses... 1... 
1618 Kk Exclusive: A(A),B(A),C(A), 00,01 
1619 kk Inclusive: A,  B(A),C(A),DO,D1 
1620 ak 
1621 aK 
1622 Kk Stk lvls: 0 
1623 ae 
1624 ** Detail: 
1625 xX Nove Nenory Doun paraneters: 
1626 kk 
1627 xk End Dest = (SAVSTK) (01) 
1628 a End Source = (SAVSTK) - release (D0) 
1629 : Length = ((SAVSTK) - release) - (AVMEMNE) (C) 
x 
icy JOIST OC IO TT ISIS IT IIIT ISIS ISI ISSIR I ITH 
1632 JO III IOC OCI TI ITI III TAR IIT 
1633 O15E5 3423 =RLINFO LC(5) =1FILSV Release 50 decinal nibs fron stk 
000 
1634 O15EC 1F99 =SRLEAS 01=(5) =AVNENME 
5F2 
1635 O15F3 143 A=DAT1 A Current Avail Men End 
1636 O15F6 D8 B=A A Save it 
1637 015F8 CA A=A+eC A New Avail Men End 
1638 O15FA 141 DATI=A A Update AVMENE 
1639 O15SFD 174 01=D1+ (SAVSTK)-(RAVMENE) Position to SAVSTK ptr 
1640 01600 143 A=DAT1 A Save Stack 
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1641 01603 131 DI=A End of Destination 
1642 01606 EE C=A-C A End of Source 
1643 01608 134 DO=C 
1644 0160B £9 C=C-B A Length to Move 
VUNG =MOVED3 Move stack & RTNCC 


1645 01600 8000 =Moved3 60 
000 


Saturn Assenbler 


Connand Execution Utilities Fri Dec 30, 1983 5:20 an 


Ver. 3.39/Rev. 206 Update File Chain Length Page 40 
1646 UPDOFCL STITLE Update File Chain Length 
1647 IO TRI TID I TID IRI II IIIS SSS T ISA ISI STII ISI SI ASI SSI ISI III SSSI SIS 
1648 SIO IOI IO SOIR UII OTTO OTTO TO 
1649 aR 
1650 ** Nane: UPDFCL - Update File Chain Length 
1651 ** Nane: UPDFC+ - Update File Chain Length 
1652 ak 
1653 ** Category:  FILUTL 
1654 xx 
1655 ** Purpose: 
1656 me Add an update offset to the file chain length field of 
1657 ak a file header. 
1658 ah 
1659 ** Entry: 
1660 aK B(R) = Update offset to add to header 
1661 xk UPDFCL: 
1662 ak C(A) = Address of file header 
1663 ak UPDFC+: 
1664 ak D1 @ File header 
1665 xa 
1666 ae Exit: 
1667 an B(A) = Entry state 
1668 an C(A) = New file chain length 
1669 x D1 @ File chain length field of file header 
1670 aR Carry = Clear 
1671 ae 
1672 ** Calls: None. 
1673 ae 
1674 AE USCS fire ced 
1675 ** Inclusive: B(AR), C(A), D1 
1676 aA 
1677 *K Stk lvls: 0 
1678 ak 
1679 ak 
1680 FI TDI I IIIT STATI IIIT III III IIT I III III IOS IOI TAS IOS 
1681 III IKI IIT ITI TST AT IIT ATTA SAIL ISI III ISIS III II IIIT SOT III STII STA IS: 


1682 01614 135 
1683 01617 17F 
1684 O161A 17F 
1685 0161D 147 
1686 01620 C9 
1687 01622 145 
1688 01625 03 
1689 

1690 

1691 

1692 01627 


=UPDFCL D1=C 
=UPDFC+ D1=D1+ (oF TYPh) 
D1=D1+ (oF LENh)-(oFTYPh) 
C=DAT1 A 
C=C+B A 
DATI=C A 
RTNCC 
x 


* Define the END length for packing info 
& 
END 
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ADJRZO 
=ADIREF 
=RLINFO 

AYVMENE 

AVNENS 
=AVS=C 
=AVS=D0 
=BBCOLL 
=CHKSPC 
=CHKSPF 
=CHKnert 

CKSPC1 

CKSPC2 
=CLCOLL 

CLCSTK 

CSLUS 

CSRUS 

CURDVC 

CVUCW 

D1=CRS 
=D1=IBS 
=DIG@AVS 
=DEFFIL 

END 

EOF LC+ 

FILO1O 

FILO20 

FILO30 

FILO35 

FILO40 

FILO45 

FILO5O 
=FILFIL 

FLAD20 

FLAD30 
=FLADDR 

FLDE2O 

FLDE40 

FLDE590 

FLDE60 

FLDE8O 

FLDE&5 
=FLDESO 
=FLDEV+ 
=FLDEVX 

INBS 
=INBS=C 

INITPT 

LEEWAY 

LOCADR 

LSTABR 
=HENCKL 
=NENCL4 

fF D010 

HF D020 


Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Rbs 
Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 


5062 #013C6 
5033 #O13A9 
5425 #01531 


193945 #2F539 
193940 #2F594 


5271 #01497 
5268 #01494 
5218 #01462 
4782 #O12RE 
4802 #01202 
4807 #012C7 
4795 #012BB 
4827 #012DB 
5192 #01448 


193925 #2F585 


5234 #01472 


4761 #01299 - 


4401 #01131 
5671 #01627 


4588 HOTTEC 
4621 #01200 
4639 #O121F 
4652 #01220 
4666 #0123A 
4689 #01251 
4706 #01262 
4558 HOTICE 
4751 HOI28F 
4758 #01236 
4715 #01268 
4457 #01169 
4460 #01160 
4462 #0116E 
4464 #01170 
4493 #0118) 
4524 #O11AC 
4550 #011C6 
4433 #01151 
4436 #01154 


194246 #2F6C6 


5222 #01466 
212 #OOOD4 


4773 #O12RA5 
4775 #012A7 
4859 #O12FB 
4870 #01306 


815 
807 
1400 
14 
14 
1152 
1151 
1134 
481 
487 
489 
486 
495 
1126 
14 
174 
187 
56 
316 
58 
1139 
386 
56 
1692 
379 
278 
289 
295 
299 
304 
312 
315 
269 
384 
385 
374 
158 
159 
160 
161 
172 
184 
193 
149 
150 
14 
1135 
1124 
13 
717 
381 
477 
478 
566 
570 


813 


384 
386 


430 
485 


1126 


280 
291 
296 
302 
304 
297 


375 
1145 
736 
166 
164 
162 
153 
168 
182 
170 


57 
1135 
483 


1402 


561 
568 
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436 
491 


490 
1127 


282 


298 


1139 


877 


564 
734 


1417 
1122 


285 
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1634 
1127 


1639 
1131 


1152 
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=MFDEVC Abs 4837 #O12E5 - 558 272 
sMFOVC+ Abs 4831 #012DF - 557 

=MFDVC- Abs 4840 #012E8 - 559 289 
=MOVE*H Abs 4872 #01308 - 607 759 966 
MOVE10 Abs 4898 #01322 - 616 609 
MOVED3 Ext - 1645 

MOVEDN Ext - 612 

MOVEUN Ext - 616 

MOveu3 Ext - 1426 

MVMEOO Abs 4917 #01335 - 710 722 
MVME20 Abs 4955 #0135B - 723 720 
MVME40 Abs 4983 #01370 - 736 732 
MVNEGO Abs 5005 #01380 - 744 738 
MVNE8O Abs 5020 #01390 - 755 747 
ZMVNEM Abs 4963 #01363 - 726 

=MVMEM+ Abs 4924 #0133C - 713 956 
=Moved3 Abs 5645 #01600 - 1645 

OBCOL1 Abs 5182 HOI43E - 1123 1128 1132 
=OBCOLL Abs 5173 #01435 - 1121 

=OBLCMP Abs 5260 #0148C - 1147 950 
=QOBPRD Abs 5249 #01481 - 1144 1147 

OUTBS Abs 193935 #2F58F - 14 964 1121 1122 1144 
PRGFE Ext - 710 

=R<RST2 Abs 5339 #0140B - 1294 

=R<RSTK Abs 5341 #014DD - 1295 

R>RS20 Abs 5296 H014B0 - 1219 1226 
R>RS40 Abs 5313 #01401 - 1225 1223 
R>RS60 Abs 5319 #014C7 - 1230 1311 
RDINFD Ext - 278 

RDINFO Ext - §57 

RDINFS Ext - 271 

RFAD+I Ext - 814 

RFAD-I Ext - 815 

=RLINFO Abs 5605 #015E5 - 1633 


RMENOS Abs 5101 HO1S3ED - 884 8871 
=RMEN1O Abs 5103 #013EF 885 495 869 880 882 


=RMEMCH Abs 5069 #013(0D - 867 739 

ROMNF- = Ext - 177 

=RPLLIN Abs 5111 #013F7 - 948 

zRST2<R Abs 5286 #014R6 - 1212 

RSTK20 Abs 5354 HO14ER - 1303 1310 
RSTK40 Abs 5366 #O14F6 - 1307 1299 1305 
=RSTK<R Abs 5288 #O14A8 - 1213 

RSTK>1 Ros 5380 #01504 - 1328 1215 1298 
RSTK>2 Abs $402 #0151A - 1334 1332 
RSTKBF Abs 194592 #2F820 - 14 1224 136 
RSTKBp Abs 194591 #2F81F - 14 1231 1329 
=SALLOC Abs 5435 #0153B - 1402 

SAVSTK Abs 193950 #2F59E - 14 1419 1639 
SCRTCH Abs 194817 #2F901 - 14 809 


SNAPBF Abs 194544 #2F7FO - 14 1487 1570 
=SNAPLC Abs §555 #01583 - 1571 
=SNAPR* Abs 5496 #01578 - 1488 
=SNAPRS Abs 5489 #01571 - 1487 
=SNAPSY Abs 5543 #015A7 - 1568 
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=SRLERS Abs 5612 HO1SEC - 1634 

SVINFO Ext - 314 

=SYCOLL Abs 5205 #01455 - 1130 1134 

SYSEN Abs 193930 #2F58A - 14 113%) 1131 
=UPDFC+ Abs 5655 #01617 - 1683 

=UPDFCL Abs 5652 #01614 - 1682 751 

dCARD Abs 7 #00007 - 13 566 

eDVCNF Ext - 193 

enen Ext - 885 

Zinitpt Abs 5185 #01441 - 1124 

1FILSV Abs 50 400032 - 13. 1400 1633 

oF LENh Abs 32 #00020 - 13 1684 

oFTYPh Abs 16 #00010 - 13 1683 1684 

sCARD Abs 2 #00002 - 13. 281 «558 = 569 
sDEST Abs 3 #00003 - 13 1655 169 WS 
sEXTDV Abs 0 #00000 - 13 269 8565 
sUNDEF Abs 1 #00001 - 13. 270 9303 


svinfo Abs 4700 #0125C - 314 
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Input Paraneters 
Source file nane is TI8UTL::MS 
Listing file nane is TI/UTL: TI:ML::-1 
Object file nane is TIZUTL:TI:MS::-1 


111111 
012345678901 2345 
~~ Initial flag settings are 
Errors 
None 


Saturn RAssenbler Neus 
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WR WownaAnhwn — WoO~w”n nh Wr | OW CONAHA MOM awn 


35 

36 

37 

38 01627 DORO 
39 0162B BIC3 
40 0162F B125 
41 01633 C5 
42 01635 BIE3 
43 01639 FF 
44 

45 
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TITLE Cornmand Stack Utilities<831212.1206> 
ABS #1627 


SSS. BBBB 


SSS. BBBB 


ee ee Me 


SSS. BBBB 


RDSYMB SBZRAN: : MS 


& 


S$ S$ B B && 
S B B && 


& 


&& & 


$B B&&S& C 
5S $ B B & & 


C 


C mm mn OD OUD 
Amn OD D 

AMA OD OOD 

hon OD OD 

On 
ccc mA MM DDDD 


FOI ROI IIT TO TOTO 
FORTIS O Ok 


xa 
** Wane: (S) CNDPR" - Text for command stack prompt 

ka 

*%* Category:  DSPUTL 

ka 

** Purpose: 

aK This is the text for the corinand stack pronpt, it is 

KK the following sequence: CR, LF, cursor off, 

Sa backslash, cursor on. The text string is terninated 

an by a FF byte as expected by BF2DSP. 

xx 

**® Entry: 

ak Don’t enter 

kk 

AX ERIS 

ka 

** History: 

ka 

ta Date Progranrier Modification 

PE dices’ We Sirel tae . evetiue tasers Nees eles eosoee. 


*k 11/09/83 B.S. 
kk 


Added docunentation 


FORO I IO RIOR I TI IRI ITI IDI ID RID I ITI IST IIE III ISITE IK 
FOO TTT TI II OI IIIT ITI ITI II III IIIT ITI IK 


=CHDPR" NIBHEX DOAO 
NIBHEX B1C3 
NIBHEX 8125 


NIBHEX C5 
NIBHEX B1E3 
NIBHEX FF 
xe 
ke 


CR/LF 

Cursor off 
Replace cursor 
Backslash pronpt 
Cursor on 
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46 

4? 

48 

49 

50 

1 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

73 

80 0163B 3100 

81 0163F 8FOO 
000 

82 01646 5C1 

83 01649 1FOO 
000 

84 01650 6000 

85 

86 
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EJECT 
FOI IIIT OO III OCI ITOK 


FOO III III IOI OOOO TOIT RR OK IK 
an 


** Nane: CMDSTK - CMDS key 


tk 
** Category:  KEYUTL 

ek 

** Purpose: 

ae Process CMDS key. Toggles connand stack node and puts 
RE up command stack line if necessary. 

k 

kx Entry: 

x P = 0 

ok 

AR JENIN 

a Exits through CMDSOO 

x 

** Calls: SF LAGT, BF2DSP, CHDSOO 

kk 

** Uses: 


** Exclusive: C(B),D1 
xk Inclusive: A,B,C,0,D0,01 
kk 


KX Stk lvls: 5 
xk 


** History: 
dk 


es Date Progranner Modification 
Bae See ells ree eh ee le ee ee Ste tea 


Kk 07/28/83 B.S. Added docunentation 

kk 

JOIST II I ITO II II TIT T OAT II ITT IDA AIT TTT TT IK 
JOS III SOO GIGI I III II 


=CNDSTK LO(2) =F ICNDS 


GOSBVL =SFLAGT Toggle Command Stack Flag 
GONC CNDSOO 
01=(5) =CRLFPR CR/LF ">" 


=Bf2Dsp GOTO =BF2DSP 
x. 


ke 
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87 
88 
89 
90 
91 
92 
93 
94 
95 
36 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 


1139 
120 
121 
12é2 


01654 D2 
01656 1F4D 
6F2 
0165D 1500 
01661 03 
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TORIC RJR ITT TIT ITITT 
FIR I RTO TRI TOO IRI TOR RISD II DTT IDI D III IIE ID AISI ST IIIS IATA IA 
ak 


** Nare:(S) CMDIST - Set connand stack pointer to ist cnd 
ah 


** Category:  KEYUTL 


xk 
xk Entry: 

ak None 

ae 

aX Exit: 

ak D1 points to CMDPTR 

ak C(A)=0 

aa 

** Calls: None 

xh 

kk Uses....... 

*k Exclusive: C(A) 

aa 

xk Stk lvls: 0 

an 

** History: 

ak 

ais Date Progranner Modif ication 
PE ee eee, pa ieee ose teee ee eee et a 
Kk 07/28/83 «B.S. Added docunentation 

kk 


FI KI RI II IIR IOI IK II TIT ITT ITT SIT II III IIIT ITD TRIE IIIT ITD IM 
FO IOI TO SOIT TIO TSI TI TRIN 


=CNDIST C=O) =A 
D1=(5) =CMDPTR Set pointer to first command 
DAT1=C 1 
RTNCC 

k. 

x. 
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123 

124 

125 

126 

12? 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

168 

159 

160 

161 

162 01663 7DEF 

163 01667 1F72 
610 

164 0166E 7000 

165 01672 7D10 

166 01676 172 

167 01679 C2 

168 0167B 81C 

169 O167E CC 

170 01680 CC 

171 01682 490 

172 01685 8FOO 
000 

173 0168C 8000 
000 

174 
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JECT 
FOI IIIT IO TO OO ITT ITO. 


FOI RIO TOI IO ITO IOI IO OTT ITOK IO 
at 


** Narie: CMDSOO - Display Crd Stack Entry 
xk Nane: CMDS10 - Display Crd Stack Entry 
** Narie:(S) CMDS20 - Display Crd Stack Entry 


xk 
** Category:  KEYUTL 

ae 

** Purpose: 

Ee CMDSOO - Initializes to first conmand stack entry then 
ak CNDS10 - Puts up command stack prompt then 

aK CHDS20 - Puts up conrand stack entry and noves cursor 
xx to far left. 

*X Entry: 

aa P = 0 

ae CNDS10 and CNDS20 require that CMDPTR be set to specify 
eA which cornmand should be displayed. 

ke 

FAEXECS 

= P = 0 

kk 

** Calls: BF 2DSP, CNDFND, DSPCNA, CURSFL,CND1ST 

ae 

AR USCS secaiaie’s 


** Exclusive: 01,C(A), ACH) 
*k Inclusive: DO,D1,A,B,C,D 
xk 


Ak Stk lvls: 5 
xk 

** History: 

xk 


i Date Progranner Modification 
Ph uote eis eotaws: seutenaetaute states eeeec eneeS 


Kk 07/28/83 «B.S. Added docunentation 

ak 

JOO TIO II II OOS IOI IO OI TOT TOK 
JO III TOI II TI TI II TO TIS TOT IO II IOI II SI ITI TT TOT ITH 


CADSOO GOSUB CMDIST 
=CMDS10 01=(5) =CMDPR" 


GOSUB =BF2DSP Clear display and put out prompt 
=CNDS20 GOSUB CMDFND 
DI=D1+ 3 D1 points to start of text 
C=C+R A Calculate end of this buffer 
ASRB Divide by two(throus away odd lowes 
A=A-1 A Subtract 2 nibbles fron length 
A=A-1 A Don’t output CR. 
GOC cursf] If buffer length zero then skip 
GOSBVL =DSPCNA Send buffer to display 
=cursfl GOVLNG =CURSFL Move cursor to far left of display 


ee 
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175 fe 
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176 

17? 

178 

179 

180 

131 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 01693 1F4D 
6F2 
AFO 
1534 
1£08 
5F 
147 
135 


214 O169A 
215 01690 
216 O16A1 


217 016A? 
218 O16AR 
219 O16AD 1C2 
220 01680 1533 
2c1 O16B4 137 
222 O16B7 Ee 
223 O16B9 135 
224 O16BC AAC 
225 O16BF SDE 
226 01602 03 
cc? 


228 
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EJECT 
JU III IIIT I STITT TT TIT STI IIIT AIT TAK 


FOI OTITIS TT TO 
ak 


*k Narie:(S) CMDFND - Find Nth Connand Stack Entry 

ak 

*k Category:  KEYUTL 

ak 

*k Purpose: 

a Finds the connand stack entry indicated by CMDPTR 

ak 

ek Entry: 

aK CNOPTR is nunber of entry to find (0-->first,F-->15th) 
ak 

ak Exit: 

ak D1 points to start of cnd stack entry (at length field) 
ak 

kk Calls: None 

ak 

kk Uses....... 

tk Inclusive: D1,A(W),C(A) 

ah 

tk Stk lvls: 0 

aK 

** Detail: 

ak This routine starts with the newest corinand (pointed to 
ae by RAWBFR) and chains up stack toward the oldest entry 
ak until the specified entry is reached. 

ak 

** History: 

tk 

#% Date Progranner Modification 

GRD Seto. haere: | Beha eat ee ecm emia uanmcut ats 
KK 07/28/83 «B.S. Added docunentation 

ak 


FOI IOI III III OO TOI ITO TT TE TTT IN 
FOR III IO ITO TTR TT TTT IT RK 


=CMDFND D1=(5) =CMDPTR 
A=0 W 
R=DATI S Read stack pointer 
D1=(4) =RAWBFR 
C=DAT1 A 
Di=C D1=(RAWBFR) 
CMOFIO 01=01- 3 Back up 3 to start of length 
R=DAT1 & Read length 
CDIEX 
C=C-A A Subtract length to get start 
Bi=C Point D1 to start of buffer(length) 
A=A-1 S$ Decrerient loop counter 
GONC CHDFIO Done? No, then loop back for next c 
RTNCC 
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229 EJECT 
2” $I TRI IIR IIIT I III AISI ASI IOS ISTO SOD ISS ISIS SIS SII IISIISIISISIAIS IIS 
231 SIRI IIIT RTI ITA IIIT TITS II IIIS ISIS IIIT ISI III IISIS ISI IIA IA 
232 RK 
233 aa Nane:(S) CMDINI - Recalls CMDPTR and MAXCMD 
234 
235 ** Category: KEYUTL 
236 he 
237 ** Purpose: 
238 . Recall CHDPTR and MAXCMD to A(O) and C(O) 
239 
240 &* Entry: 
241 ax None 
242 &k 
243 ek Exit: 
244 ax A(O) = (CMDPTR) 
245 ak C(O) = (MAXCND) 
246 ak 
247 ** Calls: None 
248 ak 
249 RX Uses. ..eeee 
250 kk Inclusive: D1,€(0),A(0) 
251 ae 
252 ek Stk lvls: 0 
253 ak 
254 ** History: 
255 xs 
256 am Date Prograrnner Modification 
257 RY “geuicse (oceusesee, edytesedag ieee tdene et eieahyee 
258 A 07/28/83 B.S. Added docunentation 
es JSG OTITIS IIIS IO TIO ISO TOTS II ITI IAS TIN 
261 JI II TORTI IIIS IO IOI OSS IOS SO II OT III ITI ISIS SI IM 
262 016C4 3100 =CMDST? LC(2) =FILCMDS 
263 016C8 8E00 GOSUBL =sflag? 
oo 
264 O16CE 500 RTNNC 
265 016D1 1F67 =CNDINI D1=(5) =MAXCND 
9F2 
266 016D8 15FO C=DAT1 1 
267 O16DC 1640 D1i=(4) =CMDPTR 
6F 
268 016E2 1580 A=DAT1 1 
269 O16E6 01 RTN 
270 x. 
271 a 
27e TORII JOT IO 
273 JU JIS OTST SI TI IOI ISSO TO II TOI SII SITS TSI 
274 aK 
275 ** Nane: CURSU) - Crd Stack Keys 
276 ** Narie: CURSD) - Crd Stack Keys 
277 ** Nane: CURST) - Crd Stack Keys 
278 x* Nare: CURSBj) - Crd Stack Keys 
279 x 


280 ** Category: SYSTEM 





Saturn Assenbler Conriand Stack Utilities<831212 Fri Dec 30, 1983 4:07 an 


Ver. 3.39/Rev. 2306 Page 8 
281 Xx 
282 ** Purpose: 
283 km These entry points handle the cursor up, down, top and 
284 ax botton keys. It checks if in connand stack node and 
285 - either recalls a program line or a cotinands stack line. 
286 
287 ** Entry: 
288 a P = 0 
289 ae 
290 - Exit: Junps to MAINIO when line has been recalled 
291 
292 ** Calls: CNDST? , CNDS10 
293 a 
294 ** Stk lvls: 4 
295 AX 
296 ** History: 
297 + 
298 ax Date Progranner Modification 
299 OR eset. Alseleedear wieeerecoue goto st sete eee 
300 ek 07/28/83 B.S. Added docurentation 
301 ax 
302 JI IO IO IO TOT IS SI SISO II ITI TTT I TIO TS OT TTS III III I IIIS I SSSI AL 
303 $I IID I TIO IS TI III SII III IS IIS OSI ISTO TSS OS OSI SIS III IOS ISI SITS 
304 016E8 78DF =CURSU) GOSUB CNDST? 
305 O16EC 4% GOC CNOSTU 
306 O16EF 8D00 GOVLNG =CURSRU 
000 
307 a 
308 re 
309 016F6 BO4 CNDSTU A=A+1 P Move up one stack iten 
310 016F9 480 GOCc CMDSTX Watch for overflou(NOP) 
311 O16FC 986 "ADC OP Is it greater than maxcrid? 
312 O16FF 60 GOYES CMDSTX Yes, then don’t change pointer. 
313 01701 1590 CMDSTN DAT1=A 1 Update crid stack ptr with New value 
314 01705 7E5F CMDSTX GOSUB CMDS10 
315 01709 800 GOLONG =MAIN1IO 
00 
316 ¥e 
31? me 
318 O170F 71BF =CURSD) GOSUB CNMDST? 
319 01713 49 COC CNDSTD 
320 01716 &D0O GOVLNG =CURSRD 
000 
321 Be 
322 
323 0171B AOC = CADSTD A=A-1 P Move down one stack iten 
324 01720 44E Got CMOSTX Watch for underf low(NOP) 
325 01723 5DB GONC  CMDSTN (B.E.T.) Change pointer 
326 x 
327 a 
328 01726 7ASF =CURST) GOSUB CMDST? 
329 0172A 4% GOC CMDSTT 
3H 0172) 8000 GOVLNG =CURTOP 
000 


331 Be 
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332 xe 
333 01734 155) CHMDSTT DAT1=C P Copy (MAXCND) into (CNDPTR) 
334 01738 6CCF GOTO  CMDSTX 
335 *- 
336 x 
337 0173C .748F =CURSB) GOSUB CMDST? 
338 01740 490 COC CNDSTB 
339 01743 800 GOVLNG =CURBOT 
000 
340 x 
41 & 


342 0174A REO CADSTB A=0 B 
343 0174) 63BF GOTO  CNDSTN 
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344 STITLE MAKEBF - Make Buffer 
345 FRI IT IIIT SII ASI III III IIT SI III IIS ST IOI ISI ISI TO SII TI TOR 
346 JOIST II ITI III IIT IIT III TIS IIIS III ISAT III STI IT IIIT TI TT 
347 KK 
348 ** Nane:(S) MAKEBF - Make ASCII Buffer fron Display Buffer 
349 &K 
350 **k Category: DSPUTL 
351 ak 
352 ** Purpose: 
353 Ak Builds an ASCII buffer containing all readable 
354 aK characters in the display and appends it to the 
355 Kx cornmand stack (between CLCBFR and RAWBFR). 
356 ks 
357 *k Entry: 
358 ae 
359 AX Exit: 
360 kx P = 0 
361 kk C(A) points at first char of text 
362 ax DO points past text 
363 AK ACA)=Buffer length + 3 nibbles 
364 aK 
365 kk Calls: OUT1Tk, OUTBYT, QUTNBC, INITPT, STKCND, CHKSPC, MOVEU2, 
366 kn D=AVNE 
367 ak 
368 PR SOS oi ocd 
369 kk Exclusive: DO,D1,A,B,C, D(A) 
370 kk Inclusive: DO,D1,A,B,C, D(A) 
371 tok 
372 *K Stk lvls: 2 
373 ax 
374 ** Detail: 
375 ak DO is initialized to contents of RAWBFR, a 3 nibble 
376 a length field is output, then for each readable 
377 xe character in display, a byte 1s added to the buffer 
378 ade by calling OUTITK. After buffer is built, a CR 1s 
379 aK written to the end of the buffer. STKCMD is called 
380 ae to edit the cormand stack. Pointers from RFNBFR 
381 a to AVMENS are updated to point to new end of buffer. 
382 am If there 1s less than LEEWAY nenory left, cornands 
383 a in the corimand are crushed, starting with the oldest, 
384 ax until LEEWAY available nenory exists or all but the 
385 st Host recent connand have been crushed. 
386 a 
387 ** History: 
388 7 
389 eA Date Progranner Nadification 
390 hs ice yale acoee a jee Os ie ohare eka OS, 
391 kk 10/19/82 B.S. Updated docurentation 
392 z 
393 PUSCCTTCCCS CC CT SESS CSESCCCUCCICUCTCCUCCCCUC CSCC SS STSUST CS est cee. 


394 FOTO IUD OIG IO IO IO 
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395 
396 KKK KKK KAKK RAKE KERRI RAAT RR IRI III KAI RR ISO EIR RII TK 
397 FOR IORI ROJO I RII OSORIO T TOK 
398 ae 
399 ** Narie: GETLEE - Get LEEWAY by crushing connand stack 
400 xk 
401 xk Category:  GENUTL 
402 ax 
403 ** Purpose: 
404 ae Deletes itens fron connand stack until at least LEEWAY 
405 xn Henory is available. 
406 ae 
407 ** Entry: 
408 a C(A) = (RAWBFR) 
409 ax 
410 RK Exit: 
411 ae P = 0 
412 aR 
413 ** Calls: CKSPC, MOVEU2 
414 xh 
415 ak Uses.....0. 
416 xX Inclusive: A(W),C(W),DO,D1,P, 
417 ak 
418 xX Stk lvls: 1 
419 Ae 
420 ** Algorithn: 
421 xe While there are uncrushed connands in stack and 
422 ae there is less than leeway left do 
423 a Crush a command 
424 ak 
425 kk History: 
426 ae 
427 - Date Programmer Modification 
428 Ee Sian “diccwaveee  >aeetiscusuers wit cusnecaresussctnous 
429 kx 10/25/83 «B.S. Added docunentation 
430 ie 
431 JORIS I TI IIIT III IIIT II III III ISA III IIS I ISI II IIS IS III STI IS IIS. 
432 JIS III III I TRI III ITI IID IOS IIIS III I SII OSI III III OSI OSI II ISI ISAS I. 
433 01751 1B08 =MAKEBF DO=(5) =RAWBFR 
5F2 
434 01758 146 C=DATO A Read in ptr 
435 0175B 134 po=C Store ptr in DO 
436 0175E 8FOO GOSBVL =D=AVNE D(A)=(AVNENE ) 
000 
437 01765 D2 C=O) =o 
438 0176? 22 P= 2 
439 01769 8E00 GOSUBL =OUTNBC Output length 
00 
440 0176F 1FC4 D1=(5) (=DSPNSK)+12 Point to dsp nask(first 48 bits) 
5F2 
441 01776 1575 C=DAT1 Read in 48 bits 
442 0177A 1E08 D1=(4) =DSPBFS 
4F 
443 01780 7ED0 GOSUB NKBF20 


444 01784 461 GOC MKBF10 
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445 01787 1604 D1=(4) =DSPNSK Point to dsp mnask(second 48 bits) 
SF 

446 0178D 1575 C=DAT1 MN Read in 48 bits 

447 01791 1E0E D1=(4) (=DSPBFS)+2*48 Point to second half of display 
4F 

448 01797 77C0 GOSUB MKBF20 

449 0179B 3100 MKBFIO LCHEX OD 

450 0179F 8&00 GOSUBL =OUTBYT Qutput CR and return 
00 

451 017A5 136 CDOEX 

452 017A8 1B08 DO=(5) =RANBFR 
5F2 

453 017AF 142 R=DATO A 

454 017B2 132 ADOEX 

455 01785 164 DO=00+ 5 Skip len and CR 

456 017B8 132 ADOEX 

457 017BB 8A2 7A=C OR Ts it a null buffer? 

458 O17BE 83 GOYES NKBFSO Yes, don’t put 1n cormand stack 

459 0170 144 DATO=C A 

460 01703 8FOO GOSBVL =STKCND Push line into corinand stack 
000 

461 017CA 1FO8 MKBFI2 D1=(5) =RAWBFR 
5F2 

462 NPtr EQU ( CAVMENS )-(RANBFR))/5+1 

463 01701 2B P= 16-(NPtr) 

464 017D3 7000 GOSUB =initpt Init men pointers 

465 01707 134 =GETLEE 0O=C 

466 017DA D2 C=0 A 

467 0170C 7000 GOSUB =CHKSPC Check if leeway available 

468 017E0 4B2 GOc NKBF 16 No, then collapse a stack iten 

469 017E3 136 MKBF1I4 CDOEX 

470 01766 134 0do=C 

471 017E9 DO A=0 A 

472 O17EB 182 DO=D0- 3 Point at length field 

473 O17EE 1523 A=DATO X 

474 017F2 E2 C=C-A A C(A) points at text 

475 017F4 03 RTNCC Return fron MAKEBF 

476 x. 

47? x 

478 O1V7F6 D2 MKBF50 C=0 A 

479 017F8 305 LC(1) 5 

480 017FB DA A=C A A(A)=Text lent+3 nibbles 

481 017FD 34B8 LC(5) =NULLBF C(R) points to start of text 
810 

482 01804 134 pOo=C 

483 01807 161 DO=DO0+ 2 DO points past text 

484 0180A 03 RTNCC 

485 x. 

486 x. 

48? * D0 points past nth conriand (end of source) 

488 0180C 1F67 MKBFI6 D1=(5) =MAXCND 
GF2 

489 01813 1574 C=DAT1 S 

490 01817 1£67 01=(4) =CLCBFR 


oF 
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491 0181D 147 
492 01820 135 
493 01823 1C5 
494 01826 DO 
495 01828 A4E 
496 0182B 478 
497 O182E 175 
498 01831 1533 
499 01835 938 
500 01838 OF 
501 0183R 3500 
0300 
502 01842 1505 
503 01846 175 
504 01849 137 
505 0184C 135 
506 0184F CA 
507 01851 136 
508 01854 8F00 
000 


509 01858 137 
510 O185E 6B6F 
511 

512 

513 

514 01862 31F2 
515 01866 AFS 
516 01869 148 
517 0186C 171 
518 O186F 968 
519 01872 00 
520 01874 ASS 
521 01877 480 
522 0187R 8E00 


00 
523 01880 Red 
524 01883 SSE 
525 01886 03 
526 
52? 
528 01888 200 
529 0188B DO 
530 0188D 500 


Connand Stack Utilities<831212 
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ke 
x 


AKBF 20 
MKBF 30 


MKBF4O 


ae 
ae 


=NULLBF 


?A= x 
GOYES MKBF18 
LCHEX 003000 


DAT1=C 6 
01=01+ 6 

CD1EX 

b1=C 

A=A+C A 
CDOEX 

GOSBYL =NOVEU2 


CDIEX 


GOTO MKBFI2 


LC(2) 47 
B=C =o 


R=DAT1 B 
D1=D1+ 2 

7A=0 ~~ =O«B 
RTNYES 

B=B+B NM 

GOC MKBF40 
GOSUBL =OUTITK 


B=B-1 8B 
GONC HKBF3O 
RTNCC 


CON(3) 2 
NIBHEX DO 
CON(3) 5 
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D1 points at oldest buffer 
Preadjust pointer 


fre all buffers collapsed? 
Yes, then continue without leeway 


Is this buffer zero length? 
Yes, then look again for another 


Nake this buffer zero length 
D1 = start of destination 


Copy this to C(A) 
A(A) = start of source 


Move meriory to fill gap 


C(A)=New AVMEMS(etc) 
Update pointers and test if enough 
nenory is available yet 


Repeat 48 tines 

Bit mask to B(M), Count to B(B) 
Read byte 

Nove pointer to next byte 

Is it a null byte? 

Yes, then finish up 

Check for readable/unreadable 
Skip output if unreadable 

Copy char to output buffer 


Decrenent char count 
Loop back until done 
Done nornally, return carry clear 


Buffer length is 2 
Carriage return 
Buffer length is 2 (+ 3 for len) 
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AVNEMNS Abs 193940 #2F594 - 11 462 

BF2DSP Ext = 84 164 

=Bf2Dsp Abs 5712 #01650 - 84 

CHKSPC Ext - 467 

CLCBFR Abs 193910 #2F576 - 11 4% 


=CMDIST Abs 5716 #01654 - 117 162 

CMDF10 Abs 5805 #016AD - 219 225 

=CNDFND Abs 5779 #01693 - 213 165 

=CNDINI Abs 5841 #01601 - 265 

=CMDPR" Abs 5671 #01627 - 38-163 

CMDPTR Abs 194260 #2F6D4 - 11. 118 «8621326? 
CMDSOO Abs 5731 #01663 - 162 82 

=CMDS10 Abs 5735 #01667 - 163 314 

=CNDS20 Abs 5746 #01672 - 165 

=CMDST? = Abs 5828 #01604 - 262 %4 318 328 337 
CMOSTB Abs 5962 #0174A - 342 338 

CNDSTD Abs 5917 #0171D - 323 319 

=CMDSTK Rbs 5691 #01638 - 80 

CMDSTN Abs 5889 #01701 - 313 325 343 

CNOSTT Abs §940 #01734 - 333 329 

CNOSTU Abs 5878 #016F6 - 39 305 

CMDSTX Abs 5893 #01705 - 314 310 312 324 38 


CRLFPR Ext = 83 
CURBOT Ext - 339 
=CURSB) Abs 5948 #0173C - 337 
=CURSD) Abs 5903 HO170F - 318 
CURSFL Ext =  “T93 
CURSRD Ext - 320 
CURSRU Ext - W6 
=CURST) Abs 5926 401726 - 328 
=CURSU} Abs 5864 HO16E8 - 4 
CURTOP Ext - 3H 
D=AVME Ext - 436 
DSPBFS Abs 193664 #2F480 - 11. 442 44? 
DSPCNR Ext = “ite 
DSPNSK Abs 193856 #2F540 - 11 440445 
=GETLEE Abs 6103 #017D7 - 465 
MAINIO Ext a= S85 
=MAKEBF Abs 5969 #01751 - 433 
MAXCND Abs 194934 #2F976 - 11 265 488 


MKBF10 Abs 6043 #0179B - 449 444 
MKBFI2 Abs 6090 #017CA - 461 510 
MKBF14 = Abs 6115 #O17E3 - 469 496 
MKBF16 Abs 6156 #01800 - 488 468 
MKBF18 Abs 6184 #01828 - 495 500 
MKBF20 Abs 6242 #01862 - $14 443 448 
NKBF 30) =6Abs 6249 #01869 - 516 524 
MKBF40 6 Rbs 6272 #01880 - 523 521 
MKBF50 Abs 6134 #017F6 - 478 458 


MOVEU2 Ext - 508 
NPtr Abs 5 #00005 - 462 463 
=NULLBF Abs 6283 #0188B - 529 481 
OUTITK Ext = $22 
QUTIBYT Ext - 450 


QUTNBC Ext - 439 
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RAWBFR 
SFLAGT 
STKCHD 
scursfl 
fF ICNDS 
initpt 
sflag? 


Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 


193920 #2F580 


5772 #0168C 
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11. 462 216 433 4682 461 
81 

460 

173, (171 
80 262 

464 

263 
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Input Paraneters 
Source file nane is SB&CND::MS 
Listing file nane is SB/CMD: TI: ML::-1 
Object file nane is SBACMD:TI:MS::-1 


114111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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x SSS. BBBB& DODD = =SSS_—-PPPP 
z S S$ B 8B &8&% DDS S$ P P 
* 5 B B && DD § PP 
A SSS. BBBB& D D SSS PPPP 
x SB B&&& DD SP 
. $5 S$ B B & & DDS SP 
: SSS. BBBB. ss 8& &)CDDDD SSS. oP 


TITLE Display Driver <831216.1505> 


BS Se eS i a 0 2 Cs TOS 19 19 BOO RPO 6D Fe ee as ae ee 
WOONAMHWNH DHA WNUNAAHIBWAN = WOHUABAMHWNM—$—OwWOWOnANMWH | COWONAnAWP = 


018% 


x 


ABS 


#1890 


*Annunciator bit definitions 
k 


Lef tA 
RightA 
k 


x 
Status 
k 


RArrow 
CurLft 
AtEnd 


=BitsOK 
Phase 
NoCur 
Upd Of f 
=Clear 
=CurOff 
=Insert 
=Reset( 
=XDe lay 
TinOut 
Noche’ 


EQU 
EQU 


bit 


EQU 
EQU 
EQU 


£QU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


3 
4 


definitions 


ooo 


—-~—]—Wonnu» Wr — 


0 
1 


* Tine systen tineout bit 
* 

fIMOUT EQU 3 
k 


*Escape status definitions 
x 


EscStO EQU 0 Not in esc seq 

EscSt1 EQU 1 Esc has been received 

EscSte EQU 2 Esc % has been received 

Esc St3 EQU 3 Esc % <Row> has been received 
x 


*Stack levels to save in DSPCHA 
x 


=SavLvl EQU 5 Save 6 levels 


RDSYMB SBZRAN: : MS 
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51 STITLE BLDDSP 
52 JIS OO TOSI ISS TTI SR SII III II IIIS I ISIS IS ISIS SI IIS ISIS AS 
53 JOGO OSORIO SOS IOI SII II ISI SI IOI ISIS IOSSI ISIS III SAIS IS 
54 aK 
55 ** Narie:(S) BLDDSP - Build Display Pattern fron Buffer 
56 ** Nane:(S) BLDLCD - BLDDSP Except Display Status Active 
57 an 
58 ** Category:  DSPUTL 
59 aK 
60 ** Purpose: 
61 ak Uses the display buffer and related status infortiation 
62 a to build the display bit pattern. 
63 xk 
64 a® Entry: 
65 Be Hexnode 
66 ak 
67 ax Exit: 
68 ak P = 0 
69 ah Hexnode 
70 aR 
71 xt Calls: GETSTA, DO=FC, FCALC?, DIO=FC, BLDBIT, BLDB40, 
72 xt WRITN1, SETSTA 
73 ak 
74 REUSES 55:0 vcs 
75 ** Inclusive: A(W),B(W),C(W),D(H),D0,D1 
76 xR 
77 ** Stk lvls: 2 
78 aK 
79 ** Algorithn: 
80 ne If cursor is on then adjust FIRSTC so that cursor will 
81 ae be in display windon. 
82 a Turns left arrow annunciator on or off depending on 
83 a whether FIRSTC 1s zero or not. 
84 as Sets up registers and calls BLDBIT to build display. 
85 an Turns on right arrow annunciator iff display buffer 
86 aS contains characters to the right of last character 
87 ar in the currently displayed window. 
88 =e If cursor is on then sets the cursor phase so the 
89 ak cursor will appear “on" first and falls into 
90 ak code for display update (ie cursor blink). 
91 xn If cursor off then disables display tiner and returns. 
92 ak 
93 *® History: 
94 aK 
95 aa Date Programmer Modification 
96 RS: Sees S “Seki sbeess 4 tee ek ts en ea ere 
97 aK 10/19/82 = B.S. Updated docunentation 
98 xt 
99 JI IO STOO III STIS IS IIIS IOS IIIS IASI ISI SIS IIS SIS SI 
100 JOIST SII IO III III SII IIIT SIS ISIS ISI IIS SII SIS 
101 xe 
102 01890 67E2 PUTST) GOTO  PUTSTR 
103 - 
104 x. 


105 01894 7673 =BF2BLD GOSUB BF2DSP Send buffer to display 
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106 01898 77F2 =BLDDSP COSUB 


107 0189C 871 
108 O1839F iF 
109 018A1 873 
110 018A4 D2 
111 018R6 7FB6 
112 O18RA 142 
113 018AD D8 
114 O18AF F4 
115 01881 F4 
116 01883 9E4 
117 01886 81 
118 018B8 1937 
119 018BC 14€ 
120 018BF 19€7 
121 018C3 B6A 
122 018C6 4A0 
123 
124 018C9 SEC 
125 018C€C 50 
126 O18CE 148 
12? 01801 850 
128 
129 
130 
131 018D4 7653 
132 018D8 7D86 
133 018DC DO 
134 018DE 14A 
135 018E1 512 
136 01864 34B7 
4F2 
137 O18EB C2 
138 018ED C2 
139 O18EF 134 
140 018F2 142 
141 018F5 3420 
202 
142 O18FC 8A6 
143 O18FF 40 
144 01901 DO 
145 01903 1B00 
1E2 
146 0190R 14€ 
147 01900 OB 
148 0190F 843 
149 01912 968 
150 01915 50 
151 0191? 853 
152 0191A OB 
163 0191C 14€ 
154 O191F 7646 
165 01923 DO 
156 01925 14A 
15? 01928 31F5 


BLDDS* 


=BLDLCD ?ST=1 


GOYES 
*S$T=4 
GOYES 
GOSUB 


GETSTA 
BitsOK 
PUTST) 
NoCur 
BLDOO4 
DO=FC 


A=DRTO A 


B=A 
ASR 
ASR 
7A<B 
GOYES 
DO=(2) 
C=DATO 
=(2) 
A=A-C 
GOC 


7A<=B 
GOYES 


A 


=FIRSTC 
B 
BLDOO4 


B 
BLDOO4 


BLDOO3 DATO=RA B 


BLDOO4 


BLDOO5 


BLDOO6 


ST=1 


GOSUB 
GOSUB 
R=0 
A=DRTO 
GONC 
LC(5) 


C=A+C 
C=A+C 
pO=C 
R=DATO 
LCHEX 


PAHC 
GOYES 
A=0 
o=(5) 


C=DATO 
CSTEX 
ST=0 
?R=0 
GOYES 
ST=1 
CSTEX 
DATO=C 
GOSUB 
A=0 
A=DATO 
LC(2) 


RArrouw 
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Display already built correctly? 
Yes, then just return 

Need to keep cursor in display? 
No, then don’t check if it is 


Read FIRSTC & CURSOR 
B(B)=FIRSTC 


AC B)=CURSOR 
Is cursor before FIRSTC? 
Yes, then set FIRSTC=CURSOR 


Read (WINDLN) 


A(B)=(CURSOR )- (WINDLN) 

(CURSOR )<(WINDLN) inplies 
(CURSOR )< (FIRSTC)+(WINDLN ) 

Is cursor past (FIRSTC)+(WINDLN)? 

No, then skip 

Write out updated FIRSTC 

Flag: Right arrow on 


* The following code does not call SFLAG? since it is not 
* in the first 


ROM and is in the path to ROM text. 


fCALC? 
DO=FC 

A 

B 

BLDOOS 
(=DSPBFS)-5 


A 
R 


A 
20202 


A 
BLDOOS 
A 
=ANNADI 


CALC flag set? (carry set="yes") 


A[LAJ=FIRSTC 
Go if not CALC node 
Left-arrou suppress for CALC 


Point 5 nibs before (FIRSTC) 
Read 2-1/2 bytes 


Blanks before first column? 
No. 
Yes, suppress left arrow 


Read ann colunn 

Suap ann bits into status reg 
Turn off left arrow bit 

Does display start at char 0 
Yes, then turn left arrow off 
No, then turn left arrow on 
Suap ann bits back into C(B) 
Write out annunciators 


AL A]=(FIRSTC) 
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168 0192C RES 
159 O192F 188 
160 01932 14€ 
161 01935 B61 
162 01938 9E4 
163 0193B 80 
164 0193D RE4 
165 01940 840 
166 01943 816 
167 01946 816 
168 01949 181 
169 0194C D2 
170 O194E 14€ 
171 01951 AF? 
172 01954 3408 
4F2 
173 0195B C2 
174 0195D C2 
175 O195F 7950 
176 01963 1EE4 
3E 
177 01969 14F 
178 0196C OB 
179 O196E 844 
180 01971 OB 
181 01973 860 
182 01976 11 
183 01978 148 
184 0197B 968 
185 O197E 90 
186 01980 OB 
187 01982 854 
188 01985 OB 
189 01987 140 
190 0198A 1DFF 
191 O198E 309 
192 01991 1550 
193 01995 851 
194 01998 842 


195 
196 01998 6A41 
197 
198 
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B 
(FIRSTC)-(WINDLN) 
B Read window length-1. [0..21] 
8 B=Position of last legal FIRSTC 
B If A is less than this... 
BLDO20 ... then okay 
Else use highest legal value 
RArrow Flag: Right arrow off 
€(14,15)=Window length-1 
2 Point at WINDST 
A 
B Read (WINDST) 
W 0(14,15)=Len cntdun, 0(A)=Windst 
=DSPBFS 
A 
a C(A) points into display buffer 
BLDBIT Build bit pattern in LCD 
=ANNAD4 
B Read ann colunn 
Suap ann bits into status reg 
RightA Turn off right arrow bit 
Suap ann bits back into C(B) 
RArrow Can right arrow be on? 
BLDO80 No, then skip 
B Read next char in buffer 
B Is next char null? 
BLDO80 Yes, then leave right arrow off 
Suap ann bits into status reg 
RightA Turn on right arrow bit 
Suap ann bits back into C(B) 
B Write out annunciators 
=DDICTL Display control nibble 
9 
P Turn on display w/tiner on 
Bi tsOkK Display is now built correctly 
Phase Cursor initially in ON phase 
Riso turns off TinQut 
DSPUO1 
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199 STITLE BLDBIT 
200 JS II IO IIS IIT TTDI IT TSOTSI ITI IIIT I IIIS IIIS II ISI IIIA 
204 JE III IO III TTT TO IIS IIIS III IIS I IAI IK 
202 i 
203 . Nane:(S) BLOBIT - Build Bit Patterns in Display 
204 x 
205 ** Category: DSPUTL 
206 ak 
207 *k Purpose: 
208 ak Used to put a given number of character’s bit patterns 
209 “a in display given an arbitrary ASCII buffer. 
210 
211 *k Entry: 
212 ak P = 0 
243 kk D(AR)=Display starting position (ie WINDST) 
214 k D(14,18)=Nurber of positions to display ninus 1 
215 aK C(A) points to buffer of characters 
216 ak 
217 ak Exit: 
218 ak P = 0 
219 ah 
220 *k Calls: IOFNDO 
221 ah 
222 AR SOS Ue a 
223 ** Inclusive: ACH), B(M),C(H),D(W), DO, BI 
224 ak 
225 *K Stk lvis: 4 
226 ak 
227 ** Algorithn: 
228 + For each character to be displayed 
229 =A If the high bit is on then 
230 ak Look for an alternate charset buffer. 
231 Rx If one is found then 
232 ae Check for indirect character set and 
233 ak change pointers if found 
234 a Multiply character nunber by 12 
235 ak If this nurnber is less than the length 
236 a of the charset buffer then use that 
237 ss buffer 
238 on else use the default bit pattern table 
239 x else use the default bit pattern table 
240 ak else use the default pattern table 
e411, ae If using the default bit pattern table 
242 a then nultiply the character nunber by 10 
243 a Add the offset (char number tines 10 or 12) 
244 = to the start of the table being used 
245 ak and read in bit pattern. 
246 os Read 3 nibble table entry fron LCDTAB 
247 ae Double table entry to set carry 1f this 
248 a char crosses a display driver boundary 
249 ae and to generate the lower 3 nibbles 
250 ze of the starting address of this display 
251 me position. 
252 Write out bit pattern to display. 


253 aS If display driver boundary is crossed then 
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254 x shift the bit pattern 4 colurins and 
255 a nove to next display driver and urite 
256 KR out renainder of character. 
257 ak 
258 ** History: 
259 RK 
260 xk Date Progranner Modif ication 
261 PR CSocusl es. + eeseccwes ¢ eset eee ese cen ee san ces 
262 10/19/82 B.S. Added docunentation 
oo JOR IOI IIIT ITI IITA IOI IIIT ISIS I III III IIIA II IIIA SAK 
265 SOI IO IIIS O SI IIIS SOS II II ISSO SI SSIS SIS ISI III SSS STS 
266 O199F 301 =CHRBUF LC(1) 1 
267 019A2 OF02 C=C&A P 
268 019A6 9O0R 7C=0 =?P Is the buffer length odd? 
269 019A9 FO GOYES CHRB10 No, then use table 
270 O19AB 147 C=DAT1 A Read indirect table address 
271 O19RE 135 01=C 
272 019B1 1533 A=DAT1 X Read table length 
273 019B5 172 DI=Di+ 3 Point past length 
274 019B8 D9 CHRB10 C=B A C=2x 
275 019BA 01 RIN 
276 O19BC 134 ==BLDBIT DO=C 
277 O19BF DO = =BLDB10 A=0 A A(A)=0 
278 01901 14A A=DATO B Read in character 
279 01904 161 DO=D0+ 2 Move pointer to next character 
280 019C7 Ab4 A=A+A B (nod 128) then multiply by 2 
281 O19CA D8 B=A A B(A)=2x 
282 O19CC 531 GONC  BLDB20 Not alt chr. Will fail next tst. 
283 O19CF 3200 LC(3) =bALTCH 
0 
284 01904 8F0O GOSBVL =IOFNDO Look for charset buffer 
000 
285 019DB 440 GOC BLDB20 Skip if buffer found 
286 O19DE DO A=0 A Will always fail next test 
287 O19EO 7BBF BLDB20 GOSUB CHRBUF 
288 C=2x 
289 01964 C5 B=B+B A B=4x 
290 O19E6 C5 B=B+B A B=8x 
291 019E8 C1 B=B+C A B=10x 
292 O19ER C1 B=B+C A B=12x 
293 O19EC 2B P= 1 : 12 nibbles per entry 
294 O1SEE 880 °*B<R OAR Is this char within buffer? 
295 O19F1 DO GOYES BLDBX Yes, handle it. 
296 O19F3 E1 B=B-C A No, B=10x 
297 O19FS 1FOO D1=(5) =ASCII Point at normal bit pattern table 
000 
298 O19FC 29 P= 9 10 nibbles per entry 
299 O19FE 137 BLOB CO1EX C(A)=Table pointer 
300 O1f01 C9 C=C+B A Add offset 
301 01903 136 CDOEX C(A) saves DO, DO -> bit pattern 
2 01R06 ADO BLDB4O A=0 iW Clear upper nibs if normal char 
303 01A09 1521 A=DATO WP Read in bit pattern 
304 O1ROD 20 P= 0 Need to keep pointer at zero 


305 O1ROF 134 DO=C Restore buffer pointer 
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306 O1A12 34C6 LC(5) LCDTARB Start of LCD address table 
A10 
307 01A19 CB C=C+D A 
308 O1A1B CB C=C+D A 
309 O1R1D CB C=C+D Ay C(A)=Address of LCD table entry 
310 O1R1F E? D=D+1 A Increnent position count 
311 01A21 135 b1=C Point at table entry 
312 01924 3440 LC(5) =DD3ST Load upper 2 digits of LCD addr. 
1E2 
313 O1A2B 1573 C=DAT1 X Read table entry 
314 O1A2F A36 C=C+C xX Check for boundary. Get addr. 
315 O1A32 135 D1=C D1 1s LCD address 
316 O1A35 1598 DAT1=A 12 Write out 6 columns 
317 01839 S01 GONC BLDBSO Skip af not driver boundry. 
318 O1A3C 133 ADIEX 
319 O1A3F AEO A=0 B 
320 01AR42 B24 A=A+1 XS 
321 O1A45 131 Di=A Move D1 to next driver 
322 O1A48 27 P= 7 
323 O1A4A BFA BLDB45 ASR W Loop to throw away 4 colurns 
324 01R4D OD P=P-1 
325 O1A4F SAF GONC BLDB45 
326 O1A52 1593 DAT1=A 4 Write out last 2 colunns 
327 O1A56 2E BLDBSO P= 14 
328 O1A58 ADF D=D-1 P Decrenent length (lsd) 
329 O1ASB 570 GONC  BLDB6O Borrow? No, then skip 
330 O1ASE 2F P= 15 
331 O1R60 AOF D=B-1 P Decrenent next digit 
332 O1R63 20 BLDB60 P= 0 
333 01A65 400 RTNC Rtn fron BLDBIT if all chars done 
334 O1R68 665F GOTO BLDB1IO Loop back for next char 
335 Be 
336 x 
337 O1REC 280 LCDTAB CON(3) (4+0%12+#100)/2 Position 0 
338 O1R6F 880 CON(3) (4+1*12+#100)/2 1 
339 O1A72 E8 CON(3) (4+2*12+#100)/2 2 
340 01A75 4% CON(3) (4+3%12+#100)/2 3 
341 01078 AW CON(3) (44441244100) /2 4 
342 01A7B ORO CON(3) (44+5*12+#100)/2 5 
343 O1A7E 6RO CON(3) (44+6*124+8100)/2 6 
344 O1A81 CAB CON(3) (44+7%12+#100} /2+#800 ? 
345 O1R84 201 CON(3) (4+0*12+#200)/2 8 
346 O18? 801 CON(3) (441*1248200) /2 9 
347 O1A8A £01 CON(3) (4+2%12+#200)/2 10 
348 O1R8D 414 CON(3) (44+3%12+#200)/2 1 
349 O1A90 AI CON(3) (44+4*12+#200) /2 12 
350 O1A93 021 CON(3) (4+5*12+#200) /2 13 
351 O1A96 621 CON(3) (4+6*12+#200)/2 14 
352 O1A99 C29 CON(3) (44+7%124+#200) /2+#800 15 
353 O1A9C 281 CON(3) (4+0*124+8#300)/2 16 
354 O1ASF &81 CON(3) (441%124#300) /2 17 
355 O1AA2 E81 CON(3) (442412+# 30) /2 18 
356 O1AAS 491 CON(3) (44+3*12+#300) /2 19 
357 O1AA8 AI CON(3) (44+4%124+#300)/2 20 
358 O1ARB OAI CON(3) (4+5*12+#300)/2 21 
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359 
360 xe 
361 a 
362 O1ARE 1BFF =NOTIME DO=(5) =DDICTL Point to tiner control nabble 
3E2 
363 O1ABS 31 LCHEX 1 
364 O1AB8 15CO DATO=C 1 Write out control nibble 
365 O1RBC 181 DO=DO- (DDICTL)-(TIMER1)-5 Point at highest tiner dgt 
366 O1ABF 307 LCHEX 7? 
36? O1AC2 15CO NOTIN DATO=C 1 Write out to tiner 
368 O1AC6 15A0 R=DATO 1 Read back 
369 O1ACA 906 ARC OP 0K? 
370 O1ACD 5F GOYES NOTIN No. Write again. 
371 O1ACF 854 NOTIN- ST=1 Upddff Inhibit cursor update 
372 O1AD2 65A0 GOTO  PUTSTR 
373 x 
374 x 
375 01AD6 65CD ,BLDLC) GOTO BLOLCD 
376 - 


377 re 
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378 STITLE DSPUPD 
379 JIS ICISOIII IOI III OC IO III SII II DTI II ETE IK 
380 FOI CII III III OI II II III III ITI IIIS I IE III ISIS I DIAS 
381 ae 
382 *k Nane:(S) DSPUPD - Display Update 
383 ax 
384 xk Category: DSPUTL 
385 aK 
386 **x Purpose: 
387 ae Process service request for display code. 
388 ax Service request can be generated by TINER1 and is used 
389 as either for: 
3%” wR 1) Cursor blink, or 
391 an 2) End of display delay. 
392 a 
393 *k Entry: 
394 xx P=Q, 
395 ax 
396 AKER: 
397 i P=Q, 
398 ax 
399 ** Calls: GETSTA,D1=FC, BLDBIT, BLDB40, WRTTM1, SETSTA 
400 xx 
401 AP USES ticees 
402 - Inclusive: ACW), B(M), CCW), DCW), DO, D1, RAN(DSPSTA) 
403 - 
404 ** Stk lvls: 2 
405 xx 
406 ** NOTE: 
407 aK Saves contents of ST on entry into DSPSTR. Restores 
408 a on exit. 
409 as 
410 ** Algorithn: 
411 an Stores callers status bits in DSPSTA and recalls 
412 aK display status. 
413 am Sets TinQut bit to indicate tiner has timed out. 
414 a If UpdOff then display doesn’t need updating so 
415 aK set tiner to a long tine and return. 
416 a If CurOff then cursor is off and thus display 
417 a doesn’t need updating so set tiner to a long 
418 ae tire. TinOut was set above which notes the 
419 ak fact that the timer has tined out. This 1s 
420 xk used for display delay during line feed. 
421 ak If BitsOK then the LCD reflects the display buffer 
422 a and doesn’t require rebuilding just to change 
423 me cursor. If not BitsOK then ue need to rebuild 
424 ae the LCD to make sure cursor will make sense, this 
425 : code will fall back through DSPUPD once display 
426 ax has been updated. 
42? ae Naw need to change cursor. 
428 a The position of the cursor in the display is 
429 7 calculated by looking at CURSOR, WINDST and WINDLN. 
4H» os If the cursor isn’t in display then set the tiner 
431 = to a long tine and return. 


432 * Depending on the Phase, either 
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433 a * Rebuild the character that belongs in cursor 
434 aS position and toggle phase. 

435 ah * (Check if replace or insert cursor is required, 
436 a build it in display, toggle phase and return. 
437 
438 ** History: 
439 - 
440 a Date Progranner Nodif ication 
44} Shs Konetces: “Geeeereeua: “sedeesagsesusanseaeonescensereseneus 
442 *k 02/25/83 NM Added docunentation 
443 ** 8606/07/83 «B.S. Enhanced docunentation 
444 ak 
445 BI KI IK ISI ITI DIAL DIT IIIODIII SITS III TIS SS SII II TI SIS IIIS ISS III IA 
446 III IA IIIT IIIA SII ISIS ISIS IIIS II III IIISII III SII IIIS SSS SIS IDI SAM 
447 O1RDA 7580 =DSPUPD GOSUB GETSTA 
448 O1ADE 85A =DSPUP1 ST=1 = TinQut Indicate tined out 
449 01fE1 874 ?ST=1 UpdOf f 
450 O1AE4 AC GOYES NOTINE Display tiner has timed out but 
451 the cursor needn’t be updated. 
452 O1RE6 876 DSPUO1 7ST=1 Curdff Is cursor off? 
453 O1RES 6E GOYES NOTIN- Yes, then disable tiner 
454 O1REB 861 DSPUO2 7ST=0 BitsOK Are display bits OK? 
455 O1REE 8E GOYES BLDLC) No, then build it 
456 O1AFO 7136 GOSUB D1=FC 
457 O1AF4 14F C=DAT1 B C(B)=(FIRSTC) 
458 O1AF? DO A=0 A 
459 O1AFS 171 01=D1+ 2 
460 O1AFC 148 A=DAT1 B A(B)=(CURSOR ) 
461 ORFF D8 B=A A Save cursor position 
462 01B01 B6A A=A-C B A(B)=(CURSOR )- (FIRSTC) 
463 01804 49A GOC NOTINE Cursor not in display 
464 0180? 1B37 DO=(5) =WINDLN 
4F2 
465 O1B0E 14E C=DATO B C(B)=(WINDLN) 
466 01811 9E6 7AC OB 
467 01814 AS GOYES NOTINE Cursor not in display 
468 01816 181 DO=DO- (WINDLN)-(WINDST) 
469 01819 14€ C=DATO B C(B)=(WINDST) 
470 01B1C R62 C=C+A 8B C(B)=(WINDST )+ (CURSOR )-(FIRSIC) 
471 O1BIF AF3 D=0 W 
472 01B22 AE? D=C B 0(14,15)=0, D(A)=LCD position 
473 01825 862 ?ST=0 Phase Is cursor phase on or off? 
474 01B28 81 GOYES DSPU40 
475 01B2A 842 ST=0 Phase Toggle phase on for next pass 
476 01B2D 3408 LC(5) =DSPBFS 
4F2 
477 01834 C9 C=C+B A 
478 01836 C3 C=C+B A Calculate character address 
479 01838 708E GOSUB BLDBIT Build char bit pattern 
480 01B3C 6B10 GOTO  DSPU6O Jurip 
481 le 
482 a 
483 01B40 852 DSPU40 ST=1 = Phase Toggle phase off for next pass 
484 01643 1B00 0O0=(5) =REPCUR Assure replace cursor 


000 





| 
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485 O1B4A 867 
486 01B4D 50 
48? O1B4F 169 
488 01862 23 
489 01B54 7ERE 
490 01858 844 
491 01B5B D2 
492 0185) 3101 
433 01B61 BF2 
494 01B64 8FOO 
000 
495 01B6B 166 
496 O1B6E 309 
497 01871 15C0 
493 01875 84A 
499 01B78 OB 
500 01B7A 7F20 
501 O1B7E OB 
502 01B80 1B57 
4Fe 
503 01B87 OB 
504 01889 1563 
505 01B8D OB 
506 O1B8F 20 
507 01891 03 
508 
509 
510 01893 1B57 
4F2 
511 0189R OB 
512 O1B9C 1543 
513 01BAO 1B8?7 
4F2 
514 O1BA7 61EF 
515 
516 
517 O1BAB 09 
518 O1BAD 1887 
4F2 
519 01BB4 1543 
520 01BB8 03 
521 
522 
$23 
524 
e5 
526 
$27 
§28 
529 
530 
§31 
532 
§33 
534 
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DSPUSO 
DSPU6O 


OSPTIN 


PUTSTA 


=USRSTA 


PUTST1 


=RCLSTA 


xe 
ae 


=STOSTA 
SETSTA 


re 
xl 
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?8T=0 Insert 
GOYES DSPUS5O 


Is it really an insert cursor? 
No, then skip 


DO=D0+ 10 Yes, nove ptr to insert cursor 
P= 3 10 nibbles per entry 

GOSUB BLDB40 Build cursor 

ST=0 = - Upd OF F Enable cursor update 

C=0 A 

LCHEX 10 

CSL W Disp STATUS active on entry 


GOSBVL =WRTTN1 Set Tiner 

DO=D0+ (DDICTL)-(TIMER1) Point to display control 
LCHEX 9 Disp & timer on 

DATO=C 1 Write out display control 
ST=0 =TanOut Clear tineout bit 

CSTEX Restore user status 

GOSUB SETSTA 

CSTEX 

DO=(5) =DSPSTA 


CSTEX 

C=DATO X Recall original status bits 
CSTEX Restore then 

P= 0 

RTNCC 


DO=(5) =DSPSTA 
CSTEX 

DATO=C X 

DO=(5) (=DSPSTA)+3 
GOTO 3 PUTST1 

C=ST 

DO=(5) (=DSPSTA)+3 


DATO=C X 
RTNCC 


FOI IOI III IOI IDIOTIC ITO OO 
FO RRO OOOO ICO IGT IO IOI 


ak 


*k Narie: 


ae 


(S) GETMSK - Get Mask for Character Protection Bitmap 


** Category: DSPUTL 


xx 


** Purpose: 


xx 
aK 
ax 
a 


Point at location if protection bitnap and return a 
nask for isolating bit corresponding to current cursor 
position. 
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535 &* Entry: 
536 at P=0, 
537 ak 
538 ax Exit: 
$39 aK P=0, 
540 RK B[O]=C{O]=Nask nibble. 
541 xe DO points at nibble in bitnap for current cursor 
542 position. Mask can be used to isolate proper bit. 
543 
544 *k Calls: None. 
545 aR 
546 ek Uses....... 
547 ak B{A], C, P, DO. 
548 ak 
549 *k Stk lvls: 0 
550 ah 
551 ** History: 
552 as 
553 ae Date Progranner Nodification 
554 Beto veees -Beeosiee, wie oe leas 
555 a 02/25/83 NM Added docunentation 
2 JERI III IO ISI IIIS OI III IS SAIS SI SI ISIS ISIS IISSSI II ISS IN 
558 JOKE I IIT III IIIT III IIS IIIIITSIOSS SSS IIIT SITIOS IIIS SSS ISS 
559 O1BBA 3475 =GETMSK LC(5) (=DSPMSK)+23 Point to nask bits 
SF2 
560 O18C1 DS B=C A Copy nask pointer to B 
561 O1B8C3 D2 C=0 A 
562 O1BC5 1BE7 DO=(5) =CURSOR 
4F2 
563 O1BCC 14E C=DATO B Read cursor position 
564 O1BCF C6 C=C+C A 
565 01801 C6 C=C+C A POS/4 to C[2-1], 4*rnd to C(0) 
566 O1BD3 8000 P=C 860 Copy 4*renainder into P 
567 O1BD?7 F6 CSR A Shift byte to C(B) 
568 O1BD9 FA C=--C A 
569 O1BDB C3 C=C+B A C=B-C A Calculate nask address 
570 O1BDD 134 DO=C DO=Nask address 
571 O1BEO 3080 LCHEX 4000200010008 Magic constant for bit mask 
0010 
0020 
004 
572 O1BEF 20 P= 0 Clear pointer 
§73 O1BF1 A85 B=C Pp Copy nask nibble to B(0) 
574 O1BF4 03 RTNCC 


575 a 
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576 STITLE BF2DSP - Buffer to Displa 
577 JO III TI IIA IIIT TIED DET IDI TTI AIT III ITT III D IAT IAI 
578 JU OO TOTTI II IIIS IIIT I III IIIS ISTO II SII IS IIIS IIA 
579 a 
5380 ** Nanie: AVN2DS - Buffer to Display 
581 *k Nare:(S) BF2DSP - Buffer to Display 
582 ** Narie: BF2DS+ - Buffer to Display 
583 *k Narie: BF2DPP - Buffer to Display 
584 aK 
585 *k Category:  OSPUTL 
586 ak 
587 ** Purpose: 
588 aK AVN2DS: Send buffer at AVMEMS to display 
589 = BF2DPP: Send PROMPT to display 
590 ak BF2DSP: Send buffer at D1 to display 
591 ak BF2DS+: Send buffer at (01) to display 
592 ak 
593 xk Entry: 
594 ak P = 0 
595 = BF2DPP: Set 01 @ PROMPT 
596 xk BF2DSP: D1 points at first char of buffer 
597 ak BF2DS+: D1 points at address of start of buffer addr 
598 ax AVN2DS: none 
599 ak 
600 AE ERT: 
601 = P = 0 
602 ak Carry set 
603 xk 
604 kk Calls: 
605 a DSPCHA 
606 an 
607 kk Uses....... 
608 ek Exclusive: D1,C(A),A(B) 
609 ek Inclusive: A(W),B(W),C(W), DCW), DO, D1 
610 
611 ke Stk lvls: 4 
612 an 
613 **k Detail: 
614 AK In each case above the buffer is terminated by an FF 
615 ay byte. 
616 ex 
617 *k History: 
618 ae 
619 af Date Progranner Modification 
620 ON Gece. eoreeaed “ge A ee eee hese estes 
621 eK 10/19/82 «B.S. Updated docurentation 
622 an 
623 JO IGS III ITI TITRA TTT 
624 JIS IOI TOT TOTTI ITI ITI TIT ITAA TR 
625 O1BF6 1FOO =BF2DPP D1=(5) =PROMPT Send Prompt to display buffer 


000 
626 OIBFD 6010 
627 O1(01 1F49 
5F2 
628 01008 147 


GOTO BF2DSP 
=AVNZDS 01=(5) =AVMENS Point D1 to input buffer pointer 


=BF2DS+ C=DAT1 A 
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629 O1COB 135 
6% O1COE 

631 O1COE 148 
632 O1C11 RE6 
633 01€14 R66 
634 01017 400 
635 O1C1A 137 
636 01(1D 06 
637 O1C1F 7B10 
638 01€23 07 
639 01€25 135 
640 01€28 171 
641 O1C2B S2E 
642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 
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Di=C Set D1 to start of buffer 
=BF2DSP ‘ 
A=DAT1 B Read char fron buffer 
C=A iB 
C=C+C B Is char >= & 
RTNC Yes, then return 
CD1EX 
RSTK=C Save D1 
GOSUB DSPCHA Send character to display 
C=RSTK 
D1=C Restore D1 
Di=D1+ 2 Move to next char 
GONC  BF2DSP (B.E.1.) Loop back for next char 
tk. 
te 
JO II SRI RIO ASIII IIT II TI IORI III IIIS III ISISIISIIIISII IIS IIA 
BI III IS ITA IIT II IIIS IOS IIT II ITISISTIS SASS IIIISIRISI III IIS 
tik 
x* Wane: fCALC? - Test if in CALC node 
tr 
** Category:  GENUTL = Generic Utilities (general purpose) 
ik 
** Purpose: 
ae Test CALC node systen flag 
kk 
** Entry: 
xn No necessary conditions 
ak 
AS ERIC; 
ae DO=(5) (=SYSFLG)+11 
ak Carry set = f1CALC set 
ax Carry clear = f1CALC not set 
ak 
** Calls: None 
aK 
AN USCS oicleg acsis 
kk Exclusive: DO, A(A) 
tk 
** Stk lvls: None 
tk 
kk History: 
ak 
xx “Date Prograsner Modification 
PR Sete), eheceeaier peeeele secon ole weuseenesucele 
*K 12/07/82 MB. Created routine 
ki 
FORO IIIT ITT TTI TTI OR TIT TO I III I TIO 


675 

676 

677 O1C2E 1B4E 
6F2 

678 01C35 142 

679 $1038 C4 

680 O1C3A 01 


bk 
=f 


FOO TET ITT 


CALC? DO=(5) (=SYSFLG)+11 Point at CALC flag nibble 
A=DATO A 
A=A+R A Set carry if CALC node 
RTN 
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681 STITLE DSPCHA/C - Display Character 
682 JOO IOI SII IIIT SII I III IIIT III IIIT TI TA 
683 JOO OI III OO TI III IIIT IIIT I III TI IIT ATO TTI III III TIT 
684 ak 
685 ** Nane:(S) DSPCHA - Display Character 
686 xx Wane: (S) DSPCHC - Display Character 
687 a 
688 ** Category:  DSPUTL 
689 ax 
69% *k Purpose: 
691 7 Accepts a byte for pseudo-device display driver. 
692 aX The routines take data fron A or C and send the 
693 aK character to the display. 
694 ik 
695 &* Entry: 
696 ak P = 0 
697 am DSPCHA: A(B) contains character 
698 ak DSPCHC: C{B) contains character 
699 ae 
700 AE EMEtS 
701 ak P = 0 
702 a Carry clear 
703 x 
704 x Caliss BLDDS*, BLDDSP, CKSREQ, CLEARD, DO=CUR, DO=FC, 
705 ae DSPCH., DSPTIM, FINDA, GETNSK, GETSTA, MOVCOO, 
706 aie MOVCUR, MOVED3, MOVEU3, NOKEYS, PUTSTA, R<RSTK, 
707 a RCLSTA, RSTK<R, SCNRT, SCRLLR, SETFCA, SLEEP, 
708 am cksreq, TBLJNC, USRSTA. 
709 ae 
710 RX Yses. .cseee 
714 ** Inclusive: A(W),B(W),C(W),D(W),00,D1,RAM(See note below) 
712 aR 
713 ae“ StH else 2 
714 ae 
715 zx NOTE: 
716 a This routine will call CKSREQ 1f CR or LF is sent. 
717 = This inplies that a poll nay happen. That will cause 
718 ao certain RAN locations (SNAPSHOT) to be altered. 
719 Ak This routine uses R<RSTK / RSTK<R to preserve stack 
720 xx levels--this also uses RAN. 
721 ax 
722 ax This routine may also transfer control out to HPIL. 
723 ae The HPIL ROM tay not have exactly the sare register 
724 a usage for a given character, 1e don’t assune a certain 
725 xe character will leave a certain register preserved 
726 aa just because this code doesn’t seen to use 1t. For 
72? ae any character, A,B,C,D,D0,01 may be used. 
728 ae 
729 ** Detail: 
7H x This routine provides the mechanisn to access the 
731 an pseudo-device that controls the display. 
732 is This device has 3 nibbles of status that are 
73 am defined as follous: 
734 = SO -- Miscellaneus uses 
735 at S1 -- Set iff LCD currently matches display buffer 
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736 ax $2 -- Cursor blink phase 
737 a $3 -- Display needn’t contain cursor 
738 ae S4 -- Disable cursor update 
739 Ks S5 -- Display buffer needs to be cleared(1) 
740 ax S6 -- Cursor on(0)/off(1) 
741 KR S? -- Insert(1)/Replace(0) node 
742 KK $8 -- Cursor/First€ need to be cleared(1) 
743 am S9 -- Suppress Delay(1) (Auto-clears) 
744 eK S10 -- Display has tined out 
745 ae 
746 a* The pseudo-device accepts the following escape 
747 ak sequences: 
748 ak Esc Q -- Insert cursor 
749 aK Esc R -- Replace cursor 
750 ae Esc C -- Cursor right 
751 ak Esc D -- Cursor left 
752 ak Esc H -- Hone cursor 
753 ak Esc J -- Clear Display 
754 a Esc K -- Delete through end of line 
755 xk Esc > -- Cursor on 
756 aK Esc < -- Cursor off 
757 aR Esc E -- Reset display 
758 aR Esc P -- Delete char 
759 eK Esc % <col> <row> -- Set cursor position absolute 
760 ah Esc Ctrl-C -- Cursor far right 
761 = Esc Ctri-D -- Cursor far left 
762 aR 
763 am 
764 ** History: 
765 ae 
766 ais Date Progranner Modification 
767 RE aidacem mmeumeweues- cadet esdcaee eeene Coe ti 
768 ek 10/19/82 B.S. Updated docunentation 
769 a 02/25/83 NM Updated "CALLS" section 
a JO IIIS OT TT TIT IT II IIIA SII ITS IOS IIIS II IIIS IIIS 
772 FRI II IIE TRI IIIT III I II IIT ISIS IIS III ISIS II SII III I IIIS ISI IIIA 
773: 01C3C DA =DSPCHC A=C A Copy C(B) to A(B) 
774 O1C3E 25 =DSPCHA P= Savlvl Nuriber of stack levels to save 
775 01040 7000 GOSUB =R<RSTK Save n stack levels 
776 01044 7800 GOSUB DSPCH. 
777 01048 25 P= Savlvl Nurtber of stack levels to restore 
778 O1C4—A 7000 GOSUB = =RSTK<R Restore n stack levels 
779 O1C4E 03 : RTNCC GOSBVL/RTNCC can’t be packed out! 
780 - 
781 a 
782 01050 7F3F ODSPCH. GOSUB GETSTA 
783 01054 3427 LC(5) OSPCH* 
C10 
784 01C5B 06 RSTK=C 
785 01C5D 1847 DO=(5) =DSPCHX 
6F2 
786 01064 146 C=DATO A 
78? 01067 8AR c=0 )60#—R 


788 O1C6A 60 GOYES DSPCH@ 
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789 O1C6C 06 RSTK=C 
790 01C6E 03 RTNCC 
791 x. 
792 k. 
793 01070 07 DSPCHE C=RSTK 
794 01C72 843 DSPCH* ST=0 NoCur Keep cursor in display 
795 01075 20 p= 0 
796 01077 1BB? DO=(5) =ESCSTA Point to ESCSTA 
4F2 
797 O1C7E 1560 C=DATO P 
798 01082 70A7 GOSUB TBLINC 
799 01086 6C1 REL(3) DSPS-O 
800 01089 A72 REL(3) DSPS-1 
801 O1C8C 900 REL(3) DSPS-2 
802 O1C8F ACZ REL(3) DSPS-3 
83 ke 
804 ke 
805 x 
306 a 


807? 01092 B6A DSPS20 A=A-C B 
808 01095 3106 DSPS-2 LC(2) 96 


809 01099 SEE 7A>=C B Is colurin > 96? 

810 O1C9C GF GOYES DSPS20 Yes, then reduce by 96 
811 O1CSE 162 DO=DO+ (CURSOR)-(ESCSTA) 

812 O1CA1 148 DATO=A B 

813 O1CR4 D8 B=A A Hold (CURSOR) in B 

814 O1CAG 79E3 GOSUB DO=CUR 

815 O1CAA 3102 LCASC \ \ 

816 O1CRE 14R DSPS21 A=DATO B 

817 01081 96C 7AHO OB 

818 O1CB4 EO GOYES DSPS22 

819 O1CB6 14C DATO=C B 

820 O1CB9 181 DO=DO- 2 

821 O1CBC AD B=B-1 8 

822 O1CBF SEE GONC = DSPS21 

823 O1CC2 841 DSPS22 ST=0 BitsOK 

824 0105 W3 LC(1)  EscS$t3 

825 O1CC8 6471 GOTO 3=ESCSET 

826 X= 

82? Ra 

828 OICCE 72F3 DSP-CR GOSUB CLEARD Clear display if needed 
829 O1CDO 858 ST=1 — ResetC Set Reset Cursor flag 
830 so that uhen line feed sets 
831 Clear flag it will also 
832 reset CURSOR and FIRSTC 
833 01003 853 ST=1—-NoCur For scrolling 

834 01006 876 *ST=1 Cur Off Is cursor of f? 

835 01CD9 AO GOYES DSPCR1 Yes, then build display 
836 O1CDB OCB COTO §=©BLBLED Build display and return 
83? ke 

838 ¥ 

839 O1CDF 70BE =DOSCRL GOSUB GETSTA 

840 O1CE3 879 DSPCR1 *ST=1 xXDelay Is delay suppress an? 
841 O1CE6 44 GOYES DSPC33 Yes. Act like delay = anf. 


842 O1CE8 866 ?ST=0) «Curdf f Is cursor on? 
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843 O1CEB F3 GOYES DSPC33 Yes. Build disp w/cursor in it 
844 O1CED 853 ST=1  NoCur Set Nofur in case of DOSCRL entry 
845 O1CFO 1A64 DO=(4) =SCROLT 
oF 
846 O1CF6 14A A=DATO B Read scroll delay tire 
847 O1CF9 96C 7AHO OB Is it zero? 
848 O1CFC 82 GOYES DSPCR3 No, then check for other values 
849 O1CFE 1837 DO=(4) =WINDLN 
4F 
850 01004 14E C=DATO B Read window len-1 
851 01007 7F93 GOSUB A=CUR Read cursor position 
852 01D0B B6A R=A-C B Calculate first char in window 
853 O1D0E REC A=A-1 B Use position one before cursor 
854 since cursor 1s off 
855 01011 3106 LC(2) 96 
856 01015 9E2 7A<C OB Would this be before char 0? 
857 01018 50 GOYES OSPCR2 No, then okay 
858 O1D1AR AEO R=0 B Yes, then just start at char 0 
859 01D1D 181 DSPCR2 DO=D0- (CURSOR)-(FIRSTC) 
860 01020 6DAB GOTO BLDOO3 Yes, Update FIRSTC,Build disp, Rtn 
861 - 
862 ke 
863 01024 B64 DSPCR3 A=A+1 B Is it an infinity(FF)? 
864 01D27 560 GONC DSPC35 No, then set tiner 
865 01D2A 6178 _PSPC33 GOTO BLDLCD Yes, then build display,rtn 
866 - 
867 x. 
868 O1D2E 7B37 ODSPC35 GOSUB NOKEY+ 
869 01032 7B6B DSPCR4 GOSUB BLDDS* 
870 * Build display, restore user’s status. This routine will 
871 * clear Phase and set UpdOff but will leave the tiner running. 
872 * When the display tiner expires, CKSREQ will call DSPUPD 
873 * which will see that UpdOff is set and then set Phase and set 
874 * the display tiner not to go off again soon. 
875 01036 766E GOSUB RCLSTA Recall display status 
876 0103A 1837 DO=(5) =WINDLN 
4F2 
877 01041 14€ C=DATO B 
878 01044 168 DO=DO+ (FIRSTC)-(WINDLN) 
879 01D47 DO A=0 A 
880 01D49 14fA A=DATO B 
881 01D4C £4 A=A+1 A 
882 O1D4E D8 B=A A 
883 01050 A61 B=B+C 8B 
884 01053 31F5 LC(2) 95 
885 01057 3E1 7BoC =i At end of display? 
886 01D5A B4 GOYES DSPCR? Yes, then exit 
887 01D5C 3408 LC(S) =DSPBFS 
4F2 
888 01063 C9 C=C+B A 
889 01065 C9 C=C+B A 
890 01067 134 DO=C DO points to last char in window 
831 O1D6A 14E C=DATO B Read buffer char 
832 01D6D 96A 7C=0)—«B Is it a null? 
893 01070 53 GOYES OSPCR7 Yes, then exit 





Saturn Assenbler Display Driver <831216.1505> Fri Dec 30, 1983 4:08 an 


Ver. 3.39/Rev. 2306 DSPCHA/C - Display Character Page 19 
894 01072 7036 _  GOSUB SETFCA Update FIRSTC 
895 01076 841 ST=0  BitsOK 
896 01073 D2 C=0 A 
897 0107B 1A64 DO=(4) =SCROLT 
OF 
898 01081 14€ C=DATO B Read (SCROLT) 
8399 01084 79DD GOSUB DSPTIN Start scroll tiner & rcl user sta 
%O 01088 DSPCRS User’s status rust be active here 
901 01088 7D10 GOSUB cksreq . Check service requests 
92 O1D8C 701E GOSUB RCLSTA Restore status 
903 01090 87A ?8T=1 Tindut Has tiner expired? 
%4 01093 F9 GOYES DSPCR4 Yes, then scroll 
95 01095 77ED GOSUB USRSTA Recall user’s status 
906 01099 8EOO GOSUBL =SLEEP No, then goto sleep 
0 
907 01D9F 500 RTNNC Return with cry clr if buffer not 
908 enpty. User’s status are active 
909 01D0A2 45E . GOC DSPCRS (B.E.T.) Bfr empty; cont wait 
910 - 
911 a. 
912 01DA5 6ADD DSPCR? GOTO  USRSTA 
913 xe 
914 x 
915 01DA9 8COO cksreq GOLONG =CKSREQ 
00 
916 ae 
917 xe 
918 * DSPDLY causes a display delay (if cursor off) 
919 - Stack levels: 5 
920 k 
921 O1DAF 70ED =DSPDLY GOSUB GETSTA 
922 010B3 6E10 GOTO OSPLFO 
a3 X~ 
924 r- 
925 01DB? 633D DSPUZ) GOTO  DSPUWW2 
926 Ae 
927 x 
928 O1DBB 71CD DSP-LF GOSUB USRSTA Recall user status 
929 O1DBF 76EF GOSUB cksreq Check service requres 
930 01003 7900 GOSUB RCLSTA Restore status 
931 0100? 855 ST=1 Clear Need display cleared later 
932 O1DCA 853 ST=1 = NoCur For scrolling 
933 O1DCD 879 *ST=1 XDelay Is delay suppressed? 
934 01DD0 36 GOYES NOTIMNX Yes, then don’t delay 
935 01002 866 ODSPLFO *ST=0 CurOff Is cursor on? 
936 O1DD5 2E GOYES DSPU2) Yes, then don’t delay 
937 0100? De C=0 A 
938 01DB9 1884 DO=(5) =DELAYT 
SF2 
939 O1DEO 14E C=DATO B Read delay tine 
940 01DE3 96A *C=0)—o=B Is delay zero? 
941 O1DE6 05 GOYES NOTIN) Yes, then don’t delay 
942 O1DE8 1824 DO=(5) =ATNFLG 
4F° 


943 O1DEF 1520 R=DATO P 
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944 O1DF3 900 
945 O1DF 6 04 
946 O1DF3 7176 
947 O1DFC DA 
948 O1DFE B64 
949 O1€01 5CO 
950 01€04 707D 
951 O1£08 7223 
952 O1F0C 03 
$53 
954 
955 O1EOE 7F4D 
956 O1€12 728A 
957 O1F16 7F8F 
958 O1E1A 7280 
959 O1E1E 87A 
960 O1F21 48 
961 O1£23 7950 
962 O1£27 8E0O 
00 
963 O1€2D 500 
964 O1£30 45E 
965 
966 
967 O1€33 849 
368 O1€36 6770 
969 
970 
971 O1€3A 301 
972 O1F3D 1BB7 
4Fe 
973 O1644 15(0 
974 O1£48 6F2D 
975 
976 
977 
978 O1F4C 7395 
979 O1E50 DO 
980 O1F52 AZE 
981 O1€55 RO 
982 O1F57 46F 
983 O1E5A Bt 
984 O1E5C EDF 
985 O1ESF 80 
986 O1€61 061 
987 O1€64 00 
988 O1F66 7852 
989 O1E6R 968 
990 O1F6D BD 
991 O1E6F 1AAR4 
SF 
992 O1£75 30F 
993 O1E78 15(0 
994 O1E7C 841 
995 O1E7F 867 


x 


x 
x 
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DSPLF 1 


DSPLF2 
DSPLF3 


NOTINX 


NOTIN) 
ke 


x 


x 
x 
x 


DSP-EC 
ESCSET 


PUTS j2 


DSPS-O 


ADDCHR 


7AHO OP 
GOYES NOTIN) 
GOSUB NOKEY+ 
R=C A 
A=A+1 = B 

GONC DSPLF2 
GOSUB PUTSTA 
GOSUB SCRLLR 
RTNCC 


DSPTIN 
BLDDSP 
cksreq 
RCLSTA 
TinOut 
GOYES DSPCR? 
GOSUB USRSTA 
GOSUBL =SLEEP 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
?ST=1 


RTNNC 


COC DSPLF3 


ST=0 
GOTO 


XDelay 
NOTINE 


LC(1) EscSt 
DO=(5) =ESCSTA 


DATO=C 1 
GOTO PUTSTA 


GOSUB FINDA 
CON(2) 13 
REL(3) DSP-CR 
CON(2) 10 
REL(3) DSP-LF 
CON(2) 27 
REL(3) DSP-EC 
CON(2) 8 
REL(3) DSP-BS 
CON(2) 00 
GOSUB CLEARD 
7A=0 2B 

GOYES PUTSj2 
DO=(4) =NEEDSC 


LCHEX F 
DATO=C 1 
ST=0 BitsOK 


7ST=0 Insert 
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AINFLG set? 

Yes. No delay. 

Flush keybuffer before delay 
Copy delay tine 

Is it infinity(FF)? 

No, no scroll. 

Restore user status 

Infinite scroll 

Return fron DSPCHA 


Set display tiner & rcl user sta 
Build display 

Check service request 

Restore status 

Tined out? 

Yes. Restore user status & exit 
Restore user status 

Sleep 


Return if keys in buffer 
What happened? 


Clear delay suppression 


Set status: ESC was received. 


Carriage Return 

Line Feed 

Escape 

Back Space 

Otherwise fall thru to ADDCHR 
Clear display if needed 


Is it a null? 
Yes, then ignore it 


Set NEEDSCroll flag 
LCD not updated 
Insert node? 
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996 O1£82 07 GOYES ADDC20 No, then find cursor position 
997 O1£84 7134 GOSUB SCNRT Yes, then rake roon for character 
998 O1£88 456 coc ADDC17 Buffer full? Yes, then exit. 
999 O1E8B 137 CDIEX C=Di 

1000 O1E8E DF CDEX A C(A)=Start of dest,D(A)=O1d 01 

1001 O1£90 131 DI=A Di=End of dest 

1002 O1€93 EE C=A-C A Length to nove 

1003 O1€95 14B A=DAT1 B Read a byte 

1004 O1£98 96C 7AHO OB Ts it a null? 

1005 O1€9B8 41 GOYES ADDCOS No, then Di is end of dest 

1006 O1E9D 1C1 01=D1- 2 Yes, then look at byte before it 

1007 OTERO 148 A=DAT1 B 

1008 O1EA3 968 7A=0 = =B Is it a null? 

1009 O1FR6 F4 GOYES ADDC25 Yes, then just replace char 

1010 O1EA8 173 Di=D1+ 4 Increrient end of dest 

1011 O1EAB E6 C=C+1 A 

1012 O1ERD E6 C=C+1 A Increnent length to riove 

1013 O1ERF 137 ADDCOS CDIEX 

1014 O1EB2 134 DO=C 

1015 O1EB5 137 CD1EX D1=End Dest,C(A)=Length to nove 

1016 O1EB8 181 DO=DO- 2 DO=End of Source 

1017 O1EBB 8E00 GOSUBL =Noved3 Nove text following insert 
00 

1018 O1£C1 DB C=D A 

1019 O1€C3 135 D1=C Restore original D1 

1020 O1FC6 AE4 ADDCIO A=B B Recall char to be inserted 

1021 O1ECS 148 DATO=A B Write out new char 

1022 O1ECC 866 *ST=0 Curd ff 

1023 O1ECF 21 GOYES ADDC15 

1024 O1€D1 75EC GOSUB GETASK 

1025 O1ED5 1520 A=DATO P Read nask nibble 

1026 O1ED9 OEOE A=A'C P OR in bit 

1027 O1EDD 1500 DATO=A P Update rask nibble 

1028 O1FE1 840 ADDC1S ST=0 = Curlft 

1029 O1EE4 85B ST=1— NoChFC Don’t change FIRSTC 

1030 O1EE? 7654 GOSUB MOVCOO Move cursor right 

1031 O1EEB 843 ST=0 = =NoCur 

1032 O1EEE 698C ADDC1? GOTO PUTSTA 

1033 x 

1034 x. 

1035 O1EF2 RE8 ADDC20 B=A B 

1036 O1EF5 7A91 ADDC25 GOSUB DO=CUR Point DO at cursor position 

1037 O1€F9 SCC GONC ADDC1O (B.E.T.) 

1038 x. 

1039 te 

1040 O1EFC 857 = D-ESCQ ST=1—s Insert Turn on insert cursor 

1041 O1EFF 6950 GOTO = =ESCSTO 

1042 Be 

1043 Re 

1044 

1045 O1F03 7CD4 DSPS-1 GOSUB FINDA 

1046 O1F07 15 CON(2) \Q\ 

1047 O1F09 3FF REL(3) D-ESCQ Esc Q -- Insert cursor 

1048 O1FOC E4 CON(2) \N\ 


1049 O1FOE EEF REL(3) D-ESCO Esc N -- Insert cursor(with wrap) 
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1050 O1F11 25 CON(2) \R\ 

1051 O1F13 050 REL(3) D-ESCR 

1052 O1F16 34 CON(2) \C\ 

1053 01F18 ASO REL(3) D-ESCC 

1054 O1F1B 44 CON(2) \D\ 

1055 O1F 1D 4A0 REL(3) D-ESCD 

1056 O1F 20 84 CON(2) \H\ 

1057 O1F22 9A0 REL(3) D-ESCH 

1058 O1F25 A4 CON(2) \J\ 

1059 O1F 27 5D0 REL(3) D-ESCI 

1060 O1F2A B4 CON(2) \K\ 

1061 O1F2C ODO REL(3) D-ESCK 

1062 O1F2F E3 CON(2) \>\ 

1063 01F31 BAO REL(3) D-ESC> 

1064 O1F34 C3 CON(2) \<\ 

1065 01F36 DBO REL(3) D-ESC< 

1066 O1F39 54 CON(2) \E\ 

1067 O1F3B 1FO REL(3) B-ESCE 

1068 O1F3E 05 CON(2) \P\ 

1069 O1F40 001 REL(3) D-ESCP 

1070 O1F43 F4 CON(2) \O\ 

1071 O1F45 BFO REL(3) D-ESCP 

1072 01F48 52 CON(2) \Z\ 

1073 O1F4A E31 REL(3) D-ESCZ 

1074 O1F4D 30 CON(2) 3 

1075 O1F4F EX REL(3) D-ES.C 

1076 O1F52 40 CON(2) 4 

1077 O1F54 650 REL(3) D-ES.D 

1078 

1079 O1F57 00 NIBHEX 00 

1080 O1F59 ESCSTO 

1081 O1F59 DSPS-3 

1082 O1F59 300 LC(1) EscSto 

1083 O1FSC 841 ST=0 BitsOK 

1084 O1F5F 6DDE GOTO ESCSET 

1085 me 

1086 i 

1087 O1F63 847 D-ESCR ST=0 = =Insert 

1088 O1F 66 52F GONC ESCSTO 

1089 Re 

109 is 

1091 O1F69 1BC7 DO=FC DO=(5) =FIRSTC 
4F2 

1092 O1F 70 01 RIN 

1093 Be 

1094 Re 

1095 O1F 72 7€41 D-ESCC GOSUB CLEARD 

1096 O1F 76 7911 GOSUB DO=CUR 

1097 O1F7A 14€ C=DATO B 

1098 01F 7D 396A C=O =«B 

1099 O1F80 39D GOYES ESCSTO 

1100 O1F82 840 ST=0 = CurLft 


1101 O1F85 7583 ESCD10 
1102 O1F89 6OFCF ESCSO) 
1103 ue 


GOSUB MOVCUR 
GOTO ESCSTO 
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Esc R -- Replace cursor 

Esc C -- Cursor right 

Esc D -- Cursor left 

Esc H -- Hone cursor 

Esc J -- fica display 

Esc K -- Delete thru end of line 
Esc > -- Cursor on 

Esc < -- Cursor off 


Esc E - 


Reset display 


Esc P -- Delete char 


Esc 0 -- Delete char (with urap) 
Esc Z -- Set cursor absolute 
Esc <Ctrl-C> -- Cursor far right 


Esc <Ctrl-D> -- Cursor far left 


{ESC % <Col> <Row> should ignore 
rou} 


Turn on replace cursor 
(B.E.T.) 


Clear display if needed 





1104 

1105 O1F 8D 
1106 O1F91 
1107 O1F95 
1108 O1F 98 
1109 O1F9B 
1110 O1F 9D 
1111 O1FAO 
1112 O1FA4 
1113 O1FA? 
1114 

1115 

1116 O1FAA 
1117 O1FRE 
1118 O1FB1 
1119 O1FB3 
1120 O1FB? 
1121 O1F BB 
1122 O1FBE 
1123 

1124 

1125 O1FC1 
1126 O1FC1 
1127 O1FC5 
1128 O1FC8 
1129 

11% 

1131 O1FCB 
1132 O1FCF 
1133 O1FD1 
1134 O1FDS 
1135 O1FD9 
1136 

1137 

1138 O1FDC 
1139 O1FDF 
1140 O1FE2 


1141 O1FE9 
1142 O1FEB 
1143 O1FEF 
1144 

1145 

1146 O1FF3 
1147 O1FF6 
1148 O1FF9 
1149 

1150 

1151 O1FFC 
1152 O1FFC 
1153 02000 
1154 02004 
1165 02006 
1156 02009 
1157 0200C 
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7131 
7EFO 
14E 
96A 
EE 
840 
7293 
5CE 
41E 


7411 
850 
DO 
7FE3 
7383 
5BF 
4Aac 


7DFO 
850 
4CB 


7 3FO 
DO 
749F 
1583 
426 


846 
843 
1887 
4Fe 
De 
15C0 
61B8 


$56 
853 
58E 


7200 
?5Be 
2 
1% 
4e0 
14A 


Display Driver <831216.1505> 
Display Character 


D-ES.D 


D-E.D1 


ke 
x 


DSP-BS 
D-ESCD 


t. 
D-ESC> 


ESC>10 


x. 
kL 


D-ESC< 


ke 
ke 


D-ESCIJ 
D-ESCK 


GOSUB CLEARD 
GOSUB DO=CUR 
C=DATO B 

7¢=-0 =—«=B 
GOYES ESCSOj 
ST=0 = CurLft 
GOSUB MOVCUR 
GONC D-E.C1 
GOC ESCSO) 
GOSUB CLEARD 
ST=1 = CurLft 
A=0 A 
GOSUB SETFCA 
GOSUB MOVCUR 
GONC OD-E.D1 
GOC ESCSO) 
GOSUB CLEARD 
ST=1  Curlft 
GOC ESCD10 
GOSUB CLEARD 
A=0 A 
GOSUB DO=FC 
DATO=RA 4 

GOC ESCST 
ST=0 = Cur OF F 
ST=0 =NoCur 
DO=(5) =ESCSTA 
C=0 A 
DATO=C 1 

GOTO BLDDS* 
ST=1 = Cur Off 
ST=1 = NoCur 
GONC ESC>10 
GOSUB CLEARD 
GOSUB SCNRT 
C=0 A 

DO=A 

GOC ESCK1O 
A=DATO B 
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(B.E.T.) 


Zero FIRSTC to speed up loop 


(B.E.T.) 


Clear display if needed 
(6.E.7.) 


Clear display if needed 


Clear FIRSTC and CURSOR 
(B.E.T.) 


Turn cursor on 
Keep cursor in display 


Return to escape state zero 
build display 


Turn cursor off 
Don’t keep cursor in display 
(B.E.T.) . 


Clear display if needed 


C(B}=Null 

DO points past unprotected field 
At display end* Yes; fill nulls. 
No, then read byte 
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1168 O200F 
1189 02012 
1160 02014 
1161 02018 
1162 02018 
1163 O201E 
1164 02021 
1165 02024 
1166 02026 
116? 02029 
1168 

1169 

1170 0202C 
1171 O202F 
1172 02032 
1173 02035 
1174 02038 
1175 0203C 
1176 

117? 

1178 02040 


368 

60 

3102 

181 ESCK10 
14C 

136 

8B3 

81 

136 

5EE 


x. 
x 


847 D-ESCE 
846 

855 

858 

7680 

CIF ESCST) 


ke 
7E70 D-ESCP 


1179 02044 840 


1180 02047 
1184 

1182 02048 
1183 0204E 
1184 02051 
1185 02054 
1186 02056 
1187 02059 
1188 O205C 
1189 O205F 
119% 02061 


1191 02067 
1192 0206A 
1193 0206D 
1194 O206F 
1195 02072 
1196 02075 
1197 02077 
1198 02078 
1199 0207E 
1200 02081 
1201 02084 
1202 

1203 

1204 92088 
1205 0208C 
1206 0208F 
120? 

1208 

1209 02093 
1210 02097 
1211 02099 


7E62 


550 
850 
137 ESCP10 
OF 
134 
135 
1C1 
EE 
8E00 
00 
RE2 
870 
EO 
14E 
936A 
60 
3102 
14D = ESC P20 
REB 
135 
64DE 


Rs 
7630 = D-ESCZ 
H2 


6DAD 


k. 

a 
7900 =DO=CUR 
C2 DO=CRA 
C2 


7A=0 
GOYES 
LCASC 
DO=D0- 
DATO=C 
CDOEX 
7C<D 
GOYES 
CDOEX 
GONC 


ST=0 
ST=0 
ST=14 
ST=1 
GOSUB 
GOTO 


GOSUB 
ST=0 
GOSUB 


GONC 
ST=1 
CD1EX 
CDEX 
do=C 
b1=C 
D1=D1- 
C=A-C 
GOSUBL 


C=0 
*ST=1 
GOYES 
C=DATO 
7C=0 
GOYES 
LCASC 
DAT1=C 
C=0 
b1=C 
GOTO 


COSUB 
LC (1) 
GOTO 


GOSUB 
C=C+A 
C=C+A 


Display Driver <831216.1505> 
Display Character 


B 
ESCK10 
\\ 
2 

8 


A 
ESCSTj 


ESCK10 


Insert 
Curd ff 
Clear 
ResetC 
CLEARD 
ESCSTO 


CLEARD 
AtEnd 
SCNRT 


ESCP10 
AtEnd 


A 


2 
A 
=MOveu3 


B 
AtEnd 
ESCP20 
B 

B 
ESCP20 
\\ 

B 

B 


ESCSTO 
CLEARD 
EscSt2 
ESCSET 
CA=CUR 
A 

A 
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Is this a null byte? 
Yes, then fill nulls 
No, then fill blanks 
Hove pointer back 

Write out null or blank 


Done yet? 

Yes, then exit 

No, then do another byte 
(B.E.T.) Loop back 


Clear display if needed 


Look right for end of buf to be 
noved 

At end of buffer? 

Yes, then indicated 1t with flag 


D(A)=Old 01,C(A)=Start of Source 
DO=Start of source 


D1=Start of destination 
C(A)=Length to be noved 
Move menory 


Past end of nenory? 

Yes, then fill in null 

No, then read last character 
Is it a null? 

Yes, fill in a null before it 
No, then fill in a blank. 
Write out fill character 


Restore original D1 
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1212 02098 
1213 O209E 
1214 
1215 
1216 O20R0 
1217 0203 


134 
03 


AFO 
308 
4F2 
1BE7 
4Fe 
14f 
03 


1218 O20AR 


1219 02081 
1220 02084 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
A239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 O20B6 790A 
1256 O20BR 7400 
1257 O2OBE 69BA 
1258 
1269 
1260 
1261 02002 
1262 02005 
1263 02007 
1264 O2OCA 


865 
34 
845 
3111 
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Display Driver <831216.1505> 
Display Character 


DO=C 
RTNCC 


k. 
CA=CUR A=0 W : 
LC(5) =DSPBFS 


=A=CUR D0=(5) 


Clear A(5-0) 


=CURSOR 


A=DATO B 
RTNCC 


Read in cursor position 


we 
ke 
FOI I ITT TTT TT IR III I TIT II 
FOI IIIT IOI EO TTT ITI ITI TIT KI OK 
ak 


** Nane:(S) DSPCL? - Clear display buffer if necessary 
kk 


**k Category:  DSPUTL 

kk 

** Purpose: 

x Clear display buffer if Clear bit set in display status 
&k Reset cursor position if ResetC bit set in display 
kK status 

hk 

kk Entry: 

ks p = 

ks 

REE sits 

ik 

** Calls: GETSTA, CLEARD, PUTSTA 

kk 

FRA SOS pica x 

kk Inclusive: A(M),C(B) 

kk 

kK Stk lvls: 2 

ak 

** History: 

a 

xs Date Progranner Modification 

Pe? tices) wuesuliete. weet Ao pee Ae ee ed 
kk 11/01/83 «B.S. Added docurientation 

re 


FOO IOI TOT OIC OI SOIT 
FOI JOO TOI IOI TTI OI OI OI IK 


=DSPCL? GOSUB GETSTA 
GOSUB CLEARD 


GOTO  PUTSTA 
ke 


ke. 


* This routine returns with carry set. Uses ACI), C(B) 
CLEARD ?ST=0 Clear Need to clear display buffer? 
GOYES CLEARZ No, then return 
ST=0 = Clear Clear flag 
LC(2) (96*24+24)/12-1 Loop counter 
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1265 O20CE 1808 DO=(5) =DSPBFS 
a4 
1266 02005 841 CLEARO ST=0 BitsOK 
1267 020D8 ADO A=0 A 
1268 020DB 1505 CLEAR1 DATO=A Nn Clear 12 nibbles 
1269 O20DF 16B DO=D0+ 12 Nove past these nibbles 
1270 O20E2 R6E C=C-1 8B Decrenent counter 
1271 O20E5 55F GONC CLEAR‘ Loop back until done 
1272 O20E8 878 ?ST=1 ResetC 
1273 O20EB 22 GOYES CLEARI 
1274 O20ED 08 B=A A 
1275 O20EF 77BF GOSUB A=CUR 
1276 O20F3 DC ABEX A Restore A(B),B(B)=(CURSOR) 
1277 O20F5 3102 LCASC \ \ 
1278 O20F9 161 CLEAR. DO=D0+ 2 Nove DO from CURSOR to DSPBFS 
1279 or nove 1t to point to next char 
1280 O20FC AbD B=B-1 8B Decrenent counter 
1281 O20FF 400 RTNC Return with carry set uhen done 
1282 02102 14C DATO=C B Change null to a space. 
1283 02105 53F GONC CLEAR. (B.E.1T.) Loop back 
1284 k- 
1285 a- 
1286 02108 868  CLEAR2 ?ST=0 ResetC Need to reset cursor? 
1287 0210B 00 RTNYES No, then return 
1288 02100 848 CLEARS ST=0 ResetC Reset Clear Cursor flag 
1289 02110 755€ GOSUB DO=FC 
1290 02114 D2 C=0 A 
1291 02116 15C3 DATO=C 4 Clear FIRSTC and CURSOR 
1292 O211A 1A04 DO=(4) =DSPNSK 
SF 
1293 02120 E6 C=C+1 A Clear 24 nibbles (96 bits) 
1294 02122 528 ; GONC CLERRO (B.E.T.) Clear DSPNSK bits 
1295 : 
1296 a 
1297 02125 1FC7? DI=FC D1=(5) =FIRSTC 
4F2 
1298 0212C 01 RIN 
1299 Re 


1300 t. 


JF 
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11 STITLE SCRLLR - Scroll Left and Right 
1302 IRI II IIIS IIA TOSI T IIT TS ITT TS IIIS III I IID ISI IIT III III III IAAT SAK 
1303 JOO II IIIT TOT III IIIT OTT III III III II III IIIS III SII ISI IIIS IK 
1304 a 
1305 ** Nane:(S) SCRLLR - Scroll Left and Right 
136 xh 
1307 *% Category:  KEYUTL 
18 ak 
1309 ** Purpose: 
1310 . Watch for scroll keys and perforn display scroll 
1311 
1312 ak Entry: 
1313 ak P = 0 
1314 a 
1315 ME ERLY: 
1316 xe P = 0 
1317 7 A(B) contains keycode that is first in key buffer 
1318 = 
1313 ** Calls: ALMSRV, BLDDSP, BLDLCD, CKSREQ, D1=FC, FINDDO, 
1320 ak GETSTA, POPBUF, RPTKY, SCRL60, SETFC, SETTNO, 
1321 xR SLEEP, USRSTA. 
1322 xe 
1323 RR USO ig cadre 
1324 ** Exclusive: 
1325 ** Inclusive: A(W),B(W),C(W), DCW), DO, D1 
1326 a 
1327 AR Stk Ivise: <5 
1328 a 
1329 ** Detail: 
1330 7 Sleeps and watches for scrolling key in the key 
1331 “a buffer and causes the display to respond 
1332 — appropriately. Routine exits uhen a key 1s found 
1333 eR in buffer that isn’t a scrolling key or when 
1334 xR display timer tires out. 
1335 at 
1336 ** History: 
1337 xR 
1338 a Date Prograriner Modification 
1339 Rh ener eet weet amen nnn cere nen enn n cee eeneenennenn 
1340 AX 10/19/82 B.S. Updated docunentation 
1341 kX 07/18/83 B.S. Will not tine out if a progran 
1342 ae 1s running 
1343 ex 
1344 FOO TOI ROOT OI TEI IO TOO III SOO 
1345 SISOS OGG TC IOI ITO II IT TIO 
1346 O212E 716A =SCRLLR GOSUB GETSTA Save user status 
1347 02132 853 ST=1— -NoCur Allow cursor out of display 
1348 02135 8616 GOSUBL BLDLCD Build display 
7F 
1349 0213B 8FOO GOSBVL =SETTNO Start tineout tiner 
000 
1350 02142 7A3A SCRLO2 GOSUB USRSTA Need user status restored so that 
1351 they will be re-saved by DSPUPD 
1382 if it 1s called by CKSREQ 


1353 02146 8E0O 


GOSUBL =SLEEP Try to sleep 
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00 
1354 0214C 5F2 GONC SCRLOS Key in buffer? Yes, check it. 
1355 O214F 765C GOSUB cksreg No, see if anything has happened 
1356 02153 870 ?ST=1 =PgnRun Ts a progran running? 
1357 02156 CE GOYES SCRLO2 Yes, then don’t allow tine out 
1358 02158 8FOO GOSBVL =ALNSRV Check for tineout 
000 
1359 O215F 863 ?ST=0 «fF TMOUT If not tine to turn off then 
1360 02162 OE GOYES SCRLO2 back to sleep. 
1361 02164 3213 LC(3) 99*16+1 OFF key, 1 key in buffer 
6 
1362 02169 1B34 DO=(5) =KEYPTR 
4F2 
1363 02170 15€2 DATO=C 3 
1364 02174 DA A=C A 
1365 02176 F4 ASR A A(B)=OFF key 
1366 02178 670A USRST) GOTO USRSTA 
1367 a 
1368 z- 
1369 O217C 76EO SCRLOS GOSUB C=SCRL 
1370 02180 B06 C=C+1 P Is NEEDSC = F? 
1371 02183 54F GONC USRSTj No, then exit SCRLLR 
1372 02186 1B44 DO=(5) =KEYBUF 
4F2 
1373 0218D 749F GOSUB 01=FC 
1374 02191 7842 GOSUB FINDDO Read in A fron DO 
1375 02195 00 CON(2) =k#LFT Cursor left 
1376 02197 710 REL(3) SCRL10 
1377 O219A 00 CON(2) =kKHFLFT Cursor far left 
1378 0219C C3% REL(3) SCRL2O 
1379 O219F 00 CON(2) =kHRT Cursor right 
1380 O21A1 740 REL(3) SCRLW 
1381 O21R4 00 CON(2) =k#FRT Cursor far right 
1382 O21A6 770 REL(3) SCRL40 
1383 O21A9 00 CON(2) 0 Otherwise 
1384 O21AB SCC GONC =USRST) 
1385 Re 
1386 x 
1387 O21RE SCRL1O 
1388 O21RE 8E00 GOSUBL =POPBUF 
iv 
1389 021B4 7D6F SCRLI2 GOSUB D1=FC 
1390 021B8 148 A=DAT1 B Read FIRSTC 
1391 O21BB A6C A=A-1 8B Decrenent it 
1392 O21BE 4C0 GOC SCRL13 Skip if it borroned 
1393 021C1 7DR GOSUB SETFC Set FIRSTC 
1394 O21C5 8EDC GOSUBL BLDDSP 
6F 
1395 O21CB 8FOO SCRL13 GOSBVL =RPTKY Check if key still down 
000 
1396 021D2 511 GONC SCRL22 Exit if not 
1397 021D5 4£D , GOC SCRL12 B.E.T. 
1398 - 


1399 ae 
1400 02108 DO SCRLZ2O A=0 A 
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1401 021DA 7490 SCRL21 GOSUB SETFC Set FIRSTC 
1402 O21DE 8E00 GOSUBL =POPBUF Pop key out of buffer 
00 
1403 O21E4 694F SCRL22 GOTO SCRLLR Loop back, wait for another key 
1404 - 
1405 = 
1406 O21E8 SCRL30 
1407 O21E8 8E0O GOSUBL =POPBUF 
00 
1408 O21EE 7C40 SCRL34 GOSUB SCRLE0 Point D1 past end of window 
1409 O21F2 31F5 LC(2) 95 
1410 O21F6 9E9 7B>=C B Nove past end of window? 
1411 O21F9 71 GOYES SCRL35 Yes, then ignore key 
1412 O21FB 14F C=DAT1 8 Read character 
1413 O21FE 96A *c=0)—«B Is it a null? 
1414 02201 FO GOYES SCRL35 Yes, then ignore key 
1415 02203 B64 A=A+1 B 
1416 02206 7860 GOSUB SETFC Set FIRSTC 
1417 O220A 8E88 GOSUBL BLDDSP 
6F 
1418 02210 8FOO SCRL35 GOSBYL =RPTKY 
000 
1419 02217 SCC GONC SCRL22 
1420 O221A 43D : GOC SCRL34 (B.E.7.) No, then do scroll 
1421 - 
1422 Be 
1423 0221D 7D10 SCRL40 GOSUB SCRLEO Point D1 past last char in window 
1424 02221 31F5 SCRL45 LC(2) 95 
1425 02225 9E3 *Bo=C B Would this be past end of buffer? 
1426 02228 2B GOYES SCRL21 Yes, then done scrolling 
1427 O222A 14F C=DAT1 B Read char 
1428 O222D 96R C=O) iB Is it a null? 
1429 02230 AR GOYES SCRL21 Yes, then done scrolling 
1430 02232 171 Di=D1+ 2 Nove to next char 
1431 02235 B64 A=A+1 8B Increnent FIRSTC value 
1432 02238 B6s B=B+1 8B Increrent last char in window ptr 
1433 0223B 55E GONC SCRL45 (B.E.T.) 
1434 a 
1435 i 
1436 O223E 73EE SCRL60 GOSUB D1=FC 
1937 02242 14B A=DAT1 B Read (FIRSTC) 
1438 02245 1C8 D1=D1- (FIRSTC)-(WINDLN) 
1439 02248 14F C=DAT1 B Read (WINDLN) 
1440 02248 D1 B=0 A 
1441 O224D AES B=A B 
1442 02250 Rol B=B+C 8 First char past end of window 
1443 02253 3408 LC(5) =DSPBFS 
4Fe 
1444 O225A C9 C=C+B A 
1445 o225C C9 C=C(+B A 
1446 O225E 135 Di=C Point D1 at last char in window 
1447 02261 171 Di=N1+ 2 Point past last char in window 
1448 02264 03 RTNCC 
1449 ~ 


1450 as 
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1451 02266 1FA4 =C=SCRL D1=(5) =NEEDSC 
9F2 


1452 0226) 14F C=DAT1 B 

1453 02270 01 RTN 

1454 x 

1455 ae 

1456 02272 7031 SETFC GOSUB SETFCA Write out updated pointer 
1457 02276 7629 GOSUB RCLSTA 

1458 0227A 841 ST=0 = BatsOK 


1459 0227D 6AF8 GOTO PUTSTA Restore user status 
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1460 STITLE CRLFND,CRLFOF,CRLFSD - Send CR/LF 
1461 02281 7E09 =XDELAY GOSUB GETSTA 
1462 02285 859 ST=1-XDelay 
1463 02288 6FE8 GOTO PUTSTA 
1464 Re 


1465 te 
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1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
14% 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 0228C 


1508 

1509 

1510 02296 
1511 0229A 
1812 0229E 
1513 O22A2 
1514 022R2 


1515 022A9 
1516 O22RB 
151? O22RE 


B125 
DORO 
FF 


313 
7321 
7F OF 


1F04 
9F2 
D2 
14D 
1FC8 
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IOI SIO JO TOTO SO JOO TTT TO 
FORO JORIS JOR TOO OOOO TOOT 


ak 


kk Nane:(S) CRLFOF - 
**k Nane:(S) CRLFND - 
Nane:(S) CRLFSD - 


ki 
ak 
xx Category: 
ok 

a 
ok 
kk 
tok 
ik 
tok 
hk 
hk 
ka 
ok 
tok 
SEEM: 
hh p 
ek 

** Calls: 
kok 
ek 
tk 
i 


Purpose: 


Entry: 
P 


Inclusive: 
kk 


** Stk lvls: 
ak 


&* History: 
ka 

ax Date 
RR oe ueda 
Kx 41/01/83 
re 


CRLFOF: 
CRLFND: 
CRLFSD: 


Send cursor off /CR/LF to disp w/o delay 
Send CR/LF to display with no delay 
Send CR/LF to display with delay 


DSPUTL 


Send Cursor off, Replace Cursor, CR, LF to 
display with delay suppressed. 

Send Replace Cursor, CR, LF to display with 
delay suppressed. 

Send Replace Cursor, CR, LF to display with 
delay. 


= 0 


CRLFOF: 
CRLFND: 
CRLFSD: 


ESCSEQ, XDELAY, BF2DSP 
XDELAY , BF2DSP 
BF DSP 


A,B,C,0, 00,01 


5 
Progranner Modification 
B.S. Added docunentation 


SOIT IO TTT RTT TTR 
FORO J IO TO TI IIT TI III ITD TTT DIST IIIT ITI 


=RCCRLF NIBHEX 


xe 
x 


=CRLFOF 1C(2) 
GOSUB 
=CRLFND GOSUB 
=S-CRLF 
=CRLFSD D1=(5) 
C=0 

DAT1=C 
D1=(5) 


B125DOROFF Rep cur,CR,LF,End of string 
\«\ Turn cursor off 

ESCSEQ 

XDELAY Suppress delay with CRLF 
=DPO0S 

A 

B 

=RCCRLF Send Rep cur,CR, LF 
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220 
1518 02285 6859 GOTO  BF2DSP 
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1519 STITLE SCNRT - Scan Right 
1520 SII III IRI TITTIES IIT IIIT ASOT IIS IIIS IASI SSIS SSSI SAIS SI IIS IA 
1521 III II IIT IDI DISD I III ISI SI III IIS IIIS ISIS III II IIIII SSIS IIIS IIS AI. 
1522 ze 
1523 Nane:(S) SCNRT - Point Cursor Past Unprotected Field 
1524 
1525 ** Category: DSPUTL 
1526 i 
1827 *k Purpose: 
1528 ae Scans to right of cursor and returns A(A) pointing 
1529 ae past end of unprotected field, a null byte or end 
1530 ak of display buffer whichever cones first. 
1531 ah 
1532 aK Entry: 
1533 ah P = 0 
1534 ak 
1535 ** Exit: 
1536 ak P = 0 
1537 ak A(A)=Points past unprotected display character 
1538 aR Carry set if pointer points past DSPBFE (i.e. buffer 
1539 R is full and protected to end of buffer). 
1540 ax B contains value of A at tine of call. 
1541 at D(A) points past cursor position. 
1542 ae 
1543 *k Calls: CA=CUR,DO=CAR 
1844 cha 
1545 AE USES ci vasiss 
1546 kk Exclusive: 
1547 *& Inclusive: A,B,C,D(A),DO0 
1548 ae 
1549 Stk Ivis: 1 
1550 ae 
1551 xk History: 
1552 a 
1553 ae Date Progranner Modification 
1554 a aaa a aaa eta attain! 
1555 KK 10/19/82 B.S. Updated docunentation 
1556 - 03/17/83 B.S. Packed by calling subroutines 
x 
fee JOO UI I TTT TTT IIS IT IIS IIIA SISOS ISOS ST SII AIA 
1559 JOS ITO III ITS IIIT OT IIASA IOS IOS IIIS SSSI SI IIA 
1560 022B9 AF8 =SCNRT B=A WW Save A in B 
1561 O22BC 70ED GOSUB CA=CUR 
1562 022C0 B64 A=A+1 BB Increnent position 
1563 022C3 7000 GOSUB DO=CAA DO=C+A+A (Buffer pointer) 
1564 022C7 134 Do=C DO=Buffer pointer 
1565 
1566 022CA 0? D=C A Save pointer past cursor position 
1567 0220C #3 LCHEX 3 Mask for lower two bits 
1568 O22CF OE02 C=C&A P Get lower 2 bits 
1569 02203 816 CSRC C(S)=Mod 4 of cursor position 
1570 022D6 81C ASRB 
1571 O22D9 81C ASRB Divide cursor position by 4 
1572 022DC 3475 LC(5) (=DSPNSK)+23 


5F2 
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1673 022E3 E2 
1874 022E5 136 


1975 02268 1524 


1576 O22EC 136 
1677 O22EF 24 

1578 022F1 R4E 
1579 022F4 4A0 
1580 O022F7 R44 
1581 O22FA OD 

1582 O22FC 54F 
1583 

1584 

1585 O22FF 132 
1586 O22 8BE 
1587 02305 53 

1688 023? 132 
1589 O0230A OD 

1590 0230 541 
1591 O2H%F 136 
15392 02312 180 


1593 02315 1524 


16394 02319 136 
1595 O231C 24 

1596 O231E 50E 
1597 

1598 

1599 02321 14A 
1600 02324 968 
1601 02327 EO 

1602 02329 161 
1603 0232C A44 
1604 0232F 5AD 
1605 02332 181 
1606 02335 132 
1607 02338 OC 

1608 0233A 20 

1609 0233C 01 


x 
x 


x 
x 
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SCNR10 


SCNR2O 


SCNR3O 


SCNR40 


SCNR5O 
SCNR6O 


C=C-A A 
CDOEX 

A=DATO § 
CDOEX 

P= 4 
C=C-1 § 

COC SCNR2O 
A=A+A S 
P=P-1 

GONC = SCNR1O 


RDOEX 

7A>=C A 
GOYES SCNREO 
ADOEX 

P=P-4 

GONC SCNR40 
CDOEX 

DO=D0- 1 
R=DATO S 
CDOEX 

P= 4 

GONC SCNR2O 


A=DATO B 

7A=0) =—=B 
GOYES SCNR50O 
DO=D0+ 2 
A=AHA S 

GONC  SCNR3O 
DO=DO- 2 
RDOEX 

P=P+1 

P= 0 

RTN 
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Calculate rask pointer 

DO=Nask ptr, C(A)=Buffer ptr 

Read mask nibble 

DO=Buffer ptr, C(A)=Mask ptr 

Init bit count to 4 bits 

Is proper bit ready to shift off? 
Yes, then exit loop 

No, then get next bit ready 
Decrenent count of bits 

(B.E.T.) Loop back 


At end of display buffer? 

Yes, then RINSC, P=0 

No, check other exit conditions 
Decr bit count. All bits used? 
No, skip. 

Yes, then 

Decrerent nask ptr 

Read next nask nibble 


Reset bit count 
(B.E.1.) Check if still in buffer 


Read buffer byte 

Is it null? 

Yes, then exit 

Move buffer pointer 

No, then 1s byte protected? 

No, then loop back for next byte 
Undo last pointer nove 

Yes, then A(A)=buffer pointer 
Clear carry for normal return 
Clear P before return 
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1610 STITLE MOVCUR - Move Cursor Right or Left 
1614 PUSSIES SC CCECT CST CCTeSTTTTeTTTeteteTeStTe TiS tees e te tte TT tts tees 
1612 JOIST IIIT TDI T SI II III II SSIS SII IISA SS. 
1613 a 
1614 ** Nane: MOVCUR - Move Cursor Left or Right 
1615 he 
1616 ** Category: LOCAL 
1617 ae 
1618 ** Purpose: 
1619 ar Moves cursor in specified direction skipping 
1620 a protected fields if necessary. 
1621 aK 
1622 aX Entry: 
1623 ak P = 0 
1624 ak CurLft(SO) set if cursor to nove left, clear for 
1625 ak nove right 
1626 ak 
162? ek Exit: 
1628 ak P = 0 
1629 ae CURSOR updated, P=0, Carry set if neither CURSOR 
160 a nor FIRSTC nove 
1631 ae 
1632 tk Calls: GETMSK 
1633 ak 
1634 ak Uses....... 
1635 xk Exclusive: 
1636 *k Inclusive: A,B(B),C,D(A),D0 
1637 ak 
1638 tk Stk Ivls: 1 
16393 ae 
1640 4* Detail: 
1641 ak Trys to move cursor in specified direction. If 
1642 ax the cursor would land on a protected field then 
1643 “- it is moved past that field. If that protected 
1644 ak field extends to end of buffer then FIRSIC is 
1645 ax changed instead of CURSOR; this allous the protected 
1646 ae part of the display to be viewed. 
1647 a 
1648 ** History: 
1649 ak 
1650 xx Date Progranner Modification 
1651 RK nnn nee cence meee cece e rn nen een ren nner nee nnn 
1652 - 10/19/82 B.S. Updated documentation 

k 
eS Tee TeteTT Te ttt t teste treet ttt teteetttttitttttettitetettt iti tes. 
1655 JU II OIC COI III II SII IIIS IK 
1656 0233E 848 =NOVCUR ST=0 NoChFC Change FIRSTC if needed 
1657 02341 1BE7 MOVCOO DO=(5) =CURSOR 

4F2 
1658 02348 14€ C=DATO B 
1659 02348 D7? B=C A Save original value in D(B) 
1660 0234D 1AE7 MOVC1O DO=(4) =CURSOR 
4F 

1661 02353 148 A=DATO B 


1662 02356 7850 GOSUB MOVC80 
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1663 O235A 31F5 
1664 O235E 9E6 
1665 02361 81 
1666 02363 148 
1667 02366 7058 
1668 0236A 15R0 
1669 O236E O£06 
1670 02372 90C 
1671 02375 8D 


1672 02377 03 
1673 x 
1674 x 


1675 02379 DB novc4o 

1676 0237B 14C 

1677 O237E 87B 

1678 02381 00 

1679 02383 181 

1680 02386 14f 

1681 02389 7520 

1682 0238D 853 

1683 02390 31F5 

1684 02394 RES 

1685 02397 1937 

1686 0239B 14€ 

1687 O239E Bol 

1688 023A1 3E0 

1689 023R4 00 

169% 023A6 1BC7 SETFCA 
4F2 

1691 O23AD 148 

1692 02380 03 

1693 Ae 

1694 a 

1695 023B2 860 MOVC80 

1696 023B5 70 

1697 023B7 Rel 

1698 O23BA 01 

1699 O23BC Bed  NOVC90 

1700 O23BF 01 

1701 eS 

1702 Ae 
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LC(2) 95 
"ADC OB Would be past end of display? 
GOYES MOoVvC40 Yes, then restore original value 
DATO=A B No, then update cursor position 
GOSUB GETNSK Get bit nap 
R=DATO 1 Read rask nibble 
A=R&C P 
*AHO OP Is it protected? 
GOYES NOVC10 Yes, then keep looking 
RTNCC 
C=0 A C(B)=Original cursor 
DATO=C B Restore original cursor 
*ST=1  NoChFC Okay to change FIRSTC? 
RTNYES No, then return mith carry set 
DO=DO- 2 Point at FIRSTC 
A=DATO B Read FIRSTC 
GOSUB MOVC80 
ST=1— NoCur 
LC(2) 95 
B=C B 
DO=(2) =WINDLN 
C=DATO B Read window length 
B=B-C 8B B(B) is last legal FIRSTC 
"ADB OB Ts it in a legal range? 
RTNYES No, return without changing it 
DO=(5) =FIRSTC 
DATO=A B Change FIRSTC 
RTNCC 
?ST=0 «Curlft Moving cursor left? 
GOYES NMovC90 No, then skip 
A=A-1 B Yes, then decrenent value 
RIN 
A=A+1 8B Increrient value 
RIN 
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1703 STITLE ESCSEQ 
1708 JEU CISISOIIOCTO TOSCO CT CTS TOIT ITI IIIS 
1705 REKAKKEKKKKKKERIAKKKARKE KEK ARIK KIS SID SOR BI K 
1706 ax 
170? oc Nane:(S) ESCSEQ - Send Escape Sequence to Display 
1708 
1709 ** Category:  DSPUTL 
1710 ak 
1711 %* Purpose: 
1712 ax Sends an escape to display followed by a specified 
1713 kK character. 
1714 ax 
1715 &* Entry: 
1716 ak P = 0 
1717 ak C(B)=Character to follow escape character. 
1718 ax 
1719 eX Exit: 
1720 ak P = 0 
1721 aX 
1722 ** Calls: DSPCHC 
1723 ak 
1724 Rk Uses....... 
1725 ek Exclusive: C(B) 
1726 : Inclusive: A(W),B(W),C(W),D(W), 00,01, RAM(See DSPCHA) 
1727 
1728 ** Stk lvls: 4 
1729 ax 
17% ** History: 
1731 lel 
1732 ax Date Programmer Modification 
1733 aaa a a ata ahaaetatataiiataateaatatal 
1734 kk 07/15/82 = «BLS. Added docunentation 
xx 
tae JOO OCIS OOO SSSI I III III III III III III ISAS 
1737 JI II II II OO SII SIO TAS TOI TIS IS TTI SSSI IIS III II IIS ISIS IIIA 
1738 023C1 06 =ESCSEQ RSTK=C Save character 
1739 023C3 3181 LCHEX 18 Constant ASCII Esc 
1740 023C7 7178 GOSUB DSPCHC 
1741 023CB 07 C=RSTK Restore character 
1742 O23CD 6£68 GOTO DSPCHC Send character & return 
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1743 STITLE FINDA - Find ACB) Fron Table 
1744 JI III OTIS I I II III III IOI II III ITO TO SII IST I II SII ITI III SII III II IK 
1745 JUS OC IDIOTIC TTI ISI IIIT I TT SISK 
1746 ifs 
1747 kX Nane:(S) FINDA - Look For A(B) In A Table And Jurip 
1748 ** Nane:(S) FINDDO - Look For (D0) In A Table And Junp 
1749 ax 
1750 ** Category: GENUTL 
1751 ak 
1752 ** Purpose: 
1753 aK Searches a table following GOSUB for a byte matching 
1754 oe A[B] and jumps to address specified for that value. 
1755 x 
1756 ek Entry: 
1757 ak FINDA: 
1758 aia A(B)=byte to be found 
1759 la FINDDO: 
1760 ax (D0)=byte to be found 
1761 ee Table of bytes and address offsets must follow GOSUB 
1762 ae The call should look as follous: 
1763 at 
1764 ax GOSBVL =FINDA <---GOSUB 1s followed by table 
1765 ax CON(2) \Q\ <---Byte to be natched 
1766 ax REL(3) ESCQ <---Where to junp if natched 
1767 ax CON(2) \R\ 
1768 wees REL(3) ESCR 
17693 7 CON(2) \C\ 
1770 ax REL(3) ESCC 
1771 a . 
1772 ae 
1773 2 ; 
1774 ay CON(2) 0 <---Null byte terninates table 
1775 vies <---Followed by code to execute 
1776 a if no natch 1s found 
1777 aX Entry points: 
1778 am 1) FNDDO+ - Increments D0 1 byte, then reads in A(B) 
1779 an 2) FINDDO - Reads in A(B) fron 
1780 x 3) FINDA - Assunes byte to compare already in A(B) 
1781 ae 
1782 aX Exit: 
1783 aR P = Q 
1784 ax 
1785 ** Calls: None 
1786 Be 
787 BX UseS..4 0 
1788 ** Inclusive: C(A) 
1789 = 
1790 A Stk lvls: 0 
1791 aK 
1792 x* Detail: 
1793 am This routine uses 3 nibble self-relative offsets 
1794 Be 
1795 ** Algorithn: 
1796 ne Pops address off return stack and uses that address 


1797 Be as the start of a table of alternating byte to be 
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1798 ae compared and 3-nibble relative offsets of uhere to 
17993 ax junp if that byte matchs what is in A(B). The last 
1800 tal entry in the table should be a 0 byte followed by 
1801 aR: the code to execute if no natch is found. 

1802 ae 

1803 ** History: 

1804 xx 

1805 aK Date Progranner Modification 

1806 RK ccebwecin Sen eececee:) (eed wie cnbce cio ee ele eee act seees 
1807 *k 09/13/82 «B.S. Wrote routine to replace BYTSCN 
1808 Kk 09/14/82 «B.S. Changed to fall thru to otherwise 
1809 aK code 

1810 ax 

4811 JIS IOI TOI IIIS IIS IS IIS SI SII ISIS SSS ISIS ISIS ISIS ISIS AS: 
4812 JI IOI II ITO SIDI IIIS IO IIIS OSI ISS S SSSI SII SSSI IISSSST SS: 
1813 02301 07 FINDOO C=RSTK 

1814 02303 161 DO=D0+ 2 

1815 02306 136 CDOEX Restore DO, C(A)=return address 
1816 02309 6640 GOTO FINDSO 

1817 x 

1818 x 

1819 02300 161 =FNDDO+ DO=DO+ 2 

1820 023E0 14A =FINDDO A=DATO B 

1821 023E3 07 =FINDA C=RSTK Pop address fron return stack 
1822 O23E5 136 CDOEX Put address in DO 

1823 O23E8 06 RSTK=C Save old DO on RSTK 

1824 O23ER 14E FINDIO C=DATO B Read a byte 

1825 023ED 96A 7-0 «6B At end of list? 

1826 023F0 1E GOYES FINDOO Yes, then exit loop 

1827 O23F2 164 DO=D0+ 5 

1828 O23F5 966 7AHC OB 

1829 O23F8 2F GOYES FIND10 

1830 O23FA 182 DO=D0- 3 Back up to junp offset 

1831 , Now fall into REL3DO to do offset junp 


Saturn Assenbler 


Display Driver <831216.1505> Fri Dec 3, 1983 4:08 an 


Ver. 3.39/Rev. 2306 REL3DO - 3-Nibble-Relative a Page 41 
1832 STITLE REL3DO - 3-Nibble-Relative at DO Jun 
1833 JOIST III IIIT IS ISO TIT ITI III IO TI III IIIT IOS IIIA II IIASA 
1834 FISK III IDI IAI TTI I ITI ITI IDI ID III III IIIT IIIS III ITO ST SIS IIIS ISIS IIS 
1835 aX 
1836 xx Nane: REL3D0 - Rel Junp to 3 Nibble Offset at 
1837 ae 
1838 *k Category:  GENUTL 
1839 ax 
1840 ** Purpose: 
1841 ie Read a 3 nibble relative address at DO and junps to it 
1842 
1843 AX Entry: 
1844 ae DO points to 3 nibble self-relative offset to junp to 
1845 ax RSTK=Value to restore to DO before junping to address 
1846 kx 
1847 Kk Exit: 
1848 a P = 0 
1849 ak DO=value that had been on RSTK 
1850 ak 
1851 ** Calls: None 
1852 aK 
1853 KK Uses. ...00. 
1854 **k Inclusive: C(A) 
1855 aa 
1856 *x Stk lvls: -1 (pops value off return stack) 
1857 ae 
1858 ** History: 
1859 as 
1860 ae Date Progranner Modification 
1861 KK enn een meee wees teen tener mew cern neem en ewenmernces 
1862 Kk 10/14/82 B.S. Created entry point 
1863 eA 
1864 JIT III III TI TTI OIA II AI III I TSAI III ISI ID ITI III IAI SII II II IN 
1865 JOR II SIT III IT II RTI RTI DT TT IIT III EIS IDI III III IIIT ITAA TAIT II ITS 
1866 x Note: Above code falls into here 
1867 O23FD 23° =REL3D0 P= 3 
1868 O23FF 3100 LCHEX 00 
1869 02403 1563 C=DATO X Read offset 
1870 02407 OB CSTEX Suap it into status bits 
1871 02409 868 *ST=O 11 Is 1s a negative offset 
1872 0240C 60 GOYES FIND40 No, then okay 
1873 O240E 31FF LCHEX FF Yes, then do sign extend 
1874 02412 OB FIND40 CSTEX Suap it back into C(X) 
1875 02414 132 ANOEX A(R)=Table pointer, DO=Old A 
1876 02417 CA A=A+C A Add offset 
1877 02419 07 C=RSTK C=Oraginal 
1878 02418 DE ACEX A A(A)=Orig DO, C(R)=Table Pointer 
1879 0241D 132 ADOEX A(A)=Old A, DO=Original DO 
1880 02420 20 FINDSO P= 0 Must leave P=0 
1881 02422 06 RSTK=C Push address on stack 
1882 02424 03 RTNCC Jurp to address specified 
1883 . 


1884 
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1885 STITLE TBLIMP,TBLINC - Table Junp 
1886 III IIIA I TI TI IIIA III III III ISI SII IIS IOI IOS TSS ISIS SSIS IIASA A 
1887 JIU OO OTT II IIIT IIIS TIT IIT TAT IAT TTI TOTTI TID 
1888 Ae 
1889 ** Nane:(S) TBLIMP - Indexed table junp 
1890 ** Nane:(S) TBLINC - Indexed table junp 
1891 a 
1892 4% Category:  GENUTL 
1893 ai 
1894 xt Purpose: 
1895 ak Perforns an indexed table junp into a table of 3-nibble 
1896 ak relative offets following GOSUB. 
1897 ak 
1898 *k Entry: 
1839 a Table of relative offsets nust follow GOSUB 
1900 a TBLIMP: = index of table to jump to 
1901 an TBLINC: (C(O) = index of table to junp to 
1902 aE 
1903 aA Exit: 
1904 aR = 0 
1905 ae 
1906 ** Calls: None 
1907 aR 
1908 ak Uses....... 
1909 *k Inclusive: C(A) 
1910 aR 
1911 ** Stk lvls: 0 
1912 ak 
1913 ** Detail: 
1914 aR Pops address off stack and adds 3 tines the index to 
1915 ak it. It then uses REL3D0 to junp to the address 
1916 ax specified by that table entry. 
1917 xe 
1918 &* History: 
1919 ais 
1920 ne Date Progranner Modification 
1921 RR we mnnn nn ewer reece cet n ener r rrr e nn ene teens nee cer see 
1922 - 10/14/82 B.S. Created routine to replace CASE. 
k 
joa SII RII IDI IIIT II IIIT IIIS SAIS II II III II SII II III III STIS ISS III ISS IIS 
4925 FRI II III OTS ISO III IIIS IIS ISS SII SII IS SII SSSI SI SII III SI SSSI SIA 
1926 02426 8000 =TBLUNC P=C = 0. Move pointer to P 
1927 0242R 07 8 =TBLJMP C=RSTK Pop table address fron stack 
1928 0242C OD P=P-1 
1929 O242E 4B0 GOC TBLIM 
1930 02431 809 C+P+1 
1931 02434 809 C+P+1 
1932 02437 809 C+P+1 
1933 0243A 136 TBLJM1 CDOEX C(A)=Old DO, DO=ptr to offset 
1934 0243D 06 RSTK=C Save old DO value on stack 


1935 0243F 6DBF 


GOTO REL3D0 Now jump do offset junp 
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1936 

1937 es 
1938 a 
1939 xR 
1940 xe 
1941 ax 
1942 = 
1943 o 
1944 7 
1945 aK 
1946 aS 
194? ae 
1948 ae 
1949 ae 
1950 aS 
1951 a 
1962 aE 
1983 
1954 ae 
1955 ae 
1956 ie 
195? a 
1958 a 
1959 ax 
1960 ae 
1961 aX 
1962 ed 
1963 xB 
1964 a 
1965 xe 
1966 = 
1967 os 
1968 ae 
1969 02443 1B87 =D 


4F2 
1970 0244A AF2 
1971 0244D 22 
1972 O244F 1547 
1973 02453 16F 
1974 02456 OC 
1975 02458 56F 
1976 0245B 1A17 
4F 
1977 02461 3300 
51 
1978 02467 15C3 
1979 0246B 03 
1980 
1981 


D 


STITLE DSPRST - Display Reset 
III IIIT IIIS IOI III III IIIS II IIIT I STII IS ISIS OT ISIS IIIS III II ISA 


OOOO RIOT TOIT TOG III 


Nanie:(S) DSPRST - Display reset 
Category:  DSPUTL 


Purpose: 
Resets display driver pseudo-device: clears buffer, 
display mask, cursor position, first character, 
status, and window. 


Entry: 


Exit: 
P = 0 


Calls: None 


Inclusive: C(W),P,DO 
Stk lvls: 0 
History: 


Date Progranner Modification 


et we wee wee me a ew ew me we mew we ew tee eH ew wee 


10/25/83 B.S. Added docunentation 


FOI IOI IO TOOT TTT OT I III TI SII IIT II 
FOI IOI ITT OT OT TT TT IO TOI ITI 


SPRST DO=(5) (=DSPSTA)+3 Will clear to end of DSPNSK 


C=0 W 

P= 2 Clear 4+4+96*2+24 nibbles 
SPRS1 DATO=C W 

DO=D0+ 16 

P=P41 

GONC  DSPRS1 Loop until done 

DO=(4) =WINDST 


LC(4) 2170 WINDST=0, WINDLN=21 


DATO=C 4 
RTNCC Return (P=0,Carry clear) 


Saturn Asserbler 


Display Driver <831216.1505> Fri Dec ©, 1983 4:08 an 


Ver, 3.39/Rev. 2306 NOKEY+ Page 44 
1982 STITLE NOKEY+ 
1983 JE III IO IIIT TO IIIS SAIS SSIS IS. 
1984 JUDO TOTS SSIS I SII TIS ISIS I ITS I III III AK 
1985 ak 
1986 *k Nare: NOKEY+ - Flush Key Buffer Except ATIN Key 
1987 aK 
1988 ** Category: KEYUTL 
1989 ri 
19% ** Purpose: 
1991 ak Flushes key buffer except leaves RITN key if present 
1992 a 
1993 ** Entry: 
1994 ak P = 0 
1995 ah 
1996 &* Exit: 
1997 ah P = 9 
1998 a 
1999 *k Calls: NOKEYS 
2000 tk 
2001 ak Uses....... 
2002 kk Exclusive: A(S) 
2003 *k Inclusive: A(B),C(B),A(S) 
2004 ae 
2005 ** Stk lvls: 0 
2006 ak 
2007 *k History: 
2008 aK 
2009 ak Date Progranner Modification 
2010 the AD ot! | weaeaaten. Iebeetedeeucsncase ccuesoeucsowatedos 
2011 ek 05/19/83 B.S. Created routine 
2012 - 
2013 JERI IIIT OSS SSSI IS IOS IOS IIIS ISI SIO IS SSI ITN. 
2014 JE III IO ISI IIS IIIT IIT III III ISOS ISIS SISSOSIII ISIS IIA 
2015 02460 1B24 =NOKEY+ DO=(5) =ATNFLG 


4Fe 
2016 02474 1524 
2017 02478 94C 
2018 0247B 00 
2019 0247D 8D00 

000 
2020 02484 


A=DATO S 
PAHO OS 
RTNYES 


=nokeys GOVLNG =NOKEYS 


END 
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=R=CUR 

ADODCO5 
ABDC 19 
ADDC 15 
ADBC1? 
ABDC 20 
ABDC 25 
ADDCHR 
ALMSRY 
ANNAD1 
ANNADA 
RSCII 

RINF LG 
=RAYNZDS 
AVNENS 
AtEnd 

=BF2BLD 
=BF2DPP 
=BF2DS+ 
=BF2DSP 
BLDOO3 
BLDOO4 
BLDOOS 
BLDOOG 
BLDO20 
BLDO80 
=BLDB10 
BLDB20 
BLDB30 
BLDB40 
BLOB45 
BLDB5O 
BLDBGO 
=BLDBIT 
BLDDS* 
=BLDDSP 
=BLOLCD 
BLDLC) 
=BitsOK 


=C=SCRL 
CR=CUR 
CHRB10 
=CHRBUF 
CKSREQ 
CLEAR. 
CLEARO 
CLEAR 
CLEAR 
CLEARS 
CLEARD 


=CRLFND 
=CRLF OF 
=CRLF SD 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 


8362 HO20AA 
7855 HO1EAF 


7878 HO1ECE - 
7905 #O1EE1 - 


7918 HO1EEE 
7922 HOTEF2 
7925 #O1EFS 
7782 #01E66 


188672 #2£100 
189262 #2E34E 


193602 #2F442 
7169 #01001 
193940 #2F594 
0 #00000 
6292 #01894 
7158 #01BF6 
7176 #01008 
7182 #O1COE 
6350 #018CE 
6353 #018D1 
6403 #01903 
6426 #0191A 
6467 #01943 
6535 #01987 
6591 #019BF 
6624 #O19E0 
6654 HOISFE 
6662 #01A06 
6730 #OTA4A 
6742 #O1A56 
6755 #01A63 
6588 #01380 
6305 HO18AT 
6296 #01898 
6300 #01890 
6870 #01AD6 
1 #00001 


8806 #02266 
8352 #OZ0A0 
6584 #019B8 
6559 #0199F 


8441 HO20F9 
8405 #02005 
8411 #020DB 
8456 #02108 
8461 #02100 
8386 #02002 


8862 HOZLSE 
8854 #02296 
8866 #O22AC 


1218 
1013 
1020 
1028 
1032 
1035 
1036 
988 
1358 
50 
50 
297 
50 
627 
50 
22 
105 
625 
628 
630 
126 
127 
145 
152 
166 
189 
277 
287 
299 
W2 
323 
327 
332 
276 
103 
106 
107 
375 
24 
1266 
1451 
1216 
274 
266 
915 
1278 
1266 
1268 
1286 
1288 
1261 
1152 
1512 
1510 
1514 


851 
1005 
1037 
1023 

998 

996 
1009 


145 
176 


942 


627 
1179 


105 
11? 
110 
135 
150 
163 
182 
334 
282 
295 
483 
325 
317 
329 
125 
869 
956 
375 
455 
107 
1458 
1369 
1209 
269 
287 


1283 
1294 
1271 
1262 
1273 

828 
1174 
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1275 


2015 


1183 


626 
860 
122 
143 


185 
285 


479 
1143 
1394 

836 


193 


1561 


988 
1178 


1192 


641 
125 


141? 
865 


454 


1095 
1204 
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1518 


1348 
823 


1105 
1256 


835 


1116 


994 


1126 
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1083 


1131 
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CURSOR Abs 193662 #2F47E 50 562 811 859 1218 1657 1660 


=DO0=CUR Abs 8339 #02093 
DO=FC = Abs 8041 #01F 69 
DIi=FC = Abs 8485 #02125 
DDICTL Abs 189439 #2E3FF 


1209 814 1036 1096 1106 
1091 111 «132-154-1133 1283 
1297 456 «41373 1389 1436 

50 190 362 365 495 


=Clear Abs 5 #00005 - 28 «931 «1172 «1261 «1263 
CurLft Abs 0 #00000 - 21. 1028 1100 1119 1117 1127 1695 
=Cur0ff Abs 6 #00006 - 29 «4520 834 B42 93H «1022 «1138 1146 
1171 
B-E.C1 Abs 8081 #O1F91 - 1106 1112 
D-£.D1 Abs 8119 HOTFB? - 1120 1121 
D-ES.C Abs 8077 #0O1F8D - 1105 1075 
D-ES.D Abs 8106 HO1FAR - 1116 1077 
D-ESCZ Abs 8328 #02088 - 1204 1073 
D-ESC< Abs 8179 HO1FF3 - 1146 1065 
D-ESC> Abs 8156 #01FDC - 1138 1063 
D-ESCC Abs 8050 #O1F72 - 1095 1053 
D-ESCD Ribs 8129 #O1FC1 - 1126 1055 
D-ESCE Abs 8236 #02020 - 1170 1067 
D-ESCH Abs 8139 HO1FCB - 1131 1057 
D-ESCJ Abs 8188 HOIFFC - 1151 1059 
D-ESCK Abs 8188 HOTFFC - 1152 1061 
D-ESEP Abs 8256 #02040 - 1178 1069 1071 
D-ESCQ Abs 7932 #O1EFC - 1040 1047 1049 
D-ESCR Abs 8035 #O1F63 - 1087 1051 
DO=CAR Abs 8343 #02097 - 1210 1563 
DD3ST Abs 188676 #2E104 - 50 312 

DELAYT Abs 194888 #2F948 - 50 938 

=DOSCRL Abs 7391 #O1CDF - 839 

DPOS Abs 194893 #2F94D - 50 1514 

DSP-BS Abs 8129 #O1FCI - 1125 986 

DSP-CR Abs 7372 #O1CCC - 828 980 


DSP-EC Abs 7738 HO1E3A ~ 971 984 


DSP-LF Abs 7611 #01DBB - 928 982 
DSPBFS Abs 193664 #2F480 - 50 136 172 476 887 1217 1265 1443 
DSPC33 Abs 7466 #0102A - 865 841 843 
DSPC35 Abs 7470 #01D2E - 868 864 
DSPCH* Abs 7282 #O1C72 - 794 783 
DSPCH. Abs 7248 #01050 - 782 776 
DSPCH@ Abs 7280 #01070 - 793 788 
=DSPCHA Abs 72H HO1C3E - 9774 = 637 
=DSPCHE Abs 7228 #OI1T3C - =6773 «1740-1742 
DSPCHX Abs 194164 H2F674 - 50 785 
=DSPCL? Abs 8374 #02086 - 1255 

DSPCR1 Abs 7395 #01CE3 - 840 835 
DSPCR2 Abs 7453 #01D1D - 859 857 
DSPCR3 Abs 7460 #01024 - 863 848 
DSPCR4 Abs 7474 #01032 - 869 94 
DSPCR5 Abs 7560 #01088 - 3900 909 
DSPCR? Abs 7589 #01DA5 - 912 886 893 960 
=DSPDLY Abs 7599 #O1DAF - 921 

DSPLFO Abs 7634 #01DD2 - 935 922 
DSPLF1 Abs 7688 #01E08 - 951 

DSPLF2 Abs 7694 HO1EOE - 955 949 
DSPLF3 Abs 7702 ROTET6 - 957 964 
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DSPMSK Abs 193856 #2F540 - 50 559 1292 1572 
DSPRS1 Abs 9295 #0244F - 1972 1975 
=DSPRST Abs 9283 #02443 - 1969 
DSPS-O Abs 7756 HO1ESC - 978 799 
DSPS-1 Abs 7939 HO1FO3 - 1045 800 
DSPS-2 Abs 7317 #01095 - 808 801 
DSPS-3 Abs 8025 HO1F5S - 1081 802 
DSPS20 Abs 7314 #01092 - 807 810 


DSPS21 Abs 7342 HOICRE - 816 822 

DSPS22 Abs 7362 #O1(C2 - 823 818 

DSPSTA Abs 193653 #2F475 - 50 502 510 513 518 1969 
DSPTIN Abs 7009 #01861 - 493 899 955 

DSPUOT = Abs 6886 HO1RE6 - 452 196 

DSPUO2 = Abs 6891 #O1REB - 454 925 

DSPU2} Abs 7607 #01DB7 - 925 936 

DSPU40 Abs 6976 #01B40 - 483 474 

DSPUSO «Abs 6994 #01B52 - 488 486 

DSPU6O Abs 7000 #01B58 - 4% 480 

=DSPUPT Abs 6878 HOIADE - 448 

=DSPUPD Abs 6874 #O1RADR - 447 

ESC>10 Abs 8162 HOIFE2 - 1140 1148 

ESCD1O0 Abs 8069 HO1F8S - 1101 1128 

ESCKIO Abs 8216 #02018 1161 1156 1159 1167 
ESCP10 Abs 8273 #02051 1184 1182 

ESCP20 Abs 8315 #02078 1198 1193 1196 

ESCSO} Abs 8073 H0O1F89 1102 1109 1113 1122 
=ESCSEQ Abs 9153 #02301 1738 1511 

ESCSET Abs 7741 #O1E3D 972 =825 1084 1206 
ESCSTO Abs 8025 #01F59 1080 1041 1088 1099 1102 1175 1201 
ESCSTA Abs 193659 #2F47B 50 796 811 972 1140 
ESCST} Abs 8252 #0203C 1175 1135 1165 


' 4 t t a ' ' ' ' 


EscStO Abs 0 #00000 42 1082 
EscSt1 Abs 1 #00001 - 43 971 
EscSt2 Abs 2 #OOW? - 44 1205 
EscSt3 Abs 3 #00003 - 45 = 824 


FINDOO Abs 9169 #02301 - 1813 1826 

FIND1O Abs 9194 #O23ER - 1824 1829 

FIND40 Abs 9234 HO2412 - 1874 1872 

FINDSO Abs 9248 #02420 - 1880 1816 

=FINDA Abs 9187 #O23E3 - 1821 978 1045 

=FINDDO Abs 9184 #023E0 - 1820 1374 

FIRSTC Abs 193660 #2F47C - 50 120 159 859 878 1091 1297 1438 
1690 

=FNDDO+ Abs 9181 #02300 - 1819 

=GETMSK Abs 7098 #01BBR - 559 1024 1667 

=GETSTA Abs 7059 #01B93 - 510 106 447 782 839 921 1255 1346 


1461 
TOFNDO Ext - 284 
=Insert Abs ? #0000? - 3% «6485 = 9951040 «1087 1170 
KEYBUF Abs 193604 #2F444 - 50 1372 
KEYPTR Abs 193603 #2F443 - 50 1362 
LCDTAB Abs 6764 #O1REC - 337 =—WRO6 
LeftR Abs 3 #00003 - 14 148 =6151 


MOVCOO = Abs 9025 #02341 - 1657 1030 
NOVC1O «Abs 9037 #02340 - 1660 1671 
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HOVC40 
MOVE8O 
MOVE9O 
=MOVCUR 
fNOveu3 
MNoved3 
NEEDSC 
=NOKEY+ 
NOKEYS 
NOTIA- 
NOTIN 
=NOTINE 
NOTINMX 
NOTIN) 
NoChFC 
NoCur 


POPBUF 
PROMPT 
PUTST1 
PUTSTA 


PUTSTj 
PUTSj}2 
PgnRun 
Phase 
R<RSTK 
RArrow 
=RCCRLF 
=RCLSTA 
=REL3D0 
REPCUR 
RPTKY 
RSTK<R 
=ResetC 
RightA 
=§-CRLF 
SCNR1O 
SCNR2O 
SCNRIO 
SCNR40 
SCNRSO 
SCNRGO 
=SCNRT 
SCRLO2 
SCRLOS 
SCRLIO 
SCRLI2 
SCRL13 
SCRL2O 
SCRL21 
SCRL22 
SCRL3O 
SCRL34 
SCRL35 


Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 


Ext 
Ext 
Abs 
Abs 


Rbs 
Rbs 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 


9081 
9138 
9148 
®22 


194890 
9325 


6863 
6850 
68H 
7734 
7734 
14 

3 


7049 
7032 


6288 
7752 


8844 
7072 
9213 


8866 
8945 
8959 
8970 
8993 
9013 
9018 
8889 
8514 
8572 
8622 
8628 
8651 
8664 
8666 
8676 
8680 
8686 
8720 
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#02379 
#023B2 
#02380 
#0233E 


4#2F94A 
#0246D 


#O1ACF 
#01AT2 
#01 ARE 
#01633 
#01636 
#0000B 
#0000 3 


#01889 
#01878 


#01890 
HO1E43 


#00002 


#00000 
#O228C 
#01 BAO 
#023FD 


#00008 
#00004 
#O22A2 
HO22F 1 
#O22F F 
#O230A 
#02321 
#02335 
#0233A 
#022B9 
#02142 
#O217C 
#O21AE 
#02184 
#O21CB 
#02108 
#021DA 
#O21E4 
#021E8 
#OZTEE 
#02210 


Table 


' tf f£ #€ @ bo gy 


pF 4 4 6 


1676 
1695 
16993 
1656 
11% 
1017 
50 
2015 
2019 
371 
367 
362 
967 
968 
4 
26 
1147 
1388 
625 
504 
499 
1463 
102 
974 
1386 
25 
775 
20 
150? 
513 
1867 
434 
1395 
778 
31 
15 
1513 
1578 
1885 
1589 
1539 
1606 
1608 
1560 
1360 
1369 
1387 
1389 
1395 
1400 
1401 
1403 
1406 
1408 
1418 


1665 
1662 
1696 
1101 


991 
868 


453 
370 
450 
934 
941 
1029 
109 
1347 
1402 


514 
102 


108 
9% 


194 


127 
1517 
875 
1935 


1418 


829 
179 


1582 
1679 
1604 
1590 
1601 
1587 

997 
1357 
1354 
1376 
1397 
1392 
1378 
1426 
1396 
1380 
1420 
1411 


1681 


1111 


1451 
946 


463 
945 
1656 
794 


1682 
140? 


372 


473 
165 
%®2 


1173 


187 


1596 


1153 
1360 


1429 
1413 


1414 


1120 


467 


1677 
833 


950 


475 
181 
930 


1272 


1180 


968 


844 


974 


483 


958 


1286 
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932 


1032 


1457 


1288 
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1031 1139 


1257 1459 
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SCRL40 Abs 8733 #02210 - 1423 1382 

SCRL45 Abs 8737 #O2221 - 1424 1433 

SCRL60 Abs 8766 RO223E - 1436 1408 1423 
=SCRLLR Abs 8494 #O2Z12E - 1346 951 1403 

SCROLT Abs 194886 #2F946 - 50 845 86897 

SETFC Abs 8818 #02272 - 1456 1393 1401 1416 

SETFCA Abs 9126 #0236 16% 894 1119 1456 


SETSTA Abs 7085 #01BAD - 518 500 
SETTNHO Ext - 1349 
SLEEP = Ext - 96 962 1353 


=STOSTA Abs 7083 #O1BAB - 517 
SYSFLG Abs 194265 #2F6D9 - 50 67? 
=Savlvl Abs 5 #00005 - 49 774) =0777 


TBLJN1 Abs 9274 #0243A - 1933 1929 
=TBLINC Abs 9254 #02426 - 1926 798 
=TBLJMP Abs 9258 #0242A - 1927 

TIMER) Abs 189432 #2E3F8 - 50 365 495 


TinOut Abs 10 #0O00R - 33. 448 = 498 = 903) 39359 
=USRSTA Abs 7040 #01B80 - 502 905 912 328 961 1350 1366 
USRST) Abs 8568 #02178 - 1366 1371 1384 


UpdOff Abs 4 #00004 - 27. 371 449 49 
WINDLN Abs 193651 #2F473 - 50 118 159 464 468 849 876 878 
1438 1685 
WINDST Abs 193649 #2F471 - 50 468 1976 
WRTTM Ext - 494 
=XDELAY Abs 8833 #02281 - 1461 1512 
=XDelay Abs 9 #00009 - 32. 840) = 933) 967 = 1462 
bALTCH Ext - 283 
cksreq Abs 7593 #01DA9 - 915 901 929 957 1355 
=fCALC? Abs 7214 HO1C2E - 3677 131 
fTMNOUT Abs 3 #00003 - 38 1359 
KHFLFT Ext a See 
kKRFRT = Ext - 1381 
KALFT = Ext = a7 
kRRT Ext - 1379 


=nokeys Abs 9341 #0247D - 2019 
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Page 50 
Input Paraneters 
Source file nane is SB&DSP: :MS 
Listing file nane is SB/DSP:TI:ML::-1 


Object file nane 1s SBZDSP: TI: MS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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Woon Nn wo & wT 


10 
4 
12 
13 
14 
15 
16 
17 
18 
19 


21 
22 
23 
24 
25 


27 
28 
29 


31 
32 
33 


35 
36 
3? 
38 
39 
40 
ry 
42 
43 
ry. 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


02484 
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x fh  BBBB & RRRR O0000 A OA 
* nnn B B && R R O O AN An 
x AM B B && R RO ORAA 
x hin BBBB & RRRR OF OMAR 
& A MB B&&& RR 0 on A 
* hon B B& & RR 0 OF HN 
‘ nh oo BBBB 8&& R R OOOOO A A 


TITLE HP-71 Ron Test <831212.1205> 
ABS #2484 


SORT TTT TOR 
KKK KAI K KI KKK KKK AK AIR KKK AR EK K AKER KKK IR RE KK KEKE REIT IIIA 
xx 


*k Narie: ROMTST - System ROM checksun test 


ae 
** Category: SYSTEM 

ah 

**k Purpose: 

s Perform ROM checksun on the four systen ROMs. 
oh 

ak Entry: 

ah p = 0 

ih 

aR Exit: 

ak P=0, carry set 

ah y 

** Calls: BF2BLD, DSPCHA, BLDDSP, RCKBp 

kk 

AX UseS...000% 

*k Exclusive: A,B,C,D,RO,R1,01,D0,P, OUT register 
*k Inclusive: A,B,C,D,RO,R1,01,D0,P, OUT register 
ae 

*k Stk Ivis: 3 

ae 


&* Detail: 
xk The ROM test is perforned as a checksun, on all 4 chips. 
xk ~— Results are reported on the beeper as follows: 


ak Three tones are used (at nominal 400Khz) --- 

xk 617Hz Mediun tone indicates "results follow" 

ae 775Hz High tone indicates "ROM chip OK"; chip #1 will 

ae beep once, chip #2 will beep tuice, etc. 

an 438Hz Low tone indicates "ROM chip BAD"; chip #1 will 

n beep once, chip #2 will beep twice, etc. 

Set Bes, 2 alg ea ae te ohare Se a ee eaia ta peal th oe 
kK 


xk This ROM test depends on systen RAM (nanely the RAN 

kk accessed by the display code). A RAN failure night 

xk prevent the ROM test from being run properly, but this 
xx would most likely show up as a complete failure of 

xk the HP-71: a pernanent “Menory Lost" message, or the 
*k display locked up mith other characters. 

ak 


*x ~The ROM test does not depend on code in ROM chips 2,3 
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56 

5? 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

63 

79 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

3) 

91 

92 02484 
93 02484 
94 02484 1F48 
520 
95 0248B 8E00 
00 
AFO 
100 


96 
97 
98 
99 
100 
101 
102 02497 
103 0249A 
104 0249) 
105 O24A0 
106 O24R2 
107 O24AS 
108 024A? 


02494 
02494 


B44 
104 
303 
DA 

810 
E6 

938A 


ak 
aK 
ak 
xk 
ak 
ak 
xk 
xk 
ak 
ak 
ak 
aK 
ak 
ak 
xk 
ax 
ak 
ax 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
ae 
ak 
an 
ak 
ak 
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and 4. A failure of ROM chip #1 might preclude a test 
of the other three ROMs. 


The ROM test includes a connunication link with an 
Electronic Tester device. This link was set up for 
autonatic testing of production line components, and 
inpleriented on the Self-Check ROM. The ET cornmunication 
schene is as follous: 
-- When the test is cornpleted, a preanble is sent out 
on the OUT register indicating "test results follon": 


OUT regisiter= "OFF" , held for 600 usec (noninal 
at 400KHZ) 


-- After preamble, report test results on OUT register 
as follows: OUT reg= "Oxt", where 
"t"= test code oo for ROM test) 
and "x"=bituise results (e.g., "x"="1010" means chips 
one and three are bad, chips 2 and 4 are good). 
This is held on the OUT register for 600 usec, also. 


If the ET 1s not hooked up, no problen: this 1s a one-way 
conriunication, at this point. See the HP-71 Self-Check 
ROM for wore details on the ET cotinunication link; the 
full scherie includes two-way corimunications. 


History: 
Date Progranner Modification 
03/26/83 MB Wrote ROM test 


FOI IIIT TE TOT TE TTT 
SOIT TTT OT TIT I 


x 


=RONTST 
RONCHK 
D1=(5) =RnTsts Point to ROM TEST nessage. 
GOSUBL =BF2BLD To display, build display. 
A=0 W 
RO=A RO(S)= beep counter (teriporary), 
id RO(XS)= error report flags. 
x R1(S)= chip counter, 
* R1(A)= chip address. 
x 
CHKSUN A=A+1 SS Count chips. 
Ri=A Save counter. 
LCHEX 3 For ASCII code. 
A=C A A(O)= 3. 
ASLCE A(B)= ASCII code for chip#. 
C=C+1 A C(O)= 4 = max chip count. 
°As=C PP Mare chips to check? 
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109 O24AR F1 GOYES CHKSMN Yes. 
110 
111 %~-- Exit ROM test with ET cormunications. 
112 O24AC D2 C=0 A Set C(X)= OFF 
113 O24RE CE C=C-1 A for ET’s preanble. 
114 024B0 7700 GOSUB ROMC19 Preanble, 617 usec wait. 
115 . 
116 024B4 118 C=RO Set C(X)= 0x8, where 
117 024B7 3108 LCHEX 80 x= bad chip flags. 
118 x Fall into ROMC19, send out 0x8. 

i 119 02488 BBG RONC19 CSR x 

1 120 O24BE 801 OUT=C 

121 & 
122 024C1 B26 RONC21 C=C+1 XS 617 usec wait (400KHZ nominal). 
123 024C4 SCF GONC RONC21 
124 024C7 01 RIN qa---¢0) EXIT. 
125 * 
126 h--- 
127 024C9 7BRO CHKSM1 GOSUB ODspBld Display chip #, build dsp. 
128 O24CD 111 A=R1 A(A)= chip addr. 
129 02400 131 DI=A Chip addr to D1. 
1% 024D3 3400 LCHEX 04000 Size of chips in bytes. 

040 

131 024DA CR R=A+C A New chip address 
132 024DC CA A=A+C A back to R1. 
133 O24DE 101 Ri=R 
134 024E1 CE C=C-1 A One less byte for counter. 
135 024E3 D1 B=0 A B(B)= checksun. 
136 a 
137 Reo 22------------ Checksun loop --------------------------- 
138 O24E5 148 CKSUN3 A=DATI B : Read byte... 
139 O24E8 R68 B=A+B B ; add to checksur. 
140 O24EB 540 GONC § CKSUMS 
141 O24EE E5 B=B+1 A : If carry, increnent checksun. 
142 O24FO 171. CKSUNS Di=D1+ 2 : To next byte. 
143 024F3 CE C=C-1 A : Count bytes. 
144 024F5 SFE GONC CKSUN3 : 
145 he enncerenececeewn ren nnn www new eemeewnncnw ewan meses es see ewan 
146 s 
147 O24F8 3174 LCASC \G\ "GC" for GOOD. 
148 O24FC DA A=C A A(B)= ASCII "GC". 
149 O24FE 118 C=RO ; Flag bits saved in RO(2). 
150 02501 ACE C=A S Copy chip # to C(S) for beeps. 
151 02504 3133 LCHEX 33 Control for high freq. 
152 02508 CD B=B-1 A 
153 O250R 969 7B=0 «iB Checksun should=0. 
154 02500 90 GOYES RONCK3 GOOD chip. 
155 O250F 315E LCHEX £5 Control for low freq. 
156 02513 BOR A=A-C P A(B)= ASCII "B". 
157 02516 C6 ROMCK3 C=C+C A Freq, set flag if necessary. 
158 02518 108 RO=C Save freq, chip# for beeps. 
159 0251B 7950 GOSUB DspBld Display "G" or "B", buald dsp. 
160 O251F 3102 LCASC \ ( Display trailing blank. 
161 02523 DA A=C A A(B)= ASCII blank. 


162 02525 7F40 GOSUB DspBld 
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163 
164 
165 
166 02529 
167 02820 
168 02531 
169 02534 
170 
171 9253? 
172 0253R 
173 0253D 
174 02540 
175 
176 02543 
177 02546 
178 
179 


2306 


x 
x 
k 


3178 
7910 
B37 
5CF 
t 
118 
A4E 
108 
5CE 


111 


605F 
k 


x 
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RONCK5 
ROMCK? 


LCHEX 
GOSUB 
D=0+1 
GONC 


C=RO 
C=C-1 
RO=C 
GONC 


A=R1 
GOTO 


87 
RCKBp 
x 
RONCK? 
Ss 


ROMCKS 


CHKSUN 
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MNediun beep, followed by 
1,2,3 or 4 result beeps. 


Control for mediun beep. 
Delay between beeps. 
Counter to C(S). 

Nore beeps? 

(Replace counter. ) 


Nore beeps. 


A(S)= chip counter. 
Next chip. 
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180 EJECT 
181 JOS IIIS OOOO TOR TTT RE 
182 FOO JOJO JOST JOO OO 
183 aK 
184 . Nane: RCKBp - ROM Check Beep (Chirp utility) 
185 
186 ** Category:  GENUTL 
187 kk 
188 ** Purpose: 
189 ae Non-clocked beep utility; no Flag(-2) check. 
190 kk 
191 *k Entry: 
192 ak C(1)= frequency control (see below) 
193 ak C(O)= duration control (see below) 
194 kk 
195 kk Exit: 
196 aK Carry clear, C(X)=O0F, beeper off. 
197 KK Pp = 0 
198 ak 
199 ** Uses: 
200 RR ACA), BCA), CCA), O(W), P, OUT register. 
201 kk 
202 KE Stk lvls: 0 
203 ae 
204 ** Detail: 
205 kk Let f= control nibble passed in C(1). 
206 kk d= control nibble passed in C(0). 
207 aR and F= 60+33*f 
208 Po 
209 ak Then Frequency= (CPU KHZ/2)/F 
210 . and = Duration = F*(256-16*d)/(CPU KHZ) 
211 
212 - note: CPU KHZ is usually 650000 to 700000. 
213 
214 xx History: 
215 ak 
216 kk Date Progranner Modification 
217 WR eeekewes, “eles lese '- bate cl ee ee eee tat Sots 
218 2 05/13/83 NB docurientation 
x 
os JOU ICIS IOI SOCIO II IIIS ITI I TTT 
224 JORIS OO GI CC COSI CCT 
222 02548 DS =RCKBp B=C A Freq control to B(0). 
223 O254C Fi BSL A B(XS)= freg, B(B)= duration. 
224 O254E D4 A=B A Save freq in A(XS). 
225 02550 D2 C=0 R 
226 02552 28 P= 8 To toggle beeper. 
227 x 
228 * CPU cycles: 
229 RO nnn enn 
230 02554 801 RCKBpS OQUT=C 6 Toggle beeper 
231 02557 80F2 CPEX 2 6 
232 02558 BF3 RCKBp7 DSL W 19 
233 O255E A2D B=B-1 XS 4 Frequency control. 
234 02561 59F CONC RCKBp? 10 
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235 x 
236 02564 D8 B=A R ?~=Restore freq. 
237 02566 B64 R=R+1 2B 5 Duration. 
238 02569 5RE GONC  RCKBpS 10 
239 0256C 20 =EXITBP P= 0 
240 O256E 32F0 LCHEX OOF Leave beep lon, 
0 
241 02573 801 OUT=C 
242 02576 93 RTNCC 


243 . 





Saturn Assenbler HP-71 Rom Test <831212.1205> Fri Dec 3, 1983 3:30 an 


Ver. 3.39/Rev. 206 Page 7? 
244 
245 FIT I ISDST IIIS IIIT IIIT IIIS II STIS III 
246 x 
247 02578 8E00 DspBld GOSUBL =DSPCHA Display char. 
00 
248 0257E 8C00 GOLONG =BLDDSP Build display. 
00 
249 x 
250 FORO IRR TO TOI 
251 x 
252 02584 B1 =RnTsis NIBHEX B1 "Escape E, Escape <". 
253 02586 54 NIBASC \E\ 
254 02588 B1 NIBHEX 81 "ROM TEST". 
255 0258A C325 NIBASC \<ROM TES\ 
F404 
0245 
5435 
256 0259A 4502 NIBASC \T \ 
257 O259E FF NIBHEX FF 
258 x 


259 025A0 END 
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BF 2BLD 
BLDDSP 
CHKSN1 
CHKSUN 
CKSUN3 
CKSUNS 
DSPCHA 
DspBld 
=EXTTBP 
=RCKBp 

RCKBp5 
RCKBp? 
RONC19 
RONC21 
RONCHK 
ROMCK3 
ROMCKS 
ROMCK? 
=RONTST 
=RriTstts 


Ext 
Ext 
Abs 
Abs 
Abs 
Rbs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


9417 #024C9 


Table 


9367 #02497 - 


9445 #024E5 
9456 #024F0 


9592 #02578 
9580 #02560 
9546 #O254A 
9556 #02554 
9563 #02558 
9403 #024BB 
9409 #024C1 
9348 #02484 
9494 #02516 
9517 #O252D 
9521 #02531 
9348 #02484 
9604 #02584 


95 
248 
127 
102 
138 
142 
247 
247 
233 
222 
2H” 
232 
119 
122 

93 
157 
167 
168 

92 
252 


109 
177 
144 
140 


127 


167 
238 
234 
114 
123 


154 
174 
169 


94 


159 


162 
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Input Paraneters 
Source file nane 1s MB&ROM: 3 NS 
Listing file name is MB/ROM:TI:ML::-1 
Object file nane is MBZROM: TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Asseribler Neus 
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1 * J PPPP & PPPP = RRRR 1 
2 s JP P&&R P PR R 11 
3 & JP P&& P PR R 1 
4 % J PPPP & PPPP = RRRR 1 
5 x Jf &&& P RR 1 
6 * J JP & & P RR 1 
7 : JJ] oP 8&& P R R111 
8 . 
9 TITLE Line Parse Driver - Part 1 <831212.1516> 
10 025R0 ABS #0250 
1 ROSYMB TIZEQU: :MS 
12 RDSYNB SBZRAM: : MS 
% 
- JOO IIS IIT TITS III IIIS 
15 $ IIR SI III RII ASIII TI III IIIIIISII IIS IISSI ISS SII SIS ISSIS SSSI IS 
16 ax 
1? ** Nane:(S) LINEP - Parse Main Driver after ENDLINE 
18 *k Ware: (S$) LINEP+ - Parse Main Driver from anywhere 
19 *x Wane: (S) LNPEXT - Parse Main Driver external entry 
20 ** Wane: (S) LNEP66 - Parse Main Driver return entry 
24 ae 
22 ** Category: PARUTL 
23 ak 
24 ** Purpose: Main driver routine to parse a line: 
25 a 1) LINEP entry is called by MAINLP after 
26 x ENDLINE is entered on an input line. 
27 ax 2) LINEP+ entry is called to parse a 
28 sx line, regardless of where the line is. 
23 — Used by direct execute keys (colon 
x” ax key definitions) and STARTUP. 
3 * 3) LNPEXT entry 1s the ‘external parse’ 
32 + entry. By setting FIRTN, it ensures 
33 a that in all cases (including errors), 
ce RK control returns to the caller. Used 
35 a by TRANSFORM. 
36 tk 
37 Rk Entry: 3 entry points: 
38 ax 1) LINEP - Line to be parsed is in the display 
39 * buffer. 
40 7 2) LINEP+ - INBS points to start of input line. 
41 zx 3) LNPEXT - External Parse Entry 
42 ax Needed statuses (including $13) should 
43 XK be saved. INBS points to start of 
44 a input line. OUTBS points to where 
45 7 tokenized line should go. 
46 i. AUTINC should be zero - nay be default 
47 x 
48 aX Emit: 
49 ak LINEP: 
50 Rx If valid progran statenent(s) 
51 * It is edited into current progran file 
52 ae If valid calculator BASIC staternent(s) 
53 kk (including implied DISP) 
54 x% It 1s executed 
55 7 Else ERROR exit 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
20 
74 
72 
73 
74 
75 
76 
77 
78 
79 
80 
84 
82 
83 
84 
85 
86 
87 
88 
89 
% 
94 
92 
93 
94 
96 
96 
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ax Error message displayed; 
ax Line redisplayed with cursor; 
ax Jurnp to MAINLP 
a LNPEXT: 
ax $5=1 => Line# on line 
a $5=0 => No line# 
xe Carry clear => Line parsed successfully. Coripiled 
x line starts at address pointed to 
ax by OUTBS. 
ax Compiled line length in R3. 
ae Carry set => Error in parse. 
nn {(3-0) = errort#. 
aK If C(3-0) = 0000 
ak Then found only tEOL (“null line") 
ax (Nay be preceded by a line#; S5 
- indicates presence of a line#) 
an NOTE: Any usage of LNPEXT entry rules out inplied 
. DISP in the case of failed implied LET parse. 
x 
tk Calls: GNXTCR, LINHP, NTOKEN, NTOKNL, CRGJMP, I/OAL+, 
ax OUT2TK, RANGE, EXPPAR, EXPEXC, MAKEBF, RTNSET, 
ax FILEP+, PEDIT, MOVEUA, SYCOLL, WSRO-3, AVS=DO 
xx CRLFOF ,OVFLCK, TRNFCK, D1=IBS, OBCOLL, LDCSET, 
aA AUTCLR, LBLCK, PEDITD, SURSTU, RESPTR, OUTB+5, 
x FSPC12, 'CK, 'CK3, RS-RO3, OUT3TK, OUTITK, WRDSCN 
ay STMTL+, UPDIN+, QUTBYT, ELSEP, LNPOO, OBLCMNP,GETLEE 
te 
x* Uses: A-D, RO-R3, D1,D0, S0-S11, 
= S-RO-2, S-RO-3, STMTR1 (all 16 nibbles), STMTDO 
ak fFIRTN (only used with LNPEXT entry) 
tk 
tk Stk Lyls: 7 
ke 
** NOTES: A) Line parse only special checks for TRANSFORM 
ae (external entry) in four distinct places: 
- 1) eol, 
ax 2) line#, followed by eol 
“s 3) parse error 
ax 4) correctly parsed line about to be edited into 
ae progran neriory. 
ak 
ae B) Inplied DISP isn't legal immediately after THEN/ELSE 
aR 
aX C) Any usage of LNPEXT entry rules out implied DISP in 
ae the case of failed inplied LET parse. For exanple: 
a 10 5*A would be parsed as: 
ax 10 DISP 5*A 
ae But: 
a 10 A*S would result in an error. 
ok 
** Detail: 
aa 


ak 
aa 


Key RAM and CPU register usage: 
S-R1-0 Original error# before ist RESTART 
S-R1-1 Original Error position before 1st RESTART 
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"1 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
165 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
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xx 
ax 
xk 
ak 
x 
an 
ak 
xk 
kk 
ae 
x 
xk 
ak 
xk 
ak 
ak 
ak 
xk 
xx 


Page 3 
S-RO-2 (Subr Save) GLOBAL 
$-RO-3 IF clause in progress GLOBAL 
S-R1-2 (RESTART ADDR), S-R1-3 (RESTART FLAG) GLOBAL 
STMTDO (RESTART PTR) GLOBAL 
S4 - No restore of input pointer GLOBAL 
S5 - Line nunber found, progran stnt GLOBAL 
S6 - Pending THEN GLOBAL 

$7 - Multi-staterent line TENP 
Always CLEARED by EXPPAR call GLOBAL 

$8 - Delete (for PEDIT) TEMP 

S9 - Middle of IF (for ERROR) TEMP 
$10 - Inplied LET Error GLOBAL 


R3 - Error Msg Ptr & Line position if IMPLET Err 
D - End of available neriory 


Available status for a Parse routine: $8, $9 
These 2 status bits are clear on entry for all 
parse routines. 


**  Algorithn: 


xx 
ax 
x 
wk 


Entry point for TRANSFORM (LNPEXT) saves return 
stack level in S-RO-2 and sets fIRTIN => A: 


** LINEP: (nornal statenent parse entry point) 


ek 
a 
to 
ek 
ek 
tk 
RA RS 
tk 
tk 
tok 
tok 
ek 
Ak 
tk 
ik 
hk 


ak 
xr 
xr 
xk 
kk 


Rx B: 


xx 
xk 
xx 


ak BL: 


Kx 
ak 
xx 


Copy Display Buffer to Corimand Stack (MAKEBF) 
Set INBS to start of input line in command stack 
Send Carriage Return & Line Feed (CRLFOF) 

(so next character will clear display buffer) 
Clear externally invoked flag (f1RTN) 


Set OUTBS to AVNENS (Collapses Output buffer) 
Point D1 to start of input line 
Clear S0-S11, $13 
Set D(A) = End of Available Menory 
DO = OUTBS (Output buffer start) 
Call Block 1 


Retokenize lexene 
If line# 
Set S5; Decrenent DO (delete statenent 
length byte at buffer start); Output line# 
Call Block 5 
If tEOL 
If externally invoked (f1RTN set) 
THEN error 
ELSE clear AUTO flag; delete line 
Decrenent DO 
Call 1. 
Retokenize. 


If Begin BASIC cormand (S$3=1) 
THEN goto E. 
ELSE If Systen Cormand (S$3=0,S0=1) 
THEN error 
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166 RR. Ce If ! 
167 ak THEN parse renark; goto 12 
168 aK ELSE error. 
169 aK If externally invoked (f1RTN set) 
170 ak THEN error; 
171 RK Clear AUTO flag 
172 a If tEOL (null line) 
173 a THEN exit parse 
174 a ELSE goto C. 
175 ax 
176 aK BLOCK 1: 
177 ax Save DO (staterient length byte) in INADDR; 
178 xx Increnent DO; Clear RESTART flag (S-R1-3); 
179 x Clear Err# (S-R1-0); Call NTOKEN; 
180 a Set RESTART flag 1f XWORD or XFN & 
181 xk save RESTART address (S-R1-2). 
182 ak Save contents of LEXPTR (position of D1 
183 kk before NTOKEN call) in STMTDO - will be 
184 kk needed to restore input pointer for RESTART. 
185 aK Clear Middle of IF flag (S89) - Allows Implied 
186 ak LET error to recover as Inplied DISP 
187 eK 
188 **x Entry point for variable or FN after THEN/ELSE: 
189 oe 
190 ** C2: If variable or FN: 
191 oe set inplied LET error flag (S10) 
192 xe If no line# on line 
193 kk Clear AUTO flag 
194 ak G: Try inplied LET parse 
195 ae Goto 10. 
196 = If looking at 1st lexere on line 
197 AR If line# followed by | 
198 = set $5; output linet; save DO (location of 
199 ae statement length byte) 1n INADDR; increnent 
200 as DO; Parse reriark; goto 12 
201 ax If not a terminator (eg not tEOL,@,!, tELSE) 
202 a If legal implied DISP statenent followed by 
203 a a terninator 
204 a If no line nunber on line 
205 a Clear AUTO flag; goto 10: 
206 a Restare 01,00; return 
207 am END OF BLOCK 1 
8 &k 
209 ax *8*Block 5 only returns if a label is not found*** 
210 ak 
211 xs BLOCK 5 
212 ax Save DO (position of statenent length byte) in 
213 wt INADDR; increnent DO 
214 xe If quote 
215 am Set appropriate flag(s); 
216 xe Step over it; Call FILEP+ 
217 =* If legal 
218 aie THEN If matching closing quote 
219 re ee THEN if colon follous 


220 ae THEN LEGAL LABEL; 
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221 ie Output tLBLST & label 
222 ae If tEOL follows 
223 as THEN goto 13 
224 ak ELSE goto 11 (parse as @) 
225 ah ELSE RESPIR; Return 
226 aK ELSE RESPTR; Return 
227 "ke ELSE RESPTR; Return 
228 aK If 1st character is letter 
229 xx RESPTR; GNXTCR; FILEP1; Goto 8 
230 xk END BLOCK 5 
231 aR 
232 kk 6D: 6If not Calculator BASIC (S0=0) 

233 xR THEN If begin BASIC (S3=1) 

234 a THEN error 

235 ak ELSE goto C. 

236 kk OE: 6OIf in IF statenent (S-RO-3 nonzero) 
237 ak OF; If not legal after THEN/ELSE (S2=0) 
238 ae THEN error 

239 ae If pending THEN (S6=1) 

240 a If token is IF token 

241 ah THEN error 

242 an 

243 an If XWORD 

244 ak THEN Output 3-byte token 

245 - ELSE Output 1-byte token 

246 ak Calculate Parse address 

247 RK Clear flags (S0,S8,S9,S10) 

248 aA Gosub to Parse routine (CRGINP) 

249 a If Middle of IF return (Carry Set) 
250 ae THEN Extended IF token already output; 
251 AB INADDR points to following byte; 
252 ae DO is pointing past that byte 
253 ak $9 is set (middle of IF flag) 
254 ak S-RO-3 nonzero (IF in progress) 
255 ak OH: If S$5=1 

256 ah THEN goto Bt 

257 a ELSE goto D 

258 ak 

259 *k 10: Nornal stat return (carry clr) 

260 aR Get Next Token 

261 an If ELSE 

262 x If no pending THEN (S6=0) 

263 an THEN error 

264 xx ELSE Clear S6; Decr DO; Output t@; 
265 an Call STMTLN, UPDIN+; Output tELSE 
266 an Call ELSEP; goto 10 

267 ax Check legal stnt terminators (@,!,EOL) 
268 aR Clear S$? 

269 ah If @ (Multi-statenent line) 

270 ae 41: THEN Set S7, Output t@ 

271 xx ELSE If |  (Renark) 

272 a THEN Output t!, Renark; goto 12 
273 xk ELSE If EOL 

274 ee 12; THEN Output tEOL 


275 a ELSE Error Exit --> Excessive Chars 
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276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
0 
1 
He 
23 
24 
5 
36 
0? 
08 
9 
310 
311 
32 
313 
314 
315 
316 
31? 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 


aX 
ak 
ax 
ak 
ak 
xx 
xk 
an 
xk 
ax 
ak 
xk 
xk 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
xx 
ak 
ak 
ah 
xk 
xx 
xk 
ak 
ak 
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13: Output terminator 
Clear $10 (Implied LET error flag) 
Calculate & write out statenent length 
If rulti-statenent line 
If $5=1 
THEN Call 5; Goto B 
ELSE Call 1; Goto D 
Set AVMENS to DO 
If line# found (S5=1) 
If externally invoked (f1RTN set) 
THEN exit with carry clear 
ELSE Edit line into program nenory (PEDIT) 
Return to Nain Loop 
Calculate output buffer length, rove to 1/0 buffer 
area; call SYCOLL (Resets AVMENS,OUTBS to SYSEN) 
Execute Calc. BASIC Strt (BSCEXC) 
See the portion of the algorithn handled in IFP 
in JP&PR3 
History: 
Date Progranner Modifications 
07/08/82 S.W. Updated docunentation 
10/15/82 S.U. Added call to 01=18S 
01/07/83 SLU. Added algorithn 
06/03/83 JP Set AVMEMS @ DO before PEDITD call 
11/01/83 SW. Modified docunentation header. 


FOI IIIT TO ITT TOOT III TOT TOTO TK 
FOI III TOO OTT OTTO TOO TTT TTI IOI SII I: 


x 


FOI TIO TIO UO UTI OT ITT TI III IO. 
FOO III TOGO IO TOTO TOTTI TIT TTT K 


ak 


x 
aK 
xk 
ax 
ak 
as 
ak 
ax 
ak 
an 
ak 
xk 
ak 
ak 
xk 
ak 
a 
aK 


*® Narie:(S) pPARSE - Parse Take Over Poll 
b 


Category: POLL 
Type: FPOLL 
Purpose: 


Parse take-over to allow a LEX file to parse an input 
line as other than BASIC 


Should poll be "Handled" 


Don’t worry about XM, since if handled, there’s no return 


Meaning of "Handling" Poll (what does code do if handled?): 


Parses line, acts accordingly, returns to MAINLP. 


Entry conditions for handler (registers, ST, RAN, etc. ): 


Carry set 
BLA} = Poll nunber. 
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331 
332 
333 
334 
335 
336 
33? 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
334 
385 


xk 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
xk 
ak 
ar 
ak 
ak 
ak 
ax 
ax 
ak 
ax 
ak 
ak 
ak 
ak 
xk 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
ax 
ak 
ak 
ak 
xk 
ak 
ak 
kk 


Line Parse Driver - Part 1 <83 Fra Dec ©, 1983 2:58 an 


Page 7 


HEX node. 
P=Q, 
INBS points to input line 


Nornal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 
Return to MAINLP 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XN=1. 


Available subroutine levels: 


NOTE: 


--SCRATCH RAM TO CONSIDER BELOW: -- 
--STMT/FN Scratch, SCRTCH, SNAPBF, TRFMBF, LOCSPC, -- 
~-LEXPTR. -- 


What registers/RAM may be used if handled?: 
A-D, DO, DI, P 
RO-R4, SO-S11, STNT/FN scratch 


What registers/RAN may be used if not handled?: 
A-C, D[15-5] DO, D1, P 
RO-R4, SO-S11, STMT/FN scratch 


Special menory/pointer considerations (are pointers funny?): 
No 
Envisioned application(s): 


"Auto Conrent’ 
Alternate language parse (in conjunction with pEDIT) 


History: 

Date Progranner Modification 
ema SS ee 
02/15/83 = S.U. Added poll 


2322 RT TTI DIT TT ITT III STII ITN 
FORT JI ROO TTT TR RI 


x 


FORO ITO TOT TT TT TTT IOTIK 
FOI III IR I OT TTT TTI IT ITT IIIT TT ITT TTT TTI I ITN 


kk 
ak 
xk 
ax 
xk 
ak 
ak 


Nane: SVRST - Save Lex Analysis Restart Infornation 
Category: PARUTL 


Purpose: 
1) Updates INADDR, increments DO 
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386 

387 

388 

389 

390 

394 

392 

333 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

419 

414 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 O25AR0 8E00 
00 

433 

434 025R6 ACO 

435 O25A9 7024 

436 O25AD DO 

43? O2SAF 1F18 
8F2 

438 O25B6 141 


aK 
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2) Clears RESTART flag (S-R1-3), Clears original err# 
(S-R1-0), Calls NTOKNL 

3) Sets RESTART flag if XWORD, XFN, or FFN 

4) Saves RESTART addr in S-R1-2; saves LEXPTR 
contents in STNTDO and saves DO in R3 


Entry: 


4 entry points: 
1) SVRSTU - Does 1-4 above. D1 at optional leading 
blanks prior to lexene. 
2) SVRST+ ~ Does 2-4 above. Entry sane as SVRSTU 
3) S¥VRST2 - Does 3-4 above. Requires exit conditions 
fron RESCAN: 
C(A) RESTART address 
Tokenized lexene 
LEXPTR contains address prior to last 
lexene scanned. 
4) SAVRS+ - Does 4 above. C(A) and LEXPTR sare as 
required for SVRST2 above. 


Exit: 


DO preserved fron entry 
STMTDO = LEXPTR contents after last NTOKEN call. 
ACS) contains value of RESTART flag (S-R1-3) 


Calls: UPDINA, R.STPR, NTOKNL, XTOKCK 


Exclusive: A,C,S-R1-2, S-R1-3 

Inclusive: A,C,S-R1-2, S-R1-3, STMTDO 

Stk lvls: 3 
Detail: 

Register A cannot be used here (it contains the TOKEN) 
History: 
Date Prograrnmer Modification 
07/08/82 IP Modified docunentation 
09/02/82 S.W. Tweaked 2 lower entry points 


FORO IOI OI OIG IOI IOUT TOTO III OO IO 
FORO OOO IOI COR ICO IGOR COO OOOO 


x 


SVRSTU GOSUBL =UPDINA 


x 


=SVRST+ R=0 5 
GOSUB R.STPR Clear RESTART Flag 
A=0 A 
D1=(5) =S-R1-0 Err# (RESTARTed yet?) 
DAT1=A A 
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439 02589 135 
440 O25BC 850 
441 O25BF 8E00 
00 
442 025C5 06 
443 O25C7 75F3 
444 025CB 07 
445 
446 O25CD 136 
447 02500 06 
448 02502 136 
443 025D5 1888 
8F2 
450 O25D0 144 
451 O25DF 07 
452 O25E1 134 
453 
454 025€4 137 
455 025E7 06 
456 025E9 1FFC 
6F2 
457 O25FO 147 
458 O25F3 1€19 
8F 
459 O25F9 145 
460 O25FC 07 
461 O25FE 135 
462 02601 01 
463 
464 02603 1BB7 
8F2 
465 0260A 144 
466 02600 314D 
467 02611 8C00 
00 
468 
469 
420 
471 02617 07 
472 02619 76EF 
473 0261D SE1 
474 
475 
476 
47? 
478 02620 8£00 
00 


486 02626 1B6C 
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=SVRST2 


SAVRS+ 


x 
=RTNSET 


tk 
® ENTRY 
tk 


=LNPEXT 


b1=C 
ST=1 0 
GOSUBL =NTOKNL 


RSTK=C 
GOSUB 
C=RSTK 


XTOKCK 


CDOEX 
RSTK=C 
CDOEX 
DO=(5) =S-R1-2 


DATO=C A 
C=RSTK 
DO=C 


CD1EX 
RSTK=C 
D1=(5) =LEXPTR 


C=DAT1 A 
D1=(4) =STHTDO 


DAT1=C A 
C=RSTK 
di=C 

RTN 


DO=(5) =S-RO-2 
DATO=C A 


LC(2) =f 1RTN 
GOLONG =sflags 
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Page 
Restore D1 (Saved in R.STPR) 


Save RESTART address 
Set RESTART flag if needed 
Restore RESTART address 


SAVE DO 

RESTORE C(A) 

WRITE OUT RESTART ADDR 
RESTORE DO 

Preserve D1 


Input position after blanks skipped 


Restore D1 


Set F1IRTN flag 


POINT FOR TRANSFORM (& others) 


C=RSTK 
GOSUB  RTNSET 
GONC LNPTR2 


SAVE RTN ADDR IN SCRATCH RAN 
& Set F1RIN 
(B.E.T.) 


+ NORMAL ENTRY POINT FOR LINE PARSE 
- NAKEBF copies display to cormand stack 
x 


= LINEP 
k 
x 
x 
x 
x 
x 
x 


LINEP+ 


GOSUBL =NAKEBF 


SECONDARY ENTRY POINT 
Assuries C @ start of buffer to Parse 


Set INBS = C 
Send CR/LF 


DO=(5) =INBS 


Copy display to conrand stack 


Input Buffer Start 





Saturn Assenbler Line Parse Driver - Part 1 <83 Fri Dec 30, 1983 2:58 an 
Ver. 3.39/Rev. 2306 Page 10 
6F2 
48? 0262) 144 DATO=C A Point INBS at input buffer 
488 02630 7000 GOSUB =CRLFOF Send CR/LF 
489 z 
490 02634 8E00 GOSUBL =FPoll 
00 
491 0263A 4F : CON(2) =pPARSE Parse take-over 
492 
493 * Collapse Output Buffer 
494 * Set D1 = Input Buffer start 
495 * Clear Status 
496 * Set D = Available menory end 
497 * Set DO = Output Buffer start 
498 
499 0263C AC2  LNPTR2 C=0 S Clear global IF flag 
500 0263F 8£00 GOSUBL =WSRO-3 S-RO-3 
00 
501 02645 8E00 GOSUBL =OBCOLL Collapse Output Buffer 
00 
502 02648 8£00 GOSUBL =D1=IBS Set D1 = (INBS) 
00 
503 02651 08 CLRST Clear SO-S11 
504 02653 84D ST=0 13 Pgn running (in case of error) 
505 02656 8E00 GOSUBL =LDCSET Set up D(A) & DO 
00 
506 . 
507 0265C 7292 GOSUB LNPOS Line# allowed 
508 02660 850 ST=1 0 
503 02663 7973 GOSUB LINHP 
510 0266? 502 GONC —LNEPOO Line# found? 
511 x 
Sie * No linet 
513 . If null line 
514 - If externally invoked 
515 & rtn wath C(3-0)=0000 
516 : Goto MAINLP 
51? x Continue parse 
518 
519 O266A 7933 GOSUB AUTCLR No line#=>clr AUTO flag 
520 O266E 3100 LC(2) =tEOL Load EOL token 
521 02672 966 7RHC OB Not Null line ? 
522 02675 FO GOYES Inep26 
523 02677 7965 GOSUB TRNFCK 
524 02678 454 GOC LNEPO1 Not called by TRANSFORM? 
525 O267E 06 TRANSF RSTK=C 
526 02680 De C=0 A Errt = 0000 
52? 02682 C2 RTNSC Carry set=> error 
528 x 
529 02684 6DEO Inep26 GOTO LNEP26 Continue 
530 
531 * Line # found - Set Line# found flag 
532 - Output Line# 
§33 x Save Input buffer position for RESTART 
534 * Save Restart address for RESTART 
x 


535 If next token = EQL 
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536 x Delete line / End AUTO node 
537 x else 
538 & If next token = " 
539 s Set quote flag 
540 & Parse as label 
541 x Save line length position 
542 x 
543 02688 855 LNEPOO ST=1 5 Set line # found flag 
544 02688 181 DO=D0- 2 
545 0268E 7000 GOSUB =OUT2TK Output line nunber 
546 02692 7F20 GOSUB LBLCK 
547 02696 148 A=DAT1 B 
548 02699 31D0 LCHEX OD Load EOL character 
549 02690 962 7A=C OB EOL ? 
550 026A0 60 GOYES LNPEOL DELETE line and clr AUTO node 
551 O26A2 6780 GOTO  LNEPO7 
552 x 
553 * Line# followed by EOL 
554 x If externally invoked 
555 x exit with C(3-0)=0000 and carry set 
556 x Line# found flag is set (SS) 
557 & Set AVMENS @ DO so PEDIT works 
558 x Clear AUTO flag & DELETE line 
559 ' 
560 026A6 7A35 LNPEOL GOSUB TRNFCK 
561 026AR 53D GONC  TRANSF 
562 & 
563 O026AD 8E00 GOSUBL =AVS=D0 Set AVMENS @ DO 
00 
564 02683 70F2 GOSUB AUTCLR Clr AUTO flag 
565 02687 858 ST=1 8 Set Delete Flag 
566 O26BA 8FOO GOSBVL =PEDITD Line nurber with null line 
000 
567 026C1 6201 , UNEP ON GOTO LNEP99 Return to Main Loop 
568 
569 026C5 77DE LBLCK GOSUB SVRSTU 
570 026C9 848 ST=0 8 CLEAR ’GENERAL’ QUOTE FLAG 
571 O26CC 849 ST=0 9 CLEAR SINGLE QUOTE FLAG 
572 O26CF 3122 LCASC \"\ 
573 02603 962 A=C OB 
574 02606 81 GOYES LBLCK" 
575 02608 300 LC(1) =a’ 
576 0260B 962 7A=C OB 
577 O26DE DO GOYES LBLCK’ 
578 O26E0 7093 GOSUB resptr Position at 1st character 
579 026E4 5CO . GONC LBLCK1 C6260) 
580 
581 O026E7 6C83 LBLRST GOTO resptr Back up ptr to start of 
582 - supposed label 
583 O26EB 859 LBLCK’ ST=1 9 SINGLE QUOTE FLAG 
584 O26EE 858  LBLCK" ST=1 8 GENERAL QUOTE FLAG 
585 * Quote found - Check as label 
586 026F1 8E00 LBLCK1 GOSUBL =FILEP+ Parse label 
00 


587 O26F? SFE GONC = =LBLRST Not an initial letter? 
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588 O26FA 
583 
590 
591 
592 
§93 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
60? 
608 
603 
610 
611 
612 
613 
614 
615 O26FD 
616 02700 
617 02703 
618 02705 
619 02709 
620 02700 
621 O270E 
622 02711 
623 92714 
624 02716 
625 02719 
626 
62? 02710 
628 02720 
629 02723 
630 02725 
631 02729 


632 0272F 
633 02732 
634 02735 


635 02738 


636 02741 
637 02745 
638 02748 
639 0274A 


AFS 


14B 
868 
91 
3122 
869 
50 
H? 
966 
24 
171 
14B 


31A3 
966 
33 
3100 
8E00 
00 
171 
AF4 
8E00 
© 
8E00 
00 
3100 
962 
60 
65£0 
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B=R W Save label nare 
x 
* Save address of strt length byte 
* Skip over length byte 
* If no line number (Calc. Basic), skip over label check 


If possible quoted label (S8=1) 
Label Parse is already done 
Test return status for FILEP- 


If variable 
Restore pointer 
Position to first non-blank character 
Parse label 
If no closing quote, error exit 
Qutput label token, skip label chain field 
Output label narie 
If next char = EOL 
then goto Output EOL, Parse next staterent 
else goto Output @, Treat as Multi-statenent line 
If illegal label 
Restore pointer 


NOTE: LABELED STATEMENTS ARE NOW ALLOWED IN MULTI-STATENENT 
IF /THEN/ELSE COMMANDS 


% ee oe ee Oe 


A=DAT1 B Check closing quote 
7$T=0 8 No beginning quote? 
GOYES LNPLB+ 
ucASC \"\ 
*ST=0 9 Double quote? 
GOYES CL"CK 
LOS NN 

CL'CK 7AHC OB 
GOYES LNEPOb 
BI=Di+ 2 Step over closing quote 
A=DAT1 B 

k 

LNPLB+ LCASC \:\ 
ARC OB Not colon 
GOYES LNEPOo 

LNPLBL LC(2) =tLBLST Label Statenent token 
GOSUBL =QUTB+5 Output label token & 5 nib field 
D1=01+ 2 Step aver colon 
A=B W Move filenane to C 
GOUSUBL =FSPC12 Output label nane 
GOSUBL =GNXTCR 
LCHEX OD Carriage Return ? 
*A=C OB End of statenent ? 
GOYES LNP5.7 
GOTO ~=LNP?721 Treat as nulti-stnt 
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640 0274E 3100 LNP5.7 LC(2) =tEOL EOL Token 
641 & R=C B 
642 02752 6401 . GOTO LNEP76 Qutput, Parse next line 
643 
644 * No label on front of line 
645 * Restore data pointer to before label parse 
646 Save Input buffer position for RESTART (R3) 
647 
648 02756 7A13  LNEPOG GOSUB resptr Restore input pointer 
649 0275R 181  LNEPO? DO=D0- 2 Conpensate for UPDINA 
650 x done on failed LABELP 
651 * Get next token 
652 x 
653 02750 7E81 GOSUB LNPOO 
654 * Can replace next instruction u/ ST=1 0 & NTOKEN call 
655 * More code, but more tine efficient 
656 02761 7F54 GOSUB ntken+ 
657 x 
658 * LINE# FOUND - DON’T ALLOW *SYSTEM COMMAND’ 
659 * ASSUME THAT A SYSTEM COMMAND IS: 
660 x NOT BEGIN BASIC, 
661 x BUT IS CALC BASIC 
662 02765 873 =LNEPLN ?ST=1 3 
663 02768 32 GOYES LNEP5O BEGIN BASIC? 
664 0276A 860 ?S$T=0 0 NOT SYSTEM COMMAND? 
665 0276D FO GOYES LNEP30 
666 x 
667 0276F 592 ; GONC  LNEPE6 (B.E.1T.) Sys Comm on numbered line 
668 
669 x 
670 * No Line Nunber 
671 * Check if Calculator BASIC token 
672 x 
673 02772 870 =LNEP26 ?ST=1 0 Calculator BASIC token ? 
674 02775 61 GOYES LNEPS5O 
675 02777 873 7ST=1 3 Begin BASIC=> Illegal context 
676 0277— F1 GOYES LNEPE6 Trap out DATA, IMAGE, etc 
677 
678 0277C 7000 LNEP30 GOSUB =!CK Allow content on front 
679 02780 460 COC LNEP27 No comment? 
680 02783 6660 GOTO LNEP66 
681 * $10 set IFF innediately after THEN/ELSE 
682 02787 6000 LNEP27 GOTO =ERRDSP Want coherent cursor position 
683 x of unnunbered line 
684 * Line # found - Legal Begin BASIC 
685 ‘ 
686 * If after THEN/ELSE, Check legality 
687 * If XWORD keyword 
688 * Output all 3 XWORD tokens 
689 * else 
690 x Output BASIC token 
691 * GOSUB to Parse Address 
692 > Use Execution Rddress in B to find Parse Address 
693 ‘ 4 nibbles above Execution Address is Parse Address for keyio 
694 x Set High Nib of Parse Address fron DO(4) 
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695 
696 
697 
698 
699 
700 0278B 
701 0278F 
202 02792 
703 
704 
705 
706 02794 
2707 02797 
708 02799 
709 
710 
711 0279D 
712 02780 
713 
714 027R2 
715 0276 
716 027A9 
71? 
718 O27AB 
719 O27AF 
720 027B2 
721 027B4 
722 027B8 
723 
724 027BB 
725 
726 
72? 
728 O27BF 
729 02701 
730 027C4 
731 02707 
732 027CA 
733 027CD 
734 
735 
736 
737 O27CF 
738 O27D2 
739 027D5 
740 02708 
74) 
742 02708 


743 027E1 
744 
745 
746 
747 O27E4 


7484 
948 
31 


872 
60 
65B3 


866 
BO 


3100 
962 
OF 


3100 
966 
90 
7000 
560 


7000 


he) 
136 
184 
142 
136 
C2 


840 
848 
849 
84fA 


8E00 
00 
580 
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x 


* RESTART re-entry 
x RESTAR has been junped to by XWORD 
* NTOKEN has been done; Token = Begin BASIC | Calc BASIC | Sys 


x 


LNEP5O 


x 


GOSUB RS-RO3 
7C=0) S$ 
GOYES LNEPSS 
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Test S-RO-3 


Not in an IF clause? 


* If after THEN/ELSE; Check if Legal 
x 


LNEP52 
LNEPE6 
k 


x 
LNEP54 


x 


x 
LNEP55 


LNEP5?7 
& 


* Calculate Parse Address 
x 


LNEP5S8 


* Gosub 
x 


LNEP6O 
k 


* Middle of IF statnent 
x 


?$T=1 2 
GOYES LNEP54 
GOTO ONPE3 


?S$T=0 6 
GOYES LNEPS5S 


LC(2) =tIF 
7A=C OB 
GOYES LNEPE6 


LC(2)  =tXWORD 
ARC OB 

GOYES LNEP5S7 

GOSUB =QUT3TK 
GONC LNEP58 


GOSUB =OUTITK 


C=B A 
CDOEX 
DO=D0- 5 
A=DATO AR 
CDOEX 
C=C+A A 


to Parse Routine 


ST=0 0 
ST=0 8 
ST=0 9 
ST=0 10 


GOSUBL =CRGJINP 


GONC  LNEP66 


8C00 ~=LNEP61 GOLONG =LINEH? 


oo 


LEGAL AFTER THEN/ELSE? 
ERROG - ILLEGAL AFTER THEN/ELSE 


NO PENDING THEN? 


NO IF AFTER THEN (ONLY AFTER ELSE) 


Check if XWORD token 
Not XWORD ? 


Output XWORD,RON ID,Entry# 
B.E.T. 


Output BASIC keyword 


C=Exec Addr 

DO=Exec Addr, C=O01d DO 

5 nibbles up is PARSE address 
Read rel PARSE address 
C=Parse Address, DO restored 
Absolute Parse Address 


Clear Characterization flag 
Clear for use by parse routines 


Clear Implied LET error 
since junping on legal token 
Junp to individual parse routine 


Norrnal statenent return 


Try connent before giving up 


Saturn Assernbler 


Ver. 3.39/Rev. 236 


748 
749 
750 
751 O27ER 
752 O27EE 
753 O27FO 
754 O27F3 
755 
756 O27F5 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 O27F8 
770 O27FB 
771 O27FD 
772 02800 
773 02803 
774 
775 02807 
776 02808 
777 
778 O280F 
779 02813 
780 
781 02817 


782 02810 
783 02820 
784 
785 
786 
787 02824 
788 02827 
783 O282B 
790 O282E 
791 
792 
793 
794 
795 02830 
796 02834 
797 0283? 
798 0283R 
799 O283E 
800 02841 
801 


7000 
00 
800 
00 


5E2 


866 
£9 
846 
181 
3100 


7000 
7000 


3100 
7000 


8E00 
00 
460 
73A3 


847 
3104 
966 
CO 


310 
857 
5F1 
3112 
966 
60 
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& 

* All other staterents return fron PARSE 

x 

=LNEP66 GOSUB =WRDSCN Get EOL 
CON(2) =tELSE 
REL(3) LNEP67 

: CON(2) 0 

: GONC LNEP68 tELSE NOT FOUND (B.E.T.) 

* tELSE FOUND 

* If pending THEN (S6) 

x Save address of statenent length byte 

& Calculate & urite out length of THEN 

x Output ELSE token 

& Gosub to ELSE Parse 

x If extended ELSE 

k Go process next statenent 

* else 

x error 

* 

LNEP67 7ST=0 6 NO PENDING ’ THEN’? 

GOYES LNEPE6 => Illegal context error 
ST=0 6 CLEAR PENDING ’THEN’ FLAG 
DO=D0- 2 
LC(2) =t@ 

* Clearing S10 fixes bug: IF <expr> THEN A=B ELSE KEY 1 
GOSUB =STHTL+ Outbyt byte & calc. stmt length 
GOSUB =UPDIN+ UPDATE INADDR 


x 


LC(2)  =tELSE 
GOSUB =QUTBYT 
x 


GOSUBL =ELSEP 


GOC LNEP61 CARRY=>NOT LINE#, LBL, OR ASSIGNMENT 


GOSUB Ntoken 
x 


* Check for legal statenent terminators 
* 


LNEP68 ST=0 7 
LCASC = \@\ 
7RRC OB 
; GOYES LNEP73 
* If Multi-Statenent Line 
x Set Status (S7) 
k 


LNP721 LC(2) =t@ THEN TOKEN 
ST=1 7? MULTI-STMT LINE 
GONC LNEP?76 (B.E.T.) 

LNEP73 LCASC \!\ 
eAHC OB 


GOYES LNEP74 
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802 * Parse REMARK at end of line 
803 & 
804 02843 7000 GOSUB =!CK3 TERMINATES ON OD ONLY 
805 02847 3100 LNEP74 LC(2) =tEOL 
806 0284B 5B0 : GONC LNEP76 RTN FROM REMP=>CARRY CLR 
807 
808 * If not EOL after successful Parse 
809 z Excessive Characters Error 
810 x 
811 O284E 962 *A=C OB EOL ? 
812 02851 60 GOYES LNEP75 
813 02853 6000 ; GOTO =ERROS ERROR - EXCESSIVE CHARACTERS 
814 
815 * Legal statenent termination 
816 x 
817 * Calculate statenent length 
818 * If multi-statenent line --> Go back and parse next stnt 
819 * If calculator statenent --> Execute it 
820 A 
821 * If at tEOL, $13 will automatically be cleared; 
822 : either before call to BSCEXC (S5=0) or by MAINLP (S5=1) 
823 
824 02857 LNEP75 
825 * Clear $10 (Implied LET error), Output byte, Calc stnt length 
826 02857 7000 , LNEP?6 GOSUB =STNTL+ 
827 
828 0285B 867 *8T=0 7 NOT A MULTI-STATEMENT LINE? 
829 O285E B1 ‘ GOYES LNEP85 
830 
831 * MULTI-STATEMENT LINE - VERIFY NEXT TOKEN IS LEGAL BEGIN BRSIC 
832 x 
833 * If Label Start (" | ’) 
834 a go Parse Label 
835 * else 
836 * go Parse as Statenent 
837 - 
838 02860 875 *ST=1 5 LINEH? 
839 02863 £0 GOYES LNEP?8 
840 02865 7680 GOSUB LNPOO 
841 02869 7753 GOSUB ntken+ 
842 0286) 640F GOTO LNEP26 
843 02871 705E LNEP78 GOSUB LBLCK 
844 02875 64EE GOTO LNEPO? 
845 & 
846 * Legal end of statenent found 
847 * Set AVMENS @ Current DO = (End of Output Buffer) 
848 : 
849 02879 8E0O LNEP8&5 GOSUBL =AVS=00 Set AVMENS @ 00 
00 
850 * 
851 * Parsed okay 
852 * If externally invoked, then exit with carry clear 
853 * 
854 O287F 7163 GOSUB TRNFCK 


855 02883 


06 


RSTK=C 
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856 02885 500 RTNNC CARRY CLR=> externally invoked 
857 & 

858 02888 865 ?ST=0 5 Execute Calculator BASIC? 

859 02888 FO GOYES LNEP87 

860 0288) 8F0O GOSBVL =PEDIT Edit new line into progran 
000 

861 . 

: 862 * MAINLP with reset AVNENS and OUTBS to SYSEN 
863 * 

864 02894 8C0O LNEP99 GOLONG =MAINLP Return to Main Loop 
00 
865 x 
866 * Calculator BASIC Statenent 
867 & Compute length of Output Buffer 
868 & Move statenent (Output Buffer) to Statenent Buffer 
869 x Expand Statenent Buffer with NO LEEWAY check 
870 & On exit fron I/OAL+: 
871 . D1 =@ Start of Statenent Buffer 
872 & A=D1 on exit 
873 x B(A) = Length of Output Buffer 
874 a Reset Available Menory Start, Output Buffer Start 
875 & 
876 O289A 8E00 LNEP87 GOSUBL =OBLCNP Conpute length Output Buffer 
00 
877 O28R0 D8 B=A A Length of Output Buffer 
878 O28A2 3210 LC(3) =bSTNT Statenent Buffer ID 
8 
879 028A7 8FOO GOSBVL =I/OAL+ Expand Stnt Buffer u/o LEEWAY check 
000 
880 O28AE 460 GOC LNEP88 
881 02881 6000 GOTO  =0UTOVF GOTO MENERR: Insufficient Menory 
882 
883 * Entry to NOVEUA 
884 x 01 @ Start of destination bSTINT (fron I/OAL+) 
885 * ACA) @ Start of source OUTBS 
886 * AVMENS = End of source 
887 x 
888 028B5 137 LNEP88 CDIEX Statenent Buffer Start 
889 028B8 06 RSTK=C SAVE PTR TO STMT start 
89% O28BA 137 CD1EX Restore D1 
831 O28BD 1BF8 DO=(5) =OUTBS Output Buffer start 
5F2 
892 028C4 142 A=DATO A Start of source 
893 O28C7 8FOO GOSBVL =MOVEUA MOVE OUTPUT BUFFER T0 I/O AREA 
000 

894 O28CE 8£00 GOSUBL =SYCOLL Reset AVMENS, OUTBS to SYSEN 
00 

895 & 

896 s Junp to BSCEXC to Execute statenent line 

897 & DO = Start of Statenent line 

898 BSCEXC will return to MAINLP when done executing 

899 x 

900 ® Collapse corinand stack if it’s into LEEWAY 


901 028D4 1808 DO=(5) =RANBFR 
5F2 
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902 028BB 146 C=DATO A 
903 O28DE 8E00 GOSUBL =GETLEE Get LEEWAY back 
904 i % 
905 028E4 07 C=RSTK Saved start of stnt buffer 
906 O28E6 134 DO=C @ Statenent Length of line to execu 
907 * $13 cleared at start of parse 
908 O28E9 8C00 GOLONG =BSCEXC Execute Calc BASIC line 
00 
909 x 
910 JI IOI I IOS IOI TI III III IIT ISI ISIS STS OSS ISIS III IO IIIS IIS IIS I IK 
911 SII III III IOI II III III IIIT STIS ISS ISO TIS TS SOS II ISI IOS S ISI SAK 
912 Rx 
913 ** Nane: LNPOO) =6- = Line Parse Driver Utility 
914 ak 
915 *k Category: PARUTL 
916 ae 
917 ** Purpose: 
918 ae Traps out various possibilities for 1st token on a line 
319 ax or first token after a line nunber, an ’@’, or a label: 
920 as Handles: 
921 a Inplied LET of variables and user-defined functions. 
922 ax Line number followed innediately by !. 
923 = Inplied DISP (only if it’s not a ’null’ staterent) 
924 * 
925 kk Entry: 
926 ax P = 0 
92? aX D1 at start of line, or after label, @, or line# 
928 ax DO past last token written to output buffer 
929 ae D(A) = (AVNENE) 
9% a 3 entry points: 
931 ak 1) LNPOO - used if no line# is allowed (used by all 
932 ah callers, except for 1st token on line) 
933 a 2) LNPOS - Used if ist token on line. S8=0 
934 x 3) LNPO6 - Used immediately after THEN/ELSE to 
935 ~ parse inplied LET. 
936 xx Entry conditions as per NTOKEN exit: 
937 me Requires that last NTOKEN returned a 
938 aia variable or tFN in register A. 
939 ax $9=1 => Don’t try inplied DISP parse if 
940 ae parse errors. 
94) ax 
942 aX Ex Gt: 
94 3 * No return to caller if any one of the following: 
944 a 1) Inplied LET of a variable or FN 
945 am 2) Line number followed by ’!’ 
946 ne 3) Implied DISP 
947 ae (Parse concludes on these statenents, and control 
948 ae is handed directly over to the parse driver). 
949 se 
950 a else returns to caller (LNPOO and LNPOS entry only): 
951 * D1,DO restored to uhat they were on entry 
952 ea S-R1-2 set with RESTART address of 1st token found 
953 ae S-R1-3 (RESTART flag) set iff token was XWORD or 


a54 te KFN 
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- $55 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

376 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

9% 

991 O28EF 
992 028F2 
993 O28F6 
994 028F9 
995 O28FC 
996 O28FE 
997 02902 
998 02905 
999 02907 
1000 02908 
1001 0290F 
1002 02913 
1003 02917 
1004 0291B 
1005 

1006 

1007 

1008 

1009 O291E 


858 
7AAC 
849 
87B 
rai 
3100 
966 


74% 
7E01 
6ADE 
7880 
7601 
53F 


136 
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ee R3=DO; (STNTDO) = D1 
xk 
+k Calls: SVRSTU, FNP+j, INLETP, OUT2TK, LINHP, UPDINA, !CK, 
ae EOLCK+, OUTBYT, RESPTR, CKTRN+, CKTRNS, NTOKEN, 
Ka DSPPO2 
ak 
BR USEG ce auys 
** Exclusive: A-C,RO,R1, S-R1-2,S-R1-3, STNTDO, $8,S9 
** Inclusive: A-C,RO,R1,R3, S-R1-2,S-R1-3, STNTDO, S0-S3, $8, $9, $11 
i 
XK Stk lvls: 6 
a 
** Note: Falls into AUTCLR code. This routine nust 
ae innediately precede AUTCLR. 

& 
** Algorithn: 
ak Traps out cases in following order: 
kk (NR => No return to caller - stnt parse completed) 
kk 1) Implied LET of variables & FN (NR) 
a* 2) Line number followed by ’!’ (NR) 
ae 3) Implied DISP (NR) 
ax 4) If none of 1-3 above, LNPOO returns mith D1,D0 
aK restored to what they were on entry. 
Rx (includes case of a ’null’ statenent: tEOL, t@, 
x t'!, or tELSE found - LNPOO doesn’t assune 
ex inplied DISP for an enpty staterent) 
kk 
** History: 
k 
fe Date Progranner Modification 

Ws eee) eee tee el see eee oa ee tak 
Kk 99/02/82 S.W. Wrote routine 
kk 


FOO TOI ORI IIR RRO IIT TTI TI TTI IK 
FORO III RII RTO TIO RII RR ROO RII I 
x 


LHPOO «ST=1 = 8 No line# allowed 
LNPOS §=GOSUB SVRSTU 
ST=0 9 Try Inplied DISP if error 
=LNPO6 ?ST=1 (11 Variable? 
GOYES LNP10 
LC(2) =tFN 
AKC OB 
GOYES LNPSO 
GOSUB CKTRN+ Set $10 (Inplied LET) 
GOSUB FNP+) 
LNEP36 GOTO  LNEP66 


LNP10 GOSUB CKTRN+ Set $10 & clr AUTO if no line# 
GOSUB INMLETP 
GONC LNEP36 (B.E.T.) 
x 
* NOT IMPLIED LET - TRY IMPLIED DISP AFTER TRAPPING 
* QUT: Line numbers followed by '; Terminators 
x 
LNPSO CDOEX Save DO 


Saturn Assenbler Line Parse Driver - Part 1 <83 Fri Dec 30, 1983 2:58 an 


Ver. 3.39/Rev. 2306 Page 20 
1010 02921 134 DO=C 
1011 02924 10B R3=C 
1012 02927 878 *ST=1 8 Line# not alloued? 
1013 0292A E2 GOYES LNPS2 
1014 0292C 76B0 GOSUB LINHP2 
1015 029% 472 GOC LNP52 Not a line#? 
1016 02933 181 DO=D0- 2 
101? 02936 7000 GOSUB =OUT2TK Output linet 
1018 * TRAP OUT 10 ! 
1019 0293A 7982 GOSUB Ntoken 
1020 0293E 3112 LCASC \!\ 
1021 02942 966 7AHC OB NOT conrient? 
1022 02945 01 GOYES LNPS1 
1023 02947 855 ST=1 5 
1024 0294A 7000 GOSUB =UPDINA 
1025 0294E 7000 GOSUB =!CK 
1026 02952 5CB GONC LNEP36 LINE# FOLLOWED BY COMMENT (B.£.T.) 
1027 x 
1028 02955 181 LNP51 DO=D0- 2 
1029 02958 7E11 LNP52 GOSUB EOLCKR Restore ptr & look for end stnt 
1030 0295C 402 GOC LNP60 End stnt token? 
1031 x 
1032 O295F 7020 GOSUB LNP63 Restore D1 
1033 02963 858 ST=1 8 
1034 02966 3100 LC(2) =tDISP 
1035 0296A 7000 COSUB =OUTBYT 
1036 O296E 8£00 GOSUBL =DSPPO2 
oO 
1037 02974 451 GO LNP60 ERROR ON IMPLIED DISP? 
1038 02977 71 GOSUB =EOLCK+ 
1039 0297B 5EO GONC —LNP60 
1040 * LEGAL IMPLIED DISP - NO LINE# 
1041 O297E 7020 GOSUB CKTRNS Clr AUTO 
1042 02982 7EEO =LNP55 GOSUB resptr Restore pointer (D1) 
1043 02986 636E GOTO LNEP66 
1044 * RESTORE D1,D0 - DO saved above 
1045 x D1 saved during SAVRST call 
1046 0298A 11B LNP6O C=R3 
1047 0298) 134 DO=C 
1048 0299 1F19  LNP63 01=(5) =STNTDO 
8F2 

1049 02997 14? C=DAT1 A 
1050 0299R 135 D1=C 
1051 02990 01 RTN 
1052 * 
1053 O299F 85A CKTRN+ ST=1 10 Inplied LET flag 
1054 * Tnplied DISP or possible Implied LET found 
1055 O29R2 875 CKTRNS ?ST=1) 5 Line# already found? 
1056 029A5 OO RTNYES 
105? * 
1058 * Ho line# 
1059 * Fall in AUTCLR 
1060 - 
1061 * NOTE: RUTCLR code must immediately follow 

x 


1062 
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1063 STITLE AUTO Node Clear 

1064 SII II ICU I TT OT TTT IE 
1065 SIO IOI II OI OIE IIIT RTT 
1066 an 
1067 x* Nane: AUTCLR - Clear Auto Mode RAN Location 

1068 kk 
1069 ** Category: PARUTL 
1070 aR 

1071 **% Purpose: 
1072 ae Clears AUTINC RAM Location, indicating not in AUTO 
1073 aR Mode. 
1074 aR 
1075 **k Entry: None 
1076 ae 
1077 KX Exit: 
1078 ah Carry Clear 

1079 x (RUTINC) = 0 
1080 as 
1081 ak Calls: None 
1082 ak 

1083 aK Uses....... 

1084 kk Exclusive: C(A) 

1085 *k Inclusive: C(A) 

1086 ak 

1087 KK Stk lvls: 1 

1088 aR 

1089 ** Note: 

1090 xn This code fallen into fron above 

1091 ae 

1092 **k Detail: 

1093 ak USES A SUBROUTINE LEVEL TO SAVE D1 

1094 x 

1095 ** History: 

1096 ae 

1097 a Date Progranner Modification 

1098 KR meen nen nn nen eee nen en ener ern rer err n neers nee 
1099 kk 07/07/82 JP Nodified docunentation 

1100 Kk 10/13/82 SW. Changed fron W field to A field 

xt 

aoe JIU III IGG IO IO TOIT TIT STAT 
1103 JO ISI IGOR IOC I IO TSI TOSI IT IOK 
1104 02997 137 =AUTCLR CDIEX 
1105 O29AR 06 RSTK=C 

1106 O29AC 1FBC 01=(5) =AUTINC 

6F2 

1107 029B3 D2 C=0 A 

1108 02985 15D3 DAT1=C 4 

1109 02989 07 C=RSTK 

1110 029BB 135 D1=C 

1111 029BE 03 RTNCC 

We x 
a JORIS IGOICOO IOI IO I IOC TIO TO II TIT IR 
1114 FOI IO IO I IO TI ITT TOTTI SIT TTT IA 
1115 a 


1116 xk Narie: XTOKCK - Check for XWORD or XFN 
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1117 xk Narie: R.STPR - Sets or Clears RESTART Flag 
1118 ** Nare: RSTPR1 - Sets or Clears RESTART Flag 
1119 AE 
1120 ** Category:  PARUTL 
1121 a 
1122 ** Purpose: 
1123 a XTOKCK entry checks token in A(B) and sets RESTART flag 
1124 aR if it’s an XWORD, XFN, or FFN token. 
1125 ae R.STPR and RSTPR1 set or clear RESTART flag, depending 
1126 - on ACS). 
1127 ak 
1128 ** Entry: 
1129 aR 3 entry points: 
1130 a 1) XTOKCK - P=0. ACB) contains token. 
1131 ak 2) R.STPR 
1132 aK RSTPR1 - ACS) = value to write to RESTART flag 
1133 as 
1134 xk Exit: 
1135 ae P=0 (XTOKCK entry), else preserved fron entry 
1136 aS S-R1-3 nonzero iff XWORD, XFN, or FFN found (XTOKCK entry 
1137 x A(S) contains new value of S-R1-3 (RESTART flag) 
1138 as $-R1-3 contains A(S) on entry (R.STPR, RSTPR1 only) 
11393 A 
1140 ** Calls: XCHECK 
1141 a 
1142 AEOUSES sn Gen 
1143 ** Exclusive: ACS), C(A) 
1144 ** Inclusive: ACS), C(A), S-R1-3, 01 - RSTPR1 only 
1145 a 
1146 ** Stk lvis: 1 
114? ae 
1148 ** Note: RESTART flag is RAM location S-R1-3 
1149 aS 
1150 ** History: 
1151 ae 
1152 = Date Progranner Modification 
1153 a a aaa aa aaah eataealaiiaiaateeiataa 
1154 kk 8609/02/82 = S.W. Docunented routine 
1165 ee 05/11/83 SW. Added call to XCHECK; now check for 
1156 Re funny functions 
1157 ae 
1158 JOU IOI GUI UI CII II III TIT II TTT 
1153 FOI RO OUI TOO ISI IOI OIG IOS IOI GIO II TOR TO 
1160 029C0 ACO =XTOKCK A=0 S 
1161 02903 7000 GOSUB =XCHECK 
1162 0230? 500 RTNNC Not XWORD,XFN,or funny FN * 
1163 O293CA A4T A=A-1 § 
1164 * SET RESTART FLAG 


1165 O29CD 137 =R.STPR CDIEX 
1166 02900 1FO9 =RSTPR1 D1=(5) =S-R1-3 


BF 2 
1167 02907 1514 DATI=A S 
1168 029DB 135 D1=C 
1169 O29DE 01 RIN 


1170 ’ 
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171 SII ITD T IIIT IID III SIDI IIIISIS ISIS III SIII ISIS ISA 
1172 III ISI IS IAT DDT IAI III ISI IRI IIIS II IIIS ISISIS SII IIIS ISI ISS IIIA 
1173 aK 
1174 ** Nane: LINHP - Line Number Parse 
1175 . Nare: LINHP2 - Line Nunber Parse u/o NTOKEN call 
1176 
1177 ** Category: PARUTL 
1178 cs 
1179 *k Purpose: Looks for tokenized line nunber 
1180 aK 
1181 ak Entry: 

1182 ak LINHP - D1 points at alleged Line# 
1183 aK LIN#P2 - A(B) = alleged line# token 
1184 ak P=0 
1185 ak (Assunes NTOKNL has already been called) 
1186 ae 
1187 RX Exit: Carry Clear => Line nunber found 
1188 &k A(A) contains BCD Line# (NIB 4-0) 
1189 ak 
1190 ak Carry Set => Line nunber not found 
1191 aR 
1192 ** Calls: NTOKNL 
1193 ax 
1194 ** Uses: A, C(B) - LINKP2 entry 
1195 ax A-D, P, D1, RO, SO-S3, S11 - LINAP entry 
1196 th 
1197 ** Stk Lvls: 0 - LINHP2 entry 
1198 xe 3 - LINHP entry 
1199 ‘ 
1200 ** History: 
1201 i 
1202 kk Date Progranner Modification 
1203 Bho nnn nee weet cee nee e een 
1204 ek 11/01/83 SLU. Cleaned up docunentation header 

kk 
Wee JO III I II IIIT SII IR IIIS IIS IIS ISI IISIIISISI ISI SISTISISI SII 
1207 SII III III OASIS III ISI IIISIIIDI SII IIIIISISIISI SIA 
1208 : 
1209 x 
1210 O29EO 8E0O =LINHP GOSUBL =NTOKNL 

00 

1211 O29E6 3100 =LINHP2 LC(2) =tLINE# 
1212 O29ER 966 PAHC OB NOT LINE # TOKEN? 
1213 O29ED 00 RTNYES 
1214 O29EF BF4 ASR W 
1215 O29F2 F4 ASR A SHIFT OFF TOKEN 
1216 O29F4 03 RTNCC 
1217 x 

k 


1218 
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1219 STITLE GOTO/GOSUB Parse 
1220 JK IIS IIT ITI III II IAI IIIS IS IIT I STII DISS IIIS IISIDSSISSI IISA IA 
1224 II III IRI ADI SII LIL IIT TT TET ED DLL I DLT AT IIIS IIIS AIT III SSI SSIS STIS 
1222 an 
1223 kK Nane:(S) GOTOp - GOTO Statenent Parse 
1224 *k Nane:(S) GOSUBp - GOSUB Statenent Parse 
1225 a‘ 
1226 *k Category: STPARS 
1227 Rk 
1228 ** Purpose: 
1229 ak Parse GOTO | GOSUB statenent 
1230 ak 
12314 *k Entry: 
1232 ak D1 past GOTO | GOSUB token 
1233 ak 
1234 aK Exit: 
1235 ak Carry Clear - If lineno | label is output 
1236 so 
1237 ak else error exit to PARERR: 
1238 ax Illegal first character: Syntax Error 
1239 a 
1240 ek Calls: LBLINP 
1241 ak 
1242 RX Uises.....5. 
1243 Inclusive: A-C,D(S), SO-S3,S7,S9-S11, RO,R1,R3, P, DO,D1 
1244 
1245 ** Stk lvls: 6 
1246 ak 
1247 ** Detail: 
1248 a 
1249 a GOTOp: 
1250 *k GOSUBp: Parse lineno | label  (LBLINP) 
1251 xx If carry set --> Error exit - "Syntax" 
1252 ae else --> RINCC 
1253 a 
1254 ** History: 
1255 x 
1256 aR Date Progranner Modification 
1257 aaa ae 
1258 kk 97/08/82 IP Modified docunentation 
1259 ak 
260 JI OST CC TITS III IITA I IA 
161 JOSS OIC CO IO TOT ITT ASTI SATIS ASA 
ebe - 
1263 O29F 6 =G0TOp 
i2b4 O29F 6 =GOSUBp 
1265 O29F6 =GOTOP 
1266 O29F6 7ROO =GOSUBP GOSUB LBLINP Parse lineno or label 
1267 O29FA 500 RTNNC Lineno or Label accepted 
1268 ‘ 
1269 O239FD 854 =LBLNPE ST=1 4 No restore of input pointer 


1270 O2RQOD 6000 


GOTO =ERRO1 Error - Syntax 
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1271 STITLE Label/Lineno Parse (LBLINP) 
1272 SIRI IIR IRIE IIS TITS II IDI III IISA IIIS ISI II SSI SI SASS IIISISAS SII SSI SIA 
1273 JOGO OOO IIIT TT IIT TIE III RI ASI SII SASSI SSSI. 
1274 an 
1275 ** Nane:(S) LBLINP - Parse Line Number or Label 
1276 ** Nane:(S) LBLNIF - Parse Line Number or Label after THEN/ELSE 
i 1277 *&* Nane:(S) LINP - Parse Line Number only 
: 1278 ak 
1279 ** Category:  PARUTL 
128 kx 
1281 ** Purpose: 
1282 aK Parse line nunber or label: 
1283 ax LBLINP or LBLNIF entry allows line nunber or label 
1284 xe LINP entry looks for line nunber only 
1285 aK 
1286 &X Entry: 
1287 xk DO points past last token uritten to output buffer 
1288 KK D(A) contains (AVMENE) 
1289 ax 3 entry points: 
1290 x 1) LBLINP - D1 pointing to alleged line# or label 
12914 ax 2) LINP - D1 pointing to alleged line#. S9=1 
1 1292 he 3) LBLNIF - Exit conditions fron NTOKNL: P=0, 
i 1293 ax A(B) contains token to check, D1 past 
1294 x alleged line# or label. 
1295 x $9=0 => Allow line# or label 
1296 * S9=1 => Allow line# only 
1297 ak 
1298 kX Exit: 
1299 ia Carry clear 
1300 ax Line# or label found and tokenized 
1301 kk D1 past line# or label 
1302 ses DO past tokenized line# or label 
1303 ax If line# found, 
1304 ze A(3-0) contains line# 
1305 nA The following 11 nibbles are output: 
1306 ax tLINE# 00000 <4 nib BCD line#> 
1307 ak If label found, it is output in 1 of 2 
1308 als formats using either LABELP or FSPC10: 
1309 ae tLBLRF <string expr> - LABELP 
1310 as tLBLRF tLITRL <ascii label> - FSPC10 
1311 an 
1312 ah Carry set 
1313 ae LBLINP entry => 1st char not letter | line# 
1314 ae LINP entry => Line# not found 
1315 ax LBLNIF entry: 
1316 ax $9=0 on entry => ist char not letter | line# 
131? ae S9=1 on entry => Line# not found 
1318 ax 
1313 AX Calis; NTOKNL, LINPH2, LABELP, OUT3TK, OUT2TC 
1320 ae OUTBYT, RESPTR, FSPC10 (golong) 
1321 =* 
1322 RE USES. oi cius 
1323 kk Exclusive: A,B,C,D1,3$9,510,D0,D1 
1324 tk Inclusive: A,B,C, 01,S9,$10,00,01,S0-S3,S7,S11,D0(S),RO,R1,R3,P 


1325 ax 
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1326 AX Stk lvls: 5 
1327 kk 
1328 ** Detail: $39 used by LBLINP entry only 
1329 ‘a $10 used by LABELP to ensure no reserved word check 
13H * 
1331 ** Algorithn: 
1332 ae 
1333 Kx If next token = line# (LINP#H2) 
1334 RX Output line# token (OQUTBYT) 
1335 a Zero out Line# junp address field 
1336 a Output line# (OUTITK) 
1337 ak Return, carry Clear 
1338 ax If S9=1 (Line# Parse only) 
1339 ax Return, carry Set 
1340 am else 
1341 kx Qutput Label Reference Token (OUTBYT) 
1342 a Restore Input pointer (RESPTR) 
1343 ae Set No RESERVE word parse flag (S10) 
1344 a Parse label (LABELP) 
1345 ae If legal label 
1346 ai If string expression 
1347 x RTNCC (Label already output) 
1348 an else 
1349 ae golong to Output Literal Token & Label 
1350 oe else 
1351 wk Back up Output pointer over Label Token 
1352 ak RINSC (Illegal first character found) 
1353 ays 
1354 x* NOTE: 
1355 am 
1356 ** Tokenized forn: 
1357 ax 
1358 ** <lineno> ---> (Lineno Token) (5 nib jump addr) (4 nib Line#) 
1359 ** <label> ---> (Label Ref Token) (String Expression) 
1360 ** <label> ---> (Label Ref Token) (Literal Token) (ASCII Label) 
1361 oi 
1362 k* History: 
1363 a? 
1364 a Date Programmer Modification 
1365 RR ance ern cence reer terror nee nnn nnn wn merce nnn nen aren 
1366 *k 07/08/82 IP Modified docunentation 
1367 kx 11/23/82 JP Renoved Stack level saving 
1368 ek 11/29/82 JP Renoved S2/Label found flag 
1369 BAe NAOT ISS. ~S Ale Cleaned up docurientation header 

ad 
oe ORO ROO RTT ORIG OI IIIT ITE IIE IOI Ir 
1372 OIRO OI IO IO OIC RO GIGI to 
1373 O2A04 849 =LBLINP ST=0) 9 WANT LABEL OR LINE# 
4374 : 
1375 * Check for line# 
1376 ? 
137? O2RO? 8EOO =LINP GOSUBL =NTOKNL 

00 

1378 x 


1379 * IF Parse Entry 
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1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 O2AOD 
1389 O2A11 
1390 02R14 
1391 02A18 
1392 O2A1B 
1393 02A1D 
1394 O2A1F 
1385 O2A23 
1396 O2A26 
139? 
1398 
1399 
1400 
1401 O2A2A 
1402 O2R2D 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 O2A2F 
1411 02A33 
1412 02A37 
1413 02A3B 
1414 O2A3E 


1415 02R44 
1416 
141? 
1418 
1413 
1420 
1421 
1422 02R47 
1423 O2R4A 
1424 O2R4C 


7SDF 
481 
7000 
REE 
D6 


7000 
180 


879 


3100 
7000 
7000 
85A 

8£00 


00 
516 


877 
A2 
800 
00 
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Label/Lineno Parse (LBLINP) Page 27 
k 
* If Linet#  (LINHP2) 
k Output Line# token 
* Zero out Line# address junp 
x QUT3TK writes from A or will destroy A if using OUT3TC 
x Therefore, must transfer Line# to C and use A for zeroing 
; Output Line# fron C 
=LBLNIF GOSUB LIN#P2 Line # Parse 
GOC LBLN2O Not a Line# 
GOSUB 9 =OUTBYT Output Line# token 
ACEX 8B Restore A(B) 
C=A A Move Line# to C 
R=0 A Zero field for line# addr junp 
GOSUB =OUT3TK Write 6 nibs from A to DO 
h=D0- 1 Only want 5 nibs of zeroes 
GOTO  =OUT2TC Output line# fron C, RTNCC 


x 


* If not Line# 


* If Line# Parse request only 
* 


LBLN2O ?ST=1 9 Line# parse only ? 

RTNYES Return, carry set 

* 

* Check for Label 

* Output Label Reference Token 

x LABELP will output label if string expression 

* Restore Input pointer 

: Set No RESERVE word Check flag for Label Parse 
LC(2)  =tLBLRF 
GOSUB =OUTBYT Output Label Reference Token 
GOSUB = =RESPTR Restore Input pointer 
ST=1 10 No RESERVE word check 
GOSUBL =LABELP Parse label 
GONC EOLCK* Label not found? 

x 

* If string variable 

x RTNCC 

* else 

* — Qutput literal token and ASCII label 

x 
*ST=1 7 STRING EXPRESSION? 
GOYES resptr 
GOLONG =FSPC10 Output Literal token & label 
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1425 STITLE RESTORE Parse 
1426 JI OI OT TIT ITT IIIS TIS I IIIS IIIS ISI IIT ISI ISI SSS AII SSIS IS SI IS: 
1427 III IIIT I DIDI TTI TIA TT TTDI ILI D IT TOI TIT III III SITIOS III III IIIA II IAA 
1428 ax 
1429 ** Nane: RESTRP - RESTORE Statenent Parse 
1430 Nane:(S) FIXP - FIX and WAIT Statenent Parse 
1431 x 
1432 ** Category: STPARS 
1433 kk 
1434 **k Purpose: 
1435 KK RESTRP parses RESTORE statenent 
1436 aK 
1437 ae FIXP parses FIX and WAIT statenents. It also parses a 
1438 ax single numeric expression. 
1439 am 
1440 kk Entry: 
1441 xx D(A) = (AVMENE) 
1442 aK DO points into the output buffer 
1443 kk RESTRP entry: 
1444 ax D1 past RESTORE keyword 
1445 kx DO past RESTORE token 
1446 ae FIXP entry: 
1447 kK D1 points at alleged nuneric expression 
1448 a 
1449 KS EMIT: 
1450 RR RESTRP entry: 
1451 ne Legal statenent syntax => 
1452 ak Return with carry clear 
1453 eS Statenent parsed and tokenized 
1454 a D1 past legally parsed statenent 
1455 kh DO past token strean for RESTORE statenent 
1456 aX P=0 
1457 ns Else take error exit 
1458 ae 
1459 kt FIXP entry: 
1460 aK Valid nuneric expression found => 
1461 ax Return with carry clear 
1462 am Tokenized expression uritten to output buffer 
1463 aX DO points past token strean 
1464 xx D1 points innediately past the expression 
1465 ae Else take error exit 
1466 ax : 
146? ** Calls: LBLINP,PILP+,WRDSCN, QUTITK, RESPTR, NUNCK 
1468 ais DIC=R3 
1469 ee 
1470 RROUSCS cs fos 
1474 %* Exclusive: R3,S8 
1472 ** Inclusive: R3,S8,S0-S$3,57,SA11,A-C,D(S), 00,01, RO-R3, 
1473 a 
1474 Rk Stk lvls: 6 
1475 as 
1476 ** Detail: 
147? ae RESTORE [ <lineno> | <label> ] 
1478 res RESTORE [# <nun expr> [, <nun expr> J ] 


1479 + 
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1480 *& Algorithn: 
1481 aX 
1482 ah Parse for lineno or label 
1483 at If lineno | label not found 
1484 xR If channel # not found 
1485 ak Return to main line parse to check for EOL 
1486 ak else 
1487 aR If conna follows Channel # 
1488 ak Parse for <numeric expression> 
1489 ak else 
1490 kh RTNCC 
1491 ah 
1492 ** History: 
1493 aR 
1494 a Date Progranner Modif ication 
1495 KK nnn nnn ne ene e ene e en nnn nnn nnn nnn nen nnn nen nen ener nee 
1496 xk 07/08/82 IP Modified docunentation 
1497 *k 10/20/82 S.H. No nore RESTORE #<nunm expr>, END 
ak 
ae JOGO UI OOOO TT TTR ISTO I ITALIA 
1500 JOIST CCCI TO RIT TR TTT IA IIIT AI SI 
1501 x 
1%2 x 
1503 O2A52 7EAF =RESTRP GOSUB LBLINP Parse lineno or label 
1504 02A56 500 ; RTNNC Label | Line# 
1505 
1506 * IF NOT LINEH# OR LABEL, THEN D1 WILL HAVE BEEN SAVED IN UPPER 
1507 * PORTION OF R3 BY LABELP 
198 x 


1503 02A59 7000 
1510 O2A5D 858 
1511 O2A60 8EOO 


00 
1512 O2A66 411 
1613 
1514 
1515 


1516 O2A69 878 

1517 O2A6C 80 

1518 

1519 O2R6E 

1520 O2R6E 8E00 
00 

1621 

1522 02A74 6000 

1523 

1524 02A78 03 

1825 


GOSUB =DIC=R3 RESTORE INPUT PTR 

ST=1 8 FLAG - EXIT AFTER COMNA 
GOSUBL =PILP+ LOOK FOR CHANNEL # 

GOC RSTRP? NO °R’? 


* SEE IF COMMA FOUND AFTER CHANNEL # 
x 


*ST=1 8 NO COMMA AFTER CHANNEL #7 
GOYES resptr 

k 

=WAITP 

=FIXP GOSUBL =NUNCK 


x 


resptr GOTO  =RESPTR 
x 


RSTRP? RTNCC 
x 
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1526 STITLE EQLCK - Check EOL,*,!, ELSE 
1527 JOO IU III IRI TID IIT III IIIS ISAK 
1528 JOO ISCO SIO TT TI III IIIT A IK 
1829 ak 
1530 ** Narie:(S) EQLCK - Check for EOL,@,!, ELSE 
1531 ** Narre:(S) EOLCKR - Check for EOL,@,'!, ELSE 
1532 ae 
1533 *% Category: PARUTL 
1534 xh 
1535 xk Purpose: 
1536 aR Checks for tEOL, @, ' , tELSE 
153? aE EOLCKR entry calls RESPTR before checking. 
1538 kk 
1539 xk Entry: 
1540 xx EOLCKR - NTOKEN (or WRDSCN) has already been 
1541 aR called; D1 past keyword/character to 
1542 an check (except if token was tEOL) 
1543 KR EOLCK - D1 at optional blanks preceding 
1544 xR keyword/character to check. 
1545 ae 
1546 Re Exit: 
154? ak P=0 
1548 ak ACB) = Token found 
1549 se D1 past the keyword/character found 
1550 a Carry Set => 
1551 ak Statenent terninator found (tEOL, tELSE, @, !) 
1552 aA Carry Clr => 
1553 AP Statenent terninator not found 
1554 aK 
1555 kk Calls: WRDSCN, RESPTR 
1556 ze 
1557 A® Uses...... 
1558 kk Exclusive: A-C,D1,R1,R2,P 
1559 kk Inclusive: A-C,01,RO-R2,S0-S3,S11,P 
1560 KK 
1561 ** Stk lvls: 4 
1562 aE 
1563 ** Detail: DO is preserved fron entry 
1564 ak 
1565 ** History: 
1566 ak 
156? ne Date Progranner Modification 
1568 KR nnn nn nnn nee ne ree nee nen een ne rn rer rere see 
1569 xt 07/08/82 IP Modified docurientation 
1570 ee 14/02/83 SW. Modified docurientation - Routine 
1571 a doesn’t use DO. 
1572 ae 
1573 FOF OOOO ROJO JOO IOI ISOC 
1574 JOSIE IOI SIGCSE IO TO TT IIR 
1575 - 
1576 * 
1577 O2A7A 7000 =EOLCKR GOSUB =RESPIR 
1578 x 
1579 O2R7E =EOLCK+ 


1580 O2A7E 7000 =E0LCK GOSUB =WRDSCN 
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1581 O2R82 00 CON(2) =tELSE 
1582 O2R84 220 REL(3) EOLCK* 
1583 O2A87 00 CON(2) 0 
1584 x 
1585 O2R89 3100 LC(2) =tEOL 
1586 O2A8D 962 7A=C OB EOL? 
1587 02890 00 RTNYES 
1588 O2A92 3104 LCASC \@\ DON’T CK FOR KLUDGED TOKEN 
1589 O2A96 362 7A=C) OB 
1590 02A99 00 RTNYES 
1591 O2R9B 3112 LCASC \F\ " ye 
1532 O2A9F 962 7A=C OB 
1593 O2AA2 00 RTNYES 
1594 O2AA4 01 RTN 
1595 & 
1896 O2AA6 181 EDLCK* DO=DO0- 2 BACK UP OVER tELSE 
1597 O2AR9 02 RTNSC 
kt 


1598 
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1599 STITLE BEEP Parse 
1600 JU OO I I RIT III IIT ITI II III IIIT ITI II IAAI II 
1601 SICK III ATRIA DIRT IASI EI III ITI IID III ATI III III ILI IAT IORI IIIA IIIA 
1602 ak 
1603 ** Narie: BEEPP - BEEP Statenent Parse 
1604 . Narie:(S) DELAYp - DELAY and WINDOW Statenent Parse 
1605 * 
1606 *k Category: STPARS 
1607 aK 
1608 ** Purpose: 
1609 ak Parses BEEP, WINDOW and DELAY statenents 
1610 aK 
1611 &k Entry: 
1612 ak D1 past BEEP, WINDOW, or DELRY keyword 
1613 ax DO past tBEEP, tWINDW, or tDELAY 
1614 ak D(A) = (AVNEME) 
1615 ak 
1616 RK Exit: 
1617 ak Return with carry clear => 
1618 at Accepted statenent 
1619 ax 
1620 ak Else error exit to PARERR 
1621 aK 
1622 &* Calls: NUNCK, COMNCK1, RESPTR, OUTITK, EOLCK 
1623 ak 
1624 aX Uses....... 
1625 *k Exclusive: A,C,D1,D0 
1626 *k Inclusive: A-C,D(15-5), RO-R2,S0-S3, $7,511, FUNCDO 
1627 an D1,D0 
1628 ak 
1629 rk Stk lvls: 5 
1630 - 
1631 ** Detail: 
1632 se BEEP [ ON | OFF J 
1633 aK BEEP [ <frequency> { , <duration> ]} 
1634 ae 
1635 aK DELAY <delayt> [,<scrollt>] 
1636 aX WINDOW <start> [{,<end>] 
1637 x 
1638 ak frequency, duration, delayt, scrollt, start, and 
1639 ak end are all specified using nuneric expressions. 
1640 ae 
1641 ** Algorithm: 
1642 ne If Next Token = End of Line Terminator 
1643 a Restore Pointer 
1644 xs Return CC 
1645 a If Next Token = ON | OFF 
1646 ae Output Token 
1647 ‘ Return CC 
1648 ae else 
1649 ax Restore Input pointer 
1650 AR Verify first paraneter 
1651 a If next token = conria 
1652 ” Verify second paraneter 


1653 R else 
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1654 ak Go Restore pointer & Return 
1655 ak RTNCC 
1656 he 
1657 &* History: 
1658 kk 
1659 ax Date Progranner Modification 
1660 RX. wl eecdoewd”” lsecche weds).  bidecasctivcsccseend dies an oawoke cbacu} 
1661 && 07/08/82 IP Modified docunentation 
1662 Rk 08/18/82 = S.W. Combined WINDOW and DELAY parse with 
1663 ak BEEP parse 
1664 && 11/01/83 S.W. Modified docunentation header. 
kx 
fee JU III OC III 
1667 JUS OOO SCOOT TTI 
1668 t 


1669 O2RAB 7FCF 
1670 O2RAF 44C 
1671 

1672 

1673 

1674 O2AB2 7000 
1675 O2AB6 00 
1676 O2RB8 23D 
1677 O2ABB 00 
1678 O2ABD D2 
1679 O2ACO 00 
1680 

1681 

1682 

1683 O2AC2 7000 
1684 O2AC6 

1685 O2AC6 8£00 


00 
1686 O2ACC 8E00 

00 
1687 O2AD2 51A 
1688 O2ADS 489 
1689 


=BEEPP GOSUB EOLCK+ 


GOC resptr Restore Ptr, Return if EOL 
& 


* Try BEEP ON | OFF 
k 


GOSUB =WRDSC+ Look for ON or OFF 
CON(2) =tON 

REL(3) =LNEP66 Return CC 

CON(2) =tOFF ; 

REL(3) =LNEP66 Return CC 

NIBHEX 00 


* Try <nun exp> [ , <nun exp> ] 
t 


GOSUB =RESPTR 


=WINDUp 
=DELAYp GOSUBL =NUMCK Verify frequency 
GOSUBL =CONCK1 Check for contia 
GONC =resptr Not a conna 
GOC FIXP (B.E.1.) Call NUMCK & RESTORE 01 


x 
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1690 STITLE LET/Inplied LET Parse 
1691 JID OCI IGOIISII IIIT COCCI I IOI GOI I IK 
1692 JI II IO TO I TI III ISI II IOS TOT I III IIIS III III III IIT III ISI I ISI A II IK 
1693 te 
1694 ** Nane: LET - LET Staterient Parse 
1695 ** Nane: IMLETP ~- Itiplied LET Statenent Parse 
1696 aX 
1697 ** Category: STPARS 
1698 Ax 
1699 ** Purpose: 
1700 ae Parse LET and Inplied LET statenents. 
1701 ae LETP entry is used when tLET is found. 
1702 &K INLETP entry is used when a variable or tFN is 
1703 + found at the beginning of a statenent; if it 
1704 aK doesn’t turn out to be a syntactically correct 
1705 ax inplied LET, then depending on a status setting, 
1706 x we atterpt to parse it as an inplied DISP instead. 
1707 ee 
1708 ee Entry? 
1709 a D(A) = (AVMENE) 
1710 aE 2 entry points: 
1711 ax 1) LETP - D1 past LET keyword. 
1712 - DO past tLET. 
1713 oe 2) IMLETP - D1 past variable in input strean. 
1714 se DO inmediately after strnt length byte. 
1715 a $10=1 
1716 a $9=1 => Don’t parse as inplied DISP if 
1717 o an error occurs (Used by IF) 
1718 xe $9=0 => Parse as implied DISP if error 
1719 ak 
1720 xe Euit: 
1721 + If accepted 
1722 aA Return with carry clear 
1723 xe P=0: 
1724 xx Statenent tokenized and output 
1725 7 D1 at end of legally parsed statenent 
1726 se DO past tokenized staterent 
172? ae Inplied LET Error flag is cleared (S10) 
1728 en 
1723 ae If unaccepted 
17% ke Control given to parse error handler (PARERR) 
1731 a If S10=1 and S9=0 
1732 as Then an iriplied DISP parse 1s attenpted. 
1733 os Else error exit through MFERR. 
1734 ne 
1735 ** Calls: NTOKEN, EXPPLS, OUTBYT, RESPTR, GNXTCR, R3=D1* 
1736 ae ASNP (goto) 
173? ig 
738 BY USCS oadine 
1739 ** Exclusive: A-C, 00,01, P 
1740 kk Inclusive: A-C, RO-R3, 00,01, S0-S3,S87-S11, P 
1741 ax 
1742 x 
1743 ** Stk lvls: 4 


1744 a 
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1745 ** NOTE: 
1746 Ax IMLETP can’t use S-RO-0. This RAM location must be 
1747 ak left intact fron IF: If implied LET parse fails 
1748 aK after THEN/ELSE, then parse can recover with a 
1749 aR label parse. 
1750 aR 
1751 ** Detail: 
1752 AR Status Bit Usage: 
1753 a 
1754 kk $7? = Left Side Evaluate for Expression Parse 
1765 an $8 = Numeric variable 
1756 aK S39 = Middle of IF flag 
1757 ak S9 = Don’t try implied DISP parse if errors 
1758 xx $10 = Implied LET Error 
1759 ak 
1760 ak Syntax: 
1761 ae 
1762 aa { LET } <{FN] numeric variable> = <nuneric expression> 
1763 aK [ LET } <[FN] string variable> = <string expression> 
1764 Sas 
1765 a (The = is tokenized with tCOrnA. ) 
1766 ae 
176? ** Algorithn: 
1768 ae 
1769 Kk LETP: Get next token (NTOKEN) 
1770 a If not variable (S11) 
1771 ae If FN token 
17?2 ak Set S9 to indicate LET FN 
1773 ae go Parse FN staterent 
1774 ae else 
1775 ag Error ---> Illegal variable 
1776 XKIMLETP: 
1777 aR Restore pointer to call Expr parse 
1778 oe Set Left Hand side evaluation flag 
1779 Bx Call Expr Parse @ special entry pointer (EXPPLS) 
1780 ae If durirty array (Carry Set) 
1781 xX Error ---> Illegal Variable 
1782 ax If Value expression (not Reference) 
1783 = Error ---> Illegal Variable 
1784 am Set Numeric Variable flag 
1785 aK If illegal expression (SO) 
1786 aR Error ---> Illegal Variable 
1787 aK If string variable (S1) 
1788 aK Clear numeric variable flag (S8) 
1789 kk Restore input pointer 
1790 ak Junp to ASNP 
1791 a 
1792 ** History: 
1793 ak 
1794 a Date Progranner Modification 
1795 KK mee ene e eee wenn wore renner erence nent ere ren ecnne 
1796 *k 07/08/82 JP Modified docunentation 
1797 Kk 08/31/82 = S.W. Connonized code with FNP 
1798 ae 


1799 FO OO TOI II TOIT ITI TIT ITI I TIT ITI TOT II IK 
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1800 
1801 
1802 O2AD8 
1803 O2ADC 
1804 O2ADF 
1805 
1806 
1807 
1808 O2RE1 
1809 O2RES 
1810 O2RE8 
1811 O2RER 
1812 O2AED 
1813 O2AF1 
1814 O2RF1 


1815 O2AF7 
1816 O2AFA 


1817 O2B00 
1818 02B03 
1819 02806 
1820 
1821 02B08 
1822 
1823 O2B0C 
1824 O2BOF 
1825 02B12 
1826 02B14 
1827 02817 
1828 02819 
1829 
1830 
1831 
1832 
1833 
1834 O2B1C 
1835 02B20 
1836 
183? 
1838 02B24 
1839 
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OOO JI ITI ITT I TOIT 
x 


7BEO =LETP GOSUB Ntoken 
87B ?ST=1 11 Variable? 
21 GOYES LETP10 
k 
* Check for LET FN 
k 
3100 LC(2) =tFN 
966 RHC OB not FN token ? 
02 GOYES LETPE4 Error - Illegal Variable 
859 ST=1 9 No Inplied DISP if error 
6000 FNP+) GOTO  =FNP+ Parse FN statenent 
=IMLETP 
8EOO LETP10 GOSUBL =R3=D1* RESPTR,R3=D10 
oO 
857 ST=1 7 Set Left Side evaluate flag 
8E00 GOSUBL =EXPPLS Evaluate left side 
00 
470 6OC LETPE4 Duriny array ? 
831 ?KXM=0 Not Value expr? (Reference?) 
60 GOYES LETP15 0.K. on Left Hand Side 
x 
6000 LETPE4 GOTO =ERROS Illegal Variable 
x 
858 LETP1S ST=1 8 Set nuneric variable flag 
873 *ST=1 3 Valid numeric expression ? 
RO GOYES LETP20 
870 ?ST=1 0 Invalid expression ? 
1F GOYES LETPE4 Invalid variable Error 
848 ST=0 8 Clr Numeric Variable flag 
k 
* Look for "=" 


* Set Inplied LET Error flag; Clear if "=" found 
* Qutput Conna token in its place 
x 


7000 =LETP20 GOSUB =RESPTR 

7000 GOSUB =GNXTCR 
* Check for *=’ & that right side of sane type (string/nuneric) 
* as left side - Assignnent Parse 


6000 GOTO =ASNNP 


x 
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1840 STITLE ON Parse 
1841 KSI ITI DIT IDLER ISI D TIT IDLATDDIDD DIDI I III I IID IISISS ISI ASIII SIS 
4842 SOI OSI TITAS IIT SIT III SII ISS AISI SSISIIII IIS SIS IISIS IA. 
1843 aA 
1844 ** Nare: ONP - ON Statenent Parse 
1845 xk Narie:(S) ONP4O0 - GOTO,GOSUB,RESTORE in middle of strt Parse 
1846 a 
1847 ** Category: STPARS 
1848 xk 
1849 ** Purpose: | 
1850 ak Parse ON statenent 
1851 ak 
1852 a Possible syntax is: 
1853 ah ON ERROR (GOTO | GOSUB) (lineno | label) 
1854 a ON TIMER # <tiner no>, <Hsecs> ( GOTO | GOSUB ) 
1855 gi ( <lineno> | <label> ) 
1856 a ON <exp> GOTO <lineno>|<label> [, <lineno>|<label>] 
1857 xe "  GOSUB 4 
1858 aR "RESTORE e 
1859 ah 
1860 ak Entry: 
1861 ak D1 past ON keyword 
1862 = DO past tON in output buffer 
1863 ah D(A) = (AVMEME) 
1864 ak 
1865 Se ERrt: 
1866 ak If accepted 
1867 xe Return with carry clear 
1868 xk P=0 
1869 aR D1 past valid statenent 
1870 a DO past tokenized statenent in output buffer 
1871 at S8=1 => ON ERROR | ON TIMER statenent 
1872 a. 
1873 ak If unaccepted 
1874 ah Error exit through PARERR 
1875 x 
1876 *k Calls: NUNCK, LBLINP, CONCK+, RESPTR, WRDSCN, NTOKEN 
1877 ae H#CK, NUMNC++, RESPTR, CONCKO 
1878 an 
1879 BE USCS. .a1cias 
1880 *k Exclusive: A,C,S8 
1881 Inclusive: A,C,S8,B,D(15-5), S0-S3, $7,511, RO-R3, FUNCDO 
1882 . 
1883 KE Stk lvls: 6 
1884 aR 
1885 xk Detail: 
1886 xR 
1887 as ON <exp> ... allowed from keyboard 
1888 a ON TIMER | ERROR not allowed fron keyboard 
1889 a 
1890 ** Algorithn: 
1891 =F 
1892 a If Next Token = ERROR 
1893 aR If Keyboard execute --> Error exit 


1894 a Set ON ERROR statenent flag 
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1895 z goto 1; 
1896 ae If Next Token = TIMER 
1897 aR If Keyboard execute --> Error exit 
1898 ae Set ON TIMER statenent flag 
1899 ak If next char # "#" 
190 ak Error Exit with No restore of input pointer 
1901 ah Skip "#" and 
1%2 aA Verify <tiner no> expression (NUMC++) 
1903 ae If ACB) # Conma (F1) 
1904 aR then Error ---> Syntax 
1905 aR Output Corma token (COMCKO) 
196 a Verify <# secs> expression (NUNCK) 
19%? kX 4: If Next Token # GOSUB | GOTO 
198 ak If ON-ERROR| TIMER stnt ---> Error Exit 
1%9 ak If Token # RESTORE ---> Error Exit 
1910 *k 2: Check for label | lineno (LBLINP) 
1911 ae If not label | lineno ---> Error Exit 
1912 ak If ON-ERROR statenent ---> RTNCC 
1913 aa Check for corria and output (CONCKO) 
1914 xk Continue Label/Lineno parse (goto 2) 
1915 ak else goto RESPIR (Position before non-conta & RIN) 
1916 xk 
1917 *k History: 
1918 aR 
1919 a Date Prograriner Modification 
1920 KK nen n nnn ween eee n nee nnn ene nnn nn nn ene nner een 
1921 kx 07/08/82 IP Nodified docunentation 
1922 e 11/01/83 S.W. Updated docunentation header 
ion JOU III GIO ISI OGIO TC OTT ITA IS 


1925 

1926 

1927 O2B28 7000 
1928 

1929 

1930 

1931 O2B2C 00 
1932 O2B2E 110 
1933 02B31 00 
1934 02B33 020 
1935 02B36 00 
1936 

1937 

1938 

1939 

1940 02838 7000 
1941 O2B3C 583 
1942 

1943 

1944 

1945 O2B3F 865 
1946 O2B42 DO 
1947 02844 858 
1948 

1949 


FOI IOI OO TOO TOTTI TT IIT ITI TTI IITA IIT III 
x 


=ONP GOSUB =WRDSCN 

* 

* Table for first keyword 
x 


CON(2) =tERROR 


REL(3) ONP10 ON ERROR 
CON(2) =tTIMER 

REL(3) ONP2O ON TIMER 
NIBHEX 00 


* 
* ERROR | TINER Keyword not found 
* Try ON <exp> 
x 
GOSUB =RESPTR Verify expression & 
GONC ONP35 try GOTO | GOSUB (B.E.T.) 
a 
* ON ERROR 
x 
ONP1O §=7ST=0) «5 Keyboard execute ? 
GOYES ONPE3 ON ERROR not allowed 
ST=1 8 ON-ERROR flag 


x 
* Must get next token cus 
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1950 : All other junps to ONP40 have done NTOKEN 
1951 
1952 02847 7€70 GOSUB Ntoken Get next token 
1953 O2B4B 6F20 GOTO ONP40 
1954 O2B4F 6000 ,ONPES GOTO =ERRO6 Non-executable 
1955 
1956 * ON TINER 
1957 k 
1958 02853 865 ONP2O ?ST=0 5 Keyboard execute ? 
1959 02856 9F GOYES ONPE3 ON TIMER not allowed 
1960 O2B58 858 ST=1 8 Set ON TIMER flag 
1961 O2B5B 8£00 GOSUBL =#CK Is next char # ? 
© 
1962 02861 560 GONC  ONP3 Carry clear => Yes 
1963 02864 689E Ilblnpe GOTO LBLNPE No restore of input error 
1964 O2B68 8E00 ONP30 GOSUBL =NUNC++ Skip "#" 
00 
1965 O2B6E 7000 GOSUB =CONCK+ 
1966 O2B72 501 GONC ONPE1 Comma not found ? 
1967 * Conra found & output 
1968 02875 8E00 ONP35 GOSUBL =NUNCK Verify <# secs> 
00 
1969 & 
1970 * Check for GOSUB | GOTO token 
1971 * Call WRDSCN entry that does RESPTR before NTOKEN 
1972 : NUNCK has done NTOKEN before RETURN 
1973 
1974 02B7B 7000 =0NP40 GOSUB =WRDSC+ 
1975 O2B7F 00 CON(2) =tGOSUB 
1976 O2B81 810 REL(3) ONP6O GOSUB 
1977 02884 00 CON(2) =tGOTO 
1978 O2B86 310 REL(3) ONP6O GOTO 
1979 02B89 00 CON(2) =tRESTR 
1980 O2B8B 900 REL(3) ONP5O 
1981 O2B8E 00 NIBHEX 00 
1982 * 
1983 O2B90 6000 ONPE1 GOTO =ERRO1 Error --> Syntax 
1984 % 
1985 O2B94 878 ONP5O ?ST=1 8 ON ERROR | TIMER ? 
1986 O2B97 9F : GOYES ONPE1 Yes => Don’t allow RESTORE 
1987 
1988 & Check for lineno | label 
1989 x 
1990 02899 776E ONP60 GOSUB LBLINP Check for line# or label 
1991 O2B9D 46C GOC lblnpe Set No Rstptr/Syntax error 
1992 O2BRO 878 ?ST=1 8 ON-ERROR ? 
1993 O2BA3 F1 GOYES rtnec 
1994 x 
1995 O2BA5 7000 GOSUB =CONCKO Check for conna & output 
1996 O2BA9 4FE GOC ONP6O Output conna and continue 


1997 O2BAC 6000 GOTO =RESPTR Restore to "non" cornna, RTNCC 
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1998 STITLE UNPROTECT Parse 

1999 JEU OOO OTTO TI IIIT ESOT II IIS ITI O TITAS 

00) JU IOI OI TIT I III III IIE III II III III IAI TIT I IIIS IISA 

2001 ak 

2002 *k Narie: UNPRTP - UNPROTECT Staterent Parse 

2003 ak 

2004 *k Purpose: Parse UNPROTEC(T) 

2005 ak 

2006 *k Entry: D1 past ’UNPROTEC’ 

2007 abe DO past tUNPRT in output buffer 

2008 an D(A) = (AVMENE) 

2009 kk 

2010 ak Exit: 

2011 ak If valid syntax 

2012 a Return with carry clear 

2013 ae D1 past legally parsed statenent 

2014 ak DO past statenent token strean 

2015 a P=0 

2016 aK Else error exit through PARERR 

2017 aK 

2018 ** Calls: CNV2UC 

2019 ak 

2020 *k Uses: A,C, 0O,D1, P 

2021 aK 

2022 ek Stk Lvls: 2 

2023 ne 

2024 ** History: 

2025 ak 

2026 x Date Programmer Modification 

2027 We detacniuls “(Gateeedeees ae steecsoe as 

2028 kk 41/02/83 SW New docunentation header fornat adde 
> ak 

ah JO TO III OSI III II III III III ISI III IIIS IIIS IIIA 

31 JOO IOI ITI SIRT ASS ITI IIT IAI III ITI III III IIA 

2032 i 

2033 O2BBO 8E0O =UNPRTP GOSUBL =CNV2UC 


00 
2034 O2BB6 3145 
2035 O2BBA 966 
2036 O2BBD 3D 
2037 O2BBF 171 
2038 O2BC2 03 
2039 
2040 O2BC4 850 


=sntken+ ST=1 


LCASC \T\ 


PRRC 


B 


GOYES ONPE1 

Di=D1+ 2 POINT PAST T 
rtncc RINCC 

k 


0 


2041 O2BC7? 8COO =Ntoken GOLONG =NTOKEN 


00 
2042 


x 
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2043 STITLE AUTO Mode Check 
2044 JOTI IO OO OTT TRIE 
2045 SOIT ITI IIT IAS IIT OTST ITI EIT OTT IT TI TI I ORT AT TAIT ID IDI TAA I AIM 
2046 ak 
2047 &k Nare: RUTOCK - AUTO Mode Check 
2048 ak 
2049 ** Category: PARUTL 
2050 ax 
2051 ** Purpose: 
2052 ax Indicates whether or not machine is in AUTO node 
2053 a 
2054 *& Entry: 
2055 k None 
2056 ax 
2057 BK Exit: 
2058 ax Carry set => Not in AUTO node 
2059 xe Carry clr => In AUTO node 
2080 an C(A) = AUTO increnent value - 1 
2061 &x 
2062 t* Calls: None 
2063 kk 
2064 tk Uses. ...... 
2065 tk Exclusive: A(A),C(A) 
2066 kk Inclusive: A(A),C(A) 
2067 ax 
2068 kK Stk lvls: 0 
2069 ax 
2070 *k History: 
2071 ak 
2072 a Date Progranner Modification 
2073 PR tcl eu Gee. tebcoseteue (Mote hate nk ee aaa 
2074 &k 07/07/82 IP Modified docunentation 
2075 kX 10/13/82 9 S.W. Changed fron W field to A field 
kk 
sere JO IOI IGS TI IIIS TIS T IIIA ISAK 
2078 JOO OI OI IOI OOO ICC IOC IOC TTI AK 


2079 O2BCD 133 
2080 O2BD0 1FBC 

6F2 
2081 O2BD7 D2 
2082 O2BD9 15F3 
2083 O28D0 131 
2084 O2BE0 CE 
2085 O2BE2 01 
2086 


=AUTOCK ADIEX 
D1=(5) =RUTINC 


C=0 A 
C=DAT1 4 
D1=A 
C=C-1 A 
RTN 
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2087 STITLE TRANSFORM Entry Check 
2088 SII I TI TT IT TI IT ITO TT ITI TIE ITI IIT II III STII IIIA IA SAK 
2089 JIS II I OI STI TTI IS ITT ISI ISI IS TSAI III III III IIIS III IIIT IIIA 
20% tx 
2091 ** Nane: TRNFCK - Check if line parse called by TRANSFORM 
2092 x 
2093 ** Category: PARUTL 
2094 ae 
2095 ** Purpose: Checks f1RTN to see if line parse was called by 
2096 ae TRANSFORM or by any other user of the special entry 
2097 ax point, LNPEXT. 
2098 ax 
2099 ** Entry: P=0 
2100 ax 
2101 ek Exit: f1RTN clear 
2102 ax P=0 
2103 ax CARRY SET => f1RTN is clear 
2104 ax Entry mas not through LNPEXT 
2105 Ax CLR => FIRTN was set 
2106 xx Entry was through LNPEXT 
2107 ax D1 destroyed fron entry 
2108 ax C(A) address of caller 
2109 ak 
2110 kX Calls: SF LAGC 
2111 ax 
2112 %* Uses: C(S), CCA) 
2113 xx If fIRTN is set additionally uses: 
2114 x ACA), BCA), C(5), DCA), D1 
2115 ax 
2116 ** Stack lvls: Carry set => 0 
2117 * elt=s. 2 
2118 ae 
2119 ** History: 
2120 ne 
2121 7 Date Prograrner Modifications 
2122 RK Sake oeee CSeraeeeee Se 6 Spekeemeetese 
2123 . 02/04/83 S.W. Updated docunentation 
os JU I III CITI TOTO IIIT IIIT III 
2126 JOS IOI IDI ICI IOC III IO TI ITI STO ATTA ITA IIA 
2127 x 
2128 & 
2129 O2BE4 137 =TRNFCK CDIEX SAVE INPUT POINTER 
2130 O2BE? 1F3E DI=(5) (=SYSFLG)+10 Pt to f1RIN 
6F2 
2131 O2BEE 1574 C=DAT1 $ 
2132 O2BF2 A46 C=C+€ § 
2133 O2BF5 581 GONC NOTTRS 
214 * CARRY SET => CALLED BY TRANSFORM 
2135 * Clear f1RIN 
2136 O2BF8 3140 LC(2) =f 1RTN 
2137 O2BFC 8E00 GOSUBL =sflagc 
00 
2138 O2(02 1FB7 D1=(5) =S-RO-2 


8F2 
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2139 02009 147 

2140 O2C0C 03 

2141 

2142 O2COE 135 

2143 02C11 02 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 02013 137 

2178 O2C16 1F08 
8F2 

2179 O2C1D 174 

2180 O2C21 135 

2181 02C24 01 

2182 
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C=DAT1 A RETURN ADDRESS 
RTNCC 
k 
NOTTRS D1=C RESTORE INPUT POINTER 
RTNSC 


k 
FOR KI IRI DISA ATID ITI II ISIS ISIS ISIS SI STIS IIS ISS IIIS IS II TIA 
JORIS TO TOIT ITI OT IT I TTT TTI TTT I AD 
re" 

** Nane: RS-RO3 - Read nibble in S-RO-3 


x 


** Category:  GENUTL 
ks 


** Purpose: 

a Reads contents of RAM location S-RO-3 
kk 

*k Entry: 

ak None 

kk 

KK Exit: 

aK C(S) contains contents of S-RO-3 

kk 

kk Calls: None. 

ka 

Ak Uses....... 

ae C(A), C(S) 

ka 

kk Stk lvls: 0 

kk 

** History: 

ke 

xk Date Progranrier Modification 
Bi coekecaee (Soseee ae, seek eee te a ete hors le 
Kk 02/07/83 S.W. Added docunentation 
ka 


JOR IOI III IO TO TTT TT TTR RII TIT T IT IT IIIT III NK 
FOI TOO UI II OTT II TI TIT I ITT RIT III II TN 
x 


=RS-RO3 CDIEX Save D1 
01=(5) =S-RO-3 
C=DAT1 S$ 
b1=C Restore D1 
RTN 


Saturn Assenbler Line Parse Driver - Part 1 <83 Fri Dec 30, 1983 2:58 an 


Ver. 3.39/Rev. 2306 Syribol Table Page 44 
ICK Ext - 678 1025 
'CK3 Ext - 804 
#CK Ext - 1961 
ASNNP Ext - 1838 


=AUTCLR Abs 10663 #029A7 - 1104 519 564 
AUTINC Abs 194251 A2F6CB - 12 1106 2080 
=RUTOCK Abs 11213 #02BCD - 2079 


AVS=DO Ext - 563 849 
=BEEPP Abs 10923 #O2RAB - 1669 
BSCEXC Ext - 98 


CKTRN+ Abs 10655 #0O299F - 1053 999 1002 
CKTRNS Abs 10658 #029R2 - 1055 1041 
CL'CK Abs 10001 #02711 - 622 620 


CNV2UC Ext - 2033 
COMCK+ Ext - 1965 
COMCK1 Ext - 1686 
COMCKO Ext = “7995 
CRGJMP Ext - 742 
CRLFOF Ext - 488 
O1=IBS Ext - 602 
DIC=R3 Ext - 1509 
=DELAYp Abs 10950 #02AC6 - 1685 
DSPPO2 Ext - 1036 
ELSEP = Ext - 781 


=EQLCK Abs 10878 #O2A7E - 1580 
EOLCK* Abs 10918 #O2AR6 - 1596 1415 1582 
=EOLCK+ Abs 10878 #O2A7E 1579 1038 1669 


=EQOLCKR Abs 10874 #O2A7A - 1577 1029 
ERRO1 = Ext - 1270 1983 
ERROS = Ext - 1821 
ERRO6 = Ext - 1954 
ERROS = Ext - 813 
ERRDSP Ext - 682 
EXPPLS Ext - 1816 
FILEP+ Ext - 586 

=FIXP Abs 10862 #O2AGE - 1520 1688 
FNP+ Ext a “Lt 
FNP+) Abs 10989 #O2RED - 1812 1000 
FPoll = Ext - 4% 
FSPC10) «Ext - 1424 
FSPC12 Ext - 634 
GETLEE Ext - 93 
GNXTCR Ext - 635 1835 


=GOSUBP Abs 10742 #O029Fb - 1266 
=GOSUBp Abs 10742 #029F6 - 1264 
=GOTOP Abs 10742 #O29FH - 1265 
=GOTOp Abs 10742 #O29F6 - 1263 


I/OAL+ Ext - 879 
=INLETP Rbs 10993 #OCAF1 - 1813 1003 

INBS Abs 194246 #2F6CO ~- 12 486 

LABELP Ext - 1414 


LBLCK Abs 9925 #02605 - 569 546 843 
LBLCK" Abs 9966 #OCOEE - 584 574 
LBLCK’ Abs 9963 #026EB - 583 577 
LBLCK1 Abs 9969 #026F1 - 586 579 


Saturn Assenbler Line Parse Driver - Part 1 <83 Fri Dec 30, 1983 2:58 an 
Ver. 3.39/Rev. 2306 Synbol Table Page 45 


=LBLINP Abs 10756 #0O2RO4 - 1373 1266 1503 199% 
LBLN2O Abs 10794 #OZAZ2R - 1401 1389 
=LBLNIF Abs 10765 #O2ROD - 1388 

=LBLNPE Abs 10749 #029FD - 1269 1963 
LBLRST Abs 9959 #O26E7 - 581 587 
LDCSET Ext - 605 

=LETP Abs 10968 #O2AD8 - 1802 

LETP10 Abs 10993 HOCAF1 - 1814 1804 
LETP15 Abs 11020 #O2BOC - 1823 1819 
LETP20 Abs 11036 #02B1C - 1834 1825 
LETPE4 Abs 11016 #02B08 - 1821 1810 1817 1827 
LEXPTR Abs 194255 H2FOCF - 12 456 
=LINWP Abs 10720 #029E0 - 1210 509 
=LINWP2 Abs 10726 #O29E6 - 1211 1014 1388 
LINEH? Ext - 747 

=LINEP Abs 9760 #02620 - 478 

=LINEP+ Abs 9766 #02626 - 486 

=LINP Abs 10759 #O2RO7 - 1377 

LNEPOO Abs 9864 #02688 - 543 510 
LNEPO1 Abs 9921 #02601 - 567 524 
LNEPO6 = Abs 10070 #02756 - 648 623 629 
LNEPO? Abs 10074 #0275A - 649 551 844 

=LNEP26 Abs 10098 #02772 - 673 529 842 
LNEP27 Abs 10119 #02787 - 682 679 


LNEP3O Abs 10108 #02770 678 665 
LNEP36 Abs 10511 #0290F 1001 1004 1026 
LNEPS5O Abs 10123 #02788 700 «663 «674 
LNEPS2 Abs 10132 #02794 706 


LNEP54 Abs 10141 #02790 - 711 707 


LNEPSS Abs 10155 #027AB 718 «6702712 
LNEPS? Abs 10171 #O27BB 724 = 720 
LNEPS8 Abs 10175 #O27BF 728 = 722 
LNEP60 Abs 10209 #027E1 743 


LNEP61 Abs 10212 HO27E4 - 747 782 
=LNEP66 Abs 10218 HO2Z7ER - 751 680 743 1001 1043 1676 1678 
LNEP67 Abs 10232 HO27F8 - 769° 753 
LNEP68 Abs 10276 #02824 - 787 756 
LNEP7?3 Abs 10298 #O283A - 798 790 
LNEP74 Abs 10311 #02847 - 805 800 
LNEP75 Abs 10327 #02857 - 824 812 
LNEP76 Abs 10327 #02857 - 826 642 797 806 
LNEP78 Abs 10353 #02871 - 843 839 
LNEP8S Abs 10361 #02879 - 849 829 
LNEP87 Abs 10394 #0289A - 876 859 
LNEP88 Abs 10421 #02885 - 888 880 
LNEPS9 Abs 10388 #02894 - 864 567 
LNEPE6 Abs 10137 #02799 - 708 667 676 716 77% 
=LNEPLN Abs 10085 #02765 - 662 
LNPOO =6Abs 10479 HO28EF - 991 653 840 
LNPOS Abs 10482 #028F2 - 992 507 
=LNPO6 Abs 10489 #O28F9 - 994 


LNPIO) }=— Abs_— ss: 10515 #02913 - 1002 995 
LNP5.7 Abs 10062 #O274E - 640 638 
LNP5O = Abs) =: 10526 #O291E - 1009 998 
LNP51 Abs 10581 #02955 - 1028 1022 
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LNP52 
=LNP55 
LNP6O 
LNP63 
LNP?721 
LNPEOL 
=LNPEXT 
LNPLB+ 
LNPLBL 
LNPTR2 
MRINLP 
MAKEBF 
MOVEUA 
NOTTRS 
NTOKEN 
NTOKNL 
NUNC ++ 
NUNCK 
=Ntoken 
OBCOLL 
OBLCNP 
=0NP 
ONP10 
ONP20 
ONP30 
ONP35 
=QNP40 
ONPSO 
ONP60 
ONPE4 
ONPE3 
OUTITK 
QUT2TC 
QUT2TK 
OUT3TK 
QUTB+5 
QUTBS 
QUTBYT 
QUTOVF 
PEDIT 
PEDITD 
PILP+ 
=R.STPR 
R3=01* 
RAWBFR 
RESPTR 
=RESTRP 
=RS~ROZB 
=ROTPRI 
RSTRP? 
=RTNSET 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Rbs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


286 Synbol 


10584 #02958 
10626 #02982 
10634 #O298A 
10640 #02990 
10288 #02830 
9894 #026R6 
9751 #02617 
10012 #0271C 
10021 #02725 
9788 #02630 


11278 #O2COE 


11207 #O2BC?7 


11048 #02B28 
11071 #02B3F 
11091 #02B53 
11112 #O2BE8 
11125 #02B75 
11131 #02B7B 
11156 #O2B94 
11161 #02893 
11152 #02B90 
11087 #O2B4F 


193935 #2F58F 


10701 RO23SCD 
193920 #2F580 


10834 #O2A52 
11283 #02013 
10704 #029D0 
10872 #O2A78 

9731 #02603 
194683 #2F87B 
194688 #2F880 
194689 #2F881 
194699 #2F88B 


Table 


1029 
1042 
1046 
1048 
795 
560 
471 
627 
630 
499 
864 
478 
833 
2142 
2041 
44) 
1964 
1520 
2041 
501 
876 
192? 
1945 
1958 
1964 
1968 
1974 
1985 
1990 
1983 
1954 
724 
1396 
545 
721 
631 
12 
779 
881 
860 
566 
15114 
1165 
1814 
12 
1412 
1503 
2177 
1166 
1524 
464 
12 
12 
12 
12 


1013 


1030 
1032 
639 
550 


617 
473 


2133 
1210 


1685 
783 


1932 
1934 
1962 
1941 
1953 
1980 
1976 
1966 

708 


101? 
1394 


891 
1035 


436 


901 
1622 


700 


1812 
472 
464 

2178 
437 
449 


1015 
1037 


1377 


1968 
1019 


1978 
1986 
1946 


1390 


1577 


2138 
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1039 


1802 


1996 
20 36 
1959 


14114 


1683 
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1982 


1834 


1940 


199? 
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S-R1-3 Abs 194704 #2F8% - 12 1166 
SAVRS+ Abs 9677 #025(D - 446 
STATDO Abs 194705 #2F891 - 12 458 1048 
STMTL+ Ext - 775 826 

sSVRST+ Abs 9638 #O25A6 - 434 

=SVRST2 Abs 9669 #025C5 - 442 
SVRSTU Abs 9632 #025A0 - 432 569 992 
SYCOLL Ext - 894 
SYSFLG Abs 194265 #2F6D9 - 12 218” 
TRANSF Abs 9854 #0267E - 525 561 

=TRNFCK Abs 11236 #02BE4 - 2129 523 560 854 

sUNPRTP Abs 11184 #O2BB0 - 2033 
UPDIN+ Ext - 776 
UPDINA Ext - 432 1024 

=WAITP Abs 10862 HOZA6E - 1519 

=WINDWp Abs 10950 #O2AC6 - 1684 
WRDSC+ Ext - 1674 1974 
WROSCN Ext - 751 1680 1927 
WSRO-3 Ext - §00 
XCHECK Ext - 1161 

=XTOKCK Abs 10688 #02900 - 1160 443 
a’ Ext - 575 
bSTIMT Abs 2049 #00801 - 11-878 
fIRTN Abs -44 HFFFD4 - 11 466 2136 
lblnpe Abs 11108 #02B64 - 1963 1991 
Inep26 Abs 9860 #02684 - 529 522 

sntkent Abs 11204 #02BC4 - 2040 656 841 
pPARSE Abs 244 #OOOF4 - 14491 
resptr Abs 10868 #02A74 - 1522 578 581 648 1042 1423 1517 1670 

1687 
rtncc Abs 11202 #O2BC2 - 2038 1993 
sflage Ext i S21SE 
sflags Ext - 467 
t@ Ext - 273° 795 
tDISP Ext - 1034 
tELSE = Ext - 762 778 1581 
tEOL Ext - §20 640 805 1585 
tERROR Ext - 1931 
tFN Ext - 996 1808 
tGOSUB Ext - 1975 
tGOTO = Ext ~ 1977 
tIF Ext - 714 
tLBLRF Ext - 1410 
tLBLST Ext - 6% 
tLINE® Ext - 1211 
tOFF Ext = 4677 
tON Ext - 1675 
tRESTR Ext - 1979 
tTIMER Ext - 1933 
tXWORD Ext - 718 
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Input Paraneters 
Source file nane is JP&PRI::MS 
Listing file nane is JP/PR1I:TI:ML::-1 
Object file name is JPAPRI:TI:NS::-1 


111111 
0123456 789012345 
Initial flag settings are 
Errors 
None 


Saturn Assembler Neus 
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1 STITLE WORD SCAN 

2 TITLE Parse Routines - Part 2<831212.1204> 

3 02026 ABS #02026 

4 

5 * J PPPP 8 PPPP = RRRR 222 

6 x JP P && P PR R 2 2 

? : JP P&& P PR R 2 

8 % J PPPP & PPPP = RRRR 22 

9 x JP &&& P RR 2 

10 . i de oP & & P R R 2 

11 % JJJ_ oP &&& P R R 22222 

12 . 

13 RDSYNB TIZEQU:: MS 

14 JOO I I IK IIE I IDI ITT I TTA TI IITA S IOS I SII IIIS ISIS SISISS ISIS 
15 JI I ITT IDI ATT IIIT ITI IIIT III III IIIS SI III II IK 
16 ak 

17 ** Wane: (S) WRDSCN - Keyword Scan fron Table 

18 . Nane:(S) WRDSC+ - Keyword Scan fron Table 

19 x 

20 ** Category: PARUTL 

m1 ik 

22 xk Purpose: 

23 .* WROSCN tries to match the text pointed to by D1 with 

24 ae any of the keywords specified by the caller; the 

25 xe acceptable keyword tokens are listed in table fornat 

26 = innediately following the call to WRDSCN or WRDSC+. If 
27 xm one of the specified keywords 1s found, its corresponding 
28 a tokenization 1s output and control branches to the label 
29 a specified by the WRDSCN table. 

30 ax 

31 am To accornplish this, WRDSCN repeatedly calls NTOKEN until 
32 2 token natch 1s found or until all keyword tables in the 
33 ae HP-?71 have been searched. 

34 ak 

3 ax The WRDSC+ entry point is identical to the WRDSCN entry, 
36 ae except that WRDSC+ first calls RESPIR. 

37 ax 

38 kk Entry: 

33 as D(A) = (AVMENE) 
40 RX Table address 1s on return stack upon entry 
41 ae (1e. table inmediately follows GOSUB. ) 
42 am DO points into output buffer 
43 xe 
44 ae WRDSC+: LEXPTR contains address pointing to optional 
45 a blanks preceding characters to tokenize. 
46 aA WRDSCN: D1 at optional blanks preceding characters 
47 ass to tokenize. 
48 ae 
49 e Exres 

50 a P=0 

51 * Match found=> 

52 ae No return to caller; control transferred to 

53 specified label. 

54 a Token output to address pointed to by DO 


55 a Specified token in register A 
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56 ae D1 past specified keyword 

57 ae DO past keyword tokenization 

58 ak 

59 ak Match not found=> 

60 ‘ Return with carry clear 

61 aR Last token found in A(B) 

62 aX D1 past corresponding keyword 

63 ak 

64 pi Calls: NTOKEN, RESCAN, OQUTNBS, RESPTR, XCHECK, XCHEK1 

65 A 

66 RR USOS 5 cides 

67 *k Exclusive: A,B,C,R1,R2 

68 ** Inclusive: A,B,C,R1,R2, 50-83, 511,R0 

63 ax 

70 &K Stk lvls: 3 

71 ak 

72 ** Detaul: 

73 aK 

74 kk Sanple call: 

75 &k 

76 ax GOSUBL =WRDSCN 

7? ak CON(2) =tBASE 1-byte token 

78 kk REL(3) =FIXP If tBASE found, goto FIXP 

79 aR CON(6) =tANGLE 3-byte token 

80 aR REL(3) OPTP10 If found, goto OPTP10 

81 x CON(6) =tROUND 3-byte token 

82 KK REL(3) OPTP20 If found, goto OPTP20 

83 KR CON(2) 0 0 byte terninates table 

84 BR ee Rlainiet 

85 xe code continues here 

86 a 

87 Oe - keen oecuwetsa eee oe ct Saree andes awe 

88 ax 

89 x How it works: 

90 kk 

31 aS Calls the lexical analyzer and scans through table 
$2 =a trying to natch one of the tokens(XWORD or regular) 
93 ee and jurips to an address specified in the table 

94 aK table for that token. 

95 xe If the token returned by the lexical analyzer is not 
96 ae natched but is an XWORD, the lexical analyzer is 

37 a restarted and the table is re-scanned fron the 

98 a beginning. 

99 a If no natch can be found then execution continues 
100 ak following the end of the table. 

101 Rx 

102 a The table consists of any nunber of entries, uhere 
103 aR each entry is a token followed by a 3-nibble relative 
104 ae address which is branched to if that token is natched. 
105 ae A token may be either 2 or 6 nibbles long, depending 
106 ax on whether it is an XWORD/XFN/FFN token versus a 

107 Ax nainfrare token. The table 1s terminated by a 00 
108 am token; the table 1s innediately followed by the code 
109 ax to handle the "otherwise" case (ie. the table has been 


110 aK skipped over). 
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111 xx 
112 ** History: 
113 xk 
114 KK Date Programmer Nodification 
115 Ue Bpkesaee Vege eee: Jacket aa atan Cele eee eat 
116 kk 07/07/82 JP Modified docunentation 
117 Kk 10/17/82 B.S. Modified routine to use 3 nibble 
118 a relative entries instead of 4 nibble 
119 KK absolute. 
120 kk 02/11/82 «B.S. Modified routine to handle FFNs 
121 KK 11/02/83 S.W. Nodified header docunentation. 

xx 
es JOO TI IIIT OIC I II TOTS ITI IIT IDSA AIA IK 
424 JOO II DIIGO ICSI GOTO ETI IOI OTT TIT 
125 O02C26 7845 =WRDSC+ GOSUB RESPTR Restore pointer before NTOKEN 
126 O2C2A 07 =WRDSCN C=RSTK 
127 O2C2C 109 R1=C Save table addr in R1 
128 O2C2F 7000 GOSUB =Ntoken 
129 02C33 10R WRDS1IO R2=C Save Lex restart info 
130 02C36 136 CDOEX 
131 02039 06 RSTK=C Save output pointer on stack 
132 O2C3B 119 C=R1 Recall table address 
133 O2C3E 134 po=C Point DO into table 
134 02041 20 WRDS2O P= 0 
135 02043 15—5 C=DATO 6 Read token fron table 
136 02047 AFS B=C W Save table entry in B 
137 O2C4A 3100 LC(2) =txXWORD Yes, then check if restart needed 
138 O2C4E 960 7BHO | OB Is this the end of the table 
139 O02C51 82 GOYES WRDSSO No, then check this entry 
140 02C53 7170 GOSUB XCHEK1 
141 02C57 4&0 GOC WRDS40 XWORD,XFN, or funny FN ? 
142 O2C5A 161 DO=D0+ 2 No, then no match found 
143 02C5D 07 C=RSTK Recall output pointer 
144 O2CSF 136 CDOEX DO=output pointer, C 1s continue ad 
145 O2Cb2 06 RSTK=C Push return address on stack 
146 02064 03 WRDS35 RTNCC Junp to address past table 
14? x 
148 a. 
149 02C66 07 WRDS40 C=RSTK C <-- Output pointer 
150 02068 7605 GOSUB RESPIR Restore original input pointer 
151 O2C6C ile A=R2 Recall lex restart info 
152 O2C6F 8E00 GOSUBL =RESCAN Restart lexical analyzer 

00 

153 02C75 6DBF GOTO WRBS10 Re-scan table 
154 a 
155 x 
156 02C79 25 WRDSSO P= 5 Length=6 
15? O2C7B 961 *B=C) OB Is it an XWORD? 
158 O2C7E 81 GOYES WRODSSS Yes, then skip 
159 02080 20 p= 0 
160 02082 3100 LC(2) =tXFN 
161 02086 25 P= 5 
162 02C88 961 7B=C «iB Is 1t an KFN ? 
163 O2C8B & GOYES WRDS55 Yes, then skip 


164 O2C8D £6 C=C+1 A 
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165 O2C8F 961 
166 02092 40 


*B=C iB 


GOYES WRDSSS 


Is it a FFN ? 
Yes, then skip 


167 02€94 21 P= 1 No, then length=2 

168 02096 136 WRDSSS CDOEX 

169 02C99 809 C+P+4 Skip past token 

170 O2C9C 136 CDOEX 

171 O2C9F 162 DO=D0+ 3 Skip past junp address 
172 O2CA2 914 7BHA OP Is it a natch? 


173 02CAS C9 


GOYES WRDS2O0 


No, then continue search 


174 O2CA? 182 DO=D0- 3 Yes, then back up to jump address 
175 O2CAR 07 C=RSTK Recall output pointer 

176 O2CAC 136 CDOEX DO=Output pointer, C(A)=table pointe 
177 O2CAF 06 RSTK=C Save table pointer on stack 


178 02CB1 8E00 
00 


GOSUBL =OUTNBS 


Output token 


179 O2CB? 07 C=RSTK Recall table pointer 
180 O2CB9 136 CDOEX DO=Table pointer,C(A)=Output pointe 
181 O2CBC 06 RSTK=C Save Output pointer on RSTK for REL 


182 O2CBE 800 
V0) 

183 

184 02CC4 3100 

185 02(C8 362 


GOLONG =REL3D0 


=XCHECK LC(2) =txXWORD 


XCHEK1 *A=C OB 


Junp to address pointed to by DO 


186 O2CCB 00 RTNYES 

187 O2CCD 3100 LC(2) = tXFN 

188 O2CD1 962 *A=C OB 

189 02(D4 00 RTNYES 

190 O2CD6 E6 C=C+1 A 

191 O2CD8 962 7A=C OB funny FN ? 

192 O2CDB 00 RTNYES 

193 O2CDD 01 RTN Carry clr => none of the above 


194 
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195 STITLE Output Token(s) Routines 

196 JOO GIORGI IST TI IT III IIT IIIS ISI IAI I II IK 

197 JOO I TOO OC TIE IIT ISI II II III IOS IIS TAI III IK 

198 ak 

199 **% Nane:(S) OUTITK - Output 1 byte fron AB) 

200 kk Narie:(S) OUTIT+ - Increment 01, Output 1 byte fron ACB) 

201 ** Nane:(S) OUTBYT - Output 1 byte from C(B) 

202 **% Nare:(S) OUTBY+ - Increrent 01, Output 1 byte from C(B) 

203 ** Narie:(S) OUTZTK - Output 2 bytes fron A(3-0) 

204 **& Nane:(S) OUT2TC - Output 2 bytes fron C(3-0) 

205 *k Nane:(S) QUT3TK - Output 3 bytes fron A(5-0) 

206 &k Narie:(S) OUT3TC - Output 3 bytes fron C(5-0) 

207 *k Narie:(S) OUTNIB - Qutput 1 nibble fron C(0) 

208 xk 

209 ** Category:  GENUTL 

210 ae 

211 ** Purpose: 

212 ah Output specified number of nibbles to address pointed 

213 aa to by DO; a check is nade so that DO does not urite 

214 aR past available nenory end. 

215 a 

216 ** Entry: 

217 x D(A) = (AVMEME) - Available Nerory End 

218 a DO = address at which output to go 

219 a 

220 ah OUTNIB: Nibble to output in C(O) 

221 ae QUTITK: Byte to be output in A(B) 

eee ax QUTIT+: Byte to be output in A(B) 

223 a OUTBYT: Byte to be output in C(B) 

224 ak OUTBY+: Byte to be output in C(B) 

225 xe QUT2TK: 2 Bytes to be output in A(3-0) 

226 a QUT2TC: 2 Bytes to be output in C(3-0) 

227 ee OUT3TK: 3 bytes to be output in A(5-0) 

228 < OUT3TC: 3 bytes to be output in C(5-0) 

229 xk 

230 ee EMTs 

231 ee No nenory error => 

232 + Carry clear on exit 

233 ae DO increnented past the tokens that were output 

234 xx D1 increnented by 2 (OUTIT+, OUTBY+ entries only) 

235 ax A(B) & C(B) are swapped (QUTBYT, OUTBY+ entry) 

236 ae ACA) & C(A) are swapped (OUT2TC entry only) 

237 wa A(W) & C(W) are swapped (QUT3TC entry only) 

238 aR 

239 ae Else 

240 ax golong MENERR 

241 a 

242 ** Calls: OVFLCK 

243 aR 

244 ** Uses: DO (OUTNIB, OUTITK, OUT2TK, OUUT3TK) 

245 Be 01,00 (OUT1T+) 

246 en A(B),C(B), DO (QUTBYT) 

247 RS A(B),C(B), D1,D0 (QUTBY+) 

249 #8 A.C, 00 (OUT3TC) 
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250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 O2CDF 171 
264 O2CE2 580 
265 

266 O2CES 171 
267 O2CE8 AEE 
268 O2CEB 161 
269 O2CEE 7940 
270 O2CF2 181 
271 O2CF5 148 
272 O2CF38 161 
273 O2CFB 03 
274 O2CFD DE 
275 O2CFF 163 
276 O2D02 75H 
277 O2006 183 
278 O2009 1583 
273 O2D0D 163 
280 02010 03 
281 O2012 RFA 
282 02015 165 
283 02018 7F10 
284 O2D1C 185 
285 O2D1F 1585 
286 O2023 165 
287 02026 03 
288 O2028 160 
289 O2D2B 7000 
290 O2D2F 180 
291 02032 15C0 
292 02036 160 
293 02039 03 
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xk 


Ae Stk lvls: = 4 


ak 


&k History: 


ak 


an Date 
tn 


&k 07/07/82 JP 


aK 11/02/83 


ak 


S.W. 


were enn eee 


3:01 an 
Page 6 


Fra Dec ®, 1983 


Modification 
Modified docunentation 
Nodified docunentation header. 


FORT RJ OO OOOO TOTTI TTT TTT I 
FORO IO OO TOT TTT RT TO TTT TOT TTT ITT 


& 
=QUT1T+ 


x 


=OUTBY+ 
=OUTBYT 
=OUT1TK 


=OUT2TC 
=OUT2TK 


=OUT3TC 
=QUT3TK 


=QUTNIB 


D1=D1i+ 2 
GONC OUTITK 


D1=D1+ 2 
ACEX 8B 
DO=D0+ 2 
GOSUB OVFLCK 
DO=DO0- 2 
DATO=A B 
DO=D0+ 2 
RTNCC 
ACEX A 
DO=D0+ 4 
GOSUB OVFLCK 
DO=DO~ 4 
DATO=A 
DO=D0+ 
RTNCC 
A=C W 
DO=D0+ 6 
GOSUB OVFLCK 

6 

6 

6 


> b> 


DO=D0- 
DATO=R 
DO=D0+ 
RTNCC 
DO=D0+ 1 
GOSUB 
DO=DO- 1 
DATO=C 1 
DO=D0+ 1 
RTNCC 


(B.E.T.) 
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294 STITLE OVFLCK - Overflow Check 
295 JU OO IIIT IIIT TI ISIS IIS SOIT I SO SSSI IK 
296 JR III II IORI ITI IIIA IIT III SDI IIIS SI III IST IIIS SSSI IA 
297 ak 
298 *k Nate: OVFLCK - Menory Overflow Check 
299 aK 
300 kk Category:  GENUTL 
301 aK 
302 ** Purpose: 
303 ak Ensure that DO setting is not beyond the end of 
304 ak available nenory. 
305 ak 
306 kk Entry: 
307 aR D(A) = (AVMENE) 
308 ae DO contains proposed end of output buffer 
309 ak 
310 RA ERA Y: 
311 aK Return to caller with carry clear if DO <= D(A) 
312 x Else golong MEMERR 
313 ak 
314 *k Calls: None 
315 ae 
316 #% USG6. os bss None 
317 ak 
318 ** Stk lvls: 0 
319 - 
320 an Date Progranner Modification 
321 Mien Go ge wd, ob SeeMOR ES + ihe Sua et oat ce een ee 
322 - 07/07/82 IP Modified docunentation 
x 
324 JE III IAI IIIT II IDI I IAI IIIS SSI III SIS SSIS III IIIS SII IIA 
325 FOO III III OI TI TTT TUTTO TTT TO TK 
326 0203B 136 OVFLCK CDOEX 
327 O2D3E 8B? 7C>d 3A 
328 02041 70 GOYES OQUTOVF 
329 02043 136 CDOEX 
330 02046 01 RIN 


331 02048 8COO =OUTOVF GOLONG =MENERR 
00 
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332 STITLE OPTION Parse 
333 SI III IR ITO STOTT SID IOS II III ID II III IAI IAISISS III SIS ISS IIA 
334 23 OI ISOS TIS ISIS IOI SSI OS SS IIS III STS: 
335 ax 
336 %* Nane: OPTP - OPTION Statenent Parse 
337 Re 
338 *k Category: | STPARS 
339 Ae 
340 ** Purpose: 
341 ae Parse OPTION statnent 
342 ak 
343 &* Entry: 
344 ak D1 past OPTION keyword 
345 x DO past tOPT’N 
346 tk D(A) = (AVMEME) 
347 ie 
348 tk Exit: 
349 ak Valid statenent parse => 
3) hk Return with carry clear 
351 x D1 past syntactically correct statenent 
352 Aa DO past tokenized statenent in output buffer 
353 = 
354 ax Exit to PARERR if parse error 
355 a 
356 ** Calls: WROSCN 
357 ak 
358 AX USCS a isccu 
359 ** Exclusive: A,C, 0O,D1 
360 *x Inclusive: A-C, DO,D1, RO-R2, SO-$3,S11 
361 x 
362 ** Stk lvls: 4 
363 ae 
364 ** Detail: 
365 a OPTION BASE <nureric expression> 
366 > OPTION ANGLE DEGREES | RADIANS 
367 ak OPTION ROUND NEAR | PINF | NINF {| ZERO 
368 “ 
369 ** History: 
370 aK 
371 KS Date Prograriner Modification 
372 KE Slsctess.. SoseeScesce. -wesecscssceec So cl ee Sees Soe es 
373 ** 07/07/82 IP . Modified docunentation 
374 kX 10/06/82 PM Added Round option 

? ke 
a SII II IID II ITI IIIS ADI IIIS III III SSI IIIS IS III ITI II III III III SSSI: 
377 SII IIR III I IOI ISI III IDI SIS IIS ISIS IASI SSO SIS IIS III SI SII IS II III STA 
378 : 
3739 O2D4E 780E =OPTP GOSUB WRDSCN 
380 02052 00 CON(2) =tBASE 
381 02054 000 REL(3) =FIXP NUNCK, RESPTR 
382 02057 3B10 CON(6) =tANGLE 

60 


383 O205D 110 
384 02060 FE1O 
c4 


REL(3) OPTP10 
CON(6) =tROUND 
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385 02066 B10 
386 02069 00 
387 O2D6B SF3 
388 


389 O2D6E 78BE OPTP1O 


39% 02072 00 
391 02074 746 
392 0207? 00 
393 02079 246 
394 O2D7C 00 
395 O207E 5C2 
396 


397 02081 75AE OPTP20 


398 02085 FE1O 
C3 
399 O2D8B 036 
400 O2D8E 3B10 
24 
401 02094 726 
402 02097 FE10 
D3 
403 O2D9D E16 
404 O2DAO FE10 
C1 
405 O2DA6 516 
406 O2DA9 00 


x 


x 


REL(3) OPTP20 
CON(2) 0 
GONC OPTP30 


GOSUB WRDSCN 
CON(2) =tDEGRE 
REL(3) RTNCC 
CON(2) =tRDIAN 
REL(3) RTNCC 
CON(2) 0 

GONC  OPTP30 


GOSUB WRDSCN 
CON(6) =tNEAR 


REL(3) RTNCC 
CON(6) =tPOS 


REL(3) RTNCC 
CON(6) =tNEG 


REL(3) RTNCC 
CON(6) =tZERO 


REL(3) RTNCC 
CON(2) 0 


407 O2DRB 6390 OPTP30 GOTO  ERRO3 


(B.E.T.} - Ill. Parr error 


(B.E.T.) 
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408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
4% 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 O2DAF 136 
444 


STITLE Update INADDR 
SISO IIIT TTI ITI ITT IIT SAIS IIS ISIS III LI TIL TAI STI IIIT IIT 


FOR RII ROJO RO OO OTITIS TTT TTI 
ak 


** Nane: UPDINA - Update INADDR, Step over Stnt Length 
as 


** Category: PARUTL 


ae 
** Purpose: 

a Updates INADDR & steps over stnt length byte 

es 

** Entry: 

aX UPDINA - DO points at statenent length byte 

aA UPDIN+ - C(A) points at statenent length byte 

ae 

RPEMIT: 

an INADDR updated, and DO increnented past stnt length 
an Carry clear 

tox 

** Calls: None 

ek 

RF USES soiacee 


** Exclusive: INADDR,DO, UPDINA: C(R) 
*k Inclusive: INADDR,DO, UPDINA: C(A) 
kk 


kK Stk lvls: 0 
kk 


xk History: 
i 


xk Date Progranner Modification 
BE cee. a coe ece, . - seee eee ecb ee ea te Soe 


kk 07/07/82 JP Nodified docunentation 

tk 
JORG OO IO COOTER 
FOOTIE ICO IOC OC TOC TOE RIK 


=UPDINA CDOEX 
k 


445 O2DB2 1B00 =UPDIN+ DO=(5) =INADDR 


000 
446 02DB9 144 
447 O2DBC 134 
448 O2DBF 161 
443 O2DC2 01 


DRTO=C A 
bO=C 
DO=D0+ 2 
RTN 
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450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
434 
485 
486 
487 
488 
489 
4% 
491 
492 
493 
494 
495 
436 
497 
498 
499 
500 O2DC4 84A 
501 O2DC7 ?DIF 
502 O2DCB 136 
503 O2DCE 108 
504 02DD1 1800 


STITLE Calculate Statenent Length 
JOO IOI IOI IC IO ICIS IOI TOOK 


JI IO IASI IIIA I IIIS ISI ISIS III III ISS III ISS IIIS ISI SII: 
kk 

**x Nane: STMTLO - Calculate and Write out Staternent Length 
** Nane: STMTL+ - Calculate and Write out Statenent Length 
kx 


** Category:  PARUTL 


&k 
** Purpose: 

ax Calculates and writes out statenent length. 

ae STNTL+ also clears $10, the inplied LET error flag. 

kk 

*k Entry: 

ae DO past tokenized statenent terninator 

a INADDR points to staterient length byte 

aK 

FEE RIT: 

aK If tokenized statenent <= 253 nibbles 

an Exit with carry clear 

Kx Statenent length byte uritten out to INADDR. 

KK (S-RO-0) = (INADDR) - For literal labels in an IF stmt 
&k 

oe Else error exit to MFERR 

aa 

** Calls: OUTBYT 

tok 

RE USCS viwre'ne « 

xx Exclusive: A(A),C(A),RO,S-RO-O, STNTL: S10 

x* Inclusive: A(A),C(A),RO,S-RO-O, STNTL: S10 

tk 

x¥ Stk lvls: 2 

kk 

** Detail: 

ae Doesn’t update INADDR 

kk 

** History: 

a 

a Date Progranner Modification 

FR die tloe Ee Geoecsuuhene pata sen ssi woeeeee cas gouuucoed 
kk 07/07/82 JP Modified docunentation 

Kk 04/27/83 SLU. Added ’Line Too Long’ error exit 

kK 05/05/83 SLU. Limit length of tokenized stnt to FD 
Ae to fix restart after THEN bug#649-4 


xx 

FOR I OT IOI OTTO IIIT IORI IO 
FOO OOO OSI OOO OO IIIT 
* 


* Calculate Statenent Length 
x 


=STMTL+ ST=0 = 10 Clear Iriplied LET error flag 


=STMTLO GOSUB OUTBYT 
CDOEX Output Buffer End 
RO=C 


DO=(5) =INADDR 
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000 

505 02DD8 142 A=DAT A ADDR OF STATEMENT START 

506 O2DDB 86A 7$T=0 10 

507 O2DDE BO GOYES STNTL2 

508 O2DE0 1R00 DO=(4) =S-RO-0 
00 

509 O2DE6 140 DATO=A A Save INADDR in S-RO-0 

510 O2DE9 E2 STMTL2 C=C-A A LENGTH OF STATEMENT 

511 O2DEB 92E CHO = XS 

512 O2DEE 41 GOYES STNMTLe Tokenized stnt > 253 nibs ? 

513 O2DFO CE C=C-1 A 

514 O2DF2 CE C=C-1 A 

515 O2DF4 130 DO=A 

516 O2DF? 14C DATO=C B WRITE OUT STATEMENT LENGTH 

517 O2DFA 118 C=RO 

518 O2DFD 134 DO=C 

519 02E00 01 RIN 

520 * 

521 * Even if XWORD or XFN, don’t bother restarting since parse was | 

522 x 


523 O2E02 1A00 


525 


00 
524 02608 6741 
& 


STMTLe DO=(4) =eL2LNG 
GOTO ERRX20 





Saturn Assenbler 


Ver. 3.39/Rev. 2306 


526 
527 
528 
529 
530 
§31 
532 
§33 
534 
$35 
536 
537 
538 
§39 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
52 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
$69 
§70 
$71 
§72 
573 
574 
§75 
576 
57? 
578 


xk 
ak 
ak 
xx 
ak 
xk 
xk 
ak 
ax 
ax 
a 
ax 
xk 
ar 
as 
xx 
an 
ak 
ax 
xx 
ak 
ax 
ak 
xk 
xk 
ax 
ak 
xx 
xk 
a 
a 
an 
xx 
a 
ak 
ax 
xk 
xx 
xx 
ak 
xk 
ak 
an 
xk 
ak 
xt 
a 
wR 
ak 
xk 
x 

* 
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STITLE !' Check 


IS AIA III AISI TIKIT III II III ITI III II IIIS III II III ISIS ISI IIS IIIS ATI 
KI IIT IIIT II IRI II IIIS IIIS ISI IST ISI IIS III ISIS ISS II III IIIS SII SST SS 
Nare: 'CK - (Check for "!"3 if found, parses renark 
Nane: 'CK2 - (Check for "!"3 if found, parses renark 
Nane: ICK3 - Qutputs "!", then parses renark 
Category:  PARUTL 
Purpose: 

Checks for ! 
Entry: 

P=0 


DO points into output buffer 

D(A) = (AVMNENE) 

3 entry points: 

1) 'CK - LEXPTR contains address pointing to alleged ! 
2) 'CK2 - D1 points at alleged ! 

3) 'CK3 - D1 past ! 


Exit: 
For entry points !CK and !CK2 : 
Carry set => ! not found 
DI=(LEXPTR) - 'CK entry only 
Carry clr => cornnent parsed 
D1 at OD (end of line) 
DO past tokenized cornent 


For entry point !'CK3 : 
See carry clr above 


All three entry points can conceivably error exit 
with MEMERR - Insufficient mnenory to tokenize line 
Calls: RESPTR, QUTBYT 
US@Sica is xes 
Exclusive: A,C,DO,01 
Sth lvls: 2 
History: 
Date Progranrer Modification 
07/07/82 JP Modified docunentation = 


FOO IOI OOOO OSI IO OOO IOI 
SOI IIT III II IOI III III 


579 O2EOC 7263 =!C(K GOSUB RESPIR 


580 O2£10 148 


A=DATI B 
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581 0213 3112 =!CK2 LCASC \!\ 
582 02617 966 7ARC OB 
583 O2E1A 00 RTNYES 
584 x 
585 02610 171 3 'CK+ 01=D1+ 2 
586 & 
587 O2E1F 3100 ='CK3 LE(2) =t! 
588 O2E23 71CE GOSUB OUTBYT 


589 O2E27 6000 GOTO =REMP SUPPRESS 1ST LEADING BLANK 
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5%” STITLE Parse Error Exit Routine 
594 JI III I IAT III TTT STIG T TIS IAI IS IISA III IIIS III III IAT IIIA 
592 JO III IO IK ITI TIT TST OTITIS III IIIT IIT II III III IIIS AISA 
593 a 
594 &* Narie:(S) SYNTXe - "Syntax" Parse Error Exit 
595 ** Narie:(S) IVEXPe - “Invalid Expression" Parse Error Exit 
596 kK Narie:(S) IVPARe - “Invalid Parameter” Parse Error Exit 
597 ** Narie: ERR3 - “Invalid Paraneter" Parse Error Exit 
598 *k Narie:(S) MSPARe - “Missing Paraneter" Parse Error Exit 
599 ek Narie:(S) IWARe - “Invalid Variable" Parse Error Exit 
600 kX Nane:(S) ILCNTe - “Illegal Context" Parse Error Exit 
601 ek Narie:(S) EXCHRe - “Excess Characters" Parse Error Exit 
602 *k Narie:(S) QUOEXe - "Quote Expected" Parse Error Exit 
603 ** WNarie:(S) PRNEXe - "“) Expected" Parse Error Exit 
604 kK Nane:(S) FSPECe - “Invalid Filespec" Parse Error Exit 
605 &K Narie:(S) PARERR - Generic Parse Error Exit 
606 ax 
607 ** Category: PARUTL 
608 ax 
609 ** Purpose: 
610 ah Parse ERROR Exit Routines. 
611 ak The 1st 11 entry points above all fall into PARERR. 
612 ak Depending on entry conditions, PARERR may: 
613 ak 1) Display the error message and redisplay the line, 
614 ze with the cursor flashing on the character pointed 
615 es to by D1 or (LEXPTR). 
616 ae or 
617 ak 2) Atterpt to reparse the statenent as an inplied 
618 aK DISP. (S10=1,S9=0 on entry) 
619 ak or 
620 a 3) Attempt to reparse the statenent as an inplied 
621 ak GOTO <label>. (S9=S10=1 on entry) 
622 ak or 
623 ak 4) Restart the lexical analyzer and reparse the 
624 ax entire statenent. (RESTART flag nonzero) 
625 ae 
626 Rk Entry: 
627 ax S4=1 if D1 set at error position. 
628 ax S4=0 if LEXPTR contains address of error position. 
629 ie $10=1 if implied LET error (try implied DISP) 
630 ae S10=S9=1 if middle of IF stmt and inplied LET error 
631 ak 
632 xe This entry condition is handled by the driver: 
633 ae S-R1-3 (RESTART Flag) = 0 => Don’t restart 
634 ae = F => Normal restart 
635 ak = E => Restart of extended IF 
636 ae 
63? am PRRERR ~ Lower 4 nibbles of DO contain error# 
638 =n 
633 AX ERI: 
640 tk If $10=0, (S-R1-3)=0 on entry 
641 ee Exit through MFERR: 
642 - Display error message 
643 ax Redisplay Input Line with Cursor at Error 


644 aR Returns to Main Loop 
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645 RK 

646 ae If RESTART flag set (S-R1-3)#0 on entry 

647 * exit through RESTAR 

648 tk 

649 aK If *Normal’ inplied LET error (S10=1 & S9=0) 

650 ax Try implied DISP parse 

651 ate 

652 ak If Inplied LET error & Middle of IF (S$10=S9=1) 

653 Rx Try implied GOTO <label> parse 

654 ik 

655 e* Calls: RESPTR, R3=D10, DIC=R3, EOLCK, RSTRT?, TRNFCK, 

656 RK EOLCK+, NTKEN+, UPDIN+, LBLINP 

657 aK 

658 ** Uses: A-C, RO,R3, DO,D1, $4,$8-S10 

659 ak 

660 &* Stk lvls: 1 

661 aR 6 if Inplied LET/Middle of IF /Restart 

662 a 

663 ak 

664 ** Algorithn: 

665 aK If $4=0 

666 ax THEN RESPTR 

667 hk If RESTART flag (S-R1-3) set 

668 aK THEN goto RESTAR; 

669 ax ELSE If previously restarted (S-R1-) [err#} #0) 

670 ae THEN Restore D1 to original error position 

671 as using S-R1-1; Set DO from S-R1-0; 

672 ax If Implied LET error (S10=1) 

673 a Restore D1,D0 fron R3; Clear S10; 

674 RK If not in middle of IF (S9=0) 

675 ax THEN try implied DISP 

676 ax ELSE Decrenent DO 4 nibbles 

677 ak (over tEXTIF & stut length byte); 

678 a Recover old INADDR from S-RO-0; 

679 a Call GOSUBP; 

680 ax Handle as error. 

681 aK 

682 ** Note: 

683 ae If error is ILLEGAL CONTEXT & S93 is set, then S10 

684 aX is cleared. This prevents illegal context errors 

685 ay inriediately after THEN/ELSE fron being interpreted 

686 ax as labels. 

687 ax 

688 ** History: 

689 ak 

690 Rx Date Progranmer Modification 

691 ie Suussoies* Sgaytobcsnes * SoAcbocoucs 

692 Kk 01/07/83 S.W. Added algorithn 

693 *k 02/04/83 JP Added rineuronc entry point nanes 
ak 

oe SII IIIT IT IIIT IIIS IASI III III IIIS IIIS III III IIIS ISI IIIS IIIS TTS: 

696 JIS II OT II SIO TIT IS OT IIIT OS III TIT III III III III IIIA III IIA 

697 x 

698 O2E2B =SYNTXe 


699 O2E2B 1AOO =ERRO1 DO=(4) =eSYNTX Syntax 
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00 
700 02E31 6600 GOTO  ERRXO 
701 x 
702 02E35 =IVEXPe 
703 O2E35 1AOO =ERRO2 00=(4) =eILEXP Invalid Expression 
00 
704 O2E3B 6CCO GOTG  ERRKO 
705 x 
706 O2E3F =IVPARe Invalid Paraneter 
707 O2E3F 874 =ERROZ ?ST=1 4 NO RESTORE OF INPUT PTR? 
708 O2E42 60 GOYES ERR3* 
709 02E44 7A23 GOSUB RESPIR MUST CALL WROSCN ’CAUSE OF tELSE 
710 O2E48 7000 ERR3* GOSUB =EQLCK+ Check if @ EOL 
711 O2E4C 844 ST=0 4 NEED INPUT PTR RESTORED NOW 
712 O2E4F 40 GOC ERRO4 
713 x 
714 x 
715 O2E52 1RAO00 =ERR3 00=(4) =eILPAR Invalid Paran 
00 
716 O2E58 GFRO GOTO  ERRXO 
717 x 
718 O2E5C =MSPARe 
719 O2ESC 1AOO =ERRO4 DO=(4) =eNSPAR Missing Paran 
00 
720 O2E62 65AO : GOTO  ERRXO 
721 
722 O2E66 =IVVARe 
723 O2E66 1A00 =ERROS 1O=(4) =eILVAR Invalid Var 
00 
724 O2E6C 6B90 GOTO  ERRXO 
725 & 
726 O2E70 =ILCNTe 
727 O2E70 1RAO0 =ERROG 00=(4) =eI LENT Illegal context 
00 
728 02E76 869 ?$T=0 9 
729 O2E79 EO GOYES errxd0 
7H * If $10 & S9 set, then ILLEGAL CONTEXT after THEN/ELSE 
731 * Don’t want it interpreted as a label 
732 O2E7B 84A ST=0 10 
733 O2E7E 580 GONC = eerrxd0 (B.E.T.) 
734 k 
735 O2E81 =EXCHRe 
736 O2E81 1AOO =ERROS D0=(4) =eEXCHR Excess Char 
00 
737 O2E8? 6080 errxO GOTO  ERRXO 
738 & 
739 O2E8B =QUOEXe 
740 OZ2E8B 1AOO =ERROO 00=(4) =eQUOEX Quote Expected 
Qo 
741 0O2E91 6670 GOTO  ERRXO 
742 
743 O2E95 =PRNE Xe 
744 02£95 1RAO0O =ERR10 DO=(4) =ePRNEX ) Expected 
00 


745 O2E9B 6C60 GOTG  ERRXO 
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746 x 
747 * Triplied LET Error AND Middle of IF (ERRIF* entry) 
748 * OR 
749 * Failed parse of restarted keyword (ERRIF entry) 
750 * (nay be function or sone other keyuord) 
751 x 
752 * LBLINP clears $9,S10 
753 x 
754 * Don’t allow unquoted label that contains a begin BASIC 
755 : keyuiord, whose parse previously failed - restore error info 
756 
757 O2ESF 854 ERRIF ST=1 4 Flag for don’t allow unquoted lbl 
758 O2ER2 7000 GOSUB  =ntkent containing begin BASIC keyword 
759 O2ER6 873 ST=1 3 
760 O2ER9 50 GOYES ERRIF1 BEGIN BASIC? 
761 O2EARB 844 ST=0 4 Allow unquoted label 
762 * Don’t want failed Begin BASIC XWORD parse to be interpreted 
763 * as a label - want to see the correct parse error 
764 O2ERE 70C2 ERRIF1 GOSUB RESPTR 
765 O2EB2 183 ERRIF* DO=D0- 4 Back up over tEXTIF & STMT LEN 
766 O2EB5 132 ADOEX SAVE DO 
767 O2EB8 1B00 DO=(5) =S-RO-0 
00 
768 O2EBF 146 C=DATO A Get old INADDR (before tIF) 
769 O2EC2 CEE GOSUB UPDIN+ 
770 O2EC6 130 DO=A RESTORE DO 
771 O2EC3 7000 GOSUB =LBLINP 
772 O2ECD 471 GOC ERRIF2 Error in Label? (Syntax error) 
773 * Legal label 
774 O2EDO 877 ST=1 7 String expr? 
775 O2ED3 70 GOYES ERRIF+ 
776 * Unquoted label 
77? O2EDS 874 *ST=1 4 Failed begin BRSIC keyword parse? 
778 O2ED8 02 GOYES ERRIFS Yes=> RESTART or restore error inf 
779 O2EDA 7000 ERRIF+ GOSUB =EOLCK 
780 O2EDE 5FO GONC  ERRIF3 Excess characters? - N.Func u/parns 
781 O2EE1 6000 GOTO =LNPS5 Restore ptr; goto LNEP66 
782 * $9,510 are clear; error in label parse 
783 O2EES 1RA00 ERRIF2 DO=(4) =eSYNTX 1st char illegal 
00 
784 O2EEB 4C0 : GOC ERRIF9 (B.E.T.) 
785 
786 O2EEE 1A00 ERRIF3 00=(4) =eEXCHR Excess characters 
00 
78? O2EF4 7A72 FRR? GOSUB RESPTR 
788 
789 O2EF8 858 ERRIF9 ST=1 8 
790 O2EFB 6810 GOTO ERRX11 
791 x 
792 O2EFF 4F9 genet COC ERRIF (B.E.T.) 
793 
794 O2FO2 =FSPECe 
795 O2FO2 1ROO =ERR11 DO=(4) =eFSPEC Illegal Filespec 
00 


796 ‘ 
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797 
798 
793 
800 
301 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
82? 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 O2F50 
842 O2F54 
843 

844 O2F57 
845 O2F59 
846 O2F5B 


O2F08 
O2F08 
O2FOB 
O2FOD 


O2F 114 
02F 14 
02F1? 
O2F 18 
O2FIE 
O2F 20 
O2F23 
O2F 25 
O2F 29 
O2F 2C 
O2F 2F 
O2F 32 


O2F 34 
O2F 38 


O2F 3B 
O2F3E 
O2F40 
O2F44 
O2F48 


O2F 4 


847 O2F 61 


848 
843 O2F 67 


874 
7162 


848 
844 
7DEO 
585 


86A 
D2 
7E11 
134 
84A 
879 
08 


7000 
5E2 
87A 
iC 
3100 
70AD 
7000 


6000 


2000 
581 


8000 


1ROO 
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x 
x 
* DO = Error Number 
x 
x 
k 


If S4=0 then Restore Input Pointer 


=PARERR 
=ERRXO = ?ST=1 
GOYES 
GOSUB 
x 
=ERRX10 
ERRX11 


ST=0 
ST=0 
GOSUB 
GONC 
p= 
?ST=0 
GOYES 
GOSUB 
DO=C 
ST=0 - 
2ST=1 
GOYES 
* Inplied LET 


4 
ERRX10 
RESPTR 


8 

4 
RSTRT? 
RESTAR 
0 

10 
ERRX20 
DIC=R3 


Restart? 


Not inplied LET error? 


10 
9 
ERRIF* 


Clear Inplied LET error 


error 


* If in a TRANSFORM, DO NOT allow Inplied DISP 


GOSUB 
CONC 

* 

=ERRDSP ?ST=1 
GOYES 
LC(2) 
COSUB 
GOSUB 

k 


Inep66 COTO 


Woe Oe Oe ee 


ERRX20 GOSUB 
CONC 


* 


p= 
R=0 


GOSUBL =MFERR- 
GOLONG =MRIN1IO 


x 


=TRNFCK 
ERRIDS 


19 
errif 
=tDISP 
OUTBYT 
=DISPP 


Traps out string functions 
after THEN/ELSE 


=LNEP66 


Set P to indicate Parse Error, Update ERR# 
Set A=0 to get BASIC prorpt 
gosub to Nainfrane Error Handler 
golong Main Loop 


(MFERR- ) 


If called by TRANSFORM, exit with DO loaded 
with error#, and carry set 


=TRNFCK 
ERR-TR 


8 Parse Error setting 
A BASIC cursor setting 
Assunes DO=Error # 


Return to Main loop 


ERRIDS DO=(4) =eSYNTX 
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00 
850 O2F6D 06 ERR-TR RSTK=C Push address on stack 
851 O2F6F 13€ CDOXS . Want err# in C(3-0) 
852 O2F72 02 RTNSC 


853 & 


bo 
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854 STITLE RESTAR - Restart Lex Analyzer 
855 JI IOI ATID IIT IIIT TI IT IIR III ITI IIIT II III III IIIT IIIS ITI IIASA A 
856 SII II TDI TT TIT IIT SISK I IS III III III III III IIIS SOI IIS ITI SII IA 
857 zy 
858 xx Narie: RESTAR - Restart Lex Analyzer 
859 ** Narie:(S) REST*  - Restart Lex Analyzer 
860 aR 
861 ** Category: PARUTL 
862 aR 
863 *x Purpose: 
864 x Restarts the Lexical Analyzer uhen the parse of an XWORD 
865 a token fails; allows the parser to find smaller keywords 1 
866 ak the sane LEX file, as well as similarly spelled keywords 
867 ae in other LEX files. 
868 ze 
869 ax The RESTAR entry point is used by the parse error driver 
870 +e to try all possible statenent parses, before reporting an 
871 ak error; the original parse error and position is saved and 
872 ak is later restored if all subsequent parse attenpts fail. 
873 as 
874 KR The REST* entry point is used by a LEX file when a parse 
875 kk fails and it 15 known that RESTAR will find a subsequent 
876 a statenent parse in the mainframe which can give a clearer 
87? a tore coherent error nessage. This entry point ensures 
878 Xk that the caller’s error nuriber and error position is NOT 
879 xR preserved anywhere - it is as though the keyword was neve 
880 ae found. 
881 - 
882 xk Entry: 
883 ea (STMTDO) = Input pointer for restart 
884 aR (S-R1-2) = Restart Address 
885 ae 
886 a 2 entry points: 
887 = RESTAR - If RESTAR hasn’t been previously called 
888 x Then C(A)=0 
889 ef DO=Latest error# generated 
890 ae D1=S-R1-0 
894 a A(A)=Error position 
892 ot Else... 
893 an (S-R1-0)=Griginal error# 
894 a (S-R1-1)=Original error position 
895 a If not failed label parse after THEN/ELSE 
896 Then S$8=0 
897 a (INADDR) = addr of last stnt length byte 
898 = C(S)HE iff Extended IF 
8399 aE Else... 
KO a $8=1 
%1 a R3(A) pts 2 nibs past last stnt len byte 
902 ax 
903 ax 
904 a REST* - (INADDR) = address of last strit length byte 
905 ax (S-R1-3)8#F aff Extended IF 
906 ak 
907 xk 
908 PA ERTL: 
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909 . Control is turned over to the main parse driver. 
910 
911 Calls: RESPTR, RESCAN,R. STPR, STLXP2, SVRST2, EXTIF+ 
912 x 
913 ak Uses....... 
914 kk Exclusive: A,C,D01,D0,S8 
915 kk Inclusive: A-C, D1,D0, S0-S3,S8,S11, RO,R3 
916 ae 
917 ke Stk lvls: 3 
918 ak 
919 *k Detail: 
920 ax The component parts of RESTART are as follous: 
921 ae S-R1-0 Original error#; set prior to ist tine 
922 hi through RESTAR 
923 ah $-R1-1 Original error position; set prior to Ist 
924 ak tine through RESTAR 
925 ax S-R1-3 Flags the parse error handler whether or 
926 ax not to RESTART the lexical analyzer. 
927 da If S-R1-3 is nonzero, STMTDO contains the 
928 ak address at which to set D1 to restart and 
929 ak S-R1-2 contains the restart address. 
930 aie S-R1-3 1s cleared when NTOKEN is first 
931 aK called; It is set (along with STMTDO) when 
932 x the begin BASIC token is an XWORD. 
933 ak S-R1-2 Contains RESTART address. Set initially 
934 » when NTOKEN first called. Updated when 
935 ak RESCAN called in RESTAR. 
936 we STNTDO Contains address at which D1 should be at 
937 ak when restarting the lexical analyzer. Set 
938 ax and cleared with S-R1-3. 
939 ak 
940 kk Algorithn: 
941 RK If 1st tine thru RESTART for this lexene 
942 ak (S-R1-0 contains 0) 
943 ae Save err# in S-R1-0 & position in S-R1-1; 
944 aK Clear RESTART flag (S-R1-3); 
945 ax Get input ptr fron STNTDO & write out to LEXPTR 
946 ak (needed cause RESCAN doesn’t save as NTOKEN does); 
947 aK Retrieve RESTART addr for lexical analyzer (S-R1-2); 
948 ak Restore DO fron INADDR; 
949 ak Call RESCAN; Set RESTART flag (S-R1-3) if XWORD/XFN; 
950 ak Save RESTART address in S-R1-2; 
951 aR Goto H (main parse driver - JP&PR1). 
952 xe 
953 *k History: 
954 a 
955 ax Date Progranner Modification 
956 BX. Sueteace.. Ceesewaeehk.* Mowe oe et ashe ue ee eeanha 
957 kk 07/06/82 JP Modified docunentation 
958 Kk 08/23/82 = S.W. Added docunentation on $-R1-2, S-R1-3 
959 ak and STMTDO. 
960 ee 11/15/82  S.W. Deleted error exit option - wasn’t 
961 et used anyuhere 
962 ek 05/24/83 SW. Added REST* entry point for use by 
963 ak language extensions; this is an alter 
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964 aK tive to the ’usual’ error exit (the 
965 aK usual error exit saves the original 
966 aK error and restores it if no other par 
967 xk works). REST* can be used ONLY if it 
968 RK known that restart will eventually gi 
969 a control to a mainfrane parse routine; 
970 ax REST* can be useful to prevent obscur 
971 RR error messages. If a previous parse 
972 ak error occured, the first one generate 
973 a in the ’usual’ way is preserved; othe 
974 aK wise the next error generated in the 
975 ae ’usual’ way (not using REST*) is 
976 ak preserved. 
977 ak For exanple: 
978 ak The HPIL parse for ON INTR, nay choo 
979 ak to suppress its error nessage/positio 
980 ak in favor of any one given by ON ERROR 
981 kk TINER|<expr> 
982 kk 
933 FIT RI IIA I DI IIL III D ATI TDD A DD DILL ILD IISA IIIS III IIIT IIIT STII IISA SIAL 
934 SII IIIA IA III IIIT TIT L TDI DDD DTD D TTL TDI IS SSSI IDI ITI IL TTI II IAI 
985 * Atterpt to RESTART 
986 * Tf ist time through, save err# & err position 
987 O2F74 SAE RESTAR ?C#0 =A Not Ist tine through? 
988 O2F77 EO GOYES RESTA 
989 O2F79 136 CDOEX Errt 
9390 O2F7C 145 DAT1=C A 
991 O2F7F 174 Di=D1+ 5 
992 O2F82 141 DAT1=A A Error position 
993 * NONE FOUND 
994 * Error# & Error position in S-R1-0 & S-R1-1 
995 x 
996 O2F85 878 RESTA1 ?ST=1 8 Failed Label parse after THEN? 
997 O2F88 72 GOYES RESTA3 
998 * Put output ptr in R3 (2 nibs after where output to go) 
999 O2F8A 1B00 RESTxx DO=(5) =INADOR 

000 
1000 O2F91 146 C=DATO A Address of last stnt length byte 
1001 O2F94 858 ST=1 8 Innediately after THEN/ELSE 
1002 O2F97 B46 C=C+1 §$ 
1003 O2F9A B46 C=C+1 § 
1004 O2F9D SEO GONC = RESTR2 EXTENDED IF? INADDR past tEXITF 
1005 O2FAO 134 DO=C 2 nibs PRIOR to where output to go 
1006 O2FR3 163 DO=DO+ 4 Position properly 
1007 O2FR6 136 CDOEX 
1008 O2FAI 848 ST=0 8 Not irmediately after THEN/ELSE 
1009 Q2FRC 10B =RESTA2 R3=C Output pointer 
1010 O2FAF ACO RESTA3 A=0 § 
1011 O2FB2 7000 GOSUB =R.STPR Clear RESTART flag 
1012 O2FB6 1FOO D1=(5) =STNTDO 
000 

1013 O2FBD 147 C=DRT1 A Input ptr for LEX restart 
1014 O2FCO 1€5 DI=D1- 6 
1015 O2FC3 143 A=DATI A RESTART ADDR IN A 
1016 * Since RESCAN doesn’t set LEXPTR as NTOKEN does 
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1017 O2FC6 8E0O GOSUBL =STLXP2 Writes out C to LEXPTR 


00 
1018 x 
1019 * Restore D1 - Input buffer position before XWORD parse 
1020 * Coripute Output buffer position before XWORD 
1021 x 
1022 * Call to STLXP2 does next instruction 
1023 x 01=C 
1024 O2FCC 118 C=R3 
1025 O2FCF CE C=C-1 A 
1026 O2FD1 CE C=C-1 A 
1027 & 
1028 * Set Restart Address; Position in Output line 
1029 * Request Characterization nibble on return 
10H” * RESCAN for "begin" token 
1031 , 
1032 O2FD3 850 RESTAS ST=1 0 Request characterization 
1033 O2FD6 841 ST=0 1 
1034 O2FD9 842 ST=0 2 
1035 O2FDC 843 ST=0 3 
1036 O2FDF 848 ST=0 11 
é 1037 O2FE2 800 GOSUBL =RESCAN Look for “begin” token 
: 00 
1038 * Save RESTART address; Reset RESTART flag if non-nainfrane token 
1039 O2FE8& 8E00 GOSUBL =SVRST2 RESTORE DO & SAVE INPUT PTR 
00 
1040 x 
1041 O2FEE 868 *ST=0 8 Not immediately after THEN/ELSE 
1042 O2FF1 60 GOYES LINE#? : 
1043 * §-RO-O only updated if S10 Set (INADDR positioned prior to tIF) 
1044 O2FF3 7000 GOSUB =EXTIF+ 
1045 . 
1046 * If (Line# found & Begin BASIC token) OR 
1047 ‘ (Line# NOT found & Calc BASIC token) 
1048 * Save Restart Address 
1043 ' Continue parsing 
1050 5 


LINEH? ?ST=0 5 Line# NOT found ? 
GOYES RESTA? 


GOLONG =LNEPLN 


1051 O2FF7 865 

1052 O2FFA 80 

1053 O2FFC 800 Continue parsing 
00 

1054 03002 8C00 RESTA7 GOLONG =LNEP26 
00 

1055 * 

1056 0308 133 


Calc BRSIC keyword ? 


RSTRT? ADIEX Save cursor position 


1057 O300B 1F00 D1=(5) =S-R1-3 
000 
1058 03012 1574 C=DAT1 S$ Restart Flag 
1059 03016 1CE Di=D1- 15 
1060 03019 147 C=DAT1 A Read in original err# 
1061 031C A4E C=C-1 $ 
1062 O301F 500 RTNNC Restart? 
1063 03022 8AR 7C=0 =A Strt not earlier restarted? 
1064 03025 BO GOYES RSTR?5 
1065 03027 174 Di=D1i+ 5 
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1066 0302A 143 A=DAT1 A Original error position 
1067 03020 15K DO=C Original error# 
1068 03030 131 RSTR?5 D1I=A Cursor position 
10639 0333 02 RTNSC 
1070 x 
1071 03035 1FOO =REST* D1=(5) =S-R1-3 
000 
1072 0303C 1574 C=DAT1 S$ 
1073 03040 A4E C=C-1 §$ 
1074 03043 664F GOTO RESTxx 


1075 * 
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1076 STITLE Restore D1,C fron R3 (DIC=R3) 
1077 JOSS IOI OTC RI 
1078 SOIR RIO TOI OR JOT OTR TO TO TO TOI TO 
1079 aK 
1080 ** Nane:(S) DIC=R3 - Restore C(A),01 fron R3 
1081 xk 
1082 ** Category:  GENUTL 
1083 aR 
1084 ** Purpose: 
1085 ak Restores D1 fron R3(5-9) 
1086 AR Reverse effect of R3=DIC 
1087 x 
1088 ** Entry: 
1089 aK None 
1090 aK 
1091 KK Exit: 
1092 a C(A) = R3(A) 
1093 KK ACA) = R3(5-9) 
1094 Kx D1 = R3(5-9) 
1095 a Carry preserved fron entry 
1096 aa 
1097 ** Calls: None 
1098 Kk 
1099 ak Uses....... 
1100 kk Exclusive: A,C(A),D1 
1104 kk Inclusive: A,C(A),D1 
1102 Ke 
1103 xk Stk lvls: 0 
1104 aK 
1105 ** History: 
1106 KK 
1107 ae Date Progranner Modification 
1108 RK nnn nnn eee ener te rn enn nn nn enn nnn een nrc ece ne 
1109 *k 07/07/82 JP Modified docunentation 
ka 
aa FORO OOO OI IOI ORI TI I TT TTI IK 
1112 JOIST OO I OTTO IIIT TITS I ISAS 
1113 x 
1114 x 
1115 03047 113 =DIC=R3 A=R3 
1116 0304A D6 C=A A 
1117 0304C BF4 ASR Hy 
1118 0304F BF4 RSR MW 
1119 03052 BF4 ASR WW 
1120 03055 BF4 ASR W 
1121 03058 BF4 RSR W 
1122 03058 131 D1=A 
1123 O305E 01 RIN 
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1124 STITLE Get Next Non-Blank Character 
1125 JOIST OOOO CIO I IO III II IIIT TI III 
1126 FOI IDI LA II TTT TTDI II TDI TIED DI ITI STI IT TAIT OSI IIIA TTT 
1127 xx 
1128 *k Nane:(S) GNXTCR - Get Next Non-blank Character 
1129 ** Nane:(S) OAGNXT - OQutput byte, Get Next Non-blank Character 
1130 x Nane: GNXCR+ - Get Next Non-blank Character 
1131 a 
1132 ** Category: PARUTL 
1133 am 
1134 ** Purpose: 
1135 ae Gets next non-blank character. 
1136 ak 
1137 ax OAGNXT first outputs a byte fron A(B) before scanning 
1138 ak for the next non-blank character. 
1139 ke 
1140 a GNXCR+ first increments D1 by 2 before scanning for 
1141 xe the next non-blank character. 
1142 ax 
1143 *k Entry: 
1144 Kx OAGNXT - A(B) contains byte to output 
1145 kk D(A) = (AYNENE) 
1146 ae 00 points to where byte to be uritten 
114? kK D1 points to where to begin scanning for 
1148 aK next non-blank character. 
1149 aK GNXTCR - D1 points to where to begin scanning for 
1150 ae next non-blank character. 
1151 ak GNXCR+ - D1 points 2 nibbles prior to where to begin 
1152 a scanning for the next non-blank character. 
1153 ax 
1154 ek Exit: 
1155 we D1 points to next non-blank character 
1156 KK A(B) = Next non-blank Character 
1157 me C(B) = Ascii Blank 
1158 kk p = 0 
1159 Ex Carry set 
1160 aK 
1161 xx If not enough rienory to output byte, generates 
1162 am MEMNERR (QAGNXT entry only) 
1163 xx 
1164 ** Calls: QUT1TK - (ONGNXT Only) 
1165 ae 
1166 ** Uses: A(B),C(B), DO (ONGNXT Only),D1, P 
116? am 
1168 ** Stk lvls: 
1169 **#  GNXTCR: =O 
1170 ee GNXCR+: =O 
1171 Re ONGNKXT: = 2 
1172 a 
1173 ** History: 
1174 am 
1175 ** Date Prograntier Modification 
1176 KR none ene en nnn een ne renner r creer eee 
1177 ek 07/07/82 IP Modified Docunentation 


1178 #*k 8609/24/82 FH Modified Docunentation 
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1179 kk 11/02/83 S.U. Fixed docunentation header 
1180 a 
1181 TORSO JOT JOO JIT TT TTT TOTTI 
1182 JOU IIIT TOI IGOR TT 
1183 x 


1184 03060 778C 
1185 03064 1C1 
1186 03067 20 
1187 03069 3102 
1188 0306D 171 
1189 03070 14B 
1190 03073 962 
1191 03076 7F 
1192 0378 02 
1193 

1194 0307A 06 
1195 0307C 01 
1196 


=ORGNXT GOSUB OUTITK 

=GNXTCR D1=D1- 2 

=GNXCR+ P= 0 
LcAasc \ \ 

GNXTC1 Di=D1+ 2 

A=DAT1 B 
*A=C OB 
GOYES GNXTC1 
RTNSC 

x 

=CRGINP RSTK=C Put address in C on stack 


RIN Jurip to it 
x 
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4197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
122? 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
123? 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
124? 
1248 
1249 
1250 


STITLE 


Page 29 
DEF Parse 


FOI IIR TTT TTT TTI K 
FO IIT TI TIT TT TT ITT TIT IIIT ITT KIT ID IID IK 


xx 
ax 
xx 
xk 
ak 
xx 
ax 
xx 
xk 
ak 
ak 
xk 
xk 
xx 
ak 
xk 
xk 
ax 
xx 
ak 
xx 
a 
ak 
ar 
xk 
xx 
xx 
ak 
xk 
Kx 
xe 
ak 
xk 
xk 
xk 
ae 
wk 
xk 
xk 
xk 
ak 
xx 
xx 
ak 
ad 
ak 
aK 


Natte: DEFP - DEF FN and DEF KEY Statenent Parse 
Category: STPARS 
Purpose: Parses DEF FN and DEF KEY statenents 
Entry: Di past DEF keyword 
DO past tDEF in output buffer 
D(A) = (AVMENE) 
Exit: If next token is tKEY 
then exit via DFKEYP 
else Return with carry clear 
Di past valid DEF FN statenent 
DO past tokenized statenent 
Calls: ORGNXT, OUTBYT, WRDSCN, IFCK, OUTNB4, USRFP, 
PRENCK, SPLVRP, RS-RO3, OUTNIB 
Uses: A-C, SO-S3, $11, S?7, S8, RO-R3 


Stk Lvls: 4 


Detail: TOKENIZED AS: 
tOEF<5 nib field>tFN tVAR [tSEMIC tCONSTANT tSENIC] 
<1 nib parn ct.> [tPRMST <parn list>a)] [tCONNA expression] 


tSENIC 


tCONSTANT connotes a string length declaration. 


tDEF is characterized as ’LEGAL AFTER THEN’ & CALC 
BASIC. This allows ’DEF KEY’ to be executable. 
However *DEF FN’ isn’t ’LEGAL AFTER THEN’ or 

CALC BRSIC. 


tFN signifies a single line function. In the case of a 
multiple line user defined function, this field will 
be a zero byte. 


Because of the tokenization of the DEF FN statenent, 
statenent terrinators can’t have a low nibble of F. 


History: 


02/01/83 


Prograriner Modifications 


S.U. Updated docunentation 


OIG OI OO IOI GIO OO IOI OI OI IO 
IOI OOO IOI IIIT TO III IOI III 


x 
x 


1251 0307E 6CAD DEFPE+ GOTO 


ERRO1 
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1252 

1253 OW82 7000 
1254 03086 94A 
1255 089 00 
1256 OX8B 64ED 
1257 

1258 OM8F 61FD 
1259 

1260 0X93 7398 
1261 039? 00 
1262 039 000 
1263 ON9C 00 
1264 

1265 ONS9E 3100 
1266 OMR2 966 
1267 OAS 9D 
1268 

1269 OMA? 770F 
1270 OXAB 865 
1271 ORE DD 
1272 

1273 OX0BO 7000 
1274 

1275 

1276 

1277 

1278 OWB4 136 
1279 OB? 134 
1280 OBA 108 
1281 OXBD 857 
1282 ONTO 7600 
1283 OWC4 D8 
1284 ONG 132 
1285 OCI 130 
1286 OXCC 785C 
128? ODO BFO 
1288 OXD3 £4 
1289 O3D5 3182 
1290 ONDI 965 
1291 OWDC Fe 
1292 ONDE 102 
1293 OWE1 3100 
1294 OWES 7CFB 
1295 OWED 7E12 
1296 

1297 OWED 11A 
1298 OWFO B06 
1299 OWF3 4B9 
1300 OMFS 10A 
1301 

1302 OXFI 7000 
1303 OWFD 4BE 
1304 03100 7000 
1305 03104 785F 
1306 03108 112 


* 
=IFCK 


DEFPE6 
* 
DFPEXP 
& 
=DEFP 


GOSUB 
?C=0 


RTNYES 


GOTO 
GOTO 
GOSUB 


CON(2) 
REL(3) 


=RS-RO3 
S 


ERRO6 
ERROS 
WRDSCN 


=tKEY 
=DFKEYP 


CON(2) 0 


LC(2) 
RHC 
GOYES 


=tFN 
B 
DEFPE+ 


Page 


Not in IF construct? 


NON-EXECUTABLE 
EXCESS CHARS 


NOT T_FN? 


* DEF FN - DON’T WANT tFN OUTPUT 


GOSUB 
*ST=0 
GOYES 


IFCK 
5 
DEFPE6 


Read S-R0-3 
CALC BASIC? 


* ALLOW ROOM FOR 5S NIBBLE LINKING FIELD 


* we © 


DEFP5O 
k 


x 


GOSUB 


COOEX 
DO=C 
R3=C 
ST=1 
GOSUB 
B=A 
ADOEX 
DO=A 
GOSUB 
ASL 
A=A+1 
LCASC 
BRC 
GOYES 
R2=A 
LC(2) 
GOSUB 
GOSUB 


C=R2 
C=C+1 
GOC 
R2=C 


GOSUB 
GOC 
GOSUB 
GOSUB 
A=R2 


=QUTNB4 


tFN IS STILL IN A 
SAVE POINTER TO WHERE tFN WILL GO 


7 
USRFP 
A 


OUTNIB 
r 

A 

\\ 

B 
DEFP70 
=tPRIST 


OUTBY+ 
SPLVRP 


P 
DFPEXP 


=COMCK 
DEFP50 
=PRENCK 
ORGNXT 


Call OUTNBS 


R3 WILL BE PRESERVED AS LONG AS NEC 
IN DEF FN... 


SAVE NEXT CHAR - A(B) 
SAVE PTR TO WHERE PARN COUNT WILL G 


INCRENENT DO OVER PRARN COUNT NIB 
A(O)=0; Save address in A(5-1) 
INITIALIZE PARM COUNT (1) 

NOT T LPAREN? 


IF NO, THEN NO PARM LIST 
SRVE AWAY PARN COUNT & PTR 


Sirple Variable Parse 


INCR PARM COUNT 
EXCESS PARNS? 


T_COnnA? 


GET PARMN COUNT (+1) 
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1307 * 
1308 0310B CC DEFP70 A=A-1 A PARM COUNT - Decrenent A(0) 
1309 0310D D6 c=A A Read in A(O) 
1310 O310F BF4 ASR W ACA) contains address 
1311 03112 132 ADOEX SAVE DO IN A 
1312 03115 1540 DATO=C P WRITE OUT PARM COUNT 
1313 03119 130 DO=A RESTORE DO 
1314 O311C 148 ; A=DAT1 B RE-READ CHARACTER 
1315 
1316 O311F 3103 LCASC \=\ 
1317 03123 962 7A=C OB 


1318 03126 13 
1319 
1320 03128 113 
1321 O312B 132 
1322 O312E D2 
1323 03130 14C 
1324 03133 130 
1325 03136 03 
1326 
1327 
1328 


GOYES ASNNP1 
* A MULTIPLE-LINE FUNCTION - WRITE 00 OVER tFN 


A=R3 

ADOEX SAVE DO IN A 
C=0 A Zero out C(B) 
DATO=C B 

DO=A RESTORE DO 
RTNCC 
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1329 STITLE FN Parse 
13% SIRI ITI ARIE IIS ITT TOSS ISIS IIIT IS IIT ISSN SI SSI SIS IIIS ISIS I ISIS SISA 
1331 SOIT ITO IO TOIT OTTO 
1332 ax 
1333 ** Wane: FNP - Parse User-defined Function Assignnent 
1334 ** Nane: ASNMP - Assignnent Parse 
1335 te 
1336 ** Category: STPARS 
1337 x 
1338 ** Purpose: 
1339 ax FNP entry is used to parse user-defined function 
1340 ae assignnents. 
1341 ak 
1342 x ASNMP entry parses the ’right side’ of an 
1343 Rx assignnent. 
1344 tk 
1345 &* Entry: 
1346 ak D(A) = (AVMEME) 
1347 se FNP - DO points past statenent length byte 
1348 RX NTOKEN has already been called and tFN found. 
1349 as $10=0 => FN was preceded by LET 
1350 k $10=1 => Inplied Let of FN 
1351 ae If S$9=0 
1352 ae then 
1353 ne If this fails, try inplied DISP. 
1354 ax else 
1355 a Innediately after THEN/ELSE, so 
1356 es If this fails, parse as label 
1357 ai 
1358 ak ASNNP - D1 points at ’alleged’ ascii = 
1359 ak A(B) contains character D1 points to 
1360 ax P=0 
1361 as Left side of = has already been parsed 
1362 x S8=1 iff left side was nuneric 
1363 a DO points past tokenization of left side 
1364 am 
1365 ®® Exit: via RESPTR, or error exit 
1366 ay 
1367 oe Calls: OUTITK, OUTNIB, USRFP, EXPPR+, NTOKEN, OUTBYT 
1368 
1369 xx Uses: $7, $8, R2, RO, R1, SO-S3, $11, FUNCDO, D(15-5) 
1370 ae 
1371 ** Stk Lyls: 4 
1372 am 
1373 ** Detail: TOKENIZED AS: 
1374 ae tFN tVAR F t= expression 
1375 as 
1376 ** History: 
1377 ax 
1378 — Date Programmer Modifications 
1378 a aa aati 
1380 *x 03/06/83 9 S.W. Docurented 
1381 &k 07/01/83 S.W. Don’t error on FN assignnent 
1382 - if from Keyboard 


1383 ie 
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1384 JI IOI IIIS IO TOT ISI IIIS II II III III III TIS III III IK 
1385 JOO III III III TIT II III ISIS II III ISIS II IIS III III III IIIS IK 
1386 x 
1387 03138 =F NP 
1388 03138 847 =FNP+ ST=0 7 IN FN... 

1389 0313B 7000 GOSUB =R3=D1* RESPTR, Save D1 (in case of DISP) 
1390 0313F 7000 GOSUB =Ntoken Re-tokenize FN<var> 

1391 03143 7350 GOSUB USRFP 

1392 03147 30F LCHEX F 

1393 0314A 7ADB GOSUB OUTNIB 

1394 * 

1395 * Evaluate right side of assignnent 

1396 : 

1397 0314 3103 =ASNMP LCASC \=\ 

1398 03152 966 RHC OB 

1399 03155 E3 GOYES USRFE+ Syntax error 

1400 03157 3100 ASNMP1 LC(2) =tCONNA 

1401 0315B 768B GOSUB OUTBY+ 

1402 0315F 7711 GOSUB EXPPR+ 

1403 03163 870 *ST=1 0 INVALID? 

1404 03166 62 GOYES USRFPE 

1405 03168 863 ?S$T=0 3 STRING? 

1406 0316B 61 GOYES USRFP? 

1407 * NUMERIC EXPR - CHECK FOR TYPE MATCH 

1408 0316D 868 ?ST=0 8 STRING FUNCTION NANE? 

1409 03170 61 GOYES USFPE2 

1410 - 

1411 . 

1412 : 

1413 JX I OI III ITI OT IIIT IOI ISIS III IIS III IIS III SI IIIS 
1414 $I I IIIT IASI I ISIS III IIIS IDI IIISISSS IIIS III IIIIII III IIIT IA 
1415 ae 

1416 ** Nane:(S) RESPTR - Restore Input Pointer 

1417 ax 

1418 ** Category: PARUTL 

1419 ax 

1420 ** Purpose: 

1421 > Restores D1 to its position prior to NTOKEN call 
1422 = 

1423 *k Entry: 

1424 xe (LEXPTR) = address of input pointer (advanced past 
1425 ae leading blanks) prior to last call to 
1426 ex NTOKEN. 

142? am 

1428 AP ENIt® 

1429 a 01 re-positioned 

14h xx Carry clear 

1431 ze 

1432 ** Calls: none 

1433 a 

1434 ** Uses: ACA), D1 

1435 a 

1436 RA Stk lvls: 0 

1437 a 


1438 ** History: 





Saturn Assenbler 


Parse Routines - Part 2<831212 Fri Dec 3, 1983 3:01 an 


Ver. 3.39/Rev. 2306 FN Parse Page 34 
1439 ks 
1440 xx “Date Progranrier Modification 
1441 RR enn e ne een eee cece eee eee n eee e renee nner ens 
1442 Kk 67/08/82 S.U. Added docunentation 
1443 ki 
1444 JOR OO TORRID TTT TITTIES IAI I DIS IIIOS IIIS IIS IS IST SSISISISII IIA. 
1445 JO TTT TIT TIT TIT IDI IIIS IIIS SII III III ASAI IIS 
1446 03172 1F0O =RESPTR 01=(5) =LEXPTR 


000 
1447 03179 143 
1448 0317C 131 
1449 0317F 03 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1494 
1492 


A=DAT1 A 
DI=A 
RTNCC 


FOI TOO TT TI TTT TOTTI 
FORO JOJO UOT TOTTI TTT ITT IIIT DI IID D IDI TI TKK 
ak 


** Nane: -USRFP = - += User-Defined Function Nane Parse 

kk 

** Category: PARUTL 

re 

** Purpose: 

a Parses user-defined function nane 

ik 

*k Entry: 

ax P 4 0 

an D(A) = (AVENE) 

ne $7=1 =>DEF FN parse (string length declaration valid) 
ae DO past tDEF in output buffer 

is $7=0 =>FN assignnent (string length decl invalid) 
ala DO past statenent length byte 

is A = Entire function nane tokenization, as returned 
kk by NTOKEN. ( A(B)=tFN ) 

am D1 points past function nane (as per NTOKEN exit) 
kk 

eK Exit: 

ak 

aK Valid syntax => 

7 Return with carry set 

kA P=0 

a User-defined function nane parsed & output 

Re D1 past user defined function nane 

ae A(B) = ist non-blank character to follow parsed 
ae input strean. 

ax DO past tokenized user-defined function nane. 

ax If S7=1 on entry, 

ae then any string length declaration was also 
an parsed, with D1 past the optional 

ax declaration, and DO past its tokenization. 
kk 

ae Invalid syntax => 

ax Error exit to PARERR 

kx 

** Calls: QUTVAR, GNXTCR, OUTBY+, NTOKEN, CONCOM, OAGNXT 
a 

RK WS0Suivcsas 


Saturn Asserbler Parse Routines - Part 2<831212 Fri Dec 30, 1983 3:01 an 


Ver. 3.39/Rev. 2306 FN Parse Page 35 
1493 kk Exclusive: A-C, R2, S8& 
1494 kk Inclusive: A-C, RO,R2, S0-S3,S88,511 
1495 x* 
1496 ** Stk lvls: 3 
1497 aa 
1498 ** History: 
1499 aK 
1500 xk Date Progranner Modification 
1501 WE Gvowsise, werecetak Secen baw iowa teermetnane a eee eae 
12 *k 03/06/83 SLU. Routine docunented 
1503 kk 
1504 JOU ITI IU TIT IIT ITI I IR IIIA SORT II IIIA 
1505 FOI I TI III III ATI SII ASSIST IIIS III IIIT III IIIS III IAAI II IIIA 
1506 % 
1507 03181 868 USRFP? ?ST=0 8 STRING FUNCTION NANE? 
1508 03184 EE GOYES RESPTR 
1509 x 
1510 03186 11A  USFPE2 C=R2 
1511 03189 135 b1=C RESTORE PTR 
1512 x 
1513 0318C 854 USRFPE ST=1 4 
1514 0318F 65AC : GOTO ERRO2 Invalid Expr 
1515 


1516 03193 854 USRFE+ ST=1 4 
1517 03196 649C USRFE1 GOTO  ERRO1 
2 


1518 
1519 0319R D8 USRFP B=A A 
1520 0319C 848 ST=0 8 
1521 O319F FS BSR A 
1522 031A1 BBS BSR x 
1523 031R4 3100 LC(2)  =tSVAR 
1524 031A8 961 B=C OB 
1525 031AB 50 GOYES USRFP2 
1626 O31AD 858 ST=1 8 NUMERIC FLAG 
1527 031B0 7000 USRFP2 GOSUB =QUTVAR 
1528 031B4 7CRE COSUB GNXTCR 
1529 031B8 867 *ST=0 7 NOT IN DEF FN...? 
1530 0318B 00 RTNYES 
1631 * 
1532 0318D 3185 LCASC \[\ 
1533 03101 966 7AHE OB NO STRING LEN DECL? 
1534 03104 0 RTNYES 
1635 : 
1536 03106 878 *ST=1 8 NUMERIC? 
153? 03109 DC GOYES USRFE1 SYNTAX ERROR 
1538 x 
1539 O31CB 3100 LC(2)  =tSENMIC 
1540 O31CF 7218 _  GOSUB OUTBY+ STEP GFP “[¢ 
1541 * MUST BE CONSTANT INSIDE BRACKETS 
1542 03103 7000 GOSUB =Ntoken 
1543 03107 800 GOSUBL =CONCON 
OO 
1544 03100 488 COC USRFE1 NOT A CONSTANT? 
1545 O31£0 3100 LC(2)  =tSEMIC NEEDED FOR CONSTANT DECOMPILE 


1546 O31E4 DA A=C A 


Saturn Assenbler Parse Routines - Part 2<831212 Fri Dec 3, 1983 3:01 an 


Ver. 3.39/Rev. 2306 FN Parse Page 36 
1547 O31E6 767E GOSUB OAGNXT OUTPUT TOKEN, ETC. 
1548 O31EA 31D5 LcAsSc \)\ 
1549 O31EE 966 7RAC OB 
1550 031F1 2A GOYES USRFE+ NO CLOSING BRACKET? 
1551 x 
1552 O31F3 637E GOTO GNXCR+ 
1553 x 


1554 2 
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1555 
1556 
155? 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
158? 
1588 
1589 
1590 
1531 
1$92 
1593 
1694 
1595 
1596 
159? 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 


xx 
xk 
a 
ak 
xk 
a 
x 
ak 
xk 
xk 
xx 
ax 
xx 
ax 
xk 
xk 
xe 
x 
xk 
xx 
xk 
aK 
xx 
ak 
xk 
xx 
xx 
wk 
ak 
xr 
xx 
ak 
xk 
ax 
ak 
xk 
wx 
xk 
xx 
xk 
ak 
x 
ak 
ak 
xk 
ax 
ak 
ae 
xk 
ax 
ae 
xk 
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STITLE READ/INPUT/LINPUT Parse 
FOI II TOI IIIT ITI TI TI III ORI IH 


FOI II IIT OTT TOTO TTT IT TOTO ITI IK 


Nane: 
Nane: 
Narie: 
Nane: 


Narie:(S) READPS 


READP - READ, READH Staterient Parse 
INPUTP INPUT Statenent Parse 

LINPTP - LINPUT Statenent Parse 

DSTp - Single Destination Variable Parse 
Destination Variable List Parse 


Category: STPARS 


Purpose: 


Entry: 


Exit: 


Parses READ, READH, INPUT, LINPUT statenents. 


DSTp entry expects a ’destination’ variable, ie 
one that is suitable for storing a value. 


READPS entry will parse a list of destination 
variables, delinited by conras. Depending on 
status bits $8 and S9 on entry, it allows or 
disallous duntiy arrays, allows a list of any 
nunber of destination variables, or derands 
that the first variable in the list is a 
string destination and then returns to leave 
the rest of the parse (if any) to the caller. 


D(A) = (AVMENE) 
5 entry points: 
1) LINPTP - D1 past LINPUT 
DO past tLINPT 
2) INPUTP - $9=0 
D1 past INPUT 
DO past tINPUT 
3) READP - S8=0, $9=0 
D1 past READ 
DO past tREAD 
4) READPS - S8=0 iff Dunny arrays are valid 
S9=1 iff single string var parse 
5) OSTp - D1 pts to alleged destination var. 


Valid parse => 
P=0 
LINPTP, INPUTP,READP entry: 
D1 past syntactically correct stnt 
DO past tokenized statenent 
Return with carry clear 


READPS entry: 

D1 past the parsed variable or var list 

DO past tokenized destination variable(s) 
Return with carry clear 

If S9=1 on entry 
Single string destination variable parsed 
D1 past the string variable 

DO past the tokenized string variable 
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1610 a 
1611 ak DSTp entry: 
1612 % D1 past destination variable 
1613 x DO past tokenized destination variable 
1614 = Carry set on return iff dunny array 
1615 ak 
1616 ak Invalid parse => 
1617 &k LINPTP, INPUTP,READP entry: 
1618 ak Error exit to PARERR 
1619 xk 
1620 aK READP entry: 
1621 ak Error exit to PARERR 
1622 kk If $8=0,$9=0 on entry 
1623 ax Sonething in list was not a destination 
1624 &k variable, or a deliniter was missing 
1625 ak If $8=1,S9=0 on entry 
1626 sie Sonething in list was either not a 
1627 ak destination variable, or was a dunny 
1628 an array, or a delimiter was nissing 
1629 ak If S8=0,59=1 
1630 i First item in list was not a string 
1631 ae destination variable. 
1632 a If S$8=1,S9=1 
1633 an First iten in list was either a dunny 
1634 ak array or was not a string destination 
1635 ax variable. 
1636 an 
1637 =e DSTp entry: 
1638 ak Input either was an invalid expression 
1639 ah or was inappropriate as a destination. 
1640 ak 
1641 *k Calls: OUTITK, NTOKEN, DSTp, COMCK, PILP, WRDSCN 
1642 aK DATACK, STRGCK, CONCK1, QUT1TK, EXPPR+ 
1643 aX 
1644 ** Uses: A-C,0(15-5), 01,00, RO-R2, SO-33,8?7-S9,S11 
1645 ak FUNCDO, P 
1646 aK 
1647 4k Detail: Doesn’t allow for INPUT/READ/LINPUT without at 
1648 3% least one variable in the list 
1649 ak Allows for READH, but not INPUT#. 
1650 ax READH conpiled as: 
1651 ak # nun expr [tCOMMA <nun expr>} [SEMIC <var list>] 
1652 = Even if there’s no record# specified, there nust 
1653 ae be a variable list. 
1654 aK 
1655 is INPUTP and LINPTP allow an optional pronpt 
1656 ae and initial string for default values 
1657 ak 
1658 aR Tokenized destination variables in READ, READ#, 
1659 ‘* INPUT and LINPUT are delinited by tCONNA. 
1660 aK 
1661 *k Stk Ivis: 5 
1662 ee 
1663 xk History: 


1664 a 
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1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 O31F? 
1676 O31FA 
1677 O31FC 
1678 03200 
1679 03204 
1680 03207 
1681 0320A 
1682 0320D 
1683 
1684 
1685 03210 


859 
DO 
7BEA 
7000 
858 
5380 
181 
5D2 


761A 


1686 03214 00 


1687 03216 


520 


1688 03219 00 


1683 03218 


800 


16% O321E 00 


1694 
1692 03220 
1693 
1694 03223 
1695 03226 
1696 0322A 
1697 O322E 
1698 03231 
1699 
1700 03233 
1701 
1702 03237 
1703 
1704 
1705 03238 
1706 O323F 
1707 03242 
1708 03245 
1709 03247 
1710 O324A 
1711 O324C 
1712 03250 
1713 03253 
1714 03257 
1715 
1716 
1717 
1718 O325A 


521 


181 
7000 
3100 
962 
22 


67FB 
7000 


7B10 
570 
878 
62 
879 
D3 
7000 
555 
743A 
§3E 


7C10 


1719 O325E 400 


aK 
ak 
ak 
ax 
ak 
xk 
ak 


Parse Routines - Part 2<831212 Fri Dec 3, 1983 3:01 an 


Bate Progranner 


12/06/82 S. 
03/11/83 = S 


05/18/83 S.W. 


Page 39 


Modifications 

READ, READH allows durmy arrays 
Tokenize INPUT with prompt with 
preceding zero byte 

Calls new subroutine: DSTp 


SOO ITO OTTO TTT ISI TIT TTS IIIA 
FOI IIIT SID TDIT III IR ITT IIT TTI I T IIIT TDI S TK 


x 


=LINPTP ST=1 9 


=] 


a 
I 


I 


i 
I 
* 
=R 
& 
k 


=R 


NPUTP A=0 A 
GOSUB OQUTITK 
GOSUB =DATACK 
ST=1 8 
GONC  INPTPt 
DO=D0- 2 
GONC READPS 


NPTP1 GOSUB WRDSCN 
CON(2) =tSEMIC 
REL(3) READPS 
CON(2) =tCONNA 
REL(3) INPTP2 
CON(2) 0 


GONC  INPTER 
NPTP2 DO=D0- 2 

GOSUB =STRGCK 

LC(2) =tSENIC 

eA=C OB 

GOYES READP4 
NPTER GOTO ERRO1 


ERDP GOSUB =PILP 


Output zero byte in case of prorpt 


INPUT flag - no dunny arrays 
Found input prompt? 

Back up over zero byte token 
(B.E.T.) 


(B.E.T.) 


Back over tokenized conna. 


SYNTAX ERROR 


$8=1 => Durrny array not legal 


$9=1 => LINPUT parse 
EADP5 GOSUB DSTp 
GONC  READP2 
*ST=1 8 
GOYES REDPES 


READP2 *ST=1 9 


R 


& 
x 


=D 


GOYES LNPTPS 
GOSUB = =CONCK1 
GONC DECPO1 
ERDP4 GOSUB OQUT1TK 
GONC  READPS 


Not dunny array ? 
INPUT parse? 


LINPUT parse? 


OUTPUT COMMA 
1 


Destination Parse - uses 4 stack levels 


STp  GOSUB EXPPR+ 
RTNC 


Duriny Array? 
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1720 * MUST CHECK FOR LEGAL EXPR AND DESTINATION 
1721 03261 870 *S$T=1 0 INVALID EXPR? 
1722 03264 70 GOYES REDPES 
1723 03266 831 ?XM=0 LEGAL DEST? 

1724 03269 FO GOYES rtnec 

1725 

1726 03268 11A =REDPES C=R2 RESTORE INPUT PTR 
1727 0326E 135 D1=C 

1728 03271 854 ST=1 4 NO RESTORE OF INPUT PTR 
1729 03274 61FB > DECPES GOTO  ERROS ILLEGAL VARIABLE 
17H 

1731 03278 03 rtnce RINCC 

1732 7 

1733 0327AR 137 EXPPR+ CDIEX 

1734 03270 135 Di=C 

1735 03280 10A R2=C Save D1 in R2 
1736 03283 6000 GOTO =exppar 

1737 k 

1738 03287 863  LNPTPS ?ST=0 3 String variable? 
1739 0328A C1 GOYES DECPO1 RESPTR 

1740 0328C SED GONC  REDPES (B.E.T.) 


1741 . 
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1742 STITLE Declaration Statenents Parse 
1743 JOO IO TI TI I IIIT IIIT II TIT III ITI IIIT IITA STII ITI III TK 
1744 JOR III III TTI III III IIIT ITI SII ISI ITI SII IIIS SIS ISI IS IIA 
1745 aK 
1746 As Nane:(S) DECP - Parse of Variable Declaration Staterents 
1747 
1748 ** Category: STPARS 
1749 aK 
1750 ** Purpose: Parses REAL, SHORT, INTEGER statenents 
1751 RK 
1752 &* Entry: D1 past REAL, SHORT, or INTEGER keywords 
1753 ax DO past tREAL, tSHORT, or tINTEG 
1754 ax D(R) = (AVNENE) 
1755 es 
1756 RX Exit: If valid statenent syntax: 
1757 ae via RESPTR (Carry clear) 
1758 x D1 past syntactically correct statenent 
1759 BR DO past tokenized statenent in output buffer 
1760 ig 
1761 ai If error in syntax: 
1762 am Exit to PARERR 
1763 aX 
1764 kk Calls: CONCKO, ARRYCK, VARP 
1765 des 
1766 ** Uses: A-C,0(15-5), DO,D1, SO-S3,S11, RO,R1, FUNCDO 
1767 aK 
1768 ** Stk lvls: 6 
1769 an 
1770 ** History: 
1771 ax 
1772 gies Date Progranmer Modifications 
1773 RK wwe ween cree nee cree rer err ee 
1774 ** 03/06/83 S.W. New docunentation header added 
1775 kK 05/10/83 SW. Added call to CONCKO 
io 
Hae JOTI IR JO JOIST IOI ITO ITO OI OI OTTO 
1778 2ST III TI TT III TIT III III IIIS IDI ITI IIIA STII II IIS 
1779 ; 
1780 O328F 7000 =DECP GOSUB =VARP 
1781 03293 SOE GONC DECPES Not a numeric variable ? 
1782 03296 &62 7$T=0 2 
1783 03293 60 GOYES DECPOO Simple variable ” 
1784 0329B 7000 GOSUB =ARRYCK 
1785 O329F 7700 DECPOO GOSUB CONCKO 
1786 O32A3 4BE GOC DECP Conna found & output ? 
178? ‘ 
1788 032A6 GBCE DECPO1 GOTO RESPIR 
1789 : 
1790 
1794 JOJO ISIE ISIS IOI GIES OGIO GU TOK 
1792 FORO ROO JOJO ROI OOOO ROO GIO OIRO IO 
1793 ee 
1794 ** Nane: CONCKO - Check Conna & Output Corma Token 
1795 ** Nanie:(S) COMCK+ - Check Conna & Output Corina Token 


1796 


as 
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1797 ** Category:  PARUTL 
1798 ae 
1799 ** Purpose: 
1800 am Checks for tCOMMA & outputs it if found. 
1801 ae 
1802 RX CONCKO entry requires that NTOKEN be called 
1803 aS before checking for tCONMA. 
1804 sk 
1805 ah CONCK+ entry assures that NTOKEN has already 
1806 mx been called. 
1807 KK 
1808 ** Entry: 
1803 an D(A) = (AVNENE) 
1810 ak DO = pointer to where tCONNA to be output 
1814 ax 2 entry points: 
1812 ax 1) CONCKO - D1 at opt. preceding blanks before 
1813 a alleged corima. 
1814 ae 2) CONCK+ - A(B) contains byte to compare against 
1815 aR tCOMNA. 
1816 KR 
1817 ak Exit: 
1818 kh P = 0 
1819 aR Carry set => tCOMMA found & output 
1820 ae DO increrented past tCOMMA 
1821 KK CONCKO entry: 
1822 = D1 pts past ascii connma 
1823 AS COMCK+ entry: 
1824 ax D1 preserved fron entry 
1825 aR 
1826 = Carry clr => tCOMMA NOT found 
1827 kk DO preserved fron entry 
1828 a CONCKO entry: 
1829 xe A(B) = token found 
1830 ax D1 advanced past corresponding text 
1831 kk CONCK+ entry: 
1832 xx A(B) preserved fron entry 
1833 aK D1 preserved fron entry 
1834 ae 
1835 a If tCOMMA found, but not enough nenory to 
1836 alas output it, exits to NEMERR 
1837 ah 
1838 *k Calls: NTOKEN, CONCK1 
1839 a 
1840 kk Uses: C, DO, P (CONCK+ entry) 
1841 ak A-C, D1,D0, SO-S3,S11, RO, P (COMNCKO entry) 
1842 > 
1843 *k Stk lvls: 3 
1844 ak 
1845 ** History: 
1846 ee 
1847 xk Date Progranner Modification 
1848 POY ec. tee eer es lige Ok toe eee 
1849 Kk 95/11/83 SL. Added docunentation 
1850 x 
JOR IO RTI III III TI II TI IIIT ISI SII IIIS IS SII IIIS SA IA 


1851 
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1852 JOGOS III TOTO IIIT TI TIO IT TTT AT 
1853 * Carry set => comma found & output 
1854 * 


1855 O32AAR 7000 =CONCKO GOSUB =Ntoken 
1856 O32AE 7000 =CONCK+ GOSUB =CONCK1 


1857 03282 500 RTNNC Not a conna ? 
1858 03285 723A GOSUB QUTITK 
1859 03289 02 RTNSC 

X 


1860 
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1861 STITLE DIN Parse 
1862 SIS IIS ORI TTT TITTIES II III IIS ITI I SIS II OI IN 
1863 FOR IOI OJOS TIO TTT TTT TTT TD TIT IITIT ITO 
1864 ak 
1865 kk Narie: DINP - DIM Statenent Parse 
1866 ak 
1867 ** Category: STPARS 
1868 aa 
1869 xk Purpose: Parses DIN staterent 
1870 kh . 
1871 ak Entry: D(A) = (AVMENE) 
1872 * D1 past DIN 
1873 AK DO past tDIM in output buffer 
1874 ak 
1875 RK Exit: If valid statenent parse: 
1876 ak Carry clear on return 
1877 xk . D1 past syntactically correct statenent 
1878 ale Tokenized statenent in output buffer 
1879 aR DO past tokenized statenent 
1880 ae P=0 
1881 ah else 
1882 aR Error exit through PARERR 
1883 ak 
1884 Calls: OUTITK, VARP, ARRYCK, COMCK, NUMCK 
1885 
1886 - Uses: A-C,0(15-5), 00,01, S0-S3, S87, $8,511, RO,R1, FUNC DO 
1887 
1888 a Detail: Only allows 1 dinension for string array 
1889 
1890 *& Stack lvl: 5 
1894 ak 
1892 k* History: 
1893 aR 
1894 ak Date Progranner Modifications 
1895 KR nem nnn ee ene e ene ne tenner nnn ecne 
1896 kk 11/20/82 SLM. DIM now allows sinple variables 
1897 ke 05/11/83 SLU. Added call to COMCKO; deleted 
1898 *s corresponding call to QUTITK 
1899 kK 06/22/83 9 S.W. Added clearing of S8 (SR#955-5) 
1900 kk 
1901 SOI RII RII IIIT II IDI III IT ISI SII TTI IIIT SI III IIIS IISSSI III SISS IIA 
1902 SRI II III STII STII IIIA ISIS IS ISI III IIIS IIS ITIISISS ISIS I ISI IIASA 
1903 * 
1%4 x 


1905 032BB 848 
1906 032BE 7000 
1907 03202 450 
198 

1909 032C5 858 
1910 032C8 862 
1911 032CB 21 
1912 

1913 032CD 7000 
1914 

1915 03201 868 


=DIMP = ST=0) 8 Needed after parse of strg w/o len 
GOSUB =VARP 
Goc DIMPOS NUMERIC VARIABLE? 
* STRING VARIABLE 
ST=1 8 STRING FLAG 
DINPOS ?ST=0 2 SIMPLE VARIABLE? 


GOYES DINP15 
* ARRAY VARIABLE 

GOSUB =RARRYCK 
* 


?ST=0 8 NUMERIC ARRAY? 
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1916 032D4 90 GOYES DIMP15 
1917 03206 CD B=B-1 A Decrenent B(0) 
1918 032D8 900 BHO OP Nore than 1 SUBSCRIPT? 
1919 032DB 77 GOYES TRCPE1 
1920 * 
1921 032DD 79CF DINP15 GOSUB CONCKO 
1922 032E1 49D GOC DINP COMMA? 
1923 * NOT A COMMA - "{" OR EOL 
1924 032E4 868 ?8T=0 8 NUMERIC? => "[" NOT LEGAL 
1925 032E? FB GOYES DECPO1 
1926 * STRING VARIABLE - CHECK FOR "[" 
1927 032E9 31B5 LCASC \[\ 
1928 O32ED 966 PARC OB 
1923 032FO 6B GOYES DECPO1 
1930 * FOUND BRACKET 
1931 032F2 3100 DIMP20 LC(2) =tSEMIC 
1932 032F6 DA A=C A 
1933 032F8 7000 GOSUB =NUNCKO PARSE STRING LENGTH 
1934 032FC 3105 LCASC \)\ 
1935 0380 966 ARC OB 
1936 03303 F4 GOYES TRCPE1 
1937 03305 848 ST=0 8 
1938 038 54D GONC DIMP15 (B.E.T.) 
x 
ise JOIST IE III IIT II III II TIO ISI TI IIIT IIT ITI TAK 
1941 SOI OI IIIT ISIS IIT IT IIIT IIIT II ATI IAS 
1942 a 
1943 xk Nane: SPLVRP - Sinple Variable Parse 
1944 ak 
1945 ** Category:  PARUTL 
1946 xe 
194? ** Purpose: 
1948 AE Parses a Simple variable 
1949 ae 
1950 xk Entry: 
1951 7 D1 at supposed sinple variable 
1952 aR DO points to where tokenized variable to be written 
1953 ae D(A) = (AVMENE) 
1954 a 
1955 **K Exit: 
1956 oe P = 0 
1957 xR Return to caller => 
1958 a Siriple variable found & tokenization written out 
1959 de Carry set 
1360 KR Else error exit (eIVVAR or MEMERR) 
1961 ae 
1962 ** Calls: VRRP 
1963 ne 
1964 PAUSES eases 
1965 aR A-C, DO,D1, SO-S3,S11, RO 
1966 ae 
196? ** Stk Ivis: 4 
1968 xR 
1969 %* History: 


1970 - 
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1971 aK Date Prograrner Modification 
1972 BR we enn ase meee sense creme en aennsena acne enn nese escascese 
1973 ek 02/03/83 S.W. Added docunentation 
1974 a 
1975 FIT III I TRI II II IIT IIIA II IS IISI IIIS ISIISSSSIIIIISISSISISI A 
1976 SIR IRI III IDA IS IIIA III ISIS ISIS III ISISSIIIISISIS SSSI ISIS IIIS ISIS A 
1977 x 
1978 03308 7000 SPLVRP GOSUB =VARP Error if not variable 
1979 O330F 862 *ST=0 2 Not an array variable? 
1980 03312 00 RTNYES 
1981 & 


1982 03314 615B DIMPES GOTO  ERROS ILLEGAL VARIABLE 
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1983 STITLE DESTROY/TRACE Parse 
1984 JU OTT AI III III IIIS I SII IIIS ISIS III IIIS ISI II IIIA 
1985 JS II TT I TIDE III I IT ISI IID III IIISISI III ISISSI SSIS A 
1986 BA 
1987 xk Nanie: DSTRYP - DESTROY statenent parse 
1988 ** Nane: TRACEP - TRACE statenent parse 
1989 ax 
1990 kk Category: STPARS 
1991 aK 
1992 . Purpose: Parses DESTROY & TRACE staterents 
1993 
1994 xk Entry: D(A) = CAVNENE) 
1995 ak DO pts past into output buffer 
1996 ze (past tIRACE or tDSTRY) 
1997 ax 2 entry points: 
1998 Kk 1) DSTRYP - D1 points past DESTROY 
1999 x 2) TRACEP - D1 points past TRACE 
2000 kk 
2001 aX Exit: If valid statenent parse: 
2002 ax Return with carry clear 
2003 ax P=0 
2004 al D1 past syntactically correct statenent 
2005 hk Tokenized statenent written to output buffer 
2006 ial DO advanced past end of tokenized statenent 
2007 ax 
2008 ak Else 
2009 ae Error exit 
2010 ax 
2011 ** Calls: NTOKEN, RESPTR, CONCKO, COMCK, GNXTCR, WROSCN 
2012 = SPLVRP 
2013 mA 
2014 *k Uses: A-C, RO-R2, SO-$3,S11 
2015 al 
2016 ** Stk lvls: 4 
2017 ah 
2018 *k Detail: DESTROY [ALL|sinple variable list] 
2019 ak TRACE [FLOW] OFF |VARS) 
2020 a 
2021 ** History: 
2022 a 
2023 ae Date Progranner Modifications 
2024 WMS es - ecereettens Tbe ese 
2025 ** 03/06/83 SLM. New documentation header added 
2026 _ 
2027 JOGO IIIS EIEIO III TIT CTI 
2028 JESSIE III TIT III TIT IT IDET TAR 
2029 x 


2030 03318 7E09 
2031 0331C 00 
2032 O331E E2C 
2033 03321 00 
2034 03323 7B4E 
2035 


=D 


x 


STRYP GOSUB =HRDSCN 
CON(2) =tALL 
REL(3) lnep66 
CON(2) 0 
GOSUB RESPIR 


2036 03327 7OEF DSTRPO GUSUB SPLVRP Sinple Variable Parse 


2037 03328 7B7F 


GOSUB CONCKO 


Saturn Assenbler Parse Routines - Part 2<831212 Fri Dec 3, 1983 3:01 an 


Ver. 3.39/Rev. 2306 DESTROY/TRACE Parse Page 48 
2038 0332F 554 GONC = DSTRPS NOT CONNA? 
2039 03332 44F GOC DSTRPO (B.E.T.) 
2040 a 
2041 03335 71F8 =TRACEP GOSUB =WRDSCN 
2042 03339 00 CON(2) =tOFF 
2043 0333B 11C REL(3) Inep66 
2044 0333E FEIO CON(6) =t¥VARS 

B5 
2045 03344 80C REL(3) Inep66 
2046 03347 FE10 CON(6) =tFLOW 
92 
2047 0334) FFB REL(3) lnep66 
2048 03350 00 CON(2) 0 
t 


2049 
2050 03352 68DA TRCPE1 GOTO  ERRO1 
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2051 STITLE #CK 
2052 JO I OI STII TIT TI II ITI IIS TOSI III III III III IIIA II IIS 
2053 JI RII I III III II TIT IIT ITT IID IS III I IIIS ISIS III IIS II III ISIS 
2054 ae 
2055 &k Nane:(S) #CK - Check for # 
2056 
2057 *&k Category: PARUTL 
2058 Rx 
2059 ** Purpose: 
2060 a> Compares next non-blank character against ascii # 
2061 ax 
2062 ** Entry: 
2063 aK Di points at optional blanks preceding character to 
2064 ae compare against 
2065 a 
2066 ek Exit: 
2067 ax P = 0 
2068 2 D1 points to next non-blank character 
2069 ae A(B) = Next non-blank character 
2070 ak Carry clear => Character is # 
2071 aK Carry set => Character is not # 
2072 asi 
2073 ** Calls: GNXTCR 
2074 ae 
2075 tk Uses: ACB), C(B), D1, P 
2076 ax 
2077 ** Stk lvls: 1 
2078 ae 
2079 kk History: 
2080 aX 
2081 a Date Programmer Modification 
2082 a aaa aaa aaa aaa aaa 
2083 KK 14/03/83 9 S.W. Added docunentation header 
2084 ax 
2085 JO OO IIT EI OCI ITO IIT IIT IDS IT IIIT RII TK 
2086 FORO I ITT TIO IOI OTITIS IIH 
2087 . 
2088 03356 7AOD =#CK GOSUB GNXTCR 
2089 0335A 3132 LCASC \#\ 
2090 O335E 966 ARC OB 
2091 03361 00 RTNYES 
2092 03363 01 RIN 
2093 * 


2094 
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2095 STITLE OFF Parse 
2096 FIO STI DI IDI IIIA IIIS SITS I IIIS II IIS ISS SII ISSIR ISSI SSSI A 
2097 FOI TI ITT RT AD TTI SAID IAI ISIIDIILIISISSSISSII SSIS SISIS ISIS ISI IIA 
2038 xR 
2099 ** Nane: OFFP - OFF Staterent Parse 
2100 KK 
2101 ** Category: STPARS 
2102 ak 
2103 ** Purpose: 
2104 an Parses OFF Statenent 
2105 Kx 
2106 kk Entry: 
2107 Kk D(A) = (AVNEME) 
2108 x% D0 points into output buffer past tOFF 
2109 ax D1 points past OFF 
2110 aR 
2111 Kk Exit: 
2112 KR Valid statenent syntax => 
2113 ax Return with carry clear (via RESPTR) 
2114 KK P=0 
2115 ai D1 points past syntactically correct stnt 
2116 ak Tokenized statenent written to output buffer 
2117 ke DO points past tokenized statenent 
2118 ak 
2119 ak Else error exit 
2120 ae 
2121 *k Calls: WRDSCN, #CK, NUNCK (golong) 
2122 kk 
2123 ak Uses....... 
2124 *k Exclusive: &,C,D0,D1 
2125 seh Inclusive: A-C,D0(15-5),00,D1,RO,R1,SO-S3, $7, S11, FUNCDO 
2126 
2127 Kk Stk lvls: 4 
2128 aK 
2129 ** Detail: 
210 xe OFF [ ERROR | TIMER # <tiner no> } 
2131 KK 
2132 ** Algorithn: 
2133 ae 
2134 ak If next token = ERROR (WRDSCN outputs the token) 
2135 ae Return 
2136 a If next token = TIMER (WRDSCN outputs the token) 
2137 am If next char # "#" 
2138 ax Error Exit 
2139 kk Skip # 
2140 a Verify <tiner no> expression (NUNCK) 
2141 aha Restore pointer & Return (through RESPTR) 
2142 ax else 
2143 x Restore pointer & return 
2144 km 
2145 ** History: 
2146 aK 
2147 7 Date Progranner Modification 
2148 KK nnn nnn een e nee n ne ra nnn nn nnn ne nnn nn nnn nnn nnn renee ne 


2149 kk 97/07/82 JP Nodified docunentation 
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2150 ak 
2151 JI II IIT RT TIT I I IIIS II IIT IAI I IIIS IIS II III ISI SI SASSI IISA 
2452 KIT I III III III SIS IID II II III I ISNT II IIIS IASI II III SSIS ISI SSS SS SSI IIIS: 
2153 03365 71C8 =OFFP GOSUB WRDSCN 
2154 03369 00 CON(2) =tERROR OFF ERROR 
2155 03368 9F8 REL(3) WRDS35 Return CC 
2156 0336E © CON(2) =tTINER OFF TIMER 
2157 03370 90 REL(3) OFFP10 
2158 03373 00 NIBHEX 00 OFF 
2159 03375 6CFD Flee GOTO RESPTR Restore ptr & return 
2160 
2161 * OFF TIMER 
2162 x 
2163 03379 79DF OFFPIO GOSUB #CK Get next character 
2164 0337D 4F3 GOC FREEO? Not # ? 
2165 03380 171 Di=D1+ 2 Skip # 
2166 03383 8COO =FIXp GOLONG =FIXP NUNCK, RESPTR 
00 
2167 x 


2168 * 
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2169 STITLE FREE/CLAIN Parse 
2170 SII ITI TIO STIS IAS IOS ISS I IIIT IIS ISI ISIS II SSSI MS. 
2171 3 III IDI III IOI II IIIS IOS IS SII I SII ISISS SSSI SSI III SAIS ISIS ISIN. 
2172 = 
2173 xk Nane: FREEp - FREE and CLAIM Statenent Parse 
2174 xt Nane: SHOWp - SHOW Statenent Parse 
2175 a Narie: FREE15 - Parse Nurieric Expression, Right Paren 
2176 x 
2177 *% Category: STPARS 
2178 aR 
2179 ** Purpose: Parse FREE, CLAIM and SHOW staternents. 
2180 ak 
2181 aR FREE15 entry parses a nuneric expression and 
2182 xk expects a closing parentheses 
2183 ah 
2184 kt Entry: D(A) = (AVMENE) 
2185 x DO points into output buffer 
2186 ak D1 points to ascii input strean 
2187 xk 3 entry points: 
2188 BX 1) SHOWp - D1 past SHOW 
2189 ak DO past tSHOW 
2190 xn 2) FREEp - D1 past FREE or CLAIN 
2191 ak DO past tFREE or tCLAIN 
2192 a $8=0 
2193 ah 3) FREE15 - D1 pts at alleged nureric expr 
2194 aa 
2195 AP Exit: SHOWp & FREEp entry 
2196 “* If valid statement parse: 
2197 ial Return with carry clear 
2198 = P=0 
2199 a D1 past syntactically correct statenent 
2200 ak Tokenized statenent written to output buffer 
2201 iis DO past tokenized statenent 
2202 xe 
2203 ae Else error exit 
2204 ae 
2205 aX FREE15 entry 
2206 aR Numeric expression followed by right paren: 
2207 aR Carry clear 
2208 =n P=0 
2209 AX D1 past right parentheses 
2210 xe Tokenized numeric expression uritten out 
2211 ax DO past tokenized nuneric expression 
2212 xx 
2213 a Else error exit 
2214 ak 
2215 e Calls: WRDSCN, PRENCK, GNXTCR, NUNCK, LPRNCK 
2216 x 
2217 . Uses: A-C,D(15-5), D0, D1, RO-R2, S0-S3,S7,S8,511, FUNCDO 
2218 
2219 ** Stk Ivls: 4 
2220 ae 
2221 *% Detail: FREE PORT (<nun expr>) 
2222 xe CLAIM PORT (<nun expr>) 


2223 ax SHOW PORT 
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2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 


03389 


0338C 
0338C 
03390 
03394 
03397 
03393 
0339C 


858 


7400 
31A3 
966 
50 
171 
7R88 


033A0 00 


033A2 


800 


033A5 00 


033A? 


033AA 
033AD 
033AF 


03383 
03387 


581 


878 
£0 
7110 


7000 
7000 


033BB 03 


033BD 
033C0 


854 
6A6R 
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** History: 
ae 


A Date Progranner 
Ae cobs aes, wage cites 


** 02/01/83 SS. 


ae 05/02/83 SLU. 
xk 
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Modifications 
Updated docunentation 
Added call to LPRNCK 


FOO IOI OTTO TTT ISI IIT ITT TIO III ITN 
FOI IO TOTO TT TTT TOT TI 


x 
=SHOMp ST=1 8 
x 


=CLAINp 

=FREEp GOSUB GNXTCR 
LCASC \:\ 
RHC OB 
GOYES FREEO3 
D1=D1+ 2 

FREEO3 GOSUB WRDSCN 
CON(2) =tPORT 
REL(3) FREEOS 
NIBHEX 00 

; GONC  FREEOS 

FREEOS 7ST=1 8 
GOYES RTNCC 
GOSUB LPRNCK 

x 


* FSPECp entry 
k 


=FREE15 GOSUB =NUNCK 
GOSUB =PRENCK 

RTNCC = RTNCC 

x 


=FREEO? ST=1 4 


FREEO8 GOTO  ERRO1 
x 


No port# allowed. 


FREE/CLAIN PORT 


Char after FREE/CLAIN = ":"? 
No 
Yes, skip it. 


Other 


(B.E.1.) Syntax error 


SHOW parse ? 


Parse nuneric expression 
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2262 STITLE LPRNCK 
2263 SII TI ITI IIT IITA IS TIT I II SII ISIS I ISIS SSSI SSIS SII SSI ISA 
2264 SIS IIIT TTR IIIT IIIT SISA ISIISISSSISIII SSIS SSI IIA 
2265 RR 
2266 ** Nane: LPRNCK - Checks if Next Non-blank Char is ( 
2267 ak 
2268 ** Category: PARUTL 
2269 ak 
2270 ** Purpose: 
2271 *K Checks if next non-blank character is a left paren. 
2272 vie If it is not, LPRNCK takes an error exit. 
2273 an 
2274 ** Entry: 
2275 o D1 points to opt. blanks preceding character to check 
2276 
2277 ek Exit: 
2278 ar If next non-blank character is a left parenthesis: 
2279 ak Return with carry clear 
2280 ak P=0 
2281 RK D1 advanced over the ascii ( 
2282 =e 
2283 ak Else error exit through PARERR 
2284 ak 
2285 ak Calls: GNXTCR 
2286 a 
2287 *k Uses: A(B), C(B), D1, P 
2288 ae 
2289 ek Stk lvls: 1 
2290 = 
2291 ** History: 
2292 xk 
2293 ie Date Progranner Modification 
2294 RK cm mew wee eww meee mee eee nce mee www e ewer ee ce nec cmwamenacen 
2295 . 11/03/83 = S.W. Added docunentation header 
ae JI III CITI RII OI II IIS SISTA ISS SIS III ISA AIS IIS 
2298 JOO TOI OTT TOAST IIIT III IIIS SIS III II ISIS III SSIS SS IIIA 
2299 - 


2300 033C4 709C =LPRNCK GOSUB GNXTCR 


2301 03308 3182 
2302 033CC 966 
2303 O33CF EE 
2304 03301 171 
2305 033D4 01 
2306 


LCASC \C\ 
RRC OC 
GOYES FREEO? 
D1=D1+ 2 

RIN 
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=!CK 
'CK+ 
='CK2 
=!CK3 
=#CK 
ARRYCK 
=ASNMP 
ASNMP1 
=C LAIMp 
CONCK 
=CONCK+ 
CONCKI 
=CONCKO 
CONCON 
=CRGIMP 
=D1C=R3 
DATACK 
=DECP 
DECPOO 
DECPO1 
DECPES 
=DEFP 
DEFPSO 
DEFP 70 
DEFPE+ 
DEFPE6 
DFKEYP 
DFPE XP 
=DINP 
DINPOS 
DINP15 
DINP20 
DINPES 
DISPP 
DSTRPO 
DSTRPS 
=DSTRYP 
=DSTp 
EOLCK 
EOLCK+ 
ERR-TR 
=ERRO1 
=ERROC 
=ERRO3 
=ERRO4 
=ERROS 
=ERROG 
=ERROS 
=ERROQ 
sERRIO 
zERR11 
=ERR3 
ERR3* 
=ERRDSP 
ERRIDS 


Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Ext 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
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11788 #O2E0C 
11804 #02E1C 
11795 #02E13 
11807 #O2E1F 
13142 #03356 


12622 #O314E 
12631 #03157 
13196 #0338C 


12974 #O32AE 
12370 #032AA 


12410 #0307A 
12359 #0347 


12943 #0328F 
12959 #0329F 
12966 #032A6 
12916 #03274 
12435 #03093 
12521 #OWES 
12555 #0310B 
12414 #0307E 
12427 #0308B 


12431 #0308F 
12987 #032BB 
13000 #032C8 
121 #03200 
142 #O32F2 
1376 #03314 


13095 #03327 
13173 #03375 
180 #03318 
12890 #0325A 


12141 #O2F 6D 
11819 #02E28 
11829 #02E 35 
11839 #02E 3F 
11868 #OZE5C 
11878 #O2E 66 
11888 #OZE 70 
11905 #02E81 
11915 #O2E3B 
11925 #02E95 
12034 H#O2FO2 
11858 #02E52 
11848 #02E48 
12091 #02F 3B 
12135 #02F67 


573 
585 
581 
587 
2088 
1784 
1397 
1400 
2237 
1302 
1856 
1711 
1855 
1543 
1194 
1115 
1678 
1780 
1785 
1788 
1729 
1260 
1295 
18 
1251 
1256 
1262 
1258 
1905 
1910 
1921 
1931 
1982 
829 
2036 
2159 
2030 
1718 
779 
710 
850 
699 
703 
70? 
719 
723 
72? 
736 
740 
744 
795 
715 
710 
825 
849 
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2163 
1913 


1318 


1856 
1785 


815 


1786 
1783 
1712 
1781 


1303 
1291 
1267 
1271 


1299 
1922 
1907 
1911 


2039 
2038 


1705 


842 
1251 
1514 
407 
712 
1729 
1256 
1258 


708 
823 


1921 


1739 


1916 


1517 


1982 


2037 


1925 1929 


1938 


1700 2050 2260 
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ERRIF Abs 11935 #O2E9F - 757 792 
ERRIF* Abs 11954 #02EB2 - 765 819 
ERRIF+ Abs 11994 HO2EDA - 779 775 
ERRIF1 Abs 11950 HO2ERE - 764 760 
ERRIF2 fibs 12005 HOZEE5 - 783 772 
ERRIF3 Abs 12014 #O2EEE - 786 780 
ERRIF7 Abs 12020 HOZEF4 - 787 
ERRIF9 Abs 12024 HO2ZEF8 - 789 778 784 

=ERRXO Abs 12040 #O2F08 - 804 700 704 716 720 724 737 = 741 

745 

=ERRX10 Abs 12049 #02F11 - 808 805 
ERRX11 Abs 12052 #02F14 - 809 7% 

=ERRX20 Abs 12112 WO2F5O - 841 524 814 

sEXCHRe Abs 11905 #02E81 - 735 
EXPPR+ Abs 12922 #0327A - 1733 1402 1718 
EXTIF+ Ext - 1044 
FIXP Ext - 381 2166 

=FIXp Abs 13187 #03383 - 2166 

=FRP Abs 12600 #03138 - 1387 

=FNP+ Abs 12600 #03138 - 1388 
FREEO3 Abs 13212 #0339C - 2243 2241 
FREEOS Abs 13226 #033AA - 2249 2245 

=FREEO7 Abs 13245 #0338D - 2259 2164 253 
FREEO8 Abs 13248 #033C0 - 2260 2247 

=FREE1S Abs 13235 #033B3 - 2255 

sFREEp Abs 13196 #0338C - 2238 

=FSPECe Abs 12034 #02F02 - 794 

=GNXCR+ Abs 12391 #03067 - 1186 1552 
GNXTC1 Abs 12397 #O306D - 1188 1191 

=GNXTCR Abs 12388 #03064 - 1185 1528 2088 2238 2300 

sIFCK bs 12418 #03082 - 1253 1269 

=ILCNTe Abs 11888 #02E70 - 726 
INADDR Ext - 445 4 999 
INPTER Rbs 12851 #03233 - 1700 1692 
INPTP1 Abs 12816 #03210 - 1685 1680 
INPTP2 Abs 12835 #03223 - 1694 1689 

=INPUTP Abs 12794 HO31FR - 1676 

=IVEXPe Abs 11829 #02E35 - 702 

=IVPARe Abs 11839 #OZE3F - 706 

sIVARe Abs 11878 #02E66 - 722 
LBLINP Ext - 771 
LEXPTR Ext - 1446 

=LINEW? Abs 12279 #O2FF7 - 1051 1042 

=LINPTP Abs 12791 #031F7 - 1675 
LNEP26 Ext - 1054 
LNEP66 Ext - 831 
LNEPLN Ext - 1053 
LNP55)~—s Ext - 781 
LNPTPS Abs 12935 #03287 - 1738 1710 

=LPRNCK Abs 13252 #03304 - 2300 2251 
MAINIO Ext - 847 
MEMERR Ext - 331 
MFERR- Ext - 846 

=MSPARe Abs 11868 #02E5C - 718 
NUNCK Ext - 2255 
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NUMCKO 
Ntoken 
=QAGNXT 
=OFFP 
OFFP10 
=OPTP 
OPTP10 
OPTP20 
OPTP30 
=QUT1T+ 
=QUTTTK 
=QUT2TC 
=QUT2TK 
=OUT3TC 
=QUT3TK 
=OUTBY+ 
=QUTBYT 
OUTNB4 
QUTNBS 
=QUTNIB 
=QUTOVF 
OUTVAR 
OVFLCK 
=PRRERR 
PILP 
PRENCK 
=PRNEKe 
=QUOEXe 
R.STPR 
R3=D1* 
=READP 
RERDP2 
READP4 
=READPS 
=REDPES 
REL3D0 
RENP 
RESCAN 
=RESPIR 


=REST* 

RESTAI 
RESTAZ 
RESTA3 
RESTAS 
RESTA? 
RESTAR 
REST xx 
RS-RO3 
RSTR75 
RSTRT? 
RINCC 

S-RO-0 
$-R1-3 
=SHOWp 


Ext 
Ext 
fibs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 


12384 
13157 
13177 
11598 
116% 
11649 
11691 
1148? 
11499 
1151? 
11519 
11538 
11541 
11493 
11496 


11560 
11592 


11579 
12040 


11925 
11915 


12855 
12871 
12883 
12859 
12907 


12658 


12341 
12165 
12204 
12207 
12243 
122% 
12148 
12170 


12336 


12296 
13243 


13193 
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Synbol 


#03060 
#03365 
#03379 
#02D4E 
#02D6E 
#02081 
#02DAB 
#O2CDF 
#02CEB 
#O2CFD 
HO2CFF 
#02012 
#02015 
#O2CE5 
#O2CE8 


#02028 
#02048 


#0203B 
HO2FO8 


#02E95 
#O2E8B 


#03237 
#03247 
#03253 
#03238 
#0326B 


#03172 


#03035 
HOCF SS 
#HOCFAC 
#OCFRF 
#02FD3 
#03002 
ROCF 74 
#OCFSR 


#03030 


#03008 
#033BB 


#03389 


' ' ' ' ’ t t 1 


1933 
128 
1184 
2153 
2163 
379 
389 
397 
40? 
263 
268 
274 
275 
281 
282 
266 
267 
1273 
178 
288 
331 
1527 
326 
803 
1702 
1304 
743 
739 
1011 
1383 
1202 
1709 
1713 
1705 
1726 
182 
589 
152 
1446 
1508 
1071 
996 
1009 
1010 
1032 
1054 
98? 
993 
1253 
1068 
1056 
2257 
508 
105? 
2235 
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1390 
1905 


2157 


383 
385 
387 


264 


1294 
504 


1286 
328 


269 


2256 


1706 
1698 
1682 
1708 


103? 
125 
1788 


988 
1004 
997 


1082 
811 
1074 


1064 
810 
391 
767 

1071 


1542 
1547 


395 
1184 


1401 
588 
1393 


276 


1687 
1722 


180 
2034 


393 


1855 


1677 


1540 
828 


283 


1714 
1740 


579 
2159 


399 
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1713 


289 


709 


401 


1858 


764 


403 
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787 = 806 


405 2250 
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SPLVRP 
STLXP2 
STMTDO 
=STNTL+ 
STNTL2 
=STNTLO 
STNTLe 
STRGCK 
SVRST2 
=SYNTKe 
=TRACEP 
TRCPE1 
TRNFCK 
=UPDIN+ 
=UPDINA 
USFPE2 
USRFE+ 
USRFE1 
USRFP 
USRFP2 
USRFP? 
USRFPE 
VARP 
WRDS10 
WROS20 
WRDS35 
WRDS40 
WRDSSO 
WRDS55 
=WRODSC+ 
=WRDSCN 


=XCHECK 
XCHEK1 
eEXCHR 
eF SPEC 
eI LCNT 
eILEXP 
eI LPAR 
eI LVAR 
eL2LNG 
eMSPAR 
ePRNEX 
eQUOEX 
eSYNTX 
errif 
errx0 
exppar 
Inep66 
ntken+ 
rtncc 
t! 
tALL 
tANGLE 
tBASE 


Rbs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 


Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Rbs 
Ext 


13067 


11716 
11753 
11719 
11778 


11819 
13109 
13138 


11698 
11695 
12678 
12631 
12694 
12698 
12720 
12673 
12684 


11315 
11329 
11364 
11366 
11385 
11414 
1132 
1136 


11460 
11464 


12031 
11914 


12108 
12920 


393651 
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#O330B - 


#02004 - 
#O2DE9 - 
#O2DC7 - 
#OZEO2 - 


#O2E2B 
#03335 
#0 3352 


#02DB2 
#O2DAF 
#03186 - 
#03193 - 
#03196 - 
#0319A - 
#031B0 - 
#03181 - 
HO318C - 
#02C33 - 
#02(41 - 
#02064 - 
#O02C66 - 
#02(79 - 
#02096 - 
#02(26 - 
#O2C2A - 


#02004 
#02(C8 


HO 2EF F 
#02E87 


#O2F4C 


#03278 - 


#601B3 


1 


1978 
1017 
1012 
500 
510 
501 
523 
1695 
1039 
698 
2041 
2050 
822 
445 
443 
1510 
1516 
1517 
1519 
452? 
1507 
1513 
1780 
129 
134 
146 
149 
156 
168 
125 
126 
2153 
184 
185 
736 
795 
727 
703 
715 
723 
523 
719 
744 
740 
699 
792 
737 
1736 
831 
758 
1731 
587 
2031 
13 
380 
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1295 2036 


507 
512 


1919 
841 
763 


1409 
1399 
1537 
1282 
1525 
1406 
1404 
1906 
153 
173 
2155 
141 
139 
158 


379 
2243 


140 
786 


783 
826 
729 
2032 


1724 


382 


1936 


1550 
1544 
1391 


1978 


163 166 
389 397 =1260 


849 
taa 
2043 2045 «2047 
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tCONMA 
tDEGRE 
tDISP 
tERROR 
tF LOW 
tFN 
tKEY 
tNEAR 
tNEG 
tOFF 
tPORT 
tPOS 
tPRNST 
tRDIAN 
tROUND 
tSEMIC 
tSVAR 
tTINER 
tVARS 
tKFN 
tXWORD 
tZERO 


Ext 
Ext 
Ext 
Ext 
Abs 2687471 
Ext 
Ext 
Abs 3932655 
Abs 3998191 
Ext 
Ext 
Abs 4325811 
Ext 
Ext 
Abs 4981231 
Ext 
Ext 
Ext 
Abs 5964271 
Ext 
Ext 
Abs 1835503 


Parse Routines 
Syrbol Table 


#901EF 


#COIEF - 
RDOTEF - 


#201B3 - 


HCOIEF - 


#BOTEF - 


HCOIEF - 


1400 
3% 
82? 

2154 

13 
1265 
1261 

13 

13 
2042 
2244 

13 

1293 
392 

13 

1539 

1523 

2156 

13 
160 
137 

a3 


- Part 2<831212 


1688 


2046 


398 
402 


400 


384 
1545 


2044 
18? 
184 
404 


1686 


1696 
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Input Paraneters 
Source file nane is JP&PR2::MS 
Listing file name 1s JP/PR2:TI:ML::-1 
Object file nane is JPZPR2:TI:NS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 
2 
3 03306 
4 t 
5 x 
6 x 
7 X 
8 x 
9 x 
10 i 
1 
12 
13 
14 ax 
15 Kk 
16 aK 
17 a 
18 kk 
19 ak 
20 xk 
21 tk 
22 tk 
23 tk 
24 tk 
25 th 
26 at 
27 ah 
28 ah 
29 tk 
30 ak 
31 as 
32 tt 
33 th 
34 aa 
35 ak 
36 tk 
37 tk 
38 ak 
39 tk 
40 tk 
4} tk 
42 tk 
43 tk 
44 tk 
45 tk 
46 tk 
4? tk 
48 tk 
49 th 
50 tk 
51 tk 
52 ak 
53 ah 
54 tk 
55 tk 
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STITLE PIL Parse - # Parse 
TITLE Parse Routines - Part 3<831212.1204> 


ABS 


p 
p 


) 
P 
JJJ_ OP 


Ce Cre Coe Con Coe Coe 


J 


PPPP 


PPPP 


#03306 


& PPPP RRRR 333 
P && P PR R33 
P && P PR R 3 
& PPPP = RRRR 33 
&&& P R R 3 
& & P. RR 3 3 
& & P R R 333 


RDSYNB TIZEQU: : AS 


Narie: 
Category: 


Purpose: 


Entry: 


Exit: 


JOO OO TT TTT TE TTT TTT ITT IK 
FIR IO IT TTT TTT TTR TTT IE IE TTT ITI 


PILP - Channel Nunber, Record Nunber Parse 


PARUTL 
Parses Channel Nunber and Record Number 


PILP entry parses both the channel nunber 
and the optional record nunber. Channel 
nuriber must either be followed by a conna 
and a record nunber, or it nust be 
innediately followed by a seni-colon; other- 
wise an error exit is taken. If the channel 
nunber is followed by a comma and a record 
nunber, then this entry nakes a distinction 
as to whether or not the record nunber is 
followed by a seni-colon - if it isn’t this 
routine assures that statenent parse is 
conplete (ie no parameter list) and returns 
directly to the main parse driver. If it 

is followed by a seri-colon, it returns to 
the caller. This entry point is utilized 

by both READ# and PRINTH. 


PILP+ entry parses the channel nunber only. 
It indicates on exit by use of a status bit 
setting as to whether or not the channel 
nunber was followed by a conna. 


2 entry points: 

D(A) = (AVMENE) 

D1 points to optional blanks preceding # 

DO points into output buffer 

1) PILP - Caller must be on the sane 
subroutine level as if they 
were called by the nain parse 
driver. 

2) PILP+ - S8=1 


Carry set => 
No ’#’ found 
Carry clr => 
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Found ’#’ and parsed channel# 
P=0 
PILP entry: 
tSEMIC was last token found and output 
(syntax was <channel#> [<record#>] ; 
Di past ascii ; 
DO past tSENIC 


PILP+ entry: 
$8=1 => No cornma after channel# 
S8=0 => tCOMMA found and output 


No rtn to caller (only to main parse driver) => 
(only for PILP entry) 
Record nuriber wasn’t followed by a serii-colon 


Error exits if neither ’,’ or ’;’ found after 
channel nunber (PILP entry only) 


#CK, OUT1TK, NUNCK, RESPTR, CONCK+, NUNC+0 
A-C,D(15-5), SO-S3, $7, $8,511, RO,R1,R3, FUNCDO 


For PILP entry, if there’s no terminating seni- 
colon after the record#, a level 1s popped off 
the return stack before returning. This is 
because 1t assuties the staterent syntax 1s 
corplete. 


Another assumption made by PILP entry is that 
if there’s no record nunber specified, there 
had better be a variable or expression list 
(which is always preceded by a seni-colon). 


Acceptable syntax for commands calling PILP/PILP+ 


PRINTH uses sarie general syntax as READH: 


READ #<channel no.>; <vbl/expr list> 
READ #<channel nunber>, <record nunber> 
READ #<channel no.>, <record no.>; <vbl/expr list> 


RESTORE #<channel nunber> [,<record nunber>]} 


Progranner Modifications 
S.W Modified docunentation 
S.W. Replaced call to COMCK1 u/CONCK+ 


JOO Ob bOI OI IIIT OOO TTI 
JOO IGE III IO OIC I TTR IR TR IO 


56 aK 

57 ax 

58 a 

59 kk 

60 kk 

61 kk 

62 kk 

63 ak 

64 ak 

65 hk 

66 kk 

67 kk 

68 xk 

69 kk 

70 ak 

71 ak 

72 kk 

73 xx 

74 kh 

75 *k Calls: 

6 aa 

77 ak Uses: 

28 ka 

79 kk Stack lvls: 5 

80 kk 

81 ek Detail: 

82 tk 

$3 ak 

R4 ae 

85 hk 

86 ak 

87 hk 

88 ak 

89 xr 

a0 ee 

9} ax 

92 kk 

93 ae 

94 kK 

95 kk 

96 he 

9? kk 

98 xk 

99 ax 

100 xk 
101 ** History: 
102 ak 
103 ak Date 
104 $4 Veo. 
105 kK 07 (08/82 
106 RK 06/11/83 
107 ak 
108 
109 


110 


x 
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111 03306 848 =PILP ST=0 8 
112 03309 7000 =PILP+ GOSUB =#CK 


113 033DD 400 RTNC # not found? 
114 033E0 72B2 GOSUB NUNC+0 WILL BE SAVED IN R3 
115 033E4 7000 GOSUB =CONCK+ 
116 033E8 441 GOC PILP COMMA AFTER CHANNEL #? 
117 * NO COMMA FOUND AFTER CHANNEL# 
118 033EB 878 *ST=1 8 CALLED BY RESTORES? 
119 O33EE 32 GOYES ResPtr 
: 120 * NO COMMA, BUT CALLED BY READH/PRINTH 
4 121 033F0 3100 LC(2)  =tSENIC 
122 033F4 966 RAC OB NO EXPR/VAR LIST? 
123 033F7 32 GOYES PILP85 
124 033F9 6000 PILP10 GOTO =OUTITK QUTPUT SEMICOLON TOKEN 
125 * COMMA AFTER CHANNEL # 
126 033FD 878 PILP3 ?ST=1 8 CALLED BY RESTORES? 
127 03400 51 ‘ GOYES PILP89 
128 
129 03402 7792 GOSUB NUNCK PARSE RECORDH 
13% 03406 3100 LC(2)  =tSENIC 
131 O340A 962 *AeC OB TERMINATING SEMI-COLON? 
‘ 132 O340D CE GOYES PILP10 
i 133 ‘ 
4 134 O340F 07 PILP40 C=RSTK RETURN TO MAINLOOP 
135 03411 6000 ResPtr GOTO =RESPTR BACK PTR UP 
136 . 
137 03415 848 PILP80 ST=0 8 INDICATES COMMA AFTER CHANNEL # 
138 03418 03 RTNCC 
139 . 
140 OW1A 4F6 oP ilps GOC FORPE1 (B.E.T.) 


141 
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142 STITLE FOR/NEXT Parse 
143 JI II OI TI TOS TI TTI TTI ISIS II III TI ISI III IT IIIT SI III III IATA 
144 JIU OO OI II TIT TI ISI IIIT III TIO IT III III ITI STITH 
145 Re 
146 *k Nane: FORP - FOR Statenent Parse 
~ 447 ah 
148 ** Category: STPARS 
149 RK 
19 ** Purpose: Parses FOR Statenent 
151 ax 
152 ** Entry: D(A) = (AVNENE) 
153 on D1 past FOR keyword 
154 Rx DO points into output buffer past tFOR 
155 ae 
156 ek Exit: Statenent properly parsed => 
157 RX Return with carry clear 
158 ax P=0 
159 7 D1 past syntactically correct FOR statenent 
160 x DO past tokenized statenent in output buffer 
161 x < 
162 ak Else error exit to PARERR 
163 ax 
164 ** Calls: NXTP, GNXTCR, NUNCK, WRDSCN, RESPTR 
165 ax 
166 - Uses: A-C,D( 15-5), SO-S3, $7, S11, FUNCDO, DO, D1,RO,R1,R3 
16? 
168 ** Stk lvis: 5 
169 ae 
170 ** History: 
171 Rx 
172 xx Date Programmer Modifications 
173 RRO Seeks) cbewoe hese . seebetsccse ves 
174 Re 10/21/82 SLU. Wrote docunentation 
xk 
be JUICES IIE IIIT OI IOI IT ITO TIT TIS IT IRI 
177 JOS IOI ISI OIG III I IOI IAI OI IIT IS ISI IIS IIA 
178 ; 
179 . 
180 0341D 7430 =FORP GOSUB NXTP 
181 03421 7000 GOSUB =GNXTCR 
182 03425 31D3 LCASC =\=\ 
183 03429 966 RHC OB 
184 0342C 73 GOYES FORPER 
185 0342E 3100 LC(2) =tCONNA 
186 03432 DA A=C A 
18? 03434 7ESe GOSUB NUNC+0 NUMERIC EXPR S/FOLLOW 
188 03438 3100 LE(2)  =tTO 
189 0343C 966 PAHC OB NOT T_TO? 
19 O343F B4 GOYES FORPE1 
191 03441 7452 GOSUB NUNCKO 
192 03445 &E00 GOSUBL =WRDSC+ RESTORE POINTER FIRST 
00 
193 0344B 00 CON(2) =tSTEP 
194 0344D 000 REL(3) =FIXp T_STEP? 


195 03450 00 CON(2) 0 
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196 03452 5EB 
197 

138 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

2H” 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 03455 7580 
244 03459 585 
245 0345 872 
246 O345F 65 
247 03461 03 
248 

249 03463 6000 
250 


GONC = =ResPtr (B.E.T.) 


FORO TTT TT TIT TTT 
FOR IOI JIT TTT TT ITT IIT ITN 
ak 


xX Nane:(S) NXTP  - NEXT statenent parse 

ae 

** Category:  PARUTL 

re 

** Purpose: 

ax Parses NEXT Staterient. Also useful for 
xx simple numeric variable parse. 

kk 

** Entry: 

kk DCA) = (AVMENE) 

ak D1 at alleged simple nunberic variable 

ne DO points into output buffer 

kk 

kk Exit: 

ak Carry clear => 

a Sinple numeric variable found and output 
ak = 0 

aR Carry clear 

an D1 advanced past variable 

aK DO points past tokenized variable 

kk 

xe Else error exit to PARERR with eI LVAR 

ah 

** Calls: VARP 

as 

BM USOS Woes 

ax A-C, DO, D1, SO-S3, $11, RO 

ak 

** Stk lvls: 4 

kk 

** NOTE: 

ne This also serves as parse for NEXT staterient 
kk 

kX History: 

xk 

kk Date Progranrier Modification 
Oh vue MC eseee eS. joe tee Saselcouns atest aweauneee 
** 02/03/83 S.W. Added docunentation 
ak 


FOO IIT TOT TT TTT TT TT TOK 
FO IIIT TTT ITT TI I IT III ITT RI IN 
x 


=NXTP GOSUB VARP 


GONC  FORPES STRING VARIABLE? 
Se. 2 ARRAY VAR? 
GOYES FORPES 
RTNCC 
x 
FORPER GOTO © =FREEO? Set S4; ERRO1 
x 
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251 STITLE IF Parse 
252 JORIS I IIT TIT IIIT RIT I TIT II III IT IIIT III III IS IAS IN 
253 JO II IO TI TIT I TIT TI TT ITI I III DIT ITI IIIT ITO III II IOI IIS ISS I A 
264 xk 
255 xx Nane: IFP - IF statenent parse 
256 ** Nane: ELSEP - ELSE parse 
257 aR 
258 ** Category: STPARS 
259 aK 
260 ** Purpose: IFP entry parses the first part of an IF 
261 ak construct (up through THEN). If THEN is 
262 os inmediately followed by a line number or 
263 ak a quoted label, the parse continues 
264 Ke through the inplied GOTO. It also traps 
265 aR out implied LET and transfers control to 
266 kk the appropriate parse with S10 and S9 set, 
267 ax flagging this as an inplied LET in the 
268 KK ’middle’ of an IF statenent; this prevents 
263 kk a failed implied LET parse fron being re- 
270 ah parsed as implied DISP - instead it will 
271 x be parsed as a label (implied GOTO). 
272 ak 
273 a ELSEP entry parses what innediately 
274 ak follows the ELSE keyword. This is 
275 AR analogous to what is said for THEN above. 
276 KA This entry is used by the tain parse 
277 a driver when it encounters the ELSE key- 
278 aR word and it has been determined that it 
279 ae is appropriate (S6=1) 
280 ae 
281 kk Entry: 56=0 
282 xx D(A) = (AYNENE) 
283 as IFP entry: 
284 AX D1 is past IF 
285 a DO points into output buffer past tIF 
286 a ELSEP entry: 
287 ae Di is past ELSE 
288 ze DO points into output buffer past tTHEN (t@) 
289 x 
290 xX Eur ts P=0 
291 - S6=1 => ELSE 1s a legal stnt terninator 
292 aR 
293 ax Returns to tain driver with carry clr => 
294 es THEN/ELSE was followed by a line number 
295 7 or a quoted label 
296 AR 01 1s past the line nunber or label 
297 ee DO 1s past the tokenized inplied GOTO 
298 Ax 
299 ae Exits via LNPO6 => 
0 a This looks like an ’extended IF’ of the 
1 a type that THEN/ELSE 1s followed 
He ae innediately by an inplied LET. 
3 AX $10=S9=1 (Don’t try implied DISP if errors) 
#4 a A contains variable or user-defined 


305 xk function tokenization. 
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HO = D1 is advanced past the corresponding text. 
7 ak tEXTIF (t@) has been output 
8 ah DO is 4 nibbles beyond tEXTIF 
9 * (beyond statenent length byte) 

310 an 

311 ae Returns to main driver with carry set => 

aie ak This looks like an ’extended IF’ but 

313 xt it is not an implied LET; 1e it looks 

314 xe like THEN/ELSE 1s immediately followed 

a5 =e by a begin BASIC keyword. 

316 a $10=S9=1 (Don’t try inplied DISP if errors) 
317 aX A = The token following THEN/ELSE 

318 ah D1 1s advanced past the corresponding text 
319 an tEXTIF (t@) has been output 

320 aA DO is 4 nibbles beyond tEXTIF 

321 aa (beyond statenent length byte) 

322 al 

323 &* Calls: NUNCK, WSRO-3, LBLNIF, WROSCN, SVRSTA 

324 ak eolck+, FINDA, R.STPR, STNTLO, UPDIN+ 

325 ak 

326 xt Uses: A-C,D(15-5), D1,D0, RO,R1,R3, SO-S3,S6,S7,S9, 
327 ak FUNCDO, S-RO-3, S-R1-0, S-R1-2, S-R1-3 

328 ah 

329 *t Stk Ivis: 6 

330 ak 

331 ** Detail: "IF’ illegal after *pending’ THEN 

332 ae S6 is the global flag that indicates whether 
333 ak or not ELSE is a valid statenent terninator. 
334 - It also indicates whether or not IF is a 

335 ae legal construct in the current context: 

336 aX $6=0 => IF is a legal construct 

33? ae ELSE is not a legal terminator 

338 AP Either we’re not currently parsing 
339 =e within an IF construct OR 

340 a We are, but it’s after the ELSE. 
344 et 

342 an S6=1 => IF is not a legal construct 

343 ne ELSE is a legal staternent terninator 
444 =e We are parsing within an IF 

345 x construct, but we are prior to ELSE. 
346 x 

47 *% Algorithn: 

348 xx 

349 xx Set IF in progress flag (S-RO-3); 

350 a Parse nuneric expression; 

351 ae If not tTHEN 

352 ax Error 

353 ae Clear RESTART flag (S-R1-3); Clear Err# (S-R1-0); 
354 ak Call NTOKEN; Set RESTART flag if XWORD/XFN; 
355 an Save RESTART address (S-R1-2); 

356 aa Save contents of LEXPTR in STATDO; 

357 ak 

358 a If variable (letter not associated with token) 
359 a or user-defined function nane 


360 a Call EXTIFP; 
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361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

38? 

388 

389 

390 

391 03467 137 

392 0346A ACZ 

393 03460 A4E 

394 03470 8E00 
00 

395 03476 135 

396 03479 7022 

397 0347D 8E00 
00 

398 03483 00 

399 03485 900 

400 03488 00 

401 

402 0348A 6000 

403 

404 0348E 856 

405 

406 

40? 

408 03491 7267 

409 03495 471 

410 03498 8600 
00 

411 0349E 868 

412 034A1 81 
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x 
xk 
ak 
xk 
ak 
xr 
xx 
xk 
ak 
ak 
te EXTIFP: 
ak 
xk 
an 
xk 
xx 
xk 
xn 
xk 


** History: 
st 


a Date 

KX: wSdeccceues 
KK 10/21/82 
kk 01/06/83 


aK 


Page 8 
Goto C2 (parse driver - see algorithr JP&PR1). 


If single or double quote 
Call LBLNIF; 
If legal label 
THEN return with carry clear 
ELSE error 
If line# 
Call LBLINF; return with carry clear 


Save token; 

Set $9 (Middle of IF) & S10 (Implied LET) 
(Needed so string functions & failed assignments 
don’t parse as implied DISP, but as labels) 

Output tEXTIF (looks like @); 

Calculate & write out stnt length in previous 

INADDR; Update INADDR; Restore token; 

Return with carry set 


Prograriner Modifications 
S.H. Wrote docunentation 
S.W. Added algorithn 


FOI OT OTT ITO TOT TT I ITI SOI 
FO IOI OOO OTT TOIT 


x 
x 


=IFP CD1IEX 
C=0 
C=C-1 
GOSUBL 


b1=C 
GOSUB 
GOSUBL 


CON(2) 
REL(3) 
‘ CON(2) 


FORPE1 GOTO 
x 
IFPSO ST=1 


oe Oe 


ELSEP GOSUB 
coc 
GOSUBL 


7§T=0 
GOYES 


Save D1 
S 
S Set Global IF flag 
=WSRO-3 in S-RO-3 
Restore D1 
NUNCK SEE IF NUMERIC EXPR 
=WRDSC+ RESTORE PTR FIRST 
=tTHEN 
IFP50 NOT T_THEN? 
0 
=ERRO1 
6 PENDING THEN FLAG (ELSE LEGAL) 


Will be used if Not Implied LET statenent 


eolckt SOME conrand MUST follow THEN/ELSE 
KYWMSG End of statenent token? 

=SVRST+ SAVE RESTART ADDRESS & SET FLAG 

11 NOT A VARIABLE? 

ELSEPS 
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413 é 
414 * MUST BE IMPLIED LET OR LABEL 
415 * SET FLAGS 
416 x 


417 O34R3 7E20 
418 
419 O34A7 8000 


ELSEP2 GOSUB EXTIFP 
* $9 set => Middle of IF 


GOLONG =LNPO6 Try Inplied LET parse 


00 
420 * Key word missing 
421 O34AD 7000 KYWNSG GOSUB =!CK Only ! legal as stnt terninator her 
422 034B1 6550 : GOTO ELSEP? Rtn if ! found, else give syntax er 
423 ; 
424 034B5 600  FORPES GOTO =ERROS 
425 
426 * MUST BE LINE#, QUOTED LABEL, OR KEYWORD. 
42? * HAVE ALREADY TRAPPED OUT IMPLIED LET, LABEL NANES WHICH EITHER 
428 : 1) START WITH A LETTER OR 2) ARE A STRING VARIABLE 
429 
4H * Assunes: 
431 *% ~ Maxinun Level of Subroutines used 
432 x LINEP 
433 x IF 
434 & LBLNIF 
435 a LABE LP 
436 x EXPPAR 
437 x NTOKEN 
438 : NTOKEN (uses 2 level internally) 
439 
440 * If line# or quote 
441 & Gosub to Label | Line# parse 
442 * else 
443 : Return SC (Must be extended IF with BASIC keyuord) 
444 
445 k 
446 O34B9 8E00 ELSEPS GOSUBL =FINDA 
00 
447 O3BF 00 CON(2) =tFN 
448 O34C1 2EF REL(3) ELSEP2 
449 O¥C4 00 CON(2) =tLINE# Line# 
450 O36 8H REL(3) ELSEP6 Yes 
451 O34C9 22 NIBASC \"\ Quoted label ? 
452 OCB 3H REL(3) ELSEP6 
453 O34CE 72 NIBASC \’\ Other quote ? 
454 03400 E20 REL(3) ELSEP6 
455 034D3 00 CON(2) 0 
456 . 
457 03405 85A = EXTIFP ST=1 = 10 So ERRDSP not done 
458 034D8 AAC A=A-1 § & S-RO-0 written to 
459 O34DB 480 GOc EXTIF+ Not an XWORD or XFN? 
460 O34DE 8E00 GOSUBL =R.STPR Write out E instead of F 
00 
461 & 
462 OME4 859 =EXTIF+ ST=1 9 Middle of IF 
463 OE? 101 Ri=A Save token 


464 OER 3100 


LC(2) =tEXTIF Extended IF token 
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465 

466 

467 OWEE 7000 

468 O34F2 7000 

469 OMF6 111 

470 OMFS 85A 

471 OMFC 02 

472 

473 OMFE 849 

474 03501 8E 
00 

475 03507 500 

476 O350A 6685 

47? 

478 
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Page 10 


Fri Dec 30, 1983 


* Only write out previous INADDR 1st time through (S10=1) 
* Fron RESTART, it isn’t updated 


GOSUB =STHTLO 
GOSUB =UPDIN¢ 
A=RI 
ST=1 10 
RTNSC 

x 

ELSEP6 ST=0 9 
GOSUBL =LBLNIF 


ELSEP? RTNNC 


GOTO ASNPE+ 
k 


x 


Qutbyt byte & calc stmt length 
Restore the token 
Set for RESTART 


Rllow line# or label 


Syntax error; Set S34 
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479 STITLE Variable Parse & Output 
480 REKEKKKKEREAIREKEKEERK ERROR OOOO TT TOTO TOC 
481 SRI RR JOJO II ROI SIO STII IIIT I IIIS TTI IT IIT IK 
482 ke 
483 ** Wane: (S) VARP - Variable Parse 
484 tk Nane: VARPOS - Variable Parse 
485 ae 

: 486 ** Category:  PARUTL 

i 487 x 

438 ** Purpose: 
489 aX Checks for a variable token. If found, it is output; if 
490 ae the token 1s not a variable token, an error exit 1s 
491 ak taken. 
492 = 
493 x VARP entry assunes that 01 points to optional blanks 
494 alas preceding the text to check. 
495 ax 
496 kx VARPOS entry assunes that NTOKEN has already been called, 
497 ak and that the token to check is in register A. 
498 ak 
499 tk Entry: 
500 ak D(R) = (AVMEME) 
501 ae DO points into the output buffer 
502 ak 2 entry points: 

; 503 ae 1) VARP - D1 at optional blanks preceding text to 

‘ 504 a be exanined. 

505 ax 2) VARPOS - Register A contains alleged variable token. 
506 ax D1 points past the corresponding text as per 
507 ax NTOKEN exit. 
508 i (LEXPTR) as per NTOKEN exit. 
509 aa 
510 kk Exit: 
511 ak Return to caller => 
512 a Variable parsed 
513 a Tokenized variable written to output buffer 
514 ae DO past variable tokenization in output buffer 
515 ax D1 past variable nane 
516 an Carry set => 
517 ae Nuneric variable found 
518 ax Carry clr => 
519 a String variable found ° 
520 aX : 
521 “ Error exit if variable not found or if MEMERR 
522 ae 
523 kx Calls: NTOKEN, OUTVAR 
524 a 
525 RA UGOR wit Sica 
526 kx Exclusive: A,DO,D1 
527 kk Inclusive: A,B,C, S0-S3,S$11,00,01, RO 
528 = 
529 ** Stk lvls: 3 
5% ak 
531 ** History: 
532 AX 


533 a% Date Progranner Modification 
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534 PR eres... Boereeeee: Vee eaee Seon een as eee 
535 *k 07/06/82 IP Modified docurientation 
536 ax 
537 III IIT OI I III II ITI II IAT TI III IIIS SII IIS ISIS IIIS SI SSIS SISII III ISIS 
538 BI KI IDI III III III II III TI SII IIS IIIS IAI IIIS ITI III III IIIT ISIS II IIASA 
539 x 
540 * 
541 0350E 7173 =VARP GOSUB ntoken 
542 03512 86B =VARPOS ?ST=0 11 NOT VARIABLE? 
543 03515 OA GOYES FORPES ILLEGAL VARIABLE 
544 03817 7322 GOSUB OQUTVAR 
545 0351B 861 *ST=0 1 NUMERIC? 
546 0351E 00 RTNYES 
547 03520 01 RTN 
548 x 


549 ; 
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550 STITLE Save DO/C and D1/A in R3 (R3=DIC) 
554 JOOS UTI ICO TTT IK 
552 SOI IIIT TTT DO TI ITT IIIT L ISI D IIIT TDI T ASIA 
553 aK 
554 kk Nane:(S) R3=D10 - Save DO and D1 in R3 
555 ** Nane: R3=D1C - Save C(R) & D1 in R3 
556 *X Nane: R3=D1+ - Save C(A) & A(A) in R3 
557 KK 
558 ** Category:  GENUTL 
559 kk 
560 *% Purpose: 
561 KK R3=D10 entry saves DO in R3(A) and D1 in R3(9-5). 
562 xx R3=DIC entry saves C(A) in R3(A) and D1 in R3(9-5). 
563 R3=D01+ entry saves C(A) in R3(A) and A(A) in R3(9-5). 
564 
565 ** Entry: 
566 ak R3=D10: DO and D1 contain values to save in 
567 kx R3(A) and R3(9-5), respectively. 
568 a R3=01C: C(A) and D1 contain values to save in 
569 ak R3(A) and R3(9-5), respectively. 
570 aK R3=Di+: C(A) and A(R) contain values to save in 
571 xX R3(A) and R3(9-5), respectively. 
572 KK 
573 KK Exit: 
574 ae Carry preserved fron entry 
575 Kk ACA)=C(R) 
576 xe R3=D10: R3(A)=DO on entry; R3(9-5)=01 on entry 
577 ee C(A)=A(A)=D0 
578 an R3=D1C: R3(A)=C(A) on entry; R3(9-5)=D1 on entry 
579 R3=D1+: R3(A)=C(A) on entry; R3(9-5)=A(A) on entry 
580 
581 kk Calls: None 
582 aK 
583 KK Uses.....0. 
584 xx R3=010: A, CCA), R3 
585 a R3=DiC: A, R3 
586 wk R3=D1+: A, R3 
587 xx 
588 Kk Stk lvls: 0 
589 Kk 
590 ** History: 
§91 ax 
592 xk Date Progranner Modification 
§93 KES cewecbie. intcisecocuc-, -oesewe veces ce de cuctenvelescecerees 
594 a 07/06/82 JP Modified documentation 
x 
eae JOO TOI IGS ICU OO ICICI TT TTR 
597 JOOS IOI ISIC ICU IOII TTT IIR 
598 & 
599 x 
600 03522 7000 =R3=D1* GOSUB =RESPTR 
601 03526 136 =R3=D10 CDOEX Save 01,00 
602 03529 134 : DO=C 


603 
604 0352C 133 


=R3=DiC ADIEX Save D1,C 


Saturn Assenbler Parse Routines - Part 3<831212 Fri Dec 30, 1983 3:04 an 


Ver. 3.39/Rev. 2306 Save DO/C and D1/A in R3 (R3= Page 14 

605 0352F 131 DI=A 

606 03532 BFO =R3=D1+ ASL W Save A,C 

607 03535 BFO ASL W 

608 03538 BFO ASL W 

609 03538 BFO ASL W 

610 0353E BFO ASL soW 

611 03541 DA A=C A 

612 03543 103 R3=A 


613 03546 01 RTN 
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614 STITLE REM Parse 
615 KI I III SSSI IIT DIAL I IIIT ITIL LTTE TDD II IIT DDI IIIS LI ISIS DSI DITA RISA 
616 XII IRI IRI I IDI DIAL II IDI SII III III III IIIS ITI III IIS IIT III IOI SITS I IAS 
617 ae 
618 ** Nane: REMP - REM Statenent Parse and ! Parse 
619 ** Narie: RENP10 - Entry for DATA, REM and ! Deconpile 
620 aK 
621 *% Category: STPARS 
622 & 
623 ** Purpose: REMP entry parses the REM statenent and conrents 
624 a beginning with ’!’. It does this by copying the 
625 a ascii characters in the input strean to the output 
626 xn buffer until DO (endline) is encountered. 
627 ak 
628 a REMP10 is an entry point for decompile; it 
629 A deconpiles DATA, REM and ', by copying the ascii 
630 = characters fron the token strean to the output 
631 ak buffer. 
632 ak 
633 ak Entry: D(A) = CAVMENE) 
634 at DO points into output buffer 
635 aE P=0 
636 aR 2 entry points: 
637 ak 1) REMP - D1 past REM keyword or °!’ 
638 as DO past tREM or t! 
639 a 2) REMP10 - D1 past tREN, tDATA or t! 
640 = DO past REM/DATA keyword or ’!’, 
641 aR followed by ascii blank 
642 ak 
643 aR Exit: 
644 ak Carry clear 
645 a D1 at OD (Endline) 
646 aR DO points into output buffer 
647 kk 
648 ake REMP: Ascii remark in output buffer 
649 BS DO past output OD 
650 ak REMP10: DO past last ascii character 
651 aR 
652 ** Calls: BLKOK, CHK-OD 
653 ax 
654 ** Uses: A(B),C(B),D0,D1 
655 7 
656 **k Detail: | Remarks and DATA parse are terminated with 
657 a tokenization DOOF. 
658 ie i.e.  tREM|t!|tDATA <ascii strean> DOOF 
659 ae 
660 ** Stk lvls: 3 
661 aK 
662 kk History: 
663 sie 
664 a Date Progranmer Modifications 
665 Re -ecswuee. wkivse to. Vdoeckuresoes 
666 KK 10/21/82 SW. Added special header 
667 04/29/83 SW. Added call to BLKOK 
668 *k 05/02/83 SLU. Added call to CHK-OD 
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669 ae 
670 FIR II II III RII III III IIIS I IIIS IIIT SII ISIS IAI IIIT ISI STII III SIT SIS IK 
671 SRI I II IIIT IIT III ID IIIS TIT II III III III ITI OE ITI III III SATII III STASI IK 
672 : 


673 03548 8£00 
00 


674 0354E 550 
675 03551 171 
676 03554 75D1 
67? 03658 SBF 
678 


=REMP GOSUBL =BLKOK 


GONC  RENP1O Carry set => blank 
=REMPOS D1=D1+ 2 
=REMP10 GOSUB CHK-OD 


GONC RENP10 (B.E.T.) 
& 
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679 STITLE DATR Parse 
680 JE III IORI III ITT IT TIT III IIIT IIIT SI IIIS SISK 
631 JI I TIT AIT I IIIT IID ISIS SSI II ISIS ISI SISI ISIS ISSA ISIS. 
682 ak 
683 ** Narie: DATP - DATA Statenent Parse 
684 ak 
685 ** Category: STPARS 
686 aK 
687 ** Purpose: Parses DATA statenent 
688 aE 
689 ae Entry: D(A) = (RAVMEME) 
6% ak D1 points past DATA keyword 
691 ak DO points into output buffer, past tDATR 
692 ak 
693 ak Exit: Valid parse=> 
694 ak Return with carry clear 
695 ak D1 points past syntactically correct statenent 
696 ak DO points past tokenized statenent 
697 ak P=0 
698 zs 
699 Calls: DATACK (OUTLIT), BLNKCK, OUT1T+, CHK-OD 
700 
701 ak Uses: R-C, DO,01 
702 ae 
703 *k Detail: Quoted strings may be delinited by single or double 
704 ak quotes, allowing any characters (except of course 
705 . the particular deliniting quote) to be quoted. 
706 
707 a6 Unquoted strings allow any characters except cornas. 
708 
709 x Quoted strings which are followed by extraneous non- 
710 aa blank characters before the conna or endline are 
711 aK treated as unquoted strings (i.e. everything fron 
712 = the preceding conna to the following conna or 
713 - endline is considered an unquoted string). 
714 & 
715 ‘et On unquoted strings, leading and trailing blanks are 
716 ak truncated. 
71? aR 
718 ax Due to the parse algorithn, unquoted strings which 
719 an contain a quote are considered to contain a quoted 
720 - string and so there nust be a natching quote. 
721 
722 aR At execution: 
723 ax DATA <endline> is interpreted as 
724 ae DATA "'" 
725 ak 
726 a and DATA <string>, is interpreted as 
727 aK DATA <string>,"" 
728 ax This is different fron the HP-85 
729 ae 
7H xX Stack lvls: 4 
731 ak 
732 ** History: 


733 le 


Saturn Assenbler Parse Routines - Part 3<831212 Fri Dec 30, 1983 3:04 an 


Ver. 3.39/Rev. 26 DATA Parse Page 18 
734 a Date Progranner Modifications 
735 WA. Glccce ee “eee tee. eee ee 
736 RK 10/21/82 9 S.M. Added Special header 
737 RK 04/28/83 SW. Allow unquoted strings to contain 
738 aK quoted characters 
739 kk 05/02/83 SH. Added call to CHK-OD 
740 aK 
741 III IID TI IT IIIA I IIIT III III ISISISI SI ISI I ISIS ISIS SIS III ISS IIIS A 
742 FI IOI IDI A III DI AIST I IIIS I ISIS IIIIISII IIIS III ISIS IPI ISIIS IIIS IIIA 
743 * 
744 k 
745 0355B 8E00 DATPOO GOSUBL =BLNKCK 
00 
746 03561 181 DO=D0- 2 
747 03564 75C1 GOSUB CHK-0D 
748 k 


749 03568 7271 =DATP GOSUB DATACK 
750 0356C 148 DATP30 A=DATI B 


751 O356F 31C2 LcASC \,\ 

752 03573 962 *A=C OB 

753 03576 SE GOYES DATPOO 

754 03578 3100 LCHEX OD 

755 0357C 962 7A=C OB 

756 O357F CD GOYES DATPOO 

757 03681 3122 LCASC \"\ 

758 03585 962 *A=C OB 

759 03588 OE GOYES DATP 

760 0358A 300 LC(1) =a’ 

761 0358D 962 7A=C OB 

762 03590 8D GOYES DATP 

763 03592 7091 GOSUB outit+ Preserve blnks in unquoted string 
764 03596 55D GONC DATP30 sl ee 


765 : 
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766 STITLE PRINT/DISP Parse 
767 BI TTI T OS IIA I IIIA II III III IIIS I SII IIISIS IIIS SII IIS 
768 FORO OOR RI JO OTT TT TTT TET TTI TTI DTK 
769 a 
770 ** Nane: PRTP - PRINT Statenent Parse 
771 kX Wane: (S) DISPP - DISP Statenent Parse 
772 ** Nane: DSPPO2 - Implied DISP Statenent Parse 
773 *& Wane: (S) USINGD - USING statenent Parse 
774 ax 

775 ** Category: STPARS 

| 776 kk 
777 ** Purpose: PRIP parses the PRINT statenent. 
778 ak 
779 ak DISPP parses the DISP statenent. 
780 a It is also used to parse an implied DISP 
781 ak when inplied LET parse has failed. 
782 ax 
783 aK DSPPO2 parses inplied DISP. The distinction 
784 x betueen DSPPO2 and DISPP is that with DSPPO2 
785 ak entry, parse errors result in a return to the 
786 ak caller; this entry is used on an alleged 
787 ax inplied DISP that cannot be an inplied LET, 
788 ae ie one that doesn’t start with a variable or 
789 xe user-defined function nane. 
79 ax 
791 ak USINGp parses USING part of PRINT USING stnt 
792 . This entry point used by HPIL for ENTER USING 
793 
794 ek Entry: D(A) = (AVNENE) 
795 ‘x D1 points at input strean 
796 ak DO points into output buffer 
797 -* 3 entry points: 
798 “ 1) PRTP - D1 past PRINT keyword 
799 ae DO past tPRINT 
800 Rx 2) DISPP - DO is past tDISP. 
801 x Either D1 is past the DISP keyword 
802 de OR 
803 ae D1 is at the beginning of a statenent 
804 * that failed implied LET parse and 
805 as 3) DSPPO2 - D1 at alleged expression list that 
806 ue doesn’t start with a variable or 
807 ee _ user-defined function nane. 
808 ae tDISP has been output and DO points 
809 ax past it. 
810 =e S8=1 
811 a If needed, 01/D0 have been saved 
812 R% somewhere so that in case of error 
813 = they can be recovered. 
814 ak 
815 am 4) USINGp - D1 at USING keynord 
816 B® 
817 RE Exit 
818 ial Carry clear => 
819 ax P=0 


820 ae D1 past syntactically correct statenent 
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821 aK DO past tokenized statenent in output buffer 
822 ax 
823 aX Carry set (DSPPO2 entry only) => 
$24 aK Not a valid implied DISP statenent 
825 a 
826 a Else error exit of sone kind: 
827 aX To PARERR (PRTP, DISPP entry only) 
828 BX or to MENERR (possible for all entry points) 
829 ax 
8H xk Calls: EXPPAR, NTOKEN, OUTITK, NUNCK, PILP, CONCK, WRDSCN, 
$31 . LBLINP, EOLCKR, RESPIR, R3=D10, DIC=R3 
832 x 
833 ** Uses: A-C,D( 15-5), SO-S3,$7,S8,S9,S11, RO-R3, FUNCDO 
834 xx 
335 xx NOTE: No routines called may use S8 (except PILP), S9 
836 am No routines below DISPP entry point may use R3 - 
837 ae See LNPOO utility 
838 a 
839 ** Detail: The PRINT statenent is tokenized identical to the 
840 aX DISP statenent, except for tPRINT instead of tDISP. 
841 he PRINT# 1s tokenized very differently fron PRINT. 
842 
843 ia! Conpiled DISP statenent looks like: 
844 aK tDISP [tUSING <tLINE# line#> | <string expr>] 
845 = {tSENIC <display list>] 
846 ax 
847 ae Compiled PRINTH# statenent looks like: 
848 xk tPRINT #<channel no.>[tCOMNA <rec no. >]tSEMNIC<exprs> 
849 x tPRINT #<channel no.> tCOMNA <record no.> 
850 ax 
851 tk Stk lvls: 5 (af PRINTH then 6) 
852 am 
853 ** History: 
854 ik 
855 aX Date Progranner Modifications 
856 XN sececcas!’ Ssosmmeciat “satocscstecucs 
857 k -10/21/82 SH. Eliminated capability for 
858 xe DISP USING <1lbl> 
859 k 04/29/83 SLU. Disallow TAB in PRINT/DISP USING 
860 ak 96/02/83 = S.W. Create USING subroutine for use 
861 ax by PRINT/DISP, ENTER/OUTPUT 
862 kk 05/11/83 SW. Replaced 1 call to CONCK1 w/COMCK+ 
ik 
JOGO OSI IOI TOTO ITT IITA TOK 
R65 JOIST CI IT IAT ITT IIT IIIT IIIA TAI 
866 


867 03699 793E 
868 03590 4% 
863 

&70 O35A0 6E60 
871 

872 

873 035R4 848 
874 O35A7 849 
875 O35AA 7A70 


=PRTP GOSUB PILP 
GOC DSPPO2 NOT PIL COMMAND? 
x 


GOTO = PRTHP 


DISPP ST=0 8 
DSPPO2 ST=0 9 Clear USING flag 
GOSUB USINGp 


x 
x 


Saturn Assenbler 
Ver. 3.39/Rev. 2306 PRINT/DISP Parse 


876 O35RE 
877 

878 03581 
879 

880 03585 
881 03589 
882 03588 
883 O35BE 
884 035C0 
885 03503 
886 035C5 
887 03508 
888 

889 035CA 


89) 03500 
831 

8392 03503 
893 035D7 
894 03508 
895 O35DE 
896 

897 035E0 
898 03564 
899 035E7 
%0 O35EA 
% 1 O35ED 
%2 

903 O35EF 
94 


905 035F3 
%6 O35F6 
7 O3SF8 
908 O35FC 
%3 03600 
910 03604 
911 
912 
913 
914 03608 
915 03600 
916 
917 0360F 
918 03613 
919 03616 
920 03619 
921 
822 0361B 
923 O361E 
924 03620 
925 
926 03624 
927 
928 
929 


560 
7471 


70D2 
00 
AFF 
00 
OFF 
00 
£20 
00 


8E00 
00 
4E1 


7000 
74A2 
870 
D3 


7DEO 
4(C 
B06 
962 
4C 


6000 


879 
E2 


7770 


7F?2 
6BDF 


7000 
52E 


7062 
44F 
860 
FE 
878 
6090 


656E 
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k 
DUSPX%O 
* 


DSPPOS 


PRTP2O 


& 
PRTP70 
x 


PRTP& 


x 


GONC DSPPOS 


GOSUB outttk 
GOSUB urdscn 
CON(2) =tCOMNA 
REL(3) DSPPOS 
CON(2) =tSEMIC 
REL(3) DSPPOS 
CON(2) =tTAB 
REL(3) PRTP8O 
CON(2) 0 


GOSUBL =EOLCKR 
COC PRTP70 


=RESPTR 
exppar 


GOSUB 
GOSUB 
*ST=1 (0 
GOYES PRTP8&S 
GOSUB CONCK1 
COC DUSP30 
C=C+t P 

*A=C OB 
GOYES DUSP3O 
GOTO =RESPTIR 
?$T=1 9 

GOYES PRTPE1 
GOSUB =LPRNCK 
GOSUB ARRYO1 
GOSUB ntoken 
GOTO PRTP2O 
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No tUSING ? 
(R3 not intact fron entry) 


RESTORE PTR & CK FOR EOL 
FOUND AN EOL TOKEN? 


INVALID ? 


COMMA OR SEMI-COLON? 


In a PRINT/DISP USING ? 

Yes => TAB not legal input 
Errors 1f no LPAREN 
DO NUNCK, THEN CK FOR RPAREN 


* PRINTH - ALLOW EXPRESSIONS & SINGLE COMMA DELIMITERS ONLY 
k 


PRT#PO 


x 
PRT#P 


x 
PRT P85 


x 
PRTPE1 
k 


* Carry 
k 


=CONCK+ 
PRTP?0 


GOSUB 
CONC 


GOSUB exppar 
6oc PRTHPO 
7ST=0 0 

GOYES PRT#PO 


*ST=1 8 
RTNYES 
GOTO NUNCK2 


COTO FORPE1 


Find & output corna 
NOT CONNA? 


Duriny Array? 

VALID EXPRESSION? 
Inplied DISP? 
ILLEGAL EXPRESSION 
ERRO1 Error Exit 


clr => no tUSING found 
set => tUSING <parnm> tSEMIC found; need to output tSENIC 
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93% * 
931 03628 7052 =USINGp GOSUB urdscn 
932 03620 00 CON(2) =tUSING 
933 0362E 800 REL(3) DSUSGP 
934 03631 00 CON(2) 0 
935 03633 588 : GONC = PRIP?0 (B.E.1.) Restores ptr 
936 
937 03636 859 DSUSGP ST=1 39 USING flag 
938 03639 848 ST=0 8 Clear inplied DISP flag 
939 0363C 7832 GOSUB r3expp (since about to destroy R3) 
940 03640 863 *ST20 3 String expr ? 
941 03643 61 GOYES DUSP20 
942 03645 7000 GOSUB =D1C=R3 
943 03649 134 Do=( 
944 0364C 8E00 GOSUBL =LINP 
00 
945 03652 431 coc Errd3 
946 x 
947 03655 7A22 GOSUB ntoken 
948 03659 3100 DUSP20 LC(2) =tSENIC 
949 0365) 962 7A=C OB 
950 03660 RTNYES 
951 03662 6CAD : GOTO PILP40 Pop lvl off stack; resptr 
962 


953 03666 63A1 Erro3 GOTO errd3 
954 
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965 STITLE Array Check / TAB 

956 III II IAT TIDE LEIA I IIIT IIIT IRI II III IIIA III SII III IIIS IIIS IA 
957 SII ITO TTT TO TTR 
958 aR 

959 ** Narie:(S) ARRYCK - Parses Doubly Dinensioned Array 

960 ** Nare: ARRYO1 - Parses Singly Dinensioned Array 

961 kk 

962 **% Category: PARUTL 

963 aR 

964 ** Purpose: 

965 xk ARRYCK entry is useful for parsing one or two dinensional 
966 ah arrays. 

967 at 

968 an ARRYO1 is useful for parsing a single numeric expression 
969 ae followed by a closing parentheses; this could be a single 
970 aa dinension array parse or TAB parse. 

971 aR 

972 ak Entry: 

973 xk D(A) = (AVNEME) 

974 aR D1 points at input strean 

975 a DO points into output buffer 

976 aR 2 entry points: 

977 a 1) ARRYCK - 01 @ Left parentheses. 

978 a 2) ARRYO1 - D1 past left parentheses. 

979 ak 

980 aX Exit: 

981 ax Valid parse => 

982 ae Return to caller with carry Set 

983 BE Subscript(s) output 

984 ak D1 points past the closing parentheses 

985 xh DO points past the output subscript(s) 

986 ae ARRYCK entry: 

987 an B(O) = # subscripts (1 or 2) 

988 RE 

989 Rx Else Error exit 

990 aR Invalid or non-nuneric expression 

991 ak No closing paren 

992 me 

993 ** Calls: NUNCK, CONCK1 

994 aR 

995 RP USES. 6 noe 

996 xk Exclusive: R,B(A),C,D0,D1 

997 kk Inclusive: A-C,D(15-5),D0,D1,RO,R1,S0-S$3, 87,511, FUNCDO 

998 Re 

999 ** Stk lvls: 5 
1000 ak 

1001 xX History: 

1002 ais 

1003 a Date Progranner Modification 

1004 $k: Cot) jektedeos: SaOeatee Seo e es Clete cette 
1005 xk 07/06/82 = JP Modified docurentation 

xk 

be SIR RIO TIE IDK TIE LITRE DILL L IT OTIS IASI IIL I SD ISI AISI SIS SSS SII SIIIS 
1008 FOI III I UII II IO III OOO TORK 


1009 x 
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1010 * Pointer should be past left paren 
1011 x 
1012 0366A 7220 =ARRYCK GOSUB NUNC++ Step over ( & verify expression 
1013 0366E 7F50 GOSUB CONCK1 Check for conna 
1014 03672 D1 B=0 A Subscript initialization 
1015 03674 5A0 GONC  ARRYOZ 1 subscript only 
1016 03677 7220 ARRYO1 GOSUB NUNCK Verify second subscript 
1017 03676 D1 B=0 A Subscript initialization 
1018 0367D E5 B=B+1 & 2 subscripts 
1019 0367F E5 ARRYO2 B=B+1 A 1 subscript 
1020 03681 3192 =PRENCK LCASC \)\ Check for right paren 
1021 03685 962 *A=C OB 
1022 03688 00 RTNYES 
1023 0368A 8C00 GOLONG =ERR10 ) Expected 


00 
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1024 STITLE NUNCK - Valid Numeric Expr Check 
1025 IKI IARI KIKI ALLL LADD TEDDIES LEIA LIT ADI ITIL III IIIT DEE AL 
1026 SII ITI IIASA DLAI IAI IAI III III IDI II III II III ISAT ITAA IA 
1027 aK 
1028 ** Narie:(S) NUMCK - Valid Numeric Expression Check 


1029 *% Ware:(S) NUNC++ - Move D1 1-Byte, Do Valid Nuneric Expr Chec 
1030 ** Nane: NUN+0 - Move D1 1-Byte, Output Byte, Ck for Nun Ex 
1031 **% Nane: NUMKO - Output Byte, Check for Valid Numeric Expr 
1032 ak 

1033 *k Category: PARUTL 

1034 ak 

1035 ** Purpose: 

1036 ak Checks for and Outputs Valid Nuneric Expression 

1037 ae Error Exit if not found 

1038 ak 

1039 *k Entry: 

1040 ak D(A) = (AVNENE) 

1041 ak D1 points at input strean 

1042 ae DO points into output buffer 

1043 ak 4 entry points: 

1044 ak 

1045 ae NUNCK - D1 points at optional blanks preceding 

1046 aK alleged nuneric expression. 

1047 _ NUMC++ - D1 is 1-byte prior to alleged nuneric expr 
1048 x NUNC+0 - D1 is 1-byte prior to alleged nuneric expr 
1049 a A(B) = byte to write to output buffer prior 
1050 ak to parsing the nuneric expression, 

1051 ak NUMCKO - 01 points at optional blanks preceding 

1052 ae alleged nuneric expression. 

1053 ax A(B) = byte to write to output buffer prior 
1054 ak to parsing the numeric expression. 

1055 = 

1056 aK Exit: 

1057 aR 

1058 be Valid nuneric expression parsed => 

1059 ak Return to caller with carry clear 

1060 kK P=0 

1061 RK Tokenized expression written to output buffer 
1062 ae DO points past the tokenization 

1063 ne Register A contains the tokenization of the text 
1064 i FOLLOWING the nuneric expression 

1065 ax D1 points past the corresponding text 

1066 RX R3(9-5) = the input pointer to the numeric expr 
1067 a R3(R) = the pointer to the tokenized nun. expr 
1068 nt NUNCK entry: 

1069 kk R3(A)} = DO on entry 

1070 ze R3(9-5) = D1 on entry 

1071 ae NUNC++ entry: 

1072 te R3(R) = DO on entry 

1073 - NUNC+0 entry: 

1074 e* The value in A(B) on entry was output prior to 
1075 ae the tokenized nuneric expression. 

1076 ae NUNCKO entry: 

1077 ak R3(9-5) = D1 on entry 


1078 ax The value in A(B) on entry tas output prior to 
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1079 ak the tokenized nuneric expression. 
1080 ak 
1081 aK Error exit - Invalid or non-numeric expression 
1082 aE 
1083 ** Calls: r3exp+ (EXPPAR,R3=D1C), DIC=R3 
1084 aK 
1085 *k Uses: A-C,D(15-5), RO,R1,R3, SO-S3,S7, S11, 
1086 ak FUNCDO 
1087 ak 
1088 RK Stk Ivis: 4 
1089 ak 
1090 ak History: 
1091 ae 
1092 ax Date Progranner Modification 
1093 RK wenn n nn eee neem reer n nen e ccc er ces 
1094 kK 07/06/82 = J.P. Modified docurentation 
1095 KK 41/11/82 9 SLU. Added entry points NUNC+0 and NUNCKO 
1096 o 05/12/83 S.W. Eliminated NUNCK+ entry point 
eae JIS IO II IIA T II TOSI IISA SIS IIIT IIIT III IIT IIIT TI SII SII IIIA IS IS 
1099 J III SI TI IAI ITI TILIA I SI III IIIT IDI DIDI III LIT ASIII IISA IS 
1100 03690 171 =NUNC++ D1=D1+ 2 
1101 03693 590 GONC NUNCK (B.E.T.) 
1102 x 


1103 03696 171 =NUNC+O D1=D1i+ 2 
1104 03699 7C80 =NUNCKO GOSUB outitk 
x 


1105 

1106 0369D 7601 =NUNCK GOSUB r3exp+ Save input ptr, eval expression 
1107 036R1 863 *$T=0 3 Legal string expression? 

1108 036R4 90 GOYES NUNCK1 

1109 036AR6 870 ?ST=1 0 Invalid expression? 

1110 O36A9 80 GOYES NUNCK2 

1111 O36RB 03 RTNCC 

1112 O36AD 7000 NUNCK1 GOSUB =D1C=R3 Restore input pointer 

1113 036B1 854 NUNCK2 ST=1 4 Don’t restore during Error Exit 


1114 03684 8COO NUNMCK3 GOLONG =ERRO2 
00 
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1115 STITLE STRGCK - String Expr Check 
1116 SII KI IIIT IIS IST ISA IIT ETI EDTA IT ID SI IIA IASI III OSI IID IIIA III ISA 
1117 $I SI III OAT IIT II TTI TIT IIIT II III III III III SI ISI II II ISI III SIA 
1118 ak 
1119 ** Nane:(S) STRGCK - Valid String Expression Check 
1120 ax 
1121 *x Category: PARUTL 
1122 KK 
1123 ** Purpose: 
1124 ales Valid String Expression Check 
1125 ax 
1126 kk Entry: 
1127 ae D1 @ Start of Alleged String expresssion 
1128 aK D(A) = (AVMENE) 
1129 aK DO points into output buffer 
11% aK 
1131 tk Exit: 
1132 a Valid string expresion => 
1133 ak Return to caller with carry clear 
1134 ak P=0 
1135 ak Tokenized string expression uritten to output buffer 
1136 xk DO past string expression tokenization 
1137 ax A = tokenization of text FOLLOWING string expression 
1138 a D1 past corresponding text of tokenization in A 
1139 
1140 7% Else error exit 
1141 ax 
1142 Calls: r3exp+ (EXPPAR,R3=010), NUNCK 
1143 - 
1144 - Uses: A-C,D( 15-5), RO, R1,R3, SO-S3,$7,S11, FUNCDO, DO, D1 
1145 
1146 ** Stk lvis: 4 
1147 Ex 
1148 ** History: 
1149 Ae 
1150 ae Date Programmer Modification 
1151 RRO wenn nn meee renee emer renner nen n nnn nnn e nen nnscceecses 
1152 *k 07/06/82 = J.P. Nodified docunentation 
1153 07/06/83 S.W. If invalid expr, don’t restore ptr 
k 
tee JI III II TIT TI ITI T I IIIT IRI III SIS III IIIA TD II IIIT III III IID SII 
1156 JOSS TI III I I SII SII TIT III SI IIIT SII II III IIIS IS STIS STIS STIS IA 
1167 x 
1158 - 
1159 O36BR 79B1 =STRGCK GOSUB r3exp+ Save D1 in R3 
1160 O36BE 873 ?$T=1 3 Not a STRING? 
1161 036C1 40 GOYES STRGer 
1162 036C3 01 RTN 
1163 * 
1164 03605 870 STRGer ?ST=1 0 Invalid expr? 
1165 036C8 9E GOYES NUNCK2 
1166 O36CA 52E GONC NUNCK1 (B.E.T.) Legal nuneric 


1167 


x 
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1168 STITLE Corina Check (COMCK) 
1169 JU IIIT I TIC III III IO IIT IST T I ITI IIA 
1170 JI I RT ITI TT TIT TIS II IIIT IR III II IIIS IS ASIII I IIIA 
1171 ae 
1172 kk Name: (S$) CONCK - Corina Check 
1173 ** Nane: COMCK1 - Conra Check 
1174 x 
1175 ** Category: PARUTL 
1176 ak 
1177 ** Purpose: 
1178 x CONCK entry checks to see if the following 
1179 Be text’s tokenization is tCONnA. 
1180 RK 
1181 - CONCK1 entry checks to see if A(B) contains tCONNA. 
1182 x 
1183 kk Entry: 
1184 ze CONCK - D1 points at optional blanks preceding 
1185 ak text to tokenize. 
1186 RK COMCK1: ACB) = Token to Check 
1187 ah 
1188 ae ERLts 
1189 ak P=0 
1190 is Carry set => tCONMA found 
1191 ak A(B)=C(B)=tCONNA 
1192 a CONCK entry: 
1193 a D1 past ascii comna 
1194 ax 
1195 as Carry clear => tCOMNA NOT found 
1196 kx C(B)=tCONNA 
1197 a CONCK entry: 
1198 ae A contains text’s tokenization 
1199 ax D1 past corresponding text 
1200 x 
1201 xx Calls: NTOKEN ~ CONCK entry only 
1202 ax 
1203 ** Uses: A(B), C(B), P ~  CONCK1 entry 
1204 am A-C, D1, P, SO-S3,S11, RO - COMCK entry 
1205 ax 
1206 ** Stk lvls: 3 - COMCK entry 
1207 x 0 - CONCK1 entry 
1208 es 
1209 &* History: 
1210 4% 
1211 “ Date Progranner Modification 
ete ME Uskiccsee See Re ees Meter eee reed eet a etree ee 
1213 ** 07/00/82 J.P. Modified docunentation 
estat 9 xr 
ce FOR OOO OOOO OIG TOI III IOI IOI 
1216 JOGO IIIS ICIS IG IOI ITO TOI TIO RIA II 
121? s 
1218 036CD 72B1 =COMCK GOSUB ntoken 
4219 03601 20 =COMCK1 P= 0 
1220 03603 3100 LC(2) =tCONnA 
1221 036D? 962 7A=C OB 
1222 O36DA 00 RTNYES 
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1223 036DC 01 RTN 
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1224 STITLE OUTLIT - Output Literal 
4225 FOI OU ITI I TOI IIIS ISI SRT OI OSI III III III III IIIT IIIA 
4226 JOO I ITI TTI TIS III III II III STII SITLL III II IIIS III IN 
1227 id 
1228 ** Nane:(S) OUTLIT - Output Delimited Literal 
1229 ** Nane:(S) QUTILI1 - Output Delimited Literal 
1230 > Nane: DATACK - Output Literal Delimited by Quotes 
1231 
1232 ** Category: PARUTL 
1233 RR 
1234 ** Purpose: 
1235 a QUTLIT and OUTLI1 entry points output a string of 
1236 Kk literals delinited by a specified delimiter (this 
1237 xx delimiter may or tay not be a quote). The only 
1238 ak difference between these tuo entry points is that OUTLIT 
1239 xk takes an error exit if no closing delimiter is found; 
1240 ah QUTLI1 siriply returns with the carry set in this case. 
1241 
1242 aK DATACK entry parses a string delinited by either single 
4243 ae or double quotes. If no closing delimiter is found, 
1244 ke DATACK takes an error exit. 
1245 xx 
1246 ** Entry: 
1247 ae D(A) = (AVMENE) 
1248 ax D1 points into the input strean 
1249 aX DO points into the output buffer 
1250 aX 3 entry points: 
1251 x 1) OUTLIT - B1 points at the delimiting character 
1252 a A(B) contains the ascii delimiter 
1253 ak P=0 
1254 ak 2) DATACK - D1 points at optional blanks preceding 
1255 ms the alleged single or double quote. 
1256 7 3) OUTLI1 - D1 points at 1st character after the 
1257 ae deliniter. 
1258 ax A(B) contains the ascil delimiter. 
1259 kA P=0 
1260 ee 
1261 XE wits 
1262 me Carry clr => 
1263 ak D1 1s advanced to the character following the 
1264 na closing delimiter. 
1265 ae The literal up through the closing deliniter 
1266 ax has been written to the output buffer. 
1267 As DO points past the closing delimiter. 
1268 a 
1269 = Carry set (OQUTLI1 entry only) => 
1270 at D1 is 2 nibbles past M (Endline) 
1271 a All characters, up to but not including W, 
1272 *x have been output 
1273 ae DO points past the characters which have been 
1274 = output 
1275 ue 
1276 ke Else error exit (QUTLIT, DATACK only) 
127? a uw/ D1 at OD - Error is : Quote Expected 


1278 _ 
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1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
12390 
1231 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1H2 
133 
1304 
1305 
1H6 
107 
18 
13039 
1310 
1311 
1312 036F3 171 
1313 036F6 7FOO 
1314 036FA 500 
1315 O36FD 854 
1316 03700 1C1 
1317 03703 8C00 
00 


O36DE 7000 
O36E2 3100 
036E6 962 
036E9 AD 

036EB 300 
O36EE 966 
036F 1 00 


1318 

1319 03709 D8 
1320 0370B 3100 
1321 0370F 7610 
1322 03713 148 
1323 03716 171 
1324 03719 360 
1325 0371C DO 
1326 O371E 962 
1327 03721 00 
1328 03723 5BE 
1329 

1330 03726 171 
1331 03729 6FCC 
1332 
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*k Calls: 
xk 


ak 
an 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xr 
ax 
a 
ak 
ax 
xk 
xk 
ax 
ak 


Exclusive: 
Inclusive: 


Stk lvls: 


NOTE: 


History: 


07/06/82 
10/12/82 


3:04 ari 
Page 31 
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QUTITK, GNXTCR 


It nay be desirable to lirit usage of QUILIT 
to delimiters which are single or double 
quotes, since the error nessage generated 1s 
"Quote Expected". 


Progratiner Modification 
J.P. Modified docurentation 
S.W. QUTLI1 entry doesn’t error exit 


FOTO OOO TT TTT TOTO TT III 
FOO IO OTT TOTTI 


x 
x 


=DATACK GOSUB 
LC(2) 
7A=C 
GOYES 
LC(1) 
7ARC 
RTNYES 

k 


=OUTLIT D1=D1+ 
GOSUB 
RTNNC 
ST=1 
D1=01- 
GOLONG 


x 


=QUTLI1 B=A 
LCHEX 
GOSUB 
A=DAT1 
D1=D1+ 
7A=B 
GOYES 
*A=C 
RTNYES 
GONC 


OUTLI2 


x 


outit+ D1=Di+ 
outitk GOTO 
x 


=GNXTCR 
= a" 

B 
OUTLIT 
=a’ 

B 


2 
OUTLI1 


4 
2 
=ERROO 


A Copy A(B) 

oD 

outitk 

B 

2 

B CLOSING QUOTE? 
outi tk 

B EOL? 

OUTLI2 (B.E.T.) 
2 

PILP10 
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1333 03720 14B CHK-OD A=DAT1 B 
1334 03730 31D0 LCHEX OD 
1335 03734 966 7AHC OB 
1336 03737 FE GOYES outit+ 
1337 03739 07 C=RSTK Pop level off. return stack 
1338 0373B 5DE GONC = out 1 tk (B.E.1.) Output OD, rtn to driver 


1339 m 
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1340 STITLE Output Variable (QUTVAR) 
1341 JI IO TIT TTI ITI S SIS IIIS II IIS SAIS SSSI II SSS SIS: 
1342 SII DI III ITED TTT T TDD III DIS AIS ISIS SS SSIS SIS SIS 
1343 ah 
1344 && Nare:(S) OUTVAR - Output Parsed Variable 
1345 aR 
1346 %k Category:  PARUTL 
134? ak 
1348 ** Purpose: 
1349 Writes tokenized variable in A to the output buffer 
1350 
1351 ** Entry: 
1352 an P=0 
1353 an D(A) = (AVMEME) 
1354 ak DO points into output buffer 
1355 ak Register A contains variable tokenization 
1356 a fron NTOKEN call 
1357 ae 
1358 AX Exit: 
1359 ae Carry Clear 
1360 tk Variable tokenization written to output buffer 
1361 ak DO past the tokenization 
1362 aR 
1363 tk Calls: OUTITK, ARANGE 
1364 ak 
1365 *k Uses: A, C(A), DO 
1366 xk 
1367 ek Stk lvls: 2 
1368 ak 
1369 ** History: 
1370 ak 
1371 ak Date Programmer Modification 
1372 RR mene nen mene nee nee ree nnn nnn ner nnn renner renee nerren 
1373 ek 07/06/82 J.P. Modified docunentation 
ak 
aos JO IIIT DIT I TLS D LD IIIT IDI III ISI IIIS SII ISIIS ISIS IIS IS 
1376 JI RIT ITI KIA D I IIIS DDI I TTI T IIIS ADT AII IS SSIS SSI ISSI III IIIS 
1377 ; 
1378 i 


1379 O373E 77EF =QUTVAR GOSUB outitk 


1380 03742 8£00 
00 
1381 03748 500 
1382 0374B BF4 
1383 O374E BF4 
1384 03751 4CE 


GOSUBL =ARANGE 


RTNNC IF LETTER, THEN DONE 
ASR W 
ASR W 


GOC OUTVAR (B.E.T.) 
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1385 STITLE KEY Parse 
1386 JG JOO OI ISO UO TI TTT II IO ISO SS ISIS SSSA 
1387 JU III IIT TIT DI SITIO I II III IIIS SO SII ISIS SIA 
1388 ak 
1389 ** Narie: KEYP - DEF KEY Statenent Parse 
1390 ** Narie: DFKEYP - DEF KEY Statenent Parse 
1391 ax 
1392 ** Category: STPARS 
1393 ak 
1394 *k Purpose: KEYP entry is used when KEY is the first keyword 
1395 ak in the staterent. 
1396 ax 
1397 ak DFKEYP entry is used when the syntax starts with 
1398 ak *DEF KEY’. 
1399 ak 
1400 ak These tuo entry points parse statenents of the 
1401 kk fort: 
1402 ae (DEF] KEY string expr [<,string expr[<:[;>]] 
1403 ak 
1404 ak Entry: D(R) = (AYMENE) 
1405 ak D1 points into input strean 
1406 ak DO points into output strean 
1407 ak 2 entry points: 
1408 RK 1) KEYP - D1 past KEY keyword 
1409 ak DO past tKEY 
1410 a 2) DFKEYP - D1 past DEF KEY keywords 
1411 ak DO past tDEF and tKEY 
1412 a 
1413 kk Exit: Legal syntax => 
1414 ak Return with carry clear 
1415 aK P=0 
1416 aK D1 past syntactically correct statenent 
141? ae Tokenized KEY statenent written to output buf. 
1418 Re DO past KEY statenent tokenization 
1419 ak 
1420 ee Else error exit 
1421 4% 
1422 tk Calls: RESPTR, OUTITK, STRGCK, COMCK+ 
1423 ak 
1424 *k Uses: A-C,D(15-5),D0,D1,RO,R1,R3, SO-S3, $7,811, FUNCDO 
1425 ak 
1426 *® Stk lvls: 5 
142? ak 
1428 ** Detail: | Tokenized KEY statenent fornat: 
1429 ak tkKEY <string expr> [tCONMA <string expr> [;|:] ] 
1430 a 
1431 %* History: 
1432 ak 
1433 as Date Programmer Modifications 
1434 $e bo eee | ene ag 
1435 ee 10/21/82 9 S.W. Added special header 
1436 Re 05/11/83 SW Replaced call to COMCK1 with CONCK+ 
ih 
pe FRR RRR II JOO OO OTTO ITOK SK 


1439 FORO IO IO OR TOT IK 
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1440 & 
1441 x 
1442 03754 183 =DFKEYP DO=D0- 4 BACK UP PTR 
1443 03757 7ECF GOSUB outitk OUTPUT tKEY 
1444 03758 7BSF =KEYP GOSUB STRGCK 
1445 0375F 7000 GOSUB 9 =CONCK+ Find & output corina token 
1446 03763 503 GONC POKEPS Not a cornna? 
1447 * FOUND COMMA TOKEN 
1448 03766 705F GOSUB STRGCK 
' 1449 & 
1450 0376A 31A3 LCASC =\:\ 
1451 0376E 962 *A=C OB 
1452 03771 FO GOYES KEYP10 
1453 03773 3100 LC(2) =tSENIC 
1454 03777 966 ARC OB NOT COLON OR SEMI-COLON? 
1455 0377A 72 GOYES POKEP9 
1456 0377C 3183 LCASC \3\ 
1457 03780 6032  BENPIC GOTO outbyt WRITE OUT TOKEN 


1458 
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1459 STITLE Optional String Parse 
1460 SOI I III I IIIS I SIO III IIT IS IT IOI III III III IIIA D IIIT IIS IAS IA 
1461 JU II III II TOT TT III O STITT III III ITI SII III III II OK 
1462 Ax 
1463 ** Nane: OPSTRp - Optional String Parse 
1464 ax 
1465 ** Category: PARUTL 
1466 ak 
1467 ** Purpose: 
1468 < Parses a statenent, allowing 1 OPTIONAL string expression 
1469 
1470 ** Entry: 
1471 a D(A) = (AVMNENE) 
1472 ax Di points to alleged string expression or stnt end 
1473 aX DO) points into output buffer 
1474 ax 
1475 RR EXIT: 
1476 x If Statenent end or valid string expression found: 
1477 ax Return with carry clear 
1478 an P = 0 
1479 ne If valid string expression found: 
1480 as D1 past expression 
1481 es Tokenized expression written to output buffer 
1482 a DO past tokenized expression 
1483 ax If statenent end found: 
1484 xe 01/D0 are unchanged fron entry, except that 
1485 cs D1 1s advanced beyond any leading blanks. 
1486 x 
1487 =* Else error exit 
1488 = 
1489 ** Calls: EOLCK, RESPTR, STRGCK 
149% an 
1491 e® USGBa dca AR-C,D( 15-5), 00,01, RO,R1,R3,S0-S3,37, 511, FUNCDO 
1492 ie 
1493 a 
1494 ** Stk lvis: 5 
1495 x 
1496 ** History: 
1497 AS 
1498 ax Date Programmer Modification 
1499 RR mmm enn meee nnn terme enw ener n nnn cee enn ne cnnnen 
1500 * 11/20/82 9 S.W. Written for ENDLINE parse 
5 ke 
le JOOS IIIS III UII ITI III IIIA TITAS I IIIS 
1503 SUI III IIIT IO TTI IIIT IIIS TAI ISI ITA TI III IAS 
1504 * 
1505 - 
1506 03784 ?7F64 =OPSTRp GOSUB eolck+ No rtn if endline found 
150? 03788 541 GONC  STRNGP If EOL not found, RESPIR already do 
1508 0378B 451 GOC resptr B.E.T. 
1509 x 


1510 
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1511 STITLE POKE Parse 
1512 FRI RIE TI RII IT IIS ITAL III IDI IIIT IIIA II IIS IIS RII III II IIS IIIA IIA 
1513 JOU SITIOS TTDI SII TIS SAIS IIIS I ITS IIIS ISISIS IIIS IASI S 
1514 ax 
1515 ** Nane: POKEP - POKE Statenent Parse 
1516 : Nane:(S) STRNGP - Parse of a Mandatory String Expression 
1517 
1518 **% Category: STPARS 
1519 ax 
1520 ** Purpose: POKEP parses POKE statenent. 
1521 ote 
1522 x STRNGP parses a mandatory string expression 
1523 kk 
1524 ** Entry: D(A) = (AVMENE) 
1525 ax D1 points to input strean 
1526 ae DO points into output buffer 
152? ial 2 entry points: 
1528 a 1) POKEP - 01 past POKE keyword 
1529 ax DO past tPOKE 
1530 ak 2) STRNGP - D1 pts to alleged string expr 
1531 aR 
1532 Ak Exit: 
1533 ak Valid parse => 
1534 ar Return with carry clear 
1535 ax P=0 
1536 RP POKEP entry: 
1537 RR D1 points past syntactically correct stnt. 
1538 ak POKE tokenization written to ouput buffer. 
1539 ax DO points past POKE tokenization, 
1540 a STRNGP entry: 
1541 &R D1 points past string expression. 
1542 = String expr tokenization in output buffer. 
1543 ak DO points past string expr tokenization. 
1544 ax 
1545 ax Else error exit 
1546 ne 
1547 ** Calls: OUT1TK, STRGCK, CONCK+ 
1548 ax 
1549 ** Uses: A-C,D(15-5),D0,D1,RO,R1,R3, SO-S3, $7, $11, FUNCDO 
1550 me 
1551 ¥X Stk vis? 5 
1552 ex 
1553 ** Detail: POKE <string expression>,<string expression> 
1554 x 
1555 xk History: 
1556 ze 
1557 xk Date Progranrier Modifications 
1558 RR meee ne weet ne teen eteccnnnn 
1559 - 05/11/83 S.W. Replaced call to COMCK1 u/CONCK+ 
oo JOR II III II ITT TIL ITI TIS IST I TI IIIS I SIS III ITI III IIA IOS III IAS 
1562 FIO IOI TE TO II III III O III III SISSII IID IIIT SSS IIS SIDI IIS IT IIA 
1563 . 
1564 * 


1565 0378E 782F =POKEP GOSUB STRGCK 
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1566 03792 7000 COSUB 
1567 03796 460 COC 
1568 03799 GABE GOTO 
15639 03790 791F =STRNGP COSUB 
1570 037A1 resptr 

1571 037R1 6000 POKEPS GOTO 


=CONCK+ 
STRNGP 
PRTPE1 
STRGCK 


=RESPTR 


Found & output conta ? 
SYNTAX ERROR 


3:04 an 


Page 
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1572 STITLE Clock Systen Parse 
1573 FITTEST DDE III IT III SI IIIS III IIIS SI III ISII AISI AS 
1574 SOOO ROJO IO JOO TOTO TTI DTT IK 
1575 ah 
1576 ** Nane: CLKPRS - Clock Systen Parse Routine 
1577 ae 
1578 ** Category: STPARS 
1579 aR 
1580 ** Purpose: 
1581 . Parses SETTIME, ADJUST, ADJABS, and SETDATE stnts. 
1582 
1583 ak This parse is also useful for parsing a valid 
1584 aE string OR nuneric expression. 
1585 ak 
1586 ak Entry: 
1587 ak D(A) = (RVMENE) 
1588 ola D1 points past SETTINE, ADJUST, ADJABS, or SETDATE 
1589 +* keyword 
1590 ak DO points past the corresponding token in the out- 
1591 AE put buffer. 
1592 xR 
1593 RK Exit: 
1594 at Valid expression found => 
1595 aK P=0 
1596 am Return with carry clear 
1597 ne D1 points past valid string or nuneric expression. 
1598 ie Tokenized string or numeric expression uritten to 
1599 aK output buffer. 
1600 DO points past tokenized string or nureric expr. 
1601 x 
1602 oie Else error exit 
1603 x 
1604 *k Calls: EXPPAR. 
1605 a 
1606 RE USCS) anaes 
1607 ca Inclusive: A-C,D(15-5),RO,R1,S0-S3,S7, 511, FUNCDO, DO, D1 
1608 
1609 ** Stk lvls: 4 
1610 ak 
1611 ** Detail: 
1612 ** SETTIME <nuneric expr> | <string expr> 
1613 aR ADJUST <numeric expr> | <string expr> 
1614 ae ADJABS <numeric expr> | <string expr> 
1615 xe SETDATE <nuneric expr> | <string expr> 
1616 aR 
1617 ** Algorithn: 
1618 ae EXPPAR. 
1619 ie If expression invalid then ERRO2, else RESPTR. 
1620 ak 
1621 *k History: 
1622 a% 
1623 aR Date Progranner Modification 
1624 RR Sheers: tee eeee: Gee eee casee reese ser eee teen es oes 
1625 xk 05/28/82 = NM Moved fron clock nodule to here 


1626 ae 
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162? 
1628 
1629 037A5 7600 
1630 037A9 860 
1631 O37AC SF 
1632 O37RE 650F 
1633 
1634 
1635 
1636 
163? 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
164? 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1663 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1673 
1680 
1681 


FOR TO IIR TTT RII TI TT ITI ITT TTI DTI IRIS T RII ITI K 
FI TOT TOTO TTT TK IIIT ITI TI III IDI IST TTI IIIT II 


=CLKPRS GOSUB exppar 
?$T=0 0 Valid expression? 
GOYES resptr 


GOTO NUNCK3 
x 


FORO IIIT TTT TO TTT TTT IT ITI TINK 
FO IO TTI TTI TTT TOTTI DTI ITT ITI IIIT ITI TIT ITI IT STAI IK 
ax 


** Narie: SUBP - SUB Staternent Parse 

ak 

** Category: STPARS 

aK 

*x Purpose: Parses SUB Statenent 

ae 

*k Entry: D(A) = (AVMENE) 

ae D1 points at the input buffer past the SUB keyword. 
x DO points into the output buffer past tSUB. 

wa 

RR Exit: Valid statenent parse => 

a Return with carry clear 

a D1 past syntactically correct SUB statenent 
x SUB stnt tokenization written to output buffer. 
a DO points past the statement tokenization. 

as 

a Else error exit 

aK 

*k Calls: SUBNMP, NTOKEN, QUTITK, OUTVAR, GNXTCR, OUTNIB 
a ARRYCK, COMCKO 

xa 


xX Uses: A-C,0(15-5),RO,R1, SO-S3, 87,511, FUNCDO, DO, D1 
ak 


** Stk lvls: 6 


aK 

**% Detail: SUB syntax : 

ak SUB nane [<parn list>] 

xe where a parn:= #<nurber>|variable 

Be and <nunber> is a decimal integer 0-999. 

x Parse accepts 0-999; execution accepts 0-256. 
xk 

ak 

mm SUB tokenization : 


**4SUB <Snab> narie [tPRNST parnlist] tPRMEN [t! conment] <Snib> 
xk 

ee Tf a remark follows the SUB statenent, following tPRNEN Will 
kK be: t! <ren strean> tEOL <5 nib field> tEOL 

ak 


ae tPRNST:= tT0 &  tPRMEN:= tALL 
aK 


** History: 
xk 


RR Date Prograriner Modifications 
REA Sov See voseroesons. ecoeeece- Sse. 


Kk 02/01/83 9 S.W. Added docunentation 
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1682 ek 05/03/83 S.W. Added call to #CK 
1683 oi 05/11/83 SW. Replaced call to CONCK u/CONCKO 
sees SRI I TIT IRE II DTT TORT ALI I TID II IIIT IIIIID IIS SSI III III IST TA 
1686 SIRI RI ITT D EDI STDS TALI IDI SITIB III IIITI ISS SSIS IIS II IIS ISIS SA 
1687 : 
1688 O37B2 7480 =SUBP GOSUB SUBP35 ESSENTIALLY SKIPS 5 NIBS 
1689 037B6 72E1 GOSUB SUBNMP 
1690 037BA 446 GOC SUBP30 
1691 & 
1692 037BD 7000 SUBP10 GOSUB =#CK 
1693 03701 5E? GONC  SUBP45 Found # ? 
1694 03704 7BBO GOSUB ntoken 
1695 * BETTER BE VARIABLE 
1696 037C8 86B ?ST=0 11 
1697 037CB F3 GOYES SUBPE3 ILLEGAL PARN? 
1698 O37CD 862 ?ST=0 2 SIMPLE VARIABLE? 
1699 037D0 04 GOYES SUBP20 
1700 * ARRAY ee - REQUIRES NULL DIMENSIONS - D1 AT ’(’ 
1701 037D2 E4 A=A+1 DUMMY ARRAY TOKEN 
1702 03704 766F GOSUB POUTVAR OUTPUT VARIABLE NANE 
1703 03708 7000 GOSUB =GNXCR+ 
1704 0370C D1 B=0 A PARM COUNT 
1705 O37DE 31C2 LCASC \,\ 
1706 O37E2 966 AMC OB 1 PARM? 
1707 O37E5 DO GOYES SUBP15 
1708 G37E7 871 *ST=1 1 
1709 O37EA 02 GOYES errd3 
1710 O37EC ES B=B+1 A 
1711 O37EE 7000 GOSUB =GNXCR+ STEP OFF CONMA 
1712 O37F2 854 SUBP15 ST=1 4 Set in case of error 
1713 O37F5 768E GOSUB ARRYO2 If no closing paren, will err 
1714 O37F9 844 ST=0 4 B(O) incremented in above call 
1715 O37FC D9 C=B A Copy B(0) 
1716 O37FE 171 D1=D1+ 2 STEP OFF CLOSING PAREN 
1717 03801 8E00 GOSUBL =OUTNIB OUTPUT PARM COUNT 
00 
1718 03807 5C0 GONC  SUBP25 (B.E.T.) 
1719 z 
1720 0380R SUBPE3 
1721 O380A 8C00 err03 GOLONG =ERRO3 Invalid parr 
00 
1722 : 
1723 03810 7A2F SUBP20 GOSUB =QUTVAR 
1724 03814 7000 SUBP25 GOSUB =CONCKO Find & output conna 
1725 03818 44A coc SUBP10 
1726 O381B 726E ; GOSUB PRENCK No rtn if error 
1727 
1728 O381F 3100 SUBP30 LC(2) =tPRNEN 
1729 03823 DR A=C A Read into A(B) 
1730 03825 7000 GOSUB =OAGNXT 
1731 03829 8EO GOSUBL =!CK2 
00 
1732 O382F 4A0 GOC SUBP35 NO REMARK? 


1733 03832 3100 LE(2)  =tEOL NEEDED FOR DECOMPILE 
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1734 03836 7481 =OUTB+5 GOSUB outbyt 
1735 0383A =QUTNB4 
1736 O383A 24 SUBP35 P= 4 
1737 0383C 6BB4 GOTO outnbs SKIP 5 NIBS 
1738 . 
1739 : 
1740 03840 72EE SUBP45 GOSUB outit+ Output # 
1741 03844 7B GOSUB ntoken 
1742 * MUST BE 1,2, OR 3 DIGIT INTEGER 
1743 03848 8F00 GOSBVL =DRANGE 
000 
1744 0384F 490 GOC SUBP55 
1745 * ONE DIGIT INTEGER 
1746 03852 73DE GOSUB outitk 
1747 03856 5DB GONC SUBP25 (B.E.T.) 
1748 : 
17439 03859 3100 SUBP55 LC(2) =tINT2 
1750 0385) 966 AHC OB 
1751 03860 90 GOYES SUBP6O 
1752 03862 7826 GOSUB out2tk QUTPUT TOK & 2 DIGITS 
1753 03866 5DA GONC SUBP25 (Bes Ted 
1754 * 
1755 03869 CE SUBP60 C=C-1 A 3 DIGIT INTEGER TOKEN 
1756 03868 966 AH OB 
1757 O386E C9 GOYES SUBPE3 Illegal Parn? 
1758 03870 76CF GOSUB SUBP35 OUTPUT TOKEN & 3 DIGITS 
1759 03874 5F9 GONC  SUBP25 (B.E.T.) 
1760 ‘ 
1761 03877 7(93 r3exp+ GOSUB gnxtcr 
1762 0387B 77AC r3expp GOSUB R3=D10 Save D1,D0 in R3 
1763 0387F 6000 =exppar GOTO =EXPPAR 
1764 * 
1765 03883 8C0) ntoken GOLONG =NTOKEN 
00 
1766 * 


1767 03889 8C00 urdscn GOLONG =WRDSCN 
00 
1768 ® 
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1769 STITLE CALL Parse 
1776 JS TIT TIT TI IAT IIIT IIIS ISOS IIIS ASI SA. 
1771 $I RTI TTI III DSI I TTI SATA T IIIA II IDI STII SSSI IIIA 
1772 ax 
1773 tk Wane: (S) CALLP - CALL Statenent Parse 
1774 ax 
1775 *k Category: STPARS 
1776 rt 
1777 ** Purpose: Parses CALL Statenent 
1778 ae 
1779 *k Entry: D(A) = (AVMENE) 
1780 th D1 past CALL keyword in input strean 
1781 xk DO past tCALL in output buffer 
1782 ax 
1783 RK Exit: Valid Statement Parse => 
1784 ax P=0 
1788 isi Return with cary clear 
' 4786 ae D1 past syntactically correct CALL statenent 
; 1787 ak CALL stnt tokenization written to output buffer. 
1788 = DO points past statenent tokenization. 
1789 aa 
1790 x Else error exit 
1791 ak 
1792 ie 
1793 *k Calls: SUBNMP, QUTBYT, EXPPAR,NUNCK, CNYV2UC , FSPECp 
1794 ak CLRPRM, CONCK, EOLCK+, DATACK, NTOKEN, OUTVAR, SBNNPO 
1795 - NUNCK3, NUNCK1, OBFSPp, CNV2UC, PRENCK ,CONCK1 , R3EXPP 
1796 * 
1797 tk Uses: A-C,0(15-5), SO-S3,$7,S9-S11, D1,D0, RO-R3, 
1798 am FUNCDO 
4799 ae 
1800 &* Stk lvls: 6 
1801 A 
1802 ** Detail: Compiles to: 
1803 a 
1804 ** +CALL <nane> 
1805 ** [tPRMST (parn E<O]1> parn E<O|1> ... ] tPRMEN 
1806 kx [tIN <filespec>] 
1807 te 
1808 .. where EO (tCREF) indicates a pass by reference 
1809 ba and £1 (tCVAL) indicates a call by value. 
1810 ae parn:= <#nun expr|variable|expression> 
1841 ax 
1812 an tIN is actually tSENIC 
1813 ax 
1814 ** History: 
1815 am 
1816 tk Date Programmer Modification 
1817 BR meen eee eee ee een en eeeerneo- 
1818 tk 10/11/82 S.U. Output E1 (tCVAL) after chnl# 
1819 RK 41/11/82 SU. Added code to trap out user-defined 
1820 sa functions 
1821 ek 12/09/82 CALL ufo parns allowed fron keybd 


S.W. 
1822 kk 92/11/83 J.P. Made REDPRM straight line code. 
1823 kk 66/03/83 SLU. 


Added call to #CK 
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1824 RK 06/23/83 S.W. Channel# ALWAYS tokenized as pass 
1825 a by reference 
1826 kk 06/02/83 = S.W. Don’t allow user-defined functions 
1827 ae in channel nunbers 
1828 RA 
4829 JK II III DI IKI ITE III IIS IIIT R II IIIT III III IID III III IIIT IIIS I III IISA 
18% JURIDIC IS TIT TII II II IIIT OSS ISI IIA 
1831 x 
1832 . 

1833 O388F 6AFB CALPE3 GOTO  FORPE1 No paraneters in prog line (Syntax) 

1834 a 

1835 * CALL without paraneters - ensure fron keyboard 

1836 03893 875 CALPNL ?ST=1 5 In a program line? 

1837 03896 9F GOYES CALPE3 

1838 03898 680F GOTO = =resptr Okay fron keyboard 

1839 * 

1840 0389C 7753 =CALLP GOSUB eolck+ 

1841 O38A0 42F GOC CRLPNL No pararieters? 

1842 * Check for quoted string 1st 

1843 038A3 773E GOSUB DATACK 

1844 038A7 582 GONC § CALPO3 Quoted string found & output? 

1845 * Check for string variable 

1846 O38AR 75DF GOSUB ntoken 

1847 O38AE 878 ?ST=1 14 A variable? 

1848 03881 £0 GOYES CALPO1 

1849 03883 7AEE CALPOO GOSUB resptr 

1850 038B7 71£0 GOSUB SUBNMP 

1851 O38BB 6B10 GOTO  CALPO4 

1852 

1853 O38BF 861 CALPO1 ?ST=0 1 Nuneric variable? 

1854 O38C2 1F GOYES CALPOO 

1855 03804 862 ?S$T=0 2 Sinple string variable? 

1856 038C7 80 GOYES CALPO2 

1857 * Array variable - interpret as passing paraneters 

1858 038C9 BF4 ASR W 

1859 O38CC BF4 ASR W Shift off tARRAY 

1860 O38CF 7B6E CALPO2 GOSUB OUTVAR Qutput variable 

1861 . 

1862 * Check for unquoted string 

1863 x 

1864 03803 7000 CALPO3 GOSUB SBNNPO 

1865 038D7 4C5 CRLPO4 GOL CALPIN No paraneter list? 

1866 * 

1867 O38DR 849 CALPOS ST=0 9 

1868 038DD 7000 GOSUB =#CK 

1869 O38E1 4% GOL CALP1O Not # ? 

1870 O38E4 859 St=1 9 Channel# flag 

1871 O38E7 7B3E GOSUB outit+ Step over #; Output t# 

1872 

1873 O38EB 8E0O CALP1O GOSUBL =CLRPRN Clear PRNCNT RAM location 
00 

1874 O38F1 768F GOSUB r3expp 

1875 O38F5 D8 B=A A Copy next token into B 

1876 038F? 447 GOC CALP25 VALID DUMMY ARRAY? 


1877 O38FR 137 CDIEX 
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1878 O38FD 1FOO 
000 
1879 03904 15B0 
1880 03908 135 
1881 03908 90C 
1882 O390E 15 
1883 033910 870 
1884 03913 05 
1885 03915 879 
1886 03918 F4 
1887 0391A 831 
1888 03910 06 
1889 
1890 0391F 3100 
1891 03923 7790 
1892 03927 D4 
1893 03929 74AD 
18394 0332D 4CA 
1895 033% 7D4D 
1896 
1897 03934 
1898 03938 7280 
1899 0393C 7476 
1900 03940 D6 
1901 03942 3394 
E4 
192 03948 8Ab6 
1903 0394B 97 
1904 
195 0394D 3100 
196 03951 173 
1907 03954 7963 
1908 03958 500 
1909 0395B 6D51 
1910 
1911 O395F 6D4D 
1912 03963 605D 
1913 
1914 03967 873 
1915 0396A 70 
1916 0396C 879 
1917 O396F OF 
1918 03971 3100 
1919 03975 6DAF 
1920 
1921 03979 6741 
1922 
1923 0397D 182 
1924 03980 1523 
1925 03984 162 
1926 03987 327A 
1 
1927 0398C 932 
1928 0398F 09 
1929 03951 826 


3100 
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CALL Parse 


01=(5) 


A=DAT1 
di=C 
7RHO 
GOYES 
*ST=1 
GOYES 
?ST=1 
GOYES 
?XMN=0 
GOYES 


=PRACNT 
1 


P 
CALPE1 
0 
CALPE2 
9 
CALP20 


CALP35 


* Passed by value 


CALP15 
CALP17 


x 
CALPIN 


x 


CALPE1 
CALPE2 


x 
CALP20 
CALP25 


CALPX 


k 
SBNME1 
* 


CALP35 


LC(2) 
GOSUB 
A=B 
GOSUB 
COC 
GOSUB 


LC (2) 
GOSUB 
GOSUB 
C=A 

LCASC 


?RAC 
GOYES 


LC(2) 
D1=D1+ 
GOSUB 
RTNNC 
GOTO 


GOTO 
GO10 


*ST=1 
GOYES 
?ST=1 
GOYES 
LC (2) 
GOTO 


GOTO 


DO=D0- 
A=DATO 
DO=D0+ 
LCHEX 


?A=C 
GOYES 
C=C+1 


=tCVAL 
outbyt 
A 

CONCK1 
CALPOS 
PRENCK 


=tPRMEN 
outbyt 
CNV2UC 


A 
\NI\ 


A 
rtnec 


=tIN 
4 
OBFSPp 


PRGP80 


NUNCK1 
NUNCK3 


3 
CALP30 
9 
CALPE1 
=tCREF 
CALP17 


ASNPE+ 


CALP15 
KS 


3:04 ari 
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Read paraneter count 


User defined function? 
INVALID EXPR? 


Channel# ? 
PASSED BY REFERENCE? 


Another cornna ? 
Assune end of parn list 


Read in nib 4 


OUTBYT,FSPECp 
Illegal filespec 


Restore D1 fron R3 
Invalid expression 


Nurieric ? 
Supposed to be channel # ? 


(error if dummy array or string) 
Pass by reference 


Illegal nane (Set S4-Syntax error) 


A? is substring token 


Substring with 1 parr? 


Saturn Assenbler 


1330 03994 932 
1931 03997 88 
1932 03993 57D 
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*A=C OK Substring with 2 parns? 
GOYES CALP15 
GONC CALP30 (B.E.T.) 


1933 
1934 
1935 
1936 
193? 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1983 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 


x 

FOI ITO II IIT TOT TT TT IIT TTR IT IIR IA 
FOI RII ISI OTT TOOT TTR 
ak 


** Nane: SUBNMP - Subprogran Nane Parse 


kk Nane: SBNNPO - Checks for Start of Paraneter List 
e 


** Category: PARUTL 


&k 
*k Purpose: Parses subprogran nane and checks for start of a 
ae parameter list. It 1s used by SUB and CALL 

ss statenent parse. 

&k 

x SUBNMP entry parses a subprogran narie; it 

ax only allows it in the forn of an unquoted string 
aK (Leading and trailing quotes can be checked for 
BR by the caller). 

Then it falls into the SBNMPO entry. 

& 

- SBNMPO entry checks for the start of a paraneter 
ax list, which is indicated by ’(*. If found, it 
as outputs tPRNST and returns with carry clear; 

of otherwise it returns with carry set. 

** Entry: D(A) = (AVMENE) 

is D1 points to input strean 

KX DO points into output buffer 

a 2 entry points: 

aK 1) SUBNNP - 01 at optional blanks preceding 

Rk the alleged subprogran nane. 

xn 2) SBNMPO - Tokenized subprogran nane output, 
a* with DO positioned past 1t. 

sa D1 past the subprogran narie. 

k 

RE Exit: P=0 

o Carry set => 

ae No paraneter list 

aK SUBNIP entry: 

¥* Di pts to ist non-blank char past subp. nane 
ae DO points past tokenized subprogran nane 

ae SBMNPO entry: 

aK 01 preserved fron entry (except advanced 

* past leading blanks) 

** DO preserved fron entry 

kk 

AX Carry clr => 

a There should be a paraneter list 

ak D1 past ascii ( 

aes tPRNST output; DO points past it 

es C(B)=asc1a ( 3 ACB)=tPRNST 

at 
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1985 a Error exit if illegal name (SBNMP entry only) 
1986 ak or if insufficient renory (both entries). 
1987 xn 
1988 ** Calls: FILEP, FSPC10, OUTBYT, NTOKEN, RESPIR 
1989 = xt 
1990 *k Uses: A-C, RO, SO-$3,$7,S11 
1991 xs 
1992 * Stk lvls: 5 
1993 aa 
1994 xt History: 

1995 xt 
1996 xR Date Programmer Modifications 
1997 ee 
1998 2 11/04/83 S.W. Modified docunentaion header 
be JOO IIT II IO CIO TOTTI 
2001 JITTERS TO TOSCO ISO OCT IR TK 
2002 x 
2003 0399C 7065 SUBNNP GOSUB FILEP- 
2004 039A0 58D GONC SBNNE1 ILLEGAL NAME? 
2005 039A3 7243 GOSUB FSPC10 Output tLITRL and nane 
2006 033A? 78DE SBNAPO GOSUB ntcken SCAN TO ’(’ OR EOL 
2007 O39AB 3182 LCASC \C\ 
2008 O39AF 362 7A=C OB 
2009 03982 80 GOYES SBNMP3 
2010 * No parm list 
2011 03984 79ED GOSUB resptr 
2012 039B8 02 RTNSC 
2013 x 
2014 039BA 3100 SBNNP3 LC(2) =tPRNST 
2015 039BE =0UTbyt 
2016 O39BE 8COO outbyt GOLONG =OUTBYT 
00 


2017 - 
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2018 STITLE LR Statenent Parse 
2019 JOISTS TOO TI III TIT TI IIT IATA IOK 
2020 JI III TT III IIE IRI IIR II III IIA TIT III DIT IIIT SI A 
2021 ax 
2022 ** Narie: LRP - LR Staterient Parse 
2023 EK 
2024 ** Category: STPARS 
2025 tai 
2026 ** Purpose: Parses LR (Linear Regression) Statenent 
2027 ak 
2028 at Entry: D(A) = (AVMENE) 
2029 aK D1 points into input buffer past LR keyword. 
2030 kk DO points into output buffer past tlk. 
2031 ak 
2032 ¥X Exit: Valid statenent parse => 
2033 aR Return with carry clear 
2034 ak P=0 
2035 aK D1 points past syntactically correct LR strit 
2036 aR LR stmt tokenization written to output buffer 
2037 igh DO points past statenent tokenization. 
2038 a 
2039 “A Else error exit 
2040 ak 
2041 ** Calls: NUNCK, COMCK+, DSTp 
2042 a 
2043 ** Uses: A-C,D(15-5) , RO-R3, SO-S3,S7,S11, FUNCDO, DO, D1 
2044 ae 
2045 ak Stk lvls: 5 
2046 ak 
2047 *k Detail: LR Tokenization: 
2048 ek  tLR <nun expr nun expr> [tCOMMA <var> [tCONMA <var>)] 
2049 aa 
2050 ** History: 
2051 xk 
2052 ae Date Progranmer Modifications 
2053 i SiR | Bitten + Sade baate nase 
2054 Kk 01/13/83 SLU. Updated docunentation header 
2055 ek 05/18/83 SW. Replaced call to NVARP «/DSTp 
2056 ah (Variables now coripiled as 
2057 ae expressions ) 
2058 ne 
2059 JIS UO CUI II IO II ISO TOTTI IK 
2060 JUSSI SSI ISIS SISSIES ISI OTTO TIO 
2061 x 
2062 03904 03 rtnece RINCC 
2063 x 


2064 03906 7300 
2065 039CA 7300 
2066 O39CE 5A2 
2067 03901 78CC 
2068 

20639 039D5 7000 
2070 03909 SF5 
2071 

2072 O39DC 7000 


=LRP GOSUB NUNCK 
GOSUB CONCK1 
GONC LRPE4 
GOSUB NUMCK 
* OPTIONAL VARIABLE SPECIFIERS 
GOSUB =COMCK+ Find & output tCONNA 
GONC RANDP2 
* REQUIRED TO BE NUMERIC VARIABLE 
GOSUB =DSTp Destination parse 
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2073 O39E0 863 ?ST=0 
2074 039E3 21 GOYES 
2075 039E5 7000 GOSUB 
2076 039E9 SF4 GONC 
2077 O39EC 7000 GOSUB 
2078 039FO 873 ?ST=1 
2079 039F3 64 GOYES 
2080 & 


2081 039F5 6000 LRPe GOTO 
2082 x 


Parse 


3 

LRPe 
=CONCK+ 
RANDP2 
=DSTp 

3 
RANDP2 


=REDPES 


2083 039F9 8COO LRPE4 GOLONG =ERRO4 
00 


2084 O39FF 658A LRPES GOTO 
2085 & 


FORPES 


Page 49 
String ? 


Find & output tCONNA 
No cornna ? 


Nuneric? 


MISSING PARN 
ILLEGAL VARIABLE 
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2086 
2087 
2088 
2089 
2090 
2031 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2124 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 O3RO03 


xk 
aK 
ak 
ak 
aK 
ak 
xk 
ak 
ak 
ak 
kk 
aK 
ak 
xk 
xk 
aK 
xk 
ak 
+S 
xk 
xk 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
xk 
aK 
ak 
ak 
xk 
xk 
xk 
xk 
ak 
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STITLE ADD Parse 
FISICA 


SOI ITT TTT ITT TTT TTT TOT TR IT 


Nane:(S) ADDP - ADD Statenent Parse 
Category: STPARS 
Purpose: Parses ADD and DROP Statenents 
Entry: D(R) = (AYMENE) 
D1 points at input strear past ADD or DROP keyword 
DO points into output buffer past tADD or tDROP 
Exit: Valid statenent parse => 
Return with carry clear 
P=0 
D1 points past syntactically correct statenent 
Tokenized statenent written to output buffer 
DO points past statenent tokenization 
Else error exit 
Calls: NUNS (NUNCK) 
Uses: A-C,D(15-5),RO,R1,R3, 00,01, SO-S3, $7,511, FUNCDO 
Stk lvls: 6 
Detail: Syntax is: 
ADD | DROP [nun expr [,nun expr...]] 
Tokenization 1s: 
tADD | tDROP [nun expr [nun expr... )] 
(tCOMNNA 1s NOT output between expressions) 
History: 
Date Progranrier Modifications 
02/08/83 S.U. No longer limits to 15 expr 
05/12/83 9 S.U. Use SFLAG/CFLAG parse 


FOI JOO OO OI TOIT OT TT 
FOR II OI IO OO TOIT I ITO TIT OK 


x 
x 


=A 


BBP 


2133 O3A03 70F1 =DROPP GOSUB eolck+ 


2134 O3A0? 413 
2135 
2136 O3ROR 6882 
2137 


x 


x 


COC 
GOTO 


RANDP2 NO PARNS? 


NUNS Parse at least 1 nun expr 
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2138 STITLE STAT Parse 
2139 {SIO OTE TR III II IIIT TTDI EIST IASI ISI ASAI IS SSS 
2140 JI ITI TI TEI II III III II IIIS ISI III IIIS IAS 
2141 ae 
2142 ** Nare: STATP - STAT Statenent Parse 
2143 hk 
2144 tk Category: STPARS 
2145 aK 
2146 kk Purpose: Parses STAT Statenent 
2147 ak 
2148 kX Entry: D(A) = (AVMENE) 
2149 kK 01 points at input strean past STAT keyword 
2150 a DO points into output buffer past tSTAT 
2151 aK 
2152 ek Exit: Valid statement parse => 
2153 ax Return with carry clear 
2154 aK P=0 
2155 &K 01 past syntactically correct statenent 
2156 * STAT statenent tokenization uritten to output buf 
2157 aX DO points past statenent tokenization 
2158 ax 
2159 ae Else error exit 
2160 ax 
2161 ** Calls: VARP, OUTITK, NUMNCK 
2162 ae 
2163 a Uses: A-C,0(15-5) ,DO,D1,RO,R1,R3,S0-S3, $11, FUNCDO 
2164 
2165 *k Detail: Compiled STAT statenent: 
2166 a tSTAT <variable nane> 
2167 ae OR 
2168 &k tSTAT tARRAY <variable nane> <nuner expr> 
2169 ae 
21% kK Stk lvls: 5 
2171 x 
2172 ** History: 
2173 ax 
2174 ee Date Prograrmer Modifications 
2175 BK mw cn ern een m eee ewe twee nee nernne 
2176 oA 01/14/83 S.W. Updated docurentation header 
17 
oie JI IOUT ITT III III IITA IT ISI SDI I IIIT IITA 
2179 $I IO II SII TIO TIT ISI II IIIT II IIITIIT IIIT IIIT IIIISISISI IN 
2180 * 
2181 x 
2182 O3ROE 7CFR =STATP GOSUB VARP 
2183 03A12 SCE GONC LRPES String variable? 
2184 03015 862 *ST=0 2 NOT ARRAY VARIABLE? 
2185 O3R18 CA GOYES rtnec 
2186 O3R1A 727C GOSUB NUNC ++ STEP OFF LEFT PAREN 
2187 O3R1E 7F5C GOSUB PRENCK No rtn if error 
2188 O3A22 03 RTNCC 


2189 





Saturn Assenbler Parse Routines - Part 3<831212 Fri Dec 30, 1983 3:04 an 


Ver. 3.39/Rev. 2306 END Statenent Parse Page 52 
21% STITLE END Statenent Parse 
2194 JI IO I IIT IIT III TOTTI ITO TIS OTTI II III SIS SSSI ISI AIA 
2192 JI OOO III III IOI II IIIS IIIT TSI IIIS II IIIS ISI SISA SSSI SAK 
2193 x 
2194 ** Nane: ENDP - END Statenent Parse 
2195 ax 
2196 ** Category: STPARS 
2197 aK 
2198 . Purpose: Parses END, END ALL, END DEF, & END SUB statenents 
2199 
2200 kk Entry: D(A) = (AVMENE) 
2201 ax D1 points at input strean past END keyword 
2202 aA DO points into output buffer past tEND 
2203 x S-RO-3 nonzero iff IF statenent in progress 
2204 ax 
2205 ak Exit: Valid statenent parse => 
2206 a Return with carry clear 
2207 aK P=0 
2208 am D1 points past syntactically correct staternent 
2209 ax END statenent tokenization written to ouput buf 
2210 ak DO points past statenent tokenization 
2211 ax 
2212 ahs Else error exit 
2213 &x Either END SUB or END DEF in middle of IF 
2214 = or MEMERR 
2215 aA 
2216 ** Calls: WROSCN, IFCK, QUTNBS 
2c? an 
2218 ** Uses: A-C, RO-R2, DO,D1, SO-S3,S11 
2219 aX 
2220 tk Stk lvls: 4 
2221 ae 
2222 ** Detail: Assumes: END, END ALL, END DEF, END SUB 
2223 x For END DEF and END SUB erases END token that has 
2224 A been output and outputs a ENDDEF or ENDSUB token 
cee5 x followed by 5 nibble link field. 
2226 am 
2227 aa END DEF, END SUB are Illegal after THEN,ELSE 
2228 - 
2229 ** History: 
2230 ax 
2231 aX Date Programmer Modifications 
22 3e RX. -ceecentis”. scecoceeee sl! (eee eee ese 
2233 RA 01/14/83 SLU. Updated header; modified instruc- 
cc aK tion to change SUB to ENDSUB, etc 
2235 = fron A=A+1 W to A=A+1 AL 
2236 a 
2037 FOO OOOO IOI ISI ROR JOTI IOI 
2938 POVTUCTCCTOUTTCCUCUSTCCCCSUCTICSCCSUSCCeS ISSCC Cert terstcstre ss. 
2239 . 
2240 O3A24 716E =ENDP GOSUB wrdscn 
2241 03R28 00 CON(2) =tDEF 
2242 O3REA 310 REL(3) ENDP10 END DEF 
2243 O3AZD OO CON(2) =tSUB 


2c44 O3RCF EO REL(3) ENDP10 END SUB 
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2245 03A32 0 CON(2) =tALL 
2246 03034 OOF REL(3) rtnec END ALL, Rtn to LineP 
2247 03A37 00 CON(2) 0 END 
2248 03A39 676D RANDP2 GOTO resptr 
2249 x 
2250 03A3D 8E0O ENDP10 GOSUBL =IFCK Not niddle of IF ? 
wo ‘ 
2251 03A43 183 DO=D0- 4 Back up to erase END & DEF (SUB) 
2252 03A46 £4 A=A+1 A Increnent SUB to ENDSUB or 
2253 x DEF to ENDDEF 
2254 03048 26 P= 6 Output ENDSUB or ENDDEF token 
2255 O3R4A BDAZ GOTO outnbs and 5 nibble link field 


2256 ¥ 
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2257 STITLE CREATE Parse 
2968 JOO IO IOI TI TTI CO TTI AI IASI IIIS ASIAN 
2269 JOO TI TO I ITE TIE TT TIT EE TIT TIT IEE III IIIA IIS SSI SILI SI SIS: 
2260 we 
2261 ** Nane: CREATP - CREATE Statenent Parse 
2262 RK 
2263 ** Category: STPARS 
2264 aK 
2265 ** Purpose: Parses CREATE Staterent 
2266 KK 
2267 kk Entry: D(A) = (AVNENE) 
2268 i D1 points into input strean past CREATE keyword 
2269 ax DO points into output buffer past tCREAT 
2270 a 
2271 KK Exit: Valid statenent parse => 
2272 xs Return with carry clear 
2273 ae P=0 
2274 me D1 points past syntactically correct CREATE stint. 
2275 oi CREATE strt tokenization written to output buffer 
2276 Ee DO points past statenent tokenization 
2277 aa 
2278 AX Else error exit 
2279 aK 
2280 k* Calls: FSPECp, OUT2TK, COMNCK, FASCFD, NUNCK, 
2281 ak FLTYPp, NUNCKO, COMCK+, RESTPR, FIXP 
2282 ax 
2283 es 
2284 xk Uses: A-C,P,XM,DO,D1,0(15-5), SO-S3,S7, 811, FUNCDO 
2285 az 
2286 ** Stk lvls: 6 
2287 ae 
2288 ** Detail: Syntax: 
2289 ae CREATE <type> <file spec> [,<size>[,<len>]] 
2290 ae Tokenization: 
2291 xk 6 tCREAT <file type> <file spec> 
2292 ax [tCONNA nun expr (tCOMMA nun expr)]} 
2293 a* 
2294 ** History: 
2295 ae 
2236 AS Date Progrannier Modifications 
2297 KR eee eee ne ee ee renee renee necro n-- 
2298 ek 01/14/83 SL. Updated docunentation header 
9 ek 
ok OOOO ISTORII ICO IRI OIG IIIT IOI OO ITI OIC 
21 SOO ROU OO IOI IGG OO IOI FIO 
2X2 x 
23 x 
2304 O3R4E 7F14 =CRERTP GOSUB FLTYPp Parse & output file type 
25 O3AS2 7FE2 GOSUB FSPECp PARSE FILE SPEC 
236 03A56 426 GOC PRGP8O ILLEGAL SPECIFICATION? 
2? x 
2308 03A59 707C GOSUB CONCK 
2X9 O3A5D 5BD GONC RANDP2 NO FILE SIZE SPECIFIED? 
2310 O3R60 7530 GOSUB NUNCKO PARSE SIZE 
2311 03A64 7000 GOSUB = =CONCK+ Find & output tCONMA 
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2312 0368 50D GONC  RANDP2 
2313 O36B 491 GOC fixp 
2314 . 





(B.E.T.) NUMCK, RESPTR 


3:04 ari 
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2315 STITLE RANDOMIZE Parse 
2316 JU III CII I I IIIT I I IITA IIH 
2317 JOO IOI TI TI IT IIIT IDI II III III III IIIS IIA 
2318 ai 
2319 ** Nane: RANDP - RANDOMIZE Statenent Parse 
2320 as 
2321 ** Category: STPARS 
2322 ax 
2323 ** Purpose: Parses RANDOMIZE Statenent 
2324 aX 
2325 **k Entry:  O(A) = (AVMENE) 
2326 ak D1 points into input strean past RANDOMNIZ keyword 
2327 ay DO points into output buffer past the corr. token 
2328 aR P=0 
2329 as 
2330 AX Exit: Valid statenent parse => 
2331 aR Return mith carry clear 
2332 a D1 past syntactically correct RANDOMIZE stnt 
2333 ae RANDOMIZE stnt tokenization written to output buf 
2334 aR DO past statenent tokenization 
2335 ak 
2336 ie Else error exit 
2337 ax 
2338 ** Calls: EQLCK, NUNCK (FIXP), CNVWUC 
2339 ae 
2340 a Uses: A-C,0(15-5), SO-S3,S$7,S11,RO,R1,R3, FUNCDO, DO, D1 
2341 x 
2342 ** Stk lvls: 6 
2343 aX 
2344 ** Detail: Syntax for RANDOMIZE: 
2345 ak RANDOMIZE [<nun expr>] 
2346 = 
2347 ** History: 
2348 aX 
2349 as Date Progranner Modification 
2350 AK ne wc nn ee seen ree een meee rerecen- 
2351 kk 11/09/82 SLU. Added new docunentation header 
2352 ee 01/26/83 SW. IZE is no longer optional 
ah 
ae JE II OCI I IIIT TOR TTT E ISI IIT AIK 
2355 JRO II IO RII STITT SSI AII IIIS I SIS III IIA 
2356 x 
2257 x 
2358 O3A6E 7645 =RANDP GOSUB CNVWUC CONVERT NEXT CHAR TO UPPER CASE 
2359 O3A72 3154 LCASC \E\ 
2360 03A76 966 eRAC OB 
2361 O3A79 84 GOYES ASNPE+ 
2362 O3R7B 171 D1=Di+t 2 STEP OVER ASCII °E’ 
2363 O3A7E 7571 GOSUB  eolck+ test for end-of-line token 
2364 O3A82 468 GOC RANDP2 
2365 0385 6000 fixp GOTO =FIXp NUNCK, RESPIR 
x 


2366 
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2367 STITLE PURGE, CAT Statenent Parse 
2368 SII TR LIRR III ISIE IDIOT DS III III III III IIIS SII IIIS IIS 
2369 FORO TOO TTT TO 
2370 ak 
2371 ** Ware: PURGEP - PURGE Statenent Parse 
2372 ax Nare: CATP - CAT Statenent Parse 
2373 as 
2374 *k Category: STPARS 
2375 ak 
2376 ** Purpose: Parses PURGE and CAT statenents 
2377 ah 
2378 ax The PURGEP entry point accepts a file specifier, 
2379 ax the ALL keyword, or the KEYS keyword 
2380 ak 
2381 ax The CATP entry point will accepts any of the above, 
2382 ak in addition to the CARD keyword. 
2383 ax 
2384 xk Entry: DCR) = (CAVMENE) 
2385 an D1 points into input buffer 
2386 ax DO points into output buffer 
2387 ak 1) PURGEP - no add’] requirenents 
2388 ak 2) CATP = - S9=0 
2389 ak 
239 Rk Exit: Valid statenent parse => 
2391 aK Return with carry clear 
2392 a P=0 
2393 sg D1 past valid file spec or keyuord 
2394 x DO points past corresponding tokenization 
2395 as in output buffer 
2336 a 
2397 ae Else error exit 
2398 ak 
2399 ak Calls: FPSECp, EOLCK, RESPTR 
2400 ak 
2401 *k Uses: A-C,D(15-5), SO-S3, $7, $9, S11, RO-R3,P, XM, FUNCDO 
2402 x 
2403 *® Stk lvls: 6 
2404 ak 
2405 ** Detail: KEYS’ and ’ALL’ are acceptable keywords for both 
2406 x entry points (CATP & PURGEP). 
2407 ah 
2408 *k History: 
2409 RK 
2410 a Date Programmer Modifications 
2411 BR wenn nen ween ener cee ener nnnne 
2412 i 11/09/82 SLU. Added new documentation header 
Sata JORIS OO I OT IIIT III III ISIS SSIS IIIISSIS II IIIS SAI IS IIS SSA 
2415 JIT TOI ITT OAT IIIT ITSO IIS IS IES III IIS ISI I IIIA 
2416 t 
2417 x 
2418 03089 859 =PURGEP ST=1 9 
2419 O3R8C 7761 =CATP GOSUB eolck+ 
2420 0399 560 GONC  PURGP+ EOL NOT FOUND? 


2421 


x 
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2422 03993 BAEO 
2423 
2424 
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x 


GOTO NANEP? 


2425 O3A9? 7A22 PURGP+ GOSUB FSPECp 


2426 O3AR9B 500 
2427 

2428 

2429 O3ASE 3100 
2430 O3RA2 962 
2431 O3AAS Al 
2432 

2433 O3RA? 3100 
2434 O3RAB 962 
2435 O3ARE 60 
2436 O3ABO 6080 
2437 

2438 O3RB4 863 
2439 O3AB7 80 
2440 

2441 O3RBI 800 


00 
2442 
2443 O3RBF 03 
2444 


2445 O3AC1 854 
2446 O3AC4 6509 
2447 


k 


RTNNC 


* SPECIAL CHARACTER OR RESERVE WORD 


* FOUND 
PRGP30 


PRGP80 


k 
CLRCA+ 
k 


ASNPE + 


PRGPE 1 
* 


LC(2) =tALL 
eA=C OB 
GOYES CLRCA+ 


LC(2) =tCARD 


?A=C OB tCARD 

GOYES PRGP30 

GOTO  RNMP45 Check for tKEYS 
tCARD - SEE IF LEGAL SYNTAX 

?ST=0 9 CAT PARSE? 

GOYES CLRCA+ 

GOLONG =ERR11 ILLEGAL FILE NANE 
RTNCC 

ST=1 4 

GOTO FORPE1 ERRO1 
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2448 STITLE DELETE Parse 
2449 III IRE KI IAI ISTE DR IDI TIT IIE DTI ITIII DILLER III IIIS IIA IS 
2450 SOI SIRI IIIT IID IIT IS IASI SIS II ISIS ISIS SIS IOI ISIS SSI IIIS ISI SA. 
2451 ak 
2452 ** Nane: D’LTP - DELETE staterent parse 
2453 ae 
2454 ** Category: STPARS 
2455 a 
2456 ** Purpose: Parses DELETE statenent. 
2457 ae Accepts either <line no.> [<,line no.>} 
2458 a or the ALL keyword 
2459 a 
2460 &* Entry: D(A) = (AVMEME) 
2461 a Di points at input strean 
2462 RR DO points at output buffer 
2463 ak 
2464 tx Exit: Valid statenent parse => 
2465 1 Return with carry clear 
2466 aK P=0 : 
2467 ax Di points past correct syntax 
2468 ae Tokenization uritten to output buffer 
2469 ax DO points past tokenization 
2470 aK 
2471 ae Else error exit 
2472 ax 
2473 xk Calls: WRDSCN, RESPTR 
2474 aK 
2475 ** Uses: A-C, P, DO,D1, SO-S3,S11, RO-R2 
2476 ** 
2477 kx Stk lvls: 6 
2478 a 
2479 ** Detail: Acceptable syntax: 
2480 ax <line no.> [,<line no.>] 
2481 ae OR 
2482 ax ALL 
2483 aR 
2484 ax DELETE is not progrannable 
2485 xx 
2486 ** History: 
2487 ak 
2488 xy Date Progranner Modifications 
2489 Rh -------- wert ree teen eereren 
24% . 11/04/83 S.H. Updated docunentation header 
4 x 
se 20 I TOIT TITTIES IIT ITI ISI IIIA TITAS 
2493 JO III II III IIIT IIIT III III IIIT IIIT TTS 
2494 x 


2495 O3AC8 7DBD =D’LTP GOSUB 


2496 O3ACC 00 
2497 O3ACE OFE 
2498 O3AD1 00 
2499 

2500 O3AD3 7ACC 
2501 O3AD7 61FO 
2502 


x 


x 


CON(2 


wrdscn 
) =tALL 


REL(3) rtnec 
CON(2) 0 


GOSUB 
GOTO 


resptr 
LSTP20 LOOK FOR LINE# 
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2503 STITLE ASSIGN Statenent Parse 
26504 JO SIO ICCC OCIS TIO ICG II IAI SI III III IK 
2505 JOO I ISIS IO TOS SISOS ISOS II III II IIIS IIIS IIIS IS. 
2506 ax 
2507 ** Nare: ASSNP - ASSIGNH statenent parse 
2508 a 
2509 ** Category: STPARS 
2510 ak 
2511 ** Purpose: Parses ASSIGN Statenent 
2512 ak 
2513 ** Entry: D(A) = CAVNENE) 
2514 am D1 points at input strean past ASSIGN keyword 
2515 a DO points into output buffer past corr. token 
2516 aX 
2517 ak Exit: Valid statenent parse => 
2518 ak Return with carry clear 
2519 aS D1 past syntactically correct ASSIGN stint 
2520 Ex ASSIGN stnt tokenization written to output buf 
2521 aR DO points past staternent tokenization 
2522 ax 
2523 a Else error exit 
2524 ax 
2525 ** Calls: NUNC ++, OUTITK, WRDSCN, #CK, FSPECp 
2526 ax 
2527 ** Uses: A-C,D(15-5), SO0-S3,$7,S$10,S811,00,D1, FUNCDO 
2528 = 
2529 ** Stk lvls: 6 
25H AX 
2531 ** Detail: Syntax: 
2532 = ASSIGNH <channel no.> TO * 
2533 ie ASSIGNH <channel no.> TO <filespec> 
2534 ax 
2535 ae Tokenization: 
2536 - tASSGN <channel no.> tT0 * 
2547 xe tASSGN <channel no.> tT0 <filespec> 
2538 ae 
2539 ** History: 
2540 ax 
2541 a Date Progranner Modifications 
2542 a aaa aaa 
2543 ee 12/06/82  S.W. Docunented code 
2544 aA 
2545 JOSIE UDG IIIS IOI OGG TO I TTI TASS 
2546 JO IG OI EE TOTTI IAI I IIIT SITS S AIA 
0547 * 
2548 : 
2549 O3ADB 7000 =ASSNP GOSUB =#CK 
2550 O3ADF 41E GOC ASNPE+ # not found? 
2551 * 
2552 O3AE2 7 ARB GOSUB NUNC ++ 
2553 O3RE6 3100 LC(2) =tT0 
2554 O3AEAR 966 RAC OB 
2555 O3RED 7D GOYES PRGPE1 
2556 GOSUB  outitk 


2557 


O3REF 7630 
t 
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2558 *CHECK FOR ’*’ FOR MF ASSIGN 
2559 * 
2560 O3AF3 7290 GOSUB urdscn 
2561 O3AF7 OO CON(2) =t* 
2562 O3AF9 BCE REL(3) rtncc 
2563 O3RFC OO CON(2) © 
2564 & 
2565 O3AFE 7F9C GOSUB resptr 
2566 O3B02 7FB1 GOSUB FSPECp 
2567 03B06 500 RTNNC 
2568 03809 4FA , GOC PRGP8O (B.E.T.) - Illegal nane 
2569 


2570 x 
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2571 STITLE RENAME, COPY Parse 
2572 JORIS IIIT I IO TI II III II IRI IIIS ADIT IIS II IAI 
2573 JOO OI I TTI IT TIE II IIIT III III IIIT AISI SSS IIS ISS SSIS 
2574 wx 
2575 ** Nane: RENANP - RENAME staterent parse 
2576 xx Nane: COPYP - COPY statenent parse 
2577 ak 
2578 ** Category: STPARS 
2579 ax 
2580 ** Purpose: 
2581 ax Parse COPY and RENAME staterents 
2582 ae 
2583 &k The differences between these tuo entry 
2584 kx points: 
2585 xx RENANF doesn’t allow the CARD keyword. 
2586 KK RENANP requires a destination file specifier 
2587 a (ie it requires the T0 keyword and what follows). 
2588 xx 
2589 kk Entry: 
2590 aK DCA) = (AVNENE) 
2591 a D1 points at input buffer 
2592 ax DO points into output buffer 
2593 ak $8=0 
2594 ak 2 entry points: 
2595 aK 1) COPYP - No add’1 requirenents 
2596 ak 2) RENANP - S9=0 
2697 wk 
2598 kk Exit: 
2599 a Valid statement parse => 
2600 ay Return with carry clear 
2601 wk P=0 
2602 obs D1 past accepted syntax 
2603 xe Tokenization written to output buffer 
2604 xs DO points past tokenization. 
2605 ax 
2606 as Else error exits: 
2607 a "Tllegal Nare", "Syntax", or MEMERR 
2608 Km 
2609 ** Calls: FSPECp, WRDSCN, EOLCK 
2610 x 
2611 ** Uses: A-C,0(15-5),P, XM, DO, D1, $0-S$3,$7,S8, S10, $11, 
2612 xx FUNCDO, RO-R3 
2613 ne 
2614 ** Stk lvls: 6 
2615 a 
2616 ** NOTE: $8 nust remain intact through all calls. 
2617 me 
2618 ** Detail: 
2619 eS 
2620 aS Acceptable syntax for COPY: 
2621 xs COPY [ CARD | KEYS | <file spec> ] [{ TO 
2622 kk CARD | KEYS | <fale spec> J 
2623 os 
2624 a Acceptable syntax for RENAME: 
2625 xk RENAME [KEYS|<file spec>] TO KEYS|<file spec> 
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2626 Rk 
2627 ak 
2628 a $8 is the destination parse flag. 
2623 a 
2630 ** Algorithn: 
2631 a 
2632 *% COPYP2: Set Destination Parse flag (S8) 
2633 x& COPYP: Try <file specification> Parse (FSPCdp) 
2634 ax If not accepted (Carry set) 
2635 at If reserved word (S7=1) 
2636 ak If 10 
2637 aR If Source Parse (S8=0) 
2638 ak go Parse Dest (COPYP2) 
2639 ak If CARD | KEYS 
2640 ak go Parse Dest (COPYP2 ) 
2641 ak else 
2642 - Error Exit ---> "Illegal Nane" 
2643 xR else 
2644 KR If Source Parse (S8=0) 
2645 ak Set No Restore of Input Pointer flag 
2646 at Error Exit ---> "Illegal Narie" 
2647 aR else 
2648 aR If Destination NOT yet parsed (S8=0) 
2649 ak If next token = T0 (WROSCN) 
2650 ak go Parse Destination (COPYP2) 
2651 R else; 
2652 ak RTNCC 
2653 ak 
2654 ** History: 
2655 ak 
2656 xe Date Progranner Modification 
2657 BR naan nn een nen eee nnn ne nnn nner ren ne nnn renner nne 
2658 kk 07/06/82 IP Nodified docunentation 
2659 ex 10/19/82 IP Renoved PCRD as acceptable file spec 
2660 ne 11/29/82 S.W. Combined RENANE/COPY parse 
ce JOO OO OIC OT TIT II III ITH 
2663 JOGO CIO OT TTI TIA IAT H 
2664 x 
2665 O3B0C 77£0 =COPYP GOSUB eolck+ Allow COPY 
2666 03810 406 GOC NANEP7 Endline? 
2667 03813 859 ST=1 9 COPY flag 
2668 03816 550 GONC RENANP (B.E.T.) 
2669 x 


2670 03819 858 RNMPOS ST=1 = 8 
2671 O3B81C 75A1 =RENANP GOSUB FSPECp 


2672 03820 572 GONC RNNP2S LEGAL FILE NAME? 

2673 * ILLEGAL FILE SPEC 

2674 x 

2675 03823 867 ?ST=0 7 NOT RESERVE WORD? 
2676 03826 39 GOYES PRGP8O 

2677 03828 878 ?ST=1 8 on Destination parse? 
2678 0382B BO GOYES RNMP15 

2679 * CHECK FOR tKEYS, tT0 


2680 03B2D 3100 LC(2)  =tT0 
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2681 03831 962 7A=C OB 

2682 03834 5E : GOYES RNMPOS tT0 already output 

2683 

2684 03836 869 RNMPI5 ?ST=0 9 RENANE parse? 

2685 03839 BO GOYES RNMP2O Yes=> Don’t check for CARD 

2686 03B3B 3100 LC(2) =tCARD 

2687 O3B3F 962 *A=C OB 

2688 03842 60 GOYES RNAP2S 

2689 x 

2690 03844 7910 RNMP2O GOSUB RNMP45 If not tKEYS then error 

2691 x 

2692 03848 878 RNMP2S 7ST=1 8 

2693 03B4B 07 GOYES LSTPDN 

2694 O384D 7830 GOSUB srdscn 

2695 03B51 00 CON(2) =tT0 TO TOKEN 

2696 03853 6CF REL(3) RNMPOS 

2697 03856 00 CON(2) 0 

2698 x 

2699 03858 879 ?S$T=1 9 COPY Parse? 

2700 O3B5B 32 GOYES NANEP?7 TO not necessary 

2701 x 

2702 O3B5D 666F GOTO  PRGPE1 

2703 x 

2704 * ONLY ALLOW RESERVE WORD tKEYS 

2705 x 

2706 03861 3100 RNMP45 LC(2) =tKEYS 

2707 03865 962 *A=C OB 

2708 03868 35 GOYES LSTPON 

2709 0386A 6E4F RNMP65 GOTO PRGP80 ILLEGAL FILE NANE 
k 


2710 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 NANE Parse 


2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
270 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 


aK 
ak 
ak 
ak 
ak 
xk 
ak 
xk 
xk 
xk 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
ak 
xk 
ak 
ak 
ak 
ak 
xk 
xk 
ah 
ak 
xx 
aK 
xk 
xk 
xk 
ak 
ak 
xk 
aK 
ak 
ak 
ak 
xk 
xk 
ak 
a 
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STITLE NAME Parse 
III OO TTT TTI TE TIT IIIT IIIT DIS IIIA STOTT III 


FORTIFIED T TITS TI ITI IIIT ITI IITA T RISD 


Narie: 
Category: 


Purpose: 


Entry: 


Exit: 


Calls: 
Uses: 
Stk lvls: 


Detail: 


NANEP - NAME Statenent Parse 


STPARS 
Parses NAME statenent. 


NAMEP allows a ’simple’ file nane only, ie it 
doesn’t allow a device specifier of any kind 
{unless of course it’s in a string expression) 


D(A) = (AVMENE) 
D1 points at alleged file specifier in input strean 
DO points into output buffer 


Valid sinple file nane => 
Return with carry clear 
D1 points past file nane 
Tokenized file nane written to output buffer 
DO points past tokenized file nane 
Else error exit 
FILEP 
A-C,0(15-5), RO-R3, DO, D1, SO-S3,37, $10, S11, FUNCDO 
5 


Syntax: 
NANE <file nane> 


where <file name> may be an unquoted string, ora 
string expression 


History: 


01/14/83 


Tokenization: 

tNANE tLITRL <ascii file nane> 
OR 

tNANE <string expression> 


Progranner Modifications 


S.W. Updated docurientation header 


FOR IIR IOI IIR JOO OT TTT TR TITTIES TIER IK 
III III III IIIT IIIT DIET ITT LITT I TTI ITT IDI III ITT IIT IST 


x 


2762 O3B6E 7A23 =NAMEP GOSUB FILEP 


2763 03872 S?7F 
2764 
2765 03875 877 


GONC 


RNMP65 ILLEGAL FILE NAME 


* LEGAL FILE NANE 


eST=1 


? 
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2766 03B78 60 GOYES NANEP? 
2767 O3B7A 6E61 GOTO FSPC10 
2768 ‘ 


2769 O3B7E 622C NANEP? GOTO resptr 
2770 x 


Page 66 


STRING EXPR? 
OUTPUT tLITRL BEFORE FILE NANE 


Saturn Asseribler Parse Routines - Part 3<831212 Fri Dec 30, 1983 3:04 an 


Ver. 3.39/Rev. 2306 LIST, PRIVATE, MERGE, EDIT, SE Page 67 
2771 STITLE LIST, PRIVATE, MERGE, EDIT, SECURE Parse 
2772 SIRI TTI OAT II ITE TTI TDR TET TR IRI I TT LT III IIIA IASI IIIS ISS IS SSS 
2773 JORIS ROJO JI ITO TOTO TOOT Te 
2774 = ak 
2775 &* Nane: LISTP - LIST Statenent Parse 
2776 &* Nane: PRIVIP - PRIVATE Statenent Parse 
2777 ** Nane: MERGEP - MERGE Staterent Parse 
2778 ** Nane: EDITP - EDIT Statement Parse 
2779 ** Nane: SECURP - SECURE Statenent Parse 
2780 kx 
2781 ** Category: STPARS 
2782 AK 
2783 ** Purpose: Parses LIST, SECURE, PRIVATE, MERGE, and EDIT 
2784 aia statenents. 

2785 RK 
2786 kx LISTP entry allows one or tuo optional line 
2787 ak nunbers, preceding by an optional file 
2788 ka specifier (which may be the KEYS keyword). 
2789 ak [<filespec>|KEYS] [<line#>[,<line#>]] 
27%) ax 
2791 x SECURP entry allous an optional file 
2792 ax specifier, which nay be the KEYS keyuord. 
2793 ax [<filespec>|KEYS] 
2794 ae 
2795 ae PRIVTP entry requires a file specifier, 
2796 sae and doesn’t accept any keyword. 
2797 ax <filespec> 
2798 a 
‘ 2799 ak MERGEP entry requires a file specifier, 
' 2800 x followed by one or tuo optional line 
2801 ax nunbers. 
2802 RX <filespec> [<line#>[,<line#>]] 
2803 ax 
2804 ‘ EDIT entry allows an optional file 
2805 is specifier, and doesn’t accept any keyword. 
2806 aw {<filespec>] 
2807 ak 
2808 ** Entry: D(A) = (AVNENE) 
2809 aX D1 points to current pos. in input strean 
2810 ae DO points into output buffer 
2811 a 5 entry points: 
2812 oe 1) PRIVTP - No add’l requiretients 
2813 RA 2) MERGEP - S9=0 
2814 x 3) EDITP - No add’l requirenents 
2815 ae 4) SECURP - S8=0 
2816 Re 5) LISTP - $8=0;S9=0 
2817 ak 
2818 Rk Exit: Valid parse => 
2819 ak Return with carry clear 
2820 $x P=0 
2821 ae D1 past correct syntax in input strean 
2822 sia Tokenization written to output buffer 
2823 ax DO past tokenization 
2824 RK 


2825 ax Else error exit 
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2826 ax 

2827 ** Calls: FSPECp, D1C=R3, OUT3TK, GNXTCR, EOLCK, NTOKNL, CONCK 

2828 ak LSTP40 

2829 ax 

28H ** Uses: A-C,0(15-5),P, XM, DO, D1, SO-S3,$7-S$9,S11, RO-R3 

2831 ak FUNCDO 

2832 4x 

2833 ** Stk lvls: 6 

2834 as 

2835 tk Detail: 

2836 aK S8=0 => KEYS is a valid file specifier 

2837 aK $9=0 => Line nunbers are appropriate 

2838 ak 

2839 ** History: 

2840 aK 

2841 a Date Programmer Modifications 

2842 Rk pone een e eee e en nee- 0-2 ----------- 

2843 kk 14/09/82 = S.W. Added new docunentation header 
ek 

ae JOSIE III OIG ISTO TO STII TIT 

2846 JOOS IOI OIC OI I IIIT ISIS III TIT IK 

2847 & 

2848 t 

2849 03882 859 =PRIVIP ST=1 9 NO LINE NUMBERS 

2850 * Allons line#s 

2851 O3B85 858 =MERGEP ST=1 8 FILE MUST BE SPECIFIED 

2852 03888 6010 GOTO LSTPO1 

2853 ’ 

2854 O3B8C 858 =EDITP ST=1 8 OK if no file nane; keys illegal 

2855 O3B8F 859 =SECURP ST=1 9 DON’T ALLOW LINE NOS. 

2856 03B92 7160 =LISTP GOSUB eolck+ 

2857 03896 47E GOC NAMEP? EOL FOUND? 

2858 t 

2859 03899 7821 LSTPO1 GOSUB FSPECp 

2860 03890 SF1 GONC  LSTP10 LEGAL FILE NANE? 

2861 * ILLEGAL FILE SPEC 

2862 O3BA0 878 *ST=1 8 tKEYS illegal? 

2863 03BA3 7C GOYES RNMP6S 

2864 x 

2865 O3BA5 3100 LC(2)  =tkEYS 

2866 O3BRA9 962 *A=C oB . 

2867 O3BAC 11 GOYES LSTP10 

2868 * NO FILE SPECIFIED - MAY BE LINE NOS. 

2869 O3BAE 879 ?$T=1 9 No line#s allowed? 

2870 03BB1 9B GOYES RNMP65 

2871 * Either illegal 1st character or Reserved word 

2872 O3BB3 877 *ST=1 7? Reserved word? 

2873 O3BB6 4B GOYES RNMP65 

2874 O3BB8 501 GONC  LSTP20 (B.E.1T.) - maybe line# 

2875 x 

2876 O3BBB 03 LSTPON RTNCC 

2877 % 

2878 O3BBD 879 LSTP10 ?ST=1 9 SECURE COMMAND? 

2879 O3BC0O BF GOYES LSTPDN 


2880 O3BC2 770B LSTP12 GOSUB COMCK 
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2881 O3BC6 578 GONC = =NANEP? 
2882 * $90 
2883 03BC9 7ROO LSTP20 GOSUB LSTP40 
2884 A 
2885 O3BCD 7C(FA GOSUB CONCK 
2886 03601 5CA GONC = NAMEP? 
2887 * 
2888 03804 859 ST=1 9 
2889 03BD7 8£00 LSTP40 GOSUBL =NTOKNL 
00 
28% O3BDD 3100 LC(2) =tLINE# 
2891 O3BE1 966 eAHC OB 
2892 O3BE4 FO GOYES LSTPE 
2833 O3BE6 3100 LC(2) =tCOMMA 
2894 O3BEA REA A=C B 
2895 O3BED 8C00 GOLONG =OUT3TK 
0 
2896 * 
2897 O3BF3 661C ,bstre GOTO 38 errd3 INVALID (MISSING PARN) 


2898 


Saturn Assenbler 


Parse Routines ~ Part 3<831212 Fri Dec 30, 1983 3:04 an 


Ver. 3.39/Rev. 2306 AUTO Parse 


2899 
2900 
2901 
202 
293 
2904 
2905 
2906 
297 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2546 
2947 
2948 
2949 
2950 
2951 
2952 
2953 


a 
Kk 
wk 
ak 
xk 
a 
xx 
Kk 
xk 
a 
ax 
Kx 
ax 
x 
wk 
wk 
aa 
xk 
ax 
xx 
xk 
xe 
ax 
xx 


wx 


xk 
Kx 
ak 


ak 
ax 
am 
ak 
ak 
ax 
xx 
x 
wx 
xk 
a 
a 
ae 
a 
xx 
ae 
ak 
xk 
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STITLE AUTO Parse 
JOG IOI TOO TOO IIE ICICI ITI 


FORO IOI IOI ITI ITTTTTI TT ITITTITI ITIT IITITN 


Nane: AUTOP - AUTO Statenent Parse 
Category: STPARS 
Purpose: Parses AUTO statement. This statenent parse 


Entry: 


Exit: 


Calls: 
Uses: 


Detail: 


Stack lvls: 


08/04/82 


does not allow a nulti-statenent line to follow. 
It traps out the occurence of a statement 
terminator of ’@’. 


It allows up to two line numbers, delinited by 
a corima. 


Di points at the input buffer 

DO points into the output buffer 
D(A) = (RAVMENE) 

P=0 


Valid statenent parse => 
Return with carry clear 
P=0 
The staterient terminator is NOT °@’ 
Statenent tokenization written to output buffer 
DO points past the tokenization 
D1 points past the corresponding text in the 
input stream 


Else error exit 
NTOKNL, eolck+, OUTITK, LISTP20 
A-C, DO,D1, S$0-S3,S11, RO 


AUTO 1s allowed on an unnunbered nulti-statenent 
line, but can’t be followed by an ’@’. 


The line nurber/increnent value 1s tokenized 
as follows: 
[tCOMNMA< line#> [tCOMMA<line#>] J 


6 


Progranner Modifications 


S.W. Added docunentation & nodified 
parse to recognize lowercase | 


FOO OIG OO IOI IOI OO TIO: 
FOO IOI OI OI IG OIC IOI IOI OO IOI OTITIS 


x 
x 
x 


This subroutine uses 5 levels 
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2954 O3BF7 8E00 eolck+ GOSUBL =EOLCK+ 
00 


2955 O3BFD 400 RTNC 

2956 03000 564 GONC FTKYPS (B.E.1.) RESPIR 

2957 x 

2958 5 

29539 03003 =AUTOP 

2960 03003 70FF GOSUB eolck+ 

2961 03007 463 GOC FIKYP3 EOL FOUND? 

2962 * BETTER BE A LINES 

2963 O3C0A 7BBF GOSUB LSTP20 

2964 O3C0E 532 GONC CONTP2 (B.E.T.) 

2965 s 

2966 03(11 8C00 RUNPES GOLONG =ERROS EXCESS CHARACTERS | 
00 

2967 * 


2968 03C17 8000 = gnxtcr GOLONG =GNXTCR 
00 


2969 x 
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3021 O3C1D 7860 
H22 03021 00 
3023 03023 710 
W24 03026 00 
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2970 STITLE FETCH/CONT Parse 
2971 JOO IOS GIOTTO CCI TIO TIA T IIT IT 
2972 JOOS III IIS OIG CG COC TI II IIIT ITT IN 
2973 ah 
2974 x* Narie: FETCHP - FETCH Statenent Parse 
2975 xt Narie: CONTP - CONT Statenent Parse 
2976 ak 
2977 *k Category: STPARS 
2978 ak 
2979 **k Purpose: Parses FETCH & CONT Statenents 
2980 xk 
2981 ak Neither FETCHP or CONTP allow a statenent to 
2982 ah be concatenated after this one. 
2983 x 
2984 ak CONTP allous an optional line number or label. 
2985 ak 
2986 ak Entry: D1 points at input buffer 
2987 ee DO points into output buffer 
2988 ax D(A) = (RVMENE) 
2389 xh 
2990 xk Exit: Valid Staternent Parse=> 
2991 aR Return with carry clear 
2992 aR P=0 
2993 a Tokenized statenent written to output buffer 
2994 a DO points past tokenized statenent 
2995 me D1 pts past corresponding text in input buffer 
2996 a °@’ does not follow legally parsed staterent 
2997 KR 
2998 xe Else error exit 
2999 aK 
3000 ** Calls: NTOKEN, WRDSCN, STRGCK, RESPTR, LBLINP 
3001 ak 
3002 xt Uses: A-C,D(15-5), D0, D1, SO-S3, $7,511, $9, $10, RO, 
X03 xx R1,R3,P, FUNCDO 
3004 a 
3005 *K Stk Ivls: 6 
3006 xk 
3007 xk Detail: Ensures that statenent doesn’t end in ’@’ 
3008 xk 
3009 ak FETCH [ <lineno> | <label> } 
10 aR CONT [ <lineno> | <label> ] 
11 ae 
Hi2 ** History: 
3013 aS 
3014 aS Date Progranner Modifications 
3015 BR pecans eeeecee ee eee ened eae 
= 3016 - 01/14/83 S.W. Updated docunentation header 
17 x 
oS 8 FOOT OR ROJO ORF OOOO OOO ICO IO OTTO IO 
3019 SOI IORRJOOI OOO OOO OOOO OI IOK 
20 x 


ETCHP GOSUB urdscn 
CON(2) =tKEY 
REL(3) FIKYP2 
CON(2) 0 
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25 x 
%26 03028 7578 GOSUB resptr 
27 a 
#28 O3C2C 8E0O =CONTP GOSUBL =LBLINP WILL RTN WHETHER FOUND OR NOT 
00 
%29 03C32 7D4C CONTP2 GOSUB ntoken 
X30 03036 6700 GOTO = FTKYP3 
31 & 
32 O3C3A 707A FIKYP2 GOSUB STRGCK PARSE STRING EXPR 
033 & 
3034 O3C3E 3104 FTKYP3 LCASC \@\ 
335 03C42 962 ?A=C OB FOLLOWED BY ’@’ ? 
#36 03045 CC GOYES RUNPE8 EXCESS CHARACTER ERROR, IF YES 
37 & 
38 03€47 6958 FTKYPS GOTO resptr RETURN TO PARSE DRIVER 
39 x 
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240 STITLE RENUMBER, RETURN Parse 
041 JOO I ITI IIIS IIIS AISI STI OSI ISIS TSS SS IT ISIS SSSI IIS 
42 JECT II IIS IIIS IOS SSSSIS SII ISOS SSSI IIS 
43 aa 
344 xk Nane: RENMP - RENUMBER Staterient Parse 
045 **k Narie: RETRNp - RETURN Staterent Parse 
46 ak 
47 *k Category: STPARS 
048 ak 
049 *x Purpose: RENMP parses the RENUNBER statenent. 
350 ak 
”51 ae RETRNp parses a single keyword statenent that 
52 aK cannot be followed by ’@’ when executed fron 
053 ak the keyboard. However, the statenent can be 
54 ak followed by a concatenated statenent when 
3055 ak when on a nunbered line. 
#56 ax 
57 kk Entry: D1 pts to next non-blank character 
58 ak DO points into output buffer 
59 ak D(A) = (AVMENE) 
60 ak 
61 ae Exit: Valid statenent parse => 
62 ze Return with carry clear 
63 ae P=0 
X64 ak Tokenized staterent written to output buffer 
365 ak DO past the tokenization 
X66 a D1 past the corresponding text in input buf 
67 ak 
68 * Else error exit 
69 a 
70 ek Calls: ealck+, LSTP20 
3071 ak 
3072 xk Uses: A-C, SO-S$3,$9,S11, RO, 00,01 
73 a 
74 kk Stk lvls: 6 
3075 ak 
76 ** History: 
77 ak 
78 a Date Programmer Modifications 
x79 KK Sceewees, “eoecaanese <etececteels 
80 . 11/09/82 S.W. Added new docunentation header 
x 
oe FO OOOO OOOO OI TOO IG 
3083 FOO III ITI TOIT TT ITC 
84 - 
%85 O3C4B 78AF =RENNP GOSUB eolck+ 
R86 O3C4F 47F GOC FTKYPS EQL FOUND? 
HS? O3FCS2 849 ST=0 69 
KBE O3055 707F GOSUB LSTP20 
383 03059 869 78T=0 9 1 LINE NUMBER ONLY? 
3090 O3C5C BO GOYES RENMP4 
91 O3C5E 636F GOTO LSTPI2 PARSE 3RD (& 4TH) LINE# 
*392 O3C62 865 =RETRNp ?ST=0 5 Keyboard entry ? 
3093 03065 DC GOYES CONTP2 Disallow "@" 


34 03067 03 


RENNP1 RTNCC 
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3036 

3097 

3098 

3093 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3190 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 03C09 7CIC 
3140 03C6D FEIO 

51 

3141 03073 15D 
3142 03076 00 
3143 03078 572 
3144 


ak 
ak 
ax 
ax 
ax 
aK 
ax 
ax 
ak 
xx 
ak 
xx 
ax 
ax 
xx 
xx 
ax 
xx 
xx 
ax 
ax 
ak 
ax 
ax 
ax 
ax 
ax 
xk 
xx 
aK 
ax 
ak 
ak 
xx 
ax 
we 
kx 
aa 
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STITLE RESET Parse 
JOO IIT OO TT ITI TIT III ITI III IAS 


SOIC III TOO TI TOTO OI TI IK 


Nane: 
Category: 


Purpose: 


Entry: 


Exit: 


Calls: 
Uses: 
Stk lvls: 


Detail: 


History: 


09/21/82 


RESETp - RESET Staterient Parse 


STPARS 


Parses RESET cornand. 
Allous optional CLOCK keyword. 


D(A) = (AYMENE) 
D1 points at input buffer 
DO points into output buffer 


Valid staterent parse => 
Return with carry clear 
P=0 
Tokenized stnt written to output buffer 
DO past the tokenization 
D1 past the corr. text in the input buffer 


Else error exit 

WRDSCN 

A-C, RO-R2, DO,D1, SO-$3,S11 
4 


Syntax: 
RESET [CLOCK] 


Progranner Modification 


NM Wrote 


FORO II IOI III IOI SIICI OIG ICO IOI ITOK 
SOI III III IIIT III OO TO OI OOOO I OOK 


=RESETp GOSUB urdscn Look for CLOCK 
CON(6) =tCLOCK 
REL(3) rtnec 
NIBHEX 00 
GONC Resptr (B.E.T.) No CLOCK. Done. 


x 
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3145 STITLE SFLAG,CFLAG Parse 
3146 FRIIS IDI REI IT IDL II TID TOIT ILI AI IIS IIIS IIIS II IIA IS IIIS 
3147 FORTIS IIIA IIIA ISI III IIIS ASIST SI IIISIIISIS SII III III SII SII IIIA 
3148 wk 
3149 ** Nane: SFLGP - SFLAG, CFLAG Statenent Parse 
3150 ax 
3151 ** Category: STPARS 
3152 am 
3153 kk Purpose: 
3154 ah Parses the SFLAG and CFLAG statenents 
3155 ak 
3156 ax Allows eather a keyword (ALL/MATH) or a list containing 
3157 aR one or Nore nuneric expressions, See detail below. 
3158 ak 
3159 *k Entry: D(A) = (AVNENE) 
3160 ak D1 points to ASCII input strean 
3161 ak DO points to parse token output strean 
3162 aR 
3163 RK Exit: Valid statenent parse => 
3164 aR Return with carry clear 
3165 ak P=0 
3166 ax Tokenized stnt written to output buffer 
3167 ae DO past tokenized statenent 
3168 ak D1 past corr. text in input buffer 
3169 ak 
3170 a Calls: WRDSCN, NUNCK, CONCK, RESPTR 
3171 
3172 a Uses: A-C,D(15-5), RO-R3, DO, D1, SO-S3, 87,511, FUNCDO 
3173 
3174 ** Stk lvls:  § 
3175 me 
3176 ** Detail: 
3177 kK 
3178 ak Syntax: 
3179 ae SFLAG|CFLAG <ALL|MATH> 
3180 3 SFLAG|CFLAG <nun expr> [<,nun expr>(<,nun expr...J..] 
3181 
3182 ae Tokenization of the nuneric expression list 
3183 AX does not include a conna token. 
3184 ae 
3185 ** History: 
3186 wk 
3187 aK Date Progranner Modification 
3188 KR mene ene nnn ence rene nen nnn rn nr errr nnn reer rece ne 
3189 kk 06/10/82 = PN Docuriented routine 
3190 an 
3191 JOO IO COO TCS IO TTI III OC TIT IK 
3192 FOI II IIIT I ITT ITS II III IIIT IIIS IIIT IIIT IIIT TOTS III ITH 


3193 03C7B 7AOC 
3194 O3C7F 00 
3198 03C81 34D 
3196 03C84 FE10 
63 
3197 O3C8A A3D 
3198 03C8D 


=SFLGP GOSUB urdscn get next token, scan for natch 
CON(2) =tALL 
REL(3) rtnee ALL token: return with ALL outputte 


CON(6) =thATH 


REL(3) rtnee MATH token: return with MATH output 
CON(2) 0 
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3199 O3C8F 7EOB GOSUB resptr no match: restore pointer 
3200 03093 8E40 NUNS GOSUBL NUNCK at least one numeric expression 
AF 
3201 03C99 743A GOSUB CONCK1 
3202 03C9D 45F GOC NUNS 


3203 03CAO 600B Resptr GOTO resptr 
3204 * 
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3205 STITLE DEFAULT Parse 

3206 SII KSI IIR TDI III III II ISIS SASSI IIS III SII IIS IIS III SSI III III SAS 

3207 IRI KI I IATA TTL SIDA IDI NSTI TAT S IIIS IISIIIISIIS ISS ISI III SSIS IS 

3208 at 

3209 xk Nane: DEFAP - DEFAULT Statenent Parse 

3210 aK 

3211 *% Category: STPARS 

3212 ah 

3213 ** Purpose: 

3214 Parses the DEFAULT ON | OFF | EXTEND statenent 

3215 

3216 xk Entry: D(A) = (AVMENE) 

3e17 aR Di points to ascil input strean 

3218 ak DO points into token strean in output buffer 

3219 ak 

3220 a* Exit: Valid statenent parse=> 

3221 ak Return with carry clear 

3222 ah P=0 

3223 xh Tokenized stnt written to output buffer 

3224 = DO pts past token strean 

3225 aa D1 pts past corr. text in input strean 

3226 an 

3227 ** Calls: WRDSCN 

3228 a 

3229 ** Uses: A-C, RO-R2, DO,D1, SO-S3,S11 

3230 xs 

3231 Xt Stk lvls: 4 

3232 aR 

3233 *k History: 

3234 ae 

3235 a Date Progranner Modification 

3236 BK wewnccee — mewcenmmee (emer e renner ence nen neem cen mene ne 

3237 Kk 06/10/82 PLM. Docunented routine 

3238 xx 

3239 JOO IKI I IIE TTI IIIT I IIIT TIO TOSI IIIS IIT III ISIS IIT IIIS IIS STI IA 

3240 JI IO III TI IT TIT II TI TOT IIS III IOS I III IIS III II IIIT IIIS IA 


3241 O3CA4 71EB 
3242 O3CR8 00 
3243 O3CAR AID 
3244 O3CAD 00 
3245 O3CAF 51D 
3246 O3CB2 FE10 
62 
3247 03CB8 COD 
3248 03(BB 00 
3249 O3CBD 653F 


=DEFAP GOSUB wrdscn get next token, scan for natch 


CON(2) =tON 
REL(3) rtnee 
CON(2) =tOFF 
REL(3) rtnee 
CON(6) =tEXTND 


REL(3) rtnec 
CON(2) 0 
GOTO LSTPE error: missing or illegal pam. 
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3250 STITLE File Specification Parse 
3254 III OTTO STOTT TOTTI III III III TIT III III IIIS IOI III III IIIS 
3252 IK SID IDI DTI TIT IIIT DI IIT ISTO SII III IIIS IT IIIA IIIS IT IIIT ISIS IIA IIS 
3253 aR 
3254 kK Nane:(S) FSPECp - File Specification Parse 
3255 ** Nane: FSPC10 - Outputs Literal File Narie 
3256 ae 
3257 ** Category: PARUTL 
3258 zs 
3259 ** Purpose: 
3260 ae File Specficiation Parse 
3261 ah 
3262 aR FSPECp accepts string expressions as valid file 
3263 aR specifiers. Quoted strings are considered string 
3264 ak expressions. 
3265 = 
3266 xk Unquoted strings are carefully parsed to ensure they 
3267 ae conforn to the correct syntax. File nares (if they’re 
3268 a given) must start with a letter and, unless a poll 
3269 xR handler responds, are limited to 8 characters. 
3270 a Reriaining characters nay be letters or digits. 
3271 a Parse includes any device specifiers that are given. 
3272 aR If a device is included, a file nane is optional. 
3273 aR 
3274 sie If a valid file nane is followed by *@’ or by any 
3275 ae char. not in the ascii range of ’.’ - ’2’, the file 
3276 ae specifier 1s considered to be terninated. 
3277 ae 
3278 ne If a valid file nare is followed by ’:’, FSPECp 
3279 wk attenpts to parse the device that should follow. 
3280 aa If the device is not MAIN, PORT, CARD, or PCRO, 
3281 aR a device poll is done. 
3282 ae 
3283 xe If a valid file nane is followed by any other 
3284 xk character (this file names over & characters 
3285 ai long), a poll is done. 
3286 aK 
3287 as FSPC10 entry is used to write a legally 
3288 ae parsed file nane to the output buffer; it 1s 
3289 ne generally called after FILEP has been called 
3290 xt successfully. Its entry conditions are 
3291 “ natched by the exit conditions fron FILEP. 
3292 x 
3293 A Entry: 
3294 At D(A) = (AVMEME) 
3295 aA DO points into output buffer 
3296 = FSPECp - 01 at start of alleged file specifier 
3297 me in the input strean 
3298 ae FSPC10 - File nare in A 
3299 ne P=0 
30 ax C(S) = €NIBS-1 in the file nare 
3X1 et 
3H2 af Ext: 
3H3 AX FSPECp entry 


334 #0 Ccdeeuweass 
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3305 ae Carry Clear: 
3306 * P=0 
3307 ak File specification accepted & output 
3308 ax DO past tokenized file spec. in output buf 
3309 | xa Di past valid file specification 
3310 ak S7=1 iff String expression 
3311 ak 
3312 ak Carry Set: 
3313 ax P=0 
3314 ak R3(A)=D0 on entry; R3(9-5)=01 on entry 
3315 a $7=1 
3316 aK Reserved word in A 
3317 ak (KEYS, ALL, 10, INTO, CARD) 
3318 ak Reserved word has been output 
3319 ax DO past output reserved word in output buffer 
3320 aa D1 past reserved word in input buffer 
3321 ak 57=0 
3322 ax Bad file parse 
3323 ax (unrecognized device, extraneous chars after 
3324 ak file nane, invalid 1st character in file nane) 
3325 aR D1 restored to what it was on entry 
3326 KR C(A)=D0 on entry 
3327 an 
3328 ie Else hard-wired error exit: 
3329 ak Possibilities: 
3330 xe Bad Port# (fron NUNCK) 
3331 ae No closing paren (to ERRO1) 
3332 ak 
3333 xk FSPC10 
3334 KK. cwtelois 
3335 ne File name written properly to output buffer: 
3336 mK tLITRL <ascii file nane> 
333? ax DO points past output file nare 
3338 Ra Carry clear 
3339 Re 
3340 ** Calls: FILEP, OUTNBC , POLLD+/hFSPCp, POLLD+/hDEVCp, D1C=R3 
3341 ak RANGE , OUTBYT , WRDSCN, RESPTR, D=AVME, GNXTCR, OUTITK 
3342 ak NUNCK , AVS=DO 
3343 ne 
3344 BA USCS essence 
3345 ak FSPC1O. —:-:«C(B), DO 
3346 ak FSPECp «=: A-C,P,XMN,D(15-5), 00, D1, SO-S3,S7, 510, $11, RO-R3, 
3347 at FUNCDO 
3348 ax 
3349 ** Stk lvls: 5 (FSPECp) 
3350 is 2 (FSPC10) 
3351 ak 
3352 ** Detail: File specifiers which are unquoted strings are 
3353 = tokenized with a special 1-byte token preceding 
3354 ae then: tLITRL <unquoted string> 
3355 an 
3356 ae File specifiers which are string expressions 
3357 aX or reserved words are NOT preceded by any such 
3358 a special byte. 


3359 x 
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3360 ax For HPIL tokenization, see detail under 
3361 AK the following poll’s docurentation: pFSPCp and 
3362 a pDEVCp. 
3363 ak 
3364 ** Algorithn: 
3365 as 
3366 4k FSPECP: Try Mainfrane File Parse (FILEP) 
3367 ak If Mainframe file (Carry set) 
3368 ak If string expression ($7=1) 
3369 ay Return CC 
3370 KR else (Unquoted literal) 
3371 ak If nainfrane terninator 
3372 RK Output filenane (QUTNBC) 
3373 ax RTNCC 
3374 ak else 
3375 ax ae If current char = ":" 
3376 ak If filenane specified 
3377 aK Output filenane (FSPC10) 
3378 ak If Mainfrane Device word 
3379 ak Output Device word 
3380 ax If PORT 
3381 ax If "(" follows 
3382 aK Verify Porta (NUNCK ) 
3383 si Verify ")" 
3384 ak RTNCC 
3385 ba else 
3386 Rk Restore Input Pointer (RESPTR) 
3387 “ POLL for Device Parse 
3388 ae Return with carry as set 
3389 ak else 
3390 ak Restore D1 (R3) 
3391 aK POLL for <file spec> Parse 
3392 aS RIN wath carry as returned 
3393 a 
3394 *k History: 
3395 ae 
3396 aA Date Programmer Modification 
3397 RK nnn enn nn een rene ren rrr nnn rn nner rr enn r nc ecee 
3398 ak 07/06/82 J.P. Modified docunentation 
3399 ak 04/08/83 SLU. If Invalid Filespec but not reserved 
3400 am word (on exit carry set & $7=0), the 
3401 aR D1 restored to what 1t was on entry 
3402 x before return to calling routine. 
4403 ah 
3404 JOIST II ITI IIT STITT TTR TER IIIA DD IA ASTI IAI II ITS IAL 
3405 JOSIE II CTI I IIIT DIT IIS IST II III OITA 
x 
ah JESUIT IIIS ISITE TI 
408 JOTI IIIT TI TIT III TTI IIIS I STATA 
¥09 tk 
3410 *k Nane:(S) pFSPCp - POLL for File Specifer Parse 
3411 ak 
lz ** Category: POLL 
3413 RE 


3414 ** Type: POLL 
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3415 ak 
3416 *k Purpose: 
3417 ak POLL for File Specification Parse. 
¥A18 ak Unquoted string is not a legal nainfrane file nane. 
3419 ae 
3420 . Either: . 
3421 an a) the. 1st character isn’t a letter or colon 
422 £% (device specifier starting with a character 
3423 ax other than a colon) 
3424 ~ &% OR 
425 aX b) Valid file nane is followed by a 

3426 ax "non-terninating"” character, ie one in the 
3427 aS ASCII range of "." to "2" (wath the exception 
3428 a of ":" and "@"). The character nay be a part 
3423 &k of the file nane (as in a file nane with nore 
AN ak than 8 characters or a file nane that starts 
3431 -* with a letter, but contains a character other 
3432 - than a letter/digit) OR it may be a deliniter 
3433 ak between the file nane and the device specifier. 
3434 hx 
3435 ** Should poll be "Handled" (return with XM=0)?: 
3436 aX Yes - If File specificer is recognized 
3437 x 
3438 ** Meaning of "Handling" Poll (what does code do if handled?): 
3439 aK Parse and tokenize file specification analogous to 
3440 Ke the nainfrane tokenization: 
3441 ax 
¥A42 ae Filename over 8 characters or a file nane with a 
3443 xs non letter/digit character enbedded in it. 
3444 as tLITRL <ascii file nane> 
3445 x Ex: ABC_X or ABCDEF GH 
3446 as 
3447 ax Filespec beginning with character other than a letter 
3448 a* or a colon: 
3449 an tCOLON tLITRL <ascii file specifier> 
3450 as Ex: /WAND 
3451 x 
3452 am In the first case above, if the valid file nane is 
3453 ee innediately followed by a ’non-terninating’ 
3454 ae character not recognized by the responder 
3455 gia (letter in the ascil range ’.’ to ’2’ not 
3456 em including letters/digits or ’@’), a poll to pDEVCp 
3457 ae nay be appropriate. 
3458 la tLITRL <ascia file name> tCOLON tLITRL <ascii device> 
3459 ia Ex: ABC_X.DISC or ABCDEFGHI/DISC 
3460 a> 
3461 *k Entry conditions for handler (registers, ST, RAM, etc.): 
3462 ie $4=$10=S7=0 
3463 ae B[A}] = Poll nunber (pFSPCp) 
3464 ae HEX mode. 
3465 a P=0,. 
3466 a D(A) = (AVMEME) 
3467 ax D1 @ Start of File specification 
3468 ae (D1 points past any preceding blanks) 


3469 a DO @ Position in Output Buffer to begin output of 
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3470 a File specification 
3471 kk R3(5-9)=D1 @ start of file specfication input 
3472 ax R3(R) = DO @ start of file specifcation output 
3473 ax 
3474 tk Nornal exit conditions fron handler if handled (ST, RAN, 
3475 kk registers, etc. ): 
3476 KA Carry clear 
3477 ax P=0 
3478 ax 34=$7=510=0 
3479 ah HEX mode. 
3480 ax KM=0. 
3481 ax File specification is accepted and output @ DO 
3482 ae See NOTE below 
3483 - DO past last token of file specificaiton 
3484 x D1 past file specification in input buffer 
3485 ak R3 intact fron entry 
3486 xe 
3487 *k Nornal exit conditions fron handler if not handled (ST, RAN, 
3488 ** registers, etc.): 
3489 ax Carry clear 
349 ax P=0 
3491 ak HEX node. 
3492 = S4=$7=S10=0 
3493 a XN=1. 
3494 ne R3 intact fron entry 
3495 tai 
3496 *k Error exit conditions from handler (POLL only): 
3497 aK P=0 
3438 ae Carry set. 
3493 has HEX node. 
3500 am $7=$10=0 
3501 agen R3 intact fron entry 
3502 a 
3503 ** Available subroutine levels: 6 
3504 ax POLL handler 1s one level shallower than caller-- 
3505 ae FSPECp uses 5; therefore Handler can use 6 
3506 aX 
3507 
3508 ** What registers/RANM nay be used 1f handled?: 
3509 aE A-D, DO, D1 
3510 x RO,R1,R2,R4 
3511 ax STMTD1, S-RO-O, S-RO-1, SCRICH, all of function scratch 
3912 a 
3513 x* What registers/RAN nay be used if not handled?: 
3514 ies A-D, DO, D1 
3515 xx RO,R1,R2,R4 
3516 x STMNTD1, S-RO-O, S-RO-1, SCRTICH, all of function scratch 
3517 am 
3518 ** What registers/RAM nay be used if error exit (POLL only)?: 
3519 a A-D, DO, D1 
3520 ae RO,R1,R2,R4 
3521 ae STMTD1, S-RO-O, S-RO-1, SCRICH, all of function scratch 
3522 ae 
3523 ** Special nenory/pointer considerations (are pointers funny?): 


3524 a No. 
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3525 as 
3526 ** Detail: 
3527 x* If HPIL is plugged in, it will answer this poll. 
3528 4x Therefore, any other LEX file answering this poll 
3529 ** should use an anologous tokenization schene for the file 
353% *k  nane/device specifier tokenization so that file specifier 
3531 **k execution works properly. 
3532 aK 
3533 *x To get control during execution, respond to pFILXQ. This 
3534 ** is a poll that 1s NOT answered by HPIL. If this poll 
3535 *x is not answered by another LEX file, another poll is sent 
3536 ** gut later which HPIL answers. 
3537 ao 
3538 *x For riore information on how HPIL tokenizes devices, see the 
3539 xk Petail portion of the documentaion on pDEVCp. 
3540 an 
3541 kk Envisioned application(s): 
3542 km Handle external file specifiers 
3543 ax A123456789 
3544 ae A123456789/DISC 
3545 is A123. WAND 
3546 ax AB_X.DISC 
3547 ak /WAND 
3548 ax 
3549 ** History: 
3550 a 
3551 kk Date Progranrier Modification 
3552 KR eee eew ne ewer ewer reer errr enn eee n nnn ene nene 
3553 kk 07/15/82 JP Added docunentation 
3554 *k 05/07/83 JP Modified docunentation 
kk 
EEE ettettettettettttttsttsetettecstesttitttttetetittittettirsts ss) 
3557 FI II II DTI RII III III IIT I III III IIS IIIS III II ISI SSIS IIIS ISIS SAA 
3558 JI III TAI DID III IDI II IIT TSI III III IIIS III III IS IOI IIIS SI SSSI SIS 
3559 TOKIO IOI II IIIA I IAI IIIS III I IIIT IIIT ISI II III ITI AIT IS SI SSSI II 
3560 aR 
3561 **k Nane:(S) pDEVCp - Poll for Device Specifier Parse 
3562 am 
3563 xX Category: POLL 
3564 ae 
3565 ** Type: POLL 
3566 aA 
3567 ** Purpose: 
3568 ax POLL for unrecognized device specifier following ":". 
3569 wa If a file nane preceded the colon, it has already been 
3570 xk uritten to the output buffer. 
3571 a 
3572 ** Should poll be "Handled" (return with kM=0)?: 
3573 sl Yes if Device specifier is recognized by handler. 
3574 oi 
3575 *x Heaning of "Handling" Poll (uhat does code do if handled?): 
3576 xx Parse and output tokenized forn of device specifier 
3577 ak 
3578 ee See detail below 


3579 ais 
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3580 
3581 
3582 
3583 
3584 
3585 
3586 
358? 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
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xk Entry conditions for handler (registers, ST, RAM, etc.): 
ak 


a 
kx 
xx 
xx 
a 
we 
x 
ax 
xx 
ak 
wk 
xx 


B[A] = Poll number (pDEVCp) 
HEX rode. 
P=Q, 
$4=$7=$10=0 
D1 past colon in file specification 
If a filenane was specified, its tokenization was 
uiritten to the output buffer & DO points past the 
last character of the filenane 


D(A) = (AVMENE) 

R3(A) = DO @ start of tokenized filespec in output 
buffer 

R3(9-5) = D1 @ start of file spec in input buffer 


&* Norrial exit conditions fron handler if handled (ST, RAN, 
xk registers, etc.): 


ak 

ak 
xx 
xk 
xk 
ak 
kk 
&K 
xx 
wk 
Kk 


Carry clear 

$4=$7=S10=0 

P=0 

HEX triode. 

XN=0. 

Tokenized device written to output buffer 

DO points past the tokenization 

D1 is past the corresponding text in the input buffer 
R3 preserved fron entry 


Nornal exit conditions fron handler if not handled (ST, RAN, 


xk registers, etc.): 


xx 
xx 
ak 
ak 
xk 
xk 
ak 
ak 
xk 
ak 


Carry clear 


$4=$7=$10=0 
P=0 

HEX riode. 
XN=1, 


Tokenized device specifier written to output buffer 
DO points past tokenization 

D1 points past device specifier in input buffer 

R3 preserved fron entry 


4x Error exit conditions fron handler (POLL only): 


xx 
wx 
xk 
xk 
x 
xx 
xk 
xx 
ax 
ax 
ak 
ae 
xk 
wx 
a 
Ks 


Carry set. 

HEX rode. 

P=0 

$1020 

R3 preserved fron entry 


Available subroutine levels: 6 


FSPECp used 5 levels 


If HPIL is plugged in, it responds to this poll; 

it accepts ALL device specifiers following the colon. 
Therefore, all LEX files should tokenize device 
specifiers in the sare manner so that during execution 
the filespec execution routines work properly. 
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3635 *% Respond to pFILXQ to gain control at execution. HPIL 
3636 **k = does not respond to pFILXQ. 

3637 ak 

3638 ak 

3639 ** Detail: 

3640 *t HPIL tokenizes devices as follous: 

3641 ak 

3642 xk = device word: (: TAPE) 

3643 EX tCOLON tLITRL <ascii device word> 

3644 ak 

3645 ak accessory ID: (:%32) 

3646 . tCOLON t% <expr> [ tCOLON <expr> ] [ tSEMIC <expr> J 
3647 x 

3648 xk -volune label: (.LABEL1) 

3649 ak tCOLON tSENMIC <literal up to 6 chars> [{ tSENIC <expr> ] 
3650 xa Loop # 
3651 xk address: (:1) 

3652 aA tCOLON <expr> [ tSENIC <expr> ] 

3653 ae (seat) (loop#) 

3654 ak 

3655 kk assign word: (:TV) 

3656 aR tCOLON tLITRL <assign word> [ tSENIC <expr> ] 
3657 ak 

3658 ae at ee (*) 

3659 aE tCOLON t* 

3660 aR 

3661 ** What registers/RAM nay be used if handled?: 

3662 ak A-D, DO, D1 

3663 =e RO,R1,R2,R4 

3664 ne STMTD1, S-RO-0,S-RO-1, SCRICH 

3665 ae All of function scratch 

3666 a 

3667 ** What registers/RAM nay be used if not handled?: 
3668 a A-D, DO, D1, P 

3669 RK RO,R1,R2,R4 

3670 = STMTD1, S-RO-0,S-RO-1, SCRTCH 

3671 = All of function scratch 

3672 ak 

3673 *k What registers/RAN nay be used if error exit?: 
3674 xR A-D, DO, Di, P 

3675 We RO,R1,R2,R4 

3676 ae STMTD1, S-RO-O,S-RO-1, SCRTCH 

3677 Be All of function scratch 

3678 an 

3679 *k Special nenory/pointer considerations (are pointers funny?): 
3680 an No 

3681 — 

3682 ** Envisioned application(s): 

3683 aE ABC: TAPE 

3684 xe : TAPE 

3685 a 

3686 eis 

3687 xk History: 

3688 ae 

3689 ae Date Progranner Modification 
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3690 

3691 

3632 

3693 

3694 

3695 

3696 03(C1 79FC 

3697 O3CC5 7301 

3698 O3CC9 AE8 

3699 O3CCC 5D3 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3703 O3CCF 877 

3710 03CD2 EC 

3711 03C04 148 

3712 

3713 

3714 

3715 03CD? 33E2 
A? 

3716 O3CDD 8EOO 
00 

371? O3CE3 AEC 

3718 O3CE6 571 

3719 

3720 

3721 

3722 

3723 

3724 

3725 O3CE9 3100 

3726 O3CED 7DCC 

3727 O3CF1 AEA 

3728 O3CF4 80DF 

3729 O3CF8 8CO0 
00 

3730 

3731 

3732 

3733 O3CFE 3104 

3734 03002 961 


3735 03005 4E 
3736 03007 5A0 
373? 

3738 

3739 O3D0AR 877 
3740 03D0D 00 
3741 O3D0F AFO 
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AS? eee, (GeeSieesieu- - ive noc eet ee ee tote ese eetes 
*k 07/19/82 JP Added docunenation 
xk 05/08/83 = JP Modified docurientation 


a 
FORGO TIO II IO IO TOO Oe 
FOOT IIT I I TOTO TK 


OBFSPp GOSUB outbyt 
=FSPECp GOSUB FILEP MNainfrane file parse 
B=A B 
GONC = FSPC25 Not riainfrane file 
x 
* Mainfrane file found 
z If String expression 
x RTNCC 
* Check for Mainfrane file terminator ([@,!',space,CR] 
k 
* kkk C(S) must be preserved for later Filenane write 
* C(S} = # characters in Filenane 
k 
?ST=1 7? String expression found ? 
GOYES Resptr 
A=DAT1 B 


* TRAP OUT LETTERS/DIGITS/@/: 
x 


LCASC \z.\ 
GOSUBL =Range 
ABEX 8B 
GONC FSPC15 IN LETTER/DIGIT RANGE? 
x 
* ALL ELSE INCLUDING , /blank 
k 
* Mainframe filenane with legal terninator 
* Output filenane 
x 
=FSPC10 LC(2) =tLITRL Output "Literal" token 
GOSUB outbyt 
A=C B Restore 1st char fron OUTBYT 
=FSPC12 P=C 15 Nove # chars to P 
outnbs GOLONG =QUTNBS Qutput Filenane 


x 
* ’@’ is the only legal terminator in Letter/Digit Range 
x 


FSPC15 LCASC \@\ 
*B=C iB 
GOYES FSPC10 


GONC  FSPC30 (B.E.T.) 


x 
* 


FSPC25 ?ST=1 7? 
RTNYES 
A=0 W 


RESERVE WORD? 


No file nane specified 
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3742 03012 31A3 FSPC3O LCASC \:\ 


3743 03016 961 
3744 03019 01 
374§ 
3746 
374? 
3748 
3749 
3750 
3751 
3752 
3753 
3754 


3755 03D01B 7D40 
3756 O3D1F 7A60 


3757 03023 40 


3758 03025 67H” 


3759 

3760 

3761 

3762 

3763 

3764 03029 
3765 03029 978 
3766 O3D2C 60 


3767 O3D2E 778F 


3768 
3769 
3770 
3771 03032 171 


3772 03035 705B 


3773 03033 00 
3774 0303B 050 
3775 O3D3E 00 
3776 03040 430 
3777 03043 00 
3778 O3D45 640 


3779 03048 FE10 


E3 
3780 O3D4E 030 
3781 03051 00 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3731 
3792 


3793 03053 7A4—A 
3794 03057? 72H 


3795 O305B 10 
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Look for colon 
7B=C iB Device following ? 


GOYES fiNPTP 


x ‘ 
* No ":" after Filenane 
* Set AVNENS @ Current DO before Poll 
‘. Protects Poll Save Area fron overriding Parse Output 
x Restore Input pointer 
x POLL for <file spec> Parse 
a go Handle POLL return 
k 
* 01 will point to any preceding blanks 
k 
GOSUB dic=r3 RESTORE D1 
GOSUB polld+ 
CON(2) =pFSPCp <file spec> Parse 
GOTO FSPC35 Check POLL return 
x 
*":" follows Filenane: Try Device parse 
* If filenane specified 
* Qutput File nane 
k 
MNPTP 


A20 OW 
GOYES MNPTP1 
GOSUB FSPC10 


No File nane ? 


Qutput File nane 
k 


* Look for Mainfrane Device Word 
k 


MNPTP1 01=D1+ 2 
GOSUB wrdscn 
CON(2) =tMAIN 
REL(3) MNPTCC 
CON(2) =tPORT 
REL(3) MNPTP5 
CON(2) =tCARD 
REL(3) MNPTCC 
CON(6) =tPCRD 


Step over colon 
Look for Mainfrane Device Word 


REL(3) MNPTCC 
CON(2) 0 


Not Mainfrane Device 
Set AVMENS @ Current DO to prevent Poll Save area overwrite 
POLL for Device Parse - file nane has been output 
If Error return fron POLL 
RTNC 
If Handled by Lex File 
RTNCC 
else 
RTNSC 


0 Oe Me FF Oe 


GOSUB 
GOSUB 
CON(2) 


resptr Re-position D1 past colon 
polld+ 


=pDEVCp Poll for Device Parse 
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3796 O3D5D 8FOO FSPC35 GOSBVL =D=AVNE 


000 
3797 03064 470 
3798 03067 831 
3799 O3D6—A 12 
3800 
3801 
3802 O3D6C 
3803 O306C 8E00 


00 
3804 03072 02 
3805 
3806 
3807 
3808 
3809 03074 7F9E 
3810 03078 3182 
3811 0307C 966 
3812 O3D7F CO 
3813 03081 7189 
3814 03085 8C00 
00 
3815 
3816 O3D8B 03 
3817 
3818 03D8D 8E00 
00 


3819 03093 8D00 
000 
3820 


GOC 
exXM=0 
GOYES 


Error return fron Lex File 
Handled by Lex File ? 


FSPC3? 
MNPTCC 


* Invalid Filespec (not Reserved word) 
* Restore D1 to what it was entry 


dic=r3 
FSPC37 GOSUBL 


RTNSC 
* PORT Device 


=D1C=R3 


Not handled - Error return 


* Look for Port# Specifier 
* 


MNPTPS GOSUB 
LCASC 
?ARC 
GOYES 
GOSUB 
GOLONG 


& 
MNPTCC RTNCC 
& 


=polld+ GOSUBL 
GOVLNG 


gnxtcr 


\\ 
B 


MNPTCC 
outit+ 
=FREE15 


Output Left paren 
Parse expr & closing paren 


=AVS=D0 
=POLLD+ 
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3821 USERP STITLE USER, LC Staterient Parse 
3822 BI IE III IIIT TITTLE ET DIA LIDIA IIIT III III IE III OSI III ISIS SII SSA 
3823 SRI JOR RIOR IO OTT TO OI 
3824 ik 
3825 ** Wane: USERP - USER,LC Statenent Parse 
3826 ae 
3827 ** Category: STPARS 
3828 Bk 
3829 ** Purpose: 
38H sx Parses USER | LC statenent 
3831 ae 
3832 ss Allows an optional keyword (ON|OFF) 
3833 ak 
3834 &* Entry: D(A) = (AVNENE) 
3835 ak D1 points at input strean 
3836 ak DO points into output buffer 
3837 ak 
3838 RX Exit: Carry clear 
3839 ak P=0 
3840 ax If ON|OFF found: 
3841 ax tON|tOFF has been written to the output buffer 
3842 ar DO points past the token 
3843 kk D1 advanced past the keyword 
3844 ak If ON{OFF not found: 
3845 ak D1 has been advanced past leading blanks 
3846 ax DO 1s unchanged 
3847 x 
3848 *k Calls: WRDSCN, RESPTR 
3849 ke 
3850 RX USES .6-6 00s 
3851 %k Exclusive: A,C 
3852 **& Inclusive: A,B,C, RO-R2,D0,01,50-S3,S11 
3853 a 
3854 ** Stk lvls: 4 
3855 a 
3856 ** Detail: 
3857 ax USER [ ( ON | OFF ) ] 
3858 ae Lc 36 ( ON | OFF ) ] 
3859 an 
3860 *k History: 
3861 x 
3862 =e Date Progranner Modification 
3863 BK neeece ne neem ere ere sree rene nore ne reer m enn en neem ern ence 
3864 i. 07/06/82 JP Modified docunentation 
x 
2 $I I III I IIIT TIT IIIS IIT IIIT I SII II II IIIA IIIS IIASA ISIS IIIA 
3867 $I III III ITI II ITI ISSIR II IIS ISIS IOI IIIT IIIS II SII IIIA ISS SIS 
3868 03D9R =FLIPP 
3869 03D9A 7BER =USERP GOSUB urdscn 
3870 03D9E 00 CON(2) =tON USER ON 
3871 O3DAO0 42C REL(3) rtnec Return CC 
3872 03DA3 00 CON(2) =tOFF USER OFF 
3873 O30A5 FIC REL(3) rtnec Return CC 
3874 O3DA8 00 NIBHEX 00 No paraneter 


3875 O3DAR 65FE GOTO Resptr Restore pointer, Return{C 











Saturn Asserbler Parse Routines - Part 3<831212 Fri Dec 30, 1983 3:04 an 


Ver. 3.39/Rev. 2306 USER, LC Statenent Parse Page 92 
3876 5 
3877 x 


3878 
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3879 STITLE RUN / CHAIN Parse 
3880 JOR III IT ITT TTT TTT TTDI TIDE IIIS ISD II IIIS IIIS 
3881 JOR TORTI TTT TE TTDI TTI ASIII IIIS IIIS SSI IIIS SSIS IS: 
3882 aK 
3883 ** Nane: RUNP - RUN statenent parse 
3884 xx Nane: CHAINP - CHAIN statenent parse 
3885 ak 
3886 ** Category: STPARS 
3887 kn 
3888 kk Purpose: 
3889 aK RUNP parses the RUN statenent. It allows an optional 
38% ~ line nunber or label and an optional file specifier. 
3891 
3892 ak CHAINP parses the CHAIN statenent. It requires a 
3893 an file specifier. Laine nunbers and labels are 
3894 ak not legal syntax for this parse. 
3895 an 
3896 xk Entry: D(A) = CAVNENE) 
3897 ak D1 points at the input strean 
3898 aR DO points into the output buffer 
3899 ak P=0 
3900 wx 2 entry points: 
391 ak 1) RUNP - $9=0 
32 ae 2) CHAINP - No additional requirenents 
393 aR 
3904 kk Exit: Valid parse => 
3905 ae Return with carry clear 
396 xR P=0 
3907 ak Tokenization written to output buffer 
398 xt DO past the tokenization 
3%9 ak D1 past the corr. text in the input buffer 
3910 x 
3911 zx Else error exit: 
3912 ax 
3913 ae Extra Chars - "@" follows statenent 
3914 xx Syntax - Not <lineno> or <label> 
3915 ae Illegal Nane - Reserve word found @ <filespec> 
3916 ae Illegal Nane - Bad filespec for CHAIN 
3917 KK 
3918 ** Calls: FSPECp, CONCKO, OUTBYT, LBLINP, GNXTCR, LINP, RESPTR 
3319 a DIC=R3, NTOKEN, QUTTTK 
3920 =s 
3921 xk Uses: A-C,0(15-5), 00,01, S0-S3,S7-S10, RO-R3, 
3922 kk FUNCDO 
3923 ies 
3924 *K Stk lvls: 6 
3925 a 
3926 &* Detail: 
3927 ae Syntax: 
3928 xk RUN [ <file spec> [ , <lineno> | <label> ] ] 
3929 pact RUN , <lineno> | <label> 
393% a RUN <lineno> 
3931 kk 
3932 7 CHAIN <file spec> 


3933 ae 
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3934 AX Tokenization: 
3935 KA tRUN tRFILE <file spec> ... 
3936 Kx { tCONMA tLINE# <jurnp addr> <lineno> | 
3937 RR { tCONMA tLBLRF <string expression> | 
3938 aR { tCONMA tLBLRF tLITRL <ASCII Label> ] 
3939 - tRUN tLINE# <junp addr> <lineno> 
3940 x tRUN tCOMMA tLINE# <jump addr> <lineno> | 
3941 kk tRUN tCONMA tLBLRF <string expression> | 
3942 a tCONMA tLBLRF tLITRL <ASCII Label> 
3943 &k 
3944 ** Algorithn: 
3945 ak 
3346 ** CHRINP: Set CHAIN flag ($9) 
3947 kk -RUNP: Qutput Run File Token (tRFILE) 
3948 aA Try File Spec Parse (FSPECp) 
3949 xk Set Run File Spec flag (sRFILE) 
3950 ak If bad file spec (Carry set) 
3951 ak If CHAIN ($9) 
3952 xe Error --> Illegal Nane 
3953 ae If Reserve Word 371) 
3954 a Error --> Illegal Nare 
3955 kk Clear Run File Spec flag 
3956 kk Restore Input Pointer (D1C=R3) 
3957 ak Back up Output Pointer over tRFILE 
3958 os If CHAIN 
3959 ae go check for @ (goto 1) 
3960 KK If next token = "," (CONCK) 
3961 aA Output corina (OUT1TK) 
3962 an If not Label or Line# - Carry set (LBLINP) 
3963 xR Set No Restore of Input Pointer 
3964 aX Error Exit --> Syntax 
3965 ce else 
3966 aK else 
3967 ae + Get next token (NTOKEN) 
3968 wR a If next token = @ 
3969 ae Error Exit --> Excess Chars 
3970 aS else 
3971 am RTNCC 
3972 an else 
3973 Kk If Run File Specified (sRFILE) 
3974 Ax goto 2; 
3975 ae else 
3976 xk Restore input pointer (D1C=R3) 
397? ae Try Lineno Parse ( LINP) 
3978 a If not Lineno (Carry set) 
3979 ae Restore pointer 
3980 os goto 2; 
3981 a else 
3982 ae goto 1; 
3983 ae 
3984 ** History: 
3985 a 
3386 ae Date Progranner Modification 
398? aa 


3988 ** 67/06/82 JP MNadified docunentation 
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3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
402 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 O3DBF 879 
4015 03002 83 

4016 03004 877 
4017 030C7 33 

4018 03009 848 
4019 O3DCC 181 
4020 

4021 

4022 

4023 

4024 

4025 O3DCF 879 
4026 03002 02 


O3DRE 859 


03DB9 858 
O30BC 521 


4027 03DD4 8E00 


00 
4028 O3DDA 432 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 03D0D 878 
4037 O3DEO 61 


4038 O3DE2 7ABE 


4039 O3DE6 859 


4040 O3DE9 8E00 


00 
4041 O3DEF 460 


03081 3100 
03085 780F 


ax 
a 
an 
an 
ax 
ak 
ak 
xx 
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10/20/82 JP 
11/16/82 9 JP 
11/18/82 JP 
03/23/83 JP 
04/08/83 SLU. 
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Fri Dec 30, 1983 


Renoved CHAIN parse 

Added CHAIN parse 

Added option <lineno>|<label> to CHAI 

Renoved <lineno>|<label> for CHAIN 

No longer call DiC=R3 to restore D1 
when Invalid Filespec and $7=0 - 
this is now done by FSPECp. 


FORO FOI OOO TOIT TOR TIT E F TO IT 
FOI IIT TO TOTO TTT ITT TTI IIT I III II IN 


=CHAINP ST=1 9 Set CHAIN flag 
=RUNP LC(2) = tRFILE RUN File token 
GOSUB OBFSPp OUTBYT, FSPECp 
ST=1 — sRFILE Set Run File Specified flag 
GONC  RUNP10 Good <file Spec> 
x 
* Bad <file spec> 
* If CHAIN 
* Error --> Illegal Nane 
* If Reserve Word 
x Error --> Illegal Nane 
* Clear Run File Specified flag 
* Restore Input pointer 
: Back Output pointer over tRFILE 
*ST=1 9 CHAIN ? 
GOYES RUNPE3 Error Exit 
?ST=1 7 Reserve Word ? 
GOYES RUNPE3 Error Exit 
ST=0 — SRFILE Clear Run File Spec flag 
/ DO=D0- 2 Back over tRFILE 
* If Good File Spec and CHAIN 
a go Check for "@" 
* Look for "," 
x 


RUNP10 ?ST=1 3 


x 
x 
x 


GOYES RUNP30 
GOSUBL =CONMCKO 
Coc RUNP20 
Not cornna 
If Run File specified 
Look for "@" 


else 
Look for RUN <lineno> 


?ST=1 sRFILE 
GOYES RUNP40 
GOSUB Resptr 
ST=1 9 
GOSUBL =LINP 


GOC RUNP40 


CHAIN ? 
Conna Check - Calls NTOKEN 


Conna 


Run file specified ? 
Restore D1 (fron COMCK) 
Line# Parse only flag 
Look for Linef# 


NTOKEN done by LINP 
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4042 x 
4043 * System Commands cannot be followed by Multi-Statenents 
4044 x If next token = @ 
4045 x Error Exit 
4046 * else 
4047 x Restore input pointer and return 
4048 x 
4049 03DF2 7D8A RUNP3O GOSUB ntoken Get next token 
4050 O3DF6 674E RUNP40 GOTO FITKYP3 
4051 : 
4052 O3DFA 6EBC RUNPE3 GOTO PRGP8O Illegal Nane 
4053 s 
4054 * Conria found 
4055 * Qutput conna 
4056 * Look for <lineno> | <label> 
4057 x 
4058 O3DFE 8E00 RUNP2O GOSUBL =LBLINP Look for <label> | <lineno> 
00 
4059 03604 5DE GONC RUNP30 Legal parn 
4060 03607 6010 GOTO “ERR Set 54; syntax error 
4061 . 


4062 . 
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4063 TRSFAP STITLE TRANSFORM Parse 
4064 SII IS IIR RT ER TID ITEREE IIIA II INIT III ASIII ISIS ISIS IIIS IS 
4065 FORO OOO TOO TTT RTT TTT IR 
4066 ak 
4067 ** Nane: TRSFMP - TRANSFORM Statenent Parse 
4068 ae 
4069 ** Category: STPARS 
4070 ak 
4071 ** Purpose: 
4072 ae Parse TRANSFORM statenent: 
4073 ae 
4074 ak Entry: D(A) = CAVMENE) 
4075 ak D1 points at the input strean 
4076 ax D1 past “TRANSFOR” keyword 
4077 ax DO past the corresponding token in output buffer 
4078 ak P=0 
4079 aK 
4030 ak Exit: Valid statenent parse => 
4081 ax Return with carry clear 
4082 ax Tokenization uritten to output buffer 
4083 ae DO points past token strean 
4084 ak D1 points past corr. text in input buffer 
4085 ae 
4086 * Else exits to PARERR: 
4087 ak "Tllegal Nane" (reserved word, error) 
4088 xn "Unknoun file type" 
4089 an 
4090 **k Calls: FSPECp, WRDSCN, CNVWUC, FLTYPp 
4091 ak 
4092 ** Uses: A-C,D(15-5), D1,D0, RO-R3, SO-S3,S7-S11, 
4093 ak FUNCDO 
4094 ak 
4095 AK Stk lvls: 6 
4096 aK 
4097 &X NOTE: $8 must renain intact through all subroutine 
4098 a calls. 
4099 ak 
4100 *k Detail: 
4101 de Syntax: 
4102 nn TRANSFORM [<file spec>] INTO <file type> [<file spec>] 
4103 
4104 ** Algorithn: 
4105 ak 
4106 *k TRFMP2: Set Destination Parse flag ($8) 
4107 kk TREMP: Try <file specification> Parse (FSPCdp) 
4108 ak If not accepted (Carry set) 
4109 ak If reserved word (S7=1) 
4110 aK If 10 
4111 an Tf Source Parse (S8=0) 
4112 ak go Parse Dest (TRFNP2) 
4113 aK If CARD | KEYS 
4114 - go Parse Dest (TRFNP2) 
4115 a else 
4116 a Error Exit ---> "Illegal Nane" 


4117 ax else 
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4118 a If Source Parse ($8=0) 
4119 kk Set No Restore of Input Pointer flag 
4120 5 Error Exit ---> "Illegal Nane" 
4121 al else 
4122 zx If Destination NOT yet parsed (S$8=0) 
4123 7 If next token = T0 (WRDSCN) 
4124 aK go Parse Destination (TRFMNP2) 
4125 aK else; 
4126 a RTNCC 
4127 ae 
4128 ** History: 
4129 ak 
4130 a Date Programmer Nodification 
4131 a aaa aaa aaa leat 
4132 ak 10/20/82 FH Wrote 
4133 ae 
4134 JI IOI OO III ITS III IIIT III II IRI IITA III AT ODI IIA 
4135 III I IIR AIT TT IIT TEE TTT ITE ITER IDI III III SRI II AISI IIIS SIS SSI IA 
4136 x 
4137 * Test for "NM" 
4138 * 
4139 O3EOB 79A1 =TRSFMP GOSUB CNVWUC Read and convert char to upper case 
4140 O3EOF 3104 LCASC = \M\ 
4141 03613 962 *C=A iB "MH" found? 
4142 03616 Bt GOYES TFMP15 
4143 03618 854 “ERR1 ST=1 4 Don’t restore input pointer 
4144 O3E1B 68AC AERO GOTO PRGPE1 "Syntax" error 
4145 
4146 * Parse file type 
4147 & 
4148 O3E1F 858 TFNPIO ST=1 8 Set Destination Parse flag 
4149 O3E22 7B40 GOSUB FLTYPp Parse file type 
4150 03E26 7DCD GOSUB eolck+ 
4151 O3€2A 590 GONC ==TFMP20 If not at eol, parse file nane 
4152 O3€2D 6379 GOTO = =resptr 
4153 - 
4154 03631 171 TFMP15 D1=Di+ 2 Skip over "MH" 
4155 03634 7D8E TFNP20 GOSUB FSPECp Parse <file specification> 
4156 x 
4157 * If <file spec> NOT accepted 
4158 k If Not Reserve Word (Illegal first character) 
4159 - If Destination Parse 
4169 x RTNCC 
4161 7 else 
4162 * Set No restore of Input pointer flag 
4163 * Error Exit 
4164 * 
4165 03638 SFI GONC  TFNP6O File Spec accepted 
4166 O3E3B 878 *ST=1 8 Destination Parse ? 
4167 O3E3£ CB GOYES RUNPE3 
4168 - 
4169 * If Reserve Word 
4170 x If INTO & Source Parse 
4171 . Go parse file type 
* 


4172 else 
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4173 * Error Exit 
4174 & 
4175 03640 AF6 C=A W 
4176 03643 35FE LC(6) =tINTO 
10E2 . 
4177 O3E4B 976 7AHC OW Not INTO token ? 
4178 O3E4E CA GOYES RUNPE3 
4179 03€50 868 *ST=0 8 Not Destination Parse ? 
4180 03653 CC GOYES TFMP10 Go Parse Destination 
4181 03655 54A GONC RUNPE3 "INTO" - Illegal Dest. filenane 
4182 x 
4183 * If Destination NOT parsed yet (S8=0) 
4184 & If next token = T0 
4185 x go Parse Destination file 
4186 * else 
4187 & Restore input pointer (WRDSCN does a NTOKEN) 
4188 : RTNCC 
4189 x 
41% 03658 878 TFAPGO ?ST=1 8 Destination already parsed ? 
4191 O3E5B 41 GOYES TFNP70 RTNCC 
4192 O3E5D 782A GOSUB urdsen Look for "INTO" 
4193 03661 FE1O CON(6) =tINTO 
E2 
4194 0367 8BF REL(3) TFMP10 Go Parse Destination 
4195 O3E6A 00 NIBHEX 00 
4196 O3E6C SEA : GONC “ERRO1 BET: "Syntax" 
4197 


4198 O3E6F 03  =TFMP70 RTNCC 
4199 
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4200 FLTYPp STITLE Parse File Type 
4201 JOKE III TIS III STI SII TIT II TTI IT OSI III ASSIS OT SSAA 
4202 JI III I IID IIIT III TI III I TI TIT III I TOR IORI IIIS IAI TIT A 
4203 aA 
4204 **% Nane:(S) FLTYPp - Parse File Type 
4205 aK 
4206 ** Category:  PARUTL 
4207 ax 
4208 *x Purpose: 
4209 x Parse file type specifier 
4210 ae 
4211 ** Entry: D(A) = (AVMENE) 
4212 ax D1 points into input strean at optional blanks 
4213 =e preceding the alleged file type 
4214 aa DO points into output buffer 
4215 ax 
4216 ex Exit: Carry clear => 
4217 aX P=0 
4218 a> Valid file type found 
4219 ax Tokenized file type (2 bytes) written to 
4220 aK output buffer 
4221 ae DO past the tokenization in the output buffer 
4222 = D1 advanced past the corr. text 
4223 ax 
4224 ve Else error exit to PARERR with eF TYPE 
4225 aX 
4226 **x Calls: FASCFD, OUTZTK, GNXTCR, STLXPT 
422? ae 
4228 **x Uses: A-C, R3, S10, DO,B1, P 
4229 am 
4230 kK Stk lvls: 4 
4231 a 
4232 ** History: 
4233 ia 
234 x Date Progratner Modification 
4235 ER SSeceeee, Ge TSeSeeN Sede eee Reet ee eee seer e eres meee 
4236 ke 03/15/82 FH Designed and coded. 
4237 eK 41/15/82 SW. Hard-wired error exit 
2 te 
a JOS UO I ITI III III TT IDIOT I TIT I TATA 
4240 JI IOI EO TT AIT ITI IS TRI ISAS II IIIA 
4241 03E71 72AD =FLTYPp GOSUB gnxtcr Skip blanks 
4242 03675 SE0O GOSUBL =STLXPT Store LEX pointer for error report 
00 
4243 03E7B &FOO GOSBVL =FASCFD Find ASCII type 
000 
4244 03682 4E0 GOL outetk If no error, output type as token 
4245 03£85 1A00 DO=(4) =eF TYPE Set up error code 
ag 
4246 O3E8B 8C0O GOLONG =ERRXO 
00 
4247 ‘ 
4248 03E91 8C00 out2tk GOLONG =OUT2TK Output file type 
00 


x 
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4250 STITLE File Nare, Label Parse 
4251 JOO UIC TO ITO STITT IIR 
4262 JIS III OL TI ITD DS DATA DII II III IIIA ISSA I IS 
4253 ae 
4254 ** Nane:(S) FILEP - File Nane Parse 
4255 ** Nane:(S) LABELP - Label Reference Parse 
4256 **k Nane:(S) FILEP1 - Literal File Nane Parse 
4257 ** Nane:(S) FILEP- - Subprogram Nane Parse 
4258 ** Nane:(S) FILEP+ - Label Declaration Parse 
4259 ** Name: (S) FILEP! - Lateral File Name Parse 
4260 al 
4261 ** Category: PARUTL 
4262 as 
4263 ** Purpose: Parses a file nane or a label. 
4264 ae Depending on the entry point, it can allow 
4265 ae string expressions and unquoted strings, or 
4266 ae it can be linited to unquoted strings alone. 
4267 xx However, only unquoted strings are checked 
4268 7 for confornance to legal file nane syntax, 1e 
4269 ax linited to 8 characters or less of letters 
4270 ax and digits, starting with a letter. 
4271 wh 
4272 an FILEP and LABELP allow string expressions and 
4273 aK unquoted strings. FILEP, however, checks an 
4274 aie unquoted string to ensure it is not one of 
4275 KK the reserved words (70,ALL,KEYS,CARD, INTO). 
4276 am LABELP does not make this special check. 
4277 KK These entry points are useful for file nane 
4278 am and label reference; for exanple GOTO/GOSUB 
4279 si parse calls LABELP. 
4280 RR 
4281 ak FILEP1, FILEP-, and FILEP+ are all useful 
4282 aA entry points for parsing literals which nust 
4283 ak conforn to file name standards; included in 
4284 a this category would be label declarations 
4285 zs and subprogran natries in SUB statements. 
4286 xm These entry points do not check for file 
4287 xe reserved words. 
4288 ne 
4289 aR FILEP! is similar to FILEP+ above, except 
4290 ae it can be set to allow less than eight 
4251 RR characters. 
4292 xx 
4293 kk Entry: D1 points at input strean 
4294 xx 6 ENTRY POINTS: 
4295 am 
4296 wk 1) FILEP - D1 points to optional blanks 
4297 xk preceding file nane. 
4298 *% D(A) = (AVMENE) 
4299 — DO points to output buffer 
4300 — 2) LABELP - Sarie as FILEP, except $10 must be 
41 am set to ignore file reserve words. 
4x2 ae 3) FILEP1 - (LEXPTR) = address to restore input 
43 = pointer to; points to possible blanks 


44 a! preceding file nane. 
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45 ny 4) FILEP- - D1 at optional blanks preceding file 
46 am nane. 
4H? aS 5) FILEP+ - 01 pointing at first character in 
4H8 aK the file nane. 
4H9 x 6) FILEP! - C(S)=#characters to allow - 1. 

4310 ax 

4311 Re Exits 

4312 kk P=0 

4313 am $10=0 (all entries except FILEP+/FILEP!) 

4314 ax $?=0 (all entries except LABELP/FILEP - see below) 
4315 aK CARRY SET => IF $7=1: string expr found & output 
4316 xx NTOKEN done on followin 
4317 ke data (LABELP/FILEP oly) 
4318 ax IF $7=0: File name in A. D1 past 
4319 i the last legal character. 
4320 KX C(S) set for WP write. 
4321 aA 

4322 a CARRY CLR => IF S7=1 Reserve word found, token 
4323 xk output & in A(B),B(B). 
4324 Ke D1 past the reserve nord. 
4325 a (FILEP only) 

4326 ak IF $7=0: Illegal 1st character. D1 
4327 an pointing to the character. 
4328 a 

4329 wx R3(A)=D0 @ entry; R3(9-5)=D1 @ entry 
4330 ae Use DIC=R3 to restore D1 

4331 ax 

4332 kk Calls: CATCHR, RESPTR, r3expp (EXPPAR,R3=D1C), 

4333 ax GNXTCR, BLANKC, WROSCN, 

4334 ak 

4335 &* Uses: A-C,0(15-5), SO-$3,$7,S10, $11, D0, D1, RO-R3, FUNCDO 
4336 ki (FILEP/LABELP entry) 

433? kx 

4338 aK A, BCR), B(S),C,D0(S),S1, $2, $7, $10, D4 

4339 eas (FILEP1, FILEP-) 

4340 am 

4341 ak FILEP+ entry uses everything FILEP1 uses except S10. 
4¥e ae FILEP! entry uses everything FILEP+ uses except $7. 
4343 ae 

4344 ** Stk lvls: 

4345 ** FILEP, LABELP - 4 

4346 *x all other entry points - 3 

434? xe 

4348 ** History: 

4349 ae 

4350 ae Nate Progranrer Modification 

4351 RK mentee nSmenseeee Se nneeee sess 

4352 A 07/08/82 9 SUL Updated docunentation 

4353 AX 07/27/82 = S.W. Now allow unquoted ’ reserve 

4354 wk words’ as file nares, provided 
4355 ae they’re followed by a colon. 

4356 ** 10/18/82 JP Rerioved PCRD as reserve word 

4357 ** 11/23/82 JP Clearing S10 on exit 

4358 a 


4359 FORO ROUT OI TOOK 
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4360 
4361 
4362 
4363 03697 84A 
4364 03E9R 02 
4365 O3E9C 84A 
4366 O3ESF 78D9 
4367 O3ER3 857 
4368 O3ER6 863 
4369 O3EAS EE 
4370 
4371 O3ERB 7DBE 
4372 O3EAF 134 
4373 
4374 O3EB2 87A 
4375 O3EB5 B4 
4376 
4377 O3€B7 7EC9 
4378 
4373 O3EBB 00 
4380 O3EBD 020 
4381 O3ECO 00 
4382 O3€C2 B10 
4383 O3EC5 00 
4384 O3EC7 610 
4385 O3ECA 00 
4386 O3ECC 110 
4387 O3ECF FE10 
E2 
4388 03£D5 800 
4389 O3ED3 00 
4390 
4391 O3EDA 512 
4392 
4393 
4394 O3EDD AES 
4395 O3EEO 148 
4396 O3EE3 31A3 
4397 O3EE? 962 
4398 O3EEA CO 
4399 O3EEC 7970 
4400 O3EFO AE4 
4401 O3EF3 500 
4402 
4403 
4404 O3EF6 118 
4405 O3EF9 134 
4406 
4407 O3EFC 70AD 
4408 
4409 03F00 84f 
4410 03F03 701D 
4411 O3F07 847 
4412 O3FOR 2F 
4413 O3FOC 307 


Parse 


x 
x 


FILPEX 


=FILEP 
=LABELP 
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SOR IIT RIOR JOJO JOO JOTI Ik 


ST=0 10 Clear $10/future Error flag 
RTNSC 

ST=0 10 NOTE RESERVE FILE WORDS 

GOSUB r3expp Save pointers, eval expression 
ST=1 7 STRING EXPRESSION FLAG 

?$T=0 3 VALID STRING EXPR? 

GOYES FILPEX Clear S10, Return SC 


* RESTORE POINTERS - BETTER BE FILE NAME WITHOUT QUOTES 


x 


* IF ANY ENTRY 


x 


x 


* FOUND 
FILEP™ 


GOSUB dic=r3 RESTORE INPUT & OUTPUT PTRS 


DO=C 
?ST=1 10 IGNORE POSSIBLE RESERVE WORDS? 
GOYES FILEP- 
GOSUB wrdscn 

IN THIS TABLE REACHES 8 CHARACTERS - PROBLEMS! ! 
CON(2) =tT0 


REL(3) FILEP* 
CON(2) =tALL 

REL(3) FILEP* 
CON(2) =tKEYS 
REL(3) FILEP*™ 
CON(2) =tCARD 
REL(3) FILEP™ 
CON(6) =tINTO 


REL(3) FILEP™ 
CON(2) 0 

GONC FILEP1 (B.E.T.) 

A RESERVE WORD - SEE IF ONLY IMBEDDED IN LARGER FILE NAME 
B=A B 

R=DAT1 B 

LCASC \:\ 

A=C OB 

GOYES FILEPO 

GOSUB CATCH+ 

R=B B 


RTNNC RESERVE WORD? (YES => ALREADY OUTPU 


* RESERVE WORD FOUND IMBEDDED IN LARGER ASCII STREAM - BACK UP 
* OUTPUT POINTER 


FILEPO 


x 
=FILEP1 
x 


=FILEP- 
=FILEP+ 


C=R3 

po=C 

GOSUB Resptr 

ST=0 610 Clear Reserve Word/Future Error fla 
GOSUB) gnxtcr 

ST=0 7 

P= 15 

LCHEX 7 7 CHARACTER LIMIT (14 NIBS), NOT CO 





2m 


Saturn Assenbler 


4414 O3FOF AC7 
4415 O3F12 ACS 
4416 03F15 20 
4417 O3F17 8&00 
00 
4418 O3F1D AFA 
4419 03F20 D5 
4420 
4421 O3F22 7040 
4422 03F26 500 
4423 O3F29 861 
4424 O3F2C 40 
4425 O3F2E 03 
4426 
4427 03F30 814 
4428 03F33 814 
4429 03F36 171 
4430 03F39 R4F 
4431 O3F3C 4C0 
4432 O3F3F 7320 
4433 03F43 4CE 
4434 
4435 
4436 
4437 03F46 RE4 
4438 03F49 ACI 
4439 O3F4C B4B 
4440 O3F4F R46 
4441 O3F52 ASE 
4442 03F55 400 
4443 O3F58 814 
4444 O3F5B 814 
4445 O3F5E 964 
4446 03F61 00 
4447 03F63 54F 
4448 
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=FILEP! D=C S 


x 


x 


x 
x 
x 


FILEP3 


FILEP? 


FILEPS 


B=C S 
0 


p= 
GOSUBL =BLANKC 


A=C W 

B=C A 
GOSUB CRITC++ 
RTNNC 

?S$T=0 1 
GOYES FILEP3 
RTNCC 


ASRC 

ASRC 

01=01+ 2 
B=0-1 § 

GOC FILEP? 
GOSUB CATC++ 
GOC FILEP3 


ow Wn ow ou 


CG CD 


NOMAD 
‘+ 
OAMWMAWYNDW 


20 
“4 
z 


ASRC 

ASRC 

AHB OB 
RTNYES 

GONC FILEP9 





3:04 an 
Page 104 


Fri Dec 30, 1983 


1ST CHARACTER 


Only need B field 


NO CARRY=>NOT ALPHA NOR DIGIT 
ALPHR? 


CARRY CLR FOR ILLEGAL 1ST CHAR (R.E 


POINT TO NEXT CHARACTER 


FOUND ANOTHER ALPHA OR DIGIT? 


FOR WP WRITE 


SHIFT CIRCULAR FOR PADDED BLANKS 
NOT A BLANK? 
(B.E.T.) 
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4449 STITLE CATCHR - pacers Character 
4450 SI TI II II IRDA ASIII IIIS IIT EI IAI ID ISITE SII IIS III IIIS SIS IIIS SII SIS S 
4451 RI IIIS SII AIT TI TTT IID DIDI IS III IIIS ISIS SSSI SSI SSSI SII IIIS IIIS 
4452 AK 
4453 *k Ware:(S) CATCHR - Categorize Character 
4454 ** Nane:(S) CRATCH+ - Convert to Uppercase, Categorize Character 
4455 ** Narie:(S) CATC++ - Convert to Uppercase, Categorize Character 
4456 RK 
4457 ** Category:  PARUTL 
4458 aE 
4459 *® Purpose: 
4460 ak Categorize character in A(B) as a 
4461 ax digit or letter or special character. 
4462 ak 
4463 aa CATCH+ and CATC++ entries convert a lowercase letter to 
4464 aK uppercase before categorizing it. 
4465 a 
4466 a Entry: 
4467 a 3 entry points: 
4468 &k 1) CATCHR - A(B) = character to categorize 
4469 ae 2) CATCH+ - A(B) = character to categorize 
4470 ak P=0 
4471 ax 3) CATC++ - D1 points to character to categorize. 
4472 ak P=0 
4473 ak 
4474 ak Exit: 
4475 an P=0 
4476 ak A(B)=Character that was categorized 
4477 ak (a letter gets converted to uppercase 
4478 ak for CATC++ and CATCH+ entries) 
4479 i 
4480 ax Carry set: 
4431 a Character 1s a digit or letter 
4482 a S1=1 iff it’s a digit 
4483 ak 
4434 an Carry clear: 
4485 aK S2=1 iff special character: * + -. / blank 
4486 ee 
4487 *k Calls: CONVUC , DRANGE , ARANGE , RANGE 
4438 as 
4489 kk Uses: C(A), S1,S2 - CATCHR entry 
4490 ak A(B),C(A), $1,82 - CRIC++,CATCH+ entries 
4431 ak 
4492 Rk Stk lvls: 2 
4493 Ax 
4494 *k History: 
4495 aE 
4496 x Date Programmer Modification 
4497 RK nee nn serene cern nn rene ne enn mere nn nsec ecenececs 
4498 kk 07/08/82 JP Modified docurentation 
4499 ek 09/02/82 S.U. Changed RANGE call to DRANGE 
kk 
ic FOI II TAIT IT IDI IT IDI III II IIIS IIIS IAI IIIIE SS ISSA III IS 
4502 FI IR II RR TTT ISLE EI TIT TILL ILIKE III III LISSA SII ISI SSI III SS 


4503 * 
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4504 03F66 148 =CATC++ A=DAT1 B 
4505 O3F69 8FOO =CATCH+ GOSBYL =CONVUC CONVERT L.C. TO ULC. 
000 
4506 03F70 841 =CATCHR ST=0 1 Clear digit found flag 
4507 O3F73 842 ST=0 2 Clear special char found flag 
4508 03F76 20 P= 0 
4509 03F78 8F0O GOSBVL =DRANGE 
000 
4510 O3F7F 470 GOC CATCO2 Not digit 
4511 O3F82 851 ST=1 1 Set Digit Found flag 
4512 O3F85 02 CATCO1 RTNSC Set carry and return 
4513 03F87 7000 CATCO2 GOSUB =ARANGE 
4514 O3F8B 59F GONC CATCO1 Letter found 
4515 O3F8E 33A2 LCASC \/*\ Load special char range: /-* 
F2 
4516 03F94 7000 GOSUB =Range 
4517 O3F98 5D0 GONC CATCO4 Special char, check if conna 
4518 O3F9B 3102 LcAsc  \ \ 
4519 O3FSF 962 7A=C OB Check 1f blank 
4520 O3FR2 DO GOYES CATCOS 
4521 O3FA4 03 RTNCC 
4522 O3FAG 31€2 CATCO4 LCASC \,\ 
4523 O3FAA 962 A=C OB Conna not alloued 
4524 O3FAD 50 GOYES RTNCC 
4525 O3FAF 852 CATCOS ST=1 2 Set Special Character flag 


4526 O3FB2 03 9 ==RTNCC RTNCC 
4527 x 


Saturn Assenbler Parse Routines - Part 3<831212 Fri Dec 3}, 1983 3:04 an 


Ver. 3.39/Rev. 2306 Uppercase Conversion Page 107 
4528 STITLE Uppercase Conversion 
j 4529 $I ISIE TART TTI IIIT III III III IRIS III III ID IIIS IIIA 
7 453 TORR JO TIO TO IO 
4531 aK 
4532 ** Nane: CNV2UC - Converts 8 chars to uppercase 
4533 ** Wane:(S) CNVWUC - Converts 8 chars to uppercase 
4534 ** Nane:(S) CVUCH - Converts 8 chars to uppercase 
4535 AX 
4536 ** Category: CONVRT 
4537 ak 
4538 %* Purpose: 
5 4539 ae Converts 8 lowercase characters to uppercase. 
4 4540 ax 
4541 + Lowercase characters are converted to uppercase by 
4542 ax clearing bit 5 of the ASCII code. All characters 
4543 ak with character codes from 60-7F HEX get bit 5 
4544 ae cleared. This results in ensuring that digits, 
4545 £k uppercase letters, and most special characters are 
4546 ax left unchanged. However, any character within the 
4547 ak range of 60-7F that is not a lowercase letter WILL 
4548 i have its character code altered. 
4549 a% 
4550 kk Entry: 
4551 a 3 entry points: 
4552 ak 1) CNV2UC - D1 at possible preceding blanks before 
4553 xe characters to convert. 
4554 ae 2) CNVWUC - D1 at 1st character to convert. 
4555 AX P=0. 
4556 ae 3) CVUCH - A contains characters to convert. 
4557 BX (it may contain any no. of characters). 
4558 an P=0. 
4559 Bx 
4560 RX Exit: 
4561 ae P=0 
4562 ax Carry clear 
4563 = Every byte in A has bit 5 zeroed. 
4564 RK CNV 2UC: 
4565 es 01 points at the first non-blank character 
4566 xx A contains the following eight bytes with 
4567 x bit 5 zeroed in every byte. 
4568 a CNVWUC: 
4569 a% Sane as CNV2UC, except Di is preserved fron entry. 
4570 ax CVUCU: 
4571 ak D1 preserved fron entry 
4572 ax 
4573 ** Calls: GNXTCR, BLANKC 
4574 RX 
4575 kk Uses: R,C, D1 = - CNVY2UC entry 
4576 a A,C - CNVWUC, CVUCW entries 
4577 xe 
4578 ** Stk lvls: 1 
4579 aK 
4580 ** NOTE: 
4581 ae only works if characters are upper- or lower-case chars 


4582 a to begin with 
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4583 ae 
4584 ** History: 
4585 ax 
4586 as Date Prograrner Modification 
4587 RRO nnn nen mene ree cerns ener me cnn ee nen rnc sn serene 
4588 K 07/08/82 = SU. Added docurentation 
4589 xx 
4590 SOK II IOI KT TI I IO III III II III TDI IIIS ITI ISI ISI III III SSIS ISI STII IA 
4591 JOO II IO ET TTT OTT I IIIT II IIT I I IIIS IS II IS ISIS SSIS ITT A 
4592 ‘ 


4593 O3FB4 7F5C 
4594 O3FB8 1537 
4595 O3FBC 8E00 
00 
4596 O3FC2 A76 
4597 O3FCS OE72 
4598 O3FC9 81E 
4599 O3FCC OE72 
4600 O3FDO B7R 
4601 O3FD3 03 


=CNV2UC GOSUB gnxtcr Get next non-blank character 

=CNVWUC A=DAT1 W 

=CVUCW GOSUBL =BLANKC 0010 0000 in all bytes of C 
C=C+€ wW 0100 0000 in all bytes of C 
C=AaC OW Ensure bit 5 cleared only when 
CSRB bit 6 is set 
C=AaC OW Clear all bits except bit 5 
A=A-C W Wherever set, clr bit 5 
RTNCC 
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'CK 
iCK2 
#CK 
=ADDP 
ARANGE 
ARRYO1 
ARRYO2 
=ARRYCK 
RSNPE + 
=RASSNP 
=AUTOP 
AVS=D0 
BLANKC 
BLKOK 
BLNKCK 
=CALLP 
CRLPOO 
CALPO1 
CRLPOZ 
CALPO3 
CALPO4 
CALPOS 
CALP1O 
CALPIS 
CALP17 
CRALP2O 
CALP25 
CALP3O 
CALP35 
CALPE1 
CALPE2 
CRLPE3 
CALPIN 
CALPNL 
=CATC++ 
CATCO1 
CATCO2 
CRTCO4 
CATCOS 
=CATCH+ 
=CATCHR 
=CRTP 
=CHAINP 
CHK~-OD 
=CLKPRS 
CLRCA+ 
CLRPRN 
=CNV2UC 
=CNVNUC 
=CONCK 
CONCK+ 
=CONCK1 
CONCKO 
=CONTP 
CONTP2 


Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 


14851 


13943 
13951 
139% 
15041 
15067 
15363 


14492 
14515 
14527 
14543 
14547 
14551 
14554 
14571 
14623 
14627 
14695 
14700 
14705 
14717 
14687 
14691 
14473 
14644 
14483 
162% 
16261 
16263 
16294 
16303 
16233 
16240 
14988 
157% 
14125 
14245 
15033 


16308 
16312 
14029 
14033 


16404 
15416 
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Symbol Table 


#0 3A0 3 


#03677 
#0 367F 
#0 366A 
#0 3AC 1 
#0 3ADB 
#03(03 


#0 389C 
#0 38B3 
#0 38BF 
#0 38CF 
#0 38D3 
#0 38D? 
#0 380A 
#0 38EB 
#0391 F 
#03923 
#03967 
#0 396C 
#03971 
#03970 
#0395F 
#0 3963 
WO 388F 
#03934 
#0 3893 
#0 3F66 
#03F85 
#O3F87 
#0 3FR6 
#0 3FAF 
#0 3F69 
#03F70 
#O3A8C 
#0 30RE 


t-bb be bk ob eB Pot Se eh 


 t © #€ § t 8 4 


#0372D - 


#037A5 
#0 3ABF 


#0 3FB4 
#0 3FB8 
#036CD 
#03601 


#03C2C 
#03032 


421 
1731 

112 
2132 
1380 
1016 
1019 
1012 
2445 
2549 
2959 
3818 
4417 

673 

745 
1840 
1849 
1853 
1860 
1864 
1865 
1867 
1873 
1890 
1891 
1914 
1916 
1918 
1923 
1911 
1912 
1833 
1897 
1836 
4504 
4512 
4513 
4522 
4525 
4505 
4506 
2419 
3999 
1333 
1629 
2443 
1873 
4593 
4594 
1218 

118 
1219 
1724 
3028 
3029 


- Part 


1692 
4513 
1015 

476 


4595 


1854 
1848 
1856 
1844 
1851 
1894 
1869 
1928 
1919 
1886 
1876 
1915 
1888 
1882 
1884 
1837 
1865 
1841 
4421 
4514 
4510 
4517 
4520 
4399 


676 
2431 


1893 
2358 
2308 
914 
897 
4027 


2964 
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1868 2549 


1713 
1921 2361 2550 


1931 


1932 
1917 


4432 


747 
2433 
4139 
2880 2885 


1445 1566 2069 2075 2311 
1013 1893 2065 3201 


X93 
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CONVUC 
=COPYP 
=CREATP 
=C(VUCW 
=D’ LTP 

DIC=R3 

D=AVNE 
=DATACK 
=DPATP 

DATPOO 

DATP30 
=DEFAP 
=DFKEYP 
=DISPP 

DRANGE 
=DROPP 
=DSPPO2 

DSPPOS 

DSTp 

DSUSGP 

DUSP20 

DUSP30 
=EDITP 
=ELSEP 

ELSEP2 

ELSEPS 

ELSEP6 

ELSEP? 
=ENDP 

ENDP10 

EOLCK+ 

EOLCKR 

ERRO1 

ERRO2 

ERRO3 

ERRO4 

ERROS 

ERROB 

ERROO 

ERR10 

ERR11 

ERRXO 

EXPPAR 
=EXTIF+ 

EXTIFP 

Errd3 

FASCFO 
=FETCHP 
=FILEP 
=FILEP! 
=FILEP+ 
=FILEP- 

FILEPO 
=FILEP1 

FILEP3 


Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


2306 


15116 
14926 
16316 
15048 


14046 
13672 
13659 
13676 
15524 
14164 
13732 


14851 
13735 
13749 


13878 
13913 
13745 
15244 
1345? 
13475 
13497 
13566 
13575 
14884 
14903 


13540 
13525 
13926 


18389 
16028 
16143 
16135 
16128 
16118 
16124 
16176 


Parse Routines - Part 3<831212 
Syribol Table 


#O3B0C - 
HOSA4E - 


#O3FBC 
#O3AC8 


#0 36DE 
#03568 
#03558 
#0356C 
#03CA4 
#03754 
#0 35A4 


#0 3903 
#035A7 
#0 35B5 


#0 3636 
#0 3659 
#0 35B1 
#0 3B8C 
#0 3491 
#0 34A3 
#0 34B9 
#0 34FE 
#0 3507 
#03R24 
#0 3A3D 


#0 34E4 
#0 3405 
#0 3666 


#03010 
#0 3E9C 
#0 3FOF 
#0 3FO7 
#0 3FO0 
#0 3EF 6 
#0 3EF C 
#0 3F 30 


4505 
2665 
2304 
4595 
2495 
942 
3796 
1304 
749 
745 
750 
3241 
1442 
873 
1743 
2133 
874 
880 
2072 
937 
948 
878 
2854 
408 
417 
446 
473 
475 
2240 
2250 
2954 
889 
402 
1114 
1721 
2083 
424 
2966 
1317 
1023 
2441 
4246 
1763 
462 
457 
953 
4243 
3021 
4365 
4414 
4411 
4409 
4404 
4407 
4427 


1112 


749 
759 
753 
764 


4509 


868 
876 
2077 
933 
941 
898 


448 
412 
450 
422 


2242 


459 
41? 
945 


2762 


2003 
4398 
4331 
4424 


3803 


1843 
762 
756 


882 


901 


452 


2244 


3697 


4375 


4433 


834 


454 
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FILEP? 
FILEP9 
FILEP* 
FILPEX 
FINDA 
FIXp 
=FLIPP 
=FLTYPp 
=FORP 
FORPE1 
FORPES 
FORPER 
FREEO? 
FREE1S 
=FSPC10 
=FSPC12 
FSPC15 
FSPC25 
FSPC30 
FSPC35 
FSPC37 
=FSPECp 
FTKYP2 
FIKYP3 
FTKYP5 
GNXCR+ 
GNXTCR 
IFCK 
=IFP 
IF P50 
=KE YP 
KEYP10 
KYWNSG 
=LABELP 
LBLINP 
LBLNIF 
LINP 
=LISTP 
LNPO6 
LPRNCK 
=LRP 
LRPE4 
LRPES 
LRPe 
LSTPO1 
LSTP10 
LSTP12 
LSTP2O 
LSTP40 
LSTPDN 
LSTPE 
=MERGEP 
ANPTCC 
MNPTP 
MNPTP1 


Rbs 
Rbs 
Rbs 
Abs 
Ext 
Ext 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Rbs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
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16201 #03F49 
16216 #03F58 
16093 #03EDD 
16023 #03E97 


15770 #03D9A 
15985 #03E71 
13341 #03410 
13450 HOSA 
13493 #034B5 
13411 #03463 


15593 #03CE9 
15604 #O3CF4 
15614 #O3CFE 
15626 #03D0—A 
15634 #03D12 
15709 #O3D5D 
15724 #O3D6C 
15557 #03CC5 
15418 #O3C3R 
15422 #O3C3E 
15431 #03047 


13415 #03467 


oh £ § t £ tog 


13454 HO34BE - 
14171 #O375B - 


14208 #03780 
13485 #O34AD 
16031 #O3E9F 


15250 #03892 


14790 #03906 
14841 #039F9 
14847 #O39FF 
14837 #039F5 
15257 #03B99 
15293 #O3BBD 
15298 #O3BC2 
15305 #03BC9 
15319 #O3BD7 
15291 #O3BBB 
15347 #O3BF3 


15237 #O3B85 - 


15755 #03D8B 
15657 #03029 
15666 #03D32 


4438 
4443 
4394 
4363 

446 

194 
3868 
4244 

180 

402 

424 

249 

249 
3814 
3725 
3728 
3733 
3739 
3742 
3796 
3803 
3697 
3032 
3034 
3038 
1703 

181 
2250 

391 

404 
1444 
1457 

421 
4366 
3028 

474 

944 
2856 

419 

907 
2064 
2083 
2084 
2081 
2859 
2878 
2880 
2883 
2889 
2876 
2897 
2851 
3816 
3764 
3771 


- Part 3<831212 


4431 
4447 
4380 
4369 


2365 
2304 


140 
244 
184 


2005 


3718 
3699 
3736 
3758 
3797 
205 
H23 
2961 
2956 
1711 
1304 


399 


1452 
409 


4058 
4040 


2066 
2183 
2074 
2852 
2860 
091 
2501 
2883 
2693 
2892 


3774 
3744 
3766 


4382 


4149 


190 
246 


2767 


2425 


HH 
86 


2968 


2867 
2874 


2708 
3249 


3778 
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4384 4386 4388 


926 2446. 


543 


1833 
2084 


3735 3767 


2566 2671 2859 4155 


4050 


2963 88 
2879 


3780 3799 3812 
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MNPTPS 
=NANEP 

NANEP? 
NTOKEN 
NTOKNL 
=NUNC++ 
=NUNC+0 
=NUMCK 

NUNCK1 
NUNCK2 
NUNCK 3 
=NUNCKO 
NUNS 

=NXTP 

ORGNXT 
OBFSPp 
=OPSTRp 
QUTITK 
QUT2TK 
QUT3TK 
=QUTB+5 
OUTBYT 
=QUTLI1 
QUTLI2 
=QUTLIT 
=QUTNE4 
OUTNBS 
QUTNIB 
=QUTVAR 
=0UTbyt 
=PILP 

=PILP+ 

PILP10 
PILP30 
PILP40 
PILPSO 
PILP&5 
=POKEP 

POKEP9 
POLLD+ 
=PRENCK 
PRGP30 
PRGP8O 
PRGPE1 
=PRIVTP 
PRMCNT 
PRTHP 

PRTHPO 
=PRTP 

PRTP2O 
PRTP70 
PRTP8O 
PRTP85 
PRIPE1 
=PURGEP 


Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
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2306 Synbol Table 


15732 #03D 74 
15214 #O3B6E 
15230 #O3B7E 


13968 #03690 
13974 #03696 
13981 #03690 
13997 #O36AD 
14001 #036B1 
14004 #036B4 
13977 #03699 
15507 #03093 
13397 #03455 


15553 #03CC1 
14212 #03784 


14390 #03836 


14089 #03703 
14095 #0370F 
14067 #O36F3 
14394 #0383R 


14142 #0373E 
14782 #OISBE 
13270 #033D6 
13273 #033D9 
13305 #O33F9 
13303 #O33FD 
13327 #O340F 
13333 #03415 
13338 #O341kR 
14222 #O378E 
14241 #037A1 


13953 #03681 
15028 #O3RB4 
15033 #O3AB9 
15044 #O3AL4 
15234 #O3B82 


13839 #O360F 
13832 #03608 
43721 #03599 
13792 #O35E0 
13807 #O35EF 
13811 #O35F3 
13851 #03618 
13860 #03624 
14985 #03R89 


3809 
2762 
2769 
1765 
2889 
1100 
1103 
1106 
1112 
1113 
1114 
1104 
3200 
243 
17% 
3696 
1506 
124 
4248 
2895 
1734 
2016 
1319 
1321 
1312 
1735 
3729 
1717 
1379 
2015 
111 
112 
124 
126 
134 
13? 
140 
1565 
1571 
3819 
1020 
2438 
2441 
2446 
2849 
1878 
91? 
914 
867 
897 
903 
905 
922 
926 
2418 


- Part 3<831212 


3776 
2422 


1012 
114 
129 

1108 
924 

1632 
194 

2136 
180 


1907 


1313 
1328 
1307 


544 
867 


132 
116 
951 
127 
123 


1446 


1726 
2435 
1909 
2555 


870 
918 


310 
890 
886 
895 
6 


2666 


2186 
187 
396 

1166 

1110 

1912 

2310 

3202 


4001 


1384 


1331 


1455 


1895 


2306 
2702 


1568 
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1016 1101 2064 2067 3200 
1911 
1165 
1702 1723 1860 
2187 
2568 2676 2709 4052 
4144 
935 
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PURGP+ 
R.STPR 
=R3=D1* 
2R3=D1+ 
=R3=D10 
=R3=D1C 
=RANDP 
RANDP2 
REDPES 
=REMP 
=RENPOS 
=REMP 10 
=RENAMP 
=RENMP 
RENMP4 
=RESETp 
RESPTR 
=RETRNp 
RNNPOS 
RNNP15 
RNMP 20 
RNMP 25 
RNMP45 
RNNP6S 
=RTNCC 
=RUNP 
RUNP 10 
RUNP20 
RUNP 30 
RUNP40 
RUNPE3 
RUNPE8 
Range 
ResPtr 
Resptr 
SBNNE1 
SBNMPO 
SBNNP3 
=SECURP 
=SFLGP 
=STATP 
STLXPT 
STNT LO 
=STRGCK 
STRGer 
=STRNGP 
SUBNIMP 
=SUBP 
SUBP 10 
SUBP 15 
SUBP 20 
SUBP25 
SUBP 30 
SUBP 35 
SUBP45 


Abs 
Ext 
Abs 
Abs 
Abs 
Ros 
Abs 
Rbs 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


14999 #03A97 


13602 #03522 
13618 #03532 
13606 #03526 
13612 #0352C 
14958 #O3A6E 
14905 #03A39 


13640 #03548 
13649 #03551 
13652 #03554 
15132 #03B1C 
15435 #03C4B 
15463 #03C67 
15465 #03C69 


15458 #03C62 
15129 #03B19 
15158 #03B36 
15172 #03B44 
15176 #03B48 
15201 #03B61 
15210 #03B6A 
16306 HO3FB2 
15793 #03DB1 
15823 #O3DCF 
15870 HO3DFE 
15858 #030F2 
15862 #03DF6 
16866 HO3DFA 
15377 #03C11 


13329 #03411 
16520 #03CAO 
14713 #03979 
14759 #039A7 
14778 #O39BRA 
15247 #03B8F 
15483 #03C78 
14862 H#O3ROE 


14010 #036BA 
14021 #036C5 
14237 #03790 
14748 #03990 
14258 #037B2 
14269 #037BD 
14322 #O37F2 
14352 #03810 
14356 #03814 
14367 #0381F 
14394 #0383R 
14400 #03840 


' bs ¢ € €£$ § & 6 4a 4 


2425 
460 
600 
606 
601 
604 

2358 

2248 

2081 
673 
675 
676 

2671 

85 

94 

3139 
435 

92 

2670 

2684 

26%” 

2692 

2706 

2703 

4526 

4000 

4025 

4058 

4049 

4050 

4052 

2966 

3716 
135 

3203 

1921 

2006 

2014 

2855 

3133 

2182 

4242 
467 

1159 

1164 

1569 

2003 

1688 

1692 

1712 

1723 

1724 

1728 

1736 

1740 


- Part 3<831212 


2420 


1762 


2070 


674 
2668 


HH 


2682 
2678 
2685 
2672 
2436 
2763 
4524 


4003 
4028 
4026 
4037 
4015 
36 
4516 

119 
3143 


1864 
2009 


1444 
1161 
150? 
1689 


4725 
1707 
1699 
1718 
1690 
1688 
1693 


2076 


677 


892 
2696 
2688 


2690 
2863 


4059 
4041 
4017 


196 
3710 


1448 


1567 
1850 


1747 
1732 


2079 


903 


2870 


4167 


3875 


1565 


1753 
1758 
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2134 


1571 


2873 


4178 


4038 


1869 


1759 
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209 2312 2364 


4181 


4407 


W32 
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SUBP55 
SUBP 60 
SUBPE3 
SVRST+ 
TFMP10 
TFMP15 
TFNP20 
TFNP6O 
TFNP 70 
=TRSFMP 
UPDIN¢ 
ZUSERP 
=USINGp 
=VARP 
=VARPOS 
WRDSC+ 
WROSCN 
WSRO-3 
“ERRO1 
“ERR1 
a" 

a? 
dtc=r3 
eF TYPE 
eolck+ 


errd3 
=exppar 
fixp 
gnxtcr 
ntoken 


outi t+ 
outi tk 


oute tk 
outbyt 
outnhs 
pDEVCp 
pFSPCp 
=polld+ 
r3expt 
r3expp 
resptr 


rtnec 


sRFILE 
t* 
tALL 
tCRRD 
tC LOCK 
tCONNA 
tCREF 
tCVAL 


Abs 
Abs 
Rbs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ros 
Ext 
Ext 
Abs 
Ext 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 


Abs 
Abs 
Robs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 


Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 


14425 #03859 
14441 #03869 
14346 #0380A 


15903 H#O3E1F 
15921 #03E31 
15924 #03E34 
15960 #03658 
15983 #03E6F 
15883 #O3EOB 


15770 #03D9A 
13864 #03628 
13582 #0350E 
13586 #03512 


16899 #03E1B 
15896 #03E18 


15724 #03DeC 


15351 #03BF7 - 


14346 #0380A 
14463 #038 7F 
14981 #03A85 
15383 #03C17 
14467 #03883 


14118 #03726 
14121 #03729 


16017 #03E91 
14782 #039BE 
15608 #O3CF8 

1 #00001 

4 #00004 
15757 #03D8D 
14455 #033877 
14459 #03878 
14241 #037A1 


14788 #039C4 
8 #00008 


1376751 #501EF 


1749 
1755 
1720 
410 
4148 
4154 
4155 
4190 
4198 
4139 
468 
3869 
931 
BAI 
542 
192 
1767 
394 
4144 
4143 
1305 
760 
3802 
4245 
2954 
2856 
1721 
1763 
2365 
2968 
1765 
2006 
1330 
1331 
1746 
4248 
2016 
3729 
11 
11 
3818 
1761 
1762 
1570 
2565 
2062 
3197 
1 
2561 
2245 
2433 
11 
185 
1918 
1890 


1744 
1754 
1697 


4180 
4142 
4151 
4165 
4194 


875 
243 


397 


4196 
4060 


1308 
3755 


408 
2960 

953 

893 
2313 
1761 

541 
029 

763 

878 
2556 
1752 
145? 
173? 
3795 
3757 
3756 
1106 

939 
1508 
2769 
1903 
3243 
4002 


2429 
2686 
3140 

881 


1757 
4194 


2182 


4371 


1506 
285 
1709 

917 


3809 

909 
40493 
1336 
1104 


4244 
1734 
2255 


3794 
1159 
1874 
1631 
26 
2185 
3245 
4018 


2496 
3777 


1220 
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1840 
4150 
2897 
1629 


4244 
947 


1740 
1321 


1891 


4366 
1838 
38 
2246 
3247 
4036 


3194 
4385 


2893 
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2133 


4410 
1218 


1871 
1325 


1898 


1849 
3199 
2497 
3871 


4331 


2363 


4533 
1694 


3813 
1338 


3696 


2011 
3203 
2562 
3873 


2419 


1741, 
1379 


3726 


2248 
3793 
3141 
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2665 


1846 


1443 


2500 
4152 
3195 
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tDEF 
tEOL 
tEXTIF 
tEXTND 
tFN 
tIN 
tINT2 
tINTO 
tKEY 
tKEYS © 
tLINE# 
tLITRL 
tMRIN 
tHATH 
tOFF 
tON 
+PCRD 
<PORT 
tPRNEN 
tPRIST 
tRFILE 
45ENIC 
tSTEP 
+SUB 
tTAB 
tTHEN 
tT0 
tUSING 
wrdscn 


Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 


2490863 #601EF 


3015151 #EOTEF 


3539439 #601EF 


4063727 HEOIEF 


14473 #03889 


Parse Routines 


Table 


2241 
1733 
464 

11 
447 
1905 
1743 

11 
- 22 
- 2706 
449 
3725 
3773 

1 
3244 
- 3242 
= 11 
= AFto 
=. 1728 
- 2014 
- 4000 
- 121 
- 193 
- 2243 
- 885 
-~ 398 


188 
932 
1767 
3139 


- Part 3<831212 


3246 


4176 
2865 
28% 


3196 
3872 
3870 
3779 


1897 


130 


2553 


880 
3193 


4193 4387 


4383 


883 


2680 


931 
3241 


948 


2695 


2240 
3772 
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1453 


4379 


2435 
3863 
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2560 2694 H21 
4192 4377 
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Input Paraneters 
Source file nane 1s JP&PR3::MS 
Listing file nane is JP/PR3:TI:ML::-1 
Object file nane is JPZPR3:TI:MS::-1 


114411 
01234567890 12345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler Neus 
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O3FD5 


ARO eet ee et ee 
DOONAN HPWH | OWWYWAN SWAN 


no 
—_ 


a) 


RO 


rn 


See Ree ear eRe rr. 
On HON Dwr — WOwnnnLwu 


uy) 
DO 


> Dp 
=O 


+> bap 
Bw 


Wn ha ff pb 
-K OWN HW 


MNnonwn 
on & wh 
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Page 1 
x SSS. BBBB & EEEEE xX X PPPP 
x 5 S$ B 8B && E Xx K® PP 
x $ B B && E XxX PP 
x SSS. BBBB & EEEE x PPPP 
x S$ B 8B &&& E XxX P 
x $ S$ B B&& €E x xX P 
: SSS. BBBB & & EEEEE X X P 


TITLE Expression Parser<831212.1206> 
ABS  #O3FD5 


FORO OOOO I OTT TTT TO IT TTI TIK 
FORO III TIT  I TOT TOIIT T II TTIT IN 


kk 
** Nane:(S) EXPPAR - Expression Parse 

** Nane:(S) EXPPLS - Expression Parse for Left of Equal Sign 
xk Nane:(S) EXPP10 - Expr Parse (specify start of parse stk) 
kk 

- Category: PARUTL 

** Purpose: 

Kx Parse an expression and conpile correct code for it 
aK Also parses duriny array references 

ee EXPPLS will stop parsing when a valid left-hand-side 
me has been found. 

ks 

2A EALtrye 

a © is pointer to output strean 

7m 01 is pointer to input strean 

xe EXPPLS requires LeftSd(S7) to be set on entry. 

a EXPP10 requires LeftSd(S7) to be clear on entry and 
A that D(A) be set to where the parse stack should 
aS start. 

kk 

*k Exit: 

xn If dunny array found then 

ae Carry set 

xx SO -- 1 (invalid expression) 

x S1 -- Set by last NTOKEN 

ae S2 -- Set by last NTQKEN 

Bx $3 -- 1 (not valid string expression) 

ies S? -- Clear if EXPPAR, unchanged if EXPPLS 

- DO -- Points past code compiled for dunny array 

a D1 -- Points past first token not used 1n expression 
ae AR -- Contains first token not used for dummy array 
to p -- 0 

aa XH -- 0 

re 

=e else 

me Carry clear 

ae SO -- 0 1f valid expression found, 1 otherwise 

ae Si -- Set by last NTOKEN 

as S2 -- Set by last NTOKEN 

ax S3 -- 0 1f valid string expr. found, 1 otherwise 

si S? -- Clear if EXPPAR, unchanged if EXPPLS 

ax DO -- Points past code conpiled for expression 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
36 
97 
98 
99 
100 
104 
102 
103 
104 
105 
106 
107 
108 
109 
110 


ak 
ak 
a 
an 
ax 
ax 
ar 
ak 
ak 
an 
xk 
ax 
aK 
xk 
ak 
xk 
xx 
a 
aR 
xs 
a 
a 
ak 
a 
ak 
xn 
ak 
ak 
ak 
ak 
ak 
xk 
ak 
xk 
xR 
ak 
ar 
xk 
ak 
xk 
xk 
xx 
xx 
an 
Kx 
ak 
xk 
ak 
xx 
xk 
ak 
xk 
ak 
xR 
ax 
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Page 2 
D1 -- Points past first token not used in expression 
A -- Contains first token not used in expression 
KM -- Set iff expression is clearly a value expr 
P -- 0 
D(R) -- (MTHSTK) 
(PRNCNT) set non-zero if expression contained user FN 
Calls: NTOKEN, OUT1TK, QUTNIB, OUTVAR, OUTLIT, OUTBYT, 
RANGE, CMPBHC, SCAN, DELET1, DELET2, LOOK, LOOK2 
GNXCR+, QUTNBS, PARNCK, BOPCOM, CONCOM, PUSH-P, 
PUSH-3, INSRT1, RESPTR, CKLFSD 


A,B,C,D( 15-5), RO,R1, S80, S81, $2, $3, $7, $11, Carry 
FUNCDO, PRNCNT(first nib) 


Stk lvls: 3 


Detail: 


Internal representation of non-terninals 1s: 
00 -- Primary 
01 -- S-expr 
02 -- Factor 
03 -- Tern 
04 -- Sun 
05 -- Relation 
06 -- Conjunction 
07 -- Expression 
08 -- N-func-ref 
09 -- S-func-ref 
OA -- Substring ref 
OC -- StartR (Reference expression) 
OD -- StartS (Reference expression u/substring) 
OE -- StartV (Value expression) 


This parser 1s essentially a stack autonaton. 

The stack builds from high nernory down to lower 
nenory. All stack elenents are 2 bytes (4 nibs) 
in length although 2 or nore elenents nay be used 
to hold extra infornation if needed. 


If EXPPLS is called with LeftSd set, the parser will 
stop when it sees an reference expression or a 
substring reference expression followed by an equals 
sign. 


Code is conpiled fron low memory toward high nenory. 
The code pointer and the stack pointer are checked 
to nake sure they never collide. MEMERR is called 
if there is such a collision. 


Value expressions are indicated upon return by the 
XM bit. This 1s used to deternine whether a paraneter 
in a CALL statenent 1s a reference or value parareter. 
It is also used to determine whether an expression 
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111 
112 
113 
114 
115 


Expression Parser<831212.1206> Fri Dec 30, 1983 4:18 an 
Page 3 


xX mould be a valid destination address for an assignnent 
ie such as the INPUT staterent. 
xk 


FORCE TIT 
FOI TOI IIIT TOIT OTT TTT TOI TK 
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116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
13 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
164 
162 
163 
164 
165 
166 
167 
168 
169 
170 


Me Oe ee OO Oe OOOO OOOO 
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EJECT 
The following 1s a loosely interpreted explanation 
of the stack autonata that 1s inplenented. 
To interpret it, states are identified by a synbol 
followed by a colon. Itens on the stack are enclosed in 
angle brackets (< >). On the right side, a plus sign 
indicates that sone code needs to be conpiled. An asterisk 
on the right side indicates that the next token in the 
strean should be place on top of the stack. If the stack 
1s to be modified, the next line is used to show the 
way the stack should be changed to look; this is indicated 
by an arrow (-->). If no arrow 1s shown, then the stack is 
not nodified before continuing. 
A synbol is shown on the far right 
that is the next state for the parser--think of this as a 
GO TO. 


Basically, the parser starts in state EO, which is the 
operand (expression) expected state. The stack is compared 
with the patterns shoun (in the order shown) for a match. 
If the pattern natchs, the parser nodifies the stack as 
suggested by the table, compiles code (if necessary) and 
scans for another token and places it on stack (if 
necessary) and goes to the next state. 


The expression parser terminates with an error if it gets 
to the end of the patterns for a given state without 
Hatching. An error consists of getting to the ACCEPT 
state with the stack containing sonething other than 
a single numeric or string expression on top of the stack. 


BOs OR ary OOD I” ue Si Sa ae a a * £0 
( a ue Nah we AE CG Re ee A Se re * £0 
<nunber> Bh ae ek GY a> te. oh. Tee 

--> <prinary> 


<var> * ARO 
<func nare> ® FRO 
<string var> de ne iat et eh Rae 4s we * SEO 
<string literal> 2h, Bet dee we he Ge ASE 
--> <s-expr> 
<s-func-nane> gh Ge OSS fe dae Ai * SFO 
Pi: <factor> ~ <prinary> <??> BY Ue ee Sk" aan FA 
--> <factor> <??> 
<prinary> <??> a ee eee ae es ae F{ 
--> <factor> <??> 
Fi: <unary op> <factor> <??> a ae ee ce P4 
--> <prinary> <??> 
<factor> ~ Ee at at Re te ae Ca ge * EO 
<tern> <nulop> <factor> <??> aa eee 11 
~-> <tern> <??> 
<factor> <??> ‘ ae aes ae ee 11 


--> <term> <??> 
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171 * Ti: <tern> <nulop> we Oo oat, fess Pog Set kd eds * £0 
172 & <sun> <tern> <??> : er oy Se et SUM 
173 a --> <sunm> (22> cP gu 
174 x <tern> <??> ; oo ee ee “gl Rs 35 Sunt 
175 x --> <gun> <??> 
176 x 
177 * SUN1:<sun> <unary op (not NOT)> iA OS te! oS * EO 
178 * SUN2:<relation> <relop> <sum> <??> oS &. See REL1 
179 x --> <relation> <??> 
180 & <sun> <??> Otic ee ae a “he ae, 4. RELI 
181 x --> <relation> <??> 
182 * 

183 * REL1:<relation> <relop> . i ee SA GS * £0 

184 a <conjunction> AND <relation> <??> ae eer CON1 

185 * --> <conjunction> <??> 

186 & <relation> <??> 8 gee “Be cas CON1 

187 & --> <conjunction> <2?) 

188 & 

183 * CON1:<conjunction> AND ‘ e -yh- ware te. OS * £0 

190 : <expr> OR <conjunction> (22> eng Ane ok EI 

191 & --> <expr> <??> 

192 x <conjunction> <??> ‘ begs poe E1 

193 k --> cexpr> c??> 

194 * 

195 * E1: <expr> OR be Nig WS, fas Gis dar wes Nae Za et * £0 

196 x ( <expr> ) viata whee serene: se AR- a ar, Oe k Pt 

197 x --> <prinary> 

198 k ( <expr> , Ge lh tie tar, tee yaw “Gr, dhe “Ge Fee. BED 

199 7 --> <Cuplx> <func-ref> 

200 * £2: <func-nane> <func-ref> <(s|[n)-expr> ) . . + * PA 

201 x --> <primary> 

202 a <func-ref> <(s|n)-expr> , & ae wR a cd REO 

203 : --> <func ref> 

204 & <func-nane> <s-func-ref> <(s|n)-expr> ) : * SEI 

205 x --> <s-expr> 

206 & <s-func-ref> <(s|n)-expr> , bes ae al a ED 

207 x --> <s-func-ref> 

208 x <substr-ref> <(s|n)-expr> , Bg a a AES 

209 . --> <substr-ref> 

210 x <substr-ref> <(s[n)-expr> ] oe oe ae Gt RBS 

ei x --> <s-expr> 

212 k <(s|[n)-expr> <??> 

213 * --> (ACCEPT! !) 

214 a 

215 * ARO: <var/ASC> ( Bo cte Give ok St we ee * EO 

216 * --> <func nare/ASC> <func ref> 

27 - <var> <??> i gh fer “ah au le a A P1 

218 * --> <prinary> <??> 

219 & 

220 * FRO: <func nane> ( 6 6 et  Scee ee oh x £0 

2c x --> <func nane><fune ref> 

222 * <func narie> <??> yee Be Bea 8. ape ve PI 
23 . --> <prinary> <??> 

224 * 

225 * SEO <string var> ( bs ie he es * £0 


Saturn Asseribler Expression Parser<831212.1206> Fri Dec 30, 1983 4:18 an 
Ver. 3.39/Rev. 2306 Page 6 

226 * --> <array> <s-func-ref> 
227 x <string var> <??> et Wh, apes ve SG ks et oe BET 
228 . --> <s-expr> <7?> 
229 s 
20 * SE1: <s-expr> [ apes Blog eaters “etl * £0 
231 & 4-> <substr-ref> « 
232 . <s-expr> & <s-expr> <??> ght bas Sas “Se SE2 
233 s --> <S-expr> <??> 
244 & 
235 ® SE2: <s-expr> & esa ie Mes a An gy 3 * £0 
236 x <s-expr> <relop> <s-expr> <??> a ee SUN2 
237 & --> <relation> <??> er fe 
238 x <s-expr> <relop> > cer Ps, mer tee LGR ay * £0 
239 x ( <s-expr> ) BW? Shc PEP SE Stans Ae * SE1 
240 - --> <s-expr> 
241 k <S-expr> <??> E2 
242 & 
243 * SFO: <s-func-nane> ( bd Jew Gea OR. Ae en cen * £0 
244 & --> <func nane/ASC> <s-func-ref > 
245 k <s-func-nane> <?7> we wh, ae JB. ae. ba ied PEOBEY 
246 . --> <S-expr> <7?) 
247 
248 NPrin EQU #00 Parse stack token definition 
249 SExpr EQU #01 Parse stack token definition 
28 Factor EQU #02 Parse stack token definition 
251 Tern  EQU #03 Parse stack token definition 
252 Sun EQU #04 Parse stack token definition 
253 Relat EQU #05 Parse stack token definition 
254 Conjun EQU #06 Parse stack token definition 
255 NExpr EQU #07 Parse stack token definition 
256 NFuncR EQU #08 Parse stack token definition 
257 SFuncR EQU #09 Parse stack token definition 

. 258 SubstR EQU #OR Parse stack token definition 

' 259 StartR EQU HOC Parse stack token definition 
260 StartS EQU #0D Parse stack token definition 
261 StartV¥ EQU HOE Parse stack token definition 
262 RDSYNB SBZTAB: = MS 
263 =FRange EQU (LASTFN)"H6A Range of functions 
264 InvalE EQU 0 Status bit definition 
265 String EQU 1 Status bit definition 
266 Arglst EQU 2 Status bit definition 
267 NunExp EQU 3 Status bit definition 
268 LeftSd EQU 7 Status bit definition 
269 VarFlg EQU 11 Status bit definition 
270 t= EQU 2° tRELOP 
271 t- 
272 O3FDS 6000 OUTBY) GOTO =OUTbyt 
273 a. 
274 k- 
275 O3FD9 847 =EXPPAR ST=0  LeftSd Don’t look for left-hand-side 
276 O3FDC 8FOO =EXPPLS GOSBVL =D=AVNE 

000 

277 O3FE3 840 =EXPP10 ST=0 = InvalE Valid expression 
278 No characterization nibble 
279 O3FE6 821 xn=0 (Reference expression) 








280 O3FES 
281 O3FEB 
282 O3FEF 
283 O3FF2 
284 

285 

286 O3FF6 
287 O3FF9 


288 04003 
289 04005 


29% 04000 
291 O400F 
292 04013 
293 04016 


294 04010 
295 04020 
296 04023 


297 04029 
298 

299 

300 04020 
301 04020 
302 04031 
303 04034 
304 04038 
305 

306 

30? 04038 
308 0403F 
309 04042 
310 04044 


311 0404A 
312 
313 
314 O404E 


316 04054 
316 04057 


31? 04050 
318 04060 
319 04064 
320 
321 
322 04068 


323 O406E 
324 04072 
325 04075 
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20 
310 
RFA 
7416 


103 
3782 
7828 
18 
27 
8FOO 
000 
55€ 
7EBS 
5FO 
3H6 
96 
7785 
4Co 
8EOO 
00 
6791 


7226 
4% 
797 
SOF 


3102 
966 
CO 
8E0O 
00 
6014 


8E00 
00 
531 
8E00 
00 
406 
70B7 
624 


33C7 
D? 
7565 
55 
313B 
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EO-10 GOSUB SCAN 
k 


p= 
LC(2) 
A=C 
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0 
StartR Start (Reference Expression) 


W Copy start token to A 
Scan for first iten 


* Looking for the start of an expression 


EO 


E0+05 
P1-10j 
ke 


E0+10 


ke 


E0+20 


£0+30 


ae 
ke 


£0+40 


R1=C 
LCHEX 


p= 
GOSBVL 


GONC 
GOSUB 
GONC 
LC(4) 


GOSUB 
GOC 
GOSUBL 


GOTO 


GOSUB 
COC 
GOSUB 
GONC 


LC(2) 
?C#A 
GOYES 
GOSUBL 


GOTO 


GOSUBL 


GONC 
GOSUBL 


GOC 
GOSUB 
GOTO 


ic(4) 
GOSUB 


GONC 
LC(2) 


Save lex restart info 


81828728 t-, tNOT, t+, ( 

7 

=MEMBER Is it one of these things? 
EQ-10 Yes, then SCAN; GOTO EO 
ARANGE Is it in range [A,Z]? 
£0+05 Yes, then conpile variable 


(tADIG9)~(tADIGO) Alpha Digit range 


Range Is it in range? 

E0+10 No, then continue 
=OUTVAR Conpile variable 

P1-10 

CHKCON Check for constant 

£0+20 Jurip if no constant found 
RTNSXM Set Value Flag 

P1-10) (B.E.T.) Scan; goto P41 
tSVAR String vars 


B Is 1t a string variable? 


E0+30 No, then continue 

=QUTVAR Conpile string variable 
SE1-10 

=QUOTCK Is 1t a quote? 

E0+40 No, then continue 

=QUTLI1 Corpile literal 

EO+41 Error? (No closing quote) 
RTNSXNM Set Value Flag 

SE1-10 


(tARRAY)~ (tFN) 


Range Is it in range? 
EQ+41. Yes, then handle function ref 
tXFN External Function 
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326 04079 962 7A=C OB Is 1t an XFN? 
327 0407C C5 GOYES E0+42 Yes, then handle it 
328 O407E E6 C=C+1 A Assunes FFN=KFN¢+1 
329 x LC(2) tFFN Funny function 
33% 04080 966 AKC OB Is it a funny function 
331 04083 E0 GOYES £0+40. No, then skip 
332 04085 27 P= 7 
333 04087 7DE5 GOSUB outnbs . Compile 8 nibbles (FFN DD OD Len) 
334 04088 09 C=B A Prepare to junp to parse handler 
335 0408) 06 RSTK=C 
336 0408F 03 . RTNCC Jurip to parse handler 
337 - 
338 x 
339 04091 3308 E0+40. LCHEX 8F80 Range of binary/unary operators 
F8 
340 04097 7(35 GOSUB Range Is it in range? 
341 04098 5F2 GONC E0+41 Yes, then error 
342 O409E 33R6 LC(4) FRange Range of Functions 
48 
343 040A4 23 P= 3 One iter will be needed on stack 
344 040AR6 7025 GOSUB Range Is it in range? 
345 O4OAA 5F2 GONC E0+44 Yes, then handle function ref 
346 O40AD 20 P= 0 
347 O4ORF 3IFE LC(2) txWORD XWORD token 
38 04083 966 ARC OB 
349 04086 51 GOYES £0+41 
350 040B8 8£00 GOSUBL =RESPTR Restore D1 
00 
351 O40BE 111 A=R1 Recall lex info 
352 040C1 8£00 GOSUBL =PRESCN Resurie lexing 
00 
353 04007 6E2F £0) GOTO £0 
354 xe 
355 x 
356 O40CB 6344 £0+41 GOTO ACCEPT No, then error (expr expected) 
357 rm 
368 X- 
359 O40CF 396A £0+41. ?C=0 8B Is it an FN? 
360 04002 60 GOYES £0+42 No, then skip 
361 04004 7157 GOSUB SETPRA 
362 04008 27 E0+42 P= 7 Tuo stack itens 
363 O400A 7205 £0+44 GOSUB PUSH-P Push itens 
364 O40DE CD B=B-1 A 
365 O40E0 CD B=B-1 A Point at arg range (EXAD-2) 
366 O40E2 D4 A=B A 
367 O40E4 BF1 BSL oO 
368 O40E7 BF BSL Ww 
363 O40ER BF1 BSL W B(7~3)=ExecAd-2 
370 O40ED 862 ?$T=0 Arglst Is there an argunent list? 
371 O40FO C4 GOYES E0+52 No, then conpile nou 
372 O40F2 3180 LC(2) NFuncR 
373 O40F6 861 *ST=0 String Is it a string function? 
374 O40F9 50 GOYES £0+46 No, then leave it nuneric 
375 O40FB 33 LC(1) SFunckR Yes, then change to string func 


376 O40FE AF4 €0+46 A=B W 
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377 04101 AEA A=C B Copy function ref token 
378 04104 27 P= ? 
379 04106 7604 GOSUB PUSH-P Push 2 itens 
380 0410A 8E00 GOSUBL =GNXCR+ Skip paren and get next char 
oO, 
381 04110 D2 C=0 A 
382 04112 7084 GOSUB LOOK 
383 04116 3192 LCASC =\)\ 
384 0411A 878 *ST=1 VarFlg Is it an array ref? 
385 04110 73 GOYES £0+60 Yes, then check for dunny array 
386 O411F 966 PAHC =O 
387 04122 61 GOYES £E0+48 
388 04124 754 GOSUB DELET1 
389 04128 171 D1=01+ 2 Skip past Rparen 
390 0412B AFS C=B W 
391 0412E 8FOO GOSBVL =CSRW3 Shift C right 3 tines 
000 
392 04135 SFO GONC £0+54 (B.E.T.) 
393 x. 
394 x. 
395 04138 6827 shueas GOTO  DUNMARY Check for duntty array as a parn 
396 : 
397 x- 
398 0413C 85B E€0+52 ST=1 Varflg Don’t compile tLPRP when done 
399 0413F 7894 GOSUB PUSH-3 Push dutiny iten on stack 
400 04143 DE ACEX A Move exec addr-2 to C 
401 04145 136 £0+54 (CDOEX 
402 04148 14A R=DATO B Read arg range 
403 0414B 134 DO=C Restore D0 
404 0414E FO ASL A A(2)=nax, A(1)=nin 
405 04150 68E1 GOTO §=E1+20 Fall into Func compile code 
406 Ke 
407 a 
408 04154 Di £0+60 B=0 A Clear arg count 
409 04156 962 *A=C OB Is it a Rparen? 
410 04159 22 GOYES £0+64 Yes, then okay 
411 0415B 31C2 LCASC \,\ No, then 
412 0415F 966 7AHC OB Is it a conna? 
413 04162 6D GOYES £0+48 No, then look for an expression 
414 04164 871 *ST=1 String 
415 04167 65 GOYES £0+68 String arrays cannot have 2 args 
416 04169 8£00 GOSUBL =GNXCR+ Get next char 
00 
417 O416F 3192 LCASC \)\ 
418 04173 966 AHE OB Is 1t a Rparen? 
419 04176 74 GOYES £0+68 No, then error, must have (,) 
420 04178 BO5 B=B+1 P Increnent arg count 
421 04178 BOS £0+64 B=B+1 P Increrient arg count 
ce O417E 171 Di=D1+ 2 Skip past Rparen 
423 04181 D4 A=B A 
424 04183 W8 LCHEX 8&8 Look(3) 
425 04186 7914 GUSUB LOOK 
426 0418A AFI C=B W 
427 0418) 28 = 8 


428 0418F 3100 LC(2) StartrR Check for start token 


435 041A2 8£00 
00 
436 041A8 AFS 
437 O41AB 8E00 
00 
438 041B1 7000 
439 041B5 850 
440 041B8 853 
441 041BB 02 
442 
443 


444 O41BD 6153 £0+68 
445 
446 


ke 
x. 


x. 
xe 


GOSUBL =QUTVAR 


C=B W 
GOSUBL =OUTNIB 


GOSUB =NTOKEN 


ST=1— Inval€ 
ST=1  NunExp 
RTNSC 


GOTO ACCEPT 
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429 04193 29 P= 9 

430 04195 915 BHC OW Is dunny array first in expr? 

431 04198 52 GOYES E0+68 No, then error 

432 0419A AFC RBEX W 

433 0419D 20 P= 0 

434 0419F BO4 A=A+1 P Change Array token to Durny Array 


Copy arg count 
Compile arg count 


Set invalid expression 
Never invalid string expression 
Return fron expression parse 
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447 EJECT 
448 JI IOI IDS ISIC IO IOI ISI TA IO TI II TIT IH 
449 JOIST ITI I ITI II IIT III IASI ISOS IIIS SI IAS 
450 eR 
451 ** Nane:(S) P1-10  - Numeric Operand Found 
452 + 
453 *% Category:  PARUTL 
454 aK 
455 xk Purpose: 
456 a Point of reentry for nuneric funny functions 
457 x 
458 xk Entry: 
459 am P = 0 
460 aa DO = Output ptr (points past last nib of FFN code) 
461 ak D(A) = Stack pointer 
462 ah 01 = Input ptr (points past last char in FFN text, 
463 a which is probably the closing paren) 
464 am If a funny function is re-entering here, 1t should 
465 ak have set the XM bit to indicate that a value expression 
466 aa has been parsed. 
467 aR 
468 xx NOTE: 
469 eis At this point a nuneric operand has just been coripiled. 
470 ae Funny functions are a special type of function that 
471 ia allow the expression parser to be extended to include 
472 ae that have special parse and/or execution requirements. 
473 a See IDS for a complete description of how to inplenent 
474 aa a funny function. 
475 a 
476 ** History: 
47? xe 
478 a Date Progranner Nodification 
479 ths elias SSiactetekee. eters tenet seek 
480 kx 09/27/83 «B.S. Added docunentation 
kx 
i JOR III IIIS IS IIS IIIS IAI IS III III III IAI IIA 
483 JI IOI III III TI TITAS SAI II ITI III III III IAA 
484 041(1 AEO =P1-10 A=0 B Prinary 
485 04104 7244 GOSUB SCAN 
486 041C8 3408 P1 LC(5) (Factor)~(t7)7~(t%) 
082 
4&8? O41CF 7016 GOSUB BOPCON Check for: 
488 <Factor> <> <Prinary> <??> 
489 04103 5A0 GONC FI Found, then skip 
490 04106 3120 LC(2) Factor Factor 
491 O41DA 7ER3 GOSUB INSRT1 Insert factor 
492 O41DE FY 
493 041DE 3108 iCkedy Uparrow 
494 O41E2 966 RAC OB Is it an uparrou? 
495 041E5 60 GOYES F1+05 No, then continue 
496 041E7 6AOE GOTO £0-10 Yes, then SCAN; goto £0 
497 ae 
498 a. 
499 O41EB 71B3 F1+05 GOSUB LOOK2 LOOK(2) 


500 O41EF 3318 LC(4)  (t-)” (NOT) Minus, NOT? 
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28 
501 O41F5 REC 
502 O41F8 7BD3 
503 O41FC 422 
504 O41FF 7914 
505 04203 AE4 
506 04206 
50? 
508 04206 3108 
509 0420R 70B3 
510 O420E 5ER 
511 04211 7806 
512 04215 RE2 
513 04218 7073 
514 0421C 5BA 
515 
516 


518 04223 REC 
519 04226 961 
520 04229 DD 
521 0422B 3438 


683 
522 04232 7985 
523 
524 


525 04236 31H 
526 0423A 7E43 
527 0423E 3338 
68 
528 04244 7F83 
529 04248 5(6 
530 0424B 7183 
531 O424F 3140 
532 04253 965 
533 04256 41 
534 04258 3178 
535 0425C 757D 
536 04260 AEA 
537 04263 76B5 
538 04267 560 
§39 
540 


541 O426A 7£13 SUN-10 


542 O426E 3178 
543 04272 962 
544 04275 04 
545 04277 32 
546 0427A 962 
547 0427D 83 
548 0427F 3488 
R85 
549 04286 7565 
550 
551 O428A 421 


x 


x 
x 


x 


x 
k 
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F14#10 


RBEX 
GOSUB 
COC 
GOSUB 
A=B 


Disallow 


517 O421F 3178 F1+20 


11 


SUM 


LC(2) 
GOSUB 
GONC 
GOSUB 
C=0 
GOSUB 
GONC 


LC(2) 
ABEX 
?B=C 
GOYES 
LC(5) 


GOSUB 


GONC 

LC(2) 
GOSUB 
LC(4) 


GOSUB 
GONC 
GOSUB 
LC(2) 
?BaC 
GOYES 
LC(2) 
GOSUB 
R=C 
GOSUB 
GONC 


GOSUB 
LC(2) 
*AEC 

GOYES 
LC(1) 
7AZC 

GOYES 
LC(5) 


GOSUB 
GOC 
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B 

Range Is it in range? 

F1+20 

outitk 

B 
<*> <Unary op> <Factor> 

t* 

CHPBRC 

£0+68 

DLISKN 

B 

INSRT4 

P1 (B.E.T.) 

t+ 

B 

B 

F1+10 

(Tern)~ (tDIV)~ (t*) 

BOPCON Check for: 

<Tern> <Mulop> <Factor> <??> 

11 (Optional) 

Tern Tern 

INSRT1 

(tDIV)~(t*) MNulop range 

Range Ts it in range? 

EO-JO Yes, then SCAN; goto £0 
LOOK2 

Sun 

B 

SUN-10 

t+ Plus 

OUTBY j Corpile add 

B Restore parsetoken 
DLISKN 

SUM1 (B.E.T.) 

INSRT1 

t+ Plus 

B Is it a plus? 

EO-JO Yes, then Scan; goto £0 
t= Minus 

B Ts it a tinus? 

E0-JO Yes, then Scan; goto EO 
(Relat)~ (tRELOP)” ( tRELOP) 

BOPCON Check for: 

<Rel> <Relop> <Sun> <??> 

REL-05 If not found, 


4:18 an 
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552 


change <Sum> to <Rel> 


553 0428D 09 SUN+10 C=B AQ If found then compile third 
554 O428F Fe CSR R nibble of relop 
555 04291 Fé CSR A 
556 04293 D8 B=A A 
557 04295 8E00 GOSUBL =OUTNBC Conpile third nibble of relop 
00 
558 0429B D4 A=B A 
559 04290 3150 REL-05 LC(2) Relat 
560 042A1 77E2 GOSUB INSRT1 
561 042A5 31A8 RELI LC(2) tRELOP Relop 
$62 042A9 966 "ARC OB Is it a relop? 
563 O42AC DO GOYES REL+10 No, then continue 
564 O42RE 7A85 GOSUB CKLFSD Check for left-hand-side 
565 042B2 560 GONC REL+10 Found, then don’t accept = 
566 042B5 6€3D £0-JO GOTO £E0-10 Yes, then scan; goto £0 
567 ze 
568 t- 
569 042B9 34B8 REL+10 LC(5) (Conjun)~(tAND)” (tAND) 
B86 
570 04200 7B25 GOSUB BOPCON Check for: 
571 <Conj> <AND> <Rel> <??> 
572 04204 5A0 GONC CON 
573 04207 3160 LC(2) Conjun Conjunction 
574 042CB 7DB2 GOSUB INSRT1 
575 O42CF 31B8 CON1 LC(2) tAND And 
576 042D3 962 7A=C OB Is 1t an and? 
577 O42D6 FD GOYES E0-JO Yes, then scan; goto £0 
578 042D8 34C8 LC(S) (NExpr)~ (tOR)~ (tEXOR) 
D8? 
579 O42DF 7005 GOSUB BOPCON Look for: 
580 <NExpr> <OR> <Conj> <??> 
581 x GONC E14 (Optional) 
582 042E3 3170 £1-10 LC(2) NExpr Expr 
583 O42E7 71A2 GOSUB INSRT1 
584 O42EB 853 E11 ST=1 NuntExp 
585 O42EE 338 LC(4) (tOR) (tEXOR) Daisjunctor range 
D8 
586 O42F4 7FD2 GOSUB Range Is it an OR or EXOR? 
58? O42F8 5CB GONC £0-JO Yes, then scan; goto £0 
588 O42FB 3192 £1403 LCASC \)\ Right paren 
589 O42FF 962 7A=C OB LOOK(O)=Right paren? 
590 04302 60 GOYES £1+05 Yes, then skip 
591 04304 66(0 GOTO 8 £1+30 No, then continue 
592 rt. 
593 Be 
594 04308 7492 £1405 GOSUB LOOK2 LOOK (2) 
595 0430C 3182 LCASC \(\ Left paren 
596 04310 965 “BHC OB LOOK(2)=Left paren? 
597 04313 71 GOYES £1410 No, continue 
538 04315 7005 GOSUB = DL2Sxn 
599 04319 863 7ST=0 NunExp Is 1t a numeric expression? 
600 0431C 60 GOYES £1+08 
601 O431E 62AE P1-J2 GOTO P1-10 Insert(Prinary); Scan; goto P1 


602 


x 
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603 te 
604 04322 6541 E108 GOTO  SE1-10 Insert(SExpr); Scan; goto SE1 
605 - 
606 kL 
607 04326 68£1 £1409 GOTO ACCEPT 
608 ke 
609 ke 
610 0432R 78A4 €1+10 GOSUB FCNTYP Set status bit for string 
611 or nurieric fen 
612 O432E 7A44 £1415 GOSUB PARNCK Increnent parm count, check type 
613 04332 7842 GOSUB DELET2 Delete Func Ref and Expr 
614 04336 85B ST=1 VarFlg No LPRP following function 
615 04339 £1#20 
616 04339 BBO ASL x 
617 0433C 9A 7B<R XS Too feu parns? 
618 0433F 7E GOYES €1+09 Yes, then error 
619 04341 AF4 FCNCOM A=B W Save actual arg count in A(XS) 
620 * Stack looks like: <Intrinsic> <Exad> <??> 
621 & or <Info> <Array> <Exad> <??> 
622 x or <Info> <FN> <Exad> <¢?7> 
623 . or <Info> <XFN> <Exad> <??> 
624 : a 
625 x | 
626 * Garbage if no paraneters | 
627 04344 7852 GOSUB LOOK2 Get function descriptor 
628 04348 7104 GOSUB DLISXN Delete Exad or other garbage 
629 0434C AFC ABEX W Return actual arg count to B(XS) 
6X 0434F 3207 LC(3) #200+tARRAY Array token, C(XS)=2 
2 
631 04354 966 ARC OB Is it an array reference? 
632 04357 R2 GOYES FCNC20 No, then continue 
633 04359 861 ?8T=0 «String Is it a string array? 
634 0435C 70 GOYES FCNCOS No, then okay 
635 0435E 921 *B=C XS Yes, then does 1t have 2 dins 
636 04361 5C GOYES £1+09 Yes, then error 
637 (>2 dins already trapped) 
638 04363 AF6 FCNCOS C=A W Copy word to C 
639 04366 28 P= 8 
640 04368 310 LC(2) StartR Change 2 nibbles 
641 0436C 29 P= 9 Check if 
642 0436E 916 RHC OW <StartR> just above <Array> 
643 04371 50 GOYES FCNC1O0 No, then okay 
644 04373 821 KH=0 Yes, then reset Value Flag 
645 04376 20 FCNC10 P= 0 
646 04378 8E0O FCNC15 GOSUBL =OUTVAR Compile FN or ARRAY ref 
00 
647 0437E 5B3 : GONC FCNC42 (B.E.T.) Now compile arg count 
648 . 
649 z 
650 04381 30C FCNC20 LC(1) tFN FN token 
651 04384 962 ?A=C OB Is it a user FN reference? 
652 04387 1F GOYES FCNC15 Yes, then conpile FN ref 
653 04389 313B LC(2)  tXFN XFN token 
654 0438) 962 *A=C OO Is 1t an XFN token? 


655 04390 42 GOYES FCNC40 Yes, then conpile KFN ref 
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656 04392 7682 GOSUB outitk No, then compile intrinsic func 
657 04396 78E1 GOSUB DELET Delete Intrinsic descriptor 
658 0439A 878 FCNCX ?ST=1 VarFlg Is a () required following fen 
659 0439) RO GOYES FCNC32 No, then okay 
660 0439F 31AA LC(2) =tLPRP Yes, 

661 043A3 7E2C GOSUB OUTBY) then compile LPRP 

662 043A? 871 FCNC32 ?ST=1 String Is it a string function? 

663 O43AR 60 GOYES FCNC35 Yes, then goto SE1-10 

664 O43AC 641E GOTO P1-10 No, then goto P1-10 

665 x 

666 a 

667 043B0 6780 FCNC35 GOTO SE1-10 Goto SE1-10 

668 he 

669 te 

670 04384 25 FCNC4O P= 5 Corpile 6 nibbles 

671 043B6 7EB2 GOSUB outnbs Conpile XFN 

672 O43BA F5 FCNC42 BSR A 

673 O43BC F5 BSR A 

674 O43BE D4 A=B A 

675 04300 74B2 GOSUB outnbs Compile argument count 

676 043C4 7681 FCNC4S5 GOSUB DELET2 Delete Function Descriptor 

677 043C8 51D GONC FCNC3# (B.E.T.) 

678 x 

679 - 

680 043CB EZ 

681 043CB 7101 £1+30 GOSUB LOOK2 

682 O43CF 311F LC(2) +CONNA Corina 

683 043D3 966 CHA iB Is it a conna 

684 04306 55 GOYES €1+35 No, then continue 

685 043D8 AFC ABEX W 

686 043DB 3380 LC(4) (SubstR)~(NFuncR) Range[N,S-func, substr] 
RO 

687 04361 72F1 GOSUB Range Is it a function ref, etc? 

688 043£5 AFC ABEX W 

689 043E8 5C2 GONC §=E1+32 Yes, then ohay 

6% O43EB 3182 LCASC \(\ No,... 

691 O43EF 965 BHC OO ... then do we have "(Expr,"? 

692 O43F2 53 GOYES Accept No, then error 

693 043F4 7681 GOSUB DELET2 Delete ( and Expr 

694 

695 O43F8 3D NIBHEX 30 LO(14) 

696 043FA 0000 CON(4) Oo Duntiy stack entry 

697 O43FE 80 CON(2)  NFuncR <« NFuncR> 

698 04400 0 CON(1) 0 Parti count 

699 04401 0000 CON(5)  (=CMPLX)-2 Exec ad - 2 
0 

700 04406 A? CON(2)  tCMPLX CMPLX token 

701 

702 04408 2 P= 15 

703 0440A AFR A=C Wd 

704 0440D 7FC1 GOSUB PUSH-P Push 16 nibbles (4 itens) 

705 onto stack 

706 04411 7B81 GOSUB LOOK2 Prepare for PARACK 

707 04415 7363 £1432 GOSUB PARNCK Increnent parn count & ck type 


708 044139 7561 GOSUB DELET1 Delete <E> 
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709 04410 D9 C=B A Recall Func ref u/new arg count 
710 O441F 7961 GOSUB INSRT1 Update paraneter count 
711 04423 6344 GOTO DUNAOS Check 1f next arg is durnny array 
712 a 
713 R= 
714 
715 04427 67EO Accept GOTO ACCEPT 
716 x- 

717 %- 
718 04428 3105 £€1+35 LCASC \)\ 
719 0442F 966 7ARC OB Is it a ]? 
720 04432 5F GOYES Accept No, then try to accept expr 
721 04434 31A0 LC(2) SubstR Yes, then check for Substr Ref 
722 04438 965 7BHC OB Is it a substring? 
723 04438 CE GOYES Accept No, then try to accept 
724 04430 7833 GOSUB PARNCK Increnent arg count 
725 04441 AAS C=B KS Copy arg count 
726 04444 317A LC(2) tISuB$ Inplied substring token 
727 04448 22 P= 2 Coripile 3 nibbles 
728 0444A 8E00 GOSUBL =OUTNBC Compile substring ref 
00 2 
729 04450 7A21 GOSUB DELET2 Delete <E> <SubstR> 
7% 04454 7841 GOSUB LOOK2 
731 04458 7621 GOSUB ODELET1 Delete <Exad> 
732 0445C 3100 LC(2) StartS 
733 04460 965 BHC OB Is this alone on stack? 
734 04463 50 GOYES SE1-10 No, then skip 


735 04465 821 KM=0 Yes, then clear Value Flag 
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736 EJECT 
737 JIS ITI I TOTTI IIIT III IIIT III SII IIIT IIIS ISI III IIS SSS S ASSL 
738 III IDA III DDI I ITI IIIT II II IAD ISIS III OI III ISI III III IIS ISI SSI II IAS 
739 aK 
740 **& Nane:(S) SE1-10 - String Operand Found 
741 a 
742 ** Category: PARUTL 
743 kk 
744 ** Purpose: 
745 ax Point of reentry for string funny functions 
746 xk 
747 *k Entry: 
748 ae P = 0 
743 aK DX = Qutput ptr (points past last nib of FFN code) 
750 x D(A) = Stack pointer 
751 a D1 = Input ptr (points past last char in FFN text, 
752 aR which is probably the closing paren) 
753 aa If a funny function 1s re-entering here, it should 
754 kK have set the XM bit to indicate that a value expression 
755 a has been parsed. 
756 RK 
757 ** NOTE: 
758 a At this point a nuneric operand has just been conpiled. 
759 xx Funny functions are a special type of function that 
760 Ke allow the expression parser to be extended to include 
761 x that have special parse and/or execution requirenents. 
762 x See IDS for a conplete description of how to inplenent 
763 ak a funny function. 
764 ak 
765 *k History: 
766 ak 
76? ae Date Progranner Modification 
768 RK. ween) Neioteesck! Ve tediiecwedi sesso ek 
769 - 09/27/83 B.S. Added docunentation 
a FOO IOI TIT I I ITIOTOOOTI TI OTT II 
772 SIO IOI IOI III II ITI OT II IIT IASI IIIA IS TSAI 
773 04468 REO =SE1-10 A=0 B 
774 0446B 804 A=A+1 PP String expression 
775 O446E 7891 GOSUB SCAN 
776 04472 31B5 SE LCASC \[\ 
777 04476 966 AKC OB Is it a [? 
778 04479 95 GOYES SE1+20 No, then continue 
779 0447B DB C=D A 
780 04470 136 CDOEX 
781 04480 163 DC=D0+ 4 Point to Look(2) 
782 04483 14A A=DATO B Read byte 
783 04486 134 DO=C Restore DO 
784 04489 3100 LC(2) Starts 
785 0448) 962 *A=C) OB Is it a StartS iten? 
786 0449 21 GOYES SE1+05 Yes, then change it to StartV 
787 04492 XC LC(1) StartR 
788 04495 366 TARE OB Is 1t a StartR iten? 
789 04498 BI GOYES SE1+10 No, then okay 


790 0449A 831 ?XM=0 Yes, then 1s Value Flag now set? 
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791 0449D 50 GOYES SE1+05 No, then change to StartS 
792 0449F B04 A=A+1 P Yes, then change to StartV 
793 044A2 BO4 = SE1+#05 A=A+1  P Change Start token 
794 044R5 DB C=D A 
795 044A7 136 CDOEX 
796 044AR 163 DO=D0+ 4 Get start token address 
797 O44AD 148 DRTO=A B Write out changed start token 
798 04480 134 DO=C Restore DO 
799 04483 3400 SE1+10 LC(5) (=SUB$)-2 Load address of SUB$ exec routine 
000 
800 O44BA F6 CSR A Throw away lowest digit 
801 O44BC 7CCO GOSUB INSRT1 Put these upper 4 digits on stack 
82 044(0 23 P= 3 Load lowest digit nou 
83 044€2 300 LC(1) (=SUB$)-2 
804 044C5 20 P= 0 
805 044C7 32A0 LC(3) SubstR Fill in SubstR token 
1) 
806 O44CC DA A=C A Nove to A to store on stack 
807 O44CE 6328 EO-J2 GOTO £0-10 Scan; goto £0 
808 x. 
809 ke 
810 04402 3498 SE1+#20 LC(5) (SExpr)7 (t&)7 (8) 
981 
811 044D9 7213 GOSUB BOPCOM Check for: 
812 <SExpr> <&> <SExpr> <??> 
813 044DD 3198 LC(2)  t& Check for: <SExpr> <&> 
814 044E1 962 A=C OB Found? 
815 04464 AE GOYES €0-J2 Yes, Scan; goto £0 
816 04466 34A8 LC(5) (SExpr)~ (tRELOP)~ (tRELOP) 
A814 
817 O44ED 7EF2 GOSUB BOPCON Check for: 
818 <SExpr> <relop> <SExpr> <??> 
819 044F1 591 GONC SUM+) If found then fall into REL code 
820 044F4 843 ST=0  NunExp 
821 O44F7 31A8 LC(2) tRELOP Relop 
822 O44FB 966 eAHC OB Is it a relop? 
823 O44FE 9 GOYES £1+03) No, fall into nun exp context 
824 04500 7833 GOSUB CKLFSD Yes, check for left-hand-side 
825 04504 49C GOC EO-J2 Found? No, then stack operator 
826 04507 63FD £€1+03) GOTO £1+03 Fall into nun exp context code 
827 7 
828 Re 
829 0450B 618) SUMN+) GOTO  SUN+10 
830 x. 
831 re 
832 IKI IIA IIIT IIIS III III ISIS IIIS ISI SII TIISISIII SII ISIS IIIS III IIA IA 
833 KI II STA III III IDI ILI III ISI I IITA IDI II IIIS IS IIIS III SSIS II SIS IST IIA 
834 zs 
835 . Nane:(S) ACCEPT - Funny function parse error reentry point 
836 
837 *k Category: PARRUTL 
838 ae 
839 ** Purpose: 
840 me This is the point where funny function parse routines 
841 xe should reenter if they detect an error 
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842 xe 
843 ** Entry: 
844 ae B(A) is stack pointer 
845 aE ACW) set by last call to NTOKEN (flexible, doesn’t 
846 ak natter if an error is being flagged) 
847 xx DO is output pointer (flexible, doesn’t natter if 
848 x an error is being flagged) 
849 a D1 is input pointer should point past first token 
850 ne not used in expressin (flexible, doesn’t natter 
851 aX if an error 1s being flagged). 
852 aK Status bits set by last NTOKEN call (or equivalent) 
853 aK 
854 ¥* Exit: 
855 aR See exit conditions for EXPRDC 
856 a 
857 *k History: 
858 aR 
859 ah Date Prograriner Modification 
860 RN Sossccua <sossiawuce'! | dcasesccesese ee echosc cscs ose Se 
861 *X 11/01/83 B.S. Added docunentation 

xt 
aes JOISTS OCC II IIIT I ITI IOS ITI OTITIS 
864 JOO II IIIT IOIGO GC IC OCI TST III TIT TI III 
865 O450F 853 =ACCEPT ST=1 NunExp Numeric expression 
866 04512 20 P= 0 Need P to be cleared 
867 04514 Db C=A A Save parse token 
868 04516 06 RSTK=C 
869 04518 133 ADIEX 
870 0451B 1FOO D1=(5) =AVMENE 

000 

871 04522 147 C=DAT1 A Read in end of stack pointer 
872 04525 131 D1=A 
873 04528 DF CDEX A Nove curr stk ptr to C(A) 
874 0452A 136 CDOEX 
875 0452D 14A A=DATO B LOOK(1) 
876 04530 163 DO=DO+ 4 Delete one stack iter 
877 04533 RE8 B=A B 
878 04536 14A R=DATO B 
879 04539 134 DO=C Restore pointer 
880 0453C 3170 iC(2) NExpr Expression 
881 04540 961 *B=C =o#B Is there an n-expr on stack 
8&2 04543 DO GOYES ACPT10 Yes, valid nuneric expr found 
883 04545 301 LC(1)  SExpr String expression 
884 04548 965 “BHC OB Is there an s-expr on stack? 
885 0454B D1 GOYES ACPT20 No, error in expression 
886 04540 843 ST=0 = NunExp Valid string expr found 
887 04550 30E =ACPTIO LC(1) StartV¥ Start of stack narker 
888 04553 962 7A=C OB Is 1t a Value expression? 
889 04556 £1 GOYES ACPT30 Yes, then okay 
890 04558 300 LC(1)  StartR Start of stack marker 
891 045568 962 *R=C OB Is it a Reference expression 
892 O455E Al GOYES ACPT40 Yes, then okay 
893 04560 300 LC(1)  StartS Start of stack marker 
894 04563 962 A=C OB Is 1s a Ref exp with substring 


895 04666 21 GOYES ACPT40 
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896 04568 850 ACPT20 ST=1 = InvalE Invalid expression 
897 O456B 853 ST=1 9 NunExp | Never invalid string expr 
838 O456E 8E00 GOSUBL =RESPTR Restore pointer 
00 


899 04574 79A2 ACPT30 GOSUB RTNSXN 

900 04578 07 ACPT40O C=RSTK 

901 0457A DA A=C A 

902 0457C 03 RTNCC Return fron expression parse 


Saturn Assertbler 
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903 
G04 FOI OI OTT 
905 FORO IOI OTTO TTT IIE TTT 
906 re 
907 ** Narie: DELET1 - Delete one iten fron parse stack 
908 ** Narie: DELET2 - Delete tuo itens fron parse stack 
909 kk 
910 ** Category: LOCAL 
911 ak 
912 ** Purpose: 
913 ak Nodify parste stack pointer so as to delete one (or 
914 ak tuo) iters. 
915 ak 
916 ek Entry: 
917 RK D(A) contains parse stack pointer 
918 ak 
919 kk Exit: 
920 ie D(A) contains modified parse stack pointer 
921 
922 *k Calls: DELET2 calls DELET1 
923 ak 
924 Rk Uses....... 
925 kk Inclusive: D(A) 
926 ak 
927 *k Stk lvls:  DELET1: 0, DELET2: 1 
928 aR 
929 ** Detail: 
930 aR Adds 4 to contents of D(A), no check is made to 
931 ae deternine if stack has underflouwed. 
932 ak 
933 *k History: 
934 ae 
935 ee Date Progranner Nodification 
936 RE cseceacs. -Seurdisncics,- “soetlacccc csi cw ccc ewescc ce eascnc se 
937 ** 10/28/83 B.S. Updated docunentation 
ax 
Re FOR II I OO OOOO IOI OT OT 
940 FORTIS TO TTTIT TOTTI 
941 0457E 7000 DELET2 GOSUB DELET1 Delete 1 token (then another) 
942 04582 £7 DELET1 D=D+1 A 
943 04584 E7 D=D+1 =A 
944 04586 E? D=0+1 A 
945 04588 E7 D=D+1 A Add 4 to pointer (pop 1 iter) 


946 O458A 03 


RINCC Return with carry clear 
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947 EJECT 
G48 SORORITIES Oe 
949 SOR I JOJO JOO JOJO TTI 
950 ax 
951 ** Nare: INSRT1 - Replace iten on top of stack 
3952 a 
953 ** Category: LOCAL 
954 tk 

‘ 955 xx Purpose: 

‘ 956 ax Nodify the first fron top of parse stack by ‘MEA EANS 

957 ax the contents of C(3-0) into it. 
958 ae 
959 &X Entry: 
960 ay D(A) contains pointer to first fron top of parse 
961 ak stack. 
962 ax 
963 eX Exit: 
964 RK Stack item is modified. Carry is clear. 
965 ax 
966 ek Calls: None 
967 ak 
968 ** Uses....... 
969 tk Inclusive: None 
970 ax 
971 ** Stk lvis: 0 
972 ax 
973 *k History: 
974 ae 
975 xx Date Progratiner Nodification 
976 PR? coscitee. GEM e ce. | Sw ee ete ot ae Bs 
977 aA 10/04/83 B.S. Updated docunentation 

? 

ae JI IO TOI OS IO OTT SI SII III III IOI ISAS IIA 
980 ORR IIIT OO OOO 
981 O458C DE INSRT1 ACEX A Move data iten to A 
982 O458E DF CDEX A Move stack pointer to C 
983 04590 136 CDOEX A Move stack pointer to DO 
984 04593 1583 DATO=A 4 Rewrite stack iten 
985 04597 136 CDOEX Restore DO 
586 0459A DF CDEX A Nove stack pointer to D(A) 
987 0459C DE ACEX A Restore A 


988 0459E 03 RTNCC 
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989 EJECT 
990 JU IIIS III IT II TI IIIT I III ISIS IIT IIIS IO SI ISI ISI IAS 
991 JORIS III III OCU II TI III TI II TIS TOT TITS III N 
992 ax 
993 ** Nane: LOOK - Look at parse stack 
994 ** Nane: LOOK2 - Look at parse stack 
995 ax 
996 ** Category: LOCAL 
997 ax 
998 ** Purpose: 
999 ae Retrieve the Nth parse stack iten below the top 
1000 ax where Nis greater than zero. Actually the Ntith 
1001 ak iten below the top is also returned in B(7-4) and 
1002 AX the Nth iten in B(3-0) 
1003 ax 
1004 ** Entry: 
1005 Ri P = 0 
1006 aK D(A) contains pointer to parse stack iten first fron 
1007 ie top. 
1008 ax 
1009 aa LOOK assunes C(O) equals the desired iten 
1010 ak nunber multiplied by 4 (1.e. 0 ==> LOOK(1), 
1011 ae 4 ==> LOOK(2), etc). LOOK2 loads a 4 in orger to 
1912 am do a look(2). 
1013 an 
1014 ek Exit: 
1015 ae B contains the desired stack itens 
1016 as 
1017 ** Calls: None 
1018 aie 
1019 RE US BS a iati ae 
1020 tk Inclusive: B(W),C(W) 
1021 = 
1022 ** Stk lvis: 0 
1023 x 
1024 ** Detail: 
1025 aK Reads tuo parse stack itens into the lower 8 nibbles 
1026 a of the B register. Since the iters are stored 
1027 te backuards in tieriory and each iten 1s reversed within 
1028 ae itself, the result cones out forward. 
1029 x 
1030 kx History: 
1031 ae 
1032 a Date Progranner Modification 
1033 at acacia etal ataeetetettatatetetatatatataetetatetetatatane 
1034 te 10/04/83 B.S. Updated docurrentation 
1035 ae 
1036 FORO ROTORRROIOJO OR ORO OOOO IO TIO IO 
1037 FOR JO OOOO ROTOR IOC OI GIGI IO ok OIRO OI 
1038 O45A0 304 LOOK2 LCHEX 4 Constant 4 implies LOOK(2) 
1039 045A3 D1 LOOK = B=0 A Clear address field 
1040 O45A5 A8S B=C P Copy in constant to be added 
1041 045A8 DB C=0 A Copy stack pointer to C 
1042 O45AAR C9 C=C+B A Add offset to stack pointer 


1043 O4SAC 136 CDOEX Move stack address to 0 
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1044 O45AF AFC ABEX UW Prepare to read 
1045 04582 1527 R=DATO W Read four stack itens 
1046 04586 AFC RBEX W Restore A, stack itens to B 
1047 04589 136 COOEX Restore DO 


1048 045BC 03 RTNCC 
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1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

106? 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

107? 

1078 O45BE BFS 
1079 045(1 BFS 
1080 045(4 BF5 
1081 045C7 BFS 
1082 O45CA 965 
1083 045(D 00 

1084 O45CF 01 
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EJECT 
FORO OIO II OTO TO TTITK 


FORO III TT TTT ITO TTI 
xx 


kk Nane: CMPBHC - Shift B and Compare to C(B) 
kk 


*k Category:  GENUTL 
ik 


** Purpose: 


xx Shifts B right 4 nibbles then compare B(B) with C(B) 
ak and sets the carry if they are not equal 

aK 

** Entry: 

aX C(B) contains value to be conpared to B(B) after 
aK B(W) has been shifted right 4 tines. 

&k 

kK Exit: 

xx B(W) has been shifted 4 tines. 

am Carry set if B(B)#C(B) on return 

ik 

kk Calls: None 

ak 

PAU SOS saul acces; 

** Inclusive: B(W) 

kk 

** Stk lvls: None 

re 


FOR JOO I OUI III IOC OI TOI 
JOO III OTTO OI IIIT TIT IT IT III IK 


=CNPBHC BSR W 
BSR W 
BSR W 
BSR W Shift over one token 
CHB OB Perforn corparison 


RTNYES Return u/carry set 1f not equal 
RTN Return uf/carry clear if equal 
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1085 
1086 JOO IIIS IOI IORI TE 
4087 JUICE IOI TTT IR 
1088 ak 
1089 *x Narie: RARANGE - Checks for ASCII A thru Z 
1090 as 
1091 ** Category:  GENUTL 
1092 salad 
1093 *% Purpose: 
1094 xt Check if A(B) in range of ASCII A thru Z 
1095 ak 
1096 at Entry: 
1097 aR P=0 
1098 ax ACB) is byte to be checked 
1099 ak 
1100 xe Exit: 
1101 xR Carry set if not in specified range 
1102 ax 
1103 ak Calls: None 
1104 aR 
1105 RE Uses..c.eee 
1106 xk Inclusive: C(A) 
1107 ax 
1108 *X Stk lvls: None 
1109 xR 
1110 SOIC III I OO OT 
4111 SOIC TTR TTR IT STAT 
1112 045D1 3314 =ARANGE LCASC \ZA\ 
AS 


1113 045D7 8D00 =Range GOVLNG =RANGE 
000 
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1114 
1115 
1116 
11? 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
113? 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1182 
1153 
1154 
4165 
1156 
Kae 
1168 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 


ax 
xk 
a 
ak 
ak 
ae 
a 
a 
ax 
a 
ak 
ax 
xx 
ax 
aK 
ak 
xx 
a 
xk 
ak 
ax 
ax 
xk 
aK 
xk 
ak 
xx 
xx 
aK 
aK 
a 
ak 
a 
ax 
a 
xx 
xk 
ak 
xx 
ak 
xk 
xX 
ak 
x 
kk 
xs 
xk 
an 
ak 
xk 
ak 
xk 


xs 
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EJECT 
SII IIIT ITO III III TTI STI II III OTIS III III IIIT II IIIT IIIT I AST TIM 
JI III III I III I TOOT III ITI III III IIIT ITS II SIT IIIT IIIA ITA 
Nane: SCAN ~- Push iter on parse stack and call NTOKEN 
Narie: PUSH-1 - Push iten on parse stack 
Nane: PUSH-P - Push items on parse stack 
Category: LOCAL 
Purpose: 
SCAN: 


Push the top of parse stack [A(3-0)] into RAM and 


call NTOKEN to get a new parse iter onto the top of 
the stack. 
PUSH-1: 
Push one iten on parse stack 
PUSH-P: 
Push word-through-pointer on stack 
Entry: 
D(A) contains pointer to top stack iter in menory. 
SCAN: 
A(3-0) contains the top of stack. 
PUSH-1; 
A(3-0) contains data to be pushed. 
PUSH-P; 


A(P-0) contains data to be pushed. 


Exit: 
A new stack item is added to stack. 
D(A) updated to new top of stack 


SCAN: 
Checks for a collision mith the code being conpiled 
before the new iter is added. 
See NTOKEN for other exit conditions 


Calls: PUSH-3, NTOKEN 


Inclusive: Sane as NTOKEN,D(A) 
Stk lvls: Sane as NTOKEN 
Detail: 


Decrenents D(A) four tines to make room for new ater 
and checks for a collision. If not, it stores the 


old top of stack item into RAM and goes to NTOKEN 
History: 
Date Progranner Modification 


ed we ee eee ee wee ee ee ee a ee ee ee ee ee ee ew eee eee 


10/25/83 B.S. Updated docunentation 
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1169 
1120 
171 
1172 O45DE 23 
1173 O45E0 D2 
1174 O45E2 803 
1175 O45E5 £3 
1176 O45E7 136 
117? O45€A 8BF 
1178 O45ED 71 
1179 O45EF DF 
1180 O45F1 136 
1181 O45F4 1501 
1182 O45F8 136 
1183 O45FB DF 
1184 O45FD 136 
1185 04600 20 
1186 04602 03 
1187 04604 8C00 
00 
1188 O460A 700F 
1189 O460E 6000 
1190 
1191 
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KK KEKK ARERR KIKKK ARIK RE R IER IIR IRR IIR IKI III IIR III II RII I IK 
SOR IOJOIOTOTT OTTO TT IGT TI 


=PUSH-3 
=PUSH-P 


COLLIS 
SCAN 


re 
x 


P= 3 

C=0 AR 
C+P+1 

D=D-C A 
CDOEX 

*C>=D A 
GOYES COLLIS 
CDEX A 
CDOEX 

DRTO=A WP 
CDOEX 

CDEX A 
CDOEX 

P= 0 
RTNCC 

GOLONG =NENERR 


GOSUB PUSH-3 
GOTO =NTOKEN 
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1192 

1193 

1194 

1195 

1196 

119? 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 04612 8F 
000 

1225 04619 400 

1226 O461C 8C00 
00 

122? 

1228 

1229 04622 136 

1230 04625 1B00 
000 

1231 0462C 1564 

1232 04630 134 

1233 04633 BF4 

1234 04636 BE4 

1235 04639 21 

1236 0463B BO4 

1237 O463E 20 

1238 04640 A4E 

1239 04643 A4E 

1240 04646 415 

1241 04649 A4E 

1242 04640 465 

1243 O464F 6141 
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FORO TORII I III ITT TE ITI IK 
FOI TTT TTT TTT TI TTI TTI 
ax 


*k Nanie:(S) CONCOM - Compile a Nuneric Constant 
tt 


** Category: PARUTL 


ia 
*k Purpose: 

aR Compiles a nuneric constant (Single digit, Long Int or 
aK Long Real) 

ak 

kk Entry 

a © is output pointer 

ie A,B set by NTOKEN 

th D(A) = (AVMENE) 

tk P=0 

ik 

BR EXER? 

ak Carry clear if constant found, set otheruise 
ak P = 0 

ik 

ER Cal let DRANGE , OUT1TK, OUTNBS, RANGE 

xk 

MP USES in. ea seer 

*k Inclusive: A(W),B(W),C(W) 

ak 

x* Stk lvls: 1 

aK 


FOI III III I TOTTI TTT ITI TT TOTTI STI IIT 
JOR TOIT OO TTT IT TTI 
R.. 


CONC20 GOSBVL =ORANGE 


RINC 
outitk GOLONG =QUTITK 


a 
a 


SMALL CDOEX 
DO=(5) =UNFNIB 


C=DATO § 
bo=C 
ASR W 
ASR B 
= 1 
A=A+1 P 
P= 0 
C=C-1 § 
C=C-1 § 
GOC UNDF: 1 Underflou trap=1 
C=C-1 § 
GOC UNDF: 2 Underflou trap=2 


GOTO 3 =Parn€r 
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1244 ee 
1245 & 
1246 04653 3111 CHKCON LC(2) =tSMALL 
1247 04657 962 7A=C iB 
1248 O465A &C GOYES SMALL 
1249 0465C CE C=C-1 A 
1250 O465E 962 7A=C OB 
1251 04661 B85 GOYES BIG 
1252 04663 3321 LC(4) 0 (tFLT1 7 (tFLT12} 
01 
1253 04669 7AGF GOSUB Range 
1254 0466D 401 GOC CONCON 
1255 04670 7710 FLICON GOSUB CONC10 
1256 04674 22 P= 2 
1257 04676 D4 A=B A 
1258 04678 8C00O outnbs GOLONG =OUTNBS 
00 
1259 x 
1260 a 
1261 O467E 3320 =CONCOM LC(4) (tINT2)7~(tINTI2) 
CO 
1262 04684 7F4F GOSUB Range 
1263 04688 498 GOC CONC 20 
1264 0468B D6 CONC10 C=A A 
1265 0468) B8E C=-C-1 P 
1266 04690 80D0 P=C 0 
1267 04694 63EF GOTO outnbs 
1268 & 
1269 t- 
1270 04698 3103 UNDF:1 LCASC \0\ 
1271 0469C 7539 GOSUB OUTBYj 
1272 O46R0 501 GONC UNDF10 (B.E.T.) 
1273 a. 
4 1274 ke 
: 1275 046A3 UNDF : 2 
1276 046A3 3201 LCHEX 01D One digit float=0? 
0 
1277 046A8 932 *R=C OX Has this nun denornalized to 0? 
1278 O46AB DE GOYES UNDF:1 Yes, then change to zero 
1279 O46AD 7FBF GOSUB FLTCON 
1280 04681 3300 UNDF10 LC(4) =eUNFLW 
00 
1281 04687 20 P= =UNP Paraneter for =HNDL20 (Underflouw) 
1282 P=1 
1283 
1284 046B9 514 GONC CONWRN (B.E.T.) 
1285 k. 
1286 k- 
1287 O468C 136 BIG CDOEX 
1288 O46BF 1B00 DO=(5) =OVFNIB 
000 
1289 046C6 1564 C=DATO S$ 
1290 O46CR 134 do=C 
1291 046CD A4E C=C-1 $ 
1292 04600 A4E C=C-1 §$ 
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1293 046D3 471 
1294 04606 R4E 
1295 04609 4A 
1296 O46DC 64B0 


1297 
1298 


x. 
xe 


1299 O46E0 632F MenErr 
ke 


1300 
1301 
1302 
1303 
1304 
1305 
1306 


1307 
1308 
1309 
1310 
1314 
1312 
1313 
1314 
1315 
1316 


131? 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
132? 


1328 
1329 
1330 
1391 
1332 
1333 
1334 
1335 
1336 


433? 
1338 


1339 
1340 


046E4 
046E8 
O46EB 
O46EF 
046F 3 


046F3 


O46FB 
O46FB 


O46FE 
04700 
04702 
04704 


0470B 


04700 
04710 
04713 


04716 
04719 
04710 
04716 


04725 
04729 
04720 
0472F 
04732 
04736 
04739 
04738 
0473E 


04744 
04747 


04740 
04753 


k 


3107 OVFL:2 
4 

31€6 OVFL:1 
72E8 CHKC40 
300 

00 

20 


CONWRN 
108 


DB 
DS 
D2 
8FOO 
000 


0? 


137 
103 
169 


136 
8B5 
AC 
1 B00 
000 
1509 
144 
136 
109 
1593 
164 
D9 
144 
SEOO 
00 
118 
REOO 
00 
BEOO 
00 
8FOO 


. 900 


GOC 
C=C-1 
GOC 
GOTO 


GOTO 


LC(2) 
GOC 

LC(2) 
GOSUB 
LC(4) 


C=RSTK 


CDIEX 
R1i=C 
DO=D0+ 


CDOEX 
70>B 
GOYES 
DO=(5) 


A=DATO 
DATO=C 
D1=C 
D1=D1- 
DAT1=A 
DO=00+ 
C=B 
DATO=C 
GOSUBL 


C=RO 
GOSUBL 


GOSUBL 
GOSBVL 


OVFL:1 
S 

OVFL:2 

ParnEr 


COLLIS 


=tINF 
CHKC40 
=tMAXRL 
OUTBY j 
=eOVFLW 


=OVP 


“1 pwDwwD 


HNDL2O 


10 


R 
MenErr 
=AVNENS 


10 


x» 


10 
10 
5 
A 
A 


=R<RST2 


=MFWROQS 
=RST2<R 
=D=AVNE 
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(B.E.T.) 


Paraneter for =HNDL20 (Overflow) 
P=2 


Save warning nunber 


B(A)= parse stk ptr 
Set flags (uses C(W),A(A),D(X)) 


Need this subroutine level back 

will jurp to P1-10 when done 

C(A)=01 

Save D1 

Move over space to hold 
AVMENS& RVMENE 


Is there enough menory? 
No, then error out 


Read AVNENS&AVNENE 
AVMENS points past this save area 


Point at save area 
Save AYMNENSSAVMNENE 
Point at AVMENE 
C=Parse stach pointer 
This becones RAYNENE 
Save 3 stack levels 


Recall warning nunber 
Display warning 


Restore 3 stack levels 


Restore parse stack pointer 
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1341 0475A 1F0O 01=(5) =AVNENS 
000 
1342 04761 143 A=DAT1 A 
1343 04764 130 DO=A 
1344 04767 189 DO=D0- 10 Point at save area 
1345 0476A 15A9 A=DATO 10 Read AVMENS&AVNENE 
1346 0476E 1599 DAT1=A 10 Restore AVNENS&AVNENE 
1347 04772 119 C=R1 Recall 01 
1348 04775 135 b1=C Restore D1 


1349 04778 684A GOTO P1-10 Now rejoin parse 
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1360 
1351 JOIICISUICISI IIIS IIIA IGT TIE 
1352 JI ISI TI III III III IIT III III III III III IAT III III III IIIS SIS IIA IK 
1353 ae 
1354 ** Nane: PARNCK - Check nunber and type of paraneters 
1355 xk 
1356 **k Category: LOCAL 
1387 x 
1358 ** Purpose: 
1359 i Increnent paraneter count and check pararieter type 
1360 
1361 xx Entry: 
1362 aK B( 7-0 )=XXXXXCFF 
1363 ak where XXXXX is exec addr-2, 
1364 ates C 1s argunent count and 
1365 ak FF 1s either SFuncR,NFuncR or SubstR 
1366 kK ST(NunExp) = 0 iff paraneter is nuneric 
1367 ae 
1368 RK Exit: 
1369 kx 8(XS) is increrrented to reflect new arg count 
1370 km Doesn’t return if arg count overflows or paraneter 
1371 xm type doesn’t match--pops stack and junps to ACCEPT 
1372 kk instead. 
1373 an RO=B(W) 
1374 ax A(2)=nax parns, A(1)=Min parns 
1375 as 
1376 ** Calls: GETDSC 
1377 ax 
1378 RR USOS scx sade 
1379 ** Inclusive: A(X),C,R1 
1380 a 
1381 RX Stk lvls: 1 
1382 sis 
1383 ** Detail: 
1384 ax The paraneter count 1s increnented and checked 
1385 ie for being either greater than 15 or greater than 
1386 xk the raxiriun nuriber of paraneters allowed for that 
138? ae function. The paraneter descriptor nibble for that 
1388 = parareter nurber for that function is used to 
1389 xe determine if that type (string or nuneric) 1s 
1390 zx permitted. These descriptor nibbles are coded such 
1391 xe that the highest bit 1s set 1f a nuneric paraneter 
1392 ae is allowed and the next highest bit 1s set if a 
1393 ae string paraneter is allowed. At least one of these 
1394 aoe bits rust be set. 
1395 a 
1396 ** History: 
1397 Ae 
1398 aX Date Progranrier Modification 
1399 KR we nen ne ween e cere tenn n nner re reenter een en eee nee eeee 
4400 kk 10/04/83 B.S. Updated docurientation 
a 
ree JOIST IGIII IOI TI EO OIRO OCI SII II 
1403 FORO IR TORRR R JOO TOO OR OI OI SITIO 


1404 0477C 7710 PARMCK GOSUB GETDSC Get descriptor nibble 
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1405 04780 401 
1406 04783 873 


GOC ParnEr 
?$T=1  NunExp 


Is current paraneter nuneric? 


1407 04786 50 GOYES PARMIO Yes, then okay 

1408 04788 A46 C=C+C § No, shift over descriptor bits 
1409 0478B R46 =~ PARMIO C=C+C S Test high bit 

1410 0478E 400 RTNC Return if paraneter type okay 


1411 04791 07 
1412 04793 6870 


ParnEr C=RSTK 
GOTO ACCEPT 


Throw away return address 
Junp to process error 


1413 xe 

1414 ae 

1415 * GETDSC 

1416 * Entry: B(XS)=arg count, B(M)=Exad-2 

1417 * Exit: Carry set if too many parns 

1418 x C(S)= paraneter descriptor nibble 

1419 x P=0 

1420 04797 B25 GETDSC B=B+1 XS Increnent Parn count 

1421 04739R 400 RTNC Too many parns? Return error 
1422 0479D AF9 C=B W 

1423 047A0 1039 R1=C Save a copy of B in Ri 

1424 047A3 8002 P=C 2 Copy current parn count to P 
1425 04787 BF6 CSR W 

1426 047AR BF6 CSR W 

1427 O47AD BF6 CSR W Get Exad-2 

1428 04780 136 CDOEX 

1429 047B3 14A A=DATO B Read parn range 

1430 04786 136 CDOEX 

1431 047B9 BBO ASL X ACXS)=Max parns, A(1)=Min parns 
1432 047BC 9R4 BoA XS Too many parns? 

1433 047BF 00 RTNYES Yes, then return error 

1434 047C1 FE C=-C-1 A Conplenent Address 

1435 047C3 809 C+P+1 Add Parn nunber 

1436 047(6 FA C=-C A Conplenent back=(Addr-(P+1)+1) 
1437 047C€8 20 P= 0 

1438 047CA 136 CDOEX 

1439 047(D 1564 C=DATO § Read paraneter descriptor 
1440 04701 136 CDOEX 

1441 04704 03 RITNCC Return without error 

1442 x. 

1443 Ba 

1444 04706 841 FCNTYP ST=0 String Assure Nuneric function 

1445 047D9 3180 LC(2)  NFuncR Nuneric func 

1446 047DD 961 *B=C iB Is it a nuneric func ref? 
1447 047E0 00 RTNYES Yes, then okay 

1448 047E2 3*9 LC(1) 9 SFuncR String func 

1443 047E5 365 BHC OB Is it a string func ref? 
1450 047E8 9A GOYES ParnEr No, then accept 

1451 O47EA 851 ST=1 = String Yes, then set string flag 
1452 O47ED 03 RTNCC 


1453 


x. 
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1454 EJECT 
1455 FORO TT TE OOOO 
1456 JO III TOOT III OTTO TOIT I TAI TAK 
1457 wr 
1458 xx Name: BOPCON - Corpile a binary operator 
1459 ak 
1460 ** Category: LOCAL 
1461 xk 
1462 xk Purpose: 
1463 x Checks for reducible Binary OPerators on parse stack 
1464 xR and COMpiles operation and deletes itens fron stack 
1465 aR if found 
1466 ak 
1467 xk Entry: 
1468 xn C(4-O)=THHLL where T 1s lowest nibble of Look(3), 
1469 x HHLL is range of allowable binary operators. 
1470 ak 
1471 £® Exit: 
1472 a Carry set 1f nothing found (or compiled) 
1473 a Carry clear if proper <Iten> <BOP> <E> <??> found. 
1474 ak If found then code w11l have been compiled and 
1475 eR <BOP> and <E> will have been deleted fron stack 
1476 a 
1477 xk Calls: LOOK2, RANGE, OUTITK,DELET1 
1478 ae 
1479 RE USES «is. ice ssc 
1480 ** Inclusive: B,C,R1 
1481 aS 
1482 ** Stk lvls: 2 
1483 aK 
1484 ** History: 
1485 a 
1486 ae Date Prograrner Modification 
1487 RK manne nnn ee een nen enn nnn nnn rn nn ne nnn ne nnn een nnn nee 
1488 xk 10/04/83 B.S. Updated docunentation 
xx 
eG FORO IIIT TO TOI 
1491 FOOT IIIT TOIT OOO JO OTRO 
1492 O47EF 109 BOPCON R1=C Save parareters 
1493 047F2 7RAD GOSUB = LOOK2 
1494 047F6 24 P= 4 
1495 O47F8 119 C=R1 Recall paraneters 
1496 047FB 905 BHC OP 
149? O47FE 52 GOYES BOPC10 
1498 04800 20 P= 0 
1499 04802 REC ABEX 8B 
1500 04805 7ECD GOSUB Range 
1501 04809 AEC ABEX B 
1502 04800 400 RTNC 
1503 O480F AEC ABEX B 
1504 04812 760E GOSUB outitk 
1505 04816 AEC ABEX 8B 


1906 04819 756) DL2SXM GOSUB DELET1 
1507 04810 716D DLISXM GOSUB DELET1 
1508 04821 00 RTNSXM RTNSXM 
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1509 A- 
1510 ke 
1511 04823 20  BOPC1O P= 0 
1512 04825 02 RTNSC 


1513 A 
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1514 
1515 
1516 
1517 
1518 
1519 
1520 
1621 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
154? 
1548 
1549 
1550 
1551 
1652 


1653 
1554 
1555 
1556 
1557 


04827 DO 
04829 136 
0482C 1B00 
000 
04833 1580 
04837 134 
O483R 01 
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JECT 
LS.2.6.6.9,0,.9.5.9,0,9.0.6.5,.9,.0.9.9,0.0.0.4.5.5,.9,.9,.0.0,5.5.2.0.2,5,9,5,5,9.9,.0,9,6,5,.0,0,0,5.0,.9,.9,.5,5,.5.0.0,0,0,5,0.9.9.5.1 


FORO OI TTT TTT TI ITI II 
ak 


ak Narie: CLRPRN - Clear paraneter count nibble (PRMCNT) 
kk 


** Category: PARUTL 

ah 

** Purpose: 

. Clears paraneter count nibble (PRNCNT) 
k 


ek Entry: 

ak 

ak Exit: 

ha Pp 

kk A(A) 


ak C(A) 
kk 


ik 
kk 

kk 

** Calls: None 

ak 

BE USES Sev ces 

xk Inclusive: A(A),C(A) 
kk 


** Stk lvls: 0 
ke 


tk History: 
ak 


ak Date Prograrner Modification 
1k. Bececela: eeiiactem ~Senewaicceds sous ececeeausteceseeee 


AK 10/26/83 «B.S. Added docunentation 

kk 

JI TO IOI IO I OT TO TR TE 
JI III III TID TAT ID TI II TIT IAT IT IIIA IT I III III IIIA IIT IIIS IAI IA 


=CLRPRN A=0 A 
SETPRM CDOEX 
DO=(5) =PRACNT 


0 
0 
DO at tine of entry 


DATO=A 1 Write out the nibble 
DO=C 
RIN 
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1558 
1559 $Y IOI ITO TOI III SI III OSI III RII I TID TIT 
1560 SOI IOI JOR JOSS JOO OO OTS 
1561 kk 
1562 ** Nane: CKLFSD - Check if on left hand side of equals 
1563 ax 
1564 ** Category: LOCAL 
1565 RK 
1566 &* Purpose: 
1567 . Checks for left hand side of equals sign (LET parse) 
1568 
1569 kk Entry: 
1570 aK A(B)=Suspected = token. 
1571 ak LeftSd(S7) set if looking for left-hand-side 
1572 x 
1573 &* Exit: 
1574 ak Carry clear iff valid left-hand-side has been found 
1575 ak 
1576 ** Calls: RANGE, LOOK2 
1577 kk 
1578 ek Uses....... 
1579 tk Inclusive: C(A),B(B) 
1580 ai 
1581 ** Stk lvls: 1 
1582 cg 
1583 xx Detail: 
1584 a If LeftSd is set then if A(B) is an equals token 
1585 aK then the stack is checked for a StartS or StartR. 
1586 ax The carry will be returned clear iff one of these 
1587 a is found. 
1588 as 
1589 &*® History: 
1590 en 
1591 aX Date Progranner Modification 
1592 BR ene n mene meme ee eens semen eee e ence n re cce nen ccncewccrnane 
1593 10/05/83 B.S. Updated docurentation 
1206 FORK JOO OTITIS OT TTT TOS ITOK 
1596 $I III I ISI ITI III II III III SISS IOI II ISS SSIS ISI II III IDI III III IK 
1597 0483C 867 CKLFSD ?ST=0 = LeftSd Looking for left-hand-side? 
1598 O483F 00 RTNYES No, then return 
1599 04841 32A8 LC(3) t= 
2 
1600 04846 936 PARC OX Is 1t an equals token? 
1601 04849 00 RTNYES No, then return 
1602 0484B 715D GOSUB LOOK2 Look at stack 
1603 0484F 33C0 LC(4) (StartS)" (StartR) 
DO 
1604 04855 REC ABEX 8B 
1605 04858 787D GOSUB Range Set carry if not StartR or StartS 
1606 0485C AE4 A=B B Restore A(B) 
1607 O485F 01 RIN 
1608 ae 


1609 a 
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1610 EJECT 

1611 04861 D2 DUNARY C=0 A 

1612 04863 7C3D GOSUB LOOK 

1613 04867 7C2F DUMAOS GOSUB GETDSC 

1614 0486B 431 coc DUNAER Jurip if error found 

1615 O486E ACS B=C S$ 

1616 04871 A46 C=C+C § 

1617 04874 A46 C=C+C §$ 

1618 04877 A46 C=C+C $ Is an array required here? 

1619 0487A 4E0 GOC DUNA10 Yes, then look for one 

1620 04870 7000 GOSUB =NTOGKEN No, then resurie expr evaluation 

1621 04881 6548 GOTO £0; 

1622 he 

1623 x 

1624 04885 698C DUNAER GOTO ACCEPT 

1625 ke 

1626 7 

1627 04889 119 DUNAIO C=R1 

1628 0488C ACI C=B S 

1629 O488F 109 R1=C Save parn desc in R1(S) 

16% 04892 7000 GOSUB =NTOKEN Get next token 

1631 04896 86B ?8T=0 VarFlg Is 1t a variable (or an array) 

1632 04899 CE GOYES DUNMAER No, then Error: Array required 

1633 04898 119 C=R1 Recall updated parn count & desc 

1634 0489E AFS B=C W Move function header back into B 

1635 048A1 861 *ST=0 String Is it a string? 

1636 048A4 50 GOYES DUNA2O No, then skip 

1637 048A6 A46 C=C+C § Throw away numeric allowed bit 

1638 048A9 A46 = BUNA2O C=C+0 SS 

1639 O48AC 58D GONC DUNMNARER Error: Paraneter type 

1640 O48AF 8E00 GOSUBL =OUTVAR No, then treat var as an array 
00 

1641 048B5 D9 C=B A Copy paraneter count back 

1642 048B7 710C GOSUB INSRT1 Update paraneter count 1n stack 

1643 O48BB 8£00 GOSUBL =GNXTCR Get next character 
00 

1644 {should be corima or ")") 

1645 048C1 171 DI=D1+ 2 Skip past this character 

1646 048(4 31C2 LCASC \,\ 

1647 048(8 966 AHC OB Is 1t a conna? 

1648 048CB 60 GOYES DUMA70 No, then look for right paren 

1649 O48CD 699F GOTO  DuUMAOS Yes, then check if another dunrty 

1650 array needed 

1651 a 

1652 a 

1653 04811 8E0O DUNA70 GOSUBL =DUNASO Check nin number of paraneters 
00 

1654 048D? 4DA GOC DUMRER Error if not ")" or 

1655 if mininun not net 

1656 O48DA 74AC GOSUB DELET1 Delete an iten from stack 

1657 O48DE 74FE GOSUB FCNTYP Set status bit for type of fcn 

1658 O48E2 GESA GOTO  FCNCONM Coripile function 


1659 048E6 END 
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=ACCEPT Abs 17679 #0450F - 865 356 444 607 7165 1412 1624 
ACPTIO Abs 17744 #04550 - 887 882 
ACPT2O Abs 17768 #04568 - 896 885 
ACPT3O Abs 17780 #04574 - 899 889 
ACPT40 Abs 17784 #04578 - S900 892 895 
=RRANGE Abs 17873 #04501 - 1112 291 


RVMENE Ext - 870 

AVNENS Ext - 1327 1341 

Accept Abs 17447 #04427 - 715 692 720 723 
Arglst Abs 2 #00002 266 386370 


BIG Abs 18108 #046BC - 1287 1251 
BOPC1O Abs 18467 #04823 - 1511 1497 
BOPCON Abs 18415 HO47EF - 1492 487 522 549 570 579 811 817 
CHKC40 Abs 18159 #046EF - 1305 1303 
CHKCON Abs 18003 #04653 - 1246 301 
CKLFSD Abs 18492 #0483C - 1597 564 824 
=CLRPRM Abs 18471 #04827 - 1550 
=CMPBHC Abs 17854 #045BE - 1078 509 
CHPLX Ext - 699 
COLLIS Abs 17924 #04604 - 1187 1178 1299 
CON1 Abs 17103 HO42CF - $75 572 
CONC1O Abs 18059 #04688 1264 1255 
CONC20 Abs 17938 #04612 - 1224 1263 


=CONCON Abs 18046 #0467E - 1261 1254 
CONWRN Abs 18171 #O46FB - 1310 1284 
CSRW3 Ext = 391 
Conjun Rbs 6 #00006 - 254 569 573 
D=AVNE Ext - 276 1340 
DELET1 Abs 17794 #04582 - 942 388 657 708 731 941 1506 1507 
1656 


941 613 676 693 729 
1807, 511 «537 = 628 


DELET2 Abs 177% #0457E 
DLISKM Abs 18461 #04810 


DL2SKXMN Abs 18457 #04819 - 1506 598 
DRANGE Ext - 1224 

DUMAOS Abs 18535 #04867 - 1613 711 1649 
DUNAIO «Abs 18569 #04889 - 1627 1619 
DUNAZO Abs 18601 #048A9 - 1638 1636 
DUNR70 Abs 18641 #048D1 - 1653 1648 
DUNA8O Ext - 1653 

DUNRER Abs 18565 #04885 - 1624 1614 1632 1639 1654 
DUMARY Abs 18529 #04861 - 1611 395 

£0 Abs 16374 #O3FFE- 286 353 

£0+05 Abs 16419 #04023 - 296 292 

£0+10 Abs 16429 #0402D- XO 295 

F0+20 Abs 16443 #0403B - WW? W2 

FO+% Abs 16462 HO404E - 314 39 

EO+40 =Abs 16488 #04068 - 322 315 


F0+40. Abs 16529 #04091 - 339 331 

£0+41 Abs 16587 #040CB - 356 317 341 349 
E0+41. Abs 16591 #O040CF - 359 324 

E0+42 Abs 16600 #04008 - 362 327 360 

E0+44 Abs 16602 #O40DR - 363 345 

£0+46 Abs 16638 HO40FE - 376 374 

£0+48 Abs 16696 #04138 - 395 387 413 

F0+52 Abs 16700 #0413C - 398 371 
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£0+54 Abs 16709 #04145 - 401 392 
£0+60 Abs 16724 #04154 - 408 385 
£0+64 Abs 16763 #0417B - 421 410 
£0+68 Abs 16829 #041BD - 444 415 419 431 510 
E0-10 Abs 16370 HO3FF2 - 283 290 496 566 807 
E0O-JO Abs 17077 #04285 - 566 529 544 547 577 587 
EO-J2 Abs 17614 #O44CE - 807 815 825 
£0) Abs 16583 #04007 - 353 1621 
E1 Abs 17131 #042EB - 584 
£1+03 Abs 17147 #O42FB - 588 826 
£1+03} Abs 17671 #04507 - 826 823 
E1+05 Abs 17160 #04308 - 594 590 
E1+08 Abs 17186 #04322 - 604 600 
E1+09 Abs 1719 #04326 - 607 618 636 
E1+10 Abs 17194 #0432R - 610 597 
E1+15 Abs 17198 #0432E - 612 
E1+20 Abs 17209 #04339 - 615 405 
E1+30 Abs 17355 #043(B - 681 591 
E1432 Abs 17429 #04415 - 707 689 
E1+35 Abs 17451 #0442B- 718 684 
E1-10 Abs 17123 #O42E3 - 582 
£2 Abs 17355 #043CB - 680 
=EXPP10 Abs 16355 HO3FE3 - 277 
=EXPPAR Abs 16345 HO3FD9 - 275 


=EXPPLS Abs 16348 HOSFDC - 276 
FA Abs 16862 #O41DE - 492 489 
FI+#05 Abs 16875 #O41EB - 499 495 
FI+10 Abs 16902 #04206 - $06 520 


Fi+20) Abs 16927 #O421F - 517? 503 
FCNCOS Abs 17251 #04363 - 638 634 
FCNC1O Abs 17270 #04376 - 645 643 
FCNC1S Abs 17272 #04378 - 646 652 
FCNC20 Abs 17281 #04381 - 650 632 
FCONC30 Abs 17306 #0439R - 658 677 
FCONC32 Abs 17319 O43A7 - 662 659 
FCNC35 Abs 17328 #043B0 - 667 663 
FCONC4O Abs 17332 #04384 - 670 655 
FCNC42 Abs 17338 #043BA - 672 647 
FCNC45 Abs 17348 #04304 - 676 
FCNCOM Abs 17217 #04341 - 619 1658 
FCNTYP Abs 183% #04706 - 1444 610 1657 
FLTCOM Abs 18032 #04670 - 1255 1279 
=FRange Abs 46186 HOB46A - 263 342 


Factor Abs 2 #00002 - 250 486 490 
GETDSC Abs 18327 #04797? - 1420 1404 1613 
GNXCR+ Ext - 380 416 
GNXTCR Ext - 1643 

HNDL2O Ext - 1316 


INSRT1 Abs 17804 #0458C - 981 491 513 526 541 560 574 583 
710 = 801-1642 

InvalE Abs © #00000 - = 264 277 = 439896 

LASTFN Abs 180 #000B4 - 262 263 

LOOK Abs 17827 #O45A3 - 1039 382 425 1612 

LOOK2 Abs 17824 #045AO0 - 1038 499 530 594 627 681 6 7H 
1493 1602 
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1172 399 1188 
1173 363 379 = 704 
1411 1243 1296 1405 1450 


=PUSH-3 Abs 17886 HO45DE 
=PUSH-P Abs 17888 #O45E0 
ParmnEr Abs 18321 #04791 


Ver. 3.39/Rev. 206 Synbol Table Page 42 
LeftSd Abs 7 #00007 - «268 )=—275)—-1597 

MEMBER Ext ~ 289 

MEMERR Ext - 1187 

MFURQ8 Ext - 1338 

MenErr Abs 18144 #04660 - 1299 1326 

NExpr Abs 7 #00007 - 255 578 582 880 
NFuncR Abs 8 #00008 - 256 «89372 «686 = 697 1445 
NPrin Abs 0 #00000 - = 248 

NTOKEN Ext - 438 1189 1620 163 
NuriExp Abs 3 #00003 - 267 440 584 599 820 865 886 897 

1406 

OUTITK Ext - 1226 

OUTBY) Abs 16341 #O3FD5 - 272 535 661 1271 1305 
OUTLI1 Ext - 316 

OUTNBC Ext - 557 728 

OUTNBS Ext - 1258 

QUTNIB Ext - 437 

QUTVAR Ext - 296 310 435 646 1640 
OUTbyt Ext =. 272 

OVFL:1 Abs 18155 #046EB - 1304 1293 

OVFL:2 Abs 18148 HO46E4 - 152 1295 

OVFNIB Ext - 1288 

OvP Ext - 137 

Pt Abs 16840 #041(08 - 486 514 
=P1-10 Abs 16833 #04101 - 484 297 61 664 1349 
P1-10) Abs 16425 #04029 - 297 HWA4 

Pi-J2 Abs 17182 #O431E - 601 

PARNIO Abs 18315 #0478B - 1409 1407 

PARNCK Abs 18300 #04770 - 1404 612 707 724 
PRESCN Ext - 382 

PRNCNT Ext - 1552 

QUOTCK Ext - 344 

R<RST2 Ext - 1336 

RANGE Ext - 1113 

REL#10 Abs 17081 #04289 - 569 563 565 

REL-OS Abs 17053 #04290 - 559 551 

REL Abs 17061 #042A5 - 561 

RESPTR Ext - 350 898 

RST2«<R_ Ext - 1339 


RTNSXM Rbs 18465 #04821 1508 W3 318 899 

=Range Abs 17879 #04507 - 1113 294 323 340 344 502 528 586 
687 1253 1262 1500 1605 

Relat Abs 5 #00005 - 253 «548 = 559 

SCAN Abs 17930 #O460A - 1188 283 485 775 

SE 1 Abs) 17522 #04472 - 776 

SE1+405 Abs 17570 #044A2 - 793 786 791 

SE1+10 Abs 17587 #044B3 - 799 789 

SE1#+20 Abs 17618 #044D2 - 810 778 

=SE1-10 Abs 17512 #04468 - 773° 311 319 604 667 73% 

SETPRM Abs 18473 #04829 - 1551 361 

SExpr Abs 1 #00001 - 249° «810-816 883 


SFuncR Abs 9 #00009 - = 257 3751448 
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SMALL 
SUBS 
SUN+10 
SUM+ ) 
SUN-10 
SUN 
StartR 
StartS 
Start¥ 
String 
SubstR Abs 
Sur Rbs 
1 Abs 
Tern Abs 
UNDF1O Abs 
UNDF:1 Abs 
UNDF:2 Abs 
UNFNIB Ext 
UNP Ext 
VarFlg Abs 
eOVFLW Ext 
eUNFLW Ext 
outitk Abs 
Abs 
Abs 
t* Abs 
tt Abs 
t- Abs 
= Abs 
tADIGO Abs 
tADIG9 Abs 
tAND Abs 
tARRAY Abs 
tCMPLX Abs 
tCONNA Abs 
tDIV Abs 
tEXOR Abs 
tFLT1 Abs 
tFLT12 Abs 
tFN Abs 
tINF Abs 
tINTi2 Abs 
tINTC Abs 
tISUB$ Abs 
tLPRP Abs 
tMAXRL Abs 
tNOT Abs 
tOR Abs 
tRELOP Abs 
tSMALL Abs 
tSVAR = Abs 
tKFN Abs 
tXWORD Abs 
+ Abs 


Abs 
Ext 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 


2X6 Synbol Table 


17954 #04622 
17037 #O428D 


17675 #0450B - 


17002 #0426R 
17006 #0426E 
12 #OOOOT 

13 #OOOOD 

14 #OOOOE 

1 #00001 

10 #OOOOR 

4 #00004 
16858 #0423E 
3 #00003 
18097 #046B1 
18072 #04698 
18083 #O46A3 


11 #0000B 


17948 
18040 
13? 
131 
135 
130 


HO461C 
#04678 
#00089 
#00083 
#00087 
#00082 
650 #0028A 
96 #00060 
105 #00069 
139 #00088 
125 #00070 
122 #O0O7A 
241 HOOOF 1 
134 #00086 
140 #0008C 
29 400010 
18 #00012 
124 #0007¢ 
112 #00070 

2 400002 
12 HOOOOL 
167 #O00R7 
170 HOOORA 
108 #0006C 
129 #00081 
141 #0008D 
138 #0008A 
17 #00011 
45 700020 
179 #000B3 
239 HOOOEF 
128 #00080 


' re ee ee | 


+ b b t ot 


1229 
799 
553 
829 
541 
542 
259 
260 
261 
265 
258 
252 
527 
251 

1280 

1270 

1275 

1280 

1281 
269 

1306 

1280 

1226 

1258 
262 
262 
262 
262 
270 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 


1248 
803 
829 
819 
$33 
538 
281 
732 
887 
373 
686 
531 


521 
1272 
1240 
1242 


384 


504 
333 
810 
521 
517 


1599 
293 
293 
569 
322 
700 
682 
521 
578 

1252 

1252 
322 

1302 

1261 

1261 
726 
660 

1304 
500 
578 
270 

1246 
30? 
325 
34? 
486 


428 
784 


414 


721 


525 
1278 


398 


656 
671 
810 
527 
534 
545 


569 
630 


52? 
585 


650 


585 
548 


653 
486 
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893 


633 
805 


614 


1504 
675 
813 
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575 
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787 
1603 


662 


658 


1267 


$08 


8% 


1444 


1631 


816 


1983 


1603 


1451 


816 
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Input Paraneters 
Source file nane is SB&EXP::AS 
Listing file nane is SB/EXP:TI:ML::-1 
Object file nane is SBZEXP: TI:NS::-1 


449914 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 ‘ A BBB & L EEEEE X X 
2 * AA B B&& L E KX Xx 
3 x A AB B&S& L E x x 
4 x A A BBBB & L EEEE x 
5 & ARAAR B B & 8S L E K xX 
6 . RA AB B&& L E x Xx 
7 & R AR BBBB && & LLLLL EEEEE X X 
8 TITLE Lexical Analyzer <831212.1512> 
9 04866 ABS #04856 
10 JI II TIO IIIS OTITIS III OST II IIIT TA TI 
1 SIRI II II II SII SIDI II IIIT III III SI IOS IOI II IOS SIS IIS III ISI IAN 
12 tk 
13 ** Nane:(S) NTOKNL - Lex Analysis 
14 ** Nane:(S) NTOKEN - Lex Analysis 
15 ** Wane: (S) PRESCN - Lex Analysis 
16 ** Narie:(S) RESCAN - Lex Analysis 
17 ** Nane:(S) VRIABL - Lex Analysis 
18 ** Nane: SHFTKN - Lex Analysis 
19 ** Nane:(S) ALLDUN - Lex Analysis 
20 ** Nane: HOWARD - Lex Analysis 
21 ** Name: (S) LEAVE - Lexical Analysis 
22 tk 
23 ** Category: PARUTL 
24 ak 
25 *k Purpose: 
26 ae The lexical analyzer scans strings of ASCII characters 
27 ae and associates unique nunbers (tokens) with particular 
28 Ax substrings (lexenes). The tokens are used by language 
29 ve parsing routines and interpreters. 
H 
31 tx Entry: 
32 > Many different entry points for different purposes. 
33 
4 7” NTOKNL - Looks for line nurber, or any other lexene. 
35 a NTOKEN - Looks for any lexene not a line nunber. 
36 x 
37 ak Di is current input buffer position. 
38 ax DO is current output buffer position. 
393 am D(A) is end of output buffer. 
4 kk 
44 aK PRESCN - Sane as RESCAN, except output pointer is still 
42 ax in DO, instead of C(A). 
43 ax 
44 es RESCAN - Looks for another token corresponding to a 
45 a lexene. 
46 ax 
47 a IMPORTANT ENTRY POINT. There is where the 
48 x lexical analyzer can be restarted if an 
49 . undesired match occurred with an XWORD. 
50 
51 * D1 is reset to start of lexene to be 
52 ae rescanned. 
53 as ACA) is Lexbuffer pointer returned for token 
54 ak to be replaced. 


55 am C(A) is reset to start of token to be 
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56 aK replaced. 

5? a% This 1s the output pointer, which will be in 
58 he DO upon exit. This pointer is not actually 
59 tk used by this routine. 

60 ae D(A) is end of output buffer. 

61 ka 

62 aX VRIABL - Looks for Basic variable nane. 

63 £x 

64 aX D1 1s current input buffer position. 

65 o RO 1s end of output buffer (done by previous 
66 ax entry points). 

67 ax 

68 a SHFTKN - Places token in C(B) in front of tokens in A. 
69 ae 

70 ax D1 1s new input buffer position. 

74 ax DO is lexbuffer pointer. 

72 ax D(A} is execaddress, if there is one. 

73 Rx RO is end of output buffer. 

74 ae 

75 ax ALLDUN - Restores output buffer pointer to DO. 

6 ax 

7? ak D1 1s new input buffer position. 

78 lai DO is lexbuffer pointer. 

79 ah D(A) is execaddress, if there is one. 

80 aK RO 1s end of output buffer. 

81 ik 

82 ae HOWARD - Restores output buffer pointer to DO. 

83 ak 

84 ax D1 is new input buffer position. 

85 ax C(A) is lexbuffer pointer. 

86 ik D(A) is execaddress, if there is one. 

87 ae RO is end of output buffer. 

88 ak 

89 ax LEAVE - Restores end of output buffer to D(A). 

9 ae 

91 ah D1 1s neu input buffer position. 

92 e DO 1s current output buffer position. 

93 a D(A) 1s end of output buffer. 

94 ie 

95 kk Exit: 

96 aK P=0. 

97 Be D1 is new input pointer. 

98 DO is current output pointer. 

93 = A contains token, up to 14 nibbles in length. 
10 ae B[A] 1s execution address (if there 1s one). 

101 ae B[X] 1s nuneric constant exponent, if there 1s one. 
102 ee C{S] 1s lexbuffer pointer used for RESCAN. 

103 ae DIA] 1s end of output buffer. 

104 aa 

105 &% Calls: ARGCHK, BLDVAR, D=WORD, DGTSTR, GNXTCR, IOFNDO, 
106 x* LDZERO, NUMSCN, Range, SCAN, STLXPT, STRCHK. 
10? ae 

108 RPUS OS: sing see 

109 ae A,B,C,P,D0,D1,R0,S0-$3, $11. 


110 a 
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411 ** Stk lvls: 2 
112 ak 
113 ** Detail: 
114 a The lexical analyzer consists of tuo parts: scanner 
115 ae and lexicon. The scanner 1s the code described here 
116 aR with several entry points, one major subroutine 
117 ak (NUNSCN) and nany smaller subroutines. 
118 &R 
119 ax The lexicon is a set of tables: 
120 es 
121 KR LXTYPT (lexical type table) is a table of character 
122 ie categories, or types, which lives in system ROM. 
123 ax This table helps the scanner reduce the tine 
124 ae selecting which scanning method to use: 
125 a Type O - Direct: Use transfer character in type 
126 KA table as token. 
127 aS Type 1 - Word: Scan text table for string match. 
128 aK Type 2 - Relational: Scan for relational operator. 
129 - Type 3 - Number: Call NUNSCN to fornat constant. 
130 x 
131 ak LEXBFR (lexfile buffer) is an I/0 buffer in systen 
132 ke RAN which contains lextable IDs and naintable 
133 ak addresses. 
134 ax 
135 aR LXSPDT (speed table) is an optional table within 
136 ae each lexfile which tells where in text table lexenes 
137 fel mith a particular first character begin. 
138 
139 x LXTXTT (text table) 1s a table in every lexfile 
140 aE containing the following text infornation: 
141 aR Lexere length - 1 nibble, 
142 KK Lexene text - 2-16 nibbles, 
143 ax Lexene token - 2 nibbles. 
144 ae 
145 KK MAINT (main table) 1s a table in every lexfile which 
146 ae contains token information: 
147 xe Text offset - 3 nibbles. 
148 xk Locates text in text table; used in 
149 as deconpiling. 
150 ha Execaddress - 5 nibbles. 
151 ax Self-relative pointer to token’s 
152 kk execution address. 
153 aK Characterization - 1 nibble. 
154 xk Syntactic class and spacing 
155 ae infornation, 
156 am 
157 xk History: 
158 xe 
159 aa Date Progranner Modification 
160 PR eimtea st: Wee eta Gh. - “aise teens katte te ties tae 
161 ak 04/01/83 SA Figured out register & subr usage 
162 Kk 10/17/83 9 NM Attenpted to docunent 

ka 

He JOKE I IOI TOIT ITI ITO TTI IIR IT IEE IE 


165 SOOO IO TOO ITT ITT IIT IIIT III IIA 
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166 O48E6 841 =NITOKNL ST=0 1 INITIALIZE 
167 048E9 842 ST=0 2 
168 O048EC DO A=0 A 
169 O48EE DB C=D A SAVE END-OF-BUFFER-ADDRESS IN B 
170 048FO D5 B=C R 
171 048F2 800 GOSUBL =GNXTCR SKIP LEADING BLANKS 
oO 
172 O48F8 7A04 GOSUB = STLXPT Store Lex Pointer 
173 O048FC 35 LCHEX 5 
174 O48FF 816 CSRC 
175 04902 7916 GOSUB LDZERO SKIP LEADING ZEROES 
176 04906 09 C=B A RESTORE END-OF-BUFFER-ADDRESS 
177 04908 D7 D=C A 
178 0490A D1 B=0 A 
179 0490C CD B=B-1 A 
180 O490E £5 LLOOP B=B+1 A INCREMENT NORMALIZER 
181 04910 7916 GOSUB DGTSTR READ CHARACTER 
182 04914 59F GONC LLOOP IF DIGIT, REPEAT LLOOP 
183 04917 861 ?$T=0 1 NO DIGITS AT ALL? 
184 0491A 12 GOYES NTOKEN IF NOT, GOTO NTOKEN 
185 0491C 862 7$T=0 2 NOTHING BUT ZEROES? 
186 O491F 01 GOYES LHOOOO IF SO, GOTO L#O000 
187 04921 94A C= S TOO MANY DIGITS FOR LINE NUMBER 
188 04924 DO GOYES RESTRT IF SO, GOTO RESTRT 
189 04926 31FO LCHEX OF 
190 0492A REA A=C B PLACE LINE NUMBER TOKEN 
191 0492D 01 RIN RETURN 
192 0492F £5 LHOO0OO B=B+1 A INCREMENT NORMALIZER 
193 04931 C5 RESTRT B=B+B A BACK UP TEXT POINTER 
194 04933 137 CD1EX 
195 04936 £9 C=C-B A 
196 04938 135 b1=C 
197 0493B 8EO00 =NTOKEN GOSUBL =GNXTCR SKIP LEADING BLANKS 
0 
198 04941 841 ST=0 INITIALIZE 
199 04944 842 ST=0 62 
200 04947 843 ST=0 3 
201 0494A 84B ST=0 11 
202 04940 DO A=0 A 
203 O494F DI B=0 A 
204 04951 71B3 GOSUB STLXPT Store Lex Pointer 
205 04955 148 A=DAT1 B READ CHARACTER 
206 04958 3110 LCHEX OD 
207 0495 966 AKC OB CARRIAGE RETURN? 
208 O495F DO GOYES NOT-CR IF NOT, GOTO NOT-CR 
209 04961 3100 LC (2) =tEOL LOAD EOL TOKEN 
210 04965 AER AWFUL A=C B 
211 04968 6870 GOTO =EXIT1 GOTO EXIT1 
212 0496C 3312 NOT-CR LCASC \7'\ 
E5 
213 04972 7000 GOSUB =Range CAN PROGRAM OPERATE ON CHARACTER? 
214 04976 5A1 GONC OKCHAR IF SO, GOTO OKCHAR 
215 04979 31FD LCHEX DF 
216 0497D OE66 A= ASC CONVERT TO UPPERCASE 


B 
217 04981 3314 LCASC §=\ZA\ 
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AS 
218 04387 7000 GOSUB =Range LETTER? 
219 0498B AE2 C=0 B LORD NULL IN CASE OF ERROR 
220 O498E 46D GOC AWFUL IF NOT, GOTO AWFUL 
221 04991 AE8  OKCHAR B=A B COMPUTE LEXTYPE TABLE ENTRY 
222 04994 A38 B=B+A X 
223 04997 A38 B=B+A X 
224 0499A 3400 LC(5) (=LXTYPT)-99 TYPE TABLE MINUS 99 
000 
225 04981 C9 C=C+B A 
226 049A3 136 CDOEX 
227 O49R6 1523 A=DATO K READ LEXTYPE AND TRANSFER CHAR 
228 O49RA 134 DO=C 
229 049AD A2ZC MISC = AFA-1 XS MISCELLANEOUS STUFF? 
230 043980 SAO GONC NUMBER IF NOT, GOTO NUMBER 
231 049B3 840 ST=0 (0 CLEAR BEGIN BASIC FLAG 
232 04986 171 D1=D1+ 2 POINT TO NEXT CHARACTER 
233 04989 03 RTNCC RETURN CARRY CLEAR 
234 049BB A2C NUMBER A=A-1 XS LETTER? 
235 O49BE 496 COC WORD IF SO, GOTO WORD 
236 04901 870 ?ST=1 0 CHARACTERIZATION REQUEST? 
237 04904 D1 GOYES EXIT1 IF SO, GOTO EXIT1 
238 049C6 928 ?A=0 = XS RELATIONAL OPERATOR? 
239 04909 93 GOYES RELOP IF $0, GOTO RELOP 
240 049(B DB C=D OA 
241 049CD 108 RO=C SAVE END-OF -BUFFER IN RO 
242 04900 7443 GOSUB NUNSCN COMPILE CONSTANT 
243 04904 118 C=RO 
244 04907 DB? D=C A RESTORE END-OF-BUFFER TO D 
245 04909 04 SETHEX RESET STATE 
246 049DB 842 ST=0 2 
247 O49DE 841 ST=0 1 
248 049E1 840 «=EXITI =ST=0) «(0 
249 04964 03 RTNCC RETURN CARRY CLEAR 
250 04966 A86 RELOP1 C=A P 
251 O49E9 80D0 P=C 0 
252 049ED 3600 LCHEX 1248000 LOAD PREDICATE BIT IN XS-FIELD 
0842 
1 
253 049F6 20 P= 0 
254 O49F8 OE2ZE RELOP2 A=A'C XS INSTALL BIT IN TOKEN 
255 O49FC 171 Di=D1i+ 2 INCREMENT TEXT POINTER 
256 O49FF 148 A=DAT1 B READ NEXT CHARACTER 
257 O4A02 3232 RELOP LCHEX 023 
D 
258 04R07 962 A=C OB HATCHMARK? 
259 O4A0A EE GOYES RELOP2 IF SO, REPEAT RELOP2 
260 O4ROC 3303 LCASC \?<\ 
F3 
261 O4A12 7000 GOSUB =Range ANOTHER RELATIONAL CHARACTER? 
262 O4A16 SFC GONC RELOP1 IF SQ, REPEAT RELOP 
263 04819 3100 LC(2) =tRELOP LOAD RELOP TOKEN 
264 O4A1D REA A=C B 
265 04A20 03 RTNCC RETURN CARRY CLEAR 


266 O4A22 8C00 BFRERR GOLONG =CORUPT 
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00 
267 04828 137 WORD CDIEX 
268 O4AZB D5 B=C A SAVE INPUT POINTER 
269 O4A2D 3200 LC(3) =bLEX 
0 
270 O4A32 8FOO GOSBVL =IOFNDO 
000 
271 04839 S8E GONC  BFRERR 
272 O4A3C 8A8 ?A=0 OR BUFFER EMPTY? 
273 O4A3F 3E GOYES BFRERR 
274 0441 1CA D1=D1- 11 PT D1 11 NIBS PRIOR TO 1ST ADDR 
275 O4A44 D4 A=B A INPUT PTR 
276 O4A46 133 ADIEX RESTORE INPUT PTR 
277 O4A49 136 =PRESCN CDOEX SAVE OUTPUT PTR 
278 O4A4C 1B00 =RESCAN DO=(5) =FUNCDO STORE OUTPUT POINTER 
000 
279 04853 144 DRTO=C A 
280 04956 130 DO=A POINT AT LEX BUFFER 
281 04959 DB C=D A SAVE END-OF-BUFFER IN RO 
282 O4A5B 108 RO=C 
283 O4A5SE 7CAI GOSUB D=WORD READ INPUT & CONVERT CASE 
284 O4R62 D2 C=0 A COMPUTE SPEED TABLE OFFSET 
285 0464 REB C=D B 
286 04867 DS B=C A 
287 0469 AGS B=B+B B 
288 O4A6C A31 B=B+C xX 
289 O4A6F 3200 LC(3) =oSPOTB OFFSET FOR SPEED TABLE CALC 
0 
290 04874 ED B=C-B A 
291 04976 6910 GOTO = LEX GOTO LEX 
292 O4A7A 6941 VBLLNK GOTO VRIABL SHORT JUMP LINKAGE 
293 O4A7E 07 NXTROM C=RSTK POP LEXBUFFER POINTER 
294 O4A80 134 Do=C 
295 O4A83 185 DO=D0- 6 
296 04886 14A R=DATO B READ ROM NUMBER 
297? O4A89 968 *A=0 OB TABLES EXHAUSTED? 
298 O4R8C EE GOYES VBLLNK IF SO, GOTO VRIABL 
299 O4ABE 20 P= 0 
3X0 04A90 16A LEX DO=D0+ 11 MOVE LEXBUFFER PTR TO NEXT ADDR 
1 04A93 165 DO=D0+ 6 
V2 O4A96 146 C=DATO A READ ROM TABLE ADDRESS 
3 04A99 136 CDOEX 
4 O4ASC 06 RSTK=C PUSH LEXBUFFER PTR ON HARDWR STK 
305 O4ASE 180 DO=D0- =oS$PDn2 
Xo O4AA1 146 C=DATO A READ LEXTABLE RELATIVE ADDRESS 
X? O4RA4 AOE C=C+C P SPEED TABLE PRESENT? 
HS O4AR? FE CSR A 
WS O4AAI 132 ADOEX 
310 O4AAC 4FO GOC SCNADR IF NOT, GOTO SCNADR 
311 O4RAF Ce C=A+C A COMPUTE TEXT TABLE ABS ADDRESS 
312 O4AB1 EO A=A-B A COMPUTE SPEED TABLE ENTRY 
313 O4AB3 130 DO=A 
314 O4AB6 DO R=0 A 
315 O4ABE 1523 A=DATO & READ SPEED TABLE ENTRY 
316 O4ABC CA SCNADR A=A+C A COMPUTE TEXT TABLE ENTRY POINTER 
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317 O4ABE 130 DO=A 
318 O4AC1 7871. GOSUB SCAN SCAN ROM TRBLE 
319 O4AC5 488 COC NXTROM If NOT FOUND, REPEAT NXTRONM 
320 O4AC8 07 C=RSTK 
321 O4ACA AE8 GARRR B=A B 
322 O4ACD 134 DO=C 
323 O4ADO 183 DO=D0- 4 
324 O4AD3 14€ C=DATO B READ TOKEN BASE 
325 O4AD6 BoA A=A-C B NORMALIZE TOKEN 
326 O4AD9 163 DO=D0+ 4 
327 O4ADC 146 C=DATO A READ MAIN TABLE BASE ADDRESS 
328 O4ADF C2 C=A+C A COMPUTE MAIN TABLE POINTER 
329 O4RE1 C4 A=A+R A 
3 O4RE3 C4 R=A+A A 
331 O4RES C4 A=A+A A 
332 O4AE? C2 C=A+C A 
333 O4AES 185 DO=DO- 6 MOVE LEXBUFFER PTR TO ROM NUMBER 
334 O4AEC 136 CDOEX 
335 O4AEF D7 D=C A 
336 O4AF1 162 DO=D0+ 3 
337 O4AF4 15€5 C=DATO 6 READ CHARACTER’ZN & EXECOFFSET 
338 O4AF8 132 ADOEX COMPUTE EXECADDRESS 
339 O4AFB C2 C=A+C A 
340 O4AFD 132 ADOEX 
341 04800 8005 P=C 5 
342 04804 969 7B=0 = «iB WEIRD TOKEN? 
343 04807 32 GOYES WEIRD IF SO, GOTO WEIRD 
344 04809 DF CDEX A 
345 04808 134 DO=C 
346 O4B0E 89F ?P= 15 FUNCTION? 
347 04811 A? GOYES FCN IF SO, GOTO FCN 
348 04B13 860 ?ST=0 0 REQUEST FOR CHARACTERIZATION? 
349 04816 AO GOYES SETUP IF NOT, GOTO SETUP 
350 04818 OB CSTEX SWAP IN CHARACTERIZATION BITS 
351 04B1A 80FO CPEX 0 
352 O4B1E 0B CSTEX 
353 04820 20 SETUP P= 0 
354 04822 3100 LC(2) =tXWORD LORD XWORD TOKEN 
355 04826 6380 COTO §=©ROMNUN GOTO ROMNUN 
356 O482A 06 = =WEIRD RSTK=C 
357 O482C 03 RTNCC GOTO SECONDARY LEX ANALYZER... 
358 O482E 5B9 GARRR) GONC GARRR Inrange junp fron below 
359 04831 D2 =FN-GO (C=0 R 
360 04833 306 LCHEX 6 
361 04836 C3 D=C+D A FIDDLE WITH LEXBUFFER POINTER 
362 04838 13 B1=D1- 4 BACK UP 2 BYTES 
363 04B83B 143 R=DATI A READ 2 BYTES 
364 O4B3E 173 D1=D1+ 4 
365 04841 B24 A=A+1 XS "GO"? 
366 04844 582 GONC FNSCAN IF NOT, GOTO FNSCAN 
367 04847 8E00 GOSUBL =GNXTCR 
00 
368 04840 DB c=) A 
369 O4B4F D5 B=C A MOVE LEXBUFFER POINTER 
370 04851 79B0 GOSUB D=WORD READ UPPERCASE WORD 
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371 04855 1B2?7 DO=(5) =FUNNY 
C40 
372 O4B5C 70E0 GOSUB SCAN SCAN TABLE 
373 04860 D9 C=B A MOVE LEXBUFFER POINTER BACK 
374 04862 SBC GONC  GARRR) IF FOUND, REPEAT GARRR 
375 04865 D7 D=C A 
376 04867 DO R=0 A CREATE NULL TOKEN 
377 04869 840 $T=0 60 
378 O4B6C 6780 GOTO CHARLY GOTO CHARLY 
379 
380 04870 7111 FNSCAN GOSUB BLDVAR CONSTRUCT VARIABLE TOKEN 
381 04874 4C4 GOC FNERR IF NO VARIABLE, GOTO FNERR 
382 O4B77 AF4 A=B W 
383 0487A 3400 LC(5)  =FN LOAD USERFUNCTION EXECADDRESS 
000 
384 04881 D7 D=C A 
385 04883 3100 LC(2)  =tFN LOAD FN TOKEN 
386 04887 6E50 GOTO SHFTKN GOTO SHFTKN 
38? 
388 O4B8B 20 FCN P= 0 
389 O4B8D 870 ?ST=1 (0 CHARACTERIZATION REQUEST? 
390 04890 31 GOYES EXIT2 IF SO, GOTO EXIT2 
391 04892 1C1 Di=D1- 2 
392 04895 14B A=DAT1 B REREAD LAST CHARACTER 
393 04898 171 D1i=D1+ 2 
394 04898 7951 — GOSUB STRCHK CHECK FOR STRING FUNCTION 
395 O4B9F 7141 GOSUB ARGCHK CHECK FOR ARGUMENT LIST 
396 O4BA3 840 «=EXIT2 ST=0) «(0 CLEAR CHARACTERIZATION REQUEST 
397 O4BR6 3100 LC(2)  =tXFN LOAD XFN TOKEN 
398 O4BAR 14A RONNUN A=DATO B READ ROM NUMBER 
399 O4BAD AEC RBEX 8 
400 O4BB0 969 7B=0 OB MAINFRAME LEXENE? 
401 O4BB3 C3 GOYES ALLDUN IF SO, GOTO ALLDUN 
402 O4BB5 BBO ASL x SHIFT LOCAL TOKEN LEFT 
403 O4BB8 FO ASL A 
404 O4BBA RE4 A=B B PLACE ROM NUMBER 
405 O4BBD 6820 GOTO SHFTKN GOTO SHFTKN 
406 04801 103 FNERR D1=D1- 4 BACK UP TO “F" 
407 O48(4 7DBO =VRIABL GOSUB BLDVAR CONSTRUCT VARIABLE TOKEN 
408 04808 REO A=0 B LORD NULL IN CASE OF ERROR 
409 O4BCB 432 GOC ALLDUN IF NO VARIABLE, GOTO ALLDUN 
410 O4BCE AF4 A=B W 
411 O4BD1 858 ST=1 14 RECORD VARIABLE 
412 O4BD4 862 7S8T=0 2 ARRAY? 
413 O4BD7 81 GOYES ALLDUN IF NOT, GOTO ALLBUN 
414 O4BD9 3400 LC(5) =ARRAY LOAD ARRAY EXECADDRESS 
000 
415 O4BEO D? D=C A 
416 O4BE2 3100 LC(2) = tARRAY LORD ARRAY TOKEN 
417 O4BE6 BFO =SHFTKN ASL W SHIFT EXISTING TOKENS LEFT 
418 O4BE9 BFO ASL W 
419 O4BEC REA A=C B PLACE HEADER TOKEN 
420 O4BEF 136 =ALLDUN CDOEX RESTORE OUTPUT POINTER T0 0 
421 O4BF2 DS =HONARD B=C A 


422 O4BF4 1B00 CHARLY DO=(5) =FUNCDO 
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000 

423 O4BFB 146 

424 O4BFE 134 

425 04C01 118 

426 O4CO4 DF 

427 04006 DD 

428 04C08 20 

429 O4COR 04 

4% OACOL 03 

43} 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 O4COE 1577 

465 04C12 AF? 

466 04C15 20 

467 04C17 3F04 
0404 
0404 
0404 
04 

468 04C29 0E77 

469 O4C2D 81E 

470 04C30 0E77 

471 0434 BFE 

472 04C37 0E73 
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C=DATO A 
DO=C 
=LEAVE C=RO LEAVE TOKENS IN A 
CDEX A LEAVE EXECADDRESS IN B 
BCEX A LEAVE RESCAN POINTER IN C 
P= 0 LEAVE END-OF-BUFFER POINTER IN D 
SETHEX RESET STATE 
RTNCC RETURN CARRY CLEAR 


FOI OTTO TOO OT TTT 
TORI JO JOO IOI OUI TI TOTTI 


kk 
ak 
a 
ak 
ax 
ax 
ax 
ax 
an 
ak 
ak 
ak 
ax 
an 
ak 
aX 
ax 
ak 
ax 
ax 
ak 
ax 
ax 
a 
ax 
ax 
aw 
aK 
ax 


Nane:(S) D=WORD - Read 8 Bytes And Convert To Uppercase 
Category: GENUTL 
Purpose: 
Read 8 bytes fron menory and convert to uppercase. 
Entry: 
DO pointing at text to be read. 
Exit: 
P=0, 
D[W] contains uppercase version of text. 
Calls: None. 
Uses....... 
C,D,P. 
Stk lvls: 0 
History: 
Date Progratiner Modification 
SA Wrote 
11/01/83 NM Attenpted to docunent 


JOJO TR TIO OO TT IT 
SOOO IOI TOIT TOIT 


=D 


=WORD C=DAT1 W 
D=C W 
P= 0 


LCHEX 4040404040404040 


C=C8D W 
CSRB 

C=C&D W 
C=-C-1 W 
D=C&D W 
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473 04C3B 01 RTN 
474 JU] IIT OORT IO OCI III III OC OT ITI 
475 JI IO IO IOI II IIIS IOI III II IOS SIT IIIT I IIR 
476 aX 
477 ** Name: (S) SCAN - Scan LEXfile Text Table For Lexene 
478 * 
479 ** Category:  PARUTL 
480 ss 
481 ** Purpose: 
482 a Scan LEXfile text table for text matching keyword 
483 ax machine is trying to parse. 
484 ax 
485 ** Entry: 
486 ax D[W] contains keyword machine is trying to parse (up 
487 x to 8 bytes). 
488 aK D1 = input pointer (pointing at data which was read 
489 aK into D[W]. 
4% ax DO pointing at wordsize nibble of first keyword 
491 = to exarine in text table. 
492 x 
493 AX Exit: 
494 ax D1 woved past lexene in input strean. 
495 aK Carry set -> lexene not found. 
496 ak Carry clear -> token in A[A]. 
497 x 
498 ** Calls: None. 
499 ata 
500 Re USCS cu bie 
501 ax A[S],C,P,D0,D1. 
502 ok 
503 xk Stk lvis: 0 
504 aa 
505 ** History: 
506 ax 
507 xx Date Prograriner Modification 
508 ck Scesecns: etescosaee’ Waceectetadern deceit casenceuseneses 
509 ax SA Wrote 
510 ke 11/01/83 9 NM Added docunentation 
a 
te JU IOI IIIT OOO IIIS IO COC TOTO II TTI IIR 
513 JIU I IEICE IIE OO COI I IOI ACK 


514 04C3D 161 SCANIO DO=D0+ 2 
515 04€40 1564 =SCAN C=DATO S$ 


516 04C44 800F P= 15 

51? 04C48 160 DO=D0+ 1 MOVE TRBLE POINTER TO TEXT 
518 O4€4B 1561 C=DATO WP READ TEXT 

519 O4C4F SE? *C>D «iB PAST WORD GROUP IN TABLE? 
520 04C52 00 RTNYES IF SO, RETURN CARRY SET 
521 04(54 136 CDOEX 

522 04€57 809 C+P+1 MOVE TABLE POINTER TO TOKEN 
523 O4C5A 136 CDOEX 

524 04C5D 917 *C#D =P LEXEME IDENTIFIED? 

525 04C60 DD GOYES SCAN1O IF NOT, REPEAT SCAN10 

526 04C62 137 CDIEX 


527 04€65 809 C+P+1 MOVE INPUT POINTER PAST LEXENME 
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528 04C68 
529 O4C6B 
5% 04C6D 
531 04€70 
532 

533 04C72 
534 04073 


535 04C79 
536 04C7B 
537 O4C7C 
538 04C8 
539 0482 
540 

541 04C85 
542 04C88 
543 04C8A 
544 O4C8E 
545 04C92 
546 04C96 


547 04C9C 
548 O40 AO 
549 04CA3 
550 04CA6 
551 04CA9 
562 O4CAC 
553 O4CRE 


554 04CBS 
565 04CB8 
566 04CBB 
557 O4CBE 
558 04CC0 
559 O4CC4 
560 04CC7 
561 O4CCR 
562 O4C(C 
563 O4CCF 
564 04CD3 
565 04CD6 
566 O4CD9 
567 O4CDB 
568 O4CDE 
569 O4CE1 
570 

571 O4CE4 


572 O4CER 
573 O4CEE 
574 O4CFI 
575 O4CF3 
576 O4CF6 
57? 

578 O4CF8 
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137 CD1EX 
D® A=0 A 
14A R=DATO B RERD TOKEN 
03 RTNCC RETURN CARRY CLEAR 
IIA IRI DDRII I TOI IT III III D II SIO SII II ISIS IIS II SOS SI ISIS SS SIS ISA IN 
5 =FUNNY NIBHEX 5 TEXT TABLE FOR "GO" WORDS 
3555 NIBASC \SUB\ 
24 
oo CON(2) =tGOSUB 
3 NIBHEX 3 
45F4 NIBASC \TO\ 
0 CON(2) =tGOTO 
1FF NIBHEX 1FF 
IRIS IIIA TIT ARID IIIT III IIIT III IS ISI IIIS SISOS ISIS SASSI SIS ISA SIS. 
840 BLDVAR ST=0 0 CLEAR CHARACTERIZATION REQUEST 
20 P= 1) 
15B5 A=DAT1 6 READ 3 CHARACTERS 
31FD LCHEX OF CONVERT FIRST TO UPPERCASE 
0E66 A=R8C OB 
3314 LCASC § \ZA\ 
AS 
7000 GOSUB =Range LETTER? 
400 RTNC IF NOT, RETURN CARRY SET 
171 DI=D1+ 2 
AES B=A B SAVE FIRST IN B 
BF4 ASR W SHIFT OTHERS RIGHT 
F4 ASR A 
8FOO GOSBVL =DRANGE DIGIT? 
000 
491 GOC STRVAR IF NOT, GOTO STRVAR 
174 DI=Di+ 2 
BB1 BSL x SHIFT LETTER LEFT 
FA BSL A 
3106 LCHEX 60 
AES B=C B CONSTRUCT ALPHADIGIT TOKEN 
A88 B=A P 
F4 ASR A SHIFT INPUT CHARACTERS DOWN 
BB4 ASR x 
7520 STRVAR GOSUB STRCHK STRING? 
401 GOC ARGCHK IF NOT, GOTO ARGCHK 
171 D1=D1+ 2 
FA BSL | SHIFT TOKEN STREAM LEFT 
BF 1 BSL W 
XD LCHEX 0 
AES B=C B PLACE STRING TOKEN 
FI III RI IIA IIIT IDI DIS IDI III IIT IGI III IIIS III III ISI IIIS ISI IITA 
8EOO = ARGCHK GOSUBL =GNXTCR SKIP LEADING BLANKS 
00 
3182 LCASC \(\ 
966 7AHC OB PARENTHESIS? 
50 GOYES ARGRIN IF NOT, RETURN CARRY CLEAR 
852 ST=1 2 RECORD PARENTHESIS 
03 ARGRIN RTNCC RETURN CARRY CLEAR 
FIO RIT EK TTI RADE I III TTI TI IAI I IIIT I IIIT I III IIS IASI IA IA 
3142 STRCHK LCASC \$\ 
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579 OACFC 966 RHC OB STRING? 
580 O4CFF OO RTNYES IF NOT, RETURN CARRY SET 
581 04001 851 ST=1 1 RECORD STRING 


582 04004 03 RTNCC RETURN CARRY CLEAR 
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583 
584 
585 
586 
587 
588 
583 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
1 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 


619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 


04006 137 
04009 1F00 
000 
04010 145 
04013 135 
04016 04 
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STITLE 
SOI OI TOT TET TTT TRI IIDIII IIT ITRRIT SK 


FOO FTO JOT TOT TOI TT ITN 
ae 


xk Narie: STLXPT - Store LEXPTR 


xn 

**& Category:  PARUTL 

as 

** Purpose: 

KE Set LEXPTR to current value of D1. 

aK 

** Entry: 

aA None 

kk 

aX Exit: 

xs (LEXPTR) = D1 

ak C(A) = 01 

kK 

xk Calls: None 

kk 

ak Uses....... 

xX Inclusive: C(A) 

ae 

** Stk lvls: 0 

xk 

xk History: 

ak 

as Date Progranner Modification 
Pk Cue (Goce, eSettsigsiVeuWon. uvaweesceu bemused 
*k 8611/02/82 SA & FH Adapted fron NTOKEN code 
kk 12/14/82 SW Added entry point for RESTAR 
kk 


SOIR SII IOI TOO II 
SOIR OJOS TOI TIO 


=STLXPT CDIEX 
=STLXP2 D1=(5) =LEXPTR 


DATI=C A 
D1=C 
RTN 


FOU TOIT TOT TT TTI 
FORO IRON 
ax 


** Narie:(S) NUMSCN - Scan Nurtber In Lexical Analysis 
kt 


*% Category: PARUTL 


a 
** Purpose: 

as Generate token for nuneric constant or solitary ASCII 
ga period. 

xk 

*k Entry: 

me D1 at start of nuneric character string. 

xk 


637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
643 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
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662 04018 05 


663 0401A 
664 04010 
665 04020 
666 04023 
667 04025 
668 04028 
669 04D2B 
670 04D2E 
671 04030 
672 04034 
673 04037 
674 0403A 
675 04D3D 
676 04D41 
677 04044 
678 04D48 
679 04048 
680 04D4D 
681 04050 
682 04053 
683 04056 
684 04058 
685 04D5C 
686 04060 
687 04063 
688 O4D66 
689 04068 
690 O4D6C 


822 
AFO 
AC3 
2F 
304 
ACS 
30D 
20 
7BE1 
AB3 
A3F 
B37 
7CE1 
58F 
31E2 
966 
34 
171 
14B 
872 
60 
7301 
701 
SBF 
871 
82 
31E2 
AEA 


631 O4D6F 02 
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ae Exits 
as DEC node. 
ax P=0, 


ak 
ak 


$3=1 for incoriplete exponent. 
D1 past numeric character string. 


xx A[B] = nuneric token and nantissa or ASCII digit. 
aK B[M] = right-justified mantissa. 

xr B[X] = exponent. 

xk 

** Calls: DGTSTR, LDZERO, ROUND. 

xk 

RE USES 2 was 

ah 


x 


A,B,C,D,P,D1. 


xk Stk lvls: 1 


xk 


*k History: 


xk 
x 


KEY osu 


** 04/01/83 SA 
**% 10/17/83 NN 


xk 


Modification 
Figured out register & subr usage 
Attenpted to docunent 


FORT OTTO ITO III 
FOI IOI IIT TOO TO TOI TOTO ICT TOTTI 


=NUMSCN SETDEC 


ILOOP 


FLOOP 


SB=0 

A=0 W INITIALIZE 

D=0 S 

P= 15 

LCHEX 4 

B=C $ 

LCHEX D 

P= 0 

GOSUB LOZERO SKIP LEADING ZEROES 

D=0 X INITIALIZE NORMALIZER 
D=D-1 xX 

D=0+1 xX READ INTEGER MANTISSA 
GOSUB DGTSTR 

GONC ILOOP 

LCASC \.\ 

AKC OB CHECK FOR DECIMAL POINT 
GOYES RNDCHK IF NOT DECIMAL, GOTO RNDCHK 
01=D1+ 2 

A=DAT1 B 

?ST=1 2 PREVIOUS SIGNIFICANCE? 
GOYES FLOOP IF SO, GOTO FLOOP 

GOSUB LDZERO SKIP LERDING 0’S, ADJ NORMALIZER 
GOSUB DGTSTR READ FRACTIONAL MANTISSA 
GONC FLOOP 

*ST=1 1 MANTISSA OK? 

GOYES RNDCHK IF SO, GOTO RNDCHK 

LCHEX 2 SOLITARY PERIOD 

A=C B 

RTNSC RETURN 
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692 
693 04071 B46 = RND C=C+1 § 12 DIGITS 
694 04074 AEO A=0 B 
695 04077 7E61 GOSUB ROUND ROUND MANTISSA 
696 04D7B 148 A=DAT1 B REREAD NEXT CHARACTER 
697 O407E 5A GONC EXPCHK IF NO DECADE OFLO, GOTO EXPCHK 
6398 04081 30C LCHEX C RELORD DIGIT COUNT 
699 04084 816 CSRC 
700 04087 B37 D=D+1 Xx INCREMENT NORMALIZER 
701 O4D8R 6E0O GOTO EXPCHK GOTO EXPCHK 
702 O4D8E 934A RNDCHK ?7C=0 = = § NEED TO ROUND? 
703 04091 OE GOYES RND IF $0, GOTO RND 
704 04093 BFO ASL W RLIGN MANTISSA 
705 04036 BB4 ASR Xx REALIGN NEXT CHARACTER 
706 04099 ADS EXPCHK B=A N SAVE MANTISSA IN B(M) 
707 O4D9C ABB C=0 x SAVE NORNALIZER IN B(X) 
708 O409F ABS B=C Xx 
709 O4DA2 A3D B=B-1 x CORRECT NORMALIZER 
710 O4DA5 ACD BCEX § PREPARE FOR POSSIBLE EXPONENT 
711 O4DA8 31FD LCHEX DF 
712 O4DAC OE66 R=R&C OB 
713 O4DBO 3154 LCASC \E\ 
714 O4DB4 966 7AHC OB EXPLICIT EXPONENT? 
715 040B7 31 GOYES BLDLNK IF NOT, GOTO BLDLNK 
716 O4D0B9 137 CD1EX SAVE INPUT POINTER IN D 
717 O4DBC D7 D=C A 
718 O4DBE 137 CD1EX 
719 04001 6210 GOYO SLOOP GOTO SLOOP 
720 O40C5 DB EXPERR C=D A RESTORE INPUT POINTER TO "E" 
721 04007 135 D1=C 
722 O4DCA 6880 BLDLNK GOTO BUILD GOTO BUILD 
723 O40CE BCF SLOOP- D=-D-1 $ COMPLEMENT EXPONENT SIGN 
724 O40D1 853 SLOOP+ ST=1 3 RECORD EXISTENCE OF EXPONENT SIGN 
725 04004 171 SLOOP D1i=D1+ 2 READ NEXT CHARACTER 
726 O40D7 148 A=DAT1 B 
727 O4DDA 3102 LtCASC \-\ 
728 O4D0DE 962 *A=C OB MINUS SIGN? 
729 O4DE1 DE GOYES SLOOP- IF SO, REPEAT SLOOP- 
730 O4DE3 308 LCHEX 8B 
731 O40E6 962 *A=C OB PLUS SIGN? 
732 O4DE9 8E GOYES SLOOP+ IF SO, REPEAT SLOOP+ 
733 O4DEB 841 ST=0 1 PREPARE FOR READING EXPONENT 
734 O4DEE 842 ST=0 2 
735 O4DF1 DO A=0 A 
736 O4DF3 7821 GOSUB LDZERO SKIP LEADING ZEROES 
737 O4DF7? 7231 ELOOP GOSUB ODGTSTR READ EXPONENT 
738 O40FB SBF GONC ELOOP 
733 O4DFE 861 28T=0 1 EXPONENT OK? 
740 O4F01 4€ — GOYES EXPERR IF NOT, GOTO EXPERR 
741 04E03 843 ST=0 3 EXPONENT SIGN OK 
742 04606 862 ?$T=0 2 ZERO EXPONENT? 
743 O4F09 A4 GOYES BUILD IF SO, GOTO BUILD 
744 O4E0B F4 ASR A 
745 O4€00 F4 ASR A 


746 O4EOF 320 LCHEX 500 
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5 
747 04€14 94F 
748 O4F17 22 
743 O4E19 94—A 
750 O4E1C 41 
751 O4E1E SAR6 
752 O4E21 FO 
753 O4F23 R38 
754 O4€26 9B5 
755 O4€29 A2 
756 O4E2B 328 
757 O4E2E 52 
758 04E30 3100 
759 04634 AEA 
760 04637 03 
761 04639 394A 
762 O4E3C 96 
763 O4E3E 9A 
764 04641 46 
765 04643 B38 
766 04646 9B1 
767 O4€49 AO 
768 O4€4B B39 
769 O4€4E 92D 
770 O4€51 34 
771 04653 ABO 
772 O4E56 959 
773 O4E59 A2 
774 O4E5B AC4 
775 O4E5E 810 
776 O4€61 3221 

0 
777 O4€66 B32 
778 O4E69 04 
779 O4E6B BO4 
780 O4E6E BEO 
781 04671 ADA 
782 04674 935 
783 O4E77 21 
784 04E79 93D 
785 O4€7C 01 
786 O4E7E F4 
787 O4€80 BB4 
788 O4E83 B24 
789 O4E8e B24 
790 O4€89 B24 
791 O4E8C BF4 
792 O4E8F 03 
793 
794 04691 BD1 
795 04694 A4D 
796 04697 94D 
797 O4E9R ?7F 
798 G4E9C 822 
799 O4E9F AFO 
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PLUSX 


BIG 


MINUSX 


BUILD 


ZERO 
FLOAT 
NDIGIT 


DNORN1 
DNORN2 


2DHO 
GOYES 
?C=0 
GOYES 
PADC 
GOYES 
B=A+B 
2B<C 
GOYES 
?A=0 
GOYES 
LC(2) 
A=C 
RTNCC 
?C=0 
GOYES 
AOC 
GOYES 
B=B-A 
7BoCc 
GOYES 
C=C-B 
?BHO 
GOYES 
A=0 
?B=0 
GOYES 
A=B 
ASLC 
LCHEX 


C=C-A 
SETHEX 
A=A+1 
ASL 
A=B 
BRC 
GOYES 
?BHO 
GOYES 
ASR 
RSR 
A=A+1 
A=A+1 
A=A+1 
ASR 
RTNCC 


BSL 
B=B-1 
?BRO 
GOYES 
SB=0 
A=0 


S 
MINUSX 
S 

BIG 
XS 
BIG 

x 

XK 
BUILD 
XS 
BUILD 
=tBIG 
B 


S 
DNORN3 
KS 
DNORN3 
x 

x 
BUILD 
X 

XS 
DNORA2 
x 

n 

ZERO 


NORM 
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NEGATIVE EXPONENT? 

IF $0, GOTO MINUSX 

TOO MANY DIGITS IN EXPONENT? 
IF SO, GOTO BIG 

STARTED EXPONENT 100 BIG? 
IF 30, GOTO BIC 

ADD EXPONENT TO NORMALIZER 
TRUE EXPONENT < 500? 

IF $0, GOTO BUILD 

STATED EXPONENT < 100? 

IF SO, GOTO BUILD 


"TOO BIG" TOKEN 

RETURN CARRY CLEAR 

TOO MANY DIGITS IN EXPONENT? 

IF SO, GOTO DNORN3 

STATED EXPONENT TOO BIG? 

IF 30, GOTO DNORM3 

SUBTRACT EXPONENT FROM NORMALIZER 
TRUE EXPONENT > -500? 

IF $0, GOTO BUILD 


TRUE EXPONENT < 100? 
IF SO, GOTO DNORN2 


ZERO MANTISSA? 
IF $0, GOTO ZERO 


FLORTING-POINT CONSTANT? 
IF SO, GOTO FLOAT 
MULTI-DIGIT INTEGER? 

IF SO, GOTO NDIGIT 


CONSTRUCT ASCII DIGIT 


RETURN CARRY CLEAR 
NORMALIZE 
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DENORMALIZE 


ROUND 


SET EXPONENT 
LORD 1€-499 TOKEN 


IF ROUNDING OVERFLOW, GOTO DNORNS 


ZERO MANTISSA? 
IF $0, GOTO DNORNMS 
LOAD SMALL TKN & INITIALIZE CNT 


SHORTEN 


SET TOKEN 
RETURN CARRY CLEAR 


SOUT IIIT TOT TTI 


OBVIOUSLY ROUND DOWN? 

IF SO, RETURN CARRY SET 
OBVIOUSLY ROUND UP? 

IF SO, GOTO RND1O 

STUFF OFF THE END? 

IF SO, GOTO RND2O 
INCREMENT MANTISSA 

IF DECADE OF LO, RETURN CRY CLEAR 
CREATE UNIT NANTISSA 
RETURN CARRY SET 

LOAD DIAGNOSTIC CONSTANT 


ISOLATE BOTTOM BIT OF MANTISSA 
BOTTOM BIT ON? 

IF SO, GOTO RNDIO 

RETURN CARRY CLEAR 


FOI OTTO IO TST IIT IIT ITI 


RECORD EXISTENCE OF DIGIT 
DECREMENT NORMALIZER 
INCREMENT TEXT POINTER 


READ CHARACTER 

ZERO? 

IF SO, REPEAT RPTLDZ 
RETURN 


FO RRR ITI TOTO TIC 


800 O4ER2 RDA A=B A 
801 O4EA5 BFA  DNORN3 ASR W 
802 O4EA8 A3E C=C-1 xX 
803 O4EAB 59F GONC = DNORN3 
804 O4ERE 77%” GOSUB ROUND 
805 O4EB2 ADS B=A A 
806 O4EB5 3210 LCHEX 501 
5 
807 O4EBA ABS B=C x 
808 O4EBD 3210 LCHEX 1D4 
1 
809 O4EC2 412 GOC DNORNS 
810 O4EC5 3211 LCHEX 011 
D 
811 O4ECR 958 7A=0) OM 
812 O4ECD 71 GOYES DNORNS 
813 O4ECF 3211 LCHEX 111 
1 
814 O4ED4 04 SETHEX 
815 O4ED6 BFA  ODNORM4 ASR W 
816 O4ED9 B26 C=C+1 XS 
817 O4EDC 928 ?A=0 XS 
818 O4EDF 7F GOYES DNORN4 
819 O4£E1 BFO ASL W 
820 O4€E4 ABR DNORNS A=C x 
821 O4EE? 03 RTNCC 
822 
823 O4€E9 R34 ROUND A=A+R X 
824 O4EEC 500 RTNNC 
825 O4EEF 93C AHO OX 
826 O4EF2 70 GOYES RND1O 
827 O4EF4 832 ?SB=0 
828 O4EF7 DO GOYES RND2O 
829 O4EF9 B54 RNDIO A=A+1 A 
8H O4EFC 500 RTNNC 
831 O4EFF B54 A=A+1 ff 
832 O4FO2 02 RTNSC 
833 O4F04 3400 RNDZO LCHEX 01000 
010 
834 O4FOB OEF2 C=A&C A 
835 O4FOF SAE CHO OA 
836 O4F12 7E GOYES RND1O 
837 O4F14 03 RTNCC 
838 
839 O4F16 851 RPTLOZ ST=1 1 
840 O4F19 A3F D=D-1 x 
841 O4F1C 171 D1=D1+ 2 
842 O4F1F 3103 LDZERO LCASC \O\ 
843 O4F23 148 A=DAT1 B 
844 04F26 962 7A=C OB 
845 04F29 DE GOYES RPTLDZ 
846 O4F2B 01 
847 
848 O4F2D 3193 DGTSTR LCASC \9\ 


849 


04F31 SE6 


ADC 


IS CHARACTER A DIGIT? 
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850 O4F 34 00 RTNYES IF NOT, RETURN WITH CARRY SET 
851 O4F36 3103 LCASC = \O\ 

852 O4F3A 9E2 CAKE OB 

853 O4F3D 00 RTNYES 

854 O4F3F 948 7-0) «=8 SIGNIFICANCE EXCEEDED? 
855 O4F42 11 GOYES NXTDGT IF SO, GOTO NXTOGT 

856 O4F44 851 ST=1 1 RECORD EXISTENCE OF DIGIT 
857 O4F47 852 ST=1 2 RECORD SIGNIFICANCE 

858 O4F4A A4E C=C-1 § ADJUST DIGIT COUNT 

859 O4F4D BEO ASL iB SHIFT DIGIT INTO NANTISSA 
860 O4F50 BFO ASL W 

861 04F53 B84 NXTDGT ASR P SET STICKY BIT IF APPROPRIATE 
862 O4F56 171 Di=D1+ 2 INCREMENT TEXT POINTER 
863 O4F59 148 A=DAT1 B READ NEXT CHARACTER 

864 O4F5C 03 RTNCC RETURN CARRY CLEAR 


865 O4F5E END 
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=ALLDUN 
ARGCHK 
ARGRTN 
ARRAY 
AWFUL 
BFRERR 
BIG 
BLDLNK 
BLDVAR 
BUILD 
CHARLY 
CORUPT 
=D=HORD 
DGTSTR 
DNORM 
DNORN2 
DNORN3 
DNORN4 
DNORNS 
DRANGE 
ELOOP 
EXIT 
EXIT2 
EXPCHK 
EXPERR 
FCN 
FLOAT 
FLOOP 
FN 
=FN-GO 
FNERR 
FNSCAN 
FUNCDO 
=FUNNY 
GARRR 
GARRR j 
GNXTCR 
=HOWARD 
ILOOP 
IOFNDO 
LHOO00 
LOZERO 
= LEAVE 
LEX 
LEXPTR 
LLOOP 
LXTYPT 
MINUSK 
MISC 
NDIGIT 
NOT-CR 
=NTOKEN 
=NTOKNL 
NUMBER 
=NUMSCN 


Abs 
Abs 
Abs 
Ext 
Abs 
Robs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Robs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Rbs 
Rbs 
Abs 
Ext 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Rbs 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 


2306 


19439 
19684 
19702 


18789 
18978 
20016 
19914 
19583 
20051 
19444 


19470 
20269 
20113 
20116 
20133 
20182 
20196 


19959 
18913 
19363 
19865 
19909 
19339 
20105 
19804 


19249 
19393 
19312 


19570 
19146 
19246 


19442 
19770 


18735 
20255 
19457 
19088 


18702 


20025 
18861 
20108 
18796 
18747 
18662 
18875 
19736 
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#O4BEF 
#O4(E4 
#O4(F 6 


#04965 
#O4A22 
#04E30 
#040CA 
#04(85 
#04653 
#O4BF 4 


#O4(0E 
#O4F 2D 
#04591 
#04694 
HO4ER5 
#O4ED6 
HO4EE4 


#040F 7 
#0496 1 
#04BA3 
#04099 
#04005 
#O4B8B 
#04E89 
#04D05C 


#04831 
#04BC 1 
#04870 


#04072 
#O4ACA 
#O4B2E 


#O4BF 2 


#04D3A 


#0492F 
#O4F1F 
#04(01 
#04990 


#0490E 


#04639 
#049AD 
HO4E8C 
#0496C 
#0493B 
#048E6 
#049BB 
#040138 


5 ft ff 4 ' 1 


' @ b&b be & & & tt b F F F ft 8 8 


420 
571 
576 
414 
210 
266 
758 
722 
541 
71 
422 
266 
464 
848 
794 
795 
801 
815 
820 
553 
737 
248 
396 
706 
720 
388 
790 
685 
383 
359 
406 
380 
278 
533 
321 
358 
171 
421 
674 
270 
192 
842 
425 
300 
618 
180 
224 
761 
229 
791 
212 
197 
166 
234 
662 


401 
395 
574 


220 
271 
750 
715 
380 
722 
378 


283 
181 
797 
770 
762 
818 
809 


738 
211 
39 
697 
740 
347 
783 
683 


381 
366 
422 
371 
358 
374 
197 


676 


186 
125 


231 
182 
748 
785 
208 
184 


230 
242 


409 
564 


273 
752 


407 
743 


370 
675 


764 
812 


237 
701 


686 


367 


671 


413 


765 


685 


803 


571 


684 


757 


737 


736 
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NXTDGT Abs 20307 #O4F53 - 861 855 
NXTROM Abs 19070 HO4A7E - 293 319 
QKCHAR Abs 18833 #04991 - 221 214 
PLUSX Abs 19993 #04619 - 749 
=PRESCN Abs 19017 #04849 - = 277 
RELOP Abs 18946 #04902 - 257 239 
RELOP1 Abs 18918 #049E6 - 250 262 
RELOP2 Abs 18936 #O49F8 - 254 259 
=RESCAN Abs 19020 #O04R4C - 278 
RESTRT Abs 18737 #04931 - 193 188 
RND Abs 19825 #04071 - 693 703 
RND10 «=Abs 20217 HO4EF9 - 829 826 836 
RND2O 3=Abs 20228 #04F04 - 833 828 
RNDCHK Abs 19854 #O4D8E - 702 679 688 
ROMNUN Abs 19370 #O4BAR - 398 355 
ROUND Abs 20201 #04EE9 - 823 695 804 
RPTLDZ Abs 20246 #04F16- 839 845 
Range Ext - 213 218 261 547 
=SCAN Abs 19520 #04040 - 515 318 372 
SCANIO Abs 19517 #0403D - 514 525 
SCNADR Abs 19132 #04ABC - 316 310 
SETUP Abs 19232 #04820 - 353 349 
=SHFTKN Abs 19430 #04BE6 - 417 386 405 
SLOOP = Abs 19924 #04004 - 725 719 
SLOOP+ Abs 19921 #04DD1 - 724 732 
SLOOP- Abs 19918 #O4DTE - 723 729 
=STLXP2 Abs 19721 #04009 - 618 
=STLXPT Abs 19718 #04006 - 617 172 204 
STRCHK Abs 19704 #O4(F8 - 578 394 563 
STRVAR Abs 19663 #04(CF - 563 554 
VBLLNK Abs 19066 #04A7A - 292 298 
=VRIABL Abs 19396 #04B8C4 - 407 292 
WETRD Abs 19242 #0482A - 356 343 
WORD Abs 18984 #04A28 - 267 235 
ZERO Abs 20099 #04683 - 788 773 


bLEX Ext - 269 
oSPDTIB Ext - 289 
oSPDn2 Ext - WS 
tARRAY Ext - 416 
tBIG Ext - 758 
tEOL Ext - 209 
tFN Ext - 385 
tGOSUB Ext - 535 
tGOTO Ext - 5§38 
tRELOP Ext - 263 
tXFN Ext ~ 397 


tXWORD Ext - 354 
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Input Paraneters 
Source file nane is AB&LEX: MS 
Listing file name is AB/LEX:TI:ML::-1 
Object file nane is ABZLEX: TI:MS::-1 
111111 
0123456789012345 
Initial flag settings are 


Errors 


None 
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Co NI ON UN & Ww fo = 


9 O4FSE 
10 
1 
12 
13 
14 
15 
16 
1? 
18 
19 


21 
22 
23 
24 
25 
26 
27 
28 
29 


3 
32 
33 


35 
36 
37 
38 
39 
40 
4 
42 
43 
44 
45 
46 
4? 
48 
49 
50 
51 
52 
53 
64 
55 
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x 35S COG 8 L DDDD ccc 
: § $ G G && L dDobcC C 
* S$ G & & L DoDeE 
* SSS GG6GG & L DoDC 
. S$ G6 G &&& L DOC 
- S$ $ G6 G& & L DDC C 
x SSS GGG 8& & LLLLL ODDD CCC 


TITLE Line Deconpile <831216.1615> 
ABS #O4F5E 
RDSYNB TIZEQU:: NS 


FORO RIOT TIO TOT TOIT TIT III IT ITT TT TRIM 
FORO ROOT TORR TOT TTT RT TT TTT TK 


aa 
*& Nane:(S) LOCOMP - Line Deconpile Driver 

kK Nane:(S) LDOCM10 - Line Decorpile Driver 

** Warie:(S) LDCEXT - Line Decorpile Driver 

kk WNarie:(S) LOSST1 - Line Deconpile Driver 

= Nane:(S) LDSST2 - Line Deconpile Driver 

Category: DCMUTL 

*k Purpose: 

, LINE DECOMPILE DRIVER 

*k Entry: 

th P=0 

. D1 @ BEGINNING OF COMPILED LINE IN RAM. 

x LOCOMP: 1) Updates current line 

ss 2) Clears SST flag 

ax 3) Deconpiles entire BASIC line 

ax LDCN10: Does 2 & 3 above 

a LDCEXT: Saree as LDCN10, EXCEPT that this is 
Rx used to ’externally invoke’ deconpile. 
a Any nenerr will return control to caller 
ae with carry set. 

ax sSSTdc=1 => only decompiles 1 stnt at a tine 
ae LDSST1: SST entry for Deconpile u/ Linet 

ax Assunes sSSTdc (S1) set appropriately 
ae LOSST2 : SST entry for Multi-stnt Line 

. Assunes sSSTdc (S1) set appropriately 
k 

AR EXLtS 

nn Nornal entry: 

- Carry Clear (through LSTLEN exit) 

x* Decorpiled Line sent to Input/Output Buffer 

ak RO past tEOL 

a If LOSSTI/LDSST2 entry 

a Di @ Tokenized Statenent Terninator 

ak BCA) = BUFFER LENGTH (#CHARACTERS) 

és Qutput Buffer collasped --> AVMENS <-- OUTBS 

k 

rh If LOCEXT entry is used: 

ak Carry clear => normal exit 
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56 ak DO past ascii strean 

57 aX QUTBS 1s start of ascii strean 

58 ae ACA) past tEOL of line decorpiled 

59 ER Carry set => Menerr 

60 ak 

61 ** Calls: RTNSET, SAVELH, LDCSET, LINWDC, GTXT+1, AD1+2, 
62 AR "DC (OQUTBYT), ASCICK, ! TEST, GTEXTI, OUTNBC 

63 Re LINRAU 

64 ik 

65 PUSS os sae 

66 *k Exclusive: A-D, 01,D0, S0,S$3,S5,86,S7,S8,sSSTde ($1) 

67 *k Inclusive: A-D, D1,D0, S0,$3,$5,86,87,S8,51, RO-R2, 

68 ak S-RO-2 & FIRTN (if LDCEXT entry used) 

69 oe 

70 ax sSSTdc = SST Decompile - GLOBAL throughout decorpile 
71 wa S6 (VARDC),S8, CURRL 

72 kk 

73 ak RO = Pointer past tEOL (provided LDCEXT not used) 

74 an R1 = Preserved 01 

75 aK R2 = Nain Table Address 

76 aK R3 cannot be used, it is used by "LIST" 

77 ih 

78 ak SAVES NEW LINE# INTO CURRL (UPDATES CURRENT LINE) 

79 aK CLEARS S8 FOR ALL BEGIN BASIC DECOMPILE STATEMENTS: 
80 xR (CURRENTLY USED BY LISTDC & USER/BEEPDC) 

84 ik 

82 ** Stk lvls: 6 

83 ah 

84 ** Note: 

85 ke 

86 xx No single Deconpile routine can used more then 6 lvls 
87 ax EXPRDC uses 4 subroutine levels 

BB ik 

89 a sSSTdc (S1) must not be used by individual Deconpile 
30 aS routines 

9} ah 

92 aR Any deconpile routine that POLLs nust set AVNENS at 
93 i the Current DO (call AVS=D0). This prevents the Poll 
94 ae Save area fron overwriting the Output Buffer. 

95 ak Decompile, on exit, will set AVMEMS back @ OUTBS. 

96 x 

3? ** History: 

98 ak 

99 me Date Prograriner Modification 

100 hs: So eeee. aes. betes Abe ees ou ceata aaa se 
101 ek 07/13/82 = J.P. Modified docunentation 
102 kk 08/30/82 J.P. Fixed SST/ELSE deconpile 
193 ah 
104 JO IOI IU IOI I IOI TERT T TIE 
105 JG III IO TTT I IIIT OK 
106 ‘ 

107 JI TTL TAIT TTS ETE ADEE TALI RII DITA ISI I IST L SSDI III STII 
108 JOO ISU COO IIIT I TI IOI TTT TT 
109 ne 


110 ** Nane:(S) RELIMP - Relative Junp Fron (D1) 
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111 x 
112 *& Category:  GENUTL 
113 ax 
114 ** Purpose: 
115 ax RELJMP reads the address pointed to by D1, adds it to 
116 = D1, then does a direct junp to the resulting address. 
117 x 
118 Rx The ntainfrane uses RELJMNP to junp to a deconpile 
119 as routine. 
120 tk 
121 t® Entry: 
122 a Di points to relative address 
123 ae 
124 ek Exit: 
125 ak Di = R1 on entry 
126 ak A(5-0) = 6 nibbles pointed to by 01 
127 ak C=A 
128 ax PC is at resulting address 
129 ak 
1” *k Calls: none 
131 ae 
132 tk Uses: A,C,01 
133 ax 
134 ** Stk lvls: 0 
135 ax 
136 ** Detail: 
137 om When the nainfrane uses RELJNP to decompile a 
138 aK statenent, on entry D1 points to the decompile address 
139 gis and R1 contains the pointer into the token strean, ie 
140 RK R1 points past the begin BASIC token. So on exit fron 
141 aK RELJNP (upon entry to the deconpile routine), D1 points 
142 am past the begin BASIC token and A contains the first six 
143 Ex tokenized nibbles that follow. 
144 aA 
145 ** History: 
146 a 
147 > Date Progranner Modification 
148 EM -mocceese®” “Seesmiececti “Shtieesenee cece sees c nee eel osese Sd 
149 Rk 11/08/83 S.W. Added docunentation header 
150 aX 
151 JI I I SII II TO ITI TI SII ISIS SSIS I III III III IT III IIS III IK 
152 SII IDI TTT ITT IASI IIIT STITT II ISI III II ISIIAIII IS IIIT IS IITA 
153 . 
154 O4F5E O07 =LDCEXT C=RSTK Pull rtn address off stack 
155 O4F60 8E00 GOSUBL =RTNSET Set systen flag f1RTN 
00 
156 04F66 580 GONC LDCN1O (B.E.17.) for hard return 
157 * Clear Single Step Deconpile flag 
158 * Save Line# 
159 * Set D = End of Available Menory 
160 : Set DO = Output Buffer for Decompile = End of Progran Menory 
161 
162 O4F69 8E0O =LDCOMP GOSUBL =savel# SAVE LINE# 


00 
163 O4F6F 841 =LDCM10 ST=0 8 sSSTdec Clear SST deconpile flag 
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164 x 

165 * SST Entry for Deconpile @ Line# 

166 & 

167 04F72 7REO =LDSST1 GOSUB LDCSET Set D, DO 

168 x 

169 * Deconpile Line# 

170 * Save position @ space after Line# for Cursor position (LDCSPC) 

171 * Save Line length byte in PCADDR 

172 x 

173 04F76 7891 GOSUB LINKDC 

174 O4F7AR 136 CDOEX Save position after Line# 


175 O4F7D 1B00 DO=(5) =LDCSPC 


000 
176 O4F84 144 DATO=C A 
177 O4F87 133 LDOCIF ADIEX 


178 O4F8A 1B00 DO=(5) =INADDR 





000 
179 O4F91 140 DATO=A A WRITE ADDR OF LINE LENGTH BYTE 
180 O4F94 131 DI=A RESTORE D1 
181 O4F97 134 DO=C Restore DO 
182 O4FSA 7322 GOSUB GTXT+1 OUTPUT BLANK AFTER LINE# 
183 . 
184 * SST Entry for Decorpile at Multi-statenent Line 
185 : 
186 O4FSE 7806 =LDSST2 GOSUB AD1+2 Step over stnt length (or tEXTIF) 
187 O4FA2 848 ST=0 8 CLEAR FOR BASIC DECOMPILE ROUTINES 
188 O4FA5 849 ST=0 9 
189 : 
190 * If Label 
191 * Label statenents are tokenized as: 
192 & tLBLST <5 nib Label chain> <ASCII Label name> (t@ | tEOL) 
193 : Labels are deconpiled 
194 x " (ASCII Label nane) ": 
195 - Deconpile label statenent 
196 x Output Closing quote and ":" 
197 * If EOL follows (Isolated Label statenent) 
198 x go Terninate Output buffer and return 
199 . else 
200 , Save Address of Statenent Length byte 
201 s 
202 O4FR8 3100 LC(2)  =tLBLST Label Statenent Token 
203 O4FRC 966 RHC OB Not Label Statenent ? 
204 O4FAF F2 GOYES LDCN30 
205 O4FB1 176 D1=Di+ 7? Skip Label Token & label chain 
206 O4FB4 7C2? GOSUB *DC Qutput quote before label 
20? O4FB8 7291 GOSUB ASCICK Read label and output 
208 O4FBC 7427 GOSUB ’*DC 
209 O4FCO 7827 GOSUB :DC Output closing quote & ":" 
210 O4FC4 148 A=DAT1 B Check for End of Label statenent 
211 O4FC? 3100 LC(2)  =tEOL 
212 O4FCB 966 RAC OB Not at end ? 
213 O4FCE 60 GOYES LOCN20 
214 O4FDO 6083 GOTO OUTEOL Terninate buffer and return 
215 - 
216 * Multi-statenent entry 
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217 * DO positioned at @ 
218 *  Statenent byte follows 
219 & 
220 O4FD4 136 LDCN20 CDOEX SAVE OUTPUT PTR IN C 
221 O4FD7 171 Di=D1+ 2 STEP OFF ’@’ 
222 O4FDA 6CAF GOTO §© LDC IF 
223 * 
224 * If Variable 
225 : go Decorpile Implied LET Statenent 
226 
227 O4FDE 08 LOCN3O B=A oR 
228 O4FEO 3100 LC(2) =LASTFN Linit of MAINT 
229 O4FE4 9E6 7ADC OB Not an inplied LET ? 
230 O4FE7 60 GOYES LOCNSO 
231 O4FE9 6482 . GOTO § LETOC LET Deconpile 
232 
233 * Check for '"!" on start of line 
234 x 
235 O4FED 7624 LOCNSO GOSUB 'TEST 
236 O4FF1 560 GONC  LDCN6O 
237 O4FF4 6053 GOTO §=©!DC 
238 x 
233 ; Skip token and Get Text for token 
240 
241 O4FF8 7A70 LDCN6O GOSUB GTEXTI Get Text for token 
242 O4FFC 5B3 : GONC LDCN80 Main keyword | XWORD Text found 
243 
244 * LEX ID not found 
245 . Output "XWORD" 
246 ‘ Convert and Output LEX ID, Entry# to Decimal ASCII 
247 x Order in RAM: LEX ID, Entry# 
248 ‘ Entry to subroutine: 
249 x RO(3-2) = LEX ID, RO(B) = Entry# 
250 : Skip rest of statenent and Return 
251 
252 O4FFF 3985 LCASC \DROWX\ Output "XWORD" 
75F4 
2544 
253 0500B 29 P= 9 
254 0500D 7214 GOSUB OUTNBC 
255 05011 14B A=DAT1 B Read LEX ID 
256 05014 FO ASL =A Shift to A(2-3) 
257 05016 FO ASL =A 
258 05018 7E56 GOSUB AD1+2 Read in entry# 
259 O501C 100 RO=A Must be in RO for subroutine 
260 OSOIF F4 ASR A 
261 05021 F4 ASR A 
262 05023 2E P= 14 Convert HEX to DEC 
263 05025 79F0 GOSUB LIN#AU Output 2 digits, supp. Iding 0’s 
264 05029 110 A=RO 
265 0502C 2¢ p= 12 HEX => DEC - output 2 digits 
266 O502E 70FO GOSUB LIN#AU suppress up to 4 leading zeroes. 
267 05032 8C2C GOLONG SKIPOC Skip rest of staterent 
20 


268 . 
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269 
270 
271 05038 
272 05030 
273 05040 
274 
275 
276 
27? 
278 05044 
279 06047 
280 0504A 
281 05040 
282 O504F 
283 
284 
285 
286 
287 
288 05051 
289 05054 
290 05057 
291 05058 
292 OSO5E 
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* Qutput Keyword Text & Blank 
* 


SODF LDCN8O P=C 15 (#nibbles-1) of Text 
76E3 GOSUB OUTNBS 
7071 GOSUB GTXT+1 


x 


* 01 @ Execution Address 
* Conpute Deconpile Address, Push on Stack 
k 


1€9 D1=D1- 10 Move to Decoripile Adress 
147? =RELJNP C=DAT1 A Read Rel. Deconpile Address 
133 ADIEX Position in Table --> A 
C2 C=C+A A Absolute Decorpile Address 
06 : RSTK=C Push deconpile address on H/W stack 
* Restore D1 to Input Line 
* Read next token 
: Junp to Deconpile Routine 
141 A=R1 
131 DI=A Restore ptr to Input Line 
15B5 A=DAT1 6 Read next token 
AF 6 C=A W 
01 RTN JUMP TO DECOMPILE ROUTINE 
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293 STITLE LBCSET - Set Deconpile bounds 
294 SOI RI IORI TI IIIT IA II IIIS I OT IIT IRI IIS ISTE ISI SIS IS IS SI ISI IIA 
295 III III II IIS ISI III IIS ISIS ISI SI ISIS III IISSSI SII ISIS III ISIS SIS IAS 
296 AR 
297 ** Narie:(S) LDCSET - Set D=AVMENE; DO=OUTBS 
298 ** Nane: DO=0BS - Set D=AVMENE; DO=QUTBS 
299 ak 
30 4% Category:  PTRUTL 
1 ak 
2 *t Purpose: 
3 aA Set D @ AVMENE, DO @ OUTBS 
4 kk 
5 xk Entry: 
6 ak 2 entry points: 
7 aK 1) LOCSET - Sets D(A) to AVMENE. Sets DO to OUTBS. 
8 kk 2) DO=OBS - Sets DO to OUTBS. 
9 ret 
310 aR Exit: 
311 ae All entry points: 
2 as C(A) = (OUTBS) 
313 aE mw” @ (OUTBS) 
314 ak Carry = Entry state 
315 ae LOCSET only: 
316 si D(A) = (AVMENE) 
317 ak 
318 xt Calls: D=AVNE 
319 ae 
320 RE sess ieee 
321 ** Exclusive: C(R), DO, D(A) (LDCSET only) 
322 ae 
323 ** Stk lvls: 1 (LDCSET), 0 (DO=0BS and DO=0UTB) 
324 ax 
325 kk Detail: 
326 ax The carry must be PRESERVED due to call fron AUTO 
327 ak 
328 xk History: 
329 = 
330 a Date Prograriner Modification 
331 RE Wonpiieh, “esweeuee st” Glatt Soe es eee SoS 
332 *k 07/13/82 J.P. Modified docunentation 
333 at 
334 JI IOI ITI TIT I IIIS TOS SIS III IIIA III ISI I IIS II SSSI ISIS IK 
335 SRI IK II III TI IIIT III ITS IS SII I IIS ITI III III III ISI SIS I III III ISIS TAS 
336 05060 8FOO =LDCSET GOSBVL =D=AVNE Set D(A) to AVMEME 
000 
337 05067 =D0=08S 
338 05067 1B00 =DOOUTB DO=(5) =OUTBS GET INPUT BUF PTR 
000 
339 O5S06E 146 C=DATO A 
340 05071 134 DO=C 


341 05074 01 


Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


RTN The Carry must be UNTOUCHED 





Saturn Assenbler 


Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


Ver. 3.39/Rev. 2306 Get Text for Keyword Page 8 
He STITLE Get Text for Keyword 
343 JORIS UO IT IOC CR I 
344 JOIST COO IO TORTI 
345 xk 
346 kk Nane:(S) GTIEXT - Get Text for Keyword/Function 
4? x% Narie: GTEXTN - Get Text for Keyword/Function 
348 xx Narie: GTEXTX - Get Text for Keynord/Function 
349 xk 
350 ** Category:  DCMUTL 
351 ak 
352 ** Purpose: 
353 ax Get Text for Keyword or Function 
354 ak 
355 xt Entry: 
356 x DO pointing into output buffer 
357 ax D(A) contains available nerory end (AVMENE) 
358 ae GTEXTI: A = Main token | XWORD token | XFN token 
359 2S D1 = At Keyword | Function token 
360 ax D1 increnented by 2 on entry 
361 xx P=0 
362 xR 
363 xa GTEXT: A = Main token | XWORD token | XFN token 
364 ae Di = Past Keyword | Function token 
365 aa P=0 
366 xk 
367 KK GTEXTN: Mainfrane Lex Table used 
368 aE D1 = Past Keyword | Function token 
369 A P=0 
370 ak 
371 oa GTEXTX: XWORD Lex Tables used 
372 aa D1 = Past XWORD | XFN token 
373 ax 
374 ax Exit: 
375 ak P=0 
376 a Carry Clear 
377 an A = Text 
378 AK C(S)= # nibbles - 1 
379 ak D1 @ Execution address for token 
380 xe R1 = D1 on entry (Past token) 
381 aR D1+4 on entry if XWORD (Past Lex ID and Entry#) 
382 ak 
383 a Carry Set 
384 wk XWORD | XFN not found 
385 <— D1 @ D1 on entry ( @ Lex ID ) 
386 ae 
38? *t Calls: XMTADR, MATADR+ 
388 ae 
389 AR USBS cc esti 
390 xX Exclusive: A,B,C,R1,R2,01 
391 xk Inclusive: A,B,C,R1,R2, 01 
392 aR 
393 = R1 = D1 @ entry 
394 xs R2 = Nain Table Address 
395 a 


396 


xk Stk lvls: 
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397 kk 

398 ** Algorithn: 

399 aK 

400 *X GTEXTI: Increnent 01 past token 

401 &K GTEXT: If XWORD or XFN 

402 xk goto GTEXTX 

403 *& GTEXTM: Load MAINT address 

404 ak Save token --> B(A) 

405 an goto 1; 

406 ** GTEXTX: Read LEX ID, Entry# 

407 ak Calculate Main Table address (XMTADR) 

408 ak If address NOT found ---> RTNC 

409 ak Skip over LEX ID and Entry# 

410 aK 1: Save 01 (R1) 

411 aK Save Main Table Address (R2) 

412 aK Calculate Start of Text Table 

413 ak Txt Tbl Rel Addr Ptr @ Main Table Addr - oSPDn2 + 1 

414 kK Txt Tol Start = Txt Tbl Ptr + (Txt Thl Ptr) 

415 aK D1 <-- Text Table Start 

416 &k C <-- Main Table Address (R2) 

417 aK Calculate Entry into Main Table (MTADR+) 

418 aR Read Text Table Offset 

419 ak Read Execution Address & Save it (R2) 

420 ah Conpute Entry into Text Table 

421 a Read # nibbles for text (C(S)) 

422 R Read ASCII Text (A) 

423 ak Set D1 = Execution address (R2) 

424 xk RTNCC 

425 ak 

426 ** History: 

42? at 

428 a Date Progranner Modification 

429 $8 seca. eee ieee. Gedo ee eee 

430 AK 07/13/82 J.P. Modified docunentation 

431 RK 08/17/82 9 S.W. Added GTEXTI entry point 

432 kk 12/06/82 = J.P. Fixed XWORD not found exit conditions 
kk 

a JUDO OI II ISO ICI CO TT 

435 JI I OI TOI TOI ITO I IT I 

436 05076 171 GTEXTI D1=D1+ 2 

437 05079 3100 =GTEXT LC(2) =tXWORD 

438 05070 962 wA=C OB 

439 05080 B1 — <GOYES §=GTEXTX 

440 05082 3100 LC(2) =tXFN 

441 05086 962 7A=C OBB 

442 05089 21 GOYES GTEXTX 

443 0508B 3400 =GTEXTN LC(5) =MAINT Mainfrarie Main Table address 

000 

444 05092 D1 B=0 A 

445 05094 AES B=A B Move token to B 

446 05097 62106 GOTO GTXT1O 

447 x 

448 * XWORD | XFN entry 

449 ‘ Read LEX ID, Entry# 

450 & Extract Main Table Address (XMTADR) 
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451 x If address NOT found --->  RINC 
452 * Skip LEX ID and Entry# 
453 k 
454 0509B 143 =GTEXTX A=DATI A Read ROM ID, Entry# 
455 O509E 8E0O GOSUBL =XNTADR Calc Main Table Address 
00 
456 O50A4 400 RTNC Address not found 
457 O50A7 173 , D1=D1+ 4 Skip ROM ID, Entry# 
458 
459 * Calculate Start of Text Table 
460 k 
461 * Text Table Rel Addr Ptr = Main Table addr - oSPDn1 + 1 
462 : Text Table Start = Text Table Ptr + (Text Table Ptr) 
463 
464 x 
465 O5S0AA 133. GTXT1O ADIEX Save 01 
466 OSOAD 101 Ri=A 
467 OSOBO 10A R2=C Save Main Table Address 
468 050B3 DA A=C A 
463 O50B5 D2 C=0 A 
470 OSOB?7 30E LC(1) =oSPDn2 Offset to Speed Nibble 2 
471 O50BA EA R=A-C A One nibble above Text Table 
472 OSOBC 131 D1=A 
473 OSOBF 147 C=DAT1 A Read Speed nibble, Text Table ptr 
474 O50C2 Fb CSR A Shift off speed nibble 
475 050C4 CA R=A+C A Abs. Text Table start 
476 050(6 131 D1=A Save it 
47? k 
478 * Calculate Entry Address into Nain Table 
479 x C=RAddress, B8=Offset 
480 * Exit fron MTADR+ 
481 x C = Old D1, Dt=Entry into Main Table 
482 & 
483 05009 11A C=R2 Nain Table address 
484 OSOCC 8E0O GOSUBL =MNTADR+ Calc Entry address 
00 

485 05002 D5 B=C RA Text Table Start (old 01) 
486 & 
48? * Read Text Table offset within Main Table 
488 : Read Rel Execution Address, Calc ABS addr, Save it (R2) 
489 
490 05004 DO A=0 A Clear nibs 3,4 
491 05006 1582 A=DAT1 3 Read Text Table offset 
492 OS5ODA 172 D1=D1+ 3 
493 O50D0 147 C=DAT1 A Read Rel. Execution address 
494 O50E0 133 ADIEX A <-- Pos in Table; 01 <- A 
495 O50E3 C2 C=C+A A Absolute Execution address 
496 OSOES 10A Re=C Save Execution Address 
497 OSOES8 133 : ADIEX Restore A (Text Table offset) 
438 
499 * Conpute Entry into Text Table 
500 * Entry Address = Text Table Offset + Text Table Start 
501 x Read # nibbles for Text 
502 a Read Text 

t 


503 
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504 O50EB Co A=A+B A Entry into Text Table 
505 O50ED 131 D1=R 
506 O5S0FO 1574 C=DAT1 S$ # nibbles 
507 O50F4 170 D1=D1+ 4 Skip over # nibbles 
508 OS0F? 1537 R=DAT1 W Read text 
509 OSOFB ACS B=C S Preserve C(S) 
510 OSOFE 11A C=R2 Set D1 @ Execution Address 
511 05101 135 D1=C 
512 05104 ACI C=B $ Restore C(S)] 
513 05107 03 RTNCC 


514 & 





515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
5x 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
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SOTO OO ITI OT TUT TTT TTI ION 
FOI TIT TOTO TTI OK 


kx 
ax 
a 
ax 
xx 
xx 
ax 
ax 
xx 
ak 
ax 
ax 
xx 
kx 
ax 
kx 
kx 
ak 
ax 
xx 
xx 
x 
ak 
ax 
xx 
ax 
kk 
Kx 
ak 
ax 
ax 
ax 
xx 
ak 
xx 
a 
ak 
ax 
ax 
ae 
xx 
xx 
aa 
ak 
a 
ax 
ak 
kk 
ak 
ae 


Nane:(S) LINKDC - 
Nane:(S) LINHD+ - 
Narie:(S) LINRAU - 
Narie: LINHA+ - 


Line nunber deconpile 
Line nunber deconpile 
Line nurber deconpile 
Line number deconpile 


Nane: LIN#CK - Line nunber deconpile 
Category: DCMUTL 
Purpose: Deconpiles a line nurnber & outputs it 
Entry: 

P=0 


D(A) points to end of available nemory (AVMENE) 
DO positioned at where decompiled line nurnber to go 
5 ENTRY POINTS : 


1) LINACK - Returns mith carry set if A(B) # tLINE# 

Otherwise, falls into LIN#D+ entry pt. 

2) LINKD+ - Assunes D1 1s 7 nibs prior to Ist 

digit of 4 nibble line nurber 

(2 nib line# token, 5 nib junp addr) 

Suppresses leading 0’s 

3) LINHDC - Sane as above, except assunes that D1 
1s pointing to ist digit of line number 

4) LINHAU ~- Used by TRACE - also suppresses leading 
zeroes. 

P=0 => 4 digits output, leading zeroes 
suppressed. 

P=12 => Convert fron HEX to DEC. 2 
digits output, up to 4 leading 
zeroes suppressed. 

P=14 => Convert fron HEX to DEC. 2 
digits output, up to 6 leading 
zeroes suppressed, 

5) LIN#A+ - Used by System corinand RUTO - sane as 

above except line# already in 8(3-0) 

Exit: DO updated/ P=0/ Carry clear 

LINHAL, LINHA+ - D1 left intact 

LINADC, LINHD+ - D1 stepped over 4 nibble line# 
Calls: DOASCI 
Uses: R, B, C, OCS), P 


Stack lvls: 2 


History: 
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570 aia 
571 ae Date Programmer Modifications 
§72 KAS Comoe. -Shccesc Sek, «sete echoes 
573 *k 07/06/82  S.W. Added docunentation 
574 *K 10/18/82 S.W. Added P=0 entry condition 

ek 
ae JO III IO IOI III ISI IIIO ISI IIIT TTT TR ERIK 
577 JOOS IOI TOIT OTT TOR TOK 
578 05109 3100 LINHCK LC(2) =tLINE# 
579 05100 966 TAC OB 
580 05110 OO RTNYES 
5381 x 
582 05112 176 =LINHD+ 01=D1+ 7 
583 05115 3133 =LINHDC LCHEX 33 Read digits @ (D1); suppress 
584 05119 7010 GOSUB dasci leading zeroes; 4 digits. 
585 05110 173 Di=D1+ 4 Step over line# 
586 05120 03 RTNCC 
587 x 
588 05122 AF8 =LINHAU B=-R WwW 
589 05125 353B =LINHA+ LCHEX D1F1B3 Find digits in B; suppress 

1F10 
590 0512D 8C00 d0asci GOLONG =DOASCI leading zeroes 
00 

591 & 
592 x 
593 JI I III TI SII II III IIS IDI SIS SSI ISIS IS ISISSS II SIS TIS IIIS III ISIS 
594 JOR III IIS I II II IIIS TOSI TIS SST IOS ISIS ISIS III III IIS ISIS IIT III 
595 aR 
596 ** Nane: ADDCHR - Add character 
597 aK 
598 **k Category: LOCAL 
599 ax 
600 ** Purpose: 
601 =x Builds variable token in B 
602 kk 
603 *k Entry: 
604 ae 3 entry points: 
605 ak 1) ADCH++ - A(B) contains next byte of token 
606 ne D1 pointing at that token 
607 nn 2) ADDCH+ - C(B) already contains next token byte 
608 se D1 as above 
609 xk 3) ADDCHR - C(B) already contains next token byte 
610 aR D1 pointing at following token 
611 ak 
612 xk Exit: 
613 KK B shifted left twice and ’next token byte’ in B(B) 
614 ak C(S) increnented by 2 
615 xx D1 pointing at next byte to exanine & it’s already been 
616 a read into A(B) 
617 Ex 
618 ** Calls: AD1+2 
619 ak 
620 kk Uses....... 
621 *k Inclusive: ACB), BCH), C(B), C(S), D1 


622 
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623 *k Stk lvls: 1 
624 x 
625 xk History: 
626 Me 
627 xk Date Prograntier Modification 
628 Wes Seeteeie, eee, Dee ee ee eee oe ek 
629 KX 07/06/82 S.W. Added docunentation 
630 x 
631 JOS IOI IOI IOI TIO SOCIO SI TIT TI OI III 
632 JOOS IIIS III TOS IIIS IIIT IIIT IIS II AA 
633 - 


634 05133 AEG 


635 05136 7045 ADDCH+ GOSUB 


636 0513A Bé6 
637 0513D B46 
638 05140 BF1 
639 05143 BF1 
640 05146 AES 
641 05149 01 


ADCH++ C=A B 
AD1+2 
ADDCHR C=C+1 § 
C=C+1 § 
BSL W 
BSL W 
B=C B 
RTN 
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642 STITLE ASCICK - Qutput ASCII chars 
643 3 SOG IO TISSUE TAI K 
644 FOI ITO RI OOOO ITT OUI ITO OTTO TIT OK 
645 an 
646 ** Narie:(S) ASCICK - Ascii Strean Decoripiler 
647 ** Narie: ASCO2 = - Ascii Strean Deconpiler 
648 ae 
649 ** Category:  DCMUTL 
650 at 
651 ** Purpose: Outputs strean of ascii characters 
652 aR 
653 *k Entry: 3 ENTRY POINTS : 
654 aR DO points to where output to go 
655 xk D(A) contains end of available menory (AVMNENE) 
656 ak 1) ASCI+ - 01 at 2 nibs prior to alleged start 
657 ak of strean. 
658 ak 2) ASCICK - D1 at start of alleged ascii strean. 
659 ak 3) ASCO2 - Sane as (2) above, only 1st character 
660 ak already knoun to be ascii & is in C(B) 
661 aE 
662 ek Exit: Carry clr 
663 ak 01 past the ascii strean 
664 aR C(B) contains ’terninating’ 1-byte token 
665 ak 
666 xk Calls: QUTBYT 
667 ze 
668 ** Uses: A(B), C(B), D1, DO 
669 a 
670 ** Detail: If there’s no ascii characters, nothing will be 
671 xe output & D1 will be left at 1st token 
672 ae Interprets as ascil any 1 byte token in which 
673 ak bit 7 is clear. 
674 ae 
675 *k Stack lvls: 2 
676 aR 
677 xk History: 
678 t 
679 A Date Progratimer Modifications 
680 OE opie. shiscceuws,, .. eoedesonones 
681 - 07/06/82 = S.U. Inproved docunentation 
oa SUIS IIIS OOS ISOC TOI TOS IIIA AION 
684 JO TOI III I II ITI IIS ISI IO TIT IIIS ISI ITI I SITIO IIIT I SITS 
685 . 


686 0514B 171 ASCI+ = D1=D1+ 2 
687 OS14E 14F =ASCICK C=DAT1 B 


688 05151 OB CSTEX 

689 05153 877 *ST=1 7 NOT AN ASCII CHARACTER? 
690 05156 BO GOYES ASCO3 

691 05158 OB CSTEX 

692 O515A 7285 =ASCO2 GOSUB Outbyt WRITE OUT ASCII CHARACTER 
693 O515E SCE . GONC ASCI+ (8.6.72) 

694 


695 05161 OB ASCO3 CSTEX 
636 05163 03 RTNCC 
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698 STITLE ARYDC - Deconpile Array 
oe FOR ITO TOIT TTT TT TT TT TT 
701 JIC ISI OTITIS IIIT ITT 
702 aK 
703 ** Name: (S) ARYDC - Array Deconpile 
704 ak 
705 *& Category:  DCNUTL 
706 ae 
707 ** Purpose: Deconpiles Array compiled in ARRYCK fornat 
708 ne 
709 ** Entry P= 0 
710 ak D(A) contains available nenory end (RVMEME) 
711 kk DO points into output buffer 
712 ak 2 entry points: 
713 ak 1) ARYDC - Assumes C(B)=a( 
714 ais D1 at first subscript, $5=0 
715 ak 2) ARYDC+ - Checks for substring declaration (tSEMIC) 
716 ae in A(B). If not found, returns u/carry set. 
717 ak Else 01 stepped over tSEMIC & expression 
718 aK deconpiled enclosed in brackets. 
719 ak 
720 ak Exit: 
721 ak Carry clear=> 
722 ak subscripts output between parens (or brackets) 
723 ak parens (or brackets) 
724 ax D1 at token following last subscript 
725 ak A(B) contains the token 
726 xe If ARYDC+ called, S5=1 
72? xn Carry set (ARYDC+ entry only) => 
728 ae No subscript decl. found 
729 ak 
730 *k Calls: QUTBYT, OBEXPR 
731 a 
732 kk Uses: A-C, 01,00, S5 
733 aR RO-R2, SO,S3,S88,S10,811 -- EXPRDC 
734 xk 
735 ** Stack lvls: 5 
736 pe 
737 kk History: 
738 ue 
739 kk Date Progranner Modifications 
740 KK See Sole, “tevtedesos! sos sete esate 
741 kk 07/06/82 = S.W. Inproved docunentation 
742 me 08/16/82 S.W. Added ARYDC+ entry 
: x 
ae FORO TORO IR TOO I IT 
745 JI ITO TOOT ITI SI SDI II IIA IIIT IIIS SSI IIIS SSISS SII IIA 
746 & 
747 & 


748 05165 3100 ARYDC+ LC(2) =tSENIC 


743 05169 966 
750 0516C 00 

751 

752 OS16E 171 


ARC OB 
RTNYES 


D1=D1+ 2 
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753 05171 855 
754 05174 3185 
755 

756 05178 7F75 
757 0517C 3192 
758 05180 865 
759 05183 60 
760 05185 31D5 
761 05189 7355 
762 O518D RER 
763 05190 03 
764 

765 

766 

767 

768 

763 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

794 

792 

i353 

794 

795 

796 

737 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 


x 
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=ARYDC 


ARYOC2 


x 


ST=1 5 
LCASC \[\ 


GOSUB OBEXPR Outbyt/EXPRDC 
LCASC \)\ 

*$T=0 «65 
GOYES ARYDC2 
LCASC \)\ 
GOSUB Outbyt 
A=C B PUT TOKEN IN A(B) 
RTNCC 


DECOMPILING ARRAY? 


FOI III IIT TTI IT TIT III TI ITI ITD IKK III 
JOTI TTT TTT TOR TOTO TTI 


Kk 
xk 
ak 
kk 
a 
aK 
xe 
xx 
xk 
ak 
ak 
xk 
xx 
ax 
xk 
ak 
ak 
ax 
ar 
xk 
ak 
ak 
xk 
ak 
ak 
xk 
xk 
xk 
ak 
ax 
xk 
xk 
ak 
ak 
xx 
ak 
ak 
ak 
ae 
ax 
ak 


Nane:(S) GIEXT+ - GTEXT Preprocessor 
Nare:(S) GIXT++ - GTEXT Preprocessor 
Nane:(S) GTEXT1 - GTEXT Preprocessor 
Nare:(S) BLNKCK - Blank Check 
Category: DOCMUTL 
Purpose: 
Given a keyword, GTEXT+, GIXT++, and GTEXT1 outputs 
the corresponding text. 
The BLNKCK entry point ensures that there is exactly 
one blank after the last item deconpiled. 
Entry: 
For all entry points: 
P = 0 
D(A) = AVMENE 
DO = Ptr to output buffer 
BLNKCK entry: 
No additional entry requirenents 
GTEXT+, GTXT++, GTXT1 entry: 
$9=1 => Output a trailing blank 
D4 at keyword 
1) GTXT++ - Outputs a leading & trailing blank 
Sets $9; Doesn’t attenpt to deconpile 
text if token < 7€ 
2) GIEXT+ - Doesn’t attenpt to decompile text if 
token < 7E 
3) GTEXT1 - Assunes A(B) already loaded with token 
greater than 6A. No leading blank output 
Note: Can’t call 1 or 2 above if want to output text 
associated with a keyword in the range 6R-7D 
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808 
809 
810 
811 
812 
813 
814 
815 
816 


‘B17 


818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

8H 

831 

832 

833 

834 

835 

836 

837 

838 

839 05192 859 
840 05195 7820 
841 

842 05199 148 
843 0519C 31D? 
844 051A0 9EA 
845 O51A3 00 
846 

847 O51AS 7DCE 
848 OS1A9 402 
849 O51AC 80DF 
850 051B0 7272 
851 05184 119 
852 051B7 135 
853 O51BR 379 
854 O51BD 40 
855 OS1BF 03 
856 

857 O51C1 

858 051C1 3102 
859 O51CS 181 
860 O51C8 14A 
861 O51CB 962 
862 OSICE 7F 


Line Deconpile <831216.1615> 
Ver. 3.39/Rev. 2306 ARYDC - Deconpile Array 


5:00 an 
Page 19 


Fri Dec 3, 1983 


tk Exit: 


ax 
ax 


GTEXT+, GIXT++, GTEXT1 entry: 


th P = 0 

aK S9 set if GTXT++ used 

a Carry set => Keyword not found, D1 intact 

ak clr => Text output, 01 past token, DO advanced 
ax 

x BLNKCK entry: 

£K- ~Seecssesocecs 

ax Exactly 1 blank follows last iten decompiled. 

ak DO points past that blank 

kk 

*k Calls: GTEXTI, OQUTBYT, OUTNBS 

tk 

kk Uses: A-C, R1-R2, 01,00 (GTEXT1, GTEXT+ entry) 
ata A-C, R1-R2, 01,00, S9 (GTXT++ entry) 

= A(B),C(B), DO (BLNKCK entry) 

kk 

** Stk lvls: 2  BLNKCK entry 

xx 3 All other entry points 

ek 

&* History: 

tk 

xx Date Programmer Modification 

RA oadeee (AR et ete ede ie ee a tere 
&k 08/12/82 SW. Routine created 

aa 


SOI OR TOIT OTTO TOI TTT TI IK 
SOROS  ITIIIII 


k 
=GTXT ++ 


x 
=GTEXT+ 


* 
=GTEXT1 


x 


=BLNKCK 
GTXT+1 
BLNKC1 


ST=1 9 
GOSUB GTXT+1 


A=DAT1 B 
LCHEX 7D 
7Ac=C B 
RTNYES 


Possible variable? 


GOSUB GTEXTI 


GOC GTXT+3 KEYWORD NOT FOUND? 

P=C 15 

GOSUB OUTNBS OUTPUT ASCII 

C=R1 

01=C RESTORE D1 

*ST=1 9 QUTPUT TRAILING BLANK? 
GOYES GTXT+1 

RTNCC 

LCASC \ \ 

DO=D0- 2 

A=DATO B Read in previous deconpiled char 
7A=C OB A blank? 

GOYES BLNKC1 
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863 * Found non-blank char 
864 05100 161 DO=D0+ 2 
865 051D3 6(05 GOTO Outbyt 
866 z 
867 05107 1C1 = GTXT+3 DI=D1- 2 RESTORE D1 
868 O51DA 02 RTNSC 
869 * 
870 JI I III IIT ITAA TI IIIT TIS II IIIS TAI I III SIA SSSI ISI IIH 
871 JU IOI IO TOC III III III I IIIT III III TIO TST IIIS II ISI IS ISSA S TK 
872 ax 
873 ** Nane: FNCK - FN Check 
874 a 
875 ** Category:  DCMUTL 
876 ap 
877 ** Purpose: 
878 ax Distinguishes between inplied let of FN and a reference: 
879 ax FNX=15 vs ACFNX) 
880 ax 
881 ** Entry: 
882 a P = 0 
883 x A(B) = 1st 1-byte token in statenent 
884 ax D(A) = Available MNenory End 
885 ae D1 Points to supposed tFN 
886 Ze DO Points into output buffer 
887 at 
888 kX Exit: 
889 as P = 0 
890 ‘ D1,D0 unrioved fron entry 
891 - Carry set => Not implied LET 
892 = clr => Is implied LET 
893 am 
894 ** Calls: R3=D10, VARDC, DIC=R3 
895 ia 
896 ** Uses: A, BCA), C, R2, S86 
897 x 
898 ** Stk lvis: 2 
899 ae 
900 &* History: 
901 ax 
902 ne Date Prograrner Modification 
993 REO lose stee) sscoceceee eS (edie Sock eee ese el eo ce eee 
904 Kk 08/29/83 S.W. Added docunentation header 
905 ae 
906 FOR RTO OI OI OOOO OI IOI IOI GOO IOI OO III IOI 
Q07 FORO OO OIG OOO IOI IOI 
98 
909 O51DC 3100 =FNCK LC(2) =tFN 
910 OS1EO 966 RAC OB 
911 051£3 00 RTNYES 
912 OS1ES 118 C=R3 
913 OSIE8 10A R2=C Save R3 in R2 
914 OS1EB 8E00 GOSUBL =R3=D10 Save D1 & DO in R3 
00 
918 OS1F1 7481 GOSUB VARDC+ Step over tFN & corpiled variable 
916 O51F5 1533 R=DAT1 X Read 1n 3 nibbles past tFN tVAR 
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917 O51F9 D8 B=A A Save token 
918 OS1FB 8£00 GOSUBL =D1C=R3 Point D1 back to tFN 
00 
919 05201 134 do=C Restore DO 
920 05204 11A C=R2 
921 05207 108 R3=C Restore R3 
922 O520A 32F1 LCHEX F1F Look for zero parn, and t= 
F 
923 OS20F 935 7BHC OX Distinguish between A(FNX)=.. 
924 05212 00 RTNYES & FNX=.. 
925 05214 01 RIN 


926 , 
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927 STITLE Deconpile User DEF declares 
928 JOISO IO IO IOI SOI IOI COTO I II II TST IT ITT 
929 JOO OOOO OIE GIGI TT IIE 
930 ak 
931 ** Nane: DEFDC - DEF, FN Deconpile 
932 ** Nane: FNDC - DEF, FN Decornpile 
933 Kx 
934 **k Category: STDCMP 
935 xk 
936 Purpose: DECOMPILES USER DEFINED FUNCTION DECLARATIONS 
937 
938 ** Entry: D1 points to tFN 
939 ak DO points into output buffer 
340 xm P=0 
941 a D(A) contains available rienory end (AVMENE) 
942 & 
943 kK Exit: via OUTELA 
944 ka 
945 ae Calls: DC=EXP, VARDC, OUT2TK, OQUTITK, ARYDC, OUTLP+, EQLKC* 
946 x 
947 **k Uses: A-C, RO-R2, 01,00, SO,S3,S6,$8,S10,S11 
948 Kk 
949 *k Stk lvls: 6 
950 ak 
951 ** History: 
952 ax 
953 ** Date Programmer Modifications 
954 Eky ctegeoes  ‘Shaeecess yee 
955 kk 08/18/82 = S.W. Added docunentation 
956 KX 06/20/83  S.W Expanded test for tFN to 
957 xx not include A(FNX)=1 
958 - 06/27/83 S.W. Nust preserve R3 

x 
3c JOS ICI COI IIT IT TIE 
961 JOO IO IO IOI OI ICSI CTO IT IR 
962 * 
963 x 
964 05216 174 =DEFDC 01=D1+ § STEP OVER 5 NIB FIELD 
965 05219 3364 =FNDC LCASC \NF\ Output FN 

£4 

966 OS21F 77F5 GOSUB out2tc 
96? 05223 7251 GOSUR VARDC+ OUTPUT VARIABLE 
968 05227 7A3F GOSUB ARYDC+ Ck FOR SUBSTRING DECL 
969 0522B 450 GOC DEF DC 
970 O522E 171 Di=D1+ 2 STEP QVER CLOSING tSENMIC 
971 05231 170 DEFDC1 DI=D1+ 1 STEP OVER PARN COUNT 
972 05234 14B A=DAT1 B 
973 05237 3100 LC(2)  =tPRNST 
974 0523B 966 ARC OB NO PARAMETER LIST? 
975 O523E 02 GOYES DEFDCE 
976 05240 7F74 GOSUB Outlp+ WRITE OUT LEFT PAREN 
977 05244 7431 DEFDC2 GOSUB VARDC OUTPUT PARAMETER 
978 05248 3192 LCRSC \)\ 
379 0524C 962 *A=( iB AT END OF PARAMETER LIST? 
980 O524F 9 GOYES DEFDC4 
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981 * MUST BE ANOTHER PARN 
982 05251 7784 GOSUB Outby, WRITE OUT COMMA 
983 05255 5EE GONC ODEFDC2 (B.E.T.) 
984 x 
985 05258 8600 DEFDC4 GOSUBL =OUTIT+ OUTPUT RIGHT PAREN 
00 
$986 OS25E 7A80 DEFDC6 GOSUB EOLXC* Doesn’t return if strt end 
987 x 
988 05262 561 GONC =LETOC3 Output ’=’ & Expression (B.E.T.) 
989 x 


990 05265 148 CONMTST A=DAT1 B 

991 05268 8C00 COM1O GOLONG =CONCK1 
00 

992 x 


roe 
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Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


Ver, 3.39/Rev. 2306 LETDC - Deconpile LET stnt Page 24 
993 STITLE LETDC - Deconpile LET stnt 
994 JOO III IIIS IT IAI I SII KI SI SIO IIIS ITA I 
995 JI III II III IOI OTITIS IT III IIT IIIT IIIS 
996 aE 
997 xx Narie: LETDC - LET Statenent Decorpile 
998 aK 
999 ** Category: STOCMP 
1000 aR 
1001 ** Purpose: 
1002 aK Deconpiles LET Statenent 
1003 ak 
1004 ** Entry: 
1005 ax D1 @ Assignnent Variable or FN token 
1006 ee DO points into output buffer 
1007 xk P= 0 
1008 ak D(A) contains end of available nenory (AVMENE) 
1009 a A(B) contains token pointed to by D1 
1010 ak 
1011 ak Exit: 
1012 at Through FNDC if LET FN... 
1013 ae Through QUTELA if LET <var>.... 
1014 ak 
1015 ** Calls: EXPRDC, DC=EXP, FNCK 
1016 xa 
1017 ** Uses: A-C, R2, 01,00 
1018 ak RO-R2, SO,S3,S8,S10,S11 -- EXPRDOC 
1019 ae 
1020 * Stk lvls: 5 
1021 RE 
1022 ** Detail: 
1023 ae <variable> COMMA <expression> 
1024 AX 
1025 ** Algorithn: 
1026 na 
1027 aE If FN token 
1028 xe Set FN Deconpile flag 
1029 RS goto FN Deconpile 
1030 an Deconpile variable (E£XPRDC) 
1031 kk 4: Qutput "=" (OUTBYT) 
1032 aS Deconpile expr (EXPRD+) (increnents D1 @ entry) 
1033 an go Output terminating token (@ | !' | EOL)  (OUTELA) 
1034 a 
1035 ** History: 
1036 ule 
1037 an Date Prograriner Modification 
1038 aaa aaa ateaeteeeaedeetaeateiaate 
1039 B07 /19/82 9 J.P. Modified docurientation 
1040 ie 
1041 JOIUIIIO OUSIDE ISU ITI 
1042 JE III OOO EIS GOUT IO IE 
1043 * 
1044 x 


1045 O$26£ 7R6F =LETDC GOSUB FNCK 


1046 05272 56A 
1047 05275 7000 


GONC = =FNDC Inplied Let of FN ? 
GOSUB = =EXPRDC Deconpile variable 


Saturn Assenbler Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 
Ver. 3.39/Rev. 236 LETDC - Deconpile LET stnt Page 25 


1048 05279 7774 LETDC3 GOSUB OC=EXP 
1049 0527D 504 GONC outela (B.E.T.) Output @ OR ! OR EOL 
1050 x 
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1051 STITLE DECDC - Deconpile Declaration Stnts 
1052 JS III IO I III IIIT IIT II IOS TI SII OST T IIT I III IIIS SSS II OSI SISO ISIS S SN. 
1053 JOG OCI III OOOO TOIT TI ISOC IIS IT SII III I AK 
1054 kk 
1055 kk Nane:(S) DSTRDC - Deconpiles Variable Declarations 
1056 *k Nane: DECDC - ODeconpiles Variable Declarations 
1057 ak 
1058 ** Category: STDCMP 
1059 ax 
1060 ** Purpose: Deconpiles the following statenents: 
1061 ak INTEGER, SHORT, REAL, DIM, DESTROY, NEXT 
1062 ak 
1063 ** Entry: 2 entry points: 
1064 ae D(A) contains end of available nenory 
1065 ak P= 0 
1066 aK D1 points into token strean 
1067 ak DO points into ascii output buffer 
1068 ak 1) DSTRDC - for statenents with a possible 
1069 ak keyword, eg TRACE and DESTROY. 
1070 kk 2) NXTBC 
1071 ak DECDC - For variable list, eg 
1072 ax INTEGER, SHORT, REAL, DIN, NEXT 
1073 ak 
1074 kk Exit: A(B)=EOL TOKEN 
1075 ae via OUTELA 
1076 ak 
1077 ** Calls: VARDC, ARYDC, QUTBYT, GTEXT+, EQLXC* 
1078 ae 
1079 **k Uses: A, C, $5,S6,S89, D1,00 
1080 ak A-C, RO-R2, SO,S$3,S8,S10,S11 -- EXPROC 
1081 aa 
1082 KE Stk lvls: 6 
1083 = 
1084 kk History: 
1085 ag 
1086 a Date Progranner Modifications 
108? RK anne ane ween ene n ee none nee ------ 
1088 Kk 08/18/82 9 S.W. Added docurentation 
1089 zx 
1030 FOR ORI RRO OOO IOI OO TIO 
1091 FOR RIO IRI ROI JOR IO OOO OOOO IO OK 
1092 * 
1093 * 
1094 05280 859 =DSTRDC ST=1 9 TRAILING BLANK 
1095 05283 721F GOSUB GTEXT+ 
1096 05287? 845 =DECDC ST=0 5 STRING LENGTH FLAG 
1097 O528A 7EEO =NXTDC GOSUB VARDC 
1098 O5S28E 866 ?ST=0 6 NOT AN ARRAY? 
1039 05291 AO GOYES DECDC2 
1100 05293 3182 LCASC \C\ 
1191 05297 7DDE GOSUB ARYDC 
1102 *01 POINTING AT COMMA, EOL, OR SEMICOLON 
1103 0529B 7eCE DECDC2 GOSUB ARYDC+ 
1104 : 


1105 O529F 


7940 
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GOSUB EOLXC* Doesn’t rtn if stut end 


Saturn Assenbler Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


Ver. 3.39/Rev. 2306 DECDC - Deconpile Declaration Page 27 
1106 s 
1107 O52A3 7234 GOSUB Outb,+ 
1108 O52A7 SFD GONC DECDC (B.E.T.) 


1109 3 
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1110 STITLE NXTDC - Deconpile FOR/NEXT statenent 
1111 JOO III TTI III TI IDI III IATA SI III OI IIIA III II ISI III II IIIT SATII AK 
1112 IIIA ISI IDI III III IASI SII ISIS IIIS ISS ISS ISIS II STI III SI SSI ISSA I IISA 
1113 kx 
1114 ** Nane: FORDC - Deconpiles FOR 
1115 * 
1116 ** Category: STDCMP 
1117 ax 
1118 ** Purpose: Deconpiles FOR statenent 
1119 ax 
1120 ** Entry: D1 POINTS TO INDEX VARIABLE 
1121 Rx DO points into ascii output buffer 
1122 ax P= 0 
1123 ae D(A) contains end of available menory (AVMENE) 
1124 x 
1125 ** Calls: VARDC, Exprd*, DC=EXP, EOLXC* 
1126 aX 
1127 kk Uses: A-C, D1,D0, S6 
1128 aK A-C, RO-R2, 01,D0, S0,S3,S$8,S10,S11 -- EXPROC 
1129 es 
1130 ** Stk lvls: 6 
1131 am 
1132 kx History: 
1133 aA 
1134 7 Date Programmer Modifications 
1135 RK wmemerem  eeenenenne mewn nenscnna 
1136 oc 08/18/82  S.W. Added docunentation 
* 
ae JU ITI I III II III II II III III III III III TOT I I TTT I ITT I 
1139 JI III II IOS ITS IIIS II III III IS III III IIIT III III IIIA SI TIS IT IIH 
1140 - 
1141 & 
1142 OS2AA 71D0 =FORDC GOSUB VARDC 
1143 OS2RE 7244 GOSUB OC=EXP 
1144 * Qutput leading & trailing blanks around 10 
1145 * And deconpile following expression 
1146 052B2 7464 GOSUB Exprd* Doesn’t rtn if stnt end 
1147 052B6 7230 GOSUB EOLXC* 
1148 * Qutput leading & trailing blanks around STEP 
1149 * And deconpile following expression 
1150 OS2BA 7C(54 GOSUB Exprd* 
1151 O52BE 544 outela GONC OUTELA MUST BE AT EOL (B.E.T.) 
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1152 STITLE IFDC - Decorpile IF statenent 
1153 JIG IS III IOC TTI OT TTT IE 
1154 JOIST IIIS III OCG SII III TIT TEI 
1155 ae 
1156 ** Nane: IFOC - IF Decompiler 
1157 xk 
1158 ** Category: STDCMP 
1159 ae 
1160 *k Purpose: Deconpiles IF staterent 
1161 ak 
1162 ** Entry: 01 POINTS AT NUMERIC EXPRESSION 
1163 aK DO Output pointer 
1164 ax D(A) contains end of available nen (RVMENE) 
1165 ax P=0 
1166 ak 
1167 ek Exit: 2 CASES: 
1168 aK 1) LINE# OR LABEL FOLLOWS ’THEN’ => 
1169 ak DECOMPILATION OF STATEMENT COMPLETE. 
1170 a 2) DOES GOLONG TO LOCIF 
1171 aK 
1172 ** Calls: EXPRDC, LIN#CK, LABLDC, CONTST, GTEXT+, FINDA, 
1173 an OUTBYT 
1174 ak 
1175 ** Uses: A-C, $9, D1,D0 
1176 ak A-C, RO-R2, D1,00, SO0,S3,S8,S$10,S11 - EXPRDC 
1177 x 
1178 Kk Stk lvls: 5 
1179 ax 
1180 ** History: 
1181 as 
1182 xx Date Progranner Modifications 
1183 KK womeer ee ee ec ence re cece ner eenen 
1184 Kk 98/18/82 9 S.W. Added docunentation 
1185 - 06/21/83 S.W. THEN & ELSE now update INADDR 
x 
ve JOS IDO III OO TI SSI AT IIS IIT III III IIT TOIT ASTIN 
1188 FORT OSI ORS III III III ITI ISI IIIS STII III III STII KI SIS ISI IIIS IIIS 
1189 % 
1190 052C1 7000 =IFDC  GOSUB =EXPRDC 
1191 * Output leading & trailing blanks around THEN 
1192 052C5 79CE GOSUB GTXT++ 
1193 05209 7395 IFDC1 GOSUB findat Read 6 nibs into A first 
1194 052CD CON(2) =tLBLRF LABEL Reference Token 
1195 OS2CF FS2 REL(3) RESTOC 
1196 05202 00 CON(2) =tLINE# 
1197 05204 AS2 REL(3) RESTDC 
1198 05207 © CON(2) =t! 
1199 05209 C60 REL(3) ‘DC 
1200 0520C © CON(2) 0 
1201 x 
1202 * Must be tEXTIF 
1203 * Step over tEXTIF & write out address of the stnt length 
1204 ; byte uhich follows to INADDR 
1205 


1206 O52DE 65FC ldcn20 GOTO LDCN20 
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1207 - 
1208 O52E2 859 ELSEDC ST=1 9 WANT TRAILING BUT NO LEADING BLK 
1209 052E5 7CBE GOSUB GTEXT1 
1210 O52E9 5FD CONC =IFDC1 (B.E.T.) 


1211 x 
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1212 STITLE OUTELA, END Deconpile 
1213 JOS UOT ITO IO TLE SAR 
1214 JOIST SITIO IO TIO TIO TORII DITA 
1215 ak 
1216 ** Narie:(S) QUTELA - Output End of Stmt Terminator Fron A 
1217 ** Narie:(S) QUTEL1 - Exit for End of Strut Deconmpile 
1218 * Narie:(S) EQLXC* - Check for End of Stnt Deconpile 
1219 4*® Narie:(S) TRACDC - TRACE Statenent Deconpile 
1220 ** Narie: REMDC - REMark or DATA Statenent Deconpile 
1221 ** Narie: QUTEOL - Output End of Statenent 
1222 ax Narie: ENDDC - Deconpile END Statenent 
1223 ak 
1224 *®& Category:  DCMUTL 
1225 a 
1226 ** Purpose: Entry points to handle end of statenent decompile 
1227 a and misc statenent decompile 
1228 aK 
1229 ek Entry: 
1230 ak P=0 
1231 an D(A) contains AVMENE 
1232 ax D1 points into token strean 
1233 aE DO points into ascii output buffer 
1234 ae ENTRY POINTS: 
1235 at 1) OUTELA - also STOPDC 
1236 ax D1 at statenent terminator (already read 
1237 ak into A(B)) 
1238 aR 2) OUTEL1 - End of statenent deconpile 
1239 a D1 at statenent terninator 
1240 a 3) EOLXC* - Doesn’t return if D1 is at strt 
1241 aE end, else does 
1242 ie 4) TRACDC - TRACE and DEFAULT deconpile 
1243 ak Outputs single keyword - no blanks 
1244 xe 5) RENDC - also DATADC; D1 pointing after 
1245 = tREMN or tDATA. 
1246 Be 6) QUTEOL - D1 at tEOL 
1247 an 7) ENDDC - Looks for ALL token 
1248 ax Falls into QUTEL1 
1249 a 
1250 ak Exit: 
1251 xx If not called externally, exits via LSTLEN 
1252 ee with carry clear 
1253 es If upon entry, D1 at tEOL or t! : 
1254 an Di at tEOL, D1 untouched 
1255 ae DO pts past last decompiled char 
1256 aR B(A)=#chars in buffer 
1257 ak 
1258 a4 If upon entry, D1 at tELSE or t@: 
1259 xn Deconpile 1s continued, via ELSEDC & 
1260 an LDCN20, respectively. 
1261 wh 
1262 RS - If SST decompile and ELSE 
1263 ak ELSE statenent NOT deconpile 
1264 ak Junp to tEOL processing 
1265 is) 


1266 ak If SST decompile and Multi-staterent line 
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126? 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 O52EC 7211 
1291 O52FO 500 
1292 052F3 0? 
1293 O52F5 400 
1294 

1295 O52F8 70FF 
1296 OS2FC 
1297 O52FC 75AE 
1298 

12399 05300 148 
1300 

1301 053 
1302 

1303 05X3 3100 
1304 05%? 366 
1305 0530R 03 
1306 0530C 71BE 
130? 05310 173 
1308 05313 14B 
1309 

1310 

1311 

1312 

1313 

1314 05316 3100 
1315 O531A 966 
1316 0531D RO 
1317 OS31F 861 
1318 06322 OC 
1319 05324 593 
1320 

1321 
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ae Deconpile does not continue 
at Don’t deconpile past @ 
ke 
a REN/DATA entry points - statenent deconpiled 


ak 


** Calls: BLNKCK, OUTITK, EOLDC, GTEXT1, 'TEST, OUT2TK, 


ae TRNFCK, REMP10 


ak 


xk Stack lvls: 4 
kk 


** Uses: sSSTde (S1) 


xk 


** History: 
ah 


ax Date Progratiner 
PR ites , weuecesecs 


ek 07/07/82 SW. 
*k 08/30/82 J.P. 


RX 10/27/82 J.P. 
ah 


Modifications 

Inproved docunentation 
Added SST/ELSE checks 
Added END ALL Decorpile 


FOOT TOTTORI 
FOI OIC OTITIS 


x 


=EOLXC* GOSUB EOLDC 
RTNNC 
C=RSTK 
; GOC QUTELA 
=ENDDC GOSUB EOLXC* 
=TRACOC 
=DEFADC GOSUB GTEXT1 
& 


=QUTEL1 A=DAT1 B 
x 

=STOPDC 

* 


=QUTELA LC(2) =tTHEN 
ARC OB 
GOYES OQUTEL3 
GOSUB BLNKCK 
Di=Di+ 4 
A=DAT1 B 


Return 


ee ee 


LC(2) =tELSE 

TRAC OB 

GOYES GUTEL4 

*ST=0)  sSSTde 

GOYES ELSEDC 

GONC OUTEOL 
x 


* MULTI-LINE STMT 


If ELSE and SST Deconpile 
Avoid decorpile ELSE clause 


Carry aluays CLEAR 
Pop return stack 
(B.E.T.) 


Check for EOL 


Qutput ALL token 
Fall into EOL processing 


THEN TOKEN 
NOT @ ? 


A TRUE’ @ ? 


not SST Deconpile ? 
Decorpile ELSE clause 
B.E.T. - Don’t decompile ELSE 
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1322 

1323 0632? 1C3 

1324 O532A 3104 

1325 0532E 7ER3 

1326 

1327 

1328 

1329 

1330 06332 871 

1331 05335 92 

1332 05337 56A 

1333 

1334 0533A 78D0 

1335 O533E 5F1 

1336 

1337 05341 7C7E 

1338 05345 3312 
02 

1339 0534B 7BC4 

1340 O534F 171 

1341 

1342 05352 

1343 05352 8&00 
00 

1344 05358 181 

1345 

1346 

134? 

1348 

1349 

1350 0535B 171 

1351 O535E 171 

1352 05361 133 

1353 05364 8E00 
00 

1354 O536R 460 

1355 0536) 06 

1356 O536F 01 

1357 

1358 05371 D6 

1359 05373 8000 


1360 


x 
OUTEL4 DI=D1- 4 
LCASC \@\ 
GOSUB Outbyt 
x 


* If SST Deconpile 


5:00 ari 
Page 33 


Fri Dec 30, 1983 


x Return --> Don’t deconpile past "@" 
x 


?ST=1 = sSSTde 
GOYES OUTEOL 
: GONC ldcn20 
OUTEL3 GOSUB 'TEST 
GONC OQUTEOL 
* COMMENT 
GOSUB BLNKCK 
‘oc LcAsSC \ IN 


GOSUB out2tc 
D1=D1+ 2 

x 

=DATADC 

=REMOC GOSUBL =REMP10 


DO=D0- 2 


SST Deconpile? 
Return 
(B.E.T.) 


OUTPUT |! & LEADING BLANK 


Step over t! 


Deconpile connent 


Don’t want OD output 


x 
* Reset AVMENS back at Output Buffer Start 

*% finy decompile routine that POLLs has set AVMEMS @ Current DO 
* Preserve D1 (only preserved if not externally invoked) 


» 


01=D1+ 2 
OUTEOL D1=D1+ 2 

ADIEX 

GOSUBL =TRNFCK 


GOC DCDONE 
RSTK=C 
RTN 


Step over OD 
Step over OF 
Preserve D1 


Not called externally? 
Push return address on stack 


* Ptr past OF in RO is NOT valid if DC is externally invoked 


DCDONE C=A A 
GOLONG =LSTLEN 


Ptr past OF 
Save ptr past OF 
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1361 STITLE VARDC - Deconpile Variable 
1362 JI I IOI IIIT SSSI IIIT III IIS T II ISI STII STII IIIS IOS A 
1363 JU II OAT I TTI III IIIA ISI IAT ISIS ISI SIS STIS ISI IS ISI IIA 
1364 aK 
1365 ** Nane:(S) VARDC - Variable Deconpile 
1366 ** Narie: VARDC+ - Variable Deconpile 
1367 RK 
1368 ** Category:  DCMUTL 
1369 AK 
1370 ** Purpose: Deconpiles variables 
1371 as 
1372 xk Entry: 
1373 a P=0 
1374 an D(A) contains available renory end (AVMENE) 
1375 ak D1 = input pointer 
1376 ak DO = output pointer 
1377 ak S8=1 => no attenpt to deconpile arrays 
1378 ak (used by EXPRDC) 
1379 ax 2 entry points: 
1380 aK 1) VARDC+ - D1 2 nibs before alleged variable 
1381 aK 2) VARDC - D1 at alleged variable 
1382 kk 
1383 ak Exit: P=0 
1384 am Regardless of $8: 
1385 an Carry clr => Variable found & deconpiled 
1386 ak D1 past variable token 
1387 ak A(B)=B(B)= following token 
1388 xn 
1389 at S8 clr on entry: 
1390 ak Carry clr => If S6 set, then deconpiled 
1391 ak variable descriptor of array 
1392 aK Carry set => no variable found 
1393 oie 
1394 ax S8 set on entry: 
1395 o Carry clr => 0© byte output prior to decoripiled 
1396 a variable. 
1397 ae Carry set => either variable not found or 
1398 aS encountered tARRAY 
1399 a 
1400 &* Calls: ADDCHR, RANGE, OUTNBS 
1401 kk 
1402 kk Uses: A, B, C(S), CCA), S6 
1403 ae 
1404 ** Stack lvls: 1 
1405 me 
1406 ** History: 
140? oF 
1408 x Date Progranner Modifications 
1409 Rk nnn n nen e ence eee ee tern nee nen- 
1410 ek 07/06/82 9 S.U. Inproved docunentation 
1411 ek 10/18/82 SLU. Added P=0 entry condition 
1412 ** 06/09/83 SW Changed A=B B => A=B A (pack) 
ak 
ta JOR AT IST ITI II III IIS SIDI IIIT SSI II II ISIS III IIA 


1415 SOS ESS SCS SSCS OSC SSCS SC SC SSS SSS SS 5555.55595 5556555955535 595555 5: 
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1416 x 
1417 05379 171 =VARDC+ Di=D1+ 2 
1418 06537 148 =VARDC A=DAT1 B 


1419 0537F 846 VARDC1 ST=0 6 ARRAY FLAG 

1420 05382 AC2 C=0 Ss WP COUNT 

1421 05385 3100 LC(2} =tARRAY Array token 

1422 05389 966 RHC OB NOT ARRAY TOKEN? 

1423 0538C 01 GOYES VARDC2 

1424 x 

1425 0538E 878 *ST=1 8 CALLED BY EXPRDC? 

1426 05391 00 RTNYES 

1427 05393 856 ST=1 6 ARRAY TOKEN 

1428 05396 171 Di=D1+ 2 

1429 05399 148 A=DAT1 B GET TOKEN AFTER ’D0’ 

14% 0539C 3100 VARDC2 LC(2) =tSVAR STRING TOKEN 

1431 053A0 966 RHC OB NOT STRING TOKEN? 

1432 053A3 AO GOYES VARDC4 

1433 053A5 3142 LCASC \$\ 

1434 053A9 798D GOSUB ADDCH+ 

1435 O53AD 336 VARDC4 LCHEX 6960 Range of alpha-digits 
96 

1436 053B3 8E00 GOSUBL =Range ALPHR-DIGIT TOKEN? 
00 

1437 053B9 5E0 GONC VARDC6 

1438 3 

1439 NOT ALPHA-DIGIT TOKEN 

1440 ‘ 

1441 053BC 8&00 GOSUBL =RRANGE ALPHA VAR TOKEN? 
00 

1442 053C2 400 RTNC IF NOT, RETURN CARRY SET 

1443 053C5 500 GONC VARDC7 (B.E.T.) 

1444 e 

1445 053C8 3103 VARDC6 LCHEX 30 

1446 O53CC A86 C=A P 

1447 OS3CF 736D GOSUB ADDCH+ OUTPUT ALPHA-DIGIT TOKEN 

1448 053D3 7C5D VARDC7 GOSUB ADCH++ 

1449 053D7 868 ?ST=0 8 NOT CALLED BY EXPROC? 

1450 053DA 90 GOYES VARDC8 

1451 O$3DC AE2 C=0 B 

1452 OS3DF 775D GOSUB ADDCHR QUTPUT NULL BYTE 

1453 053E3 8OFF VARDC8 CPEX 15 

1454 053E7 OD P=P-1 

1455 053E9 ASC ABEX WP 

1456 O53EC 7630 GOSUB OUTNBS WRITE OUT VAR TO INPUT BUF 

1457 O53F0 D4 A=B OAR Was ’A=B B’ 

1458 053F2 03 RTNCC 

1459 - 


1460 . 
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1461 STITLE RDIZDC - Deconpile RANDOMIZE Strt 
1462 JODO IOI ICICI IO ICO OOO IOC ISO IOI TOK 
1463 JOU IIIS IC IO IO TOTTI IAI OI TTR 
1464 ax 
1465 ** Nane: RDIZDC - RANDOMIZE Deconpile 
1466 ak 
1467 ** Category: STDCMP 
1468 kx 
1469 ** Purpose: DECOMPILES RANDOMIZE STATEMENT 
1470 ak 
1471 ** Entry: D1 POINTS past tRANDONIZE 
1472 ae DO output pointer 
1473 hk P= 0 
1474 am D(A) contains available renory end (AVMENE) 
1475 aa 
1476 Re Exit: via OUTELA 
1477 ah 
1478 tk Calls: OUT2TC, EXPRDC 
1479 ax 
1480 tk Uses: A-C, D1, D0 
1481 ae A-C, D1,D0, RO-R2, SO0,$3,$8,S10,811 -- EXPRDC 
1482 ae 
1483 ** Detail: RANDOMIZ(E) [<nuneric expr>] 
ak 
eee JOISTS ISOC GOGO TOT ITE 
1486 JOSIE OCIS OIG COGIC ICTR 
1487 
1488 053F4 3354 =RDIZDC LCASC \ E\ 
02 
1489 O53FA 7914 GOSUB out2to 
1490 O53FE 6170 GOTO  DROPDC 
x 
ae JOIOIOI IIIS IUGR ITT TI ITE 
1493 JORIS I IIIS IO ICO TIO TT TIT IK 
1494 a 
1495 *k Wane: (S) EQLXCK - End of Stnt check 
1496 *& Nane:(S) EQLDC - End of Stnt check 
1497 ax 
1498 ** Category:  GENUTL 
1499 ae 
1500 ** Purpose: Checks for staternent terminator in the forn of 
1501 ka t! or t@ or tEOL 
1502 x 
1503 k* Entry: P=0 
1504 a 2 entry points: 
1505 a 1) EOLDC - D1 at token in question 
1506 ae 2) EOLXCK - A{B) contains token 
1507 a 
1508 Re EST: CARRY CLR=> No end of statenent token found 
1509 a 
1510 ae Cad] s¢ none 
1511 a 
1512 ** Stack lvls: 0 
1513 xe 


1514 tk Uses: C(B) 
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1515 Kx 
1516 ** History: 
1517 ak 
1518 ae Date Programmer Modifications 
1519 RA wenn een wenn nen n ee oe ------- 
1520 xk 07/07/82 = S.W Inproved docunentation 
1524 Ak 07/28/82 S.W. Elinanated ELSE check 
kh 
i JOE IO III GIS ISI COCO OTT 
1524 JIG III III III TI II II TIO OST TIS II 
1525 x 
1526 x 
1527 05402 148 =EOLDC A=DAT1 B 
1528 05405 3100 =EOLXCK LC(2) =tEOL 
1529 05409 962 A=C OB 
1530 0540C 00 RTNYES 
1531 0540E x0 LC(1) =t@ SAME AS tELSE, tTHEN 
1532 05411 962 *A=C OB 
1533 05414 © RTNYES 
1534 05416 3100 'TEST LC(2) =t! ! 
1535 0541A 962 7A2C OB 
1536 05410 00 RTNYES 
1537 O541F 01 RTN CARRY CLR 
1538 . 


1539 
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1540 
1541 
1542 
1543 
1544 
1545 
1546 
154? 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
155? 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
156? 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1675 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
158? 
1588 
1589 
1590 
1591 
1692 
1593 
1694 


05421 eF 
05423 ASA 
05426 
05426 136 
05429 134 
05420 809 
O542F 887 
05432 00 
05434 1501 
05438 134 
0543B 20 
05430 03 
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STITLE Output to Buffer 
IRIS III III III IIT IIIT III III IIIT IIIT II SS SISSI ISIS SSRI ISIS IIA 


JOGO UII OO ITO IO ITOK 
ke 

*k Nane:(S) QUINBS - Output nibbles 

** Nane:(S) QUTINBC - Qutput nibbles 

** Nane:(S) OUTC15 - Output nibbles 

ke 


*k Category:  GENUTL 


ka 
** Purpose: Outputs specified nunber of nibbles fron A or 
RR C to RAN pointed to by 

ka . 

*k Entry: D(A) points to AVMENE 

KK DO positioned properly 

ae 3 entry points: 

ax 1) QUTINBS - P set for WP urite 

ax Source in A 

KK 2) QUTNBC - sane as above except source in C 
ak 3) OUTC15 - Outputs entire word fron C 

ah 

KK Exit: P=0, Carry clear, DO updated, D(A) preserved 
kk 

** Calls: none 

xk 

** Stack lvls: 0 

tok 

k* Uses: C, A (all entry points except OUTNBS), P, DO 
kk 

** History: 

Xk 

kk Date Progranrier Modifications 

Oe? poets VPAe ae | deans eS 

RX 07/08/82 SLU. Inproved docunentation 

xx 10/18/82 S.W Deleted OUTNC+, OUTNB+ entry 

es points; added QUTC15 


a 
FOOT TTT TOIT TOTTI III I ISIN 
FORO I TOTTI OOOO UIT OTOI O IT T TTOTITTIOK 


x 
x 
=QUTCI5 P= 15 
=QUTNBC A=C WP 
=OUTNBS 
CDOEX 
DO=C 
C+P+} 
7C>D OA 
GOYES OUTOVF 
DRTO=A UP 
DO=C 
P= 0 
RTNCC 
x 
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1595 O543F 8CO0O OUTOVF GOLONG =NENERR 
00 
1596 k 


1597 k 





Saturn Assenbler 


Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


Ver. 3.39/Rev. 2306 Decorpile PRINT, FIX, DELAY, WAIT Page 40 
1598 STITLE Deconpile PRINT, FIX, DELAY, WAIT 
1599 JOO IO II III TI III TOTTI TT TIT III O SSIS SSI SS IIIS IM 
1600 JI OI I I II IIIT ISI II IIT IDI I TOT IIIS ITT ITI TTI II SSSI SSSI IS TIN 
1601 ia 
1602 *k Narie:(S) PRNTDC - Expression List Deconpile 
1603 ** Narie:(S) DISPDC - Expression List Deconpile 
1604 ** Nane:(S) FIXDC - Expression List Deconpile 
1605 ** Narie:(S) DROPDC - Expression List Deconpile 
1606 ae 
1607 ** Category: STDCMP 
1608 aK 
1609 ** Purpose: Deconpiles PRINT, DISP, POKE, FIX, SCI, ENG, FLAG, 
1610 ak DELAY, WAIT, INPUT, READ, statenents 
1611 ak 
1612 aX Entry: P=0 
1613 xn A(B) contains token pointed to by D1 
1614 Se D(A) contains available nenory end (RAVMENE) 
1615 ak D1 input pointer 
1616 ak DO = output pointer 
1617 ae PRNTDC - Entry FOR PRINT, DISP 
1618 ak Allows USING to precede expression list 
1619 BX FIXDC - Entry FOR FIX, SCI, & ENG 
1620 aR Must be at least 1 expression in list 
1621 ax DROPDC - Entry for DROP, ADD 
1622 Ah Optional expression list (none necessary) 
1623 ods INPTDC - Entry for INPUT 
1624 = READDC - Entry for READ, READH 
1625 ies SFLGOC - Entry for SFLAG, CFLAG 
1626 aX Deconpiles ALL, NATH, or expression list 
1627 la 
1628 ** Calls: QUTITK, EXPRDC, GTEXT+, EQLXC*, LINHDC, -EXPR-, 
1629 a CONTST 
1630 ae 
1631 xk Uses: A-C, D1,D0, $9 
1632 aX A-C, D1,DO, RO-R2, SO,S3,$8,S10,S11 -- EXPROC 
1633 a 
1634 kX Detail: WILL WORK FOR ANY STATEMENT WHICH COMPILES TO A LIST 
1635 ax OF EXPRESSIONS DELIMITED BY COMMA OR SEMI-COLON 
1636 aR TOKENS. 
163? ae 2 ENTRY POINTS: 
1638 a 1) PRNTDC - FOR STATEMENTS WHICH OPTIONALLY ALLOW 
1639 aE A NULL LIST. 
1640 aE 2) DLAYDC - OTHERWISE 
1641 x 
1642 ** NOTE: tEND, tTAB, or \#\ MAY NOT BE USED AS A ’KLUDGE’ TOKEN 
1643 ae BY ANY ROUTINES THAT USE THIS ROUTINE. 
1644 ae 
1645 **® Stk lvls: 6 
1646 xR 
1647 ** History: 
1648 x 
1649 ef Date Progranner Modifications 
1650 ae ee 
1651 ee 08/18/82 SLU. Added docunentation 


1652 


xk 


Saturn Assenbler 


Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


Ver. 3.39/Rev. 2306 Decompile PRINT,FIX, DELAY, WAIT Page 41 
1653 RIKI III IIR KITT IAI III IIIS INI II III IIIS ISR ISIS IIIS ISSA II IIS SISK IIA 
1654 RIK KIKI ISIS SIDA IIL III OITA III II II IASI IIL III ISIS II SSSI ASSIS SSIS SSS 
1655 % 

1656 05445 96C =INPTDC 7RHO) OB No prompt? 

1657 05448 B4 GOYES FIXDC 

1658 O544A 171 D1i=D1+ 2 Step over O-byte preceding pronpt 
1659 0544) 554 GONC FIXDC (B.E.T.) 

1660 x 

1661 05450 =PRNTDC 

1662 05450 3100 =DISPDC LC(2) =tUSING 

1663 05454 966 PAHC OB 

1664 05457 91 GOYES DROPOC 

1665 & 

1666 05459 859 ST=1 9 WANT TRAILING BLANK 
1667 O545C 79F0 GOSUB gtexta QUTPUT ’USING ’ 
1668 05460 75AC GOSUB  LINHCK Deconpile possible line# 
1669 05464 6800 GOTO  DROPDC 

1670 x 

1671 05468 31€2 PRIDC, LCASC \,\ 

1672 x 

1673 O546C 7752 PRTDCO GOSUB Outby+ 

1674 x 

1675 05470 =DROPDC 

1676 05470 787E =ADDDC GOSUB EOLXC* MAY HAVE NO PARNS 
1677 * NOT AN EOL TOKEN 

1678 05474 70FD GOSUB CON10 COMMA Token low nibble 
1679 05478 4FE GOC PRIOC, 

1680 0547B E6 C=C+1 A 

1681 0547D 962 *A=C OB SEMICOLON TOKEN? 
1682 05480 Al GOYES PRTDC4 

1683 05482 300 LC(1) =tTAB High nib also F 
1684 05485 962 *A=C OB TAB TOKEN? 

1685 05488 91 GOYES PRTDC6 

1686 O548A 3132 =READDC LCASC \#\ 

1687 O548E 962 *A=C OB 

1688 05491 BD GOYES PRTDCO 

1689 

1690 * LC(2) =tEND 

1691 & *A=C OB END TOKEN? (FOR RESTORE#) 
1692 - GOYES SFLGD5 

1693 . 

1694 * MUST BE AN EXPRESSION 

1695 & 

1696 05493 =LROC 

1697 05493 =WAITd 

1698 05493 =WINDWd 

16939 05493 =DELAYd 

1700 05493 7000 =FIXDC GOSUB =EXPRDC 

1701 05497 58D GONC DROPDC (B.E.T.) 

1702 , 

1703 * SEMICOLON, # 

1704 . 

1705 O549A 3183 PRTDC4 LCASC \;\ 

1706 O5S49E 4DC GOC PRTDCO (826.15) 


1707 


x 
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1708 * TAB 
1709 * 
1710 O54A1 700D PRIDC6 GOSUB GTEXT1 OUTPUT ’TAB’ & STEP OVER TOKEN 
1711 O54A5 7422 GOSUB -EXPR- 
1712 O54A39 AEA A=C B 
1713 OS4AC 53C GONC DROPDC (B.E.T.) 
1714 x 
1715 OS4AF 3100 =SFLGDC LC(2) =tALL 
1716 O54B3 962 ?A=C OB 
1717 05486 FO GOYES SFLGDS 
1718 O54B8 35FE LC(6) =tMATH 
1063 
1719 O54CO 976 RHC OW 
1720 O54C3 OD GOYES FIXDC 
TRACDC Deconpile last token ~- no blanks 


1721 O54C5 663E SFLGDS GOTO 
1722 x 
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1723 STITLE Deconpile ASSIGN statenent 
1724 JUSSI ISOS TOO II TIT II 
1725 JIU IOCIOCIS TOS III I IOS ISI II IIT AT IR 
1726 ax 
1727 ** Wane: ASSNDC - ASSIGNH and NAME Deconpile 
1728 t* Nane: NAHEDC - ASSIGNH and NANE Deconpile 
1729 ax | 
17H *X Category: STDCMP 
1731 ax 
1732 ** Purpose: Deconpiles ASSIGN statenent & NAME statenent 
1733 ax SYNTAX: 
1734 kk ASSIGNH nuneric expr TO <{filenane]:dev addr | filenane | 
1735 7 t* 
1736 ate 
1737 kk Entry: P= 0 
1738 a D(A) contains available nenory end (AVMEME) 
1739 ak D1 input pointer 
1740 ak DO output pointer 
1741 kk 
1742 kk Exit: P= 0 
1743 a via OUTELA 
1744 ak 
1745 tk Calls: GTEXT+, FILDOC, ETMR2O 
1746 A 
1747 kk Stk lvls: 6 
1748 Ee 
1749 ae Detail: dev addr can be HP-IL addr, device word, or dev type 
1750 
1751 ** History: 
1752 
1753 xx Date Progranner Modifications 
1754 £8 rae. ~ gacmweckons | wkeeed decease 
1755 RK 08/18/82 = S.W. Added docunentation 
1756 Rk 10/18/82 = S.W. No longer decompile NULL, 
1757 kx DISPLAY 
1758 ae 
1759 JUI IOI OIG OTIS I IO IIIT III IIIS IST I ISK 
1760 JI OI IT IIIT IO IIIT III IIIT I ASIII IAS SIS TIS: 
1761 * 
1762 x 
1763 054C9 76AO =ASSNDC GOSUB ETNR2O QUTPUT ’#’ & CALL EXPRDC 
1764 x 
1765 * Qutput "TO" 
1766 x 
1767 O54CD 71CC : GOSUB GTXT++ Get "TO" text, output with blanks 
1768 
1769 * CHECK FOR t*, tNULL, tDISPLAY 
1770 054D1 148 A=DAT1 B 
1771 054D4 3100 LC(2) =tt 
1772 05408 966 PARC OB 
1773 054DB AO GOYES NANEDC 
1774 054DD 31A2 LCASC \*\ 
1775 O54E1 6831 GOTO KEYDC1 Output *; GOTO OUTELI 
1776 é 


1777 O54E5 7072 =NAMEDC GOSUB FILDC* 
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1778 OS4E9 6G61E ASNDO6 GOTO OUTELI 
1279 x 
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1780 STITLE Decornpile ON-GOTO, -GOSUB, -RESTORE 
1781 JIU I III OIC CITI ASS ISIS ISOS IOS I SISTA SIA A 
1782 3 III III OTIS III IIIS TI IOS IS IIIS II IIIS IOS STAI IIA 
1783 Rx 
1784 ** Nane: ONODC - ON. .GOTO,..GOSUB,..RESTORE Deconpile 
1785 ** Nane:(S) GOTODC - GOTO Deconpile 
1786 ** Nane:(S) ONDC20 - Keyword and Opt Line#/Label Deconpile 
1787 ak 
1788 ** Category: | STOCMP 
1789 ax 
1790 ** Purpose: 
1791 . ONDC deconpiles ON..GOTO,.. GOSUB,..RESTORE statenents 
1792 x 
1793 a GOTODC entry deconpiles an optional list of line nunbers/ 
1794 ax labels. It is used by GOTO, GOSUB, and RESTORE deconpile 
1795 ak in the nainfrane. 
1796 xk 
1797 ae ONDC20 entry deconpiles a keyword within leading and 
1798 aR trailing blanks, then deconpiles an optional list of line 
1799 kx nunbers/labels. 
1800 xx 
1801 ** Entry: 
1802 aK D(A) contains available menory end (AVMEME) 
183 ae D1 =points into token strean 
1804 ak DO = output pointer 
1805 aR P= 0 
1806 ak Entry points: 
1807 ak ONDC = - D1 points to tERROR, tTIMER, or <expr> 
1808 xx GOTODC - D1 points to start of optional list of 
1809 ks line nunbers/labels. 
1810 ak ONDC20 - D1 points at keyword token preceding 
1811 ak optional list of line nunbers/labels 
1812 me 
1813 ak Exit: Through PRNTDC 
1814 ae 
1815 Calls: EXPROC, LINADC, LABLDC , OUTBYT, GTXT++, ETMRDC 
1816 x 
1817 AX Uses....... 
1818 *k Exclusive: A-C, D1,D0,  $5,S9 (ONDC only) 
1819 xk Inclusive: A-C, RO-R2, D1,D0, $0,S$3,$8,S10,S11 - EXPRDC 
1820 ae 
1821 kk Stk lvls: 6 
1822 sai 
1823 ** Detail: 
1824 kk ON ERROR (GOTO|GOSUB) (<lineno> | <label> ) 
1825 Kk ON TINER #<tiner no>, <#secs> (GOTO|GOSUB) 
1826 kk (<lineno> | <label>) 
182? xx ON <exp> GOTO <lineno>|<label> [,<lineno>|<label>] 
1828 ah GOSUB 
1829 ie RESTORE 
18% ae 
1831 ** History: 
1832 ax 
1833 ax Date Programmer Modification 
1834 KR wen mm nme wwe nee tenn nme nnn nn ener nen tener ncrcee 
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1835 kk 07/13/82 J.P. Modified docunentation 
1836 xk 08/29/83 SW. Updated docurnentation 
183? xk 
1838 JOO IO OOOO IGS TTT IIR 
1839 JOOS ICO ISU COC RIT 


1840 x 
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1841 STITLE RUN Deconpile 
1842 KI IKI IIIS I IS IIT LI III II IIIT IIT SI IIS ISISISSISII SSIS III I III ISS IS SISA 
1843 FOI IIE II II IIIA IASI IS III IIIS ISI SSI ISIS III IIIS IS IAS 
1844 aR 
1845 at Narie: RUNDC - Deconpile RUN statenent 
1846 - ae 
1847 ** Category: STDCMP 
1848 a 
1849 *% Purpose: 
1850 a Deconpile start of RUN statenent 
1851 a 
1852 *% Entry: 
1853 ak D1 past RUN token 
1854 ah DO output pointer 
1855 ak D(R) contains available nenory end (AVMENE) 
1856 aR P= 0 
1857 ak 
1858 xk Exit: 
1859 ah via OUTELA 
1860 an 
1861 ** Calls: FILDC+, COMTST, OUTBYT, LINWCK, LABLOC 
1862 aR 
1863 AK Uses....... 
1864 *k Exclusive: A-C, 01,00, sRUNDC ($7) 
1865 . Inclusive: A-C, 01,00, RO-R2, $0,S$3,88,S10, 311 -- EXPROC 
1866 
1867 ek Stk lvls: 5 
1868 aR 
1869 xX Detail: 
1870 eA Tokenized forns: 
1871 aE 
1872 Re tRUN tRFILE <file spec> 
1873 ak { tCONMA tLINE# <jump addr> <line#> | 
1874 ak tCOMMA tLBLRF <string expression> | 
1875 ak tCOMMA tLBLRF tLITRL <ASCII label> ] 
1876 xk tRUN tCOMMA tLINEX <junp addr> <line#> 
1877 ug tRUN tCOMMA tLBLRF <string expression> | 
1878 a tCONMA tLBLRF tLITRL <ASCII label> ] 
1879 ax tRUN tLINE# .... 
1880 ax tRUN 
1881 a 
1882 aR Deconpile forns: 
1883 RR 
1884 an RUN <filespec> [ , <lineno> | <label> ] 
1885 mK RUN <lineno> 
1886 aK RUN , <label> | <lineno> 
1887 ax RUN 
1888 ae 
1889 *k History: 
1890 - 
1894 aE Date Prograrner Modification 
1892 BR mw mc rene creer reer wren rence re rere renner er cere men eee 
1893 ak 07/13/82 = J.P. Modified docunentation 
1894 ze 


1895 JOIST TT IIT II TTI IK 
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1896 

1897 O54ED 7050 
1898 O54F1 SFO 
1899 O54F4 865 
1900 054F7 60 
1901 O54F9 7CD1 
192 

1903 

1904 

1905 O54FD 7000 
1906 

1907 05501 7D8C 
1908 05505 582 
1909 

1910 

1911 

1912 

1913 

1914 

1915 05508 857 
1916 O550B 3100 
1917 OSSOF 966 
1918 05512 60 
1919 05514 7E32 
1920 

1921 05518 

1922 05518 794D 
1923 0551C 4A0 
1924 O551F 877 
1925 06522 FO 
1926 05524 54C 
1927 05527 7EAt 
1928 0552B 550 
1929 

1930 

1931 O582E 

1932 O552E 

1933 O582E 847 
1934 05531 14B 
1935 05534 7108 
1936 05538 5FD 
1937 

1938 

1939 

1940 05538 CE 
1941 0553D 966 
1942 05540 90 
1943 05542 7CBI 
1944 05546 51D 
1945 

1946 

1947 

1948 05543 662F 
1949 

1950 


5:00 ar 
Page 48 


Fri Dec 30, 1983 


FOI IIIT TOTTI TOT OO 


GOSUB ETMRDC 
GONC  ONDC20 
7S8T=0 5 

GOYES ONDC10 
GOSUB OQutb,+ 


=ONDC 


x 


Deconpile ERROR | TIMER 
ON ERROR statenent 
Not ON TINER# <expr>, 


* Deconpile expression of ON TIMER #<expr> | ON <expr> 
x 


ONDC1O GOSUB =EXPRDC 


* Qutput leading & trailing blanks 


=ONDC20 GOSUB GTXT++ BLANKS 
GONC RESTDC (B.E.T.) 
x 
* RUN Deconpile Entry 
x Ck. for Conna after <filespec> or before <lineno|label> 
x If Not Corina and RUN Deconpile 
® go Check for <lineno> 
x 
=RUNDC ST=1 = sRUNDC Set RUN Deconpile flag 
LC(2) =tRFILE 
ARC OB No RUN file ? 
GOYES RUNDC+ Deconpile [ <lineno> | <label> ] 
GOSUB FILDC+ Skip tRFILE, Decompile <filespec> 
RUNDC + 
ONDC40 GOSUB CONTST 
COC ONDC42 Output it and continue 
?$T=1 ~~ sRUNDC Run Deconpile ? 
GOYES ONDC5O No corna, Look for Line# 
GONC  ASNDOE B.E.T. - Must be stnt end 
ONDC42 GOSUB Outb,+ 
GONC ONDC5O B.E.T. to Skip flag clearing 
k 
k 
=GOTODC 
=GOSBDC 
=RESTDC ST=0 = sRUNDC Clear RUN Deconpile flag 
ONDC50 A=DAT1 B 
GOSUB  LIN#CK Deconpile possible line# 


GONC § ONDC40 
x 


* Deconpile Label 
x 


C=C-1 A 

AAC OB 

GOYES ONDC80 

GOSUB LABLDC 

GONC ONDC40 
& 


* Not <lineno> | <label> 
* 


ONDC8O GOTO DROPDC 
x 


x 


Line# found ? 


Label Reference Token 
NOT LABEL? 


Decoripile Label 
(B.E.T.) 
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1951 STITLE Deconpile ERROR/TIMER of ON/OFF 
1952 SUI TIGR TT TT TOR 
1953 JOISTS IO ITO TTT TIO TIT 
1954 kk 
1955 sp Narie: ETMRDOC - ERROR/TINER Deconpile of ON/OFF 
1956 x 
1957 ** Category:  STDCHP 
1958 ak 
1959 ** Purpose: 
1960 ois Deconpile ERROR | TINER portion of ON & OFF statenent 
1961 
1962 ** Entry: 
1963 ak P= 0 
1964 kk D(A) contains available menory end (AVMEME) 
1965 ae DO output pointer 
1966 xk D1 past ON | ERROR token 
1967 ak A(B) contains following token 
1968 aK 
1969 Ak Exit: 
1970 a Carry clear: ERROR 
1971 aK Carry set: TIMER | Not TIMER or ERROR 
1972 ak $5=1 af TINER 
1973 ak 
1974 ak R holds next token 
1975 ak 
1976 tk Calls: GTEXT+, OBEXPR 
1977 aK 
1978 RK Uses... 6... 
1979 *k Exclusive: A-C, R1,R2, $5,S9, 01,00 
1980 . Inclusive: A-C, RO-R2, SO,S3,$8,S10,S11, 01,00 - EXPRDC 
1981 
1982 “i S5=1 if TIMER #<expr> 
1983 aK 
1984 kk Stk lvls: 5 
1985 ak 
1986 *k Algorithn: 
198? ak 
1988 ak Clear TIMER# flag ($5) 
1989 ak If next token = ERROR 
19% aK Output “ERROR " (OUTNBC) 
1991 Rk Skip token, Read next token 
1992 ak RTNCC 
1933 kk If next token = TIMER 
1994 a Output "TIMER " (OUTNBC) 
1995 ae Output "#" (OUTBYT) 
1996 aK Set ON TIMER flag 
1997 ak Deconpile TINER# <expr> (EXPRDC) 
1998 ak Read next token 
1999 ak RINSC 
2000 a 
2001 *k History: 
2002 ak 
2003 -* Date Progranner Modification 
2004 RE ceca weee.  GeeenbacSee “omieted ba kik ice einen Sine ie mlm de 


2005 kK 07/13/82 J.P. Modified docurientation 
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2006 . 07/07/83 = S.W. Elininated A=DAT1 B as 2nd statenent. 
ree JIU IOI UO OO TI II TTI 
2009 JOO ICI IOI IOC TIO TO ER 
2010 x 
2011 05540 845 =ETHRDC ST=0 5 Clear TINER# flag 
2012 05550 3100 LC(2) =tERROR 
2013 05554 966 7ARC OB not ERROR ? 

2014 05557 BO GOYES ETMR1O 

2015 k 

2016 * ERROR 

2017 x 

2018 * Assure S9 clear 

2019 05559 7C3C gtexta GOSUB GTEXT+ 

2020 0555) 148 A=DAT1 B Read next token 
2021 05560 03 RTNCC 

2022 & 

2023 * Not ERROR or TIMER 

2024 x 

2025 05562 £6 ETMRIO C=C+1 A TIMER token 
2026 05564 966 RHC OC 

2027 05567 00 RTNYES Not TIMER or ERROR 
2028 x 

2029 * TIMER # <expr> 

2030 x 

2031 05569 859 ST=1 9 

2032 O556C 753C GOSUB GTEXT1 

2033 05570 855 ST=1 5 Set TIMER# flag 
2034 05573 3132 ETNR2O LCASC \#\ 


2035 05577 7081 GOSUB OBEXPR Outbyt/EXPRDC 
2036 0557B 02 RTNSC 
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2037 STITLE OFFDC - Deconpile OFF stnt 
2038 SOI IIIT TTT SSO TTI TIT IT I IIIS IIIS IIS III 
2039 SII III I TI IIIT OS IIIT IIS IT IIT OAS TIT III ISI ISTO II TI III III IIASA 
2040 a 
2041 tk Nane: OFFDOC - OFF Statenent Deconpile 
2042 ot 
2043 ** Category: STDCMP 
2044 ki 
2045 ** Purpose: 
2046 is Deconpile OFF statenent 
2047 tk 
2048 *k Entry: 
2049 ak D1 past OFF 
2050 a DO output pointer 
2051 ax D(A) contains available nenory end (AVMENE) 
2052 ax P=0 
2053 ax 
2054 ax Exit: 
2055 aX Through OUTELA 
2056 a> 
2057 ** Calls: ETMRDC 
2058 ak 
2059 RX Uses. ...... 
2060 xx Exclusive: A-C, D1,D0, R1,R2, $5,S89 
2061 kk Inclusive: A-C, RO-R2, 01,00, $0,S3,S$8,S10,511 - EXPRDC 
2062 xe 
2063 ** Stk lvls: 6 
2064 ae 
2065 ** Detail: 
2066 xx OFF [ ERROR | TIMER # <tiner no> 
2067 xe 
2068 ** History: 
2069 ax 
2070 RK Date Progranner Modification 
2071 RK eewewren — meemneeene ew ee nce cer wen mmm nnn nenecwemennncenea 
2072 KK 07/13/82 J.P. Nodified docunentation 
a 
oo JI IT IT IIIS IS IIIT IIT ISIS SII III IIIS IIIT SI SII SISISS ISS III AN 
2075 SII KI IIIT OA TI TIT III III IIA III IIIT III III AI IASI AISI I ISIS SI SII SI IN 
2076 % 


2077 05570 7CCF 
2078 05581 618D 


=OFFDC GOSUB ETMRDC Deconpile ERROR | TIMER 
GOTO  OUTELA . Process EQL 
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2079 STITLE OPTDC - Deconpile OPTION stnt 
2080 JOO III II ISOC OOO CII II TOT TIT ITI I III IS 
2081 JOIST I OOO TITS TOSI II IIIT ITT T III IN 
2082 ts 
2083 ** Nane: OPTDC - OPTION Deconpile 
2084 A 
2085 ** Category: STDCMP 
2086 ax 
2087 - Purpose: Decorpiles OPTION, DEFAULT, TRACE statenents 
2088 x 
2089 ** Entry: Di past tOPTION, tDEFAULT 
2090 ae DO output pointer 
2091 a D(A) contains available nenory end (AVMENE) 
2092 kk P= 0 
2093 ax A(B) contains byte pointed to by D1 
2094 ak 
2095 *k Calls: GTEXT1, EXPRDC 
2096 ak 
2097 ** Uses: A-C, R1,R2, $8,89, DI,D0 
2098 am A-C, RO-R2, 01,00, SO,S3,S8,S10,811 - EXPRDC 
2099 ax 
2100 A Stk lvis: 5 
2101 ae 
2102 ** Detail: OPTION BASE <nun exp> 
2103 ax OPTION ANGLE DEGREES | RADIANS 
2104 ax OPTION ROUND NEAR | PINF | NINF | ZERO 
2105 xx DEFAULT ON | OFF | EXTEND 
2106 ae TRACE FLOW {| VARS | OFF 
2107 ax 
2108 ** History: 
2109 as 
2110 x Date Programmer Modifications 
2111 RK anne ne cece reer tee ee rere --- 
2112 KK 08/18/82 = SLM. Added docunentation 
kk 
itd JOS III OI TOO IIIT IIIS SII TOOT ISI III TI IIIT TK 
2115 JOIST ITO IIIT IT III ITI IATA K 
2116 . 
2117 t 
2118 05585 3100 =OPTDC LC(2) =tBASE 
2119 05589 966 ARC OB 
2120 0558C 50 GOYES OPTDC1 
2121 O558E 858 ST=1 8 BASE FLAG 
2122 05591 859 OPTDCY ST=1 3 WANT TRAILING BLANK 
2123 05594 7D0C GOSUB GTEXT1 
2124 05598 &78 *ST=1 8 BASE? 
2125 0559B 90 GOYES OPTDCe YES=> DECOMPILE NUMERIC EXPR 
2126 05590 148 A=DAT1 B Read DEGREES or RADIANS token 
2127 O55A0 6B5D GOTO §=TRACDC 
2128 * 
2129 O55A4 GEEE 


2130 


OPTDC2 GOTO FIXDC 
* 
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2131 STITLE END SUB Deconpile 
2132 JIC TU OTT I TIT TITTIES IIT 
2133 JOIST IO OEIC UC OI IT TOTTI TTT ATI 
2134 ae 
2135 ** Nane: ENDSDC - END SUB, END DEF Deconpile 
2136 ae 
2137 ** Category: STDCMP 
2138 a 
2139 ** Purpose: Deconpile END SUB & END DEF statenents 
2140 ae 
2141 ** Entry: P= 0 
2142 an D(A) contains available menory end (RVNENE) 
2143 he D1 points past token 
2144 xk DO output pointer 
2145 ak 
2146 kK Exit: via OUTEL1 
2147 kk 
2148 xk Calls: OUTC15 
2149 xk 
2150 ** Stk lvls: 1 
2151 < 
2152 kk Uses: A,C, 01,00 
2153 ax 
2154 ** Detail: Backs up over <= that has been output then outputs — 
2155 xk END SUB or END DEF 
2156 a 
2157 JOIST TIT III III IT III IIIT IO II IIIA ATI III IITA 
2158 JOIST IO TIO OTR IIIT III III III ITI STII IE TT AS 
2159 % 
2160 O55A8 187 =ENDSDC DO=D0- 8 Back up over 3 chars & blank 
2161 which has been output 
2162 OS5AB 3F54 LCASC \ BUS DNE\ END SUB 
£444 
0235 
§524 
02 
2163 O55BD 706E ENDSIO GOSUB OQUTC15 Qutput entire word 
2164 0S5C1 174 Di=D1i+ 5 Skip over link field 
2165 055C4 6830 ENDS11 GOTO OUTEL1 
2166 
2167 O55C8 187 =ENDDDC DO=D0- 8 Back up over 3 chars & blank 
2168 uhich has been output 
2169 O55(B 3F54 LCASC \ FED DNE\ END DEF 
£444 
0244 
5464 
02 
2170 OSSDD SFD GONC ENDS10 (B.E.T.) 
2171 x 
2172 . 
2173 x 
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2174 STITLE KEYDC - Deconpile KEY stnt 
2475 JIG II I III TOO ISI I III SI IIIT II III IIIS IS IIIA TIS S II IIMA 
2176 JOO III III OCI IO IOI ITI TI TOSI IIIT TTT TI IS SIM 
2177 ax 
2178 **k Nane: KEYDC - KEY statement deconpile 
2179 x 
2180 xk Category: STDCMP 
2181 kk 
2182 ** Purpose: Deconpiles DEF KEY staterent 
2183 ae 
2184 ** Entry: D1 points past tKEY 
2185 ax DO output pointer 
2186 ax D(A) contains available menory end (AVMENE) 
2187 kx P= 0 
2188 k 
2189 Ke Exit; via OUTEL1 
2190 ak 
2191 ** Calls: OUTITK, OUTNBC, EXPRDC, EOLXC* 
2192 ad 
2193 *k Uses: A-C, 01, 
2194 kk A-C, RO-R2, D1,D0, SO,S$3,S8,810,S11 -- EXPRDC 
2195 ik 
2196 **k Stk lvls: 5 
2197 aR 
2198 ** Detail: WRITES OUT ’DEF KEY’ IN PLACE OF ’KEY’ 
2199 aK 
2200 *k History: 
2201 Kx 
2202 kk Date Progranner Modification 
2203 RECS Ese aglaw “Sabsceacnencutsanst ines lous 
2204 kk 08/23/83 S.U. Added docunentation 
2205 ae 
2206 JORIS IDI IOC IIIT III TIT ITI STITH 
2207 JOR ISO I III TIO EI TIT II TTT TTI IIS TIAA 
2208 . 
2209 O55EO 187 =KEYDC DO=D0- 8 Back up over ’KEY ’ 
2210 O55E3 3F44 LCASC =\ YEK FED\ 
5464 
02B4 
5495 
02 
2211 OSSFS 782E GOSUB OUTC15 
22t2 O55F9 7000 GOSUB =EXPRDC Deconpile strng or nun expr 
2213 OSSFD 7BEC GOSUB EQLXC* Doesn’t rtn if strt end 
2214 05601 7410 GOSUR Outb,+ Write out corna; skip over token 
2215 05605 7000 GOSUB =EXPRDC Deconpile strng expr 
eclb * Can only be strt end (EQL,@,0R '), colon, or semi-colon 
2217 05609 31B3 LCASC =\;\ 
2218 05600 962 7A=C) OB SEMI-COLON? 
2219 05610 AO GOYES KEYDC1 
2220 . 
2221 05612 30A ue(4) As \ 
2222 05615 966 TARE OB NOT COLON? 
2223 05618 CA GOYES ENDS11 


2224 0561A 79AO KEYDC1 GOSUB OQutby+ 
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2225 O561E 558 GONC ENDS11 (B.£.T.) 
2226 x 
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2227 STITLE TRANSFORM Deconpile 
2928 JOO IG III III SITIO OOO SIS OSI ISI ISI OS IIS TTS OTS IA 
2229 JO OI IIIS IIIS OIG GIT SII SST IAT ISK 
2230 kk 
2231 ** Nane: TRSFMD - TRANSFORM Deconpile 
2232 aa 
2233 *k Category: STDOCHP 
2234 kk 
2235 xk Purpose: 
2236 ak Decompile TRANSFORM statenent. 
2237 kh 
2238 ** Entry: 
2239 ak P = 0 
2240 ak DO past "TRANSFOR " 
2241 aK D1 past TRANSFORM token 
2242 aR D(A) contains available menory end (AVMENE) 
2243 a 
2244 ak Exit: 
2245 aE Through CREADC & PRNTDC 
2246 ah P = 0 
2247 xR 
2248 ee Calls: FTYPDC, OUT2TC, FILDC, BLNKCK, GTEXT+, EOLXC* 
2249 
2250 AE USES. bias 
2251 *k Exclusive: R-C, 01,00, RO-R2, S8,S9 
2252 - Inclusive: A-C, RO-R2, D1,D0, SO0,S3,S8,S10,811 -- EXPRDC 
2253 
2254 x Stk lvls: 6 
2255 ie 
2256 ** Detail: Must itinediately precede CREADC 
2257 RE 
2258 ** History: 
2259 ak 
2260 ae Date Progranner Modification 
2261 KX” .cSccaemeac:’ Veaetidclesoea  lLeeeceece ilocos cs cccewinaccmes Ss eases 
2262 AK 06/14/82 FH Designed and coded. 
2263 08/13/82 FH. Packed using SW’s table routine 
2264 . 08/29/83 S.W. Updated docunentation. 

x 
Ore JOO III III OC I TTT I ITO IIIA SII STIRS IA 
2967 JES IO III ISIE ISI TOC IGOR TO II ITI II 
2268 05621 3304 =TRSFMD LCASC \ M\ Output "MN" of TRANSFOR[IN] 

02 
2269 05627 7CE1 GOSUB out2td 
2270 0562B AF6 C=A W 
2271 O562E 1585 A=DAT1 6 
22?2 05632 35FE LC(6) =tINTO 
10E2 

2273 0563A 972 ?R=C OW INTO? 
2274 0563D RO GOYES TFMD2O 
2275 O563F 7611 GOSUB FILDC* Deconpile file spec 
2276 05643 7A7B GOSUB BLNKCK Output blank 
2277 05647 859 =TFMD20 ST=1 = 9 Deconpile "INTO" token 
2278 O564A 7B4B GOSUB GTEXT+ ‘ 


e279 


x 
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2280 * 
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2281 STITLE CREATE Deconpile 
2282 JEG I OCC COI II TIS ITI II III SAT IIIA I IK 
9283 JI III III TI IT IIIA III IIS III ISIS SSSI SII IIIS SSSI ISIS ISIS ISI IIA 
2284 aK 
2285 ** Narie: CREADC - CREATE Deconpile 
2286 ax 
2287 *k Category: STDCMP 
2288 ak 
2289 *k Purpose: 
2290 x Deconpiles File type & following optional file spec 
2291 ak & expressions 
2292 an 
2293 ax Entry: 
2294 ax P = 0 
2295 ak D1 at file type# 
2296 ax DO output pointer 
2237 an D(A) contains available nernory end (AVMENE) 
2298 - 
2299 RK Exit: 
2300 aK P = 0 
2301 an File type & file spec (if any) deconpiled 
2302 ae 
2303 *k Calls: FTYPDC, EOQLXC*, BLNKCK, FILDC 
2304 aK 
2305 ica) eee ee 
2306 xk Exclusive: A-C, 01,00, RO 
2307 *k Inclusive: A-C, RO-R2, 01,00, S0,$3,S8,S10,S11 - EXPRDC 
2308 ax 
2309 xk Stk lvls: 6 
2310 ax 
2311 kk History: 
2312 xs 
2313 we Date Progranter Modification 
2314 RK manne nn mene enn meen nnn een n enn errr renner en nner ene 
2315 a 08/16/82 = S.U. Wrote for usage by CREADC, TRSFND 
as JOIST IIIT TTI IIIT III III IO III IIIS IIIS SI ISI SIS IIIS IIA 
2318 JI II TI III ISIS SSSI ISIS S IIIS SSS IIIS IIIS IIIA IK 
2313 * 
2320 . 
2321 O564E 8E00 =CREADC GOSUBL =FTYPD+ Ck MEM & DECOMPILE FILE TYPE 
00 
2322 * 
2323 05654 7968 GOSUB = BLNKCK Ensure only 1 blank output 
2324 05658 173 Di=D1+ 4 STEP OVER TYPE # 
2325 O565B 7D8C GOSUB EOLXC* No rtn if at strt end 


2326 
2327 OS65F 76FO 
2328 05663 6C0E 
2329 


* SINGLE BLANK QUTPUT 


x 


GOSUB FILDC* 
GOTO DROPDC Optional nuneric expressions 
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230 STITLE SUB Parn List Deconpile 
2331 JE OO IO ISI TOI OCTO IIIS ISIC TI TIT E 
2332 JUICE TIT TOE 
2333 xe 
2334 &* Nane: PARMCK - Paraneter Check 
2335 ak 
2336 ** Category: LOCAL 
2337 kk 
2338 Af Purpose: DECOMPILES SUB-PROGRAN NANE & CHECKS FOR PARM LIST 
2339 
2340 &* Entry: P= 0 
2341 KK D(A) contains available memory end (AVMENE) 
2342 ak D1 points into token strean 
2343 aR DO points into ascii output buffer 
2344 (es 3 entry points: 
2345 x 1) PRNCK+ - Decompiles sub-progran nane & looks at 
2346 &s parn list (see below) - for CALLOC 
2347 ax 1) PARNCK - Deconpiles subprogran nane & looks at 
2348 x parn list - for SUBDC 
2349 aa 2) PRMCK3 - Returns with carry clear if parn list 
2350 aE done. Deconpiles parm list until a 
2351 a parn unlike <#expr> is encountered. 
2352 ak 
2353 Rk Exit: CARRY SET => NOT YET AT END OF STATEMENT 
2354 a CLR => AT END OF STATEMENT - ) OUTPUT IF 
2355 a APPROPRIATE. 01 past tPRNEN 
2356 a 
2357 t* Calls: FILDC, EXPRDC, OUTBYT, CONTST 
2358 ak 
2359 ** Uses: A-C, D1,D0, $8,S$9 
2360 ak A-C, RO-R2, D1,D0, SO,S$3,S8,S10,811 - EXPRDC 
2361 Rx 
2362 ** Detail: Used by SUB and CALL decompile 
2363 ot 
2364 ** Stk lvls: 6 
2365 na 
2366 ** History: 
2367 ax 
2368 se Date Progranner Modification 
2369 BX nnweee ne sec ee renee eee nneen-- 
2370 xk 07/07/83 S.W. When subprgrn name isn’t a literal 
2371 ex deconpile it in parentheses. 
2372 ak 
2373 SII I II III III IIS TI II III III IIS IIIS III III III III ITA I ITI II IASI II A 
2374 JOO II OCC OIG II IIOT IOI TCI IGA AT TOIT 
2375 ® 
2376 - 
2377 05667 859 PRICK ST=1 9 CALLDC Flag 
2378 
2379 0566A 7BEO PARNCK GOSUB FILDC* 
2380 O566E 148 A=DAT1 B 
2381 05671 3100 LC(2) =tPRMST LEFT PAREN TOKEN 
2382 05675 962 *A=C OO PARN LIST? 
2383 05678 AO GOYES PRNCK1 


2384 
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2385 0567A 171 =ADI+2 D1=D1+ 2 STEP OVER tPRMEN 
2386 0567D 148 A=DAT1 B 
2387 05680 03 RTNCC 
2388 e 
2389 05682 7030 PRNCK1 GOSUB Outlp+ 
2390 05686 148 A=DAT1 B 
2391 05689 5A1 GONC PRNCKS (B.E.T.) 
2392 > 
2393 O568C 148 PRNCK3 A=DAT1 B 
2394 0568F 3100 LC(2) =tPRNEN 
2395 05693 966 7AHC OB Not at end of parn list? 
2396 05696 80 GOYES PRMCK4 
2397 05698 171 D1=D1+ 2 Step over tPRMEN 
2398 05698 593 GONC Outrtp (B.E.T.) 
2399 x 
2400 O569E 7A30 PRNCK4 GOSUB Outby, 
2401 O56AR2 DA A=C A 
2402 O56A4 3132 PRNCKS LCASC \#\ 
2403 O56A8 966 PARC OB 
2404 O56AB 00 RTNYES 
2405 x 
2406 O5S6AD 7740 GOSUB OB+EXD Step over #, Qutput #, Exprdc 
2407 * If SUB, step over tCONMA or tPRNEN 
2408 * If CALL, step over 2 nibble parn descripter 
2409 is 
2410 05681 171 PRACK7 Di=Di+ 2 
2411 056B4 879 *ST=1 9 Not SUB deconpile? 
2412 05687 5D GOYES PRNCK3 
2413 * D1 past tCONMA or tPRMEN 
2414 05689 7BAB GOSUB CON10 
2415 O56BD 571 GONC Outrtp Not corina? 
2416 * D1 past tCONNA; Read in next token 
2417 056C0 4BC GOC PRNCK3 (B.E.T.) 
2418 x 
2419 05603 3182 Outlp+ LCASC \(\ 
2420 056C7 8C00 Outby+ GOLONG =OUTBY+ STEP OVER tPRMEN 
00 
2421 x 
2422 x 
2423 JOO III III IO GI III ROI IOI OK 
2424 JUS II COC TIT TCIOITI I OS SSS TAK 
2425 ae 
2426 ** Nane: -EXPR- - Nun Expr u/opt Parens Decompiler 
2427 a 
2428 ** Category:  DCNUTL 
2429 xx 
24H ** Purpose: 
2431 ad Deconpiles expression in parentheses 
2432 ae 
2433 Ae EWtey: 
2434 a P = 0 
2435 = D1 at start of Expression 
2436 RE DO,B(A) as required by QUTBYT 
2437 x 2 entry points: 


2438 a 1) -EXPR- - Outputs left paren, expression, & right paren 
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2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2462 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 056(D 
2466 05601 
2467 05605 
2468 
2463 056D9 
2470 056DC 
2471 O56E0 
2472 
2473 O56E4 
2474 056E8 
2475 
2476 OS6EC 
2477 O56F0 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
248? 
2488 
2483 
249 
2491 
2492 
2493 


3182 
7620 


171 
3102 
6000 


3172 


31R3 


5:00 an 
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xk 
kk 

ih 

Re EXIT: 
le p = 0 

aK Carry clear 

RE through OUTBYT 
ak 

** Calls: 
kk 
aa 
tok 
kk 
ak 
kh 
aK 
+ 
*k History: 
tk 


2) 7EXPR- - Outputs ascii char in C(B), expression & 
right paren. 


OUTBYT, EXPRDC 

Exclusive: A,C, D1,D0 

Inclusive: A-C, 01,D0, RO-R2, SO,S3,S8,S10,811 - EXPRDC 
Stk lvls: 5 


Modification 


Wrote routine 


RI cee olcss 
08/16/82 
xx 

FORT TOTO OOO 
FORO ITT TTT TT 


x 
-EXPR- VA 
OBEXPR 


PEXPR- 
Outrtp =QUTRP 
k 


S.W. 


LCASC 
GOSUB 
GOTO 


Qutbyt/EXPRDC 
Output ")". 


D1=D1+ 2 
LCASC \ 
GOTO = 


Qutb, + 
Qutby, 
Outbyt 
k 
DC LCRSC 
COTO 
& 
DC LCASC =\:\ 
GOTO =ou 
k 
FOI III ITS ITT IID SI TIA II TODA DI AIS ITI SITS III I SII IIS IIIS AST 
III KI IK SII ITT TIO IR III DIS IIII ISOS IDI IIIS SII ISIS IAI II SII IIT TIO 
kk 
** Nane: 
ka 


DC=EXP - Deconpile ’=’ & Expression 


** Category:  OCMUTL 


&k 
** Purpose: 


Em Outputs ascii =, then deconpiles expression 
kk 

AY Entry: 

a P = 0 

ee D1 2 nibbles prior to expression 

= DO output pointer 

ro 


D(A) contains available menory end (AVNENE) 
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2494 wk 
2495 MEM t 
2496 ke P = 0 
2497 aX Di past expression 
2498 Kx via EXPRDC 
2499 KK 
2500 ** Calls: Qutbyt 
2501 KK 
2502 RE Uses ccc ces 
2503 *k Exclusive: A,C, 01,D0 
2504 *k Inclusive: A-C, RO-R2, 01,00, $0,S3,S8,S10,S11 - EXPRDC 
2505 xx 
2506 kK Stk lvls: 4 
2507 x 
2508 ** History: 
2509 aK 
2510 aK Date Programmer Modification 
2511 RK men n nnn ee nn enn n ne een nn nnn een nn en nen ne een eee 
2512 Kk 08/24/82 SLU. Created routine 
2513 xe 
2514 Pe CCC CCST ITI Ce TTC T CTC TECTTECST CTI CT TCT ITEC CCT ESET TS TS STS T TT TTT 
2515 JOIST IC SII TTI ETT RE 
2516 x 


2517 OS6F4 3103 DC=EXP LCASC \=\ 


2518 OS6F8 171 OB+EXD D1=Di+ 2 step over token 
2519 O56FB 7000 OBEXPR GOSUB =outbyt Output char 
2520 OS6FF 5E1 GONC Exprdc (B.E.T.) 


2521 
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2522 STITLE LBLDC - Label Reference Deconpile 
2523 JOS OTITIS IIT TIS TT O TT TAIT 
2504 JESUIT II TO ITO ITI OTA T ASS 
2525 aa 
2526 ** Nane:(S) LABLDC - Lable Deconpile 
2627 ak 
2528 ** Category:  DCMUTL 
2529 a 
2530 ** Purpose: 
2531 aK Deconpiles label references 
2532 ak 
2533 ** Entry: 
2534 as D1 at tLBLRF 
2535 aR DO output pointer 
2536 aR P=0 
2537 ax D(A) contains available nenory end (AYMENME) 
2538 aR 
2539 ae Exit: 
2540 aK P=0 
2541 ak Carry clear 
2542 aE D1 past string expression or literal 
2543 ax DO past deconpiled label 
2544 ae 
2545 - If string expression, through EXPRDC 
2546 xx else through OUTBYT 
2547 + 
2548 ** Calls: AD1+2, ASCICK, OUTBYT 
2549 ak 
2550 SP USE So 5 oo 
2551 xk Inclusive: A,C, D1,D0 
2552 ei Exclusive: A-C, D1,D0, RO-R2, SO,S3,S8,S10,S11 - EXPRDC 
2553 
2554 Re Stk Ivis: 4 
2555 a 
2556 ** Detail: 
2557 ae tLBLRF tLITRL <asci label> 
2558 a tLBLRF <string expression> 
2559 a 
2560 ** History: 
2561 ak 
2562 xk Date Progratiner Modification 
2563 RK ew mcemne mm ewer ene ene c eer eeen ne nnn nen wen nnne men ese wee 
2564 ie 07/13/82 J.P. Modified docunentation 
oe JI OO TI TI ITI OI ITOK III SII ITO TIT RII IITA TT TST IIK 
2567 JU I III TOI TOTO ITO TISAI IIT SI SI SI IIIA 
2568 05702 747F =LABLDC GOSUB AD1+2 Label Token 
2569 05706 3100 LC(2)  =tLITRL Label Literal ? 
2570 0570A 966 PARC OB 
2571 05700 11 GOYES €Exprdc 
2572 OS70F 71DF GOSUB ’DC 
2573 05713 743A GOSUB ASCI+ 
2574 05717 5CC CONC §=’*DC (B.E.T.) 


2575 
2576 


* 
x 


Line Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


Label 1s a string expression 
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2577 x 
2578 O571A 747A Exprd* GOSUB GTXT++ Want leading & trailing blanks 


2579 OS71E 6000 Exprdce GOTO =EXPROC Deconpile String expression 
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2580 STITLE Deconpile File connands 
2581 $3 SII UO TTI IIT IOI I STASI ISOS IIIT BRIS SI III STIS IK 
2682 JU TTT TE TT TOTTI IAS IAI IAISISI IIIS IIS SII SS A 
2583 aK 
2584 ak Narie: RENMDC - PURGE, COPY Deconpile 
2585 *& Narie:(S) PURGDC - PURGE, COPY Deconpile 
2586 ak Narie: COPYDC - PURGE, COPY Deconpile 
2587 aR 
2588 ** Category: STDCMP 
2589 aE 
2590 . Purpose: Decorpiles RENANE, PURGE, PRIVATE, COPY 
2591 
2592 xk Entry: P= 0 
2593 ak D1 past begin BASIC token 
2594 ak DO output file 
2595 aK D(A) contains available menory end (AVNENE) 
2596 ak 
2597 ax Exit: via QUTEL1 
2538 ae 
2539 ** Calls: FILDC, GTEXT+, EOLXC*, BLNKCK 
2600 ak 
2601 *k Uses: A-C, D1,DO, R1,R2, $8,3S9 
2602 ak A-C, D1,D0, RO-R2, SO,S3,S8,S10,S11 -- EXPRDC 
2603 ak 
2604 tk Stk lvls: 6 
2605 ak 
2606 ** Detail: NAME <file nane> 
2607 ak PURGE <file specifier>|ALL|keys 
2608 ae RENAME [<file eee i leo ikeyat TO <file nane>|keys 
2609 KK COPY { <file spec> | KEYS | CARD | PCROD ] [ TO 
2610 ak [ <file spec> | KEYS | CARD | PCRD J ] 
2611 ak 
2612 ** Note: The 10 clause 1s OPTIONAL in a COPY statenent 
2613 ak In RENAME, the T0 1s ALWAYS there 
2614 ak 
2615 ak <destination file> is optional in COPY 
2616 ak This requires an EOL Check to be done after <file2> 
2617 x This does not affect RENANE Deconpile 
2618 ak 
2619 ** History: 
2620 ak 
2621 . Date Progranner Modifications 
2622 Bh nnn nnn nena eee eee nee e nnn ee 
2623 RK 08/18/82 S.W. Added docunentation 
ah 
ce JU III OCI OOOO TTT TIT TTT IIT 
2626 FORO OO IOI RTO OO 
2627 x 
2628 05722 76CB =COPYDC GOSUB EOLXC* 
2629 05726 3100 =RENNDC LC(2) =tT0 TO TOKEN 
2630 0572A 962 *A=C) OB 
2631 0572D £0 GOYES RNMDC2 
2632 & 
2633 


2634 


* Decompile <file speci> | Reserve Word 
i 
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2635 O572F 7620 GOSUB FILOC* 
2636 05733 7A8A : GOSUB BLNKCK QUTPUT BLANK AFTER S.VAR OR LABEL 
2637 
2638 * 10 is optional in COPY 
2639 * 
2640 05737 71BB GOSUB EOLXC* 
2641 0573B 859 pnts ST=1 9 WANT TRAILING BLANK 
2642 
2643 0573E 736A RNNDC3 GOSUB GTEXT1 
2644 05742 580 GONC PRGDC1 (B.E.T.) 
2645 x 
2646 05745 3100 =PURGDC LC(2) =tALL ALL TOKEN 
2647 05749 962 *A=C OB 
2648 O574C 2F GOYES RNMDC3 NO BLANKS 
2649 * 
2650 * Check if EOL for: 
2651 * PURGE 
2652 * COPY <filet> 10 
2653 x 
2654 O5S74E 7A9B PRGDC1 GOSUB EOLXC* No return 1f at end of statenent 
2655 05752 629D GOTO NANEDC Call FILDC*, OUTELI1 


2656 : 
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2657 . STITLE Deconpile Filenane/Device id 
Gon 2ST TI TITS 
2660 FORO JO JOI ITI TOT TTT TOK 
2661 aK 
2662 ** Nare:(S) FILDC* - Fale Deconpile 
2663 ak 
2664 ** Category:  DCMUTL 
2665 ** 
2666 ** Purpose: Deconpiles mainfrane file specifiers & HPIL file 
‘ 2667 ax specifiers if HPIL plugged in 
2668 & 
2669 tk Entry: 
2670 xk P=0 
2671 aK D(A) contains available neriory end 
2672 ak DO = output pointer 
2673 = 2 entry points: 
2674 aK 1) FILDC+ - D1 hasn’t yet been increnented. 
2675 RR 2) FILDC* - D1 already at file spec 
2676 a% 
2677 ek Exit: D1 past file specifier 
2678 ax File specifier deconpiled, with DO updated 
2679 ax P=0 
2680 ig 
2681 ** Calls: POLLD+, OUTNBS, ASCICK, EXPRDC, OUTITK, GTEXT+, 
2682 = FINDA, D=RVNME 
2683 oe 
2684 xx Uses: $8,389, A-C, D1,D0, R1,R2 
2685 sd A-C, D1,DO0, RO-R2, SO,S3,S8,$10,811 -- EXPRDC 
2686 ax 
2687 ** Stack lvls: 5 
2688 hs 
2689 ek Detail: Will check for tKEYS, tCARD, tPCRD 
2690 ak 
2691 a Assunes that non-nainfrane file specs are 
2692 ax tokenized with preceding tCOLON. 
2693 ee 
2694 ak Must innediately precede SKIPDC code, since it 
2695 oe falls into SKIPOC. 
2696 am 
2697 ** History: 
2698 RA 
2699 a Date Prograriner Modifications 
2700 Rk, -cevewScd, V Mestece cies, pho pes So. 
2701 kX 07/07/82 SL. Inproved docurentation 
2702 ae 
2703 JOO TIT TIT III IIS III III III III ITI ATS IT ITI SITIO SH 
2704 SII I II III II III III III SII TTS SII III III IS SSSI IIIS IIIT IISI SII SII IIA 
& 
see SORIA. 
2707 TORII ITI OT TOTO TOI 
2708 a 
2709 *% Hane: (S) pFILDC - Polls for File Deconpile 
2710 a 


2711 *X Category: POLL 
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2712 a 
2713 tk Type: POLL 
2714 ax 
2715 ** Purpose: 
2716 ae Polls for handler for device deconpile 
2717 ak 
2718 ** Should poll be "Handled" (return with XM=0)?: 
2719 ak Yes 
2720 ax 
2721 *k Meaning of "Handling" Poll (what does code do if handled?): 
2722 x Deconpiled device specifier output & DO updated. 
2723 ae 
2724 *k Entry conditions for handler (registers, ST, RAN, etc.): 
2725 XK Carry clear 
2726 aK B[A] = Poll nunber. 
2727 ax HEX node. 
2728 x P=0, 
2729 ax D1 at tCOLON 
2780 ax A(B) contains tCOLON 
2731 DO past last deconpiled character 
2732 x D(A) contains the end of available renory 
2733 xe 
2734 ** Nornal exit conditions fron handler if handled (ST, RAN, 
2735 ** registers, etc.): 
2736 ae P=0 
2737 ae Carry clear 
2738 x HEX node. 
2739 3% XN=0. 
2740 a D1 past the file/device specifier 
2741 ax File specifier output & DO updated 
2742 ak D(A) preserved 
2743 ax 
2744 ** Nornal exit conditions fron handler if not handled (ST, RAN, 
2745 x* registers, etc.): 
2746 ze P=0 
2747 am Carry clear 
2748 x HEX node. 
2749 a xM=1, 
2750 ae 
2751 ** Error exit conditions fron handler: 
2752 ** (Only happens with insufficient nenory) 
2753 a P=0 
2754 a Carry set. 
2755 ie HEX rode. 
2756 et 
2757 ** Available subroutine levels: 
2758 us 6 
2759 ue 
2760 ** NOTE: 
276) ae When D(A} is passed to the poll handler, it reflects what 
2762 a2 the end of available nerory WILL be once we get to the 
2763 ax handler. 
2764 es 
2765 x* What registers/RAM nay be used if handled?: 


2766 ae A-D, DO, D1, P always available 
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2767 ak $8,S9 
2768 eke +Anything EXPRDC uses (RO,R1,R2,S0,83, $10,811) 
2769 a 
2770 ** What registers/RAN nay be used if not handled?: 
2771 ae A-D, DO, D1, P 
2772 ie Sane as 1f handled (see above) 
2773 ae 
2774 ** What registers/RAN nay be used if error exit: 
2775 a A-D, DO, D1, P 
2776 ae Sane as if handled (see above) 
2777 aK 
2778 ** Special nenory/pointer considerations (are pointers funny’): 
2779 ak No 
2780 ah 
2781 ** Envisioned application(s): 
2782 aR Deconpile non-nainfrane device 
2783 kk 
2784 *k History: 
2785 ih 
2786 ae Date Progranner Modification 
2787 RR nen wenn ee een nee n enn nnn n nee - 2 ene eee -- 
2788 Kk 07/08/82  S.W. Added docunentation 
2789 ak 
2790 JO SICISOI UII IOI OTITIS II TI OTTO 
2794 SRI TOI IO SII TTT TID STITT 
2792 x 


2793 05756 171 FILDC+ 01=D1+ 2 
2794 05759 848 =FILDC* ST=0 8 


2795 0575C 7001 FLDCO3 GOSUB finda+t Read 6 nibs into A first 
2796 05760 00 CON(2) =tLITRL 

2797 05762 C20 REL(3) FLOCO7 

2798 05765 OO CON(2) =tKEYS 

2799 05767 540 REL(3) FLDC25 

2800 0576A 00 CON(2) =tCARD 

2801 0576C C30 REL(3) FLOC20 

2802 O576F OO CON(2) =tPORT 

2803 05771 730 REL(3) FLDC20 

2804 05774 00 CON(2) =tMAIN 

2805 05776 230 REL(3) FLDC20 

2806 05779 FE CON(2) =tPCRD 

2807 05778 D10 REL(3) FLDC15 

2808 0577E 00 CON(2) =tCOLON HPIL 

2803 05780 340 REL(3) FLOC70 

2810 05783 00 CON(2) 00 

2811 x 

2812 05785 878 ST=1 8 Already parsed literal file nane? 
2813 05788 © RTNYES 

2814 0578A 6000 : COTO  =EXPRDC Must be an expression 
2815 

2816 0578E 79B9 FLDCO7 GOSUB ASCI+ 

2817 x 

2818 05792 858 ST=1 8 DON’T DO EXPROC! 

2819 05795 56C GONC FLDCO3 (B.E.T.) 

2820 % 


2821 * XWORD token found 


2822 05798 
2823 05798 


2824 057A3 
2825 057R6 
2826 057R8 
2827 OS7AC 
2828 O57AF 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 05703 


05783 
05787 
057BA 


057BC 
05 7BF 


2841 

2842 05709 
2843 057(B 
2844 O57(E 


2845 05705 
2846 05708 
2847 

2848 0570A 
2843 057DE 


2850 057FO 
2851 O57F4 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
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AF6 
35FE 
10E3 
976 
00 
204F 
843 
76AD 


3182 
966 
00 


174 
611F 


8E00 
00 


20 
445 
8FOO 
000 
$31 
00 


7EOF 
3F56 
8747 
5627 
E616 
C6 

7D2C 
0? 


5:0 ari 
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FLDC15 C=A W 
LC(6) =tPCRD 


ARC OW 
RTNYES 
GOSUB :DC 
ST=0 9 
GOSUB gtexta 
FOR PORT# 
LCASC \(\ 
7AHC OB 
RTNYES 
* DECOMPILE PORT # 
Di=D1+ 2 
GOTO 3 ?EXPR- 


Not PCRD? 
FLOC20 


FLDC25 NO LEADING OR TRAILING BLANKS 


* CHECK 


x 


* Must set AVMENS @ Current DO before Poll 
* Prevents Poll Save frea fron overwriting Deconpiled Output 
k 


FLDC70 GOSUBL =polld+ Set AVMENS @ Current DO 

& & Update D(A) during poll 
CON(2) =pFILDC 
GOC FLDCER HANDLED & ERRORED? 
GOSBVL =D=AVNE Reset D(A) (AVMENE) 
2XM=0 HANDLED & OKAY? 
RTNYES 

* DEFAULT HANDLER FOR DECOMPILING UNRECOGNIZED FILE SPEC 
GOSUB :DC 


LCASC §=\lanretxe\ 


GOSUB OUTC15 
C=RSTK Pop level off stack 


Falls into SKIPDC 


Unrecognized XWORD 
Skip to End of Statenent 
Go Decoripile End of Line Terminator 


ee He Fe OF 


x 
FORTIS  IT TOI IOI OT TOK 
FOI IOI IOI ITO OTIC SII 
xe 


** Nane:(S) SKIPDC - Skip Rest of Statenent Deconpile 
ks 


** Category:  DCMUTL 


x 
Ke 
xk 
ae 


Purpose: 
When an unrecognized token is encountered, decompile 
of that statenent cannot continue. SKIPDC skips 
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2870 zx D1 to the end of that staterent. 
2871 ak 
2872 ek Entry: 
2873 as (INADDR) = Address of the statenent length byte of 
2874 ae the statenent currently being deconpiled. 
2875 as 
2876 ee Exit: 
2877 aR D1 points to the statenent terminator byte in the 
2878 ae token strean. 
2879 a Exit is via OUTEL1. 
2880 ‘ A(A)= Statenent Length for the statement skipped. 
2881 an C(A)= D1 
2882 az 
2883 *X Calls: None 
2884 ak 
2885 &k Uses: ACA), CCA), 01 
2886 ae 
2887 ** Stk lvls: 0 
2888 ak 
2889 ** Detail: Must immediately follow FILOC 
2890 a 
2891 &* History: 
2892 ae 
2893 ai Date Progratiner Nodif ication 
2894 AX newer nee anne cee ne nnn n enn nnn nnn en nnn en ene nee nee 
2895 . 11/08/83 S$. Added documentation header 
nae IIR I III III II III IIIS SII SS III IIS III III IIIIISIIIIIISISII III SII SII 
2898 J III II ASIII III II III II III IT SS TI III II IIIS III III IIS IIS IIT IIIS IISA 
2899 * 
2900 057F6 136 =SKIPDC CDOEX SAVE 00 
2901 O57F9 1B00 DO=(5) =INADOR 
000 
292 05800 142 R=DATO A CURRENT STMT LENGTH ADDRESS 
2% 3 05803 130 DO=A 
2904 05806 DO A=0 =A 
2905 05808 14A A=DATO 8 STATEMENT LENGTH 
296 05808 136 CDOEX 
2907 OS580E C2 C=C+A A 
2908 05810 135 01=C POINT TO @ OR EOL 
2909 05813 6CEA GOTO OUTEL1 
2910 x 
2911 
2912 henna mene nen nnn nnn ene enn nena 
2913 05817 181 out2tdO DO=D0- 2 
2914 0581A 8C00 =out2tc GOLONG =OUT2TC 
00 
2915 Bann ne nn ne nnn en ne eee enn nee een ee 
2916 
2917 x 


2918 05820 8C00 FLOCER GOLONG =NFERR 
00 


2919 


x 


ce 
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2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2346 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2366 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 


05826 868 
05829 60 


0582B 7DAE 
O582F 171 
05832 7FD8 


05836 858 


05839 
05839 
05839 7FRA 
0583D 772A 
05841 44E 


05844 711F 
05848 6DEF 
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FOI OT III TOIT OI TIO TTT ITT IK 
JOO TOOT IO TO TO TOIT II IK 


xk 
xx 
xk 
ak 
xk 
ax 
ak 
ax 
xk 
xk 
xk 
xk 
xk 
xk 
ax 
ax 
xx 
ak 
of 
ak 
xk 
xx 
xx 
xk 
xx 
aK 
ak 
ax 


Narie:(S) LISTOC - 


Category: DCMUTL 


Deconpiles LIST, RENUMBER, SECURE, NERGE 


Purpose: DECOMPILES LIST, SECURE, MERGE STATEMENTS 


Entry: P= 0 


01 past begin BASIC token 


DO output pointer 


D(A) contains available memory end (AVMEME) 


Exit: via OUTELA 


Calls: FILDC, LINHDC, EOLXC*, CONTST, OUTBYT 


Uses: A-C, D1,D0, $8,S9, R1,R2 
A-C, D1,DO, RO-R2, SO,S3,S$8,S810,811 -- EXPRDC 


Detail: EXPECTS THAT S8 WILL BE CLEAR UPON ENTRY 


History: 


wee eee we ween we we wee 


08/29/83 S.U. 


eR ew ee we we we eee ewe 


Added docunentation header 


FOI IIIT TTT TOTO RI ITI TIO 
FORO OI OTTO TOTTI IO TI III 


x 
x 


LSTOC+ 7ST=0 8 


x 


GOYES LSTDC1 
GOSUB Outby, 


LSTDC1 D1I=D1+ 2 


x 


GOSUB  LIN#DC 


LSTDC* ST=1 8 
x 


=RNUMDC 
=SECRDC 
=LISTOC GOSUB EOLXC* 


x 


GOSUB CON10 
Coc LSTOC+ 


=MERGDC GOSUB FILOC* 


x 


x 


GOTO = LSTDC* 


NO COMMA NECESSARY? 


STEP OVER tCOMNA 


NEXT TIME THRU COMMA NEEDED 


No return 1f at stnt end 
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2975 STITLE Deconpile USER | LC stnt 
2976 JU III ITC OTITIS TSS ISO TI SATS STIR II III IIA 
2977 JI IS IIS IIIS I IOS SITS SOS ISI SSI IIS II IS ISOS III ISIS III IA 
2978 ak 
2979 ** Narie: USERDC - USER and Lower Case Deconpile 
2980 ** Narie: LCDC - USER and Lower Case Deconpile 
2981 ak 
2982 *& Category: | STDCNP 
2983 k 
2984 ** Purpose: Deconpile USER | LC statenent 
2985 ak 
2986 ** Entry: D1 past tUSER or tFLIP 
2987 ax DO output pointer 
2988 ak D(A) contains available memory end (AVMEME) 
2989 ak A(B) contains token pointed to by D1 
2990 as $8=0 
2991 ek 
2992 Rk Exit: Through QUTELA 
2993 ae 
2994 tk Calls: GTEXT1, EXPRDC, FINDA 
2995 ak 
2996 ** Uses: R-C, D1,D0, S9, R1,R2 
2997 ae A-C, D1,D0, RO-R2, $O0,S3,S8,S10,S11 -- EXPROC 
2998 ae 
2999 ** Stk Ivls: 5 
KHO0 xk 
H01 xk Detail: USER [ ( ON | OFF ) ] 
HO02 ak LC { ( ON | OFF ) J 
03 ak 
HO4 ** NOTE: Deconpile for LC is called FLIPDC because the 
05 a statenent used to be called FLIP 
HO6 aa 
0? *X History: 
HO8 kk 
HOI ax Date Programmer Modifications 
10 AL Oisace “Gorneaesee, cetwoececasie 
11 a 08/18/82 S.W. Added docunentation 
ae JERI OO CCC TO TOTTI TASS TSI II 
14 JIT II I TIT IIR IIIT IIIT II IIIS ISS IIIS ISIS IISA 


#15 : 


Saturn Assenbler Line Deconpile <831216.1615> Fri Dec 3, 1983 5:00 an 


Ver. 3.39/Rev. 2306 BEEP Deconpile Page 74 
X16 STITLE BEEP Deconpile 
17 JOR I I II ITO IKE IIIT I SOIT IIT III ASST II IIS AINSI IIIS IA 
18 JO I IIIT IIR TOI II ITS IS III SII IIT STIS SII II ISIS IOI I SA IA 
3019 ae 
#20 ** Narie: BEEPDC - BEEP Statenent Deconpile 
21 ak 
H22 xk Category: STDCNP 
H23 ah 
3024 ** Purpose: 
25 aK Deconpile BEEP statenent 
26 ak 
27 ek Entry: 
H28 ak D1 past BEEP token 
029 ak DO output pointer 
30 kk D(A) contains available nenory end (AVMENE) 
31 aK A(B) contains token pointed to by D1 
32 RK $8=0 
33 kk 
34 Rk Exits 
35 aS Through OUTELA 
36 aR P=0 
37 ah 
38 ax Through USROC1 if BEEP ON | OFF 
39 ak 
40 xk Calls: EXPRDC, FINDA, GTEXT1 
41 ak 
42 RR USES ec cele 
H43 *k Exclusive: A-C, 01,00, R1,R2, S93 
044 *k Inclusive: A-C, 01,00, RO-R2, SO0,S3,S8,S10,S811 -- EXPRDC 
3045 ak 
46 ae Stl Ivis: 5 
47 ak 
048 ** Detail: 
49 x BEEP [ ON | OFF J 
3050 ak BEEP [ <frequency> [ , <duration> ] 
351 aK 
H52 *& Algorithn: 
53 aa 
54 aK If next char = End of Line terminator A(1)HF 
355 aK go Output End of line terminator (OQUTELA) 
356 aK Set BEEP entry flag for USERDC 
HS? ak If next token = ON | OFF (goto USRDC1) 
058 xx go Output "ON" | “OFF and EOL 
59 ae else 
X60 aK Position back to expression 
ol x Deconpile frequency & possible duration (EXPRDC) 
H62 a go Output End of line terninator 
X63 me 
X64 &* History: 
X65 a 
oH6 as Date Progranner Nodificatio 
067 AX Soh Soe ele eke de, = (Seo cece se cosh se Sn lf an as a tae 
68 RK 07/13/82 = J.P. Modified docunentation 
69 a 


x70 FOR ROR JOO IDOI OOOO OO OI IO 
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3071 SIRI I IKI KISS IS SIDI IIS IIII II IR IID IIS I III III III II II ISI ISI SSS SSI IIIS 
3072 k 
3073 0584C =BEEPDC 
3074 0584C =F LIPDC 
75 . 

76 * BEEP ON | OFF entry 
3077 t 

3078 0584C =USERDC 

3079 O584C 7410 USRDC1 GOSUB finda 
3080 05850 00 CON(2) =tON 


3081 05852 RAA 
W82 05855 00 
3083 05857 5RA 
384 0585A 00 
85 


3086 0585C 631C 
t 


3087 

388 05860 1585 

3089 05864 8C00 
00 

DH 

91 


REL(3) TRACDC 
CON(2) =tOFF 
REL(3) TRACOC 
CON(2) 0 


GOTO  OROPDC Optional expression(s) 


findat+ A=DAT1 6 
=finda GOLONG =FINDA 


x 
x 
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3092 STITLE SUB Deconpile 
3093 JIU IOI II TOO OO TI II II TIT III ASAI IIA 
3094 JU COO CIO IITA IS IIIT II III IA 
3095 kx 
3096 ** Name: SUBDC - SUB statenent decompile 
3097 ax 
3098 *x Category: STDCMP 
3099 a 
3100 ** Purpose: Deconpiles SUB statenent 
3101 ax 
3102 ** Entry: P= 0 
3103 ae D(A) contains available nerory end (AVMENE) 
3104 ax D1 past tSUB 
3105 ak DO output pointer 
3106 kk 
3107 kk Exit: via QUTEL1 
3108 ak 
3109 tk Calls: PARNCK, EXPROC, QUT3TK, OUTBYT, REMP (Ren parse) 
3110 x AD1+2, COMTST, 'TEST 
3111 ax 
3112 tk Uses: A-C, D1,D0, $8,S9 
3113 a A-C, D1,D0, RO-R2, SO,S3,S8,S$10,S811 -- EXPRDC 
3114 ak 
3115 a% Stk Ivis: § 
3116 ax 
3117 ** Detail: MUST HAVE S8 CLEAR TO DECOMPILE DUMMY ARRAYS, AS 
3118 xm PER CONSTRAINTS OF EXPDDA 
3119 ax 
3120 ** History: 
3121 ax 
3122 x Date Prograrnner Modifications 
3123 RK naan nen enn n en ne ee eee e een ne---- 
3124 08/18/82 SW. Added docurnentation 
3125 kk 04/29/83 S.W Fixed bug with |! after SUB 
3126 ke by calling REMP (REM parse) 
312? ae instead of ASCICK 
3128 as 
3129 JI OD OO OCI III I TOI IIE TTT ITA TI ITT IIIT NK 
3130 JOO II OTT II III IIIS ITI TALIA 
3131 * 
3132 . 
3133 * 
3134 O586R 174 =SUBDC Di=D1+ 5 STEP OVER 5 NIB FIELD 
3135 0586) 79FD GOSUB PARNCK 
3136 05871 502 SuBDC1 GONC SUBDC6 DONE WITH STATEMENT? 
3137 * MUST BE VARIABLE 
3138 05874 7000 GOSUB = =EXPRDC MAY BE DUNNY ARRAY 
3139 05878 ?7CE9 GOSUB COM10 
3140 0587C SEO GONC  SURDCS 
3141 & 
3142 O587F 77FD GOSUB AD1+2 Step over conta; read next tok 
3143 05883 771E GOSUB PRNCK4 
3144 05887 69EF GOTO  SUBDC1 
3145 . 
3146 O588B 764E SUBDC5 GOSUB Outrtp 


saturn Assenbler 


tine Deconpile <831216.1615> Fri Dec 30, 1983 5:00 an 


Ver. 3.39/Rev. 2306 SUB Deconpile Page 77 
3147 OS88F 171 Di=D1+ 2 Step over tPRMEN 
3148 05892 148  SUBDC6 R=DAT1 B 
3143 05895 7078 GOSUB ' TEST 
3150 05899 5C1 GONC SUBDC7 
3151 x 
3152 0589C 3502 LcAasc \ ! \ 
1202 
3153 058R4 8600 GOSUBL =OUT3TC 
00 
3154 O58AA 8£00 GOSUBL =REMPOS 
00 
3155 05880 181 DO=D0- 2 Don’t want OD output 
3156 05883 173 Di=D1+ 4 Step off 0D & dummy tEOL 
315? x 
3158 058B6 174 SUBDC7 D1=Di+ 5 STEP OVER 5 NIB FIELD 
3159 058B9 543 GONC CALLD8 (B.E.T.) 
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3160 STITLE CALL Deconpile 
3161 JIGS ISO TIO TIO III IOC CCC II IO III III IIIT ITT T ITT 
3162 JOIST IOI III II TI III I III II IIIT III III III IOI OT IIIT ITT 
3163 Kx 
3164 ** Nane: CALLDC - CALL Decorpile 
3165 as 
3166 x Category: STDCNP 
316? ax 
3168 ** Purpose: Deconpiles CALL statenent 
3169 wk 
3170 ** Entry: D1 past tCALL 
3171 ak DO output pointer 
3172 ax D(A) contains available nerory end (AVMNENE) 
3173 ax 
3174 KX Exit: via OUTEL 
3175 xx 
3176 xk Calls: PARNCK, EXPRDC, OUTNBC, FILDC 
317? kk 
3178 A* Uses: A-C, 01,00, $8,$9 
3179 ae R-C, D1,00, RO-R2, $0,$3,3$8,S$10,811 -- EXPROC 
3180 a 
3181 ** Stk lvls: 5 
3182 ale 
3183 ** History: 
3184 KR 
3185 ah Date Programmer Modifications 
3186 KK mew memne — cwwnaneenn een nnnnnnann~ 
3187 08/18/82 S.W. Added docunentation 
ie JIGS III III IO III III 
3190 JOR IIIA III IAI III III ITI I IDI IASI III III IIIT ITI DI III IIIS 
3191 x 
3192 OS8BC 77AD =CALLDC GOSUB PRNCK+ 
3193 058C0 5D0 GONC CALLD2 
3194 * MUST BE AN EXPRESSION 
3195 058C3 7000 CALLD1 GOSUB =EXPRDC MAY BE A BUNNY ARRAY 
3196 * Equivalent to call to PRNCK3 
3197 * Assure $9 is still set from PRNCK+ call above 
3198 * Saves D1=D1+ 2 instruction 
3199 O58C7 76ED GOSUB =PRNCK? Read in token,etc 
3200 O58CB 47F GOC CALLD1 
3201 OS8CE 148 CALLD2 A=DAT1 B Get token 
3202 05801 3100 LC(2)  =tIN 
3203 05805 966 7AHC OB 
3204 O58D8 61 GOYES CALLD8 
3205 * Qutput leading & trailing blanks 
3206 OS8DA 3702 LCASC \ NI \ 
94E4 
02 
3207 O58E4 27 P= 7 
3208 O58E6 793B GOSUB OUTNBC 
3209 O58ER 786E GOSUB FILDC+ 
3210 OS8EE 611A CALLD& GOTO OUTELT 
3211 & 


3212 


*® 
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3213 STITLE STAT Deconpile 
3214 JU OI OURS ICICI IO OI TITIES IA SIO IS 
3215 JOO II OI IGS TAI STATI EI IAT 
3216 ais 
3217 4% Narie: STATDC - STAT Deconpile 
3218 aK 
3219 ** Category: STDCNP 
3220 ee 
3221 ** Purpose: Deconpiles STAT statenent 
3222 ax 
3223 xk Entry: P= 0 
3224 aR Di past tSTAT 
3225 ak DO output pointer 
3226 xx D(A) contains available mnenory end (RAVMENE) 
3227 ad 
3228 PRET: via OUTEL1 
3229 as 
3230 *k Calls: -EXPR-, VARDC 
3231 as 
3232 tk Uses: A-C, 01,00, S6 
3233 ae A-C, D1,D0, RO-R2, SO,S3,S8,S10,S11 -- EXPRDC 
3234 as 
3235 *k Stk lvls: 6 
3236 7 
3237 *k History: 
3238 a 
3239 a Date Progranner Modifications 
3240 ee ee 
3241 RK 08/18/82 = SLU. Added docunentation 
3242 ax 
3243 JIU IOI TI I ITI II IIIT I SI III IIIT IT ODS 
3244 JIU OO TO TOT OTT II II ITS TI IIIT I IK 
3245 x 
3246 x 
3247 & 


3248 O58F2 768A 
3249 O58F6 866 
3250 O58F9 414 

3251 O58FB 7ECD 
3252 O58FF 5D0 


=STATDC GOSUB VARDC 


*$T=0 6 NO ARRAY TOKEN? 
GOYES UNDC10 Could go to OUTELA 
GOSUB -EXPR- 


GONC UNDC10 (B.E.7.) 
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3253 STITLE UNPROTECT Deconpile 
3254 JI III III III III I TIT III SII IIIA IIIA IOS III II SII ISOS IIT IIIS IIIS SIS: 
3265 JSR SI TID III I IIIT ISI II IIIT III ISTO IIIS IST ISIS SI ISI SOI I SSSI IIIA 
3256 - 
3257 xx Narie: UNPRDC - UNPROTECT Deconpile 
3258 ax 
3253 ** Category: STDCMP 
3260 aX 
3261 ** Purpose: Deconpile UNPROTEC(T) 
3262 ae 
3263 xX Entry: UNPROTEC has been deconpiled. 
3264 ak D1 past the begin BASIC token 
3265 ax DO output pointer 
3266 xk D(A) contains available menory end (AVMENE) 
3267 a P= 0 
3268 ax 
3269 PEERY: via OUTEL1 
3270 an 
3271 xt Calls: OUTBYT 
3272 xe 
3273 xx Uses: A,C, 00,01 
3274 at 
3275 xk Sth lvls: 2 
3276 = 
3277 ** History: 
3278 aa 
3279 ae Date Progranner Modifications 
3280 RR anew nnn eee e eee nee nner n ence ene ere nen ee 
3281 . 08/29/83 S.W. Updated docunentation 
a JO II OCI III IIS I IIIS III II SI IIIS SI ASI TA 
3284 JOISTS I IAI IOI IIIS II ASSIA 
3285 - 
3286 05902 181 =UNPRDC DO=D0- 2 ELIMINATE BLANK 
3287 05905 3145 LCASC \T\ 
3288 05909 7000 GOSUB =outbyt OUTPUT "T" 


3283 05900 62F9 
3290 
3231 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
299 
30 
3301 
IW2 
3303 
3304 
3305 
36 
307 


UNDC10 GOTO OUTEL1 
JUG IOI IOC TTT TT TIA TI 


SOIT III OO ICI ITO TIO IOI 


a 
xX Narie: RESETd - RESET deconpile 

kk 

** Category:  STOCMP 

a 

** Purpose: 

aA Deconpile RESET statenent. 

x 

** Entry: 

ay D1 past RESET token. 

ae DO output pointer 

+ D(A) contains available nmenory end (AVMENE) 
aE A(5-0) contains token pointed to by Di 

ae A(15-6) = €(15-6) 

aK p= 0 

a 
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3308 Rk Exit: 
3309 a Through OUTELA. 
3310 aK 
3311 ak Calls: GTEXT1 
3312 aK 
3313. Rk Uses. i... 
3314 kk Exclusive: A-C, 01,00, R1,R2, S9 
3315 kK Inclusive: A-C, D1,D0, RO-R2, S0,S3,$8,S10,S11 -- EXPRDC 
3316 aK 
3317 tk Stk lvls: 4 
3318 ak 
3319 ** History: 
3320 aK 
3321 ak Date Progranner Modification 
3322 RK wane enn ne een nnn re nen nn nn nnn en nnn nen ene een eee 
3323 Kk 09/21/82 NM Wrote 
3324 ak 
3325 JIU I IO IO OT TIT IT 
3326 JOIST I TOC O TOIT TIT TK 
3327 05911 35FE =RESETd LC(6) =tCLOCK 
1051 
3328 05919 976 TAHC OW Find CLOCK token? 
3329 O591C 1F GOYES UNDC10 


3330 OS91E 6DD9 GOTO  TRACDC Output CLOCK token 
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IDC 
ITEST 
oe 
-EXPR- 
:0C 
?EKPR- 
ADI+2 
ADCH++ 
ADBCH+ 
ADDCHR 
=ADDOC 
ARANGE 
=ARYOC 
ARYDC+ 
RRYDC2 
=ASCO2 
ASCO3 
ASCI+ 
=ASCICK 
ASNDOG 
=RASSNDC 
=BEEPDC 
BLNKC1 
=BLNKCK 
CALLD1 
CALLD2 
CALLD8 
=CALLDC 
CONIC 
CONCK1 
CONTST 
=COPYDC 
=CREADC 
=D0=0BS 
DOASCI 
=POOUTB 
DIC=R3 
D=AVME 
=DATADC 
DC=EXP 
DCDONE 
=DECDC 
DECOHC2 
=DEFADC 
=DEFOC 
DEFOC1 
DEFDC2 
DEFDC4 
DEFDC6 
=DELAYd 
=DISPDC 
=DROPDC 


=DSTRDC 
ELSEDC 


Rbs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 


2X6 Sytbol Table 


21317 #05345 
21626 #05416 
22244 #O56E4 
22221 #OS56CD 
22252 HOSEL 
22225 #056D1 
22138 #0567A 
20787 #05133 
20790 #05136 
20794 #0513A 
21616 #05470 


20856 #05178 
20837 #05165 
20873 #05189 
20826 #0515A 
20833 #05161 
20811 #05148 
20814 #O514E 
21737 #054E9 
21705 #054C9 
22604 #0584C 
20933 #051C5 
20929 #05101 
22723 #O58C3 
22734 #OS8CE 
22766 HOS8EE 
22716 #OS8BC 
21096 #05268 


21093 #05265 
22306 #05722 
22094 #0564E 
20583 #05067 


20583 #05067 


21330 
22260 
21361 
21127 
21147 
21244 
21014 
21041 
21060 
21080 
21086 
21651 
21584 
21616 


#05352 
#OS6F4 
#05371 
#05287 
#0529B 
#OS2FC 
#05216 
#05231 
#05244 
#05258 
#0O525E 
#05493 
#05450 
#054 70 


#05280 
#052E2 


21120 
21218 


1338 
1634 
2473 
2465 
2476 
2466 
2385 
634 
635 
636 
1676 
1441 
756 
748 
761 
692 
695 
686 
687 
1778 
1763 
73 
859 
857 
3195 
3201 
3210 
3192 
991 
991 
990 
2628 
2321 
337 
590 
338 
918 
336 
1342 
251? 
1388 
1096 
1103 
1297 
964 
974 
off 
985 
986 
1699 
1662 
1675 
386 
1094 
1208 


237 
235 
206 
1711 
209 
2835 
186 
1448 
1434 
1452 


1104 
368 
759 


690 
693 
207 
1926 


862 
16 
3200 
3193 
3159 


1678 
1922 


2844 


1048 
1354 
1108 
1099 


969 
983 
980 
975 


14% 


1318 
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1199 
1334 

208 
3251 
2826 


258 
1447 


1103 


2573 


1337 


3204 
2414 


1143 


1664 


3149 


2572 2574 


2848 
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635 2568 3142 


2816 


2276 «42323 2636 


2967 3139 


1669 


1701 


1713 
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1948 2328 
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=ENDDC 
=ENDDDC 
ENDS10 
ENDS11 
=ENDSOC 
=EOLDC 
=EOLXC* 


=EOLXCK 
ETMR10 
ETHR20 
=ETARDC 
EXPRDC 


Exprd* 
Exprdc 
=FILDC* 
FILDC+ 
FINDA 
=FIXDC 
FLDCO3 
FLDCO?7 
FLOC15 
FLOC20 
FLDC25 
F LDC 70 
FLOCER 
=F LIPDC 
=FNCK 
=FNDC 
=FORDC 
FTYPO+ 
=GOSBDC 
=GOTODC 
=GTEXT 
=GTEXT+ 
=GTEXT1 
GTEXTI 
=GTEXTN 
=GTEXTX 
=GTXT++ 
GTXT+1 
GTXT+3 
GTXT10 
=IFOC 
IFDC1 
INADDR 
=INPTDC 
=KEYDC 
KEYDC1 
=LABLDC 
LASTFN 
=LDCEXT 
LOCIF 
=LDCM10 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ribs 


Abs 
Abs 
Abs 
Abs 
Ext 


Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ros 
Abs 
Ext 
Rbs 
Abs 
Abs 


2306 


21240 
2196 
21949 
21956 
21928 
21506 
21228 


215093 
21858 
21875 
21837 


22298 
22302 
22361 
22358 


21651 
22364 
22414 
22424 
22440 
22444 
22467 
22560 
22604 
20956 
21017 
21162 


21806 
21806 
20601 
20889 
20901 
20598 
20619 
20635 
20882 
20929 
20951 
20650 
21185 
21193 


21573 
21384 
22042 
22274 


20318 
20359 
20335 


Line Deconpile 
Table 


Synbol 


#052F8 
#O55(8 
#055BD 
#05504 
#055A8 
#05402 
#052EC 


#05405 
#05562 
#05573 
#0554) 


#0571A 
#O571E 
#05759 
#05756 


#05493 
#0575C 
#0578E 
#05798 
#057A8 
#05 7AC 
#05703 
#05820 
#0584C 
#05100 
#05219 
#052AA 


#0552E 
#0552E 
#05079 
#05199 
#051A5 
#05076 
#0508B 
#05038 
#05192 
#051C1 
#05107 
#050AR 
#05201 
#05209 


#05445 
#OSSEO 
#0561A 
#05702 


#04F SE 
#04F 87 
HO4F OF 


1295 
2167 
2163 
2165 
2160 
1527 
1290 
2628 
1528 
2025 
2034 
2011 
1047 
3138 
2578 
2579 
2794 
2793 
3089 
1700 
2795 
2816 
2822 
2826 
2827 
2840 
2918 
3074 
909 
965 
1142 
2321 
1932 
1931 
437 
842 
847 
436 
443 
454 
839 
858 
867 
465 
11% 
1193 
178 
1656 
2209 
2224 
2568 
228 
154 
177 
163 


2170 
2223 


1290 
986 
2640 


2014 
1763 
1897 
1190 
3195 
1146 
2520 
1777 
1919 


1657 
2819 
2797 
2807 
2801 
2799 
2809 
2843 


1045 
1046 


1095 
1209 
241 


439 
1192 
182 
848 
446 


1210 
2901 


1775 
1943 


222 
156 
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2225 


1105 
2654 


2077 
1700 


1150 
2571 
2275 
3209 


1659 


2803 


2019 
1297 
847 


442 


176? 
273 


2219 


1147 
2966 


1905 


2327 


1720 


2805 


2278 
1710 


1907 
840 
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LDOCN20 
LDCMN30 
LOCNSO 
LOC M60 
LDCN80 
=LDCONP 
=LDCSET 
LDOCSPC 
=LDSST1 
=LOSST2 
=LETOC 
LETOC3 
=LINHA+ 
=LIN#AU 
LINHCK 
=LINHD+ 
=LIN#DC 
=LISTOC 
=LROC 
LSTDC* 
LSTOC+ 
LSTOC1 
LSTLEN 
MAINT 
MENERR 
=MERGDC 
MFERR 
MTADR+ 
=NAMEDC 
=NXTDC 
OB+EXD 
OBEXPR 
=OFFDC 
=ONDC 
ONDC 10 
=ONDC20 
ONDC40 
ONDC42 
ONDC5O 
ONDE 80 
=OPTOC 
OPTOC1 
OPTDC? 
QUT 1T+ 
OUTeTC 
OUT3TC 
QUTBS 
OUTBY+ 
=0UTC15 
=OUTEL1 
OUTEL3 
OUTEL4 
=OUTELA 
OUTEOL 
=QUTNBC 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Robs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


2306 


204 36 
20446 
20461 
204 72 
205 36 
20329 
20576 


20338 
20382 
21102 
21113 
20773 
20770 
20745 
20754 
20757 
22585 
21651 
22582 
22566 
22575 


22596 


21733 
211% 
22264 
22267 
21885 
21741 
21757 
21761 
21784 
21799 
21809 
21833 
21833 
21905 
21924 


21537 
21248 
21306 
21287 
21251 
21342 
21533 


Line Decorpile 
Syribol Table 


#04FD4 
HO4FDE 
#04FED 
HO4FFS 
#05038 
#O4F 69 
#05060 


#O4F72 
#O4F9E 
#0526E 
#05279 
#05125 
#05122 
#05109 
#05112 
#05115 
#053839 
#05493 
#05836 
#05826 
#0582F 


#05844 


#O54E5 
#0528A 
#OS6F8 
#OS6FB 
#05570 
#OS4ED 
#OS4FD 
#05501 
#05518 
#0552? 
#05531 
#05549 
#05585 
#05591 
#0554 


#05421 
#05300 
#0533A 
#05327 
#0533 
#0535E 
#05423 


220 
2e7 
235 
241 
271 
162 
336 
175 
16? 
186 
1045 
1048 
583 
588 
578 
582 
583 
2966 
1696 
2962 
2955 
2959 
1353 
443 
1595 
2370 
2918 
484 
1777 
1097 
2518 
2519 
2077 
1897 
1905 
1907 
1922 
1927 
1934 
1948 
2118 
2122 
2129 
985 
2944 
3153 
338 
2420 
1581 
1299 
1334 
1323 
1303 
351 
1682 


213 
204 
230 
236 
242 


167 


231 
988 


263 
1668 


173 


2971 
23968 
2956 


1773 


2406 
756 


1900 
1898 
1936 
1923 
1925 
1942 


2120 
2125 


2163 
1778 
1%5 
1316 
1151 

214 

254 
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1206 


266 
1935 


2960 


2655 


2035 


1944 


2211 
2165 


1293 
1319 
3208 


2466 


2850 
2909 


2078 
1331 
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=OUTNBS 
QUT OVF 
OUTRP 
Qutb, + 
Outby+ 
Gutby, 
Qutbyt 
Out lp+ 
Outrtp 
PRRACK 
PRGDC1 
PRNCK+ 
PRNCK1 
PRICK3 
PRNCK4 
PRMCK5 
PRICK? 
=PRNTDC 
PRTOC, 
PRTDCO 
PRTDC4 
PRTDC6 
=PURGDC 
R3=D10 
=RDIZDC 
=READDC 
=RELJNP 
=RENDC 
REMPOS 
RENP10 
=RENMDC 
=RESETd 
=RESTOC 
RNMDC2 
RNMDC3 
=RNUMDC 
RTNSET 
=RUNDC 
RUNDC+ 
Range 
=SECRDC 
SFLGDS 
=SFLGDC 
=SKIPDC 
=STRTOC 
=STOPDC 
=SUBDC 
SUBDC1 
SUBDCS 
SUBDC6 
SUBDC? 
TFMB2O 
=TRACDC 
TRNFCK 
=TRSFND 


Rbs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Ext 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Ext 
Abs 


2306 


21542 
21567 


22233 
22215 
22236 
22240 
22211 
22229 
22122 
22 350 
22119 
22146 
22156 
22174 
22180 
22193 
21584 
21608 
21612 
21658 
21665 
22341 


21492 
21642 
20551 
2130 


22310 
22801 
21806 
22331 
22334 
22585 


21768 
21784 


22585 
21701 
21679 
22518 
22770 
21251 
22634 
22641 
22667 
22674 
22710 
22087 
21244 


22049 
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Symbol 


#05426 
#0543F 


#05609 
#05607 
#O56DC 
#O56E0 
#0563 
#05605 
#0566A 
#0574E 
#05667 
#05682 
#O568C 
#0563E 
#O56A4 
#056B1 
#05450 
#05468 
#05460 
#0549A 
#054A1 
#05745 


#053F 4 
#0548A 
#05047 
#05352 


#05726 
#0591 1 


HO5S2E - 


#05738 


HOS73E - 


#05839 


#05508 
#05518 


#05839 
#054C5 
#OS4AF 
#057F6 
HOS8F 2 
#05303 
#0586R 
#05871 
#0588B 
#05892 
#O58B6 
#0564 7 
#O52FC 


#05621 


Table 


1583 
- 1595 
- 2467 
- 2469 
- 2420 
- 2470 
- 2471 
- 2419 
- 2467 
= 2979 
- 2654 
+: Gate 
- 2389 
eons 
- 2400 
- 2402 
- 2410 
- 1661 
- 1671 
- 1673 
- 1705 
- 1710 
- 2646 

914 
1488 
1686 

279 
1343 
3154 
1343 
2629 
3327 
1933 
- 2641 
2643 
- 2964 
= ASS 
=: AS1S 
~ 1921 
- 1436 
= 2965 
- 1721 
~ TIS 
- 290 
- 3248 
= 73501 
- 313% 
= (3436 
- 3146 
- 3148 
#3158 
a Pere 
- 1296 
- 1353 
- 2268 


# @ © #§ § F 4 4 


272 
1588 


1107 
1673 

382 

692 

976 
2398 
3135 
2644 
3192 
2383 
2412 
2396 
2391 
3199 


1679 
1688 
1682 
1685 


1195 
2631 
2648 


1918 


1717 
267 


3144 
3140 
3136 
3150 
2274 
1721 


850 1456 


1901 1927 

2224 

2400 2958 
761 = 865 
2389 

2415 3146 


2417 
3143 


1706 


1197 1%8 


2127 Wi 
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UNDC10 
=UNPRDC 
=USERDC 

USRDC1 
=VARDC 
=VARDC+ 

VARDC1 

YARDC2 

VARDC4 

VRRDCE 

VARDC? 

VARDCS8 
=WRITd 
=WINDNd 

XMTADR 

dasci 
=finda 

findat 
gtexta 
ldcn20 
oSPDn2 
out2td 
=out2te 
outbyt 
outela 
pFILOC 
polld+ 

SRUNDC 

sSSTdc 

savel# 

t! 

t* 

+e 

tALL 

tARRAY 
tBASE 
tCARD 
tC LOCK 
tCOLON 
tELSE 
tEQL 
tERROR 
tFN 
tIN 
tINTO 
tKEYS 
tLBLRF 
tLBLST 
tLINE# 
tLITRL 
thAIN 
tMATH 
tOFF 
tON 
tPCRD 


Abs 22797 
Abs 22786 
Abs 22604 
Abs 22604 
Abs 21372 
Abs 21369 
Abs = 21375 
Abs 21404 
Abs 21421 
Abs 21448 
Rbs = 21459 
Abs 21475 
Abs 21651 
Abs 21651 
Ext 

Abs 20781 
Abs 22628 
Abs 22624 
Abs 21849 
Abs 21214 
Abs 14 
Abs 22551 
Abs 22554 
Ext 

Abs 21182 
Abs 2 
Ext 

Abs 7 
Abs 1 
Ext 

Ext 

Ext 

Ext 

Ext 

Ext 

Ext 

Ext 

Abs 1376751 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 3015151 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 3539439 
Ext 
Ext 
Abs 4063727 
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Syribol Table 


#05900 - 3289 
#05902 - 3286 
#O0584C - 3078 
#O584C - 3079 
#0537C - 1418 
#05379 - 1417 
#O537F - 1419 
#O539C - 1430 
#O53AD - 1435 
#05308 - 1445 
#053D3 - 1448 
#053E3 - 1453 
#05493 - 1697 
#05493 - 1698 
- 455 
#0512D - 5% 
#05864 - 3089 
#O5860 - 3088 
#05559 - 2019 
HOS2DE - 1206 
HOOOOE - 10 
#05817 - 2913 
#0581A - 2914 
- 2471 
#O52BE - 1151 
HOOOO2 - 10 
- 2840 
#00007 - 10 
#00001 - 10 
=) . tbe 
- 1198 
= 47/4 
= 1644 
= “E718 
- 1421 
~ 2118 
- 2800 
HSO1EF - 10 
- 2808 
- 1314 
- 21) 
- 20te 
=: 309 
- 3202 
HEOTEF - 10 
- 2798 
- 1194 
- 202 
= 5#8 
~ seobd 
- 2804 
HOOTEF - 10 
- 3082 
~ 3080 
HEOIEF - 10 


3250 3252 


977 1097 
915 96? 
1142 
1423 
1432 
143? 
1443 
1450 


584 
079 
1193 2795 
1667 2828 
1332 
470 
1489 2269 
966 1333 
2474 = 2477 
1049 
2842 


1915 1924 
163 131? 
1534 


2646 


3327 


1528 


1196 
2796 


1718 


2806 92823 
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tPORT 
tPRNEN 
tPRAST 
tRFILE 
tSEMIC 
tSVAR 
tTAB 
tTHEN 
tT0 
tUSING 
tXFN 
tXWORD 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


- 2802 
- 2394 
- 973 
- 1916 
- 748 
- 14% 
- 1683 
- 183 
- 2629 
- 1662 
- 440 
- 437 


2381 
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Input Paraneters 
Source file nane 1s SG&LDC: NS 
Listing file nane is SG/LDC:TI:ML::-1 
Object file name is SG/LDC:TI:NS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 
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Ver. 3.39/Rev. 26 Page 1 
1 a SSS BBBB& EEEEE xX xX DODD 
2 . S S$ B B && € x xX OD OD 
3 ‘ 3 B B&& EC XX DOD 
4 A SSS. BBBB& EEEE x DD 
5 : $B B &&& E KX DD 
6 Ss $ B B& 8&8 €E x xX OD 
7 . SSS. BBBB &8& & EEEEE X xX ODDD 
8 a 
9 TITLE Expression Deconpile <831212.1206> 


10 05922 ABS #5922 

11 JE OI II ISOC ISO SOSA SI SIS IO TTT SS ITI III II II III IK 
12 JOOS CSO IAS II IK 
13 aa 

14 kK Nane:(S) EXPROC - Expression Deconpile 

15 ** Nane:(S) EXDCLP - Funny function decompile reentry point 
16 kk 

12 ** Category:  OCNUTL 

18 kK 

19 ** Purpose: 

20 aK EXPRDC: Deconpile expression lists 

21 RK EXDCLP: This 1s the point where funny function 

22 kK deconpile routines should reenter the expression 

23 aK deconpiler. 

24 ka 

25 *k Entry: 

26 ak EXPRDC: 

27 ee DO=Output strean pointer 

28 af D1=Input strean pointer 

29 a D(A)=End of avail men pointer 

x aK A(B)=Contents of MEN(D1) 

31 ak P=0 

32 a EXDCLP: 

33 ay D1 1s current input pointer(past FFN tokenization) 
4 ae DO 1s current output pointer(past FFN text) 

35 tk 

36 Ae ERTL: 

3? AX DO=Updated output pointer 

38 AE Di=Updated input pointer(First unused byte) 

39 a A(B)=First unused token 

40 ak Carry clear 

41 RK P=0 

42 ke 

43 ** Calls: VARDC , MOVEDO, RANGE , DRANGE, OUTITK, QUTNBC , MENERR 
44 as 

45 Re) USOSiGack ay 

46 *k Inclusive: A,B,C,RO,R1,R2,S0, S83, $8,510,811, 00, D1 

4? ae 

48 ** Stk lvls: 4 

49 Ax 

50 ** Detail: 

51 &k RO = Qutput pointer @ entry 

52 am R1 = Tenporary input pointer, Sign holds text len 
53 aE R2 = Function text 

54 ax 

55 a Explanation of terns used: 
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56 ax Nullop -- This a 00 byte which is used to preserve 
57 a a spot in the output stream to insert an 
58 a operator later. It also is used as a marker 
59 ak to help find the spot later. 

60 ak Denature -- Once operators have been enclosed in 

61 ax parentheses or in a function call, the 

62 ax of that operator 1s no longer of any 

63 aR ' consequence to the rest of the expression. 

64 ak To prevent operators so enclosed fron affecting 
65 ax precedence, they are changed (denatured) in 

66 x such a way that they do not look like operators 
67 ax but can be recogized later when the tine cones 
68 x to expand the operator token into the text 

69 aK that corresponds to the token. 

70 ax 

71 ak The expression decompiler keeps track of 

72 ax uhether the expression has the forn of a 

73 ax reference expression. To do this, it uses two 
74 x status bits, NewVal and OldVal. Each pass 

75 ax through the deconpile loop, the New Val flag 

76 ax is copied to the OldVal flag, and the Newval 

77 ae flag set, then if the token being deconpiled 

78 am is a variable or an array token, the NewVal 

79 ae flag is cleared. When the loop finally hits 

80 a a token which terminates the expression, the 
81 x OldVal flag will be clear only if the last 

82 a token in the expression is not a variable or an 
83 aK array. This is equivalent to uhether the 

84 a expression has the forn of a value expression. 
85 = If the token that terninated the expression 

86 zs was a call by value token and the OldVal flag 
87 ak was left clear, then an extra set of parenthesis 
88 7 1s placed around the entire expression. This 
89 ax feature 1s used in SUB deconpile. 

% kx 

91 ** Algorithn: 

92 a Expression deconpile converts an RPN string of 

93 a operands, operators and functions to an algebraic 

94 1 strean of characters. The RPN stream is examined 

95 es an iten at a tine starting at the beginning (lowest 
96 x address). There are several types of itens which 

97 a ray be encountered in the strean. The following 

98 ae summarizes tuhat happens for each type: 

99 tas Operands -- output a nullop followed by text for 
100 aS constant 

101 x Single digit constants 

102 RK Integer constants (2-12 digits) 

103 $e Floating point constants (1-12 digits) 

104 a String constants (single or double quoted strings) 
105 a Alpha variables 

106 ae Alpha-digit variables 

107 a String alpha variables 

108 RE String alpha-digit variables 
103 ax Nonadic operators -- search back for a nullop, 


110 ax insert operator token just after nullop, 
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111 
112 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 
129 
1” 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
182 
153 
154 
165 
156 
15? 
158 
159 
160 
161 
162 
163 
164 
165 


ax 
xx 
xx 
ax 
ax 
xx 
xk 
ax 
xx 
xx 
ax 
ax 
ax 
xx 
am 
xx 
xx 
x* 
ax 
ax 
xx 
xx 
xx 
ax 
ax 
ax 
xx 
ax 
ax 
ax 
tk 
kx 
ax 
Kx 
KR 
ak 
xx 
aK 
a 
xx 
ak 
xk 
ek 
aa 
kk 
ax 
ax 
ax 
ax 
ak 
aa 
ke 
xx 
xe 
xk 
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insert parentheses around that area if an 
operator of lower precedence is there. If 
parentheses were inserted then denature any 
operators enclosed therein. 

Unary minus 

NOT 

Dyadic operators -- search back for a nullop, 

replace this nullop with the operator token, 
insert parentheses around that area if an 
operator of equal or lower precedence is there. 
If parentheses were inserted then denature any 
operator enclosed therein. 
Now search back for another nullop, insert 
parentheses if any operator of lower precedence 
Has encountered and denature all operators 
within these parentheses. 


IV 


fo+ DT N™ & »D 


Relops 
AND 
OR 
Functions -- Deternine nunber of paraneters. 
If the function has no paraneters then treat 
it like an operand. If it has nore than one 
parameter then for each "extra" paraneter look 
back for a nullop and replace it with a conna. 
Now search for a nullop and insert the function 
narie and a left parenthesis just after it and 
denature all operators between it and the 
end of the output where a closing parenthesis 
1s appended. 
Funny Functions -- Output a nullop and the text 
for the function nane then call the functions 
“decoripile" routine. 
LPRP token -- Output a left and right parernthesis. 


When any token other than one of the above 1s 
encountered, that marks the end of the expression. 
The entire autput strear is noved fror the beginning 
of available nenory to the end of available renory. 
Now the copy back process begins. The first byte 

of the output strean should be a nullop and 1s 
ignored. Each remaining byte in the output 

streatt 1s copied back to the beginning of available 
renory except that operators (and denatured operators) 
are expanded to their full text representation and 
any enbedded nullops are converted to cormas. 

When a single or double quote 1s encountered, bytes 
are copied verhatin until the corresponding closing 
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166 xx quote 1s found. 
167 ae 
168 ** History: 
169 KK 
170 RK Date Progranrer Modification 
171 Pe Seca late dees., 2 ateue cases aaoe cae eee 
172 ae 06/24/82 ~—s«B.S. Updated docunentation 
173 Ax 11/09/82 B.S. Merged Dunny array deconpile 
174 Km into expression decorpile 
175 *k 08/3/83 B.S. Fixed bug in DNATUR (39-1017(3)) 
176 = 09/06/83 —«B.S.. Added to docunentation 
ge III RI IR ETAT TIT ARI II IIIA II ITI IS III IAI SSIS III IIS ISIS ISAS IIII ISIS 
179 JI TOI II III TIS SITE IIT IIIS III TITS IIIS IIIS IIS 
180 NegExp EQU 0 Status bit definition 
181 NeedP EQU 3 Status bit definition 
182 VarDCF EQU 8 Status bit definition 
183 KFNFlg EQU 8 Status bit definition 
184 OldVal EQU 10 Status bit definition 
185 NewVal EQU 11 Status bit definition 
186 
187 RDSYMNB SBXTAB: : MS 
188 
189 05922 136 =EXPRDC CDOEX 
190 05925 134 DO=C Copy DO to C 
191 05928 108 RO=C Save output pointer 
192 0592B 848 ST=0 = NewVal 
193 O592E 84A =EXDCLP ST=0 OldVal 
194 05931 86B ?ST=0 NewVal 
195 05934 50 GOYES EXDCO5 
196 05936 85A ST=1  OldVal 
197 05939 84B EXDCOS ST=0 NewVal 
198 0593C 858 ST=1 Var DCF Request EXPR DC VAR DC 
199 O593F 7000 GOSUB = =VARDC Deconpile var if it 1s one 
200 05943 5AE GONC EXDCLP Was a var found? Yes then loop 
201 05946 858 ST=1- NewVal 
202 05949 171 DI=D1i+ 2 Increnent pointer 
203 0594C 137 CD1EX 
204 0594F 135 01=C Copy input pointer to C 
205 05952 109 R1=C Save input pointer 
206 05955 102 R2=A Save byte in R2 
207 05958 3318 EXDC10 LC(4) (t-)~ (tNOT) RANGE [NOT, MINUS] 
28 
208 O595E 7556 GOSUB RANGE) In this range? 
209 05962 452 COC EXDC30 No, continue 
210 05965 3338 LC(4) (tOR)~(t*) Precedence RANGE 
D8 
211 0596B 7(17 GOSUB NXTNL+ D1=D0, Find nullop 
212 OS96F 7A97 EXDC15 GOSUB APPNDP Append Rparen if needed 
213 06973 7987 GOSUB INS( Insert Lparen if needed 
214 05977 11—A C=R2 Get back unary operator token 
215 O597A 7647 GOSUB INSCHR Insert unop before nullop 
216 O597E 119 EXDC20 C=R1 Get input pointer 
217 05981 135 D1=C Restore D1 


218 05984 6SAF GOTO €EXDCLP 
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219 x. 
220 k 
221 05988 3308 EXDCH% LC(4) (tOR)~(t*%) RANGE [Uparrou,or] 
D8 
222 OS98E 7526 GOSUB RANGE; In this range? 
223 05992 560 GONC EXDC31 Yes, then process operator 
224 05995 6380 GOTO EXDC5O No, continue 
225 k- 
226 x. 
227 05999 3308 EXDC31 LC(4) (tOR)~(t*) Precedence RANGE 
D8 
228 O599F DE ACEX A 
229 059A1 80D0 P=C 0 Get lower nibble of token 
230 O59A5 3D0F LCHEX 3333779ABCCFFO Magic constant for prec. RANGE 
FCCB 
A977 
3333 
231 x ITH TETE LET T-- 80) * Range=8F 81 
232 x PEELE L--- 8F Range=8F8F [Unused] 
233 : LITTLE ELT ---- 8€ Range=8F8F [Unused] 
234 & EEE ----- 8D OR Range=8F 8C 
235 x ddd dd ------ 8C EXOR Range=8F8C 
236 x Hdttlitdl------- 8B AND Range=8F8B 
237 E LiL hesaeese= 8A RELOP Range=8F8A 
238 x PEE feteeere== 89 8 Range=8F89 
239 x hitb} |---------- 88 - Range=8F 87 
240 x Ht p----------- 87 + Range=8F 87 
241 & || | |------------ 86 DIV Range=8F83 
242 x || |------------- 85 x Range=8F83 
243 x | |-------------- 84 f/f Range=8F83 
244 x | -wee renner ene--- 83 * Range=8F83 
245 s 
246 O59B5 20 P= 0 
247 05987 ABA A=C Pp 
248 O59BA 06 C=A A 
249 O59BC 7BC6 EXDC33 GOSUB NXTNL+ D1=D0, Find nullop 
250 05900 7947 GOSUB APPNDP Append Rparen if needed 
251 05904 7837 GOSUB INS( Insert Lparen if needed 
252 05908 112 A=R2 Get back binary operator 
253 O59CB 31A1 LC(2)  (=tRELOP)-#70 
254 OS9CF 906 7AHC OP 
255 05902 Bi GOYES ExDC35 
256 05904 111 A=R1 
257 O59D7 133 ADTEX 
258 O59DA 1570 C=DAT1 P 
259 OSSDE 133 ADIEX 
260 OS9E1 £4 A=A+1 A 
261 059E3 101 R1=A 
262 O59F6 7ADG GOSUB INSCHR 
263 O59ER 112 A=R2 
264 OSSED 149 EXDC35 DATI=A B Write out operator 
265 OS9FO 3308 EXDC36 LC(4) (tOR)~(t™) 
D8 
266 OS9F6 137 CD1EX Suap pointer into C(A) 


267 O59F9 10A R2=C Save pt of rparen insertion 
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268 O59FC 137 

2639 OS9FF DE 

270 05A01 80D0 

271 05805 3D1F 
FFFC 
AR99 
7777 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 O5A15 20 

288 O5A17 RBA 

289 OSAIA D6 

290 O5RIC 7476 

291 O5R20 7CD6 

292 05A24 863 

293 O5A27 E1 

294 O5A29 11A 

295 O5A2C 136 

296 OSAZF 06 

297 05A31 71£6 

298 05A35 07 

299 05837 136 

300 O5A3A 135 

31 O5R3D 3192 

We O5RA1 7F76 

303 O5A45 683F 

34 O5A43 8FOO 
000 

305 05850 401 

6 O5A53 FO 

307 O5A55 FO 

8 O5AS7 8E00 
00 

309 OSA5D 602F 

310 O5R61 3101 

311 O5R65 9E6 

312 O5A68 60 

313 O5R6A 69A3 

314 OSAGE 7BC7 

315 O5A72 5F4 

316 05875 FO 

317 O5A7? FO 


ee MF 0 OOO 
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EXDC40 
EXDC50 


EXDC55 


EXDC60 


EXDC70 


CDIEX 

ACEX A 

P=C 869 

LCHEX 777799RACFFFF1 
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Restore pointer to D1 
A(A)=Dunny range, C(A)=token 


Magic constant for prec. RANGE 


PELIEETE ETT ET-- 80) * Range=8F 81 
FILE TLE --- 8 Range=8F8F [Unused] 
LITEETTE LT ---- 88 Range=8F 8F [Unused] 
PELL LL =="2 8D OR Range=8F 8F 
PEE GER tes 8C EXOR Range=8F 8F 
PL eceeree 8B AND Range=8F8C 
FREER Resso2= 8A RELOP Range=8F8A 
LE hblasatss-5= 89 & Range=8F 8A 
[1] {---------- 88 - Range=8F 89 
Liilsvenseseee> 87 + Range=8F 89 
| | [|-----=------ 86 DIV Range=8F87 
[aaeensesener 85 x Range=8F 87 
[seteeteeeoseee 84 / Range=8F 87 
[esssqeeseeanes 83 * Range=8F 87 


NXTNUL 
INS( 
NeedP 
EXDC40 


*ST=0 
GOYES 
C=R2 
CDOEX 
RSTK=C 
GOSUB DNATUR 
C=RSTK 


CDOEX 
D1=C 

LCASC \)\ 
GOSUB INSCHR 
GOTO  €XDC20 
GOSBYVL =DRANGE 
GOC £XDCEO 
ASL oA 

ASL A 
GOSUBL =QUT2TK 
GOTO  EXDC20 
LC(2)  tFLT1 
"AoC OB 

GOYES £XDC70 
GOTO  CONDC 
GOSUB QUOTCK 
GONC EXDC80 
ASL oA 

ASL oA 


Find next nullop 

Insert lparen if needed 
Paren needed? 

No, continue 

Get address for insertion 
DO=Point of insertion 
Save DO 

Denature operator tokens 


Restore DO 
Set D1 to pt of insertion 


Insert rparen 

Is it a single digit? 

No, continue 

Insert nullop before digit 
Output nullop and digit 


Constant token linit 


Deconpile constant 
Is it a quote? 
No, then continue 


Nullop 


318 05879 


319 O5A7F 
320 O5A82 
321 O5A86 
322 O5R89 
323 O5A8C 
324 OSABE 
325 
326 
327 05892 
328 
329 
330 05896 


331 O5ASC 
332 O5ARO 
333 

334 

335 O5AR3 
336 O5AA7 
337 O5SARB 
338 OSARF 
339 O5AB2 
340 O5RB5 
341 O5ABS 
342 OSABC 
343 OSABF 
344 OSAC2 
345 OSACS 
346 OSAC3 
347 OSACB 


348 OSAD3 
343 OSADG 


350 O5ADC 
351 OSAEO 
352 OSAE2 
353 OSARE6 
364 

355 

356 OSAEA 
357 OSAED 
358 O5AFO 
369 O5AF2 
360 OSAF5 
361 OSAF8 
362 OSAFB 
363 OSAFE 
364 05801 
365 05804 
366 05807 
36? O5B0R 
368 0580C 
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8EO0 
00 


148 
7005 
171 
966 
3F 
6F 9E 


6FCi 


3382 
92 
7000 
5DE 


7615 
76F4 
1534 
170 
A46 
80DF 
A99 
A42 
R42 
R4C 
A4C 
400 
3582 
C292 
580 
3382 
92 
80DF 
oc 
7B55 
674E 


148 
119 
£6 

103 
136 
134 
135 
ROC 
iC4 
14F 
96E 
7F 

ROC 
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EXDC75 


EXDC73 
a 


x 


EXDC8O 
a 


x 
 LPRP 


x. 
x 


.DMYAR 


EXDC92 
EXDC94 


x. 
ae 


. TSuB$ 


FUNDIO 


GOSUBL =QUT2TK 


A=DAT1 
GOSUB 
D1=01+ 
7ARC 
GOYES 
GOTO 


GOTO 


LCASC 


GOSUB 
CONC 


GOSUB 
GOSUB 
A=DAT1 
D1=D01+ 
C=C+C 


++ 


BIDE O Oe 


om 
oO 


mopDDnDonoaororwvw 
Ceo n un n 


GONC 
LCASC 


P=C 
P=P+1 
GOSUB 
GOTO 


A=DAT1 
C=R1 
C=C +1 
R1=C 
CDOEX 
0o=C 
01=C 
A=A-1 
01=01- 
C=DBAT1 
?CHO 
GOYES 
A=A-1 


B 
OuttTk 
2 
B 
EXDC75 
EXDCLP 


EXDC% 


WA 


=out2tc 
EXDC79 


B=VAR 
GET2 

§ 

1 

S 

15 

WP 

S 

S 

S 

S 
EXDC92 
\),(\ 


EXDC94 
WA 


15 


outnbc 
EXDCLP 


x» 


mono 


FUND1O 
P 
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Output nullop and quote 


Output byte 

Increnent input pointer 
Is this the closing quote 
No, then loop back 


ASCII () 


(B.E.1.) goto EXPRDC 


Get variable text 

Append nullop 

Read argunent count 

Skip argurient count 

Multiply by 2 for byte count 
P points above variable text 
Copy text into C 


Add 2 or 4 to nibble count 


Set carry if only 1 subscript 
Skip if only one subscript 


Adjust WP length 
Qutput Nullop & dunrny array txt 


Read in subscript count 
Get input pointer 

Skip past count nibble 
Save input pointer 


Copy DO to C 

then to 01 

Adjust subscript count 
Move pointer 

Read in byte 


~ Is it a nullop? 


No, loop back 
Decrenent subscript count 


369 OSBOF 
370 OSB12 
371 05816 
372 05819 
373 

374 

375 OSBIC 
376 05820 
377 05824 
378 05828 
379 OSB2C 
380 O582F 
381 05832 
382 

383 

384 05836 
385 05839 
386 

38? 

388 O5B3C 
389 OSB3F 
390 05843 
391 05846 
392 05848 
393 O584C 
394 05850 


395 05856 
396 05858 
397 05858 
398 OSBS5E 
399 05861 
400 05864 
401 05867 
402 OSB6A 
403 O5B6D 
404 05870 
405 05873 
406 05875 
407 05878 
408 05878 
409 OSB7E 
410 05881 
411 05883 
412 058386 
413 05889 
414 O5B8C 
415 O5B8E 
416 05891 
417 05894 
418 05898 
419 O589B 
420 

421 

422 OSB9E 
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4C0 
31C2 
14D 
S7E 


31D5 
72R1 
7EE5 
31B5 
14D 

REO 

6DBE 


84B 
550 


853 
7A74 
863 
51 
7554 
7154 
3364 
£4 
23 
ASS 
A46 
A4E 
RF4 
102 
148 
170 
137 
109 
20 
AOC 
4$2 
136 
134 
06 
181 
14€ 
S6E 
7F 
AOC 
492 
31C2 
14€ 
57E 


REO 


x 
x 


x 
x 
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GOC 


LCASC 
DAT1=C 
GONC 


FUND20 LCASC 
GOSUB 
GOSUB 
LCASC 
DAT1=C 


A=0 


GOTO 


- ARRAY ST=0 
GONC 


FN ST=1 

GOSUB 
?ST=0 
GOYES 
GOSUB 
GOSUB 
LCASC 


FUND70 


“w= HUN WDWOOOM 


- TOTS? HM HH Hon 
omonwDmnw 


INSFN- 
INSFUN 


OomoDpDurwonrvwDnDDOOWUV 


Fess? 


RSTK=C 
INSF10 DO=D0- 
C=DRTO 
?CHO 
GOYES 
R=A-1 


GOC 


LCASC 
DATO=C 
GONC 


INSF20 A=0 


1+ 
_—= 


xe 
-~_—_ 


am ' 
oa —_ 


FUND20 
\,\ 

B 
FUND10 


\\ 
outbyt 
DNATUR 
\C\ 

B 

B 
EXDC36 


NewVal 
J FNG 


NeedP 
B=VAR 
NeedP 
FUND?0 
GET2 
GET2 
\NFA 


3 
WP 
S 
S 
W 


B 
1 


0 
Pp 
INSF 20 


2 
B 
B 
INSF10 
P 

INSF 30 
\,\ 


B 
INSF10 


B 
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Only 1 parn, then done 
Fill in a conna 

Write out conmna 
(B.E.T.) Loop back 


Write out ] 
Denature within [] 
Pseudo-binary operator 


Check if parens needed in front 


(B.E.T.) 


FN flag 


Was it a FN? 
No, then skip 


Make roon for 2 chars 
ASCII FN 


Pointer for 2 chars 

Copy into B 

Double count 

Decrenent for WP 

Copy text to A 

Save text in R2 

Read in subscript count 
Increrent past subscript count 
C(A) = input pointer 

Save text len & input point in R1 


Corina count 
No args 


Copy DO to C 

Save old D0 

Move ptr 

Read in byte 

Is it a nullop? 

No, then loop back 
Decrenent subscript count 
Conrias all inserted? 
Corina 

Write out conna 
(B.E.T.) Loop back 
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423 O5BA1 7DE3 GOSUB OQutiTk 
424 O5BA5 7984 GOSUB INSXFN 
425 OSBA9 119 C=R1 Recall text len 
426 OSBAC 80DF P=C 15 Put text len in P 
427 O5BBO 112 A=R2 Recall text 
428 O5BB3 7000 GOSUB =QUTNBS Output text 
429 O58B7 66CD GOTO EXDC20 
430 a. 
431 x. 
432 O5BBB 119 INSF30 C=R1 Recall len 
433 OSBBE 80DF P=C 15 
434 O58C2 07 C=RSTK Recall old 0 
435 O5BC4 161 DO=D0+ 2 Insert following nullop 
436 O5BC? D5 B=C A B=End of source 
437 O58C9 136 CDOEX (DO=End of source 
438 C=Begin of source) 
439 O5BCC E1 B=B-C A B=Length to nove 
440 OSBCE 136 CDOEX 
441 O5BD1 134 DO=C DO=End of source 
442 O5BD4 8% ?P= 0 Is pointer zero? 
443 O5BD7 50 GOYES INSF33 Yes, then skip add (Text len=0) 
444 O5BD9 809 C+P+1 
445 OSBDC 137 ~=INSF33 CDIEX D1=End of dest 
446 OSBDF 868 ?ST=0 XFNFlg Is it an XFN? 
447 OSBE2 50 GOYES INSF35 No, then skip 
448 O5BE4 175 D1=D1+ 6 Yes, leave 3 extra bytes 
449 for "XFN" 
450 OSBE7 171 INSF35 D1=D1+ 2 Leave roon for left paren 
451 OSBER 137 CDIEX 
452 OSBED 7BB3 GOSUB ROON? Is there enough roor? 
453 OSBF1 06 RSTK=C Save new output ptr 
454 O5BF3 137 CDIEX Put back end of dest 
455 O5BF6 8F00 GOSBVL =NOVEDO Open up space 
000 
456 O58FD 1C1 DIi=D1- 2 Point to where Lparen goes 
457 O5(00 3182 LCASC \(\ Lparen 
458 05004 14D DAT1=C B Write out Lparen 
459 O5(O? 7724 GOSUB INSXFN Insert "XFN" if needed 
460 O5COB 119 C=R1 Recall] text len 
461 OSCOE 394A C=O) § Is text len zero? 
462 05C11 DBO GOYES INSF38 Yes, then skip outputting text 
463 05C€13 80DF P=C 15 Put text len in P 
464 05017 118A C=R2 Recall text 
465 O5C1A 1541 DATO=C WP Write out text 
466 OSC1E 07 INSF38 C=RSTK Recall new output ptr 
467 05020 134 DO=C Restore new output ptr 
468 05(23 20 = 0 
463 05(25 7990 GOSUB QUTRP Output right paren 
470 05029 79£4 GOSUB BNATUR Denature all in parens 
471 O8€2D 6050 GOTO = EXDC20 
472 Ba 
473 na 
474 05031 8E00 .XFN = GOSUBL =GTEXTX Get XFN text 


00 
475 05037 5FO GONC FUND86 Found’, then continue 
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476 

477 

478 

479 

480 O5C3R 7904 
481 O5C3E 173 
482 05€41 137 
483 05€44 109 
484 05(47 ACS 
485 OSC4A 119 
486 O5C4D 135 
487 05C50 E6 
488 O5(52 109 
489 05(55 6650 
4% 

431 

492 05059 ACI 
493 OSC5C 302 
494 O5C5F 525 
495 

496 


x 


Expression Deconpile <831212.1 


k Exit fron GTEXTX: 
D1 @ XFN number 


x 
x 


bs 
x 


x 
k 


FUND86 


CHP LX 


497 05062 3X0 EXDC90 


00 
498 OSC68 7843 
439 o5C6C 4F5 
500 OSC6F 848 
501 O05C72 843 
502 05€75 7000 
503 05€79 38 
504 05C7B 6BF 
505 OSC7E D? 
506 05(80 6BE 
507 06C83 C? 
508 05€85 7BE 
509 O5C88 7A 
510 O5C8A O6E 
511 O5C8D A? 
5i2 OSC8F ACF 
513 O5C92 AR 
514 O5(94 20€ 
515 O5(9? E7 
516 O5(39 AOE 
517 OSC9C 4B 
518 OSCSE 731 
519 OSCA1 00 
520 OSCA3 8E00 

00 
521 OSCAS 1C1 
522 OSCAC 14F 
523 OSCAF 102 
524 O5CB2 129 
525 OSCB5 ACI 
526 OSCB8 129 
527 OSCBB A8R 
528 OSCBE 66BE 


FUND 98 
FUND99 


GOSUB  XFNTXT 
Di=D1+ 4 
CD1EX 

Ri=C 

B=C 5 

C=R1 

D1=C 

C=C+1 A 

R1=C 


GOTO FUND98 


B=0 S 
LCHEX 2 
GONC FUND99 


LC(4) =FRange 
COSUB 
GOC 

ST=0 


RANGE } 
EXD100 
KFNF 1g 
ST=0  NeedP 
GOSUB =finda 
CON(2) tXFN 
REL(3) .XFN 
CON(2) tARRAY 
REL(3) . ARRAY 
CON(2) tFN 
REL(3) .FN 
CON(2) tISUBS 
REL(3) .ISUBS 
CON(2) tCMPLX 
REL(3) .CMPLX 
CON(2) tLPRP 
REL(3) .LPRP 
CON(2) tDMYAR 
REL(3) .DMYAR 
CON(2) tFFN 
REL(3) .FFN 
CON(2) 0 
GOSUBL =GTEXTN 


D1=D1- 2 
C=DAT1 B 

R2=A 

CRIEX 

C=B S 
CRIEX 

A=C P 

GOTO  INSFUN 
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Move ptr to arg count 


Save updated input pointer 
B(S)=WP len 
Recall input pointer 


Skip over arg count 
Put back updated input pointer 
(B.£.1.) Now read arg count 


Text length = zero 
Tuo paraneters 
(B.E.T.) 


Is it a function? 

No, then keep checking 
Initialize: Not XFN 
Initialize: No parens needed 
Check for special cases 
XFN 

Array 

FN 

Substring 

Conplex 

QO 

Dunny array 

Funny function 


Get function text 


Point to arg count range 
Read arg count 
Save function text in R2 


C(S)=length 

Save text length 
Copy argurient count 
Insert function 
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529 
530 
531 OS€C2 
532 OSCC6 


533 

534 

535 osCCC 
536 O5CD0 
537 05CD3 
538 O5CD5 
539 O5CD8 
540 O5CDB 
541 OSCDD 
542 OSCEO 
543 OSCE3 
544 OSCE6 
545 OSCE 
546 OSCEC 
547 OSCEE 


548 OSCF4 
549 OSCF? 
550 OSCF9 
551 OSCFD 
552 05001 
553 05004 
554 05008 
555 05008 
556 OSDOE 
557 05010 
558 05012 
559 05015 
560 05D17 
561 O5D1B 
562 OSDIE 
563 08022 
564 05025 
565 05028 
566 OSD2A 
56? O8D2C 
568 O8D2F 
569 

570 

571 06032 
572 05035 
573 0503? 
574 06D3B 
575 O5D3E 
576 05041 
57? 

578 05044 
579 05047 
580 

581 


2306 


ke 
ke 


3192 =QUTRP 
8C00 =outbyt 
00 


ke 
kL 


311E EXD100 
962 

50 

85A 

848 = EXD110 
DB 

135 

10A 

110 

136 

1344 

E2 

8E00 

00 

87h 

RO 

3182 

?5CF 

171. CPYBAC 
15B3 CPYB10 
171 

137 

D? 

20 

96C 

43 

312 

REAR CPYB18 
7072 CPYB20 
11A = CPYB22 
8A3 

RO 

DF 

135 


540 
* 


x 


87A =CPYB3 
60 

?28F 

119 CPYB35 
135 

1C1 


148 = CPYB38 
03 


Expression Deconpile <831212.1 


LCASC \)\ 
GOLONG =QUTBYT 


LC(2)  =tCVAL 
*A=C OB 
GOYES EXD110 
ST=1  OldVal 
ST=0-VarDCF 
C=D A 

Di=C 

R2=C 

A=RO 

CDOEX 

DO=C 

C=C-A A 
GOSUBL =NOved3 


7S$T=1 OldVal 
GOYES CPYBAC 
LCASC \(\ 
GOSUB outbyt 
Di=D1+ 
R=DAT1 
B1=01+ 
CO1TEX 
D=C 

p= 
RHO 
GOYES CPYB40 
LCASC \,\ 
R=C B 
GOSUB 
C=R2 
*C=D OA 
GOYES CPYB30 
CDEX A 

01=C 
GONC 


woo» Rho & Po 


OuttTk 


CPYB10 


*ST=1 
GOYES 
GOSUB 
C=R1 
D1=C 
D1=D1- 2 


OldVal 
CPYB35 
QUTRP 


A=DAT1 B 
RTNCC 
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Qutput right paren 


Is it a call by value 

Yes, then don’t suppress parens 
No, suppress surrounding parens 
Clear flag for VARDC 

C=End of avail nen 

D1=End of avail ren 

Store end of avail men in R2 
Get start of buffer 


Get end of output buffer 
Calculate length 
Shift expr to end of nen 


Surrounding parens needed? 
No, then okay 

ASCII paren 

Output leading paren 

Skip first nullop 

Read byte (and next byte) 
Nove past this byte 


Nove pointer fron D1 to D 
Need to have pointer at zero 
Nullop? 


Copy char to A for output 
Qutput char to buffer 

C=End of available wer 

At end of tenory yet? 

Yes, then finish up 

Move end of avail nen ptr to D 
Hove pointer back to D1 
(B.E.7.) Loop back for nxt byte 


Clasing paren needed? 

No, then okay 

Output trarling paren 

Get input pointer 

Restore it to D1 

Back up pointer(Last byte was 
not consurned by EXPR DC) 

Re-read byte 

Return fron EXPR DeConpile 
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582 05049 7(50 CPYB40 GOSUB CPYLIT Try to copy a literal 

583 O5D4D 44D COC CPYB22 Literal copied? Yes, resune loop 

584 05050 31A?7 LCASC \z\ Linat of ASCII chars 

585 05054 9EA 7A<=C BB Is it an ASCII char? 

586 05D57 7C GOYES CPYB20 Yes, then output the ascii char 

5387 No, then expand token 

588 05059 330F LCHEX FFFO RANGE for denatured operator toks 
FF 

589 O5D5F 7452 GOSUB RANGE ) Is byte in this range 

590 05063 490 GOC CPY4, 1 No, then continue 

591 05066 3107 LCHEX 70 Yes, then 

592 OSD6A BoA A=A-C B renature token 

593 O5D6D 3378 CPY4.1 LC(4) (t-)7 (t+) (Minus), Plus 
28 

594 05073 966 RHC OB Is byte a plus? 

595 05076 Al GOYES CPYB41 No, then continue 

596 05078 23 P= 3 Select lower 2 bytes 

597 O5D7A 912 *A=C OP Is this plus followed by a minus? 

598 05D7D 5A GOYES CPYB22 Yes, then don’t print plus 

599 OSD7F WF LCHEX F Is it followed by a 

600 05082 912 7A=C OP denatured riinus? 

601 05085 093 GOYES CPYB22 Yes, then don’t print plus 

602 05D87 20 P= 0 Must have pointer at 0 

603 O5D89 3182 LCASC \+\ ASCII plus 

604 O5D8D 508 GONC  CPYB18 (B.E.1) Output byte 

605 ke 

606 k. 

607 05090 31A8 CPYB41 LC(2) =tRELOP 

608 05094 966 RAC OB Is it a RELOP? 

609 05097 60 GOYES CPYB50 No, then okay 

610 05099 £7 D=D+1 A 

611 O5D9B E7 D=D+1 A Move pointer past RELOP specifier 

612 O509D 7F34 CPYB5O GOSUB ARITH Get text for operator 

613 OSDA1 7(92 GOSUB sutnbc Output text 

614 O5DAS 6C7F COTO §=©CPYB22 

615 x. 

616 x. 

617 OSDA9 7094 CPYLIT GOSUB QUOTCK Is it a quote? 

618 OSBAD 500 RTNNC Return with carry clear if not 

619 OSDBO DF CPYLI1 CDEX A 

620 OSDB2 135 bi=C 

621 O5DB5 D6 C=A A 

622 OSDB7 148 DATO=A B Output initial quote 

623 OSDBA 161 DO=D0+ 2 

624 OSDBD 14B CPYLI2 A=DAT1 B Read next char 

625 O5DC0 171 D1=D1+ 2 Move pointer past char 

626 O5DC3 148 DRTO=A B Write out this char 

627 O5DC6 161 DO=DO+ 2 Move pointer past char 

628 O5DC9 966 AKC OB Was this the matching quote? 

629 OSDCC 1F GOYES CPYLI2 No, then loop back 

630 OSDCE 137 CDIEX 

631 05001 D? D=C A Copy D1 to D for end of 

632 copy check 

633 05003 02 RTNSC Yes, then return with carry set 


634 
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635 Bn 
636 O5D05 8E00 .FFN GOSUBL =GTEXTX 
00 
637 OSDDB 4E1 GOC .FFNIO 
638 OSDDE D2 C=0 A 
639 OSDEO 72EE GOSUB outbyt Output nullop 
640 O5DE4 AER A=C 8 Restore A(B) 
641 OSDE? 80DF P=C 15 
642 O5DEB 8E00 GOSUBL =QUTNBS 
© 
643 O5DF1 1C4 D1=D1- § 
644 OSDF4 800 GOLONG =RELJNMP 
oO 
645 x 
646 * Upon arrival at FFN decompile routine, 
647 * —R1 and D1 point to FFN length byte, 
648 * DO points past text of FFN nane in output strean, 
649 * RO points at very beginning of current expression 
650 x and rust be preserved. 
651 
652 x. 
653 ko 
654 OSDFA 7942 .FFNIO GOSUB XFNTXT 
655 OSDFE 102 R2=A Save function text 
656 O5E01 173 Di=D1+ 4 Skip past FFN nunber 
657 05604 DO A=0 A 
658 O5E06 148 A=DAT1 B 
653 O5E09 137 CD1EX 
660 OSEOC C2 C=C+A A Move pointer past entire FFN code 
661 O5EOE DO A=0 A No argurients 
662 O5E10 6F5D GOTO 3 =INSFN- 
663 Ke 
664 x 
665 05E14 De CONDC C=0 A 
666 O5E16 7CRE GOSUB outbyt Output NULLOP 
667 OSE1A DA A=C A Copy token back to A 
668 OSEIC 80D0 P=C 0 
669 O5E20 13? CDIEX 
670 O5SE23 FE C=-C-1 A Position D1 so that when 
671 O5E25 OC P=P+1 a complete register 1S read in 
672 OSE27 OC P=P+14 the most significant digit will 
673 O5E29 809 C+P+1 end up in ces) with less signif 
674 OSE2C FR C=-C A digits in successively lower 
675 O5E2E 135 DI=C digits of C 
676 O5E31 1577 C=DAT1 W Read in constant 
67? OSE35 17F 01=D1+ 16 Skip over constant 
678 OSE38 AFS B=C W Copy constant to B 
679 OSE3B 80FF CPEX 15 C(S)=-significant digits 
680 OSE3F 21 = 1 
681 O5E41 AOC A=A-1 P Is 1t an integer constant? 
682 O5E44 522 GONC COND1O No, then process real constant 
683 O5E47 3 LCHEX 3 
684 OSE4A ABA R=C P 
685 O5E4D 20 = 0 


686 OSE4F 811 CONDOS BSLC 
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687 OSE52 R84 
688 O5€55 7931 
689 O5E59 B46 
690 O5E5C 52F 
691 OSESF 6ECR 
692 

693 

694 05E63 6FAO 
695 

696 

697 OSE6? 1533 
698 O5SE6B 20 
699 O5E6D 3200 

5 
700 O5E72 39B6 
701 O5E75 E5 
702 O5E77 840 
703 O5E7A 3211 
0 

704 O5E7F 9B6 
705 OSE82 1E 
706 05684 3103 
707 OSE83 AEE 
708 OSE8B 811 
709 OSE8E R84 
710 05E91 7DFO 
711 O5€95 05 
712 OSE97 AGE 
713 O5SESA 04 
714 O5SESC 581 
715 O5ESF B46 
716 O5ER2 R4E 
717 OSEAS 462 
718 OSER8 31E2 
719 OSERC 761E 
720 OSEBO DA 
721 OSEB2 BEA 
722 OSEBS B46 
723 OSEB8 52D 
724 OSEBB D5 
725 OSEBD Aes 
726 OSECO ACI 
727 O5SEC3 480 
728 OSEC6 AGE 
729 OSECS 41C 
730 OSECC 172 
731 OSECF 6E5A 
732 

733 

734 O5SED3 850 
735 O5ED6 05 
736 OSEDS FC 
737 OSEDA 04 
738 OSEDC 80DF 
739 OSEEO D2 


x 
x 
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CND4O j 
x. 


x 


x 
x 


COND10 


COND15 


COND20 


COND25 


COND28 


COND3O 


A=B P 
GOSUB OutiTk 
C=C+1 § 
GONC CONDOS 
GOTO  EXDCLP 


GOTO COND40 


A=DAT1 
p= 
LCHEX 


x oo 


PAC 
GOYES COND30 
ST=0  NegExp 
LCHEX 011 


AOC CX 
GOYES CND40; 
LC(2) = 
ACEX 8B 

BSLC 

A=B OP 
GOSUB OutiTk 
SETDEC 

C=C-1 8B 
SETHEX 
GONC 
C=C+1 
C=C-1 § 

GOC COND28 
LCASC \.\ 
GOSUB outbyt 
A=C A 

C=-C 8B 
C=C+1 $§ 

GONC  COND15 
B=C A 
B=B+B B 

B=0 S 

GOc COND28 
C=C-1 § 

GOC COND15 
D1=D1+ 3 

GOTO = EXDCLP 


COND25 
S 


ST=1 
SETDEC 
R=-A-1 A 
SETHEX 
P=C 15 
C=0 A 


NegExp 
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Is exponent positive? 
No, then process neg exp 
Positive exponent 


Can 1t be displayed w/o exp? 
No, then give scientific display 
ASCII 0 


Get next digit ready 
Copy make ASCII digit in A(B) 
Output digit 


Decrenent exponent 


Does DP go here? 
Yes, but... 

All sig digs output? 
Yes, then supress DP 
No, then output it 


Copy back ASCII digit 
C(B)=Sone negative nunber 
Are all sig dgts output? 
No, then loop back 


Is exp negative? 

Output zeros 

Yes, then done 

C(S)=F 

(B.E.1.) Put in trailing 0’s 
Skip over exponent 


Negative exponent 
Conplenent exponent 


Get # of signif dgts 


740 O5EE2 
741 OSEE6 
742 O5SEE9 
743 O5EEB 
744 OSEEE 


745 OSEF3 
746 OSEF6 
747 O5EF8 
748 OSEFR 
749 OSEFD 
750 05F00 
751 O5FO3 
752 OSFO6 
753 

754 

755 OSFO9 
756 O5FOD 
757 OSF10 
758 

159 

760 O5F13 
761 O5F16 
762 OSFIA 
763 O5F1D 
764 05F21 
765 O5F25 
766 O5F29 
767 OSF2C 
768 OSF2F 
769 O5F32 
770 OSF35 
771 OSF38 
772 O5F3C 
773 

774 

775 OSF3F 
776 O5F42 


777 O5F48 
778 OSF4B 
779 OSF4D 
780 O5F50 
781 O5F53 
782 O5F55 
783 OSFS? 
784 O5F59 
785 OSFSD 
786 O5F ot 
787 O5F65 
788 O5F69 
7839 OSF6B 
790 O5F6D 
791 O5F?1 
792 O5F74 
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80F0 
B8A 
C2 
ABS 
3221 
0 
981 
D1 
05 
A4E 
REC 
480 
BFS 
53F 


3103 
REE 
498 


811 
3103 
AOS 
75AD 
31£2 
709D 
REA 
B46 
4F0 
811 
A84 
7650 
SFE 


143 
3354 
Be 
860 
EO 
B26 
B26 
05 
F8 
04 
7000 
8000 
80F2 
80FO 
D5 
20 
3103 
AER 


822 


x 
x 


* 
x 


x 
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COND35 


COND37 


COND40 


COND45 


COND5O 


CONDSS 


mT DWOmOno 
onnuwwm 
=xaoo rer 
mn 7~-Ox 
> x2 


7BoC 
GOYES 
SETDEC 
C=C-1 
A=R-1 
GOoC 
BSR 
GONC 


LCASC 
ACEX 
COC 


BSLC 
LCASC 
C=C+B 
GOSUB 
LCASC 
GOSUB 
R=C 
C=C+1 
COC 
BSLC 
A=B 
GOSUB 
GONC 


A=DAT1 
LCASC 


?S$T=0 
GOYES 
C=C+1 
C=C+1 
SETDEC 
A=-A 
SETHEX 
GOSUB 
P=C 
CPEX 
CPEX 
B=C 

p= 
LCASC 
A=C 
$B=0 


0 
Pp 
A 
x 
012 


x 
COND40 


S 
B 
COND37 
W 
COND35 


\o\ 
B 
COND20 


\o\ 
Pp 


outbyt 
Nak 
outbyt 
B 


S 
COND50 


Pp 
Outi Tk 
COND45 


A 
\+E\ 


NegExp 
COND55 
XS 

KS 

a 
outetc 


0 
2 
0 
A 
0 
\o\ 
B 
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C=# of significant digits 
Sig ‘aver -cuponent} 
Move to B(X) 


Can constant be displayed 

No, then use scientific notation 
Increnent digits to be displayed 
Decrenent exponent 

Exit loop if nunber correct 


Add a leading zero 
(B.E.T.) Loop back 


ACB)=ASCII digit, C(B)=exp 
(B.E.T.) 


Display in Scientific notation 


(B.E.T.) 

Read in exponent 

Is exponent negative’ 
No, then skip 


Change ASCII + to - 


Conplenent exponent 


Reverse nibbles in C(X) 
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793 O5F77 7000 

794 O5SF7B 7800 

795 OSF7F 7400 

796 OSF83 684F 

797 O5SF87 A84  CONDEO 

798 OSF8A BBS 

793 OSF8D 832 

800 O5F90 00 

801 O5F92 8000 OutiTk 
00 

802 xe 

803 me 
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GOSUB COND6O 
GOSUB COND6O 
GOSUB COND60 
GOTO  CONDZ28 
R=B P 

BSR x 

?SB=0 

RTNYES 

GOLONG =QUT1TK 


804 O5F98 AES GETO B=C B 
805 OSF9B 14B GET1 A=DATI B 
806 OSF9E 171 D1=D1+ 2 
807 OSFA1 B46 «=6GET2 = C=C+1 SS 
808 OSFA4 BFI1 BSL W 
809 OSFA7 BF1 BSL W 
810 O5FAA 03 RTNCC 
811 ae 
812 x- 
813 OSFAC 8BB ROOM? ?C<=0 A 
814 OSFAF 00 RTNYES 
815 O5FB1 8Co0 GOLONG =MEMERR 
00 
816 x 
817 t 
818 OSFB7 8COO RANGE) GOLONG =Range 
00 
819 Ra 
820 Ae 
821 
822 * B=VAR: 
823 * Entry: D1 points to variable nane 
824 * Exit: D1 advanced past nane 
825 x B contains variable nane 
826 x C(S) = nunber of chars in nane 
827 * Uses: A(B),B(W),C(W) 1 stack level 
828 x 
829 * 


830 OSFBD AF1  B=VAR 

831 OSFCO AF2 

832 OSFC3 74DF 

833 OSFC? 31B2 

834 OSFCB 966 

835 OSFCE 90 

836 O5FDO 304 

83? OSFD3 71CF 

838 OSFD? 3306 B=VAR1 
96 

839 OSFDD 76DF 

840 O5FE1 400 

841 OSFE4 3103 

842 O5FE8 A86 

843 OSFEB 79AF 


B=0 W 

C=0 W C(S) rust be zero 
GOSUB GET1 Get first byte 

LC(2) =tSVAR String 

AKC OB Is it a string? 
GOYES B=V¥AR1 No, then continue 
LC(1)  =a$ Change to ASCII $ 
GOSUB GETO Store 1t and advance 
LC(4) (tADIGS)”(tADIGO) RANGE of Alpha Digits 
GOSUB RANGE} Is it in range? 

GOC B=VAR2 No, then continue 
LCASC \O\ ASCII digit 

C=A P Change to ASCII digit 
GOSUB GETO Store it and advance 
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844 OSFEF RE8 B=VAR2 B=A B Assune an alpha is left 
845 OSFF2 03 RTNCC 
846 a. 


847 x 
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848 
849 JOU ITI TTT TTI ITT RET TOAST IS TIES I 
850 JUICE UIT TOTO OTK 
851 tk 
852 tk Nane:(S) HXDASC - Hex to decinal ASCII conversion 
853 ax 
854 tk Category:  DCMUTL 
855 aK 
856 %* Purpose: 
857 x Converts a byte to a 3 character decinal ASCII string. 
858 aK Output string contains leading zero(s) if <100. 
859 ak 
860 ** Entry: 
861 ae A(B) contains byte to convert 
862 ak 
863 Rk Exit: 
864 ax B(15-10) contain 3 ASCII decinal digits 
865 ax P = 0 
866 ak 
867 &k Calls: None 
868 ak 
869 tk Uses. ...... 
870 tk Inclusive: B(W),A(B),C(S),C(B) 
871 ax 
872 ** Stk lvls: 1 
873 sa 
874 ** History: 
875 ax 
876 oe Date Progranner Modification 
877 Pe Gesered, eee eetendeoease ease ees 
878 aA 09/06/83 ~—s«#B.S. Added docunentation 
oe 2 IO ITO IOC OS TIS III TIT IS IO OTT II SIS III III TH 
881 JORIS IOC III ISO CII ITO III O III TTS IIS 
882 OSFF4 2F  =HXDASC P= 15 
883 OSFF6 303 LC(1) \O\/16 
884 OSFF9 20 P= 0 
885 O5FFB 3146 HXDAS+ LC(2) 100 Constant 100 
886 OSFFF 7610 GOSUB HEXA30 Do nod 100 reduction 
887 06003 31A0 LC(2) 10 Constant 10 
888 06007 7E00 GOSUB HEXAX Do nod 10 reduction 
883 O600B A88 B=A P 
890 OG00E 815 BSRC Rotate $ 
891 06011 BFS BSR W 
892 06014 AC5 B=C S Copy upper nib of ASCII digit 
893 06017 03 RTNCC into place and return 
894 aL 
895 t 
896 06019 BFS HEXA30 BSR W 
897 O601C 9E2 HEXA35 ?7A<C OB Is byte greater than nod 
838 O601F BO GOYES HEXA4 No, then exit loop 
899 06021 BoA A=A-C OB 
900 06024 B45 B=B+1 $ Increnent counter 
901 06027 54F GONC HEXA35 (B.E.T.) Loop back 
902 0602A BF5 HEXA40 BSR W Shift digit 
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903 0602D ACS B=C S Copy upper nib of ASCII digit 
904 06030 03 RTNCC into place and return 
905 ke 
906 Kis 
907 06032 868  INSXFN ?7ST=0 XFNFlg Is it an XFN? 

908 06035 00 RTNYES No, then return 
909 06037 3585 LCASC \NFX\ 
64E4 
910 0603F 25 P= 5 
911 06041 8€00 outnbc GOLONG =OUTNBC 
00 

912 ke 
913 he 
914 JIC ISIC ISI OC ITO TO TI TTT OT IIS 
915 JOO III TO TTT I IIIT I IIT II IOI III SISOS IITA IIIS 
916 x 
917 ** Nane: XFNTXT - Get text of an XFN or FFN 
918 - 
919 ** Category: LOCAL 
920 ax 
921 ** Purpose: 
922 ae Gets text of a XFN or FFN in forn XFNdddeee. 
923 ax 
924 ** Entry: 
925 aX D1 points at DDDD (XFN nunber) 
926 xx 
927 xe ERAT: 
928 1 XFNF1g(S8) set 
929 ae P = 0 
9% xx Carry clear 
931 x 
932 ** Calls: HXDASC , HXDAS+, CNPBAC 
933 ae 
934 AX USO. os a ss 
935 k* Inclusive: A(W),B(W),S8(XFNF1lg),C(5-0) 
936 ax 
93? ** Stk lvls: 3 
938 * 
939 ** History: 
940 aS 
941 a Date Prograriner Modification 
942 RK anew een e ence rence reece renee n nnn ences en ne rece ee rcnnn- 
943 kk 10/25/83 B.S. Added docunentation 

as 
Ee FORO JOO OOOO IO OIG IO IIIA 
O46 JOO IU EI OISISEI GIS I IOUT TIO AK 
947 * D1 points at DDDD (XFN nunber) 
948 06047 858 XFNTXT ST=1 ~~ XFNF1g Set XFN flag 
949 0604A 143 A=DAT1 A Read XFN nuriber into A(3-0) 
950 0604D 73AF GOSUB HXDASC Convert a byte to ASCII decinal 
951 06051 BF4 ASR W 
952 06054 BF4 ASR W 
953 06057 7OAF GOSUB HXDAS+ Convert another byte 
354 0605B 3103 LCASC =\O* See if leading 0 can be 


955 O605F 8E00 GOSUBL =CNPBRC suppressed 
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00 

966 06065 2F = 15 
957 06067 30B LC(1) 11 12 nibs 
958 0606A 491 COC XFNTX1 Skip if no zero can be suppressed 
359 0606D BFS BSR uW 
960 06070 BFS BSR W Shift off leading zero 
961 06073 309 ic(1) 9 10 nibs. 
962 06076 965 BHC OB Is there another leading zero? 
963 06079 BO GOYES XFNTX1 No, then skip 
964 0607B BFS BSR W Yes, 
965 0607E BFS BSR W then shift off another digit 
966 06081 37 wce(1) 7 which leaves length at 8 nibs 
967 06084 20 XFNTX1 P= 0 
968 06086 AF4 A=B W Copy text to A 


9639 06089 03 RTNCC 
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970 

971 JISC SOI IOI ISIS GOOG IC ICO SO TI TI 
972 JOISTS ISOC I TOOT IT IOS TST III IIS IIA IIIA 
973 a 

974 xX Nane: NXTNUL - Find next nullop 

975 ** Nane: NXTNL+ - Find next nullop 

976 KK 

977 *k Category: LOCAL 

978 ax 

979 ** Purpose: 

980 aR Scans backward in rienory to find next nullop, checking 
981 aK uhether parentheses will be required to preserve 

982 kk precedence. 

983 ar 

984 **k Entry: 

985 xx C(3-0) = Precedence RANGE to check for 

986 xk P = 0 

987 ax NXTNL+: DO = Scan start loc+2 

988 ax NXTNUL: 01 = Scan start loc+2 

989 aR 

99% RE EMILE: 

99 Kt P = 0 

992 aes Di points to nullop 

993 xn Carry clear 

994 sa $3 = 1 iff parens needed 

995 a 

996 ** Calls: QUOTCK, RANGE 

997 me 

998 ** Uses....... 

999 xk Exclusive: A(B),C(R),D1 
1000 kk Inclusive: A(B),C(A),D1 NXTNL+: ACA) 
1001 ax 
1002 *k Stk lvls: 1 

1003 xx 
1004 *k History: 
1005 = 
1006 ae Date Programmer Modification 
1007 OE Ghedess Waceetot es - tee ae era cee 
1008 xk 6099/06/83 «B.S. Updated docunentation 
kk 

io JOR ISIS IIIS OCC IOI IT IE 
1014 JO ISIC CISTI CO III IE 
1012 06088 132  NXTNL+ RDOEX 
1013 O6808E 130 DO=A Copy BO to A, 

1014 06031 131 D1=A then to D1 
1015 06094 D5 NXTNUL B=C A Copy prec range 
1016 06096 843 ST=0  NeedP Clear parens needed flag 
101? 06099 1€1 NXTNIO D1=D1- 2 Nove pointer 
1018 0609C 148 A=DAT1 B Read byte 

1019 O603F 7A91 GOSUB QUOTCK Ts 1t a quote? 

1020 060A3 5D0 GONC = =NXKTN4O No, then okay 

1021 Yes, then skip literal 
1022 O60A6 101 NKTN3O D1=D1- 2 Point to next char 
1023 O60AR9 14B R=DAT1 B Read next char 

1024 O60AC 366 ARC OB Is it the ending quote? 
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1025 OG0AF 7F GOYES NXTN3O 
1027 06081 D9 
1028 060B3 700F 
1029 060B7 450 
1030 O60BA 853 
1031 O60BD 36C 
1032 06000 9D 
1033 06002 03 


No, then loop back 

Yes, then continue 

Load prec range 

Check for parens needed 

No, okay 

Yes, set parens needed flag 
Is this a nullop? 

No, loop 

Yes, return 
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1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

104? 

1048 

1043 

1050 

1051 

1052 

1053 

1064 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

106? 

1068 

1069 

1070 

1071 

1072 

1073 06004 06 

1074 06006 173 

1075 06009 133 

1076 O6OCT 161 

107? O6OCF 136 

1078 06002 134 

1079 060B5 135 

1080 06008 181 

1081 O60DB 06 

1082 O60DD D5 

1083 O60DF E8 

1084 O60E1 77CE 

1085 O60E5 8F0O 
000 

1086 OG0EC 20 

1087 O60EE 07 


ak 
ak 
ak 
ak 
ar 
ak 
xk 
an 
xk 
xx 
xk 
ak 
aX 
xx 
xk 
ak 
xx 
ax 
ax 
xx 
ak 
aK 
ak 
xn 
kk 
xk 
ak 
aK 
aK 
ak 
ak 
an 
ax 
a 
an 
ak 
aK 
xk 


I 
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SII IIT TI TIT ITI I III III IIIT IIIS IIIT III II III SI IIIS III I III ITI AK 
SII II SII III III II SII IIIT IIIA I III I IIS ISI III III IS III II IIIS AH 
Narie: INSCHR - Insert a character in output buffer 
Category: LOCAL 
Purpose: 
Insert a character in the output buffer 
Entry: 
D1 = Point of insertion-2 
DO = Ptr to next available byte 
C(B) = Byte to be inserted 
D(A) = Ptr to end of available nenory 
Exit: 
Carry clear 
P = 0 
DO = Update ptr to next available byte 
D4 = Save as at tine of call 
Calls: NOVEDO , ROON? 
Uses....... 
Exclusive: A(A),B(A) 
Inclusive: A(A),B(A), DO 
Stk lvls: 3 
History: 
Date Prograriner Modification 
09/06/83 B.S. Updated docurientation 


FOU IIIT IOI OTITIS OT TT TIT ITI II. 


III TI IOI I III TOI II TIT TI II OD III III IAI IS II ISI II III II III II IIIT IIA 
NSCHR RSTK=C Save contents of C 

Di=D1+ 4 Adjust ptr for len calc 

ADIEX Get begin sourcet2 

DO=D0+ 2 Calc end of dest 

CDOEX 

DO=C Put back in DO 

01=C Di=End of destination 

DO=DO- 2 DO=End of source 

RSTK=C Save on stack 

B=C A and put copy in B(A) 

B=B-A A Calculate length 

GOSUB ROOM? Check for enough roon 

GOSBVL =NOVEDO Ripple the buffer down 

P= 0 MOVEND leaves pointer undefined 

C=RSTK Get back end of destination 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 


1088 O60FO 134 
1089 O60F 3 0? 
1090 O60F5 1C1 
1091 O60F8 14D 
1092 O6OFB 1C1 
1093 O60FE 03 
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DO=C 
C=RSTK 
D1=D1- 2 
DAT1=C B 
D1=D1- 2 
RTNCC 


Restore neu output ptr 

Restore contents of C 

Position pointer for insertion 
Insert char in buffer 

Restore pointer to value at call 
Return with carry clear 
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1094 
1095 
1036 
1097 
1098 
1039 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
112? 
1128 
1129 
1130 
1131 
1132 
1133 
1134 06100 863 
1135 06103 00 
1136 06105 3182 
1137 06109 6ABF 


Fri Dec 3, 1983 4:15 an 
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EJECT 
JOIST IC TO TI TCT IIIT TAIT I 


FOR II TOTO TT TT TTT K 


ah 
kk Narie: INS( - Inserts left parenthesis if needed 
ik 

** Category: LOCAL 

a 

** Purpose: 

ak Inserts a left parenthesis in output buffer if needed. 
ak Does nothing if not needed. 

kk 

ak Entry: 

kk p = 0 

ak $3 set if parens needed 

kk D(A) = Pointer to end of available nenory 

ak DO = Points to next available byte of nenory 
aK D1 = Points to point of insertion-2 

ke 

aK Exit: 

as P = 0 

ak DO = Points to new next available byte of 

aK available nenory 

aK Carry clear 

ah 

*k Calls: INSCHR 

ik 

EX USCS. hacisd 

xk Inclusive: A(A),B(A),C(B), DO 

ke 

ek Stk lvls: 3 

wok 

** History: 

kk 

ak Date Progranner Modification 

Ra neces! See ate ea ate ole ee haat iat sie ani 
*k 09/06/83 «B.S. Updated docunentation 

ah 


FOI III IOI TI IIT TT ITT TTT IT IDI ITI ITI 
JOIST TT TTT TOTTI AE 


INS( = 7ST=0) =~ NeedP fire parens needed? 
RTNYES No, then return 
LCASC = \C\ 
GOTO INSCHR 
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1138 EJECT 
1139 $I OT III ISI II IIIT II SOS IOS ITT TS TS SI SSIS IS SIS SSIS SI SSK 
1140 JI OAT IIIA IIIA II III IT IIT ATT OAT DT IIT ISOS SSIS ISOS SSS SSS STK 
1141 ax 
1142 ** Narie: DNATUR - Denature operator tokens 
1143 tk Nane: APPNDP - Denature cperator tokens. 
1144 ak 
1145 ** Category: LOCAL 
1146 oe 
1147 tk Purpose: 
1148 RA APPNDP: Append a closing parenthesis to output buffer 
1149 ax then... 
1150 ak DNATUR: Change the appearance of operator tokens in 
1151 a output buffer so that they don’t affect 
1152 ak precedence. (Change fron 8x to Fx) 
1153 ak 
1154 ** Entry: 
1155 7 APPNDP: $3 set if parens needed 
1156 ax D(A) = Pointer to end of available nenory 
1157 ax P = Q 
1158 ak and... 
1159 ae DNATUR: 
1160 ax DO = Highest address to denature 
1161 ax D1 = Lowest address to denature+2 
1162 ax 
1163 ak Exit: 
1164 Ax APPNOP: 
1165 am DO = Pointer to new end of output buffer 
1166 = and... 
1167 EX P = 0 
1168 - 
11693 &* Calls: QUTRP 
1170 ak 
1171 AX Uses....... 
1172 tk Exclusive: A(A),B(A),C(A) 
1173 kk Inclusive: A(A),B(A),C(A) 
1174 ae 
11275 *k Stk lvls: 2 
1176 *% 
1177 *x History: 
1178 ax 
1179 am Date Prograriner Modification 
1180 Kk nee nen n ee ween ene nen nn een nee ee nnn 
1181 - 06/09/83 B.S. Updated docunentation 
ies SOOO RI I IAT AI III ITIL IDI TI SSIS II IIS IIIS TISAI IIIS IS SSS IS SSSA 
1184 JIC ITT II IIIT TI III II ISI ISI II III ISSSSI SISA 
1185 06100 863 APPNDP ?ST=0 NeedP Are parens needed? 
1186 06110 00 RTNYES No, then return 
1187 06112 7CRB GOSUB OUTRP Append right paren 
1188 x 
1189 * Now denature operator tokens between DO and D1 
1190 : 


1191 06116 136 DNATUR CDOEX 
1192 06119 134 DO=C Copy DO to C, 
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1193 0611C DS 

1194 O611E 133 
1195 06121 131 
1196 06124 171 
1197 06127 133 
1198 0612A 8B8 
1199 06120 C1 

1200 0612F 133 
1201 06132 14F 
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then to B 

Copy D1 to R 


DNAT10 


1202 06135 6000 
t 


1203 

1204 06139 
1205 06139 888 
1206 0613C 8E 
1207 O613E 21 
1208 06140 30F 
1209 06143 14D 
1210 06146 5DD 
1211 06149 20 
1212 06148 01 


=DNAT18 


DNAT 20 


B=C A 
ADIEX 

DI=A 

D1=D1+ 2 
ADIEX 

*A>=B OAR 
GOYES DNAT20 
ADIEX 

C=DAT1 B 

GOTO  =DNATI2 
P=C 1 


°PH 8 
GOYES DNAT1O 
P= 1 
LCHEX F 
DATI=C B 

GONC  DNATIO 
P= 0 

RTN 





Move pointer to next byte 
Get pointer into R 

Done yes? 

Yes, then exit loop 

Put pointer to byte in 01 
Read next byte 

Junp to bug fix. (#39-1017(3)) 
Get high nibble of byte 
Return here fron bug fix. 
Is high nibble an 8 

No, then loop 

Point to high nibble 
Denature nibble fron 8 to F 
Write out denatured nibble 
(B.£.T.) Loop back 

Must exit with P=0 
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1213 STITLE Arithnetic Operator Deconpile 
1214 SII TIE TIA TD TT TIT RTT TR EIA I IIIA IKI IIE III IIT TTT TTT 
1215 JI II ITT TITS TIAL I SATII IIIT III III IIIT IIIS IIS ISAS SSIS 
1216 EA 
121? Nane:(S) ARITH - Get Text For An Arithmetic Operator 
1218 
1219 ** Category:  DCMUTL 
1220 me 
1221 ** Purpose: 
1222 ax Returns text for an arithnetic operator 
1223 ax 
1224 ** Entry: 
1225 ak P = 0 
1226 an A(B)=arithnetic operator 
1227 xk 
1228 ax Exit: 
1229 ae P = WP length of text of arithnetic operator 
1230 aK C(WP) = Text for arithnetic operator 
1231 aX (First ASCII char is in low C, last in high) 
1232 Ex Carry clear 
1233 ax 
1234 ** Calls: None 
1235 a 
1236 Rk Uses....00- 
1237 ** Inclusive: A(X),C(W),P 
1238 a 
1239 kK Stk lvls: 0 
1240 Rk 
1241 ** History: 
1242 ax 
1243 kk Date Progranner Modification 
1244 RR nme ee ne ewe e ween eee wer w nner nn enn nero rene cern neernen 
1245 kk 08/01/82 SA Wrote routine 
1246 xe 10/19/82 «B.S. Added docunentation 
1247 Rx 
1248 III IAI IDI III IIIT RII IIT IIR IST S III III II III II III I III I I IAI IASI S A 
4249 III IRI IDI SIA TI TT IIIA III III IIIT ATI IIIS ITI OI III III III IIS IIIS IIIA 
1250 0614D 33E3 GTREQL LCASC \=>\ Load text for >= 
D3 
1251 06153 23 P= 3 GTREQL case can be packed out 
1252 06155 03 RTNCC Return with carry clear 
1253 x 
1254 a 
1255 06157 OC RELOP1 P=P+1 
1256 06159 892 CSL WP Shift previous characters left 
1257 0615C OC P=P+1 
1258 0615E B92 CSL OWP 
1259 06161 AEG C=A B Install new character 
1260 06164 AGC RELOP2 A=A-1 B Create next character 
1261 06167 A24 RELOP3 A=A+A XS Character into relop text? 
1262 0616A 4CE GOC RELOP1 Yes, then repeat RELOP1 
1263 0616D 92C PAHO XS Relop text complete? 
1264 06170 4F GOYES RELOP2 No, then repeat RELOP2 
1265 06172 03 : RTNCC Return with carry clear 


1266 


Saturn Assenbler Expression Decompile <831212.1 Fri Dec 3, 1983 4:15 an 


Ver. 3.39/Rev. 2306 Arithmetic Operator Decompile Page 29 
1267 x- 
1268 06174 32F3 RELOP LCHEX 63F Load "?" and GTREQL predicate 
6 
1269 06179 922 7R=C XS GTREQL case? 
1270 0617C 1D GOYES GTREQL Yes, then goto GTREQL 
1271 0617E AEA A=C B 
1272 06181 3232 LCHEX 023 Load "#" and NOTEQL predicate 
D 
1273 06186 2F P= 15 
1274 06188 926 TAHC = XS NotEqual case? 
1275 0618B CD GOYES RELOP3 No, then goto RELOP3 
1276 0618D 6C390 GOTO P=1RTN Set P to 1, RIN 
1277 x. 
1278 x. 
1279 06191 BO2 LOGIC (C=C-A P Relational operator? 
1280 06194 5FD GONC RELOP Yes, then goto RELOP 
1281 06197 B06 C=C+1 P AND operator? 
1282 0619A 453 GOC AND Yes, then goto AND 
1283 0619D B06 C=C+1 P EXOR operator? 
1284 061R0 401 GOCc EXOR Yes, then goto EXOR 
1285 061A3 3702 LCASC =\ RO \ Load text for OR 
F425 
02 
1286 O61AD 27 P=7RIN P= ? 
128? O61AF 03 RTNCC Return with carry clear 
1288 es 
1289 % 
1290 061B1 37E4 NOT LCASC \ TON\ Load text for NOT 
F445 
02 
1291 061BB 41F GOC P=?RTN 
1292 ne 
1293 k- 
1294 061BE 3802 EXOR LCASC \ ROXE \ Load text for EXOR 
5485 
F425 
02 
1295 O61CC 2B = 11 
1296 O61CE 03 RTNCC Return with carry clear 
1297 x 
1298 a 
1299 06100 3902 AND LCASC \ DNA \ Load text for AND 
14E4 
4402 
130 0610C 29 P=SRIN P= 9 
1301 O61DE 03 RTNCC 
132 Es 
13 a= 
1304 061EO 31 =ARITH LC(1) =tNOT 
135 061E3 92 7A=C OP Logical NOT? 
1306 O61E6 BC GOYES NOT Yes, then goto NOT 
130? O61E8 2 iC(1)  =t- 
1308 O61EB 92 *A=C OP CHRNGESIGN operator? 
1309 O61EE Re GOYES MINUS Yes, then goto MINUS 


1310 O61FO 821 xM=0 Record terriinal condition 
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1311 O61F3 306 
1312 O61F6 902 
1313 O61F9 53 
1314 O61FB 30A 
1315 O61FE 98E 
1316 06201 039 
1317 06203 300 
1318 06206 908 
1319 06209 BO 
1320 0620B A86 
1321 O620E ADE 
1322 06211 B8A 
1323 06214 8000 
1324 06218 3FD2 
62E5 
A2F2 
52E2 
Be 
1325 0622—A 21 
1326 0622C 03 
1327 O0622E 3902 
4494 
6502 
1328 0623A 41A 
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EXPONT 
MINUS 


P=4RTN 
DIV 


LC(1) 
*A=C 
GOYES 
LC(1) 
?Ad=C 
GOYES 
LCHEX 
?A=0 
GOYES 
C=A 
C=C+C 
C=-C 
P=C 
LCASC 


p= 
RTNCC 
LCASC 


GOCc 


=tDIV 
Pp 

DIV 
=tRELOP 
Pp 
LOGIC 
C 

Pp 
EXPONT 
Pp 

p 

p 


0 
\+.2/*°8-\ 


\ VID \ 


P=SRTN 
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Is it a DIV operator? 
Yes, then goto DIV 


Relop or logical operator? 
Yes, then goto LOGIC 


Exponentiator? 
Yes, then goto EXPONT 


Load operator character 


Return with carry clear 
Load text for DIV 


(B.E.1.) Set P=9, RIN 
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1329 
1330 FOO IO IO JOTI IOI IIIT III ITO 
1331 FOR TOIT TTOTOITITI  TTOTIOIOIOK 
1332 Rk 
1333 ** Nane:(S) QUOTCK - Quote and Apostrophe Check 
1334 ax 
1335 ** Category:  GENUTL 
1336 ae 
1337 ** Purpose: 
1338 Checks if A(B) is a quote or an apostrophe 
1339 ak 
1340 aX Entry: 
1341 ak P = 0 
1342 ax A(B) = Byte to be checked 
1343 a 
1344 Rk Exit: 
1345 a P = 
1346 ae Carry set iff A(B) is a quote or an apostrophe 
1347 at 
1348 ** Calls: None 
1349 a 
1350 BE OUSES ss: nas 
1351 *k Inclusive: C(B) 
1352 aX 
1353 ** Stk lvls: 0 
1354 ax 
1355 ** History: 
1356 ax 
1367 xx Date Progranner Modification 
1358 RR we mce nnn ecw erence renner rene tnt ern e neers cena 
1359 10/19/82 B.S. Added docunentation 
x 
He FOI III TO TO TT TOI OI IN 
1362 FOR OT TOT OT TTR OOOO 
1363 0623D 3122 =QUOTCK LC(2) \"\ 
1364 06241 962 *A=C OB 
1365 06244 00 RTNYES 
1366 06246 30? Lc(1) \V\ 
136? 06249 962 "A=C) OB 
1368 0624C 00 RTNYES 
1369 O624E 03 RTNCC 
1370 - 
1371 06250 END 
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ARRAY 
. CHPLX 
. DMYAR 
FEN 
.FFNIO 
.FN 

» PNY 

. ISUB$ 
. LPRP 
. XFN 
AND 
APPNDP 
=RRITH 
B=VAR 
B=VARI 
B=VAR2 
CMPBHC 
CND40j} 
CONDOS 
COND10 
COND15 
COND20 
COND25 
COND28 
COND 30 
COND35 
COND 37 
COND40 
COND45 
CONDSO 
COND55 
CONDGO 
CONDC. 
CPY4.1 
CPYB10 
CPYB18 
CPYB20 
CPYB22 
CPYB30 
CPYB35 
CPYB38 
CPYB40 
CPYB41 
CPYB50 
CPYBAC 
CPYLI1 
CPYLI2 
CPYLIT 
DIV 
DNAT 19 
DNAT12 
=DNAT18 
DNAT 20 
DNATUR 
DRANGE 


Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 


23350 #05B36 
23641 #05C59 
23203 #05AR3 
24021 #O5DDS 
24058 #OSDFA 
23356 #05830 
23359 #056 3F 


ot £ 4 


23274 HOSAER - 


23190 #05R96 
23601 #05C31 
25040 #061D0 
24845 #06100 
25056 #O61EO 
24509 #O5F BD 
24535 #05FD7 
24559 HOSFEF 


24163 #O5E63 
24143 HOSE4F 
24167 #O5E67 
24203 #O5E8B 
24218 HOSESR 
24245 #05EB5 
24268 HOSECC 
24275 #O5ED3 
24314 #OSEFR 
24329 #O5FO9 
24339 HO5SF13 
24364 HOSF2C 
24383 HOSF 3F 
24409 HOSFS9 
24455 HOSF87 
24084 HO5E14 
23917 #05D6D 
23812 #05D04 
23835 #05D1B 
23838 HOSDIE 
23842 #05022 
23858 #05032 
23867 #05038 
23876 #05044 
23881 #05049 
23952 #05090 
23965 #05090 
23809 #05001 
23984 #05DB0 
23997 #OSDBD 
23977 #OSDAS 
25134 #0622E 
24868 #06124 


248839 #06133 
24905 #06149 
24854 #06116 


| 


' Ft € # 9 


384 
492 
335 
636 
654 
388 
389 
356 
330 
474 
1299 
1185 
1304 
830 
838 
844 
955 
694 
686 
697 
708 
743 
722 
70 
734 
748 
755 
760 
767 
775 
784 
797 
665 
593 
$53 
561 
562 
563 
571 
574 
578 
582 
607 
612 
552 
619 
624 
617 
Te? 
1196 
1202 
1204 
1211 
1191 
304 


506 
512 
516 
518 
637 
508 
385 
510 
514 
504 
1282 
212 
612 
335 
835 
840 


705 
6% 
682 
723 
757 
714 
717 
701 
752 
750 
694 
772 
768 
778 
793 
313 
590 
568 
604 
586 
583 
565 
522 


559 
595 
603 
549 


629 
582 
1313 
1206 


1199 
237 
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250 
389 


729 


72? 796 


746 


794798 


598 601 614 


1210 


377 470 
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EXD100 
EXD110 
EXDCOS 
EXDC10 
EXDC15 
EXDC 20 
EXDC 30 
EXDC 314 
EXDC33 
EXDC 35 
EXDC 36 
EXDC40 
EXDC50 
EXDC55 
EXDC60 
EXDC 70 
EXDC75 
EXDC79 
EXDC 80 
EXDC9) 
EXDC92 
EX0C 94 
=EXDCLP 
EXOR 

EXPONT 
=EXPRDC 
FRange 
FUND 10 
FUND 20 
FUND 70 
FUND386 
FUND 98 
FUND99 
GETO 

GET1 

GET2 

GTEXTH 
GTEXTX 
GTREQL 
HEXR 30 
HEXR35 
HEXA40 
HXDRS+ 
=HXBASC 
INS( 

INSCHR 
INSF 10 
INSF 20 
INSF 30 
INSF 33 
INSF 35 
INSF 38 
INSF N- 
INSFUN 
INSXFN 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


23756 
23768 
22841 
22872 
22895 
22910 
22920 
22937 
22972 
2H21 
29024 
23109 
23113 
23123 
2313? 
23150 
23167 
23182 
23186 
23650 
23254 
23260 
22830 
25022 
25108 
22818 


eseg? 
23324 
23387 
23623 
23724 
23730 
24472 
24475 
24481 


24909 
24601 
24604 
24618 
24571 
24564 
24832 
24772 
2340? 
23454 
23483 
23516 
23507 
23582 
23408 
23413 
24626 
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#OSCCC 
#O5CD8 
#05939 
#05958 
#O596F 
#0597E 


fo og 


#059388 - 


#05999 
#059BC 
#059ED 
#059F0 
#O5R45 
#O5A49 
#05A53 
#05A61 
#OSR6E 
#05A7F 
HOSA8E 
HOSASZ 
#05C62 
HOSAD6 
#O5ADC 
#0592E 
#061BE 
#06214 
#05922 


#05B01 
#05B1C 
#05B5B 
#05C47 
#O5CAC 
#05CB2 
HOD5F 98 
#OSF 9B 
#OSFA1 


#06140 
#06019 
#0601C 
#0602A 
#HOSFFB 
#O5FF4 
#06100 
#0604 
#05B83 
HOSBSE 
#O5BBB 
#O5BDC 
#O5SBE7 
#OSC1E 
#05B 70 
#05B 75 
#06032 


§35 
539 
197 
207 
212 
216 
221 
227 
243 
264 
265 
303 
04 
H6 
310 
314 
319 
324 
32? 
49? 
343 
350 
193 
1294 
1323 
189 
497 
364 
375 
397 
484 
$22 
524 
804 
805 
807 
520 
474 
1250 
896 
897 


9 
c 


885 
882 
1134 
1073 
411 
420 
432 
445 
450 
466 
404 
406 
%? 


499 
537 
195 


3 
209 
223 


255 
381 
293 
224 


305 
312 
323 
332 
315 
327 
346 
348 
200 
1284 
1319 


367 
369 
391 
475 
483 
494 
83? 
832 
336 


636 
1270 
886 
901 
898 
953 
950 
213 
215 
414 
407 
416 
443 
447 
462 
662 
528 
424 


9 


218 


372 


843 
392 


888 


251 
262 
419 


459 
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429471 


324 353) 691 731 


393 


231 
%2 1137 
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LOGIC Abs 24977 #06191 - 1279 1316 
MEMNERR Ext - 815 
MINUS Abs 25112 #06218 - 1324 159 
MOVEDO Ext - 455 1085 
NOved3 Ext - 647 


NOT Abs 25009 #061B1 - 1290 1306 
NXTN1O Abs 24729 #06099 - 1017 1032 
NXTN2O Abs 24765 #O60BD - 1031 1029 
NXTN30 Abs 24742 #060R6 - 1022 1025 
NXTN40 Abs 24753 #060B1 - 1027 1020 
NXTNL+ Abs 24715 #0608B - 1012 211 249 
NXTNUL Abs 24724 #06094 - 1015 290 


NeedP Abs 3 #00003 - 181 «292-388 3%) 01 1016 «10% = 1134 
1185 
NegExp Abs 0 #00000 - = 180 702. 734777 
: NewVal Abs 11 HOOOOB - «185 192 194 197 201 384 
: QUT1TK Ext - 801 
OUTZTK Ext - WS 318 
QUTBYT Ext = G32 
OUTNBC Ext = (944 
OUTNBS Ext - 428 642 
=OUTRP Abs 23746 #05((2 - 531 469 573 1187 
OldVal Abs 10 #0000R - 184 193 196 538 548 571 
OutiTk Abs 24466 #05F92 801 320 423 562 688 710 774 
P=1RTN Abs 25130 #0622A 1325 1276 
P=7RTN Abs 25005 #061AD 1286 1291 
P=9RIN Abs 25052 #06100 1300 1328 


1363 314617 «1019 
818 208 222 498 589 839 1028 


=QUOTCK Abs 25149 #06230 
RANGE) Abs 24503 #05FB7 


RELINP Ext 644 

RELOP Abs 24948 #06174 1268 1280 

RELOP1 Abs 24919 #06157 1255 1262 

RELOP2 Abs 24932 #06164 - 1260 1264 

RELOP3 Abs 24935 #06167 - 1261 1275 

ROOM? Abs 24492 HOSFAC - 813 452 1084 

Range Ext - 818 

VARDC Ext ae, 

VarDCF Abs 8 #00008 - «182 «4198 ©6539 

XFNFlg Abs 8 #00008 - 183 446 500 7? 948 


XFNTX1 Abs 24708 #06084 - 967 958 963 
XFNTXT Abs 24647 #06047 - 948 480 654 


a$ Abs 36 #00024 - 187 836 
ad Abs 48 #00030 - 187 706 
finda Ext - 502 

outctc Ext - 331 784 


=outbyt Abs 23750 #05((6 - 532 376 551 639 666 719 763 765 
outnbc Abs 24641 #06041 - 911 352.—s «613 


5 a Abs 131 #00083 - 187 210 
t+ Abs 135 #00087 - 187 593 
t- Abs 13% #00082 - 187 207 593 13%? 
tADIGO Abs 96 HOOOEO - 187 838 


tADIGS Abs 105 #00069 - 187 838 
tRRRAY Abs 125 #0007D - 187 505 
tCMPLX Abs 122 #OOO7A - 187 «511 
tC(VAL = Abs 225 HOOOE1T - 187 535 
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tDIV Abs 134 #00086 - = 187 «1311 

tDMYAR Abs 126 HOOO7E - 187 515 

tFFN Abs 180 HOO0B4 - 187 517 

tFLT1 = Abs 29 #OOO1D - = 187 = 310 

tFN Abs 124 #OOO7C - 187 507 

tISUB$ Abs 167 HOOOR7 - 187 509 

tLPRP Abs 170 #OOORA - 187 513 

tNOT Abs 129 #00081 - 187 207 134 

tOR Abs 141 #0008D - 187 «9210 221. 22? 265 
tRELOP Abs 138 #0008R - 187 253 607 1314 
tSVAR = Abs 45 #0002D - 187 833 

tKFN Abs 179 #000B3 - 187 503 

t* fibs 128 #00080 - 187 221 227 265 
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Input Paraneters 
Source file nane is SBSEXD: :NS 
Listing file name 1s SB/EXD: TI: ML: :-1 
Object file narie 1s SBZEXD: TI: MS::-1 


114111 
0123456 789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Nens 
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06250 


NN — aes a st 
CWONMAMAWN KH DWWONHDM DWH 


nm 
~~ 


PO RO PO PO 
MD wr 


26 
27 06250 3192 


% 0 0 0S OO OO 


=DUMR8O LCASC \) 


ROM 1 Fix Module Fri Dec 30, 1983) 5:19 an 
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TTT III & FFFFF X XxX 1 

7 TIT 88 F x xX 11 

T T 8&8 F KX 1 

T I & FFFF x 1 

1 I 8&8& F KK 1 

T I & & F KX X 1 

T TTI 8&& F K xX 111 


TITLE ROM 1 Fix Module 
RBS #6250 


The following code fixes bug #39-957(1) 

The "array required" attribute when used causes the mininun 
nunber of paraneters check to be bypassed. This code replaces 
the check for the closing parenthesis uhich had been in-line 

in the expression parser code as well as adding a check for 

the mininun nunber of paraneters. The first two instructions 
of this code along with the GOC DUMAER following the call to it 
replace the LCASC \)\ and 7AHC B \ GOYES DUNAER which were 
renoved fron the expression parser code. The net code change 
in the expression parser nodule 1s zero. The code added to thi 
nodule requires 41 nibbles. 


This subroutine returns with carry set if the dutriny array isn’t 
followed by a closing paren or it the nininun nunber of paranet 
have not been specified. The carry will be clear otherwise. 

( Right paren required 


28 06254 966 AHC OB Is the next char a right paren? 

29 06257 00 RTNYES No, then return with carry set 

30 06259 119 C=R1 Recall exad-2 

31 0625C BF6 CSR W 

32 O625F BF6 CSR W 

33 06262 BFE CSR W Get Exad-2 to C(A) 

34 06265 136 CDOEX 

35 06268 14A A=DATO B Read the nin and max parr count 

36 0626B 136 CDOEX 

37 0626E FO ASL A 

38 06270 FO ASL A Shift nin count into A(XS) 

33 06272 SAO 7A>B XS Has rin count been satisfied? 

40 06275 00 RTNYES No, then return with carry set 

41 06277 03 : RTNCC Yes, then return with carry clear 

42 

43 x 

44 x 

45 * The following is used to fix bug # 39-1000(9). It sets the upp 

46 * digits of the output register to zero. This will prevent a hig 

47 * standby current in the keep-alive RAM port which would occur if 

48 * the output register bit 4 was left non-zero while shut down. T 

49 * allow a future cost reduction possible, the highest digit of th 

50 * output register is also zeroed. This is the nibble that contro 

51 * the beeper circuit. 

52 06279 3210 =0UT=1 LCHEX 001 Activate key row containing ATIN ke 
0 


53 0627E 570 


GONC OQUT=X (B.E.1.) Assure carry clear on ent 


54 06281 32F0 =OUT=F LCHEX OOF Activate all key rows 
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0 
55 06286 801 
56 06289 01 
B¢ 
58 
$9 
60 
61 
62 0628B DE 
63 0628D 06 
64 0628F 20 
65 06291 7000 
66 06295 4E0 
67 06298 07 
68 0629A DE 
63 0629C 8001 
70 
71 
72 062RO 6000 
73 062A4 171 
74 062R7 14F 
75 062AAR 962 
76 O62RD BE 
77 O62RF 54F 


ROM 14 


OUT=x 


oe Me FF Oe 


DNATI2 


DNAT14 


DNAT16 


Fix Module 
OuUT=C 

RTN 

ACEX A 
RSTK=C 

P= 0 

GOSUB =QUOTCK 
GOC DNAT16 
C=RSTK 

ACEX A 

P=C 1 

GOTO =DNAT18 
01=01+ 2 
C=DAT1 B 

?A=C OB 

GOYES ONATI4 
GONC ONATI6 


5:13 an 
Page 2 
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Set output register 


Put C(A) in ACA) and... 
...save ACA) on stack 

Need P=0 for QUOTCK 

Check if its a quote 

Yes, then find closing quote 


Restore A(A) fron stack 

Do statenent which was 
replaced to nake roon for 
the junp to this bug fix. 
Junp back and continue 

Move to next character 

Read next character 

Is this the matching quote? 
Yes, then prepare to return 
(B.E.T.) 
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=DNAT12 Abs 25227 #0628B - 62 

DNAT14 Abs 25240 #06298 - 67 = 76 

DNAT16 Abs 25252 #062A4 - 73, «66—Sss 7? 

DNAT18 Ext e 72 

=DUNA8O Abs 25168 #06250 - 2? 

=QUT=1 Abs 25209 #06279 - 52 

=OUT=F Abs 25217 #06281 - 54 

OUT=X Abs 25222 #06286 - 55 53 


QUOTCK Ext = 65 
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Input Paraneters 
Source file nane is TI&FX1: 24S 
Listing file nate is TI/FX1:TI:ML::-1 
Object file nane is TIXFRI:TI:NS::-1 


411111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler News 
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WONHMNN SP Wh 


10 063A0 


Me Oe OO Oe OO 


Syst 


S 
S 


S 


er Conmands: DELETE, AUTO, Fri Dec 30, 1983 5:06 an 
Page 1 
SSS GGG & SSS oY Y¥ SSS 
SG G &8& See oh ¥- Ss. 8 
G & & 5 YY § 
SSS. 6 G6GG & SSS Y SSS 
5S 6G G6 &&&% S Y¥ S 
SG G&& § § Y s.. 3 
SSS GGG 8& & SSS Y SSS 


TITLE Syster 
ABS #063R0 
RDSYMB TIZEQU 
RDSYNB SBZRAN 
RDSYMB SBZIO: 


Corimands: DELETE, AUTO, and CAT 


ZiMS 
ZiMS 
ZAMS 


Saturn Assenbler Systert Commands: DELETE, AUTO, Fri Dec ©, 1983 5:06 an 


Ver. 3.39/Rev. 2306 CAT Statenent Page 2 
15 STITLE CAT Statenent 
16 SISO IOI OTTO TGS IIIS IIE TOIT ITI TTI I 
17 JOSS OI IIIS TTT TSI 
18 ke 
19 &* Nane: CAT - Executes CAT Connand 
20 ** Nane: CRT100 - Buffer of Nonreadable Chars to Display 
21 ** Nane:(S) CATEDT - Dasplay CATalog Info on the Current File 
22 tok 
23 ** Category: STEXEC 
24 ke 
25 ** Purpose: CAT entry point executes CAT Statenent 
26 kx 
27 ax CAT100 sends a buffer of nonreadable characters 
28 ae to the display. It turns off the delay and the 
23 aA cursor. It assumes the buffer is pointed to by 
x” x AVNENS. 
1 kk 
32 xk CATEDT displays the catalog for current file. 
33 kk 
34 ** Entry: 2 ENTRY POINTS: 
35 ax 1) CAT - Execution of CAT connand. Expect 
36 x DO 1s past tCAT 
37 an 2) CATEDT - Displays CAT info on current file 
38 an 3) CATI00 - Buffer pointed to by AYNEMS 
39 kk 
40 kX Exit: via NXTSTN 
44 ka 
42 ** Calls: FINDA, FINDF, BF2DSP, FSPECx, POLL, NOSCRL, 
43 a RPTKY, SCRLLR, POPBUF, EDIT80, ROMCHK, ROMFND, 
44 KR WSRO-3, EGFLCH, tkYSck, O01=CRS, DSPDLY, EOLXC+, 
45 ak C=MAIN, CAT95, ROMF-1 
46 x 
47 xx Uses: A-D, D1, DO, RO-R3, STMTRO (All 16 nibbles), SO 
48 ax + all of function scratch, SO-S11 - EXPEXC 
49 ka 
50 *X Detail: CAT [file nane][:<dev id>]|ALL|CARD| keys 
51 tok 
52 ** Stack lvls: CAT -7 
53 aX CATEDT - 6 
54 aos CATIO0 - 5 
55 ka 
56 **k History: 
57 KX Date Programmer Modification 
58 RX <oiSecves  -SeSeicasacea  eeoconseccce 
59 kk 06/28/82 SL H. Added docunentation 
60 Kk 12/07/82 = S.W. All keys popped out of buffer 
61 xx 
62 JOO IO OC IO I III DIT IIIT I IIIA STITT STITH 
63 JOIST II IT TTS IIIT IOI IIIT TI IST 
64 & 
65 JOSIE TID III II IID ITI IDI TID II IIT TIT IIIA I SSSI SA 
66 POTUCCTESTESITTTETTT TTT TTC CCC CTTCSEST CTT T TTT T SST CTCL TTT Tee 
67 Kx 
68 *k Nane:(S) pCAT - Poll for CAT on external device 
69 kx 
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70 ** Category: POLL 
71 i 
72 xk Type: POLL 
73 h 
74 ** Purpose: 
75 aK Handles CAT for files not in MAIN, plug-in nenory, 
76 ax Independent RAN, or CARD 
7? kk 
78 **k Should poll be "Handled" (return with XM=0)?: 
79 xk Yes 
80 ak 
81 ** Meaning of "Handling" Poll (uhat does code do 1f handled?): 
82 a Takes over command; exits ready to go to next statenent 
83 : 
84 ** Entry conditions for handler (registers, ST, RAN, etc.): 
85 kx Carry clear 
86 KR BLA) = Poll number. 
87 i i HEX rode. 
88 KR P=0, 
89 wk File name (af any) in ACW) & RO 
90 kk If no file nane, then A(H)=0 
91 a Device Specifier in D(S), D(X) 
92 &k 
93 kk Norrial exit conditions fror handler if handled (ST, RAM, 
94 xk registers, etc.): 
95 a Carry clear 
96 a HEX node. 
97 ax XM=0. 
98 ae PCADOR intact 
93 & 
100 kk Nornal exit conditions fror handler if not handled (ST, RAN, 
101 ** registers, etc.): 
102 a Carry clear 
103 ae HEX tiode. 
104 xx XM=1, 
105 ae 
106 **k Error exit conditions fron handler 
107 x Carry set. 
108 ae HEX triode. 
109 xe C(O-3] = Error nurber. 
110 ae 
111 ** Available subroutine levels: 
112 a 7 
113 ss 
114 ** NOTE: 
115 aK 
116 xe -~SNAPBF, TRFNBF, LOCSPC 
41? se ~- LEXPTR. -- 
118 ge 
119 ** What registers/RAN nay be used if handled?: 
120 ae A-D, DO, D1, P 
121 AX RO-R4, ALL of STMT/FN Scratch 
122 se Anything 1s available which is normally available to 
123 bis statenents. 


124 ue S0-S$11 
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125 ae 
126 *% What registers/RAN nay be used if not handled’: 
127 ea Sane as if handled, except can’t use RO (see above) 
128 x 
129 x* What registers/RAM may be used if error exit 
130 an A-D, DO, D1, P 
131 as Sane as if handled (See above) 
132 ae 
133 ** Special nenory/pointer considerations, (are pointers funny?): 
134 a None 
135 be 
136 *k Envisioned application(s): 
137 an CAT on TAPE, etc 
138 aa 
139 xk Note: 
140 aR If no one responds to POLL, error given is eFSPEC. 
141 ak 
142 a See pCAT$ for related poll 
143 RK 
144 ** History: 
145 ax 
146 ax Date Progranner Modification 
147 AS eos, Seeeees SS alse ee a ee 
148 . 05/10/83 S.W. Added neu docunentation header 

x 
eS JI I IO TITIES EEE ITI I TID TTA T IIIT IIIT I STASIS III SSI II IIA 
151 III IIIS IDI III IIIT ITT IS SEIT ISI IAS II IIR III IIIS IASI II ISI IITA 
152 z 
153 * 
154 063A0 1FO8 =WSRO-~3 D1=(5) =S-RO-3 

8F2 

155 063A7 1554 DATI=C $ 
156 063AB 01 RTN 
167 x 
158 x 


159 063AD B1C3 CATHDR NIBHEX B1C3 

160 063B1 0202 NIBASC \ NAME \ 
£414 
D454 
0202 

161 06301 0235 
0245 
9505 
5402 

162 063D1 0202 
C454 
£402 
0202 

163 063E1 0244 
1445 
5402 
0202 

164 063F1 0245 
9404 
5402 


NIBASC \ S TYPE \ 


NIBASC \ LEN \ 


NIBASC \ DATE \ 


NIBASC \ TIME PO\ 


Cursor off - want nonreadable chars 


165 06401 
166 06405 


16? 

168 06408 
169 O640F 
170 06412 
171 06414 
172 06418 
173 06418 


174 
175 06422 


176 06427 
17? 0642C 


178 06432 
179 
180 
181 
182 06435 
183 
184 
185 06439 
186 06430 
18? 
188 06441 


189 
190 
1914 
192 
193 
194 
195 
196 06447 
137 
198 06448 
199 0644D 
200 06450 
201 06452 
202 
203 06456 
204 0645A 
205 06452 
206 O645F 
207 06462 
208 
203 06466 


210 0646C 
211 O646F 
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O5F4 
2545 
DOAO 
FF 


3100 
962 
60 
6981 
AFO 
8D00 
000 


0000 
0 
0000 
0 
8E00 
00 
581 


7R44 


7C4}4 
7002 


8E00 
00 


6245 


eF 
30E 
20 
7R4F 


3100 
962 
61 
AC? 
1554 


8E00 
00 
4E9 
6531 
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NIBASC \RT\ 


NIBHEX DOROFF Cursor off - CRLF - holds for delay 


x 


CATNK LC(2) =tCARD 
7A=C) OB 
GOYES CAT* 
GOTO CAT37 
CAT*  A=0 W No file nane 


catcrd GOVLNG =CRICRD 


x 


REL(S) =PURGDC 


REL(5) =CATP 


=CAT GOSUBL =eolxct Read in byte & conpare 


GONC CATOS 


* DISPLAY CATALOG INFO FOR CURRENT FILE 
x 


=CATEDT GOSUB D1=CRS 
* Since no scroll on single file CATalog 
* pop key out of buffer fron previous operation 
CATOO GOSUB  popbuf 
GOSUB CAT95 
* Need to suppress scroll 


GOSUBL =DSPDLY Enforce DELAY 


x 


* CRLF W/CURSOR OFF CAUSES SCROLLING 
* CRLF W/CURSOR ON CLEARS DISPLAY 
HORIZONTAL SCROLLING WILL BE HANDLED IN MAIN LOOP 


x 
k 
* NO LONGER CLEARING ATTN FLAG 
& 


GOTO = nxtstn 


x 


CATOS P= 15 
LCHEX E 

P= 0 
GOSUB WSRO-3 
LC(2) = tALL ALL TOKEN 
AC OB 

GOYES CAT1O 

C=0 = $ 

DAT1=C $ 

FOR CAT keys 

GOSUBL =tkYSck 


* CHECK 


GOC 
GOTO 


CATNK 
CAT38 


CARRY=> NOT keys 


Saturn Asserbler 


212 

213 

214 06473 8E00 
00 

215 06479 1F67 
8F2 

216 06480 145 

21? 

218 06483 856 
AO 

219 

220 06489 1FB7 
8F2 

221 06490 145 

222 

223 

224 

225 06493 1FDA 
360 

226 O649R 8E00 
00 


227 
228 O64RO 1F67 
8F2 
229 O64A7 143 
230 O64AA 130 
231 O64AAD 14E 
232 064B0 396A 
233 O64B3 AS 
234 06485 1C4 
235 
236 
237 O64B8 141 
238 O64BB 131 
239 O64BE 7B81 
240 O64C2 730 
241 06406 8FOO 
000 
242 O64CD 4R0 
243 06400 8E00 
00 
244 06406 08 
245 
246 06408 1F17 
8F2 
247 OOADF 143 
248 O64E2 DC 
249 O64E4 8E00 
00 
250 O64EA 00 
251 O64EC 520 
252 Ob4EF 00 
253 O64F1 440 
254 O64F4 00 
255 O64F6 ARF 
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* CAT ALL IN MAINFRAME 


CATIO 
CAT11 


GOSUBL =C=MAIN Set C(A) to MAINST 
D1=(5) =S-RO-1 


DATI=C A STORE START OF FILE CHRIN 


* FIND END OF FILE CHAIN 


GOSUBL EOFLC+ 


D1=(5) =S-RO-2 STORE END OF FILE CHAIN 


DAT1=C A 


* CRT ALL connand 
k 


CAT16 


D1=(5) CATHDR 


GOSUBL =BF2DSP SEND HEADER TO DISP 


D1=(5) =S-RO-1 


— A=DATI A 


DO=A 

C=DATO B 

7C=0 «BB 
GOYES CATAL? 
B1=D1- 5 


NULL FILE CHAIN? 


* This may be a problen ist tine thru, ile if key pressed to soon 


x it could be 


CAT1? 


CAT18 


lost 
DAT1=A A WRITE OUT CURRENT CATALOG PTR 
01=A 
GOSUB CAT95 
GOSUB popbuf Pop key out of buffer 
GOSBYL =RPTKY 
COC CATRPT Repeat vertical scroll? 
GOSUBL =SCRLLR TAKE CARE OF HORIZONTAL SCROLLING 
B=A A SAVE KEY CODE 


® HANDLE VERTICAL SCROLLING HERE 
CATRPT D1=(5) =S-RO-0 


R=DAT1 A START OF FILE 

ABEX A FILE START IN B - KEYCODE IN A 
GOSUBL =FINDA 

CON(2) =kHDOWN CURSOR DOWN 

REL(3) CATI9 

CON(2) =kRUP CURSOR UP 

REL(3) CAT21 

CON(2) =k#TOP G CURSOR UP 

REL(3) CAT16 
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256 O64F9 00 CON(2) =k#BOT G CURSOR DOWN 
257 OG4FB 490 REL(3) CAT32 
258 OG4FE 55 CON(2) 85 EDIT 
259 06500 960 REL(3) CAT30 
260 06503 B6 CON(2) 107 F CURSOR DOWN (FOR CAT :PORT) 
261 06505 B01 REL(3) CTALLP 
262 06508 00 CON(2) 0 
263 x 
264 O650A 537 GONC CAT31 (B.E.T.) 
265 * Null file chain in nainfrane - Is this a CAT ALL? 
266 0650D 6201 CATAL? GOTO CTALLP 
267 x 
268 * CURSOR DOWN PRESSED 
269 06511 D4 CAT19 A=B A 
270 06513 D2 C=0 A 
271 06515 3102 LC(2) =oFLENh A=ADDRESS OF LAST FILE DISPLAYED 
272 06519 CA A=A+C A 
273 0651B 130 DO=A PTR TO FILE LENGTH 
274 O6S1E 142 A=DATO A FILE LENGTH 
275 06521 136 CDOEX 
276 06524 CA : A=A+C A ADDR OF NEXT FILE IN PROG MEM 
277 
278 * ENSURE AREN’T AT MAINEN 
279 06526 130 DO=A 
280 06529 14E C=DRTO 8B 
281 0652C 96A 7C=0) =—«iB AT FILE CHAIN END? 
282 O652F 39 GOYES CAT18 YES 
283 06531 668F cast GOTO 8 CATI? No=> Disp info on next file 
284 
285 * CURSOR UP 
286 06535 DO CAT21 A=0 A ADDR OF PREV FILE (INITIALIZED) 
287 06537 1B67 DO=(5) =S-RO-1 START OF FILE CHAIN 
8F2 
288 O653E 146 C=DATO A 
289 06541 8AS CAT22 7BHC A NOT LAST FILE DISPLAYED? 
290 06544 BO GOYES CAT25 
291 * ACA) IS ADOR OF PREV FILE - ZERO IF JUST DISPLAYED 1ST FILE 
292 06546 8AC 7AHO OAR Previous file in chain? 
293 06549 8E GOYES catt7 
294 0654B 667F GOTO CAT18 DISPLAY PREVIOUS FILE 
295 * KEEP SEARCHING FOR LAST FILE DISPLAYED 
296 O654F 134 CAT25 Dd=C 
297 06552 16F DO=DO+ LFNAM 
298 06555 16F DO=DO+ (oFLENH)-(1FNAMh) 
299 06558 142 A=DATO A 
300 O655B 136 CDOEX DO=ADDR OF PREV. FILE 
301 O655E C2 C=C+A A PTR TO NEXT FILE 
302 06560 132 ADOEX A(A)=ADDR OF PREV FILE 
303 06563 134 DO=C 
304 06566 5AD GONC CAT22 (B.E.T.) 
305 * MOVE EDIT POINTER 
306 06569 04 CAT30 A=B A 
307 06568 131 D1=A POINTER TO FILE HEADER 
308 O656E 7710 GOSUB  popbuf Pop key out of buffer 


309 06572 85B ST=1 11 No CATalog 
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310 06575 84A ST=0 10 OK to collapse stacks 
311 06578 8E00 GOSUBL =EDIT80 

00 
312 * SEND PROMPT - TURN ON CURSOR 
313 0657E 8FOO CAT31 GOSBVL =NOSCRL CLEARS BUFFER - INITIALIZES CURSOR 
000 
314 06585 6404 GOTO 3 nxtstn 
315 & 
316 06589 8C00 popbuf GOLONG =POPBUF 
Oo 
317 & 
318 O658F 1BB7 CAT32 DO0=(5} =S-RO-2 END OF FILE CHAIN 
8F2 
319 06596 142 R=DATO A 
320 06599 D8 B=A A 
321 06598 599 GONC CAT21 (B.E.T.) 
322 t 
323 * CRT FOR SPECIFIED FILE 
324 & 
325 x 
326 O6539E 70F6 CAT37 GOSUB FSPECj 
327 065A2 4C3 GOC bserr 
328 k 
329 O65A5 8EOO CAT38 GOSUBL =FINDF+ 
00 
3H O65AB 460 : GOC CAT40 FILE NOT FOUND? 
331 
332 * LEGAL MAINFRAME FILE NAME GIVEN & FILE EXISTS 
333 * FILE NAME IS IN B & THE FILE IS POINTED TO BY D1 
334 : FILE MAY HAVE BEEN FOUND ON A PORT 
335 
336 O65AE GA8E GOTO CATO 
337 a 
338 O65B2 876 CAT40 ?ST=1 6 
339 065B5 R2 GOYES bserr 
340 065B7 94A 70-0) =—§ CAT on CARD/PCRD? 
341 O65BR 12 GOYES CAT67 
342 * Either external device and/or no file nane specified 
343 O65BC ACB C=D S 
344 O65BF A4E C=C-1 $ 
345 065C2 441 GOC CAT65 CAT : MAIN? 
346 O65C5 A4E C=C-1 § 
347 O65C8 4C1 GOC CAT 70 
348 k 
349 O65CB 72B5 CATEXT GOSUB poll 
350 O65CF 60 CON(2) =pCAT 
351 06501 8C0O CATE2 GOLONG =pPOLL2 DEFAULT HANDLER - ILL. FILE SPEC 
00 
352 : 
353 06507 6B9E CAT65 GOTO CATIO 
354 x 
355 065DB 6F3E CAT67 GOTO catcrd 
356 k 
357 * FILE NOT FOUND => ERROR 
x 


358 
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369 


360 
361 
362 
363 
364 
365 


366 
367 
368 
369 
370 
371 
372 
373 


374 
375 
376 
37? 
378 
379 
380 
381 


382 
383 
384 
385 
386 
387 


388 
383 
390 
391 
392 
393 
394 
335 
396 
39? 


398 
393 
400 
401 
402 
403 
404 
405 
406 
407 


O650F 
O65E5 
O65E8 


065EB 
O65EF 


O65F5 
O65F 8 
O6SFC 


06600 
06606 


06603 
0660C 


06610 


06617 
06618 
O661E 
06620 
06623 
06626 


06620 
0662F 
06632 
06635 


06637 
06638 


066 3F 
06643 


06643 


8CO0O bserr GOLONG =BSERR 


00 
x 


B67 =CAT7O D=D+1 B 

571 GONC CAT82 
k 

71BD GOSUB WSRO-3 

8E0O GOSUBL =ronchk 

00 

593 GONC  CAT9O 
x 

6021 CATE34 GOTO CAT$14 
k 

CAT31 


618F CAT8O GOTO 
x 
* CAT ON A SINGLE PORT 
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Port# specified? 


PORT FOUND? 
PORT NOT FOUND 


FIND SPECIFIED PORT 
PORT NOT FOUND? 


* F CURSOR DOWN HIT - ONLY HAS MEANING ON CAT : PORT, CAT ALL 
i 


8E0O CAT82 GOSUBL =ROMF-1 
00 
4iF GOC CATE34 
k 
137. CAT83 CDIEX 
6C6E GOTO CATI1 
k 
1FO8 CTALLP 01=(5) =S-RO-3 
8F2 
1574 C=DAT1 $ 
94A 7C=0 = S 
ED GOYES CAT80 
B46 C=C+1 = § 
581 GONC CATCNT 
8E0O CAT85 GOSUBL =ronfnd 
00 
4FC CAT8? GOC CAT8O 
14B CAT9O A=DATI B 
968 7A=0—o#B 
1F GOYES CAT85 
* File chain start in 01 
7E4SF GOSUB  popbuf 
60CF GOTO CAT83 
t 
1554 CATCNT DAT1=C S$ 
SEOO GOSUBL =ronchk 
00 
62EF GOTO CRT8? 
x 


CAT ALL? 
CAT :PORT 


No nore ports => NXTSTM 
NULL FILE CHAIN? 


Pop F[v] out of buffer 
Qutput CATalog header 


FORO ITO UI IGT IGG IOI ROTOR IOI 
FOTO IOI ITO III OI OI ORI 


xk 


&* Wane: 
ke 


** Category: 
ax 


** Purpose: 


CAT95 
LOCAL 
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408 RK Writes out CATalog entry to display 
409 ks 
410 ** Entry: 
411 aK P = 0 
412 aR 2 entry points: 
413 KK 1) CAT95 - Sends CATalog entry to display. 
414 ae D1 at file header. 
415 *x 2) CAT100 - Sends buffer of non-readable characters 
416 aK to display; turns cursor & delay off. 
417 xe Assunes buffer pointed to by AVNENS. 
418 ne 
419 ** Exit: via CRLFND 
420 ak P = 0 
421 ak 
422 ** Calls: CAT$20, OBCOLL, AVNZDS 
423 = 
424 RX Uses i. iccs's 
425 aK A-D, D1,D0, SO, R1,R2 
426 ak 
427 *K Stk lvls: 5 
428 ak 
429 ** History: 
430 kk 
431 x Date Progranner Modification 
432 PRS te nee “eee eee _Meauseecetesscuees es Umar eeetocved 
433 08/29/83 S.W. Added docunentation header 
pe JORIS ITI TIT ITI I IIIT IIA STI III IIS OI III SI IIIS IO SII II IIIT ISSA IITA: 
436 JOIST IT II II III TISAI ITI II III II TIS II III IIT II IID TOIT IIIT S TION 
437 * If INB2DS called: 
438 * LF clears display buffer; & if cursor is off, CR builds 
433 * display and resets cursor position 
440 x 
441 * Cursor is off 
442 * Send buffer of nonreadable characters to the display 
443 * Uses 5 subroutine levels 
444 x 
445 0664) 840 CAT95 ST=0 0 
446 06650 72F0 GOSUB CAT$20 
447 06654 7906 GOSUB obcoll 


448 06658 8E00 
00 
449 0665E 8C00 


450 
451 
482 
453 
454 
455 
456 
457 
458 
459 
460 


00 


=CAT100 GOSUBL =AVN2DS 
GOLONG =CRLFND CRLF; no DELAY 


x 
JOO ICI IO ISIS IO ICG TO TIT E 
JO IS III IOC IORI ICICI OK 
kk 

** Nane: CATS - CATalog Function 

** Nane:(S) CAT$20 - Build CATalog Information Buffer 

kk 


*k Category: FNEXEC 
ak 


** Purpose: CAT$ function returns CATalog infornation on a 
ms specific file. 
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461 
462 
463 
464 
465 
466 
46? 
468 
463 
470 
471 
472 
473 
474 
475 
476 
47? 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
02 
503 
504 
505 
506 
50? 
508 
509 
510 
511 
512 
513 
514 
515 


xx 
ae 
xk 
kx 
xx 
KK 
xk 
xx 
ak 
xx 
ak 
xk 
xk 
xk 
xx 
xk 
xx 
ak 
xk 
ax 
wk 
xk 
ax 
xk 
wx 
kk 
wk 
ax 
wx 
xk 
xk 
ak 
ak 
ax 
xk 
ak 
xx 
a 
ax 
ak 
ax 
kk 
xt 
ak 
ax 
at 
xt 
xe 
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The CAT$20 entry point is used to build a 
buffer of CATalog information. It 1s used by 
CAT and CAT$ for the card reader, and the 
nainf rane. 
Entry: 2 ENTRY POINTS: 
1) CAT$ - Entry for execution of CAT$ 
2) CAT$20 - Entry for CAT. SO must be clear to 
flag that the buffer shouldn’t be 
pushed on the stack. Di at file 
header start. 
Exit: BUFFER POINTED TO BY CONTENTS OF ’OUTBS’ 
Calls: QUTNBS, FLTDH, GETRG+, LOCADR, SAVDO, RSTDO, 
FILXQ$, POLL, FTYPDC, PRI#DC, LOCSET, ROMF-1, 
CAT$70, CAT$80, BLNKC+, AVS=D0, OBCOLL, GETPRO, 
FILSKP, BF2STK, DOOUTB, D1=AVE, D1=CRS, C=NAIN, 
AVE=D1 
Uses: A-D, D1,D0, SO, R1,R2 -- CAT$20 entry point 
Inclusive: All the above + F-RO-0, AVMENE, R3, S7-S11 
Detail: FILE LENGTH < 1,048,576 NIBS (DECIMAL) 
IF nuner expr <=0 AND no 2nd parn, then defaults 
to current file. 
REGARDLESS OF ANY SPECIFIED STRING EXPRESSION. 
If called by CAT, then after return AVNENS should 
be set to OUTBS via OBCOLL 
Stack lvls: 4 
History: 
Date Progranner Modification 
06/28/82 S.W Increased docunentation 
08/05/82 S.W Added code to swap date 
& tine, and to add port# 
10/21/82 S.W. Calls to AVS=DO & OBCOLL 
06/10/83 SS. WW. Replaced calls to LDCSET & 
BLANKC with call to BLNKC+ 
06/28/83 SL W. Port# saved in R3 (nat on 
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RSTK) before calling GETRG+ 


FORO IOI TOO IIIT IT ITO ITO TIO 
SOOO IOI III IO OOOO III OOOO 


x 


FOI IIT IIIS IIIS OOOO TOOT OI IO ITOK 
OOOO UO OOOO OO TOO IO 


x 


** Nane:(S) pCAT$ - Poll for CAT$ on external device 
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516 R 
517 ** Category: POLL 
518 ah 
519 ** Type: POLL 
520 x 
521 ** Purpose: 
522 ak Creates buffer to execute CAT$ for external device 
523 Rh (related to pCAT) 
524 xn 
525 *% Should poll be "Handled" (return with XM=0)?: 
526 ii Yes 
527 ak 
528 **k Meaning of "Handling" Poll (what does code do if handled?): 
529 re Pushes string on stack; AVMEME points to string header 
530 
531 ** Entry conditions for handler (registers, ST, RAM, etc. ): 
§32 mR Carry clear 
533 xx B[A] = Poll number. 
534 wa HEX node. 
535 xk P=0. 
536 ak SO set 
537 ae AVNENE points to string header on stack (string contains 
538 ak device nane) 
639 a If the string is not null, it has already been reversed 
540 a via REV$ (Characters in nem in ascending order) 
541 ak PC (DO) saved in F-RO-0 
542 xt 
543 ** Normal exit conditions fron handler if handled (ST, RAN, 
544 ** registers, etc.): 
545 a Carry clear 
546 ak HEX node. 
547 xk KN=0. 
548 = String on stack, with AVNENE pointing to string header 
549 aR F-RO-O preserved fron entry 
550 ak 
551 ** Norrial exit conditions fron handler if not handled (ST, RAN, 
552 ** registers, etc.): 
553 a Carry clear 
554 Se HEX triode. 
555 ak XN=1. 
556 ai 
557 *k Error exit conditions fron handler: 
558 = Carry set. 
559 ak HEX rode. 
560 a C({0-3] = Error nunber. 
561 Kk 
562 *k Available subroutine levels: 
563 an 
564 ak 
565 *x NOTE: 
566 an If poll not handled, eFSPEC generated 
567 aR 
568 a ~-SCRTCH, SNAPBF, TRFNBF, LDCSPC, -- 
569 an ~-LEXPTR. -- 


570 ae 
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571 kk What registers/RAN nay be used if handled?: 
572 aa A-D, DO, DI, P 
573 an RO-R4, S?-S11, FN Scratch except F-RO-0 
574 aK 
575 ** What registers/RAN nay be used if not handled?: 
576 aR A-D, DO, Di, P 
577 aK Sane as if handled (see above) 
578 AK 
579 **k Nhat registers/RAMN nay be used if error exit 
580 ae A-D, DO, D1, P 
581 an Sarre as if handled (see above) 
582 ae 
583 *k Special nenory/pointer considerations (are pointers funny?): 
584 ak No 
585 ak 
586 *k Envisioned application(s): 
587 aR To handle: CAT$(n,'": TAPE") 
588 Rk 
589 ** History: 
590 tt 
591 am Date Progranner Modification 
592 fe kee. 4 ee ne «1 Bec ch eee ee ae, 
593 Kk 06/17/82 SW. Inproved docurentation 
594 *& 07/07/82 SU. Modified code before calling BF2STkK 
595 = to reference AVMENE instead of TFORN 
596 kX 07/19/82 9 S.W. Push null string on stack when 
597 aR positive numeric argunent too large 
598 xk ~- used to error. 
599 *k 10/20/82 S.U. Replaced call to DDOSET (DO0<=AVMENS) 
600 a with call to LOCSET (DO<=QUTBS) 
601 aR 
602 ee 12/06/82 = S.W. Changed exit conditions for 
603 ax CAT poll as per N. Zelle 
604 kk 
605 KK 12/13/82 9 S.W. Polls on unrecognized file spec 
606 x Polls on file nane (nay be device 
607 xR nane without preceding colon) 
608 kt 
609 JIU I OOS ICI IIT TOTTI ITI ITT I ITAA I 
610 JU ICICI IOC ITI I TI TIT IAT IT 
611 x 
612 x 
613 06664 4812 NIBHEX 4812 Parn descriptor (nuneric [,string]}) 
614 : 
615 06668 8FOO =CAT$  GOSBYL =SAVDO Save PC in F-RO-0 
000 
616 x 
617 O666F 847 ST=0 7? 
618 06672 AC3 D=0 S$ 
619 06675 R4E C=C-1 § Parn count - 1 
620 06678 394A *C=0) = S DEVICE SPECIFIER GIVEN? 
621 0667B 91 GOYES CATSN No. 
622 x 
623 0667D 8EO GOSUBL =ave=d1 Pt AVNENE at string hdr (for poll) 


© 
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624 06683 8E00 
00 


625 06689 546 

626 

627 O668C 857 

628 O668F 97C 

629 06692 C5 

630 

631 

632 

633 

634 06694 850 

635 06697 DB 

636 06699 108 

637 O669C 8FOO 
000 

638 O66R3 118 

639 O66A6 D7 

640 066R8 8E00 
00 

641 

642 

643 O66RE 8E00 
0 


644 O66B4 ACB 

645 06687 AGE 

646 O66BA 5B4 

647 

648 O66BD D8 

643 O66BF 8E00 
00 

650 

651 O66C5 CD 

652 O66C7 457 

653 

654 O66CA 135 

655 O66CD 148 

656 06600 968 

657 06603 95 

658 

659 O66D5 CD 

660 O66D7 466 

661 O66DA 8EB3 
80 

662 O66EO 59E 

663 

664 O66E3 8F15 
681 

665 O66EA 6D31 

666 

667 

668 

669 O6GEE 7F84 

670 O66F2 70 

671 Ob86F4 400 


* e Se 


Systen Connands: DELETE, AUTO, 


FOUND :CARD, : MAIN, OR : PORT 


GOSUBL =FILXQ$ 


GONC CATSPL 
ST=1 7 
RHO OW 


GOYES CATS$PL 
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PARSE DEVICE SPECIFIER 
NOT A RECOGNIZED SPECIFIER? 
Null string if arg <=0 


FILE NAME SPECIFIED? 
May be device u/o colon 


PRESERVE D(S) - DEVICE DESIGNATOR 
D1 POINTS PAST LAST CHARACTER IN STRING 


CATSN 


ST=1 90 

C=D A 

R3=C 

GOSBVL =GETRG+ 
C=R3 

D=C A 


GOSUBL =ave=d1 


PUSH BUFFER ON STACK 


Save port# 


Restore port# 
Save 01 in AVNENE (ptr past args) 


* $7 is clear IFF no 2nd parn given 
so that only if no 2nd parn will arg<=0 give curr file 


x 


GOSUBL =fltdh 


C=D S 
C=C-1 § 
GONC CAT$12 
B=A A 


GOSUBL =C=NAIN 


ROUND & CONVERT TO HEX 


NOT : MAIN? 


SAVE # 
Set C(A) to MAINST 


* COUNTER IN B(A) - IF TOO BIG, PUSH NULL STRING ON STACK 
CAT$O5 B=B-1 A 


COC CAT$15 


Arg<=0 => current file if no 
device specified, else null strq 


* C(A) IS POINTING AT START OF FILE CHAIN 
CAT$O8 D1=C 


x 


* 


CATS$P1 


R=DAT1 B 
*A=0)— OB 
GOYES CAT$NL 


B=B-1 A 

GOC CAT$20 
GOSUBL FILSKP 
GONC CAT$O8 
GOSBVL =D1=AVE 


GOTO PCEXPR 


At end of file chain? 
Yes => Null string 


DECREMENT COUNTER 

FOUND SPECIFIED FILE? 
(B5Es1s) 

Position D1 at string header 


Restore DO and goto EXPR 


* Poll for external file specification 
k 


CAT$PL GOSUB poll 


CON(2) =pCATS 
GOC —-CATSER 


HANDLED & ERRORED? 


Saturn Assenbler Systen Conrands: DELETE, AUTO, Fri Dec ®, 1983 5:06 an 


Ver. 3.39/Rev. 26 CAT Statenent Page 15 
672 O66F7 831 ?XN=0 HANDLED & OKAY? 
673 O66FA SE GOYES CAT$P1 
674 * Not handled 
675 O66FC 3300 =INVFSP LC(4) =eFSPEC DEFAULT HANDLER - ILL FILE SPEC 
00 
676 * IF HANDLED, BUFFER IS AT QUTBS 
677 x 
678 06702 6CDE CAT$ER GOTO  bserr 
679 * 
680 * PUSH NULL STRING ON STACK 
681 x 
682 06706 ASE CAT$12 C=C-1 § 
683 06709 5C2 GONC ct$crd : CARD? 
684 * MUST BE :PORT - PORT # IN D(B) 
685 O670C B67 D=0+1 B 
686 O670F 4CE GOC INVFSP 
68? 06712 102 R2=A SAVE NUMBER 
688 06715 8EX GOSUBL =RONMF-1 
00 
689 0671B 112 A=R2 
690 O671E D8 B=A A RESTORE NUMBER 
691 06720 137 CD1EX START OF FILE CHAIN IN C(A) 
692 06723 51A GONC CATS$O5 PORT FOUND? 
6393 x 
634 06726 8COO CAT$14 GOLONG =DVCNFE DVC NOT FOUND 
00 
695 . 
696 O672C 8E00 CATS$NL GOSUBL =LDCSET 
00 
637 06732 6BCO GOTO CAT$65 
638 x 
699 06736 8000 ct$crd GOVLNG =CTSCRD 
000 
700 - 
701 * IF # IS <=0, rtn info on current file or null string 
702 * 
703 0673D 877 =CAT$15 ?ST=1 7 
704 06740 CE GOYES CATS$NL énd parn specified? 
705 06742 7D31 GOSUB DI=CRS If not, rtn info on curr file 
706 x 
707 06746 8E00 =CAT$20 GOSUBL =BLNKC+ Call LOCSET,BLANKC,Copy DO to BCA) 
00 
708 é 
709 * BLANK-FILL ENTIRE BUFFER 
710 4 
711 0674C AFA A=C W 
712 O674F 2F P= 15 
713 06751 30A LCHEX A 
714 06754 2F CAT$30 P= 15 
715 06756 8E00 GOSUBL =OUTNBS 
00 
716 O675C B46 C=C+1 §$ 
717 O675F 54F GONC CAT$30 
718 * Hard set AVMENS in case of POLL 


719 06762 8£00 GOSUBL =AVS=D0 
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oO 
720 * 
721 06768 D9 C=B A 
722 O676A 134 DO=C 
723 & 
724 06760 158F A=DAT1 LFNAMK READ IN FILE NAME 
725 06771 158F DATO=A LFNAMh 
726 06775 16F DO=D0+ 1FNAMh STEP OVER FILE NANE & BLANK 
727 06778 161 DO=D0+ 2 
728 0677B 7C74 GOSUB GETPR1 READ & INTERPRET PROTECTION NIB 
729 0677F 540 GONC CAT$32 
7H 06782 20 P= 12 
731 06784 832 CAT$32 7SB=0 UNSECURE? 
732 06787 60 GOYES CAT$35 
733 06789 OD P=P-1 
734 06788 OD P=P~-1 
735 0678D 3702 CAT$35 LCASC \EPS \ NOT PRIVATE? 
3505 
54 
736 06797 20 P= 0 
737 06799 14C DATO=C B 
738 0679C 163 DO=D0+ 4 STEP OVER TRAILING BLANK, TOO 
739 0679F 7F51 GOSUB FTYPDC DECOMPILE FILE TYPE 
740 067A3 17F D1=D1+ (oF LENH)-(1FNAMN) 
741 067A6 7021 GOSUB CAT$80 OUTPUT FILE LENGTH 
742 067AR 1C4 ; D1i=D1- (1DATEh)-1 PT TO 2nd BYTE OF DATE 
743 
4 744 ; QUTPUT CREATION DATE & TIME 
: 745 
746 067AD 71E0 GOSUB CAT$70 GET rnidd 
747 067B1 24 P= 4 
748 067B3 31F2 LCASC \/\ 
749 067B7 15C9 DATO=C 10 WRITE IT OUT 
750 067BB 169 DO=D0+ 10 STEP OVER IT 
751 O67BE 173 Di=D1+ 4 PT T0 YEAR IN HEADER 
752 06701 148 A=DAT1 B 
753 067C4 20 P= 0 
754 067C6 70EO GOSUB CAT$71 GET yy 
755 067CA Fe CSL A 
756 O67CC BF2 CSL W 
757 O67CF 31F2 Least \/\ 
758 06703 15C€5 DATO=C 6 WRITE OUT /yy 
759 06707 165 DO=D0+ 6 
760 x QUTPUT TINE 
761 067DA 1C6 D1=D1- (1DATEH)+(1TINEh)-3 
762 067DD 7180 GOSUB CAT$70 PT TO 2ND BYTE OF TINE 
763 067E1 15C9 DATO=C 10 WRITE QUT bherin 
764 067E5 168 DO=D0+ 12 STEP OVER hhinn & blank 
765 % QUTPUT PORTH (IF ANY) 
766 * IF INPUT BUFFER FROM WHERE CAT BEING BUILT ISN’T ON A 
767 * PORT, THEN NO FIELD WILL BE OUTPUT 
768 O67E8 137 CD1IEX 
769 O67EB 8E0O GOSUBL =LOCADR 
00 


770 O67F1 4C0 GOC CAT$65 NOT IN A FILE CHAIN? 
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771 067F4 R4F D=D-1 § 
772 067F7 460 GOC CAT$65 IN THE MAIN FILE CHAIN? 
773 * FILE IS ON A PORT 
774 * PORTH IN D(1), PORT EXTENDER IN D(0) 
775 O67FA 7340 GOSUB PRTHDC 
776 x 
777 O67FE 31FF =CAT$65 LCHEX FF 
778 06802 14C DATO=C B OUTPUT BUFFER TERMINATOR 
779 : 
780 06805 860 *ST=0 0 CALLED BY CAT? 
781 06808 00 RINYES 
782 * SET-UP FOR CALL TO BF2STK 
783 O680R 8F15 =CAT$66 GOSBVL =D1=AVE Point Di at stack 
681 
784 06811 8E00 GOSUBL =DOOUTB Position C(A) at start of buffer 
00 
785 x 
786 06817 8F36 GOSBYL =BF2STK 
681 
787 O6881E 133 ADIEX Save stack pointer 
788 06821 7C34 GOSUB obcoll Collapse AVNENS 
789 x 
7% 06825 131 DI=A Restore stack pointer 
791 06828 7600 =PCEXPR GOSUB RSTDO Restore PC fron F-RO-0 
792 0682C 8C00 GOLONG =EXPR) 
00 
793 . 
794 : 
795 % 
796 06832 1BB9 =RSTDO D0=(5) =F-RO-0 
8F2 
797 06839 146 C=DATO A 
798 0683C 134 DO=C 
799 O683F 01 RTN 


800 
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801 STITLE Port Nuriber Deconpile 
802 JOSIE OU OO CI EE 
803 JOR IO I JOG TOE III COTO TOTS TATA 
804 tk 
805 ** Nane:(S) PRIHDC - Port# Deconpile 
206 ak 
807 **k Category:  DCMUTL 
808 bo 
809 ** Purpose: 
810 ax Deconpales a port nunber 
811 ar 
812 ** Entry: 
813 am P = 0 
814 aK D(1)= Port#, D(O)=Extendert 
815 a DO positioned for output (Next 10 nibs blank-filled) 
816 ak 
817 ** Exit: 
818 aK Pp = QO 
819 ai DO increnented by 10 (past trailing blank) 
820 aa 
821 ** Calls: HEXDEC, CAT$70 
822 -* 
823 ek Uses....... 
824 ** Inclusive: #,B,C,P,D0 
825 KR 
826 kK Stk lvls: 1 
827 ak 
828 *k History: 
829 XA 
830 as Date Progranner Modification 
331 tk? uveews wesetMenes -CuseseeBlSavel sles wun eens seus 
832 _ 08/13/83 SW. Added docunentation 
a JOC III IIIS TIO OO III TTI TTT II TT 
835 JIG ISO I TO III TOIT IT IT OTT TIAA 
836 x 
837 06841 D2 =PRT#DC C=0 RA 
838 06843 AEB (=D 868 
839 06846 F6 CSR OA PORTH IN C(O) 
840 06848 DA R=C A 
841 0684A 3303 LCASC = \.0\ 
E2 
842 06850 A62 C=A+C OB 
843 06853 908 7D=0 =P 
844 06856 52 GOYES PRT#D3 NO PORT EXTENDER#? 
845 06858 15€3 DATO=C 4 OUTPUT d. 
846 0685C 163 DO=D0+ 4 STEP OVER ’d.’ 
847 O685F ASB (=D =P 
848 06862 A8A A=C P 
843 06865 8F00 GOSBVL =HEXDEC 
000 
850 06860 04 SETHEX 
851 0686E 7830 GOSUB CAT$71 
852 06872 15C3 DATO=C 4 


853 06876 165 DO=D0+ 6 STEP OVER ’dd ’ 
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854 06879 01 RIN 
855 x 
856 0687B 14C PRTHD3 DATO=C B OUTPUT d 
857 O687E 169 DO=D0+ 10 STEP OVER ’d ; 
858 06881 01 RIN 
859 x 
860 SO UII OO OCIS IO IO IE 
861 JOR OI ICI OI GIGI OOO OTT TOK 
862 ax 
863 *k Nane: D1=CRS - Set D1 to contents of CURRST 
864 KR 
865 ** Category:  PTRUTL 
866 a 
867 ** Purpose: 
868 xx Points D1 to header of current file 
869 a 
870 *x Entry: 
871 a CURRST is current 
87e KX 
873 KK Exit: 
874 aK D1,C(A) point to start of current file 
875 ak 
876 kk Calls: none 
877 Kx 
878 Kk Uses....... 
879 ** Inclusive: C(A),D1 
880 wk 
881 kK Stk lvls: 0 
882 KK 
883 *k History: 
884 ae 
885 sa Date Progranner Modification 
886 WA Zee, “Aces, ~ ail iat ee oe cana ney we eee 
887 a 01/25/83 SW. Added docunentation 

x 
oe JOR UII UII IOI III III I OI I ITT TAT 
890 JO UII III GIO IO ICI IO IOI OG OR 
891 x 
892 06883 1FD5 =D1=CRS 01=(5) =CURRST 

5Fe 

893 0688R 147 C=DAT1 A 
894 0688) 135 b1=C 
895 06890 01 RIN 
896 x 
897 x 
398 PEUTEUT EST CTC TECTOCCSTTCTCTCCCCTCNTCCCTICOTERST COT CCST TCT TC TTT TT 
899 IORI TORR JOR GO DOO OIG OIRO RTO 
a0) ae 
1 4* Nane: CAT$70 - Deconpiles tine and mm/dd for CAT$ 
902 xr 
3 ** Category: LOCAL 
904 kk 
95 ** Purpose: 
96 a Deconpiles tine and mn/dd 


907 +s 
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%8 aK Entry: 
99 aX 2 entry points: 
910 ak CAT$70 - D1 1 nib prior to: 
911 aR 2nd byte of tine (@hr) or date (@rnonth) in file 
912 ae header (Decorpiles 5 characters) 
913 xn CAT$71 - A(B) contains 2 digits to decompile 
914 an P=0 
915 aK 
916 aX Exit: 
917 xk Pp = 0 
918 ak hh:nn or mn:dd in lower 10 nibs of C; In the latter case 
919 wk the colon must be written over. 
920 KR D1 decrenented by 1 fron entry 
921 DO increriented by 2 fron entry (CAT$70 entry only) 
922 
923 *k Calls: none 
924 ae 
925 kk Uses....... 
926 *k Inclusive: ACA), BCA), C, P, D1, BO 
927 KR 
928 *k Stk lvls: 0 
929 an 
930 ak History: 
931 an 
932 mh Date Progranner Modification 
933 MPs cheSeees: tasewsceGecd 3 -weteeoulewcee Suet eeet eee teile 
934 KK 08/13/82 9 S.W. Added docunentation 
935 a 11/15/82 S.W. Code packed 
He JIU IOI IOC IOI ICO ICC OT I 
938 JOO IOC IO ICO TOTTI 
939 x 
940 06892 161 CAT$70 DO=D0+ 2 STEP OVER BLANK 
941 06895 1573 C=DAT1 x 
942 06899 30A LC(1)\s\ 
943 0689C F2 CSL A 
944 0689E F2 CSL A 
945 068A0 1C0 D1i=D1- 1 
946 068A3 14F C=DAT1 B 
947 068R6 DA A=C A 
948 068A8 2E P= 14 
949 * WANT LEADING 0’S 
950 O68AA 3313 CAT$71 LCHEX 3431 
43 
951 068B0 20 P= 0 
952 O68B2 D5 B=C A Copy counter & 3 into nib 1 
953 06884 BF2 CAT$75 CSL W 
954 068B7 BF2 CSL Wd 
955 068BA REY C=B B Read in ® 
956 068BD A&E C=A P Read digit into low nib 
957 068CO Fa ASR A Get next digit into low nib 
958 O68C2 ROD B=B-1 P decrenent counter 
959 068C5 S5EE GONC CAT$75 
960 068C8 03 RTNCC 


961 
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962 JO IOI II I IO TOO TI TAI IIT IITA III ISI III IAA 
963 SIRI I I IIIS III III IIIT IA TI IIIT III III II IIIT III I III ISI SIL III IIT I AK 
964 xk 
965 o Narie: CAT$80 - Converts hex# to dec & outputs it 
966 x 
967 ** Category:  DCMUTL 
968 Re 
969 ** Purpose: 

970 ae Converts a hex# to decinal & outputs it, replacing 

971 aR leading zeros uith blanks 

972 kk 

973 xk Entry: 

974 ak P = 0 

975 ax 3 entry points: 

976 KE 1) CAT$80 - File length decompile entry point. 

977 aR D1 positioned at file length in header. 

978 aR C(R) contains offset to data. 

979 ak Deconpiles 6 digit nurber. 

980 ak 2) CAT$83 - A contains hex nurnber to be deconpiled. 

981 aR This number mill be divided by 2 & 

982 xk deconpiled as P specifies (explained belon) 
983 ax 3) CAT$90 - Deconpiles hex nurber in A. 

984 xk P=0 for up to 6 digits; P=12 for 2 digits; 
985 ae P=14 for 5 digits. 

986 “ 

987 x Exit: 

988 an P = 0 

989 ae DO past output nunber, pointing to a blank 

990 a 

99 x* Calls: HEXDEC, DOASCI 

992 RE 

993 AE OUSOS ss esis 

994 *% Inclusive: A,B,C,DO 

995 aR 

996 ** Sth lvls: 2 

997 ak 

998 ** History: 

939 Re 
1000 ae Date Prograriner Modification 
1001 PAO Gieeles: saewadweueen Ywbuueweeiensee sete See cueuaseaceceS 
1002 *X 08/13/82 SU. Added docunentation 

1003 K 12/07/82 SLM. Modified P=14 fron 4 to 5 digits 
1004 tk 06/10/83 SW Add 1 to file length (1n bytes) 
1005 a before converting to nibbles 

1006 a (rounds up, instead of down). 

1007 a Also 1st command zeroes out ‘Ml’ 
1008 ae field, instead of entire reqister. 
1009 ae 

1010 JUS TODS IOC IO IU I IIIT TTI TT 
1011 JIS IOI IIIS III EOC CECI OTITIS III I 
012 - 

1013 ; 

1014 O68CA ADO CATS$80 ZERO OUT CAUSE OF ’ASRB’ 


1015 O68CD 143 
1016 068D0 ER 


A=0 n 
R=DAT1 A FILE LENGTH 
R=A A AMT OF DATA IN FILE 
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1018 
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A=A+1 A Round up 
=CAT$83 ASRB WANT BYTES, NOT NIBS 


1019 068D4 81C 

1020 O68D? 8FOO 
000 

1021 O68DE 3559 
4919 

1022 O68E6 8E00 
00 

1023 O68EC 3302 
D2 

1024 O68F2 14C 

1025 O68F5 01 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

103? 

1038 

1039 

1049 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1043 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

106? 


=CAT$90 GOSBVL =HEXDEC 
LCHEX 919495 
GOSUBL =DOASCI 

CAT$95 LCASC \- \ 


DATO=C 8 WRITE OVER FF 


RTN 
k 


x 
SOIT TO TT TC 
FOI III TTT TTT OTTO TTT TT TTT IO 
ae 


*k Narie:(S) FTYPDC - File Type Deconpile 
ae 


** Category:  DCMUTL 
ak 


** Purpose: 
* 


x Deconpiles File Type 

aK 

As FTYPD+ checks to ensure there’s enough nenory 
xX to output deconpiled file type. 

ak 

x FTYPDC assunes there’s enough nmerory. 

ak 

&k Entry: 

ax DO past a blank (pointing to output buffer) 
ae D1 pointing at 4 nibble file typet 

+ 2 ENTRY POINTS: 

ak 1) FTYPD+ - D(A) = AVMENE 

: 2) FIYPDC - P=0 

ak 

RE-EXIT: 

- 5 character file type written to uhere DO pointed; 
ae DO past outputted file type; D1 as it was upon entry 
Be Carry clear 

bs P=0 

ak 

*k Calls: FTYPFD, CAT$90, CAT$95, QUTNBS, RDENTY 
ak 

*k Uses: A-C, DO, RO, P 

ak 

** Stk lvls: 3 

ak 

** History 

ak 

kx “Date Programmer Modification 

RX cooscSes -énteceeweses, Cassese cone 

kk 10/21/82 S.W. A=0 W <= AZO A 

k 06/10/83 S.W Call CAT$95 to output ’-’ 
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1068 
1069 
1070 
1071 
1072 O68F7 
1073 O68F9 


29 
8E00 
00 
1074 O68FF 189 
1075 

1076 06902 8FOO 
000 
107? 06909 423 
1078 

1079 0690C 
1080 O630E 
1081 


1082 06912 


DO 
15B3 


S4FF 
F70 
8BA 
31 
23 
B98 
2E 
181 


1083 06919 
1084 O691C 
1085 O691E 
1086 06920 
108? 06923 
1088 06925 
1089 

10% 06928 
1091 0692C 
1092 O692F 
1093 06931 
1094 06935 D2 
1095 06937 305 
1096 0693R 03 
109? 

1098 0693C 
1099 06940 
1100 06943 
1101 06945 
1102 06948 
1103 06948 
1104 O634E 15C9 
1105 06952 169 
1106 06955 D6 
110? 06957 03 
1108 

1109 

1110 

4111 

1112 

1113 

1114 

1115 

1116 

111? 

1118 

1119 


70CF 
161 
2E 
72RF 


75£0 
BF6 
DO 
RER 
BF6 
BF6 


5:06 an 
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aX 
FORO III IOI III TTI 
FORO OI OI I TOT TTI IT TS I IIIT IIIT IK 


* NOW INTERPRET FILE TYPE 
=FTYPD+ P= 9 
GOSUBL =OUTNBS 


ENSURE THERE’S ENOUGH MEMORY 


DO=D0- 10 
x 


=FTYPDC GOSBVL =F TYPFD 
GOC FTYP55 MATCH FOUND? 

* UNKNOWN FILE TYPE 
A=0 A 
A=DAT1 4 FILE TYPE# 

* SEE IF THE 4-DIGIT SIGNED INTEGER IS POSITIVE 
LC(5) 32767 7FFF HEX 
*A<=C OA POSITIVE? 
GOYES FTYP45 
P= 3 
A=-A WP 
P= 14 
DO=D0- 2 

* Negative file# - output manus sign 
GOSUB CATS$95 


DO=D0+ 2 STEP OVER SIGN FIELD 
FTYP45 P= 14 CONVERT HEX TO DEC 
GOSUB CAT$90 SUPPRESS LEADING 0’S ON 
C=0 A 
LCHEX 5 
RTNCC 
k 
FTYP55 GOSUB RDENTY READ ENTRY INFORNATION INTO C-REG 
CSR W Shift off file type info nib 
R=0 A 
A=C B ACA) ais offset to data 
CSR W 
CSR W Shift off offset to data byte 
DATO=C 10 WRITE OUT ASCII TEXT 
DO=D0+ 10 STEP OVER TYPE FIELD 
C=A A C(A) contains offset to data 
RTNCC 


x 

JO III OIE EI IOUT TK 
FOI II UITISE TS ROTI OO UI TOR TAT TIT ATI T AT 
ak 

** Nane: 

ah 

** Category: 
kk 

Re ERTTY: 

kk 

ak 
at 


D’LTE - DELETE execute 
STEXEC 
DO past tDELETE 


Exit: via NXTSTA 
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1120 ** Calls: PARMXQ, CHKPSF, FILBLK, DI=CRS, MVMEM+, CLLINK 
1121 &K CLPSTK 
1122 a 
1123 *k Uses: A-D, D1, DO, RO-R3, S1,S6,S89, S10, 

1124 ak ist 5 nibbles of SCRICH 
1125 ax 
1126 tk Syntax: DELETE <ALL |<line nunber>[,<line nunber>]> 
1127 aK 
1128 ** Detail: In the case of "DELETE <line#>, <linett’>, If 
1129 th the line# specified in 1st parn 1s non-existent, 
11H ae then the ist line# in progran nenory which 1s 
1131 ak larger will be substituted. If the line# 
1132 &k specified in the 2nd parn 1s non-existent, then 
1133 ax the largest line# in progran neriory which is 
1134 aK smaller will be substituted. 
1135 ax 
1136 ax The 2nd line# 1s optional; when it’s omitted, the 
1137 a DELETE connand is interpreted as a single line 
1138 ax DELETE. In this special case, execution occurs 
1139 ax only when a match in line nunbers 1s found. 
1140 ax 
1141 ax CHECKS FOR ILLEGAL PARN RANGE. 
1142 ax 
1143 ak DELETE IS NOT PROGRAMMABLE. 
1144 ak 
1145 ** History: 
1146 am 
1147 %k = Date Programmer Modifications 
1148 RK meee eee ene e rece te een eee neee- 
1149 Rk 10/13/82 S.W. Cut code by adding call to GETSTe 
1150 ee 01/11/83 SW. Elininated poll on non-RAN device 
1151 ®K 01/17/83 SW. Added call to CLPSTK 
1152 *K 03/02/83 J.P. Packed GETPRe to CHKPSF 

ax 
se SII I IAI I IIIS ISI IIIS III III IS ISI SIS SII SSIS SSIS III IIISSISSSSST TA 
1155 IOI III II TOOT III TIT IAI IIIT OI II II ITI IIT ISOS I ITI SII IIS III I ISTO SI IIS 
1156 * 
1157 x 
1158 06959 0000 REL(5) =D’ LTP 

0 
1159 : 
1160 0695E 7522 sb’ tle GOSUB PARNXQ 
1161 
1162 * Error exit if: 
1163 x Non BASIC 
1164 x PRIVATE 
1165 * — SECURE 
1166 : 
1167 06962 8£00 GOSUBL =CHKPSF Check private, secure,filetype 
oO 

1168 . 
1169 : Also Sets D(A)=End of file, DO at 1st line 
1170 
1171 06968 7A25 GOSUB FILBLK FIND BGN & END OF BLK TO DEL 


1172 0696C F9 B=-B A 
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1173 * B contains offset 
1174 O696E DA A=C A Bgn source 
1175 06970 7FOF GOSUB D1=CRS Position C at file header 
1176 06974 8E00 GOSUBL =MVNEM+ 
00 
117? 0697R 451 GOC D’ LT04 Error? (=> eFACCS) 
1178 0697D 8E00 GOSUBL =CLPSTK Clear SUSP flag, collapse stks 
00 
1179 06383 8FOO GOSBVL =CLLINK Clear links 
000 
1180 x 
1181 0698A 8COO nxtstn GOLONG =NXTSTN 
00 
1182 06990 8C0O D’LTO4 GOLONG =NFERR PROT. ERROR 
00 
1183 k 
1184 x 
1185 x 
1186 JOO III GIO ISOC IO OCT IIR 
1187 JOU SIDI TTD TTR TE 
1188 hk 
1189 ** Nave: AUTO - AUTO execution 
1190 aK 
1191 ** Category: STEXEC 
1192 am 
1793 xx Purpose: Executes AUTO Statenent 
1194 - SYNTAX: AUTO [(line number) [,<increrent value>]] 
1195 
1196 k* Entry: 3 ENTRY POINTS: 
1197 a 1) AUTO - ENTRY POINT FOR INITIAL 
1198 ax EXECUTION SET-UP. 
1199 aX 2) AUTXQ7- ENTRY POINT FOR IMPLICIT 
1200 ar AUTO EXECUTION. 
1204 ak 
1202 ax 3) AUTLN2- Entry Point for FETCH 
1203 ae BCA) = Line# 
1204 a Displays Line# w/ Cursor 
1205 a Carry Clear 
1206 ae 
1207 RX Exit: via DSPLIN or DCPLIN 
1208 ax 
1209 aX Calls: PARNXQ, FINDL, LIN#DC, LDCSET, LSTLEN, CHKPSF, 
1210 as SAVE LO 
1211 aR 
1el2 &* Uses: R-D, DO, RI, R3, $9,810, CURRL 
1213 ¥x 
1214 ** Detail: AUTO [<line nuriber>) [,<ancrenent value>] 
1215 Aa 
1216 **K Stk ivis: 6 
1217 ate 
1218 ** History: 
1219 A 
1220 a Date Programmer Modification 
4221 AY seen ete Meee Soto “Sie ee 
1222 ** 06/28/82 SLU. Added docunentation 


1223 
1224 
1225 
1226 
122? 
1228 
1229 
12H” 
1231 
1232 
1233 06996 
1234 
1235 06998 
1236 06990 
1237 069A1 
1238 069A4 
1239 069A7 
240 O69AA 
1241 O69RE 


1242 06984 
1243 06987 
1244 0698A 


1245 069C1 
1246 06905 
124? 
1248 
1249 
1250 
1251 
1252 06909 
1253 069CB 
1254 0690 


1255 06904 


1256 06908 
1257 06900 
1258 

1259 069E£0 
1260 069E2 
1261 06964 
1262 069E7 
1263 

1264 O69EA 
1265 O69EC 
1266 

1267 O69EE 
1268 069FO 


1269 069F7 
1270 
1271 
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0000 
0 


D2 
3101 
109 
10B 
859 
7FE4 
8E00 
00 
111 
11B 
1BBC 
6F2 
15C3 
6820 


£6 
06 
1B8E 
7F2 
8FOO 
000 
07 
521 


05 
23 
AIR 
540 


4 
04 


D8 
8F00 
000 
472 
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Kk 10/13/82 SLU. LCHEX OFFFF <= C=0 A/C=C-1 A 
KK 10/20/82 S. Ud. Elininated L Parn 

kk 93/07/83 S.W. Checks prot & file type 

kk §606/20/83  S.W Doesn’t add increnent if CURRL 


ak 
ak 


1S non-existent. 


FORO TOI TOO DOT TTI TT IK 
FORO UO OI OOO TOG 


x 
x 


=RUTO 


i 
* ENTRY 


REL(5) =AUTOP 

C=0 A 

LCHEX 10 

R1=C DEFRULT VALUES 

R3=C 

ST=1 9 DON’T WANT RANGE CHECKED 

GOSUB =PRNXQO 

GOSUBL =CHKPSF Error if SECURE, PRIVATE, non-BASIC 
A=R1 BGN DEST. 

C=R3 INCREMENT VALUE 

DO=(5) =AUTINC 

DATO=C 4 WRITE IT OUT TO RAN 

GOTO AUTLIN WRITE OUT LINE# FROM A TO DISP BUF 


PT FOR IMPLICIT AUTO EXECUTION 


* AUTO INCREMENT VALUE (LESS 1) IS IN C(A) 
* FROM PREVIOUS CALL TO AUTOCK 
* 


=RUT XQ? 


x 


x 


RUT XQS 
k 


AUT LIN 
AUT X06 


x 
* Entry 


C=C+1 A 

RSTK=C Save increrient value 

DO=(5) =CURRL 

GOSBYL =FINDLR 

C=RSTK Restore increnent 

GONC AUTXQ6 Curr line doesn’t exist? 

SETDEC 

P= 3 

A=R+C WP Add increnent 

GONC AUTXOQS ok if P#O, since falls into FINDL 
which calls NULLP (sets P=0) 

A=A+1 A WRAP-AROUND 

SETHEX 

B=A A 

GOSBYL =FINDL+ SEE IF LINE# ALREADY EXISTS 

GOC AUT XQS Line by that nuriber exists? 


for FETCH to Display Line# with Null Line 


1272 
1273 
1274 
1275 O69FA 
1276 O69FC 


1277 O6A02 
1278 O6A08 


1279 

1280 O6ROE 
1281 O6RI2 
1282 O6R16 
1283 06A18 


1284 
1285 
1286 
1287 O6AIF 


1288 
1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 
1301 

1302 

1903 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 06A25 
1317 06R27 
1318 O6A2A 
1319 O6AR2D 
1320 06831 
1321 06834 
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D9 
8E00 
00 
8E00 
00 
8E00 
00 


3102 
7802 
D4 
8D00 
000 


8000 


D4 
132 
161 
TSEC 
13% 
01 
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xB = Line# 
Se 
* No line exists by that number 
=RUTLN2 C=B A 
GOSUBL =saveld Update Current line 
GOSUBL =LDCSET Set up D(A), DO 
GOSUBL =LIN#A+ 
* QUTPUT BLANK AFTER LINE # 
LCHEX 20 
GOSUB LSTLN+ OUTPUT BLANK & CALC. BUFFER LENGTH 
A=B A 
GOVLNG =DSPLIN SEND LINE TO DISPLAY 


k 
* SEND READABLE CHARS TO DISPLAY & PUT CURSOR AFTER LINEH 
x 


AUTXQ8 GOLONG =dcplin External entry flag set 


x 
FOI IO TT TOI I 
FOO OTTO I OT OOO OO ITOK 


ik 
*k Nane: RDENTY - Read File Type Entry 

1k 

*k Category:  FILUTL 

kx 

** Purpose: Read a file type entry infornation into C-reg 
ak 

k* Entry: B(R) = Pointer to start of table entry 

tx 

REE RIES C(O) = Execution nibble 


wx C(2-1) = Offset to data 


kn C(12-3) = ASCII file type nane 
ee Carry clear 

ax 

&* Uses: A,C 

kk 

** History: 

ih 

ae Date Progranner Modification 

HK neh oak: settee” ade ee aiae 

Kk 06/28/82 = SL. Added docunentation 
tk 


FOO ROI IOI IOI I TOI IOI 
FORO ROO ITO IO I III 
x 


=RDENTY A=B A 
ADOEX 
DO=D04 2 
C=DATO 13 
DO=A 
RTN 
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1322 x 
1323 
1324 
1325 
1326 x 
1327 x 
4328 JES UII COG OI I IT ITE IK 
1329 JOOS III OI OCI UO OORT IAT 
1330 aR 
1331 xk Narie: LIST - LIST, PLIST connands 
1332 ak 
1333 ** Category:  STEXEC 
1334 R 
1335 *k Purpose: Executes LIST & PLIST 
1336 ak 
1337 at Entry: DO past tLIST or tPLIST 
1338 a P= 0 
1339 ak 2 entry points: 
1340 aia 1) LIST - LIST entry point 
1341 a 2) LIST* - PLIST entry point. Requires C(B) 
1542 a is loaded appropriately for MLFFLG, eg 
1343 aR C(B)=(PRINTt)*16+#F. 
1344 a 
1345 RR Exit: via NXTSTM 
1346 ak 
1347 kk Calls: tKYSck, FSPECx, FINDF, BASKEY, LNARGS, LDCONP, 
1348 ak CK"ON", POLL, Di=CRS, PRPSND, GETPRO, GETSTI, 
1349 ak PARNXQ, EOLXC+ 
1350 ak 
1351 at Uses: 
1382 *k  Exclusive.. A-D, 00,01, RO-R3, SO0,S81,87,S8,89,S10 
1353 kk Inclusive.. A-D, 00,01, RO-R3, $0,81,S2,87,388,89,510 
1354 a STMTR1 (All of it), STMTDO, 
1355 a All of function scratch, 
1356 xe S-RO-O (1st 18 nibs used by CKINFO) 
1357 aR 
1358 ** Detail: Lists each line for the user-set DELAY tire. 
1389 ak 
1360 ie *LIST’ IS RESTRICTED TO BASIC & KEY FILES. 
1361 
1362 we CHecks WIDTH, ATTN KEY AND ANY SERVICE REQUESTS. 
1363 at 
1364 x LIST [filenane] [line# [,line#]}] 
1365 as 
1366 Xk Stk lvls: 6 
1367 xx 
1368 ** History: 
1369 ak 
1370 aK Date Prograriner Modification 
1371 RK ee ene ene wenn eee ne- 0 + ----------- 
1372 aK 06/28/82  S.W Added docunentation 
1373 Kk 12/17/82 SW. Call CK"ON" instead of CKEXCP; 
1374 xe Check Carry instead of $14 
1375 kK 03/23/83 SW. Added PLIST 


1376 Ax 
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1377 JO IO IIT OCIS TTI 
1378 JOO III OOOO ICCC OCI TOO TOTTI 

7 k 
Hae JO II II IOI ISI OUI IGG IGI ICO TI IOI 
1381 JOSIE III GIGI IIS ICTR 
1382 ak 
1383 &* Nanie:(S) pLIST - Poll for LIST on an external device 
1384 xx 
1385 ** Category: POLL 
1386 ah 
1387 ** Type: POLL 
1388 an 
1389 ** Purpose: 
1390 an LISTS a file on an external device 
1391 a 
1392 ** Should poll be "Handled" (return with XN=0)?: 
1393 a Yes 
1394 x 
1395 ** Meaning of "Handling" Poll (uhat does code do if handled?): 
1396 AR Checks protection 
1397 ax If file not PRIVATE, LISTS the file, ready to go on to 
1398 xk NXTSTM 
1399 a 
1400 kX Entry conditions for handler (registers, ST, RAN, etc. ): 
1401 aR B[A] = Poll nunber. 
1402 aK HEX node. 
1403 ak P=0, 
1404 aK Blank-filed file nane in ACH); RO contains chars 9 & 10 
1405 as If no file nare specified, A=0 
1406 ve D(S) contains device id; D(X) contains device address 
1407 x 
1408 ** Norrial exit conditions from handler if handled (ST, RAN, 
1409 ** registers, etc.): 
1410 ae Carry clear 
1411 an HEX trode. 
1412 xR XxM=0. 
1413 ak PCADDR intact 
1414 ak 
1415 ** Nornial exit conditions fron handler if not handled (ST, RAN, 
1416 ** registers, etc.): 
141? ae Carry clear 
1418 xx HEX rode. 
1419 ax xM=1. 
1420 ax 
1421 ** Error exit conditions fror handler 
1422 a Carry set. 
1423 KR HEX rode. 
1424 a C[0-3] = Error nunber. 
1425 ax 
1426 ** Available subroutine levels: 
1427 ae 7 
1428 x 
1429 ** NOTE: 
1430 a For no file nane specified, the default error nessage 
1431 xk for ’not handled’ will be eFSPEC. 
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1432 me 

1433 xk What registers/RAN nay be used 1f handled?: 

1434 ak A-D, DO, D1, P 

1435 ax RO-R4, All Statuses except $13 

1436 ah Scratch RAN? 

1437 aK 

1438 xk What registers/RAN nay be used if not handled?: 

1439 aa A-D, DO, DI, P 

1440 aK R1,R2,R3 

1441 xe Scratch RAM? 

1442 a Statuses except $13 

1443 %* NOTE: RO MAY NOT BE USED IF NOT HANDLED !!! 

1444 ae 

1445 a 

1446 *k What registers/RAN nay be used if error exit (POLL only)?: 

1447 ak A-D, DO, D1, P 

1448 ak RO-R4, Statuses except $13, Scratch Ran 

1449 an 

1450 *k Envisioned application(s): 

1451 ak Listing a file that resides on an external device. 

1452 a 

1453 ** History: 

1454 ax 

1455 ah Date Progranner Modification 

1456 BR nner e ne cen neem nee en nnn nner nn ne nec n eee n ne eee 

1457 - 01/01/83 S.W. Added docunentation header to poll 

4 x 

aes JO IIIS SII III I IIIT IAI IIISI TIT IIIS OTITIS II III II IIIS ISISIII ISI IIS 

1460 III TTR I ITI DT IT TRI RII ITLL IIR EI IIIT IIS IIIS IIIS SS 
ot 

aes JU IO I ITI IR III IIIT II II IASI I IES IAI IIIS III ITI I IAA 

1463 JR II I TIT II IIT RIK IIIS ITI III III IIIS SII III II SSI IIIS AAA 

1464 as 

1465 Narie:(S) pLIST2 - POLL to LIST non-BASIC/non-KEY file type 

1466 

146? ** Category: POLL 

1468 KX 

1469 ** Type: POLL 

1470 a 

1471 *x Purpose: 

1472 ax POLLS to LIST a mainfrane file that isn’t BASIC or KEY 

1473 ae 

1474 **® Should poll be "Handled" (return with XM=0)?: 

1475 a Yes 

1476 ax 

1477 xk Meaning of "Handling" Poll (what does code do if handled?): 

1478 * LISTs the file on the display device 

1479 ax Clears XM 

1480 x Ready to go to NXTSTN 

1481 aR 

1482 *k Entry conditions for handler (registers, ST, RAN, etc.): 

1483 ak B[A] = Poll nunber. 

1484 ad HEX node. 

1485 ae P=0. 


1486 ax D1 at file header start 
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1487 ig ACA) contains file type# 
1488 RK DO past file specifier 
1489 kk 
1490 kk Normal exit conditions fron handler if handled (ST, RAN, 
1491 *k registers, etc.): 
1492 ms Carry clear 
1493 aK HEX rode. 
1494 kk xM=0. 
1495 Rx Ready to go on to NXTSTM - PCADDR intact 
1496 kk 
1497 *k Nornial exit conditions fron handler if not handled (ST, RAN, 
1498 *k registers, etc.): 
1499 a Carry clear 
1500 ak HEX rode. 
1501 aK XM=1. 
1502 xk 
1503 *k Error exit conditions fron handler 
1504 = Carry set. 
1505 aK HEX rode. 
1506 aK C{0-3] = Error number. 
1507 kK 
1508 *k Available subroutine levels: 
1509 ak 7 
1510 aR 
1511 aK STMT/FN Scratch, SCRICH, SNAPBF, TRFMBF, LOCSPC, 
1512 aK LEXPTR. 
1613 kk 
1514 xx What registers/RAM tay be used if handled?: 
1515 ae A-D, DO, DI, P always available 
1516 aK RO~-R4, ST, scratch RAN 
1517 aK 
1518 ** What registers/RAN nay be used if not handled?: 
1519 wk A-D, DO, D1, P always available 
1520 aK RO-R4, ST, scratch RAN 
1521 ae 
1522 *k What registers/RAM nay be used if error exit (POLL only)?: 
1523 ah A-D, DO, D1, P always available 
1524 aR RO-R4, ST, scratch RAM 
1525 ak 
1526 *k Envisioned application(s): 
1527 ax LISTing files of types other than BASIC and KEY, eg 
1528 ak perhaps TEXT or DATA files. 
1529 aK 
1530 ** Default: 
1531 =e If POLL not handled, error is Invalid File Type 
1532 ak 
1533 ** History: 
1534 Ak 
1535 a Date Progranner Modification 
1536 RKO nn nnn nee nnn nnn ne re nnn nee nee renter rn nr errr ern nee 
153? KK 04/04/83 SLU. Docunented poll 
1538 aK 
4539 JOG IO OI SII ISU OO ECCI ITOK 
1540 JOO IIIS ISIS IO EEE TI TICK 


1541 * 
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1542 06A36 0000 REL(5) =LISTOC 
0 
1543 O6A3B 0000 REL(5) =LISTP 
© 
1544 % 
1545 O6A40 31F1 =PLIST LC(2) (PRINTt)*16+#F 
1546 06R44 6530 GOTO LIST* 
1547 & 
1548 * LIST OF NON-MAINFRANE FILE 
1549 06R48 876 LSTEXT *ST=1 6 
1550 O6A4B CO GOYES LSTER 
1551 O6R4D 7031 GOSUB poll 
1552 06A51 CO CON(2) =pLIST 
1553 06A53 6D7B LIST3O GOTO CAT62 DEFAULT HANDLER - ILL FILE SPEC 
1554 * 
1555 06A57 678B LSTER GOTO  bserr 
1556 * LIST ON WEIRD FILE TYPE - TYPE POINTED TO BY D1 
1557 * 00 IS PROGRAM COUNTER (POINTS TO PARNS, IF ANY) 
1558 x 
1559 O6A5B 7221 LSTPOL GOSUB poll 
1560 O6ASF E2 CON(2) =pLIST2 
1561 * DEFAULT HANDLER LOADS ILLEGAL FILE TYPE’ ERROR 
1562 06A61 GE1Z GOTO pPOLL3 
1563 : 
1564 O6A65 8000 LSTXKY GOVLNG =LSTKEY 
000 
1565 x 
1566 O6ABC 0000 REL(5) =LISTOC 
0 
1567 06A71 0000 REL(5) =LISTP 
0 
1568 . 
1569 O6A76 31FO =LIST LC(2) (DISPt)*16+#F 
1570 O6A7A 1FO7 =LIST* 01=(5) =NLFFLG Write out to MLFFLG 
8F2 
1571 O6A81 14D DAT1=C B 
1572 O6A84 7BFD GOSUB D1=CRS 
1573 O6A88 8E00 GOSUBL =eolxct Read in 1 byte & compare 
00 
1574 O6R8E 442 GOC LIST5O AT EOL? 
1575 O6A91 3100 LC(2) =tCONMA 
1576 O6R95 962 ?R=C iB 
1577 O6A98 B1 GOYES LIST5O 
1578 A 
1579 O6ASA 8E00 GOSUBL =tKYSck 
00 
1580 O6AAD 590 GONC =LIST20 tKEYS FQUND? 
1581 * 
1582 O6AA3 7BE1 LIST10 GOSUB FSPEC) 
1583 O6AA? 4FA GOC LSTER 
1584 * 
1585 O6RAR 8E00 LIST20 GOSUBL =FINDF+ LOCATE FILE 
00 
1586 O6ABO 479 GOC LSTEXT 
k 


1587 
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1588 x 
1589 * D1 AT FILE HEADER 
15% x 
1591 x 
1592 O6AB3 7904 LISTSO GOSUB BASKEY 
1593 O6AB7 53A GONC LSTPOL NOT BASIC OR KEY FILE TYPE? 
1594 O6ABA 7900 GOSUB PARNXQ SET UP LINE OR KEY# PARNS IN R1,R3 
1595 O6ABE 876 LIST60 ?ST=1 6 KEY FILE? 
1596 O6AC1 4A GOYES LSTXKY 
1597 O6AC3 7431 GOSUB GETPRI1 
1598 OGAC? 4F8 GOC LSTER CARRY=>PRIVATE 
1599 * 
1600 O6ACA 17F = LIST65 D1=D1+ (oF LENh)-(oF TYPh) 
1601 * D1 AT FILE LENGTH 
1602 OBACD 143 A=DAT1 A 
1603 O6ADO 8E0O GOSUBL =GETST1 
00 
1604 * File end in D0(A), DO 2 nibs prior to tEOL 
1605 O6AD6 DB C=D A 
1606 O6AD8 1F68 DI=(5) =S-R1-1 
8F2 
1607 O6ADF 145 DAT1=C A SAVE PTR TO FILE END 
1608 O6AE2 770 GOSUB LNARGS 
1609 O6RE6 5FO GONC LIST80 ONLY BIGGER LINE# FOUND ? 
1610 * D1 AT 1ST LINE TO PRINT 
1611 O6RES 8E00 LIST75 GOSUBL =LDCN10 DECOMPILE LINE 
00 
1612 * RO contains pointer past OF 
1613 O6REF 7420 GOSUB PRPSND Output line & restore endline ptr 
1614 x 
1615 : 
1616 * DONE SENDING LINE - SEE IF THE LIST COMMAND IS FINISHED 
1617 7 
1618 * MAKE SURE NOT AT END OF PROGRAN 
1619 * ENSURE LINE WITHIN RANGE 
1620 O6AF3 135 DI=C 
1621 O6AF6 DO LIST80 A=0 A 
1622 O6AF8 1583 A=DAT1 4 READ IN LINE# 
1623 O6AFC 118 C=R3 LAST LINE TO DISPLAY 
1624 O6AFF 8B6 ADC OA DONE LISTING? 
1625 O6BO2 11 GOYES LSTDON 
1626 x 
1627 * BEFORE DECOMPILING NEXT LINE, CHECK FOR ATTN KEY DOWN 
1628 * & ANY SERVICE REQUESTS 
1629 - 
1630 06804 137 CD1EX SAVE D1 
1631 06807 8£00 GOSUBL =CK"ON" 
00 
1632 O6BOD 135 D1=C 
1633 06810 480 GOC LIST?75 ATTN key not down? 
1634 , 
1635 06813 667E LSTDON GOTO nxtstn 
1636 * 
1637 . 


1638 FORO OI TOTO IO IIIT IOI 
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1639 JOG ICO UII OR ICIS OCG IO OO ICTS SI 
1640 aK 
1641 ** Nane:(S) PRPSND - Prepare to send buffer to display 
1642 a 
1643 ** Category:  DSPUTL 
1644 i 
1645 ** Purpose: 

1646 aK Sends buffer to ascii to display device 
1647 Ka 
1648 ** Entry: 
1649 ax P = 0 
1650 ole HE XNODE 
1651 wk B(A) = # of characters in buffer 
1652 ax QUTBS = pointer to start of buffer 
1653 am RO = pointer past end of line 
1654 aK S-R1-1 contains pointer to end of file 
1655 am 
1656 A Exit: 
1657 x P = 0 
1658 an buffer sent to display 
1659 ak C(W) = RO 
1660 a 
1661 ** Calls: SENDWD, SENDEL, CKINFO 
1662 xm 
1663 E® US€Siica sis 
1664 **k Inclusive: A,B,C,D0,D1,00,R1,R2 
1665 we 
1666 *k Stk lvls: 5 
1667 am 
1668 ** NOTE: 
1669 ae This routine’s integrity requires that for sending a 
1670 ax buffer to a display device, SENDWD,SENDEL, CKINFO 
1671 ak do not touch RO,R3!!! 
1672 Am 
1673 ** History: 
1674 aS 
1675 kk Date Progranner Modification 
1676 KK mew een ee cow w eer e re cece ements eee en nen ern e nee neeee 
1677 Kk 10/14/82 SLU. Wrote routine 
1678 ax 
1679 III IDK IIIT IA TI ID IT ADT ALIS SIT IIIS IIT IASI II TIO TI TTI II II SISA IIIA 
1680 JOO IO OOD IIIT IIT ITS SI ITT ISI TIS IIS IIT IIIT TI IR 
1681 x 
1682 - 
1683 06817 D9 =PRPSND C=B- A Save #chars 
1684 06819 134 dOo=C 
1685 O6B1C 8F24 GOSBVL =CKINFO 
581 
1686 06823 136 CDOEX 
1687 06826 D5 B=C A Restore #chars 
1688 06828 1FF8 D1i=(5) =QUTBS 
5F2 
1689 O6B2F 147 C=DAT1 A 
1690 06B32 854 ST=1 4 
1691 06B35 8FF1 GOSBVL =SNDWD+ Send buffer to display device 
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1692 0683C 


1693 06843 
1694 06846 


1695 O6B4D 
1696 06B50 
1697 06853 
1698 06855 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
170? 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1?22 
1723 
1724 
1725 
1726 
172? 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 06B57 
1738 06B59 
1739 O6B5B 


1740 
1741 06B62 
1742 06B65 


2306 


E71 
8FIC 
071 
118 
1B68 
8F2 
142 
8BA 
ot 
01 


D8 
DO 
8B00 
000 


161 
136 
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GOSBVL =SENDEL Send CRLF to display device 


C=RO Restore C 
DO=(5) =S-R1-1 


A=DATO A 
70>=A A 
GOYES LSTDON 


RTN 
k 


x 

FORO ROI IO IOI TIO IT OTT TIT IIT 
SOU III TOTO ITI II TIGA 
ax 


** Nane: LNARGS - Evaluates Line Number Argunents 

ke 

** Category:  FILUTL 

aa 

** Purpose: Looks at line nunber in R1 (assures PARNKQ has 
kk already been called). Goes to NXTSTM if no LINE# 
Kk found in the specified range. 

ke 

a* Entry: DO points to initial tEOL of file 

Ee D(A) at file end 

ak S10 set if only 1 parn given (set in PARNXQ) 

a P= 0 

ik 

KX Exit: CARRY SET => D1 POINTS TO LINE MATCHING 1ST PARM 
ak CLR => D1 POINTS TO BIGGER LINEH 

ak (LINEW RANGE REQUESTED) 

a ELSE GOES TO NXTSTN 

kk 

** Calls: FINDL 

kx 

*k Uses: A,B(A),C(A),D1, 00, S0,S1 

kk 

** Stack lvls: 2 

tk 

** History: 

ik 

als Date Progranner Modification 

Re Coeeceee. “weldedweced! webu dace d 

** 06/28/82 SL. Added docunentation 

ae 


JOG IG IO III TIS IU IO TOI TO TIO IAT IIIT III 
JAI OUI III IETS TIE EI I I ITOK 
x 
findlO B=A A 
A=0 A 
GOVLNG =F INDLO 


* 


LNARGS DO=D0+ LEOL Step over initial tEOL 
CDOEX 
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1743 06B68 135 
1744 O6B6B 111 
1745 O6B6E 75EF 
1746 06872 400 


1747 


1748 06B75 870 


1749 06B78 B9 


1750 


1751 06B7A 87A 


1752 O6B7D 69 


1753 


1754 O6B7F 03 


1755 


1756 06881 8C00 poll 


1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
178? 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 


00 


x 


x 
x 
x 
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D1=C 
A=R1 
GOSUB 
RTNC 


*S$T=1 
GOYES 


?S$T=1 
GOYES 


RTNCC 


D1 at ist line# of file 


findlo 

LINE# FOUND? 
0 NO LINE BIGGER? 
LSTDON 
10 ONLY 1 PARM? 
LSTDON 


GOLONG =P011j 


FOO OJOS OOOO OOOO TOTTI 
FOI OOOO I OOO II AIC 


ak 
aK 
ak 
xn 
an 
ak 
xk 
ak 
aK 
ar 
at 
an 
xk 
ak 
xk 
xx 
xk 
ak 
ax 
xk 
an 
xn 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
aK 
ak 
xk 
an 


Narie: PARNXQ - Checks Line# Range for Validity 


Category: 


Purpose: 


Entry: 


Exit: 


Calls: 


Stack lvls: 


Uses: 


Detail: 


FILUTL 


"EXECUTES’ LINE NUMBER RANGE & PUTS THE SPECIFIED 
LINE NUMBERS IN R1, R3 


DO POINTS AT ALLEGED 1ST PARN 

P= 0 

2 ENTRY POINTS: 

1) PARMXQ - THIS IS THE ENTRY POINT FOR LINE 
NUMBER RANGES (DEFAULT IS 1 & 9999) - 
WILL CLEAR S9 SO THAT THE RANGE GIVEN 
WILL BE VERIFIED AS VALID. 

2) PRNXQO - USED BY AUTO. S9 SHOULD BE SET SO THE 
PARNS GIVEN WILL NOT HAVE VALID RANGE 
VERIFIED. Default value in R3 
(increnent) already set. 


R1,R3 contain LINE NUMBERS (S9=0 on entry neans 
default is 1,9999 respectively) 
$10=1 => FOUND EXACTLY 1 PARN 

R3 contains zeroes if $9=0 on entry 


ERROR EXITS IF 1ST PARM > 2ND PARM 


(occurs only IF $9=0 on entry) 
none 
0 
ACA), C, DO, R1, R3, $9, $10 


Used by DELETE, MERGE, LIST, AUTO. 
Assunes that tokenized forn of line nunbers 
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1797 a has a tCOMMA preceding each line number. 
1798 ak 
1799 ** History: 

1800 as 
1801 ax Date Prograrimer Modification 
4802 RE. goceccd! “Gaccsetess.. ; woveuasesum 
1803 ee 06/28/82 = S.W. Added docunentation 
ne FIDO I TIT III IIIT III III IOI ITI IIIT IIIT SII ISI ISS IIIT IIIS IISA 
1806 JOO III III TI TOI ISTO ID II ITI OTK 
1807 - 
1808 O6B87 849 PARNKQ ST=0 9 WANT RANGE CHECKED 
1809 O6B8A D2 C=0 R 
1810 O6B8C E6 C=C+1 A 
1811 O6B8E 109 R1=C Parn 1 default = 00001 
1812 06891 3399 LCHEX 9999 
39 
1813 06897 108 R3=C Parn 2 default = 09999 
1814 & 
1815 O6B9A 84A ST=0 10 1 PARM FLAG 
1816 O6B9D 148 PRMXQO A=DATO B 
1817 O6BRO 3100 LC(2) =tCONNA 
1818 O6BA4 966 *AHC OB NO PARMS? 
1819 O6BA7 00 RTNYES 
1820 O6BAS 160 DO=D0+ 4 Advance 1 prior to parn 
1821 O6BAC 142 A=DATO A Read 1 nore than necessary 
1822 OGBAF F4 ASR A 
1823 O68B1 164 DO=D0+ 5 
1824 O6BB4 101 R1=8 WRITE OVER DEFAULT PARM 
1825 * JUST IN CASE EXACTLY 1 PARN 
1826 O6BB7 879 ?ST=1 9 AUTO doesn’t want 2nd 
1827 O6BBA RO GOYES PRNXQ1 default parn=0 
1828 O6BBC 85A ST=1 10 SET 1-PARM FLAG 
1829 O6BBF DO A=0 A 
1830 O6BC1 103 R3=A Set default for parn 2 
1831 x 
1832 O6BC4 194A PRMXQ1 A=DATO B 
1833 O6BC? 966 RHE OB No 2nd parn? 
1834 O6BCA 00 RTNYES 
1835 O6BCC 84A ST=0 10 CLEAR 1 parn flag 
1836 O6BCF 161 DO=D0+ 2 Step over tCONNA 
1837 O6BD2 15A3 A=DATO 4 
1838 O6BD6 103 R3=A Read in parn 2 
1839 O6BD9 879 ?8T=1 9 CALLED BY AUTO? 
1840 O6BDC 00 RTNYES Yes=>don’t ensure parnt<=parne 
1841 O6BDE 119 C=R1 
1842 O6BE1 8B2 700R A parni>parne => error 
1843 O6BE4 40 GOYES ainvarg ILLEGAL RANGE ERROR 
1844 O6BEG 01 RTN 
1845 * 
1846 O6BE8 8C00 invarg GOLONG =ARGERR 
00 
184? : 
1848 TORRID RI IOI IOI AIOE 


1849 III TOIT TOOT TOI IOI OI II IORI 
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1850 ae 
1851 kK Nane:(S) GETPRO - Get File Protection of Current File 
1852 ** Narie: GETPR+ - Get File Protection of Specified File 
1853 ** Nane: GETPR - Get File Protection of Specified File 
1854 _ %** Nane:(S) GETPR1 - Get File Protection of Specified File 
1855 aR 
1856 xk Category:  FILUTL 
1857 ak 
1858 ** Purpose: Returns file protection infornation 
1859 xe 
1860 ak GETPRO reads file protection of the current 
1861 ah file. 
1862 ah 
1863 ak All other entry points read the file proection 
1864 ak nibble of the file specified by the caller. 
1865 aE 
1866 ** Entry: 4 ENTRY POINTS: 
1867 AK P= 0 
1868 ak 1) GETPRO - (CURRST) is accurate 
1869 xx 2) GETPR+ - (D1) = pointer to file header. 
1870 ae 3) GETPR - A(A) = pointer to file header. 
1871 ak 4) GETPR1 - Di = pointer to file header. 
1872 aK 
1873 aX Exit: SB=1 . . . IFF SECURE 
1874 RX CARRY SET IFF PRIVATE 
1875 a D1 POINTS AT FILE TYPE FIELD 
1876 ak P=0 
1877 ak C(3-0)= eFPROT 
1878 - 
1879 ** Calls: none 
1880 as 
1881 &* Uses: 
1882 aX exclusive... C, D1, SB 
1883 ak inclusive... ACA), C, D1, SB (GETPRO, GETPR+ only) 
1884 ae 
1885 *X Stack lvls: 0 
1886 ae 
188? *k History: 
1888 a 
1889 i Date Progranner Modification 
1890 KK - ann ene teen nnn n nro e ee ------ 
1891 ax 06/28/82 = SLM. Added Docunentation 
1892 Rk 10/13/82 SLU. C(B)=eFPROT on exit 
1893 ak 11/23/82 9 S.W. C(3-0) as above 
1894 aK 
1895 SI IIS II III KSI KITT TIT ITI IITI IIIS STASIS III I III III IIS SII III III IIIA 
1896 JOO I IR TTI ISIE IAI IIIS III IIS II IIIS I SSSI III SII ISI SIS 
1897 : 
1898 . 
1899 O6BEE 1FDS =GETPRO 01=(5) =CURRST 


5F2 
1900 O6BF5 143 
1901 O6BF8 131 
1902 
1903 O6BFB 17F 


=GETPR+ A=DAT1 A 
=GETPR D1=A 
k 


=GETPR1 D1=D1+ oF TYPh 
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1904 O6BFE 173 GETPR2 D1=D1+ IFTYPh PT 10 FLAG FIELD 

1905 06C01 14F C=DAT1 B Read in prot nib + 1 other 

1906 06C04 1C3 D1=D1- 1FTYPh 

19907 06C07 822 SB=0 

1908 O6COA 81E CSRB 

1909 * If SECURE, SB will be set 

1910 O6COD OB CSTEX 

1911 O6COF 870 ?ST=1 0 PRIVATE? 

1912 06C12 20 GOYES GETPR3 Set carry if PRIVATE 

1913 06C14 0B GETPR3 CSTEX 

1914 06€16 3300 LC(4) =eFPROT 

00 

1915 O6C1C 01 RTN 

1916 

1917 & 

1918 JOIST TTR TOT TIT III IIIA IIA ISAK 

1919 JI IK SIO TAI ITA IT TIS SILI II SITE IIE II IIT IIR I ITOK 

1920 ak 

1921 aX Narie:(S) LSTLEN - Calculate #chars to list in display buf 

1922 RR 

1923 ** Category:  DSPUTL 

1924 aK 

1925 . Purpose: Calculates number of chars in (display) buffer. 

1926 

1927 ** Entry: (QUTBS) = Address of buffer start 

1928 aA DO = Address past last character in buffer 

1929 oe 2 ENTRY POINTS: 

1930 ak 1) LSTLN+ - 1st calls OUTBYT; preserves 1st 

1931 ae 5 nibbles of RO. 

1932 ak 2) LSTLEN - Ptr to save in C(A) 

1933 a 

1934 aK Exits B(A) = number of characters in buffer 

1935 al Carry clear 

1936 ax Pointer saved on entry 1s restored into RO 

1937 aK via OBCOLL (collapse of OUTPUT buffer) 

1938 mh 

1939 aX Calls: QOUTBYT, AVS=D0, OBLCNP, MFWRNQ 

1940 i 

1941 ** Uses: 

1942 aK exclusive... ACA), B, CCA), RO 

1943 ak inclusive... A-D, P, D1,00, RO 

1944 ak 

1945 ** Stack lvls: 5 

1946 ae 

1947 ** Detail: If #chars to output >=95, then 95 returned 

1948 ae as number of characters in buffer and a 

1949 - "Line Too Long" warning 1s sent out. 

1950 a 

1951 ** History: 

1952 * 

1953 a* Date Progranner Modifications 

1954 RK penne ween e ene n ene enn enn nee 

1955 ** 07/06/82 = S.W. Inproved docunentation 

1956 ee 12/21/82 SW. Added *Line too long’ 

ah 


1957 
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1958 SOIC IOI CIO I OL 
1959 JOGO III OO CC OTT IOK 
1960 x 
1961 & 

1962 O6C1E 8E0O =LSTLN+ GOSUBL =QUTBYT 
00 
1963 06024 118 C=RO Save RO on stack - tay be 
1964 06€27 06 =LSTLEN RSTK=C destroyed by MFWRNQ 
1965 06€29 8E00 GOSUBL =AVS=D0 Set AVMEMS to DO 
Oo 
1966 O6C2F 8&00 GOSUBL =OBLCNP Calculate length of buffer 
00 
1967 * Length in ACA) [in nibbles] 
1968 06C€35 D2 C=0 A 
1969 06€37 31EB LC(2) 2*95 95 character maxinun 
1970 O6C€3B 8BA 7Ac=C OA 
: 1971 O6C3E 61 GOYES LSTLOK 
1972 * Give warning ’line too long’ 
1973 06C€40 3300 LC(4) =el2LNG 
00 
1974 06C46 8E00 GOSUBL =NFWROQ8 Quiet option 
oo 
1975 & 
1976 O6C4C D2 C=0 R 
1977 O6C4E 31EB LC(2) 2%*95 
1978 06C52 DA A=C A Set #chars to 95 
1979 & 
1980 06(54 AF1  LSTLOK B=0 W 
1981 06C57 D8 B=A A 
1982 06C59 81D BSRB H#CHARACTERS IN BUFFER 
1983 O6C5C 07 C=RSTK 
1984 O6C5E 108 RO=C 
1985 06C61 8C00 obcoll GOLONG =OBCOLL Destroys D1,C(A) 
00 
1986 k 
1987 & 
1988 JU OO IO IOI OIE ICICI ISO IOC IO TH 
1989 JOISTS IEIIGOOITOGISO OGIO TIT TIO 
199 tk 
1991 &* Nane: MERGE - Executes MERGE Connand 
1992 ak 
1993 *X Category:  STEXEC 
1994 ak 
1995 ** Purpose: MERGES BASIC FILE IN WITH CURRENT FILE. 
1996 ax MERGES KEY FILE IN WITH keys FILE. 
1997 ax 
1998 x* Entry: DO PAST thERGE 
1999 kx 
2000 RX Exit: via NXTSTM 
2001 ae 
2002 kk Calls: FINDF, NXTLIN, PEDIT, POLL, GETPRO, FSPECx, 
2003 kk KEYFND, KEYMRG, BASKEY, FILBLK, GETST*, PSHUPD 
2004 kx KYARGS, KMEMCK, CHKPSF, ZERPGN, PARNXQ, DO=GSB, 
2005 am CURDVC, FLADDR, MRGUPD, AVS=C, MOVEUN, POPSTK, 


2006 a RNENCH 
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2007 a 
2008 ** Uses: 50, S1, 56, $7, $8,589, S10 
2009 Re F-RO-1 (KEYNRG), S-RO-0,S-RO-1 
2010 x 
2011 ax A-D, D1,D0, RO-R3, S1,S2,87, STNTDO 
2012 ak STNTR1 (All of it), All of function scratch 
2013 aK 
2014 ** Detail: PROGRAMMABLE, however: 
2015 - Attenpting to MERGE a BASIC file during a running 
2016 ax progran results in the MERGE being executed, then 
2017 ax an ENDALL taking place. (Any following statenents 
2018 ka will not be executed). This INCLUDES the case of 
2019 ax MERGE of a BASIC file that really doesn’t alter 
2020 aX current file, as in the case of an enpty source 
2021 RX file. 
2022 ae 
2023 ** History: 
2024 ax 
2025 x Date Programmer Modification 
2026 BX nanan en ween ee en ee renee een r een nme eee e rene 
2027 KK 06/28/82 = S.N. Added Docunentation 
2028 ee 10/15/82 SW. Calls LAKEYS before searching 
2029 a for keys file 
2030 Be 03/03/83 J.P. CHKPSF call before PEDITN 
a JU III IO III IIIS ISIE II IT TIT 
2033 SII II TTI T IIIT IIT IIIT I III IIIS IIIT III II TIT IIIS IASI STI SSSI ISIN 
2034 : 
2035 * 
2036 JO II II III III TIT II TI III II IIIA ITI II IIT III ITI IIT ITI I IIIT 
2037 SI II III OAT I ITI I III III III IIIT ISS I SII IIIS ID ISI IT IIS III SSIS SST SISTA 
2038 me 
2039 ** Narie:(S) pMERGE - Polls to MERGE non-nainfrane file 
2040 ue 
2041 %* Category: POLL 
2042 a 
2043 ** Type: POLL 
2044 ae 
2045 xx Purpose: 
2046 ae Polls to MERGE a non-nainfrane file 
2047 an 
2048 ** Should poll be "Handled" (return with XN=0)?: 
2049 a Yes 
2050 x 
2051 ** Meaning of “Handling” Poll (uhat does code do if handled?): 
2052 as Merges designated file into current file (if BASIC), 
2053 ze into keys file (if KEY), or other if sone other file 
2054 ae type and the cormand has been extended to allow this. 
2055 a 
2056 ** Entry conditions for handler (registers, ST, RAM, etc.): 
2057 at Carry clear 
2058 ae B[A] = Poll number. 
2059 xe HEX rode. 
2060 ae P=0. 
2061 4 A(W) contains first 8 characters of file nane 
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2062 ax RO(3-0) contains characters 9 & 10 
2063 ax 0 past file specifier 
2064 an 
2065 ** Norrial exit conditions fron handler if handled (ST, RAN, 
2066 ** registers, etc.): 
2067 ss Carry clear 
2068 ae HEX rode. 
2069 aR XN=0, 
2070 x PCADDR intact, ready to go on to NXTSTN. 
2071 kk | 
2072 ** Norrnal exit conditions fron handler if not handled (ST, RAN, 
2073 ** registers, etc.): 
2074 ak Carry clear 
2075 am HEX node. 
2076 Sa XM=1, 
2077 ak RO MUST be preserved fron entry. 
2078 a 
2079 kk Error exit conditions from handler: 
2080 kk Carry set. 
2081 KK HEX node. 
2082 am C({O-3] = Error nunber. 
2083 KK 
2084 Kk Available subroutine levels: 
2085 aa 7 
2086 ak 
2087 ak NOTE: 
2088 el For no file nane specified (MERGE :<device>) 
2089 xx the default error message for ’not handled’ will 
2090 aK be eF SPEC. 
2091 am 
2092 ** What registers/RAN nay be used if handled?: 
2093 ae A-D, DO, Di, P 
2094 Ss RO-R4, all statuses except $13 
2095 ak All of STMT and FN scratch 
2096 KK 
2097 *k What registers/RAM may be used if not handled?: 
2098 aK A-D, DO, D1, P 
2099 Kk R1,R2,R3; All statuses except $13 
2100 Kx RO can NOT be altered! 
2101 KK All of STMT and FN scratch 
2102 a 
2103 xX What registers/RAM may be used if error exit (POLL only)?: 
2104 Kx A-D, DO, Di, P 
2105 xx RO-R4, All statuses except $13 
2106 Kx All of STMT and FN scratch 
2107 aa 
2108 ** Envisioned application(s): 
2109 oe Note that poll handler must check the following: 
2110 xx 1) file type of specified file 
2111 ax 2) Protection of source (can’t be PRIVATE), and 
2112 ak of destination (can’t be SECURE or PRIVATE). 
2113 kk 3) Destination must be in RAN 
2114 kk 4) Sufficient nenory? 
2115 kx 
2116 ** History: 
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211? ak 
2118 ax Date Progranner Modification 
2119 KK anne ee nent ene renee enn nee enn nnn e enn ences eee 
2120 7 04/18/83 SLU. Updated docurentation 
Ok 
Se III II IIR IIT I ITI I ITI IIA IIIT IIIT IT IIT III IIIT TITAS IST TAT 
2123 FI IS TIA TIT IIR ITI IIIS II III III E I IIIT III III IIIT IIIA II ISI AS: 
k 
oe JIS IOS IIIT III I I III III IIT IIT 
2126 JIS IIG OI III III IOC TOI IOI IO TT TIT 
2127 Km 
2128 He Nane:(S) pMRGE2 - Polls to MERGE non-BASIC,non-KEY file 
2129 x 
2130 *k Category: POLL 
2131 ak 
2132 ** Type: POLL 
2133 mm 
2134 ** Purpose: 
2135 = Polls for handling of MERGE of non-BASIC, non-KEY 
2136 ax 
2137 ** Should poll be “Handled" (return with XM=0)?: 
2138 kK Yes 
2139 ak 
2140 ** Meaning of “Handling Poll (uhat does code do if handled?): 
2141 ae Does appropriate MERGE, checking file protection, and 
2142 i: nenory requirenents, exits ready to go on to NXTSTM. 
2143 
2144 *x Entry conditions for handler (registers, ST, RAM, etc.): 
2145 ex Carry clear 
2146 xx BLA] = Poll nunber. 
2147 a HEX rode. 
2148 ne P=0, 
2149 aa D1 at start of wainfrane (source) file header 
2150 ae ACA)=File type# 
2151 a DO past file specifier 
2152 an 
2153 ** Norrial exit conditions fron handler if handled (ST, RAN, 
2154 xk registers, etc.): 
2155 xe Carry clear. 
2156 ae HEX rode. 
215? Kk XM=0. 
2158 a RFADJ has been called to update necessary pointers,etc 
2159 x Ready ta go on to NXTSTH. 
2160 aie 
2161 ** Normal exit conditions fron handler if nat handled (ST, RAN, 
2162 ** registers, etc.): 
2163 a Carry clear 
2164 as HEX rade. 
2165 a XN=1, 
2166 Ae 
216? ** Error exit conditions fron handler (POLL only): 
2168 an Carry set. 
2169 a HEX node. 
2170 kk C{[0-3] = Error nurber. 
ke 


e174 
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2172 ** Available subroutine levels: 
2173 aK 7 
2174 x 
2175 ke NOTE: 
2176 ze 
2177 aR --STNT/FN Scratch, SCRICH, SNAPBF, TRFMBF, LDCSPC, -- 
2178 ak ~- LEXPTR. -- 
2179 AK 
2180 —** What registers/RAN may be used if handled?: 
2181 ak A-D, DO, Di, P 
2182 aE RO-R4, All statuses except $13 
2183 a All of STMT and FN scratch. 
2184 as 
2185 *% What registers/RAM nay be used if not handled?: 
2186 a A-D, DO, D1, P 
2187 aR RO-R4, All statuses except $13 
2188 ah All of STMT and FN scratch. 
2189 aR 
2190 xk What registers/RAM may be used if error exit (POLL only)?: 
2194 aR A-D, DO, D1, P 
2192 ak RO-R4, All statuses except $13 
2193 es All of STMT and FN scratch. 
2194 a 
2195 ** Envisioned application(s): 
2196 ax Perhaps merging TEXT or LEX files. 
2197 aR Could inplenent by using the EDIT poll to position 
2198 aR at the file, thereby making it the current file. 
2199 aR 
2200 *k History: 
2201 = 
2202 = Date Progranner Modification 
2203 KR scecisccwe, (wsecco tose: wesc Se ose otek See ete esses 
2204 KK 04/18/83 S. HW. Added docunentation 
2205 a 
2206 JOO III OUI IG TOT ISO II TOIT EO ITT 
2207 JOIST IIIS III III OI IIIS III II OSI I III IIT III III IAA 
2208 x 
2209 x 
2210 a 
eer * TRY MERGE ON NON-MAINFRAME FILE 


2212 06067 876 
2213 O6C6A 42 
2214 O6C6C 711F 
2215 06C70 00 
2216 O6C72 6E59 
221? 

2218 

2219 06€76 07 
2220 06C78 D? 
2221 O6C7A 730F 
2222 O6C7E Fe 
2223 06C80 400 
2224 

2225 06083 831 
2226 06086 21 


ARGEXT ?7ST=1 6 
GOYES MRGERR 


GOSUB poll 
CON(2) =pnERGE 
GOTO § CATE2 DEFRULT HANDLER - ILL FILE SPEC 
x 
* TRY MERGE ON FILE TYPE OTHER THAN BASIC OR KEY 
MRGPOL C=RSTK PULL LOCATION INFO OFF STACK 
D=C A 
GOSUB poll 
CON(2) =pMRGE2 
=pPOLL3 GOC NRGERR HANDLED & ERRORED? 
k 
?XN=O HANDLED & QKRY? 


GOYES MRGFIN 


ae 
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2227 * DEFAULT HANDLER - ILL. FILE TYPE 
2228 O6C88 3300 LC(4) =eF TYPE 
00 
2229 x 
2230 O6C8E 6059 MRGERR GOTO bserr 
2231 x 
2232 O6C92 8COO =FSPEC} GOLONG =FSPECx 
00 
2233 x 
2234 06C98 61FC MRGFIN GOTO nxtstn 
2235 x 
2236 06C9C 0000 REL(S) =MERGOC 
0 
2237 O6CA1 0000 REL(5) =MERGEP 
0 
2238 O6CAG 78EF =MERGE GOSUB FSPEC) 
2239 O6CAA 43E GOC MRGERR 
2240 * LEGAL FILE SPECIFIER - SEE IF FILE EXISTS 
2241 O6CAD 8E00 GOSUBL =FINDF+ 
00 
2242 O6CB3 438 COC MRGEXT 
2243 O6CBE 133 ADIEX 
2244 O6CB9 131 D1=A 
2245 O6CBC 100 RO=A Save ptr to file header (keys) 
2246 * ENSURE IT’S A FILE OF TYPE BASIC OR KEY 
2247 O6CBF 7DF1 GOSUB BASKEY 
2248 06(C3 528 GONC  MRGPOL NOT BASIC OR KEY FILE? 
2249 O6CC6 713F GOSUB GETPR1 
2250 O6CCA 430 eRe GOC MRGERR Error if PRIVATE 
2251 
2252 O6CCD 76BE NMERGO6 GOSUB PARNXQ Set up line#/key# parns in R1,R3 
2253 06C01 110 A=RO 
2254 % 
2255 O6CD4 866 ?3T=0 6 BASIC FILE MERGE? 
2256 06CD7 03 GOYES MERG30 
2257 O6CD9 6ECO GOTO MERGE62 
2258 x 
2259 O6CDD 1B3A DO=GSB DO=(5) =GSBSTK 
SF2 
2260 O6CE4 142 A=DATO A 
2261 O6CE? 130 DO=A 
2262 OBCEA 166 DO=D0+ 7 
2263 O6CED 142 A=DATO A 
2264 O6CFO 01 RTN 
2265 x 
2266 O6CF2 06 PSHADR RSTK=C Save Block End 
e267 O6CF4 DY C=B A 
2c68 OoCF6 108 R3=C Save Block Size 
2269 OBCF9 7400 GOSUB pshupd Push Block Start on Stk 
2270 O6CFD 0? C=RSTK 
2271 O6CFF DA A=C A 
2272 06001 8C00 pshupd GOLONG =PSHUPD Push block end on stk 
00 
2273 
2274 - 
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2275 O6D07 SEO 
00 


2276 

2277 O6DOD 7581 

2278 06011 7DDF 

2279 

2280 06015 8E00 
00 

2281 O6D1B 8E0 
00 


2282 

2283 06021 128 

2284 06024 D5 

2285 06026 118 

2286 O6D23 8EOO 
00 

2287 O6D2F 4A9 

2288 

2289 O6D32 8E0O 
00 


229 
2291 
2292 
2293 06038 7EFO 
2294 
2295 O6D3C 4B3 
2236 OGD3F 8F00 


000 
2297 
2298 O6D46 1FF3 
5F2 


2299 O6D4D 143 

2300 O6D50 131 

2301 

2302 06053 768F 
2303 O6D57 144 


2304 

2305 O6D5SA 8FOO 
000 

2306 


2307 06061 137 
2308 06064 8£00 
00 
2309 O6D6A 848 
2319 O6D6D 8FOO 


000 
2311 06074 63CF 
2312 
2313 
2314 
2315 


2316 06078 86D 

2317 O607B 80 

2318 O6D7D 8000 
00 


5:06 an 
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MERG3O GOSUBL =GETST* 


* D at end of file 


GOSUB FILBLK 
GOSUB PSHADR 

x 
GOSUBL =CURDVC Set-up for FLADDR 
GOSUBL =FLADDR 

k 
CR3EX 
B=C A Ant of men needed 
C=R3 Restore C(A) 
GOSUBL =RNEMCH 
COC NERGO4 


* Error if PRIVATE, SECURE, or non-BASIC 
GOSUBL =CHKPSF 


x 
* COMPLETE SET-UP FOR ’PEDIT’ CALL 
& 


MERGSO GOSUB MRGUPD 
k 


COC MERGSS 
GOSBVL =NXTLIN 


® C(A) contains end source 
D1=(5) =OUTBS 


A=DAT1 A 
Di=A Begin Dest. 
GOSUB 00=GSB 

DATO=C A 
* Move line to output buffer 


UPDATE 


GOSBVL =NOVEU2 Move line to output buffer 
& 
CDIEX 
GOSUBL =AVS=C Update AVNENS 
ST=0 8 Flags that this isn’t DELETE 
GOSBVL =PEDITN 
GOTO NMERGSO 


& 


* $13 here should indicate whether the MERGE is executed fron 
* progran execution or fron keyboard BASIC 
k 


MERGSS 7ST=0 13 CALC BASIC? 
GOYES MERGE IF SO, GOTO MERGEO 
GOLONG =ENDALL GOSUB stack will be collapsed 
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2319 x 
2320 06083 8E00 MERG6O GOSUBL =ZERPGH Clear prog info (tiners, etc) 
00 
2321 06089 1B3A MERG61 DO=(5) =GSBSTK 
5F2 
2322 * A points to start of entry to delete 
2323 O6D90 142 A=DATO A 
2324 06093 D2 C=0 A 
2325 06095 30C LCHEX C 
2326 06098 C2 C=C+A A C pts to entry end 
2327 O6D9A DE ACEX A 
2328 O6D9SC 22 P= 2 Update 3 pointers 
2329 O6D9E 8E00 GOSUBL =POPSTK 
00 
2330 O6DA4 65EB GOTO 3 nxtstn 
2331 x 
2332 * NO NEED TO CHECK PRIVACY 
2333 . 
2334 O6DA8 131 MERG62 DI=A 
2335 O6DAB 8FOO GOSBVL =KYARGS 
000 
2336 O6DB2 7890 GOSUB PRNSV SET UP S-RO-0 & S-RO-1 
2337 O6DB6 5F1 GONC NERG6? SINGLE PARM SPECIFIED? 
2338 * KEY RANGE 
2339 O6DB9 120 AROEX Rest file ptr (save blk st) 
2340 O6DBC 118 C=R3 
2341 O6DBF D7 D=C A KEYCODE 
2342 O6DC1 8E00 GOSUBL =KYFND+ 
00 
2343 O6DC? 133 ADIEX 
2344 O6DCA 540 GONC NERGOS MATCH NOT FOUND? 
2345 * MATCH FOUND - PT TO END OF KEY ASSIGNMENT 
2346 O6DCD CA A=A+C A 
2347 x 
2348 O6DCF 118 MERGES C=RO 
2349 * Block start in C(A); Block end in A(A) 
2350 O6DD2 72E0 GOSUB PRNSV? CALCULATE MENORY NEEDED 
2351 * 
2352 * Store (Block end - 1) so that pointer doesn’t inadvertantly 
2353 * fall on file boundary (eg at end of file chain) 
2354 O6dNe CE MERG6? C=C-1 A 
2355 O6DD8 761F GOSUB PSHADR 
2356 O6DNC 118 C=R3 
2357 O6DDF 0S B=C A 
2358 O6DE1 8E00 GOSUBL =KMENCK 
00 
2359 O6DE? 72FE GOSUB DO=6SB 
2360 O6DEB Db C=A A 
2361 O6DED 5E1 GONC MERGES (B.E.T.) 
2362 E 
2363 * MERGE FILE INTO keys 
2364 & 
2365 O6DFO 7640 MRGKEY GOSUB MRGUPD 
2366 - 


2367 X INCREMENT RAM PTR TO NEXT KEY ASSIGNMENT 
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2368 O6DF4 D5 B=C A End of block FROM ’MRGUPD’ 
2369 O6DF6 D2 . C=0 A 
2370 O6DF8 171 Di=D1+ 2 
2371 O6DFB 14F C=DAT1 B 
2372 O6DFE C2 C=A+C A PT 10 NEXT KEY ASSIGN. 
2373 * EOF NOT CAUGHT BY MRGUPD, SINCE DON’T STORE NEXT KEY TO 
2374 * MERGE, BUT ONLY THE CURRENT ONE - DIFFERENT FROM THE WAY 
2375 * BASIC MERGE STORES IT 
2376 O6EOO 8BD 7C>=B A AT EOF? 
2377 O6EO3 68 GOYES MERGE1 
2378 x 
2379 O6E05 74DE GOSUB D0=GSB 
2380 O6E09 144 DATO=C A UPDATE PTR 
2381 O6GEOC 135 MERGE69 D1=C 
2382 OGEOF AF2 C=0 W 
3 2383 06612 15F3 C=DAT1 4 
’ 2384 O6E16 D1 B=0 A 
2385 0618 AES B=C B 
2386 O6€1B 8E00 GOSUBL =KYNRG+ 
00 
2387 06621 78BE GOSUB DO=GSB PTR TO NEXT KEY ASSIGN TO MERGE 
2388 * BGN DEST IN 01;BGN SOURCE IN ACA) 
2389 O6€25 1H DO=A Bgn source 
2390 O6F28 161 DO=DO+ 2 
2391 O6E2B D2 C=0 A 
2392 O6E2D 14€ C=DATO B 
2393 06E30 8F0O GOSBYL =NOVEU4 
000 
2394 x 
2395 06£37 588 GONC MRGKEY (B.E.T.) 
2396 : 
2397 & 
2398 JOIST OI SOI OO TS OSI IOS II TOI IIIT MK 
2399 JI IO IO III II III II IO STOTT SIS IIIT SI IIIS S IIS I SOTO SII SIA 
2400 ax 
2401 &* Nane: MRGUPD - merge update 
2402 x 
2403 ** Category: LOCAL 
2404 xe 
2405 ** Purpose: Compares END OF BlOCK PTR and CURRENT MERGE LINE 
2406 si PTR to see if merge is complete 
2407 as , 
2408 ** Entry: B=OFFSET 
2409 es ADDRESS OF NEXT LINE TO MERGE & ADDRESS OF END 
2410 ae OF BLOCK TO MERGE PUSHED ON GOSUB STACK 
2411 ax 
2412 AX Exits CARRY SET=> DONE MERGING 
2413 ax A(A),D1 point at current line 
2414 am C(A) contains pointer to end of block 
2415 — 
2416 ** Calls: none 
2417 ax 
2418 kk Uses: ACA), BCA), C{A), 01, DO 
2419 a* 


2420 ** Detail: USED BY MERGE ONLY 
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2421 ax 
2422 ** History: 
2423 xe 
2424 ax Date Prograrmer Modification 
2425 BK penne ne eee eee e ere reer een nnrnn- 
2426 Rk 06/28/82 = S.W. Added docurentation 
2427 ax 
2428 KI III III ITI IITA III III IIIS II ID IS IIS III IIII IIIS ST IIS SSIS ISI SS SSSA 
2429 $I II III OI IO III IIT IIIT IAT ISIS IIT I STITT IISA 
24H A 
2431 k 
2432 O6E3A 7F9E MRGUPD GOSUB DO=GSB 
2433 x 
2434 O6E3E 185 DO=D0- 6 
2435 06641 146 C=DRTO A 
2436 06644 131 D1=A 
2437 O6E47 8BE 7A>=C A DONE? 
2438 O6E4A 00 RTNYES 
2439 z 
2440 O6E4C 03 MRGUP1 RTNCC 
2441 * 
2442 O6E4E 133° PRMSV ADIEX 
2443 O6E51 131 D1=A 
2444 06E54 86A ?ST=0 10 NOT SINGLE PARN? 
2445 06657 00 RTNYES 
2446 06E59 D2 C=0 A 
2447 O6E5B 876 ?ST=1 6 KEY FILE? 
2448 O6ESE C2 GOYES PRNS¥2 
2449 O6E60 173 D1=D1i+ 4 
2450 * D1 AT LENGTH BYTE 
2451 06663 14F C=DAT1 B 
2452 06666 C2 C=A+C A 
2453 O6E68 134 DO=C 
2454 O6E6B 163 DO=D0+ 4 Point to t@ or tEOL 
2455 O6EGE 3100 LC(2)  =tEOL 
2456 06E72 8E00 GOSUBL =EOLSNS 
00 
2457 O6E78 161 DO=D0+ 2 DO past block 
2458 O6E7B 103 D1I=Di- 4 D1 at block start 
2459 OGE7E 136 CDOEX Block end 
2460 O6£81 133 ADIEX Block start 
2461 06684 DS B=C A 
2462 O6E86 E8 B=B-A A Block length 
2463 O06E88 03 RTNCC 
2464 . 
2465 O6E8A 171 =PRASV2 DI=D1+ 2 
2466 O6E8D 14F C=DAT1 B 
2467 O6E90 D5 B=U R Length of line 
2468 O6E92 C2 C=A+C A End of line 
2469 06694 03 RINCC 
2470 
2471 FOI RO TORII IOI IOI IOI OGIO IIIT ICI 
2472 SOIR JOO RRO RRR R III OI tO 
2473 x 
2474 ** Nane: FILBLK - Delineates Specified File Block 


2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
24% 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 O6E96 
2508 O6E9R 
2509 O6E9E 
2510 O6EA1 
2511 
2512 O6ER4 
2513 O6ER6 
2514 O6EAA 
2515 
2516 O6EAD 


251? 
2518 
2519 O6EB4 
2520 O6EB6 
2521 O6EB8 
2522 O6EBA 
2523 O6EBC 
2524 O6EBE 
2525 
2526 
2527 
2528 
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78CC 
7OBF 


113 
06 
7DAC 
590 


8FOO 


DA 
07 
D8 


DE 
03 
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wok 
** Category:  FILUTL 
ko 
** Purpose: 
ee Given starting and ending BASIC progran line 
a nunbers, FILBLK computes the address of the 
ale block start and end, and the block size. 
a 
xx Entry: 
an D(A) points to file end 
ay P=0 
sis DO points at initial tEOL 
a Exit conditions fron PARMXQ: 
Re R1 = Start line# 
ae R3 = End linet 
ik 
PRCEXIT: 
xx If no progran menory is in specified range, FILUTL 
ee does a ’GOLONG NXTSTM’ 
a ELSE... 
a A(A) = Block start 
ze C(A) = Block end 
x B(R) = Block size 
tk 
kk Calls: LNARGS, FINDL, NXTLIN, PRMSV 
tok 
kx Uses: A, BCA), CCA), 01,00 
1k 
xx Stk lvls: 3 
we 


FOO OIRO ITT TOOT OR OOK 
FOI TOTO TOI TOTO TO ITT IIT TIN 


FILBLK GOSUB LNARGS 
GOSUB  PRINSY SET UP A, C 
RTNNC SINGLE PARM SPECIFIED? 
R=R3 


* C(A) POINTS TO START OF BLOCK TO MERGE 


RSTK=C Save block start 
GOSUB findld 
GONC PRMSV5 MATCH NOT FOUND? 


* MATCH FOUND - PT TO END OF LINE 
GOSBVL =NXTLIN 


* C(A) POINTS AT END OF BLOCK TO MERGE 
k 


PRISVS A=C A Block end 
C=RSTK Block start 
PRNSV? B=A A Block end 
B=B-C A Block length 
ACEX A R=Blk start;C=Blk end 
RTNCC 


x 

FORO JOJO OJ ITT IO II IK 
LSS. 2.S.0.9.5.9.9.0.9. 9.6.0 2.9.5.2.0.9.9.5.9,9,0,0.2,9.5,.5,0.5,9,0.9,6.9.5, 0.9.2 2.9. 5.9.9.9.9,9,5.5.9,0,9.9.0,6.9.9.5.9,0.: 
ak 


Saturn Assenbler 
Ver. 3.39/Rev. 2306 Port Number Deconpile Page 51 


2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2582 
2553 
2554 
2555 
2556 
2557 
2588 
2559 
2560 
2561 O6ECO 
2562 O6EC3 
2563 
2564 O6EC6 
2565 O6EC9 
2566 O6ECB 
2567 O6ECE 


2568 O6EDS 
2569 O6ED3 
2570 

2571 O6EDA 
2572 O6EDD 


2573 O6EE3 
2574 O6EEG 
2575 O6EE8 
2576 
2577 
2578 
2579 
2580 
2581 


846 
17E 


143 
F4 
1CE 
3441 
2E0 
BA2 
00 


856 
3300 
2 
BAC 
00 
01 
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** Nane: BASKEY - Detertiine if File Type is BASIC/KEY 
kk 

** Category:  FILUTL 

tok 


** Purpose: Checks if indicated file is of type BASIC or KEY 
ke 


AX Entry: D1 = Address of file header start 
xk 

Kk Exit: D1 = Address of file header start 
xx P= 0 

Kx ACA) = file typet 

xx $6=0 => BASIC file 

a CARRY SET => BASIC or KEY file 

Kk $6=0 => BASIC 

xx CLR => Neither BASIC nor KEY file (S6=1) 
ka 

** Calls: none 

kk 

kk Uses: ACA), CCA), S6 

ke 

AX Stk lvls: 0 

kk 

** History: 

ke 

xk Date Progranner Modification 

hes ein. ace Se ee eae 

Kk 96/28/82  S.W. Added Docunentation 
kk 


FOOT IO TTT 
FOO ITO TIO IOI TOO TIT OTITIS TIT 
x 
x 


=BRSKEY ST=0 6 
D1=01+ (CoFTYPh)-1 
* Read in 1 nore than needed 
R=DAT1 A 
ASR A Shift off extra nibble 
D1=01- (oF TYPh)-1 
LC(5) =f BASIC Load zero in nib 4 


7A=C OA 
RTNYES 


ST=1 6 
LC(4) =f KEY 


7A=C OA 

RTNYES 

RTN 
x 
x 
JOO TODO IIIS ISIS IIIT TO TE 
JOIST IOI IOI ICO EIT TE 
ae 


** Nane: EGQFLCH - Scan to End of File Chain 


Saturn Assenbler 


Systen Contiands: DELETE, AUTO, Fri Dec 30, 1983 5:06 an 


Ver. 3.39/Rev. 206 Port Nurnber Deconpile Page 52 
2582 ** Narie: EOFLC+ - Scan to End of File Chain 
2583 ** Nane: EQFLC1 - Scan to End of File Chain 
2584 a 
2585 A* Category:  FILUTL 
2586 x 
2587 *t Purpose: Scans to end of file chain 
2588 wh 
2589 a EOFLCH entry requires a pointer to the 
2590 aR start of a knoun file. 
2591 xk 
2592 xk EOFLC+ and EOFLC1 entry require a pointer 
2593 Se to the end of sone file in the chain. The 
2594 xx caller need not know that a file follows 
2595 ax Since the code for these entry points checks 
2596 as for a 00 byte instead of assuring a file 
2597 a follows. 
2598 aK 
2599 xk Entry: P= 0 
2600 ak 3 entry points: 
2601 aK 1) EOFLCH - C(A) points to file header 
2002 ah 2) EOFLC+ - C(A) at end of sone file. (Either 
2603 ae at start of next file header or 
2604 xn at 00 byte at end of file chain) 
2605 at 3) EOFLC1 - D1,C(A) at END of sone file 
206 xk 
2607 ae Exit: Carry Clear 
2608 ak C(A) & D1 point to chain end (at 00 byte) 
2609 ak 
2610 ak Calls: FILSKP 
2611 xk 
2612 xk Uses: ACA), CCA), D1 
2613 ak 
2614 kk Stack lvls: 1 
2615 an 
2616 ** History: 
2617 xx 
2618 kk Date Programmer Modification 
2619 KK seen nnn ee nee een nee- 0 ------------ 
2620 KX 06/28/82 = S.W. Added Docunentation 
2621 e 10/21/82 SW. No longer uses B 
2622 kk 01/12/83 SW Elininated EOFLC* entry 
kt 
oe JOU OOOO ICO IO IIIS ICG OTT 
2625 JO IOI OOS II GIO IOC ISOC COCO TOC TOK 
2626 * 
2627 . 
2628 OGEEA 7020 =EOFLCH GOSUB FILSKP 
2629 OGEEE 135 =EOFLC+ 01=C 
2630 O6EF1 14B =EOFLC1 A=DAT1 B 
2631 O6EF4 96C 7AHO | OB 
2632 O6EF7 3F GOYES EOFLCH 
2633 x 
2634 OGEF9 01 RTN 
2635 * 
x 


2636 


tte 
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2674 O6EFB 7A10 


2675 OGEFF 135 
2676 Ob6FO2 14B 
2677 O6FOS 968 
2678 O6FO8 00 
2679 O6FOR DS 


2680 OGFOC 7BEC 


2681 OBFIO 832 
2682 O6F13 8E 


2683 ObF15 6870 


2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
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2637 JI III ISI III TI IDOI III TIT TI TIT TIT IDI II ASTID IS IIS IIIS IK 
2638 JI OI II III DT IIIT ITO TOR ITT II IIT OTT III IIT II II IIA IIIS IK 
2639 ax 
2640 ** Narie: CLNPRO - CLAIN Protection 
2641 ak 
2642 xk Category:  FILUTL 
2643 a 
2644 ** Purpose: 

2645 a Checks for secure files in file chain out on Plug-in. 
2646 ae Needed if user requests CLAIMPORT operation 
2647 a 
2648 xk Entry: 
2649 ak P = 0 
2650 C(A) at 1st file in chain (assures file chain not null) 
2651 
2652 AR ENL Ys 
2653 xk P = 0 
2654 ae CARRY SET; D1 AT ZERO BYTE AT END OF CHAIN 
2655 - ERROR EXITS IF ANY FILE IN THE CHAIN IS SECURE 
2656 x 
2657 xk Calls: GETPRO, FILSKP 
2658 RK 
2659 RE Uses.....0 
2660 ak ACA), BCR), C, D1, SB 
2661 ak 
2662 ** Stk lvls: 1 
2663 ax 
2664 ** History: 
2665 a 
2666 ae Date Prograriner Modification 
2667 a aaa aa atta atatetateaiateietatetetiatetatate 
2668 ** 06/25/82 SLU. CREATED UTILITY 
2669 ** 01/13/83 9 S.W. Modified entry conditions 
ke 
Soy JOO IU II I ITO TIT TOT IIS IIS ITI II III III IAA 
2672 JOU IIIS OIRO IRIS AIT III I OT 
2673 * 


CLMPR1 GOSUB FLSKPB 
=CLMPRO 01=C 
A=DAT1 B 
A200 OB 
RTNYES 
B=C A SAVE PTR TO FILE HEADER 
GOSUB GETPR1 
?S$B=0 FILE NOT SECURE? 
GOYES CLMPR1 


GOTO MRGERR 


x 

FOI OOOO IO 
FOI ORR TOI TOO OOO OOO III OOO OI I IO 
xk 


** Narie: FILSKP - File Skip 
** Narie: FLSKPB - File Skip 
&* Narie:(S) FILSK+ - File Skip 
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2692 ar 
2693 *k Category:  FILUTL 
2694 aR 
2695 ** Purpose: 
2696 ak Skips over specified file 
2697 ak 
2698 ** Entry: 
2699 ak P=0 
2700 ak 3 entry points: 
2701 aK 1) FLSKPB - B(A) at file header start 
2702 ak 2) FILSKP - C(R) at file header start 
2703 aR 3) FILSK+ - ACA) at file header start 
2704 K 
2705 AX Exit: 
2706 a P=0 
2707 kk C(A)= Points to next file in chain (OR to 00 BYTE) 
2708 as A(A)= Length in file’s file length field 
2709 ie D1 = Points to file length field 
2710 hk Carry clear 
2711 as 
2712 ** Calls: none 
2713 a 
2714 &K Uses ACA), CCA), 01 
2715 ae 
2716 kk Stk lvls: 0 
2717 ak 
2718 ** History: 
2719 mK 
2720 a Date Progranner Modifications 
2721 RR wee e een eee eceeree were nrc necro 
2722 Ak 07/05/82 = S.W. Added docunentation 
2723 2 10/21/82 SW. Changed entry conditions 
a FOI IIIT TTT Or 
2726 JI III IOI OTT SII ISO TOT III SITIOS IIS SISO. 
ere? x 


2728 O6F19 D9 =FLSKPB C=B A 
2729 O6F1B DA = =FILSKP A=C A 
2730 O6F1D D2 = =FILSK+ C=0 A 


2731 OGFIF 3102 LC(2) =oFLENh 

2732 O6F 23 C2 C=C+A A 

2733 O6F25 135 D1=C 

2734 O6F 28 143 A=DAT1 A WAS C=DAT1 A; ADIEX 
2735 O6F2B C2 C=A+C A 

2736 O6F2D 01 RTN 

2737 x 

2738 - 


2739 O6F 2F END 


Saturn Assenbler Systen Commands: DELETE, AUTO, Fri Dec 3, 1983 5:06 an 


Ver. 3.39/Rev. 26 Synbol Table Page 55 
ARGERR Ext - 1846 
AUTINC Abs 194251 #2F6CB - 12 1244 


AUTLIN Abs 27118 HOOSEE - 1267 1246 
=RUTLN2 Abs 27130 HOOSFA - 1275 
=AUTO Abs 27035 #0699B - 1235 
AUTOP = Ext - 1233 
AUTXQ5 Abs 27116 #O69EC - 1265 1262 
AUTXQ6 Abs 27120 #069FO - 1268 1257 
=AUTXQ? Abs 27081 #069C3 - 1252 
AUTXQ8 Abs 27167 HOBAIF - 1287 1269 


AVM2DS Ext - 448 

AVS=C Ext - 288 

AVS=DO Ext - 719 1965 
=BASKEY Abs 28352 HO6ECO - 2561 1592 2247 
BF2DSP Ext ~ 226 

BF2STK Abs 99939 #18663 - 13. 786 
BLNKC+ Ext a “#07 

BSERR = Ext => 309 

C=MAIN Ext -~ 214 649 


=CAT Abs 25644 #06420 - 177 

=CAT$ Abs 26216 #06668 - 615 

CAT$O5 Abs 26309 #066(5 - 651 692 
CAT$O8 Abs 26314 #066CR - 654 662 
CAT$12 Abs 26374 #06706 - 682 646 
CAT$14 Abs 26406 #06726 - 694 368 
CAT$15 Abs 26429 #0673D - 703 652 
=CAT$20 Abs 26438 #06746 - 707 446 660 
CAT$30 Abs 26452 #06754 - 714 717 
CAT$32 Abs 26500 #06784 - 731 729 
CAT$35 Abs 26509 #06780 - 735 732 
=CAT$65 Abs 26622 HO67FE - 777 697 770 772 
=CAT$66 Abs 26634 HO680R - 783 

CAT$70 Abs 26770 #06892 - 940 746 762 
CAT$?1 Abs 26794 #068AR - 950 754 851 
CAT$75 Abs 26804 #06884 - 953 959 
CAT$80 Abs 26826 HO68CA - 1014 741 
=CAT$83 Robs 26836 #068D4 - 1019 

=CAT$90 Abs 26839 #068D7 - 1020 1093 
CAT$95 Abs 26860 #068EC - 1023 10% 
CRI$ER Abs 26370 #06702 - 678 671 

CAT$N Abs 26260 #06694 - 634 et 
CAT$NL Abs 26412 #0672C - 696 657 704 
CAT$P1 Abs 26339 #066E3 - 664 673 
CAT$PL Abs 26350 HO66EE - 669 625 629 
CAT* Abs 25624 #06418 - 172 170 

CATOO Abs 25657 #06439 - 185 336 

CATOS Abs 25675 #06448 - 198 178 

CATIO) =6Abs) = 25715 #06473 - 214 205 363 
=CATIOO Abs 26200 #066058 - 448 

CAT11 Abs 25721 #06479 - 215 377 
CAT16 «Abs 25760 #064A0 - 228 =255 

CAT17? Abs 25784 #O64B8 - 237 283 

CAT18 Abs 25794 #06402 - 240 282 294 
CAT19 Abs 25873 #06511 - 269 251 

CAT21 Abs 25909 #06535 - 286 263 321 
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CAT22 Abs 25921 #06541 - 239 H4 
CAT25 Abs 25935 #OG54F - 296 290 
CAT3O «=6Abs) =. 25961 #06569 - 36 259 
CAT31 Abs 25982 #0657E - 313 264 370 
CAT32 Abs 25999 #0658F - 318 257 
CAT37 «Abs 26014 #0659E - 326 171 
CAT38 Abs 26021 #065A5 - 329 211 
CAT40 «= Abs «= 26034 #00582 - 338 86330 
CAT62 Abs 26065 #06501 - 351 1553 2216 
CAT65 Abs 26071 #06507 - 353 345 
CAT67 Abs 26075 #0650B - 365 341 
CAT70 «=6Abs) «= 26085 «HOBSES - 361 7 
CAT8O §=6Abs §=626108 HOGSFC - 370 384 388 
CRT82 Abs 26112 #06600 - 373 362 
CAT83 Abs 26121 #06609 - 376 394 
CAT85 Abs 26150 #06626 - 387 391 
CAT87 Abs 26156 #06620 - 388 398 
CAT9O)}«=6Abs) = 26159 #0662F - 389 366 
CAT95 Abs 26189 #06640 - 445 186 239 
CATAL? Abs 25869 #06500 - 266 233 


CATCNT Abs 26175 #0663F - 396 386 
CATCRD Ext = tS 
CATE34 Abs 26104 #065F8 - 368 374 
=CATEDT Abs 25653 #06435 - 182 
CRTEXT Abs 26059 #065(B - 349 
CATHDR Abs 25517 #063AD - 159 225 
CATNK Abs 25611 #0640B - 168 210 
CATP Ext - 176 
CATRPT Abs 25816 #06408 - 246 242 
CHKPSF Ext - 1167 1241 2289 
CK"ON" Ext - 1631 
CKINFO Abs 99650 #18542 - 13 1685 
CLLINK Ext - 1179 
CLAPR1 Abs 28411 HOGEFB - 2674 2682 
=CLMPRO Abs 28415 HOGEFF - 2675 
CLPSTK Ext - 1178 
CRLFND Ext - 449 
CT$CRD Ext - 699 
4 CTALLP Abs 26128 #06610 - 381 261 266 
CURDVE Ext - 2280 
CURRL Abs 194536 #2F7E8 - 12 1254 
CURRST Abs 193885 #2F55D - 12 892 1899 


D’LTO4 Abs 27024 #06990 - 1182 1177 
=D’LTE Abs 26974 #0695E - 1160 


D’LTP = Ext - 1158 

DO=GSB Abs 27869 #O6CDD - 2259 2%2 2359 2379 2387 2432 
DOASCI Ext - 1022 

DOOUTB Ext - 784 

DI=AVE Abs 99921 #18651 - 13 664 783 


=DI=CRS Abs 26755 #06883 892 1820 705 «(1175 «1872 


DISPt Abs 0 #00000 - 11. 1569 
DSPDLY Ext - 188 
DSPLIN Ext - 1283 
DVCNFE Ext - 694 


EDIT8O Ext - 311 
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ENDALL 
=EQFLC+ 
=EOFLC1 
=EOFLCH 

EOLSNS 

EXPR} 

F-RO-0 

FILBLK 
=FILSK+ 
=FILSKP 

FILXQ$ 

FINDA 

FINDF+ 

FINDL+ 

FINDLO 

FINDLR 

FLADDR 
=F LSKPB 
=FSPEC) 

FSPECx 

FTYP45 

FTYP55 
=FTYPD+ 
=FTYPDC 

FIYPFD 
=GETPR 
=GETPR+ 
=GETPRI 

GETPR2 

GETPR3 
=GETPRO 

GETRG+ 

GETST* 

GETST1 

GSBSTK 

HEXDEC 
=INVE SP 

KMENCK 

KYARGS 

KYFND+ 

KYNRG+ 

LOCNIO 

LOC SET 

LINHA+ 
=LIST 
=LIST* 

LIST10 

LIST20 

LIST 

LIST5O 

LIST60O 

LIST65 

LIST?5 

LIST&O 

LISTOC 


Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Rbs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 


28398 
28401 
28394 


194715 
28310 
28445 
28443 


28441 
27794 


26927 
26940 
26871 
26882 


27640 
27637 
27643 
27646 
27668 
276H 


193955 
26364 


27254 
27258 
27299 
27306 
27219 
27315 
27326 
27338 
27369 
27382 
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#O6EEE 
HOGEF 1 
#O6EER 


#2F 838 
#06E96 
#O6F 1D 
HOGFIB 


HOGF19 
#06C92 


#0692F 
#0693C 
#068F 7 
#06902 


HOGBF 8 
#O6BF5 
#OOBFB 
HOOBFE 
#06014 
HOOBEE 


#2F5R3 
HOGGFC 


#06R76 
#06A7A 
#OGAR3 
#OGRAA 
#06R53 
#06RB3 
ROGRBE 
#06ACA 
#OGRES 
HOGAFS 


2318 
2629 
2630 
2628 
2456 
792 
12 
2507 
270 
2729 
624 
249 
323 
1268 
1739 
1255 
2281 
2728 
2232 
2232 
1092 
1098 
1072 
1076 
1076 
1901 
1900 
1903 
1904 
1913 
1899 
637 
2275 
1603 
12 
849 
675 
2358 
2335 
2342 
2386 
1611 
696 
1278 
1569 
1570 
1582 
1585 
1553 
1592 
1535 
1600 
1611 
1621 
1542 


218 
2632 
796 
1171 
661 


1585 


2674 
326 


1084 
1077? 


739 


1912 


2259 
1020 
686 


1546 
1580 
1574 
1633 


1609 
1566 


2277 
2628 


2241 


1582 


1697 


2321 


157? 
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LISTP Ext - 1543 1567 
LNARGS Abs 274% HO6B62 - 1741 1608 2507 
LOCADR Ext = 269 


LSTDON Rbs 27411 #06813 - 1635 1625 1697 1749 1752 
LSTER Abs 27223 #O6A57 - 1555 1550 1583 1598 
LSTEXT Abs 27208 HOGAMS8 - 1549 1586 
LSTKEY Ext - 1564 
=LSTLEN Abs 27687 #O6C27? - 1964 
=LSTLN+ Abs 27678 #O6CIE - 1962 1281 
LSTLOK Abs 27732 #O6(54 - 1980 1971 
LSTPOL Abs 27227 #OGAS5B - 1559 1593 
LSTXKY Abs 27237 #06R65 - 1564 1596 
MERGO4 Abs 27850 #O6(CA - 2250 2287 
MERGO6 Abs 27853 #OBCCD - 2252 
NERG3O Abs 27911 #O6D07? - 2275 2256 
MERGSO Abs 27960 #06038 - 2293 2311 
MERG5SS Abs 28024 #06078 - 2316 2295 
MERG6O Abs 28035 #06083 - 2320 2317 
MERG61 Abs 28041 #O6D89 - 2321 2377 
MERG62 Abs 28072 #O6DA8 - 2334 2257 
NERG6S Abs 28111 HOGDCF - 2348 2344 
NERG6? Abs 28118 #O6DDG - 2354 2337 
NERG6S Abs 28172 #OGECL - 2381 2361 


MERGDC Ext - 2236 
=MERGE Abs 27814 #OBCAG - 2238 
MERGEP Ext - 2237 
a - 1182 
MFWRQS Ext - 1974 
MLFFLG Abs 194672 #2F870 - 12 1570 
NOVEU2 Ext - 235 
NOVEU4 Ext - 2393 


MRGERR Abs 27790 HOBCBE - 22H 2213 2223 2239 2250 2683 
MRGEXT Abs 27751 #O6(67 - 2212 2242 

NRGFIN Abs 27800 #O6C98 - 2234 2226 

MRGKEY Abs 28144 ROGDFO - 2365 2395 

MRGPOL Abs 27766 HO6C76 - 2219 2248 

MRGUP1 Abs 28236 HOGE4C - 2440 

ARGUPD Abs 28218 HOGE3A - 2432 2293 2365 


MVIEN+ Ext - 1176 

NOSCRL Ext - 313 

NXTLIN Ext - 2296 2516 
NKTSTM Ext - 1181 

OBCOLL Ext - 1985 

OBLCMP Ext - 1966 

QUTBS Abs 193935 #2F58F - 12 1688 2298 
OUTBYT Ext = 1962 

QUTNBS Ext - #715 1073 


PARNXQ Abs 27527 #OGB87 - 1808 1160 1594 2252 
=PCEXPR Abs 26664 06828 - 791 665 


PEDITN Ext - 2310 
=PLIST Abs 27200 HO6R4O - 1545 
POPBUF Ext - 316 
POPSTK Ext - 2329 
POll) Ext - 1756 


PRINTt Abs 1 #00001 - 11 1545 
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PRNSV Abs 28238 HOGE4E - 2442 2336 2508 
PRNSV2 Abs 28298 ROBESA - 2465 2448 
PRNSVS Abs 28340 #O6EB4 - 2519 2514 
PRISV? Abs 28344 ROGEB8 - 2521 2350 
PRNXQO Abs 27549 #O6B9D - 1816 1240 
PRNXQ1 Abs 27588 #OOBC4 - 1832 1827 
=PRPSND Abs 27415 #06817 - 1683 1613 
PRTHD3 Abs 26747 #0687B - 856 844 
=PRTHDC Abs 26689 #06841 - 837 775 
PSHADR Abs 27890 #OGCF2 - 2266 2278 2355 


PSHUPD Ext = -2e?2 
PURGDC Ext mo TES 

=RDENTY Abs 27173 #O6AZ5 - 1316 1098 
RMENCH Ext - 2286 
ROMF-1 Ext - 373 688 
RPTKY Ext ee <1 

=RSTDO Abs 26674 #06832 - 796 791 
S-RO-O0 Abs 194673 #2F871 - 12 246 
S-RO-1 Abs 194678 #2F876 - 12 215 228 287 
S-RO-2 Abs 194683 #2F87B - 12 220 318 
S-RO-3 Abs 194688 #2F880 - 12 154 381 
S-R1-1 Abs 194694 #2F886 - 12 1606 1694 
SAVDO Ext - 615 
SCRLLR Ext - 243 
SENDEL Abs 97729 #17001 - 13 1692 


SNDWD+ Abs 97823 #1 7E1F - 13 1691 
=WSRO-3 Abs 25504 #063R0 - 154 201 364 

ZERPGM Ext = 

ave=di_ Ext - 623 640 

bserr Abs 26079 #OG5DF - 359 327 339 678 1555 2230 

cati? Abs 25905 #06531 - 283 293 

catcrd Abs 25627 #0641B - 173 355 

ct$crd Abs 26422 #06736 - 699 683 


deplin Ext - 1287 

eFPROT Ext - 1914 

eFSPEC Ext - 675 

eFTYPE Ext = 2228 

eL2LNG Ext - 1973 

eolxc+ Ext - 177 1873 
fBASIC Abs 57876 HOE214 - 11 2567 

FKEY Abs 57868 #0E20C - 1 “2572 
findlO Abs 27479 #06857 - 1737 1745 2513 
fltdh Ext - 643 

invarg Abs 27624 HOOBES - 1846 1843 

kKRBOT = Ext - 256 

kHDOWN Ext - 250 

kHTOP = Ext - 254 

k#RUP Ext a. ee 

IDATEh Abs 6 #006 - 11 742 = 761 
YEOL Abs 2 RON? - 11 1744 
1FNANh Abs 16 #00010 - 11 724 «©6725 287) 298726740 
IFTYPh Abs 4 #00004 - 11 1904 1906 
ITINEh Abs 4 #00004 - 11761 


nxtstr Abs 27018 #O698R - 1181 196 314 1635 223 2330 
oF LENH Abs ec HOOOLO - 11 271. 298) 740) 1600) 2731 
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oF TYPh Abs 16 #00010 - 11 1600 1903 2562 2566 
obcoll Abs 27745 #06C61 - 1985 447 788 
pCAT Abs 6 #00006 - 11 350 
pCAT$ Abs ? #00007 - 11. 670 
pLIST Abs 12 HOOOOC - 11 1552 
pLIST2 Abs 46 HOOOZE - 11. 1860 
phERGE Abs 13 #O000D - 41 2215 
pMRGEZ Abs 47 #OOO2F - 11 2222 
pPOLL2 Ext - 351 


=pPOLL3 Abs 27776 HO6C8O - 2223 1562 
poll Abs 27521 #06881 - 1756 349 669 1551 1559 2214 2221 
popbuf Abs 25993 #06539 316 «6185 =6©240 = 3308S 393 


pshupd Abs 27905 #06D01 - 2272 2269 
ronchk Ext - 365 397 
ronfnd Ext - 387 
savelO Ext - 1276 
tALL Ext - 203 
tCARD = Ext - 168 
tCONNA Ext - 1575 1817 
tEOL Ext - 2455 


tKYSck Ext - 29 1679 
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Input Paraneters 
Source file nane is SG&SYS::NS 
Listing file nane is SG/SYS:TI:NL::-1 
Object file nane is SG£SYS:TI:NS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 
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| STITLE RUN/CONT/CHAIN 
9 k 
3 x J PPPP & SSS. Y ¥ SSS 
4 x JP P8&& S$ S¥ ¥ S$ SF 
5 - JP P && S§ YY § 
6 x J PPPP & SSS Y SSS 
7? x J P & & & S Y S 
8 nt ee ee && $ § v ae 
9 : JJ] oP 8 & SSS Y SSS 
10 
11 TITLE Systen Connands, RUN Loop<831212.1204> 
12 O6F 2F JPSYS ABS #O6F 2F 
13 RDSYMNB TIZEQU: = AS 
14 RDSYMB SBZRAN: : MS 
15 JOO COO TRI TA IIIT IIT SIS IIIT ISI IIIT IIS ISITE IIA IA 
16 JI II IIE III TI RIOT TTI IIIT IIIS AISI TAIL IAI IIIA 
17 kk 
18 xx Nane: RUN - $taterent Execution 
19 ** Nane: CONT - $Statenent Execution 
20 ** Narie: CHRIN - Statenent Execution 
21 ** Nane: EXITRN - Statenent Execution 
22 ek 
23 kk Category:  STEXEC 
24 ik 
25 ** Purpose: 
26 ak Execute RUN and CONT Staterients and Keys 
2? ak Execute CHAIN statenent 
28 . Exit fron progran (BASIC/Binary) 
29 
30 ** Entry: 
31 ak RUN: DO past RUN token 
32 me CONT: ODO past CONT token 
33 a CONTK: CONT key entered 
34 ak RUNK: RUN key entered 
35 a CHRIN: DO past CHAIN token 
36 iC EXITRN: Clears PRGM annunc,prgn flags, exits BASIC 
37 
38 SP CERET: 
39 ae Through BSCEX2 
49 ae Run fron 00 
4\ an Through NXTSTN 
42 _ If Null Progran (NOP) 
43 ae or Line# not found 
44 = Through CRGIMP,EXITRN 
45 ba If Binary progran 
46 ah 
47 AK Error Exits - Through BSERR ’cus of POLLing 
48 AX eSTMNF Staterient not found 
49 aR Line# not found (if not in PRGMSCOP 
50 ae eF TYPE Illegal File Type 
51 RK fron PRSCOP of Current File 
52 = If RUN File # BASIC 
53 a eF SPEC Illegal File Specification 
54 zt eFnFND File to RUN not found 
55 a eMEn Not enough nenory to save file info 
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56 si Not enough nenory to copy in file 
57 ih eFEXST File to COPY/RUN exist in main nenory 
58 x 
59 tk Calls: PRSCOO, RUTCLR,FINDLR, LBLRCK,FINDLB,NULLP, 
60 ae CHAING ,GETSTC, CRLFOF , SCOPCK,EDIT20,FSPECx, COPYu, 
61 ae FINDF, SFGPGMN,DO=PCA,COLLAP, PRGFMF,CURDVC, SAVPCr, 
62 ae RDHDR1 , BASCHK, POLL, OLFIBA, STNBCL, CNTCHK,ALINFO, 
63 aa SVINFO, CLPSTK 
64 ke 
65 *k Uses: A-D,CNTADR,DO,D1,S13,sCONTK (S9),sCONT (S10) 
66 ae sCHAIN (S11),S-RO-1,S-RO-2,sDEST ($3), sREADI(S4), 
67 ax SRUNBn (S4), sMAINc (S5) 
68 ae RO-R3,All of FUNCTION scratch, STNTDO, STNTR1, 
69 $1, 52, S6,88,S9,S7,SCRICH (32 nibs),S-R1-0 
70 x 
71 ax S-RO-1 = Saved DO 
72 a STHTDO = Save status (COPYu uses STNTRO&1) 
73 
: 74 &* Stk lvls: 7? 
‘ 75 ax 
76 ** Detail: CONT [ <lineno> | <label> J 
77 ax RUN [ <file spec> ] [, <lineno> | <label> ] 
78 ak RUN <lineno> 
79 am CHAIN <file spec> 
80 ax 
81 ** Algorithn: 
82 tx 
83 kk CHAIN: Set CHAIN flag (sCHRIN) 
84 ak goto 0.2; 
85 ek CONTK: Set CONT flag (sCONT) 
86 tk goto 0; 
87 kx RUNK: Clear CONT flag 
88 ke 0: Set CONT | RUN Key (sCONTK) 
89 kk Send Carriage Return/ Line Feed (CRLFOF ) 
90 ax goto 1.5; 
94 kx CONT: Set CONT flag (sCONT) 
92 RK goto 1; 
93 ak RUN: Clear CHAIN flag (sCHRIN) 
94 ae 0.2: Clear CONT and CONT Key flags (sCONT, sCONTK 
95 kh If File Spec follous (tRFILE) 
96 ax Skip token 
97 ax Execute File Specification (FSPECx) 
98 aX If Illegal File spec (Carry set) 
99 ae Error --> Illegal File Spec (eFSPEC) 
10 ax else 
101 ae Save filenare (R1) 
102 ax Save Prgn Counter - relative (SAVPCr) 
103 ae Clear Dest flag and MAIN Chain flag 
104 ax If no device spec & CHAIN 
105 + Set MAIN Chain flag 
106 kk If External Device | CARD | Ext CHAIN stut 
107 am 0.3: Allocate Save area (ALINFO) 
108 kk Save Source inforration (SVINFO) 
109 ak Set Dest Device = MAIN 


110 am Save Destination inforn (SVINFO) 
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111 ax External Device flag = sDEST 
112 ke If CHAIN 
113 ax Save status (RSTK) 
114 ae Get current file device (CURDVC ) 
115 KK Purge current file (PRGFNF ) 
116 a Error if carry set 
11? ae Restore Status 
118 am If External Device (sMAINC ) 
119 a Copy file into nainfrane (COPYu) 
120 ke Set D1 @ File start 
121 ax else 
122 aw If MAIN Chain 
123 ax Restore filenane fron SAVSTK 
124 kk else 
125 ak Restore filenane fron R1 
126 Kx Find file (FINDF ) 
12? ax If not found ---> (eFnFND) 
128 ka If CHAIN 
129 am Release SAVE Stack area (CPYEXT) 
130 ak Error Exit 
131 a 0.7: Clear RUN Binary flag (sRUNBn) 
132 KK Read file header (RDHDR1 ) 
133 ax 0.8: If not BASIC file (BASCHK ) 
134 x If not Binary 
135 ae POLL for Run w/ Unknown File Type (POLL) 
136 ax Error Exit if Return (RUNERR ) 
137 - Set RUN Binary flag (sRUNBn) 
138 ae Reset CURRST/EN (EDI 120) 
139 mo goto 2; 
140 zx 1: Save Prgr Counter - relative (SAVPCr) 
141 ax 1.5: Clear RUN Binary flag (sRUNBn) 
142 wk Read Current file header (RDCHDR) 
143 ae If not BASIC file (BASCHK ) 
144 ax goto 0.8 
145 ae 2: If not (CONT and CNTADRKO) 
146 mK Pos to file start ufo Ftype Chk  (GETSTC) 
147 ae Collapse stacks/zero prgn nenro  (CLPSTK) 
148 7 Set progran scope; (PRSCOO) 
149 ax Delete FIB, collapse ASSIGN table (DLFIBA) 
150 ax Chain current progran (CHAIN+) 
151 KA Clear AUTO node (AUTCLR) 
182 Ae If RUN Binary 
153 a Position to first line of file (GETSTC) 
154 an goto ?; 
155 aK If CONT | RUN Key (sCONTK) 
156 x Run with no paraneters (goto 5) 
15? +* If CHAIN 
158 a Run with no paraneters (goto 5) 

* 459 ae Restare DO (S-RO-2) 
160 ax Read and skip token 
161 kx If corna 
162 a Read and skip next token 
163 ae If line# 
164 = Skip Junp address and Read line# 


165 a Find line# across Prograr file (FINDLR) 
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166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
194 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
203 
210 
211 
2t2 
213 
214 
215 
216 
217 
218 
219 
220 
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xx 

pe 

ax 

aK 

x 

ak 

aa 

ak 

kok 

xs a 
ak 

tok 

x 4: 
tok 

ik 

Jo 

Sok 

x 

kok 

tok 

a 5: 
wm 

tk 

tox 

tok 

tok 

tk 

** 6: 
ek 

tek 

tok 

os ts 
ae 

tok 

tok 

we 

tok 

1k 

1k 

1k 

kk 

dk 

** History: 
dk 

xk Date 
PR eet ae 
x 10/20/82 
&K 11/19/82 
*k 11/22/82 
eK 12/18/82 
&* 01/19/83 
* 03/18/83 
x 03/23/83 
+k 03/23/83 
x 03/23/83 
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If found (Carry set) 


If line# NOT within Progran (SCOPCK) 
Error --> Line# not found 

Position to EOL | @ (DO <-- D1-2) 

goto 6; 


else 
If line# > found ($1=0) 
goto 6; 
else 
Do nothing/Return (NXTSTM) 
Check if Label (LBLRCK) 


If bad label (Carry set) 


Error --> Label not found 


If label reference (S8=1) 


Find label within Progran Scope(FINDLB) 
If found 


Collapse Math stack (COLLAP) 
goto 6; 
else 
goto 4; 
No Paraneters 
If NULLP ---> Return (goto 3) 
If CONT (sCONT) 
If CNTADR # 0 
DO <-- CNTADR 
goto 6; 
Get first line of progran (GETSTC) 
If CONT 
Preserve DO 
Collapse Statenent Buffer (STNBCL) 
Restore DO 
Clear SUSP Annunc (CLSUSP) 
Set PRGM Annunc, PgriRun flag (SFGPGN) 
If RUN Binary 
Load Binary File type into A (fBIN) 
Poll for RUN non BASIC file (POLL) 
Junp to start binary address 
else 
Set Prograrn Running flag 
go RUN Basic (RUNEX2) 
Progranner Modification 
JP Conriented CHAIN/RUN external code 
JP Added back/resrote CHAIN/RUN code 
JP Error Exit to BSERR, Error#=LC(4) 
JP CHRIN+ call change, CLSUSP call 
JP Moved CLPSTK/DELFIB @ RUNO75 
JP Packed CLSUSP ’cus SFGPGM does it now 
JP Using S-RO-1 instead of STNTRO+64, 
JP Using S-RO-2 instead of PRNCNT 
AP Changed sCONTK,sCONT to $9,510 
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221 ** 63/24/83 JP CHAIN has no [<statenent id> ] 
222 *k 04/04/83 JP eFSPEC if no filenane with RUN 
223 kk 04/05/83 JP Allow no filenare if :CARD/PCRD 
224 **k 04/21/83 IP CLRST after Binary return 
225 *k 04/21/83 IP Don’t clear PRGN,PgnRun after Binary 
226 ** 04/26/83 IP If PgnRun, check exceptions@RUNRT1 
227 ** 05/02/83 JP Packed explicit status clear @ RUN 
228 &k 05/02/83 IP CHAIN wf error nust CLPSTK,clr PgnRun 
229 **°05/05/83 = IP CHAIN uf ALL errors;CLPSTK,clr PgnRun 
230 ** 06/05/83 = JP RTN to Binary progran; don’t CRGJMP 
231 ** 06/10/83 = JP CHAIN doesn’t close open files 
232 &k 06/30/83 JP Collapse Math Stack after LABEL eval 
233 Kk 08/11/83 JP Use STNTDO instead of S-RO-2 for Statu 
234 xk SR# 998-5, 999-3 
235 xk 08/12/83 IP Clear PgnRun after Purge Current file 
236 a for CHAIN: SR#997-7 
237 kx 
238 JOIST IOC ISI GOOG IIIS TAK 
239 JIGS III IIIS IG IGG IOC IIIT TI IOC 
240 JOO ISO III TO OTT III IIT T II SOTTO TTI SS TA 
241 JOSIE IOS ISIC TOTTI STII IS IIIT IIIT SII SSA: 
242 ae 
243 . Nane:(S) pRUNft - Poll on RUN with unknown filetype 
244 x 
245 ** Category: POLL 
246 ex 
247 ** Type: POLL 
248 ax 
249 ** Purpose: 
250 a Poll on RUN with file of "unknown" filetype 
251 ae Filetype 1s NOT BASIC or Binary 
252 a 
253 ** Should poll be "Handled" (return with XM=0)?: 
254 ae No - this is a take-over Poll 
255 as 
256 ** Meaning of "Handling" Poll (what does code do if handled’): 
257 Ax Take over the RUN execution of the file 
258 a 
259 ** Entry conditions for handler (registers, ST, RAN, etc.): 
260 ax B[A] = Poll nurber (pRUNFt) 
261 ae HEX nade. 
262 ae P=0, 
263 = ACA) = File type (HEX) 
264 ae R2(A)= File type (HEX) 
265 ax D1 @ File length (offset) field in file header 
266 i 5 nibble read @ 01 = Offset to next file 
267 ae Current D1+ offset --> Next file start 
268 pe 
269 ax CAT file length = 
270 ax File offset value - Offset to data of file 
271 ax 
22 + sCONT = 1 1f CONT ($10) 
273 De sCONTK = 1 if CONT/RUN key ($3) 
274 ae sCHAIN = 1 1f CHAIN statenent (S11) 
ak 


275 


pep 
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276 ** Nornal exit conditions from handler if handled (ST, RAN, 
277 ** registers, etc.): 

278 a Carry clear 
279 ae HEX node. 
280 an xM=0. 
281 ae GOVLNG to MAINOS 
282 ak or 
283 a GOVLNG to BSCEXT to exit the BASIC interpreter 
284 a This 1s done by BASIC and Binary prograns 
285 RK Filetype read, Buffers are flushed 
286 ak A fast poll is issued: pBSCex 
287 an 
288 KR See NOTE below 
289 KR 
290 as 
291 kk Nornial exit conditions fron handler if not handled (ST, RAN, 
292 ** registers, etc.): 
293 aK Carry clear 
294 ak HEX node. 
295 aR XMN=1. 
296 xn Preserve Status 
297 ax 
298 xk Error exit conditions fron handler 
299 AR Error returns are ignored. 
x0 KR If the POLL returns: 
1 kk If carry set ---> “eMEM fron POLL 
H2 aR else ---> "eF TYPE" fron RUN 
03 aR 
4 ** Available subroutine levels: 7 
5 aR --POLL handler is one level shalloner than caller-- 
W6 ax RUN is a top level statenent/connand 
7 kk 
8 ** NOTE: 
9 aS Any Lex File running a non BASIC file should: 
310 aK Clear the SUSP annunciator 
311 an Set the PRGNM annunciator (see SFGPGN) 
312 ax Collapse all BASIC stacks (see CLPSTK) 
313 Set CURRST, CURREN @ file (see EDIT20) 
314 
315 aR Responder should issue a pRUNnB (RUN non BASIC) Poll 
316 ak The tainfrane issues a "pRUNnB" uwhen 
317 a running a Binary file with the filetype in ACA) 
318 x 
319 ** What registers/RAN nay be used if handled?: 
320 aR --A-D, DO, D1, P aluays available-- 
321 — RUN is in conplete control at this point 
322 xk 
323 ** What registers/RAN nay be used if not handled?: 
324 cata --A-D, DO, D1, P always available 
325 ak Global status ($12-S15) are sacred 
326 xk 
327 ** What registers/RAM nay be used if error exit?: 
328 aa No error exit allowed 
323 xR 


330 *k Envisioned application(s): 





“em 
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331 . Extend RUN staterent to handle other file types 
332 ‘ 
333 *& History: 
334 x 
335 ae Date Progranner Modification 
336 KX VeeieceGee  ~eticnuaed ‘stu svui coos cee conote neste cece 
337 ak 09/16/82 IP Added Poll 
338 xk 01/16/83 IP Check carry fron Poll 
339 kk 04/19/83 JP Updated Docunentation 
340 - 04/24/83 JP Changed entry conditions 
x 
np J IOI II SII KK TID I IAT IIIT III ID TAT I III IIT IAT SSO SSIS SI SSI IIA 
343 JI III DIDI TAT TT TIE IITA TTI TID AI IIIS III ISIS IIS III ISI III IA 
344 JOR III TT TOTO SI IIIT ASI III IIS IIIS III ISI IIA 
345 OI II TIDE TT TOT II III SIT III III IIS I SII ISIS ITS IA 
346 ak 
347 Nane:(S) pRUNnB - Poll before non BASIC file exec (BIN) 
348 x 
349 ** Category: POLL 
350 xk 
351 xt Type: POLL 
352 ak 
353 ** Purpose: 
354 at Poll before starting execution or continuing execution 
355 ae of a non BASIC file 
356 aK 
357 ae Poll before running a BINARY file 
358 a 
359 ae 
360 ** Should poll be "Handled" (return with XN=0)?: 
361 aX No - let this poll go to all other Lex files 
362 ae 
363 4% Meaning of "Handling" Poll (shat does code do if handled?): 
364 aS Perforn any "“systen" or special initialization needed 
365 a before Binary file 1s executed. 
366 BK 
367 ak 
368 ** Entry conditions for handler (registers, ST, RAN, etc. ): 
369 an B[R] = Poll number (pRUNnB) 
370 a HEX node. 
371 RR P=0, 
372 xR 
afd ae R2(A)= File type of file to execute 
374 * DO @ Start of code to execute 
375 AS BRSIC stacks have been collapsed 
376 aR 
377 ae General purpose poll 
378 oe 
373 ne Mainfrarne poll will ALWAYS be Binary exeucute 
380 AR R2(A)= FBIN 
381 = DO @ Start of binary file 
382 eis If sCONT (S10) = 1 
383 a Executing a CONT statenent 
384 ae CNTADR 1s always zero, unless a Lex file has 
385 an set this (see pBSCex Poll) 
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386 - Therefore, CONT is always a RUN 
387 ak If sCONTK (S39) = 1 
388 ah RUN or CONTK hit 
389 aK If sCHAIN (S11)= 1 
390 RR CHAIN statenent 
391 aK SUSP annunciator has been cleared 
392 ois PRGN annuciator and PgriRun flag have been set 
393 ak Current file pointers @ Binary file 
394 an 
395 5 Norrial exit conditions fron handler if handled 
396 
397 % This poll should NOT be indicated as handled so 
398 - other Lex files can "set-up" before execution. 
399 x 
400 aK If Lex file wants to be the ONLY Lex file to handle: 
401 aK then: 
402 ak 
403 ak Carry clear 
404 ak HEX node. 
405 aK XMN=0. 
406 ae DO nust be PRESERVED!!! 
407 Ak Preserve S3 
408 aK 
409 . Normal exit conditions fron handler if not handled 
410 
414 xs Carry clear 
412 aK HEX node. 
413 kK KM=1. 
414 Status intact: sCONT(10), sCONTK(S9), sCHAIN(S11),S3 
415 x 
416 4k Error exit conditions fron handler: 
417 a Error return has no meaning --- 
418 kK 
419 *k Available subroutine levels: 
420 ak --POLL handler is one level shallower than caller-- 
421 aR 
422 ak This is a RUN... therefore all levels (6) available 
423 ak Must be able to return to POLL routine 
424 aR 
425 ax NOTE: 
426 ak See Special nenory/pointer considerations 
427 xk What registers/RAM nay be used if handled?: 
428 kx --A-D, DO, D1, P always available-- 
429 a --RO-R4, scratch RAN?-- 
430 ax 
431 *k What registers/RAM nay be used if not handled?: 
432 aK --A-D, DO, 01, P aluays available 
433 ak --RO-R4, scratch RAN?-- 
434 xx 
435 *k What registers/RAM tay be used if error exit (POLL only)?: 
436 xk No error exit allowed 
437 ak 
438 Special nenory/pointer considerations (are pointers funny?): 
439 k 


440 *X Binary Files will aluays be RUN/CONT fron the start of 
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44) xk tthe file... it is “impossible” to systenatically 

442 kk return a meaningful CONTinue address through the BASIC 

443 *k loop. If a Binary file uishes to inplenent CONT... 

444 4k it should respond to the pBSCex poll: 

445 RE If current filetype is Binary and sERROR=1 

446 ak Update CNTADR @ Binary code to CONTinue at 

44? aK Set the SUSP annunciator (SFLAGs) 

448 a 

449 *k If a Poll Handler intends to CALL BASIC from within: 

450 *k Return Address to Poll must be saved on the GOSUB stack 

451 ak (Use PSHUPD and POPUPD) 

452 ak The FORSTK must be adjust OVER the Poll Save infornation 

453 ah before the CALL and readjust after. CALL uses the 

454 ax FORSTK pointer to save information and if FORSTK is 

455 ak not adjusted, Poll Infornation is overwritten 

456 ax 

45? aK Before CALL After CALL 

458 ah 

459 ak Di=(5) =FORSTK 2 

460 aK A=DAT1 A : 

461 aK C=0 A . 

462 ak LC(2)  =1POLSV a“ 

463 als A=A-C OR A=A+C OA 

464 ak DATI=A A DATI=A A 

465 ae 

466 xk Envisioned application(s): 

467 as Set up 1/0 buffers before Binary execution or sone 

468 as type of non-BASIC file. 

469 aR 

470 *k History: 

471 ig 

472 BX Date Progranner Modification 

473 KK. iwoccesee ‘Seleecesies. -Slsacc acco cceeesce sce peewee cece see 

474 tk 8609/16/82 IP Added Poll 

475 ek 01/16/83 JP Generalized Poll for any file type 

476 Kk 04/22/83 IP Upgraded docunentation 

477 ak 04/25/83 JP Pass File type in R2 instead of A 

a 

a FOR OO TOI IOI OI III TOTO TO IT TOK 

480 JU II TTT TTI TTT T IIIA SSR IIIS IA 

431 . 

482 * CHAIN Entry 

483 x 

484 O6F2F 0000 REL(5) =RUNDC CHAIN Deconpile 

0 
485 Ob6F 34 0000 REL(5) =CHAINP CHAIN Parse 
0 

486 O6F39 85B =CHAIN ST=1  sCHAIN Set CHAIN flag 

487 O6F3C 6130 GOTO RUNO15 

488 : 

489 * CONT Key Entry 

4% x 

491 O6F40 85A =CONTK ST=1 = sCONT Set CONT flag 

492 O6F43 6600 GUTO RUNOOS 


493 


x 
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494 * RUN Key Entry 
495 * 
496 06F47 84R =RUNK ST=0 = sCONT Clear CONT flag 
497 O6F4R 859 RUNOOS ST=1 = sCONTK Set CONT/RUN Key flag 
498 O6F4D 7CC3 GOSUB CrLfof Send CR/LF to clear display 
499 O6F51 6371 GOTO RUNO70 
500 i 
501 * CONT Entry 
502 x Must clear Staterient Buffer if CONT entered 
503 * This prevents a return to the statenent buffer, when continu 
504 x a progran initiated fron the keyboard, with a prior stat 
505 : RA null statenent buffer will prevent the return to keyboard 
506 
507 O6F55 0000 REL(S) =CONTP CONT Parse address 
0 
508 O6F5R 85A =CONT ST=1 = sCONT Set CONT flag 
509 O6FSD 849 ST=0 — sCONTK Clear RUN/CONT Key flag 
510 O6F60 6061 _RUNO10 GOTO  RUNOES 
511 
512 * RUN Entry 
513 * Status are clear on entry 
514 * 
515 06F 64 0000 REL(S) =RUNDC RUN Deconpile 
0 
516 06F69 0000 REL(S) =RUNP RUN Parse 
0 
517 O6F6E =RUN 
518 O6F6E 14A RUNO15 A=DATO B 
519 06F71 3100 LC(2) =tRFILE Run File Spec 
4 520 O6F75 966 RHC OB No RUN File Spec ? 
521 O6F 78 8E GOYES RUNO10 
522 - 
523 * RUN <filespec> 
524 - 
525 O6F7A 161 DO=D0+ 2 Skip tRFILE 
526 O6F 7D 7000 GOSUB =FSPEC) Execute File Specification 
527 O6F81 541 GONC = RUNO20 Good File Spec 
528 06F84 8C0O RUNERR GOLONG =BSERR Error Exit 
00 
529 : 
5H x JUMP Back from RUNO20 code: 
531 . ; 
532 * If CHAIN and NO device specified 
533 x Set MAIN Chain flag and purge current file 
534 * else 
535 x Restore filenane 
536 ‘ go RUN in MAIN 
537 % 
538 O6F8A 87B RUNO17 ?ST=1  sCHAIN CHAIN ? 
539 O6F8D 55 GOYES RUNO34 Set NAIN Chain flag 
540 O6F8F 111 RUNO18 A=R1 Restore filenane 
541 06F92 6DCO GOTO  RUNOS53 RUN in MAIN 
542 . 
543 * If not CARD | PCRD device 


544 & If no filenare 
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545 x Error exit ---> eFSPEC 
546 * Save filenare (R1) 
547 * Save DO - relative position 
548 x 
549 O6F96 2F RUNO20 P= 15 
550 O6F98 307 LC(1) =dCARD 
551 O6F9B 20 P= 0 
552 O6F SD 943 =D) 6§ CARD device ? 
553 O6F AO DO GOYES RUNO22 Don’t check filenane 
554 O6FA2 970 PAHO OW Filenane ? 
555 O6FAS 80 GOYES RUNO22 
556 O6FA7 8(00 GOLONG =FSPCER eFSPEC if no filenare 
00 
557 O6FAD 101 RUNO22 R1=A Save filenane 
558 O6FBO 7D52 GOSUB SAVPCr Save PC - Relative Position 
559 O6FB4 843 ST=0 — sDEST Clear destination flag 
560 O6FB7 845 ST=0 = sMAINC Clear MAIN Chain flag 
561 O6FBA ACB C=D S D(S) = Device 
562 O6FBD B46 C=C+1i S§ Check for NO Device C(S)=F 
563 O6FCO 49C : GOC RUNO1? Nainfrane Run/CHAIN 
564 
565 * If external device | PORT & Chain 
566 x Allocate save area 
567 & Restore filenane 
568 & Save Source file information 
569 x Save Destination file information 
570 ; sDEST === External Device flag 
571 
572 O6FC3 A4E RUNOZS5 C=C-1 S$ Restore Device Type 
573 O6OFC6 A46 C=C+l § Check for External Device 
574 O6FC9 4B1 GOC  RUNO35 External Device 
575 O6FCC 2F P= 15 Check Device Type 
576 O6FCE 301 LC(1) dPORT 
577 O6FD1 20 P= 0 
578 O6FD3 9C3 Doc 8=§ not MAIN or PORT ? 
579 O6FD6 FO GOYES RUNO3S External Device 
580 O6FD8 86B ?$T=0 sCHAIN not Chain ? 
581 O6FDB 4B GOYES RUNO18 RUN fron “internal” device 
582 O6FDD 943 7C=D «6S PORT ? 
583 O6FEO 50 GOYES RUNO35 Not MAIN chain 
584 & 
585 * External Device 
586 x sMAINc set if CHAIN with Mainfrane Device type 
58? t 
588 O6FE2 855 RUNO34 ST=1 = sMRINc Set Mainfrane CHAIN flag 
589 O6FE5 SEO0Q RUNO35 GOSUBL =ALINFO Allocate save area 
00 
59 O6FEB 489 RUNERS GOL RUNERR Error Return 
591 O6FEE 111 A=R1 Restore falenane 
592 O6FF1 &E00 GOSUBL =SVINF + Save source infornation 
00 
593 O6FF? AFO A=0 W Clear destination filenare 
594 O6FFAR D3 D=0 A Destination device = MRIN 
595 O6FFC 853 ST=1 — sDEST Set destination flag 


596 OOF FF 8E00 GOSUBL =SVINFQ Save destination infornation 
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oo 

597 x 

598 * Tf CHAIN 

599 * Save status 

600 k Get current file device 

601 x Purge current file 

602 z Clear progran running flag 

603 a If error within COPYu 

604 : Prevent SUSP into newly EDIT workfile 

605 

606 07005 86B RUNO40 ?ST=0 sCHAIN not Chain ? 

607 07008 C1 GOYES RUNO45 

608 0700A OB CSTEX Save Status, cus PRGFNF destroys 

609 07000 06 RSTK=C , 

610 O700E 8&00 GOSUBL =CURDVC Get current file device 
oO 

611 07014 8EOO GOSUBL =PRGFNF Purge current file 
00 

612 0701 40D GOC RUNERS Error return 

613 07010 84D ST=0 = PgnRun Clear progran running flag 

614 07020 07 C=RSTK 

615 07022 OB ; CSTEX Restore Status 

616 

617 * If external device (not Mainfrane CHAIN) 

618 x Save status 

619 & Copy file into nainfrane 

620 x Restore status 

621 x Set D1 @ file start 

622 x 

623 07024 875 RUNO45 ?ST=1  sMAINc NAINfrane chain ? 

624 07027 03 GOYES RUNOSO 

625 07029 OB RUNO47 CSTEX 

626 0702B 1819 DO=(5) =STATDO 
8F2 

627 07032 15C2 DATO=C 3 Save Status 0-3 

628 07036 8£00 GOSUBL =COPYu Copy file into nainfrane 
00 

629 0703C 1819 DO=(5) =STNTDO 
8F2 

630 07043 OA ST=C Preserve C(0-2) = Error Nun 

631 07045 15E2 C=DATO 3 

632 07049 0B CSTEX Restore status and €(0-2) 

633 0704B 405 Goc RUNER8 Error return fron COPY 

634 0704E 119 C=R1 C @ file start 

635 07051 135 01=C Set 01 @ file start 

636 07054 5E1 ; GONC  RUNOSS B.E.T. 

637 

638 : Filenane specified has no device or device=fMAIN 

639 

640 x If CHAIN 

641 x Restore filenane fron SAVE area 

642 x Shift device to D(S) 

643 * Find File to RUN/CHAIN 

644 x If CHAIN and PORT device 

645 x Go copy file in and Run 
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646 x 

647 07057 8E00 RUNOSO GOSUBL =RDINFS Restore filenane/device fron SAVE 
© 

648 0705) 817 DSRC Move device to D{S) 

649 07060 8E00 RUNOS3 GOSUBL =FINDF Find file to RUN/CHAIN 
00 

650 07066 453 COC RUNER8 File not found 

651 07069 86B ?$T=0 sCHAIN not CHAIN 7 

652 0706C 70 GOYES RUNOSS 

653 O706E 94F 70HO OS not MAIN ? (PORT) 

654 07071 8B GOYES RUNO47 

655 x 

656 * 01 @ Start of file to execute 

657 * Read file header u/ File Type (P=0 fron FINDF/COPYu) 

658 * If non-BASIC file 

659 x If Binary file 

660 z Set RUN Binary file flag 

661 x else 

662 x POLL on RUN with unknown file type 

663 x Error Exit ---> eF TYPE if no response 

664 x enmEM if carry set 

665 x 

666 07073 844 RUNOSS ST=0  sRUNBn Clear RUN Binary flag 

667 07076 7386 GOSUB RDHDR1 

668 0707A 70C6 GOSUB BASCHK Check if BASIC file 

669 0707E 533 CONC  RUNOGO A BASIC file 

670 07081 3440 RUNOS7 LC(5) =fBIN 
2EO 

671 07088 8A2 7A=C OR Binary file ? 

672 0708B 42 GOYES RUNOS8 

673 0708D 7756 COSUB Poll 

674 07091 03 CON(2) =pRUNFt RUN with unknown File Type 

675 07093 480 Goc RUNER8 Menory Error ? 

676 07096 3300 LC(4) =eF TYPE Tllegal File Type 
0 

677 x 

678 * If CHAIN and error after PURGED current file 

679 * Perforn ENDALL - Incase Prog was SUSP 

680 x 

681 0709C 86B RUNERS ?ST=0 sCHAIN Not CHAIN 7 

682 0709F CO GOYES RUNERS 

683 O70R1 06 RSTK=C Save Error# 

684 070A3 8E08 GOSUBL =CLPSTK Collapse stacks,etall 
CO 

685 070R9 07 C=RSTK Restore Error# 

686 O70RAB 68DE RUNERS GOTO RUNERR Must exit BSERR (due to COPYu) 

687 x 

688 * File specified is either BASIC or Binary 

689 * Pasition to file start, Update CURRST and CURREN 

690 * 

691 O7ORF 854  RUNOSS ST=1  sRUNBn Set RUN Binary flag 

692 O70B2 1CF  RUNO6O D1=D1- (oFLENK)-(oFTYPh) 

633 070BS 1CF D1=D1- (oFTYPh)-(oFNAMhH) Position to File start 

694 070B8 8£00 GOSUBL =EDIT20 Update CURRST/EN 


00 
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695 O70BE 541 GONC  RUNO75 BE: 
696 
697 * Save DO 
698 x 
699 070C1 7C41 RUNO6S GOSUB SAVPCr Save Progran counter - Relative 
700 * 
701 * At CURRENT file 
702 x Check Filetype 
703 x If not BASIC --> go check for Binary or POLL 
704 x 
705 * NOTE: If current file = BINARY 
706 * CURRST,CURREN are updated anyways to save code 
707 x Stacks are collapsed, also 
708 a 
703 * Clear AUTO Node 
710 x 
711 07005 844 RUNO7O ST=0 = sRUNBn Clear RUN Binary flag 
712 070C8 7226 GOSUB RDCHD+ Read current file hdr u/ File type 
713 O70CC 7E66 GOSUB BASCHK Check if BASIC progran 
714 07000 408 GOC RUNOS?7 Not BASIC 
715 - 
716 * If not (CONT and non-zero CONTINUE address) 
717 a Get start of current file 
718 z GETSTC must be called, then PRSCOO 
719 x Since PRSCOP errors out if Filetype # BASIC 
720 x RUN Binary file falls through this code 
721 % Collapse stacks, zero progran associated nenory 
722 a Set Prograri Scope, PRGMST, PRGMEN 
723 * If not CHAIN 
724 x Delete FIB u/o flushing 1/0 buffers, collapse ASSIGN tabl 
725 * Chain current progran 
726 x 
727 JI I 
728 * If CONT and non-zero Continue address, progran scope is valid 
729 x and cannot be changed---could be suspended within SUB progra 
730 x 


731 07003 7221 
732 07007 602 
733 O70DA 8E94 


CO 
734 O70E0 8ER9 

AO 
735 O70E6 878 
736 O70E9 90 
737 O70EB 8FOO 


000 
738 O70F2 8EA1 
BO 
739 O70F8 8E00 
00 
740 O70FE 864 
741 07101 AO 
742 
743 
744 


RUNO75 GOSUB CNTCHK CONT and non-zero Continue addr ? 
GONC = =RUN775 yes - don’t reset Progran Scope 
GOSUBL CLPSTK Collapse stacks/zero prgn nenory 
GOSUBL PRSCO- Get program Scope u/o File type err 
?$T=1  sCHAIN CHAIN ? 
GOYES RUN773 Don’t close files 
GOSBVL =DLFIBA Delete FIB, collapse ASSIGN table 
RUN?773 GOSUBL CHAIN+ Chain current prograri 
RUN775 GOSUBL =AUTCLR Clear AUTO Mode 
?ST=0 sRUNBn Not RUN Binary ? 


GOYES RUNO76 
x 


* If RUN Binary 
x Position to first line of Binary file 
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745 
746 
747 
748 
743 
750 
751 
752 
753 
754 
755 
756 
75? 
758 
759 
760 
761 
762 
763 
764 
765 
766 
76? 
768 


769 
770 


771 
772 
773 
774 
775 
776 
77? 
778 
779 
780 
781 
782 
783 
784 
785 
786 
78? 
788 
789 


790 
791 
792 
793 
794 
795 
796 


07103 7F16 
0710? 60D0 


0710B 879 
O710E 70 
07110 86B 
07113 60 
07115 6B80 


07119 1B67 
8F2 
07120 146 
07123 8E00 
00 
07129 C2 
0712B 134 
O712E 148 
07131 161 
07134 3100 
07138 966 
0713B 80 
0713D 142 
07140 161 
07143 3100 
07147 966 
O714A 83 


O714C 164 

O?714F 8FOO 
000 

07156 401 
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GOSUB GETSIC 
GOTO RUN160 


If CONT/RUN key 
If CHAIN 


Me OF OF Oe 


RUNO76 ?ST=1  sCONTK 
GOYES RUNO7?7 
?S$T=0 =sCHARIN 
GOYES RUNO80 
RUNO?7 GOTO = RUN120 


If conna (fron RUN) 


Look for Pararieters 


» % & & eM 


RUNO8O DO=(5) =S-RO-1 


C=DATO A 
GOSUBL =D0=PCA 


tCONNA 


A=DATO 
DO=D0+ 
RUNO85 LC(2) 
?RHC 
GOYES 


A 

B 

2 

B 
GOYES RUNO85 

A 

2 

=tLINE# 

B 

R 


UN110 
< lineno> 


Skip Junp Address 
Read and Find line# 


1 oF OF 


DO=00+ 5 
GOSBVL =FINDLR 


GOC RUNOS90 
If Line# # found 


Return / Do nothing 
If Line# > found 


ee ee ee 


Restore DO - Progran Counter 
Read and skip next token 


Read & skip next token 
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x (Filetype in R2 for pRUNnB Poll 
x Go set PRGM annunciator and RUN 
x 


Position to execution address 


go RUN with No paraneters to check 


go RUN with No paraneters to check 


CONT | RUN Key ? 


not CHAIN ? 
CONT or RUN u/o pars 


Relative position of PC 


Current DO 
Restore DO 
Read token 
Skip token 
not Conna ? 


Read next token 
Skip token 


not Line# * 


Skip jurp address 
Read & Find line# across file 


Line# found 


go Check if line# within Program scope 
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797 07159 871 
798 O715C 70 
793 O715E 860 
800 07161 60 
801 07163 6175 
802 

803 

804 

805 

806 07167 133 
807 O716A 7455 
808 O716E 4C0 
809 

810 

811 

812 

813 07171 10 
814 07174 181 
815 07177 6FH 
816 


817 

818 

819 0717B 8D00 
000 

820 

821 

822 

823 

824 

825 

826 07182 79A1 

827 07186 S4F 

828 07189 878 

829 O718C 51 

8H O718E AF8 

831 07191 71F5 

832 07195 45€ 

833 07198 8E00 
00 

834 O719E 581 

835 

836 

837 

838 O71A1 74F7 

839 O71A5 560 

840 O71A8 6BAO 

841 

842 

843 

844 

845 

846 


847 O71AC 7940 
848 071B0 5BO 
849 07183 7F65 


3:10 art 
Page 16. 
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*ST=1 1 Line#t not ee ? 
GOYES RUNEXT 

?8T=0 6 Line# > found 2 
GOYES RUNO90 


RUNERT GOTO) 3=Nxtstn Return/ Do nashina 


If line found NOT. aithin Program Scope 
% Error Exit 
x 


Nove Line# address to A 


RUNO9O ADIEX 
GOSUB Scopck Check if within Progran Scope 
GOC:  RUNER1 Not Within scope 
; Set DO = 01-2 
RUN100 DO=A D1 before SCOPCK call 
DO=D0- 2 
GOTO RUN140 go RUN / CONT 


x 


: Label Error 


=RUNER1 GOVLNG =STMINF Statenent not found 


& 
* <label> 
* If bad label or not in progran scope 
x Error exit ---> "Stnt Not Found" 
: Collaspe Math stack incase of expression evaluation 
RUN110 GOSUB LBLRCK Check if Label Reference 
GONC RUNER1 Bad label reference 
?ST=1 8 Not a label refernce ? 
GOYES RUN120 
B=A W 
GOSUB FINDLB Find label across progran 
GOC RUNER1 Label not found ‘ 
GOSUBL =COLLAP Collapse Math stack 
GONC RUN140 


B.E.T. 
* RUN | CONT with No paraneters 
x s 


RUN120 GOSUB NULLP Null Progran ? 


GONC RUNI25 no 
; GOTO  MLPEXT. Return to Main Loop 
* If CONT 
* If Continue Address # 0 
& Set Run Address @ CNTADR 


* Position to first line of progran 
x 


RUN125 GOSUB CNTCHK 
~ GONC — RUNT45 
GOSUB GETSTC- 


CONT and non-zero Continue adress 
go Run @ CNTADR 
Get carat line of -progran 
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850 » 
851 * DO @ Start of Statenent to Execute 
852 & es oy 
853 * If CONT 
854 % Preserve DO 
855 x Collaspe Statenent Buffer 
856 & Avoids subsequent "Return to Keyboard" to return 
857 : within new statenent buffer containing "CONT..." 
858 es 
859 071B7 86A RUNI40 7ST=0 sCONT not Continue ? 
860 O71BA 21 GOYES RUN150 a 
861 O71BC 136 RUNI45 COOEX Save DO on stack 
862 O71BF 06 RSTK=C 
863 07101 8E00 GOSUBL =STNBCL Collapse Statenent Buffer 
864 O71C7 07 C=RSTK Restore DO 
865 07109 134- DO=C 
866 & 
867 * RUN fron progran check 
868 * ITF Program running 
869 x Reenter BASIC loop @ RUNRT1 
870 & so Exceptions are checked 
874 : Prevents 10 RUN infinite loop 
872 
873 O71CC 86D RUNISO ?ST=0 PgnRun Progran not runing ? 
874 O71CF 60 GOYES RUN155 
875 07101 6513 ; GOTO RUNRTI Check exceptions before penn 
876 
877 * Entry point for SST 
878 * NoCont (S14) flag set 
879 x 
830 * Clear RUN Binary flag 
881 : Clear SUSP feruinciatoniriad: PROM Rnnunciator/F lag 
882 
883 071D5 844 RUNTSS ST=0 = sRUNBn Clear RUN Binary flag 
884 O71D8 7371 RUNES GOSUB SFGPGN Set PgnRun, PREM Annunciator 
885 ain (eg 
836 * If Binary run 
887 : R2 = Binary File type 
888 * Poll for RUN of non BASIC file 
889 : Junp to Binary file start address 
8H . 
891 O71DC 864 ?S$T=0 =sRUNBn Not RUN Binary ?? 
892 O71DF 61 GOYES RUN170 , 
893 O71E1 7305 GOSUB Poll 
894 O71E5 13 CON(2) =pRUNnB RUN urth non BASIC File 
895 O71E7 560 GONC =RUN165 MNenory Error ? 
896 O71EA 6990 GOTO  RUNERR (BSERR )} 
897 O71EE 136 RUN165 CDOEX Start of binary code 
898 O71F1 06 RSTK=C 
899 O71F3 01 RIN Junp to binary code 


900 
901 
902 
903 
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x 


* Go RUN BASIC fron DO 
* NoCont could be set fron SST entry @ RUN1SO 
x * 





Saturn Assenbler System Connands, RUN Loop<8312 Fri Dec 30, 1983 
Ver. 3.39/Rev. 2306 RUN/CONT/CHAIN 


904 O71F5 6442 RUN170 GOTO BSCEX2 go RUN 


3:10 an 


Page 


18 
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905 STITLE CNTICHK - Check for CONT and zero CONT address 
906 JIC IOI IOI OCC EIGER OTR OT I OK 
907 JOS IOI IOI GIGI IGISO IGT IK 
308 ax 
909 xk Nane: CNTCHK - Check CONT & non-zero CONT addr 
310 fe Nane: CHTCK2 - Check CONT & non-zero CONT addr 
911 x 
912 ** Category: LOCAL 
943 ae 
914 ** Purpose: 

915 ax Check if CONT and if Continue address 1s non-zero 
916 ke Check if non-zero Continue address 

917 ke 

918 kk Entry: 

919 ak CNTCHK: 

920 KK sCONT = 1 if CONT connand 

921 a 

922 KK Exit: 

923 ae Carry Clear 

924 an C(A) = Continue Address 

925 ax 0) = Continue address 

926 ka CNTCHK: CONT crnd and Continue address 1s non-zero 
927 ke CNTCK2: Continue address is non-zero 

928 ae 

929 ne Carry Set 

930 ar 

931 aa CNTCHK: Either NOT CONT corimand / Continue addr = 0 
932 an CNTCK2: Continue Address is zero 

933 kx 

934 kk Calls: None 

935 ak 

936 ak Uses. ...... 

937 ek Exclusive: €(A),00 

938 tk Inclusive: C(A),b0 

939 ae 

940 &* Stk lvls: 90 

941 ke 

942 * Detail: 

943 a This subroutine 1s necessary to deternine if the 
944 kx current progran/subprogran 1s suspended and a 

945 os CONTinue 1s requested. 

946 “HR 

947 ae The current PROMST and PRGMEN setting rust rerain, due to 
948 xm subprograns. 

949 at 

950 aa A non-zero cantinue address also indicates where to resur 
951 RR execution 

952 kk 

953 ae SST uses CHKCK2 

954 ee History: 

955 am 

956 *K Date Progranner Modification 

957 PEO Ree, wateaueteetay Stele eh eis kai AU ha dana 
958 eK 12/16/82 JP Added routine 


959 = Happy Birthday Carone and Harns ! 
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960 
961 
962 
963 O71F9 
964 O71FC 
965 O71FE 


966 07205 
96? 07208 
968 07208 
969 07200 
970 0720F 


2306 CNTICHK - Check for CONT and ze Page 20 


ax 
FORO OOO III 
FORO JOO TOIT TTT TOT TTT TT IIT TDI T II ITN 


86A CNTCHK ?ST=0 sCONT Not CONT ? 

00 RTNYES 

1BE7 =CNTCK2 DO=(5) =CNTADR 

6F2 

146 C=DATO A Read Continue Address 

134 DO=C Set DO = Continue Address 

ce C=C-1 A Check for zero Continue address 

E6 C=C+1 A 

01 RTN Return w/ carry set if zero address 
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971 STITLE SAVPCr - Save PC - Relative 
972 JOO IIIT TI OC IIIT III III IIIT I TIT IT 
973 JOOS OI ITI IIIT I TI III III III OTIS II III 
974 ax 
975 ** Nane: SAVPCr - Save Prgn Counter - Relative 
976 x 
977 ** Category:  EXCUTL 
978 ak 
979 ** Purpose: 
980 ed Save current DO as relative position fron PCADDR 
981 ak Useful if Memory Moves between DO save & restore 
982 xx 
983 *k Entry: 
984 ai DO = Current Progran Counter 
985 &k 
986 Kk Exit: 
987 ax Carry Clear 
988 ak S-RO-1 = Relative PC position fron PCADDR 
989 KK C(A) = Relative PC position from PCADDR 
990 xe A(A) = (PCADDR) 
991 kk DO @ S-RO-1 
992 ze 
993 ** Calls: DO=PCA 
994 aK 
995 BR SOG) coco 
996 kk Exclusive: A(A),C(A),DBO,S-RO-1 
997 xk Inclusive: ACA),C(A),00,S-RO-1 
998 ak 
999 ** Stk lvls: 1 
1000 hk 
1001 *k History: 
1002 EX 
1003 kk Date Progranrier Modification 
1004 MA? seek. oes “acetone lee poe tee cal es eases 
1005 kk 8607/15/82 JP Wrote routine 
1006 kK 03/17/83 IP Packed in call to DO=PCA 
100? a 03/23/83 JP Use S-RO-1 instead of STNTRO+64 
ee JOKE TI IIIA ID IT IIS IS II SSA 
1010 JO I IO I IO TIT III TS ITI IIS TIS IIS IIIS III IIIS IOI SI SSIS IIIA IAS 
1011 07211 136 SAVPCr CDOEX C <-- Current PC 
1012 07214 8E00 GOSUBL =D0=PCR A <-- PCADDR 
00 
1013 O721A E2 C=C-A A Relative offset fron PCADDR 
1014 0721C 1Be? DO=(5) =S-RO-1 
8Fe 
1015 07223 144 DATO=C A Save it 


1016 07226 03 RTNCC 
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1017 STITLE SST Execute 
1018 III RI ISIS IDI III IIIS ASIII TIS I III IIIS ISS IS IIIS IIS IIIS IS SIS SI SII IA 
1019 JOO ITS IIIT TOOT ATI AIS SSSI II III II SII SII ATI TK 
1020 as 
1021 xk Narie: SST - Execute Single Step 
1022 ae 
1023 ** Category: STEXEC 
1024 ah 
1025 xk Purpose: 
1026 ah Execute Single Step Cornand 
1027 xk 
1028 xk Entry: 
1029 ar SST Key pressed 
1030 ax 
1031 aK Exit: 
1032 me Through RUN150 to RUN Loop to Execute statenent 
1033 aR To MAINLP if Null Program 
1034 aE To END3O if CNTADR @ End of Progran 
1035 aR 
1036 ak Errors: 
1037 ak eFPROT File protected 
1038 ee eFTYPE Illegal File type (not BASIC - fron GETSTe) 
1039 x 
1040 x* Calls: AUTCLR,GETPRe, PRSCOP,NULLP, LOSST1,LOSST2,D1=TFB 
1041 ak CPLH15, LINHDC , CNTCHK,BLODSP,DSPCNO, KEY?, DEBNCE, 
1042 ei OUTZTC, CRLFOF ,NOSCRL, LOCSET,DLFIBA, CURSFL, LOCOMP 
1043 x 
1044 RE SCSiscwcces 
1045 *k Exclusive: sS$Tdc ($1),sSST ($2), TRFMBF (5 nibs) 
1046 xX Inclusive: A-D,DO,D1, RO-R2, S0-S3,$5-S8 
1047 at 
1048 *® Stk lvls: 7 
1049 an 
1050 &* NOTE: 
1051 xR 
1052 ** Detail: 
1053 2 The statenent line is displayed before executed 
1054 a Only the single statenent to execute 1s displayed. 
1055 aR The Line# precedes the statenent. 
1056 ax If part of a multi-statenent line, an “@" is 
105? ae displayed between the Line# and statenent start. 
1058 a If followed by another statenent, an "@ is displayed 
1059 x 
1060 aE For IF/THEN/ELSE 
1061 xe The IF clause is displayed with the THEN clause 
1062 a If a mnulti-statenent THEN 
1063 ax The first statenent is displayed 
1064 ak If the <expression> is false & the ELSE is a branch 
1065 * The ELSE clause is never seen 
1066 ak 
1067 RA Single stepping through: 
1068 =x 
1069 sa 10 LET A=B @ DISP A @ GOSUB "COMPUTE" displays: 
1070 x 


1071 ae 10 LET A=B @ 
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1072 aS 10@ DISP A @ 
1073 ak 10@ GOSUB "COMPUTE" 
1074 ak 
1075 *® NOTE: The Cont Address to single step from will ALWAYS 
1076 aK be past a trailing ELSE clause, thanks to the RUN Loop 
1077 aK 
1078 ** Algorithn: 
1079 aR 
1080 aE Send CR/LF (CRLFOF) 
1081 aK Clear AUTO Mode (AUTCLR) 
1082 aE If private file (GETPRe) 
1083 aK Error Exit 
1084 xk If CNTADR = 0 
1085 a Get progran scope (PRSCOP) 
1086 xk Delete FIB,Collapse ASSIGN table (DLFBIA) 
1087 ak If Null Progran (NULLP) 
1088 ax Return ~ Do nothing (MAINLP) 
1089 RR else 
1090 aE 5 If at end of program: CNTADR >= PRGNEN-2 
1091 aR Set SST @ End of progran flag (sSST) 
1092 ae go Wait for SST key, then END prgn (goto 20 
1093 ak Set SST Deconpile flag (sSSTdc) 
1094 ax Set NoCont Flag for Run Loop (NoCont) 
1095 aR Save RUN address @ TRFNBF (D1=TFB) 
1096 ak If Start of line (@ EOL) 
1097 a go Deconpile first statenent on line (LDSST1) 
1098 ax else 
1099 ae Compute current line# (CPLH15) 
1100 xR Set bounds for Deconpile (LOCSET) 
1101 a Output linet ( LINHOC) 
1102 ak Output "@ " (OUT2TC) 
1103 es Restore D1 <-- Start of statenent 
1104 ae Decompile statenent in rulti-stnt line(LDSST2) 
1105 a Set D1 @ Start Input Buffer 
1106 = Send characters to Display Buffer (SNDCHO) 
1107 ae Set No scroll needed at this tine (NOSCRL) 
1108 kk Send Cursor Far Left to see Ist 22 chars (CURSFL) 
1109 ah Build Display (BLDDSP) 
1110 ae Clear SST @ End of progran flag (sSST) 
1111 xk 62: ~If no keys in buffer (KEY?) 
T12 ca Wait for SST Key to go up (DEBNCE) 
AAS xk Send CR/LF with no delay (CRLF OF) 
1114 ae If SST @ End of progran (sSST) 
1115 ae go END progran (END25) 
1116 sa else 
111? a Restore Execution address (D1=TFB) 
1118 as go RUN --- Execute statenent (RUN155) 
1119 ae 
1120 ** History: 
1121 a 
ez Date Progranner Modification 
1123 FR nen nnn nn nnn nnn rn ene nen ee en ee ee eee neers 
1124 ** 01/11/83 = JP Wait for SST Key before END prgn 
1125 ee 01/31/83 = JP Added CURSFL call before BLDDSP 
1126 kk = 03/28/83 JP Save Run addr @ TRFNBF cus of 
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1127 k stack levels with Deconpile 
1128 Rk 04/25/83 JP Set NoCont after EOF check 
1129 KK 04/25/83 IP GOTO RUN155, avoid Exception check 
1180 ak 04/25/83 JP CLRST to distinquish frort RUN 
1134 ae 05/17/83 IP If SST@PRGMEN; check for ENDSUB/DEF 
1132 ek 05/17/83 IP Set NoCont before EOF check 
1133 incase SST @ "inplicit" ENDSUB 
ae FI IO TI TO ITD IIIT ATI I TI III I TSI ITI IIIT ISIS IIIT ISIS SI III II ITA 
1136 RIK II IIIT ISIS I IAI I LILI S II IRI ISIS ISIS IIIS IIIS II ISI ISS ASI SII IIIS: 
1137 07228 71FO =SST GOSUB CrLfof Send CR/LF 
1138 0722C 8E0O GOSUBL =AUTCLR Clear AUTO Mode 
00 
1139 07232 7635 GOSUB GETPRe Check Protection, Error if so 
1140 & 
1141 * Set NoCont to stop execution after this statement execute 
1142 * If Continue Address = 0 
1143 & Get and update Progran Scope 
1144 & Delete FIB, collapse ASSIGN table 
1145 % If Null Program 
1146 x Return - Do nothing 
114? a 
1148 07236 85E SST010 ST=1 NoCont Set NoCont to stop after stnt exec 
1149 07239 71CF GOSUB CNICK2 Continue address # 0 ? 
1150 07230 5C1 GONC § $ST020 C = Continue address 
1151 07240 8£94 GOSUBL PRSCOP Get prograri scope 
30 
1152 07246 8FO GOSBVL =DLFIBA Delete FIB, collapse ASSIGN table 
000 
1153 0724D 7847 GOSUB NULLP 
1154 07251 512 GONC § $ST025 Not Null progran 
1155 07254 8C0O MLPEXT GOLONG =MAINLP Return / Do nothing 
00 
1156 4 
1157 * If CNTADR @ Progran End 
1158 x Set SST flag for END entry 
1159 * go Wait for SST Key to cone up, then END progran 
1160 x 
1161 0725A 1F76 SST020 01=(5) =PRGNEN 
5F2 
1162 07261 143 A=DATI A Progran End past last EOF 
1163 07264 CC A=R-1 A Position to last EOF 
1164 07266 CC R=A-1 A 
1165 07268 8B6 *C<A OA Not at End of Progran ? 
1166 07268 BO GOYES $1030 
1167 O726D 852 ST=1 SST Set SST flag @ End of program 
1168 07270 527 ; GONC $ST055 Wait for SST Key; End progran 
1169 
1170 * Save Start of statenent 
4171 * Save @ TRFMBF because call to Line Deconpile uses 6 levels 
1172 * Set SST Deconpile flag 
1173 * Set D1 = Start of staterient 
1174 ‘ 
1175 07273 137 SST025 CDIEX First line of file 
1176 07276 79AO SST030 GOSUB D1I=TFB Set D1 @ TRFMBF 
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BDAT1=C A Save Run Address 
$T=1— s$STde Set SST Deconpile flag 
D1=C 


1179 07280 135 

1180 

1181 

1182 

1183 

1184 07283 14F 

1185 07286 9OE 

1186 07289 FO 

1187 0728B 171 

1188 O728E 8£00 
00 

1189 07294 62%” 

1190 

1191 

1192 

1193 

1194 

1195 

1196 07298 137 

1197 0729B 7BES 

1198 O729F 8E00 


00 
1199 O72A5 8E00 
00 
1200 O72AB 3304 
02 
1201 072B1 8£00 
00 
1202 
1203 
1204 
1205 


1206 072B7 7860 
1207 O72BB 131 
1208 O72BE 171 
1209 07201 8E 


00 

1210 

1211 

122 

1213 

1214 

1215 

1216 

1217 

1218 

1219 07207 BE 
00 

1220 O72CD 8FOO 
000 

1221 07204 8EOO 
00 


1222 O72DA 8EOO 


x 


* If start of new line (@ EOL) 
x Deconpile first statenent on line 
x 


C=DAT1 8B Read EOL terninator 
CHO OP Not EOL ? 
GOYES SST040 
Di=D1+ 2 Position to Line# 
GOSUBL =LBSST1 Deconpile first statenent 
GOTO  SSTo50 

& 

* Multi-Statenent Line 

x Compute & Output Line# 

x* Set bounds for Decorpile 

x Output "@ " 

* 

SST040 CDIEX C <-- Start of statenent 
GOSUB =CPLH15 Coripute Line# 
GOSUBL =LDCSET Set bounds for Deconpile 
GOSUBL =LINHDC Decorpile Line# 
LCASC \ @\ 
GOSUBL =OUT2TC Output "@ " 

t 

x Set D1 <-- Start of statenent 

x Deconpile statenent past "@" 

x 
GOSUB D1=TFB Set D1 @ TRFMBF, A<--address 
D1=A Di <---Run Address 
D1=D1+ 2 Step over @ | EOL 
GOSUBL =LDSST2 Deconpile statenent 

k 

* Statenent 1s Deconpiled 

x On RETURN fron Deconpile: B(R) = #chars to send 

* Send characters to Display Buffer fron Output Buffer 

* Set no scroll needed 


* Send Cursor Far Left to Display first 22 chars 
* Build display 

* Clear SST @ End of progran flag 

i 


SST050 GOSUBL =DSPCNO Send chars to display fron QUTBS 
GOSBYL =NOSCRL No scroll needed 
GOSUBL =cursfl Send Cursor Far Left 


GOSUBL =BLDDSP Build display buffer 
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oO 
1223 O72E0 842 ST=0 — sSST Clear SST @ End of progran 
1224 & 
1225 * If no keys in buffer 
1226 - Wait for SST key to go up before Executing statenent 
1227 & On return from DEBNCE: 
1228 ® DO @ DISINT 
1223 & SST Key in KCOL4 (Key Colunn 5) 
129% x 
1231 072E3 8E0O SSTO55 GOSUBL =KEY? Keys in buffer ? 
00 
1232 072E9 591 GONC § SSTO70 Yes - go Execute 
1233 O72EC 26 SST060 P= 6 6/512 wait before Key Scan 
1234 O72EE 8E00 GOSUBL =DEBNCE Debounce, Scan keys 
00 
1235 O72F4 184 DO=D0- 5 Pos to Key Colunn 5 (KCOL4) 
1236 072F7 14A A=DATO B SST Key in bit 0 of A(1) 
1237 O72FA 81C ASRB Shift SST Key to bit 3 of A(O) 
1238 O72FD RO4 A=A+R  P SST Key still down ? 
1239 07300 4BE GOC SSTO60 Yes 
1240 k 
1241 * Send CR/LF with Cursor ON 
1242 * If SST @ End of progran 
1243 - go END progran --- checking for ENDSUB/ENDDEF 
1244 * else 
1245 & Restore Statenent Execution Address 
1246 & go RUN ---- Execute staterent, then PAUSE 
1247 x ---- Avoid exception checking 
1248 - 
1249 07303 7610 SSTO70 GOSUB CrLfof Send CR/LF with no delay 
1250 07307 862 ?$T=0  sSST Not SST @ End of progran ? 
1251 0730A 60 GOYES SSTO80 
1252 07300 6£33 GOTO ENDIO Go end progran 
1253 07310 7F0O SSTO80 GOSUB D1=TFB D1 <-- Saved run addr, A <-- addres 
1254 07314 18 DO=A Set DO @ statement start/run addr 
1255 07317 08 CLRST Clrst to distinguish from CONT 
1256 07319 6BBE GOTO  RUN155 go execute it 
1257 07310 8(00 CrLfof GOLONG =CRLFOF Send CR LF 
00 
1258 * 
1259 * Set D1 @ Save area for Run address (TRFNBF) 
1260 * Read Run address into A 
1261 . 
1262 07323 1F5C D1=TFB D1=(5) =TRFNBF Save area for Run address 
8F2 
1263 0732A 143 A=DAT1 A Read run address 
1264 07320 01 RTN 
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1265 STITLE Label Reference Check LBLRCK 
1266 JOO III IGE ISO ICICI IOO III IOI IK 
1267 JOO IOI IOOIICO OGG IGOIGOCIGOCII GIES IG CIGOK 
1268 a 
1269 kk Nane: LBLRCK - Check if valid label reference 
1220 ** Nane: FILXQT - Check if valid label reference 
1271 an 
1272 ** Category: LOCAL 
1273 ax 
1274 ** Purpose: 
1275 aa Check 1f Valid Label Reference 
1276 am 
1277 *k Entry: 
1278 &k sO LBLRCK: 
1279 ax A = Possible Label Reference Token 
1280 ak DO past Label Reference Token 
1281 kx FILXQT 
1282 x DO @ Label within statenent 
1283 ax 
1284 ak Exit: 
4285 a Carry Clear 
1286 aa Bad Label reference 
1287 ax 
1288 ax Carry Set 
1289 aK FILXQT 
12% x Good label nane 
1291 KK LBLRCK: 
1292 Ak S8=0 Simple label nane 
1293 ax A = Label nane 
1294 ax S8=1 Not a Label Reference 
1295 aa 
1296 ** Calls: FILXQ* 
1297 kk 
1298 AX Uses. ...... 
1299 kk Exclusive: A,C,$8 
130 kk Inclusive: A,C,S8,$1,82,S87,A-D,D0,01,S-R1-0 thru S-R1-3, 
1301 ax STMTDO,RO-R4, all of Function scratch 
1302 aa 
1303 te Stk lvls: 6 
1304 ae 
1305 JOGO IOI IIE IDOE GL ISIE IGOR III RIO 
1306 JOU IOUS IG ISUIO EGE IGE IIE IIE 
1307 0732F 858 LBLRCK ST=1 8 Set S8 for Not a Label Ref 
1308 07332 3100 LC(2)  =tLBLRF 
1309 07336 S66 RHC OB Not a Label Reference ? 
1310 07339 00 RTNYES 
1311 0733B 8E0O FILXQT GOSUBL =FILXQ* Get label into A 
00 
1312 07341 500 RTNNC Illegal label - Carry clear 
1313 07344 B4? D=D+1 S$ Device following name =D(S)=F 
1314 07347 500 RTNNC Not a simple filenane/label 
1315 0734A 848 ST=0 8 
1316 0734D 01 RTN Carry set/Sinple filenane 
1317 x 
1318 * Clear SUSP annunciator 
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1313 
1320 
1321 
1322 0734F 
1323 07353 
1324 07356 
1325 0735A 


1326 
132? 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 07360 


1344 07367 
1345 0736A 
1346 0736D 
134? 07370 
1348 07373 
1343 07377 
1350 0737R 
1351 07370 
1382 07380 
1353 07384 
1364 
1355 
1356 
135? 
1358 
1369 
1360 07388 
1361 0738C 
1362 073% 


x 
x 
x 
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Set PgnRun flag 
Set PRGM Annunciator 


7E36 =SFGPGM GOSUB CLSUSP Clear SUSP annunciator 
85D ST=1 PgriRun Set Progran Running flag 
312C LC(2) =f 1PRGM Turn on PRGM Annunciator 
8C0O SFLAGs GOLONG =sflags 
00 
k 
* Update CNTADR fron C 
* Move Continue Address to DO 
x Increnent by 2 to point into "next" staterent 
* Check if CNTADR + 2 still within Progran Scope 
‘ Checks for Continue Address past END of progran 
* If CNTADR+2 >= PRGMEN 
& Decrenent pointer back into current statenent 
a This causes CURRL to be computed on current statenent 
* else 
& CURRL will be computed on Continue statenent 
k 
* Set SUSP annunciator 
k 
* SETSU1: KBRICK entry: DO @ CNTADR 
x 
k 
1BE7 =SETSUS DO=(5) =CNTADR Update CNTADR 
6F2 
144 DATO=C A 
134 dO=C Save CNTADR 
161 =SETSU1 DO=D0+ 2 Move DO into line 
132 ADOEX Nove DO to A 
7843 GOSUB Scopck 
130 DO=A Restore DO 
550 GONC SETSU2 Within progran scope 
181 DO=D0- 2 Move back into current statentn 
311C =SETSU2 LC(2) =F 1SUSP 
65DF GOTO SFLAGs Set SUSP annunciator 
& 
* Update Continue address 
* Set SUSP annunciator 
* Conpute line# containing Continue Address 
* Update CURRL 
& 
74DF =CNTCUR GOSUB SETSUS Update CNTADR, Set SUSP 
77F4 GOSUB CPLH1O Conpute line# 
8D00 =savel# GOVLNG =SAVEL# Update CURRL 
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1363 STITLE FETCH Execute 
1364 SOI IO OIC IGG IOC IO IO IOC IC IIT 
1365 JOU III CII ICIOOIIO ICO TOOT IAI IK 
1366 ak 
136? *k Nane: FETCH - Staterent Execute 
1368 a 
1369 ** Category:  STEXEC 
1370 kx 
1371 ** Purpose: 
1372 aK Execute FETCH statenent 
1373 am 
1374 aE Entry: 
1375 Kk DO past FETCH token 
1376 ax 
1377 KK Exit: 
1378 a Through FICHKY if FETCH KEY 
1379 a Through DCPLIN if FETCH 
1380 xk Through AUTLN2 if Line# not found 
1381 a 
1382 ka Errors 
1383 KK eFTYPE Not BASIC file 
1384 KK eFPROT Private file 
1385 a eSTMNF Stnt not found 
1386 aK 
138? ne Calls: GETPRe,FINDLR,FCHLBL, LBLRCK, NULLP, CURRLO 
1388 
1389 Kk Uses....... 
1390 kk Exclusive: A-D,S4,S8,R3, CURRL,R1,00,01,R2 
1391 kk Inclusive: A-D,S0,S1,S82,S4,S7, $8, RO-R3, CURRL, STNTDO 
1392 xx STMTR1 (all of it), All of function scratch 
1393 as 
1394 xk R1 = Saved DO 
1395 a 
1396 kK Stk lvls: 7 
1397 kn 
1398 ** Detail: 
1399 KK FETCH KEY .... 
1400 ax FETCH [ <lineno> | <label> } 
1401 kk 
1402 ** Algorithn: 
1403 ak 
1404 ak If next token = KEY 
1405 a go Execute FETCH KEY (FTCHKY) 
1406 ae 
140? ax Save ™ (R1) 
1408 ae Read current header; Error if not BASIC (GETPRe) 
1409 en If private file --> Error 
1410 KR Restore DO 
1411 Si Read and skip next token 
1412 ax If line# 
1413 ae Skip jump address & Read line# 
1414 ** 0: Find line# (FINDLR) 
1415 ae If line# found 
1416 ae YT: go Deconpile and Display @ D1 (DCPLIN) 


141? ak else 
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1418 R® 2: Update CURRL <-- Line# not found 
1419 a go Display "line#" uf null line (AUTLN2) 
1420 aE 
1421 an Check if Label Reference (LBLRCK) 
1422 ia If label reference 
1423 aR If simple label 
1424 ae Find label across file (FCKLBL) 
1425 ak If found 
1426 a go Deconpile & display line (goto 1) 
1427 ah else 
1428 ak else 
1429 ak Error Exit --> Label not found 
1430 xn else (No paranters) 
1431 aK If CURRL # 0 
1432 ak Line# <-- CURRL 
1433 aK go Find Linet# (goto 0) 
1434 ak else 
1435 kk If NULL progran (NULLP) 
1436 ah Display "10" w/ Null line (goto 2) 
1437 aR else 
1438 ak go Display first line of file (CURO20) 
1439 ak 
1440 ** History: 
1441 x 
1442 ** Date Nane Modification 
1443 a a ae 
1444 kk 04/12/83 9 IP If CURRL=0 and not NULLP 
1445 ak Display first line of file 
1446 ak 
1447 JOO IOI IIIS OIC ISIS IT IEC OO IH 
1448 SII DOO IIT OI ITO TITTIES IIT IK 
1449 07397 0000 REL(5) =FETCHP Parse Address 
0 
1450 0739C 3100 =FETCH LC(2) =tKEY 
1451 073R0 14A A=DATO B 
1452 073A3 966 PAHC 6B not FETCH KEY ? 
1453 073A6 CO GOYES FTCO10 
1454 073A8 161 DO=D0+ 2 Skip KEY token 
1455 073AB 8D00 GOVLNG =FTCHKY Execute FETCH KEY 
000 
1456 . 
1457 * If private file 
1458 * Error through GETPeF 
1459 : 
1460 073B2 136 FTCO10 CDOEX 
1461 073B5 109 R1=C Save DO (Progran counter) 
1462 073B8 136 CDOEX 
1463 x 
1464 * Error exits if Private or Non BASIC 
1465 x 
1466 073BB 7DA3 GOSUB GETPRe Get protection and filetype 
1467 x 
1468 * Read & skip token 
1469 * 


1470 O73BF 119 FTCO20 C=RI1 Restore DO 





1471 07302 
1472 073C5 
1473 073C8 
1474 073CB 
1475 O73CF 
1476 073D2 
1477 

1478 

1479 

1480 07304 
1481 07307 


1482 073DE 
1483 
1484 
1485 
1486 073E1 
148? 073£4 


1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 073EB 
1501 073ED 
1502 
1503 O73EF 


1504 
1505 
1506 
1507 073F5 
1908 
1509 
1510 
1511 073F9 
1612 073FD 
1513 07400 
1514 07403 
1516 07405 
1516 07408 
151? 0740C 
1518 0740F 
T5139 
1620 
1521 
1522 07412 
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134 
14A 
161 
3100 
966 
72 


164 
8FO0 
000 
501 


854 
8000 
000 


CE 
D5 


8000 
00 


658) 


723F 
57F 
878 
C1 
103 
7024 
48E 
51D 


8E00 
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DO=C 
A=DRTO B Read token 
DO=D0+ 2 Skip token 
LC(2) =tLINE# 
7RHC OB not Line# 


GOYES FTCO50 
x 


* FETCH <line#> 
x 


DO=D0+ 5 
FTCO25 GOSBVL =FINDLR 


Skip Junp address 
Read & Find line# across file 


GONC FTCO40 Line# not found 
* Decompile and Display Line @ D1 
& 


FTCO30 ST=1 4 
=dcplin GOVLNG =DCPLIN 


External Entry flag 
Decornpile and display 


x 

* Line# not found 

x Update CURRL 

go Display Line# with Null line 


AUTLN2 entry: 
B(A) = Line# to display 


On return fron NULLP 
C(R) = 00011 (oBSsod has been loaded) 
FETCH needs 00010 


oe & Fe OF Oe 


FTCO35 C=C-1 A 
B=C A 


FTCO40 GOLONG =AUTLN2 


x 


* Error Exit 
x 


FICER2 GQTO RUNER1 Label not found 
* 

* Check 1f Label Reference 

x 


Label Reference Check 
Bad Label nane 


FTCOSO GOSUB LBLRCK 
GONC = FICER2 


?ST=1 8 Not label reference ° 
GOYES FTCO60 FETCH w/o Parns 
R3=A Label narie 


Find label across file 
Label not found 
B.E.T. Deconpile @ D1 


GOSUB FCHLBL 
GOC FICER2 


GONC FICO30 
x 


* Cursor key hit and progran is null 
x 


=CURSNP GOSUBL =AUTOCK 
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00 
1523 07418 560 GONC FTCO6O If in AUTO node, disp currl 
1524 0741B 683E GOTO MLPEXT Else goto MAINLP 


1525 

1526 

152? 

1528 

1529 

1530 

1531 

1632 

1533 

1534 

1535 

1536 

153? 

1538 

1539 

1540 

1541 

1542 

1543 

1544 O741F 8F0O 
000 

1545 07426 408 

1546 07429 7(65 

1547 07420 4DB 

1548 07430 8D00 
000 


* 
* FETCH with No Paraneters 
If current line # 0 
go Find current line 
else 
If Null progran 
go Display Line# 10 with a null line 
else 
go Display first line of file 
Enter CURTOP code below CR/LF 
Assunes sCURBOT=0 (S3) 


CURRL is zeroed IF 
Return to keyboard 
Error on nonBASIC file 
Computing line# and PCADDR not in progran scope 
Caused from CALL/GOSUB fron keyboard and 
ATTN key before first line executed 


eM ee OO 


FTCOGO GOSBVL =CURRLO Current Line# = 0 ? 


GOC FTCO25 No - go Find current line 
GOSUB NULLP Null progran ? 

GOC FTCO35 Yes - 

GOVLNG =CURO20 Display first line of file 
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1549 STITLE BASIC Interpreter Loo 
1550 JE III III III OI II TIA III IIS I III ISIS SS STS 
1551 JI IOI II II TTI SII I IIIT IIIA IIS IIIS IS IIS STII IIIS ASSIS IA 
1552 aK 
1553 ek Nanie:(S) BSCEXC - BASIC Stnt/Pgn Execution: Keyboard Exec 
1554 *k Nane:(S) BSCEX2 - BASIC Stnt/Pgn Execution: Progran Exec 
1555 ak Nanie:(S) BSCEXT - BASIC Strt/Pgn Exec: Reentry into BASIC lo 
1556 *k Narnie:(S) RUNRT1 - Strut reentry to BASIC loop; sERROR, sENDx cl 
1557 *® Nane:(S) RUNRTIN - Strt reentry to BASIC loop; sERROR cleared 
1558 eo Nane:(S) ERRRTN - Error Exit reentry to BASIC loop 
1659 
1560 *k Category:  SYSTEN 
1561 ak 
1562 ** Purpose: 
1563 ak BASIC interpreter loop for progran/statenent execution 
1564 aK Complete execution of RUN | CONT connand 
1565 ak 
1566 **k Entry: 
1567 aK BSCEXC: NoCont flag clear 
1568 aK Keyboard Execute entry: PgnRun = 0 
1569 ak BSCEX2: If PgnRun = 1 
1570 ak Progran to be executed 
1571 aK 00 @ EOL of prior statenent 
1572 KK (RUN, CONT,SST entry) 
1573 aK (If NoCont=1 then SST) 
1574 ak If PgnRun = 0 
1575 at Statenent to be executed 
1576 xs DO @ Statenent length byte of statenent 
1577 x Polls on entering BASIC interpreter 
1578 ah 
1579 a BSCXLP: LABEL entry if within Multi-statenent line 
1580 ae DO @ EOL or @ of next statenent to execute 
1581 ak 
1582 ae BSCEXT: 
1583 ak Return to Keyboard "Reentry" 
1584 an RUN/CALL Binary return fron "ENDBIN" 
1585 = ENDALL from PURGE/MERGE current file 
1586 ae Filetype is read 
1587 ak If BASIC and Progran running ($13=1) 
1588 aK DO @ Next stnt to execute 
1589 se SUSP will occur 
1590 ax Exceptions are NOT checked 
1594 RE sERROR=1 (SO) --> Error has occured 
1592 a If not an error, Flush print buffers 
1593 ae Poll on exiting BASIC interpreter 
1594 ae Clears flags, goto Main Loop 
1595 x 
1596 aR RUNRT1: Statenent reentry into BASIC loop 
1597 ae: sENDx, sERRORx cleared 
1598 a RUNRTN: Statenent reentry into BASIC loop 
1599 ax sERRORx cleared --- used by END stnt 
1600 = ERRRTN: Error exit reentry into BASIC loop 
1601 a Assenes sERROR set; sENDx clear 
1602 a 


1603 ak Exit: 
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1604 aX Junp to individual execute routine for statenent 
1605 x S0-S11 are cleared before junping 
1606 ae 
1607 ax ALL statenents MUST return through NXTSTM or 
1608 ae directly to RUNRT1/RUNRTN with DO set properly 
1609 ‘ 
1610 ee CALL, END SUB, FN, GOTO, GOSUB jump to RUNRT1 
1611 ek NXTSTN returns to RUNRIN 
1612 xe Errors return to ERRRIN 
1613 a SST @ Progran End returns to BSCEXT 
1614 KK Binaries return to BSCEXT (fron ENDBIN) 
1615 ak 
1616 ah RUNRT1: Clears sENDx flag, indicating not END stnt 
1617 ax Clears sERROR 
1618 a RUNRTN: Assunes sENDx flag set appropriately 
1619 ax Clears sERROR 
1620 ak 
1621 x If continuing execution: 
1622 ak 
1623 a Tiners are serviced at the end of each stnt execute 
1624 a If a tiner expires & 1s within current progran scope 
1625 ax The appropriate ON TIMER code is jumped to. 
1626 aK Statenent execution will return to RUNRTN 
1627 ale 
1628 ak Execution stops if: 
1629 ae End of progrart reached | STOP/END statenent in progran 
16H ax End of line of calculator statenent 
1631 vl Don’t Continue (NoCont) flag set fron: 
1632 a% PAUSE, ATTN, Error Message Routine 
1633 a END/STOP within Progran 
1634 ax End of Progran reached 
1635 a Sot 
1636 aX END(SUB),END(DEF), RETURN fron keyboard 
1637 Be Error flag (sERROR) set fron Error Message routine 
1638 ax 
1639 a 
1640 ** Calls: EXCADR, CK“ ON" , BASCHK, SFLGOCP, FLUSHA, CNTCUR, CKSREQ, 
1641 zs EOLSCN, USRSTA, GTMRA+, FPOLL, ALMSRV, SCOPCK, TRFCK-, 
1642 aK UPDPC, RDCHD+ 
1643 as 
1644 BRUCE ewes aud 
1645 ** Exclusive: A,C,D1,D0,$13,$14, PCADDR, CURRL, RO, SO, S1 
1646 ** Inclusive: A-D,D1,00,$13,814, PCADDR, CURRL, RO, S0-S7, 
1647 aie SCRICH (32 nibs), FIPRGM, F1SUSP, ANNAD1-4, STMTD1 
1648 zx 
1649 aR PCADOR rust not be used for anything else 
1650 ax sENDx = END/STOP Statenent S1 
1651 aK NXTSTN explicitly clears 
1652 a RUNRT1 explicitly clears 
1653 * SERROR = ERROR occured SO 
1654 kx RUNRTN,RUNRT1 clear 
1655 7 MFERR/BSERR sets 
1656 ak Except = Service Request S12 
1657 a PgnRun = Running progran $13 


Don’t Continue Execution $14 


1658 kx NoCont 
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1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
ea 1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 


ax 
xk 


kk Stk lvls: 


ax 


Trace = TRACE Mode 
>=4 


** Algorithn: 


ak 


X* BSCEXC: 
x* BSCEX2: 


ax 
xx 
ak 
*X BSCXLP: 
ax 
xx 
ax 
ax 
kx 
ak 
an 
aK 
ee BSCX4: 
xx 
ax 
ak 
Km 
ae 
ax 
ax 
kx 
ax 
ax 
xk 
ae 


Clear No Continue of Progran flag 
Place current DO into RO 


Fri Dec 30, 


1983 3:10 
Page 


315 


(NoCont) 


Fast poll on entering BASIC interpreter(pBSCen) 


If not running 
go update PC address 
Read & Move past EOL | @ 
If EOL and not running 
go Read filetype then 
o exit BASIC 
If (nulti-statenent line) 
go Update PC address 
If End of current progran 
go execute END statenent 
Skip line# 
Update PCADDR @ stnt length byte 
Save addr @ statenent length byte 
Skip statenent length byte 
Clear lower status 
Read Begin BRSIC token 
If not Begin BASIC token range 
Call Assignment Execute 
Skip to next statenent 
else 
Move past BASIC token 
Calculate Execution addr 
Junp to Execution routine 


(not PgrRun) 
(goto BSCX+) 


(goto BSCEXT) 
(goto BSCEX+) 
(goto BSCX+) 
(PRGNEN > DO) 
(END10) 


(PCADDR) 
(PCADDR) 


(SO-S11) 
(BASICs) 


(ASNINT ) 
(NXTSTN) 


(EXCADR) 


kx Statenent Execute Return: (fron NXTSTM or directly) 


ak 


xx RUNRTI: 
XX RUNRTN: 


x*  ERRRIN: 
tok 


koe 
he 
ke 
ax 
tok 
ax 
xx 
xr 
ke 
xe 
ka 
re 
koe 
ke 
Ee 3: 
xs 


Clear END execute flag 
Clear ERROR flag 
Collaspe Math Stack 
If ERROR 

Skip exception checking 
If no exceptions 

If no hardware service request 

If any pending alarn set 
Save DO on stack 
go Process tiners 
go continue 

Save DO an stack 
Check Service requests 
If no exceptions 

go Restore DO and continue 
Clear Exception Flag 
Fast Poll on Exception 
Restore low status fron DSPSTA 
If ATTN Key hit 

Set NaCont flag 


(sENDx) 
(sERROR ) 


(sERROR ) 
(goto 6) 
(Except=0) 
(SREQ) 
(PNDALM) 


(goto 3) 
(goto 6) 


(CKSREQ) 
(Except=0) 
(goto 5) 
(Except) 
(pExcpt) 
(USRSTA) 
(CKON) 
($14) 


ati 
35 
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1714 a else 
1715 a If Program running 
1716 aK Load nask to check Tiner bits 
1717 aa Read Pending Alarn field (PNDALM) 
1718 kk 4: If Tiner expired (Bit 0]1}2 of PNDALM) 
1719 xk Get Tiner Address (GTMRA+) 
1720 kk If non-zero Tiner address 
1721 aa Verify address in prgn scope(SCOPCK) 
1722 a If within scope (Carry clear) 
1723 ak Clear tiner bit in PNDALM 
1724 ae Set Except if anthr taner due(ALMSRV) 
1725 a If TRACING ( TRFCK-) 
1726 ak Update PCADDR @ next stnt to exec 
1727 ak C <-- ON TIMER a dress 
1728 aa Set ONTIMER statenent flag (sONTHR) 
1729 xk Clr ONERROR statenent flag (sONERR) 
1730 ax go process ON TINER stnt (ONTINR) 
1731 ak go Check if any other Tiners off (goto 4) 
1732 Kx 5: Restore DO 
1733 kx Clear Error occured (sERROR) 
1734 KK 6: If Continue (not NoCont) 
1735 kk go process next of statenent (BSCXLP) 
1736 KK else (NoCont) 
1737 ** BSCEXT: Clear PRGM Annunciator (Sf1gCp) 
1738 xx Read Filetype (RDCHD+) 
1739 KK If non-BASIC file (BASCHK) 
1740 a go exit BASIC (goto BSCEX+) 
1741 ae If not running eat PgrRun) 
1742 x go exit BASIC (goto BSCEX+) 
1743 KK else 
1744 Sas If not END/STOP execute (sENDx) 
1745 aK If ELSE 
1746 ae Skip to End of Line (EOLSCN) 
1747 xn Update Continue Address 
1748 aK Set SUSP Annunc/Flag (SFLAGS) 
1749 ak Compute & Update current line (CNTCUR) 
1750 KK BSCEX+: 
1751 Kk If not an error (sERROR) 
1752 wk Flush all buffers (F LUSHR) 
1753 ax Fast Poll on Exiting BASIC interp ( pBSCex) 
1784 a Clear Don’t Continue flag (NoCont) 
1755 am golong MAIN Loop (MAINLP) 
1756 aR 
1757 ** A note on CNTADR and CURRL: 
1758 ax 
1759 kk When execution is not continued: 
1760 x The current Line# is updated 
1761 ak If not an END/STOP statenent and BASIC file 
1762 fe The Continue Address is updated to the next statenent 
1763 
1764 *x Tf the end of progran scope (@ PRGMEN) | END/STOP 
1765 ak CNTADR = 0 
1766 ae Continue Address is NOT updated at end of BSC Loop 
176? a Current Line 1s not touched 


1768 ae This 1s normal progran execution termination. 
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1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
177? 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1279? 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
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aS CONT will start execution at the start of the prog 


ka 
** Tf the end of progran scope 1s NOT reached, but exec stops: 
Kx CNTADR = Current DO 
ax CURRL = Line# of Continue address 
xx Current line always points @ CNTADR statenent 
ka 
ax For Error Messages 
x CNTADR = Statenent in error 
ae CURRL = Line# of error 
k 


aK For ATTN Key 


ae CNTADR = 
was CURRL = 
ak 


xk For PAUSE: 


x CNTADR = 
ax CURRL = 
ek 
ek 


kk History: 
ka 


*k Date 
PAC ie 
** 02/04/83 
*% 03/07/83 
** 03/08/83 
** 03/28/83 
** 03/28/83 
** 04/04/83 
&* 04/04/83 
** 04/08/83 
** 04/08/83 
** 04/21/83 
** 04/25/83 
** 04/25/83 
** 05/18/83 
** 06/17/83 
** 06/17/83 
ak 


Progranner 


Next statenent to execute 
Line# containing next statenent to execute 


Statenent after PAUSE 
Line# containing statenent after PRUSE 


Modification 

Added ALNSRV call if Tiner due 
Packed: added UPDCRL call 

Clear sEXTGS before ONTIMR junp 

If ERROR, skip exception check, sERR 
If not error, flush buffers 

If tracing & ON TIMER update PCADDR 
Preserve SO-S11 during pExcept 

Zero Tiner bit ONLY when servicing 
If no exceptions/SR check Tiner bit 
Don’t SUSP 1f non BASIC file 

Pass filetype in pBSCex poll ALWAYS 
Changed BSCEXT entry point 

Check Attn after pExcept (CK"ON") 
Update CURRL only if SUSPending 
CURRL points at CNTADR statenent 


FOR OOOO IOI III ISIS III TIO 
OORT TIO ORI IOI IO EOI OI 
IOI II III IO IC IOI I TT TO 
FORO OSI IOI I IO III IOI II ICI IK 


aX 


xk 


** Category: 
+ 


** Type: 
xk 


%* Purpose: 


POLL 
FPOLL 


**k Nane:(S) pBSCen - Poll entering BASIC interpreter 


aS Fast poll when entering BRSIC interpreter 


ak 


** Should poll be "Handled" (return with XM=0)?: 
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1824 ak No - E1ther this poll is a TAKE OVER poll 
1825 ax or it should continue to ALL LEX files 
1826 ae 
1827 ** Meaning of "Handling" Poll (uhat does code do if handled?): 
1828 ae Take over BASIC interpreting 
1829 aE Set up infornation/buffers/flags before execution | 
1830 ak begins, then let Poll continue 
1831 aK 
1832 ** Entry conditions for handler (registers, ST, RAM, etc.): 
1833 ak --Carry set on entry iff fastpoll-- 
1834 a B(A) = Poll nunber (pBSCen) 
1835 ak HEX node. 
1836 ak P=0, 
1837 xR 
1838 aR If PgnRun ($13) 
1839 ak Progran about to be executed (RUN/CONT/SST) 
1840 ax If NoCont ($14) 
1841 aR SST (Single stepping) 
1842 kk If sCONT (S10) 
1843 ak Continue 
1844 aR If sCONTK (S9) 
1845 aR CONT or RUN Key 
1846 ae RO @ EOL or "@" prior to statenent to execute 
1847 xh else 
1848 aX Keyboard execution fron Statenent Buffer 
1849 xh RO @ Statenent length byte of statenent 
1850 a 
1851 ** Normal exit conditions fron handler if handled (ST, RAN, 
1852 xk registers, etc.): 
1853 - HEX mode. 
1854 kk This poll should never be "normally" handled 
1855 ax Either the LEX file takes over or allows other 
1856 aK LEX files to respond. 
1857 aR 
1858 ** Normal exit conditions fron handler if not handled (ST, RAN, 
1859 ** registers, etc.): 
1860 a HEX rode. 
1861 aR aI=1. 
1862 a Global status intact 
1863 a Do not use $3 
1864 ak RO must be PRESERVED !!!!! 
1865 x 
1866 ** Available subroutine levels: 
1867 - --FPOLL handler is tuo levels deeper than caller-- 
1868 — This 1s a "top level” poll --- 6 levels available-- 
1869 =e Must be able to return to Poll routine 
1870 ae 
1871 xx NOTE: 
1872 *% = GOSUB, CALL, FNx invoked fron the keyboard will appear 
1873 xt as Keyboard Execute. The PgnRun flag will be clear. 
1874 AK 
1875 xk Program execution will begin with NO indication. 
1876 ae 
1877 xk ~~ For CALL: pCALSV polls when CALL execute begins 


1878 aa FNx: pFNIN polls when FNx executes begins 





Lae | 
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1879 ie 
1880 ** Binary Files will always be RUN/CONT fron the start of 
1881 ae the file... it is "inpossible" to systenatically 
1882 *k return a meaningful CONTinue address through the BASIC 
1883 ** loop. If a Binary file wishes to inplernent CONT... 
1884 ** it should respond to the pBSCex poll: 
1885 aK If current filetype is Binary and PgrRun=1 
1886 ae Update CNTADR @ Binary code to CONTinue at 
1887 ak Set the SUSP annunciator (SFLAGs) 
1888 a 
1889 aK 
1890 ** What registers/RAN nay be used 1f not handled?: 
1891 xk --A-C, D[15-5) DO, 01, P always available (FPOLL only)-- 
1892 ak --NOTE: D[A] is sacred in FPOLL!!-- 
1893 ax --R1-R4, ST (low 12), scratch RAN-- 
1894 aR This is a top level poll ... nothing else is going on 
1895 ak 
1896 ** Envisioned application(s): 
189? an Inplenent BREAKPOINT capability within progran: 
1898 * Set sExcept at entering to allow checking after 
1899 ae each statenent 
1900 ae 
1901 aR Indicator to FORTH/VISICALC type applications that 
192 aX BASIC has been invoked. 
1903 ae 
1904 ** History: 
1905 xs 
1906 a Date Progranner Modification 
1907 $8. Gooeeses ses ucete, , eee steer eeccee so eee cee aoe 
1908 ** 01/16/83 JP Added Poll 
1909 et 04/23/83 IP Updated/revised documentation 
kk 
aa JU IOI IIIS OC ITO ST SII SASS III II 
1912 FOI TO III II TTI ET TIO TT IIIS IITA TIS III III IIT IIT IIIA IAI IIA 
1913 SORT IIIS III IITA TTI DID TTT IO ITI I III IIIS IIIS ISS I III I IAI IID IAT IIA 
1914 JOO III IIS IIIS OIC TOSI SSSI ITA SIS III AIK 
1915 x3 
1916 ** Narie:(S) pBSCex - Poll to Exit BASIC Interpreter 
1917 x 
1918 ** Category: POLL 
1919 aR 
1920 ** Type: FPOLL 
1921 me 
1922 ** Purpose: 
1923 ae Fast Poll when Exiting the BASIC interpreter 
1924 ae Indicates progran/staterent execution 1s stopping 
1925 a Caused fron: 
1926 me End of line of statenent execution 
192? ae Progran ENDing or STOPping 
1928 a Halt fron: ATTN key, SST, PAUSE, Error 
1929 Aa Ending a Binary progran 
1930 AR Systen 1s about to return to MAINLP 
1331 ae 
1832 me 
1933 %* Should poll be "Handled" (return with XM=0)?: 
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1934 kk No - This poll should never be "handled" 
1935 ax Either the LEX file "TAKES OVER" 
1936 ak or responds "not handled" so other LEX files may 
1937 ak respond. 
1938 aK 
1939 *k Meaning of "Handling" Poll (what does code do if handled’): 
1940 ak Clear/update information 
1941 ax If TAKE-QVER ---> gain control after BASIC execute 
1942 ax before we go back to MAIN LOOP 
1943 ah 
1944 xk Entry conditions for handler (registers, ST, RAM, etc.): 
1945 ak --Carry set on entry iff fastpoll-- 
1946 ak B[A] = Poll nunber (pBSCex) 
1947 ak R2(A)= Filetype 
1948 ak HEX mode. 
1949 ae P=0, 
1950 ak Math stacks have been collapsed 
1951 ak Exceptions are checked PRIOR to this poll 
1952 ak See pExcpt Poll 
1953 aK If not Error Exit (not sERROR) 
1954 ak Buffers nave been flushed 
1955 aK If NoCont (S14): 
1956 * If Program mwas running (and BASIC file) 
1957 ak SUSP is lit 
1958 =e CNTADR updated 
1959 xx CURRL updated 
1960 ak Halting due to one of the following: 
1961 ak ATTN Key (ATNFLG RAM is non-zero) 
1962 ak END/STOP or end of progran (sENDx=1) (S1) 
1963 kk Error (sERROR=1) 250) 
1964 ak SST 
1965 ak PAUSE 
1966 ak END(DEF), END(SUB), RETURN fron keyboard 
1967 a (Error Exits can be trapped with pERROR, pWARN polls) 
1968 ak If not NoCont (S14=0) 
1969 Ae If PgnRun (S13) --> Program was running 
1970 ak sENDx=1 1f STOP/END statenent 
1971 ae 
1972 ak 
1973 *X NOTE: 
1974 ak 
1975 ak GOSUB, CALL, FNx invoked fron the keyboard 
1976 as will enter and exit as Keyboard Execute... 
1977 xe The PgriRun flag will NOT be set!!! 
1978 ae RETURN, ENDSUB,ENDDEF clear PgnRun before exiting 
1979 kk 
1980 a For CALL: pCALRS polls when CALL is ending 
1981 ae For FNx: pFNOUT polls when FNx is ending 
1982 ak 
1983 *k Norrial exit conditions from handler if not handled (ST, RAN, 
1984 *k registers, etc.): 
1985 ae HEX rode. 
1986 aE KM=1. 
1987 ak Preserve sENDx, sERROR, PgrRun, NoCont, ATNFLG 


1988 a 
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1989 ** Available subroutine levels: 6 
1990 aK ~~FPOLL handler is tuo levels deeper than caller-- 
1991 ak This is a top level Poll --- 6 levels available, unless 
1992 ak TAKING OVER... then 7 
1993 BK 
1994 xk What registers/RAN ray be used if not handled?: 
1995 ak --A-C, D[15-5] DO, D1, P always available (FPOLL only)-- 
1996 RR --NOTE: D[R} is sacred in FPOLL!!-- 
1997 ak --RO-R4, scratch RAN-- 
1998 - 
1999 ** Special Considerations: 
2000 ax Binary Files nay return through this exit point 
2001 ak 
2002 RK A Binary file taking an error exit through the mainfrarie 
2003 ak can "SUSPend" a binary progran by setting CNTADR at 
2004 ax the address to continue at within the file and setting 
2005 ak the SUSP annunciator. 
2006 kk 
2007 ** Envisioned application(s): 
2008 ak Allow a LEX fale to gain control after BASIC execution 
2009 ae 
2010 *k History: 
2011 ak 
2012 a Date Progranrer Modification 
2013 $5 Ge Sowanie. teeceensede laced sseutacckucas, sumac sass ete 
2014 ek 07/20/82 IP Added poll/docunentation 
2015 tk 01/16/82 JP Modified poll 
2016 ek 04/23/82 IP Revised/updated docurentation 
2017 o 04/25/82 JP Pass filetype in R2 
ce JO III IO IR IS IIT OASIS III III III ISS IIS II ISIS SSI IIIS IIIIS SII IS 
220 JOO II IID II III SII III III III IS IIIS SIS SSSI IIS III ISI TI IIIS 
2021 JK IOI II I TITS I III III II IDI SIS IIS IIIS SIS IIS ISI III ITS. 
022 JE III II OOO II II IT TI II IIS II IIIT I III II II IIIA 
2023 aK 
2024 *k Narie:(S) pExcpt - Poll on Exception after Stnt Execute 
2025 a 
2026 ** Category: POLL 
2027 Ae 
2028 ** Type: FPOLL 
2029 xs 
2030 ** Purpose: 
2031 ae Fast poll to indicate Exception has occured 
2032 abe Allows servicing af Exceptions at the end of each 
2033 * statenent execute. 
20 34 ae The Exception flag (Except (S12)) must have been set 
2035 ae in response to pSREQ or prior to re-entry to BRSIC 
20 36 sis loop (@ RUNRT1) 
2037 am 
2038 ** Should poll be "Handled" (return with kM=0)?: 
2039 a NO - This poll must continue to all] LEX files 
2040 an 
2041 *k Meaning of "Handling" Poll (what does code do if handled’): 
2042 ae You can process YOUR exception, but indicate the Poll 
ae was NOT handled. 


2043 
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2044 ak 
2045 ** Entry conditions for handler (registers, ST, RAN, etc.): 
2046 ax --Carry set on entry iff fastpoll-- 
2047 aR B[A] = Poll nunber (pExcpt) 
2048 ae HEX mode. 
2049 ak P=0, 
2050 ak Except (S12) = 0 from Mainf rare 
2051 aK Subsequent "responders" may set this to cause 
2052 ia Except next tine around, 
2053 ax PgrnRun = 1 
2054 ax If progran running 
2055 ae NoCont = 1 (S14) 
2056 ax If execution NOT to continue 
2057 RR Caused fron SST, PAUSE, END/STOP, 
2058 RK END(DEF), END(SUB), RETURN fron Keyboard 
2059 ax The attention key HAS NOT been checked, yet 
2060 hk RINFLG RAN location#O if ATTN Key hit 
2061 aK The ATIN Key will cause progran execution to stop 
‘ 2062 ax DSPSTA (RAM) holds SO-S11 
2063 kk sENDx = 1 (SO) if END/STOP or End of Progran 
2064 ak RSTK(3) Third Return Stack Level (0,1,2) 
2065 a = 00 setting from RUNRIN 
2066 ax Points at EOL or @ following statement just 
2067 ak executed. 
2068 ax 
2069 ** Normal exit conditions from handler if handled (ST, RAN, 
2070 *X registers, etc.): 
2071 - Response to this poll should NEVER indicate "handled 
2072 
2073 ** Nornal exit conditions fron handler if not handled (ST, RAN, 
2074 ** registers, etc.): 
2075 ig HEX node. 
2076 RX KN=1, 
2077 a $12-$15 nust be preserved 
2078 ax Stack levels: 0,1,2 preserved 
2079 nx 
2080 ** Available subroutine levels: 4 
2081 xx ~-FPOLL handler is tuo levels deeper than caller-- 
2082 = This poll is issued fron the TOP level 
2083 am But the Current DO 1s 3rd level on stack 
2084 ax This value cannot be lost; nor the return address to 
2085 ak FPOLL 
2086 ak Preserve levels: 0,1,2 
2087 ak 
2088 **x NOTE: 
2089 ae Error Exit to BASIC loop does NOT check exceptions 
20% es Low status are restored frori DSPSTA at the End of the 
2091 a Poll. 
2092 is Math stack has been collapsed 
2093 ae ATTN key has been checked---causing NoCont to set (S14) 
2094 ae Tinrers (1-3) will be checked after the pExcept poll 
2095 ae 
2096 xx What registers/RAM nay be used if handled?: 
2097 ax N/A 


2098 a 
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2099 *k What registers/RAM may be used if not handled?: 

2100 aa ~-A-C, D[15-5] DO, DI, P always available (FPOLL only)-- 

2101 ak ~-NOTE: D[A] is sacred in FPOLL!!-- 

2102 x ~-RO-R4, SO-S11 

2103 ax 

2104 *k Envisioned application(s): 

2105 ae Service external alarns/tiners 

2106 aK Service ON INTR staterent 

2107 x Inplerient BREAKPOINT capability in BASIC 

2108 7x Checking next staterient to execute for Breakpoint 

2109 ak Setting Except (S12) so pExcpt will occur at the end 

2110 ae of the next staterent 

2111 RK Servicing ON TIMERH > 3 fron an extended statenent 

2112 ae 

2113 ** History: 

2114 aK 

2115 te Date Progranner Nodification 

2116 RKO nen een ee nn nnn n ne rere nnn ne en nen nn nn nen ee eee eee 

2117 ** 01/16/83 JP Added poll 

2118 kk 04/04/83 IP Status saved/restored in DSPSTA 

2119 kk 05/07/83 IP Updated docunentation header 

2120 05/18/83 JP Attn Key not checked before poll 
®) 

ee $I IOI TI I OA III IIIS I III ITI IIT IIIS IIIT IOI ISIS IIIS III IS ISS SI II TK 

9123 JUSS III OIG ISO IOI IC TIT IT K 

2124 JOIST I TEI IOI TI SII 

2125 JO IOI UI IO I III II III II IO TAT II ISS 

2126 x 

2127 * Main Entry into BASIC Interpreter 

2128 * BSCEXC: Clear No Continue flag 

2129 * — BSCEX2: RUN/CONT/SST entry 

2130 - 

2131 x PgnRun = 1 1f beginning to execute a progran 

2132 x If PgnRun 

2133 : DO @ EOL before statenent to execute 

2134 x else 

2135 : DO @ Statenent length byte 
& 

ee $3) III III IOI TI III AIK 

°138 SIS III RT II II III III III III IAI SASSI SST SS 

2139 , 

2140 * Move DO into RO for Fast Poll 

2141 * Poll on entry into BASIC interpreter 

2142 * 

2143 07437? 84— =BSCEXC ST=0 Nofont Clear NoCont flag 

2144 0743A 136 =BSCEX2 CDOEX 

2145 07430 108 RO=C Move DO to RO 

2146 07440 7CD1 GOSUB FPoll Fast Poll 

2147 07444 SF CON(2) =pBSCen Entering BASIC interpreter 

2148 07446 118 C=RO 

2149 074439 134 DO=C Restore DO 

2150 

2151 * If staterent execute (not progran running) 

2152 * No line nunber to skip 

2153 . go update PCADDR @ staterient length byte 
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2154 * 
2155 0744C 86D ?$T=0 =PgnRun not Running ? 
2156 O744F 43 GOYES BSCX30 
2157 x 
2158 * else 
2159 a DO @ EOL or @ (nulti-statenent line) 
2160 a Check for EOL 
2161 - If @ 
2162 x go update PCADDR 
2163 z 
2164 * LABEL entry if Label within nulti-statnent line 
2165 : Avoids display of internediate labels during SST] 
2166 
2167 07451 14A =BSCXLP A=DATO B Look for EOL, @ or ELSE 
2168 07454 161 BSCX1IO DO=D0+ 2 Move past token 
2169 07457 20 P= 0 
2170 07459 9C 7AHO OP Not EOL ? 
2171 0745C 72 GOYES BSCX30 
2172 a 
2173 * At EOL 
2174 x If fron keyboard (not running (PgnRun)) 
2175 x go Read filetype and exit BASIC 
2176 x else 
2177 x If @ end of current progran scope 
2178 x go execute END statenent 
2179 x 
2180 O745E 87D BSCX20 ?ST=1 PqriRun Running ? 
2181 07461 60 GOYES BSCX22 Check if @ end of progran 
2182 07463 6861 GOTO § BSCEXT Read filetype,Poll, goto MAINLP 
2183 07467 1F76 BSCK22 01=(5) =PRGMEN End of current prograni 
5F2 
2184 0746E 147 C=DAT1 A 
2185 07471 132 RDOEX Current position in progran 
2186 07474 8B2 AC OAR Within prograr scope ? 
2187 07477 & GOYES BSCX25 Yes 
2188 07479 6101 GOTO ENDO No - Execute END statenent 
2189 07470 132 BSCX25 ADOEX Restore DO 
219% 07480 163 ; DO=D0+ 4 Skip over line# 
2191 
2192 * DO = Start of statenent line (@ line length byte) 
2193 * Update current PC address @ staterient length byte 
2194 x 
2195 07483 1F97 BSCX3O 01=(5) =PCADDR 
6F2 
2196 0748A 136 CDOEX 
2197 0748D 145 DAT1=C A 
2198 074% 134 DO=C SAVE PTR TO L.L. BYTE 
2199 07493 161 DO=D0+ 2 Move past next token 
2200 07496 08 CLRST Clear status before jurp 
2201 07498 DO A=O =A 
2202 0749A 14A A=DATO B Read Begin BASIC token 
2203 07490 20 P= 0 
2204 : 
2205 ; Check for Implied LET | FN 


2206 
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2207 0749F 315B BSCX40 LC(2) =BASICs Begin BASIC start 
2208 074A3 9E2 7A<C OB Not Begin BASIC token ? 
2209 0746 91 F GOYES BSCX45 Inplied LET Execute 
2210 
2211 * Calculate Execution Address 
2212 - 
2213 074R8 161 DO=D0+ 2 Move past BASIC token 
2214 O74AB 8E00 GOSUBL =EXCADR Get Execution Address 
ey 
2215 074B1 06 RSTK=C 
2216 074B3 01 RTN Jurip to execution routine 
2217 x 
2218 * All statements return through NXTSTM or RUNRTN 
2219 a 
2220 x 
2221 * LET Statenent Execute 
2222 * Tnplied LET execute 
2223 * Skip to next statenent 
2224 x goto NXTSTN instead of LNSKP- to clear sEND flag 
2225 * will return to RUNRIN 
2226 é 
2227 074B5 00 REL(5) =LETDC LET statenent Deconpile 
0 
2228 074BA 0000 REL(5) =LETP LET statenent Parse 
0 
2229 074BF =LET 
2230 O74BF 8FOO BSCX45 GOSBYL =ASNMNT 
000 
2231 074C6 GE02 GOTO 3=Nxtstn Skip over renarks 
2232 x 
2233 a 
2234 * Junp back fron Exception Checking 
2235 % 
2236 * CKEX-O: (No exceptions or service requests) 
2237 x 
2238 * If pending tiner 
2239 . Save DO on stack 
2240 . go service tiner 
2241 * else 
2242 x go Continue BASIC loop 
2243 s 
2244 * CKEXOO: (Error Exit) 
2245 x 
2246 * go Continue BASIC loop 
2247 % 
2248 O74CA 1E16 CKEX-O D1=(4) =PNDALM Pending alarn bits 
7F 
2249 07400 14F C=DAT1 B 
2250 07403 A66 C=C+C 8B Shift off Bit 4 (Timeout bit) 
2251 O74D6 SE 7C#0 OP Timer 1 or 2 or 3 set ? 
2252 07409 60 GOYES CKEXO1 Save DO & go Service tiners 
2253 074DB 6REO CKERXOO GOTO BSCX6O Nothing to service 
2254 O74DF 136  CKEXO1 CDOEX 
2255 O74E2 06 RSTK=C Save DO on Stack 


2256 074E4 425 6a CKEXOS B.E.T. - go service tiners 
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2257 % 
2258 * Most statenents return to RUNRTN through GOLONG NXTSTA 
2259 * sENDx is clear fron NXTSTM (unless END statenent) 
2260 * sENDx set if END Staterient; NoCont set if END within Progran 
2261 * 00 @ EOL | @ of next statenent 
2262 x 
2263 * GOTO, GOSUB, CALL, END SUB, FN return to RUNRT1 
2264 * DO @ EOL | @ of next statenent 
2265 x 
2266 * Error Exits return fron MFERR/BSERR and TRANSFORM to ERRRTN 
2267 * 00 @ EOL | @ before current staterent in error 
2268 * sENDx 1s clear 
2269 * NoCont is set 
2270 * — sERROR is set 
2271 & 
2272 * NoCont = 1 if Don’t Continue Execution ($14) 
2273 x 
2274 * Collaspe Math stack 
2275 x 
2276 074E7 841 =RUNRT1 ST=0  sENDx Clear END execute flag 
2277 O74EA 840 =RUNRTN ST=0 — sERROR Clear ERROR exit flag 
2278 O74ED 20 = =ERRRTN P= 0 
2279 O74EF IFES D1=(5) =FORSTK 
5F2 
2280 074F6 147 C=DAT1 A FORSTK pointer 
2281 074F9 1€4 D1=D1- 5 NTHSTK/AVNENE 
2282 O74FC 145 . DATI=C A Collaspe NTHSTK --> FORSTK 
2283 
2284 * If Error Exit 
2285 x Skip exception checking 
2286 ‘ Avoids servicing an ON TIMER or ON INTR after an Error 
2287 m Tracing shows branching after Error occurs 
2288 - MAINLP will check Exceptions 
2289 - 
2290 O74FF 870 ?ST=1  sERROR Not continuing execution ? 
2291 07502 9D 2 GOYES CKEX00 Skip exception checking 
2292 
2293 * If no exceptions and no Hardware Service Request 
2294 : go Check if Pending Tiners 
2295 : 
2296 07504 87C ?S$T=1 Except Exception occured ? 
2297 07607 GOYES CKEXO5 
2298 07509 80E SREQ? Service request ? 
2299 07500 834 7SR=0 None ? 
2X0 0750F BB GOYES CKEX-0 Continue 
2X1 07511 824 SR=0 Leave Service request clear 
2X2 07514 136 CKEXOS CDOEX 
2X3 07517 06 RSTK=C Save DO on stack 
2X4 07519 8EOO GOSUBL =CKSREQ Check service requests 
00 
205 O751F 870 ?ST=1 Except Exceptions ? 
26 07522 60 GOYES CKEXO? 
2X7 07524 6990 CKEX06 GOTO BSCX5O Restore DO and continue 
2H8 . 


29 * Exception occured 
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2310 * Fast Poll for Exception 

2311 * Restore S0-S11 to preserve sENDx setting 

2312 x 

2313 07528 84C CKEXO? ST=0 = Except Clear Exception flag 

2314 0752B 71F0O GOSUB FPoll Fast poll 

2315 O752F 8F CON(2) =pExcpt Exception occured 

2316 07531 8E00 GOSUBL =USRSTA Restore status fron DSPSTA 
00 

2317 x 

2318 * If Attention Key hit 

2319 x Avoid Timer checks 

2320 x 

2321 * If program running 

2322 x Set mask for checking tiners 

2323 x © = Allous for shift before test 

2324 x —E=1110 Bit 0 = Tiner 1 

2325 x D = 1101 Bit 1 = Tiner 2 

2326 x B= 1011 Bit 2 = Tiner 3 

2327 x 0 = Done 

2328 s Read Pending alarn bits 

2329 x Count Tiner# and check if bit set for tiner 

2330 - 

2331 07537 7271 CKEX08 GOSUB CK"ON" Set NoCont if ATTN hit. 

2332 0753B 58E GONC CKEX0O6 If ATTN Key/ skip tiner check 

2333 0753E 86D ?S8T=0 = PgnRun Not running a prograr ? 

2334 07541 D? GOYES BSCxX50 Continue 

2335 07543 340E LCHEX OBDEO Mask to check Tiner bits 
DBO 

2336 0754A D5 B=C A Nove nask to B 

2337 0754C ACO A=0 S Clear Tinert 

2338 O754F 1F16 CKEX10 D1=(5) =PNDALN Pending Alarn RAN 
7F2 

2339 07556 14F C=DAT1 B Read pending alarn bits 

2340 07559 FS CKEX20 BSR A Shift to next task 

2341 0755B 909 ?B=0 OP All 3 tiners checked ? 

2342 O755E 06 GOYES BSCxX50 Done, continue 

2343 07560 B44 A=A+1 S$ Checking next tiner # 

2344 07563 OE01 B=B&C ~P Turn off tiner bit 

2345 07567 901 *B=C OP Was Timer never on ? 

2346 0756A FE GOYES CKEX20 Check next tiner 

234? x 

2348 * Get Corresponding ON TIMER address for Tiner# 

2349 * If non-zero TIMER address 

2350 x Check if TIMER address within current Progran Scope 

2351 x If within scope 

2352 % Update PNDALN to zero Tiner bit 

2353 . Set Except if another tiner 1s due 

2354 - Enables tiner to be detected next statenent 

2355 a C <-- ON TIMER address 

2356 . Set ONTINER statenent flag 

2357 x Clear ONERR flag 

2358 x RSTK = Next staterent to execute after Tiner 

2359 * A(S) = Tiner # 

2360 * go process ON TINER statenent 

2361 * else 
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2362 

2363 

2364 O756C 8E00 
00 

2365 07572 143 

2366 07575 8A8 

2367 07578 7D 

2368 O757R 7441 

2369 O757E 40D 

2370 07681 100 

2371 07584 D4 

2372 07586 1F16 
7Fe 

2373 0758D 159% 

2374 07591 8FOO 
000 

2375 

2376 

2377 

2378 

2379 

2380 07598 7585 

2381 O759C 401 

2382 O759F 07 

2383 075A1 06 

2384 075A3 134 

2385 O75A6 163 

2386 O75A9 7BAS 

238? 

2338 

2389 

23% 

239) 

2392 

2393 

2394 O75AD 110 

2395 O75B0 D6 

2396 O75B2 856 

2397 O75B5 844 

2398 O75B8 8COO 
00 

2399 

2400 

2401 

2402 

2403 

2404 O75BE 07 

2405 O75C0 134 

2406 07503 840 

2407 

2408 

2409 

2410 

2411 O75C6 87E 

2412 O75C9 60 
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: go check if any other Tiners went off 
x 


GOSUBL =GTMRA+ Get ON TINER address 
A=DAT1 A Read TIMER address 
7A=0) 6A No TIMER address ? 
GOYES CKEX10 go Check 1f any other tiners 
GOSUB = Scopck Check progran scope 
GOC CKEX10 Not within current progran 
RO=A Save Tiner#, ON TINER address 
A=B A Retrieve Tiner bit mask 
D1=(5) =PNDALN 
DAT1=A 4 Update Alarn RAM; zero Tiner bit 
GOSBVL =ALNSRV Set Except if another tiner due 
x 
* If tracing 
k Update PCADDR at statenent about to execute 
x Allows TRACE with Tiners to look right 
x 
GOSUB TrfCk- Tracing ? 
GOC CKEX30 No 
C=RSTK Next stnt address 
RSTK=C 
DO=C DO @ EOL or @ 
DO=D0+ 4 Move into statenent 
GOSUB UPDPC Update PCADDR @ start of LINE 
k 
* Set ONTINER statenent flag 
* Clear ONERR flag 
* RSTK = Next statenent to execute after Tiner 
* A(S) = Tiner # 
* go process ON TINER statenent 
k 
CKEX30 A=RO Restore Timer#, ON TIMER address 
C=A A Move ON TINER address to C 
ST=1 — sONTHR Set ON TIMER statenent flag 
ST=0 — sONERR Clear ON ERROR statenent flag 
GOLONG =ONTINR Process ON TINER statenent 
* 
* Exceptions have been checked 
* Restore DO 
* Clear sERROR flag incase set by Exception Checking 
k 
BSCX50 C=RSTK Restore DO 
DO=C 
ST=0 — sERROR Clear ERROR flag 


x 


* If continue execution 

% go process end of statenent & possible next line 

* 

BSCX60 ?ST=1 NoCont 
GOYES BSCX70 


Don’t continue ? 


Saturn Assenbler 


Systen Connands, RUN Loop<8312 Fri Dec 3, 1983 3:10 an 


Ver, 3.39/Rev. 2306 BASIC Interpreter Loop Page 49 
- 2413 O75CB 658E GOTO  BSCXLP 
2414 x 
2415 * Don’t Continue execution 
2416 : 
2417 * 
2418 * BSCEXT: Exit BASIC Interpreter 
2419 * 
2420 ® sERROR (SO) = 1 if Error occured 
2421 x 
2422 * Return to Keyboard Entry: PgrRun=0 
2423 x ENDSUB, END DEF and RETURN enter here if Keyboard Return 
2424 x 
2425 * Binary file return point fron ENDBIN 
2426 * ENDALL return point: 
2427 & PURGE/MERGE current running file 
2428 x 
2429 * If PgriRun is set and BASIC progran 
2430 x DO rust be valid; since SUSP will occur 
2431 z DO @ staterent to SUSPended 
2432 x 
2433 x 
24:34 * Clear Program Annunciator 
2435 * Read filetype (into R2) 
2436 x If non BASIC file 
2437 * Don’t suspend --- go Exit BASIC loop 
2438 * If not running 
2439 . go exit BASIC 
2440 * else 
2441 k If not END statenent 
2442 * Update Continue address 
2443 Set SUSP Annunciator/Flag 
2444 . Compute and Update Current Line# 
2445 x 
2446 O75CF =BSCEXT 
2447 O75CF 7801 BSCX70 GOSUB Sflglp Clear Progran Annunciator 
2448 O75D3 7711 GOSUB RDCHD+ Read current file type 
2449 07507 7361 GOSUB BASCHK BASIC file ? 
2450 O75DB 4B2 Coc BSCEX+ No ' R2=filetype 
2451 O75DE 86D ?$T=0 = PgnRun Not Running ? 
2452 O75E1 62 GOYES BSCEX+ 
2453 * 
2454 * If not END/STOP statenent 
2455 * Restore DO 
2456 If next statenent = ELSE --> Skip to EOL 
2457 : Update Continue Address <-- DO 
2458 * DO @ EOL or @ before next statenent 
2459 - Set SUSP Annunciator/Flag 
2460 & 
2461 O75E3 871 ?ST=1— sENDx END statenent ? 
2462 O7SE6 12 GOYES BSCEX+ 
2463 O75E8 163 DO=D0+ 4 Position past @ and line length if 
2464 O75EB 14A A=DATO B Read statenent token OR part of lin 
2465 O7SEE 3100 LC(2) =tELSE 
2466 O7SF2 183 DO=DO- 4 Position back to @ or EOL 
2467 O75F5 966 PARC OB Not ELSE ? 
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2468 O75F8 80 GOYES BSCX85 
2469 O75FA 8E0O GOSUBL =EOLSCN Scan to EOL 
00 
2470 t 
2471 * Update Continue address 
2472 * Set SUSP annunciator 
2473 : Compute and update CURRL at line containing CONTinue address 
2474 
2475 07600 136 BSCX85 CDOEX Move addr to C 
2476 07603 718D GOSUB CNTCUR Update CNTADR, Set SUSP, Update CUR 
2477 x 
2478 * EXIT BASIC Interpreter 
2479 & 
2480 * SST @ End of Progran Entry 
2481 x Executes END statenent 
2482 x Avoids updating CURRL, which was set fron prior PAUSE/SST 
2483 x PCADDR has no meaning in SST execute 
2484 . 
2485 * If not an error 
2486 . Flush all open buffers 
2487 : Cannot "try" to flush buffers if Error: 
2488 x If HPIL loop is broken 
2489 x Error is generated; 
249 x Attenpting to flush buffers on error causes Infinite lo 
2491 * Fast Poll for exiting BASIC Interpreter 
2492 * Clear Don’t Continue flag 
2493 * golong NAINLP 
2494 x 
2495 07607 870 BSCEX+ ?ST=1 sERROR Error occured ? 
2496 0760A 90 GOYES BSCX95 
24397 07600 8F0O GOSBVL =FLUSHA Flush all buffers 
000 
2498 07613 790 BSCX95 GOSUB FPoll Fast Poll 
2499 07617 6F CON(2) =pBSCex Exiting BASIC interpreter 
2500 07619 84E ST=0 NoCont Clear Don’t Continue flag 
2501 0761C 673C GOTO MLPEXT Return to Main Loop 


2502 07620 8000 =FPoll GOVLNG =FPOLL 
000 
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2503 STITLE END/STOP Execute 
2504 JI III IO OC IOI I TID TT I TT TI TT 
2505 JUICES TOTO IOI TITS I 
2506 i 
2507 ** Narie: END - END, END ALL, END SUB, END DEF Statenents 
2508 ** Wane: (S) ENDALL - External Stnt entry to perform END ALL 
2509 ** Wane: (S) ENDBIN - End Binary Progran or Subprogran 
2510 ** Narie: END10 - STOP Statenent Execute 
2511 ** Narie: END20 - END SUB reentry 
2512 ** Nane: STOP - STOP Statenent Execute 
2513 x Nane: EXITRN - Clear status, return to BASIC loop 
2514 x 
2515 ** Category:  STEXEC 
2516 aX 
2517 *k Purpose: 
2518 ak These entry points deal with tertinating execution 
2519 ax of in the current environment due to an explicit 
2520 a cormand such as END or STOP, or a SST past the last 
2521 a staterent in the progran. The running progran nay 
2522 ax be BASIC or Binary. 
2523 ax 
2524 aa END checks for ALL token 
2525 ax checks for ENDSUB/ENDDEF 
2526 xs Returns to BASIC loop allowing exceptions to be 
eSe7 xs checked 
2528 aX 
2009 es S2 set will cause ending of execution so that: 
2530 a Exceptions not checked 
2531 a Progran not suspended, CNTADR not updated 
2532 ae 
2533 ae All entries but ENDALL collapse ONLY ONE level 
2534 x ENDALL collapses to one level 
2535 RR 
2536 ** Entry: 
2537 ae END: DO past END token 
2538 aA Checks for ALL token 
2539 ah STOP: 
2540 a ENDBIN: 
2541 ah END10: (Checks 1f END SUB or END DEF) 
2542 AR (BASIC Loop entry if @ progran scope end) 
2543 ae (SST @ Progran End entry) 
2544 a 
2545 a sSST (S2=1) af non-exception/nonprogran exit 
2546 ae (Clears PgnRun ($13=0), Clears $0-S11) 
2547 ae (Returns to BASIC loop without checking 
2548 um exceptions) 
2549 ae (Prevents update of Cont Addr [CNTADR]} 
2550 ae and SUSPend of prograr) 
2551 ae Collapse stacks one level ONLY 
2552 a 
2553 a END20: END SUB reentry 
2554 i sSST assumed cleared ($2=0) 
2555 zs If S2=1 acts like END10 entry 
2556 xe 


2557 =m ENDALL: External Statenent entry 
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2558 a Sets sSST (S2=1) to avoid CNTADR update and 
2559 an program suspension 
2560 aS Avoids checking of exceptions in BASIC loop 
2561 aa Clean-up for TRANSFORM current file 
2562 aK Clean-up for PURGE current file 
2563 i Collapse stacks down to ONE level 
2564 & 

2565 aR All entries, but ENDALL, collapse ONLY ONE level 
2566 KK 

2567 kK Exit: 

2568 aR If END ---> sENDx (S1=1) for BASIC loop return 
2569 7 Prevents SUSPend of progran 

2570 aA Through NXTST1 to avoid sENDx clearing 
2571 ak Returns to BASIC loop so exceptions 
2572 ak are checked 

2573 ak NoCont ($14=1) if within progran 

2574 x Causes BASIC loop execution to stop 
2575 aR If END DEF or inplied END DEF 

2576 xx ---> Through ENDDEF 

2577 aR If END SUB or implied END SUB 

2578 ak ---> Through ENDSB- 

2579 kh If SST @ PRGNEN or non exception check END desired 
2580 ak ~--> Through BSCEXT with PgnRun (S13) clear 
2581 ae Exceptions are not checked 

2582 aK Prevents CNTADR update and prgn SUSPension 
2583 ae 

2584 ae If non BASIC progran 

2585 aR ~--> Through EXITRN 

2586 ax Clears SO-S11; exit BASIC loop (BSCEXT) 
2587 aK Exceptions are not checked 

2588 7 CNTADR not updated, progran not SUSPended 
2589 x 

2590 - Calls: CLRSTK, CLOSEA, CLPSTK, GETSTC, SUBCHK 

2591 

2592 *k Uses: A-D,P, D1, DO, CNTADR, sENDx (S1), sSST (S2), 
2593 AX RO,R2,ALRM (+36), PNDALN (+1), STNTD1, FISUSP, PgnRun 
2594 xe 

2595 ** Stk lvls: 6 

2596 ah 

2597 ** Algorithn: 

2598 ax If END ALL 

2599 ze goto ENDAL1: 

2600 ** ENDBIN: 

2601 ** ENDIO: If END DEF | END SUB 

2602 aK go process appropriate statenent 

2603 kX END20: Clear addresses, one level of stacks (CLRSTK) 
2604 xk END30: Close all open files (CLOSEA) 
2605 aK If non BASIC file (GETSTC) 
2606 Kk go Clear status and Exit BASIC loop (BSCEXT) 
2607 ax If non programmatic END desired (sSST) 
2608 a Clear PgnRun to prevent SUSPend 

2609 i go Clear status and Exit BASIC loop (BSCEXT) 
2610 ak else 

2611 ae If progran running 


2612 ax Set Don’t Continue flag (NoCont) 
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2613 ax Set END Execute flag (sENDx) 
2614 aS Golong to end of BASIC loop through 
2615 aX NXTST1 to avoid sENDx clearing 
2616 aX 
2617 **X ENDALL: Set sSST flag 
2618 ** ENDALt:Collaspe stacks to one level (CLPSTK) 
2619 a goto ENDX 
2620 wk 
2621 ** Note: 
2622 RK 
2623 ** The sENDx flag was originally used to distinguished END fron 
2624 *k all other statenents/conditions that stop the BASIC loop exec. 
2625 ** Tf a program had been running, 
2626 *k this flag allowed CURRL to be updated to the END statenent, 
2627 *k but prevented the SUSP annunciator from lighting and the 
2628 ** CONTINUE address fron being updated. 
2629 KR 
2630 ** This sSST flag uas used to avoid any checking of a progran 
2631 ** running by returning to a different place in the BASIC loop, 
2632 ** since CURRL could not be updated in situations like SST past 
2633 ** the progran end. 
2634 an 
2635 kk When the decision was made to update CURRL only when 
2636 ** SUSPending the use of tuo flags is not that different. 
2637 ** A "norrial" END statenent returns through NXTSTN to the BASIC 
2638 ** loop. This causes exceptions to be checked before execution is 
2639 ** stopped if a program was running. If fron the keyboard, 
2640 ** execution continues. If sSST 1s set (from SST past 
2641 ** the end of the progran or for TRANSFORMing the current file... 
2642 a then the BASIC loop is reentered below the exception checking. 
2643 
2644 4* Tn either case, neither CNTADR 1s updated, nor SUSP lit. 
2645 ae 
2646 ** History: 
2647 ae 
2648 ** Date Progranner Modification 
2649 EX SocseesllS Sestak 
2650 Xk 03/08/83 JP STOP === END SUB, END DEF 
2651 * 03/17/83 JP Packed D1=(5) CALSTK 
2652 ** 04/25/83 JP CLRST thru EXITTRN if sSST 
2653 A* 05/09/83 JP Clear PgnRun before EXITRN 
2654 *x 05/17/83 JP Check ENDSUB/DEF if SST 
2655 ak at end of progran (PRGNEN) 
2656 A* 06/05/83 JP END10 1s Binary progran return 
2657 ** 06/05/83 JP If nonBASIC prgn---> EXITRN 
2658 ** 06/05/83 JP ENDBIN entry point added 
9659 a 
aoe ORI OO ORO ORO OOO OOO OIG ROI tok 
2661 FORO ORO TOO IOI OO TOT IOI TOTO OO OOOH 
2662 ‘ 
2663 07627 8000 =DEFEND GOVLNG =ENDDEF 


2664 


2665 0762E 8000 


000 


000 


* 
S 


UBEND GOVLNG =ENDSB- 
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2666 * 

2667 07635 KOO REL(5) =ENDDC 
0 

2668 0763A 0000 REL(S) =ENDP 
0 

2669 s 

2670 * Entry points: 

2671 * END END statenent 

2672 * — ENDBIN 

2673 * —ENDIO SST @ PRGNEN (at end of program scope) 

2674 * Binary Progran reentry point 

2675 & Allows CALL Binary and RUN Binary 

2676 - 

2677 0763F 14A =END A=DATO B Read next token 

2678 07642 3100 LC(2) =tALL 

2679 07646 962 *A=C OB END ALL ? 

2680 07649 45 GOYES ENDAL1 

2681 x 

2682 * Binary Progran Reentry point: 

2683 x 

2684 * If SST @ PRGNEN 

2685 x sSST = 1 to cause non-progranmatic END 

2686 x 

2687 07648 =ENDBIN 

2688 0764B 1F7B =END1O 01=(5) =PRMPTR SEE IF WE ARE IN A DEF FN 
SF 

2689 07652 14F C=DAT1 B READ PARANETER COUNT 

2690 07655 96E CHO |B 

2691 07658 FC GOYES DEFEND IF PARAN COUNT #0, GOTO DEFEND 

2692 0765A 8FOO GOSBVL =SUBCHK SEE IF WE ARE STILL IN A SUB-PROG 
000 

2693 07661 4CC GOC SUBEND 

2694 & 

2695 * Entry points: 

2696 * —END20: = END progran 

2697 . Rentry fron ENDSUB (sSST=0 if END) 

2698 7 (sSST=1 if SST @ PRGNEN) 

2699 x If not ENDSUB...perforn END 

2700 * ENDO: END ALL - CLPSTK done instead of CLRSTK 

2701 7 

2702 * Collapse FOR/NEXT Stack, GOSUB Stack 

2703 * Clear CNTADR --> TMADR2 

2704 * Clear SUSP Annunciator/Flag 

2705 * Close all open files 

2706 * If SST @ End of Program or non-exception check END desired 

2707 . Junp to RUNSST to avoid exception check, CNTADR update 

2708 * and SUSPend of progran 

2709 * else 

2710 * If program running 

2711 7 Set Don’t Continue flag 

2712 . Set END Execute Flag 

2713 x Jusp to NXTST1 (avoid sENDx clearing) 

2714 5 

2715 07664 =END20 


2716 07664 7306 END25 GOSUB =CLRSTK Collapse one level ofstacks 
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2717 07668 8FOO END3O GOSBYL =CLOSEA Close all open files 
000 
2718 0766F 7380 GOSUB GETSTC Check file type 
2719 07673 433 GOC EXITRN If nonBASIC, exit BASIC loop 
2720 07676 872 ?S$T=1 sSST SST @ End of Prog or non-prgn END 
2721 07679 B2 GOYES RUNSST Clr status, Exit BASIC loop 
2722 07678 86D ?S3T=0 PgrRun Not running ? 
2723 0767E SO GOYES END40 
2724 07680 85E ST=1 — NoCont Set Don’t Continue flag 
2725 07683 851 END40 ST=1 ~~ sENDx Set END Execute flag 
2726 07686 8000 GOLONG =NXTST1 Next staterient/avoid sENDx clear 
00 
2727 , 
2728 * STOP Statenent Entry 
2729 . 
2730 0768C 0000 REL(S) =STOPOC STOP Deconpile 
0 
2731 07691 0000 REL(S) =RTNCC Parse 
0 
2732 07696 64BF =STOP GOTO ENDIO Process STOP statenent 
2733 x 
2734 * END ALL External Staterent Entry 
2735 * Set sSST to avoid CNTADR update/Pgrn SUSPend at BASIC loop en 
2736 x and to avoid exception checking 
2737 * 
2738 0769AR 852 =ENDALL ST=1 = sSST Set single step flag /non prgn END 
2739 07690 7886 ENDAL1 GOSUB CLPSTK Collapse down to 1 level 
2740 076A1 56C GONC  END30 B.Ed. 
2741 x 
2742 * SST @ end of Progran or END ALL 
2743 * Clear Progran Running flag ----so BSCEXT is correct 
2744 * and won’ t SUSPend program or update CNTADR 
2745 * Clear status so not contrued as Error exit 
2746 * Exit BASIC loop, avoiding exception checking 
2747 x 
2748 076A4 84D = RUNSST ST=0 = PqnRun Clear Progran Running flag 
2749 076A7 08 = =EXITRN CLRST 
2750 076A9 652F COTO = BSCEXT Exit BASIC loop 


Saturn Assenbler 


Systen Connands, RUN Loop<8312 Fri Dec W, 1983 3:10 an 


Ver. 3.39/Rev. 2306 CK"ON" - Check ON/ATIN Key Page 56 
2751 STITLE CK"ON" - Check ON/ATIN Key 
2752 JOGO CO EO TIT TT IAA 
2753 O00 RISO JOJO UIT OO IO 
2754 ak 
2755 ** Wane:(S) CK"ON" - Check ON / ATIN Key 
2756 ax 
2757 ** Category:  EXCUTL 
2758 ak 
2759 ** Purpose: 
2760 ak Check if ON/ATTN key hit (CK"ON" entry) 
2761 ak This routines needs to be called after 
2762 aK each statenent execute 
2763 an 
2764 *k Entry: 
2765 
2766 RK Exit: 
2767 ak Carry set 
2768 ak ATTN key Not hit 
2769 aR Carry clear 
2770 aK ATTN Key hit 
2771 a NoCont (S14) set if ATTN key hit 
2772 ak 
2773 kk Calls: None 
2774 ak 
2775 RR USES. ies cs 
2776 kK Exclusive: A(S),D1,NoCont(S14) 
2777 kk Inclusive: A(S),D1,NoCont(S14) 
2778 KK 
2779 ek $14 = ATIN key hit, NoCont flag 
2780 aK 
2781 RK Stk lvls: 0 
2782 ak 
2783 JOO ICI IOI ICICI IO TT Ta 
2784 JOO IO ICU IOC OGIO OI 


2785 O76AD 1F24 
2786 07684 1534 


4F2 


2787 O76B8 948 
2788 O76BB 00 
2789 O76BD 85E 
2790 07600 01 


2791 076C2 8C00 


00 


=CK"ON" D1=(5) =ATNFLG 


A=DAT1 § 

7A=0 OS ATTN key hasn’t been pressed ? 
RTNYES 

ST=1  NoCont Set Don’t Continue flag 

RTN Carry clear 


=Scopck GOLONG =SCOPCK 
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2792 STITLE PAUSE execute 
2793 JOIST OI II TOT ITT III IITA T TOT IK 
2794 JOIST III II OI OCI TT IE IOI IE 
2795 ax 
2796 xk Narie: PAUSE - Statenent Execution 
2797 ak 
2798 ** Category:  STEXEC 
2799 ak 
2800 ** Purpose: 
2801 AF Execute PAUSE staterent 
2802 ie 
2803 ** Entry: 
2804 AR DO past PAUSE token 
2805 a 
2806 RK Exit: 
2807 ak Through NXTSTN 
2808 kk 
2809 **k Calls: None 
2810 aR 
2811 AX Uses....... 
2812 ** Exclusive: $14 (NoCont) 
2813 *k Inclusive: $14 (NoCont) 
2814 aa 
2815 ** Stk lvls: 0 
2816 ak 
2817 ** Detail: Set Don’t Continue flag (S14) 
2818 ia Skip over PAUSE statenent & return to RUN loop 
2819 
2820 ae RUN loop processing 111 cause a SUSP in the prog 
2821 ak by S14 (NoCont) being set. 
2822 ae 
2823 FOI II III OI ITI TI TTI OTT I ITT TTI IIIT 
2824 FOI UI IIIT TUTTI TTI TT TTT TOD TTT TIO 


2825 07608 0000 
0 


2826 O76CD 0000 
0 

2827 O76D2 85E 

2828 076D5 8000 
00 

2829 

28:30 

2831 O76DB 84D 

2832 O76DE 312C 

2833 O76E2 8C00 
00 

2834 O76E8 8000 
00 


REL(S) =STOPOC Decorpile 
REL(5) =RINCC Parse 
=PRUSE ST=1  NoCont Set Don’t Continue flag 
=Nxtstn GOLONG =NXTSTN Skip STOP stnt and return to RUN lo 
* 
k 
=NOPRGN ST=O = PgriRun Clear Progran Running flag 
=SflgCp LC(2) =f 1PRGN Clear program annunciator 


=Sflagl GOLONG =sflagc 
Poll GOLONG =P011) 
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2835 STITLE Read File Header 
2836 JORIS III TTT TOT TOT RII IAT K 
2837 JOU OO II ITI AT IOI TI IAT II ITAA H 
2838 ak 
2839 ** Warne: (S) RDCHDR - Read Current File header, File length 
2840 ** Wane: (S) RDCHD+ - Read Current File header,File length and t 
2841 ** Name: (S) RDHDR1 - Read File header, File length 
2842 an 
2843 t* Category: FILUTL 
2844 a 
2845 ** Purpose: 
2846 aK Read file header, return File length, possibly File type 
2847 
2848 ** Entry: 
2849 ae RDCHDR: Sets D1 = Start of Current File @ Header 
2850 ax Assunes: 
2851 ax If P=0; File type read into R2 
2852 ax If PHO; File type not read into Re 
2853 ax RDHDR1: 01 @ Start of File @ header 
2854 ax Assunes: 
2855 a If P=0; File type read into R2 
2856 ak If P#O; File type not read 
2857 ax RDOCHD+: Set D1 = Start of Current File 
2858 ax Explicitly sets P=0 
2859 ae File type will be returned in R2 
2860 ai 
2861 ak Exit: 
2862 ae Carry Clear 
2863 a D1 @ File length of header 
2864 = A = File length 
2865 ak Current D1 + (A) = Next Fale in Chain 
2866 kx 
2867 ax If P=0 
2868 ax R2 = File type 
2863 ae 
2870 ax P is NOT reset; necessary for GETSTC to call RDHDRI1 
2871 an Calling routine must reset P=0 if desired. 
2872 kx 
2873 ** Calls: None 
2874 x 
2875 kk Uses....... 
2876 kk Exclusive: A(A),P,R2 (if P=0),D1 
2877 tk Inclusive: A(A),P,R2 (if P=0),D1 
2878 ak 
2879 kK Stk Ivis: 0 
2880 ak 
2881 kX Detail: File Header Fornat: 
2882 ax 
2883 ax File Nane 16 nibbles 
2884 ak File Type 4 
2885 xe Flags 2 
2886 ax Creation Tine 4 
2887 kx Creation Date 5 
2888 ax File Chain 5 
2889 ax Inplenentation 8 
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28% = 
2891 ax 
2892 *k History: 
2893 i 
2894 ae Date Prograriner Modification 
2895 KR?! Jseee ie (peoceeetow -Arwecbosecec ceo tee ee ee SS ody 
2896 xk 06/30/82 IP Modified Docunentation 
2897 kk 01/04/83 JP Change S9 usage to P=0/PHO 

ax 
Sc JI OIG IIIS CTO OCICS OCC II TR 
2900 JI IOI IIIS TIS ITI TOCTI ITT ISIS IIA 
2301 x 
2902 O76EE 20 =RDCHD+ P= 0 Indicate File TYpe wanted 
2903 O76FO 1FDS =RDCHDR D1=(5) =CURRST 

5F2 

2904 O76F7 143 A=DAT1 A Start of CURRent file 
2905 O76FA 131 RDHDRO D1=A 
2906 O76FD 17F =RDHDR1 D1=D1+ oF TYPh Skip to File Type 
2907 07700 DO A=0 A 
2908 07702 880 ?PH 0 File type not wanted 7? 
2909 07705 90 GOYES RDHD10 
2310 07707 1583 A=DAT1 4 Read File type 
2911 0770B 102 R2=A R2 = File type 
2912 O770E 17F RDHDIO D1=D1+ (oF LENH)-(oFTYPh) Move to File Length fron File T 
2913 07711 143 A=DAT1 A Read File length 


2914 07714 03 RTNCC 
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2915 STITLE Get first line of BASIC file & EOF 
2916 JOIST ITO ICO OCI OOO TTI TT 
2917 JOISTS ITI TORII ITT TK 
2918 ak 
2319 ** Name: (S) GETSTC - Get Start/EOF Curr File/check Filetype 
2920 ** Nane:(S) GETST- - Get Start/EOF Curr File/don’t check Filety 
2921 ** Nane:(S) GETST* - Get Start/EOF any file/check Filetype 
2922 *x Nane: GETSTe - Get start/EOF Curr File/Error exit not BAS 
2923 ** Nane: GETPeF - Check protection & get file start/EOF 
2924 wn 
2925 ** Category:  FILUTL 
2926 xh 
2927 ** Purpose: 
2928 ax GETSTC,GETSTe: 
2929 ak Return first line of BASIC/Binary file & EOF 
29H) a If P=0 
2931 a Verify that file is BASIC, Error Return if NOT 
2932 kk 
2933 x See GETSTe for Error Exit if non BASIC file 
2934 a 
2935 a GETPeF: 
2936 xm Check File protection 
2937 aK Error exit if file protected 
2938 ak Fall into GETSTC code 
2939 kk Get start/end of BASIC file 
2940 ** Error return if non BASIC file 
2941 oe 
2942 *k Entry: 
2943 ae 
2944 ax GETPeF: Checks file protections 
2945 ae Falls into GETSTC 
2946 xe GETSTC: D1 gets set to start of Current file 
2947 an Sets P=0 
2948 ak File type read into R2; Check if BASIC 
2949 Kx Falls into BRSCHK 
2950 x GETST-: Di gets set to start of Current File 
23951 am Assuries P set on entry 
2952 a Used for P#O entry 
2953 KK File type not read into R2, not checked 
2954 ae GETST*: A @ Start of file 
2955 ais Assunes P value on entry 
2956 a 
2957 ax GETST1: 01 @ File length field of file 
2958 a A(A) contains file length 
2959 as If P=0 
2960 am Checks file type in R2 for BASIC file type 
2961 i 
2962 RK Exit: 
2963 xt If GETPeF entry: 
2964 aa If file protected: 
2965 ax Error Exit to MFERR  (eFPROT) 
2966 as 
2967 a P=0 
2968 ae DO @ First line of file (at initial tEOL) 


2969 a DP = End of file 
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23970 aK A = File length 
2971 Kx 
2972 xk If P#O 
2973 xx Carry Clear 
2974 kk File type NOT in R2, file type NOT checked 
2975 aK 
2976 aK If P=0 
297? Ka Fall into BASCHK 
2978 am If BASIC filetype 
2979 aK Carry Clear 
2980 aR R2 = File type 
2981 a else 
2982 kk Error Return - C(0-4) = eF TYPE 
2983 kk 
2984 - Calls: RDCHDR, RDHDR1, GETPRO (GETPeF entry only) 
2985 % 
2986 RK USCS. oases 
2987 *k Exclusive: A(A),C(A),D(A),D0,D1,P,R2 (af P=0) 
2988 *k Ixclusive: A(A),C(A),0(A),D0,01,P,R2 (af P=0) 
2989 ae 
2990 *k Stk lvls:  GETSTC,GETPeF,GETST1,GETST*,GETST1: 1 
2991 aK GETSTe: 2 
2992 xe 
2993 ** Detail: 
2994 etal Positions to first line of file assuning;: 
2995 a 
2996 ae oBSsod = Offset to BASIC start of data, which 
2997 nx includes the pernanent EOL. 
2998 wx 
2999 kk Must subtract length of EOL to position @ first line 
3000 & 
3001 ** History: 
3002 aK 
3003 *k Date Progranner Modification 
3004 RX sects “.Eaceeeoces. p Son ebelDecsce soc los took e SSS 
3005 ** 06/30/82 JP Modified docurentation 
3006 X* 09/15/82 JP Changed to Error Return, not Exit 
3007 **x 01/04/83 IP Changed $9 usage to P=0/PHO 
3008 xk 03/01/83 IP Added GETPeF entry point 
3009 x 
3010 JI IE IIIT ITT IOI TTI TI TTT K 
3011 JO IDO I OT III ITO TTR E 
Wile a 
3013 07716 7OEF =GETST* GOSUB RDHDRO 
3014 07718 511 GONC GETST1 (B.E.T.) 
3015 7 
3016 0771D 8600 =GETPeF GOSUBL =GETPRO 
00 
301? 07723 424 COC Nferr Private file ? 
3018 a 
3019 07726 20 =GETSTC P= 0 Request file type in R2 
3020 07728 74CF =GETST- GOSUB RDCHDR Read Current file header 
3021 07720 137 =GETST1 CDIEX C @ File length nib of file 
3022 O772F 134 do=C 
3023 07732 C2 C=C+A A 
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24 07734 D7 D=C A D = End of file 
W25 07736 16E DO=D0+ (oBSsod)-lEOL Offset to data - Pern EOL 
326 07739 880 ?PH 0 No file type to check ? 


327 0773C 44 





GOYES BASCK3 
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H28 STITLE Verify BASIC file type 
3029 JI IIIT IIIS OOOO OCC COIS ETI I OTT TOK 
3030 III II III I I III I TTI IIT I III TO TID IIR ITO T IS IIIT III IIIS IIIT III IK 
31 xh 
32 ** Narie:(S) BASCHK - Verify File Type in R2 is BASIC 
3033 *X Narie:(S) BASCHA - Verify File Type in R2 is BASIC 
34 ae ; 
3035 xk Category:  FILUTL 
3036 ae 
3037 xk Purpose: 
38 ah BASCHk: 
3039 aK Verify that File type in R2(A) is BASIC 
3040 ak BASCHA: 
3041 xx Verify that File type in A(A) is BASIC 
3042 at Error return 1f not 
3043 kk 
3044 xk Entry: 
3045 ae P=0 
3046 xe BASCHK:  R2(A) = File type 
3047 aX BASCHA: A(R) = File type 
3048 nA 
3049 aK Exit: 
3050 ak P = 0 
3051 aR 
3052 ae If File type = BASIC 
3053 ae Carry Clear 
3054 aK R2(A) = File type 
3055 sx A = Preserved fron Entry 
3056 AE else 
3057 ae Carry Set 
3058 ae Error Return C(0-4) = eF TYPE 
3059 4 R2(A) = File type 
060 ae ACA) = File type 
Hol aR 
WE2 ** Calls: None 
X63 aig 
64 RR OUSES odie eres 
#65 *R Exclusive: C,R2 
3066 *k Inclusive: C,R2 
HG? a 
68 ** Stk lvls:  BASCHK: © 
69 ak GETSTe: 2 
70 xR 
3071 ** Detail: This code nust IMMEDIATELY follow GETSTC 
H72 aS 
3073 ** History: 
3074 aR 
3075 AR Date Progranner Modification 
3076 KK nna nnn nnn nen ne teen ne nnn enn nn enn nn nn ne ene eee 
77 ax 06/30/82 IP Modified docunentation 
3078 xx 09/15/82 IP Changed to Error return/not exit 
H79 RR 12/17/82 = JP Added BASCHA entry 
3080 ** 01/04/83 JP Added P=0 at end, due to GETSIC 
3081 ** 03/01/83 IP Renove GETS-e entry due to NULLP 
N82 *& 04/25/83 IP If non BASIC, R2 = filetype 
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083 oe 
84 IKI IK IRIS IIIA IARI IIS III III III IIS IIS ISIS III IIS SII SII IIIS S OB IIS IA 


85 
86 O773E 122 
87 07741 3441 
2E0 
88 07748 8A6 
389 07748 90 
HW 07740 122 
W391 07750 20 
W392 07752 03 
393 07754 3300 
00 
3094 O775A 102 
#35 0775) 02 


FOR TOO TUTOR TIO 


=BASCHK ARZEX 
=BASCHA LC(5) =fBASIC 


RHC OA 
GOYES NOTBAS 
ARZEX 
BASCK3 P= 0 
RTNCC 
NOTBAS LC(4) =eF TYPE Illegal File type 


R2=A R2 <-- Filetype 
RTNSC Return with Carry set 


96 & 

”97 * GETSTe - Calls GETSTC and Error Exits if NOT BASIC 

W398 & 

299 * Removed GETS-e entry since NULLP no longer needs it 
3100 * 

3161 O775F 73CF =GETSTe GOSUB GETSTC Get current file start/end 
3102 07763 500 GETSe1 RTNNC File type is BASIC 

3103 07766 8COO Mferr GOLONG =MFERR Error Exit if not BASIC file 


+0 
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3104 STITLE GETPRe - Check File Type/Protection 
3105 III OCI OU IT OCIS OOO ITI I TIT I TTT II 
3106 JU IO OI ISI III IIIS III II IIIT IK 
3107 ak 
3108 ** Nane: GETPRe - Check Protection/Filetype & Error 
3109 na Nane: CHKPSF - Check if priv. or secure or non-BASIC file 
3110 ak 
3111 *k Category:  FILUTL 
3112 hk 
3113 xk Purpose: 
3114 ak GETPRe: 
31145 ak Read start and end of current file, checking file type 
3116 ak Error exit if non-BASIC file 
3117 aK Check protection on file 
3118 RK Error exit if Private 
3119 aK 
3120 aK CHKPSF : 
3121 kk Error if non BASIC 
3122 aK Error if PRIVATE 
3123 ak Error if SECURE 
3124 aK 
3125 ** Entry: 
3126 ak 
3127 ax Exit: 
3128 ax P = 0 
3129 aK GETPRe: 
3130 aX Carry clear 
3131 aK Current file is BASIC and NOT PRIVATE 
3132 ax SB=1 if Write Protected file 
3133 ax C(A) = eF PROT 
3134 x Error Exit Through MFERR 
3135 aK “eF TYPE" if non-BASIC file 
3136 aK “eFPROT" if PRIVATE file 
3137 ak 
3138 a CHKPSF 
3139 i Carry set 
3140 aK File 1s BASIC, not PRIVATE, UNSECURE 
3141 ak Error Exit: 
3142 an "eFTYPE’ if non BASIC 
3143 ak "eFPROT" if PRIVATE or SECURE 
3144 ak 
3145 aX 
3146 ** Calls: GETSTe, GETPRO 
3147 ae 
3148 RE USS. pcxes 
3149 ** Exclusive: A(A),C(A),0(A),00,01,R2 
3150 ** Inclusive: ACA),C(R),D(A),DO,D1,R2 
3151 kk 
3152 *k Stk lvis: 
3153 x* GETPRe: 3 
3154 ee CHKPSF: 4 
3155 ae 
3156 ** Detarl: 
3157 7 


3158 ** Algorithn: 
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3159 ax 
3160 &* History: 
3161 ax 
3162 ‘A Date Progranner Modification 
3163 RK nnn ene n nnn nnn e ne meee n nn nnn nn enn en nn nen en nen e ee 
3164 kk 10/25/82 IP Added routine 
3165 *k 03/02/83 JP Added CHKPSF 
3166 xx 
3167 $US IIIT OI CITI OTT TTI T I III 
3168 JULIO OU OGIO ITI O RIS SST OT AS IIA 


3169 0776C 7FEF 
3170 07770 8E00 


00 
3171 07776 6CEF 
3172 s 
3173 
3174 


3175 0777R 7EEF 
3176 O777E 832 
3177 07781 00 
3178 07783 52E 


=GETPRe GOSUB GETSTe Error if non BASIC file 
GOSUBL =GETPRO Get protection 


GOTO GETSe1 Error if non BASIC 


* Check File type, Privacy, Security 
* 


=CHKPSF GOSUB GETPRe Error if non BASIC or PRIVATE 
?SB=0 not SECURE ? 
RTNYES 
GONC Mferr Error exit if SECURE 
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3179 STITLE Find Label in File 
3180 JK OI ITI IIIT I III III III IIIT IIT II IRI III IIT TIO TT ITI II TTT TTT TE 
3181 JO IOI IO II IIR II III III IIIT TOTTI SI III TIT ITI SI III ISI SSI SSSS SSS SSI. 
3182 am 
3183 ** Nane:(S) FINDLB - Find Label in Current Progran 
3184 ** Nanie: ATCHK - Find Label in Current Progran 
3185 a 
3186 ** Category:  EXCUTL 
3187 ax 
3188 ** Purpose: 
3189 ax Find Label in current prograr. This routine is for run 
3190 Ae tine only. To find a label across a file call FCHLBL. 
3191 ax 
3192 ak ATCHK: Late entry point to check if at an "@" 
3193 aX 
3194 kk Entry: 
3195 xx FINDLB: 
3196 ax P=0 
3197 wk B = Label to find 
3198 uA Right justified with trailing blanks 
3199 RK tape = 20202020204 34241 ) 
3200 x File already chained 
3201 ax 
3202 ax ATCHK: 
3203 a DO @ Possible "@" (nulti-staterent line) 
3204 ak 
3205 AK Exit: 
3206 as FINDLB: 
3207 ae P=0 
3208 ax B = Label to find 
3209 x Carry Clear - Label found 
3210 ax DO @ EOL or @ preceding the statenent with Label 
3211 a Carry Set - Label not found 
3212 an ATCHK: 
3213 ae DO @ "@" or EOL 
3214 as 
3215 xe Calls: LBLNAN 
3216 i 
3217 RE USES. eax 
3218 kk Exclusive: A,C(A),D0 
3219 kk Inclusive: 9,C,D0,P 
3220 an 
3221 ** Stk lvls: 2 
3222 xy 
3223 ** Detail: Starting fron label chain head (PRGNEN-5) 
3224 * Junp by Label Link looking for LABEL token 
3225 ee When a LABEL token is found 
3226 Am Call LBLNAM to get label into A 
320? £* If label matches the label in B 
228 ak RICH: Position to EOL | @ 
3229 KR Return CC 
3230 at else 
3231 aK Continue until End of Label Chain reached 
3232 ae 


3233 ** History: 
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3234 sie 
3235 on Date Progranner Modification 
3236 ohana hateeetetaateeteteietetetetetataetatatetatatataateteatananed 
3237 *k 66/30/82 JP Modified docunentation 
3238 is 04/08/83 JP Test for @/line# using A(XS) = F 
a JOIST ITO SIO SSSI TOT OTIS TISAI T SI II AT IS IRIS 
3241 JIGS III IO OOOO OS COIS IIIT 
3242 & 
3243 07786 1B26 =FINDLB DO=(5) =PRGNST 
5F2 
3244 0778) 146 C=DATO A 
3245 07790 134 Do=C 
3246 07793 184 DO=D0- 5 POINTS TO LABEL CHAIN HERD IN PROGR 
3247 07796 541 GONC FDLB20 (B.E.T.) 
3248 07799 181 FDLBIO DO=D0- 2 POINTS BACK TO BEGIN TOKEN 
3249 0779C 3100 LC(2) =tLBLST SEE IF IS A LABEL TOKEN 
3250 077A0 14A A=DATO B 
3251 077A3 161 DO=PO+ 2 POINTS TO LINK FIELD 
3252 077A6 962 *A=C) OB IS THIS A LABEL STATEMENT ? 
3253 077A9 C1 GOYES FDLB30 IF SO, LET'S TAKE A LOOK 
3254 077AB 146 FDLB20 C=DATO A READ THE LINK OF CURRENT LINE 
3255 O77AE 8AR 7-0 =A IS THE LINK = 0 ? 
3256 077B1 RTNYES IF SO, SAY NOT FOUND 
3257 07783 E6 C=C+1 REACHED ENDOF LINK ? 
3258 077B5 400 RTNC IF SO, RETURN NOT FOUND, CARRY SET 
3259 07788 CE C=C-1 A 
3260 077BA 132 ADOEX 
3261 077BD CA A=R+C A 
3262 O77BF 130 DO=A POINTS TO NEXT LINK 
3263 077C2 56D GONC FDLB10 KEEP LOOKING (B.E.T.) 
3264 077(5 164 FDLB30 DO=D0+ 5 POINTS TO BEGIN OF LABEL 
3265 077C8 7810 GOSUB LBLNAN GET THE LABEL INTO REG-A 
3266 077CC 184 DO=D0- 5 DO POINTS AT LABEL LINK FIELD 
3267 O77CF 974 AHB OW DO WE HAVE A MATCH ? 
3268 07702 90 GOYES FDLB20 IF NOT, KEEP GOING 
3269 07704 185 DO=D0- 6 DO pts at @ or 2nd byte of linet 
3270 07707 14A =RICHK A=DATO B Read @ (F4) or NSD,NMSD-1 of linet 
3271 077DA FO ASL =A Shift High nib to X$ field 
3272 077DC B24 A=A+1 XS Test for F --> @ 
3273 077DF 450 coc Rtnec*® Yes -- Return Clear Carry 
3274 O77E2 183 W=D0- 4 DO POINTS AT EOL 


3275 O77E5 93 Rtncec* RTNCC 
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3276 
327? 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
329) 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
32993 
3X0 
31 
3H 
3H3 
334 
3305 
36 
30? 
38 
3X9 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
331? 
3318 
3313 
3320 
3321 
J3ce 
3323 
3324 
3325 
3326 
332? 
3328 
3329 
33H 


O77E7 
07 7EB 
O?77ED 
07 7F1 
07 7F4 
07 7F7 
07 7F9 
O7 7FC 
07 7FE 
07801 
07803 
07805 
07808 
07800 
0780E 


7020 =LBLNAN GOSUB BLANKC 


cl 
182? 
B04 
4C0 
oc 
490 
ot 
52F 
Oo 
op 
AFA 
1621 
20 
03 


xk 
aX 
xk 
ak 
ax 
am 
xx 
ak 
ax 
a 
xk 
ak 
Kx 
xx 
xk 
kk 
Kk 
xk 
ak 
xx 
ax 
wk 
ax 
xk 
ax 
xk 
ax 
ax 
ae 
ak 
ak 
Kx 
x 
ak 
kx 
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STITLE LBLNAN - Get Label Nane into A 
JO I I TOO OO OI IOI IO IO IOI TT TO TIT 


FOI III IO OO TO OTITIS TK IK 


Nane:(S) LBLNAN - 


Category: 


Purpose: 


Get Label Nane into Register A 


EXCUTL 


Get label nane into Register A 


Entry: 
DO 


Exit: 


@ Beginning of Label in Menory 


Carry clear 


P 
A 


Calls: 

Uses....... 
Exclusive: 
Inc lusive: 


Stk lvls: 


History: 


06/30/82 
10/08/82 


= 0 
= Label nane, Right justified with trailing 
blanks 


"ABC" = 2020202020434241 (hex) 
BLANKC 
A,C,P 
A,C,P 
1 
Progranner Modification 
JP Modified docunentation 
JP Added BLANKC call 


SRO IIR TOI TOTTORI TT TOI TI OI IK 
FOO OOO OI OOOO OI 


L 


L 


LBNI30 


P= 


Load C wath blanks 
1 


R=DATO W 


A=A+1 
GOC 

P=P+4 
GOC 

P=P+1 
GONC 
BNMN2O P=P-1 


BNITIG 


P 
LBNA20 

P=15 ? 
LBNM30 yes 


LBNN10 


Move blanks to A 
Read label into A 
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3331 JOO ISIE I ITT IO TTI I ITT 
3332 BI III SIT IIT TRIE I ITI TT TTT TTT IR TITAS EI O TI ITS SS IAT IR IRI OK 
3333 a . 

3334 ** Nare: BLANKC - Load C with 8 blanks 

3335 aR 

3336 *% Category:  GENUTL 

3337 ak 

3338 ** Purpose: 

3339 A Load C with all blanks 

3H0 an 

3341 ** Entry: 

3342 ak 2 entry points: 

3343 ak 1. BLNKC+ - Calls LDCSET: Sets D @ AVMENE, DO@OUTBS, 
3H44 xx Saves DO in B(A), then ... 

3345 RR 2. BLANKC - Loads C with 8 blanks 

3346 aK 

3347 aX Exit: 

3H48 ak P untouched 

3349 ak Carry clear 

3350 aE C(W) = All ASCII blanks 

3351 aR 

3352 ** Calls: BLNKC+: LDCSET 

3353 ae BLANKC: None 

3354 oF 

3355 EF USS Sus 

3356 xk Exclusive: C 

3357 AX Inclusive: B(A), C, D(A), DO (BLNKC+ entry) 

3358 ah 

3359 ** Stk Ivis:  BLNKC+: 2 

3360 xk BLANKC: 0 

3361 ah 

3362 ** History: 

3363 aR 

3364 ne Date Progranner Modification 

3365 RR we ene wwe wee w eee e te tere we nce eee nn teen ene mene nen nec ene 
3366 kk 10/08/82 JP Added routine 

3367 . 06/10/83 S.W. Added BLNKC+ entry point to pack. 
aes JOIST IIIS OIA ITI STI AS 
3370 SOIR III III IO CCT TIA TTI SIDI SI IIA IIIA SA 
3371 07810 8E00 =BLNKC+ GOSUBL =LOCSET 


00 
3372 07816 DS 
3373 07818 3F02 
0202 
0202 
0202 
02 
3374 0782A 03 


=B 


B=C A 
LANKC LCASC \ \ 


RTNCC 


bere 
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3375 STITLE FCHLBL - Find Label in Current File 
5376 JOU IOI GOI OIG UCIGURIOC CIC OCT K TO 
3377 JOO III IOC OOOO CIO IOI 
3378 xk 
3379 &* Nane:(S) FCHLBL - Find Label in Current BASIC File 
3380 ax 
3381 xk Category:  FILUTL 
3382 x 
3383 ** Purpose: 
3384 ax Find a label in the current BASIC file 
3385 wa Assunes current file is BASIC 
3386 ak 
3387 ** Entry: 
3388 ax Assunes current file is BASIC 
3389 x R3 = Label to find 
3390 ak Right justified with trailing blanks 
3391 a 
3392 ae Falls into COMPL# 
3333 ae 
3394 KX Exit: 
3395 a Pp = 0 
3396 we 
3397 ae Carry Clear - Label Found 
3398 ak DO) @ EOL preceding line containing Label 
3399 ze D1 @ Line # of line containing Label 
3400 ak 
3401 ae Carry Set - Label Not Found in Current file 
3402 ax 
3403 ** Calls: GETSTC, TKSCN7, LBLNAN 
3404 ax 
3405 aK Uses....... 
3406 xk Exclusive: A,B(A),C,D(A),D0,01,R2,P 
3407 *k Inclusive: A,B(A),C,D(A),D0,01,R2,P 
3408 ax 
3409 AK Stk lvls: 2 
3410 ak 
3411 x Detail: 
3412 a Fall into COMPL# to conpute Line# after Label found 
3413 mA This code nust IMMEDIATELY precede COMPLH 
3414 ax 
3415 ** History: 
3416 xx 
3417 ~ Date Prograrner Modification 
3418 ae 
3419 *X 06/30/82 IP Modified docunentation 
3420 Sa 
3421 TORO RJ IO OT OO OI JO I too 
29 AOU ISI OIE IID GIGI IEICE IG ITO I 
3423 0782C 76FE =FCHLBL GOSUB GETSTC Get start/end of current file 
3424 07830 3100 FCHLB2 LC(2) =tLBLST Label statenent token 
3425 07834 8E00 GOSUBL =TKSCN? Look for Label statenent 
00 
3426 0783A 440 COC FCHLB4 Label found 
342? 07830 02 RINSC Label not found 
3428 0783F 181 FCHLB4 DO=D0- 2 
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¥29 07842 132 ADOEX 
3430 07845 D8 B=A A SAVE ADDR OF LINE LENGTH IN B 
3431 07847 132 ADOEX 
3A32 0784A 168 DO=D0+ 445 DO POINTS TO BEGIN OF LABEL 
3433 0784D 769F GOSUB LBLNAN Move label to A 
3434 07851 118 C=R3 Label to find 
3435 07854 972 *A=C OW Match ? 
3436 07857 41 GOYES FCHLB6 
3437 07859 D4 A=B A 
3438 0785B 130 DO=A Restore @ stmt length nibble 
3439 O785E DO A=0 A 
3440 07860 14A A=DATO B Read statenent length 
3441 07863 CO A=A+B A Next statenent address 
42 07865 1H DO=A 
¥443 07868 570 : GONC FCHLB2 Keep looking (B.E.T.) 
3444 
3445 * Label found 
3446 x 
3447 0786B D4 FCHLB6 A=B A 
3448 0786D 130 DO=A DO POINTS TO L.L OF THE STNT 
3449 r 
3450 : START FROM HERE, FALL INTO COMPUTE LINE# ROUTINE 


3451 
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3452 STITLE COMPL# - Compute Line # 
3453 JS III III ITO OI IE SII IOI T IOS IIS IS SSS III TSI ISI SII SN. 
3454 JUSSI IOI CO COTO TIT I SII I III 
3455 ak 
3456 xk Nane: COMPLH - Corpute Line # with DO @ line length 
3457 ** Wane: (S) CPLH10 - Compute Line # with DO anywhere in stnt 
3458 - Nane: CPLH15 - Cornpute Line # with C anywhere in stnt 
3459 
3460 ** Category:  FILUTL 
3461 an 
3462 ** Purpose: 
3463 ae Compute Line # fron position within statenent 
3464 ak 
3465 *k Entry: 
3466 ax COMPL#: DO @ Line length of statenent 
3467 aK CPLH10: DO @ anyithere within statenent 
3468 ak CPLH15: C @ anywhere within statenent 
3469 ah 
3470 ak Exit: 
471 ax Carry Clear => Line # found 
3472 ak Pp = 0 
3473 aig 01 @ Line # 
3474 ak DO @ EOL preceding the Line# (DO=D1-2) 
3475 xe Carry set => The input pointer is not pointing at 
3476 ais current file. 
3477 ak 
478 ek Calls: GETST-, 
479 ae 
3480 RES OS sida stent 
3481 ak Exclusive: A(A),B(A),C(A), D(A), DO, D1 
3482 kk Inclusive: A(A),B(A),C(R), D(A), DO, D1 
3483 x 
3484 ak Stk lvls: 2 
3485 xe 
3486 *k Note: This routine will not check file type, it assures the 
3487 xe current file 1s type BASIC. 
3438 AE 
3489 ** Detail: Do not call this routine if specified address is 
3490 a at initial tEOL. If at low nib of initial tEOL 
491 ak will return with carry set; if at high nib of 
3492 ak initial tEOL will not work properly - found in 
3493 a code review (S.W.) 
3494 ak 
3495 ** History: 
3496 te 
3497 xx Date Progranner Modification 
3498 EX 22woeeess Beoechetcael «Shite booore se eek sds Sees 
3499 *k 06/9/82 IP Nodified docunentation 
3500 kk 01/04/83 IP Renoved $9 usage 
3501 AX 09/9/83. SL Modified docurentation 
3502 tk 04/15/83 IP Fixed check for @ (F4) 
50 x 
ess eee reeset reteset eseetetseteerettttctrettsttsictiretrcest est: 
3605 (GIGI IOIISISI SUISSE ESIC GOUT IIIA 
3906 07870 181 =CONPLH DO=D0- 2 BACK UP 2 NIBBLES 
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3507 07873 14f A=DATO B 
3508 07876 FO ASL A Move high nib to A(XS) 
3509 07878 B24 A=A+1 XS Test for F ---> @ 
3510 0787B 480 ‘ GOC CPLHIO IF SO, GOTO CMPL10O 
3511 
3512 * IF NOT FOLLOWING AN @, MUST BE FOLLOWING A LINE # 
3513 * 
3514 0787E 181 DO=DO0- 2 DO POINTS AT LINEX 
3515 07881 136 CDOEX 
3516 07884 5F4 GONC CPLH70 (B.E.T.) 
3517 & 
3518 * DO anywhere within line 
3519 k 
3520 07887 136 =CPLHIO CDOEX 
3521 x 
3522 * C anywhere within line 
3523 - 
3524 * GETST- resets P to 0 
3525 , 
3526 0788A DS = =CPLHI5 B=C A SAVE ADDRESS IN B 
3527 0788C 21 P= 1 Don’t read filetype or use R2 
3528 O788E 769E GOSUB GETST- GET 1ST LINE OF FILE 
3529 07892 161 DO=D0+ 2 DO past the tFO 
35% 07895 136 CDOEX COPY DO TO C(A) 
3531 07898 134 DO=C CHECK IF POINTING IN CURRENT FILE 
3532 07898 885 7B<C OR 
3533 0789E 00 RTNYES 
3534 078A0 DI C=B A 
3535 078A2 8BF 7C>=D A D(A) IS @ END OF FILE 
3536 078A5 00 RTNYES 
3537 078A? DO A=0 A 
3538 078A9 136 CPLH25 CDOEX 
3539 O78AC 8B5 7C>B OR 
3540 O78AF 32 GOYES CPLHEO 
3541 078B1 D7 D=C A SAVE CURRENT ADDR AS LAST ADDR 
3542 07883 134 DO=C 
3543 07886 163 DO=D0+ 4 PASS THE LINE #, POINTING AT L.L 
3544 07889 148 CPLHX A=DATO B 
3545 O78BC 136 CDOEX 
3546 O78BF C2 C=C+A A C= ADDR OF END OF STMT 
3547 078C1 134 DO=C 
3548 078C4 148A A=DATO B 
3549 078C7 161 DO=D0+ 2 
3550 078CA 908 ?A=0)—O~P AT EOL ? 
3551 078CD CD GOYES CPLH25 IF SO, GOTO CPL#25 
3552 O78CF 59E GONC CPLH3O 
3553 078D2 DB CPLHEO C=D A 
3554 078D4 135 CPLH70 D1=C D1 POINTS TO LINE # 
3555 07807 134 DO=C 
3556 O78DA 181 DO=D0- 2 DO points at EOL 


3557 078DD 03 Rtnec- RTNCC 
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3558 STITLE PFINDL - Find Line# within pirgrae 
3559 J IOI OGIO TSI ORO TIC COTO IIS ICO II ICK 
3560 J IOI ITO IIS TIS OI TOSS SOI ISOS TO SII IOI TS IR ITOK 
3561 aK 
3562 ** Narie:(S) PFINDL - Fand Line# Within Progran 
3563 xx Nane:(S) PFNDZL - Find Line# Within Progran 
3564 ** Wane: PFNDL* - Find Line# Within Progran 
3565 ae 
3566 ** Category:  FILUTL 
356? ax 
3568 ** Purpose: 
3569 xe Find Line# between current progran boundary 
3570 aK 
3571 ** Entry: 
3572 ax PFINDL: 
3573 x P=0 
3574 kx Assunes PRGMNST, PRGMEN are current and updated 
3575 ak DO past Line# token 
3576 ax Clears sxXWORD (S39) flag to use Conpiled Line# reference 
357? ax PFNDZL: 
3578 ax P=9 
3579 ae Sane entry as PFINDL 
3580 ax DO past Line# token 
3581 wk Assunes sXWORD (S9) 1s set so: 
3582 1 Will always search for Line# 
3583 zs Allows KWORD entry, to search for Line# and not 
3584 ax rely on conpiled line# address, which may be bad. 
3585 ¥% PFNDL*: 
3586 ax P=0 
3587 ex D @ End of range to search for Line# 
3588 ae DO past Line# token 
3589 ae Used by RENUNBER 
35% ae 
3591 SRO MALT 
3592 ae P = Q 
3593 a DO = DO on entry (past Line# token) 
3594 x 
3595 ie Carry Set - Line# found 
3596 x D1 @ Line# 
3597 am Reference to Line# (entry DO) 1s "conpiled" 
3598 ae Relative address to line# 1s filled in 
3539 aK 
3600 a Carry Clear - Line# not found 
3601 als 
3602 ** Calls: SCOPCK , ISRAN? 
3603 a 
3604 AY USES eu ees 
3605 x* Exclusive: A(A),B(A),C(A), D(A), D1, DO, 
3606 a sXWORD (S9-PFINDL/PFNDZL only) 
3607 ** Inclusive: A,B(A),C(A), B(A),D1, DO, 
3608 ad SXWORD(S9-PFINDL/PFNDZL only) 
3609 4x 
3610 AX Stk lvls; 2 
3611 ke 


3612 *X& WOTE: 
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3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
364? 
3648 
3649 
3650 
3651 
3682 
3653 
3654 
3655 
3656 
365? 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 


078DF 
O78E2 
078ES 
078E8 
078EA 
078EC 
O78EF 
O78F2 
O78F4 
078F7 
078F9 
O78FC 
O78FF 
07901 
07904 
07906 
07909 
0790D 
07910 
07913 
07916 
07919 


849 
163 
146 
F6 
DS 
183 
879 
92 
86D 
42 
142 
8R8 
C1 
136 
CA 
135 
75BD 
137 
134 
131 
46C 
02 
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ak 
xk 
x 
ak 
xx 
ak 
ax 
xk 


Detail: 


else 


History: 


06/30/82 
02/04/83 
02/22/83 
02/22/83 


03/08/83 
ek 


If not XWORD entry: 
It will look at the conpiled address field following 


3:10 an 
Page 76 


Fri Dec 30, 1983 


This routine will search between PRGNST & PRGNEN only 
if PFINDL or PFNDLZ is called. 


PFNDZL will always search for Line# (if sXWORD set) 
PFNDL* uses D(A) for boundary 


the line nuriber first. 


If the coripiled field is non-zero 


Conpute the address of the Line# 


Progranner 
JP 
JP 
JP 
JP 
JP 


Search the entire program 
Write the compiled address to RAM if Line# found 


Modification 
Modified/Added Docunentation 
ISRAN? call uses all of R 
Added PFNDZL entry added 
Added $9 (sXWORD) usage 
If not running; always search 


JOR ITO II TOO TTT TI TTI IIT TIT K 
FORO ORT OOI I II  ITOTOTOR ITT T IIIT K 


=PFINDL ST=0 


sXWORD 


=PFNDZL DO=D0+ 4 


C=DATO 


CSR 
B=C 


A 
A 
A 


DO=D0- 4 


*ST=1 
GOYES 
?$T=0 
GOYES 


A=DATO 


7A=0 
GOYES 
CDOEX 
R=A+C 
01=C 
GOSUB 
CD1IEX 
DO=C 
D1=A 
GOC 


RTNSC 
k 


* Set Progran start and end 
k 


sxWORD 
PFDL1O 
PgrRun 
PFDL1O 
A 

A 

PFDL10 


A 


=Scopck 


Rtncc- 


Clear XWORD entry flag 
PASS ADDRESS FIELD 
READ THE LINE # 


SAVE THE LINE # IN B 

POINTS BACK TO ADDRESS FIELD 
XWORD reference? 

Don’t check conpiled field 
Fron keyboard? 

Aluay search for linet 

READ THE COMPILED FIELD 

HAS THE LINE# COMPILED ? 

IF NOT, GOTO FIND IT 


A POINTS TO THE LINE # 
Di= DO AT ENTRY 
VERIFY NOT JUMP OUT OF CURRENT PROG 


RESTORE DO TO ENTRY VALUE 
D1 POINTS AT THE LINE # 
CLEAR CARRY IF OUT OF RANGE 
RETURN WITH CARRY SET 
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3668 07918 1F76 PFDLIO D1=(5) =PRGNEN 
5F2 
3669 07922 147 C=DAT1 A 
3670 07925 D7 D=C A D= PRGMEN 
3671 07927 1C4 Di=D1- 5 
3672 0792A 147 C=DAT1 A 
3673 0792D DO A=0 A 
3674 0792F 5F1 GONC PFDL65 fe a 
3675 - 
3676 * Search progran scope for line# 
3677 x 
3678 07932 DO =PFNDL* A=0 A 
3679 07934 D2 PFDL5O C=0 A 
3680 07936 15F3 C=DAT1 4 C = LINE # 
3681 0793A 8A1 ?B=C OA 
3682 07930 92 GOYES PFDL70 FIND THE LINE # 
3683 0793F 173 DI=Di+ 4 POINTS TO LINE LENGTH 
3684 07942 148 A=DAT1 B 
3685 07945 137 CD1EX 
3686 07948 887 7C>D A PASSED PRGNEN YET ? 
3687 07948 36 GOYES Rtnec+ IF SO, NOT FOUND, CLEAR CARRY 
3688 0794D C2 PFDL60 C=C+A A POINTS TO END OF STMT 
3689 0794F 135 PFDLES D1=C 
3690 07952 14F C=DAT1 B 
3691 07955 171 DI=Di+t 2 
3692 07958 90A *C=0 =P AT EOL ? 
3693 07958 9D GOYES PFDL5O 
3694 07950 148 A=DAT1 B 
3695 07960 137 CD1EX 
3696 07963 59E GONC  PFDL60 
3697 07966 137 PFDL70 CDIEX CHECK IF PASS PRGMEN YET ? 
36398 07969 135 D1=C 
3699 0796C 8BF 7C>=D A 
3700 0796F F3 GOYES Rtnec+ 
3701 x 
3702 * CHECK IF THE FILE IS WRITEABLE 
3703 . 
3704 07971 D? D=C A SAVE D1 IN D(A) 
3705 07973 8F00 GOSBVL =ISRAN? 
000 
3706 0797A DB (=D A RESTORE D1 FROM D(A) 
370? 07970 135 D1=C 
3708 O797F D9 C=B A RESTORE C(A) FROM B(A) 
3709 07981 5D0 GONC = =PFDL?5 IF NOT WRITERBLE DON’T WRITE TO IT 
3710 07984 132 ADOEX COMPUTE THE OFFSET ANE WRITE IT 
3711 07987 1% DO=A TO THE COMPILE FIELD 
3712 0798A E2 C=C-A A 
3713 0798C 144 DATO=C A 
3714 0798F 02 PFOL?5 RTNSC 
3715 . 
3716 * Clear Suspend Annunciator/Flag 
3717 * 


3718 07994 3110 =CLSUSP LO(2) =f 1SUSP 
3719 07995 6(4D GOTO = Sflagl Clear SUSP flag/annunciator 
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3720 STITLE Null Progran Check 
3721 JO OI IIT III TOS TIO SITIO TIE TTI TOT AI IA 
3722 JORIS III ITI TIO TI III IIIS OSI IAT I ISI IA IOI OA 
3723 = 
3724 ** Nane:(S) NULLP  - Null Progran Check 
3725 aR 
3726 ** Category:  FILUTL 
3727 aR 
3728 xk Purpose: 
3729 =A Check if current BASIC program is NULL 
3730 an Position to First line | EOF 
3731 aR 
3732 kk Entry: 
3733 ak File type will be checked if P=0 
3734 a If P=0: File Type is returned in R2 (fron GETST-) 
3735 ak If PHO: File Type will not be returned, nor checked. 
3736 ak 
3737 ax Assunes: Length to data = Length to data of 
3738 a BASIC/ Binary file 
3739 aK Assunes File type = BASIC or Binary or file with sane 
3740 7h structure 
3741 ak 
3742 AX Exit: 
3743 ak 
3744 a Carry Set - Null progran 
3745 ak Carry Clear - not Null program 
3746 ae 
3747 ak P =0 
3748 xa D1 = First line of File (@ EOF) 
3749 a D = End of progran 
3750 aR 
3751 ak Fron GETST- 
3752 ae A = File Length 
3753 an R2 = File Type (1f P=O on entry) 
3754 ak DO = First line of File 
3755 kk 
3756 ** Calls: GETST- 
3757 ae 
3758 RE USES eyo hs 
3759 *& Inclusive: A(R),C(A),P,D0,D1 
3760 - Exclusive: A(A),C(A),D(A),P,00,D1,R2 (If P=0 on entry) 
3761 % 
3762 *K Stk Ivis: 2 
3763 ie 
3764 ** Detail: Get start and end of current file (GETST-) 
3765 x Move First Line of file pointer to D1 
3766 ae If file length = Offset to BASIC start of data 
3767 ax RTNYES (NULL program) 
3768 oie 
3769 ae Null Progran File Length = Offset BASIC start of dat 
3770 ae 
3771 ** History: 
3772 a 
3773 we Date Prograriner Modification 
Wt! oSeieas., Gbecat ee? tele Tale lhe ele eae tk 


3774 





i 
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3782 07999 7B8D =NULLP GOSUB GETST- 


3783 07990 136 
3784 079A0 135 
3785 079A3 D2 
3786 O79A5 3111 
3787 079A9 8A2 
3788 079AC 00 
3789 O79RE 03 





Systen Connands, RUN Loop<8312 Fri Dec 30, 1983 3:10 an 


Ver. 3.39/Rev. 2306 Null Progran Check Page 79 
3775 kX 06/30/82 IP Nodified docurientation 
3776 xk 01/04/83 IP Renove S39 usage 
3777 kk 03/01/83 IP Rerioved Hardwire Error Exit 
3778 ak 
3779 JORIS III IO IIIS IOI IO IO TI TOT IT TK 
3780 JOO OIG IOI IO OI IOC IOI II OI IIL 
3781 x 


Get file start and end, Error if No 


CDOEX First line of file 

b1=C D1 = First line of file 
{=0 A 

LC(2) oBSsod Null BASIC program length 
*A=C OA NULL progran ? 

RTNYES 


Rtnec+ RINCC 
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37% STITLE GOTO, GOSUB, RESTORE 
3791 JOU EIS OOS OO TOK 
3792 OOOO OOO IOI OC RTT 
3793 aR 
3794 RK Nane:(S) GOTO - Staterent Execution 
3795 4k Nane:(S) GOSUB - Statenent Execution 
3796 ak Nare: RESTOR - Statenent Execution 
3797 RA 
3798 xk Category: STEXEC 

' 3799 ae 

3800 xk Purpose: 
3801 x Execution of GOTO | GOSUB 
3802 ak Partial execution of ON, ON ERROR, ON TIMER 
3803 aK Partial execution of RESTORE 
3804 . Partial execution of XWORD with GOTO/GOSUB within 
3805 
3806 ak Entry: 
3807 aa 
3808 ae GOSUB: DO past GOSUB token (Sets sGOSUB S$3=1) 
3809 ak GOTO: DO past GOTO token (Sets sGOSUB S3=0) 
3810 ak RESTOR: DO past RESTORE token (Sets $10=1) 
3811 ak All status must be clear 
3812 aA GOTO+ : Entry for statenent containing: 
3813 ak GOTO | GOSUB <lineno> | <label> 
3814 kk DO @ <lineno> | <label> token past GOTO | GOSUB 
3815 ak sEXTGS = 1 if External statenent entry 
3816 ak If GOSUB within statenent 
3817 aR sGOSUB = 1 ($3) 
3818 kk ON TINER: sONTHR = 1 (S6) 
3819 RK sEXTGS = 
3820 aE R3(S) = Tiner# 
3821 aK RSTK = Return address 
3822 aK ON ERROR: sONERR = 1 (S4) 
3823 kk sEXTGS = 1 
3824 ak RSTK = Return address 
3825 aR ON RESTORE: sRESTR = 1 (S10) 
3826 ak External Entry: (like ON INTRPT) 
3827 aK sEXTGS = 1 
3828 iat RSTK = Return address 
3829 kk sGOSUB = 1 if GOSUB 
3830 ak All other status MUST be clear!!!! 
3831 RR 
3832 ak 
3833 ak 
3834 aK sXWORD = 1 (S9) 
3835 ak If XWORD with GOTO | GOSUB 
3836 is Statenent perforning GOTO/GOSUB in a 
3837 aA "sequential" fashion. EX: ON <exp> GOTO 
38 38 aR 
3839 aK Guarantees always search for Line# referen 
3840 ae Elininates problen of Line# reference address 
3841 ak that is invalid because it was not cleared 
3842 ‘ during PEDIT because the Lex File was missing. 
3843 ak 


3844 ax External statenents mith GOTO/GOSUB that 
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3845 ae interupt progran execute (ex:0N TIMER,ON INTR) 
3846 ak rust duplicate ONTINR code (see JP&EXC) to 
3847 ak guarantee proper TRACE of program execution. 
3848 a sXWORD nust be set before jurping to GOTO+ 
3849 Ae 
3850 ak R3(S) = Return type 
3851 ax If "nornal" GOSUB 
3852 aK R3(S) = 0 
3853 xe If GOSUB fron Keyboard (PgnRun=0) 

3854 aK R3(S) = 1 

3855 ak If “special” GOSUB/RETURN 

3856 ax See pRINTp Poll in RETURN 

3857 ak R3(S) = 9 through 15 

3858 ah 

3859 aK This allows special processing when 
3860 ak RETURN of GOSUB is encountered 

3861 ak 

3862 ak Assunes External Entry statenents execute fron a 
3863 ae Progran, 1.e. PgnRun (S13) is set. 

3864 aK 

3865 RX Ew Ets 

3866 ak to BSCK60 

3867 xe Avoids exception checking until AFTER the branch 
3868 aR Cleans up TRACE 

3869 ak 

38 70 le If RESTORE | ON RESTORE (sRESTR (S10)) 

3871 ak Junp to execute RESTORE 

3872 xk Return to Run Loop thru NXTSTM 

3873 ak 

3874 ax If RESTORE # 

3875 aK Junp to execute RESTORE # 

3876 ak 

3877 ae If GOTO fron Keyboard 

3878 aK Through NXTSIM after Setting CNTADR,CURRL 

3879 xe 

3880 ak If Error (Label | Line# not found) 

3831 ak If ON ERROR strut (sONERR (S7)) 

3882 oe Zero out ON ERROR address 

3883 aR If ON TIMER, ON ERROR or External Entry 

3884 Rk PCADDR has been updated to ON statenent 

3885 Ae If ON TIMER 

3886 a Appropriate Tiner# has be OFFed 

388? me Set up Error Message 

3888 ie goto NFERR 

3889 a 

3890 ** Calls: PFNDZL,FILXQT,FINDLB, PSHGSB,PRSCKB, 

3891 pe TRECK-, TRFROM, SNcrlf, TRTO+, CNTCUR, LNSKP-, 
3892 * SFGPGN, POPGSB, OFFTIMR,CNTCK2, PSHUPD 

3893 = 

3894 REOUSES cu 5 cca 

3895 ** Exclusive: A,C,S0,S3,S4,55, $6,387, $8, $9, $10, $13, $14, RO-R2, DO, 
3896 - S-RO-O (1 nib) 

3897 kK Inclusive: A-D,SO-S10,S13, 514, RO-R4,D0,D1,al1 FUNCTION scrtch 
3898 Ey S-R1-0 thru S-R1-3,STNTDO,S-RO-O (4nib) 


3839 ‘ 
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3300 xx PRSCKB uses R2; but its called only when NOT running 
3901 ak ON TIMER only active WHEN running 
392 ax 
3903 Ak RSTK = Return address (If ON TIMER) 

3904 ae RY = Saved DO 

3905 ** R3(S) = Taner # (If sONTMR) 

3906 ** R3(S) = Return type (If sXWORD) 

3907 %x sGOSUB = GOSUB ($3) 

3908 ** sONERR = ON ERROR entry ($4) 

3909 xk SEXTGS = External statenent entry (S5) 

3910 %x sONTMR = ON TINER entry (S6) 

3311 ** sXWORD = XWORD entry for PFNDZL (S93) 

3912 kk sRESTR = RESTORE statertent entry (S10) 

3913 %x  PgnRun = Program running ($13) 

3914 ** NoCont = Don’t Continue Run Loop (S14) 

3915 &&  S-RO-0 = Tinert 

3316 aX 

3917 tk Stk lvls: 7 

3918 ax 

3919 ** Detail: (GOTO | GOSUB) (<lineno> | <label>) 

3920 x RESTORE [ <lineno> | <label> J 

3921 ax RESTORE # <assign#> [ <lineno> | <label> ] 

3922 x ON <exp> GOTO | GOSUB (<lineno>|<label>....) 
3923 ak ON ERROR GOTO | GOSUB <lineno> | <label> 

3924 ax ON TIMER # <exp>, <exp> GOTO | GOSUB <lineno>|<label> 
3925 x 

3926 ** RESTOR: If next token = # 

3927 aw go Execute RESTORE#  (RESTR#) 

3928 xk RESTOR: Set RESTORE fla (sRESTR) 

3929 ak If (no <line#> | <label>) 

3930 ax Set C=0 (Indicates start of file for DATPTR) 
3931 am go Execute RESTORE (RESTRX) 

3932 ax goto GOTO+ 

3933 xx GOSUB: Set GOSUB flag (sGOSUB) 

3934 ne goto GOTO- 

3935 xk GOTO: Clear GOSUB flag 

3936 kX GOTO-: Clear RESTORE, ON ERROR, External Entry flag 
3937 xx GOTO+: Save DO (R1) 

3938 ae If not running 

3939 x Set progran scope (PRSCKB) 
3940 kk Check if trace needed (TRFCK, TRFRON) 
3941 ak Restore Tiner# to A(S) (R3(S)) 

3942 a If GOSUB 

3943 a Pop Return Address of Stack incase ON TIMER 
3944 an If not ON TIMER 

3945 ak Calculate Return Address  (LNSKP-) 
3946 RE If XWORD 

3947 a go Push Return typefaddr (goto 0) 
3948 ay Set Return Type = 0 

3949 ax If ON ERROR (sONERR) 
3950 ax Save Return Address in ERRSUB to detect 
3951 ax nesting of ON ERROR GOSUB statenents 
3952 If Return to keyboard (not PgnRun) 

3953 aK Push CNTADR on GOSUB stack (PSHUPD) 


3954 x Return type = 1 
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3965 ax If ON TINER 
3956 RX Shift Tiner# to C(S) 
3957 ae Return type = Tiner# + 1 
3958 ae 0: Push Return type/addr on stack(PSHGSB) 
3959 ae Save Tiner# incase of Error (S-RO-0) 
3960 an Restore DO (Rt) 
3961 ax If Line# 
3962 a Find line# address (PFNDZL) 
3963 ae If found 
3964 ak Position to EOF before Line# 
3965 ae Move Run address D1 -> C 
3966 ae 
3967 ax 1: If RESTORE statenent (sRESTR) 
3968 aK RESTREX: Set DATPTR to C 
3969 aX golong NXTSTN 
3970 x 
3971 aS If GOTO fron Keyboard 
3972 ax Update CNTADR @ stnt jump& (CNTCUR) 
3973 aa Corpute Line# of strnt junp & 
3974 aK Update CURRL @ Line# 
3975 ax golong to next stnt in Stnt Buffer 
3976 ah Set DO @ Run/execution address (C) 
3377 Kx Check if Trace Flou (TRFCK-, TRTO+) 
3978 aK Restore DO @ Execution address (R1) 
3979 ah Set PRGM annunc, PgnRun flag  (SFGPGN) 
3980 wk Goto to Run Loop 
3981 ae If Label 
3982 ke Nove label into A (FILKQT) 
3983 aK If Illegal Label or not in Current file 
3984 ax Error Exit (ERROR) 
3985 eA else 
3986 ax Find label (FINDLB) 
3387 ax If label not found ---> Error exit 
3988 ae Move Label strt start (Run address) DO -> C 
3389 a goto 1; 
33% *k ERROR: If line# or label not found 
3991 KR If GOSUB 
3992 aE Pop Return address off stack  (POPGSB) 
3293 am If ON ERROR statenent (sONERR) 
3994 am Clear ERRSUB address 
3995 aR Clear ON ERROR address 
3996 As If ON TIMER (sONTMR) 
3997 ae OFF appropriate Tiner (OFF TNR) 
3998 aA If Trace node --> Send CR/LF (SNcrlf) 
3999 we Error Exit --> eSTMNNF (MFERR) 
4000 eR 
4001 xk Histary: 
4002 ae 
4003 xe Date Progratiner Modification 
4004 i ee 
4005 *X 02/04/83 JP Saving Tiner# in scratch 
4006 A 02/07/83 JP Add sXWORD status, PFNDLZ call 
4007 % 03/08/83 JP Checking sEXTGS instead of sONTMR 
4008 ** 03/31/83 JP Renove UPDPC if External Entry 


4009 ** 04/29/83 JP If sXWORD, R3(S) = Return type 
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4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 07980 


4021 079B5 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 


079BA 


0798D 
07901 
07904 
07906 


4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 07909 
4044 07908 
4045 

4046 0790F 


079CD 
07900 
07904 
07907 


4047 07964 


4048 
4049 07959 
4050 079EC 
4051 
4052 079F0 


4053 079F5 


4054 

4055 079FR 
4056 079FD 
4057 07ROO 


0000 
0000 
14A 


3132 
966 


8000 


85A 
S10F 
9E2 
92 


0000 


0000 
0 


843 
84A 
344 
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** 05/27/83 JP If GOSUB fron keyboard save CNTADR 
ax on GOSUB stack 

kk 

kk 06/17/83 JP If GOTO fron keyboard; set SUSP 

** 06/29/83 = IP Check TRACE to before set PgnRun 
ak 


Set PgnRun ALWAYS 
ax 


FOR IOI TOO ITT TTI UT OTTO TOK 
FORO RIO ITO UI IOI OTITIS TOOK 
x 


REL(5) =RESTDC Deconpile Address for RESTORE 


REL(S) =RESTRP Parse Address for RESTORE 


=RESTOR A=DATO B Look for #,End Line or parn 
k 

* If RESTORE # 

* go execute RESTORE# 

k 


LCASC \#\ 
?AHC OB 

GOYES RESTR1 
GOVLNG =RESTR# 


Not RESTORE # ? 
go Execute RESTORE # 


» 
* status clear on entry 
x 


RESTR1 ST=1 = SRESTR Set RESTORE statenent flag 
LCHEX FO End of Line cut-off 
7AxC OB RESTORE with paraneters ? 
GOYES GT0001 


k 
* If RESTORE with no paraneters 

Set C=0 to indicate start of file for DATPTR 
: go execute RESTORE 

x 


»* 


C=0 A Start of file indicator 
GOTO  RESTRX Execute RESTORE 
REL(S) =GOSBOC Deconpile Address for GOSUB 
REL(5) =GOSUBP Parse Address for GOSUB 
x 
=GOSUB ST=1  sGOSUB Set GOSUB flag 
GOTO GOTO- 
k 
REL(5) =GOTODC Deconpile Address for GOTO 
REL(S) =GOTOP Parse Address for GOTO 
x 
=GOTO ST=0  sGOSUB Set GOTO flag/Clear GOSUB flag 
GOTO- S$T=0 sRESTR Clear RESTORE flag 
GI0001 ST=0 sONERR Clear ON ERROR flag 


4058 07A03 
4059 
4060 
4061 
4062 07A06 
4063 07A09 
4064 
4065 
4066 
4067 
4068 
4063 
4070 
4071 07R0C 
4072 07R10 
4073 O7A14 
4074 07A17 


4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
409 
4091 


O7RIE 
07R21 
07A24 
07A26 
07A28 
O7R2A 
07A2D 
O7R2F 


4092 
4093 
4094 
4095 
4096 07A35 
409? 07A38 
4098 07A3B 
4099 07A30 
4100 
4101 
4102 
4103 
4104 
4105 07R40 
4106 07R43 
4107 07A45 


4108 O07 RA4C 
4109 07AR4F 
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845 


136 
109 


7871 
7031 
490 
8F00 
000 


113 
863 
16 
07 
DA 
878 
80 
8£00 


ACE 
873 
44 

AC? 


864 
FO 
1F38 
62 
141 
SF2 


3:10 an 
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ST=0 = SEXTGS Clear External Entry flag 


* EXTERNAL statenent Entry 
x 


=GOTOQ+ CDOEX Save DO in R1 
R1=C 
x 
* If not running 
: Set Progran start and end 
x Thais must be done 1f Keyboard Execute 
* If Trace needed 
x Trace FROM 
* 
GOSUB PRSCKB Set PRGMST & PRGNEN if not running 
GT0005 GOSUB TrfCk- CHECK IF NEED TO TRACE 
GOC GT0010 No 
GOSBVL =TRFROM Trace FROM 
* 
* Restore Tiner# to A(S) 
* If GOSUB 
x If ON TIMER or External Staterent 
x RSTK = Next Statenent address 
x else 
& Compute Next Staterient Address 
x ACA) = Return Address 
x 
GT0010 AR=R3 Restore Tiner# to A(S) 


?$T=0 sGOSUB not GOSUB ? 


GOYES GT0060 


C=RSTK Pull Return Address incase 
A=C R this is ON TIMER 
?ST=1  sEXTGS ON TINER or External Strt? 


GOYES 610020 


GOSUBL =LNSKP- v Cornpute Next Staternent address 


x 


* If XWORD entry (sxXWORD) 
‘ R3(S) contains Return type 
& 


GT0020 C=A S Move possible return type to C(S) 
?ST=1 sXWORD XWORD entry ? 
GOYES GT0050 Return type already set 
C=0 S Zero Return type nibble 
x 
* If ON ERROR (sONERR) 
x ERRSUB <-- Return address 
. Return address 1s saved to detect ON ERROR GOSUB nesting 
x 
?ST=0 sQNERR Not ON ERROR ? 
GOYES 610030 
Di=(5) =ERRSUB ON ERROR GOSUB Return address 
DATI=A A 
GONC § GTQ050 Biba ls 
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4110 x 
4111 * If not Running 
4112 & Save CNTADR on stack 
4113 * Return type = 1 (Return to Keyboard) 
4114 x 
4115 07A52 87D GT0030 ?ST=1 PgnRun Running ? 
4116 07AS5 F1 GOYES GT0040 
4117 07AS?7 100 RO=A Save Return address 
4118 O7A5A 8EE9 GOSUBL CNTCK2 Read Continue address 
7F 
4119 07R60 DA R=C R 
4120 07R62 8E00 GOSUBL =PSHUPD Push CNTADR on GOSUB stack 
00 
4121 07968 110 A=RO Restore Return address 
4122 07R6B AC2 C=0 S 
4123 O7R6E B46 C=C+1 § Return to Keyboard = 1 
4124 07A71 5D0 GONC  GT0050 B.E.T. 
4125 " 
4126 * If ON TIMER 
4127 x Return type = Tiner# + 1 
4128 x 
4129 07A74 866 GT0040 7ST=0 sONTMR Not ON TIMER ? 
4130 0777 80 GOYES GT0050 Return to progran = 0 
4131 07A79 ACE C=A S$ Move Tiner# to C(S) 
4132 O7A7C B46 : C=C+1 § ON TIMER return = Tiner# + 1 
4133 
4134 * Push Return address and Return Type onto GOSUB stack 
4135 x 
4136 O7A7F 8E0O GT0050 GOSUBL =PSHGSB Push address and type on stack 
00 
4137 x 
4138 * Save Tiner# in scratch incase <lineno> or <label> not found 
4139 * So Tiner# can be offed 
4140 * Restore DO fron R1 
4141 * Determine if <lineno> or <label> token 
4142 x 
4143 07A85 1B17 GT0060 DO=(5) =S-RO-0 
8F2 
4144 O7A8C 1504 DATO=A $ Save Tiner# in scratch 
4145 07A90 119 C=R1 
4146 07A93 134 DO=C Restore DO within statenent 
4147 07R96 14A R=DATO B Read token 
4148 078399 161 DO=D0+ 2 Position to past token 
4149 O7ASC 3100 LC(2) =tLINE# Line # token 
4150 O7ARO 962 *A=C OB Line# token 
4151 O7AA3 91 GOYES GT0110 
4152 x 
4153 * GOTO | GOSUB label 
4154 x 
4155 * External Statenent entry containing: 
4156 x GOTO|GOSUB <label> 
4157 x sEXTGS = 1 (External entry) 
4158 x sGOSUB = 1 if GOSUB 
4159 x DO @ Label in RAN 
x 


4160 
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4161 O7AR5 7298 GOSUB FILXQT GET THE LABEL INTO REG-A 
4162 O7AR9 526 GONC GTOLEO Label not good/not found 
4163 * 

4164 * Total label has been deconpiled 
4165 x Find label 
4166 x If label not found ---> Error Exit 
4167 x 
4168 O7RAC AF B=A W SAVE LABEL IN REG-8 
4169 O7AAF 73DC GOSUB FINDLB Local GOTO/GOSUB/RESTORE 
4170 07AB3 485 GOC GTOLEO LABEL NOT FOUND 
4171 07AB6 136 CDOEX RUN address in C(A) 
4172 07AB9 5FO GONC GT10120 B.E.T. 
4173 x 
4174 * Find Line# 
4175 . If XWORD 
4176 x Find line# by always searching for Line# 
4177 * sXWORD is set on entry to PFNDZL 
4178 x else 
4179 x Find line# using Line# reference address 
4180 * DO @ Compile address field of Line# 
4181 . 
4182 O7ABC 722E GT0110 GOSUB PFNDZL Find Line# using Line# reference 
4183 07ACO 5B4 GONC GTOLEO Line# NOT found 
4184 
4185 * Line# found 
4186 : 
4187 O7AC3 1C1 D1=D1- 2 Position to EOL before line# 
4188 O7AC6 137 CDIEX Move Run address to C 
4189 x ; 
4190 * Line nuriber or Label found 
4191 * ( = Start of statenent containing Line# or Label 
4192 - 
4193 * Tf ON RESTORE | RESTORE statnenet (sRESTR) 
4194 x Set DATPTR to C (start of DATA stnt scan) 
4195 x go execute Next Staterent 
4196 > 
4197 O7AC9 86A GT0120 7ST=0 SRESTR Not RESTORE ? 
4198 O7ACC FO GOYES G101% 
4199 * Carry clear here 
4200 x 
4201 O7ACE 1F29 RESTRX D1=(5) =DATPIR Set Data Pointer 
6F2 
4202 07AD5 145 > ODATI=zC A at DRTA strut scan point 
4203 07AD8 501 GONC = nxtstn B.E.T. 
4204 x 
4205 * If GOTO fron Keyboard 
4206 + 
4207 ie ALLOWS: Setting Continue Address fron Keyboard w/o STOP 
4208 x 
4209 x Set SUSP annunciator 
4210 x Update Continue Address @ Run Address (Strit to GOTO) 
4211 x Calculate Line# of Stnt to GOTO 
4212 * Update Current Line to Line# of Stnt to GOTO 
4213 * Must position (C) into stmt line before Line# calculation 
4214 * C could be at EOL of statenent before, causing problens 


Saturn Asserbler 


Systen Commands, RUN Loop<8312 Fri Dec #, 1983 3:10 an 


Ver. 3.39/Rev. 26 GOT0,GOSUB, RESTORE Page 88 
4215 : go Position to “next” statenent within Statenent Buffer 
4216 x and Return to Run Loop 
421? k 


4218 O7ADB 873 

4219 O7ADE FO 

4220 O7REO 87D 

4221 O?7RE3 RO 

4222 O7RES 7F98 

4223 O7RES 6BEB 

4224 

4225 

4226 

4227 

4228 

4229 O7RED 134 

4230 O7AFO 7050 

4231 O7AF4 4F0 

4232 O7AF7 8FOO 
000 

4233 O7AFE 119 

4234 07801 134 

4235 

4236 

4237 

4238 

4239 07804 7748 

4240 07B08 6ED9 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 O7B0C 863 

4259 O7B0F 14 

4260 07B11 8E00 
00 

4261 07817 ACB 

4262 O7B1A ACA 

4263 O7B1D RAC 

4264 07820 864 

4265 07823 01 

4266 O7B25 AF2 

4267 O7B28 1F38 


670130 7ST=1 sGOSUB GOSUB 7 

GOYES G10140 

*ST=1 PgnRun GOTO & Progran Running ? 

GOYES 670140 

GOSUB CNTCUR Update CNTADR,set SUSP, update CURR 
nxtstn GOTO Nxtstn Return to Run Loop @ Next stnt 
x 


s 


* If Trace Mode 

x Trace T0 

* Set DO @ Next statenent to Execute 
x 


GT0140 0O=C Set DO @ stnt start 
GOSUB TrfCk- Need to Trace ? 
GOC 610150 
GOSBVL =TRTO+ 
C=R1 Restore DO 
DO=C 


x 


* Set Progran Running flag & PRGM Annunciator 
* Return to BASIC Loop @ RUNRT1 
i 


GT0150 GOSUB SFGPGN Set PgnRun & PRGM Annunc 
GOTO  RUNRT1 Return to BASIC loop 

* 

* Error Exit - Label | Line# not found 


If ON ERROR statenent (S4) in Error 
NOTE 323823 IOC TCE TORR 
ERRSUB and ERRADR must be ADJACENT 
Clear ERRSUB address 
Clear ON ERROR address - Avoids infinite loop 
If ON TIMER statenent in Error 
Restore Tiner # from Scratch 
OFF appropriate Timer (Tiner# in A(O)) 
Avoids Infinite Loop: 
golong to MFERR 
return to RUNRT1, CKEXCP 
Tiner will go off (if short interval) 
Junp to ON TIMER, only to Error again 
Go load Error Nuriber & Error Exit 


OF 0 OF ee Oe Oe Oe ee OO 


GTOLEO ?ST=0 sGOSUB Not GOSUB ? 
GOYES GTOLE1 © 
GOSUBL =POPGSB Pop Return address of GOSUB stack 


C=D $ Move Tiner#+1 to C(S) 
A=C $ Nove Tiner#+1 to ACS) 
A=A-1 S$ Conpute Tinert 
GTOLE1 ?ST=0 sONERR Not ON ERROR statenent? 
GOYES GTOLE2 
C=0 WW Clear ERRSUB,ON ERROR addresses 
D1=(5) =ERRSUB 
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6F2 
4268 O7B2F 1509 
4269 07833 866 
4270 07836 11 
4271 07838 1B17 
8F2 
4272 O7B3F 15R0 
4273 07843 7000 
4274 
4275 
4276 
4277 
4278 07847 8£00 
00 
4279 O7B4D 678 
4280 
4281 07851 8D00 
000 
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DAT1=C 10 
GTOLE2 ?ST=0 sONTNR 

GOYES GTOLE3 

DO=(5) =S-RO-0 


A=DATO 1 


GOSUB =OFFTNR 
* 


* If TRACE node 
x Send CR/LF 
k 


GTOLE3 GOSUBL =SNerlf 
GTOLE4 GOTO FICER2 
k 

=TrfCk- GOVLNG =TRFCK- 


Page 89 


Not ON TIMER ? 


Restore Tiner# to A(0) 


go OFF Tiner# to avoid infinite loo 


If in trace node, send CR/LF 


Label not found 
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4282 STITLE UPDPC - Update PC address near DO 
4283 JU III OO CII SOOO COTO O SIS IIO I IK 
4284 JU III IO TIO IOI TOTO OOO TIO SOIT TI TE 
4285 ‘ 
4286 ** Nane: UPDPC - Update PCADDR, by Referencing DO 
4287 &* Nane: UPDPCC - Update PCADDR fron C 
4288 Ex 
4289 ** Category:  EXCUTL 
42% xe 
4291 ** Purpose: 
4292 vg Updates PCADDR to point to the line length byte which 
4293 ae follows the line# of the line in which DO resides 
4294 aK 
4295 eA Entry: 
4296 et UPDPC: DO points within stnt to set PCADDR at 
4297 an UPDPCC: C(A) holds value to set PCADDR at 
4298 ax 
4299 Rk Exit: 
4300 x UPDPC: 
41 a Carry set: 
4302 ak DO not uithin Progran scope 
4303 aK PCADDR not updated 
4304 ak Carry clear: 
4305 ax P=0 
4306 ax D1 @ PCADDR 
4307 ax DO @ tEOL prior to line 
4308 xs C(A) contains new PCADDR 
4309 ax PCADDR updated 
4310 < 
4311 ax UPDPCC: 
4312 ak D1 @ PCADDR 
4313 ax Carry preserved 
4314 RK PCADDR updated fron C(A) 
4315 aX 
4316 *k Calls: CPLH10 (UPDPC only) 
4317 ae 
4318 &X Uses....... 
4319 xx Exclusive: C(A),D1,PCADDR 
4320 %* Inclusive: UPDPC only: A(A),B(A),C(A), D(A), 00,01, PCADDR 
4321 a 
4322 ** Stk lvls:  UPDPC: 3 
4323 ak UPDPCC: 0. 
4324 RA 
4325 ** Algorithn: 
4326 ae Conpute line# in which DO resides (CPLH10) 
4327 Ae If not within Progran scope 
4328 zs Return carry 
4329 ie Position to Line Length field 
43% aX Update PCADDR at Line Length field 
4331 a 
4332 ** History: 
4333 xe 
4334 ** Date Programmer Modification 
4335 a ale 


4336 kk 06/27/83 JP Check carry on rtn from CPLHIO 
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4337 aK 
4338 JOU TI OI II TT II IIIT IIIT TTI IIIS RI TTI I III III III SI SI II IIIA 
4339 SII III TTI IID ITT ITI III II IDI III III SII III III ITI IIS ISIS ISS IS III ISS 


4340 07858 7B2D 
4341 O7B5C 400 
4342 O7B5F 173 
4343 0O7B62 137 
4344 07865 1F9? 
6Fe2 
4345 O7B6C 145 
4346 O7B6F 01 


=UPDPC = GOSUB =CPLHIO Conpute line # of statenent 
RTNC Not Within Progran scope 
D1i=D1+ 4 Position to Line length 
CDIEX 

=UPDPCC D1=(5) =PCADDR Update PCADDR to point here 
DAT1=C A 
RTN 
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4347 
4348 
43%9 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
435? 
4358 
43569 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
439? 
4398 
4399 
4400 
4401 


KHERI KKK KEK KKK KARE KEK ARK AERA KI IIA K 
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STITLE PRSCOP - Coripute [ogra Scope 


fei 


FOCI II TOIT OTTO TIT OTT TT TTX 


ak 
xk 
ks 
ak 
am 
ak 
ak 
aa 
wa 
xk 
xk 
ae 
xk 
a 
ax 
xk 
x 
xk 
+s 
xk 
aa 
x 
xk 
ak 
ak 
xx 
xk 
kk 
ak 
xk 
xk 
xk 
xR 
ax 
xk 
xk 
xk 
xx 
ax 
ae 
xx 
xk 
ae 
xk 
xk 
ah 
am 
an 
ax 
xk 
kk 
ax 


Nane: PRSCOP - Cornpute Progran Scope 
Nane: PRSCKB - Conpute Progran Scope; Return af SUSP 
Nane:(S) PRSCOO - Conpute Progran Scope; GETSTC exit cond 


Category: 


Purpose: 


EXCUTL 


Conpute Program Scope:Progran Start,Progran End,Sub Links 


Entry: 


Assuries: 


PRSCKB: 
PRSCOP: 


PRSCOO: 


PRSCO-: 
PRSC60: 


Exit: 


CURRST, CURREN pointing at current file 


If progran suspened --> Return 
P=0 
Calls GETSTC to position in file and 

check file type 
Error Exits if non-BASIC file 
Assunes positioning = GETSTC exit conditions 
File type must be BASIC; Binary or Sane structure 
P=0 
Get progran start/end u/o File Type error exit 
Allous Progran scope set for Binary prograns 
Set Progran Start and End only 
D1 @ PRGNST 


If progran already running on entry: 
This routine does nothing 


If PRSCOP entry: 
If current file not BASIC 
Error Exit ---> eF TYPE 


Calls: 
Exclusive: 
Inclusive: 

Stk lvls: 

NOTE: 


= PRGMST (Progran Start) 
= PRGMEN (Progran End) 
D1 =@ PRGNST 


GETSTC, GETSTe, CHAIN* , RUSUS?, SCOPEN 


ACA), B(A),C(R), D(A), DO, D1, R2 
R, B(A),B(S),C,D(A), 00,01, R2 


PRSCKB will not set progran scope if running or suspended 
PRSCOP till aluays set the progran scope if progran not 


running 
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4402 kk History: 
4403 ak 
4404 ax Date Progranner Modification 
4405 AAS Soneicue -ceceadenee. ecules adele oad sees e ee eee 
4406 *k 06/3/82 IP Modified docunentation 
4407 kk 09/15/82 JP Changed GETSTC to error return 
4408 kk 01/04/83 JP Added PRSCKB entry point 
4409 kK 02/11/83 IP Deleted PRSC55 entry point 

xk 
he JOSIE III OCI IOI ITI TSI TI IT IIT ASIII IIT 
4412 JOC I DI III ITO III TIT TI OTT IT TI IITA 
4413 z 
4414 07B71 87D =RUSUS? ?ST=1 PgnRun 
4415 07B74 00 RTNYES 
4416 x 
4417 07876 311C LC(2) =F 1SUSP 
4418 07B7A 8£00 =SFlag? GOLONG =sflag? 

00 

4419 x 
4420 x 
4421 07B80 72AB =PRSCO- GOSUB GETSTC Get prog start w/o File type error 
4422 07B84 600 GOTO PRSCOO 
4423 x 
4424 x 
4425 07B88 75EF =PRSCKB GOSUB RUSUS? Running or suspended ? 
4426 07B8C 400 RTNC If so, return 
442? - 
4428 O7B8F 7(CB =PRSCOP GOSUB GETSTe MAKE SURE THIS IS A BASCI FILE 
4429 07893 136 =PRSCOO CDOEX 
4430 07896 DS B=C A B= ADDR OF THE 1ST EOL OF PRGN 
4431 07B98 135 D1=C 
4432 07B9B 1C9 D1=D1- 10 D1 POINTS AT SUB CHAIN HEAD 
4433 O7B9E 143 A=DAT1 A 
4434 07BR1 8A8 7A=0) OA THE FILE CHAINED YET ? 
4435 07BR4 E3 GOYES PRSC50 If NOT, LET’S CHAIN IT 
4436 07BR6 £4 A=A+1 A 
4437 O7BA8 4C1 coc PRSC10 SUBLNK not ALREADY ESTABLISHED 
4438 * 
4439 * Sublink already established 
4440 * B(R) = Address of the first EQL of the program 
4441 * ACA) = SUB link +1 
4442 * 01 @ SUB link 
4443 * Now I want to points at the token of the next SUB link 
4444 . 
4445 O7BAB 1C2 DI=D1- 3 
4446 O?7BRE 137 CDIEX 
444? 07BB1 C2 C=A+C A C(A) @ tuo nibs preced next SUB link 
4448 07BB3 135 D1=C 
4449 x 
4450 07BB6 7030 GOSUB SCOPEN See 1f it is a tSUB or tENDSUB 
4451 x 
4452 O7BBA 137 CD1EX Put progran end to D(A) 
4453 O7BBD D7? D=C A 
4454 O7BBF D4 A=B A ACA) = Progran start 


4455 078C1 6900 GOTO =PRSC20 
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4456 x 
4457 * SUBLNK = FFFFF, NO SUB-PROGRAN IN THIS FILE 
4458 s 
4459 07BC5 179 = PRSC10 D1=D1+ 10 D1 POINTS TO 1ST EOL 
4460 07BC8 133 ADIEX A= PROGRAM START 
4461 07BCB 1F26 =PRSC20 D1=(5) =PRGNST 
5F2 
4462 07BD2 DB C=D A C= PROGRAM END 
4463 
4464 x 
4465 07BD4 141 =PRSC60 DATI=A A SET PRGMST 
4466 07BD7 174 D1=D1+ 5 
4467 07BDA 145 DT1=C- DATI=C A SET PRGMEN 
4468 O7BDD 1C4 D1=D1- 5 
4469 07BEO 03 RTNCC 
4470 x 
4471 XSUBLNK= 0, SQ WE HAVE TO COMPUTE IT 
4472 x 
4473 07BE2 7B40 PRSC5O GOSUB CHAIN* 
4474 07BE6 68AF GOTO  PRSCOP START IT ALL OVER AGAIN 
4475 FOOT III OI RIO OIRO I TO 
4476 FO TOI ITT TOTO TO OOOO 
4477 ak 
4478 ** Narie: SCOPEN - Define the Progran Scope End 
4479 ax 
4480 kX Category:  FILUTL 
4481 at 
4482 ** Purpose: 
4483 aR When the end of a progran or subprogran is a SUB or 
4484 a ENDSUB statenent, deternine the end of the scope. 
4485 aR 
4486 ek Entry: 
4487 ak P = 0 
4488 aR D1 @ the token tSUB or tENDSUB 
4489 ne 
4490 xk 
4491 KK Exit: 
4492 ae P = 0 
4493 ak D1 @ end of progran scope 
4494 eK Carry clear 
4495 ay 
4496 *® Calls: None 
4497 xk 
4498 REOUSES cic awk 
4499 kx Exclusive: A(B),C(B),01 
4500 ** Inclusive: A(B),C(B),01 
4501 ee 
4502 ** Stk lvls: 0 
4503 RE 
4504 ee 
4505 RE Date Prograriner Modification 
4506 a0: deociies asasedaeeen, pee teie eis eho te awe 
4507 ke 05/18/83 = SC Wrote 
4508 ae 


4509 


JOJO RII III OI TOTO I III IN 





4510 
4511 
4512 07BER 
4513 07BED 
4514 07BF1 
4515 07BF4 
4516 
4517 
4518 
4519 O7BF6 
4520 07BF9 
4521 
4522 07BFB 
4523 O7BFE 
4524 07001 
4525 07004 
4526 07007 
4$2? 
4528 
4529 
4530 
4531 07COR 
4532 
4533 
4534 
4535 
4536 07COD 
4537 07010 
4538 
4539 
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14B 
3100 
962 
70 


178 
03 


13 
14B 
BE4 
BO4 
550 


173 


1C1 
03 
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FOOT IOI TIT TOT TIO TTT IIIT TTI TTI IK 
x 


=SCOPEN A=DAT1 B 
LC(2) =tSUB 
*A=C OB 
GOYES SPEN1O 


Read the token 


x 
* D1 @ tENDSUB 
x 


D1=D1+ 9 
RTNCC 

x 

SPEN1O D1=01- 4 
A=DAT1 B 
ASR B 
A=A+1 P 
GONC SPENZ2O 


D1 @ line # or "@" 


The SUB statenent is proceeded by the "@" sign. 
Scope end should be set to after the “@" sign. 


we  & 


D1=D1i+ 4 


* The SUB statenent is proceeded by a line nunber 
* Scope end should be set to right before the line nunber 
k 


SPEN2O D1=D1- 2 


RTNCC 
x 


x 
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4540 STITLE CHRIN*- Chain sub: progrars 
4541 JOO UOC OT TTA DI TTA I 
4542 JOO I OIC OTIS STIS ITT AID ITI II K 
4543 aK 
4544 ** Wane:(S) CHAIN+ - Chain Subprograns, Labels, DEF FNs 
4545 ** Nane:(S) CHAIN- - Chain Subprograns, Labels, DEF FNs 
4546 xk Nare: CHRIN* - Chain Subprograns, Labels, DEF FNs 
4547 ak 
4548 ** Category:  FILUTL 
4543 aR 
4550 ** Purpose: 
4551 ak Chain all Sub-prograns in a file 
4552 aR Chain all Labels in a file 
4553 ak Chain all Def FNs in a file 
4554 K 
4555 &* Entry: 
4556 kk P = 0 
4557 ak Assunes Current file is BASIC 
4558 aK 
4559 an CHAIN+: Chain Current File 
4560 aK CHAIN-: A @ Start of file to chain 
4561 ak CHAIN*: 01 @ Sub-link of file 
4562 ak D @ End of file 
4563 aK 
4564 RK Exit: 
4565 aK Pp = 0 
4566 ak D(A) = End of file 
4567 aR D1 = @ Sub-link of file 
4568 ak 
4569 ak Error Exit - if file not in RAN 
4570 ae eFACCS - " Illegal Access" 
4571 ak 
4572 kK Calls: FNDDO+ (FINDA), ISRAN? 
4573 xn 
4574 kK Uses....... 
4575 kk Exclusive: A,B(A),B(S),C,D(A),D0,D1,R2 
4576 aR CHAIN*: D1 is preserved 
4577 aK 
4578 AK Stk lvls: 2 
4579 ak 
4580 ** History: 
4581 aK 
4582 Kk Date Progranner Modification 
4533 RKO tenn R nH tenn nnn n enn nn en en nn ene ene nnn nnn nnn n eee 
4584 *k 06/3/82 JP Modified docunentation 
4585 a 01/17/83 SW. Updated/Expanded docunentation 
g k 
o JOISTS IOC IO EO TOR 
4588 JU OI IOI OCU OI TIE 
4589 07(12 1F05 =CHAIN+ 01=(5) =CURRST 


5F2 
4590 07019 143 
4591 O7C1C De 
4592 O7C1E 3102 
4593 O7C22 CA 


R=DAT1 A 
=CHAIN- C=0 A 

LC(2)  =oF LENh 

A=A+C A 
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4594 07024 131 D1=A D1 @ FILE CHAIN LENGTH 
4595 07027 147 C=DAT1 A C = FILE CHAIN LENGTH 
4596 O7(2A C2 C=A+C A C @ END OF FILE 
4597 O7C2C D? D=C A D @ END OF FILE 
4598 O7C2E 174 D1=Di+ 5 D1 @ SUB CHAIN HEAD 
4599 07031 137 =CHAIN* CDIEX 
4600 07034 10A R2=C R2 POINTS TO LAST SUBLNK 
4601 07037 134 DO=C 
4602 O703A 135 D1=C 
4603 0703D 147 C=DAT1 A 
4604 07040 8AE *CHO OR IS THE FILE AREADY CHAINED 
4605 07043 00 RTNYES IF SQ, JUST RETURN 
4606 07045 13? CDIEX SEE IF THIS FILE IN SRAM OR IRAN 
4607 07048 8FOO GOSBYVL =ISRAN? 

000 
4608 O7C4F D9 C=B A 
4609 07(51 135 D1=C 
4610 07054 480 GOC CHN110 
4611 O7C57 8000 GOLONG =PRGRON Give eFACCS error 
00 
4612 x 
4613 O7(5D 169  CHN110 DO=D0+ 10 DO POINTS TO 1ST EOL 
4614 07060 174 D1=D1+ § D1 POINTS TO 1ST LBLLNK 
4615 07C63 AC B=0 S INITIALIZE ENDSUB FLAG 
4616 0766 DO CHN120 A=0 R 
4617 07068 14A A=DATO B 
4618 O7C6B 161 DO=D0+ 2 
4619 O7C6E 90C PAHO OP ARE WE AT EOL NOW ? 
4620 07071 50 GOYES CHN130 IF NOT, GOTO 130 
4621 07073 163 DO=D0+ 4 POINTS 10 LINE LENGTH 
4622 07076 136 CHN130 CDOEX 
4623 0779 8BF *Co=D A REACHED END OF FILE YET ? 
4624 O7C7C B3 GOYES CHN300 IF SO, GOTO CHN300 
4625 ae 
4626 O7(7E 136 CHN140 CDOEX 
4627 07081 14A A=DRTO B 
4628 07084 D8 B=A A B= LINE LENGTH 
4629 07086 8EOO GOSUBL =FNDDO+ 
00 
4630 * 
4631 O7C8C 00 CON(2) =tLBLST 
4632 O7C8E B40 REL(3) CHNS10 
4633 a 
4634 07091 00 CON(2) =tDEF 
4635 07093 640 REL(3) CHN510 
46 36 ‘ 
4637 07096 00 CON(2) =tENDODF C(B)= tENDDF 
4638 07098 140 REL(3) CHN516 
4639 - 
4640 O7C9B 00 CON(2) =tSUB 
4641 07090 C20 REL(3) CHN250 
4642 
4643 O7CAOD 00 CON(2)} =tENDSB C(B)= tENDSB 
4644 O?7CAZ 920 REL(3) CHNZ80 


4645 : 


Saturn Asseribler Systen Connands, RUN Loop<8312 Fri Dec 30, 1983 3:10 an 


Ver. 3.39/Rev. 2306 CHAIN*- Chain sub-prograris Page 98 
4646 07CA5 00 CON(2) 0 
4647 & 
4648 x 
4649 x 
4650 O7CA7 132 CHN180 ADOEX SKIP OVER THE LINE 
4651 O7CAR CO A=A+B A 
4652 O7CAC 20 CHN190 P= 0 
4653 O7CAE 132 ADOEX 
4654 07(B1 181 DO=DO- 2 Adjust DO to @ or tEOL 
4655 07(B4 518 : GONC  CHN120 GOTO SEE NEXT LINE (B.E.T.) 
4656 
4657 07(B7 DO CHN300 A=0 A 
4658 O7CB9 CC A=A-1 A 
4659 O7CBB 141 DATI=A A WRITE FFFFF TO LAST LBL. LINK 
4660 O7CBE 11A C=R2 
4661 07CC1 135 D1=C 
4662 O7CC4 141 DAT1=A A WRITE FFFFF TO LAST SUB. LINK 
4663 O7(C7 03 RTNCC 
4664 x 
4665 O7CC9 21 CHN250 P= 1 
4666 O7CCB OC CHN280 P=P+1 
4667 O7CCD 137 CD1EX RESTORE R2 & D1 
4668 O7CD0 12A CR2EX Tenp. save ptr to last LBLLNK 
4669 07(D3 135 D1=C D1 POINTS TO LAST SUBLNK 
4670 07CD6 ACI B=0 S Clear ENDSUB flag 
4671 O7CD9 161 CHNS510 DO=D0+ 2 
4672 O7CDC 132 ADOEX 
4673 O7CDF 10 DO=A Ptr to next LNK field in A, DO 
4674 O7CE2 137 CD1EX 
4675 O7CE5 135 D1=C Address of last LNK field 
4676 O7CE8 EE C=A-C A Calculate offset 
4677 O7CEA 94D BHO OS Is last one an ENDSUB 
4678 O7CED 50 GOYES CHN520 If so, don’t write it 
4679 O7CEF 145 DAT1=C A Write out offset 
4680 O7CF2 131  CHN520 DI=A Update LNK pointer 
4681 O7CF5 181 DO=DO- 2 
4682 O7(F8 8% ?P= 0 Label Chain? 
4683 O7CFB CA GOYES CHN180 D1 POINTS PAST EOL 
4684 O7CFD 137 CDIEX RESTORE R2 & D1 
4685 07000 12A CR2EX R2 is again ptr to last SUBLNK 
4686 07003 135 D1=C D1 is ptr to last LBLLNK 
4687 07006 D2 C=0 A 
4688 07008 CE C=C-1 A 
4689 O7D0A 145 DAT1=C A WRITE FFFFF TO LAST LABEL LINK 
4690 07D0D 891 ?P= 1 END SUB? 
4691 07010 01 GOYES CHN530 If so, set ENDSUB flag in B(S) 
4692 O7D12 132 ADOEX Progran scope ends with SUB strt 
4693 07015 CO A=A+B A Start new label chain 
4694 07017 131 D1=A 
4695 O7D1A 1C6 DI=DI- 7 
4696 07010 5E8 GONC CHN190 (B.E.T.) 
4697 x 
4698 07020 AC1 CHN530 B=0 Ss 
4699 07023 B45 B=B+1 §$ 


4700 07026 508 GONC CHN180 (B.E.T.) 
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4202 STITLE CLRSTK - Collapse Stacks/Zero addresses 
4703 JOSS III TODO OI TC TOT ASIA IIS 
4704 JOO ICIS OO CII TITLE IIE TOTTI TT IOK 
4705 as 
4706 ** Nane: CLRSTK - Clear Stack/Zero Addresses 
4707 ** Nane: CLPSTK - Clear Stack/Zero Addresses 
4708 ** Nane: ZERPGN - Zero program addresses 
4709 * 
4710 **k Category:  EXCUTL 
4711 ah 
4712 ** Purpose: 
4713 KR CLPSTK: 
4714 kx Collapse all FOR/GOSUB/MATH stacks, pending Func stack 
47415 ak Zero progran addresses 
4716 ai Used by RUN, EDIT, PEDIT, END ALL 
4717 aa CLRSTK: 
4718 ak Collapse FOR/GOSUB/MATH stacks to current prgn level 
4719 kk Zero progran addresses 
4720 Kx Used by END 
4721 i ZERPGN: 
4722 ae Zero Progran Addresses, Clear SUSP annunciator 
4723 aX Used by MERGE, PURGE, KBRTCK (return to keyboard) 
4724 ak 
4725 xe Zero Addresses: 
4726 a CONTinue, ON ERROR, ON ERROR GOSUB, ON INTERRUPT, 
4727 am DATA statenent ptr, 3 ON TIMER addresses 
4728 as Zero 
4729 ax 3 Alarn RAM locations for 3 Tiners 
4730 ea Pending alarn bits for 3 Tiners 
4731 xR Clear SUSP Annunciator/F lag 
4732 %k 
4733 a Fast Poll to allow future statenents to zero addresses/RA 
4734 *k Entry: 
4735 ae P = 0 
4736 xe See Purpose 
4737 an 
4738 A® EMV t 
4739 a P = 0 
4740 xx Carry clear 
4744 — 
4742 ** Calls: C=RAME ,RSTOPT, RBLOCH, PUTALM, INITPT, FPOLL, DT1=C- 
4743 a CLRSTK, CLSUSP, MANSTK 
4744 xk 
4745 ak Uses....... 
4746 *k Inclusive: A,B,C,D,00,01,ALRM(+36: ALRM1,2,3),PNDALM (+1) 
4747 a ANNAD1-4, fF 1SUSP(-63),CNTADR thru TNRAD3, 
4748 ax MTHSTK thru GSBSTK,PRNPTR 
4749 xm 
4750 xx RO,R2 (CLPSTK only) 
4751 ne R4 nust be not be used due to call by CONFIGURATION 
4752 ae 
4753 ** Stk lvls: 3 
4754 ak 
4755 ** NOTE: 


4756 ee 
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4757 ** Detail: 
4758 xx 
4759 xk OCLPSTK : 
4760 as 1. Collapes all local variable created by sub-progran cal 
4761 aK to leave only the calculator variables. 
4762 ae 2. Call CLRSTK. 
4763 Kx 
4764 xk CLRSTK : 
4765 KR 1. Set MTHSTK,FORSTK,GSBSTK = ACTIVE(collaped) 
4766 7 2. Collapes stack generated by user defineded function. 
476? am 3. Zero CNTADR, ERRSUB, ERRADR, GNINTR, DATPTR, TNRADI-3 
4768 ak 4. Clear SUSP annunciator 
4769 aK 5. Zero alarn RAM locations for all 3 Tiners 
4770 ak 
4771 *k History: 
4772 Hk 
4773 Kx Date Progranner Modification 
4774 RK wenn ene e enn enn e ene pene o-oo - ne o-oo ee eee nee 
4775 kk 06/30/82 IP Modified docunentation 
4776 Kk 07/20/82 JP Modified docunentation 
4777 Kk 07/21/82 SC Change routine nane 
4778 *k 01/19/83 9 IP Added ZERPGN entry 
4779 *k 02/04/83 IP Added pZERPG Fast Poll 
4780 *k 03/15/83 IP Added DT1=C1; Collapse MTHSTK 
4781 ke 95/13/83 JP Updated Uses docurentation 
4782 *k 05/18/83 JP D1=(5) CNTADR @ ZERPGN 
4783 a 07/22/83 JP R4 cannot be used due to CONFIG 
3 
Ree JOII GIGS CIO IIIS ISI OI III ITO IIIT TT TOE 
4786 JISC GO III OI IOC ITI III II III OO TIT IIH 
4787 JOISTS III II IIIT TTDI E 
4788 JOISTS OGIO III IO CII IO III III ITI TT TTT TIE TR 
4789 KK 
4790 ** Nane:(S) pZERPG - Poll to zero program information 
4791 ak 
4792 ** Category: POLL 
4793 ax 
4794 xx Type: FPOLL 
4795 Kx 
4796 ** Purpose: 
479? xx Fast poll to allow future statenents to zero addresses 
4798 ae and RAM associated with extending a statenent, adding 
4799 x a statenent or application. 
4800 ae 
4801 ae This poll issued when zero program inforriation due to 
4302 AX an END, ENDALL, EDIT, Program Edit.... 
4803 =e 
4304 ae Issued from CLRSTK/CLPSTK/ZERPGN routine. 
4805 ae 
4806 *% Should poll be "Handled" (return with XM=0)?: 
4807 = No - This poll should continue to ALL Lex files 
4808 mY 
4809 &* Meaning of "Handling" Poll (what does code do 1f handled’): 
4816 oe Zero appropriate RAM / addresses associated with 


4311 Re statenent or application. 
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4812 x 
4813 ** Entry conditions for handler: 
4814 ah Carry set on entry 
4815 xs B[A} = Poll nunber (pZERPG) 
4816 x HEX node. 
4817 xx P=0, 
4818 ak 
4319 ak BRSIC stacks have been collapsed to appropriate 
4820 ae level. 
4821 xk CONT, ON ERROR, ON ERROR GOSUB, ON INTR, ON TIMER 
4822 aR statenent addresses have been zeroed 
4823 aa Taner alarn RAM has be zeroed 
4824 x SUSP annunciator/flag has be cleared 
4825 xn 
4826 *% Normal exit conditions fron handler if handled (ST, RAN, 
4827 *k registers, etc.): 
4828 kk This poll should never be "handled". 
4829 xa Always return with XM=1 
4830 ak 
4831 ** Normal exit conditions fron handler if not handled (ST, RAN, 
4332 *k registers, etc.): 
4333 aa HEX node. 
4834 ae XM=1, 
4835 a R registers intact. Status intact 
4836 KK 
4837 *k Available subroutine levels: 
4838 x ~-FPOLL handler is tuo levels deeper than caller-- 
4839 ak The invoking routine (CLRSTK/CLPSTK/ZERPGN) uses 3 lvls 
4840 a Therefore, a handler nay use ONLY 1 lvl. 
4341 xn 
4842 xR Use RSTK<R to save 3 levels in RSTKBF circular buffer 
4843 xk Use R<RSTK to restore 3 levels 
4844 ax 
4345 ** What registers/RAMN nay be used 1f not handled?: 
4846 a --A-C, D[15-5] DO, D1, P always available (FPOLL only)-- 
4847 ak --NOTE: D[A] is sacred in FPOLL!!-- 
4348 ax Do not use an R registers, please !!!! 
4849 ak Do not use Status 
4350 ak Do not use S-RO-0 
4851 an 
4852 *k Envisioned application(s): 
4853 a Extend or add a statenent (like ON INTP) and need 
4854 ak to zero the RAM address associated with the statenent. 
4855 ax 
4856 ee Zero 1/0 Buffer associated with an application because 
4357 wR all other progran inforriation 1s being zeroed. 
4858 ie 
4859 ** Note: 
4860 ak Bo not use $-RO-0 under ANY circunstances. 
4361 wx (counted on by PURGE ALL) 
4862 x 
4863 xk History: 
4364 aR 
4865 An Date Progranner Modification 
Mas. bake Wie el 7 lide tee sire en oh tes ce Zane 


4366 





4867 
4368 
4363 
4870 
4371 
4872 
43873 
4874 
4875 07029 


4876 07030 
4877 07D33 
4878 07036 
4879 07039 
4880 
4831 
4882 
4883 07D3B 


4884 07042 
4885 07045 
4886 07049 
488? 07D4D 
4888 07051 
4389 

4890 

4891 

4892 07054 
4893 07054 
4894 07056 
4895 07058 


4896 07D5F 


4897 
4898 
4899 
4%0 07065 
4901 
4%e 
4903 
4%4 
495 
4%o6 
4%? 
498 
4909 
4910 
4911 O7D72 
4912 07D75 
4913 07D77 
4914 0707A 
4915 0707C 


07D6B 


07D6E 
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8FOO 
000 
1C4 
143 
8A6 
85 


1F8A 
SF2 
147 
719€ 
7D8E 
798E 
145 


28 
b2 
1FE? 
6F2 
8E00 


1£78 
140 


7FAC 


302 
Dd? 
AFO 
DB 
8FOO 
000 





3:10 an 
Page 103 


Systen Corirands, RUN Loop<8312 
- Collapse Stacks/Zer 


Fri Dec 30, 1983 


ak 
x 
aK 
ax 
FOI ITO TOT TTT OI TOTTO TO RIOTOI 
FOOT IIT TOT OO TIO TIO OT IO 


ACLPSTK D1=(5) =RAMEND 


JP 
JP 
JP 


02/04/83 
04/23/83 
05/13/83 


Added poll 
Revised/updated docunentation 
Changed Usage docunentation 


- C=DAT1 A C= RAMEND 

=CLPSTK GOSBVL =C=RANE C= RANEND 
DI=Di- 5 D1 POINTS TO CALSTK 
A=DAT1 A 
?AHC OA ARE WE IN MIDDLE OF SUB ? 


GOYES CLAP20 IF SO, go collapse each level 
* SET GSBSTK,FORSTK,MTHSTK TO EQUAL TO ACTIVE 
x 


=CLRSTK D1=(5) =ACTIVE D1 POINTS TO ACTIVE 


C=DAT1 A C= ACTIVE 

GOSUB DT1=C- Write and Move don 5 nibs 
GOSUB DT1=C- Update GSBSTK, Move down 5 
GOSUB DT1=C- Update FORSTK, Move donn 5 
DAT1=C A Update MTHSTK 


k 
* ZERO CNTADR --> TMRAD3 
x 


=ZERPGM 
P= 15-((TMRAD3)-(CNTADR))/5 
C=O) OA 
D1=(5) =CNTADR First Pointer to Zero 
GOSUBL =initpt 


x 
* ZERO PARAMETER COUNT 
x 


D1=(4) =PRMPTR 
DATI=C B 


x 


* Clear SUSP Annunciator 
x 


GOSUB CLSUSP Clear suspend annunciator 


* 
* Zero Alarn RAM for Timers  (PUTALM) 
* Only C(O} is important 
* Return Set Carry 
x 

LC(1) 2 3 Tiners 

b=C AR Counter 

R=0 W Tiner interval = 0 
CLAPIO C=D A Tiner # - 1 

GOSBYVL =PUTALM C(S) = Tiner #-1 
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4916 07083 AOF D=D-1 P Tiner# counter 
4917 O7D86 53F GONC CLAPIO Clear all 3 tiners 
4918 & 
4919 * Fast Poll to allow future statenents 
4920 * to zero addresses or RAM associated with the statenent 
4924 x 
4322 07089 7398 GOSUB FPoll Fast Poll 
4923 O7D8D 7F CON(2) =pZERPG to zero addresses/RAN 
4924 O7D8F 03 RTNCC Return with carry clear 
4925 & 
4926 07091 137 CLAP20 CDIEX 
4927 07094 134 DO=C DO PTS AT CALSTK POINTER 
4928 x 
4929 07097 131 CLAP3O D1=A D1 PTS AT CALSTK 
4930 O7D9A 8FOO GOSBYL =MANSTK GET TO MAINFRAME CALL STACK 
000 
4931 O7DA1 133 ADIEX A= MAINFRAME CALL STACK ADDR 
4932 O7DA4 D2 C=0 A 
4933 O7DA6 3103 LC(2)  (caACTV)-(caCURS)+1 
4934 O7DAA CA A=A+C A R POINTS TO SAVED OFFSET OF ACTIVE 
4935 O7DAC 131 D1=A 
4936 O7DAF 184 DO=D0- § DO POINTS TO ACTIVE 
4937 O7DB2 8FO GOSBYVL =RSTOPT RESTORE ACTIVE 
000 
4938 O7DB9 164 DO=D0+ 5 
4939 O7DBC 8FOO GOSBYL =RSTOPT RESTORE CALSTK 
000 
4940 a D1=(5) =RANEND 
4941 x A=DAT1 A 
4942 x ACEX A 
4943 07003 DE ACEX A 
4944 O7DC5 8FO GOSBYL =C=RANE 
000 
4945 O7DCC 8A6 PARC OR REACH DOWN TO LAST LEVEL YET ? 
4946 O7DCF 8C GOYES CLAP30 IF NOT, KEEP GOING 
4947 07001 766F GOSUB CLRSTK 
4948 x 
4949 * RBLDCH will clear carry on exit 
4950 a 
4951 O7DD5 8D00 GOVLNG =RBLDCH REBUILD CHAIN HEAD POINTERS 
000 
4952 z 


4953 O7DDC END 





Saturn Assenbler Systen Conrands, RUN Loop<8312 Fri Dec 3, 1983 3:10 an 


Ver. 3.39/Rev. 2306 Syrbol Table Page 105 
ACTIVE Abs 193960 #2F5A8 - 14 4883 
ALINFO Ext - 589 
ALNSRV Ext - 2374 
ASNMNT Ext - 2230 
=RTCHK Abs 30679 #077D7 - 3270 
ATNFLG Abs 193602 #2F442 - 14 2785 
AUTCLR Ext - 739 1138 
AUTLN2 Ext ~ 1503 
RUTOCK Ext - 1622 


=BASCHR Abs 30529 #07741 - 3087 
=BASCHK Abs 30526 40773E - 3086 668 713 2449 
BASCK3 Abs 3544 #07750 - 3091 We? 


BASICs Abs 181 #OOOBS - 13 2207 
=BLANKC Abs 30744 #07818 - 3373 3316 
BLODSP Ext = - 1202 


=BLNKC+ Abs 30736 #07810 - 3371 

BSCEX+ Abs 30215 #07607 - 2495 2450 2452 2462 
=BSCEX2 Abs 29754 #0743R - 2144 904 

=BSCEXC Abs 29751 #07437 - 2143 

=BSCEXT Abs 30159 HO75CF - 2446 2182 2750 
BSCX10 Abs 29780 #07454 - 2168 

BSCX20 Abs 29790 #0745E - 2180 

BSCK22 Abs 29799 #07467 - 2183 2181 

BSCK25 Abs 29821 #07470 - 2189 2187 
BSCK30 Abs 29827 #07483 - 2195 2156 2171 
BSCK40 Abs 29855 #0749F - 2207 


BSCX45 Abs 29887 #074BF 2230 2209 
BSCX50 Abs 30142 #075BE 2404 2307 2334 2342 
BSCX60 Abs 30150 #075C6 2411 2253 


BSCK70 Abs 30159 HO75CF - 2447 2412 
BSCX85 Abs 30208 #07600 - 2475 2468 
BSCX95 Abs 3227 #07613 - 2498 2496 
=BSCKLP Abs 29777 #07451 - 2167 2413 
BSERR = Ext - 528 
C=RAME Ext - 4875 4944 
=CHAIN Abs 28473 HOOF39 - 486 
=CHAIN* Abs 31793 #07031 - 4699 4473 
=CHAIN+ Abs 31762 #O7C12 - 4589 738 
=CHAIN- Abs 31772 HO/CIC - 4591 
CHAINP Ext - 485 
=CHKPSF Abs 30586 #0777A - 3175 
CHN110 Abs 31837 #07(5D - 4613 4610 
CHN120 Abs 31846 #07C66 - 4616 4655 
CHN130 Abs 31862 #07076 - 4622 4620 
CHNI40 Abs 31870 #O7C7E - 4626 
CHN180 Abs 31911 #07CA7 - 4650 4683 4700 
CHNI9) «Abs 31916 HO7CAC - 4652 4696 
CHN25O Abs 31945 #07009 - 4665 4641 
CHN280 Abs 31947 #O7(CB - 4666 4644 
CHN300 Abs 31927 #07(B7 - 4657 4624 
CHN510 Abs 31961 #07CD9 - 4671 4632 4635 4638 
CHNS20 Abs 31986 #O7CF2 - 4680 4678 
CHN530 Rbs 32032 #07D20 - 4698 4691 
=CK"ON" Abs 30381 #076AD - 2785 2331 
CKEX-O0 Abs 29898 #074CA - 2248 2300 
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CKEXOO Abs 29915 #074DB - 2253 2291 
CKEXO1 Abs 29919 #O74DF - 2254 2252 
CKEXO5 Abs 29972 #07514 - 2302 2297 
CKEXO6 Abs 29988 #07524 - 2307 2332 
CKEXO7? Abs 29992 #07528 - 2313 2506 
CKEXO8 Abs 3007 #07537 - 2331 2256 
CKEX10 Abs W%O31 #O754F - 2338 2367 2369 
CKEX20 Abs 3041 #07559 - 2340 2346 
CKEXS Abs W125 #O75AD - 2394 2381 
CKSREQ Ext - 2304 
CLAP10 Abs 32122 #07D7R - 4914 4917 
CLAP20 Abs 32145 #07091 - 4926 4879 
CLAP Abs 32151 #07097 - 4929 4946 
CLOSER Ext - 2717 


=CLPSTK Abs 32041 #07029 
=CLRSTK Abs 32059 #07038 
=CLSUSP Abs 31121 #07991 
CNTADR Abs 194174 #2F67E 
CNICHK Abs 29177 #O71F9 
=CNTCK2 Abs 29182 H#O71FE 
SCNTCUR Abs 29576 #07388 


4875 684 733 2739 
4883 2716 4947 
3718 1322 4905 
14 965 1343 4893 4895 
963 731 847 
965 1149 4118 
1360 2476 4222 


' ’ § t ' 


COLLAP Ext - 833 
=COMPLH Abs 3832 #07870 - 3506 
=CONT Abs 28506 #06F5A - 508 
=CONTK Abs 28480 HO6F4O0 - 491 

CONTP Ext - 507 

COPYu—s-_ Ext - 628 

=CPLH10 Abs 30855 #07887 - 3520 1361 3510 4340 
=CPLH15 Abs W858 #0788R - 3526 1197 
CPLH25 Abs 3889 #078A9 - 3538 3551 
CPLH3O0 Abs 3905 #07889 - 3544 3552 
CPLH6E0 Abs 9H #07802 - 3553 3540 
CPLH70 Abs 3932 #07804 - 3554 3516 
CRLFOF Ext - 1257 

CURO2O Ext - 1548 

CURDVC Ext - 610 

CURRLO Ext - 1544 

CURRST Rbs 193885 H2F55D - 14 2903 4589 


SCURSNP Abs 29714 #07412 - 1522 
Crifof Abs 29469 #0731D - 1257 498 1137 1249 


BO=PCA Ext - 770 1012 

DI=TFB Abs 29475 #07323 - 1262 1176 1206 1253 
DATPTR Abs 194194 #2F692 - 14 4201 

DEPLIN Ext - 1487 

DEBNCE Ext - 1234 

=DEFEND Abs 30247 #07627 - 2663 2691 

DLFIBR Ext - ?37 1152 

DSPCNO Ext - 1219 

DTi=C- Abs 31706 #O7BDA - 4467 4885 4886 4887 
EDIT20 Ext - 694 


=END Abs 3271 #0763F - 2677 

=ENDIO «=Abs §=930283 #07648 - 2688 1252 2188 2732 
ZEND20 Abs %308 #07664 - 2715 

END25 Abs 3308 #07664 - 2716 

END30 Abs 3312 #07668 - 2717 2740 
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END40 
ENDAL1 
=ENDALL 
=ENDBIN 
ENDDC 
ENDDEF 
ENDP 
ENDSB- 
EOLSCN 
=ERRRIN 
ERRSUB 
EXCADR 
=EXITRN 
Except 
FCHLB2 
FCHLB4 
FCHLB6 
=FCHLBL 
FDLB10 
FDLB20 
FDLBX 
=FETCH 
FETCHP 
FILXQT 
FILXQ* 
FINDF 
=FINDLB 
FINDLR 
F LUSHA 
FNDDO+ 
FORSTK 
FPOLL 
=FPol) 
FSPCER 
FSPEC) 
FICO10 
FICO20 
FICO25 
FICO 
FICO35 
FTICO40 
FICOS5O 
FTCO60 
FICER2 
FTCHKY 
GETPRO 
=GETPRe 
=GETPeF 
=GETST* 
=GETST- 
=GETSTI 
=GETSTC 
=GETSTe 
GETSe1 
GOSBDC 


Abs 
Abs 
flbs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 


2306 


0339 
365 
362 
0283 


29933 
194179 


375 


768 
0783 
H827 
1764 
30617 
0635 
#661 
29596 


29499 


30598 


193950 
#240 


29618 
29631 
29655 
29665 
29675 
29679 
29689 
29727 
29685 


W572 
493 
486 
2504 
0508 
502 
559 
563 


Systen 
Syribol 


#07683 
#07690 
#0769A 
#07648 


#074ED 
#2F 683 


#076R7 
#OO00C 
#07830 
#0783F 
#0786B 
#0782C 
#07799 
#077RB 
#07705 
#07390 


#0733B 


#07786 


#2F59E 
#07620 


#073B2 
#07 3BF 
#073D7 
#07361 
#073EB 
#07 3EF 
#073F9 
#0741F 
#07 3F5 


#07760 
#07710 
#07716 
#07728 
#0772C 
#07726 
#07 75F 
#07763 


Connands, RUN Loop<8312 


Table 


t ’ § ' ' ' ' ' ' 


2725 
2739 
2738 
2687 
2667 
2663 
2668 
2665 
2469 
2278 
14 
2214 
2749 
13 
3424 
3428 
3447 
3423 
3248 
3254 
3264 
1450 
1449 
4311 
1311 
649 
3243 
789 
2497 
4629 
14 
2502 
2502 
556 
526 
1460 
1470 
1481 
1486 
1500 
1503 
1511 
1544 
150? 
1455 
3016 
3169 
3016 
3013 
3020 
3021 
3019 
3101 
3102 
4046 


2723 
2680 


4107 


2719 
2296 
3443 
3426 
3436 
1516 
3263 
3247 
3253 


4161 


831 
1481 


2279 
2146 


1453 


1545 
1518 
154? 
1482 
1476 
1514 
15i2 


3170 
1139 


3528 
3014 

748 
3169 
3171 


426? 


2305 


3268 


4169 


2314 


1623 
151? 


1466 


3782 


843 
4428 


2313 


2498 4922 


4279 


3175 


2718 «3101 
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=GOSUB 
GOSUBP 
=60T0 
=GOTO+ 
GOTO- 
GOTODC 
GOTOP 
GIMRA+ 
GT0001 
GT0005 
GT0010 
GTB020 
GTG030 
6T0040 
670050 
670060 
670110 
GT0120 
670130 
610140 
610150 
GTOLEO 
GTOLE1 
GTOLE2 
GTOLE3 
GTOLE4 
ISRAN? 
KEY? 
=LBLNAN 
LBLRCK 
LBNN1O 
LBNN2O 
LBNIT3O 
LOCSET 
LOSST1 
LDSST2 
=LET 
LETOC 
LETP 
LINHDC 
LNSKP- 
MAINLP 
NANSTK 
NFERR 
NLPEXT 
Nferr 
=NOPRGM 
NOSCRL 
NOTBAS 
=NULLP 
NXTST1 
NXTSTN 
NoCont 
=Nxtstn 
OFF TNR 


Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Abs 
Rbs 
Rbs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 


31203 


31226 
31238 
31229 


31232 
31248 
31262 
31285 
31314 
31348 
31359 
31365 
31420 
31433 
31451 
31469 
31492 
31500 
31520 
31539 
31559 
31565 


30695 
29487 
30705 
30721 
30723 


29887 


29268 
30566 
427 


30548 
31129 


14 
30421 


Syster Conrands, RUN Loop<8312 
Syrbol Table 


#07969 


#079F A 
#0 7R06 
#0 79FD 


#0 7A00 
#0 7A10 
#O7R1E 
#07835 
#0 7A52 
#07R74 
#07A7F 
#0 7A85 
#O 7ABC 
#O7AC9 
#0 7ADB 
#0 7AED 
#0 7804 
#0 7B0C 
#0 7B20 
#0 7833 
#0 7B47 
#0 7B4D 


#077E7 
#0 732F 
#077F 1 


#07801 - 


#0 7803 


#0 74BF 


#07254 


rs en ee | 


#07766 - 


#076DB 
#07754 
#07999 


#HOOOOE 
#07605 


4049 
4047 
4055 
4062 
4056 
4052 
4053 
2364 
4057 
4072 
4084 
4096 
4115 
4129 
4136 
4143 
4182 
4197 
4218 
4229 
4239 
4258 
4264 
4269 
4278 
4279 
3705 
1231 
3316 
1? 
3319 
3325 
3326 
1198 
1188 
1209 
2229 
2227 
2228 
1199 
4091 
1155 
43930 
3103 
1155 
3193 
2831 
1220 
3093 
3782 
2726 
2828 

13 
2828 
4273 


4050 


4037 


4073 
4090 
4106 
4116 
4098 
4086 
4151 
4172 
4198 
4219 
4231 
4162 
4259 
4265 
4270 


4607 


3265 

826 
3324 
3320 
3322 
3371 


840 
17 


3089 
838 


1148 
801 


4109 


4221 
4170 


3433 
1511 


1624 
3178 


1153 


2143 
223) 


4124 


4183 


2501 


1546 


2411 
4223 
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ONTINR 
oUT2TC 
=PRUSE 
PCRODR 
PFDLIO 
PFDLS50 
PFDLO0 
PFOL65 
PFDL70 
PFDL?5 
=PFINDL 
=PFNDL* 
=PFNDZL 
PNDALN 
POPGSB 
P011) 
PRGF MF 
PRGMEN 
PRGNST 
PRGRON 
PRMPTR 
=PRSCOO 
PRSC10 
=PRSC20 
PRSC50 
=PRSC60 
=PRSCKB 
=PRSCO- 
=PRSCOP 
PSHGSB 
PSHUPD 
PUTALN 
PgriRun 


Poll 
RBLOCH 
=RDCHD+ 
=RDCHDR 
RDHD10 
RDHORO 
=RDHDR1 
RDINFS 
RESTOC 
=RESTOR 
RESTR# 
RESTR1 
RESTRP 
RESTRX 
RSTOPT 
RTNCC 
=RUN 
RUNOOS 
RUNO10 
RUNO15 
RUNO17 


Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Robs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 


Abs 
Ext 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Rbs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 


30418 
194169 
31003 
31028 
31053 
31055 
31078 
31113 
30943 
31026 
30946 
194401 


193895 
193890 


193975 
31635 
31685 
31691 
31714 
31700 
31624 
31616 
31631 


13 
3440 


2446 
30448 
30478 
30458 
30461 


31162 
31181 
31438 
28526 
28490 
28512 


28526 
28554 


Syster Conriands, RUN 
Synbol Table 


#0 76D2 
#2F679 
#0791B 
#0 7934 
#0794D 
#0 794 F 
#07966 
#0 798F 
#0 78DF 
#07932 
#O78E2 
#2F 761 


#2F567 
#2F 562 


42F5B? 
#0 7B93 
#07BC5 
#0 78CB 
#0 7BE2 
#0 7BD4 
#0 7B88 
#0 7B80 
#0 7B8F 


#0000D 
#0 76E8 


#O76EE 
#0 76F 0 
#0770E 
#O76F A 
#0 76F D 


#079BR 
#079CD 
#0 7ACE 
#OGFOE 
HO6F4A 
#ObF OO 


HOGFGE 
#OOFSA 


2398 
1201 
2827 
14 
3668 
3679 
3688 
3689 
3697 
3714 
3643 
3678 
3644 
14 
4260 
2834 
611 
14 
14 
4611 
14 
4423 
4459 
4461 
4473 
4465 
4425 
4421 
4428 
4136 
4120 
4915 
13 
2722 
2834 
4951 
ee 
213 
2912 
2905 
296 
647 
4020 
4022 
4030 
40 34 
4021 
4201 
493? 
eral 
517 
497 
510 
518 
538 


2195 
3650 
36393 
3696 
3674 
3682 
3709 


4182 
2248 


1161 
3243 


2688 
4422 
4437 
4455 
4435 


4071 
1151 


613 
2748 
673 


712 
3020 
2909 
013 

667 


Loop<8312 


4344 
3652 


2338 


2183 
4461 


4900 


4474 


873 
2831 
893 


2448 


3655 


2372 


3668 
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1323 2155 2180 2333 2451 


3651 


4115 4220 4414 











Saturn Assenbler 


Systen 


Ver. 3.39/Rev. 26 Synbol 


RUNO18 
RUNO20 
RUNOZ2 
RUNO25 
RUNO34 
RUNO35 
RUNO40 
RUNO45 
RUNO4 7 
RUNOSO 
RUNOS3 
RUNOSS 
RUNOS?7 
RUNOSS 
RUNO6O 
RUNO65 
RUNO70 
RUNO?5 
RUNO76 
RUNO?7 
RUNO8O 
RUNO85 
RUNOSO 
RUN100 
RUNI10 
RUN120 
RUNI25 
RUN140 
RUN145 
RUN150 
RUN155 
RUN160 
RUN165 
RUN170 
RUN?773 
RUN?75 
RUNDC 

=RUNER1 
RUNERS 
RUNERS 
RUNERS 
RUNERR 
RUNEXT 
=RUNK 

RUNP 

=RUNRT1 
=RUNRTN 
RUNSST 
=RUSUS? 
Rtnec* 
Rtnect 
Rtnec~ 
$-RO-0 
5-RO- 1 
SAVELH# 





Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Rbs 
Ext 


28559 #O6F SF 
28566 HOOF 96 
28589 #O6FAD 
28611 #06FC3 
28642 HOGFE2 
28645 HOGFES 
28677 #07005 
28708 #07024 
28713 #07029 
28759 #07057 
28768 #07060 
28787 #07073 
28801 #07081 
28847 #O70AF 
28850 #070B2 
28865 #070(1 
28869 #07005 
28883 #07003 
289339 #0710B 
28949 #07115 
28953 #07119 
28995 #07143 
29031 #07167 
29041 #07171 
29058 #07182 
2983 #071A1 
29100 HO7TAC 
29111 #07187 
29116 #O71BC 
29132 #071CC 
29141 #07105 
29144 #07108 
29166 HO7TEE 
29173 #O7TF5 
28914 #O70F2 
28920 #O70F8 


29051 #071 7B 
28651 HO6FEB 
28828 #07090 
28843 #O70RB 
28548 H#OGF 84 
2927 #07163 
28487 HOGF 47 


29927 #O74E7 
29930 HO74ER 
30372 #076A4 
31601 #07871 
30693 #077E5 
31150 #O7SRE 
30941 #078DD 
194673 #2F871 
194678 #2F876 





Conrands, RUN Loop<8312 


Table 





540 
549 
557 
572 
588 
589 
606 
623 
625 
647 
649 
666 
670 
691 
692 
699 
711 
731 
756 
760 
768 
780 
806 
813 
826 
838 
847 
859 
861 
873 
883 
884 
897 
904 
738 
739 
484 
819 
5% 
681 
686 
528 
801 
496 
516 
2276 
2277 
2748 
4414 
3275 
3789 
3557 
14 
14 
1362 


581 
527 
553 


539 
574 


607 
654 
624 
541 
636 
714 
672 
669 
510 
499 
695 
741 
757 
759 
777 
79%) 


782 
760 
839 
815 
848 
860 
874 
743 
895 
892 
736 
732 
515 
808 
612 
633 
682 
59) 
798 


875 


2721 
4425 
3273 
3687 
3663 
4143 

768 
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555 


579-583 


652 


800 


829 
834 


1256 


82? = 832.150? 
650 675 
686 6896 


4240 


3700 


4271 
1014 
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SRVPCr 
SCOPCK 
=SCOPEN 
=SETSU1 
SETSU2 
=SETSUS 
=SF GPGN 
SF LAGS 
=SF lag? 
SNerlf 
SPEN1O 
SPEN2O 
=$$T 
SSTO10 
$$T020 
$S$7025 
SST030 
SS1040 
SST050 
SST055 
SSTO060 
$ST070 
SSTO8O 
STMBCL 
STNTDO 
STMINF 
=STOP 
STOPDC 
SUBCHK 
SUBEND 
SV INF + 
SVINFO 
=Scopck 
=Sflagl 
=Sf1lgCp 
TKSCN? 
TNRAD3 
TRFCK- 
TRFNBF 
TRFROM 
TRTO+ 
=TrfCk- 
=UPDPC 
=UPDPCC 
USRSTA 
=ZERPGN 
caACTV 
caCURS 
cursf] 
dC RRL 
dPORT 
=dcplin 
eF TYPE 
fBASIC 
fBIN 


Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Rbs 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Ext 
Abs 
Abs 
Rbs 
Ext 
Abs 
Rbs 


26 Syrbol Table 


29201 #07211 


31722 #O7BER 
295439 #07360 
29568 #07380 
29536 #07360 
29519 #O734F 
29530 #0735A 
31610 #07B7—~ 


31739 #O7BFB 
31757 #07C0D 
29224 #07228 
29238 #07236 
29274 #O725A 
29299 #07273 
292 #O7276 
29336 #07298 
29383 #072C7 
29411 #072E3 
29420 #O72EC 
29443 #07303 
29456 #07310 


194705 #2F891 
30358 #07696 


30254 #0762E 


30402 #07602 
30434 #076E2 
30430 #076DE 


194209 #2F6A1 
194757 #2F8C5 


31569 #07B51 
31576 #O7B58 
31589 #07Bb65 


32084 #07054 
66 #00042 
6 #00006 


? #00007 
1 #00001 
29668 #073E4 


57876 #OEC14 
57860 #OEZO4 


1011 
2791 
4512 
1346 
1352 
1343 
1322 
1325 
4418 
4278 
4522 
4536 
113? 
1148 
1161 
1175 
1176 
1196 
1219 
1231 
1233 
1249 
1253 
863 
14 
819 
2732 
2730 
2692 
2665 
592 
596 
2791 
2833 
2832 
3425 
14 
4231 
14 
4074 
4232 
4281 
4340 
4344 
2316 
4892 
13 


Systen Cornands, RUN Loop<8312 


558 
4450 


1350 
1360 

884 
1353 


4515 
4526 


1150 
1154 
1166 
1186 
1189 
1168 
1239 
1232 
1251 


626 


2825 
2693 

807 
3713 
2447 
4893 
1262 


2380 
2386 


4933 
4933 


550 
576 


093 
H8?7 
670 
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699 
4239 
629 
1348 2368 3659 


4072 429 
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f LPRGM 
f 1SUSP 
initpt 
LEOL 

nxtstn 
oBSsod 
oF LENh 
oF NAMh 
oF TYPh 
pBSCen 
pBSC ex 
pExcpt 
pRUNft 
pRUNnB 
pZERPG 
sCHAIN 


sCONT 
sCONTK 
sDEST 
sENDx 
SERROR 
sEXTGS 
sGOSuUB 
sMAINc 
SONERR 
sSONTTIR 
SRESTR 
SRUNBn 
sSsT 
sSsTde 
sKWORD 
=savel# 
sflag? 
sflage 
sflags 
tALL 
+COrnnAa 
tDEF 
tELSE 
tENDDF 
tENDSB 
tKEY 
tLBLRF 
tLBLST 
tLINE# 
tRFILE 
tSUB 


Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


-62 HFFFC2 
~63 HFFFCI 


2 #00002 
31465 #07ARE9 
17 #00011 
32 #00020 
0 #00000 
16 #00010 
245 HOOOFS 
246 HOOOFE 
248 HOOOFS 
48 #00OW 
43 #00031 
247 #OOOF? 
11 #0000B 


10 #OOOOR 
9 #00009 
3 #00003 
1 #00001 
0 #00000 
5 #00005 
3 #00003 
5 #00005 
4 #00004 
6 #00006 

10 #OOOOA 
4 #00004 
2 #00002 
1 #00001 
9 #000093 

29584 #07390 


Connands, RUN Loop<8312 
Table 


4 § § § # Fo to dog 


13 
13 
4896 
13 
4223 
13 
13 
‘2 
13 
13 
13 
13 
13 
13 
13 
13 
758 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
1362 
4418 
2833 
1325 
2678 
775 
4634 
2465 
4637 
4643 
1450 
1308 
3249 
780 
519 
4513 


1324 
1382 


25 
4203 
25 
632 
6393 
692 
2147 
2499 
2315 
674 
894 
4923 
486 


431 
497 
559 
2276 
2277 
4058 
4049 
560 
2397 
2396 
4034 
666 
1167 
1178 
3643 


3424 
1474 


4640 


2832 
3718 


3786 
2912 


693 


538 


496 
509 
595 
2461 
22% 
4089 
4055 
588 
4057 
4129 
4056 
691 
1223 


3649 


4631 
4149 


4417 


4592 
2H6 


580 


508 
756 


2725 
2406 


4085 

623 
4105 
4269 
4197 

711 
1250 


40937 
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2912 


606 
859 


2495 


4218 


4264 


740 
2720 


651 
963 


4258 


883 
2738 


681 


891 
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735 
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Input Paraneters 
Source file nane is JP&SYS::MS 
Listing file nane is JP/SYS:TI:ML: :-1 
Object file nane 1s JPZSYS: TINS: :-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 & J  PPPP & EEEEE X XxX CCC 
2 x JP P 88 E KX xX C C 
3 x JP P && E KK C 
4 x J PPPP & EEEE x C 
5 x JP &&8& E XxX C 
6 x J JP & & € RoR EL 
7 x JJJ P 8& & EEEEE X xX CCC 
8 k 
9 TITLE Progran Execution Routines <831212.1515> 
10 9700C ABS #07DDC 
1 RDSYMB TIZEQU::NS 
12 RDSYMNB SBXRAN: NS 
13 JOG TIO IOI IOI IO OO I TTI TI TAK 
14 JOIST OO OCU TT IID TOT 
15 kk 
16 ** Nane: USER - Statenent Execute 
17 aX Nane: Lc - Statenent Execute 
18 kk 
19 ** Category: STEXEC 
2” tk 
21 ** Purpose: 
22 am Execute USER | LC staterent 
23 kk 
24 ** Entry: 
25 ae USER: DO past USER token 
26 ax LC: 00 past LC token 
27 an 
28 Kk Exit: 
29 a Through NXTSTM 
30 kk 
31 kk Calls: SF LAGT , SF LAG* 
32 kx 
33 RK Uses. cc. 
34 ** Exclusive: A(B),B(A),C(A), DO 
35 *k Inclusive: A(B),B(A),C(A),DO,C(S),D(A),P 
36 KK RNNAD1 -4, SYSFLG 
37 aX " 
38 Ke Stl lvls: 4 
39 kk 
40 Kk NOTE: 
41 KA tOFF must IMMEDIATELY follow tON 
42 ae There 1s a HARD WIRED (B=B+1) in this code 
43 xe 
44 ** Detail: 
45 aR USER [ ( ON | OFF ) ] 
46 kk tC [ ( ON | OFF ) J 
47 xr 
48 ** Histary: 
49 ae 
50 a Date Progranner Modification 
51 Per eee ea eten test en tae ee acres eh ete 
52 ¥* 07/04/82 IP Modified dacunentation 
53 *k 11/16/82 IP Interfaced to SFLAG* 
54 at 


§5 i 
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56 
57 
58 07DDC 


59 07DE1 


60 O7DE6 
61 O7DE6 
62 O7DEA 
63 O7DEE 


64 O7DF3 


65 O7DF8 
66 07DFC 
67 O7DFE 
68 07E02 
69 07E04 
70 07E0? 
71 O7EOR 
72 
73 
74 
75 
76 O7EOC 
77 O7EOE 
78 07E11 
79 
80 
81 
82 07E13 


83 O7E1A 
84 
85 
86 
87 O7E1E 
88 
83 
9 
91 
92 
93 07E20 


94 O7E2? 


0000 
0 
0000 
0 


3t1F 
6110 
0000 
0 
0000 
0 
317F 
05 
3100 
DD 
14A 
360 
41 


E5 
960 
FO 


8FOO 
000 
6444 


21 


8FOO 
000 
52F 
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FORO OO UT OT ERO 
FOI IORI TOIT OE FIO 


REL(5) =FLIPDC 
REL(S) =FLIPP 
=LC 
=FLIP LC(2) =FILC LC flag number 
GOTO USER10 
REL(S) =USERDC 
REL(5) =USERP 
USER LC(2) =f1USER USER flag nunber 
USER10 B=C A Save flag nunber 
LC(2) =tON 
BCEX A B <-- Token, C <-- Flag nunber 
R=DATO B Read next token 
7A=B OB ON token ? 
GOYES USER20 Yes; turn on flag/annunciator 
x 
FON OTE 22 I ID AIO T DTT I SEIT IOS III IIS IIIIII III IIS IIASA. 
x — tOFF rust IMMEDIATELY follow tON 
k 
B=B+1 A OFF token 
7A=B OB OFF token ? 
GOYES USER30 Yes; turn off flag/aannunciator 
x 
* Toggle flag/annunciator 
* 
GOSBVL =SFLAGT Toggle flag/annunciator 
USREXT GOTO 8 Nxtstn Return to Run loop 


x 
* ON - Set flag/annunciator 
& 


USER2O P= 1 "Set" flag indicator 
x 

* OFF - Clear flag/annunciator 

x P= ---> Clear flag 

x P=1 ---> Set flag 

* 

USER3O GOSBVL =SFLAG* Set/Clear flag 
GONC  USREXT B.E.T. 
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95 STITLE ON Staterient Execution 
96 JI IOI GOGO IOC COO TET TIT 
97 OOOO OCI IO IOC OOO II TT ITI IK 
98 a 
99 ** Nane: ON - Statenent Execute 
100 ke 
101 ** Category: STEXEC 
102 aK 
103 ** Purpose: 
104 xk ON Staternent Execute 
105 KK 
106 ** Entry: 
107 aK DO past ON token 
108 wk 
109 KK Exit: 
110 x If ON ERROR | TIMER ---> Return thru NXTSTM 
111 kk If ON GOSUB ---> Execute thru ONGSB  (EXCERR,GOSUB) 
112 . If ON GOTO | RESTORE ---> Execute thru ONGTRS 
113 
114 ne Error Exits - "Invalid Arg" 
115 xk Negative Expression (fron RNDEXP/FLTDH) 
116 wk Bad tiner# (fron GINR#) 
117? ON <exp>=0 or Out of range 
118 ax 
119 > ARGSTA Error Exits: for Cornplex,Array,Pro) Inf 
120 
121 kk Calls: RNDEXP, ACTTNR, EXPEX-, GTMRH, GIMRAD, SEC2TK, 
122 a ARDSTA, D1i=SRO, TMIADR, EXPSKP 
123 a 
124 Kk Uses....... 
125 *k Exclusive: A-D,D1,00,$3,$5,$10, ERRADR, TNRAD1-3 
126 aK RO,R1,STMTRO (5 nibs), THRINI-TMRIN3 
12? aH 
128 Kk Stk lvls: <=? (Statenent Execute routine) 
129 kk 
130 kk $3= GOSUB 
131 *x =$5= External entry flag for GOSUB|GOTO|RESTORE execute 
132 *X ~—$10= ON RESTORE 
133 *k RO = Tiner Interval 
134 ** R1 = Timer # 
135 aK 
136 ** Detail: 
13? x If ON ERROR 
138 #k Zero ERRSUB address 
139 ak Save address of GOTO|GOSUB in strt anto ERRADR 
140 ne go Ship to end of stnt & return to Run Loop (NXTSTNM) 
141 xx If ON TIMER 
142 ae Nove past TIMER token 
143 ae Get Tiner# (GTMR# ) 
144 =* Save Tiner# (STNTRO) 
145 =A Skip corta 
146 bes Evaluate <#secs> (EXPEX-) 
147 ak Standard arguenent, Error if bad (RRGSTA) 
148 x If negative (ACS) #0) 


449 kt Interval <-- nininun (1)==1/32 
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150 a goto 2; 
151 xR Convert Seconds to Ticks (1/512) (SEC2TK) 
1§2 ak Shift for 1/32 accuracy 
153 ae If interval < 1 
154 aR Interval <-- mininun (1) 
155 aK goto 2; 
156 a If interval > Maxinun (FFFFFFFF) 
157 a Interval <-- Maxirun 
158 aK 2: Save interval (RO) 
159 xe Get ON TIMER address pointer (GTMRAD ) 
160 xx Save TIner Address (Ri) 
161 xk Set ON TINER address 
162 ae Conpute offset to Taner Int field (TMIADR) 
163 an Shift Tiner Interval for 1/512 accuracy 
164 a Activate Tiner (AC TTAR ) 
165 xn go to Next statnent (NXTSTMN) 
166 xk If ON-GOTO | GOSUB | RESTORE 
167 a Evaluate Branch Number and round (RNDEXP) 
168 x If Branch Number = 0 (Decrenent & Carry) 
169 ae Error Exit ---> “Invalid Arg" 
170 xx Set B = Branch nuriber 
171 a If GOSUB ---> Set sGOSUB (S3) 
172 aa If RESTORE -> Set sRESTR (S10) 
173 aR A: Skip statenent type token or conna 
174 xx Decrenent Branch nunber 
175 ee If Branch nunber #0 (Carry Clear) 
176 an Read next token 
177 xx If token = line# (OF) 
178 mx Skip line# token & line# 
179 ae Read next token 
180 ae If token = label (F6) 
181 ak If tlITRL label 
182 x Skip until comma | EOL | @ [| ! (A(1)=F) 
183 an else 
184 aR Skip label expression (EXPSKP ) 
185 xx If token = conna (F1) 
186 a goto 1; 
187 il else ---> Error Exit (Branch # too large) 
188 a If Branch nuriber = 0 (Carry set) 
189 ax Clr External entry flag for GOTO|GOSUB exec (sEXTGS 
190 ax go Execute GOTO | RESTORE | GOSUB (ONGTGB) 
191 xR 
192 xk History: 
193 ae 
194 = Date Prograriner Modification 
195 ES aceeeees! tGeieneaia. deleceeeewiac couse des we ae came deem aw 
196 ak 07/04/82 JP Modified docunentation 
197 xk 09/04/82 JP Interfaced to ARGSTD 
198 kk 10/14/82 IP Interfaced to ARGSTA 
199 xk 41/29/82 IP Change ON...GOSUB interface 
200 kK 03/08/83 IP Clear sEXTGS before ONGTGB jump 
201 xk 05/11/83 9 JP RNDEXP errors if Branch#=0 
202 xk 06/30/83 JP Call EXPSKP is "Label" expression 
203 ka 


204 FOO RRR III JI TOI TO IO IG IOI I III OK 





205 
206 07E2A 


207 O7E2F 


208 07E34 
209 07637 
210 07E3B 
211 O7E3E 
212 
213 
214 
215 
216 07E40 


217 07E47 
218 07649 
219 O7E4C 
220 O7E4F 
221 O7ES2 
222 07655 
223 07E58 
224 
225 
226 
22? O7ESC 
228 O7ESF 
229 O7E62 
230 07664 
231 
232 
233 
234 
235 07E68 
236 O7E6C 
237 07E70 
238 
239 
240 
241 
242 
243 07E73 
244 07E76 


245 


246 
247 
248 
249 
250 
251 07E84 
252 07687 
253 07689 
254 O7E8C 


O7E82 
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0000 
0 
0000 
0 
14A 
3100 
366 
E1 


1F 38 
6F2 
D2 

145 
174 
161 

136 
145 
6604 


B06 
962 


6080 


7E52 
7001 
144 


161 
8E00 
00 
8E00 
00 
04 


948 
AO 
AFe 
Ee 
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Progran Execution Routines <83 


FOG ICICI OO TIT TIT ITI TTI IIIT ITI TTI IIIA 


REL(5) =ONDC ON statenent Decompile 
REL(5) =ONP ON statenent Parse 

=0N A=DATO B Read type of ON statenent 
LC(2) =tERROR ERROR token 
ARC OB Not ON ERROR ? 
GOYES ONO10 


* ON ERROR Execute 
& Zero ERRSUB address - to negate prior ON ERROR - GOSUB 
x 


D1=(5) =ERRSUB Return address for ON ERROR - GOSUB 


C=0 A Zero it 

DAT1=C A 

B1=D1+ (ERRADR)-(ERRSUB) Move to ERRADR 

DO=D0+ 2 Nove past ERROR token 

CDOEX Save addr to GOTO|GOSUB in ON ERROR 
DATI=C A 


ONEXIT GOTO 8 Nxtstn Skip to end of strit, Rtn to Run Loo 
* 


* ON TIMER execute 
x 


QONO10 =C=C+1 P TIMER token 
*A=C OB ON TIMER ? 
GOYES ONO15 
GOTO O0N300 
* 
* Evaluate Tiner#, Round, Check if within bounds 
* Save it 
* 
ONO15 GOSUB GTMR# 
GOSUB 01=sRO Set D1 @ STNTRO 
DAT1=A A Save Tiner# in STNTRO 


& 
* Skip corma 

* Evaluate <interval> fron Collasped Expression stack 
* Standard argunent 

k 


DO=00+ 2 
GOSUBL =EXPEX- 


Skip corina 

Evaluate <interval> 
GOSUBL =ARGSTR Standardize arquenent/ Error if bad 
SETHEX Restore Hexadecinal node 


If negative interval 
Interval <-- Mininun 


ee ee me 


7A=0 0 SS 
GOYES ONO35 
C=0 W 
C=C+1 A 


Not negative nunber ? 


ONO 30 Min value = 1 (1/32) 
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255 O7E8E 512 

256 

257 

258 

253 

260 O7€91 8F0O 
000 

261 O7E98 BF6 

262 O7E9B 978A 

263 O7ESE EE 

264 

265 

266 

267 

268 O7EAO 27 

269 O7ER2 AW 

270 O7EAS AIC 

271 O7ER8 99E 

272 O7EAB 50 

273 O7EAD AF6 

274 

275 

276 

277 O7EBO 20 

278 O7EB2 108 

279 

280 

281 

282 

283 O7EBS 740 

284 O7EB9 147 

285 O7EBC 109 

286 O7EBF 7032 

287 O7EC3 132 

288 O7EC6 141 

289 

29 

231 

292 

293 O7EC9 7012 

294 O7ECD 110 

295 O7EDO 1597 

296 

29? 

298 

239 

300 

301 O7ED4 BFO 

302 O7ED? 119 

303 O7EDA 8FOO 


600 
304 O7EE1 667F 
305 
306 


30? 


GONC ONO40 B.E.1T. (Carry clear) 


* Convert seconds to 1/512 seconds 
* Save accuracy to 1/32 
x 


Me OF FF 


x 


ONO35 GOSBYL =SEC2TK Convert to 1/512 
CSR W 1/32 accuracy 
7C=0) «OW < Mininun ? 
GOYES 0NO30 

If interval > Maxinurn (FFFFFFFF) 
Interval <~- Maxirun 


P= 7 Nax interval = 8 nibs 
A=0 WP 

A=A-1 WP Max value = FFFFFFFF 
?C<=A_ WP Interval < Maxinun ? 
GOYES ONO040 


C=A W Interval <-- Maxinun 


* Save Interval 
k 


x 


ONO40 «P= 0 Reset P 


RO=C Save interval 


* Get Tiner address for Tiner#, Save to R1 


x 
x 


we Mw Mw OF 


we + OF Me 


Set TIMER address = DO 


GOSUB D1=sRO Retrieve Tiner#t 
C=DAT1 A 
R1=C Save Tiner# 
GOSUB GTMRAD 
ADOEX Pointer within ON TIMER statenent 
DAT1=A A Set TMRADR for Tiner# 

Conpute Tiner Interval RAM location for Tiner# 

C = Tiner# * 4 

GOSUB TMIADR Conpute Tiner Interval RAN loc 
A=RO Tiner Interval 
DAT1I=R 8 Interval = 8 nibs 


Shift Interval to 1/512 accuracy 
Activate Tiner 
goto Next statenent 


ASL OW Interval to 1/512 accuracy 
C=R1 Tiner# 

GOSBVL =ACTINR Activate Tiner 

GUTO ONEXIT Return to Run Loop 


* ON <exp> GOTO | GOSUB | RESTORE execute 


ue 


If GOSUB 
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308 x To save Branch number --- use D(A) 
309 k 
310 O7EES 843 ON300 ST=0 = sGOSUB Clear flags 
311 O7EE8 84A ST=0 — SRESTR 
312 O7EEB 7181 GOSUB RNDEXP Evaluate Branch # 
313 O7EEF CC A=A-1 A Branch # = 0 ? 
314 O7EF1 06 C=A A 
315 O7EF3 D7? 0=C R Move branch# to D(A) 
316 O7EF5 14A A=DATO B Read branch type 
317 O7EF8 300 LC(1) =tGOTO GOTO low nibble 
318 O7EFB 902 7R=C OP GOTO ? 
319 O7EFE 31 GOYES ON500 
320 O7FOO ROE C=C-1 P GOSUB low nibble 
321 O7FO3 902 7A=C OP GOSUB ? 
322 O7FO6 80 GOYES ON400 
323 O7FO8 85A ST=1 — sSRESTR RESTORE flag 
324 O7FOB 550 GONC OQN5OO B.E.T. 
325 O7FOE 853 -ONA00 ST=1 — sGOSUB GOSUB flag 
326 
327 : Loop until Branch label or line# found | End of statenent 
328 
329 O7F11 161 ON500 DO=D04 2 Skip branch type | conna 
330 O7F 14 CF D=D-1 A Decrenent Branch # 
331 O7F16 4F5 COC 0N999 Branch # found 
332 A 
333 * Skip line# branch 
334 x 
335 O7F19 14A A=DATO B Read line#|label token 
336 O7FIC 3100 LC(2)  =tLINE# Line# token 
337 O7F20 966 CAHC OB 
338 O7F23 BO GOYES ON700 
339 O7F25 16A DO=D0+ 645 Skip token & line# 
340 O7F 28 14A A=DATO B Read next char 
341 O7F2B 5E3 GONC ONKXO B.E.T. 
342 . 
343 * Skip Label branch 
344 k 
345 * NOTE: Assunes Token adjacency of tLINE# and tLBLRF 
346 * tLINEH = OF, tLBLRF = OE 
34? & 
348 * Tf “literal” label 
349 * Skip over ASCII until "high" bit set (EOL,",",°,!) 
350 * else 
351 - Call Expression Skip 
352 * 
353 OPF2E CE ON700 C=C-1 A Label token 
354 O7F30 966 7AHC OB 
355 O7F 33 73 GOYES ON900 
356 O7F35 161 DO=DO+ 2 Skip Label token 
35? O7F38 148A A=DATO B Read token 
358 O7F 3B 3100 LC(2) = tLiTRe 
359 O?F 3F 366 ARC OB Label "expression"? 
360 O7F42 51 GOYES ON850 
361 O7F44 21 P= 1 


362 O7F46 161 ON8OO DG=N0+ 2 Skip til EOL], |@]! 
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363 O7F49 14A R=DATO B 
364 O7F4C BO4 A=A+1 P High nib=F if done 
365 O7F4F 5Sé6F GONC ON800 
366 O7F52 20 P= 0 
367 O7F54 451 GOC ON900 B.E.T 
368 s 
369 * Skip Label expression 
370 * Entry: 01 @ expression start 
371 * Exit: D1 past expression 
372 % A holds NEXT token after expression 
373 * 
374 07F57 136 ON850 CDOEX 
375 O7F5A 136 bDi=C D1 @ Start of expression 
376 O7F5D 8FOO GOSBVL =EXPSKP Skip expression 
000 
377 O7F 64 137 CDIEX 
378 O7F 67 134 DO=C DO past expression 
379 7 
380 * End of label | line# 
381 * Check for conria (F1) 
382 : If not corina ---> Error (End of statenent w/o branch found) 
383 
384 O7F6A ROC ON9OO A=A-1 P Low nib of corna = 1 
385 O7F6D 908 7A=0 OP Conna ? 
386 O7F70 1A GOYES ON500 
387 x 
388 * Error Exit - "Invalid Arg" 
389 x Bad Tiner# or <exp> or Branch # 
3% : 
391 O7F72 6741 -ONERI GOTO  EXPERZ "Invalid Arg" 
392 
393 * Branch # = 0, @ Branch address 
394 x 
395 O7F76 845 ON999 ST=0 = sEXTGS Clear External Stnt flag 
396 O7F79 62FO GOTO  ONGTGB Excute GOT0/GOSUB 
397 x 
398 & 
399 O7F7D 1F17 Dt=sRO DI=(5) =STMTRO 
8F2 


400 07F84 O01 RTN 
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401 STITLE OFF Statement Execution 
402 JODO OGIO TOGO GO ICUIOOCISOC OO III OOK 
403 JO OI OI ITC IIS ICI TOO SOI TI TIK 
404 kx 
405 ** Nanre: OFF - Staternent Execute 
406 &* Nane: BYE - Statenent Execute 
407 ** Nane: OFFTNR - Statenent Execute 
408 kx 
409 ** Category:  STEXEC 
410 ae 
411 ** Purpose: 
412 ae Execute OFF | BYE statenent 
413 am OFF Tiner if branch not found in ON TINER execute 
414 a 
415 *k Entry: 
416 ie OFF: DO past OFF token 
417 ax BYE: DO past BYE token 
418 ka OFFTMR: ACO) = Tiner# 
419 ae sEXTGS = 1 
420 ax 
421 ax Used when error occurs trying to execute 
422 ae ON TINER statenent: See GOTOQ/GOSUB 
423 ke 
424 RK Exit: 
425 al If OFF ERROR | TIMER ---> Return through NXTSTN 
426 es IF OFFIMR and External Entry --> RTNYES 
42? ax If OFF | BYE 
428 as If Progrart 
429 ae Gosub to Deep Sleep 
4H ax else 
431 = golong Power OFF 
432 x 
433 * Calls: GTIMNRH, GTMRA+, PUTALN, DSLEEP 
434 ak 
435 RP USOS 4s oe ea 
436 tk Exclusive: A,C,D0,01,ERRADR, THRAD1-3,sEXTGS ($5) 
437 aA 
438 e* Stk lvls: OFF: 7 
439 ka OFFTMR: 2 
440 ae 
44} ** Detail: 
442 ke Clear External Entry flag (sEXTGS) 
443 cies If OFF ERROR 
444 ue Zero out ERRADR 
446 ae Return to Run Loop through NXTSTN 
446 kx If OFF TIMER 
447? tn Get Tinerd ( GTNR#) 
448 ae Save Tiner# (A(S) 
449 ** QOFFINR: Zero ALRM RAM for Tiner (PUTALM) 
450 ae Restore Tiner# 
451 Rx Get ON TIMER address for Tiner# (GTNRA+) 
452 = Zero appropriate ON TIMER address 
453 ke If External Entry (sEXTGS) 
454 ok RTNYES 
455 ax else 
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456 a Return to Run Loop through NXTSTM 
457 ae If OFF | BYE 
458 *e If progran 
459 tA Gosub to Deep Sleep/uait for Wake-up (DSLEEP) 
460 ae golong NXTSTN 
461 ax else 
462 ee golong Power OFF (PWROFF) 
463 a 
464 ** History: 
465 a 
466 ae Date Progranner Modification 
467 EXO See 25522 - \Seereoswewn: “sceesteecsse woos See ee coe oe 
468 Kk 7/04/82 JP Modified docunentation 
469 Kk 10/04/82 IP Add OFFTMR entry 
470 ae 
471 ak 
472 JI IIIS IOI SOCIO OCS TOS SIS III IK 
473 JIS III OR ICCC OOOO SIC III IK 
474 07F86 0000 REL(5) =OFFDC OFF Deconpile Address 
0 
475 O7F8B 0000 REL(5) =OFFP OFF Parse Address 
0 
476 O7FSO 845 =OFF ST=0 = SEXTGS Clear External entry flag 
477 O7F93 14fA A=DATO B 
478 - 
479 * OFF ERROR 
480 * 
481 07F96 3100 LC(2) =tERROR ERROR token 
482 O7F9A 966 7ARC OB 
483 O7F9D 61 GOYES OFF20 
484 O7FSF 1F88 D1=(5) =ERRADR Zero ERRADR 
6F2 
485 O7FR6 D2 OFF10 C=0 A 
486 O7FR8 145 DATI=C R 
487 O7FAB 875 ?ST=1 sEXTGS External entry ? 
488 O7FRE & RTNYES Return to GOTO/GOSUB 
489 O7FBO 524 GONC OFFEXT Return to Run Loop 
490 x 
494 * OFF TINER 
492 k Get Tiner#, Save Tiner# 
493 * 
494 x OFFINR entry 
495 * A(O) = Tinert 
436 x sEXTGS = 1 
497 * Clear ALRM RAN for Tineré 
498 x C(O) = Tiner# - 1 * 
499 x A(O-11) = Interval = 0 
500 * Get ON TIMER Address 
501 x 
502 07FB3 £6 OFF20 C=C+1 A TIMER token 
503 O7FB5 966 ARC OB 
504 O7FB8 A2 GOYES OFF30 
505 O7FBA 7(01 GOSUB GTNR# Get Tiner# 
506 O7FBE Dé =OFFTNR C=A A C(O) <-- Tiner# 
507 O7FCO 814 ASRC Save Tiner# --> R(S) 
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508 O7FC3 CE C=C-1 A Alarn# = Tiner# - 1 
509 07FC5 ADO A=0 q Zero Titer interval - A(0-11) 
510 O7FC8 DO A=0 A ACS) must be preserved 
511 O7FCA 8FO0O GOSBVL =PUTALN Clear Alarn 
000 
512 O7FD1 7221 GOSUB GTNRA+ Get Tiner Address 
513 O7FDS 50D GONC OFFIO B.E.T. Go zero approp TINER addr 
514 A 
515 * OFF | BYE 
516 . x 
517 O7FD8 0000 REL(5) =STOPOC BYE Deconpile 
0 
518 O7FDD 0000 REL(5) =RTNCC BYE Parse 
0 
519 * 
520 * If not running 
521 x golong Power Off 
522 * alse 
523 x gosub to Deep Sleep and wait for Wake-up 
524 x 
525 O7FE2 =BYE 
526 O7FE2 87D 8 OFF30 «=?*ST=1)0 PgnRun Progran Running ? 
527 O7FE5 80 GOYES OFF40 
528 O?7FE? 8C00 GOLONG =PWROFF No ~- Goto Power Off 
00 
529 O7FED 8E00 OFF40 GOSUBL =DSLEEP Go to sleep, wait for Wake-up 


0 
530 O7FF3 646£ OFFEXT GOTO ONEXIT Golong NXTSTN 
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531 STITLE ONERR/TINR - ON ERROR/TINER Exec 
532 JOGO IIIT TITIES II III ISIS IIIA 
533 JOOS II TOOT TTT AT STIS SI ISI I OAK 
534 ale 
§35 x* Nare: ONERR - Execute branch of ON TIMER/ERROR 
536 ** Nane:(S) ONTINR - Execute branch of ON TIMNER/ERROR 
537 aa 
538 ** Category:  STEXEC 
539 ak 
540 ** Purpose: 
541 ax Process ON TIMER execution 
542 aR Process ON ERROR execution 
543 kt 
44 ae Indicates code needed to process any statenent with 
545 aR GOTO/GOSUB that interrupts progran execution and wants 
546 xR TRACE. This code rust be duplicated 
647 xk 
548 aR The main difference is sXWORD should be set before the 
549 ak call to GOTO+. This guarantees that all line# references 
550 aR will be searched for, incase the reference was never clea 
551 a due to the LEX file being riissing when clearing reference 
552 xh 
553 a Exanple statement: ON INTR GOTO|GOSUB <stnt id> 
554 x 
555 ** Entry: 
556 as C @ GOTO | GOSUB of staterent 
557 ak For ONTINR: RSTK = Next Strit Address 
558 ae sONTNR = 1 (S6) 
559 a sONERR = 0 (S4) 
560 ak ACS) = Taner # 
561 se Duplicate this code for 
562 xk External Statenent u/GOTO or GOSUB with interupt 
563 xe Make sure sKWORD is set before junping to GOTO+ 
564 ae This code mill TRACE properly 
565 RE 
566 ak Exit: 
567 aa Through GOTO+ to execute GOTO | GOSUB 
568 a RSTK = Next Stunt address 
569 xR sEXTGS = 1 
570 xk If ONTINER: sONTNR = 1 
571 aA R3(S) = Tiner# 
572 xk If ONERROR: sONERR = 1 
573 kk 
§74 ~ Calls: TRFCK-, TRFROM, UPDPC, TRTO*, RAC TMI, LNSKP- 
575 x 
576 ** Uses....... 
577 as Exclusive: sGOSUB(S3), sEXTGS(S5), sONERR(S4), S6,S9,R1, R2,R3 
578 
579 xk sGOSUB $3 = GOSUB flag 
580 xk sONTNR S6 = ~ ON TIMER statenent 
581 xk SEXTGS $5 = External Entry flag for GOTO+ 
582 xX SONERR $4 = ON ERROR statenent 
583 XX SKWORD $9 = XWORD flag for searching for GOT0s 
584 aX RSTK = Return Address if GOSUB & ON TINER 


585 = R2 


Position @ <lineno> | <label> in strt 
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586 ax Saved DO 

587 xx R3(S)= Tiner# (if ON TIMER) 

588 xx ACS) = Tiner# (if ON TIMER) 

583 xx 

590 kk RACTMI uses RO,R1,R3, 

591 xk 

592 xk Stk lvls: <= 7 (statenent execute) 

593 an 

594 ** Detail: 

595 RR 

596 *X ONERR: Clear status 

597 ak Set ON ERROR flag 

598 an Conpute next statenent return addr(LNSKP-) 

599 oa Save on stack 

600 *X ONTIMR: Set External Entry flag (sEXTGS) 

601 aE Set DO = C (position itithin ON statenent) 

602 a Read and skip over token 

603 aR Save DO in R2 

604 ax Save Tirier# in R3(S) 

605 = Set GOSUB flag 

606 ak If GOTO 

607 aa Clear GOSUB flag 

608 ak If ON TIMER 

609 ae Reactivate tirer (RACTNI) 

610 aK Resave tiner# (R3(S)) 

611 xk If trace needed (TRFCK-) 

612 xR Trace FROM line# (TRFRON) 

613 xn Restore DO 

614 x Update PC address to point to ON strt 

615 ax If trace needed (TRFCK-) 

616 aK Trace TO line# (TRTO*) 

617 aR Restore DO 

618 ** ONGTGB: Clear XWORD flag (sXWORD ) 

619 i go execute GOTO | GOSUB of staterent 

620 xk 

621 ** History: 

622 ax 

623 ae Date Progranner Modification 

624 WHS nt hegewiath poe elie ent 4 Gann getadel ie were oti ce ek 

625 xk 07/04/82 IP Modified docurientation 

626 Kk 09/28/82 IP Changed ON TIMER inplenentation 

627 xx 11/28/82 IP Changed interface to GOT0/GOSUB 

628 *k 12/08/82 = IP Fixed Tiner# destroy by TRACE 

629 * 02/11/83 IP Clear sXWORD before GOTO+ junp 

630 &X 03/08/33 IP Rerioved sEXTGS set, clear @ QNERR 

631 xx 03/31/83 JP Conpute Rtnadr for GN ERROR 

632 ae 03/31/83 JP Aluays update PCADRR @ ON strt 
xk 

oa JO OUI IGS IU UII UIGIIIGUI SIE IEG IT 

635 JUICE GOGO I OIE IR 

636 O7FF?7 08 =ONERR CLRST 

637 O7FFS9 854 ST=1 — sONERR ON ERROR staterient flag. 

638 x 

639 * Return address nust be conputed and pushed on stack 


640 * Tf TRACING 
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641 

642 

643 

644 

645 O7FFC 8EO 
00 

646 08002 DE 

647 08004 06 

648 08006 D6 

643 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 08008 84A 

664 08008 855 

665 O800E 134 

666 08011 148 

667 08014 161 

668 08017 136 

669 O801A 10R 

670 08010 103 

671 08020 853 

672 08023 20 

673 08025 300 

674 08028 906 

675 O802B 71 

676 

677 

678 

679 

680 

681 

682 

683 

684 O802D 843 

685 08030 866 

686 08033 FO 

68? 08035 7AW 

688 08039 113 

689 O803C B44 

690 O803F 103 

631 

692 

693 

634 


* ew 


1 Oe 0 Oe OO OO OO 


x 
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Trace will change the PCADDR to point to the ON ERROR 
Therefore, the LNSKP conputation in GOTO/GOSUB is too late 
Preserve C on entry: points @ GOTO/GOSUB of ON ERROR statenent 


GOSUBL =LNSKP- 


ACEX 
RSTK=C 
C=A 


ON TINER execute entry 


A 
A 


Compute Return address 


(<-- Return addr; A<-- C on entry 
Push return address on stack 
C <-- C on entry (@G0T0/GOSUB) 


C= Address into ON staterient @ GOTO | GOSUB 
RSTK = Next staterent address 
A(S) = Tiner # 


Clear RESTORE statenent flag 


Set External Entry flag for GOTO/GOSUB 
Indicates that Return address is on STACK 
Avoids Return address calculation @ PCADDR 

Set DO= Position in ON staternent past GOTO | GOSUB 


Save DO 


Save Tiner# in R3 
Set GOSUB flag 


ONTINR ST=0 


ST=1 
DO=C 
A=DATO 
DO=D0+ 
CDOEX 
R2=C 
R3=A 
ST=1 
p= 
LC(1) 
RRC 
GOYES 


SRESTR 
sEXTGS 


B 
2 


sGOSUB 


0 


=tG0T0 
P 
ONTH2O 


* Clear GOSUB flag 
If ON TIMER GOTO 
Reactivate Tiner Interval for Corresponding tiner # 


x 


x 
x 
x 
x 
x 


oe ee ee 


Restore Tirer#-1 to A(S) 


(nust use R2, since RACTNI uses RO,R1 & R3 
(TRACE destroys A(S)) 


Clear RESTORE flag 
Set External Entry flag 


Move past token 
Save DO in R2 


Save Tirer# (A(S)) 
Set GOSUB flag 

Reset P 

GOTO token low nibble 
GOSUB ? 


On return fron RACTMI, R3(S) = Tiner# - 1 


Resave Tirer# into R3 


ST=0 
?3T=0 
GOYES 
GOSUB 
A=R3 
R=A+1 
R3=A 


Save DO in R2 


sGOSUB 
sONTMR 
ONTH2O0 
RACTNI 


S 


If trace needed 
Trace FROM line# 


Clear GOSUB flag 
not ON TINER ? 


Reactivate tiner interval 
Tiner# - 1 

Tirier# 

Resave Tiner# cus of TRACE 
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695 x 
696 08042 7000 ONTN2O GOSUB =TrfCk- Check if need to trace 
697 08046 480 GOC ONTN25 
698 08043 8E00 GOSUBL =TRFRON Trace the FROM line # 
00 
699 & 
700 * Update PC Address to ON statnent 
701 * TRACE needs PC @ ON statenent for Line# 
702 *  G0T0/GOSUB needs PC @ ON staternent incase of Error 
703 x 


704 QO804F 118A 
705 08052 134 
706 08055 7000 
707 

708 

709 

710 

711 08059 7000 
712 O805D 480 
713 08060 8£00 

00 

714 

715 

716 

717 

718 

719 

720 

721 

722 08066 11A 
723 08069 134 
724 O86C 849 
725 O806F 6000 


ONTN25 C=R2 Restore 00 
bo=C 
GOSUB =UPDPC Update PC to ON statenent 


x 


* If trace needed 
k Trace TO line# 
k 


GOSUB =TrfCk- Check if need to trace 
GOC ONTH30 
GOSUBL =TRTO* Trace the TO line # 
* 
* Restore DO past GOTO | GOSUB of statenent 
* Clear sXWORD flag 
* At this point: 
x sEXTGS set if ON TIMER or External Entry 
x All others have cleared: ONERR, ON 
: go execute GOTO | GOSUB of statenent 
ONTN30 C=R2 Restore DO 
DO=C 
ONGTGB ST=0  sXWORD Clear XWORD flag 
GOTO =GO0TO+ 
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726 STITLE RACTMI - Reactivate Tiner Interval 
727 20] IIIS IO ORCC OOO TIO SOT ISR SI IK 
728 JOIST II TS IK 
729 ae 
7H - Nane: RACTNI - Reactivate ON TIMER Interval 
731 x 
732 ** Category: TIME 
733 Ax 
734 ** Purpose: 
735 a Reactivate tiner interval for a specific tiner# 1-3 
736 
737 &* Entry: 
738 ak P = 0 
739 es A(S) = Tinerd 
740 tk 
741 tk Exit: 
742 &k Carry Clear 
743 am R3(S) = Tiner# - 1 
744 Ak P=9 
745 aK 
746 ek Calls: RCTTN1, INIADR 
747 ak 
748 ak Uses. ....0 
749 ** Exclusive: A,C,P, D4 
750 ** Inclusive: A-D,P,D0,D1,R0,R1,R3, S0-S7 
751 a 
752 ** Stk lvls: 4 ( to preserve Status) 
753 ax 
754 ** Detail: 
755 ax Tiner Intervals: 
756 kk TMRIN1 8 nibs 
757 &k THRIN2 8 nibs 
758 k TNRIN3 8 nibs 
759 st 
760 am Entry Conditions to RCTTM 
761 ax C(S) = Tiner# 
762 ak A(O-11)= Tiner interval in 1/512 accuracy 
763 x 
764 ** Algorithm: 
765 aK Preserve Status (RSTK) 
766 kx Save Tiner# (C(S)) 
767 a Multiply Tiner# hy 8 for offset into Interval area 
768 aX Add offset to Interval start - 8 
769 aK Read Tirer interval 
770 = Shift for 1/512 accuracy 
771 KK Reactivate Tiner interval (RCTTM1) 
772 ak Restore Status (RSTK) 
773 ax 
774 kx History: 
775 ae 
776 + Date Prograrnmer Modification 
Vi? KK, goteo sews eee setae, 1th et oe ee Se se bt 
778 kX 09/28/82 JP Added code 
779 x 


780 FORO JOJO ROI III IOI TIO TOK 





Saturn Assenbler Progran Execution Routines <83 Fri Dec 30, 1983 2:50 an 


Ver. 3.39/Rev. 2306 RACTMI - Reactivate Tiner Inte Page 17 
781 OI III OOOO II OO TT IOI TORI 
782 08073 OB =RACTMI CSTEX 
783 08075 06 RSTK=C Save Status 
784 08077 ACE C=A $ Save Tiner# 

785 0807A DO A=0 A 

786 0807C 810 ASLC Move Tiner # to A(O) 

787 O807F C4 A=A+R A Tiner# * 2 

788 08081 C4 A=A+A A Tiner# * 4 

789 08083 D6 C=R A 

7% 08085 7060 GOSUB TNIADR 

791 08089 AFO A=0 W Clear top part of A 

792 O808C 15B7 R=DAT1 8 Read Tiner interval 

793 08090 BFO ASL WW Shift for 1/512 accuracy 

794 08093 8FOO GOSBYL =RCTTM Reactivate tiner 
000 

795 O809A 07 C=RSTK Restore status 

796 0809C OB CSTEX 


797 O809E 03 RTNCC 
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798 STITLE RNDEXP - Eval expr, rnd, to HEX 
799 FIR RII IIR I IAT OSI I IIS IIS ISIS SII IIIISSI SSS SISI SI SIS IIIS IIIS IIIA 
800 JOGOS IIIT III TOOT TI OTTO TTI TTI ITA 
801 wk 
802 - Nane: RNDEXP - Evaluate, Round, Convert Expression to Hex 
803 
804 ** Category: EXCUTL 
$05 ak 
806 ** Purpose: 
807 aK Evaluate expression, round and convert to Hex 
808 am Only a real, non-zero, positive, finite argurent accepted 
809 ns Error exits: Array, complex, Nan, infinity, Zero 
810 
811 ** Entry: 
812 a DO @ expression to evaluate 
813 ala 
814 ke Exits 
815 kk Carry Set 
816 Km A(A) = Rounded, hexadecinal value 
817 Kk DO = past expression 
818 ak 
819 i Error Exits 
820 aR eIVARG - Expression out of range, neg nunber, zero 
821 ak eVARTY - Array or conplex (fron ARGSTA) 
822 ak eIVARG - NaN 
823 ak ePROJ = - Proj Inf 
824 x 
825 *k Calls: EXPEXC, FLTDH, ARGSTA 
826 aR 
827 ** Uses: 
828 **k Exclusive: A,B,DO 
829 ** Inclusive: A, Expression Execute usage: 
830 ak Everything but Stnt scratch 
831 ax 
832 *k Stk lvls: = 5 
833 x 
834 ** Detail: 
835 xe Evaluate expression (EXPEXC) 
836 sa Standardize argunent (ARGSTA) 
837 zx Error exits - Array, complex 
838 aes Restore to 12 digit forn 
839 wx Round and convert to hex (FLTDH) 
840 - If carry clear or argunent=0 
841 ax Error Exit ---> “Invalid Arg’ 
842 a else 
843 ze RTN 
844 kk 
845 ** History: 
846 kk 
847 = Date Progranner Modification 
848 Rise ie uid ataswolecnenes - | el sec oh AU ak cae kar sata uta 
849 *x 07/04/82 JP Modified docunentation 
850 Kk 09/03/82 IP Interfaced to ARGSTD 
851 *k 10/14/82 9 JP Interfaced to ARGSTA 


852 *k 02/11/83 IP Rerioved EXPER1, ExpExc 
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853 Kk 05/11/83 IP Check and errror is argunent=0 
854 ax 
855 FIT III I IIIT IOI III IIIA III III III IIIS SSIS IS ISI SS III II ISS SS SSS SI IS 
856 IRI III ADI ISAT ISI I IIIS I I III II III III IID ISIS ISIS ISIS IIS ISIS IS III IIS 
857 O80ARO 8E0O =RNDEXP GOSUBL =EXPEXC Evaluate expression 
00 

858 O80A6 8E00 GOSUBL =ARGSTA Standardize argunent 
00 

859 O80AC 8E00 GOSUBL =fltdh Round, convert to hex 
00 

860 O80B2 570 GONC EXPER2 Invalid arg:neg or out of range 

861 08085 8AC AHO OA Non-zero argurent ? 

862 08088 0 RTNYES 

863 x 

864 * Error Exits 

865 x 

866 O80BA 8C00 =EXPER2 GOLONG =ARGERR "Invalid Arg" 
0 

867 x 

868 O80CO 3100 XWDERR LC(2) =eXWORD XWORD Missing 


869 08004 8000 Mferr GOLONG =MFERR 
OO 
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870 STITLE Get Tiner# 
871 JOIST UO TOIT ATID III IIS IA 
872 JOO OO II OOO TTR IE 
873 aR 
874 ** Narie: GTAMR# = - Get Tiner# 
875 kk 
876 ** Category: TIME 
877 ae 
878 ** Purpose: 
879 ak Evaluate <tinerno> expression, validate it 
880 kk Poll if Timer# > 3 to allow expansion in LEX File 
881 xR 
882 ak Entry: 
883 ak DO @ Tiner#t expression 
884 ak 
885 AA Exit: 
886 ae If returns: 
887 xk ACA) = Tiner# between 1 and 3 
888 aR 
889 aR Error exits: 
890 aR eIVARG Invalid Arg 
891 Rk Tiner# <= 0 or Tiner# > 3 
892 ak eDATTY Illegal Data Type 
893 aR Tiner# = Conplex 
894 i eNEn Insufficient Menory to Poll u/ Tiner# > 3 
895 . 
896 aR External exit: 
897 aR Response to pTIMR# to take over ON/OFF TIMER stunt 
898 xk 
899 ** Calls: RNDEXP 
900 xx 
1 AK Uses.....0 
%2 xk Exclusive: A(A),C(A),DO 
903 ** Inclusive: EXPEXC usage: everything but Stnt Scratch 
904 kk 
905 xk Stk lvls: 6 
906 ax 
7 ** Algorithn: 
%8 aK Skip over TIMER token 
909 xh Evaluate Tiner expression 
910 a Error exit if Complex or Negative 
914 xs Round and convert to HEX 
912 ah If Tiner# > 3 
913 ak Poll for Tiner# 
914 ae If carry set 
915 aK “eMEN Error fron Poll 
916 ak else 
917 xR “eIVARG" Error 
918 - 
919 ** History: 
920 ae 
921 a Date Progranner Modification 
922 Wh: eee oe! be ee ee ee 
923 xk 07/04/82 = JP Modified docunentation 


924 xX 01/19/83 IP Added pTINR# Poll 
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925 kk 05/11/83 JP RNDEXP errors if arg=0 
xk 
a JOO III OOOO I IIIS II TIO TI III IAI TAK 
928 JI III OIC IO IIIS TTI II TIT IIS I TAI I AK 
929 JOO III TITS IIIT TTI IIIT IAT IT 
930 IIT IA TTI III ID TRIAL TI AII III STITT ISIS IIIT ASSIS IIS III IIIS A 
931 aK 
932 KK Nane:(S) pTIMR# - Poll Tiner# > 3 for ON/OFF TIMER 
933 aR 
934 ** Category: POLL 
935 aK 
936 ** Type: POLL 
937 xh 
938 xk Purpose: 
939 ak Poll on Tiner# > 3 for ON TIMER and OFF TIMER statenents 
940 ak Allows Lex File to extend these statenents to nore than 
941 aR 3 tiners 
942 xr 
943 ** Should poll be "Handled" (return with XM=0)?: 
944 xR No - If this poll is handled 
945 x Return is through NXTSTM to continue 
946 ak statenent/progran execution. 
947 ae 
948 ** Meaning of "Handling" Poll (what does code do if handled?): 
949 as For ON TIMER: Set up the bookkeeping 
950 xx Activate the appropriate tiner 
951 o, For OFF TIMER: Deactivate the appropriate tiner 
952 
953 ** Entry conditions for handler 
954 aK B[A] = Poll nunber (pTINR#) 
955 aE HEX tiode. 
956 ak P=0, 
957 a 
958 aR A(A) = Tiner# > 3 in HEX 
969 a DO @ past Tiner# expression 
360 at If ON TINER: DO @ tCOMNA 
961 ah Conna before tiner interval 
962 a If OFF TIMER: DO @ Renmark or tEOL or t@ 
963 ak 
964 ae PCADDR @ Staterent length byte for statenent 
965 xk (PCADDR) + 2 a tON or tOFF 
966 ae 
967 &*t Norrial exit conditions fron handler if handled (ST, RAN, 
968 xt registers, etc.): 
969 ss Return through NXTSTM to continue staterient execution 
970 ae HEX rode. 
971 a NOTE: 
972 a If binary code invokes BASIC through CALL: 
973 Bn PCADDR must be saved on the GOSUB stack before CALL 
974 kk Call PSHUPD 
aA ae and restored before NXTSTM 1s junped to 
976 a Call POPUPD 
977 a 
978 ** Normal exit conditions fron handler if not handled: 


979 ti 
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980 AK Carry clear 
981 aK HEX rode. 
982 aR XM=1. 
983 aR 
984 ** Error exit conditions fron handler: 
985 x There 1s no error return fron this poll 
986 ze 
987 *k Available subroutine levels: 
988 aR --POLL handler is one level shallower than caller-- 
989 6 levels available 
990 ak 
991 ** What registers/RAM nay be used if handled?: 
992 ak ~-R-D, DO, D1, P always available-- 
993 a This is a Statenent Execute 
994 ak All RAM and registers allowed during Statenent Execute 
995 ak 
996 ** What registers/RAN nay be used if not handled?: 
997 ak --A-B, DO, D1, P always available 
998 ak 
999 xk What registers/RAM nay be used if error exit: 
1000 ak No error return allowed 
1001 aK 
1002 ** Special considerations : 
1003 - 
1004 ak Tokenized forn of statenents: 
1005 ak ON TINER: 
1006 xx Stnt Length, tON, Tiner expression, tCOMMA, 
1007 A Interval expression, tGOTO or tGOSUB, statenent ident. 
1008 * 
1009 ae OFF TIMER: 
1010 x Stit Length, tOFF, Tiner expression 
1011 ak 
1012 eA To service a Tiner when it goes off: 
1013 ax Respond to pSREQ poll to set sExcept 
1014 KK to indicate an Exception has occured 
1015 ae Respond to pExcept to actually service the tiner 
1016 RE 
1017 ak To execute Tiner branch: 
1018 ae Use GOTO+ entry point after: 
1019 ak Setting sGOSUB ($3) if GOSUB 
1020 ak Reactivating Tiner if GOTO 
1021 xe Setting sEXTGS ($5) to indicate external entry 
1022 -* Setting sXWORD ($9) for line# searching 
1023 aX Pushing Return Address (fron Tiner interrupt) 
1024 ak on stack 
1025 ay Tracing FROM line 
1026 wk (see ONTINR for parallel code) 
1027 ak 
1028 si 
1029 *x Envisioned application(s): 
1030 ou Extending Tiners to an infinite nunber with a Lex file 
1031 te that allocates an I/0 buffer to keep track of pending 
1032 ae tiners. 
1033 =n 


1034 ** History: 
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1035 am 
1036 AX Date Progranner Nodification 
1037 RK nner enn meee cern cen nnn e cence een rene nnn nnn ene ne- 
1038 kk 01/19/83 JP Added Poll 
1033 kk 04/19/83 IP Revised Poll docunentation 
1040 &K 
41044 JE III CII OOOO OTT IK 


1042 

1043 O80CA 161 
1044 O80CD 7FCF 
1045 08001 D2 
1046 08003 303 
1047 08006 &B6 
1048 08009 40 
1049 030DB 03 


FOOT TOTTI I TIT TIT TIT TT 


1050 O80DD 7073 GTNR10 GOSUB Poll 


1051 O80E1 B3 
1052 O80E3 40E 
1053 O80E6 53D 


=GTMRH DO=D0+ 2 Skip over TIMER token 
GOSUB RNDEXP Evaluate & round expression 
C=0 A 
LCHEX 3 
7AoC OR Tiner# > 3? 
GOYES GTNR10 
RTNCC 
CON(2) =pTIMR# Poll for Timner# > 3 
GOC Nferr Meriory Error in Poll 


GONC  EXPER2 Invalid Arg 
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1054 STITLE Get ON TIMER address Pointer 

1055 JY IOS OOO SCOOT TOSCO TSS SSR II 

1056 PESST Cet CCtetttttsesteeteetetitecetsteteteteeseettt ttt testtttiey 

1057 ai 

1058 ** Wane: GIMRAD - Get ON TIMER Address pointer 

1053 ** Wane: GTMRA+ - Get ON TINER Address pointer 

1060 &* Nane: TMIADR - Get TINER Interval Address pointer 

1061 RK 

1062 ** Category: TIME 

1063 RK 

1064 ** Purpose: 

1065 + Conpute ON TIMER address pointer based on Tiner# 

1066 ak Compute ON TIMER Interval address pointer 

1067 ak 

1068 *k Entry: 

1069 a GTMRAD: C(A) = Timer# (1-3) 

1070 ax GTMRA+: ACS) = Tiner# (1-3) 

1071 ax TMIADR: CCAR) = Tiner# * 4 

1072 a 

1073 aX Exit: 

1074 ae GTNRAD/GTNRA+: 

1075 ax 01 @ ON TINER address for Tiner# 

1076 x C(AR) = Tiner# * 4 

1077 ax 

1078 ae If GIMRA+ entry: 

1079 ae A(S) = Tiner# 

1080 aR 

1081 ax THIADR: 

1082 < D1 @ ON TINER Interval address for Tinert 

1083 ae 

1084 ** Calls: None 

1085 ae 

1086 &X Uses..... 

1087 kk Exclusive: A(A),ACS),C(A),C(S), D1 

1088 *k Inclusive: A(A),ACS),C(A),C(S), D1 

1089 an 

1090 *K Stk lvls: 0 

1091 ak 

1092 JI IO III IIIT II TIO ITI TA TS ISAAK 

1093 JI III OCI III SITIO OTT TOT ITI 

1094 O80E9 1FE9 =TMIADR D1=(5) (=TNRIN1)-8 Tiner Interval start - 8 
6F2 ; 

1095 O80FO 133 ADIEX 

1096 O80F3 6910 GOTO GTNRAI 

1097 O80F7 AC6 =GTNRA+ C=A S Tiner# 

1098 O80FA D2 C=0 A 

1099 O80FC 812 CSLC Move Tiner# to C(A) 

1100 O80FF 1F29 =GTMRAD D1=(5) (=TMRAD1)-5 Start of Timer addresses -5 
6F2 

1101 08106 133 ADIEX 

1102 08103 CR A=A+C A Start address + Tiner# 

1103 O810B C6 C=C+C A Tiner# * 2 

1104 0810D C6 GTMRA1 C=C+C A Tiner# * 4 

1105 O810F CA A=A+C A Positioned @ Timer address 


1106 08111 131 


D1=A ON TINER address pointer 
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1108 STITLE XWORD - Calc, Jump to XWORD exec 
1109 JOIST STII ISO TOIT IIS IIIT TTI ET 
1110 JOIST IOI SOI II IO TTI ITI II IIS TTI TATTLE TE 
1111 xm 
1112 ~ Nane: XWORD  - Calculate Execution Addr & Junp 
1113 x 
1114 *k Category:  STEXEC 
1115 ae 
1116 ** Purpose: 
1117 ae Calculate Execution Address of a particular XWORD 
1118 alas Jurnp to Execution routine 
1119 aK 
1120 ** Entry: 
1121 ax DO @ LEX ID# for XWORD fron Run Loop 
1122 aa 
1123 XE Exit: 
1124 ah Through appropriate execution routine 
1125 ax 
1126 KK Error Exit - If Execution Addr not found 
112? aH "XWORD Missing" 
1128 an 
1129 ** Calls: XMTADR, EXCAD+ 
1130 KR 
1131 RK USES... 0005 
1132 *k Exclusive: A(A),C(A),D0,+1 lvl subroutine stack 
1133 ** Inclusive: A(A),B(A),C(R),D0,R1,+1 lvl subroutine stack 
1134 a 
1135 ** Stk lvls: 2 
1136 ak 
1137 ** Algorithn: 
1138 ie 
1139 kk Read LEX ID, Entry# (DO --> A) 
1140 xx Find MAINT address (XMTADR ) 
1141 ae If address not found 
1142 des golong MNFERR ("XWORD Missing") 
1143 am Increnent postion within MAINT to Execution Addr entry 
1144 is Skip LEX ID, Entry# 
1145 ae Nove entry# to ACA) 
1146 Am Calculate Execution Address (EXCAD+) 
1147 an Place address on stack 
1148 xa Junp to Execution routine 
1149 kk 
1150 ** History: 
1151 ak 
1182 kk Date Progranner Modification 
1153 a ee 
1154 Kk 07/04/82 JP Modified docunentation 
1155 an 
1156 ee 
1157 FIO III IIIT I III IIT SO TTT IIIT ITT ISI ISIS II IIS OOS SOAS SSIS 
1158 FOI ITI OI III I TIT III III IID II III IOI I SI ISIS I III SIO III III ASSIST ISIS 


1159 08116 142 
1160 08119 7610 
1161 0811D 42A 
1162 08120 £6 


=XWORD A=DATO A Read ROM ID, Entry# 
GOSUB =XNTADR Find MAINT address 
GOC XNDERR Address not found 
C=C+1 A Rdd offset to Execution addr 


Saturn Assenbler 


Yer. 3.39/Rev. 


1163 08122 
1164 08124 
1165 08126 
1166 08129 
116? 0812B 
1168 0812F 
1169 08131 


2306 


£6 
£6 
163 
D4 
7205 
06 
01 
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C=C+1 A within table 
C=C+1 AA 
DO=D0+ 4 Skip ROM ID, Entry# 
A=B A Move Entry # to A 
GOSUB EXCAD+ Calculate Execution Address 
RSTK=C 
RTN Jurp to Execution Routine 
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1170 STITLE Find XWORD MAINT Addr 
1174 JOO III OIG TO OE TIE 
1172 JOO UII IGOR OGIO OO IO IE 
1173 aa 
1174 ** Nane:(S) XMTADR - Get XWORD Nain Table Address 
1175 xe 
1176 ** Category: ADDCAL 
1177 a 
1178 ** Purpose: 
1179 aK Find & Read XWORD MAINT Rddress 
1180 aR 
1181 xk Entry: 
1182 an A(B) = LEX ID 
1183 aK A(2,3) = Entry # 
1184 ax 
1185 aX Exit: 
1186 i Carry clear 
1187 aK C = MAINT address for XWORD 
1188 xR B(A)= Relative Entry # for LEX ID with B(2-4) = 0 
1189 ax A(B)= Actual Entry # 
1190 aa 
1191 a Carry set 
1192 as LEX ID not found 
1193 at 
1194 ak D1 preserved 
1195 a 
1196 ** Calls: LXFND, RANGE 
1197 x 
1198 xk Uses..... 
1199 xk Exclusive: A(A),B(A),C(A),R1 
1200 _ R1 = Preserved D1, RSTK holds LEX ID, Entry# 
1201 
1202 kk Inclusive: A(A),B(A),C(A),R1 
1203 xk 
1204 KK Stk lvls: 1 
1205 an 
1206 ** Algorithn: 
1207 xe 
1208 ak Find Main Table Address for RON ID 
1209 xx Save LEX ID, Entry# (B) 
1210 ae Save 01 Ri 
1211 ax Find LEX Table Buffer ( LXFND ) 
1212 ae If Buffer not found -~> goto 1 (return, carry set) 
1213 aK Save LEX ID, Entry# (RSTK) 
1214 aR Repeat until (LEX ID = 0) 
1215 a Read LEX ID in table 
1216 xx If IDs natch 
1217 me Pop Lex ID, Entry # off stack 
1218 = If Entry# within Range for LEX ID (RANGE ) 
1219 xx Shift Entry# to BYB), Zero B(XS) field 
1220 ha Compute Relative entry # 
1221 ax Read Main Table address --> C 
1222 a Restore D1 
1223 aK RTNCC 


1224 aK Restore LEX ID,Entry# to B(A) 
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1225 a Skip to next entry 
1226 a 0: Pop LEX ID, Entry # off stack 
1227 eas 1: Restore D1 
1228 = RTNSC (not found) 
1229 aK 
1230 ** History: 
1231 a 
1232 a Date Progranner Nodification 
1233 RR ew wee ee cee wer ene ene mewn este nnn me nnn neem sens n cee ca= 
1234 *k 07/04/82 = JP Modified docurnentation 
1235 *k 41/01/82 IP Interfaced to New Lex File fornat 
1236 xk 03/28/83 JP Save LexID, Entry # on Stack 
1237 xk 04/28/83 IP Restore Entry# to A(B) 
ak 
ie JIS III II OI OI OCI IOI III IIIT IIT III IK 
1240 JOO OO III III TO COO III III IIE III ITER 
1241 08133 D8  =XMTADR B=A A Save ROM ID, Entry# 
1242 08135 133 AD1EX 
1243 08138 101 Ri=A Save D1 
1244 x 
1245 * Find Start of LEX Buffer 
1246 x 
1247 0813B 8E00 GOSUBL =LXFND Find Start of Lex Table Buffer 
00 
1248 08141 584 GONC XNTA30 Lex Buffer not found,Set carry, Rtn 
1249 x 
1250 * Save Lex ID and Entry # on stack 
1251 x 
1252 08144 D9 C=8 A Save Lex ID and Entry# 
1253 08146 06 RSTK=C 
1254 : 
1255 * Read Lex IDs until ID=0 or Match 
1256 * 
1257 08148 15F5 XMTAIO C=DAT1 (ILXID)+(1LXTKR) Read Lex Id, Token Range 
1258 0814C 96A *C=0)—o#B Lex ID# = 0 ? 
1259 O814F 93 GOYES XMTA25 
1260 08151 965 7BHC OB IDs Don’t Match ? 
1261 08154 E2 GOYES XNTR20 
1262 . 
1263 * Shift off Lex Id to get Token range in C(0-3) 
1264 * Shift Entry # into 78) and restore into A(B) 
1265 * Conpute Relative Entry# 
1266 * Check if desired Entry# within range of Lex File 
1267 * Pop Lex ID, Entry# off stack 
1268 . 
1269 08156 BFo CSR W 
1270 08159 Fo CSR A Shift off Lex ID 
1271 O815B F5 BSR A Shift entry# to B(B) 
1272 O816D FS BSR A 
1273 O815F AAI B=0 KS Zero high nibs 
1274 08162 D4 A=B RA Move Actual entry# to A(B) 
1275 08164 B61 B=B-C B Relative Entry# 
1276 08167 8E GOSUBL =Range Check if entry# within range of Lex 
00 
1277 0816D 0? C=RSTK Pop Lex ID, Entry# 
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1278 O816F 4E0 
1279 

1280 

1281 

1282 

1283 

1284 08172 175 
1285 08175 147 
1286 08178 7E00 
128? O817C 03 
1288 

1289 

1290 

1291 

1292 

1293 O817E DS 
1294 08180 06 
1295 08182 17A 
1296 08185 52C 
1297 

1238 

1299 

1300 

1301 

1302 

1303 

1304 08188 07 
1305 O818A 121 
1306 0818D 131 
1307 08190 111 
1308 08193 02 


GOC XMTAIS Not within range, restore B(A),cont 


k 
* Lex ID and Entry# within range found 
* Read Main table address 
* Restore D1 and RTNCC 
* 
D1=D1+ (1LXID)+(1LXTKR) Skip LEX ID, Token Range 
C=DAT1 A Read Main table address 
GOSUB XNTA3O Restore 01 
RTNCC 


k 
* Restore Lex ID, Entry# to B(A) 
* Skip to next table entry 

* Check if end of table 

t 


XNTA15 B=C A Restore Lex ID, Entry# 
RSTK=C Resave Lex ID, Entry# 

XNTAZO 01=D1+ ILXENT Skip to next table entry 
GONC XNTAIO B.E.T. 

x 

* Pop Lex ID, Entry # off stack 

: Lex ID = 00 - RON ID not found 

* If Address found (GOSUB XNTA30 above) 

: Need to preserve A(B) will restoring D1 

XMTAZS C=RSTK Pop Lex ID, Entry# 

XMTA3O ARIEX A <-- old D1; R1 <-- A 
D1=A Di <-- old D1 
A=R1 R <-- old A 


RTNSC Set carry on exit 


Saturn Asserbler 


Progran Execution Routines <83. Fri Dec 3, 1983 2:50 an 


Ver. 3.39/Rev. 2306 Main Table Entry Addr Calc Page 31 
1309 STITLE Main Table Entry Addr Calc 
1310 JOO IO ITT TTT ATARI IIIS ISSA T IIIS ISS SOIT ISS SS 
1311 JIT I IDI III TD TIE TTT TTT TI TT TTT RII III ISAS IS TID I AISI STII II IN 
1312 aK 
1313 ** Nanie:(S) MTADDR - Calc Main Table Address for Token 
1314 - Nane:(S) MTADR+ - Calc Main Table Address for Token 
1315 x 
1316 ** Category: ADDCAL 
131? hk 
1318 ** Purpose: 
1319 ak Calculates address of Main Table entry for token 
1320 ak 
1321 kk Entry: 
1322 kk MTADDR: A(B) = Token to be looked up 
1323 ak Loads C with Mainfrane MAINT 
1324 a 
1325 aR NTADR+: BCA) = Token to be looked up 
1326 sis C(A) = Main table address 
132? ak 
1328 tk Exit: 
1329 ax 01 contains nain table entry address for token 
1330 ak C(A) contains value of D1 at tine of call 
1331 aK 
1332 aX Calls: None 
1333 AX 
1334 kk Uses....... 
1335 *k Exclusive: B(B),C(A),RA(A), D1 
1336 kk Inclusive: B(B),C(A),A(A),D1 
1337 a 
1338 ** Stk lvls: 0 
1339 ak 
1340 ** Detail: 
1341 . Nultiplies token nurber by length of Main Table entry 
1342 
1343 kk History: 
1344 ae 
1345 a Date Programmer Modification 
1346 RR ewan ene eee e enn n nn nen en nn nen enn nen nn en renee eee cre ene 
1347 Ak 07/04/82 IP Modified docunentation 
1348 ak 
1349 &K 
1350 JE TI III IIIT TIT OTT TTT TIT TIT I TI RTD T DTT 
1351 FORO I IOI OT OTTO TOT 
1352 08195 3400 =NTADDR LC(5) =NAINT Main table offset 
000 
1353 08190 01 B=0 A 
1354 O819E RES B=A B Copy token to B(A) 
1355 O81A1 C9 =NTRADR+ C=C+B A 
1356 08183 C5 B=B+B A 
1357 O81A5 C5 B=B+B A 
1358 O81A7 C5 B=B+B A Multiply index by 9 
1359 O81A3 (9 C=C+B A Add offset 
1360 O81RB 13? CDIEX Swap address into 01 


1361 O81AE 01 
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1362 STITLE COPY Execute 
1363 JUICE TOTO SST IO TI TTT TR 
1364 JU OOO CICICOIISIIISOI OCT TOSCO SOS III OI II SII TICK 
1365 Ax 
1366 tk Nane: COPY - Statenent Execute 
1367 %* Nane: RENAME - Statenent Execute - Part 1 
1368 ax 
1369 ** Category:  STEXEC 
1370 ak 
1371 ** Purpose: 
1372 a Execute COPY Staterient 
: 4373 aK Execute start of RENAME statenent 
é 1374 ax 
1375 ** Entry: 
1376 A DO past COPY token 
1377 aK 
1378 ek Exit: 
1379 &x Through NXTSTM if no Errors 
1380 aA Through MFERR if Error Return fron COPYu 
1381 ak 
1382 ak Error Returns: 
1383 ak 
1384 ax een - Saving file information 
1385 a Creating destination file 
1386 ak eFSPEC - Rtn fron File Spec Exec 
1387 ak No response to COPY Poll 
1388 a Non Mainfrane for CARD 
1389 ax eFnFND - Source file 
13% ax eFPROT - Private source file 
1391 ax eFEXST - Destination file 
1392 ax eFTYPE - Non KEYS file for KEYS copy 
1393 ak 
1394 ** Calls: ALINFO, DEFFIL, tkYSck, FSPECx, SVINFO, COPYu 
1395 x 
1396 kk Uses. ...... 
1397 *k Exclusive: A-D,D0,D1,SAVSTK (50 nibs),RO,R1,R2, 
1398 ax $0-S7, $8, $9, S12, S-RO-0 to S-R1-3 
4399 a 4 levels of RSTKBF (see COPYu usage) 
1400 ae 
1401 *& Inclusive: 
1402 ax 
1403 a SRENAM = RENAME execute flag (S6) 
1404 7 sDEST = Destination Execute flag (S83) 
1405 ax SREADI = Read file information ($4) 
1406 x sKEYS = COPY to KEYS (S5) 
1407 xe sPCRD = Private CARD ($8) 
1408 ax D = Device infornation 
1403 zm D(O) = Device Type 
1410 ax 0 = No device 
1411 ak dMAIN 1 = :MAIN 
1412 me dPORT 2 = :PORT 
1413 am D(1,2) = Extender#, Port# 
1414 a = FF if all ports 
1415 RX dCARD 3 = CARD 
1416 aX aPCRD 4 = :PCRD 
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1417 xx >= 8 = PIL / Non-nainfrane Device 
1418 ax sCARDC = CARD Copy (S8) 

1419 Sas 

1420 kx Ri = Destination file start (CREATF) 

1421 ae R3 = Start of source file 

1422 kk 

1423 hx SAVSTK- 5= Source Device Infornation 

1424 ax SAYSTK-25= Source Filenare 

1425 aa SAVSTK-30= Destination Device Information 

1426 hi SAVSTK-50= Destination Filenane 

14927 RX 

1428 ka POLL uses B,C, AVMENE, XM 

1429 ax FSPECx uses A-D,DO,D1,RO,R1,S6,58,S-RO-0 to S-R1-3 
14% x RDHDR1 uses A,S9,01 

1431 ae FINDF use A-D,D0,D1,S6,58,S89,R2,R3 

1432 ae MOVEW uses A,C,DO,D1,P 

1433 ae RDINFO 

1434 ki SVINFO uses A,C,D,S3,S4 

1435 ax GETPR1 uses A,C,D1 

1436 aa CREATF uses A-D,DO,D1,RO,R1 

1437 ax tKYSck uses A,C,D(S) 

1438 ae LEXBF+ uses A-D,R1 

1439 kx 

1440 kk Stk lvls: 7 

1441 xx 

1442 ** Detail: 

1443 kk COPY [ <file spec> | CARD | KEYS } 

1444 ak { TO [ <file spec> | CARD | KEYS ] ] 

1445 kx 

1446 ** Algorithn: 

1447 ax 

1448 %& RENANE: 

14493 ae Set Renane flag 

1450 kk COPY: 

1451 Ke Set No Leeuay check for Save Area allocation (P=1) 
1452 am Allocate Save Area for File informaiton  (SALLOC) 
1453 ia If not enough nenory for file infornation 

1454 an Error Exit (eMEM) 
1455 ae 14: Clear Device inforration (D(W)) 
1456 aX Blank fill Chars 9-10 of Filenane in (RO) 
1457 ax Read next token 

1458 ax If 10 token 

1459 sg Skip token 

1460 aa If Destination 

1461 ax File spec or Keyword rust follow (goto 3) 
1462 ax 2 Get current filenane and device (DEFFIL) 
1463 x Shift Device to D(A) (goto 5) 
1464 wh If EOL 

1465 ae If Source 

1466 ae Get current filenane and device (goto 2) 
1467 ae else 

1468 a Filenane <-- 0 ; Device = 0 (goto 4) 
1469 kk 3: «=f CARD 

1470 a Device <-- CARD 


1474 ae Skip token 
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1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
148? 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1436 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1904 
1505 
1506 
150? 
1508 
1509 
1510 
1511 08180 


1512 08185 
1513 081BA 
1514 08180 
1515 

1516 08101 
151? 081C6 


1518 O81CB 
1519 O81CD 


1520 081D3 
1521 


0000 
0000 


856 
6000 


0000 
0 
0000 
0 

21 
8E00 
00 
445 
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RR: Re Filenane <-- 0 
= If KEYS (tKYSck) 
an Filenane <-- "keys" 
a else 
kk Execute File Specification (FSPECx) 
kx If error (Carry set) 
** CPYERK: golong BSERR 
ak 5; Shift Device # (D(0)) 
kk Save File Infornation (SVINFQ) 
xk If Source (sDEST=0) 
ae Set Destination flag 
kk go decifer Destination information (goto 1) 
4% If RENAME 
ae go Execute Renarie (RNMO10) 
an else 
Rk go Copy (COPYu) 
x If error return (carry set) 
ak goto CPYERX (BSERR) 
es else 
a golong NXTSTN 
k 
** Note: 
xk The save area allocation for COPY will NEVER use Leeway 
xk Checking. This allows COPY TO External Device to work 
oS when there is no nerory left in the machine. 
** History: 
ik 
. Date Progranrier Modification 
xk 07/04/82 JP Modified docunentation 
XX 10/18/82 JP Reriove PCRD as acceptable FSpec 
xk 61/11/83 JP Rewrote far corrected Parse routine 
ak 01/23/83 JP Blank f1l1 RO, No device for KEYS 
*k 02/03/83 JP Renoved NO device for KEYS 
ok 


FOO GORI UII IIT OOO TOO TO TTR IK IK 
FOI IIIT TOI OI IOI UO III OI TO OOK 


x 


=R 


x 


=C 


x 


Set no Leeway Check in allocation 


REL(S) =RENMDC 
REL(S) =RENAMP 

ENRANE ST=1 = sRENAN Set RENANE flag 
GOTO} §=©cOPY 
REL(S) =COPYDC COPY Decornpile 
REL(5) =COPYP COPY Parse 

OPY P= 1 
GOSUBL =RLINFO Allocate Save area 
GOC CPYERX Insufficient Menory 


Saturn Asseribler 


Progran Execution Routines <83 Fri Dec 30, 1983 2:50 an 


Ver. 3.39/Rev. 2306 COPY Execute Page 35 

1522 * Decipher File Information 

1523 * Clear Device infornation 

1524 x Blank fill chars 9-10 of Filename in RO 

1525 * Read next token 

1526 * 

1527 08106 AF3 CPYO10 D=0 W Clear Device Info, D(S) must be 0, 

1528 08109 3302 Lcasc \ \ 
02 

1529 O810F 108 RO=C Blank file Chars 9-10 of filenane 

1530 0812 14A ; A=DATO B Read next token 

1531 

1532 * COPY TO or COPY <spec> TO... 

1533 x 

1534 * If Destination 

1535 x File spec or Keyword rust follow 

1536 x 

1537 081E5 3100 LC(2)  =tT0 

1538 08169 966 ARC OB Not TO ? 

1539 O81EC 31 GOYES CPY030 

1540 O81EE 161 DO=D0+ 2 Skip TO token 

1541 O81F1 873 2ST=1  sDEST Destination ? 

1542 O81F4 C1 GOYES CPY040 Check for Keyword or File spec 

1543 

1544 & 

1545 * COPY TO 

1546 * No source filenane specified 

1547 x Get current filenane and device 

1548 : go Shift device Info to D(A) & update info 

1549 

1550 O81F6 8E00 CPYO20 GOSUBL =DEFFIL Get current filenane/device 
oo 

1551 O81FC 534 . GONC CPY065 B.E.T. go Save file info 

1552 

1553 * COPY w/o paraneters or COPY <spec> EOL 

1554 x If Destination 

1555 x Filenane <-- 0 

1556 x Device = 0 (Mainfrare) 

1557 x else 

1558 x Filenane <-- Current filenane 

1559 x Device <-- Current file’s device 

1560 x 

1561 O81FF 310F CPYO30 LCHEX FO EOL terriinator boundary 

1562 08203 9E2 AC OB not EQL ? 

1563 08206 AO GOYES CPY04O 

1564 08208 873 ?ST=1  sDEST Destination ? 

1565 O820B 41 GOYES CPY050 Filenane <-- 0 

1566 08200 58E GONC CPYO20 Get current filenare/device 

1$6? x 

1568 * COPY ... CARD 

1569 x Filename = 0 

1570 x Device = CARD 

1571 x 

1572 08210 3100 CPYO40 LC(2) =tCARD CARD token 

1573 08214 966 7AHC OB 


1574 08217 


74 


GOYES CPY060 
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1575 08219 307 
1576 O821C R87 
1577 O821F 161 
1578 08222 AFO 
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LC(1) dCARD 
D=C P Save Device type 
CPYOSO DO=D0+ 2 Skip token 
A=0 W No filenane specified 
GONC CPYO70 B.E.T. 


1579 08225 5D1 

1580 

1581 

1582 

1583 

1584 08228 8CO0 
00 

1685 

1586 

1587 

1588 

1583 

1590 

1531 

1592 0822E 8E00 
00 

15393 08234 5B0 

1594 

1595 

1596 

1697 

1598 

1599 

1600 

1601 08237 8£00 
00 


1602 0823D 4RE 
1603 08240 813 
1604 

1605 

1606 

1607 

1608 

1609 

1610 08243 7312 
1611 08247 873 
1612 0824A 90 
1613 0824C 853 
1614 O824F 668F 
1615 

1616 

161? 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 08253 876 


x 


* Error Exit 
* Must take general BASIC Error Exit due to Polling 
& 


| 


CPYERX GOLONG =BSERR Error Exit 

x 

* Check for KEYS token 

x tKYSck returns mith: 

& A = “keys” 

x D(S) = 0 (MAIN) 

s Token skipped 

x 

CPYO6O0 GOSUBL =tKYSck Check for KEYS token 
GONC  CPYO6S KEYS found 

x 

* No special keyword 

x Execute File Specification 

s If illegal --> Error Exit 

. Shift device inforriation to D(A) 

x 
GOSUBL =FSPECx Execute file specification 
GOC CPYERX Illegal file spec 

CPYO65 DSLC Shift devicei info to D(A) 


Save File Infornation 
If source 
Set destination flag 
go Decipher destination file infornation 


ee he 


CPYO70 GOSUB SVINFO 

?ST=1 sDEST Destination ? 

GOYES CPYO080 

ST=1— sDEST Set destination flag 

GOTO  CPYO10 go deciphter Destination file info 
x 


* DONE processing file nanes: 
rs 


* Tf RENAME 

* ~~ go execute RENANE 

* else 

x Copy file 

‘ If carry set ---> Error Exit 

” else ---> Return to Run Loop 
& 

x 

CPYO8O ?ST=1 sRENAN RENANE? 
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1627 08256 DO GOYES 
1628 08258 7D00 GOSUB 
1629 0825C 4BC GOC 


1630 0825F 6000 Nxtstn GOTO 

1631 x 

1632 08263 8CO00 renar GOLONG 
00 


renari 
COPYu 
CPYERX 
=NXTSTM 


=RNMO10 


Error Return 
Return to Run Loop 


2:50 ar 
Page 37 
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1633 STITLE COPY Utility Routine 
1634 $3 III TO TORR RR IR 
1635 SIO IOI TIO OOS IO UOT TT OT TITRE 
1636 aK 
1637 ex Narie:(S) COPYu  - COPY Utility 
1638 ak 
1639 ** Category:  EXCUTL 
1640 ak 
1641 ** Purpose: 
1642 ak COPY Utility 
1643 ak COPY Mainfrane/PORTs 
1644 RK COPY CARD 
1645 aK COPY External 
1646 ak 
1647 &* Entry: 
1648 aK File infornation in SAVSTK area 
1649 ak (Through SVINFO utility) 
1650 aK 
1651 aK SAVSTK- 5 = Source Device Inforration 
1652 aK SAVSTK-25 = Source Filenane 
1653 ak SAVSTK-30 = Destination Device Infornation 
1654 aK SAVSTK-50 = Destination Filenane 
1655 ak 
1656 ae See SVINFO utility 
1657 ak Device Info - Nib 0 = Device type 
1658 ah Nib 1-4 = Device specific info 
1659 als Filenane Up to 10 chars 
1660 aK Blank filled 
1661 RK 
1662 eK Exit: 
1663 ak Save area is RELEASED 
1664 a 
1665 ae Carry clear - Good COPY 
1666 a R1 = Start of file just copied 
1667 ak If destination into Mainfrane/IRAN 
1668 ak 
1669 id pCOPYx Poll issued if either Source or Destination 
1670 ak is External (not Mainfrane/IRAN/CARD) 
1671 ak 
1672 aR Carry set - Error Return 
1673 kk C(4) = Error nunber 
1674 ae 
1675 ak Error Returns: 
1676 aK 
1677 kk eNEN - No nerory to create destination file 
1678 ak eFSPEC - No response to COPY Poll 
1679 ak Non MNainfrane for CARD 
1680 ak eFnFND - Source file not found 
1681 aK eFPROT - Private source file 
1682 ak eFEXST - Destination file exists 
1683 ak eFTYPE - Non KEYS file for KEYS copy 
1684 ak eFACCS - Destination is unknown PORT device 
1685 aK eDVCNF - PORT device not found 
1686 aK 


168? *k Calls: FILFIL, POLL, FINDF (FINDFS) ,GETPR1,MFOVC+, RDHDR1, 


Saturn Asserbler 


Ver. 3.39/Rey. 


1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
171? 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
172? 
1728 
1729 


1730 


1731 
1732 
1733 
1734 
1735 
1736 
173? 
1738 
1739 
1740 
1741 
1742 


ak 
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Exclusive: 


Inclusive: 


sDEST 
sRERDI 
sKEYS 
sPCRD 


R1 
R3 


CRETF+, MOVEUO ,RDINFD, WFTND-, LEXBF+,RLINFO, CROFIL, 
FILCRD, CHAIN-, BASCHA, FLDEV+, MFDEVC, D1=SRO 


A-D, DO, D1, SAVSTK (50 nibs),RO,R1,R2, 
$0-S?7,$8,59,S12,STNTRO (5 nibs), SCRICH (32 nibs) 
4 levels of RSTKBF (if Copying LEX file) 

See LEXBF+ 


Destination Execute flag (S3) 

Read file infornation (S4) 

COPY to KEYS (S5) 

Private CARD (S8) 

Device information 

D(O) = Device Type 
F = No device 

MAIN 

: PORT 

D(1,2) = Extender#, Port# 
= FF if all ports 

CARD D(B)=0 

:PCRD D(B)#O 

PIL / Non-nainfrane Device 


dMAIN 0 
dPORT 1 


ait oat 


dCARD 7 
dPCRD 7 
>= 8 


Woo 


Destination file start (CREATF) 
Start of source file 


POLL uses B,C, AVMENE, XN 

FINDF use A-0,00,01,S6,S8,S9,R2,R3 
MOVEUO uses A,C,00,01,P 

RDINFO 


SVINFO use A 
GETPR1 uses A 
CREATF uses A 
tkYSck uses A, 

A- 


LE 


Stk lvls: 
Algorathn: 


COPYu: 


,C,D0,383,S4 
,C,04 
-0,DO,D1,RO,R1,SCRICH (32 nibs) 
D(S) 
R1,4 lvls RSTKBF 


C, 
c, 
D, 
c; 
XBF+ uses A-D, 


6 


Get source infornation, Fill rassing nanes (FILFIL) 


If device # Mainfrane 


(sEXTDV) or ext PORT 


0: POLL for COPY external device (pCOPYx) 
If carry set 


E 


rror Return 


If no response 


I 
I 


f external device (D(O)>7) 
Error <-- eF SPEC 

f unknown PORT device 
Error <-- eFACCS 
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1743 ak else 
1744 ak RIN 
1745 ak 
1746 kk 4: If MARIN | PORT (sCARD=0) 
1747 ax If source 
1748 ae Find source file (FINDF ) 
1749 ae Save pointer to file start (R3) 
1750 kk Check file protection . (GETPR1) 
1751 ax . Error Return if private (eF PROT) 
1782 ak If BASIC file (BRSCKR) 
1753 an Chain file (CHAIN- ) 
1754 ak Set Destination flag 
1755 ax Get Destination device info (MFDVC+) 
1756 ak If CARD 
1757 RK go COPY to CARD (goto 5) 
1758 ax else (destination) 
1759 aK If “keys” filenane 
176 ae Set KEYS File flag 
1761 ax Save source start (STHTRO) 
1762 ai If PORT destination not found (F LDEV+) 
1763 ax Error (eDVCNF ) 
1764 am If Not Mainfrane destination 
1765 aK Convert Dest. filenarie to Uppercase (CVUCW) 
1766 ax Save updated Dest. File infor (SVINF+) 
1767 aK If not Independent RAN or MAIN 
1768 ae go Poll for COPY to unknoun dev (goto 0) 
1769 ak Find destination file (FINDF ) 
1770 aK If file found 
1771 ah Error Return (eFEXST) 
1772 kx Restore source start 
1773 kx Read Source file header (RDHDR1) 
1774 a If KEYS Copy (sKEYS) 
1778 ae If source file type # KEYS 
1776 kx Error Return 
1777 A Compute file length 
1778 ak Create Destination file (CRETF+) 
1779 xx Error if not created (Carry set) 
1780 ax Copy source to destination (NOVEU3) 
1781 kk Read destination inforration (RDINFD) 
1782 ak Write new filenane 
1783 kx Write new creation date & tine 
1784 ae 4: If LEX file copy (Dest. filetype = LEX) 
1785 ax Save file start (R1 --> RSTK) 
1786 kk Regenerate LEX Buffer (LEXBF +) 
1787 ax Restore file start (R1) 
1788 kx goto Done; 
1789 ak 
1790 ax If CARD | PCRD device 
1791 ax If source 
1792 ae Set destination flag 

, 1793 ies Read destination device (MFDVC+) 

1794 ae R3 <-- Source Filenarie 
1795 ak R2 <-- Destination filenane 
1796 a If destination device = MAIN 


1797 ax Copy CARD to File (CROFIL) 





Saturn Assenbler Progran Execution Routines <83 Fri Dec 30, 1983 2:50 an 


Ver. 3.39/Rev. 2306 COPY Utility Routine Page 41 

1738 Km Set R1 = Last file in Mainfrarme(EQFLCH) 

1799 aK Position to File type 

1800 we go Check if Lex File copy (goto 4) 

1801 ax else 

1802 ae Error Exit (eFSPEC) 

1803 ax 5: If destination = CARD 

1804 ax If Private Card ((0(1-2)#0) 

1805 ax Set Private Card flag 

1806 aK If source device = NAIN | PORT 

1807 km R1 <-- Destination Filenane 

1808 x C <-- Source file start 

1809 kx Copy file to CARD (FILCRD) 

1810 a else 

1811 an Error Exit (eF SPEC) 

1812 aa 

1813 kk Done: Release File Infornatin Save area (SRLEAS) 

1814 ax Return CC 

1815 a 

1816 xx CPYERR: Save error nessage on stack 

1817 aK Release File inforration save area 

1818 ae Restore error nessage 

1819 ae Return SC 

1820 ax 

1821 ** History: 

1822 ae 

1823 =e Date Progranner Modification 

1824 ee 

1825 &k 07/04/82 JP Modified docurientation 

1826 kk 11/20/82 IP Fixed COPY TO CARD 

1827 kk 12/18/82 JP Conbined pCOPYd with pCOPYx 

1828 ek 42/18/82 9 IP Added chain source if BASIC 

1829 kk 93/21/83 JP Test if PORT not found after FLDEV+ 

1830 ex 03/21/83 IP Using S-RO-0 to save Source start 

1831 ek 8695/11/83 JP Packed CVUCW, SVINF+ calls @ CPY135 
xr 

so JORIS OI IOI IOS IOI I IIR 

1834 JO III III OCIDATE 
* 

Het FOR TOI ROTOR III OTTO IO OO OI OI TOIT 

1837 JOOS III OCIS ICI IOUT TR RIOR 

1838 aK 

1839 ** Nanre:(S) pCOPYx - Poll for COPY to external device 

1840 ke 

1841 ** Category: POLL 

1842 KK 

1843 a* Type: POLL 

1844 aK 

1845 ** Purpose: 

1846 eS Poll for COPY utility execute 

1847 a External source or destination file specifier found OR 

1848 ae Destination device on PORT 1s of unknown type 

1843 ae 

1850 **k Should poll be “Handled” (return with XM=0)?: 

1851 ‘* Yes - If successful COPY occurs 


1852 ag 
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1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
186? 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1836 
1897 
1898 
1899 
1900 
1901 
192 
1903 
1%4 
1905 
1906 
19%? 
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** Meaning of "Handling" Poll (what does code do if handled?): 
COPY source file to destination file on appropriate 


a 
xk 


xk 
xx 
xx 
xx 


devi 


ice 


Entry conditions for handler (registers, ST, RAM, etc.): 


B[ A} 


HEX 


rode. 


P=0. 


If 


R2 
SAVSTK 


D(0) = 
A 


RO(0-3)= 


A) 
0(1) 
d(2) 
STNTRO 
SAVSTK 


= Poll nunber (pCOPYx) 


xternal Device (D(0)>=8) 


1 (SO) 

1 (S1) af both filenanes undefined = 0 
0 ($3) 

First 8 characters of source filenane 
Blanked filled 

Last 2 characters of source filenane 
Blanked filled if none 

Source device information fron RDINFO 
D(O) = Device type 

D(1-4)= Devices internal coding 


HPIL used Device & --- see NOTE below 
Destination device info fron RDINFO 

holds source and destination infornation 
(See Special Meriory/Pointer Considerations) 


Unknoun device type (1 < D(O) < 7) 


= First 8 characters of destination filenane 
(blank filled) 

Last tuo characters of destination filenane 
(blank filled) 

Device type 

Extender# 

PORT # 

Start of source file 

holds source and destination infornation 
(See Special Nernory/Pointer Considerations) 


Nornal exit conditions fron handler if handled (ST, RAN, 


registers, etc.): 
Carry clear 


HEX 
XM= 


rode. 
0. 


Ri = Start of file just copied if TO MAINFRAME 
Source file copied to destination file on appropriate 


dev 


lce. 


Nortial exit conditions fron handler if not handled (ST, RAN, 


registers, etc.): 
Carry clear 


HEX 
XI= 


rode. 
1. 


Error exit conditions fron handler: 
Carry set. 
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1908 ak HEX riode. 
1909 aK C{0-3] = Error nunber. 
1910 aK COPY was not sucessful due to indicated Error Nunber 
1911 aK 
1912 *k Available subroutine levels: 6 
1913 a POLL handler 1s one level shallower than caller-- 
1914 aK COPYu uses 6 levels; The handler nust be able to 
1915 KK Return to POLL 
1916 ax 
1917 ** NOTE: 
1918 ak HPIL uses Device Type=8 
1919 aK This device type is set in response to pFSPCx poll 
1920 RX when the file specifier is being evaluated 
1921 ke Other device handlers must be assigned their special 
1922 am special device type by the Resource Allocation Czar 
1923 a (See HP-71 IMS Volune 1) 
1924 ak Respond to pFILXQ for non HPIL device to gain control 
1925 ax of the File Specification execute 
1926 ax 
1927 kk Devices on PORTS (ex: EEPROM) should use Device types 
1928 kk between 3 and 6. This device type will be encoded in 
1929 EA the ID of the nodule plugged into a PORT. 
1930 x These Device types must be assigned by the Resource 
1931 aK Allocation Czar (see HP-71 IMS Volune 1) 
1932 RK 
1933 x* What registers/RAM nay be used if handled?: 
1934 xe A-D, DO, D1, P 
1935 aX RO,R1,R2,S2,S3, $4, $5, $6, $7, $8, $9 
1936 ax Dont’ use STMTIDO (saved status for CHRIN) 
1937 ae 
1938 xk What registers/RAN nay be used if not handled’: 
1939 a A-D, DO, DI, P 
1940 zs R1,S4,S5, $6, S7,S8,S9 
1941 x Don’t use STNTDO (saved status for CHAIN) 
1942 a 
1943 x* What registers/RAN may be used if error exit (POLL only)?: 
1944 ae A-D, DO, Bi, P 
1945 xe RO,R1,R2, 82,83, $4, $5, $6, $7, $8, 83 
1946 mK Don’t use STMTDO (saved status for CHAIN) 
194? ax 
1948 ** Special nenory/pointer considerations (are pointers funny”): 
1949 a 
1950 BS The SAVSTK area has been noved tonard LOW nemary due to 
1951 a the issuing of the POLL. Therefore, all offsets into 
1952 wk the SAVSTK area must SUBTRACT the IPOLSV (62 decinal) 
1953 a fron the SAVSTK pointer to access the file information. 
1954 es 
1955 a Saved inforriation: 
1956 a SAVSTK-§ (- 1POLSV) = Source Device information 5 nibs 
1987 a SAVSTK-25(- 1POLSV) = Source filenare 20 
1958 as SAVSTK-30(- 1POLSV) = Destination Device info 5 
1959 a SAVSTK-50(- IPOLSV) = Destination filenane 20 
1960 aa 
1961 ** Envisioned application(s): 


1962 a 
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1963 ah Allow COPY 10 filenane: TAPE 
1964 ae Allow COPY TO filenane:PORT(1) where EEPROM in PORT(1) 
1965 aE Allow COPY TO a special device in a PORT 
1966 at Allow COPY TO an external device NOT HPIL 
1967 ae 
1968 ** History: 
1969 RK 
1970 a Date Progranner Modification 
1971 KR none nn nee enn nee n een e cree nnn eee ene erento eee 
1972 xk 07/19/82 JP Added docunentation 
1973 KK 12/18/82 IP Conbined pCOPYd with pCOPYx 
1974 Kk 03/21/83 IP Changed entry conditions (STMTRO) 
1975 kx 05/11/83 IP Modified docunentation 
1976 08/11/83 IP Restricted STMTDO usage 
1 x 
a FGI GIGI IOI OGIO ICICI ICU TI EK 
1979 JOO ITO II OC IIT IO IT 
1980 x 
1981 * COPY Utility Entry Point: 
1982 x 
1983 08269 =COPYu 
1984 x 
1985 * Get Source information; Fill missing file nares 
1986 x 
1987 08269 8E00 GOSUBL =FILFIL Get source info; Fill filenanes 
00 
1988 O826F 860 ?$T=0 sEXTDV Not External Device ? 
1989 08272 C4 GOYES CPY100 
1990 x 
1991 * If non-Mainfrane device (sEXTDV) or unknown PORT device 
1992 x POLL for COPY 
1993 x If carry set 
1994 x Error return 
1995 x If response 
1996 * Return 
1997 * If external device (D(O) >=8) 
1998 x Error <-- eFSPEC 
1999 x else (unknown port device) 
2000 . Release COPY save space 
2001 x Error <-- eFACCS 
2002 x 
2003 08274 79D1 CPY095 GOSUB Poll 
2004 08278 80 CON(2) =pCOPYx 
2005 0827A 4D1 GOC CPYER1 Error return fron POLL 
2006 08270 831 *xN=0 Response to POLL ? 
2007 08280 C1 GOYES CPYO98 Yes 
2008 08282 AO? D=D+D =P External device ? 
2009 08285 4A0 GOC CPYERO 
2010 08288 7571 GOSUB CPYEXT Release save area 
2011 0828C 6343 GOTO CRTII60 "eFACCS" Error Return 
2012 08290 20 CPYERO P= 0 No response to COPY 
2013 08292 3300 LC(4) =eF SPEC Illegal File Spec 
00 
2014 08298 6E61 CPYER1 GOTO CPYERR Error Return 
2015 0829C 6461 CPY098 GOTO CPYEXT Exit mith successful copy 
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2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 O82A0 101 

2028 082A3 118 

2029 082A6 848 

2030 082H9 F? 

2031 O82RB 968 

2032 O82RE 50 

2033 082B0 858 

2034 082B3 8FOO 
000 

2035 082BA 6641 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 O82BE 862 

2044 08201 11 

2045 08203 8600 
00 

2046 08209 862 

2047 082CC 60 


2048 O82CE 6241 

20439 08202 7271 

2050 08206 41C 

2051 

2052 

2053 

2064 

2055 

2056 

2057 

2058 

2059 08209 137 

2060 O82DC 108 

2061 O82DF 137 

2062 O82E2 8EOO 
00 

2063 O82E8 4FR 

2064 O82EB DO 

2065 O82ED 15B3 

2066 082F1 8E00 
00 
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k 
* Jump Back point: 
x 


* COPY File to CARD 

x R1 <-- Destination Filenare 

x C <-- Source start 

x If Destination Device = PCRD [ D(1-2)#O ] 
x Set Private Card flag 

a Copy file to CARD 

x 

x 


Restore stack levels 


CPY2CD R1=A Destination filenane 
C=R3 Source start 
ST=0 — sPCRD Clear Private Card flag 
DSR A Shift off Device type 
70-0) = iB Not private card ? 
GOYES CPY250 
ST=1 — sPCRD Set Private Card flag 

CPY25O GOSBVL =FILCRD Copy file to CARD 
GOTO CPYEXT Clean-up and return 

x 

* If CARD device 

x If Source = CARD 

x go Copy CARD 

* If MAIN | PORT source device 

: Find source file 

CPY100 ?ST=0 sCARD not CARD device ? 
GOYES CPY105 No Device, :NAIN, :PORT 
GOSUBL =NMFDEVC Check Device type of source 
?$T=0 ~=sCARD Source is not CARD device ? 
GOYES CPY105 go Find File 
GOTO  CPYCRD COPY CARD 

CPY105 GOSUB FINDFS Shift Device type to D(S),Fand Sour 
COC CPYER1 


k 
* Save start of source file 

* Check Privacy on source file 
x Exit fron GETPRT: 


- D1 @ File type field of Source file header 

* If source file type = BASIC 

x Chain file before copying 

x 
CDIEX 
R3=C Save start of source file 
CDIEX 


GOSUBL =GETPR1 Check protection 


GOC CPYER1 "File protection". error 
A=0 A 
A=DAT1 4 Read file type 


GOSUBL =BASCHA 


Check if BASIC file type 
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2067 082F7 490 GOC CPY110 Not BASIC 
2068 O82FA 113 A=R3 Source file start 
2069 O82FD 7000 : GOSUB =CHAIN- Chain BASIC file 
2070 
2071 * Done with Source Execute 
2072 x Set Destination flag 
2073 x Get Destination Information 
2074 x 
2075 08301 853 = CPY110 ST=1 ~— sDEST 
2076 08304 8E00 GOSUBL =NFDVC+ Get dest infornation 
00 
2077 O830—A 872 ?$T=1 sCARD CARD device ? 
2078 08300 39 , GOYES CPY2CD COPY TO CARD 
2079 
2080 * HAIN | PORT Device 
2081 * Destination Execute D(O)=Dest. Device; C(0)=dCARD 
2082 : If destination filenane = "keys" 
2083 x Set KEYS Copy flag 
2084 x 
2085 O830F 845 CPY120 ST=0 = sKEYS Clear KEYS Copy flag 
2086 08312 3FB6 LCASC \ syek\ "keys" Filenane 
5697 
3702 
0202 
02 
2087 08324 976 TARC OW Not "keys" destination ? 
2088 08327 50 GOYES CPY130 
2089 08329 855 ST=1— sKEYS Set KEYS Copy flag 
2090 - 
2091 * Save Source file start in STNTRO (since R3 gets used) 
2092 * Map Device code into specific code 
2093 * If Carry set 
2094 x If PORT not found D(A)=0 
2095 & Error ---> Device not Found 
2096 * If not IRAN 
2097 x Poll to COPY to unknown device 
2098 x 
2099 0832C 11B CPY130 C=R3 Save Source File start (R3 gets use 
2100 O832F 7AAC GOSUB 01=sRO in STMTRO 
2101 08333 145 DAT1=C A 
2102 08336 8E GOSUBL =FLDEV+ Shift device, nap device code 
00 
2103 0833C 570 GONC 3 CPY135 Device okay 
2104 O833F 8AB 7D=0 =A PORT not found ? 
2105 08342 32 GOYES CPYER2 Error --> Device not Found 
2106 08344 813 CPY135 DSLC Move device info to D(A) 
2107 08347 8AB 7D=0) =O A MNainfrarie device ? 
2108 O834A EO GOYES CPY140 
2109 0834C 301 LC(1) =dIRAN Independent RAM Device type 
2110 O834F 903 *D=C OP Independent RAN ? 
2111 08352 60 GOYES CPY140 
2112 08354 6FIF GOTO CPYO95 Poll for COPY to unknown device 
2113 & 
2114 * Move Device type to D(S) for FIND File 


2115 * Try to find Destination file across specified Device 


Saturn Assenbler Progran Execution Routines <83 Fri Dec 3, 1983 2:50 an 


Ver. 3.39/Rev. 2306 COPY Utility Routine Page 47 

2116 x 
2117 08358 7CEO CPY140 GOSUB FINDFS Shift Device type, Find file 
2118 O835C 4C0 GOC CPY160 File not found 
2119 x 
2120 * Destination file found 
2121 * Error exit 
2122 x 
2123 O835F 3300 LC(4)  =eFEXST "File exists" 

00 
2124 08365 61AO CPYER2 GOTO CPYERR 
2125 x 
2126 * Retrieve Destination Device Info and shift it for CRETF+ 
2127 * Restore Source file start 
2128 * Read source file header 
2129 * Transfer Source file start to R2; File length to RO 
2130 * If KEYS Copy 
2131 x If source file type # KEYS 
2132 x Error exit 
2133 x 
2134 08369 8E0O CPY160 GOSUBL =NFDVC+ Get Destination info 

00 
2135 O836F 817 DSRC Shift device infor for CRETF+ 
2136 08372 770C GOSUB Dt=sRO 
2137 08376 147 C=DAT1 A Restore Source file start 
2138 08379 108 RO=C Save it back into RO 
2139 0837C 135 D1=C 
2140 0837F 8E0O GOSUBL =RDHDR1 Read file header 

00 
2141 08385 120 AROEX RO <-- File length; A <-- File star 
2142 08388 122 AR2EX R2 <-- File start; A <-- File type 
2143 0838B 865 ?ST=0 sKEYS not KEYS Copy ? 
2144 O838E 71 GOYES CPY170 
2145 08390 340 LC(5) =fKEY 

2E0 
2146 08397 8A2 7A=C OA KEY file type ? 
2147 08398 BO GOYES CPY170 
2148 0839C 3300 LC(4)  =eF TYPE "Tllegal file type" 

00 
2149 O83R2 S2C GONC CPRYER2 B.E.T. 
2150 k 
2151 * Conpute File length 
2152 * Atterpt to Create file 
2153 x 
2154 O83A5 110 CPY170 A=RO A <-- File length 
2155 O83A8 D2 C=0 A 
2156 O83AR 3102 LC(2)  =oF LENh Offset to file length in header 
2157 O83RE C2 C=C+A AR Total file length 
2158 O83B0 7011 GOSUB CRETF+ Create file in RAN / IRAN 
21539 08384 40B GOC CPYER? Error Return fron Create File 
2160 x 
2161 * Copy Source to Destination 
2162 k DO = Start of Source 
2163 * D1 = Start of Destination 
2164 * B = Length to Move 

x 


2165 
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2166 083B7 11A CPY177 C=R2 Source start 

2167 O83BA 134 bO=C 

2168 O83BD 119 C=R1 Destination start (fron CREATF) 

2169 08300 135 Di=C 

2170 083C3 8F0O GOSBVL =NOVEUO Copy source to destination 
000 

2171 x 

2172 * Read destination filenane 

2173 * Write destination filenane to created file 

2174 * Update date and tine 

2175 & 

2176 083CA 7A90 GOSUB RDINFD 

2177 O83CE 119 C=R1 Destination start 

2178 08301 134 DO=C 

2179 08304 1507 DATO=A W Write destination filenane 

2180 O83D8 7AF1 GOSUB =NFTMD- Write tine,date; don’t zero COPY ni 

2181 & 

2182 * If LEX file Copy 

2183 : Update Lex Buffer Infornation 

2184 * 

2185 083DC 186 DO=DO- (oTINEh)-(oFTYPh)+1 Pos to File type-1 

2186 O83DF 142 CPY180 A=DATO A Read File type @ File type-1 

2187 O83E2 F4 ASR A Shift file type to A(0-4) 

2188 O83E4 3480 LC(5) =f LEX LEX file type 
2EO 

2189 O83EB 8A6 7AHC OA Not LEX file copy ? 

219 O83EE 31 GOYES CPYEXT 

2191 083FO 119 C=R1 Save Start of file 

2192 O83F3 06 RSTK=C 

2193 O83F5 8FOO GOSBVL =LEXBF+ Update LEX Buffer infor 
000 

2194 O83FC 07 C=RSTK Restore start of file 

2195 O83FE 109 R1=C 

2196 x 

2197 * CPYEXT: Successful Copy 

2198 s Clear CARD Copy flag 

2199 k Release File Inforriation Save area 

2200 a Return CC 

2201 & 

2202 08401 8CO0O CPYEXT GOLONG =RLINFO Release save area 
00 

2203 & 

2204 * CPYERR - Error Return 

2205 & 

2206 08407 06 =CPYERR RSTK=C Save Error nurber 

2207 08409 74FF GOSUB CPYEXT Release save area 

2208 0840) 07 C=RSTK 

2209 O840F 02 RTNSC Return SC 

2210 & 

2211 * COPY CARD to File 

22t2 k R3 <-- Source filenane 

2213 & Read destination infornation 

2214 x R2 <-- Destination filenane 

2215 x 


2216 08411 103 CPYCRD R3=A Source filenare 
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2217 08414 853 ST=1— sDEST Set Destination flag 

2218 08417 8E0O GOSUBL =NFDVC+ Get Dest. information 
00 

2219 08410 102 R2=R Destination filenane 

2220 * 

2221 * Check Destination device 

2222 * If CARD | PORT 

2223 x Error Exit 

2224 * else 

2225 * Copy CARD to file 

2226 x 

2227 08420 862 ?S$T=0 sCARD not CARD device ? 

2228 08423 60 GOYES CPY220 (External devices have been elirina 

2229 08425 BABE CPYER3 GOTO  CPYERO Illegal File Spec 

223) 08429 301 CPY220 LC(1) adPORT PORT Device 

2231 0842C 903 *D=C oP PORT Device ? 

2232 O842F 6F GOYES CPYER3 Error exit 

2233 08431 8F00 GOSBVL =CRDFIL Copy CARD to file 
0 

2234 & 

2235 * R2 @ Filestart 

2236 * Set R1 @ start of file just copied 

2237 & Find end of file chain 

2238 * Position to File type 

2239 * go Check if Lex File COPY 

2240 k 

2241 08438 11A C=R2 

2242 0843B 109 R1=C R1 @ start of file just copied 

2243 O843E 134 DO=C 

2244 08441 16E DO=D0+ (oF TYPh)-1 Position to File type - 1 

2245 08444 6ASF GOTO  CPY180 go Check if Lex File copy 

2246 k 

2247 x 

2248 08448 817 =FINDFS DSRC Move Device type to D(S) 

2249 0844B 8C00 GOLONG =FINDF Find file 


00 
2250 08451 8C00 Poll GOLONG =P011) 
00 
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2251 STITLE Save and Read File Infornation 
2262 OGG OOS OO TOOT TI OK 
2263 JIG UII OT TI TOT I ITI ITT I IIIT TIT TTA 
2254 aA 
2255 k* Nane:(S) SVINFO - Save/Read File Infornation 
2256 ** Nane:(S) SVINF+ - Save/Read File Infornation 
2257 AX Nane:(S) RDINFO - Read Source/Dest File Infornation 
2258 4% Nane: RDINFS - Read Source File Info 
2259 ** Nane: RDINFD - Read Dest File Info 
2260 am 
2261 ** Category: SAVSTK 
2262 aK 
2263 ** Purpose: 
2264 xk These entry points are used by COPY, TRANSFORM, 
2265 Kk RUN, and CHAIN to save and access infornation on 
2266 ak their source/destination files. The info is 
2267 x stored in an area on the SAVSTK, which nust be 
2268 ae allocated using ALINFO beforehand. SVINFO and 
2269 a SVINF+ write the file info; RDINFO, RDINFS, and 
2270 aK RDINFD read the info back. 
2271 xR 
2272 ** Entry: 
2273 Kk All: File Info save area allocated on SAVSTK 
2274 xk 
2275 xx SVINFO: 
2276 x A = Filenane (first 8 chars) 
2277 a RO(3-0)= Last 2 chars of filenarie 
2278 ak D(A) = Device information 
2279 ak D(O) = Device code 
2280 ak D(4-1) = Device spec (Port, extender#, etc) 
2281 Kx If PORT: 
2282 a D{1) = Extender# 
2283 x D(2) = PORT# 
2284 a If HPIL: 
2285 ak 0(3-1) = Device address 
2286 ak D(4) = Device characterization 
2287 ax $3 = 0 => Save info in source file position 
2288 an = 1 => Save info in dest file position 
2289 Kx 
2290 ae SVINF+: Sane as SVINFO, except: 
2291 a D(S) = Device code (position returned by FSPECx) 
2292 kk D(3-0) = Device spec shifted right (in position 
2293 ak returned by FPECx) 
2294 wk 
2295 a RDINFO: 
2296 a $3 = © if Source file info to be read 
2297 KR = 1 if Dest file info to be read 
2298 Kk 
2299 aK RDINFS, RDINFOD: 
200 ak None. 
2H1 Kx 
22 RK Exit: 
2303 ax $4 = 9 (SVINFO, SVINF+) 
2304 ak = 1  (RDINFO, RDINFS, RDINFD) 
2305 a $3 = © (RDINFS) 
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2306 ax = 1. (RDINFD) 
2307 KK = Entry condition (RDINFO) 
28 aK 
2X9 aX SVINFO, SVINF+: Infornation saved in appropriate spot 
2310 kn A = Entry Condition 
2311 xk RO(3-0)= Entry Condition 
2312 KK D(A) = Device infornation (see SVINFO entry) 
2313 a 
2314 wr RDINFO: Info on selected file 
2315 xk A = Filenane (first 8 chars) 
2316 aK RO = Last 2 chars of filenane 
2317 xx D(A) = Device infornation (see SVINFO entry) 
2318 x CCA) = DCA) 
2319 KK 
2320 xx RDINFS: Sane as RDINFO; Source infornation 
2321 ax RDINFD: Sane as RDINFO; Destination infornation 
e328 KK 
2323 kk Calls: None. 
2324 a 
2325 Kk Uses....... 
2326 kk Inclusive: sDEST(S3), sREADI(S4),A,C,RO,D1, 
2327 KK D(A) (RDINFO, RDINFD, RDINFS), 
2328 xx D (SVINF +) 
2329 AX 
2330 *k Stk lvls: 0 
23a kk 
2332 ** Detail: 
2333 am Start addr Size Infornation 
2334 Kk wo wen ----- re 
2335 x SAYSTK-50 20 Destination Filenane 
2336 Ae SAVSTK-30 5 Destination Device Information 
233? aA SAVSTK-25 20 = Source Filenarie 
2338 xe SAYSTK- 5 5 Source Device Infornation 
2339 KK 
2340 ** History: 
2341 xx 
2He ae Date Progranner Modification 
2343 OF wares), neiwdons ‘eta Gatce ie eee ees tes 
2344 xk 07/04/82 JP Nodified docunentation 
2345 ai 
? 346 FORO JOROIJOI I HOO OO OI IO IO TO OOO RO ior 
2447? JOU IIIS OIG EI IG ISIC UU ITO OU II IOI 
2348 08457 813 =SVINF+ DSLC Shift Device type to D(0) 
2349 O845A 844 =SVINFOQ ST=0 = sREADI Clear READ info flag 

— 2350 0845) 6010 GOTO RDINIO 
2351 08461 843 =RDINFS ST=0 = sDEST Clear Destination flag 
2352 08464 6600 GOTO RDINFO 
2353 08468 853 =RDINFD ST=1 = sDEST Set Destination flag 
2354 08468 854 =RDINFO ST=1 = sREABI Set READ infor flag 
2355 O846E 1FE9 RDINIO D1=(5) =SAVSTK 

5F2 

2356 08475 147 C=DAT1 A Start of save area 
2357 08478 135 D1=C 
2358 


2359 


* Position ta source inforration 
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* 
1C8 01=D1- (1DEVC)+(1FNAN+) Skip Device, Last 2 chars 


2361 08478 
2362 0847E 
2363 

2364 

2365 

2366 08481 
2367 08484 
2368 08486 
2369 08489 
2370 0848C 
2371 0848F 
2372 

2373 

2374 

2375 08491 
2376 08495 
2377 08498 
2378 0849B 
2379 O849F 
2380 084R2 
2381 084R4 
2382 08487 
2383 

2384 

2385 

2386 084A 
2387 O84AD 
2388 08480 
2389 08484 
2390 08487 
2391 O84BA 
2392 084BD 
2393 084BF 


1CF D1=D1- LFNANS 
x 


Skip 


to front of filenane 


* If Destination --> Position to destination information 
x 


Source information ? 


863 ?S8T=0 sDEST 

80 GOYES RDINZO 

1C8 D1=D1- (1DEVC)+( 1FNAM+) 
1CF D1=D01- 1LFNAN8 Skip 
874 RDIN2O ?ST=1  sREADI Read 
Al GOYES RDIN30 


x 


* Save inforiation 
k 


151? DATI=A W 

1?F D1i=D1+ LFNANS 
118 C=RO 

1503 DATI=C 4 

173 D1i=D1+ LFNAN+ 
0B C=D A 

145 DATI=C A 

03 RTNCC 


k 
* Read infornation 
k 


1537 RDIN3O A=DAT1 W 


1?F D1=D1+ 1LFNAN8 
15F3 C=DAT1 4 

108 RO=C 

173 D1=01+ LFNAN+ 
147 C=DAT1 A 

D7 D=C A 

03 RTNCC 


Save 
Skip 


Save 
Skip 


Save 


Read 
Nove 
Read 


Move 
Read 


Skip Device, Last 2 chars 


to front of filenarie 
inforriation ? 


first 8 chars of filenane 
over first 8 chars 


last 2 chars of filename 
over last 2 chars 


Device infornation 


first 8 chars of filenane 
over first 8 chars 
last 2 chars of filenartie 


over last 2 chars 
device information 
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2394 STITLE Create Nainfrane File 
2395 JOU III OGIO OGG II IG OCITOI CIO IOI TIE 
2396 SOI GOI OCC OOS ISOC ISOC GOI IIR 
2397 xx 
2398 xk Narie: CREATF - Create File in MAIN 
2399 *k Narie:(S) CRETF+ - Create file in MAIN or in IRAM 
2400 aR 
2401 ** Category: FILUTL 
2402 ah 
2403 ** Purpose: 
2404 x Create a file in designated RAM device. 
2405 xk 
2406 ** Entry: 
2407 xx CREATF: 
2408 ae C(A) = Total meriory size of new file in nibbles 
2409 xk (rust include length of file header) 
2410 ax CRETF+: 
2411 aR C(A) = Total nenory size of new file in nibbles 
2412 ax (rust include length of file header) 
2413 xx 0(S) = 0 or F => Create in nainfrare 
2414 xe = other => Create in PORT 
2415 ak D(B) deternines in which port to create: 
2416 aR D(1) = PORT # 
2417 ak D(O) = Extent # 
2418 aS D(B) = FF => Create on first avail. port 
2419 a 
2420 ak 
2421 AK Exit: R1 @ Start of new file (fron WFINDT) 
2422 ax B(A) = Total nenory size of new file 
2423 xR CARRY SET => NEW FILE WAS NOT CREATED 
2424 aa C(3-0) =  €rror nuriber 
2425 aK CARRY CLR => FILE CREATED SUCCESSFULLY 
2426 a The following header info filled in: 
2427 aX Flag field and COPY code field zeroed 
2428 ak Creation tine and date 
2429 aR File chain length 
2430 ak 
2431 kX Calls: NOVED3, RFADJ+, WFIMDT, EOFLC+, ROMF-1, WFLENG 
2432 x LSTADR, ROMCHK, ROMFND, NENCKL, RCO1, RANRON 
2433 kx 
2434 x Uses: A-D,DO,D1,RO,R1,SCRICH (32 nibs),SO-S? (YMDHNS) 
2435 xx 
2436 *k Detail: 
2437 a B = Size of new file (Offset for pointers) 
2438 aK RO= Size of nen file (Saved during WFTMDT call) 
2439 ak Ri = Start of new file 
2440 wk 
2441 xx 
2442 aK 
2443 ** Algorithn: 
2444 as Save size of new file (RO) 
2445 xn If not Mainfrane create D(S) >= 4 
2446 aR If PORT not specified D(B) = FF 
2447 ae Ac Find first avail port (ROMCHK ) 


2448 ae Error 1f no ports 
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2449 aK Try to create file on port (CRTPRT) 
2450 a If not successful 
2451 x Try next port (goto 1) 
2452 aK else 
2453 ak Find specified port (ROMF-1) 
2454 ak Error if not found 
2455 aK CRTIPRT: Error if Port not RAN (RAMROM) 
2456 ak Calc end of file chain 
2457 xx Calc last address on Port (LSTADR) 
2458 an If enough nenory 
2459 aR Wrate zero byte @ file chain end 
2460 ax Back up to file header 
2461 xk Write Date and tine (WFTMDT) 
2462 a Write file length 
2463 ak else 
2464 a Check if enough nenory u/LEEWAY to create 
2465 an Read End of Source (AVMENS) --->(DO) 

2466 ak End of Destination AVNEMS + File size --> (D1) 
2467 ak Length of Source = End of Source - Begin of Source 
2468 ak = AVMENS - (MAINEN - 2) 

2469 a Begin Source @ Zero byte of File Chain 

2470 ak Move nenory down (MOVED3) 
2471 kk Zero flags,urite Tine, Date to hdr(WFTMOT) 
2472 - Write File length chain to header 

2473 aK Save PRGMEN, CURREN (R1) 

2474 ak Adjust nenory & stack pointers (RFADJ+) 
2475 ak Restore PRGMEN, CURREN 

2476 ak 

2477 *k Stack lvls: 5 

2478 ak 4 if file created in MAIN 

2479 ak 

2480 kk History: 

2481 aK 

2482 AK Date Progranner Modification 

2483 re 

2484 Kk 06/30/82 SW. Added docunentation 

2485 kk 8607/15/82 JP Modified D(S) entry conditions 
2486 kk 10/11/82 JP Added LEEWAY check for MenChk 
2487 RK 42/17/82 9 SLU. Elininated check for ROM - 

2488 as Trapped out in poll, as with 
2489 ae other non-RAN neriory devices 
2490 ae 01/10/83 SW. Elininated poll to CREATE on 
2491 ae non-RAN device 

2492 eK 01/31/83 SW. Aluays uses 5 stack levels 

2493 KK 03/17/83 9 IP Packed D1=(5) =MAINEN 

2494 kk 06/23/83 9 S.W. When adding file to an IRAN, now 
2495 a we guard against ’wrap-around’. 
2496 ak Replaced GOVLNG RNEM i/ 

2497 ak GOLONG RNENIO. 

2498 kK 06/29/83 SLU. Don’t save CURREN on RSTK before 
2499 RK calling RFADJ+ - uses too many 
2500 aK levels - use R1 instead. 

2501 wk 

2602 JOIST OIC TOI IISO COICO OOO TR 


2503 


FOI JU OUI IO TO TTT TI TOI I 
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2504 

2505 084C1 
2506 0844 
2507 O84C7 
2508 O84CA 
2503 O84CD 
2510 084D0 
2511 08403 
2512 08406 
2513 

2514 08408 


AC3 
108 
ACB 
B46 
4A0 
A4E 
94E 
3? 


8E0O 
00 
2515 O84DE 400 
2516 

col? 

2518 

2519 

2520 

2521 

2522 

2523 O84E1 
2524 O84E4 
2525 O84E8 
2526 O84EB 
2527 O84ED 
2528 O84EF 
2529 

2530 

2531 

2532 

2533 O84F 1 
2534 O84F 3 
2535 O84F6 


130 
1017 
147 
CE 
CE 
EE 


CO 
131 
8E00 
00 
2536 

2537 

25 38 

2539 

2540 O84FC 
2541 08500 
2542 

2543 08504 


7DD0 
7780 


1B76 

5F2 

2544 08508 146 

2545 O850E 06 

2546 08510 164 

2547 08513 142 

2548 

2549 

2550 

2551 08516 121 

2552 08519 8£00 
00 

2553 

2554 


2:50 an 
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x 


=CREATF D=0 S Force MNainfrane create 
=CRETF+ RO=C A Save new file size 

C=0 $ 

C=C+i § 

COC CRETNF 

C=C-1 § D(S) = 0 

7C#H0)— lS 

GOYES CRTIRN D(S) >= 1 (PORT) 


* Ant of memory needed in C(A) 
CRETNF GOSUBL =NENCKL Do nen check with LEEWAY 
RTNC Carry set=> not enough neni 
* Ant of rmenory needed (offset) in B(A) 
* A(A) contains AVNENS (End Source) 
* D1 @ AVMENS (2F5xx) 


* 
* Length of Source = End Source - Begin Source 
; = AVNENS - (MAINEN - 2) 
x 
=CRETMS DO=A AVMENS 
D1=(2) =MAINEN 
C=DAT1 A 
C=C-1 A 
C=C-1 A MAINEN - 2 (Bgn Source) 
C=A-C A Length of Source 
i 
* Set End of Source 
* Move neriory down 
& 
A=A+B A End Destination 
DI=A End Destination 


GOSUBL =NOQved3 


Zero flags & Write Tine & Date to File header 
On Return fron MOVED3, DO @ File start 


a 0 


GOSUB WFTNDT WRITE FILE TIME 

GOSUB = WFLENG WRITE FILE LENGTH 
* Save values of PRGMEN & CURREN 

DO=(5) =PRGNEN 


C=DATO A 

RSTK=C Save PRGNEN on stack 
DO=NO+ (CURREN)-(PRGMEN) 

A=DRTO A Read CURREN 


* RFADJ WILL UPDATE PCADDR ONLY IF POINTING INTO I/OBUFFER 
x 


ARIEX 
GOSUBL =RFADJ+ 


Bgn source in A(A); CURREN in R14 
ADJUST FOR-NEXT/GOSUB STACKS 


* Restore PRGMEN & CURREN 
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2555 & 

2556 O851F 119 C=R1 Restore CURREN 

2557 08522 1BC6 DO=(5) =CURREN 
5F2 

2558 08529 144 DATO=C A CURREN 

2559 0852C 184 DO=DO- (CURREN)-(PRGNEN) 

2560 O852F 07 C=RSTK Restore PRGMEN 

2561 08531 144 DATO=C A PRGMEN 

2562 08534 8F0O rcO1 GOSBVL =RCO1 Restore R1 fron WFINDT 
000 

2563 0853B 03 RTNCC RCO1 returns w/ carry set 

4 2564 x 

2565 * Error Exits: 

; 2566 * Load Error nunber and Return with Carry Set 
2567 x Insufficient Menory to Create file (RMEM) 
2568 & Port Device not found to create file 
2569 & 

2570 0853D 8C00 CRIENE GOLONG =RNEN10 "Insufficient Meriory" 
00 

2571 x 

2572 * Carry is set 

2573 r 

2574 08543 8C0O PRInFD GOLONG =FLDE9O LC(4) eDVCNF & rtn 
00 

2575 & 

2576 * PORT device type 

2577 * If no specific Port Number specified (D(B)=FF) 

2578 x Create File on first available port 

2579 x 

2580 08549 B67 CRTIIRN D=D+1 8B 

2581 0854C 5C1 GONC CRTI20 PORT SPECIFIED? 

2582 O854F 8£00 GOSUBL =ronchk 
00 

2583 08555 4DE CRII10 GOC PRTInFD NO PORTS? 

2584 08558 7610 GOSUB CRTIPRT ATTEMPT TO CREATE FILE 

2585 0855C 500 : RTNNC DONE SUCCESSFULLY? 

2586 

2587 * UNABLE TO DO CREATE - 

2588 ; EITHER 100 LITTLE MEMORY OR ILLEGAL MEDIA 

2589 

2590 O855F 8E00 GOSUBL =ronfnd SEARCH FOR NEXT PORT 
00 

2591 08565 GFEF GOTO CRTIII0 

2592 z 

2593 * PORT nunber specified 

2594 x  Atterpt to find specific port 

2595 x 

2596 08569 8E00 CRII20 GOSUBL =ROMF-1 
00 

25397 O856F 43D GOC PRInFD PORT NOT FOUND 

2598 a 

2599 * Try to Create File on PORT if IRAN port 

2600 x 


2601 08572 8E00 CRIPRT GOSUBL =RANRON 
00 





2603 
2604 
2605 
2606 
2607 


2608 
2609 
2610 
2611 
2612 
2613 
2614 


2616 


2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 





08578 
0857E 


08584 
08586 


08588 
08588 
08580 


08592 


08598 
0859A 
08530 
O859F 
085A1 
O85A4 
085A? 
085A3 
O85AC 
O85AF 
085B2 
08584 
0858? 


O85BB 
08580 
085C1 
08504 
08506 
08508 
085(B 
O8SCE 


08500 
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2602 08578 575 


13? 
8E0O 
00 


£6 
£6 


110 
C2 
4FA 


2615 08590 06 


8E00 
00 


DR 
07 
8B2 
E9 
134 
181 
D2 
14¢ 
110 
136 
E2 
134 
7220 


De 
3102 
110 
D8 
EA 
169 
140 
03 


BLOG 
00 
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GONC CRTI60 


* D1 PAST FILE CHAIN POINTER 
k 


CD1EX 
GOSUBL =EOFLC+ 


Page 57 
NOT RAN? 


CALCULATE WHERE CHAIN ENDS 


* C(A) Points to end of file chain 


C=C+1 A 
C=C+1 


Pt 1 byte past end of file chain 
(past the 0 byte) - can’t carry (NM 


* Now add proposed size of file 


A=RO 

C=A+C A 

GOC CRTEME 
RSTK=C 

GOSUBL =LSTADR 


* AVMEME FOR PORT IN C(A) 
x 


A=C A 
C=RSTK 
7C>A =A 
GOYES CRTENE 
DO=C 
DO=D0- 2 
C=0 A 
DATO=C B 
A=RO 
CDOEX 
C=C-A A 
=C 


GOSUB  WFTMDT 


Compute File Chain Length 


ae OO 


WFLENG C=0 A 
LC(2)  =oF LEN 


* 
* Tllegal Access Error 
i 


CRTII60 GOLONG =PRGFE 


SIZE OF FILE 

Ptr past where 0 byte would be 
Guard against ‘wrap-around’ 
Save ptr 

CALC. PAST LAST ADDR ON PORT 


WRITE QUT ZERO BYTE 


File Chain Length = Total File size - Offset to File length i 
Position to File length field (DO @ TIME field fron WFTNDT) 
Write File Length to Header 


Offset to File length 

Total file size 

Save Total size for ptr adjust 
File Chain Length 


oF LENH)-(oTIMEh) Position ta File Length field 


Write out neu length 
Successful CREATE 


ILLEGAL (FILE) ACCESS 
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2651 STITLE Write TIME & DATE to file header 
2652 SOI III TO III TIT TOS ITI IST I IOS ISI IIS TTI SSIS IIS III III OIA ISIS IS: 
2653 JOU ICI SIICISIIS UII OOO TR 
2654 am 
2655 a Nane:(S) WFTIMDT - Write Flags, Tine, Date to File Header 
2656 - 
2657 ** Category:  FILUTL 
2658 eh 
2659 ** Purpose: 
2660 a Zero Flags, Write Creation Tine & Date to file header 
2661 
2662 ** Entry: 
2663 aK DO @ File start 
2664 &k 
2665 aR WFTMD-: Set flag to prevent Nib 2 of Flags to be zeroed 
2666 1 WFTMDT: Clear flag: Nib 2 of flags is zeroed 
2667 ai 
2668 =e Nib 2 of flags = COPY code nibble 
2669 ai 
2670 AR Exit: 
2671 Ak DO @ Tine field of file header 
2672 a P=0 
2673 ae R1 @ File start 
2674 xk 
2675 etal In RAN: 
2676 ar Flag: 00 
2677 xk Tine: mmhh 
2678 a Date: ddrnyy 
2679 a 
2680 ** Calls: S101, YMDHNS, RCO1 
2681 aa 
2682 RE SOS 5 seri aidie 
2683 *k Exclusive: A(A),C,P,D00,R1 
2684 ‘s Inclusive: 8,8,C,0,P,D0,D1,RO,R1,SCRICH (32 nibs),S0-S7 
2685 
2686 ae R1 = File start 
2687 xk YMDHMS uses A-D,RO-R1,D0,D1,S0-S$7 
2688 ae STO1 uses A,DO,SCRICH (32 nibs) 
2689 ax RCO1 uses RO,R1,D0,A 
2690 ak 
2691 XX Stk lvls: 3 
2692 ie 
2693 ** Detail: 
2694 tes STO1 called to save RO-R1 in SCRTCH 
2695 aK YNDHNS uses these registers 
2696 aK RCO1 restores RO-R1 
2697 wh 
2698 ** NOTE: 
2699 ax This routine could be shorter if another scratch 
2700 aX register or the stack was used to save the position 
2701 x within the file header @ Tine 
2702 a 
2703 a Since this is a utility I’m trying to tininize the 
2704 = usage of R registers and subroutine levels 


2705 i 


2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
e715 
2716 
27? 
2718 08506 
2719 08509 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 O850D 
2723 O85E0 
2730 085E3 
2731 08566 
2732 O85E8 
2733 O85EC 
2734 O85EE 
2735 O85F1 
2736 O85F3 
273? O85F6 
2738 O85F8 
2739 O85FA 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
274? 
2748 O85FE 


2743 Q8605 


2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 08616 
2758 08619 


08600 
O8 60F 
O861e 


Saturn Asserbler 
Ver. 3.39/Rev. 2306 Write TINE & DATE to file head 


850 
6600 


840 
132 
101 
D2 
3144 
CA 
130 
DO 
870 
40 
21 
1501 


8F00 
8FOO 
BF 6 


BF b 
7E1F 


141 
1% 
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*k 2: The positioning fron the File start to the TIME field 
at is through LENGTHs not OFFSETs. 

ak 

**k History: 

kk 

xk Date Programmer Modification 

Mh Geico ‘Etec tes Sebo ele eran eee ei ed 
xk 07/04/82 JP Modified docunentation 

kk 

kk 


FOI TOT OTITIS TO IK 
FO JO OTITIS II OO II TIT II I IK 


=WFTMD- ST=1 0 Set COPY nib flag 
GOTO 836 WFTND1 

x 

* Save File start 

Adjust DO to Flag field in header 

* If COPY nib flag set 

7 Zero low nibble of flag field 

* else 

; Zero both nibbles of flag field 


™* 


=WFTMDT ST=0 0 Clear COPY nib flag 
WFTMND1 ADOEX DO @ File start 
R1=A Save File start 
C=0 A 
LC(2}  =oF LAGh Offset to Flag field in header 
A=A+C A 
DO=A Positioned @ Flag field 
A=0 A 
?ST=1 0 Zero low nibble of flag field ? 
GOYES WFTND4 
P= 1 Zero both flag nibbles 
sans DATO=A WP Zero Flags field 
* P=0 gets done in YNDHNS subroutine 
e S101 does not care about P setting 
a 
* Save RO-R1 
* Get Date and Tine 
* Shift of f seconds in Tine 
x 
WFTMND6 GOSBYVL =ST01 Store RO - Ri 
GOSBVL =YNDHNS Get Date and Tine 
CSR W Shift off Seconds 
CSR W 
GOSUB  rcO4 Restare RO - Ri 
x (calling rcO1 saves 1 nib) 
* Position to Tine field 
* Write out Date, Tine 
k 
A=R1 File start 
DO=A 
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2759 O861C 16F DO=D0+ LFNANh Skip Filenane 
2760 O861F 165 DO=D0+ (1FTYPh)+(1FLAGH) Skip File Type, Flags 
2761 08622 20 P= 0 Reset fron YMDHNS 


2762 08624 15C9 DATO=C 10 Write Date, Tine 
2763 08628 03 RTNCC 
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2764 

2765 

2766 

2/67 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 0862A 3400 
000 

2804 

2805 08631 Ce 

2806 08633 C4 

2807 08635 C4 

2808 08637 C4 

2809 08639 CA 

2810 0863B 132 

2811 O863E 146 

2812 08641 132 

2813 08644 C2 

2814 08646 01 


Progran Exe 
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STITLE EXCADR - Execution Address Compute 


FOI 
RAK KKKAKKKAKEK 
xx 


xx Narie: E 
*X Narie:(S) E 
ah 

** Category: 
ah 

*x Purpose: 
aK 

ak 

** Entry: 

aa 

aK 

ah 

aK 

ak 

eA EMIT: 

at 


xX Calls: 
xx 


FORO TI IK 
FOR II III OR TIT III IK 


XCADR - Conpute Exec Addr of Token 
XCAD+ - Cornpute Exec Addr of Token 


RODCAL 


Return Execution Address of Conrand Token, 
preserving DO,D1 


EXCADR: A(B) = Conrnand token 
Assunes MAIN Table in Mainfrane 
EXCAD+: A(B) = Conrand token 
C(A) = Main Table + 3 of XRON 
Position @ Execution Address field 


C(A) = Execution Address for token 


None 


xX Stk lvls: 0 


ak 


&k Uses: 
xs 


** Detail: 
ak 

ak 

** History: 
ak 


ak Date 
kh ee 


aK 07/06/82 
kh 
FSI IAI II 
JI III RII DD 
* 


ACA), C(A) 


Preserves DO 
Address = Token * 9 + Main Table Adjustnent 


Modification 


JP Nodified docurientation 


FO IOI III IIIT I UTI OOOO III IOI OK 
FOOTIE 


=EXCADR LC(5) (=MAINT)+3 Main Table Adjustment Addr 

x Pasitions to Exec Addr field 

=EXCAD+ C=C+A A Add Table offset to Token 
A=A+A A Calc offset into Nain Table 
A=A+A A Tines 4 
A=A+A A 39 nibs per table entry 
A=A+C A Add table start to offset 
ADOEX DO <-- Addr of Exec addr, A <- Old 
C=DATO A Read relative Exec Address 
ADOEX Restore DO, A <- @ Exec Addr 
C=C+A A Absolute Exec Address 
RIN 
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ACTIMNR Ext - wI 
RLINFO Ext - 1519 
ARGERR Ext - 866 
ARGSTA Ext - 245 858 
BASCHA Ext - 2066 
BSERR = Ext - 1584 

=BYE Abs 32738 HO7FE2 - 525 
CHAIN- Ext - 2069 
=COPY Abs 33227 #081CB - 1518 1514 
COPYDC Ext - 1516 
COPYP Ext - 151? 


=COPYu Abs 33385 #08269 - 1983 1628 
CPYO10 Abs 33238 #081D6 - 1527 1614 
CPYO20 Abs 33270 #O81F6 - 1550 1566 
CPYO30 Abs 33279 HO8IFF - 1561 1539 
CPY040 Abs 33296 #08210 - 1572 1542 1563 
CPYOSO Abs 33311 #O821F - 1577 1565 
CPYO60 Abs 33326 HO822E - 1592 1574 
CPY¥065 Abs 33344 #08240 - 1603 1551 1593 
CPYO?0 Abs 33347 #08243 - 1610 1579 
CPYO80 Abs 33363 #08253 - 1626 1612 
CPYO95 Abs 33396 #08274 - 2003 2112 


CPYO98 Abs 33436 HO829C - 2015 2007 
CPY100 Abs 33470 HO82BE - 2043 1989 
CPY1O5 Abs 33490 #082D2 - 2049 2044 2047 
CPY110 Abs 33537 #08301 - 2075 2067 
CPY120 Abs 33551 #O830F - 2085 

CPY130 Abs 33580 #O832C - 2099 2088 
CPY135 Abs 33604 #08344 - 2106 2103 
CPY1940 Abs 33624 #08358 - 2117 2108 2111 
CPY160 Abs 33641 #08369 - 2134 2118 
CPY170 Abs 33701 #O83A5 - 2154 2144 2147 
CPY177 Abs 33719 HO83B7 - 2166 


CPY180 Abs 33759 HO83DF - 2186 2245 

CPY220 Abs 33833 #08429 - 2230 2228 

CPY250 Abs 33459 #082B3 - 2034 2032 

CPY2CD Abs 33440 #O82AO - 2027 2078 

CPYCRD Abs 33809 #08411 - 2216 2048 

CPYERO Abs 33424 #08290 - 2012 2009 2229 
CPYER1 Abs 33432 #08298 - 2014 2005 2050 2063 
CPYER2 Abs 33637 #08365 - 2124 2105 2149 2159 
CPYER3 Abs 33829 #08425 - 2229 2232 

=CPYERR Abs 33799 #08407 - 2206 2014 2124 
CPYERX Abs 33320 #08228 - 1584 1520 1602 1629 
CPYEXT Abs 33793 #08401 - 2202 2010 2015 2035 219% 220? 
CROFIL Ext => 2008 


=CREATF Abs 33985 #084(1 2505 
=CRETF+ Abs 33988 #O84C4 2506 2158 
=CRETMS Abs 34017 #08461 2523 


CRIEME Abs 34109 #0853D 2570 2614 2623 
CRII10 Abs 34133 #08555 2583 «2591 
CRTII20 Abs 34153 #08569 2596 2581 
CRTI60 Abs 34256 HO85D0 - 2650 2011 2602 
CRIIRM Abs 34121 #08549 - 2680 2512 


CRETMF Abs 34008 #084D8 - 2514 2509 
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CRIPRT Abs 34162 #08572 - 2601 2584 
CURREN Abs 193900 #2F56C - 12 2546 2557 2559 
Di=sRO Abs 32637 H07F7D - 399 236 283 2100 2136 
DEFFIL Ext - 1550 
DSLEEP Ext - 529 
EOFLC+ Ext - 2607 
ERRADR Abs 194184 #2F688 - 12 219 484 
ERRSUB Abs 194179 #2F683 - 12 216 219 


=EXCAD+ Abs 34353 #08631 - 2805 1167 
=EXCADR Abs 34346 #0862A - 2803 
=EXPER2 Abs 32954 HO80BR - 866 391 860 1053 


EXPEX- Ext - 244 
EXPEXC Ext - 857 
EXPSKP Ext - 376 
FILCRD Ext - 2034 
FILFIL Ext - 1987 
FINDF Ext - 2249 
=FINDFS Abs 33864 #08448 - 2248 2049 2117 
FLDESO =Ext - 2574 
FLOEV+ Ext => 2102 
=FLIP Abs 32230 #O7DE6 - 61 
FLIPDC Ext = 58 
FLIPP Ext = 59 
FSPECx Ext - 1601 
GETPR1 Ext - 2062 
GOTO+ Ext e528 


=GTINRH Abs 32970 HO80CA - 1043 235 505 
GTMR10 Abs 32989 HO8ODD - 1050 1048 
=GTNRA+ Abs 33015 #O80F? - 1097 512 
GIMRA1 Abs 33037 #08100 - 1104 1096 
=GTIMRAD Abs 33023 HO80FF - 1100 286 


=LC Abs 32230 #O7DE6 - 60 
LEXBF+ Ext - 2193 
LNSKP- Ext - 645 
LSTADR Ext ~ 2616 
LXFND = Ext - 1247 
NAINEN Abs 193905 #2F571 - 12 2524 
MAINT Ext - 1352 2803 
MENCKL Ext - 2514 
MFDEVC Ext - 2045 
MFOVC+ Ext -~ 2076 2134 2218 
MFERR Ext - 869 
NOVEL Ext - 2170 
NOved3 Ext - 2535 


=MTADDR Abs 33173 #08195 - 1352 
=MTADR+ Abs 33185 4081A1 - 1355 

Nferr Abs 32964 #O80C4 - 869 1052 
NXTSTA Ext - 1630 
Nxtstn Abs 33375 #O825F - 1630 83223 
=OFF Abs 32656 #O7F90 - 476 

OFF1O) =6Abs) «=. 32678 HOPFAB - =60485— 5513 
OFF2O = =6Abs 32691 HO7FB3 - S02 483 
GFF30 Abs 32738 RO?FE2 - 526 504 
OFF4O) = Abs) 32749 HO7FED - $29 = $2? 
OFFOC Ext - 474 
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OFFEXT Abs 32755 WO7FF3 - 53 489 
OFFP Ext - 475 
=OFFTNR Abs 32702 #O7FBE - 506 
=ON Abs 32308 #07E34 - 208 
ONO10) «Abs = 32348 HO7ESC - 227 211 
ONO15 Abs 32360 H07E68 - 235 229 
ONO30) «Abs =: 32396 HO7EBC - 254 3=— 263 
ONO35 «Abs 32401 #O7E91 - 260 252 
ONO40 «Abs =—-32432 HO7EBO - «= 277) 255 272 
ONI0O = Abs =: 332485 HO7EES - 310 230 
ON400) «= Abs = 332526 HO7FOE - 8325 =. 322 
ONSOO 8=Abs 32529 #O7F11 - 329 319 324 386 
ON700 «Abs «=: 332558 HO7F2E - 353 ©3338 
ON8O0 }8=6Abs «= 32582 HO7F46 - «362 «= 365 
ON850 «Abs } 32599 #07F57 - 374 360 


ON900 §=6Abs «=: 332618 _-HO7F EA 384 Mi 355) 36? 
ON999. Abs) «=: 3326) HO7F76 - 80395 = 331 

ONDC Ext - 206 

ONER1 Abs 32626 #O7F72 - 391 

1 =QNERR Abs 32759 HO7FF7 - 636 

OQNEXIT Abs 32344 #07E58 - 223 H4 5H 


ONGTGR Abs 32876 HO806C - 724 396 
ONP sé xtt - 207 

SONTIMR Abs 32776 #08008 - 663 

ONTN20 Abs 32834 #08042 - 696 675 686 
ONTM25 Abs 32847 HO804F - 704 «697 
ONTM3O Abs 32870 #08066 - 722 712 

POll} Ext - 2260 

PROFE Ext - 2650 


12 2543 2546 2559 
2574 2583 2597 


PRGMEN Abs 193895 #2F567 
PRInFD Abs 34115 #08543 


PUTALA Ext -: « 3514 
PUROFF Ext = 528 
PgnRun Abs 13 #OOO00D - 11 $26 
Poll Abs 33873 #08451 - 2250 1050 2003 
=RACTMI Abs 32883 #08073 - 782 687 
RAMROM Ext - 2601 

RCO1 Ext - 2562 
RCTTA1 Ext - 794 
RDHDR1 Ext - 2140 
RDIN1O Abs 33902 #0846E - 2355 2350 
RDIN2O Abs 33932 #0848C - 2370 2367 
RDIN3O Abs 33961 HO84A9 - 2386 2371 
=RDINFD Abs 33896 #08468 - 2353 2176 


=RDINFO Abs 33899 #0846B - 2354 2352 
=RDINFS Abs 33889 #08461 - 2351 
=RENANE Abs 33210 #081BR - 1513 


RENANP Ext ~- 7512 
RENMDC Ext ion Polt 
RFADJ+ Ext = 2552 
RLINFO Ext - 2202 
RMENIO Ext - 2570 
=RNDEXP Abs 32928 #O80RO - 857 312 1044 
RNMO1O «Ext - 1632 


ROMF-1 Ext - 2596 
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RINCC 
Range 
SAVSTK 
SEC2TK 
SFLAG* 
SFLAGT 
S101 
STATRO 
STOPDC 
=SVINF+ 
=SVINFO 
=TNIADR 
TNRAD1 
TNRINI 
TRFROM 
TRTO* 
TrfCk- 
UPDPC 
=USER 
USER10 
USER20 
USER 30 
USERDC 
USERP 
USREXT 
WF LENG 
=WFIMND- 
WFTMO4 
WFTMD4 
WFTMD6 
=WFTMDT 
XNTR10 
XNTA15 
XMTAZO 
KMTAZS 
XNTA30 
=XMTADR 
XUDERR 
=XWORD 
YNDHNS 
dCARD 
dIRAN 
dPORT 
eFEXST 
eF SPEC 
eF TYPE 
eXWORD 
FKEY 

f LEX 
FILE 

f LUSER 
fltdh 
LDEVE 
IFLAGh 
LFNAN+ 


Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 


193950 


194673 


33879 
33882 
33001 
194199 
194214 


32248 
32252 
32286 
32288 


32282 
34235 
34262 
34272 
34298 
34302 
34269 
33096 
33150 
33154 
331 60 
33162 
33075 
32960 
33046 


= 


57868 
57864 
215 
9 


Progran Execution Routines <83 
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H#2F59E 


#2F 871 


#08457 
#0845A 
#O80E3 
#2F 697 
#2F 6R6 


#07DF8 
#07DFC 
HO7ETE 
#07E20 


#O7E1A 
#085BB 
#085D6 
#O85E0 
#O85FR 
HO85FE 
#085DD 
#08148 
#0817E 
#08182 
#08188 
#0818A 
#08133 
#080(0 
#08116 


#0000 7 
#00001 
#00001 


HOE 20C 
HOE 208 
HFFFFA 
AFF FF? 


#00005 
#00002 
#00004 


518 
1276 
12 
260 
33 
82 
2748 
te 
517 
2348 
2349 
1094 
12 
12 
698 
713 
696 
706 
65 
66 
87 
93 
63 
64 
83 
2639 
2718 
2729 
2733 
2748 
2728 
1257 
1293 
1295 
1304 
1305 
1241 
868 
1159 
2749 


2355 


399 


1610 

293 
1100 
1094 


714 


62 
ral 
78 


94 
2541 
2180 
2719 
2737 


2540 
1296 
1278 
1261 
1259 
1248 
1160 
1161 


1575 
2109 
2230 


2145 
2188 
61 
65 


2361 
2760 
2361 


790 


2632 


1286 


2368 


Fri Dec 30, 1983 


2:50 an 


Page 


65 


saturn Assenbler 
Ver. 3.39/Rev. 2306 


1FNANS 
]FNANh 
1FTYPh 
LLXENT 
ILXID 
ILXTKR 
oF LAGh 
of LENh 
oF TYPh 
ol INEh 
pCOPYx 
plInr# 
rcO1 
renari 
rorichk 
ronfnd 
sCARD 
sDEST 


sEXTDV 
sEXTGS 
sGOSUB 
skEYS 
sQNERR 
sONTMR 
sPCRD 
sREADI 
sRENAN 
SRESTR 
sXWORD 
tCARD 
tERROR 
tGOTO 
tKYSck 
tLINE# 
tLITRL 
tON 
tT0 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
ee 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


16 

16 

4 

11 

2 

4 

20 

32 

16 

22 

8 

53 
34100 
33379 


Ww RO 


te 
WOHHLOMDHMWMNSO 
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#00010 
#00010 
#00004 
#O0O00B 
#00002 
#00004 
#00014 
#00020 
#00010 
#00016 
#00008 
#00038 
#08534 
#08263 


#00002 
#0000 3 


#00000 
#00005 
#0000 3 
#00005 
#00004 
#00006 
#00008 
#00004 
#00006 
#OO00A 
#00009 


1 


2362 
2759 
2760 
1295 
1257 
1257 
2732 
2156 
2185 
2185 
2004 
1051 
2752 
162? 


2043 
1541 
2366 
1988 
395 
310 
2085 
637 
685 
2029 
2349 
1513 
311 
724 


481 
673 


2369 


1284 
1284 


2640 
2244 
2644 


2046 
1564 


476 
325 
2089 


2033 
2354 
1626 

J<3 


<83 


2376 


2644 


2077 
1611 


48? 
671 
2143 


2370 
663 
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2227 


1613 2075 2217 2351 


664 
684 
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Input Paraneters 
Source file narie 1s JP&EXC: 3S 
Listing file nane 1s JP/EXC:TI:ML::-1 
Object file nare 1s JPZEXC: TI: MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 
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1 x SSS GGG 8 EEEEE xX xX CCC 
2 x S $ G G && E Re Rik 
3 x S G & & E KK C 
4 x SSS GGG & EEEE x C 
5 - SG G &&& E KX C 
6 s S $6 G&8 E xX xX C C 
7 - SSS GGG 8& & EEEEE xX xX CCC 
g x 
9 TITLE Miscellaneous Execution Routines<831216.1613> 
10 08648 ABS #8648 
11 RDSYNB TIZEQU: MS 
12 RDSYNB SBZRAN: : NS 
13 x 
14 SOI OTIS OG TIO II TO II TIT TIS II OTITIS 
15 FOI OCI OOO TIO III IO II ITI IIIS II TIA IIS 
16 &k 
17 xk Nane: FOR - Executes FOR statenent 
18 xx 
19 ** Category: STEXEC 
20 an 
21 ** Purpose: EXECUTES ’FOR’ STATEMENT 
22 x 
23 *k Entry: DO points past tFOR 
24 ae P=0 
25 xr 
26 ¥£ERETS 2 CASES: 1) IF the loop is to be executed, DO 
27 xx points to the end of the stnt. 
28 a The following data has been pushed 
29 ae on the FOR/NEXT stack: 
30 ak 
31 a FORSTK => RETURN ADDRESS (D0) 5 NIBS 
32 — STEP VALUE 16 NIBS 
33 ne LINIT 16 NIBS 
34 ae ASCII LETTER OR ALPHA-DIGIT TK 2 NIBS 
35 as 00 OR ASCII LETTER 2 WIBS 
36 xx 
37 xk 
38 x 2) Initial conditions dictate that the 
39 ae loop isn’t be executed at all. Progran 
40 a nenory (or in the case of CALC BASIC, 
41 a the line until tE0L) 1s scanned, 
2 a searching for a tNEXT with a natching 
43 a index variable. 
44 an If no natch is found, eFWoNX is given. 
45 xx 
46 &* Calle: ASNMNT, NXTCK9, POPSH, LINSKP, TRFLCK, TRCFRM, 
4? aR TRIO-, INDXSN, TKSCN7, POPSTK, GETST, RSTST, uTST1e, 
48 x EQLSCN, TRCVAR, INVRES, DO=PCA, XQBLK?, MEMCKL 
4a we 
50 ** Uses: A-D, P, RO, R2, DO, BI, S2, S88 
51 wx R1, S9, S-R1-2 - (only if TRACE 1s on) 
2 me + R1,R3, all of function scratch, SO-S11 - EXPEXC 
53 ae 
54 ** Detail: FOR stach 1s searched for an entry with sane index. 


55 ne If one is found, that entry 1s deleted fron the 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
6? 
68 
69 
20 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
31 
82 
83 
84 
85 
86 
8? 
88 
89 
%® 08648 6094 
91 
92 O864C 6706 
93 
34 08650 0000 


0 
95 08655 0000 
0 
96 O865A 7(13 
37 O865E 09 
98 08660 06 
39 O8662 582 
100 
101 08665 136 
102 08668 06 
103 0866R 173 
104 O866D 133 
105 08670 D2 
196 08672 3192 
107 08676 EE 
108 08678 21 
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ak 
ak 
ak 
ak 
xk 
kk 
ak 
ax 
xk 
xk 
ak 
a 
xk 
ak 
ak 


Page 2 


stack, and the new FOR declaration 1s pushed on the 
revised top of the FOR-NEXT stack. [AS HANDLED BY 
CAPRICORN & POINTED OUT IN BYTE MAGAZINE (1-81)}. 


When a loop descripter is initially pushed on the 


FOR-NEXT stack, 52 nibbles are allocated. This is 
because after the 4 nibble index 1s pushed on the 
stack, the assignnent value is pushed. Everything 
else follows, except the return address; it isn’t 
pushed until it 1s certain the loop wall be 
executed and the assignnent value deleted fron the 
stack. At that tine, 16 nibbles are released fron 
the stack and therefore returned to available 
nenory. 


&* Stack lvls: 6 


ak oH 


xk 
ak 
ax 


istory: 
10/03/82 


06/0/82 
07/07/82 


10/15/82 


07/06/83 


Progranner Modifications 


we we wee oe we eee ne eee wee 


Sel. Replace GOSUB PCCHK by ?S13=1 
assuning $13 is valid 

S.u. Added docunentation. 

S.W. In FRNULL code, eliminated 
CURRL update. 

S.H. Replaced calls to INVNaN & 


uRES12 with a single call to 
INVRES (per PN) 
Siu; Check for coriplex index var. 


JO IOI TOT TTR TTT IIIT RR TTS ITT ITI IK 
JORIS TOTTI TT TTT TTT TEI IIT TIT TIT TIT IIIITIRI IK 


& 
FOR 
* 


FOR 
* 


=FOR 


* MA 


XQe GOTO 3 =rdatty Data Type error 
ERR GOTO = wferr Insufficient nen 
REL(5) =FORDC 
REL(S) =FORP 
GOSUB INDXSN 
C=B R 
RSTK=C Save variable nane 
GONC =FOR10 NO MATCH? 
TCH FOUND - TRIM STACK 
CDOEX 
RSTK=C SAVE PC 
D1=D1+ 4 BLOCK END 
ADIEX 
C=0 A 
LC(2) 41 
C=A-C A BLOCK START 
P= 1 
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109 0867A 8ESD GOSUBL POPSTK 
80 

110 08680 07 C=RSTK 

111 08682 134 Do=C RESTORE PC 

112 08685 133 ADIEX 

113 08688 100 RO=A 

114 x 

115 O868B D2 FORIO § C=0 A 

116 O868D 3143 LCHEX 34 Var nane, init. val, limit, step 

117 08691 8E00 GOSUBL =NENCKL Check with leeway 
00 

118 08697 448 COC FORERR 

119 O869A 07 C=RSTK 

120 O869C D5 B=C A Restore variable nane 

121 O869E 118 C=RO RESTORE TRUE’ FORSTK 

122 O86A1 135 D1=C ACTUAL TOP OF FOR-NEXT STACK 

123 O86A4 1C€3 D1=D1- 4 

124 O86A7 7982 GOSUB NXTCK9 UPDATE FORSTK 

125 O86AB D4 A=B A 

126 O86AD 1593 DAT1=A 4 PUSH VBL ON FOR-NXT STK 

127 O86B1 8E00 GOSUBL =GETST SAVE STATUSES (S8,S2-sENDx) 
00 

128 O86B7 8E0 GOSUBL =RSNNNT DO ASSIGNMENT OF EXPR TO VBL 
00 

129 O86BD 30E LCHEX € 

130 O86C0 902 ?A=C OP Conplex? 

131 086C3 58 GOYES FORXQe 

132 * Update top of FOR-NEXT stack pointer 

133 08605 7B62 GOSUB NXTCK9 Update FORSTK 

134 x 

135 * Returns u/ DO pointing at tT0 

136 * 

137 O86C9 7603 GOSUB POPSH Throw linit on math stack 

138 : 

139 * Returns u/ D1 pointing to limit on FOR-NEXT stack 

140 * & DO pointing at tSTEP or staterient end token 

141 x 

142 O86CD 14A A=DATO B 

143 O86D0 3100 LC(2) =tSTEP 

144 086D4 966 RHC OB NOT STEP TOKEN? 

145 08607 At GOYES FRXQ30 

146 O86D9 76F2 GOSUB POPSH PUSH STEP ON FOR-NEXT STACK 

14? 

148 

149 

150 

151 Rx Mba eh oes he Dai ken AANA Ad need ELA WEL ORE Ree RS Ps 

152 * Check for an unordered STEP size (1.e. NaN ) 

153 * and record this info. in st. bit UNSTEP. -- J.T. 

154 

155 UNSTEP EQU 2 

156 

157 O86DD 05 SETDEC 

158 O86DF AF2 C=0 W A=STEP, C=0 


159 O86E2 28 P= 8 P="unord” 
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160 O86£4 
161 O86E8 
162 

163 O86EB 


2306 


7882 
5C1 


852 


164 O86EE 491 


165 
166 
167 
168 
163 O86F 1 
170 O86F4 
171 O86F7 
172 O86FA 
173 O86FD 
174 08701 
175 
176 08705 
177 08708 
178 08708 
179 
180 O870E 
181 08711 
182 
183 08714 
184 08718 
185 08718 
186 O871E 
187 08721 
188 
1893 
1% 
191 08723 
192 08725 


195 
196 0872B 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 0872E 


RFO 
B44 
BF4 
1CF 
1517 
7F22 


842 
17F 
17F 


133 
131 


1577 
AF? 
17F 
13? 
DE 


21 
8ER2 
80 


AFB 


872 


209 08731 41 
210 08733 
211 08736 
212 

213 0873A 473 


RFS 
?2t2 
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GOSUB utst12 STEP unord with O 7 (CARRY=> i 
GONC FRXQ35 (STEP is ordered ) 
ST=1 UNSTEP STEP unord. with 0 . 
GOC FRKQ40 (B.E.T.) : 
eS cacetia epecth Rt or re ben taste tee tend Ae deat ie rash So heat t 
* DEFAULT STEP VALUE IS +1 
FRXQ30 A=0 W DO POINTS AT EOL OR @ 
R=Ati § 
ASR W 
01=D1- 16 
DAT1=A W PUSH STEP VALUE OF 1 
GOSUB NXTCK9 UPDATE FORSTK 
*% READ INITIAL VALUE INTO D(W}; THEN COLLAPSE THAT ENTRY IN STACK 
FRXQ35 ST=0  UNSTEP STEP ordered 
FRXQ40 D1i=D1+ 16 
Di=D1i+ 16 
x 
ADIEX 
DI=A STRRT OF BLOCK TO DELETE 
x 
C=DAT1 W POP ASSIGNMENT VAL. INTO C 
D=C W 
D1=D1+ 16 PT D1 @ VAR NAME - END OF BLOCK 
CDIEX 
RCEX A 


: NOW CLOSE MEMORY TO DELETE ASSIGNMENT VALUE FROM FOR-NEXT STACK 


P= 1 ADJUST FORSTK & AVMENE POINTERS 
GOSUBL POPSTK CLOSE ’GAP’ 


* D1 PTS TO STEP VALUE 
& 
C=D W RESTORE ASSIGNMENT VALUE 


peer eor eee eee eseeee aera een seers seeereseereereeeeeee seem ee nee eseeoaeean 


Do the initial testing for the loop. -- J.T. 


1) If UNSTEP=1 then goto UNORD 
2) Test (INDEX=LIMNIT)*SGN(STEP) =< 0 


if "=<" then execute block. 
if ">" then exit loop. 
if “unord" then goto UNORD. 


me Fe Oe OO 


?S8T=1 UNSTEP 
GOYES UNORD 


B=C W 

GOSUB XQBLK? execute block? (i.e. "=<'"') 
* 01 POINTS TO LINIT VALUE ON STACK 

GOC FRXQ50 GO WITH CARRY SET 
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214 08730 888 ?P#H 8 ordered conpare (i.e. ">" 
215 08740 E2 GOYES FRXQ45 
216 08742 1CF D1=D1- 16 
217 
218 * Unordered paraneter in FOR staternent * 
219 
220 08745 UNORD 
221 08745 05 SETDEC 
222 08747 20 P= 0 
223 08749 3100 LC(2) =eUNORC unord. conpare msg. 
224 0874) 8E00 GOSUBL =INVRES signal IV oper. 
00 
225 08753 AFA A=C W A=NaN 
226 08756 137 CD1IEX 
227 08759 06 RSTK=C SAVE D1 
228 * SET UP S-R1-2 IN CASE OF TRACE 
229 * and call STORE 
230 0875B 7691 GOSUB TRCVAR 
231 0875F 07 C=RSTK 
232 08761 135 D1=C POINTING TO STEP 
233 08764 17F Di=D1+ 16 POINT TO LIMIT 
234 08767 D2 C=0 A 
235 08769 396A 7C=0 =«B (B,6012) ‘ 
236 0876C 60 GOYES FRXQ50 goes with carry set (since C=NaN) 
car i 
238 O876E 7CB1 FRXQ45 GOSUB NXTCK? clears carry : 
239 CLOT COE ET CEE OT eee Ree er eee ere re eee eee 
240 * DOESN’ T AFFECT CARRY 
241 x 
242 * Following routine CAN’T affect carry 
243 08772 8E0O FRXQ50 GOSUBL =DO=PCA 
00 
244 x 
245 08778 571 GONC FRNULL CARRY CLR=>DON’T DO LOOP 
246 * GET ADDRESS OF NEXT LINE 
247 0877B 7682 GOSUB LINSKP 
248 O877F 1CF D1=D1- 16 
249 08782 104 D1i=D1- 5 POINT TO WHERE RTN ADDR TO GO 
250 08785 141 DAT1=R A PUSH *RTN’ ADDR ON FOR-NEXT STACK 
251 08788 78A1 GOSUB NXTCK9 UPDATE FORSTK 
252 0878C 6951 GOTO = NXTSTS 
253 x 
254 * 
258 * FOR loop not to be executed at all; entry on FOR-NEXT stack is 
256 * already collapsed. D1 points at top of FOR-NEXT stack 
25? : 
258 08790 SEOO FRNULL GOSUBL =RSTST REST. STRTUSES (S8,S2-sENDx) 
00 
259 08796 163 DO=D0+ 4 PT TO INDEX VBL 
260 08793 146 C=DATO A 
261 O879C 108 RO=C SAVE INDEX VAR TO SCAN FOR 
262 O879F 1F76 D1=(5) =PRGMEN GET END OF PROGRAN TO SEARCH 
5F2 


263 087A6 147 


C=DAT1 
264 087A9 |? D=C 


A 
R 
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265 * DETERMINE IF RUNNING FROM A PROGRAM 
266 O87AB 136 CDOEX 
267 O87ARE 06 RSTK=C SAVE DO 
268 08780 870 *ST=1 13 RUNNING FROM PROGRAM ? 
269 08783 £0 GOYES FRNLO4 RUNNING FROM PROGRAN? 
270 * RUNNING FROM STATEMENT BUFFER - SET D(A) PROPERLY 
271 08785 7EE2 GOSUB EOLSCN 
272 08789 161 DO=D0+ 2 
273 O87BC 136 CDOEX 
274 O87BF D7 D=C A 
275 a 
276 087C1 07 FRNLO4 C=RSTK 
277 08703 134 po=C RESTORE 00 
278 08706 23 P= 3 
279 08708 878 *ST=1 8 
280 087CB 40 GOYES FRNLOS 
281 O87CD 21 P= 1 
282 O87CF S8OFF  FRNLOS CPEX 15 
283 
284 08703 183 FRNLO7 DO=D0- 4 PT TO LENGTH BYTE 
285 08706 7B22 GOSUB LINSKP & SCAN TO EOL (OR @) 
286 O87DA 20 P= 0 
287 O87DC 3100 . LC(2) =tNEXT >NEXT TOKEN’ 
288 
289 : SETS S9 TO SAVE LINEH, INITIALIZES A(A)=0 & F-RO-O 
290 
291 O87E0 75B2 GOSUB TKSCN? SCAN FOR NEXT ’NEXT’ STMT 
292 087E4 4AO GOC NXTSN? CARRY=>MATCH FOUND 
293 087E7 3100 LC (2) =eFwoNX FOR WITHOUT NEXT 
294 O87EB 6864 GOTO 3 3=onferr 
295 x 
296 O87EF 8ODF NXTSN7 P=C 15 RESTORE P 
297 O87F3 110 A=RO RESTORE INDEX ¥BL OF FOR STMT 
298 O87F6 161 DO=D0+ 2 PT TO INDEX VBL OF NEXT STMT 
299 087F9 1561 C=DATO WP 
300 O87FD 916 *AHC OP INDEX VBLS DON’T MATCH? 
1 08800 30 GOYES FRNLO7 
He * FOUND NEXT W/MATCHING INDEX VBL 
3 * CHECK IF NEED TO TRACE FLOW 
4 08802 183 DO=D0- 4 
5 08805 7364 GOSUB trflck 
6 08809 401 GOC FRNL2O IF NO NEED TO TRACE, FRNL20 
37 O880C 7844 GOSUB so trcfrn TRACE THE FROM LINE(THE FOR LINE) 
38 08810 8E00 GOSUBL =TRTO- TRACE THE TO LINE( THE NEXT LINE) 
0 
9 08816 7A44 GOSUB trefri1 
310 k 
311 0881A 6032 _FRNL20 GOTO NXTST2 
312 
313 x 
314 JOIST IOI ICICI CIC IIa 
315 JO UIC III ITO IOI TO IO TK TOT K 
316 ak 
317 kk Nane: NEXT - Executes NEXT statenent 


318 ze 
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319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
42 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
36? 
368 
369 
370 
3714 
372 
373 


O881E 
08820 
08824 
08826 
08829 
08828 
O882E 
08830 
08832 
08835 
08837 


0883A 
0883E 


ae 
xx 
xk 
ax 
wk 
xk 
aK 
xx 
ak 
kk 
aK 
a 
ak 
xk 
x 
xk 
xk 
ax 
xk 
xx 
xk 
xx 
ax 
xm 
xk 
ax 
a 
ax 
xx 
xx 
ax 
a 
ak 
a 
xk 


Miscellaneo 


Category: 
Purpose: 


Entry: 


Exit: 


Calls: 


Uses: 


Detail: 
Stack lvls 
History: 


06/30/82 
05/18/83 
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STEXEC 
Executes NEXT staternent 


DO points to index variable (past tNEXT) 
P=0 


2 CASES: 1) LOOP IS REPEATED. DO contains return 
address found on FOR/NEXT stack. 


2) LOOP IS TERMINATED. Data on FOR-NEXT 
stack pertaining to that index variable 
1s popped off the stack & control 
goes to NXTSTNM. 


NXTCK9, TRFRON, TRTO+, TRFLCK, STMBFD, DIFSTK, 
uAD12, INDXSN, EXPEXC, POPIR, XQBLK?, TRCVAR 


A-D, RO, S2, S8, D1, DO, S-RO-0 
If TRACE 1s on, additionally use: $9,R1,R2,S-R1-2 
+ RO-R3, all of function scratch, SO-S11 - EXPEXC 


HOOKS IN FOR TRACE 
: 6 


Progranner Modifications 

S.W Added docunentation 

S.W. NEXT in running progran rust 
check for collapsed staterent 
buffer - See SRH698-1 


FORO IO IOI OI TOO TOIT TO OI IO III IOC 
FOR OR OI IO IOI I IO OTTO ICI OO IO 


x 


* WEXT from keyboard; ensure that address on stack points within 
* the statenent buffer. If FOR issued in progran and progran 
* suspended, do not want NEXT to start executing inside progran 


06 NEXTKB RSTK=C Save on stack 
7897 GOSUB stnbfd Locate start of strit buffer 
D8 B=A A Save buffer length 
133 ABTEX Strit Buf Start 
07 C=RSTK *"Rtn’ address 
8B6 7CcA OR Addr prior to stmt buffer start? 
CO GOYES NXTE32 
CO R=R+B A Points past end of stmt buffer 
8BA 7C>=A A Address after end of buffer? 
50 GOYES NXTE32 
553 GONC NEXT10 (B.E.T.) 
* 
3100 NXTE32 LO(2) =eNXuoF 
6514 GOTO 3 =«nferr 
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374 x 
375 08842 0000 REL(S) =NXTDC 
0 
376 08847 0000 REL(5) =NXTP 
0 
377 O884C 7A21 =NEXT  GOSUB INDXSN 
378 08850 59E GONC NXTE32 NO MATCH? 
379 - * D1 POINTS TO VARIABLE ON FOR-NEXT STACK 
380 08853 1CF D1=D1- 16 
381 08856 1CF D1=D1- 16 
382 08859 1€4 D1=D1- 5 
383 O885C 7400 GOSUB NXTCK9 UPDATE AVMEME & FORSTK FROM 01 
384 * D1 pointing to ’Rtn’ Address 
385 08860 147 C=DAT1 A 
386 08863 8AR 7C=0 «6A 
387 08866 4D GOYES NXTE32 Collapsed in STMT buffer? 
388 08868 860 *ST=0 13 NEXT fron keyboard? 
389 08868 3B GOYES NEXTKB 
390 * Holding out on calling ’expexc’ for speed sake 
391 0886D 8EOO WNEXT1O GOSUBL =EXPEXC 
00 
392 08873 AFI C=B W Save var type & addr 
393 08876 8E00 GOSUBL =POP1R ENSURE IT’S REAL 
0 
394 * RETURNS IN DEC MODE 
395 x 
396 * VARIABLE VALUE IN A 
3397 * C(S)=TYPE; C(A)=VBL ADOR 
398 x 
3939 0887C 1B17 DO=(5) =S-RO-0 
8F2 
400 08883 1547 DATO=C W PREPARE FOR CALL TO ’STORE’ 
401 - 
402 08887 1AE9 DO=(4) =FORSTK 
SF 
403 0888D 146 C=DATO A 
404 08890 134 DO=C 
405 08893 164 DO=D0+ 5 
406 08896 1567 C=DATO W STEP INC 
407 * D1 is intact fron EXPEXC (points to end of avail nen) 
408 * This is necessary in case of warning 
409 0889A 8£00 GOSUBL =uAD12 C= VBL + STEP 
00 
410 * C IS THE VALUE TO STORE IN INDEX VARIABLE 
411 088A0 AFR A=C W 
412 * TRCVAR will: 
413 * 1) SETHEX 
414 * 2) Save variable address in case of TRACE 
415 * 3) Push variable on math stack - always needed by TRACE; 
416 : needed by STORE if variable doesn’t exist 
417 088A3 7E£40 GOSUB TRCVAR STORE PTR TO VAR NANE 
418 * STORE DESTROYS C 
419 088A7 113 A=R3 Recall value stored 
420 088AR AF8 B=A W 


421 x 





nb 
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422 
423 
424 088AD 


425 08884 
426 088B7 
427 088BB 
428 
429 O88BE 
430 088C1 
431 088C4 
432 
433 08807 
434 088CA 
435 
436 
43? 
438 O88CC 
439 O&88CF 
440 088D3 
44) 
442 08806 
443 088DA 


444 088E0 
445 08863 
446 088£6 
447 088E9 
448 
449 
450 O88ED 
451 088F1 
452 
453 
454 
455 
456 
45? 
458 
459 
460 
461 
462 
463 
464 
465 
466 
46? 
468 
463 
470 
471 
472 
473 
474 


8F00 
000 
174 
719 
513 


iCF 
1¢4 
143 


86F 
91 


130 
7993 
421 


7E73 
8E00 
00 
112 
130 
841 
6B71 


7030 
6651 
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* 8B = value of INDEX VBL 
x 
GOSBYL =DIFSTK Position Di to top of stk 
D1=D1+ 5 POINT TO STEP VALUE 
GOSUB XQBLK? 
GONC NXTDNE 
* CONTINUE LOOP - 01 POINTS AT LIMIT ON STACK 
D1=D1- 16 
01=D1- 5 D1 PTS AT ’RIN’ ADDRESS 
A=DAT1 A RTN ADDRESS IN A 
x 
*$T=0 «15 Not in TRACE node? 
GOYES NEXT55 YES => No TRACE 
k 
* CHECK TRACE MODE 
x 
DO=A 
GOSUB trflck Traps out execute fron KB 
GOC NXTST5 NO NEED TO TRACE 


* TRACE - don’t worry about speed 


GOSUB) strefrn 
GOSUBL =TRTO+ 
NEXTSO A=R2 
NEXT55 DO=A 
NKTSTS ST=0 = sENDx 
GOTO NXTST3 
x 
x LOOP DONE - COLLAPSE STACK ENTRY 
NXTONE GOSUB NXTCK? COLLAPSE STACK ENTRY 
GOTO NXTSTN 
x 
x 
* VT OT 
ew oe ages 
* A 2 INTEGER 
* 8B 1 SHORT 
aC XXX REAL (ARRAY) 
* D F STRING 
* 0-9 0 REAL (SCALAR) 
x 
x E COMPLEX 
x 
* PERTAINING TO VBL HEADER: IF DIG. 0>9 & DIG. 1<>0 => ARRAY 
* 


x 
FORO ORO TOO IO OI IO III IOI IOI IOI 
SOIC OO GUI OUI GOI OI OI OI ITO 
ak 


** Nane: TRCVAR - trace variable 
ae 


** Category: LOCAL 
ak 


** Purpose: 
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475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

49} 

492 

493 

494 

495 

496 

49? 

498 

499 

500 

501 

502 

503 

504 

505 

506 

50? 

508 

509 

510 O88F5 04 

511 

512 

513 O88F? 86F 

514 O88FR F1 

515 O88FC 1F97 
6F2 

516 08903 147 

517 08906 135 

518 08909 173 

519 0890C 137 

520 O890F 1FB8 
8F2 

521 08916 145 

522 

$23 08919 7300 

524 

525 

526 08910 1C4 

527 08920 740 
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ae Prepares for call to STORE & possible TRACE 
aK SETHEX 
an Writes out address of variable name in S-R1-2 and pushes 
ae variable assignment value on stack, in preparation for 
AK possible TRACE in STORE. Calls STORE 
ik 
tk Entry: 
ak PCADDR points at statenent length of FOR or NEXT stnt. 
ax A(W) contains value to be stored 
ak 
BESEXER: 
ae S-R1-2 as described above 
ais Index variable value on math stack 
ak HEX node 
ah P= 0 
ak via STORE 
ak 
*k Calls: C=MSTK, DT1=C 
ah 
BE USS aoe istas 
** Inclusive: C(9), D1, S-R1-2 
xx 
kK Stk lvls: 2 
ak 
*k History: 
ak 
as Date Progranner Modification 
PE MCeeeete, cher eeeeey. \EssSece tenets ee eeeseees aes 
kk 06/H#/82 SW. Added docurientation 
Rk 08/10/82 SLM. Value now pushed on stack 
Rk 10/11/82 SLU. Put in call to DIFSTK 
Kk 12/09/82 S.W. exits via STORE 
kk 


FOO III III TI TOI TO TOTTI IT IIT ITT II ITI KIO 
FOI TOI ITI III I I ITI IIIT IIT RI IIIT KK 


TRCVAR SETHEX 
* Next 2 instructions may be elininated to save code 
* A tine saver 
?ST=0 «15 Not in TRACE node? 
GOYES TRCVRS 
D1=(5) =PCADDR 


€=DAT1 A 

D1=C 

DI=D1+ 4 STEP OVER STMT LENGTH & TOKEN 
CDIEX 

D1=(5) =S-R1-2 


DAT1=C A 


TRCVR5 GOSUB C=MSTK Position C(A) to top of math stack 
* Can later cut sone code (13 nibs) by putting sone 
* overhead in NXTCK9, so MTHSTK will be updated already 

D1=D1- 5 Sane as 01=(5) =MTHSTK 

GOSUB 0T1=C UPDATE MTHSTK PTR & Pos D1 to it 


Saturn Assenbler 


Ver. 3.39/Rev. 206 


528 08924 1517 

529 08928 8000 
00 

530 

§31 

532 

533 

534 

§35 

536 

53? 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 O892E 17F 

$63 08931 173 

570 

571 08934 133 

572 08937 1F99 
SF2 

573 O893E 141 

574 08941 174 

575 08944 141 

576 08947 131 

577 0894R 03 

578 

579 

530 
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DAT1I=R W PUSH ON STACK 
GOLONG =STORE 


x 
x 
FOI RIT TIT TTR TET TK 
JOU OI TTT TOR TT EIT TI ITI TIT ITI 
ak 


kk Narie: NXTCK9 - NEXT Check 9 
kk 


kk Category: LOCAL 
ak 


** Purpose: Collapses FOR/NEXT stack entry; updates FORSTK 

ak 

** Entry: 2 ENTRY POINTS 

ax 1) NXTCK7 - ASSUMES D1 POINTS TO LIMIT VALUE ON 
ak STACK - COLLAPSES THAT ENTRY & UPDATES 
ak FORSTK. 

ak 

th 2) NXTCK9 - ASSUMES D1 CONTAINS VALUE DESIRED TO 
ts UPDATE FORSTK. 

ek Exit: 

ig ACA), D1 point to new top of the FOR/NEXT stack 

. Carry clear 

* 


*k Calls: none 
kk 


kK Stack lvls: 0 
kk 


ak Uses: ACA), D1 
ak 

kk History: 

ak 


ak Date Programmer Modifications 
1? oidoticot. weecediede, Uediutoseecaes 


ek 07/01/82 = SLM. Added docunentation 

ik 
JOIST OI IO IOC III IO II IK IK 
JUICE I II IIIS II IIE 
k 


* COLLAPSE ENTRY ON FOR-NEXT STACK 
NXTCK7 D1=D1+ 16 
D1=D1+ 4 POSITION TO BOTTOM OF STACK ENTRY 
* UPDATE POINTER 
NXTCK9 ADIEX 
D1=(5) =AVMENE 


DAT1=A A 

D1=D1+ (FORSTK)-(AVMENE ) 
DAT1=A A 

B1i=A 

RTNCC 


x 
FOUR TOTO JO IG IOI I IOI IO 
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581 SIR III KIRK RISA SII IIIS I III SI ISI IIS SSSSI SISOS IOS IIS SSIS IIIS ISS IN 
582 ax 
5383 ** Nane: XQBLK? - Execute Block? 

584 ax 

585 ** Category: LOCAL 

586 ax 

587 ** Purpose: 

588 ia Determines whether a FOR/NEXT loop is to be repeated 
589 ax (or executed at all) 

590 ak 

591 ** Entry: 

592 kx D1 POINTING AT STEP VALUE ON STACK 

593 ak INDEX VALUE IN B(W) 

594 ak 

595 RX Exit: 

596 ex P nay not be 0 ! 

597 ae D1 POINTING AT LIMIT VALUE ON STACK 

598 Rk HEX node 

599 ax CARRY SET => REPEAT (OR INITIATE) LOOP 

600 ax CLR => LOOP NOT TO BE REPEATED (OR INITIATED) 
601 xx 

602 ** Calls: TST12A 

603 ik 

604 ek Uses: A, B, C, P, 01 

605 hx 

606 tk Stk lvls: 2 

607 a 

608 ** Algorithn: 

6093 ex IF (INDEX VBL-LINIT)*SGNCINCRENENT) > O THEN DON’T DO LOOP 
610 xk E.G. A STEP SIZE OF ZERO MEANS AN INFINITE LOOP 

611 aK 

612 ** History: 

613 x 

614 ee Date Prograriner Modifications 

615 KR? seceoloaes <2iescoosin) wcscecece ecto; 

616 kK 07/01/82 SLU. Added docurientation 

617 ax 

618 IIS III III TI ITT III ISOS IIIS IIIS IIIS IIS ITS ISI SII IITA IIIS I IIIS IIA 
619 SI IIA IS III IIIT III IIIT IIIT III II III SOS III II II ISI OAS II III III AS IS 
620 LD a uh Ra ean ies aa tea En Desai Gog etitay telat ara * 
621 * Do the (INDEX-LIMIT)*SGN(STEP) =< 0 test. -- J.T. 

622 

623 0894C XQBLK? D1 AT STEP VALUE 

624 0894C 1537 R=DAT1 W STEP IN ACW) 

625 08950 1/7F D1i=D1+ 16 POINT AT LIMIT 

626 08953 1577 C=DAT1 W C=LIMIT 

627 08957 AFC ABEX W B=STEP, A=INDEX, C=LIMIT 

628 O895A 2E P= 14 

629 O835C 919 ?B=0 WP ISTEP!=0 ? 

630 O895F 71 GOYES XQEND execute block (carry set) 

631 08961 05 SETDEC 

632 08963 949 *B=0) oS STEP 20? 

633 08966 80 GOYES FRTEST 

634 08968 BCC =-A-1 $ I:=-I 

635 08968 BCE C=-C-1 § LIN: =-LIN 
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636 O896E 23 

637 08970 8£00 
00 

638 08976 04 

639 08978 01 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 0897R 858 

682 0897) 15R3 

683 08981 8£00 
00 

684 08387 23 

685 08989 49% 

686 

687 O898C 848 

688 O898F 11 
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FRIEST P= 3 Pa'cst 
utst12 GOSUBL =TST12A K<=LIMIT ? 
XQEND = SETHEX ; 
RTN carry set if true, clear otherwise. 


x 

x 

x 

FOI III TOI OI IIIT IIT OTOH 
SOOO JOU OOOO II II II IIIT 
ax 


&k Nare: INDXSN - Index Scan 
kK 


** Category: LOCAL 

kk 

** Purpose: SCANS FOR-NEXT STACK FOR AN INDEX VARIABLE WHICH 
ax MATCHES THE ONE IN PROGRAM LINE. 

xx 

** Entry: DO POINTS TO INDEX VARIABLE IN PROGRAM LINE> 

ax P=0 

xk 

** Exit: B(3-0) CONTAINS INDEX VARIABLE 

ts P=0 

xa CARRY SET=> MATCH FOUND. D1 POINTING TO THE MATCHING 
ax INDEX VARIABLE ON THE FOR-NEXT STACK. 

xx C(3-0) ALSO CONTAINS INDEX VARIABLE 

kx CLR=> NO MATCH FOUND. 

kk 

ax S8=1 => INDEX VARIABLE IN PROGRAM LINE IS ALPHA-DIGIT, 
kn OTHERWISE ALPHA 

ak 


&* Calls: RANGE 
th 


** Stack lvls: 0 
kk 


kk Uses: ACA), BCA), COA), D1, RO, S8 
ke 


** History: 
ae 
ie Date Prograrmer Modifications 
Ak oosesis, Coeeewoshe, Seioccaceuuce 
** 07/01/82 S.H. Added docurientation 
a* 
AUIS III ISESIGIGIUII EIEIO ISIS IO III Ik 
JOSIE EIEIO IIE SII I AGU I ISTO 
a 
INDXSN ST=1 8 Alpha-digit variable flag 
A=DATO 4 Read in index var fron progran 
GOSUBL =ARANGE 


P= 3 
GOC INDXO2 
® Single-character alpha variable 
ST=0 8 
B=0 A 
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689 08991 21 P= 1 
69% x 
691 08993 AIS INDXO2 B=A = WP 
692 08996 23 p= 3 
693 08998 1FE9 D1=(5) =FORSTK 
5F2 
694 O899F 147 C=DAT1 A 
695 O89R2 108 RO=C SAVE PTR TO TOP OF FOR-NEXT STACK 
696 O89A5 174 DI=D1+ 5 
697 O89A8 143 A=DAT1 A PTR TO *BOTTON’ OF FOR-NEXT STACK 
698 O89AB 135 INDX04 D1=C 
699 O89AE 8BA 70>=A_ A DONE SEARCHING? 
700 08981 C1 GOYES INDXO7 
701 089B3 17F D1=01+ 16 
702 089B6 17F 01=01+ 16 
703 08989 174 Di=D1+ 5 
704 O89BC 147 C=DAT1 A READ VBL ON STACK 
705 O89BF 911 *B=C =P MATCH? 
706 089C2 0 GOYES INDX08 
707 08904 173 D1=D1+ 4 
708 089C7 137 CD1EX 
709 O89CR SOE : GONC INDX04 (B.E.T.) 
710 
711 O89CD OD INDXO7 P=P-1 CLEAR CARRY 
712 O89CF 20 INDXO8 P= 0 
713 08901 01 RTN 
714 x 
715 x 
716 JI II IO OI II ITO TI SII SOT IOS IIIA III SITIOS IOS IIS AL 
7 JOR I IRI III III IIIS IIIS SII I II III III IS ISI III IIS ISIS SSI ISIS IS ITS TAN: 
718 an 
719 Kk Nane: POPSH - Pop/Push 
720 xx 
721 ** Category: LOCAL 
722 a 
723 ** Purpose: Calls EXPEX- (1st collapsing any residual data on 
724 ax the expression stack), ensures correct data type, 
725 . then pushes the value on the FOR/NEXT stack. 
726 
72? Entry: DO must point 2 nibs prior to start of expression 
728 z 
729 x Exit: DO past expression. 
7H aX D1 reflects the new top of the FOR/NEXT stack. 
731 ax P= 0 
732 ak Error exits if expression isn’t real numeric. 
733 ax ACW) contains the resultant nureric value. 
7314 xk 
735 ** Calls: EXPEX-, POPIR, C=MSTK 
736 a 
737 an Uses: A-D, RO-R3, D1,D0, SO-S11, all of function scratch 
738 . 
739 *k Stack lvls: 5 
740 kk 
741 ** History: 


742 kk 
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743 
744 
745 
746 
74? 
748 
749 
750 08903 
751 08906 


752 089DC 


753 O89E2 
754 
755 089E4 
756 
757 089E8 
758 O839EB 
759 O89EE 
760 
761 
762 
763 
764 089F0 


765 O89F7 
766 O89FR 
767 O89FD 
768 
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aK Date Programmer Modifications 
Wey sac eee ieee. Gee ee 
Kk 07/01/82 SU. Added docunentation 
kk 


FOI OI IIT TORT ITT TK 
FOO IU TOO OI ITT TOT ITO TTI II IO 
x 


161 POPSH DO=D0+ 2 SKIP OVER TOKEN 
8E00 GOSUBL =EXPEX- THROW EXP ON ARITH. STACK 
v0) 
8E00 GOSUBL =POP1R TAKE FORSTK AS AVNENE 
00 
04 SE THEX 
x 
7800 GOSUB C=MSTK 
k 
145 =DT1=C DATI=C A UPDATE FORSTK 
135 01=C 
03 RTNCC 
x 
* Leaves D1 at FORSTK and C(A) 16 nibs above the top of the 
* FOR-NEXT stack 
* 
8FOO C=MSTK GOSBYVL =D1FSTK 
000 
1CF D1=D1- 16 
13? CD1EX 
03 RTNCC 
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769 
770 FOI IO TTI TOSI IIIS ISS OSS SIS III ISI SSIS IIIS SII ISS SI ISIS IIS. 
771 FOI III OR JOU ITO TTT TTI 
772 aR 
773 xk Nane: LINSKP - Line Skip 
774 **t Nanie:(S) LNSKP- - Line Skip 
775 aE 
776 *% Category:  EXCUTL 
777 an 
778 ** Purpose: Skips to next statenent 
779 ak 
780 ** Entry: 2 entry points: 
781 = 1) LNSKP- - PCADDR points to stnt length byte 
782 fs 2) LINSKP - DO points to stmt length byte 
783 . 
784 aK Exit: DO points to end of statenent token (t@ or tEOL) 
785 ak ACA) = DO 
786 aK B(B) = Statenent length 
787 ae Carry Clear 
788 aR 
789 ** Calls: DO=PCA (LNSKP- entry only) 
790 ak 
794 Xt Stack lvls: 1 (LNSKP- only) 
792 xR © (LNSKP entry) 
793 a 
794 kt Uses: ACA), BCA), DO 
795 xs 
796 ** History: 
797 xt 
798 aR Date Progranner Modifications 
799 RE ee ee Sebktel tee Coateuneteeess 
800 ek 07/01/82 SLM. Added docunentation 
801 Kx 10/15/82 SW. Call to DO=PCA to save code 
802 kK 
803 JOR II I TI OSI IOS IOS I III I ISIS IIIS TI ISIS III IIIS IIIT IAAL 
804 JI IO III I IIIT ISIS TTI TIS TOSSA SIS II ITI IIT ISS III TAK 
805 * SCANS TO NEXT LINE OF PROGRAM MEMORY 
806 x 
807 O89FF 8EOO =LNSKP- GOSUBL =DO=PCA 
00 
808 * DO POINTS AT L.L. BYTE 
809 08A05 DO == LINSKP R=0 A 
810 O8R07 14A A=DATO B LINE LENGTH 
811 O8AOR D8 B=A A 
812 O8RAOC 132 ADOEX 
813 O8ROF CO A=A+B A POINTS TO EOL OR @ 
814 08A11 130 DO=A 


815 08A14 03 rtnec RTNCC 
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816 STITLE NXTSTM - Next staterient scan 
817 JI TORII OOO II TIT ITO II ITI TIO IASI IIIT ISIN 
818 JI IOI I I III TIS I ITT IT IS II III IIIS III III ITA III I III ITI IT IIIA 
819 ak 
820 *k Narie:(S) NXTSTM - Scan to Next Stnt/Junp to BASIC Loop 
821 xR 
822 ** Category: EXCUTL 
823 ak 
824 ** Purpose: Next statenent scan & junp to BASIC loop @ RUNRTN 
825 ak 
826 ** Entry: ENTRY POINTS: 
827 xe NXTSTM - entry point to go on to the following 
828 * statenent. No assurptions nade. 
829 ah PCADDR nust be current. 
830 ae sENDx flag will be explicitly cleared. 
831 ss entry point for IMAGE & REN. 
832 aa NXTST1 - Entry point for END execute. (sENDx=1) 
833 ae PCADDR must be current. 
834 as NXTST2 - DO points at statenent length byte. 
835 wk Assures sENDx 1s clear 
836 xR NXTST3 - DO points at EOL token 
837 x Assunes sENDx is clear 
838 ak NXTSTS - DO already points at EQL token 
839 Be Explicitly clears sENDx 
840 ae Entry pt for routines which nay 
841 - have inadvertantly set sENDx, perhaps 
842 ae via EXPEXC 
843 a 
844 ax LABEL - Label ’execute’ (NOP) 
845 ak DATA - DATA statenent execute (NOP) 
846 xx BANG - REM (!') execute (NOP) 
847 xt 
848 RAE SAt: DO POINTS TO @ OR EOL TOKEN 
849 SE Through RUNRTN 
850 a 
851 aR LABEL: 
852 = Skips ASCII Label 
853 me If Multi-statenent line ("@"') 
854 ae Through RUNXLP (to avoid SST between Labels) 
855 = else 
856 a Through RUNRIN (Haith DO @ EOL) 
857 xt 
858 ** Calls: none 
859 aR 
860 ** Stack lvls: 0 
861 - 
862 At Uses: A(R), BCA), C(R), DO, S1 (sENDx) 
863 AR 
864 ** Detail: USED TO ’EXECUTE’ REM, LABEL, DATA STATEMENTS 
865 ae 
866 ef The END Execute flag 1s ALWAYS cleared by NXTSTN 
867 aS END enters at NXTST1 wath sENDx set 
868 x This 18 necessary when a progran 1s NOT to continue 
863 ae 


870 *k Label Execute: 


Saturn Asserbler 


Miscellaneous Execution Routin Fri Dec ®, 1983 4:49 an 


Ver. 3.39/Rev. 2306 NXTSTM - Next statenent scan Page 18 
871 xk §=6 GEOL return to BASIC loop 
872 ae 
873 ** History: 
874 BK 
875 ak Date Programmer Modifications 
876 RX aes es. See ccesece: .  Seokeease cose 
877 AK 07/01/82 SW. Added docurentation 
878 tk 03/H/83 J.P. Shift C(B) for ASCII check 
&79 ak 
820 TUCO IS IID III I III IIIT IIIT IIIT ITT I IIIA IIIT III ISO ISIS IAS 
881 SIRI IORI RII IIIT ITT I TID T TTDI ID IS SIISIISTSIS SSSI SIS SSS IAI: 
882 * SCANS TO NEXT LINE OF PROGRAN MENORY 
883 & 
884 O8A16 0000 REL(S) =DATADC 
0 
885 O8A1B 0000 REL(5) =DATP 
0 


886 O8R20 6720 

887 

888 

889 

89 

891 

8392 

893 O8A24 162 

894 O8A27 161 

895 O8R2A 14E 

896 O8R2D Ab 

897 O8A30 56F 

898 O8A33 9OA 

899 O8A36 F2 

900 O8A38 8C% 
00 

901 O8A3E 0000 
0 

902 O8A43 0000 
0 

903 08R48 

904 O8R48 

905 08A48 

906 O8R48 841 

907 O8A4B 1B97 
6F2 

908 O8A52 142 

909 O8A55 130 

310 

911 

912 O8A58 DO 

913 O8A5A 148A 

914 O8A5D 136 

915 O8A60 CA 

916 O8A62 130 

917 O8A65 8CO0 
00 

918 


=DATA GOTO NXTSTN 
x 


* To prevent SST fron stopping between Labels: 


* Check if End of LABEL statement = EOL 

a High bit set --.> @ (F4) and EOL (FO) 

x If not, enter BASIC Loop to avoid SST pause 

* 

=LABEL DO=D0+ 3 Skip 3 nibs of Junp address 

LABL10 DO=D0+ 2 
C=DATO B Read ASCII char of Label 
C=C+C B Check for High bit set 
GONC  LABL1O Still ASCII 
C=O) oP EOL ? 
GOYES NXTST3 goto RUNRTN- assures sENDx=0 
GOLONG =BSCXLP Multi-statenent Label 
REL(5) =RENDC 
REL(S) =RENP 

=IMAGE 

=REN 

=BANG 

=NXTSTM ST=0 = sENDx Clear END Execute flag 

=NXTST1 DO=(5) =PCADDR END statenent Entry 
A=DATO A 
bO=A 


* DO POINTS AT L.L. BYTE 
* To save cycle tine, don’t call LINSKP 


=NXTST2 A=0 R 
A=DATO B Read in stnt length 
CDOEX 
A=A+C A Position to stnt terminator 
DO=A 
NXTST3 GOLONG =RUNRTN Return to Run Loop 


k 
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9139 EJECT 
920 JORIS IOI OT ITA TI ITT TTI ITI TIT ITOK 
921 JORIS OOO ITO TOOT OI TTI TIT SIT II TTI SII 
922 ak 
923 tk Nane:(S) TKSCN+ - Token Scan 
924 ** Name: TKSCN4 = - Token Scan 
925 RK Nane:(S) TKSCN? - Token Scan 
926 a 
927 *k Category:  EXCUTL 
928 aK 
929 ** Purpose: Search program menory (or statenent buffer) for 
930 ak a specific 2 nibble begin BASIC token 
931 ak 
932 *k Entry: C(B) contains token to natch on 
933 ak P=0 
934 ak D(A)= PRGHEN if in a progran 
935 aK = end of statenent buffer, otherwise 
936 ak 3 Entry points: 
937 ak 1) TKSCN+ - DO at tEOL before search start 
938 ak 2) TKSCN4 - DO at sone statenent length byte 
939 a 3) TKSCN7? - DO at tEOL or t@ before search start 
940 aK 
941 *k Exit: CARRY SET => Token found & DO points to it. 
942 AK CARRY CLR => Searched to progran end 
943 kk (or statenent buffer end) without 
944 ak finding a match. 
945 ak 
946 ak 
947 ** Calls: none 
948 ak 
949 *k Stack lvls: 0 
950 ak 
951 kk Uses: ACA), BCA), C(A), DO 
952 aK 
953 kk History: 
954 ax 
955 a Date Progranner Modifications 
956 RAS teoccctiee. sb doeetece,- ~aeisocecnmecis 
957 ak 07/01/82 = SW. Added docurentation 
958 Rk 07/07/82 9 S.W. Rll references to F-RO-O & S9 
959 ms to save CURRL have been 
960 at elininated. 
961 ak 
862 FORE ROO IO RO OI IOI OI OII OGIO 
963 JOO OR ICIS IOI ICO OOOO TIO 
964 i 
965 O8A6B 161 =TKSCN+ DO=D04 2 POINTS TO LINE NUMBER 
966 O8AGE 163) = TKSCN2 DO=DO+ 4 POINT TO LINE LENGTH 
967 O8A71 136 =TKSCN4 CDOEX 
968 O8A74 SBF *Co=D A NO MORE PGN NEM TO SEARCH? 
969 O8A7? DI GOYES rtnee 
970 O8A79 136 CDOEX 
971 O8A7C DO A=0 A 
972 O8A7E 14f A=DATO B LINE LENGTH 
973 O8A&1 D8 B=A A 
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974 O8A83 161 DO=D0+ 2 PT 10 BEGIN BASIC TOKEN 
975 O8A86 14A A=DATO B TOKEN IN PGN MEMORY 
976 O8A89 962 *A=C OB SAME AS SEARCH TOKEN? 
977 O8R8C 00 RTNYES CARRY=>NATCHING TOKEN FOUND 
978 O8A8E 132 ADOEX A(A) pts to begin BASIC token 
979 O8R391 CO A=R+B OA ACA) pts past @ or EOL 
980 08A93 132 ADOEX 
981 O8A96 131 DO=D0- 2 BACK UP TO @ OR EOL 
982 08A99 14Q =TKSCN? A=DATO B 
983 O8ASC 161 DO=D0+ 2 Pt at line# OR stnt length 
934 x (preceded by tEOL or t@) 
385 O8ASF 3900 PAHO | OP NOT EOL? 
986 O8AA2 FC GOYES TKSCN4 
987 * POINTING AT LINE# 
988 x 


989 O8AR4 59C GONC = TKSCN2 (B.E.T.) 
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9% EJECT 
991 JI I I IO TI ISI IIT ITI I ISI III ITI I III III IA IAT I IKI IA 
992 JOIST IO III IE II III III OTR II III TI III I IIIT IIIA AISI III IA 
993 aS 
994 ** Nane:(S) EQLSCN - tEOL Scan 
995 xk Nare: EQLSNS - tEOL Scan 
996 ** Nane: EOLSN? - tEOL Scan 
997 ax 
998 ** Category:  EXCUTL 
999 aK 
1000 ** Purpose: Scans to tEOL (as opposed to t@ OR tEOL) 
1001 ax 
1002 Zs 3 entry points: 
1003 aA 1) EOLSCN - PCADDR at current stnt len byte 
1004 ax 2) EOLSNS - DO at t@ or tEOL 
1005 kx C(B)=tEOL 
1006 ax 2) EQLSN7 - DO at t@ 
1007 aK C(B)=tEOL 
1008 ax 
1003 * Exit: DO POINTS TO EOL; ACB) = EOL TOKEN; CARRY SET 
1010 ak If EQLSCN entry point used, P=0. 
1011 ax 
1012 ** Calls: LINSKP 
1013 ne 
1014 ** Uses: ACA), BCR), CCB), DO 
1015 ax 
1016 ** Stack lvls: 2 
1017 ae 
1018 ** History: 
1019 ae 
1020 a Date Progranmer Modifications 
1021 RA ween eee eee en een eee e errr rene 
1022 K 07/01/82 SW. Added docurentation 
1923 . 01/17/83 S.W. Added EOLSN5 entry point 
* 
ios FORO ROOT IOI OTTO ITO OGIO IOI OO IOI IO: 
1026 JOU IO III ISIS III IIIS CITI TITRE 
1027 ; 
1028 O8AA? 20 =EOLSCN P= 0 
1023 O8RA9 310F LCHEX FO 
1030 O8RAD 7E4F GOSUB  LNSKP- 
1031 O8AB1 14A =EOLSN5 R=DATO B READ IN STATEMENT TERMINATOR 
1032 O8RB4 962 *A=C OB IS IT EQL? 
1033 O8AB? 00 RTNYES 
1034 O8AB9 161 =EQLSN? DO=D0+ 2 
1035 O8ABC 754F GOSUB  LINSKP 


1036 O8ACO SOF GONC = EOLSNS (B.E.T.) 
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1037 
1038 FIO III TO TTT RTOS EIST III IIIS STAI SII SII III IIA TIALS 
1039 FRIIS ITI IIIT IOS IIS SSS SIIIISII SS SOS SS III I SSS SAS: 
1040 ae 
1041 *x Nane: KEY - Executes KEY statenent 
1042 ee 
1043 **k Category:  STEXEC 
1044 aR 
1045 ** Purpose: Executes KEY statenent 
1046 ae 
1047 Entry: DO is past tKEY (pointing to string expression) 
1048 
1049 AE ENIL: Key assignrient (or de-assignnent) is reflected 
1050 aa in keys file. 
1051 ax Exits via NXTSTN 
1052 ak 
1053 - Calls: GYKYCD, KEYDEL, EXPEXC, REV$, KEYMRG, MOVEUN 
1054 
1055 A* Uses: 
1056 Kk exclusive... A-C, P, RO-R3, S8, S-RO-0, F-RO-1 
1057 e inclusive... A-D, all of function scratch, SO-S11 - EXPEXC 
1058 * 
1053 ** Detail: KEY ASSIGNMENT STORED AS: dd 11 t string literal 
1060 Ae WHERE dd IS THE HEX KEYCODE, 11 IS A 2 NIBBLE HEX 
1061 ale REPRESENTATION OF THE ENTIRE LENGTH OF THE KEY 
1062 as ASSIGNMENT ENTRY, & t IS A ONE NIBBLE ENCODING OF 
1063 ae THE ASSIGNMENT TYPE: © (tertinating), 
1064 Kx 1 (5; - non-terninating), 2 (: - immediate execute). 
1065 as THE STRING EXPRESSION TO BE ASSIGNED IS EXECUTED 
1066 as PRIOR TO BEING STORED IN THE KEY ASSIGNMENT AREA. 
1067 - KEY ASSIGNMENTS STORED IN ROW MAJOR ORDER. 
1068 x 
1069 ** Stack lvls: 6 
1070 aK 
1071 ** History: 
1072 a 
1073 ae Date Progranner Modifications 
1074 RK meee nee seen n cern reer ere ee eee 
1075 xX 10/03/82. §.C. Replace GOSUB PCCHK by ?S13=0 
1076 aM assuming $13 is valid 
107? Kk 07/01/82 SW. Added docunentation 
ak 
ioe JIG ISIS OSI TTT TT IIA ISI TIT ITS II 
1080 JIG CISOIIIOI OI IDI IT IIS IOS TS OTS SSI ISIS IOI III IIA 
1081 x 
1082 k 
1083 x 
1084 O8AT3 0000 REL(S) =KEYDC 
0 
1085 O8AC8 0000 REL(S) =KEYP 
0 


1086 O8ACD 712 
1087 
1088 
1089 


=KEY GOSUB GTKYCD 

* KEYCODE IN ROW MAJOR ORDER 
* FOUND VALID KEYCODE 

k 
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1090 O8AD1 14A R=DATO B 
1091 O8AD4 3100 LC(2) =tCONNA 
1092 O8AD8 962 7A=C OB 
1093 O8ADB 11 GOYES KEY42 
1094 x 
1095 O8ADD 7B42 GOSUB KEYDEL 
1096 O8RE1 666F GOTO = =©NKTSTN 
109? x 
1098 O8ARES 8D00 rdatty GOVLNG =RDATTY DATA TYPE 
000 
1099 x 
1100 O8REC RES KEY42 (C=B B 
1101 O8REF 1F17 D1=(5) =S-RO-0 
8F2 
1102 O8AF6 14D ; DATI=C B SAVE KEYCODE 
1103 
1104 O8AFS 161 00=00+ 2 STEP OVER CONMA TOKEN 
1105 O8AFC 8E00 GOSUBL =EXPEXC 
00 
1106 O8B02 31FO LCHEX OF 
1107 O8B06 966 AKC OB NOT STRING? 
1108 O8B09 CD GOYES rdatty 
1109 O8B0B 8FOO GOSBVL =REV$ REVERSE STRING ON STACK 
000 
1110 O8B12 171 D1i=D1+ 2 
1411 08815 143 R=DAT1 A 
1112 08B18 D8 B=A A STRING LENGTH 
1113 O8B1A D2 C=0 A 
1114 O8B1C 31AF LCHEX FA MAXINUN CHARS IS 125 (250 NIBS) 
1115 08B20 8BA ?Ac=C OA 
1116 08B23 40 GOYES KEY45 
1117 08B25 D5 B=C A FF IS MAX KEY ASSIGN ENTRY LENGTH 
1118 08B27 17D KEY45 01=D1+ 14 POSITION D1 AT STRING ON STACK 
1119 O8B2A 14A A=DATO B 
1120 O8B2D ACI B=0 S 
1121 08830 3183 LCASC =\3\ 
1122 08834 962 *A=C OB 
1123 08837 DO GOYES KEY4? 
1124 08839 WA (COV). NEN 
1125 O8B3C 966 ARC OB NOT ’?:’? 
1126 O&8B3F 80 GOYES KEY50 
112? 08841 B45 B=B+1 S 
1128 08844 B45 KEY4? B=B+1) §$ B(S)= O=>strt end 12>; 25>: 
1129 * 
1130 08847 1B17 KEY50 DO=(5) =S-RO-0 
8F2 
1131 O8B4E DO A=0 R 
1132 O8B50 14A R=DATO B 
1133 x 
1134 08853 DC ABEX A RESTORE KEYCODE 
1135 08B55 7630 GOSUB KEYMRG 
1136 ‘ 
113? * WRITE GUT NEW ENTRY 
1138 08B59 112 R=R2 


1139 O8B5C 1593 BATI=A 4 WRITE OUT KEYCODE & LENGTH 
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1140 08860 173 Di=D1+ 4 
1141 08863 1514 DATI=A S WRITE OUT ENCODING FOR ; OR : 
1142 08B67 170 D1=D1+ 1 BGN DEST. 
1143 x 
1144 * NOW PREPARE TO COPY UP STRING ASSIGNMENT 
1145 08B6A 1899 DO=(5) =AVNENE 
5F2 
1146 08B71 146 C=DRTO A 
1147 08B74 134 DO=C AYMENE 
1148 08877 BF4 ASR W 
1149 08B7R BF4 ASR W LENGTH OF ENTRY 
1150 08B7D D2 C=0) OA 
1151 O8B7F 305 LCHEX 5 
1152 O8B82 EE C=A-C A STRING LENGTH 
1153 08884 16F DO=D0+ 16 BGN SOURCE 
1154 x 
1155 08B87 73B7 =MOVNXT GOSUB NOveu3 COPY STRING 
1156 O8B8B 6CBE GOTO = NXTSTN 
1157 x 
1158 x 
1159 FOTO II JIT I ITT TOR OO 
1160 FOR RIOT OI TOT UI OOOO OOOO 
1161 xk 
1162 ** Nanie:(S) KEYMRG - Key Merge 
1163 ** Nare: KYMRG+ - Key Merge 
1164 ak 
1165 *X Category:  FILUTL 
1166 at 
1167 *% Purpose: Creates space for new entry in keys file 
1168 RR 
1169 ak Entry: P= 0 
1170 ak B(A) = HEX Keycode 
1171 a 2 ENTRY POINTS: 
1172 xx 1) KEYMRG - ACA) =Length of assignment string 
1173 ak 2) KYMRG+ - C(B) =Keycode 
1174 a C(6-2)= Length of assignment string 
1175 xk 
1176 RS ERA: D1 points to start of new entry 
1177 a R2(B) = Keycode; R2(3-2) = Entry length 
1178 a R2(S) = B(S) on entry 
1179 a B(A) = offset to tienory 
1180 - R3 = Pointer to keys file header 
1181 aA Carry clear 
1182 aR via RSTD1 
1183 aA 
1184 ** Calls: KNENCK, CREATF, MOVEDN, RFRDJ+, KYDNH, 
1185 x KEYFND, KYPRCK, LAKEYS, UPDFCL 
1186 ak 
1187 xk Uses: A-D, D1, 00, RO-R3, F-RO-1, S6, S88 
1188 ae 
1189 *® Stack lvls: 5 
1190 RR 
1191 x* History: 
1192 ae 


1193 Date Programmer Modifications 
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1194 Ae seeerers: Sl eetnatae <aeeaenacenes 
1195 *X 07/01/82 SW. Added docunentation 
1196 xk 11/02/82 SLM. Added call to UPDFCL 
1197 xk 12/29/82 S.M. Eliminated call to RFAD85 
wh 

ae SUIT ID II TI ITI TOT IIIT ITT TIT IIIT IIIT TIT II IIT I IIIT III TTI AK 
1200 JIT I I I ITAA IIIT ITI ITI ITO SII IDI III IAII III IIIS IIS SIT I IK 
1201 x 
1202 O8B8F D2 =KEYNRG C=0 8A 
1203 08831 305 LCHEX 5 
1204 08894 C2 C=C+A A TOTAL ENTRY LENGTH 
1205 08896 BF2 CSL OW 
1206 08B99 BF2 (SLOW 
1207 O8B9C AREY C=B OB 
1208 O8B9F ACS C=B S C(S)=tern;C(B)=KC;C(3-2)=Entry len. 
1209 O8BA2 10R =KYMRG+ R2=C 
1210 x 
1211 O8BRS 7FO1 GOSUB KEYFND 
1212 O8BA9 112 A=R2 
1213 O8BAC AF8 B=A 
1214 O8BAF BFS BSR 
1215 O8BB2 BFS BSR WW BCA)=LENGTH OF NEW ENTRY 
1216 O8BB5 463 GOC = KMRG30 
1217 O8BB8 D2 t=O 836A 
1218 O8BBA 868 7$T=0 8 keys FILE EXISTS? 
1219 O8BBD 73 GOYES KMRG30 
1220 * CREATE keys FILE 
1221 O8BBF 3152 LC(2) (oF LENn)+(oKYsod) 
1222 O8BC3 C1 B=B+C A ENTIRE ANT OF MEM NEEDED TO ADD 
1223 O8BC5 7280 GOSUB KNENCK 
1224 * 
1225 08809 D9 C=-B OA SIZE OF FILE TO CREATE 
1226 O8BCB 7000 GOSUB =CREATF CREATE FILE 
1227 O8BCF 119 C=R1 
1228 O8BD2 135 b1=C PTR TO FILE HEADER 
1229 O8BD5 8E0O GOSUBL =LAKEYS 

00 
1230 O8BDB 15DF DAT1=C 1LFNAMh WRITE OUT FILE NANE 
1231 O8BDF 17F D1=D1+ oF TYPh 
1232 O8BE2 33C0 LC(4) =F KEY 

2E 
1233 O8BE8 1503 DAT1=C LFTYPh WRITE OUT FILE TYPE 
1234 O8BEC 17F D1=D1+ (1FLAGH)+(LFTYPh)+(1DATEH)+(1TINEh) 
1235 O8BEF 174 D1=D1+ (1FLENh) POINT TO HEADER END 
1236 O8BF2 01 RTN 
1237 > 
1238 * KEY FOUND - IF R2-C(A)>0, GO ON TO KNRGSO (EXPAND ENTRY) 
1239 * ELSE CONTRACT ENTRY 
1240 s 
1241 O8BF4 133  KMRG3O ADIEX SAVE PTR TO EXISTING ENTRY 
1242 O8BF? 1FOA Di=(5) =F-RO-1 

8F2 
1243 O8BFE 141 DAT1I=A A 
1244 08001 7951 GOSUB  KYPRCK CK PROTECTION OF keys FILE 


1245 08C05 143 A=DAT1 A 
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1246 O8C08 CR 
1247 O8COR 100 
1248 O8COD E1 


1249 O8COF 501 


1250 


1251 O8C12 Dé 
1252 08€14 C9 
1253 08C16 135 


1254 08(19 7431 


x 
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A=A+C A END OF EXISTING ENTRY (BGN SOURCE) 
RO=A SAVE BGN SOURCE 
B=B-C A 
GONC  KMRGSS 

CONTRACT BY ANT. IN B; D1 IS BGN SOURCE; D1+B IS BON DEST. 
C=A A 
C=C+B A BGN DESTINATION 
01=C 
GOSUB KYD3 Moves nen,calls RFADJ-, updates ptrs 
GONC KNRG85 (B.E.1.) 


1255 08C1D 501 


1256 
1257 


1258 08€20 7720 


1259 08024 CO 
1260 O8€26 131 
1261 O8C€29 EO 
1262 O8€2B 118 


1263 O8€2E 8FOO 


1264 


1265 08C€35 8E00 


1266 


000 


© 


1267 O8C3B 118 


1268 O&8C3E 8E00 


1269 


1270 08044 8D00 


1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
128? 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 


00 


000 


x 
x 


K 


EXPAND keys 
MRGSS GOSUB 


FILE BY ANT. IN B - A, RO POINT TO BGN SOURCE 
KMENCK 


A=A+B A END DEST. 
D1=A 
A=A-B AR End source 
C=RO Bgn source 
GOSBVL =MOVED2 

* Begin Source is in RO 
GOSUBL =RFAD++ 

k 

KNRG8S C=R3 PTR TO HEADER START 
GOSUBL =UPDFCL 

* WANT D1 POSITIONED AT ENTRY STILL 

=rstdi GOVLNG =RSTD1 


x 
x 


FORO IO TO TTT TTI TT IIIT III 
FORO JOTI TO ITO TO TTT TTT III 


ak 
ak 
xk 
ak 
aK 
x 
ak 
ax 
ak 
xk 
ak 
ax 
ak 
ak 
ak 
ak 
xk 
xk 
ak 
xk 
ak 
ax 


Nane: K 
Category: 
Purpose: 


Entry: 


Exit: 


Calls: 


Stack lvis 


MEMCK - Menory Check 
GENUTL 
Checks anount of nenory left 


B(A)= Anount of nenory needed 
P=0 to ensure check with leeway 


RETURN => THERE’S ENOUGH MEMORY 
Carry set 
D1 at AVNENS 
B(A) preserved 
A(R) = (AVNENS) 
C(A) = nenory left after allocation 
ELSE ERROR EXITS 


NENCL+ 
aa 
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1297 aX Uses: ACA), CCA), D1 
1298 ke 
1299 **k History: 
1300 kk 
1301 xe Date Progranner Modifications 
1302 RKO ~------- 0 ---------- 00 ------------- 
1303 KK 07/01/82 = SW. Added docunentation 
1304 RK 10/12/82 = S.W. Calls MENCL+ to check with 
1305 ak leeway. 
1306 ak 
4307 JI DOO OG IGOIG ISU CI ET ER 
1308 JOO II TOI IIT IOI ITT TI TO TT 
1309 & 
1319 * 
1311 O8C4B 8E0O =KMENCK GOSUBL =NENCL+ 


00 
1312 08€51 500 
1313 
1314 08€54 6000 
1315 
1316 
1317 08058 136 
1318 O8C5B 10R 
1319 O8C5E 8E00 
00 
1320 08C64 11A 
1321 O8C6?7 134 
1322 O8C6R 01 
1323 O8C6C 8C00 
00 
1324 
1325 O8C72 76FF 
1326 08€76 400 
1327 08079 8000 
00 
1328 


RTNNC 
x 


nferr GOTO =M"FERR 
k 
k 


trefrn CDOEX 
R2=C Save DO 
GOSUBL =TRFRON 


trefri C=R2 Restore DO 
BO=C 
RIN 

trflck GOLONG =TRFLCK 


x 


=SNerlf GOSUB  trflck 
RTNC 
GOLONG =CRLFSD 


Saturn Assenbler Miscellaneous Execution Routin Fri Dec 30, 1983 4:49 an 


] Ver. 3.39/Rev. 2306 PSHSTK - Open up Stack Page 28 
1329 STITLE PSHSTK - Open up Stack 
13% JU IO OO IIIS IOS SOS IOS OSI SI SSI OSI OSS II IIIS III II 
1331 $I IOI ISO ITO TIS II SIT III ASI IIIS STII I AISI III II IIS IOS SIS 
1332 ae 
1333 *& Wane: (S) PSHSTK - Push Stack 
1334 ** Ware: (S) PSHSTL - Push Stack 
1335 ae 
1336 ** Category:  GENUTL 
1337 ax : 
1338 ** Purpose: Moves high nenory to lower nenory to allow ’push’ 
1339 x onto GOSUB, VARIABLE, or sone other stack. 
1340 kk 
1341 4 Push address on stack with NO LEEWAY check 
1342 x 
1343 ** Entry: 
1344 ak 00 pointer to top of stack pointer 
1345 a B(A)= Ant nenory needs to ’open up’. 
1346 aK PSHSTK: 
f 1347 kk P=n-1 where n=# pointers to be adjusted 
4 1348 ax LEEWAY will ALWAYS be checked 
1349 ax PSHSTL: 
1350 x C(O) = # pointers to be adjusted 
1351 ak P= non-zero if LEEWAY not to be checked 
1352 a 
1353 *X Exit: Carry Clear: 
1354 ak B(A) is preserved 
1355 ee P=0 
1356 aK D1 points to new top of stack 
1357 a RAN pointers are adjusted 
1358 ax Error Exit 
1359 ax Insufficient Menory to open stack 
1360 aX 
1361 ** Calls: MOVEU1, PTRAD1, MENCL+ 
1362 xe 
1363 *k Uses: A, CA), DCA), DO, D1 
1364 aX 
1365 ** Detail: Usefulness of this routine could be extended 
1366 ax to variable creation, CALL/SUB. etc 
1367 ak 
1368 a GOSUB required C(S) not be altered. 
1369 x 
1370 x Preserves math stack. 
1371 kx 
1372 ** Stack lvls: 1 
1373 - 
1374 xx History: 
1375 a 
1376 aX Date Progranner Modifications 
1377 RK wenn nen ween en eene- w+ ---------- 
1378 kK 07/04/82 S.W. Added docunentation 
1379 kk 08/10/82 = S.W. Modified to preserve math stk 
1380 *k 09/30/82 J.P. Added NENCL+ call, renoved R1 
1381 RK 10/12/82 S.W. Changed D=C B to A field. 
1382 = Replaced MEMCL+ with KMEMCK. 
1383 kk 10/29/82 SLU. Took out KMENCK call, due to 
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1384 a subroutine levels - PSHSTK 
1385 ak to be used by GOSUB/GOSUB 
1386 kk 02/15/83 J.P. Added PSHSTL entry for no 
1387 x LEEWAY check 
1388 : oe 
1389 III I III ATT III III III III III III ISI SSSI SS TT IS ISI I IIIS SIS I SSSI SSSI. 
13% JI IOI OTT IIS III IIS II TIO TI IAT TOS OTITIS II SSI ITO TSI I IAI SK 
1391 x 
1392 ' 
1393 O8C?7F 80FO =PSHSTK CPEX 0 
1394 08€83 20 P= 0 Men Check with Leeway setting 
1395 ‘ 
1396 * Entry point so LEEWAY will not be checked 
1397 x — P should be non zero 
1398 x (€(0) = # pointers to adjust 
1399 
1400 08C85 D7 ==PSHSTL D=C A SAVE #PTRS TO ADJUST 
1401 08C8? 8E00 GOSUBL =MENCL+ Enough nenory ? 
00 
1402 * D1 at AVNENS 
1403 O8C8D 46C GOC nferr 
1404 & 
1405 * For entry to MOVEU1 
1406 x 00 @ Pointer to End Source 
1407 x 01 @ Start of Destination 
1408 : A @ Start of source 
1409 x 
1410 08090 1099 Di=(2) =AVNENE 
1411 08094 143 A=DAT1 A Start of Source 
1412 08C97 Dé C=A A 
1413 08C99 E9 C=C-B A Start of DESTINATION 
1414 08C9B 135 D1=C 
1415 O8C9E 8F0O GOSBVL =NOVEU1 CREATE SPACE 
000 
1416 * DO= END SOURCE (END DEST. FOR COPY DOWN) 
1417 * Di= END DEST. ( NEW TOP OF STACK) 
1418 * 
1419 O8CAS F9 B=-B A POINTERS WILL BE DECRENENTED 
1420 O8CA? 136 CDOEX 
1421 * 
1422 * Renoved R1=C setting 
1423 * Cannot used "R" registers, no one calling PSHSTK used R1 
1424 
1425 O8CAR DB C=D A 
1426 O8CALC 8OFO CPEX 0 RESTORE P 
1427 O8CBO 7FC2 GOSUB PTRAD1 ADJUST PTRS 
1428 O8CB4 F9 B=-B A ANT. OF NIBBLES TO PUSH ON STACK 
1429 O8CBe 03 RTNCC 
14% * 
1431 * 
1432 SOROS OOOJOJOTO OOO OOIO OO O ROIOUI OI OITE 
1433 JOIST II I IO III II TI III IIT ISI TI IAT AISI I SIS SAT SIS I AS: 
1434 a 
14386 ** Narie:(S) KEYFND - Key Assignnent Find 


1436 ** Nane: KYFND+ - Key Assignnent Find 
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1437 a 
1438 **& Category: EXCUTL 
1439 aK 
1440 = Purpose: FINDS SPECIFIED KEY ASSIGNMENT IN keys FILE 
1441 x 
1442 ** Entry: P= 9 
1443 a 2 entry points: 
1444 ae 1) KEYFND - 8(A)=keycode 
1445 ict 2) KYFND+ - D(A)=keycode 
1446 a A(A) points to header of keys file 
1447 ak 
1448 KK Exit: CARRY CLR=> NO MATCH 
1449 ak D1 points past last entry which 
1450 ak had a smaller keycode value 
1451 ae SET=> MATCH FOUND. 01 AT ENTRY. 
1452 an C(A)=Entire entry length 
1453 ax DO points to file header end 
1454 ak P=0 
1455 ak B(A)=KEYCODE 
1456 ak If entry point KEYFND was used then: 
1457 ak S8=1=> NO keys FILE 
1458 wk =0=> DO POINTS TO FILE HEADER END 
1459 aR R3 POINTS TO FILE START 
1460 ax 
1461 ** Calls: FILEF, LAKEYS - only KEYFND entry point 
1462 xk 
1463 ** Uses: 
1464 *k exclusive... A, B(A), C, D, D1, DO 
1465 ** inclusive... A, B(A), C, D, D1, DO, S6,S8, R3 - KEYFND 
1466 ae 
1467 xk Stack lvls: 1 KEYFND entry 
1468 ks © KYFND+ entry 
1469 aK 
1470 ** History: 
1471 aK 
1472 *k Date Programmer Modifications 
1473 KK wenn ween ener n en coerce nnnn- 
1474 kk 07/01/82 SLU. Added docunentation 

kk 
Vue JI III I ITO TITS SOTTO SIS SSI IOS SOR IORI ISIS CII IIIT IK 
1477 JOII GOI ISO TOOTS IO SOS STII OTS IS IE 
1478 x 
1479 O8CB8 8E00 =KEYFND GOSUBL =LAKEYS 

00 
1480 O8CBE DD BCEX A 
1481 O8CCO D7 b=C A SAVE KEY CODE 
1482 O8CC2 8E0O GOSUBL =FILEF SEARCH NAINFRANE ONLY 
00 

1483 O8CC8 4D5 GOC = KYFD30 FILE DOESN’T EXIST? 
1484 x 
1485 O8CCB 848 ST=0 8 
1486 * FILE EXISTS - NOW LOOK FOR SPECIFIED KEYCODE 
148? O&8CCE 133 ADIEX 
1488 O8CD1 103 R3=A 
1489 O8CD4 D2 =KYFND+ C=0 A 
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1490 O8CD6 3102 LC(2) (oF LENh) 
1491 O8CDA CA A=AeC A PTR TO FILE LENGTH FIELD 
1492 O8CDC 131 D1=A PTR TO HEADER END 
1493 O8CDF 3150 LC(2)  =okYsod 
1494 O8CE3 C2 C=C+A A PTR TO HEADER END 
1495 O8CES 134 bo=C 
1496 O8CE8 143 R=DAT1 A FILE LENGTH 
1497 O8CEB 137 CD1EX 
1498 O8CEE C2 C=C+A A Pointer to file end 
1499 O8CFO DF CBEX A D(A)=file end ptr; C(R)=keycode 
1500 O8CF2 DS B=C A 
1501 x 
1502 O8CF4 136 CDOEX 
1503 O8CF? 134 bo=C 
1504 O8CFA 135 KYFDIO D1=C 
1505 O8CFD 8BF 7C>=D A 
1506 O8D00 A2 GOYES KYFD40 
150? O8D02 DO A=0 A 
1508 08004 148 A=DAT1 B KEYCODE IN ACA) 
1509 08D07 D2 C=0 A 
1510 O8D09 171 Di=D1+ 2 
1511 O8DOC 14F C=DAT1 B ENTRY LENGTH IN C(A) 
1512 O8DOF 11 D1=D1- 2 
1513 08D12 8B8 7A>=B A MUST do test on A field 
1514 08015 GOYES KYFD20 
1515 O8D17 133 ADIEX 
1516 O8DIA C2 C=A+C A 
1517 O8D1C 5D0 GONC KYFD10 (B.E.T.) 
1518 x 
1519 O8D1F 8RO  KYFD20 7A=B OA 
1520 O8D22 © RTNYES 
1521 08024 01 RTN 
1522 * 
1523 08026 DB KYFD30 C=D A 
1524 08028 DS 8=C A 
1525 O8D2A 03 KYFD40 RTNCC SA WAS HERE 6-9-82 
1526 : 
152? . 
1528 POEteCeettesselesctesctrsreteteseccetitstttetettettesttttttetett! 
1529 ISIE III IG III IIIT OO TTT II 
1530 ae 
1531 ** Nane:(S) KEYDEL - Key Assignnent Delete 
1532 Re 
1533 ** Category:  EXCUTL 
1534 as 
1535 ** Purpose: If there's an assignnent string associated with 
1536 am specified key, delete it. 
1537 + 
1538 *k Entry: B(A) = Keycode 
1539 an P=0 
1540 a 
1541 BR ERE! P=6 
1542 AR Carry Clear 
1543 ae Any assignment to that key 1s deleted 


1544 as via RFAD-- 
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1545 ae 
1546 ** Calls: KEYFND, MOVEUN, KYPRCK 
1547 aS 
1548 ** Uses: A-D, D1, DO, RO,R1,R3, S6,S8 
1549 ak 
1550 ** Stack lvls: 3 
1551 ah 
1552 A History: 
1553 aR 
1554 a Date Progranner Modifications 
1555 RR nen enn ne none nen ene meee nn nee ---- 
1556 *k 07/01/82 SLU. Added docunentation 
1557 - 12/29/82 S.W. Elininated call to RFAD94 

x 
tec SIO SII II TOI III ITI SII III IIS II III III III ISI SSSI SII SIS IIIS SIS AIS IIS: 
1560 JOO OTITIS TIS TOSI III O SSI IOS IIIS IOS IIS II SAIS: 
1561 & 
1562 O8D2C 788F =KEYDEL GOSUB KEYFND 
1563 08030 500 RTNNC 
1564 08033 7720 GOSUB KYPRCK CHECK PROTECTION ON keys FILE 
1565 08037 184 DO=D0- oKYsod POINT TO FILE LENGTH 
1566 08D3A 142 A=DATO A 
1567 0803D EA A=A-C A NEW FILE LENGTH 
1568 O8D3F 140 DATO=A A UPDATE LENGTH FIELD 
1569 08042 D5 B=C A 
1570 08D44 F9 B=-B A OF FSET 
1571 08046 133 ADIEX 
1572 08D49 131 D1=A BGN DEST. 
1573 O8D4C CA A=A+C A BGN SOURCE 
1574 08D4E 100 RO=A SAVE FOR RFADJ- 
1575 08D51 8FOO KYD30 GOSBVL =MOVEUA DELETE ENTRY IN key FILE 

000 
1576 x 
1577 * Begin source in RO 
1578 08D58 8C00 GOLONG =RFAD-- 
0 

1579 x 
1580 JOIST O IOI IIS III IIT III IIIA ISI IS ISIS ISS SII ISI IST IS ISS SISA 
1581 JI III OSI IIIS IOS I II III III IIIS ISAS I SIS SSS ISIS ISS ISIS SSS ISI IA 
1582 ne 
1583 x* Narie: KYPRCK - Check keys File Protection 
1584 a 
1585 **% Category:  FILUTL 
1586 a 
1587 ** Purpose: 
1588 xe Checks protection of file pointed to by R3 (assures 
1589 an KEYFND called) while preserving C(A) & D1 
1590 a 
1591 *k Entry: 
1592 ak P = 0 
1593 x R3 points to file header 
1594 a 
1595 AE EREt: 
1596 ae P=0 
1597 aes R3 points to file header 
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1598 Ae SB=0 
1599 es Carry Set => File was not secure 
1600 ae else error exit 
1601 aK 
1602 aX Calis: GETPRO 
1603 ne 
1604 AI OUSES) crates 
1605 ** Inclusive: A(A), D(A), SB 
1606 ia 
1607 ** Stk lvls: 2 
1608 ak 
1609 *k History: 
1610 ak 
16114 aE Date Prograriner Modification 
1612 RR ween nnn eee renee ween een eenne 
1613 &k 07/01/82 SH. Added docunentation 

kk 
fee JO III OIC TTI TOT TIO TT III SIT IIIS ISI TSI SI IISA 
1616 FOI IIIT TIT IIR RIOT ITT T SSIS II ISI IIIS ISS SST IIIT IS 
1617 x 
1618 - 
1619 O8D5E 06 KYPRCK RSTK=C SAVE C(A) 
1620 08D60 137 CDIEX 
1621 08D63 D? B=C A SAVE D1 
1622 * 
1623 08D65 113 A=R3 PTR TO FILE HEADER 
1624 08D68 8EOO GOSUBL =GETPR 

00 

1625 - 
1626 O8D6E 832 ?SB=0 
1627 08071 60 GOYES KYPRC2 not SECURE? 
1628 08073 6000 GOTO =NFERR Err# loaded in C 
1629 x 
1630 08D77 DB KYPRC2 C=D A 
1631 08079 135 D1=C RESTORE 01 
1632 08D7C 0? C=RSTK RESTORE C(A) 
1633 O8D7E 01 RTN 
1634 * 
1635 . 
1636 JUICES III UII III TO II TI TO TOK 
1637 JOO UII IOC TIS TI TIO TITS TTR IH 
1638 os 
1639 ** Nane:(S) GIKYCD - Get Keycade 
1640 ak Narie:(S) GTIKYC+ - Get Keycode 
1641 a 
1642 ** Category:  EXCUTL 
1643 a 
1644 ** Purpose: Evaluates string expression & returns keycode 
1645 a 
1646 a The GTIKYCD entry assures that DO points to the 
1647 a expression to be evaluated. It errors if the 
1648 a string is null. 
1649 a 
1650 ae GTKYC+ assunes that the evaluated expression 


1651 a is already on the stack. A status bit setting 
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1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1638? 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 O8D80 6801 
1701 
1702 08084 135 
1703 08087 1537 
1704 O8D8B 85A 
1705 O8D8E 6CO00 
1706 


xk 
ak 
ar 
ak 
ak 
xk 
ak 
ak 
aK 
ax 
ak 
ak 
xk 
ak 
ak 
ak 
aK 
ak 
ak 
ak 
aX 
ak 
ak 
ak 
ak 
ak 


ak 
ak 
aK 
ax 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
ax 
xk 
aK 
ax 
xk 
xk 
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on entry indicates whether or not a null string 
should cause an error exit. 


Entry: 2 entry points: 


1) GTKYCD - DO at expression. 
2) GIKYC+ - Evaluated string on stack. 


Exit: CARRY CLR => B(A) = 
ACA) = Shift value (0,56,112) 


$10=1 => Null string doesn’t cause 


error exit. 


Keycode - betueen 1 & R8 


If error encountered, error exits through MFERR 
with eDATTY or eIVARG 


Calls: EXPEXC, POP1S, DECHEX, CONVUC, DRANGE, MEMBER 


Exclusive... A-D, 01,00, S8,S9,S10 
Inclusive... Above + RO-R3, SO-311, all of function scratch 


Uses: 
Stack lvls: 5 
History: 
Date Progranner 


www ew eee eee meee 


07/01/82 S.U. 
12/17/82 SW. 


01/26/83 S.W. 


02/22/83 B.S. 


Modifications 

Added docunentation 

When key assigned using ascii 
char (not key#), now erroring on 
alternate characters; for exanple 
those with ascii val less than 32 
(blank) or greater than 125 (}). 
Was naking assignnents to keys in 
non-obvious way. 

Between ascii values 32 & 125 are 
4 values which aren’t represented 
on our keyboard - these are now 
trapped out. 


Changed GTKYC* entry point to 
allow returning with carry set 
and B{A}=0 if null string passed. 


JOIST RT III RTI 
ORO OIRO TOIT RIT ITI ITT TTT TIT TEI IST TIT ITT II 


k 
x 


GTKYNN GOTO GTKY50 
k 


GTKYC* D1=C 
R=DAT1 W 
ST=1 10 


GOTO = GTKYC+ 
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1707 08092 8£00 
00 
1708 O8D98 84A 
1709 O8D9B 8£00 
00 
1710 O8DA1 848 
1711 O8DR4 849 
1712 O8DR7 D2 
1713 O8DAS 304 
1714 O8DAC 8BE 
1715 O8DAF 91 
1716 
1717 O8DB1 CC 
1718 O8DB3 14F 
1719 O8DB6 D7 
1720 O8DB8 565 
1721 
1722 O8DBB D1 
1723 O8DBD 87R 
1724 O8DCO 00 


=GTKYCD GOSUBL =EXPEXC 


ST=0 10 


=GTKYC+ GOSUBL =POP1S 


ST=0 
ST=0 
C=0 
LCHEX 
AraC 
GOYES GTKYO5 


D> Dw co 


* 1 CHAR OR NULL STRING 


A=A-1 A 
C=DAT1 B 
D=C A 
GONC GTKY10 


* NULL STRING 


B=0 A 
?ST=1 10 
RTNYES 


1725 O8DC2 8COO0 GTINAR GOLONG =ARGERR 
00 


1726 
1727 O80C8 06 
1728 O8DCA D8 
1729 O8DCC 1C1 
1730 O8DCF 137 
1731 O8bD2 C2 
1732 O8DD4 135 
1733 O8D0D7 148 
1734 O8DDA 3132 
1735 O8DDE 962 
1736 O8DE1 FS 
173? 
1738 O8DE3 07 
1739 O8DES 8AS 
1740 O8DE8 AD 
1741 O8DER 858 
1742 O8DED 1C1 
1743 O8DFO 14F 
1744 O8DF3 D? 
1745 O8DF5 SFOO 
000 
1746 
1747 O8DFC 3164 
1748 O8EO0 962 
1749 O8EO3 CO 
1750 O8E05 859 
1751 O8€08 Eb 
1752 O8EOR 966 
1753 O8E0D 5B 
1754 


1755 O8EOF 3102 GTKY10 


1756 O8E13 9E7 
1757 O8€16 CA 


* MORE THAN 1 CHAR 
GTKYOS RSTK=C 


B=A A 
D1=D1- 2 
CDIEX 

c=C+A A 

D1=C 

A=DAT1 B 
LCASC \A\ 
7A=C OB 
GOYES GTKYNN 


C=RSTK 
BAC OAR 
GOYES GTINAR 
ST=1 
01=D1- 
C=DATI 
b=C 
GOSBYL 


it 2 OM oo 


CONVUC 


* 1ST CHAR BETTER BE F OR G 


LCASC = \F\ 
?A=C B 
GOYES GTKY10 
ST=1 39 
C=C+1 A 

PARC OB 
GOYES GTINAR 


LCASC \ \ 
7D<C iB 
GOYES GTINAR 
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Null not legal 
POP A STRING OFF STACK 


SHIFT FLAG 
g SHIFT FLAG 


MORE THAN 1 CHAR? 


READ IN 1ST CHAR 
AT LEAST 1 CHAR? 
Keycode=0 


Is null legal? 
Yes, Return with carry set 


SAVE 00004 
STRING LENGTH IN B(A) 


POINT TO 1ST CHARACTER 
READ IT IN 


RESTORE 00004 
MORE THAN 2 CHARS? 


2-CHAR STRING FLAG 
PT TQ 2ND CHARACTER 


READ IN SHIFTED CHAR 
KEY TQ BE ASSIGNED IN D(B) 


G SHIFT ON 2-CHAR STRING 
NOT g SHIFT EITHER? 


Ascii Blank 
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1758 O8€18 3107 LCASC \}\ Ascii } 

1759 O8E1C 9E3 DC «6B 

1760 O8E1F 3A GOYES GTINAR 

1761 O8E21 DB C=D A 

1762 O8E23 DA A=C A Copy D(B) into ACB) 

1763 O8E25 37C5 LCHEX 7C605F5C Disallow |\_ grave accent 
F506 
C? 

1764 O8E2F 27 P= 7? 

1765 08E31 8F0O GOSBVL =MEMBER 
000 

1766 O8£38 598 GONC GTINAR 

1767 O8E3B 1F0O D1=(5) =KEYCOD START OF KEYCODE MAP 
000 

1768 O8€42 D1 B=0 A 

1769 O8€44 D2 C=0 A 

1770 O8646 171 =GTKY15 D1=D1+ 2 

1771 O8E49 14F C=DAT1 B 

1772 O8E4C ES B=B+1 A Keeps track of entry# 

1773 O8E4E 967 *C#D =o Not a natch? 

1774 O8E51 5F GOYES GTKY15 

1775 7 

1776 O8E53 3183 LC(2) 56 

1777 O8E57 868 ?S$T=0 8 1-CHAR STRING? 

1778 O8E5A F1 GOYES GTKY45 

1779 * 2-CHAR STRING - MAP CHARACTER TO PRIMARY CASE 

1780 O8E5C SED = GTKY25 7B<=C 8B 

1781 O8E5F BO GOYES GIKY30 

1782 O8E61 E1 B=B-C A 

1783 O8€63 58F GONC GTKY25 (B.E.T.) 

1784 & 

1785 O8€66 6B5F CIN GOTO  GTINAR 

1786 

1787 O8E6R 869 GTKY30 ?ST=0 9 F SHIFT? 


1788 O8E€6D 40 GOYES GTKY35 
1789 O8E6F C6 GTKY34 C=C+C A 
1790 O8€71 C1 GTKY35 B=B+C A 


ACTUAL KEYCODE 


1791 O8E73 DA A=C A 0, 56, OR 112 

1792 O8E75 6180 GTKY40 GOTO GTKY8 

1793 

1794 * D(A) MUST REFLECT PRIMARY/SHIFTED FOR 1-CHAR CASE, TOO 
1795 2 

1796 O8E79 DO GTKY45 A=0 A 

1797 O8E7B 9ED *B<=C B PRIMARY KEY? 

1798 O8E7E ?7F GOYES GTKY40 

1799 x 

1800 O8E80 E1 B=B-C A 

1801 O8E82 SED 78<=C B f SHIFTED KEY? 

1802 O8E85 CE GOYES GTKY35 

1803 O8E€87 E1 B=B-C A 

1804 08689 55E GONC GTKY34 (B.£.T.) - g SHIFTED KEY 
1805 


1806 O8E8C 07 GTKYSO C=RSTK 
1807 O8E8E C6 C=C+C A 


1808 O8E90 881 BoC OR 


MAX OF 4 CHARS (# <3 digits> ) 
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1809 08693 3D GOYES GTKY17 
1810 * ENSURE ALL OTHER CHARS ARE DIGITS 
1811 O8E95 810 BSRB 
1812 08€98 CD B=B-1 A 
1813 O8E9A CD B=B-1 A 
1814 O8E9C AFO A=0 W 
1815 x 
1816 O8E9F FO . GTKYSS ASL A 
1817 O8EA1 1C1 D1=D1- 2 
1818 O8EA4 148 A=DAT1 B 
1819 O8EA? 8FOO GOSBVL =DRANGE 
000 
1820 O8EAE 47B GTKY60 GOC GTKY17 NOT A DIGIT? 
1821 O8EB1 BEO ASL B 
1822 O8EB4 AOD B=B-1 P DECREMENT COUNTER 
1823 O8EB? S7E GONC GTKY55 
1824 O8EBA F4 ASR A 
1825 O8EBC 8FOO GOSBVL =DECHEX CONVERT TO HEXADECIMAL 
000 
1826 O8EC3 8A8 *A=O OA 
1827 O8EC6 OA GOYES GTKY17 
1828 z 
1829 O8EC8 D2 C=0 A 
1830 O8ECA DI B=0 A 
1831 O8ECC DC ABEX A B(A) contains keycode; A(A)=0 
1832 O8ECE 318A LC(2) 56%*3 
1833 O8ED2 881 “BoC OA Invalid keynunber? 
1834 O8ED5 19 GOYES GTKY1? No => eIVARG 
1835 O8ED? 3183 LC(2) 56 Nod 56 reduction rerioves f/g shift 
1836 O8EDB 8B8 GTIKY65 *B<=A A Can B be reduced nod 56 
1837 O8EDE 70 GOYES GTKY70 No, then okay 
1838 O8EEO CA A=A+C A Add it ta A 
1839 O8EE2 5S8F GONC § GTKY65 (B.E.T.) Loop back 
1840 AS 
1841 O8EE5 EA GTKY70 A=A-C A 
1842 O8EE? 304 LC(1) $2 BOTTON OF EOL KEY (ROW MAJOR) 
1843 O8EEA C2 C=C+A A ADD SHIFT 
1844 O8EEC 965 *BHC OB NOT the botton of EOL key? 
1845 O8EEF 80 GOYES GTKY80 Yes=> convert to top of EOL key 
1846 . 
1847 O8EF1 31£0 iC(2) 14 Adjustnent fron botton to top 
1848 O8EFS E1 B=B-C A Do adjustnent 
1849 O8EF? 3102 GTKY80 LO(2) 44 Return with carry clear 
1850 O8EFB Ce C=C+A A 
1851 O8EFD 961 7B=C «iB f SHIFT? 
1852 O8FOO EA GOYES GTKY60 
1853 O8FO2 E6 C=C+1 A 
1854 O8FO4 961 7B=C «iB g SHIFT? 
1855 O8FO? 7—A GOYES GTKY6O 


1856 O8FO9 03 RTNCC 


Saturn Assenbler fiscellaneous Execution Routin Fri Dec 3}, 1983 4:49 an 


Ver. 3.39/Rev. 2306 PSHGSB,PSHUPD, PSHMCR Page 38 
1857 2 STITLE PSHGSB,PSHUPD, PSHMCR 
1858 JIG ISO TIO II IIE IE 
1859 JO IGE UI OUI IIIT TOTS STO ITO SSI OT IT ISAS: 
1860 x 
1861 ** Nane:(S) PSHGSB - Push address on GOSUB Stk 
1862 ** Nane:(S) PSHUPD - Push address on GOSUB Stk 
1863 *k Nane:(S) PSHMCR - Push address on GOSUB Stk 
1864 aK 
1865 ** Category:  GENUTL 
1866 aR 
1867 ** Purpose: 
1868 BS Push address and return type nibble on GOSUB stack 
1869 be Allows address to be updated when nenory noves 
1870 KR Allows microcode GOSUB/RETURN to work 
1871 ak 
1872 kk Entry: 
1873 kn ACA) = Address to push on stack 
1874 ak PSHNCR: Sets return type for Microcode return 
1875 kn PSHUPD: Sets up as Update address. P nust be 0. 
1876 ah PSHGSB: C(S) = Return type (see GOSUB) 
1877 ak 
1878 ae Exit: 
1879 ak Carry Clear: 
1880 kk P = 0 (not necessary for PSHGSB) 
1881 kk D1 @ Return type nibble on stack 
1882 aes C(O] = Return type 
1883 Ke C[5-1]=Address just pushed on stack 
1884 ak Error Exit: 
1885 xk Insufficient Menory to open stack 
1886 xe 
1887 ** Calls: PSHSTK 
1888 ae 
1889 RX USES scent 
1890 kk Exclusive: C(W),D(S),P,D 
1891 kk Inclusive: A-D,D0,D1 
1892 a 
1893 ** Stk lvls: 3 
1894 ak 
1895 ** Algorithn: 
1896 aR 
1897 &x PSHNCR: C(S) <-- Microcode Return type 
1898 ** PSHUPD: C(S) <-- Update Address Return type 
1899 ** PSHGSB: Save Return Type D(S) <-- C(S) 
1900 xx Save Return address on stack 
1901 aX Open up GOSUB stack by 6 nibbles  (PSHSTK) 
1%e2 er Restore address and return type 
1903 ee Write return type and address to stack 
1904 ak RTNCC 
1905 xk 
1906 ** History: 
1%? * 
198 wR Date Progranner Modification 
1909 ORS Getic “he wea sate & gure kee lo eco oes iui eun 
1910 *k 09/H/82 J.P. Added code 


1911 a“ 
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1912 IIIA ITA III OID I III III III III III III III IIIS III ISI ISIS ISIS ISIS TIA 
1913 FIO II III I TI ITI III II II TIO II III ISO SI SII III ISOS IIS II OSI ASAI IK 
1914 O8FOB 29 =PSHMCR P= 9 Microcode Return type 
1915 x 
1916 O8FOD OD =PSHUPD P=P-1 Update address Return type 
1917 O8FOF 80FF CPEX 15 C(S) <-- Return type 
1918 O8F13 20 =PSHGSB P= 0 
1919 O8F15 AC? D=C $ Save Return type 
1920 O8F18 D6 C=A A 
1921 O8FIA 06 RSTK=C Save Return address 
1922 O8FIC D2 C=0 A 
1923 O8FIE 306 LCHEX 6 # nibbles to open up 
1924 O8F21 D5 B=C A 
1925 08F23 22 P= 2 Adj. 3 ptrs:GSBSTK, FORSTK,NTHSTK 
1926 O8F25 183A DO=(5) =GSBSTK Top of GOSUB stack 

5F2 
1927 O8F2C 7F4D GOSUB =PSHSTK 
1928 O8FX 07 C=RSTK Restore Return address 
1929 O8F32 ACB C=D S Restore Return type 
1930 O8F35 812 CSLC Move to C(O) 
1931 O8F38 15D5 DAT1I=C 6 Write Return type & addr to stack 
1932 O8F3C 03 RTNCC 


1933 * 
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1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1965 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 


xR 
ae 
xn 
ak 
ah 
xk 
ak 
ak 
a 
xk 
an 
ak 
ak 
ak 
xk 
ak 
ak 
xk 
ak 
xk 
xk 
ax 
ax 
xk 
ak 
xk 
xx 
xk 
ar 
xk 
xx 
a 
xk 
xk 
xk 
ax 
ak 
ax 
xk 
xx 
ak 
ak 
xx 
xk 
ax 
xk 
xx 
ak 
ax 
xx 
xk 
ax 
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STITLE POPSTK 
FI IRI TRI IIIT IASI IDI IIIS III II III ISIS ISIS SIS ISIS SII AS 


SOO IIT TI ITO TOO TOTO TT TOTO TT TTT 


Nane:(S) POPSTK - Pop Stack 


Narie: 


POPGSB - Pop Stack 


Nane:(S)} POPUPD - Pop Stack 


Category: 


Purpose: 


Entry: 
POPGSB: 


POPSTK: 


Exit: 
POPSTK: 


GENUTL 


Deletes stack entry(ies) and adjusts pointers 


~-pertains to FOR/NEXT, GOSUB, etc. 


POPGSB/POPUPD: 
Pop return address/update address off GOSUB stack 


--Reads Return Address and Return type, then deletes 


Sets C(A) and A(A) to top entry of GOSUB stack 
Reads Return type and Return address into DB 
Sets P for PTRADJ 

C(A) points to start of entry to delete (pop) 
A(R) points to end of entry to delete 

P set for PTRADJ 


CARRY CLEAR, P=0. 


POPGSB/POPUPD: If Carry set 


Calls: 


Uses: 


Detail: 


Stack was enpty, P unchanged 
Else carry clear, P=0 

D(A) = Return address 

D(S) = Return type (see RETURN) 


noF 


If the address on the stack points into a 
file and that file is purged before the 
address 1s popped off, the return address 
will be ZERO. 


This can happen if Expression Execute is 
called, and a multi-line user defined 
issues a PURGE. 
Calling routines nay need to check for this. 

via PTRAD1 

MOVED3, RTNSTK 

A, B(O-5), C; DI, DO 

If POPGSB/POPUPD uses D(W) 

B(S) nust be preserved for POLL 

Could also be useful to variable elinination 


(e.g. DESTROY) or to elininating SUB environnents 
Must irmediately precede PTRAD!1 
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1989 
1999 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 O8F3E 
2015 O8F3E 
2016 O8F42 
2017 O8F45 
2018 O8F48 
2019 O8F4B 
2020 O8F4D 
2021 O8F50 
2022 08F53 
2023 
2024 
2025 
2026 O8F55 


2027 O8FSC 
2028 O8F 60 
2029 O8F 62 
2030 O8F65 
2031 O8F6? 
2032 O8F69 
2033 O8F6L 
2034 O8F OF 
2036 O8F 72 
2036 08F74 


2037 O8F 7A 
2038 O8F7C 
2039 O8F 7F 
2040 
2041 


7050 
400 
AF? 
817 
D6 
165 
132 
22 


1893 
5F2 
80F5 
25 
A95 
£8 
F9 
131 
142 
134 
Ee 
8E00 
00 
25 
A89 
80F5 


x 
xx 
ax 
ak 
xx 
x 
ak 
wx 
ar 
ak 
ax 
ak 
ak 
xk 
xk 
xk 
xx 
xk 
ax 
ak 
xk 


MNiscellaneo 


Stack Lvls 


History: 


07/04/82 
08/10/82 
10/06/82 
10/07/82 
02/10/83 


Fri Dec 30, 1983 


4:49 an 
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us Execution Routin 


If the return address on the stack points into a 
file and that file is purged before the address is 
1s popped off, this address will be ZERO. 


This can happen if Expression Execute 1s called and 
a user defined function issues a PURGE. 

A calling routine tiay have to check this is EXPEXC 
can be called in the interin. 


4 
Prograriner Modifications 
S.W. Added docunentation 
S.u. Nodified to preserve math stk 
JSPs Added POPGSB/POPUPD entries 
Nt Added stack-ernpty check 
JuP Use only B(O-5) to pres B(S) 


FOI III IO IOI OTIC 
FOI IO IRI ITO TOTTI TOOT 


x 
x 


=P 


OPGSB 


=POPUPD GOSUB RTNSTK 


* 


RTNC 
D=C 
DSRC 
C=A 
DO=D0 
ADOEX 
p= 


W Save ther 
D(S) <- Rtn type, D(A) <- Rtn Addr 
A Set C = Start of entry to delete 
+ 6 Position to end of entry 
Set A = End of entry to delete 
2 Adjust 3 pointers 


* Do Not Destroy B(S) for POLL 
x 


=POPSTK DO=(5) =AVNENE 


CPEX § 

= 5 

B=C WP SAVE END SQURCE & P 
B=B-A A - OFFSET 
B=-B A 
Di=A END DESTINATION 
A=DATO A BEGIN SOURCE 

DO=C END SOURCE 
C=C-R A SQURCE LENGTH 
GOSUBL =M"Oved3 DELETE 

= 5 B(5) = original P setting 
C=B P 

CPEX 5 Restore # ptrs 


* Falls directly into PTRADI1 
PARTE RII ROR FORO 
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2042 JOO OI OOS ISOS IIIS SITIOS IIT IOS SO SO SOS IIS ISIS ISS IN 
2043 ae 
2044 ** Nane: PTRAD1 - Pointer Adjust 
2045 4x Wane: PIRAD2 - Pointer Adjust 
2046 aK 
2047 ** Category:  PTRUTL 
2048 ak 
2049 ** Purpose: 

2050 Rx Adds specified offset to specified number of sequential 
2051 ae RAN pointers 
2052 * 
2053 ** Entry: 
2054 Rk P= (n-1) the number of pointers to adjust, 
2055 ak e.g. if P=O, only 1 pointer will be adjusted 
2056 RR B(A) offset to add to each pointer 
2057 ah 2 entry points: 
2058 ak 1) PTRAD1 - AVMENE is the 1st pointer in the 
2059 ak block of sequential pointers to be 
2060 ak adjusted. 
2061 ak 2) PTRAD2 - Assunes ist pointer to be adjusted 
2062 aK is pointed to by DO 
2063 ak 
2064 RX Exit: 
2065 a P = 0 
2066 ak Carry clear 
2067 ak DX) 5 nibbles past last pointer adjusted 
2068 xt C(A) = adjusted value of last pointer updated 
2069 ak B(A) is preserved 
2070 aK 
2071 ** Calls: none 
2072 aK 
2073 BX USCS i 3 vicka 
2074 kk Inclusive: C(A), DO, P 
2075 aE 
2076 kK Stk lvls: 0 
2077 ak 
2078 -* 
2079 *k History: 
2080 ae 
2081 ay Date Progranner Modification 
2082 OP etee Sepeechag. VALS e usecase toad ee uted casa 
2083 a 07/04/82 = S.W. Added docunentation 

k 
ae JI III III III TOIT IES III III ISS ISS III IISSSS SSIS ISI IIS SSSI SS 
2086 JS III III III III IO IOS TIO SIS TIS SIS SOS II ATI A 
2087 * 
2088 O8F83 1B99 =PTRAD1 DO=(5) =AVMENE 

5F2 

2089 O8F8A 146 =PTRAD2 C=DATO A CURRENT PTR VALUE 
2090 O8F 8D C3 C=C+B A INCREMENT (OR DECRENENT) 
2091 O8F8F 144 DATO=C A & REPLACE 
2092 O8F92 164 DO=D0+ 5 POINT TO NEXT PTR 
2093 O8F95 OD P=P-4 
2094 O8F 97 S2F GONC PTRAD2 
2095 O8F9A 20 P= 0 
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2096 O8F9C 03 
2097 


RTNCC 


2098 O8F9E 1B3A RINSTK DO=(5) 


5F2 
2099 O8FAS 142 
2100 O8FA8 164 
2101 O8FAB 146 
2102 O8FAE 8BE 
2103 O8FB1 00 
2104 
2105 O8FB3 130 
2106 O8FB6 15E5 
2107 O8FBA 03 
2108 


x 


A=DATO 
DO=D0+ 
C=DARTO 
?7AD=C 

RINYES 


DO=A 
C=DATO 
RTNCC 


2109 O8FBC 3210 stnbfd LC(3) 


8 
2110 O8FC1 6000 
2111 


x 


GOTO 


Page 43 


=GSBSTK 


DDuwiyD 


Erpty stack? 


=bSTNT 


=if/ofnd 
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2112 STITLE RETURN, POP 
2143 RII II KIRK IIIT IS III III III IIS ISI IIS III SSSIS IIS SII IG ISIS ISI ISTS. 
2114 SRI III I III OST I III III OS SI II IIS SSI ISIS III ISI III IIIS SAI III IIA 
2115 ax 
2116 ** Nane: RETURN - Statenent Execute 
2117 ** Nane: POP - Statenent Execute 
2118 ae 
2119 ** Category:  STEXEC 
2120 ae 
2121 ** Purpose: 
2122 x Execute RETURN or POP statenent 
2123 an 
2124 *k Entry: 
; 2125 a P = 0 
§ 2126 ak DO past RETURN/POP token 
: 2127 ax 
2128 BX Exit: 
2129 &% P = 0 
210 kk If BRSIC RETURN 
2131 ax DO @ Address popped off top of GOSUB stack 
2132 aX Return to Run Loop 
2133 ae If BASIC RETURN to Keyboard 
2134 ax Update Current Line @ RETURN 
2135 a Clear Program Annunc and flag 
2136 .* If Statement buffer NOT enpty 
2137 aa DO @ Address popped off 
2138 ah Return to Run Loop 
2139 via else 
2140 &k Return to Main Loop through BASIC Loop exit 
2141 ae If POP 
2142 ak Address popped off stack 
2143 cae Return through NXTSTM 
2144 xe If Microcode Return 
2145 aK If RETURN 
2146 = Return to Microcode through Hardware stack 
2147 ak If POP 
2148 ax No-op 
2149 is If Boundary Address 
2150 a If RETURN 
2151 ax Error ---> Return w/o GOSUB 
2152 a If POP 
2153 a No-op 
2154 a 
2155 a Error/Exceptions: 
2156 us If RETURN 
2157 Re If Enpty stack 
2158 - eRuoGS 
2159 En If Special Return Type and No POLL response 
2160 = eMMCOR 
2161 ax If Return type #0-4 
2162 a eMNCOR 
2163 ax If POP 
2164 KX No-ops, never errors 
2165 a 


2166 ** Calls: FPOLL, POPSTK, SCOPCK, RACTMI, KBRTICK, TRTOr 
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2167 a UPDPCA, RTNSTK, STMBUF, SNcrlf, TRFLCK, TRCFRN 
2168 aK 
2169 kk Uses....... 

2170 ** Exclusive: A,B,C,0,D0,D1,sRETRN (SO),R2 

2171 *k Inclusive: A-D,D0,D1,sRETRN,R1,R2,R3, S13 

2172 ae 

2173 xx R2 = Saved Return type and address 

2174 ax 

2175 AX Stk lvis: 5 

2176 aK 

2177 ** NOTE: 

2178 oie: RETURN fron Keyboard rust collapse the Stnt Buffer 
2179 aK A zero length Statenent Buffer prevents returning to 
2180 ed the keyboard into a different Statenent Buffer than 
2181 es the buffer originally issuing the GOSUB 

2182 x CONT must also do this 

2183 ax 

2184 a Scenario: 

2185 aX GOSUB issued fron keyboard 

2186 as Return address points back into Statenent Buffer 
2187 ak Subroutine 1s PAUSED 

2188 ak Statenents entered fron keyboard destroy old buffer 
2189 ae Any statenent that can CONTINUE the subroutine and 
2190 x cause it to return, rust enpty the Strt Buffer: 
2191 ae RETURN, CONT, CONT Key, SST 

2192 xe 

2193 xk Detail: 

2194 es Return Types: 

2195 x 

2196 a 0 Return to Progran 

2197 ax 1 Return to Keyboard 

2198 a 2 ON TIMNERH1 GOSUB 

2199 ae 3 ON TIMER#2 GOSUB 

2200 7 4 ON TIMER#3 GOSUB 

2201 ae 8 Microcode Return 

2202 s 9+E Special Return types: future strt extensions 
2203 an F Boundary Address 

2204 Rx If Address=0 

2205 x Environnent Boundary 

2206 AS else 

2207 an Update Address 

2208 a 

2209 “ Stack order: Low --> High Menory 

2210 mh Return Type 1 nibble 

2c11 aR Return Address 5 nibbles 

2cle me 

2213 ** Algorithn: 

22t4 BE 

215 %* POP: Clear Return flag (sRETRN) 
ccl6 tok goto 1; 

2217 ** RTN: Set Return flag (sRETRN) 
2218 ae If RETURN fron Keyboard (not PgnRun) 
2219 ee Collapse Statenent Buffer (I/OCOL) 
2220 * 4: If enpty stack 


2221 s# 2: TF POP 
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2222 ae Return through Next Statenent (NXTSTM) 
2223 ae else 
2224 xk Error --> RTN u/o GOSUB 
2225 ax Set DO @ Top of GOSUB Stack 
2226 aK Read Return type and Return address 
2227 aa Shift Return type to A(S) 

2228 A Save Return type and address (R2) 

2229 kt If Boundary address (R(S)=F) 
22380 ax Dant’ POP addresss (goto 2) 
2231 xk If Special return type (A(S)>=8) 
2232 Sas If Microcode return address (A(S)=8) 
2233 aa If POP 

2234 aK Return to Next statenent 

2235 ax else 

2236 aK POLL on Return Type (POLL) 

2237 ax If ON ERROR return (Rtn addr = ERRSUB) 

2238 aK Clear ERRSUB address 

2239 kk Adjust pointers & collapse GOSUB stack (POPGSB) 
2240 KK If POP 

2241 ax goto Next Staterent 

2242 os Restore Return address and return type 

2243 aK If Special Return type (A(S)>=8) 
2244 KR If Microcode Return (A(S)=8) 
2245 km RSTK <-- Return address 

2246 am RIN 

2247 kk else 

2248 a Error Exit --> Systen Error (CORUPT) 
2249 a If Return to Progran (A(S)=0) 
2250 ak If within current progran scope (SCOPCK) 
2251 Re Set PgnRun 

2252 ak Restore Return address (R2) 

2253 ae Set DO @ Return address 

2254 ax 4; Return to Run loop (NXTST5) 
2255 kk else 

2256 ak Error --> Systen Error (CORUPT) 
2257 aR If ON TIMER GOSUB return (R(S)=2,3,4) 
2258 ak Reactivate Tiner Interval (RACTHI) 
2259 aK go Restore Rtn address and Run (goto 3) 
2260 ax If Return to Keyboard (R(S)=1) 
2261 ay: If Staternent buffer erpty (KBRTCK) 
2262 a Exit BASIC loop (EXITRN) 
2263 aK else 

2264 ax Return to keyboard (goto 4) (NXTST5) 
2265 ak 

2266 xk History: 

2267 ax 

2268 ** Date Progranner Modification 

2269 RR - nen ne nner n nr nen nnn enn ene ee eo ee ee ee = 
2270 Kk 03/07/83 J.P Deleted NOPRGN call, see KBRICK 
2271 Kk 03/18/83 J.P. Call SFGPGM if return to Progran 
2272 kk 04/25/83 J.P. CLRST when exiting: EXITRN 

2273 ** 05/17/83 J.P. Call TRIOr @ RTNX70 

2274 Kk 05/19/83 J.P Set PCADDR @ Rtnaddr ’cus RETURN 
2275 se fron keyboard into Prgn now SUSPs 


2276 *k 65/19/83 J.P. Renove SFGPGN call; since RETURN 
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2277 ak fron keyboard will SUSP now, but 
2278 xx nust set PgriRun so SUSP happens 
2279 ** 05/27/83 J.P. Return to keyboard pop & restores 
2280 aX CNTADR off GOSUB stack 
2281 tk 09/12/83 J.P. Set PCADDR @ Line length of Rtn 
2282 xm address: SR#1040-5 
2283 x 
2284 JORIS ISIS IOI III OCC OC ISIS III IK 
2285 JO GIS CISC IOI III EIS OIC IGOR SOO III CK 
2286 FIG TOI RII TI TOT IIIT III III IRSA IAT I I A TT AIT IEEE 
2987 JIS III III III II OTITIS II IIS IO IIIT TTI OK 
2288 xx 
2289 ** Nane:(S) pRINTp - Poll on Special Return type 
22% a 
2291 *k Category: POLL 
2292 Kx 
2293 *k Type: FPOLL 
2294 xe 
2295 ** Purpose: 

2296 am Pall for Special Return type 

2297 KK Allow for future extension of Special Return types on 
2298 xk the GOSUB stack. When the RETURN is encountered, 
2299 ER a LEX file nay handled to do sonething before the 
20 x RETURN (ex: Reactivate a Tiner) 

2x1 ak 

2H2 Kx Return types: 9-E are reserved for future inplenentation 
23 ax The GOTO+ entry point allows the special Return type to 
204 xx be passed on entry in R3(S) 

205 ole 

2H6 ** Should poll be "Handled" (return with XM=0)?: 

2H7 ak No - if this poll is handled, it is a take over pollxxx 
2H8 ax 

2H9 ** Heaning of “Handling” Poll (uhat does code do if handled”): 
2310 xx Do the appropriate "special" return processing 

2311 es Pop address of GOSUB stack 

232 a Perforn the RETURN or POP 

2313 aS 

2314 **k Entry conditions for handler (registers, ST, RAM, etc.): 
2315 aK --Carry set on entry iff fastpoll-- 

2316 wR B[A} = Poll nuriber (pRINTp) 

231? ex HEX trode, 

2318 a P=0, 

2319 KK R2(S) = Return type (Range = 9-E) 

2320 ais R2(A) = Return address 

2321 ee sRETRN (SO) = 1 af RETURN 

2322 eis = 0 1f POP 

2323 a The address 1s NOT popped off the stack 

2324 wk 

2325 a DO NOT destroy SO or R2 while deterrmining if handling 
2326 a 

2327 ** Normal exit conditions fron handler if handled (ST, RAM, 
2328 ** registers, etc.): 

2329 KR HEX mode. 

2330 ae Perforn the "special" processing 

2331 as Pop the address off stack (GOSBVL =POPGSB) 
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2332 ak If POP 
2333 a GOVLNG NXTSTM 
2334 aR If RETURN 
2335 ae If Return to Progran (type must indicate this) 
2336 = Set PgnRun 
2337 aR Save return address in R2 
2338 a Set DO @ return address 
2339 aR If TRACE needed (TRFLCK) 
20 ak TRACE TO (TRTO+) 
2341 RR Set DO @ Return address (R2) 
2342 = go execute "Return stnt" (goving RUNRT1) 
2343 a If Return to Keyboard 
2344 xe If tracing (TRFLCK) 
23445 a Send CR/LF (CRLFSD) 
2346 xx If Keyboard buffer to return to (KBRTCK) 
2347 ax Set DO @ Return address (R2) 
2348 xR go execute "Return stunt" (govlng RUNRT1) 
2349 ak 
2350 kk 
2351 ae Sanple code: 
2352 ak 
2353 a GOSBVL =POPGSB Pop addr off stack 
2354 ak C=) A 
2355 aa R2=A Save Return addres 
2356 xk ?$T=0 SsRETRN POP? 
2357 ak GOYES RTN40 
2358 aR ?S$T=1 SRTNKY Return to Keyboard ? 
2359 ak GOYES RTN2O 
2360 a ST=1 PgnRun Set Pgn Running flag 
2361 xe A=R2 Return address 
2362 ak DO=A 
2363 ar GOSBVL  =TRFLCK Tracing ? 
2364 aR Goc RIN10 No 
2365 xk GOSBVL = =TRTO+ TRACE 10 
2366 xO RTNIO A=R2 
2367 xR DO=A DO @ Return address 
2368 at GOVLNG =RUNRT1 Execute Return stnt 
2369 ak 
2370 xk = ® Return to keyboard 
2371 xR 
2372 xk RTN20 GOSBVL = ===TRFLCK Tracing ? 
2373 - GOC RTN3O 
2374 xh GOSBVL =CRLFSD Send CR/LF 
2375 kK -RTNWO GOSBVL  =KBRTCK Keyboard buffer? 
2376 aA GOTO RTN10 Yes, go execute 
2377 ax 
2378 xk POP 
2379 See 
2380 &k —-RTN4O GOVLNG = =NXTSTN 
2381 an 
2382 a 
2383 ** Normal exit conditions fron handler if not handled (ST, RAN, 
2384 ** registers, etc.): 
2385 sige HEX node. 


2386 aK KM=1. 
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2387 xh SRETRN (SO) and R2 nust be be preserved-- 
2388 ae 
2389 ** Available subroutine levels: 7 
2390 a --FPQOLL handler is tuo levels deeper than caller-- 
2391 ne RETURN/POP is statenent execute: all levels available 
2392 a 
2393 xk NOTE: 
2394 ak See GOTO+ entry for pushing special return type on 
2395 RE GOSUB stack 
2396 AS The return type must NOT conflict with other 
2397 xR GOSUB/RETURN extended staterients 
2398 = The return type or soteuhere else --- must reflect 
2399 ax if return to PROGRAN or KEYBOARD. This is 
2400 ie deternined at GOSUB tine fron PgrRun flag 
2401 aR 
2402 ** What registers/RAM nay be used if handled?: 
2403 ax --R-D, DO, D1, P always available-- 
2404 aR --Statenent execute usage 
2405 at 
2406 ** What registers/RAM nay be used 1f not handled?: 
2407 x --A-C, D[15-5] DO, D1, P always available (FPOLL only)-- 
2408 a --NOTE: D[R] is sacred in FPOLL!!-- 
2409 ae --RO,R1,R3,R4 
2410 ax 
2411 ** Envisioned application(s): 
2412 ia Special GOSUB statenent: 
2413 a ON INTERUPT GOSUB.... 
2414 aR ON ALARM GOSUB.... 
2415 Re ON... GOSUB.... 
2416 ak 
2417 7 where "sonething" nust be done before the actual 
2418 aR return is exeucte. For example, schedule an ALARM 
2419 xe 
2420 ** History: 
2421 ak 
2422 ae Date Progranner Modification 
2423 KK newer e ne cece er wee men mene n nen nen nse nen ecn nee cne nan 
2424 xk 05/02/83 J.P. Changed to Fast Poll 
2425 Ae 
2426 JES IOS III IIIA TI IIIA IIE ITI III TE II 
9427 JAI III II III TI ITI TIT III RII ITI III III IAI I AK 
9 x 
oe: SUIS ISIS OI CO IO TSI IIA ST III AIK 
2430 JOSIE IDES SILI GOO IEE TAK 
2431 ae 
2432 **t Nane:(S) CORUPT - Report "System Error" error 
2433 a 
2434 ** Category: SYSTEM 
2435 es 
2436 ** Purpose: 
2437 a? To report "Systen Error” as an execution error. 
2438 a 
2439 AX Entry: 
2440 7 P = 0 
2441 ae $13=0 1f not a running progran (1.e., keyboard 
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2442 Ae execution error) 
2443 aK $13=1 if running progran 
2444 ak No other necessary conditions. 
2445 ak 
2446 Re Exit: 
2447 ak Exits to BASIC main loop (ERRRTN) 
2448 as 
2449 ek Calls: NFERR 
2450 ak 
2451 *X Uses.....0. BASIC nain loop can use anything 
2452 ak 
2453 ** Stk lvls: BASIC main loop can use anything 
2454 ak 
2455 ** NOTE: 
2456 xe Setting P=0 selects the following error options: 
2457 ak -- not a parse error 
2458 ak -- store ERRN (and ERRL if $13=1) 
2459 ak -- display "ERR:" (or "ERR L<#>:") 
2460 an 
2461 ** Detail: 
2462 aR =CORUPT LC(2) =eMNCOR 
2463 ak GOLONG =NFERR 
2464 ae 
2465 *k History: 
2466 ah 
2467 #% Date Progranner Modification 
2468 RR wn nen ne ee eee renee cere enn ner erence renner cr eserecree 
2469 ek 11/09/83 NB Docunentation 
2470 ak 
2474 JIS II III IIIS II STII II III III SSSI IIIS SASSI III ISAS SISA S 


2472 

2473 

2474 

2475 

2476 O8FCS 0000 
0 

2477 O8FCA 0000 
0 


2478 O8FCF 840 
2479 O8FD2 6F10 
2480 
2481 
2482 
2483 
2434 
2485 O8FD6 0000 
0 


2486 O8FDB 0000 
0 


2487 O8FEO 850 
2488 O8FE3 78FO 
2489 O8FE? 7180 
2490 O8FEB 460 
2491 O8FEE 7660 
2492 


SOR RIIOTOJOJO JOT TTT 
x 


* POP statenent entry 
i 
REL(5) =STOPOC 
REL(5) =RTNCC 


=POP ST=0 — SRETRN Clear Return flag 
GOTO  RTNX10 


RETURN statenent entry 
If RETURN fron Keyboard 
Collapse Statenent Buffer 


ee ee 


REL(S) =STOPDC 
REL(S) =RETRNp 


=RETURN ST=1 = SRETRN Set Return flag 
GOSUB STMBUF Collapse stunt buffer if executed 
GOSUB trflck 
GOC RTNX10 


GOSUB  trcfrn 
x fron keyboard 
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2493 * Check for entpy GOSUB stack 
2494 % 
2495 O8FF2 78AF RINK1O GOSUB RTNSTK 
2496 O8FF6 532 GONC RTNX30 Non-eripty? 
2497 x 
2438 * If POP 
2499 a Return through NXTSTN (noop) 
2500 * else 
2501 ‘ Error ---> RTN ufo GOSUB 
2502 
2503 
2504 O8FF9 860 RTNERR ?ST=O sRETRN POP statenent ? 
2505 O8FFC EO GOYES nxtstn 
2506 O8FFE 707C GOSUB SNerlf SEND CR/LF IF IN TRACE FLOW MODE 
2507 09002 31% LC(2) =eRwoGS RTN w/o GOSUB 
2508 09006 6000 GOTO =MFERR 
2509 O900A 6D3A sixtsth GOTO NXTSTN Return - No op 
2510 
2511 : Special Return type --- Unrecognizable 
2512 
2513 OMOE 8EOO RINX20 GOSUBL =FPol] 
00 


2514 09014 AB 
2515 09016 62EF 
2516 

2517 

2518 

2519 

2520 

2521 

2522 O901A AFA 
2523 O91D 814 
2524 0920 102 
2525 0W23 B44 
2526 0926 420 
2527 

2528 

2529 

2530 0%29 AAC 
2531 OW2C R44 
2532 OW2F SCO 
2533 OW32 94C 
2534 09035 9D 


CON(2) =pRTNTp POLL on Return 


GOTO RTNERR 


Set DO @ Top of GOSUB stack 
Read Return type and Return address 
Shift Return type and save both 


type 


Error if no response 


Check for Boundary address 


i Oe OF Oe Oe 


RTNK30 A=C W 


Read in RETURN type & address 


8? 


ASRC Nove Return type to A(S) 
R2=A Save Return type and address 
A=A+1 § Boundary address ? 
GOC RTNERR Don’t pop address 

k 

* Check for Special Return type 

k 
A=A-1 S$ Restore Return type 
A=A+R S Special Return type >= 
GONC RTNX40 No 
PAHO OS Not Microcode Return ? 


GOYES RTNX20 


go POLL on Return type 


2535 x 

25 36 * If Microcode Return and POP statenent 

2537 & Return ... No-op 

2538 x 

2539 09037 &60 73T=0 sRETRN PoP ? 

2540 0903A 00 GOYES nxtstn 

2541 

2542 x 

2543 * Check 1f Return Address fron ON ERROR-GOSUB execution 
2594 ® Read Return address for ON ERROR=GOSUB statenent 
2545 * Jf Return address = ON ERROR-GOSUB Return address 
2546 & Zero ON ERROR-GOSUB Return address  (ERRSUB) 
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2547 & 

2548 0903C 1F38 RINX40 01=(5) =ERRSUB 

6F2 

2549 09043 147 C=DAT1 A Read ON ERROR-GOSUB Return address 

2550 09046 8A6 CHA OAR Return addresses NOT equal ? 

2551 09049 70 GOYES RTNX45 

2552 0904B D2 C=0 A Zero ON ERROR-GOSUB Return address 

2553 0904D 145 DAT1=C A 

2554 x 

2555 * Collapse GOSUB stack 

2556 * If POP 

2557 & golong NXTSTA 

2558 a 

2559 09050 7AEE RINX45 GOSUB POPGSB COLLAPSE STK ENTRY, ADJ PTRS 

2560 09054 860 ?ST=0 sRETRN POP statenent ? 

2561 09057 38 GOYES nxtstn 

2562 

2563 * Restore Return type and return address 

2564 * Check for Microcode Return 

2565 * If Special Return type and NOT microcode return 

2566 % Error --> Corrupt 

2567 & 

2568 09059 112 A=R2 Restore return type and addr 

2569 O905C AF6 C=A W 

2570 O905F A46 C=C+€ § 

2571 09062 5FO GONC =RTNX5O Not special return type 

2572 09065 94E CHO OS Not microcode return ? 

2573 09068 B1 GOYES CORUPT Error exit 

2574 O906R 740C GOSUB SNerlf Send CR/LF if in Trace Flow 

2575 O906E 06 RSTK=C 

2576 09070 01 RIN Return to microcode 

2577 x 

2578 * If Return to Progran 

2579 & If not with current program scope 

2580 k Error --> System Error 

2581 * 

2582 09072 RAC =RTNX5O A=A-1 S Return to Progran = 0 

2583 09075 551 GONC RTNK6O 

2584 09078 7FDO GOSUB SCOPCK Within current progran scope ? 

2585 0907C 542 GONC RTNX70 Yes 

2586 O907F 7FEB GOSUB SNerif 

2587 09083 3100 =CORUPT LC(2) =eMMCOR 

2588 09087 6000 GOTO =MFERR No -- Error Exit 

2589 x 

2590 * If ON TIMER GOSUB return 

2591 . A(S) = Tiner# 

2592 x Reactive Tiner interval 

2593 * else 

2594 - Error --> Corrupt 

2595 x 

2596 09088 948 RINX6O 7A=0 = = § Return to Keyboard 7 

2597 O908E 33 GOYES RTNX80 

2598 09090 304 LCHEX 4 

2599 09093 816 CSRC 

2600 09096 36 7AC OS Not ON TIMER ?? 
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2601 09099 RE GOYES CORUPT 
2602 0909B 8E00 GOSUBL =RACTNI Reactivate tiner interval 
00 
2603 * 
2604 * Return to running progran 
2605 * Restore PCADDR @ return address incase 
2606 - RETURN fron keyboard after "SUSP" progran 
2607 x W111 stop execution after the RETURN 
2608 * PCADDR will point @ statenent returned to 
2609 x FETCH will show this line NOT the "GOSUB" invoking line 
2610 x 
2611 * Fix to SRH1040-5 
2612 k Set PCADRR @ LINE LENGTH of Return Address 
2613 & 
2614 * Set PgriRun flag so SUSP will occur 
2615 * Must do this AFTER “trfilck" so TRACE won’t happen 
2616 * 
2617 090A1 11A = RINX70 C=R2 
2618 O90A4 8E0O GOSUBL =UPDPCA Update PCADDR @ line length 
00 
2619 OAR 134 DO=C 
2620 O90AD 7BBB GOSUB trflck 
2621 09B1 480 GOc RINX?75 
2622 090B4 8E00 GOSUBL =TRTOr TRACE 
00 
2623 O90BR 85D = =RINX75 ST=1 = PgniRun Set Progran Running flag 
2624 O8BD 6B10 : GOTO RTNX9O Return to Run Loop 
2625 
2626 * Return to Keyboard 
2627 * Pop CNTADR off GOSUB stack and restore it 
2628 x If Statenent buffer enpty 
2629 x Don’t RETURN, goto BSCEXT 
2630 * else 
2631 . Restore Return address 
2632 x 
2633 09001 7DAB RINX80 GOSUB SNcrif Send CR/LF to display 
2634 09005 757E GOSUB POPUPD Pop CNTADR off GOSUB stack 
2635 09003 DB C=0 A 
2636 O90CB 1BE? DO=(5) =CNTRDR 
6F2 
2637 O90D2 144 DATO=C A Restore CNTADR 
2638 09005 7A30 GOSUB KBRTCK 
2639 09009 8(50 RINK3O GOLONG NEXTSO 
8F 
2640 . 
2641 
2642 ORO ORO OOOO IOI OOO OGIO III tok 
2643 SOR JOO JOOS OOOO RIGO ok 
2644 oi 
2645 4 Wane: (S) STMBUF - Collapse staterent buffer check 
2646 ** Nane:(S) STMBCL - Collapse statenent buffer check 
2647 at 
2648 ** Category: EXCUTL 
2649 a 
2650 ** Purpose : Sore statements need to collapse the statenent 


2651 
2652 
2653 
2654 
2665 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 O900F 
2685 O90E2 
2686 039064 
2687 090E7 
2688 
2689 090EB 
2690 OS0EE 
2631 O90F1 


2692 O90F8 
2633 O90FB 
2694 090FD 
2695 09100 


2696 09107 
2697 0910A 
2698 09100 


2699 
2700 
2701 
2702 


Saturn Assenbler 
Ver. 3.39/Rev. 236 RETURN, POP 


87D 
00 
85E 
71DE 


133 
101 
8F00 
000 
114 
£0 
100 
1F49 
5F2 
AC3 
B47? 
8000 
0 
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ax buffer uhen executed fron the keyboard. 

an These statenents are: CONT, RETURN, ENDSUB, ENDDEF 
s They call the entry point STMBUF. 

k 

RA STMBUF - Collapses Statenent Buffer only if no 
eh progran 1s running 
an STMBCL - Collapses Statenent Buffer, unconditionally 
ae 

** Entry : $13 = 0 if the statenent is executed fron keyboard 
a STMBCL: Aluay collapses 

xk 

** Exit : Carry set 

ke 

vs Calls : I/OCOL, STMBFD May exit via FORUPD 

- Uses : A-D, DO, D1, S14 (STMBUF entry only) 

*K Stk lvls : 2 

ks 

** History: 

xs 

= Date Progranner Modifications 

ME” Lee detected, «eae ae cel 

nA 01/27/83 SW. Added call to RFADJ- to zero 


. references to collapsed buffers. 


- Additionally uses RO,R1 
kk 05/19/83 J.P. Set NoCont if not running so 
. ENDSUB, ENDDEF, RETURN will SUSP 


FOI TOI FRIIS TIT TT DR ITI RTT TI TR 
FOI JO IIIT TTT OT OTT TOK 
* 


=STMBUF ?ST=1  PgnRun 
RTNYES 
ST=1 NoCont Set NoCont flag 
=STNBCL GOSUB stnbfd 
* Buf length in A 
ADIEX 
R1=A Save Begin Dest 
COSBVL =I/0COL Collapse buffer 
A=R1 
A=A-B A Begin Source 
RO=A 
D1=(5) =AVNENS 
D=0 S 
D=0+1 S$ 
GOLONG =FORUPD 
k 


FORK OI TTT II TIO 
FORO ITO OI OO ITOK 
ax 
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2703 ** Nane: KBRTCK - Keyboard return check 
2704 ae 
2705 ** Category: EXCUTL 
2706 kx 
270? ** Purpose : If a statenent is to return to statenent buffer, 
2708 xx check if the staterent buffer still there. 
2709 at 
2710 ak Clear PgnRun and PRGM annunciator 
2711 as Clear SUSP annunciator 
2712 an If CNTADR is non-zero 
2713 kk Re-suspended prior suspended progran 
2714 ae If CNTABR is zero and the Stnt Buffer is enpty 
2715 ak Zero progran info, issue zero progran poll 
2716 kk 
2717 kk Entry : P = 0 
2718 kk 
2719 *k Exit : If statenent buffer empty, exits to EXITRN which 
2720 ak returns to MAINLP through BASIC Loop Exit 
2721 ax 
2722 ** Calls : I/OFND, NOPRGN, CNTCK2, SETSU1, CPLH10, SAVELK, 
2723 kk CLSUSP, ZERPGN 
2724 kh 
2725 *k Uses : A-D, DO,D1, ALRM(+36), PNDALMN(+1), CURRL 
2726 me 
272? ** Stk lvls : 3 
2728 ae 
2729 ** NOTE: This is the maxinun ALLOWED usage 
2730 ax User Defined functions fron the keyboard 
2731 me call this and their tiax usage 1s 4 
2732 455 
2733 ** Note: 
2734 ax 
2735 xk = GOSUB, CALL, DEF save the pending CNTADR 
2736 xk RETURN, ENDSUB, ENDDEF restore the CNTADR 
2737 kk Tf the CNTADR is non zero 
2738 ii A progran was suspended prior to invoking the 
2739 an GOSUB, CALL, DEF 
2740 ae To restore this state: 
2741 ae Set the SUSP annunciator 
2742 x CNTADR points at EOL or "@" before stmt to continue at 
2743 ae Subsequent line# conputution: 
2744 a Carputes line nunber for statenent of CNTADR 
2745 = Update current line 
2746 a If Continue address = 0 and the statenent buffer 1s erpty 
274? “x Pragran info must be cleared 
2748 ae R subprogran, user def function or prograt Has 
2749 ‘* invoked fron the keyboard, interrupted, then the 
2750 * invaking staterent was destroyed but a subsequent 
275i a keyboard entry. 
2152 ae 
2753 ** History: 
2754 em 
2755 ** Date Progranrer Modification 
2756 we - open ee wee nnn nee nen nnn nn nn en ee een eee eee eee eee 


2757 A*°O3/07/83 J.P: Added NOPRGM call,if SST,CLRSTK 
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2758 ** 03/07/83 J.P Change NAINLP exit to BSCEXT 
2789 **K 03/18/83 J.P Aluay clear addresses, reriory 
2760 ** 04/04/83 J.P Don’t collapse stacks, just zero 
2761 ** 04/25/83 J.P Exit through EXITRN not BSCEXT 
2762 ** 05/13/83 J.P Updated Uses and Stk lvl docunent 
2763 *% 05/27/83 J.P If CNTADRHO; SUSP prograr 
2764 ** 06/06/83 J.P. If CNTADR=0 and Stnt Buffer= 0 
2765 a Zero prograti information 
2766 *k 06/17/83 J.P. Don’t use PCADDR to update CURRL 
2767 = CURRL @ CNTADR now !1!!! 

2768 ** 06/17/83 J.P. Change stack usage fron 4 to 3 
2769 AE 
2770 SRK IK IST I IIIT IR III IS SISA II IS IIS ISI IIIS IIS ISIS IS SSSI ISIS SISA SSIS ISS 
2771 FIO IO SII I RII II TI OTIS IIIS II II III SII IIS III SII SI ISI ISIISII IASI IIIS: 
2772 k 
2773 09113 8E00 =KBRICK GOSUBL =NOPRGN Clear PgnRun and PRGM Annunciator 
00 
2774 09119 8EOO GOSUBL =CLSUSP Clear SUSP annunciator 
0 
2775 O911F 8E00 GOSUBL =CNICK2 Read continue address 
00 
2776 09125 432 COC KBRT20 CNTADR = 0 
2777 09128 8E00 GOSUBL =SETSU1 Set SUSP; Incr. CNTADR into stnt 
00 bs 
2778 O912E 8EOO GOSUBL =CPLH10 Conpute linet @ DO 
00 
2779 09134 8E00 GOSUBL =SAVELK Update CURRL 
00 
2780 0913AR 7E7E KBRT10 GOSUB  stnbfd Is Statenent Buffer enpty 7 
2781 0913E 93C AHO | OX NOT EMPTY 7 
2782 09141 RTNYES 
2783 09143 8COO0 KBRT15 GOLONG =EXITRN CLRST; to BSCEXT in BASIC loop 
00 
2784 x 
2785 * If CNTADR = 0 and Statnent Buffer enpty 
2786 s Zero progran infornation 
2787 * Exit BASIC loop 
2788 * else 
2789 * Return to statenent buffer 
2790 : 
2791 09149 7F6E KBRT20 GOSUB stnbfd Check statenent buffer 
2792 09140 93C 7AHO | OX Not enpty ? 
2793 09150 00 RTNYES 
2794 09152 8E00 GOSUBL =ZERPGN Zero progran infornation 
wo 
2795 09158 5AE GONC KBRT15 Bee. Ty 
2796 x 
2797 SIDI II TIS III II ITI OT I IIIT IIIT III RII III II TI SIO III III IIT I ITS I AK 
2798 FRI III ASIII II III II III IIIT III III IOI I IIIT IIIS II IIIS II SII III ISI III IK 
2799 ae 
2800 *k Nanie:(S) SCOPCK - Scope check 
2801 ae 
2802 ** Category: EXCUTL 
2803 x 


2804 ** Purpose: Verifies if an address is in current progran scope 
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2805 ax 
2806 ** Entry : ACA)= ADDRESS TO BE VERIFIED 
2807 ak 
2808 Rx ERLt: 
2809 aK A is preserved fron entry 
2810 xk Carry clear - Address in current progran scope 
2811 ah Carry set - Address out of current progran scope 
2812 a 
2813 ** Calls: none 
2814 ae 
2815 kk Uses: C(A),DO 
2816 ae 
2817 ** Stk lvls: +0 
2818 a 
2819 JO IIIT II III III I TTI II ITI IIIT TI III SII II ISAT II IIA 
2820 JOO III III I III ITI II III TI TIO IO TTI IIIT I OSI I IIE IIIT III IIIS III IISA 
2821 s 


2822 09158 1B26 =SCOPCK DO=(5) =PRGNST 


SFe 
2823 09162 146 
2824 09165 8B2 
2825 09168 00 
2826 0916A 164 
2827 09160 146 
2828 09170 8BE 
2829 09173 00 
2830 09175 03 
2831 


C=DATO A 

7AcC OAR 

RTNYES 

DO=00+ (PRGNEN)-(PRGNST) 
C=DATO A 

7A>=C A 

RTNYES 

RTNCC 
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2832 
2833 JE IO TTT TT 
2834 SII ITT IIIT ITI I IIIA ID IDI SIS ISI IIIS BI ISAS IIIT IIS AIS AISI IN 
2835 ae 
28 36 ak Nane: IF - IF statenent execute 
28 37 ak 
28 38 ** Category: STEXEC 
2839 aK 
2840 *x Purpose: EXECUTES IF STATEMENT 
2841 RK 
2842 ek Entry: DO POINTS TO EXPRESSION 
2843 ak 
2844 aK Exit: If tTHEN or tELSE followed by tEXTIF 
2845 aK exit via NXTST5 with DO at tEXTIF 
2846 AK Otherwise exits via GOTO 
2847 ak with DO at line# or label token 
2848 ae 
2849 ak Error exits only if expression is conplex 
2850 ae 
2851 ek Calls: EXPEXC, EOLSCN, POPIN+, FINDA, LINSKP, UPDPCC 
2852 aK 
2853 ak Uses: A-D, RO-R3, D1,00, SO-S11, function scratch 
2854 aK 
2855 tk Stack lvls: 6 
2856 aK 
2857 ** History: 
2858 ax 
2859 ois Date Progranrer Modifications 
2860 $k Gaceees! eicetasec- < Geetcseoewcus 
2861 *k 07/04/82 SLU. Added docunentation 
2862 kK 07/28/82 SLU. Modified to make PCADDR 
2863 ax point prior to extended stnt 
2864 ak innediately after THEN/ELSE 
2865 KX 05/04/83 SS. Wd. Replaced call to POPIN with 
2866 ne call to POPIN+; also no longer 
2867 aK error on conplex 
2868 aK 
2869 JU OI OOOO TIT TTT 
2870 JE ISOS IS IAI IID I AISI I ITI SII IIIA IS 
2871 x 


2872 09177 0000 
0 

2873 03917C 0000 
0 

2874 09181 8£00 


00 
2875 09187 8E0 

00 
2876 0918D 04 
2877 OS18F 2E 
2878 09191 5A0 
2879 
2880 09194 3910 
2831 09197 C4 
2882 09199 110 


” 
- 
nm 


REL(5) =IFDC 
REL(5) =IFP 
GOSUBL =EXPEXC 
GOSUBL =POP1N+ 


SETHEX 
P= 14 
GONC IFXQO3 Real ? 

* Nunber 1s complex - Test real & imaginary parts 
PAHO | OWP Real part nonzero => 
GOYES IFXQ10 execute THEN portion 


A=RO Inaginary part#O => sane 
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2883 O919C SIC 
2884 O919F 44 
2885 

2886 O91A1 
2887 O91AS 
2888 O91A8 
2889 OSTAA 
2890 O91AD 
2891 OS1AF 
2892 O91B2 
2893 09185 
2894 09168 
2895 OS1BC 
2896 OS1BF 
2897 09101 


758 
148 
20 
908 
12 
163 
14R 
181 
31% 
962 
51 
8EE3 
8F 
2898 O91C7 SDD 
2899 

2900 O391CA 
2901 OSICE 


7908 
8061 
7F 
2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 09104 
2910 O91D7 


136 
SEO 
00 
134 
161 
8E00 
00 
2914 OS1E9 00 
2915 O91EB 3EF 
2916 OSTEE 00 
2917 O91FO ADF 
2918 O91F3 00 
2919 

2920 OS1FS 


2911 O91DD 
2912 OSTEO 
2913 OS1E3 


&COO 
00 
2924 

2922 

2923 

2924 

2925 

2926 

2907 

2928 

2929 

2930 

2931 

2932 


WP 
TF RQ10 


IFXQO3 ?ARO 
GOYES 
* ELSE PATH 
GOSUB LNSKP- 
A=DATO B 
P= 0 
?A=0) OP 
GOYES IFXQ07 
DO=DO+ 4 
A=DATO B 
DO=DO- 2 
LC(2) =tELSE 
7A=C OB 
GOYES IFXQ08 
GOSUBL LINSKP 


IFXWS5 


GONC IFXQ05 


* 
=ELSE  GOSUB 
TFXQO7 GOLONG 


EOLSCN 
NXTST5 


x 
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IF NON-ZERO,RUN ? THEN’ 


At tEOL? 

Step over t@ & stnt len 
Point to stnt length 
tELSE ? 

Skip to next stnt 
(8:E..7.) 

Skip to tEOL 


* Set PCADDR here to fix bug : 
> IF © THEN <extended conmand> ELSE <line# or label> 


* 
k 
* In the case of extended conriand after ELSE, PCADDR will 
* get uritten over anynay 

* 


IFXQO8 CDOEX 
GOSUBL =UPDPCC 
DO=C 
DO=DO+ 2 
IFXQ10 GOSUBL =FNDDO+ 
CON(2) =tEXTIF 
REL(3) IFKXQO? 
CON(2) =t! 
REL(3) ELSE 
CON(2) 0 


GOLONG =GOTO 


x 
x 


Update PCADDR fron C 


Step over StntLen 
Step over tTHEN/tELSE 


Is this an extended IF ? 


FO IOI IOI OT UCI IGIOIIISI OIG OOO 
SOIR OO IO OIG OGIO IOI OO 


ak 
‘| Nane:(S) COLLAP - 
Category: MTHSTK 


Purpose: 


Collapse Math Stack 


Collapses math stack 
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2933 &k Entry: 
2934 kx 
2935 tk Exit: 
2936 kk D1 = ATHSTK 
2937 kx C(A)= new value of MTHSTK pointer 
2938 aK Carry clear 
2939 ak 
2940 t® Calls: none 
2941 aa 
2942 RK Uses... 
2943 ae C(A),01 
2944 ax 
2945 tk Stk lvls: 0 
2946 ke 
2947 ** History: 
2948 am 
2949 ae Date Progranner Modification 
2350 RK oScehess,. ‘Gebdeecece «olsstecesecluceseecceleececeeSekkos 
2951 tk 06/25/82  S.W. Created utility 
2952 ax 
2953 TORR IOI IOI IOI ITO 
2954 JIGS IU OT 
2955 & 


2956 O91FB 1FE9 =COLLAP D1=(5) =FORSTK 

5F2 
2957 09202 147 
2958 09205 1(4 
2959 09208 145 
2960 0920B 01 
2961 


C=DAT1 A 
DI=DI- 5 
DAT1=C A 
RIN 
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2962 STITLE KEYDOWN Function 
2963 SII I ITI IT ITI OT I IIIT IIIT IIIT III ITI SII IST OTT STII IS IIS SASSI SSI A 
2964 JI IO II II TST II III ITI ISS I STII II III III SOS SII IK 
2965 a 
2966 xx Narie: KEYDWN - KEYDOWN function execution 
2967 ax 
2968 *%* Category: FNEXEC 
2969 aK 
2970 kk Purpose: 
2971 ae Executes KEYDOWN function 
2972 ah 
2973 *k Entry: 
2974 xX P = 0 
2975 ax 
2976 mE EM: 
2977 ax P = 0 
2978 *3 
2979 xx Calls: KEYSCN, GTKYC*, POPNTH 
2980 ia 
2981 xx History: 
2982 7 
2983 xx “Date Progranmer Modification 
2984 RK meer nee ewe n errr etme ere entre reenter erent een ene 
2985 Ae O9/1 2/62: “B53. Updated docunentation 
1 
Sees JOO IO III TI TO TIO IIIT TI SII ISS III I III III IK 
2988 III II IT III IO SII III IIIS II IOI SS ISS IS ISI ISIS IT SOS I III III IOI ISOS I ISK 
2989 09200 401 NIBHEX 401 Argurient range [0,1] 
2990 09210 136 =KEYDWN CDOEX 
2991 09213 10A R2=C Save DO in R2 
2992 09216 8F0O GOSBVL =KEYSCN Update key down rap 
000 
2993 0921D 11A C=R2 
2994 09220 394A C=O) = S$ Passed a paraneter? 
29965 09223 Dé GOYES KEYD30 No, then check if any keys down 
2996 09225 137 CD1IEX 
2997 09228 108 RO=C Save D1 in RO 
2998 09228 755B GOSUB GTKYC* Get key code 
2999 O922F 3183 LC(2) 56 
3000 09233 3E1 “BoC: 6B Is it a prinary key? 
3001 09236 76 GOYES RNGERR No, then argurnent out of range 
3002 09238 110 A=RO 
3003 0923B 7740 GOSUB popritt+ Pop argunent off stack 
3004 0923F CD B=B-1 A 
3005 09241 DO A=0 A 
3006 09243 4B2 GOC KEYD20 Return false if null string passed 
3007 09246 D2 C=0 A 
3008 09248 308 LCHEX 8&8 
3009 09248 DA A=C A 
3010 0924D 31£0 LC(2) 14 
3011 09251 E1 KEYD10 B=B-C A 
3012 09253 480 GO KEYD15 
3013 09256 &1C ASRB 
3014 09259 57F GONC ~~ KEYD10 (G28. be) 


3015 Bi 
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X16 k 
3017 0925C 136 KEYDIS CDOEX 
O18 O925F ES C=C-B A 
#19 09261 134 bO=C 
3020 09264 18E DO=00- 15 
21 09267 150 C=DATO 1 
3022 09268 O£06 A=A&C OP 
23 O926F B98  KEYD20 A=-A UP 
W24 09272 AF2 C=0 W 
3025 09275 570 GONC KEYD25 
26 09278 2E P= 14 
W2? 0927R W1 LCHEX 1 
W28 09270 112 KEYD25 A=R2 
29 09280 8(00 GOLONG =FNRTN2 
00 
3030 ko 
3031 x 


3032 09286 131 popnt+ DI=A 
3033 09289 8000 popnth GOVLNG =POPNTH 


34 Kis 
3035 Rs 
H36 092% KEYD30 
X37 09290 18D DO=D0- (DISINT)-(KEYSAV) 
#38 09293 2D = 13 14 key rows 
39 09295 1521 A=DATO WP. Read 14 colunns 
#40 09299 SDF GOTO  KEYD20 
3041 x. 
3042 x. 
3043 09290 6428  RNGERR GOTO  GTINAR Invalid argunent 
3044 - 
3045 we 
3046 092A1 55E6 UNASS" NIBASC \Unassign\ 
1637 
3796 
76E6 
3047 092B1 5646 NIBASC \ed\ 
3048 09285 FF NIBHEX FF 
3049 ke 
3050 x= 


Saturn Assenbler 
Ver. 3.39/Rev. 2306 PUT Statenent 


3051 
3052 
3053 
3054 
3055 
3056 
305? 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3063 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 092B7 
3080 092BC 
3081 
3082 


09201 
092C5 


3083 0920 
3084 O92CF 
3085 09201 
3086 09205 
308? 09209 
3088 092DB 
3089 O92DE 
3090 092E1 
3091 O92E5 
3092 O92E7 
3093 O92ER 
3094 O9ZEC 
3095 O92EF 
3096 O92F3 
309? 
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STITLE PUT Statenent 
JO IOI IOI IO OIC IOI TI ICO III OOII IE 


FOTO JOO OO TTT OTT IK IK 


kx 
**k Nane: PUT - PUT statenent execution 

kk 

** Category:  STEXEC 

ak 

** Purpose: 

aK Executes PUT statement 

ik 

*k Entry: 

kk P = 0 

AK DO points past PUT token 

&k 

KX Exit: 

ae Exits through NXTSTM 

kk 

** Calls: GTKYCD, KEYFND, POPNTH, KEYTYP, STKCHR 
ok 

**k History: 

kk 

xk Date Progranner Modification 
We) ee elt se de ee a tae 
ek 09/12/83 BLS. Updated docurientation 

kx 


FOI UII OOOO TOO III OTTO OO OOK 
FOO UOT OOO OO TOTO TIT 


=PUT 


PUTKIO 


ae 


REL(S) =FIXDC 


REL(S) =STRNGP 


GOSUB GTKYCD 
iC(5) 


01=C 
R=0 A 
INTOFF 

A=DAT1 P 
C=C+A A 
A=A+1 P 

60C PUTK10 
DATI=A P 
C=C+A A 

b1=C 

C=B A 
DATI=C B 
INTON 
GOTO 


nxtstn 


=KEYPTR 


Parse(Allow string expr) 


Get key code by executing expr 


Read key pointer 

Increnent nunber of keys in buffer 
Too many? Yes, then forget it 
Update pointer 

Calculate position in buffer 


Write key into buffer 


Return for next statenent 
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98 STITLE KEYDEF$ function execution 
399 RI IRI TRI IID IIIS II SI SIS III II IIIS IIIS IIIT ISIS IIIS ISIS III ISS IIIS 
3100 URIS TIT II TI ITI I TSAI IITI IIIT III IIIS IOI SOI IIIA ISI SIIS SII IA 
3101 aR 
3102 xt Narie: KEYDEF - KEYDEF$ function execution 
3103 x 
3104 *X Category: FNEXEC 
3105 ak 
3106 xt Purpose: 
3107 xk Inplenents KEYDEF$ function 
3108 AR 
3109 et Entry: 
3110 aR P= 0 
3111 ah D1 is stack pointer 
3112 aR DO is PC 
3113 ie 
3114 at Exit: 
3115 aR Exits through EXPR 
3116 a 
3117 *% Calls: GTKYC*, KEYFND, GTINAR, POPNTH, BF2ST+, STKCHR, 
3118 x ADHEAD 
3119 as 
3120 at History: 
3121 ak 
3122 ze Date Progranner Modification 
3123 BR manne nn ener nen nee nnn nner nnn nnn nnn nnn nen nnn nen eee 
3124 - 10/25/83 B.S. Added docunentation 
ae JI ITO II ITO ITI III IIIS IAS II III IIIS IOS IOS ISIS IIIT II: 
3127 JI IIIT TI SI IIIT TITTIES IO III III IAI III IIIA II SAIS SII IIIS IS ASIS. 
3128 O92F7 411 NIBHEX 411 Argurient range [1,1] 
3129 O92FA 136 =KEYDEF CDOEX 
3130 O92FD 108 RO=C Save DO in RO 
3131 09300 137 CD1IEX 
3132 0933 109 R1=C Save D1 in Ri 
3133 096 7A7A GOSUB GTKYC* 
3134 0930A 560 GONC KEYDFO 
3135 0930D 646A GOTO  GTINAR 
3136 09311 73A9 KEYDFO GOSUB KEYFND Find key definition? 
3137 09315 07 DC OA Save entry length in D(A) 
3138 09317 1849 DO=(5) =AVMENS 
5F2 
3139 O931E 146 C=DATO A Read AVMENS 
3140 09321 DF CDEX A Put in D(A), C(A)=Entry length 
3141 09323 412 GOC KEYDF1 Yes, then display definition 
3142 09326 111 A=R1 
3143 09329 795F GOSUB popnt+ 
3144 0932D 110 A=RO 
3145 09330 130 DO=A Restore DO 
3146 09333 341A LC(S) UNASS" 
290 
3147 0933R 6000 ; GOTO =bfest+ Push string on stack and goto EXPR 
3148 iS 
3149 


3150 03933E 8D00 =MOveu3 GOVLNG =NOVEU3 For several jurps... 





Saturn Assenbler Mascellaneous Execution Routin Fri Dec 3, 1983 4:49 an 


Ver. 3.39/Rev. 2306 KEYDEF$ function execution Page 65 
000 
3151 
3152 x. 
3153 09345 8FOO KEYDF1 GOSBVL =KEYTYP 
000 
3154 0934C 103 R3=A Added by NM 3 Nov 82 


3155 0934F 129 CRIEX R1=Def type char,C(A)=D1 save 
3156 09352 137 CDIEX Restore D1,C(A)=Defintion pointer 
3157 09355 134 DO=C DO points to definition 
3158 09358 7D2F GOSUB  popnth Pop paraneter off stack 
3159 0935C 137 CDIEX 
3160 O935F 135 D1=C Copy Di to C (Stack pointer) 
3161 09362 129 CRIEX C(B)=Def type char,R1=Stack start 
3162 09365 8£O GOSUBL =stkchr Output def type char 
0) 
3163 0936B 113 A=R3 Recall def length+1 
3164 0936E CC KEYDF2 A=A-1 A 
3165 09370 CC A=A-1 A 
3166 09372 411 GOC KEYDF3 Exit loop if all chars done 
316? 09375 14€ C=DATO B Read char of definition 
3168 09378 161 DO=D0+ 2 Move pointer past char 
3169 0937B 8£00 GOSUBL =stkchr Output char to stack 
00 
3170 09381 5CE GONC KEYDF2 (B.E.T.) 
3171 a. 
3172 - 


3173 09384 110 KEYDF3 A=RO 
=A 


3174 09387 130 
3175 03938A 840 
3176 0938D 8000 

00 
3177 09393 


ST=0 0 
GOLONG =Adhead 


END 


Restore DO 
Don’t return fron ADHEAD 
Add string header and junp to EXPR 
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ARRANGE Ext 683 

ARGERR Ext 1725 

ASNANT Ext 128 


12 572 574 1145 1410 2026 2088 
12. 2695 3138 


AVMEME Abs 193945 #2F599 
AVAEMS Abs 193940 #2F594 


Adhead Ext - 3176 

=BANG Abs 35400 #08A48 - 905 

BSCKLP Ext - 9&8 

C=ASTK Abs 35312 #089FO - 764 523 755 
CLSUSP Ext - 2774 

CNTADR Abs 194174 HOFE7E - 12 2636 
CNICK2 Ext - 2775 

=COLLAP Abs 37371 HOSIFB - 2956 

CONVUC Ext - 1745 

=CORUPT Abs 36995 #09083 - 2587 2573 2601 
CPLH1O Ext - 2778 

CREATF Ext - 1226 

CRUFSO Ext - 1327 

DO=PCA Ext - 243 807 
DIFSTK Ext - 424 764 

=DATA Abs 35360 #O8A20 - 886 

DATADC Ext - 884 

DATP Ext - 885 

DECHEX Ext - 1825 

DISINT Abs 193648 #2F470 - 12 X37 
DRANGE Ext - 1819 

DTi=C Abs 35304 #089E8 - 757 527 

=E LSE Abs 37322 HOSICA - 290 2917 
=EOLSCN Abs 35495 HO8AA7 - 1028 271 2900 
=EOLSNS Abs 35505 HO8AB1 - 1031 1036 
SEQLSN? Abs 35513 #O8AB9 - 1034 

ERRSUB Abs 194179 #2F683 - 12 2548 
EXITRN Ext - 2783 

EXPEX- Ext - 751 

EXPEXC Ext ~ 391 1105 1707 2874 
F-RO-1 Abs 194720 #2F8AO - 12 1242 
FILEF Ext ~ 1482 

FIXDC Ext - w?79 

FNDDO+ Ext - 2913 

FNRTIN2 Ext - 329 

=FOR Abs 34394 #0865A - 96 

FOR10 «Abs 34443 HO868B - 115 99 
FORDC Ext = 94 

FORERR Abs 34380 HO864C - 92 «118 

FORP Ext - 95 

FORSTK Abs 193950 #2F59E - 12 402 574 693 2956 
FORUPD Ext - 2698 

FORXQe Abs 34376 #08648 - 9% 131 

FPoll €xt - 2513 

FRNLO4 Abs 34753 #087C1 - 276 269 
FRNLOS Abs 34767 HO87CF - 282 280 
FRNLO? Abs 34771 #08703 - 284 31 
FRNL2O Abs 34842 HO881A - 311 Wo 
FRNULL Abs 34704 #08790 - 258 245 
FRIEST Abs 35182 #0896E - 636 633 


Saturn Asserbler 


Ver, 3.39/Rev. 2306 Synbol Table 


FRXQ30 
FRXQ35 
FRKQ40 
FRKQ45 
FRXQ5O 
GETPR 
GETST 
GOTO 
GSBSTK 
GTINAR 


GTKYOS 
GTKY10 
GTKY15 
GTKY1?7 
GTKY25 
GTKY 30 
GTKY 34 
GTKY35 
GTKY40 
GTKY45 
GTKY50 
GTKY5S 
GTKY6O 
GTKY65 
GTKY ?0 
GTKY80 
GTKYC* 
=GTKYC+ 
=GTKYCD 
GTKYNH 
T/ocOL 
IF 

IF OC 
IFP 

IF XQO3 
TF XQO5 
TF XQO7 
IFKQO8 
IF XQ10 
=IMAGE 
INDKO? 
INDKO4 
INDXO?7 
INDKO8 
INDXSN 
INVRES 
KBRT 10 
KBRT15 
KBRT 20 
=KBRTCK 
=KEY 
KEY42 
KEY45 
KEY4? 


Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 


Abs 
Ros 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Robs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


34545 #O86F 1 
34565 #08705 
34568 #08708 
34670 #0876E 
HA674 #08772 


193956 #2F5A3 


36290 #O8DC2 


36296 #08DC8 
36367 HO8EOF 
36422 #O8E46 
36454 #O8E66 
36444 #O8E5C 
36458 #O8E6R 
36463 #O8E6F 
36465 #08E 71 
36469 #O8E75 
36473 #08E79 
36492 HO8E8C 
36511 #O8E9F 
36526 #O8ERE 
36571 HO8EDB 
36581 #O8EE5 
36599 HO8EF? 
36228 #O8D84 
36251 #08098 
36242 #O8D92 
36224 #08080 


37249 #09181 


37276 #09190 
37285 #091AS 
37326 #O91CE 
37332 #091D4 
37347 #09163 
35400 HO8A48 
35219 #08993 
35243 #O89RB 
35277 HO89CD 
35279 HO8SCF 
35194 #O897A 


37178 #091 3A 
37187 #09143 
37193 #09149 
37139 #09113 
35533 HO8ACD 
35564 #O8AEC 
35623 #O8B27 
35652 #08B44 


169 
176 
177 
238 
243 
1624 
12? 
2320 
12 
1725 
3135 
172? 
1755 
1770 
1785 
1780 
178? 
1789 
1790 
1792 
1796 
1806 
1816 
1820 
1836 
1841 
1849 
1702 
1709 
1707 
1700 
2691 
2874 
2872 
2873 
2883 
2887 
2901 
2939 
2913 
903 
691 
698 
711 
712 
681 
224 
2780 
2783 
2791 
2773 
1086 
1100 
1118 
1128 


145 
164 
164 
215 
213 


1926 
1740 


1715 
1720 
1774 
1809 
1783 
1781 
1804 
1788 
1798 
1778 
1700 
1823 
1852 
1839 
183? 
1792 
2998 
1705 
1086 
1736 


2878 
2838 
2890 
2896 
2881 


685 
709 
700 
706 

36 


2795 
2776 
2638 


1093 
1116 
1123 


236 


2098 
1753 


1749 


1820 


1802 


1855 


1845 
3133 


W811 


2915 
2884 
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KEYSO Abs 35655 #08847 11% 1126 
KEYCOD Ext 1767 
KEYDIO Abs 37457 #09251 R11 W114 
KEYD15 Abs 37468 #0925C KI? Hi2 
KEYD20 Abs 37487 #0926F 23 WO6 W40 
KEYD25 Abs 37501 #09270 H28 W25 
KEYD30 Abs 37520 #09290 #36 2995 
KEYDC = Ext 1084 

=KEYDEF Abs 37626 #092FA 3129 

=KEYDEL Abs 36140 #08D2C 1562 1095 
KEYDFO Abs 37649 #09311 3136 3134 
KEYDF1 Abs 37701 #09345 3153 3141 
KEYDF2 Abs 37742 #0936E 3164 3170 
KEYDF3 Abs 37764 #09384 3173 3166 

=KEYDWN Abs 37392 #09210 29% 

=KEYFND Abs 36024 #08(B8 1479 1211 1562 3136 

=KEYMRG Abs 35727 #O8B8F 1202 1135 
KEYP Ext 1085 
KEYPTR Abs 193603 #2F443 12 W82 
KEYSAV Abs 193634 #2F462 12 3037 
KEYSCN Ext 2992 
KEYTYP Ext 3153 


1311 1223 1258 
1241 1216 1219 


=KMENCK Abs 35915 #08C4B 
KNRG3O Abs 35828 #O8BF4 


i) ’ ' ! ' ! ' ' ' ‘ ' ' ' ' ’ ' ' ' ' ' ' ' ’ ' ' ' 4 ' 1 ' ' t ' ' ‘ ’ ' ' 1 t ' 1 1 ' ' t ' t ' ‘ ' t] 1 ' 1 


KARG5SS Abs 35872 #08C20 1258 1249 
KARG85 Abs 35839 #08C3B 1267 1255 

KYD30, «Abs 36177 #08051 1575 1254 
KYFD10 Abs 360% #O8CFA 1504 1517 
KYFD20 Abs 36127 #O8DIF 1519 1514 
KYFD) Abs 36134 #08026 1523 1483 
KYFD40 Abs 36138 #08D2A 1525 1506 
=KYFND+ Abs 36052 #08CD4 1489 
=KYMRG+ Abs 35746 HO8BAZ 1209 

KYPRC2 Abs 36215 #08D77 1630 1627 
KYPRCK Abs 36190 #08D5E 1619 1244 1564 
=LABEL Abs 35364 #08A24 893 

LABLIO Abs 35367 #08A27 894 §=6897 
LAKEYS Ext 1229 1479 
=LINSKP Abs 35333 #O8RO5 809 247 285 1035 2897 
=LNSKP- Abs 35327 #089FF 807 1030 2886 
MEMBER Ext 1765 

MEMCKL Ext 117 

MENCL+ Ext 1311 1401 

MFERR = Ext 1314 1628 2508 2588 
MOVED2 Ext 1263 

MOVEU1 Ext 1415 

MOVEU3 Ext 3150 

MOVEUR Ext 1575 
=MOVNXT Abs 35719 #08B87 1155 

MOved3 Ext 2036 
=MOveu3 Abs 37694 #0933E 3150 1155 
=NEXT Abs 34892 #0884C 377 

NEXT10 Abs 34925 #08860 391-370 
NEXT5O Abs 35040 #088E0 444 2639 
NEXT5S Abs 35043 #08853 445 434 
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NEXTKB Abs 34846 #O881E 360-389 

NOPRGN Ext - 2773 

NXTCK7 Abs 35118 #O892E - 568 238 450 

NXTCK9 Abs 36124 #08934 - 571 124 133° 174 251 383 
NXTDC Ext = 375 

NXTDNE Abs 35053 HO88ED - 450 427 

NXTE32 Abs 34874 #0883R - 372 366 369 378 387 

NXTP Ext = 376 

NXTSN? Abs 34799 #O87EF - 296 292 

=NXTST1 Abs 35403 HO8R4B - 907 

=NXTST2 Abs 35416 HO8A58 - 912 311 

NXTST3 Abs 365429 #O8A65 - 917 447 899 

NXTSTS Abs 36046 #088E6 - 446 252 440 2%1 

=NXTSTM Abs 36400 #08A48 - 906 451 886 1096 1156 2509 


NoCont Abs 14 HOOOOE - 11 2686 
PCADDR Abs 194169 #2F679 - 12 BIS BOF 
=PO0P Abs 36815 HOSFCF - 2478 

POPIN+ Ext = 2875 

POPIR Ext - 393 762 

POP1S = Ext - 1709 

=POPGSB Abs 36670 HO8F3E - 2014 2559 
POPNTH Ext - 333 


POPSH Abs 35283 #089D3 - 750 137 146 
=POPSTK Abs 36693 #08F55 - 2026 109 192 
=POPUPD Abs 36670 #O8F3E - 2015 2634 

PRGMEN Abs 193895 #2F567 - 12 262 2826 

PROMST Abs 193890 #2F562 - 12 2822 2826 
=PSHGSB Abs 36627 HO8F13 - 1918 
=PSHNCR Abs 36619 #O8FOB - 1914 
=PSHSTK Abs 35967 #O8C7F - 1393 1927 
=PSHSTL Abs 35973 #08C85 - 1400 
=PSHUPD Abs 36621 HO8FOD - 1916 
=PTRAD1 Abs 36739 #08F83 - 2088 142? 
=PTRAD2 Abs 36746 HO8F8A - 2089 2094 
=PUT Abs =: 37569 #09201 - 38 

PUTK10 Abs 37615 #OS2EF - 3095 3089 


PgnRun Abs 13 #OOOOD - 11 2623 2684 
RACTNI Ext - 2602 
RDATTY Ext - 1098 

=REN Abs 35400 #O8A48 - 904 

RENDC =Ext - 901 

REMP Ext - e 
RETRNp Ext ‘- 2486 
=RETURN Abs 36832 #O8FEO - 2487 

REVS Ext - 1109 
RFALi++ Ext = 1265 
RFAD-- Ext - 1578 
RNGERR Abs 37533 #09290 - 3043 3001 
RST01—s Ext - 1270 

RSTS Ext - 258 

RINCC Ext - 2477 


RTNERR Abs 36857 #O8FF9 - 2504 2515 2526 
RINSTK Abs 36766 HOSF9E - 2098 2015 2495 
RINX1O0 Abs 36850 HOSFF2 - 2495 2479 2490 
RINX20 Abs 36878 HOS00E - 2513 2534 
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RTNK30 Abs 36890 #O901A - 2522 2496 
RTNX40 Abs 36924 #0903C - 2548 2532 
RTNX45 Abs 36944 #09050 - 2559 2551 
RTNX5O Abs 36978 #09072 - 2582 2571 
RTINX60 Abs 37003 #0908B - 2596 2583 
RINX?70 Abs 37025 #O90A1 - 2617 2585 
RTNX75 Abs 37050 #O90BA - 2623 2621 
RTNX8O Abs 37057 #09001 - 2633 2597 
RINX9O Abs 37081 #09009 - 2639 2624 


RUNRTN Ext = O07 
S-RO-O Abs 194673 #2F871 - 12 399 1101 11H” 
S-Ri-2 Abs 194699 #2F88B - 12 520 
SAVEL# Ext - 2779 
=SCOPCK Abs 37211 #0915B - 2822 2584 
SETSU1 Ext - 2777 
=SNcrlf Abs 35954 #08(72 - 1325 2506 2574 2586 2633 
=STMBCL Abs 37095 HOSE? - 2687 
=STMBUF Abs 37087 HOSODF - 2684 2488 
STOPDC Ext - 2476 2485 
STORE Ext = $29 
STRNGP Ext - 80 
=TKSCN+ Abs 35435 #O8R6B - 965 
TKSCN2 Abs 35438 #O8R6E - 966 989 


=TKSCN4 Abs 35441 #08871 - 967 986 
=TKSCN7 Abs 35481 #O8A99 - 982 291 
TRCVAR Abs 35061 #088F5- 510 2H 417 


TRCOVRS Abs 35097 #08919 - 523 514 
TRFLCK Ext - 1323 
TRFROM Ext - 1319 

TRTO+ = Ext ~ 443 

TRIO- Ext - HE 

TRIOr = Ext - 2622 
TST12A Ext - 637 
UNASS" Abs 37537 #092A1 - 3046 3146 
UNORD Abs 34629 #08745 - 220 209 
UNSTEP Abs 2 #00002 - «©1585 163 176 208 
UPDFCL Ext - 1268 
UPDPCR Ext - 2618 
UPDPCC Ext - 2910 
XQBLK? Abs 35148 #0894C - 623 211 426 
XQEND Abs 35190 #08976 - 638 6H 
ZERPGN Ext - 2794 

bSTNT Abs 2049 #00801 - 11 2109 
bf2st+ Ext - 3147 
eFiWoNX Ext - 293 
eMNCOR Ext - 2587 
eNXwoF Ext - 372 
eRuoGS Ext ~ 2507 
eUNORC Ext - 223 

fKEY Abs 57868 #OE20C - 11 1232 
ifofnd Ext - 2110 
IDRTEh Abs 6 #00006 - 11. 1234 
IFLAGH Abs 2 #00002 - 11. 1234 
IFLENH Abs 5 #00005 - 11. 1235 
1IFNANh Abs 16 #00010 - 11. 1230 
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IFTYPh Abs 4 #00004 - 11. 1233 1234 
ITINEh Abs 4 #00004 - 11 1234 


nferr Abs 35924 #08C54 - 1314 92. 294 = 373s 1403 
nxtstr Abs 36874 #O900R - 2509 2505 2540 2561 396 


oF LENH Abs 32 #00020 - 11. 1221 1490 

oF TYPh Abs 16 #00010 - 11 1234 

okYsod Abs 5 #00005 - 11 1221 1493 1565 
pRTNTp Abs 58 #OOO3R - 11 2514 


popnt+ Abs 37510 #09286 - 3032 3003 3143 

popnth Abs 37513 #09289 - 3033 3158 

rdatty Abs 35557 HO8AE5 - 1098 90 1108 
Frstd! Abs 35908 #08044 - 1270 

rtncc Abs 35348 #O8A14 - 815 969 


sENDx Abs 1 #00001 - 11 446 906 

SRETRN Abs © #00000 - 11. 2478 2487 2504 2539 2560 
stkchr Ext - 3162 3169 

strbfd Abs 36796 HO8FBC - 2109 361 2687 2780 2791 

t! Ext - 2916 

tCONNA Ext - 1091 

tELSE Ext - 2894 

tEXTIF Ext -~ 2944 

tNEXT Ext - 287 

tSTEP = Ext - 143 


trcfri Abs 35940 #O8(C64 - 1320 309 

trcfrn Abs 35928 #08(58 - 1317 307 442 2491 

trflck Abs 35948 #O8C6C - 1323 305 439 1325 2489 2620 
uADI2 = Ext - 409 

utsti2 Abs 35184 #08970 - 637 160 
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Input Paraneters 
Source file nane is SG&EXC: AS 
Listing file nane is SG/EXC:TI:ML::-1 
Object file name is SGZEXC: TI: MS: :-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 
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& 

& TIITT ITI & EEEEE RRRR ODDD 

* T I 6&8 € R R OD O 

* T I 8& € R R OD OD 

* T I 8 EEEE RRR 0D 

é T I 8&8 E RR DO 

x T I 8&8 & € R R DD 

: T III 8& & EEEEE R R ODDD 


TITLE Error Message Driver <831216.1627> 
ABS #9393 


RDSYNB TIZEQU: = AS 
RDSYMB SBZRAN: : MS 
t 


JK III SI TIT I IO TOTO TOTTI II TI ISI OT ITS SIT SIS I IAT IIA 
InhEOL EQU 4 '!1t Sane as SB&IO !!! 


centr? EQU (InhEOL)+1 Flag for DSPCNA. 
jbidth? EQU (InhEOL)+2 Flag for DSPCNA. 

x Entry options, stored in C(12): 
delay €QU 0 Inhibit delay. 

parse EQU 1 Parse error. 

warn EQU 2 Warning. 

beep EQU 3 


JORIS IIR III IIIT I OSI II OSI SIS IIIS IIIS IS ISIS IIS: 
FOR IO TOTO SIRI DITO IIIT IIT IIT 
xk 


** Narie:(S) pWARN = - 
ah 


Warning poll 


*% Category: POLL 

ah 

xk Type: POLL 

ak 

xk Purpose: 

= Alert LEX files that a warning 1s about to go out. 
ah 

** Should poll be "Handled" (return with XM=0)?: 

is Only if you want the message to be entirely suppressed. 
ak Most applications will "handle" the poll without 
aK setting XM=0 (see below). 

ak 


** Meaning of “Handling” Poll (what does code do if XN=07): 


AX It’s up to you. For instance, a LEX file might want to 
ak intercept all warnings and errors to write then to a 

ak file; in this case, do your thing and return with XM=0 
s so that the nessage is suppressed. 

** Entry conditions for handler (registers, ST, RAN, etc.): 

ak BLA] = Poll nunber. 

ak HEX rode. 

aK P=0, 

ae ACA)=0 if Quiet (flag -1) is to be checked, 

else A(A)=FFFFF if Quiet is not to be checked. 
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56 ax FEDCBAS 8 2? 6 5 432 1 «90 
57 - RO: | | | | | 
59 AB | | | | 
60 aK } control codes for text insertion | | 
61 a + Entry P value (see MFWRN) | | 
62 ak LEX ID of nessage | 
63 ak Message nuriber 
64 ak 
65 ak 
66 ** Norrial exit conditions fron handler if handled (ST, RAN, 
67 ** registers, etc.): 

68 aks Carry clear. 

69 as HEX rode. 

70 aK KN=0. 

71 aK P=0, 

#2 e no other requirenents -- the nessage will be suppressed 
73 

74 kk Nornal exit conditions from handler if not handled (ST, RAN, 
75 *k registers, etc.): 

76 aK Carry clear. 

77 ae HEX node. 

78 alas XM=1. 

79 wh P=0, 

80 RO can be changed as needed to adjust msg (see MFWRN) 
81 

82 ** Error exit conditions fron handler: 

83 ah Carry set. 

84 a HEX node. 

85 ak C{0-3] = Error nunber. 

86 ak P= value to select options in MFERR* 

87 ik 

88 *k Available subroutine levels: 

89 ak 6 

90 ae 

91 kk What registers/RAN nay be used if handled’: 

92 ak A,B,C,D,00,D1,P,RO 

93 aia (Not available: R1,R2,R3,R4,ST, scratch RAN) 

94 kk 

95 ek What registers/RAN nay be used if not handled?: 

96 ak A,B,C,0,00,01,P,RO (change RO only to affect msg) 

97 ae (Not available: R1,R3,R4,ST, scratch RAN. 

98 * R2 unavailable except for rare cases when insertion 
99 aK text is being passed to the msg routines. ) 
100 ak 
1014 ** What registers/RAM nay be used if error exit (POLL only)?: 
102 ak A,B,C,D,00,D1,P,RO 
103 a (Not available: R1,R2,R3,R4,ST, scratch RAN) 
104 ak 
105 ** NOTE: 
106 AX The pWARN poll (and other message polls) are usually 
107 a "handled" without setting XM=0. This is to allon 
108 a‘ all LEX files to get a chance to intercept the poll. 
199 A 


119 Ae. A LEX file which intercepts the poll has essentially 
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111 ax four choices: 
112 RA 1) Abort the warning nessage, continue executing 
‘ 113 ala or uhatever else it wants to do (including 
114 ae junping instead to the error routine). 
115 an 2) Change the values in RO to cause a different 
116 aK warning to be reported, or to cause different 
117 ak entry conditions as selected by the value in 
118 kk RO(S), or to cause different text insertion 
119 ak by changing the values in R2 (text insertion 
120 ak applies only to certain rare messages). Then 
121 ax allow the poll to return to the warning routine 
122 aK with XxM=1. 
123 ak 3) Simply clear XM ("poll handled’). This causes 
124 kK the nessage to be suppressed; message driver 
125 aK returns immediately (without setting ERRN, etc.) 
126 x 4) If error is generated by poll handler, set carry 
127 &K and load error nunber in C(3-0). This will 
128 Cause a jump to BSERR with the new error nunber. 
131 ** Envisioned application(s): 
132 an A) Foreign Language Translators: if the warning nessage 
133 aR nunber is fron the appropriate LEX file, the nessage 
134 =x nunber in RO is adjusted to generate the translator’s 
135 = message. (If a type {5} building block is included 
136 ax in the nessage, this will have to be adjusted through 
137 a a nested pTIRANS poll, too. See IDS volune I, chapter 
138 RK "Message Handling".) Set XM=1 and return. 
139 *k —-B) Say a LEX file intercepts all warnings, urites the 
140 KK message nunber (ERRN) and line number (ERRL) to a 
141 kk file, and suppresses the display of the warning. 
142 aK When intercepting this poll, it would do the 
143 ak necessary processing and return with XM=0. 
144 RX C) Say another operating systen will not allow any 
145 a warnings to be issued, only errors. It could 
146 eX intercept the pWARN poll and jurip directly to 
147 a BSERR so that the warning 1s converted into an error. 
148 os D) An autonated card puller ('?!?) might trap the 
149 xs appropriate card reader messages and use then as 
150 a prompts when to insert and pull cards. 
151 
152 ae 
153 ** History: 
154 ak 
155 ae Date Progranner Modification 
156 ih Soeeiws  Basceskioe,. obeelaticclsac.ceacawinnetevaustee 
157 xx 10/05/82 NB Docunentation 
158 *k 01/27/83 MB Added “poll handled" suppress 
xx 
en FOI OO ITT TTT ITO 


161 FORO ROO IIT TUTTO ITO I IO 
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162 EJECT 
163 JOTI DO ITI II IIIS III TOT I III II ITT OT I IIT IIIS II III III IIT K 
164 JOKIIIIIDO I TOT SITS OS III II II III II TIS OT IIIS ISIS II II III IOI TK 
165 ax 
166 ** Nane:(S) pERROR - Error poll 
167 ax 
168 ** Category: POLL 
169 ax 
170 ** Type: POLL 
171 am 
172 ** Purpose: 
173 ws Alert LEX files that an error is about to go out. 
174 x 
175 ** Should poll be "Handled" (return with XM=0)?: 
176 ax Only if you want the message to be entirely suppressed. 
177 x Most applications will "handle" the poll without 
178 a setting XM=0 (see belou). 
179 a 
180 ** Meaning of "Handling" Poll (what does code do if XM=07): 
184 ax It’s up to you. For instance, a LEX file might want to 
182 si intercept all errors and warnings to urite then to a 
183 ae file; in this case, do your thing and return with XNM=0 
184 = so that the riessage 1s suppressed. 
185 nA 
186 ** Entry conditions for handler (registers, ST, RAM, etc.): 
187 ae B[A] = Poll nunber. 
188 Bt HEX rode. 
189 aK P=0. 
190 1k 
191 ae FTE TD 8 A 8S Bo oe. Bs Se 
192 = RO: | | | | | | 
194 me | | | 
195 ax | control codes for text insertion | | 
196 ax + Entry P value (see MFERR*) | 
197 a LEX ID of message | 
198 ae message nunber 
199 a 
200 ak If parse error (identified by bit3 in RO(S)=1xxx): 
201 xe Address in INBS points to input strear 
202 an A(R)= address of error within input strean 
203 as 
204 : 
205 ** Nornal exit conditions fror handler if handled (ST, RAN, 
206 ** registers, etc.): 
20? ax Carry clear. 
208 ue HEX rade. 
209 ae XN=0. 
210 ae no other requirerients -- the nessage will be suppressed 
eli ax 
212 ** Norrnal exit conditions fron handler if not handled (ST, RAN, 
213 ** registers, etc. ): 
214 ae Carry clear. 
215 ie HEX trode. 


216 a KM=1. 


Saturn Assenbler Error Nessage Driver <831216.1 Fri Dec ©, 1983 5:13 an 


Ver. 3.39/Rev. 2306 Page 5 
217 me RO can be changed as needed to adjust nsg (see MFERR*) 
218 
219 ** Error exit conditions fron handler: 

220 xs Carry set. 

221 aK HEX node. 

222 aK C{O-3] = Error nunber. 

223 ae P= value to select options in MFERR* (caution: do not 
224 aK select a parse error in this manner -- A(A) cannot 
225 aK pass information back through the poll. i.e., do 
226 ates not set bit3 in P. If such a thing is necessary, 
227 an the appropriate action 1s to abort the poll and 
228 ve junp directly to BSERR, MFERR or MFERR*. ) 

229 

2H” ** Available subroutine levels: 

231 aK 5 

232 aK 

233 xk What registers/RAM may be used if handled?: 

234 Ra A,B,C,D,D0,D1,P,RO 

235 a (Not available: R1,R2,R3,R4,ST, scratch RAN) 

236 a 

237 ** What registers/RAN nay be used 1f not handled?: 

238 ak A,B,C,D,D0,D1,P,RO (change RO only to affect nsq) 

239 ae (Not available: R1,R3,R4,ST, scratch RAN. 

240 ax R2 unavailable except for rare cases uhen insertion 
241 ak text is being passed to the nsg routines. ) 

242 ak 

243 ak NOTE: If a parse error (bit3 in RO(S)=1xxx), 

244 ak then DO NOT call I/OALL, IODALL -- DO 

245 nm NOT allocate, deallocate or adjust the 

246 a length of any 1/0 buffer! 00 NOT change 

247 a the value in AVMENS or INBS! (1/0 buffer 

248 aX routines nove I/0 buffer menory and change 

249 ak AvMenSt.) These pointers may be changed 

250 xe if the error is NOT a parse error. 

251 i 

252 *k What registers/RAM nay be used if error exit (POLL only)?: 
253 ak A,B,C,D,D0,D1,P,RO 

254 ak (Not available: R1,R2,R4,ST, scratch RAM. 

255 KK R3 1s unavailable unless the error is a parse error; 
256 ak i.e., if RO(S)=1xxx. ) 

257 a 

258 ** NOTE: 

259 xk The pERROR poll (and other nessage polls) are usually 
260 Kk "handled" without setting XM=0. This is to allow 

261 - all LEX files to get a chance to intercept the poll. 
262 x 

263 a Reneriber, if a parse error, do NOT change the values 
264 kx in AVMENS or INBS! This prohibits any adjustment (or 
265 a allocation/deallocation) of 1/0 buffer length. 

266 

267 xx A LEX file which intercepts the poll has essentially 
268 gs four choices: 

269 a» 1) Abort the error nessage, continue executing 

270 wk or whatever else it wants to do (including 


271 aK jumping instead to the warning routine). 
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272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
HO 
1 
H2 
03 
304 
5 
H6 
x07 
08 
9 
310 
311 
312 
313 
314 
315 
316 
31? 
318 
319 
320 
321 
322 
323 
324 
3c8 
326 


xk 
ak 
kx 
x 
xk 
Kk 
kk 
xk 
kk 
x 
ae 
KK 
ax 
x 
Kk 
Kx 
Kr 
ke 
ax 
a 
xk 
xk 
ak 
xx 
xx 
ae 
xk 


Error 
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2) Change the values in RO to change the fornat 
of the message: 

1) change RO(4-0) to generate a different 
nessage 

11) change RO(S) to select different options 
(see MFERR*). However, bit3 in RO(S) 
CANNOT be changed! Bit3 in RO(S) indicates 
a parse error; if you need to change this, 
the appropriate way is to junp directly to 
BSERR, MFERR or MFERR* with your oun entry 
conditions. 

111) change the values in R2 to change text 
insertion (text insertion applies only to 
certain rare messages). 

Then allow the poll to return to the error 
routine with XNM=1. 

3) Sinply clear XM ("poll handled"). This causes 
the message to be suppressed; message driver 
returns intediately (without setting ERRN or 
ERRL, mithout checking ON ERROR!) 

4) If error 1s generated by poll handler, set carry 
and load error nunber in C(3-0). Thais will 
cause the neu error to be displayed. 

In addition, the poll handler nay perforn any 
housekeeping type functions, such as cleaning up 
pending operations. 


** Envisioned application(s): 


xk 
aK 
ax 
ak 
xk 
ak 
ak 
ae 
xx 
wk 
xx 
xx 
xk 
xk 
xk 
ax 
kk 
ak 
xk 
ae 
a 
ax 
ae 
x 
xk 
** 
a 


A) 


B) 


9) 


Foreign Language Translators: if the error nessage 
nunber 1s from the appropriate LEX file, the nessage 
nunber in RO 1s adjusted to generate the translator’s 
ressage. (If a type {5} building block is included 
in the nessage, this will have to be adjusted through 
a nested pTRANS poll, too. See IDS volune I, chapter 
"Message Handling".) Set XM=1 and return. 

Say a LEX file antercepts all errors, writes the 
ressage number (ERRN) and line nunber (ERRL) to a 
file, and suppresses the display of the error. 

When intercepting this poll, 1t would do the 
necessary processing and return with XM=0. 

Say another operating systen prevents any error fron 
halting execution; instead 1t issues warnings and 
recovers without user intervention. It could 
intercept the pERROR poll and jurip directly to 

MNFURN so that the error 1s converted into a warning. 
MFWRN is a subroutine, so processing would return 

to this operating systen. 


History: 


Date Progranrer Modification 


10/05/82 MB Docunentation 


O1f2 


7/83 MB Added “poll handled" suppress 
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327 KEK KEK IKE KAKI RRA KERR ARK IKK REIKI ERAK EKER KIER RIERA KARI 
328 KKK KKK KAKA KKK ERE TERE IRI IRI SOR TOOTS TOR IR TRE RISO 
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329 
330 SII DI III IT IIIT IIIT ISIS IST II III III IIIS III ISI III III IIIS II SAI IIA 
331 ITI IIS III II IIS IASI IIIT IAS ISIS III III IIIS III III I ITI IIIS II ISIS IK 
332 xe 
333 ** Narie:(S) pMen - fMenory error poll 
334 ae 
335 *k Category: POLL 
336 ae 
337 ** Type: FPOLL 
338 as 
339 ** Purpose: 
40 a Alert LEX files that an "Insufficient Menory" error 
341 as is about to be reported. 
342 at 
43 *X Should poll be “Handled” (return uith XM=0)?: 
4 xR Only if you want the nessage to be entirely suppressed. 
345 RE Most applications will "handle" the poll without 
346 ak setting XM=0 (see below). 
347 xt 
48 ** Meaning of “Handling” Poll (that does code do if XM=07): 
9 xR It’s up to you. For instance, a LEX file night want to 
350 ak intercept all errors and warnings to write then to a 
351 aR file; in this case, do your thing and return with XM=0 
352 xx so that the message is suppressed. 
353 ae 
354 ** Entry conditions for handler (registers, ST, RAN, etc. ): 
355 xk B[A] = Poll nunber. 
356 a HEX node. 
357 a P=0, 
358 ak 
359 x FEDBC BAS 8 7 654321 90 
360 ae RO: | [0 0 |F | | | | 
362 se | | | | | 
363 ak | | error flag | | 
364 a | insertion codes | | 
365 ax + Entry P value (see MFWRN) | | 
366 ak LEX ID of ressage | 
367 as nessage nunber 
368 ae 
369 aS 
370 ** Norrial exit conditions from handler if handled (ST, RAN, 
371 *k registers, etc.): 
372 os Carry clear. 
373 a HEX rode. 
374 7 xM=0. 
375 a P=0, 
376 a no other requirenents -- the nessage will be suppressed 
37? a 
378 *X Norrial exit conditions fron handler if not handled (ST, RAN, 
379 ** registers, etc.): 
380 AP Carry clear. 
381 AP HEX node. 
382 a XM=1. 


383 KK P=0, 
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nt a RO can be changed as needed to adjust nsg (see NEMER*) 
3 
386 &* Available subroutine levels: 

387 = q 

388 aK 

389 tk What registers/RAM nay be used if handled’: 

3% ak A,B,C,D,D0,D1,P,RO 

391 - (Not available: R1,R2,R3,R4,ST, scratch RAN) 

392 

393 ** What registers/RAM nay be used if not handled?: 

394 RK A,B,C,D,D0,01,P 

395 aK RO: change RO(3-0) to nodify message 

396 ak RO: change RO(14-13) to allow text insertion 

397 el (only if you’re the LEX file that originated 
398 ak the message, and know what you’re doing). 

399 aR (Not available: R1,R2,R3,R4,ST, scratch RAM. 

400 ak 

401 ak 

402 ak NOTE: 

403 ak The pNEM poll (and other message polls) are usually 
404 RR "handled" without setting XM=0. This is to allow 
405 S all LEX files to get a chance to intercept the poll. 
406 

407 aR The message number is usually eMEM (18 hex, 24 dec). 
408 zx But any LEX file can call the NEMER* routine with its 
409 = oun message number; the fact that it called MEMER* 
410 - neans that it is reporting insufficient nerory. 

414 

412 ak The MEMERR routine uses the leeway area in available 
413 ae nenory as a building buffer; there is only enough roon 
414 ak for about 80 characters, plus prefix. If a poll 

415 ak handler substitutes another message nunber, it cannot 
416 RK exceed an 80 character linit (a message should never 
417 aX be longer than about 25 characters, anyway). If it 
418 ak does, the computer would enter an infinite MEMERR loop. 
419 aK 

420 RF A LEX file which intercepts the poll has essentially 
421 kk four choices: 

422 a 1) Abort the error message, continue executing 

423 kk or whatever else it wants to do (including 

424 ae junping instead to the warning routine). 

425 ae 2) Change the values in RO to change the fornat 
426 a of the message: 

427 ak i) change RO(4-0) to generate a different 

428 a nessage 

429 ak ii) change RO(S) to select different options 
430 ak (see MFERR*). However, bit3 in RO(S) 

431 ax CANNOT be changed! Bit3 in RO(S) indicates 
432 ass a parse error; if you need to change this, 
433 nx the appropriate way is to junp directly to 
434 ak BSERR, MFERR or MFERR*® with your oun entry 
435 a conditions. 

436 aE Then allow the poll to return to the error 

437 4X routine with XM=1. 


438 ak 3) Sinply clear XM ("poll handled"). This causes 
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439 
440 
441 
442 
443 
444 
445 
446 
44? 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
47? 
478 
479 
480 
481 
482 
433 
434 
425 
486 
487 
488 
433 
490 


ak 
ak 
xk 
xk 
ak 
ak 
ak 
xx 
ax 
xk 
ak 
ax 
ak 
ak 
ax 
xx 
ak 
xk 
ak 
ak 
ak 
ak 
ax 
ak 
ak 
ak 
aK 
ax 
ax 
ak 
xk 
ak 
ak 
xk 
ak 
ah 
ak 
ak 
an 
xk 
ak 
xk 
aK 
ak 
xk 
ak 
ae 
aX 
ak 
ak 
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the ressage to be suppressed; message driver 
returns inmnediately (without setting ERRN or 
ERRL, without checking ON ERROR!) 
4) Replace the address in level 1 of the RSTK 

(counting fron 0) with its own address, so 
that after the nessage is displayed, processing 
returns to itself. 

In addition, the poll handler can perforn any 

housekeeping type functions (such as cleaning up 

pending operations). 


One other option deserving nention is that of 
generating a nenory error which calls for text 
insertion. For instance, say an external systen 
has 6 different files open, and is writing to 
then randonly; it reaches insufficient nenory 
while writing to FILE4, so wants to report: 
Write Linit: FILE4 
using a text insertion point to pass "FILE4". 
Before calling MEMER*, set up R2 for insertions. 
When handling the pMEM poll, verify that this is 
indeed your message, adjust RO(14-13) to contain 
the insertion codes, and return with XM=1. 


Envisironed application(s): 


A) 


B) 


Foreign Language Translators: if the error nessage 
nuriber 1s fron the appropriate LEX file, the nessage 
nuriber in RO is adjusted to generate the translator’s 
message. Set XM=1 and return. 

Say a LEX file intercepts all errors, writes the 
ressage nunber (ERRN) and line number (ERRL) to a 
file, and suppresses the display of the error. 

When intercepting this poll, it would do the 
necessary processing and return with XM=0. 

Say another operating systen prevents any error from 
halting execution; instead 1t issues warnings and 
recovers without user intervention. It could 
intercept the pERROR poll and jurip directly to 

MFWRN so that the error is converted into a Marning. 
NFWRN 1s a subroutine, so processing would return 

to this operating systen. 


History: 


Date Progranner Modification 


10/05/82 MB Docunentation 


01/2 


7/83 AB Added "poll handled” suppress 


FOROS OOOO IOI IIIS I OIOIOE 
SOR IOI UI IOI ICT ITO TO TIO 
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‘i 491 
492 SII IS III ISI ISI ID IIS ISI IIIS ISI III SISS IS III IIS ISSIS IIIS ISIS SIS 
493 SII IOI IO TIT SLT TTDI DDT DTI TAIT AIDS TTDI III IIA IIIT ASIII SAIS: 
494 ee 
495 ** Nane:(S) MFERR - Mainfrane BASIC systen error 
496 ik 
497 ** Category: SYSTEM 
498 an 
499 ** Purpose: 
500 i Generate a BASIC systen error fron the nainf rane 
501 xe tables. See BSERR entry for details. 
502 ag 
503 10 JOSIE IST COTO STIS ASIST ISIS: 
504 SII IS IOI IOI III IIIT I III IIIT IIIT IIIS SSSI ISI II III ISS SII ISS ISS IIS: 
* 
oe SIRI III RIT II IIIS IIIT ISI IIIT IIIS I IOI S IIIS SII IIS IIT IIIS IIS SSIS IN 
507 JIS UII I TO TTR TE 
508 tk 
509 ak 
510 ** Wane: (S) BSERR - BASIC systen error 
511 ak 
: 512 ** Category: SYSTEM 
: 513 * 
i 514 ** Purpose: 
515 ax BSERR -- Generate a BASIC systen error. 
a. . MFERR -- First sets €(3-2)=00, then falls into BSERR. 
17 
518 *k Entry: See MFERR* 
519 ®* Exit: See MFERR* 
: 520 ** Uses: See MFERR*. Also S14, Si, SO. 
: 521 ** Calls: NFERR* 
522 ae 
523 tk Stk lvls: 3 
524 ar 
525 ** NOTE: 
526 x NFERR and BSERR are generally for errors generated by 
527 aR the BASIC systen, as they exit to the BASIC main loop. 
528 a Those applications which wish to sirply display an 
529 : error and return should call MFERR* (a subroutine). 
530 
531 ** Detail: 
532 ax MFERR -- Set C(3-2)= 00 for mainframe LEX ID. 
533 x BSERR -- Call MFERR* 
5x4 am Set NoCont flag (stop execution) 
535 oe Clear END statenent flag 
536 ak Set Error flag 
537 ax Exit through BASIC loop 
538 RK 
539 ** History: 
540 ik 
541 kx Date Prograrnner Modification 
542 TR) ieidteense eeecee hes Wiee ede Mee cer Sore ee, 
543 ** 06/29/82 MB docunentation 
544 kK 03/29/83 IP Set ERROR flag; Clear END flag 


545 a 
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546 JU IOC III CISCO COO TOO ISIS I SII 
547 JOISTS TOOT CI IIT III TIT TTR IT 

* 
Cs JX ICIS IOC IIIS EI OCK 
550 IIIT IASI III IIIT I ISI II III III SOIT SSSI SSSI IS SSIS II III SII ISIS SI SASS 
551 ae 
552 ** Nane:(S) MFERRS - Stop BASIC execution for error 
553 KA 
554 ** Category: SYSTEM 
555 ae 
556 ** Purpose: 
557 aX Return to BASIC main loop with status bits set to 
558 ak cause execution to stop. 
559 ax 
560 &k Entry: 
561 ak P = 0 
562 ax 
563 RK Exit: 
564 kx To ERRRTN (BASIC main loop) 
565 ax 
566 &* Calls: Exits to ERRRTN (BASIC main loop) 
567 x 
568 ** Uses....... 
569 ** Exclusive: $13, S4, S80 
570 ** Inclusive: BASIC main loop uses everything. 
571 aK 
572 ** Stk lvls: 0 (see BASIC nain loop: RUNRTN) 
573 a 
574 ** NOTE: 
575 Ax Standard entry point to stop BASIC execution because 
576 a of an error. 
577 aX 
578 ** Algorithn: 
579 mn Set status NoCont=1 
580 -* Set status sENDx=0 
581 an Set status sERROR=1 
582 a Exit to ERRRTN 
583 an 
584 ** History: 
585 ae 
586 aX Date Prograriner Modification 
587 Rko ceheccsie .Stissconecie,, . eee tle coe eee tote eee Sok 
588 ke 40/31/83 MB docunented 
589 ei 
590 SUI IO IIIS TA TO TICS TIS TASS AIA 
591 FORO IORI ROTO IOI OI TOI II OI IIIT OIC 
592 09393 DS =MFERR B=C A Nsg# to B(B). 
593 09395 fe C=0 R Set LEX#= 00. 
594 09397 AES C=B B 
595 0939R 7350 =BSERR GOSUB MFERR* 
596 O939E 85£ =MFERRS ST=1 NoCont Set "Stop execution” flag. 
597 093A1 841 ST=0 — sENDx Clear END statenent flag 
598 O93R4 850 ST=1 — sERROR Set ERROR flag 
599 093A? 800 GOLONG =ERRRTN Return to BASIC loop 


00 
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600 x 
601 x 
602 III SII SII ITI SIDI III III PII ISSIA 
603 x 
604 x 
605 093AD 8OFF MsgPOL CPEX 15 Save entry options in C(S). 
606 09381 04 SE THEX 
607 09383 108 RO=C Save nsgl, flags in RO. 
608 09386 8C00 GOLONG =P011) Slow poll. 
00 ¥ 


609 x 
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610 EJECT 
611 JOGO III IOC IOI CI TI IE 
612 JO GI IIIT IOI IEG OC IIE IIIT TTT 
613 ak 
614 ** Nane:(S) MFWRN - Warning/nessage driver 
615 ** Nane:(S) MFWRNQ - Warning/nessage driver 
616 - Nane:(S) MFWRQ8 - Warning/nessage driver 
617 x 
618 ** Category:  GENUTL 
619 ax 
620 *x Purpose: 
621 ax Display warnings and tiessages fron standard nessage 
622 KA tables. 
623 ae 
624 ** Entry: 
625 KA 
626 kk (1 )------------------ 
627 Kk | 
628 xk | P= Ixxx = Sound Beep 
629 kk 
630 kk | P= xxx Do not store ERRN 
631 ak | 
632 kk |) P= xxtx = Display message only (Else display 
633 a | "WRN:" or "WRN L:" prefix, too) 
634 Kho | 
635 ak | P= xxxt = Display message without setting delay. 
636 kk | 
63? x 
638 a 
633 Kk (2) ------------------ 
640 Ak | 
641 ek |) 6 €(3-2)= LEX IDA (hex) (nainfrane ID# = 00) 
642 kk | =< C(B)= message ID number (hex) 
643 ke | 
644 ak 
645 a 
646 kk (3) ------------------ 
64? Ax | Cf desired message has text insertion points: 
648 kx |) OR2 register: source of text insertion. 
649 ke | C14): type of insertion. 
650 ek |) 6 C(13): how many characters in insertion. 
651 ek | 
652 KS | R2 
653 kk Jo wanes 
654 ax | = actual output characters 1f C(14)= 1xxx 
655 Ae = address of output characters if C(14)= Oxxx 
656 eo = additionally, if €(14)= 0000, upper byte 
65? AX | of R2 contains control nibbles. 
658 KK | 
659 kA | C(14) 
660 a a 
661 ax + 1xxx use contents of R2 register as output 
662 ae Oxxx use address in R2 register to find output 
663 ae | 
664 ne x000 = Qutput is already in ASCII forn 
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665 ae | 
666 ae f Digit output (digits can be Hex or Dec): 
667 BE c.f x001 Digit output-- replace leading 0’s u/blanks 
668 se x010 Digit output-- don’t suppress leading 0’s 
669 ae | x011 Digit output-- suppress leading 0’s 
670 ae | 
671 kk | 
672 ae | Hex-to-Dec conversions always generate 
673 2 decinal numbers with 7 digits: 
674 ae | x100  Hex-to-Dec: suppress up to 3 leading 0’s 
675 aa x101 Hex-to-Dec: suppress up to 4 leading 0’s 
676 ae | x110  Hex-to-Dec: suppress up to 5 leading 0’s 
677 ae | x111.  Hex-to-Dec: suppress up to 6 leading 0’s 
678 ae 
679 ae 
680 aa C(13) 
681 HE) Seeee 
682 ae | For €(14)= 1000 ("ASCII output is in R2") 
683 ae | C(13)= #nibbles-1 to be output. Hence the 
684 a | nibs MUST be even!!; €(13) odd. E.g., 
685 ae | if 5 chars for output, C€(13)=9. 
686 ae | 
687 aa For €(14)= xOxx (hex or dec digit output) 
688 mae fd C(13)= #digits-1 to be output, hence 
689 xk | no more than 16. 
690 ae | 
691 aR | For C(14)= x1xx (hex-to-dec conversion) 
692 a | C(13)= #digits-1 in nunber to be converted 
693 ae | Max hex value for conversion is FFFFF 
694 ae | (1048575 dec), hence C(13) must be 4 
695 ae | or less. 
696 ae | 
697 ae | For C(14)= 0000 ("ASCII output fron DAT") 
698 a | C(13)= 0: no output 
699 ae | 1: Send out specified nurber of 
700 ae | character; R2(15-14)= #chars-1. 
701 xe | 2: Send out chars until ASCII ternin- 
702 ae | ator is found. ASCII terninator 
703 ae | is passed in R2(15-14) (usually 
704 ae | an FF terninator, but any byte 
705 a | value can be used). 
206 ae | 
707 ah 
708 ae 
709 ** Entry for MFWRQS: 
710 ae Sane as for MFWRNQ, except that P will be set 
711 ae explicitly to 8. Processing then falls into MFWRNQ. 
712 ak 
713 AX EXIT: 
714 = P = 0 
715 = Carry set 
716 ak 
717 xk Calls: POLL, SFlag?, KILLKY, FCALC?, CRLFND, UPDCRL, 
718 xx Sflagl, TBMSID, DOASCI, TBMSTX, A=CUR, AVS=C, 


719 ae AVS2DS, CHIRP, XDELAY, CRLFSD, BLDDSP, NFLG=x, 
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720 ak R<RST2, RST2<R 
724 xe 
Pee AK Uses... css. 
723 xk Exclusive: ACW), BW), CCW), DCW), P, BO, D1, RO 
724 is R2 (only if text insertion; otherwise not used) 
725 xk Inclusive: Sane 
726 ak 
72? XK Stk lvls: 2 
728 aR 
729 ** NOTE: 
730 aK If the message constant is eMEM (18 hex), the nessage 
731 a routines will autonatically invoke MEMERR, and issue 
732 ae an Insufficient Memory error. 
733 ak 
734 ** Detail: 
735 xk — Exanple of text insertion: 
736 x Message #88 in the mainfrane is TFM WRN L{5}:{6}, 
737 xx where {5} indicates an insertion point for a line 
738 xR nunber, and {6} indicates an indirect reference to 
739 ak another message. If we wanted to display 
740 xa TFN WRN L145: Syntax (Syntax is nsg #4Bhex) 
741 kk we could pass the line number in R2 with the 
742 aR appropriate control codes in C (x=don’t care): 
743 ak R2= xxxxxxx004Bx0145 
744 ox 0145= dec digits for output 
745 a 0Q0O4B= indirect nessage nunber 
746 aR 
747 ar C= xB3xxxxxxxxx0088 
748 ain 0088= desired warning nessage 
749 aig 3=Hdigits-1 to be output 
750 = B=1xxx: use contents of R2 
751 a x011: digit output, suppress leading 0’s 
752 a 
753 xn Or, alternatively, 
754 sia R2= xxxxxxx004Baaaaa 
755 as aaaaa= address to find digits 
756 “se 004B= indirect message nunber 
757 ae 
758 ae C=  x33xxxxxxxxx0088 
753 = OO88= desired warning ressage 
760 aX 3=Hdigits-1 to be output 
761 a 3=Oxxx: use address in R2 
762 me x011: digit output, suppress leading 0’s 
763 _ 
764 xk Or,... 
765 AA R2= xxxxxxx004Bxxx91 
766 ae 9ihex=145 decimal 
767? ie OO4B= indirect nessage nunber 
768 Re 
769 AE C= XFAUXXxxxxxxx0088 
770 - 0088= desired warning nessage 
771 aX 1=#digits-1 to be converted to decinal 
772 ae F=1xxx: use contents of B register 


773 aA x111: suppress up to 6 leading O's 
774 a : 
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775 
776 
777 
778 
779 
7380 
784 
782 
783 
784 
785 
786 
787 
788 
789 
79 
794 
792 
793 
794 
795 
796 
79? 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 


812 
813 


814 
815 
816 
817 
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ak Or,... 
ak R2= O3xxxxx004Baaaaa 
ak aaaaa= address to find ASCII output 
ak 004B=indirect nessage nunber 
at 03=#characters-1 to be output 
hh 
aK C= xO1xxxxxxxxx0088 
ak 0088= desired warning nessage 
ak 1= output number of chars found in R2115-14) 
ak O=output is in ASCII forn already, resides at 
a address found in R2. 
ak 
&* History: 
kk 
ak Date Progranner Modification 
WE eet sGelatusae, Jowtercdastocwcaceseswecuceueccesece 
ak 06/29/82 NB docunentation 
kk 01/27/83 MB Poll error handle, XM=0 suppress 
kK 03/04/83 MB Saved 3 RSTK levels 
kk 04/11/83 MB Added KILLKY call. 
ke 
JOO CIO TTI TTI ITO I IIIT TITAS IIIS III 
JO IT TTT IIT III IDI IT IATA III SII IISA 
093BC DO 8 =—-=MFURN §=A=0 A 
O93BE CC A=A-1 A A(A)=-1: “Don’t check QUIET". 
09300 460 GOC NFWRO3 (BET) 
09303 28 =MFWRQ8 P= 8 
093C5 DO = =MFURNQ A=0 A "Check QUIET option". 
093C7 72EF MFWRO3 GOSUB MsgPOL Slow poll with pWARN. 
093CB 3F CON(2) =pWARN 
093CD 4CC GOC BSERR Error during poll handle. 
& 
093D0 8AC 7RHO OAR Check QUIET? 
093D3 FO GOYES MFWROS No. 
09305 31FF LC(2) =Ff1QIET Yes. 
09309 8£00 GOSUBL =SFlag? QUIET option set? 
00 
O93DF 400 RTNC Yes. Shhh. 
O93E2 8FOO MFWROS GOSBYL =KILLKY Zero KEYDEF (for CALC node...) 
000 
093E9 2A P= 10 To set €(12)=0. 
O93EB 544 GONC MFERO2 (BET) Into error message code. 
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818 
819 JO III II II IOI IIIA T III III II III III IIIS III IIIS IOS III ISI SAI: 
820 IKI IIIT EI III III ITI SI ITI I IIIT III II IIIA III SI III ISIS ISOS IIS IIS IA 
821 ae 
822 ** Narie:(S) MFERR* - Error message driver 
823 *k Narie: MFERR- - Error message driver 
824 aK 
825 *k Category:  GENUTL 
826 aK 
827 ** Purpose: 
828 - Display error messages fron standard tessage tables. 
829 x 
830 tk Entry: 
831 ak 
832 Rk (1 )----------------- 
833 a | 
834 RKO P= 1 xxx This is a Parse error (i.e., re- 
835 Ln | display input line u/cursor backup) 
836 Re | x1xx Do not store ERRN 
837 Rk | (Else store ERRN and ERRL) 
838 ae | xxx Display sg only (Else display 
$39 ae | "ERR:" or "ERR L:", too) 
840 a | bitO not used at present (**) 
841 ae | 
842 ae 
843 ak 
844 RK (2) -------- een nee 
845 ae | 
846 xx | C(B)= message ID number in Hex. 
847 kk | 6C(3-2)= LEX IDR in Hex (=00 for nmainfrane tbl) 
848 ae 
849 xR 
850 ak 
851 BK (3) -- nner nn nen ene 
852 ae 
853 kk | If P=txxx (parse error): 
854 ae | INBS points to first char of INput Buffer, with 
855 BK | a 3 nibble length field preceding it. 
856 ak | 
857 Re | D1 points to char in input buffer u/error 
858 ae 
859 ae I A(A)= Address of pronpt string for input 
860 tt re-display (prompt must be enclosed in 
861 te | deliniters, both sides. Deliniters 
862 ae can be any byte value. E.g., pronpt 
863 ak | string for an editor tight look 
864 ct. like xCrd:x , uhere x’s are any 
865 ~ | natching byte value. ) 
866 ae | or =O For "use BASIC prompt string" (defaults 
867 ae | to the pronpt string 3>3, where the 
868 mee vd 3’s are the matching delimiters). 
869 a 
870 ad 
871 ke (Xk) Bit of the P register 1s reserved for future 


872 &k applications, as a way for the LEX file which 
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873 ax generated the error to connunicate with other 
874 aR LEX files; this bit can be detected during the 
875 ae pERROR poll in RO(S). The neaning of this bit 
876 . is not yet decided. In the neantine, bitO must=0. 
877 
878 ** Entry for MFERR- : 
879 aa ~ DO as C(3-0) above. 
880 ax 
881 ae 
882 AX Exit: 
883 ax Pp = 0 
884 ak 
885 **® Calls: POLL, fCALC?, CRLFND, UPDCRL, 
886 &R SflagC, TBMSID, DOASCI, TBMSTX, A=CUR, AVS=C, 
887 aK AVS2DS, CHIRP, XDELAY, CRLFSD, BLDDSP, MFLG=x, 
888 ax R<RSTZ2, RST2<R. Might junp to ONERR. 
889 aK Parse errors also call: 
890 ax CKINF-, DSPBUF, DSPCNA, DSPCHA, CURSFL, CURSRR, 
891 ax ESCSEQ 
892 aK 
893 kX Uses. ...... 
894 kk Exclusive: A(W), B(W), CCW), DCW), P, DO, D1, RO 
895 ae R2 (only for MFERsp entry with text insertion; 
896 <F otherwise not used) 
897 ax S13 1s tested for: "Running progran?" 
898 = If you’re calling this routine just for 
899 AX nessage display, watch out for $13!!! 
900 a Available Memory (starting at AvMerSt) is 
901 * also used as a building buffer for nsg. 
902 aS PARSE ERRORS also use: 
903 ak R3 (stores prompt address and #cursor-rights) 
904 kk R1, R2 (used in SENDWD) 
905 a STNTRO (in CKINFO and SENDWD) 
906 xk Inclusive: Sane 
907 ax 
908 ** Stk lvls: 4 (parse errors only) 
909 am 2 (all other errors) 
910 XK 
911 ** NOTE: 
912 xx Parse errors re-prompt and rebuild the input line. The 
913 xx prompt is built in the display observing WIDTH. This is 
914 kx not a problem with the BASIC prompt (">"), since it is 
915 xx only one character; but an external system using a multi- 
916 xx character prompt should be aware that the prompt, after 
917 xx a parse error, nay be split between tuo lines. (This 
918 xx feature was incorporated to acconodate INPUT pronpts. ) 
919 aX 
920 %k Messages are built in Available Menory, which 1s used as 
921 xk a tenporary buffer. This can cause a MEMERR; see the 
922 xx MEMERR routine for details. 
923 ae 
924 kk If the error nessage nunber at entry is the eMEM constant 
925 kk (18hex), the message routines will autonatically invoke 
926 xk =~ the NEMNERR routine, and an Insufficient Menory error will 


927 kk result. 
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928 ax 
929 *k Any error entering through MFERR* (includes MFERR and 
9% xX — BSERR) disallous text insertion. Sone applications nay 
931 xx construct error messages which allow text insertion; if 
932 *k you want to issue these messages as errors you have 
933 xk three choices: 
934 kx 1) Issue then without any text insertion (use MFERR*, 
935 an MFERR or BSERR) 
936 tx 2) Issue ther as warnings, nade to look like errors 
937 kx (use MFWRN) (see IDS volune I, chapter "Message 
938 ke Handling"). 
939 a 3) Call MFERsp entry point (see MFERsp heading). 
940 aK 
341 ak 
942 ** Detail: 
943 x RO usage: 
944 aK FEDCBAXY876543210 
945 Bl elo alate eel eae lated 
946 ax oad: *: Tis | | 
947 RX 8 ~eosobeieceuwcetcecoewos See Sete 
948 ax { | +- urng or error +- nSg nunber 
949 ae | +- insert codes 
950 ak +- option flags 
951 ak 
952 ** Algorithn: 
953 ae (1) Put option flags in C(S). 
954 aes Save options and LEX#, rsg# in RO. 
955 ae Call POLL 
956 a4 If Parse error, calculate #backups and store 
957 kx mith ACA) in R3. 
958 xx If eMEM constant, branch to MENERR, 
959 ** MFER.6 If “don’t store error#" option go to (2) 
360 ax Else, store error# in ERR#. 
961 a If running program (S13=1), store Line#. 
962 ae (2) If running progran (S$13=1), and not a warning, 
963 an and ON ERROR in effect, branch to ONERR. 
964 oe If "nessage text only" option, go to (4) 
965 ae Build LEX ID prefix for message. 
966 an Build "ERR" or “ERR L". 
967 AY If running progran ($13=1), build line#. 
968 na Build ":" 
969 ae (4) Build nessage text. 
970 FX Display entire message. 
971 ae Beep. 
972 ae Send CR, LF. 
973 ka If warning, return. 
974 ax If not parse error and $13=1, position DO 
975 aa to line# or @, return. 
976 KH (Parse error: ) 
977 = Set up CKINFO for SENDWD, send out pronpt. 
978 sos Redisplay input line. 
979 = Nove cursor far left. 
980 ae Send out required # of cursor-rights. 
981 +S 


982 ** History: 
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983 a 
984 xk Date Progranrer Modification 
985 PR ceteee Siescewton jee e eset eee he ot ein 
386 xk 06/29/82 NB docunentation 
987 ** 06/18/83 NB deleted P=xxx1 entry flag 
988 aK 
989 FORO JI UIT TTT TTT OTTO TTT ATT TIT 


990 FORO JIU JOJO TO TIT TIT 
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991 
992 JORIS ISOC GOC OI OGIO OI II TI AIK 
993 este tte tees tttetttsttttttettettttttettttttttettettt ttt tt tteet 
994 x* 
995 ** Nane:(S) MFER42 - Position DO to start of BASIC stnt. 
996 RR 
997 ** Category: EXCUTL 
998 ak 
999 **k Purpose: 
1000 Kk To position DO to start of BASIC stunt -- to either 
1001 a an "@" character, or the line nurber. 
1002 KK 
1003 *k Entry: 
1004 aR PCADDR pointer must be updated already (points 
1005 xx to the first token in the BASIC staterent). 
1006 ak $13=0 if program not running 
1007 kx =1 if progran running. 
1008 ak 
1009 kk Exit: 
1010 aa (P unchanged) 
1011 aX Carry set: progratt not running (S$13=0 at entry) 
1012 aK Carry clear: progran running (S13=1 at entry) 
1013 ak DO points to either the "@" character 
1014 Kk or to the line number at the start of 
1015 kk the BASIC statenent. 
1016 ak 
1017 ** Calls: DO=PCA, ATCHK 
1018 Xk 
1019 kK Uses....... 
1020 xk Exclusive: DO 
1021 **k Inclusive: A(A),DO 
1022 ee 
1023 kK Stk lvls: 1 
1024 aR 
1025 ** NOTE: 
1026 RR This routine does not find the start of a BASIC state- 
1027 ae nent ~- call CPLH10 for that. For MFER42, PCADDR must 
1028 aS already point to the first token in the statenent. 
1029 wx This routine sinply backs up DO to the "@" (D0-2), 
1030 ak or the line nuriber (DO-6). 
1031 ax 
1032 ** Algorithn: 
1033 a7 If $13=0 (program not running), return. 
1034 ae Fetch PC from PCADDR, put in DO. 
1035 aK Back ™ up 2 nibbles, to possible "@". 
1036 ak ATCHK: If DO points to "@", rtnec. 
103? ee Else, DO-4 to point to line nurber. 
1038 _s 
1039 ** History: 
1040 a 
1041 ae Date Progranner Modification 
1042 RK nnn een ween nner n ere nn nnn nen nn ee nnn ene nen eee ee 
1043 A* 12/08/82 NB Docunentation 
1044 xx 


1045 FORRES ERR IIR BORO 


Saturn Assenbler Error Nessage Driver <831216.1 Fri Dec WK, 1983 5:13 an 
Ver. 3.39/Rev. 2306 Page 23 


1046 KK KEK KARA AER EREAKERER ERE KEK KIEK RE KARR AKER AEE RRA IKI RI III 
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1047 EJECT 
1048 JO II OO III II TOO OO OCI III OI TI TIO TITAS TAK 
1049 II KRIS I DI III IT IAI ITI I TISAI IKI SII III II III IIIS III ISAS II III I ATI IA 
1050 xh 
1051 ** Narie:(S) MFERsp - Error Message With Text Insertion 
1052 aR 
1053 ** Category:  GENUTL 
1054 as 
1055 ** Purpose: 
1056 = Special entry point into error nessage handler, 
1057 A allowing text insertion (only in those known nessages 
1058 7 which have insertion points). 
1059 a 
1060 ** Entry: 
1061 xk 
1062 RR (| ern n enn n een 
1063 ae | 
1064 xk = | RO(S) = entry options as specified for P in MFERR* 
1065 ne 
1066 ah 
1067 aR 
1068 RR (2 Jenn nner een enn 
1069 a | 
1070 xe | -RO(B)= message ID number in Hex. 
1071 kk | ROC 3-2)= LEX IDK an Hex (=00 for nainfrane tbl) 
1072 Re? <i 
1073 aR 
1074 as 
1075 RR (J) nem none en nne nee ne 
1076 oc | 
1077 kk = | Parse errors: Sane as condition (3) for MFERR*. 
1078 Re | 
1073 aR 
1080 ak 
1081 kk (4)----------------- 
1082 BRS | 
1083 xx | Text insertion: Sane as condition (3) for MFWRN. 
1084 xk | (See "Details" under MFWRN for exanples. ) 
1085 me Al 
1086 be 
1087 ax 
1088 ** All other details as specified in MFERR* . 
1089 eo 
1090 ** See "NOTE", "Details" and "Algorithm" entries under MFERR*. 
1091 a 
1092 ** Detail: 
1093 ae MFERsp should be called (as a subroutine) as 
1094 ax follows: 
1095 “es 
1096 ah <set R2 according to text insertion options> 
1097 a <set C(14-13) according to text insert options> 
1098 xe <set C(S$) bits according to MFERR* options> 
1039 ee <set €(3-0)=nessage nunber> 
1100 eK RO=C Store options, nsg # in RO 


1101 es SETHEX 
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1102 ae GOSBVL =POLL pERROR poll. 
1103 a CON(2) =pERROR 
1104 an CPEX 15 In case poll error, options. 
1105 ah P= 12 P value for “error”. 
1106 ae LCHEX OOF In case poll error... 
1107 ax GOC LABEL1 CRY=poll error. 
1108 Ks 7KN=O Poll handled? 
1109 ak GOYES LABEL3 Yes! Abort nessage. 
1110 ax C=RO 
1111 aK LCHEX F C(12)=F for “error” flag. 
1112 ** LABEL1 GOSBVL =MFERsp 
1113 ** LABEL3 P= 0 (if necessary fron ?XHN=0 
1114 RR oo ag aia junp, above....) 
1115 aK 
1116 ak 
1117 tk History: 
1118 al 
1119 ah Date Progranner Modification 
1120 Hh hes) Qe eeee® | Secon ate enor en tee oe eae 
1121 As 09/22/83 MB docunentation 
x 
We FORO OO 


1124 FORRES 


1125 O93EE 136 =MFERR- CDOEX LEX IDW and MSGH to C. 

1126 O93F1 78BF =MFERR* GOSUB MsgPOL Slou poll; save entry in RO. 
1127 O93F5 2F CON(2) =pERROR 

1128 


1129 O93F7 80FF CPEX 15 In case of POLL error. 

1130 O93FB 2C P= 12 To load “OOF" in C(14-12). 

1131 O93FD 4A0 GOC MFERO3 CRY=POLL error. New nsg# in C. 

1132 09400 118  MFERO2 C=RO No POLL error. Fetch nsg#. 

1133 09403 831 ?xN=0 Poll handled? (“suppress nsg"?) 

1134 09406 00 RTNYES Yes. 

1135 09408 32FO MFERO3 LCHEX OOF C(13-14)= 00: "No insert text". 
0 

1136 O940D 108 =MFERsp RO=C 

1137 09410 A46 C=C+C §$ Parse error? 

1138 09413 562 GONC MFEROS No. 

1139 09416 89A ?P= 10 Maybe. Warning? 

1140 09419 62 : GOYES MFEROS Yes. 

1141 

1142 09418 AF2 C=0 W For CSRB below. 

1143 OS41E 1B6C DO=(5) =INBS 
6F2 

1144 09425 146 C=DATO A C=address start of parse strean. 

1145 09428 133 ADIEX A=address of parse error. 

1146 09428 EE C=A-C A C=#nibs to right of start. 

1147 0942D 540 GONC MFERO4 

1148 09430 D2 C=0 A 

1149 09432 81E  MFERO4 CSRB C=Hchars to right of start. 

1150 09435 7827 GOSUB CSLWPS To C(9-5). 

1151 09439 137 CDIEX C(A)= prompt address. 

1152 0943C 10B R3=C Save both in R3. 

1153 . 

1154 0943F 110 MFEROS A=RO Nsgt to A. 
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1155 09442 D6 
1156 09444 7650 
115? 09448 86 
1158 0944B £5 
1159 
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C=A A 
GOSUB MENER1 
ARC OR 


GOYES MFER.6 


Page 26 


Copy A(4) to C(4). 

Load nsgl for "Insuff Menory". 
MEMERR? 

No. 

YES!! Fall through to MENERR. 
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1160 EJECT 
1161 SOIR TO OOOO IOI OTT IIS IAI TSI II IOS AB IIIS IIIS I SSA 
1162 JOS IOI TOI OTT IIIT III IITA 
1163 aR 
1164 ** Nane:(S) MEMERR - Insufficient Memory error 
: 1165 ** Nane:(S) MEMERX - Insufficient Nenory error 
’ 1166 tal 
1167 ** Category: SYSTEM 
1168 aK 
1169 tk Purpose: 
1170 - Process "Insufficient Menory", exit to BASIC nain loop. 
1171 
1172 a* Entry: 
1173 ak MEMERR -- No required conditions. 
1174 ak MEMERX -- P=entry options as in MEMER* 
1175 ak 
1176 tk Exit: 
1177 aK P = 0 
1178 ax Available Menory recoverd (AvMenSt and AvMenEnd 
1179 an collapsed). 
1180 aR 
1181 ** Calls: MEMER* 
1182 aK 
1183 tk Stk lvls: 3 
1184 ala 
1185 ** NOTE: 
1186 ak See MEMER* for all details. 
1187 &k 
1188 ** Detail: 
1189 RK MEMERR -- sets P=0 
1190 ak MEMERKX -- sets C(3-0)= eMEN (18hex) 
1194 aA falls into MEMER* 
1192 aK exits to BASIC main loop mith: 
1193 ak $14=1 (NoCont) 
1194 ax SO=1  (sERROR) 
1195 aK S1=0 (sENDx) 
1196 ak 
1197 ** History: 
1198 Am 
1199 zs Date Progratner Modification 
1200 OM ee! eee, Whee eee eee 
1201 - 10/05/82 MB _ Wrote code, docunentation 
x 
ae JOIST OC TI TO TIO TOTO TTT ITI IK 
1204 JORIS III OGIO OC TT TOT TTR TIT TT 
1205 JO OOS ICI TOC OTIS SIT OK 
1206 JOO UICC IIIA CC TT II 
1207 te 
1208 ** Nane:(S) MEMER* - Low-level neriory error 
1209 a 
1210 *k Category: SYSTEM 
1211 RE 
1212 ** Purpose: 
1213 ax Display low-level menory error to the user. 


1214 te 
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1215 *k Entry: 
1216 i 
1217 RKO (| )--------------- ee 
1218 kk | (sane as MFERR*) 
1219 BE: | 
1220 kk | P= (1xxx)!! Indicates Parse error. THIS SHOULD 
1221 ax NEVER BE SET FOR A MEMERR! MEMER* 
1222 ax | collapses AvMenSt, causing the 
1223 Re input buffer (address in INBS) to 
1224 Ree oil be destroyed! 
1225 ae | x1 xx Do not store ERRN 
1226 Rk (Else store ERRN and ERRL) 
1227 Re | xx1x Display nsg only (Else display 
1228 AR of “ERR:" or "ERR L:", too) 
1229 Aa bitO not used at present (**) 
12H Re | 
1231 ak 
1232 ais 
1233 th (2)----------------- 
1234 xk | (sane as MFERR*) 
1235 he. »' 
1236 xx | C(B)= tressage ID number in Hex. 
1237 kk | €(3-2)= LEX ID# in Hex (=00 for mainframe tbl) 
1238 ae a 
1239 ax 
1240 x 
1241 RK (3) ---- eee ne nee eee 
1242 kk | (sane as MFERR*) 
1243 ae: 4] 
1244 ex | NEVER CALL MEMER* AS A PARSE ERROR! (I.e., never 
1245 kk | enter mith P=1xxx. ) 
1246 Re | 
1247 ax 
1248 kk (**) BB tO of the P register 1s reserved for future 
1249 BA applications, as a way for the LEX file which 
1250 ae generated the error to contunicate with other 
1251 KS LEX files; this bit can be detected during the 
1282 cs pnEN poll in RO(S). The meaning of this bit is 
1253 ak not yet decided. In the neantine, bitO rust=0. 
1254 a 
1255 ** Exit: 
1256 ue P = 0 
257 ak 
1258 AA Calls: FPOLL, COLLAP, CLCOLL, AUTCLR, TRNFCK, 
1259 a MFER.6 (MFER.6 is an entry point in MFERR*® -- 
1260 a see MFERR* for more details) 
126) ae 
1262 AROS ESS cwniees 
1263 ** Exclusive: ACW), BCW), CCW), DCW), P, DO, D1, RO 
1264 a $13 is tested for: “Running progran?" 
1265 x* If you’re calling this routine just for 
266 as message display, watch out for S13!!! 
1267 sae Available Menory (starting at AvMenSt) is 
1268 = also used as a building buffer for nsq. 


1269 tk Inclusive: Sane 
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1270 am 
1271 ** Stk lvls: 2 
1272 a 
1273 ** NOTE: 
1274 ** The entry point MEMER* allows ANY nessage to be 
1275 xk reported in lieu of "Insufficient Menory", and still 
1276 ** be handled as a nenory error. This neans you can 
1277 xk = display, say, “Out of Scratch Area" as a way of 
1278 **k reporting a meriory error. This capability 1s included 
1279 ** to allow external systens to generate menory errors 
1280 xk and report ther as they desire. But this capability 
1281 *k can cause serious conditions (such as an infinite 
1282 *k MEMERR loop) if sone rules are not followed: 
1283 xx 1) Never invoke MEMER* (or MEMERR or MENERX) as 
1284 am a parse error. 
1285 KR 2) Any error entering through MEMER* (includes 
1286 ak MENERR and MEMERX) disallous text insertion. 
1287 ke This can be overridden in the pMEM poll. But 
1288 ak never use a message which contains a type{5} 
1289 aR insertion!!! A type<5} insertion may cause 
12% ae a slow pTRANS poll to be issued, which may 
1291 es cause an infinite MEMERR loop. 
1292 ak 
1293 xk The preferred way for a LEX file operating in the 
1294 **k BASIC systen to generate a different nenory error 
1295 ak (i.e., other than “Insufficient Menory"), 1s to call 
1296 kk NENERR and then intercept the pMEM poll to change the 
1297 *k message number or options. On the other hand, a 
1298 x LEX file which wants to generate a menory error which 
1299 *x takes text insertions should set up the insertion 
1300 *k codes in R2, call MEMER* with the appropriate nessage 
1301 xk nunber, and adjust €(14-13) during the pMEM poll. 
12 
13 *k Detail: 
14 as RO usage: 
135 xx FEDCBAS98 7654321090 
1X6 RK eee EEE Soo ete eee cee se oS 
1”? =e 1) FI | | 
1X08 AX sg “bee See coset ee eT Se ke eco 
19 ae | | +- error code +~ nsg nunber 
1310 a | +- insert codes 
1311 ae +- option flags 
Ne ae 
1313 ** Algorithn: 
1314 wk (1) Put option flags in C(S). 
1315 es Save options and LEX#, risg# in RO. 
1316 xx Set €(14-12)=00F (suppresses text insertions) 
1317 aK Call FPOLL 
1318 RS Collapse Available Merory 
1319 RS Turn off AUTO rode 
1320 &K Check if TRANSFORM in effect (this essentially 
1321 ex include TRANSFORM in the poll); if so 
1322 xx branch back to TRANSFORM. 
1323 AX Junp to MFER.6 (see MFERR*) 


1324 a 


1325 
1326 
132? 
1328 
1329 
1330 
1331 
1332 
1333 
1334 0944D 
1335 0944F 
1336 09453 
133? 
1338 09457 
1339 
1340 
1341 0945B 
1342 09450 
1343 09461 
1344 09463 


1345 09468 
1346 0946B 


134? 09471 
1348 

1349 09473 
1350 09476 
1351 09478 
1352 0947C 


1353 09483 


1354 
1355 09489 


1356 0948F 
1357 

1358 09492 
1359 09494 
1360 09497 
1361 09498 
1362 09439E 


1363 094R4 
1364 094A? 
1365 
1366 
136? 
1368 09489 
1369 

1370 


1371 094B0 
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20 
7840 
7400 


664F 


8FOO 
8E00 


8£00 
491 


06 
AF2 
15D5 
845 
1800 


13E 


o 
e 


8FO0 


8£00 
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*x History: 
kk 


x Date Progranner Nodification 

ee Chae Vue ey ite Te ees Sete ote 
kk 10/05/82 MB docunentation 

ik 


FORTIS TTC 
FOOT ITO TTT TTT IR TOIT K 
x 


=MENERR P= 0 
=MEMERX GOSUB MENER1 "Insufficient Menory". 
GOSUB MENER* Subroutine to allow external 


x call to MENER* 


GOTO MFERRS (goes to RUNRTN) 

x 

k 

=MEMER* SETHEX 
CPEX 15 Save P in C(S). 
P= 12 C(12)=F identifies error; 
LCHEX OOF C(14-13): no insertions; 
RO=C 
GOSUBL =FPoll Fast poll. (Sets P=0. ) 
CON(2) =pnen 

* 
?KM=0 Poll handled? 
RTNYES Yes. Suppress nessage. 
GOSUB =COLLAP Collapse AVMENE to FORSTK. 
GOSBVL =CLCOLL Collapse AVMENS to CLCSTK. 
GOSUBL =AUTCLR Turn off RUTO node. 

x 
GOSUBL =TRNFCK TRANSFORM in effect? 
GOC NFER. 6 No. 

x 
RSTK=C Yes. Control addr to stack. 
C=0 W 
DATI=C 6 Clear addr and trnsfm flag. 
ST=0 5 Clear TRANSFORM’s flag... 

MNENER1 DO=(4) =eNEn Load eMEN as error nunber 

CDOXS (shart for MFEROS call). 
RTNSC CRY set: error. 


* 
FOOT OTITIS IGT IOI IOI 
* 


MFER.6 GOSBYL =R<RST2 Save 3 levels of RSTK. 


GUSUBL =fCALC? In CALC node? 
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1372 09486 580 
1373 09489 8£00 


GONC § NFER+6 No. 
GOSUBL =CRLFND Yes. CR-LF to clear display. 


00 
1374 OS4BF 7812 MFER+6 GOSUB 


esc"<" Turn cursor off. 

1375 094C€3 86D ?$T=0 13 Running progran? 
1376 094C6 60 GOYES MFERO? No. 
1377 094C8 7B12 GOSUB UPDCRL Update Current Line @ PCADDR 
1378 A 
1379 * Now hash entry options: at entry, P= abcd 
1380 x : 
1381 x ) C(12) 
1382 x sass ssrss 
1383 x Error: bcdd 1020 
1384 x Warning: bcexd aixd (x= don’t care) 
1386 x don’t store ERRN -+||{ [[|+- inhibit delay 
1387 x nsg text only --+|| | |+-- parse error 
1388 a skip ON ERROR ---+| [+--- warning 
1389 x (not used) ----+ +---- beep 
1390 x 
1391 x 
1392 O94CC 118 MFERO? C=RO Codes and nsgt to C. 
1393 O94CF 80DF P=C 15 
1394 09403 7E61 GOSUB STOSN3 Options to STO. 
1395 094D? 852 ST=1 warn Set “Warning” flag. 
1396 O94DA 890 P= OO Warning or systen nessage? 
1397 094DD BO GOYES MFERO8 Yes. 
1398 O94DF 20 P= 0 No, error. 
1399 094E1 OB CSTEX Status bits back to C. 
1400 09463 308 LCHEX 8 STbeep =1, others=0. 
1401 094E6 0B CSTEX 
1402 09468 A46 «=MFEROS C=C+C  S Parse? 
1403 094EB 550 GONC MFEROS No. 
1404 OS94EE 851 ‘ ST=1 parse Yes. (No natter for warning.) 
1405 
1406 O94F1 A46 «=MFEROS C=C+C S Store ERRN#? 
1407 O94F4 4F1 GOC MFER14 No. 
1408 094F7 1A4E DO=(4) =ERRH Yes. 

7F 
1409 094FD 15C3 DRTO=C 4 Write LEX#, nsf. 


1410 09501 86D ?8T=0 13 Running progran? 

1411 09504 01 GOYES MFER11 No. Don’t store ERRL. 

1412 09506 163 DO=D0+ 4 Yes. DO=CURRL. 

1413 09509 15A3 A=DATO 4 Take current line#, 

1414 09500 163 DO=D0+ 4 and urite 

1415 09510 1583 DATO=A 4 it to ERRL. 

1416 x 

1417 09514 872 ?ST=1 warn Warning? 

1418 09517 03 GOYES MFER1S Yes. Skip ON ERROR check. 
1419 x Error: first clear f1NOFN. 
1420 09519 316) LC(2) =f 1NOFN Clear “No user-defnd fcn allowed". 


1421 0951D 8E00 
00 

1422 

1423 


GOSUBL =Sflagl 


NOTE: f1NOFN is chosen such that 


the SFLAGC routine does not use 
C(S). I.e., the hex value of 
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1424 
1425 
1426 
1427 09523 
1428 09526 
1429 09528 


1430 0952E 
1431 09531 
1432 09534 
1433 09536 
1434 09539 
1435 0953C 
1436 0953F 
1437? 09541 


1438 

1439 09547 
1440 0954B 
1441 OS54E 
1442 09551 
1443 09554 
1444 09556 
1445 0955A 


1446 09561 
1447 09564 
1448 09566 


1449 0956C 
1450 0956F 
1451 09673 
1452 09576 
1453 09579 
1454 0957B 


1465 09582 
1456 09585 
1457 09587 
1458 0958A 
1459 0958C 
1460 09590 
1461 09594 
1462 

1463 0959? 
1464 0953A 
1465 O959E 
1466 095R2 
146? 095R6 
1468 

1469 O95AR 
1470 O35AC 
1471 O395AF 
1472 

1473 


x 
x 
x 


86D 
12 
1938 
6F 
146 
BRE 
31 
164 
146 
8AR 
80 
8C00 
00 
x 
71E5 MFERIS 
Ad6 
485 
118 
D5 
7854 
1F.00 
000 
862 
80 
100 
00 
304 MFER19 
7382 
183 
86D 
92 
1F8E 
7F2 
147 
F2 
8AE 
do 
31€7 
7883 
511 
a 
163 NFER2S 
3133 
7192 
3183 MFER2? 
273 NFERZS 
x 
29 HFER33 
118 


?$T=0 
GOYES 
bo=(4) 


C=DATO 
?CHO 
GOYES 
DO=D0+ 
C=DATO 
?C=0 
GOYES 
GOLONG 


GOSUB 
C=C+C 
coc 
C=RO 
B=C 
GOSUB 
b1=(5) 


?$T=0 
GOYES 
Di=(4) 


LCHEX 
GOSUB 
DO=00- 
?$T=0 
GOYES 
01=(5) 


C=DAT1 
CSL 
*CHO 
GOYES 
LCASC 
GOSUB 
GONC 


DO=DO+ 
LOHEX 
GOSUB 
LCASC 
GOSUB 
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i 
MFER15 
=ERRSUB 


A 
A 
MFER15 


(ERRADR )- (ERRSUB ) 


A 
R 
MFER15 
=ONERR 


DO=AVS 
S 
MFER33 


A 
TBMSID 
=ERRMST 


warn 
MFER19 
(=WRNNST)+13 


4 
DORSC* 
4 

13 
NFER2? 
=CURRL 


A 
A 

A 
NFER25 
a 
DOASu+ 
NFERZ9 


4 


Fri Dec 30, 1983 5:13 an 


Page 32 


fFINOFN cannot have 0 or 8 in the 
least significant nibble. 


Running progran? 
No. Don’t bother check ON ERROR. 
Yes. If ON ERROR GOSUB in effect 


execution stops with error. 


ON ERROR GOSUB in effect. 
If ON ERROR address 
is not zero, 
junp to it. 


(Does a P=0.) 


Set DO= AvMenSt for build buffer. 
Text only? 

Yes. 

LEX#, msg to C. 

To B. 

LEX ASCII ID to buffer. 

Err sg prefix address. 


Error? 
Yes. Use error message prefix. 
No. To warning nsg prefix. 


Codes for DOASCI: send out 5 
chars fron DATI. 

Back up 2 chars (past " L"). 

Running prograri? 

No. Back up over " L" in prefix. 

Yes. Leave " L" in prefix. 


Read in 4-digit line# (ERRL#). 
Zero out nib 0. 
Zero line#? 
No. (Current BASIC file). 
Yes. (Binary, PASCAL,...) 
Put out """. 
(BET) Put out another "~". 
Back out past " L". 
Dec# output. 
Send 4 digit line# to buffer. 
End ressage prefix 
With ":". 


Ta zero out RO(9-6). 
Message nuriber to C. 
Conplete msg to build buffer. 


Note: MEMERR from TBNSTX till destroy 
original status bits SO-S3 (in RO(12)). 
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1474 095B3 100 RO=A Save old AvMenSt addr in RO. 

1475 09586 EO A=A-B A =-length of msg in nibs. 

1476 09588 310 LC(2) 96%2 Check if nsg exceeds 96 char bfr. 
1477 O95BC C2 C=A+C A Maxinun start posn for nsg 


1478 % in order not to exceed buffer. 

1479 O95BE 8E00 GOSUBL =A=CUR Set A(B)=cursor posn (#bytes) 
00 

1480 095C4 C4 R=A+A A Cursor posn (#nibs). 

1481 O95C6 3EA 7A<=C OB Present posn OK? 

1482 095C9 B1 GOYES MFER35 Yes. 

1483 & No. Msg won’t fit; send CR-LF. 

1484 O95CB 09 C=B A 

1485 O95CD 8FOO GOSBVL =AVS=C Set AvMenSt=end nsg, to protect. 


000 
1486 095D4 8E00 
00 


GOSUBL =CRLFND 


Send CR-LF. 


1487 O95DA 118 C=RO Address original AvMenSt. 
1488 O95DD 8FOO GOSBYL =AVS=C Reset AvMenSt. 

000 
1489 O95E4 7021 MFER35 GOSUB AVS2DS Display prefix and message. 
14% O95E8 863 ?$T=0 beep Beep? 
1491 O95EB 80 GOYES MFER37 No. 
1492 OSSED 8E00 GOSUBL =CHIRP Yes. 


00 


1493 O95F3 860 MFER3? ?ST=0 delay Inhibit delay? 
1994 O95F6 80 GOYES MFER39 No. 
1495 O95F8 8E00 GOSUBL =XDELAY Yes. 


00 
1496 OS5FE 8EOO 
00 


1497 09604 8E00 
00 

1498 O960R 30F 

1499 0960D 8F00 


MFER39 


GOSUBL =CRLFSD 
GOSUBL =BLDDSP 


LCHEX F 
GOSBVL =MFLG=x 


CR, LF, set delay. 
Needed for Inhibit delay. 


Set MLFFLG=F to restore CKINFO. 


000 

1500 

1501 09614 8F0O GOSBVL =RST2<R Restore 3 levels of RSTK. 
000 

1502 : 

1503 0961B 872 ?ST=1 0 warn Warning nessage? 

1504 O961E 02 GOYES STOSUP Yes. 

1505 09620 871 ?ST=1 parse Parse error? 

1506 09623 20 GOYES MFER41 Yes. Just sets carry. 

1507 09625 7510 MFER41 GOSUB STOSWP Suap back original status. 

1508 09629 4C2 COC NFERS1 Parse error. 

1509 0962C 86D =MFER42 ?ST=0 13 Running prograri? 

1510 O962F 00 RTNYES 


1511 


x 


1512 akKKK CLEAN-UP: FOR EXECUTION ERRORS ONLY ****A** 
1513 * 

1514 09631 7205 GOSUB DO=PCA 

1515 09635 181 DO=D0- 2 


1516 09638 8C0 
00 
1517 


GOLONG =ATCHK 


DO to @ or line#. 
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1518 JUG IOI III IOI IC IO TI TIC TTI IK 
1519 

1520 0963E 118  STOSWP C=RO Fetch status bits fron RO. 
1521 09641 80FC STOSW1 CPEX 12 Suap 

1522 09645 OB STOSW3 CSTEX STO 

1523 09647 80FO CPEX 0 and 

1524 09648 0B CSTEX C(12), 

1525 0964D 80FC CPEX 12 

1526 09651 108 RO=C put back in RO. 

1527 09654 01 RIN Preserve carry! 


1528 
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1529 EJECT 
1530 ‘ 
1531 20] IO IOS IS II TOS IIIS STIS IIS TITS I SISOS I OO SIS III IIR 
1532 SIRI III III I ITO SI III SII III I SI SI IIT III II TOI IS IOS I ITI SITIO 
1533 aK 
1534 ** Nane:(S) DONNA - Re-pronpt input line 
1535 Ax 
1536 ** Category:  DSPUTL 
1537 RK 
1538 ** Purpose: 
1539 *4 Re-display an input line, with a prompt, and position 
1540 ed the cursor to any desired point in the line. 
1541 £ 
1542 ** Entry: 
1543 ax R3(A)= Address of prompt. The prompt can be any 
1544 a ASCII string, delimited with two matching 
1545 ae bytes (deliriters can be any byte value). 
1546 a R3(9-5)= Nunber of cursor-rights to position the 
1547 a cursor within the input strean (counted 
1548 ak fron the first input character). 
1549 ax INBS contains the address of the input buffer; 
1550 ak the length of the input buffer 1s contained 
1551 aK in the three nibbles preceding the buffer. 
1552 ax 
1583 eX Exit: 
1554 ae P = 0 
1555 ak Carry set. 
1556 aK DI=FFFFF. 
1557 ax 
1558 ** Calls: CKINF-, DSPBUF (SENDWD), ESCSEQ, DSPCNA, DSPCHA, 
1559 ax CURSFL, CURSRR. 
1560 an . 
1561 kk Uses....... 
1562 *k Exclusive: ACW),B(W),C(W), DCW), D0,01,P 
1563 xx Inclusive: sane plus R1,R2 (in SENDWD), STMTRO (in CKINF-) 
1564 = 
1565 ** Stk lvls: 4 
1566 a 
1567 ** NOTE: 
1568 AX The pronpt is built in the display observing WIDTH; 
1569 3% the input line is displayed without observing WIDTH. 
1570 a Any single-character prompt will not have to worry 
1571 a about this, but a multi-character pronpt may be 
1572 Ae split between trio lines 1f WIDTH is short. 
1573 ae 
1574 a The length of the input buffer (found in the three 
1575 Ar nibbles preceding the buffer) must be one greater 
1576 RK than the number of characters (usually this length 
1577 as includes a OD terminator at the end of a BASIC 
1578 ae input line). 
1579 as 
1580 am Exanple of prompt: 
1581 ae Say an editor uses the prompt "Cnd:". The address 
1582 a in R3(A) would point to the characters xCrd:x 


1583 aK where the x’s are delimiters, any natching byte 
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1584 ax value. 
1585 ue 
1586 ** Algorithn: 
1587 a Turn off cursor. 
1588 ol Set up CKINFO. 
1589 ay Display pronpt. 
15% ax Redisplay input line. 
1591 ax Send out a null character (in case input line had 
1592 Rx zero length, this clears display buffer) 
1593 a Cursor far left. 
1594 a Count cursor-rights, using count in R3(3-5). 
1595 a4 
1596 xk History: 
1597 te 
1598 xx “Date Prograriner Modification 
1599 BK mewn men meee er nen nner nee nn nnn nnn en cee n tenn enna 
1600 *& 10/05/82 MB Docunentation 
1601 ia 
1602 JI III ICI SI SOI ICICI COCO IOI CI OI IK 
1603 JUI IOI ICICI III ISSCC OCIS I IK 
x 
ieee JOGO IOI OI ISIS IOC IIS IOI TOC OC IIT 
1606 JIG OIC TO ISI IOC TOTS TOO TOTO TSI TIT TITAS TK 
1607 x 
1608 ** Wane: (S) CURSRT - Count cursor-rights 
1609 a 
1610 ** Category:  DSPUTL 
1611 aK 
1612 ** Purpose: 
1613 kx Send out a cursor-far left, then send out a given 
1614 aa nuriber of cursor-rights. 
1615 ss 
1616 ** Entry: 
1617 ax C(A)= count of cursor-rights. 
1618 ax 
1619 RP EMEC: 
1620 a P = 0 
1621 ae Carry set. 
1622 ah DI=FFFFF. 
1623 ee 
1624 ** Calls: CURSFL, CURSRR 
1625 ne 
1626 BE USES xa ss 
1627 ** Exclusive: D1 
1628 ** Inclusive: ACW), B(W),C(W).D(W),00,D1,P 
1629 ae 
16H ** Stk lvls: 3 
1634 x5 
1632 ** Algorithn: 
1633 ee Copy counter to Dt 
1634 a Cursor far-left 
1635 em Count cursor-rights until D1 carries 
1636 aie 
1637 ** History: 


1638 as 





1639 
1640 
1641 
1642 
1643 
1644 
1645 09656 
1646 09656 
1647 09656 
1648 0965A 


1649 09661 
1650 09664 
1651 09667 
1652 09669 


1653 09670 
1654 09673 
1655 09676 
1656 09678 
1657 0967A 
1658 09670 
1659 09680 
1660 09684 


1661 0968A 
1662 O968E 


1663 09695 
1664 09699 
1665 0969C 
1666 0969F 
1667 096A2Z 
1668 096A6 
1669 09689 
1670 O96RB 
1671 OS6RE 
1672 096B2 
1673 096B4 


1674 096BA 
1675 096BD 
1676 096C1 
1677 09604 


1678 

1679 096CB 
1680 O96CE 
1681 09601 


1682 096D8 
1683 
1684 
1685 
1686 096DB 
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7180 
1F48 
690 
118 
8AR 
11 
8F00 
000 
118 
135 
24 
D1 
148 
171 
7F 90 
33E3 
33 
7350 
1BeC 
6F2 
75A4 
131 
182 
AFO 
15R2 
81C 
cc 
460 
7F 60 
DO 
8E00 
00 
11B 
7B84 
135 
8FOO 
000 


ico 
400 
8FOO 
000 
52F 


20 


Error Message Driver <831216.1 Fri Dec ®, 1983 5:13 an 
Page 37 
a Date Progranner Modification 
PE locaele wicttaese: Soecthanswacecsnavcucuesawneleedanee 
a 10/05/82 MB docunentation 
ak 


FORT SOOT OTTO TTT OT 
FORO IIIT TTR OT TOTO OT TTT 


MFERS1 
=DONNA 
GOSUB) ESC"<" Cursor off (nonreadable prompt). 
D1=(5) =PRP3>3 Point to BASIC prompt ">". 
C=R3 
c=) OA Default BRSIC pronpt string? 
GOYES MFERS3 Yes. Di= BASIC pronpt already. 
GOSBVL =CKINF- No. Set up output info for 
C=R3 display. 
B1=C Use caller’s pronpt string. 
P= 2*((uidth?)-(InhEQL)) Flag for "observe width". 
MFERS3 B=0 R Clear counter. 
A=DAT1 B Read deliniter to natch. 
D1=D1+4 2 To first char. 
GOSUB DSPBUF Display till deliniter natch. 
=PRP3>3 LCASC \3>\ Cursor on. Reads “NIBASC \3>3\" |! 
GOSUB ESCSEq 
DO=(5) =INBS 
GOSUB D0=DTO Set A and DO= input buffer addr. 
DI=A Also 01. 
DO=D0- 3 To length field. 
A=0 ul For ASRB belon. 
A=DATO 3 Read length. 
ASRB Length in bytes. 
A=A-1 -A Less one for OD terninator. 
GOC NFERSS In case 0 output chars, ... 
GOSUB DSPCNA Output chars by count. 
MFERSS A=0 A Force a null char (needed 
GOSUBL =DSPCHA for INPUT"",""sX ) 
C=R3 #cursor-rights to C(9-5), 
GOSUB CSRWP9 C(A)=#cursor-rights. 
=CURSRT 01=C D1 counts #cursor-rights. 
GOSBVL =CURSFL Cursor to start of line. 
k 
MFERS? D1=D1- 1 Count #cursor-rights. 
RTNC 
COSBVL =CURSRR Send Cursor-Right. 
GONC NFERS? (BET) 


x 
OIC IGOCI COICO OCI ITOK 
ESC'<" P= 0 


"ESC<"" = cursor off. 
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1687 09600 31C3 LCASC  \<\ 
1688 O96E1 8C00 ESCSEq GOLONG =ESCSEQ 


00 
1683 * 


Escape sequence. 
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1690 


STITLE Update Current Line 


1691 JORIS TTT IIT IIIS SII I SSSI ISI ISIS III ISI ASIII AA 
1692 JORIS ASAT OAT IIIS III IS III IOS IIIS SSIS SSI IIS I III ISS AI IIA 
1693 a } 
1694 ak Nane: UPDCRL - Update Current Line @ PCADDR 
1695 =e 
1696 ** Category:  EXCUTL 
1697 an 
1698 ** Purpose: 
1699 is Compute Line # @ PCADDR and update CURRL 
1700 an 
1701 at Entry: 
1702 xR P = 0 
1703 ah PCADDR @ Statenent Length of staterent to update 
1704 ak 
1705 ek Exit: 
1206 aR P = 0 
1007 a Carry Clear 
1708 ah 
1709 aa If current file not BASIC or PCADDR does not point 
1710 ah into current file, sets CURRL=0. 
1711 af 
1712 ak 
1713 ** Calls: DO=PCA, CPLH15 
1714 ak 
1715 ak Uses....... 
1716 *k Exclusive: C(A) 
1717 ** Inclusive: A(A)-D(A),D0,D1 
1718 aR 
1719 *k Stk Ivis: 3 
1720 ak 
1721 ** History: 
1722 xe 
1723 ak Date Progranner Modification 
1724 aaa aaah aiateterlatateietaeteeeatetaetae 
1725 xk 03/07/83 JP Added routine 
1726 *k 8604/11/83 NB Added BSTYCK call. 
1727 *k 04/13/83 IP CURRL=0 if PCADDR not in prog scope 
1728 *k 04/18/83 IP Renoved SCOPCK call 
17293 04/18/83 JP CPLH1O0 replaces COMPLH call 
a 2 OIRO IO TIO RJR To ROI IO OO 
1732 JO III IOS SOOT TIS TTI TIS SIS ISI I IIIS IS II AIK 
1733 096E7 8E0O =UPDCRL GOSUBL =BSTYCK BASIC type check. 
00 
1734 096ED 521 GONC  UPDCR1 NC= not BASIC. Set CURRL=0. 
1735 O096FO 7344 GOSUB DO=PCA Set D0O= PC address. 
1736 096F4 8E00 GOSUBL =CPL#10 Di= line# of curr line. 
00 
1737 O96FA 147 C=DAT1 A C=line#. 
1738 O96FD 540 GONC UPDCR3 NC= PCADDR not in current file. 
1739 09700 D2 UPDCR1 C=0 A If not current BASIC file, set=0. 
1740 09702 =savelO 
1741 09702 8COO UPDCR3 GOLONG =SAVELO Save in CURRL. 


00 
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1742 STITLE Display Utilities 

1743 FOO TO TIKI III III TI TDI AI IT ITT II ASIII ISI III IIIS SATS IS 

1744 JOO III OIA IIIS IDI IIT IIIT II TTI ITI OTST IT IIIA SS 

1745 aS 

1746 ** Narie:(S) AVS2DS - AvMenSt to display 

1747 ah 

1748 ** Category:  DSPUTL 

1749 AR 

1750 ** Purpose: 

1751 ae Send ASCII stored at AvMenSt to display. 

1752 ak 

1753 ** Entry: 

1754 aK P=Q0 (P is used to select options, nust =0!') 

1755 xs ASCII characters reside in nenory starting at 

1756 aR AvMenSt; an FF byte must immediately follou 

1757 xk the characters. 

1768 xk 

1759 ak Exit: 

1760 as P = 0 

1761 an Carry clear. 

1762 xk 

1763 ** Calls: DO=AVS, DSPBUF 

1764 a 

1765 ** For all other details, see DSPBUF. 

1766 ah 

1767 aR 

1768 ** History: 

1769 ak 

1770 a Date Progranner Modification 

1771 WE Meetecwe’  packgudens:  iGeesgessane ose eaerer ceeeseer See 

1772 xx 06/25/82 NB docunentation 

1773 a 

1774 JOR IO TI III IIIT ITI SOTO TS TIS III IIS IIIT II III III IIS IAI I SII III TASK 

1775 JI I OT OT III III ITT IIIT SI TIS I SIT III III IS IIIA IA 
& 

Hii JO III UO III TI TT I III IIIT IOI TIT I II TOTO 

1778 JOO I IO OTT TRI III II ITI III I TIO TOT IIT III SII ISO IIA 

1779 a 

1780 ** Narie:(S) DSPCNA - Display by count 

1781 ** Nane:(S) DSPCNB - Display by count 

1782 ** Narie:(S) DSPCNO - Display by count 

1783 xe 

1784 *% Category:  DSPUTL 

1785 ae 

1786 *X Purpose: 

178? ae Send ASCII characters to display, by count. 

1788 ae DSPCNO -- Counter in B(A), use Output Buffer. 

1789 aR DSPCNB -- Counter in B(A), use DATO. 

1790 ae DSPCNA -- Counter in A(R), use DATO. 

1791 a 

1792 * Entry: 

1793 wa DSPCNO -- #characters-1 in B(A), output resides in 

1794 a Qutput Buffer (address in QUTBS). 

1795 as DSPCNB -- #characters-1 in B(A), DO points to output 


1796 ee DSPCNA -- &characters-1 in A(R), © points to output 
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1797 ak 

1798 RK Exit: 

1799 RK P = 0 

1800 ak Carry clear. 

1801 ae 

1802 &k Calls: DOOUTBS (DSPCNO only), DSPBUF 

1803 ak 

1804 ** For all other details, see DSPBUF 

1805 ak 

1806 ** History: 

1807 i 

1808 xx s~Date Progranner Modification 

1809 RR chests, ecrteekecs: | Seeeesnstseedeneassesnedeessueenee 

1810 - 06/25/82 MB docunentation 

ee JU III JOO TK 

1813 SOI IIIS III TORT TR TDK 
k 

ae JOJO OCICS I OTIS IIIS IIIT IASI IIIS SIRI IR 

1816 JU OIC COT TTI 

1817 aK 

1818 np Nane:(S) DSPBUF - Send a buffer of chars to display 

1819 

1820 ** Category:  DSPUTL 

1821 aR 

1822 ** Purpose: 

1823 ah Send a buffer of characters to display, allowing 

1824 ae 1) terninate buffer on count or FF byte. 

1825 ae 2) observe WIDTH or not. 

1826 ak 

1827 ** Entry: 

1828 aK 

1829 th (1 )-------------+------- 

18H ak | 

1831 aR | P= 0 Send out characters until a terminator 

1832 aK | byte is encountered (terminator byte 1s 

1833 aK | passed in A(B)). Do not observe WIDTH 

1834 ak | (i.e., do not split up display into 

1835 a | WIDTH-sized chunks). 

1836 ak | 

1837 aK | 2 Count characters. Send out characters 

1838 ak | until counter decrenents (counter passed 

1839 aK | in A(A)). Do not observe WIDTH. 

1849 ak | 

1841 aK j 4 Send out characters until a terrinator 

1842 x | byte is encountered (terninator byte is 

1843 an | passed in A(B)). Observe WIDTH. 

1844 xx | 

1845 aK | Note: The combination “Count characters and 

1846 ak | observe WIDTH" is perforned by SENDUD. 

184? RK | 

1848 ak 

1849 aK 

1850 RK (2) --------------------- 


1854 - | 
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1852 ae | If P=2 (send by count): 
1853 aK | A(A)= characters in buffer. 
1854 ax | 
1855 aK | If P=0 or 4 (send until terminator): 
1856 ae | A(B)= terninator byte 
1857 aK | B(A)= 0 (used for separate counter). 
1858 aK | 
1859 aK 
1860 ale 
1861 tk (3)--------------------- 
1862 ak | 
1863 a | DO points to output buffer 
1864 ak | 
1865 ak 
1866 Rk Exit: 
1867 aK Pp = 0 
1868 Be Carry clear. 
1869 HK 
1870 kk Calls: CSLWPS 
1871 ak DSPCHA (for entry P=2 only) 
1872 a SENDND (for entry P=0 or 4 only) 
1873 aK 
1874 kk Uses....... 
1875 *k Exclusive: P,A,C,01,R0(10-5) 
1876 *k Inclusive: B,0,D0 
1877 ~ R1,R2 and STMTRO (in SENDWD) for P=0 or 4 only 
1878 
1879 tk Sth lvls: 3 
1880 RK 
1831 ax NOTE: 
1882 es RO(15-11) and RO(4-0) are not touched by this routine. 
1883 aK 
1884 *k Algorithn: 
1885 ak Swap P (options) into S11, swap ST1 into RO(10). 
1886 xk 1) If by count, decrenent counter; if carry, goto 2). 
1887 ak If by tertiinator, test natch; if match, goto 2). 
1888 = If observe width, count buffer length in B(A), 
1889 aR go to 1). 
1890 aK Save counter or natch in RO. 
1891 ak Send out character (DSPCHA). 
1892 RK Fetch counter or natch in RO. 
1893 ak Go to 1). 
1894 ee 2) If observe width, call SENDWD with length in A. 
1895 oc Restore ST1 from RO(10). 
1896 ak 
1897 ** History: 
1898 ak 
1899 iy Date Progranner Modification 
1900 RE « oeetccited.. vsbweddeees- “ates dawasccenticccsasowclose sees 
1901 ak 06/25/82 = NB docunentation 
1902 ak 
1903 JOISTS IIS SII OIG IIIS ISIE 
1904 JO IOI GO UIE IIIS ISO COIC I  ot 
1905 x 


1906 09708 7024 =AVS2DS GOSUB DO=AVS AvMenSt buffer to display. 


1907 0970C 
1908 O970F 
1909 09711 
1910 09713 
1911 
1912 
1913 
1914 09716 


1918 0971C 
1916 O971F 
1917 09721 
1918 

1919 

1920 09723 
1921 09725 
1922 09729 
1923 09728 
1924 0972E 
1925 09732 
1926 09736 
1927 

1928 09738 
1929 0973B 
19% 0973€ 
1931 09740 
1932 09743 
1933 09745 
1934 09747 
1935 0974A 
1936 0974C 
1937 0974E 
1938 09751 
1939 09754 


1940 0975A 
1941 0975) 
1942 09760 
1943 09762 
1944 09765 
1945 

1946 

1947 09768 
1948 0976A 
1949 09760 
1950 09770 
1951 

1952 09772 
1953 09775 
1954 09777 
1955 09779 
1956 0977C 
1957 0977E 


1958 09785 


Saturn Assenbler 


131 
DO 
cc 
4F0 


8E00 
00 


135 
D4 
22 


OB 
80F 1 
0B 
118 
80FR 
7B24 
D6 


148 
875 
R2 
962 
R2 
E5 
876 
81 
06 
137 
108 
8E0O 
00 
118 
135 
07 
171 
52D 


CE 
Sie 
866 


133 


8FOO 
000 
118 
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D1=A 

A= aR 
A=A-1 A 

coc DSPBUF 


& 
=DSPCNO GOSUBL =DOQUTB 


p1=C 
=DSPCNB A=B 
=DSPCNR P= 

k 


x 


=DSPBUF CSTEX 
CPEX 1 
CSTEX 
C=RO 
CPEX 10 
GOSUB CSLWPS 
C=A A 


DSPBF1 A=DAT1 B 
78T=1 centr? 
GOYES DSPBF9 
wA=C OB 
GOYES DSPB11 
B=B+1 A 
7$T=1 width? 
GOYES DSPBFS 
DSPBF3 RSTK=C 
CD1EX 
RO=C 
GOSUBL =DSPCHR 


C=RO 

b1=C 

C=RSTK 
DSPBF5 D1=D1+ 2 


GONC DSPBF1 
k 


x 


DSPBF9 C=C-1 A 

GONC DSPBF3 
DSPB11 ?ST=0 width? 

GOYES DSPB15 
x 

ADIEX 

AFA-B A 

AZA-B A 

ADIEX 

A-B OA 
GOSBVL =SENDND 


C=RO 


a 
2*( (Centr? )-CInh 
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DI=AvMenSt. 

Use FF terninator: 
A(B)= FF. 

(BET) 


SOI JIT JOIST TTT DIT IIT 


C= <OUTBS>. 
Set D1= <OUT8S>. 


#chars in buffer to A. 


EOL)) Flag for "count chars". 
Fall into DSPBUF. 


Replace $7-S4 with 
pointer value; 
$?-S4 to pointer. 

Save RO(15-11). 

Save S7-S4 in RO(10). 

ROCA) to R-(9-5). 

Counter/natch to C. 


Fetch char. 

Counter? 

Yes. 

No. Match delimiter? 

Yes. End output. 

Counter for Hchars (DSPNCW). 
Observe width? 

Yes. Count only, no display. 
Save counter/match in RSTK. 


Save D1 in RO(A). 
Char to display buffer. 


D1 back to C(A). 
Restore 01 to output string. 


To next char. 
(BET) 


Count chars. 
More to output. 
Observe width? 
No. 


Yes. A(A)= end addr. 
B(A)=#chars in string. 


D1= start addr. 
A=Hchars in string. 
Display string. 


To preserve RO. 
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1959 x 
1960 09788 OB DSPB15 CSTEX 
1961 0978A 80FA CPEX 10 Restore $7-S4 
1962 O978E 80F1 CPEX 1 fron RO(10). 
1963 09732 OB CSTEX 
1964 09794 7483 GOSUB CSRWP9 Restore RO(A). 
1965 09798 108 RO=C Only RO(10-5) used. 
1966 0979B 03 RTNCC 


196? * 


Saturn Assenbler 


Error Message Driver <831216.1 Fri Dec ©, 1983 5:13 an 


Ver. 3.39/Rev. 2306 Display Utilities Page 45 

1968 

1969 JOGO ISOS R 

1970 JOOS OCIS OSI TICS ISIS OTIS IS IITA 

1971 a 

1972 kk Nane:(S) LXFND - Set D1 to LEX Table I/O Buffer 

1973 an 

1974 **k Category:  BUFUTL 

1975 ak 

1976 ** Purpose: 

1977 aK Set D1 to LEX table I/0 buffer. 

1978 aR 

1979 *k Entry: 

1980 ax no necessary conditions. 

1981 a 

1982 kk Exit: 

1983 ak P = 0 

1984 kk Carry set: buffer found. 

1985 aK A(A)= buffer length 

1986 ak D1 points past buffer header. 

1987 KR C(S)=#addresses to update in buffer (?=0) 

1988 aK Carry clear: buffer not found. 

1989 ak 

1990 k* Calls: I/OFND 

1991 ak 

1992 ak Uses....... 

1993 *k Exclusive: C(X), P 

1994 **k Inclusive: A,C(A),C(S),01 

1995 ax 

1996 * Stk lvls: 0 

1997 as 

1998 a 

1999 ** History: 

2000 kk 

2001 xk Date Prograrner Modification 

2002 ORS caiosse. pltaskaaees. WasecuwssleoussSecot eee eeseewecuews 

2003 kk 01/05/83 MB Docunentation 

2004 Km 

2005 FORO IR RIOT JOTI ITE Fk 

2006 FORO TIO TOT TIO 

2007 09790 20 =LXFND P= 1) 

2008 0979F 32CF LC(3) =bLEX LEX buffer I/0 nunber. 
B 

2009 0974 8000 =i/ofnd GOVLNG =1/OFND Point Di to LEX tbl directory. 
000 

2010 x 
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2011 

2012 FOI ITI IIIT II SORIA III III IIIT IIT IOS IIE III III ISI ISI SSSI SSIS 

2013 JO III II IO IIT IIIT III ITT IIS IIIS III IIIS OSS TSS SII IS ISIN. 

2014 xx 

2015 ** Nane: LERRM - Last Error Message 

2016 ax 

2017 **& Category: FNEXEC 

2018 aK 

2019 ** Purpose: 

2020 aa Execute g-Space function 

2021 ax 

2022 *x Entry: 

2023 ak No necessary conditions 

2024 xx 

2025 Kk Exit: 

2026 ak Exits to MAIN1O 

2027 ax 

2028 ** Calls: STAKUP, MsgAVS, VIEWD1, STAKDN 

2029 xx 

2030 **k Uses....... 

2031 *k Exclusive: P, ACW), BW), CCW), D(W), DO, D1, RO 

2032 *k Inclusive: sane 

2033 ax 

2034 kK Stk lvls: 3 

2035 <x 

2036 ** Algorithn: 

2037 ie If in CALC node, restore true AvMen configuration. 

2038 KR Fetch ERRN, set DO= AvMenStart. 

2039 Build Message text in AvMenStart buffer. 

2040 ax If nessage < 22 bytes, zero additional bytes up to 22. 

2041 xx Call VIEWD1 to display error message without disturbing 

2042 ax display buffer. 

2043 a If in CALC rode, restore CALC AvMen configuration. 

2044 es Exit. 

2045 a 

2046 ** History: 

2047 7 

2048 ae Date Progranner Modification 

2049 KX Sacectes  Sececdaese: scescecasiicuccccsecescsuscu sche soos : 

2050 kk 06/25/82 NB Wrote routine 

2051 ak 01/18/83 9B CALC node nenory moving 

2052 x 

9053 JCI IOI IO II IOI IIIT IIIT TIT 

2054 JOGOS OOO ISO COIS I III TI RI IE 

2055 - 

2056 097AB =LERRN Last Error Message (g-Space). 

205? O97AB 8E00 GOSUBL =f CALC? In CALC node? 
0.0) 

2058 097B1 590 GONC = LERRM1 No. 

2059 097B4 8FOO GOSBVL =STAKUP Yes. Restore AvMen configuration. 
000 

2060 097BB 7ED1 LERRM1 GOSUB MsgAV¥S Build nsg in AvMenSt. 

2061 O97BF 131 D1=A To D1 for VIEWD1. 

2062 O97C2 EA =A-C A A(A)= -#nibs in nessage. 

2063 09704 CC R=A-1 A In case A(A)=0, sets carry belon. 
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2064 09706 136 CDOEX DO--> FF terminator. 

2065 097C9 32B2 LC(3) 43 nibs for window of 22 chars. 
0 

2066 097CE A3A A=A+C  X A(B)= #nibs to null out. 

2067 09701 511 GONC = LERRMS NC= nessage > 44 nibs already. 

2068 09704 D2 C=0 A 

2063 09706 81C ASRB A(B)= Mbytes to clear. 

2070 x 

2071 09709 7A31 LERRN3 GOSUB DOASub Zero a byte in buffer. 

2072 097DD REC A=A-1 B Count "nibs: to clear. 

2073 09760 5S8F GONC LERRM3 

2074 2 

2075 097E3 8FOO LERRMS GOSBVL =VIEWD1 View message. 
000 

2076 O97EA 8E00 GOSUBL =fCALC? In CALC node? 
00 

2077 097FO 500 RTNNC No. Return to key read. 

2078 097F3 8D00 GOVLNG =STAKON Yes. Restore CALC AvMen config, 
000 

2079 & return to key read. 


2080 * 
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2081 
2082 JORIS I III III III IIIT IST IOS ITI IIT IIIS IIIS III I SII IIIS II III IIIS IK 
2083 JI IOI III ITI I II IT IIIT TOTTI T I TIT III STITT III IT III IST I IIIS ISI III IA 
2084 ax 
2085 ** Nane: ERRN$ - Error Nessage Function 
2086 aa 
2087 ** Category: FNEXEC 
2088 a 
2089 **k Purpose: 
2090 A Execute ERRM$ function. 
2091 aX 
2092 xk Entry: 
2093 ak P = Q 
2094 ae D1= stack address, DO= PC address 
2095 aK 
2096 ** Exit: 
2097 AE P = 0 
2098 ak D1 = new stack pointer 
2099 ae ERRN$ string on stack 
2100 xR DO unchanged 
2101 an 
2102 ** Calls: R3=D10, MsgAVS, DIC=R3, BF2ST+ 
2103 i 
2104 BE NSS scien sire 
2105 ak Exclusive: B,C 
2106 *x Inclusive: A,B,C,D,01,P,R3,R1 
2107 ak 
2108 *® Stk lvls: 2 
2109 sae 
2110 ** NOTE: 
2114 le See ERRM$f heading for that entry point. 
2112 xk 
2113 ** Algorithn: 
2114 ae Entry D1 (stack pointer) and DO (PC) are saved in R3. 
2115 oe Message is built starting at AvMenSt. 
2116 a D1 and DO are restored fron R3. 
2117 ae Before calling BF2ST+, which roves the message fron 
2118 ax AvMenSt to the nath stack, checks whether total 
2119 - available tenory is at least tuice as large as the 
2120 aS length of the nessage (since copying it to the 
ele a stack would otherwise overwrite the tail end of 
2122 aie of the message). If not, MENERR. 
2123 x Exits through BF2ST+: buffer to math stack. 
2124 a 
2125 ** History: 
2126 ee 
ele? a Date Prograrner Modification 
2128 RR newer e nn meee ween nt emer renner ren sre nen tee nese cnn ennee 
2129 ** 09/14/82 MB .  Docunentation 
2130 ak 
2131 FORO ROR OIRO IO OOOO IOI OCI II OI 
2132 JOO IIIT OC CCT TTI I SII ISI III IIA II 
or SOIC OO IOI IO IOI OOO ok 
2135 SOIR ROR UII ORI 
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2136 ax 
a = Nane:(S) ERRMSF - Transfer ASCII fron AvMen to stack 
138 
2139 ** Category: MTHSTK 
2140 ak 
2141 ** Purpose: 
2142 = Transfer an ASCII buffer fron AvNenSt to Math Stack. 
2143 & 
2144 ** Entry: 
2145 ak P = 0 
2146 aK R3(A)= PC address (from DO) (see R3=010) 
2147 ax R3(9-5)= stack address (fron D1) (see R3=D10) 
2148 ak DO points to ASCII buffer. ASCII string ends 
2149 ak in FF byte. (DO must be less than FORSTK pointer. ) 
2150 Ak B(A) points to terminator FF byte 
2151 ae 
2152 &* Exit: 
2153 ae P = 6 
2154 ak Di = new stack pointer 
2155 ak String on stack 
2156 ak DO = address passed in R3(A) 
2157 ak Will jurp to MENMERR if insufficient nenory. 
2158 ak 
2159 tk Calls: D1C=R3, BF2ST+ 
2160 ne 
2161 ek Uses....... 
2162 kk Exclusive: B(A) 
2163 ** Inclusive: A(W),B(R),C(A),0(R),R1, 01 
2164 ae 
2165 ** Stk lvls: 1 
2166 a 
2167 ** NOTE: 
2168 ak See ERRM$ heading for that entry point. 
2169 ak 
2170 ** Algorithn: 
2171 ae D1 and DO are restored fron R3. 
2172 see Before calling BF2ST+, which moves the nessage fron 
2173 ax AvMen to the math stack, checks whether total 
2174 se available menory 1s at least tuice as large as the 
2175 = length of the string (since copying it to the 
2176 ak stack would otherwise overurite the tail end of 
2177 ae of the string). If not, MEMERR. 
2178 ae Exits through BF2ST+: buffer to math stack. 
2179 ak 
2180 **& History: 
2181 ee 
2182 la Date Progranner Modification 
2183 BR enn n nee een n een ee nnn nnn nnn nen n eee nee enn nnn n ee 
2184 - 09/14/82 = MB Docunentation 
ee J III II II TT IAT III SITIOS IIS IOS TI IIIT AISI OSI SSI IIIS ISISS IA 
2187 FO III KIA TI III III III IIIT III IIS III II IDI IIT SI ISI SBI SI SII ISIS SIS ISSA 
2188 k 
2189 O97FA 00 NIBHEX 00 No argurient for ERRMS. 


2190 O97FC 8EOO =ERRN$ GOSUBL =R3=D10 Save 01&D0 in R3 (preserves cry). 
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00 
2191 09802 7791 GOSUB NsgAVS Build message in AvMenSt. 
2192 09806 8E00 =ERRN$f GOSUBL =D1C=R3 Restore D1; C= old & (Also A=D1) 
00 
2193 O980C 136 CDOEX C=start of ASCII; DO restored. 
2194 . Transfer of ASCII buff to stack 
2195 O980F C5 B=B+B A requires RAN= 2*buffer length. 
2196 09811 E1 B=B-C A Min stack addr for full transfer. 
2197 09813 8BC ?Ac=B OR ASCII buffer conflict with stack? 
2198 09816 90 GOYES DOASER Yes; MEMERR. 
2199 09818 8000 =bf2st+ GOVLNG =BF2ST+ Put in stack. 
000 


2200 x 
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: 2201 
: 2202 JORIS RII OI IS IIS IIIS II ASIII IS ISIIIS III ISIS ISIS III IIIS ISIS ISI IIS 

2203 JOO IIIT ITS IIA II III III II III I SIS ITI II IIS SII ISIIII IIR IITA 
‘ 2204 a 
: 2205 ** Wane: (S) DOASCI - Send ASCII bytes to DATO 

2206 ** Wane: (S$) DOASC+ - Send ASCII bytes to DATO 

2207 an ‘ 

2208 ** Category:  GENUTL 

2209 ax 

2210 ** Purpose: 

2211 aK Build a buffer of ASCII characters starting at D0; 

2212 aX the ASCII characters can originate fron four types: 

2213 aR 1) BCD digits 

2214 ax 2) HEX digits 

2215 &k 3) nuneric conversion fron Hex-to-Dec 

2216 ax 4) existing ASCII bytes (or tokens) 

2217 aK Output can reside in one of tuo places: 

2218 ax 1) in B register 

2219 aR 2) in DAT1 

2220 A 

2221 kk Entry: 

2222 : DO= output address (must be less than AVMENE pointer) 

2223 

2224 xx 8 register or D1: source of text insertion. 

2225 kk 6 €(1): = type of insertion. 

2226 x €(0): how nany characters in insertion. 

2227 &K 

2228 ax B 

2229 RRO weno 

220 ae = actual output characters or digits 

2231 aK af C(1)= Ixxx 

2232 an = additionally, if C(1)= 0000, upper byte 

2233 - of B contains control nibbles. 

2234 ae 

2235 ae D1 

2236 Rk wewne 

2237 ak = address of output characters if C(1)= Oxxx 

2238 ex 

2239 am C(1) 

2240 RK ne 

2241 ae 1xxx use contents of B register as output 

2242 ax Oxxx use address in D1 to find output 

2243 aK 

2244 ae x000 Output is already in ASCII forn 

2245 ae 

2246 aR Digit output (digits can be Hex or Dec): 

2247 ae x001 Digit output-- replace leading 0’s with blanks 

2248 ne x010 Digit output-- don’t suppress leading 0’s 

2243 a x011 Digit output-- suppress leading 0’s 

2250 xx 

2251 ae 

2252 Hex-to-Dec conversions aluays generate 

2253 ae decinal nunbers with 7 digits: 

2254 ae x100  Hex-to-Dec: suppress up to 3 leading 0’s 


2255 aS x101  Hex-to-Dec: suppress up to 4 leading 0’s 
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2256 ae x110  Hex-to-Dec: suppress up to 5 leading 0’s 
2257 ts x111. Hex-to-Dec: suppress up to 6 leading 0’s 
2258 aK 
2259 x 
2260 ae C(O) 

2261 th wane 

2262 ax For C(1)= 1000 ("ASCII output is in B") 

2263 x C(O)= #nibbles-1 to be output. Hence the 
2264 Kx Hnibs MUST be even!'; C(O) odd. E.g., 

2265 ae if 5 chars for output, C(O)=9. 

2266 aK 

2267 ax For C(1)= xOxx (hex or dec digit output) 

2268 ax C(O)= Hdigits-1 to be output, hence 

2269 xx no nore than 16. 

2270 ax 

2271 kx For C(1)= x1ixx (hex-to-dec conversion) 

2272 aD C(O)= #digits-1 in nurber to be converted 
2273 xe Max hex value for conversion is FFFFF 
2274 a (1048575 dec), hence C(O) nust be 4 
2275 a or less. 

2276 ae 

2207 x For C(1)= 0000 ("ASCII output fron DATI") 

2278 ax C(O)= O: no output 

2279 ax 1: Send out specified number of 

2280 ax character; B(15-14)= #chars-1. 
2281 ae 2: Send out chars until ASCIT ternin- 
2282 ‘ ator is found. ASCII terminator 
2283 2% is passed in B(15-14) (usually 
2284 ne an FF terminator, but any byte 
2285 + value can be used). 

2286 tk 

2287 ** Entry for DOASC+: 

2288 is This entry point is for “ASCII output fron DATI" 
2289 ae only: 

22%) eA D1 points to output already in ASCII forn 

2294 a C(15-14)= Hbytes to output 

2292 es DOASC+ then sets C(B)=01 for appropriate codes. 
2293 ai 

2294 ** Exit: (May exit through MEMERR if not enough rienory) 
295 re Carry clear 

2296 x P = Q 

2297 Ae B(A) = # bytes left in available nenory past buffer. 
2298 x DO points to FF terminator, ready for another call. 
2299 AX 

2300 ** Calls: HEXDEC {only for hex-to-dec conversion; 
2301 a l.e., only if C(1)=xtxx) 

2302 a MOVEU3 (only for ASCII output fron DAT1; 
2303 al i.e., only af C(1)=0000) 

2304 ae 

2305 RR USCS sc oe ks 

2306 ae P, ACW), BOW), CCW), D(15-13) 

2307 x DO 

2308 “ Uses D1 only if C(1)=0 (1.e., only af ASCII output 
2309 ae fron DAT1; otherwise D1 not changed). And then, 


2310 aS (1 is only noved past source ASCII. 
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2311 KR 
2312 aK Stk lvls: 1 
2313 kk 
2314 ** Detail: 
2315 ae Fills DATO with characters fron B register or fron DAT1 
2316 aR (as specified by calling routine). An FF terminator 
2317 aA is placed at the end of the buffer, ready for a call 
2318 a to BF2DSP or BF2STK. 
2319 KE AvienEnd 1s checked for sufficient menory. This is 
2320 xx thy DO at entry must be less than AvMenEnd. 
2321 ak 
2322 a If ASCII output fron DAT1, maxinun #characters is 255. 
2323 xk «If digit output, maximum nunber of digits is 16. If 
2324 xk ASCII fron B, maxinun number of characters is 8. 
2325 Kk 
2326 ah If source is HEX or BCD digits, converts to ASCII 
2327 ax equivalents first, for output to DATO. 
2328 aR 
2329 ak For numeric Hex-to-Dec output, conversion to BCD is 
2330 aK perforned, then converted to ASCII for output to 
2331 an DATO. 
2332 ax 
2333 ** Algorithn: 
2334 &R Copy control nibs from C to D, calculate 
2335 ak Hbytes in AVMEM. 
2336 ak Do: 
2337 ak If ASCII output, copy bytes to DATO. 
2338 ae If Hex-to-Dec, call to HEXDEC, then digit output. 
2339 “ If Digit output, convert digits to ASCII and output. 
2340 a As chars are output, decrenent #bytes in AvMEM. 
2H ak Terminate buffer with FF. 
22 xR 
2343 ** History: 
2344 kk 
2345 xk Date Programmer Modification 
246 KK, peecebes® “steSescsis,) _stecscrcuu cont ascouee sete eee ee 
234? xk 06/25/82 MB Docunentation 
2348 ak 
2349 JORIS IT TIT ITT DIT RII TTI IIA I IIIA II IAS IASI 
2360 JO II OO OCCT ID IIIT ITT TIT IIIT TA 
2351 O981F 6D2C DOASER GOTO MEMERR Out of nenory. 
2382 FOR RII ITO ROR ROO II 
2353 x 
2354 09823 170 DORSC- D1=D1+ 1 Entry for ASCII output fron D1. 
2355 09826 816 DORSC* CSRC 
2356 09829 BF6 CSR W Char counter to C(15,14). 
2357 0982C AFS =DOASC+ B=C iW Counter to 8(15,14). 
2358 O982F D2 C=O) =A C(B)=01: 
2359 09831 E6 C=C+1 A "Output fron D1, count chars." 
2360 & 
2361 09833 04 =DOASCI SETHEX 
2362 09835 8000 P=C 0 P= #chars-1 to output. 
2363 09839 BF3 DSL OW 
2364 0983C BF3 DSL =oOW 
2365 0983F BF3 OSL W Save all of D except D(15-13). 
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2366 09842 RE? D=C 8 
2367 09845 BB3 DSL XK C(XS)= output codes. 
2368 09848 AE? 0=C B Save again in 0(B). 
2369 0984B 132 ADOEX 
2370 x 
2371 0984E 1899 DO=(5) =AVNEME Check for insuff renory. 
5F2 
2372 09855 AF2 C=0 W For CSRB below. 
2373 09858 146 C=DATO A 
2374 x 
2375 0985B 130 DO=A Restore DO. 
2376 O985E CE C=C-1 A To check tuo nibs past output 
2377 09860 CE C=C-1 A buff (needed for FF terninator) 
2378 09862 E2 C=C-A A C(A)= #nibs left in avail nen. 
2379 09864 4AB COC DOARSER MEM ERR. 
2380 09867 81E CSRB #bytes in avail nen. 
2381 O986A 92B *D= XS ASCII output fron D1? 
2382 O986D E3 GOYES DOR63) Yes. 
2383 O986F AFO A=0 W 
2384 09872 AI4 A=B WP Output fron B. 
2385 09875 R27 D=D+D XS Use DAT1 instead? 
2386 09878 460 GOC DOASOS No. 
2387 09878 1531 A=DAT1 WP Yes. 
2388 O987F 20 DOASOS P= 0 
2389 09881 928 *D= KS ASCII output? 
2390 09884 B2 GOYES DOR41) Yes. 
2391 09886 06 RSTK=C Save Hbytes Avien in RSTK. 
2392 09888 A27 D=D+D XS Hex to Dec? 
2393 0988B 562 GONC DOASOS No. 
2394 O988E 800 GOSUBL =HEXDEC Yes. Convert to Dec, into A. 
00 
2395 09894 04 SETHEX 
2396 09896 3263 LCHEX 636 Mask. 
6 
2397 O989B OF63 D=C8D 8B D(1)= # 0’s to suppress-3. 
2398 0989F R63 D=C+D 8B D(1)= # 0’s to suppress. 
2399 O98R2 BB3 DSL X 
2400 O98A5 AB? D=C P D(O)=6= "# of chars to output" 
2401 : At this point, C(S)=0 neans "Don’t replace ldg 0 u/blank". 
2402 O98A8 522 CONC DOAS21 (BET) 
2403 x 
2404 O98AB 62AO DORG3) GOTO  DOASE3 
2405 O98AF 447 DOR41) COC DORS41 (BET) fron above. 
2406 a 
2407 O98B2 R8B DORSOS C=D Pp 
2408 O98B5 Fe CSL A 
2409 O98B7 Fe CSL A #digits-1 to C(XS). 
2410 09889 Ae? D=D+D = XS Replace ldg 0’s with blanks? 
2411 O98BC 450 GOC DOAS11 No. 
2412 OG8BF AME C=C-1 § Yes. C(S)=F for flag. 
2413 098C2 AZ? DOASI1 D=D+D XS Suppress leading zeroes? 
2414 098C5 550 GONC = DORS2Z1 No; leave D(XS)=0. 
2415 09808 AR? D=C XS #zeroes to suppress. 
2416 * 


2417 O98CB 814 DOAS21 ASRC Left justify in A. 
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2418 O98CE AZE C=C-1 XS 
2419 09801 5S9F GONC DORS21 
2420 & 
2421 098D4 07 C=RSTK C(A)= bytes Avien. 
2422 098D6 D5 B=C A B(R)= AvMen byte counter. 
2423 x 
2424 098D8 3293 DOAS27 LCHEX 439 ASCII conversion codes. 
4 
2425 098DD 810 ASLC Next output digit to A(O). 
2426 098EO 908 7A=0) =O~P 
2427 098E3 FO GOYES DOARS29 Not a zero. 
2428 O98E5 AAZ D=0 XS "No nore zero suppress." 
2429 O98E8 938A PAcsC P ASCII A through F? 
2430 O98EB 70 GOYES DOAS29 No. 
2431 O98ED BOR A=A-C P Hex only: A to F 
2432 O98FO F6 CSR A Hex only: C(1)=4. 
2433 098F2 ABE DOASZ9 C=A P C(B)= ASCII code. 
2434 098F5 928 7D=0 = KS Zero suppress? 
2435 O98F8 £0 GOYES DOAS31 No. Send out ASCII code. 
2436 O98FA ACF D=D-1 XS Count #zeroes to suppress. 
2437 O98FD 394A 7t=0 6 6S Replace ldg zero with blank? 
2438 09900 AO GOYES DORS37 No. 
2439 0992 3102 LcAsc \ \ Yes. 
2440 09906 7000 DOAS31 GOSUB DORSub To next output byte. 
2441 0990A ROF DOAS37 D=D-1 P Nore digits for output? 
2442 09900 5AC GONC DOAS27 Yes. 
2443 09910 482 GOC DORS49 (BET) 
2444 x 
2445 09913 6BOF DOASE} GOTO DOASER 
2446 x 
2447 09917 CD DORSub B=B-1 A Count Aven bytes. 
2448 09919 49F GOC DOASE j CRY= MEM ERR. 
2449 0991C 14C DOASu+ DATO=C B Write out character. 
2450 O991F 161 DO=D0+ 2 
2451 09922 03 RTNCC 
2452 = 
2453 09924 DOARS41 ASCII (or Token) output. 
2454 09924 D5 B=C A bytes in avail nen. 
2455 09926 AF6 C=A W Output chars to C. 
2456 09929 7REF DORS43 GOSUB DOASub Chars out. 
2457 09920 BF6 CSR W 
2458 09930 BF6 CSR W Next char to C(B). 
2459 09333 ROF D=D-1 P Count chars. 
2460 09936 ROF D=D-1 P 
2461 09939 5FE GONC DORS43 Loop back for next char. 
2462 0993C BF? DOAS49 DSR W 
2463 0993F BF? DSR W Restore D except for D(15-13). 
2464 09942 BF? DSR W 
2465 09945 31FF DOASS1 LCHEX FF String terninator 
2466 09949 14C DATO=C B to end of buffer. 
2467 0994C 03 RTNCC CRY cleared= nornal exit. 
2468 : 
2469 0994E 20 DOAS63 P= 0 
2470 09950 AFD BCEX W B= #bytes in avail nen. 
2471 09953 A6F D=D-1 8B Any output? 
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2472 09956 45E GOC DORS49 No. 
2473 09953 D2 C=0 A 
2474 0995B 812 CSLC 
2475 O995E 812 CSLC C(B)= #chars-1, or ASCII tern. 
2476 09961 96B 70-0 ~=—«#B Qutput specified #chars? 
2477 09964 71 GOYES DOARS?73 Yes. 
2478 09966 AE? D=C 8 No. Store ASCII tertinator in D. 
2479 x 
2480 09963 14F DOAS65 C=DAT1 B Next char. 
2481 0996C 171 D1=Di+t 2 
2482 0996F 963 7C=D =i Terminator? 
2483 09972 AC GOYES DOAS49 Yes. 
2484 09974 7FOF GOSUB DOASub Char out. 
2485 09978 50F GONC DORSE5 (BET) 
2486 x 
2487 0997B E6 DOAS73 C=C+1 A #chars to output. 
2488 0997D E41 B=B-C A #bytes avail nen. 
2489 0997F 439 GOC DOASE } MEN ERR. 
2490 09982 136 CDOEX ° 
2491 09985 137 CDIEX 
2492 09988 136 CDOEX 
2493 09988 C6 C=C+€ A #nibs to output. 
2494 0998D 7000 GOSUB =NOveu3 

* 2495 09991 136 CDOEX 
2436 09994 137 CDIEX 
2497 09997 136 CDOEX 
2498 0999A 51A GONC  DOAS49 (BET) Wrap up. 


2499 * 
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2500 
2501 SIRI I IIIA IIIT III III IIIS III STIS III IIIS ISS SS SIS IAII ISIS IS ASISII IN: 
2502 FISD III SII ID III III III IIS IIIIAISISIIIIISSIISSS SII IISSSISSS III 
2503 ak 
2504 ak Narie: TBASTX - Find and Build Message Fron Lex Table 
2505 ** Narie:(S) TBMSG$ - Find and Build Message Fron Lex Table 
2506 *k Narie: MsgAvs - Build message fron table, in AvfenSt 
2507 ak 
2508 ek Category:  EXCUTL 
2509 ae 
2510 *% Purpose: 
2511 a Search LEX tables for desired nessage, and build it 
2512 ak into a buffer at DO. 
2513 ak 
2514 ek Entry: 
2515 ak Nsgfvs -- RAM location ERR# contains desired nsg # 
2516 ax TBMSTX -- DO points to buffer to build nessage. 
2517 ae RO(3-2)= LEX IDW, RO(B)= nsg #. 
2518 ae P= desired value to clear portion of RO. 
2519 ak 
2520 ak Exit: 
2521 = DO points to FF terninator at end of built nsq. 
2522 ak P=0, C(B)= FF. 
2523 ak Carry cleared. 
2524 an 
2525 xk Calls: LXTFND, DORSCI, CSRWP9, CSLWP9, RANGE, 
2526 ak 
2527 *k Uses: 
2528 tk Exclusive: A,B,C,D0,D1,D0,R0,P, 
2529 a R2 (if nsg calls for text insertion) 
2530 *k Inclusive: sane 
2531 ak 
2532 *® Stk lvls: 2 
2533 ax 
2534 ** Algorithn: 
2535 kk  MsgAVS Set DO=AvMenSt 
25 36 aK Copy ERRN (from ERR#) into C(3-0) 
2537 kk TMBSG$) «Set P=15 to disallow all text insertions 
2538 *k — TBNSTX Save nsg nunber in B 
2539 ak (1) Clear RO(UP) 
2540 aR Set Di=start of LEX 1/0 buffer (LXFND) 
2541 a If nessage is fron LEX ID=00, go to (3). 
2542 aK (2) Chain through buffer until: 
2543 ak End of buffer: Send out null (msg #0000) 
2544 ‘ LEX buffer natch. 
2545 KK Compute offset to LEX file nessage table. 
2546 ae Check message table range; if no natch, 
2547 ae go to (2). 
2548 aR (Range match: ) 
2549 ak Save address of table in D(A). 
2550 aie (3) If searching for table title, set nessage 
2551 ae nuriber=00 
2552 aA Search table for nessage nunber 
2553 ak If no match, send out null (nsg #0000) 
2554 ax (Message natch: ) 
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2555 aK (4) Process cells: 
2556 ak If cell id = C, go to (5). 
2557 ak If cell id < B, then call DOASCI 
2558 ak to output Hchars. Process next cell. 
2559 ak If cell id = B, then read next nib, 
2560 a call DOASCI. Process next cell. 
2561 ak If cell id = D, store present table 
2562 ak address in RO, set Di=address in D(A), 
2563 ak go to (3). 
2564 aK If cell id = E, set ODl=nainfrane table 
2565 aK address, store present table 
2566 ak address in RO, go to (3). 
2567 ak If cell id = FO, set B=new nsg nunber 
2568 Kk fron table, go to (1). 
2569 ak If cell id = F1, set B=neu nsg number 
2570 aK fron R2, go to (1). 
2571 xk If cell id = Fe or F3, fetch codes fron 
2572 ak R2, store present table address in RO, 
2573 aK call DOASCI. Process next cell. 
2574 ak (5) If table address in RO (from previous cell) 
2575 a set D1=that address, go to (4). 
2576 RK Else, fall into DO=AVS, return. 
2577 ak 
2578 *k History: 
2579 ak 
2580 XK Date Progranner Modification 
2581 RKO ene en nn nnn ne nnn ne nnn nnn nn nnn ener eee 
2582 ek 01/05/83 NB Docurientation 
2583 ak 
2584 JOG IO III IOC IO TTI 
2685 JOO III ISOC I TOOT TK 
2586 0999) 7B81 MsgAVS GOSUB DO=AVS Set DO=AvMenSt. 
2587 O99A1 1F4E 01=(5) =ERR# Point to ERRN. 
7F2 
2588 O99A8 147 C=DAT1 A Read ERRN. 
2589 O99AB 2F =TBNSG$ P= 15 To clear all of RO. 
2590 x 
2591 x Clear ROCWP) (P= 9 from MFERR, 
2532 O99AD DS = = TBMSTX B=C A P= 15 from ERRM$ to disallon 
2593 x insertions. ) 
2594 OS9AF AI2 TBNSO1 C=0 WP 
2595 O99B2 8OCF TBMSID C=P 15 Make C(S)=0 for title search. 
2596 09986 108 RO=C Save flag in RO(S), re-write RO. 
2597 * 
2598 O99B9 09 C=B AR LEX# and nsg# to C(A). 
2599 O99BB Fé CSR A 
2600 O99BD Fb CSR A LEXH to C(B). 
2601 O99BF D? D=C A LEX to D(B). 
2602 09901 78DD GOSUB LXFND Sets P=0. D1 to LEX I/Obfr. 
2603 09905 96B *D=0 ~=—«B LEX #00 specified? 
2604 69908 85 GOYES MFMSTX Yes, use Hain table. 
2605 x 
2606 O99CA 14F LXTFOS C=DAT1 B LEX ID for next entry. 
260? O99CD 96—R 7C=0)—oiB End of table? 


2608 O99D0 E4 GOYES TBANUL Yes. LEX tbl not found. 
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2609 099D2 17A 
2610 09905 967 
2611 099D8 2F 
2612 
2613 O99DA 1€4 
2614 09900 143 
2615 099£0 133 
2616 099E3 1€8 
2617 O99E6 15F3 
2618 O99EA 8AA 
2619 O99ED Al 
2620 O99EF 133 
2621 O99F2 CR 
2622 099F4 133 
2623 099F7 DC 
2624 099F9 147 
2625 OS9FC 8E0O 
00 
2626 0902 DC 
2627 09904 5B0 
2628 OSA? 131 
2629 OSROR 174 
2630 O9AROD 5SCB 
2631 
2632 09A10 173 
2633 09A13 137 
263% 09A16 D7 
2635 09818 137 
2636 O9R1B 580 
2637 
2638 O9AIE D1 


x 


x 
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LXTFO9 


LXTF 11 


TBANUL 


2639 O9A20 1FOO MFASTX 
000 


2640 O9AZ? 118 
2641 O9R2A 94E 
2642 O9AZD 40 

2643 OSAZF D1 

2644 09A31 D9 

2645 

2646 09A33 D1 

2647 O9A35 143 
2648 O9A38 AES 
2649 O9A3B B64 
2650 O9A3E 4FD 
2651 09R41 F4 

2652 O9R43 F4 

2653 O9R45 962 
2654 09A48 DO 

2655 OSA4R 137 
2656 O9R4D C9 

2657 OSA4F 137 
2658 O9A52 52E 
2659 

2660 O9A5S 173 
2661 


x 


x 


TBASO3 


TBASOS 


TBHSOS 


Di=D1+ =1LXENT 
CHD iB 
GOYES LXTFOS 


D1=Di- =1LXADR 
A=DAT1 A 
ADIEX 

D1=D1- =oMSGP 
C=DAT1 4 
C20) =O—A 
GOYES LXTFO9 
ADIEX 

A=A+C A 
ADIEX 

ABEX A 
C=DAT1 A 
GOSUBL =Range 


ABEX A 

GONC = LXTF11 
D1=A 

D1=D1+ =1LXADR 
GONC = LKTFO5 


Di=D1+ 4 
CDIEX 
D=C 

CDIEX 
GONC 


D> 


B=0 A 
Di=(5) =LEX:MN 


C=RO 
?CHO 
GOYES 
B=0 
C=8 


S 
T 
A 
A 
B=0 A 
A=DAT1 A 
B=A B 
A=A+1 B 
COC I 
ASR A 
ASR A 
A=C OB 
GOYES T 
CDIEX 
C=C+B A 
CD1EX 


GONC TBMSO9 


TBNS11 Di=D1+ 4 
& 
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D1 to next entry. 
Is this desired LEX table? 
No. 


Yes. Back up to address. 
Address of LEX main table. 
Addr of LEX to Dt. 
Back up to nsg table pointer. 
Read in offset to nsg table. 
Msg table present? 
No. Try next LEX entry. 
Yes. Add offset... 

to D1. 
D1 points to msg range. 
Save LEX buffer pointer in B, 

A(B)= desired msg. C=range. 

fisgt in range? 


(LEX buf pointer back to A) 
Yes, in range. 

LEX buf pointer back to D1. 
01 to next LEX entry. 

(BET) Try next entry. 


sg located! Skip over range fld. 
Copy address of tbl to D(A). 
(BET) 


Send out null string. 
Mainfrane table start (LEX ID=0). 


Read flag into C(S). 

Title search only? 

No. Looking for ressage. 

Yes. Send title (nsg nunber 0). 
C(B)= nsgt. 


A(B)= wsg length, A(3-2)= nsgt. 
Save length to next nsg. 

End of table? 

Yes. Send null string. 


Table nsg# to A(B). 
Is this the desired nsg? 
Yes. 
Step to 
next nessage. 


(BET) 


Message found. 
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2662 O9A58 
2663 OSASB 
2664 O9AS5E 
2665 09A61 
2666 09A63 
2667 O9R66 
2668 O9R68 
2669 O9R6A 
2670 O9R6D 
2671 09A70 
2672 09873 
2673 O9A77 
2674 O9A7A 
2675 O9A7D 
2676 OS9A80 
2677 O9R83 
2678 O9R85 
2679 O9A88 
2680 

2681 

2682 

2683 

2684 

2685 

2686 O9A8B 
2687 OSASE 
2688 09A91 
2689 O9AS4 
2690 09897 
2691 09899 
26392 OSASC 
2693 O9ASF 
2694 O9ARZ 
2695 O9AR4 
2696 O9AA? 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2706 
2706 
270? 
2708 
2709 
2710 
2711 
27 te 
e713 
2714 
2715 
27 t6 


OSAAA 
OSARD 
OSABO 
O9RB3 
O9ABE 
O9RBS 
OSRBB 
OSABF 
O9AC3 
OSACS 
O9AC9 
O9ACD 
O9RD4 
O39AD4 


OSAD? 
O9ADA 
OSADC 
OSRDE 


30C 
143 
98A 
67 
118 
D8 
F5 
BO4 
4p1 
172 
7 REO 
137 
108 
Bo4 
4F9 
DB 
136 
58A 


171 
AOD 
467 
BF2 
D9 

812 
812 
96h 
6B 

112 
AF8 


R2E 
426 
133 
102 
92R 
01 
747D 
3102 
DS 
3118 
7662 
7570 
10A 


> Oe Oe 
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TBAS15 


Special cell codes: 


TBMS13 


TBAS20 


538 = TBNSet 
i 


902 
71 
CE 
982 


TBAS23 


LCHEX C 
R=DAT1 A 
PA<=C OP 
GOYES TBNS23 
C=RO 


B=A A 

BSR R 
A=R+1 PP 

GOC TBNS19 
Di=D1+ 3 
GOSUB CSLWPS 
CDIEX 

RO=C 

R=A+1 =P 

GOC MFNSTX 
C=) A 

Di=C 

GONC  TBNSOS 


Di=D1+ 2 
B=B-1 P 

GOC TBNS31 
CSL W 

C=B A 

CSLC 

CSLC 

7-0 «6B 
GOYES TBNS15 
A=R2 

B=A W 
C=C-1 XS 

GOC TBNS35 
ADIEX 

R2=A 

7C=0 XS 
GOYES TBNS20 
GOSUR DOASCI 
LCASC \ \ 
B=C A 
LCHEX 81 
GOSUB DOASCI 
GOSUB CSRW9- 
R2=C 

GUNC TBNS15 
*A=C OP 
GOYES TBNS2? 
C=C-1 A 

7AcC OP 


FO= 
Fis 
F2= 
F3= 
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"C"= code for “stop output." 
Read msg cell code. 

Stop, or ASCII output? 

Yes. 

No. 


B(B)= nsg#, or B(O)= insert flag. 
Insert text? 

Yes. 

No. Building Block; to next cell. 
Shift RO(A) to nibs 9-5. 

Save next tsg cell addr in RO(A). 


Mainfrane building block? 
Yes. 

No. Local risgt#. 

LEX tol addr to D1. 

(BET) 


nessage fron different XROM 

insert indirect nessage 

insert text with no trailing space 
insert text with trailing space 


Insert caller’s text. 
Nessage fron different XROM? 
Yes. 


Flags to C(O), end up in C(XS). 


C(B)= DOASCI codes. 
Any text? 
No. Don’t wipe out R2. 
Yes. 
Either B= text, or upper B 
=codes and DAT1= text. 
Insert indirect message? 
Yes. 
No. Insert text. 
Save message addr in R2. 
Trailing space’ 
No. Text to buffer anly. 
Output text ta buffer. 
Send trailing blank. 
Blank to B, 
codes in C. 


Fetch msg address. 
end insert to R2(A), Di=nsg addr. 
(BET) To next sg cell. 


Stop output? 

Yes. 

C(O)= B. 

A(O)= Hchars-1 to output? 
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2717 O9AE1 70 GOYES TBMS25 Yes. 
2718 OSRE3 170 Di=D1+ 1 No. #chars-1 in next nib. 
2719 OSRE6 F4 ASR A ichars-1 to A(0). 
2720 OSRE8 D6 TBNS25 C=A A C(O)= #chars-1 to output. 
2721 OSREA 7530 GOSUB DOASC- Text to buffer. 
2722 O9REE SSE é GONC TBNS21 (BET) Next cell. 
2723 
2724 O9AF1 118  TBMS27 C=RO Fetch “return” msg addr. 
2725 O9RF4 394A 720) § Were we just searching for title? 
2726 OSAF7 OO RTNYES Yes. Title found and sent. 
2727 OSAFS 8AA C20 =A End of conplete nsg? 
2728 OSAFC 42 GOYES TBNS39 Yes. 
2729 OSAFE 7740 GOSUB CSRW9+ No. Address of next cell 
2730 09802 108 RO=C to RO(A). 
2731 09805 SEC i GONC § TBNS21 (BET) Next cell. 
2732 
2733 09808 143  TBNS31 A=DAT1 A Read new XROM nsg nunber. 
2734 OSBOB D8 B=A AR To B. 
2735 OSBOD 4C0 COC TBNS37 (BET) Terninate curr nsg. 
2736 x 
2737 09810 7230 TBNS35 GOSUB CSRN9- Next insert codes to R2(R). 
2738 09814 10A R2=C 
2739 09B17 118 C=RO To save RO(15-10). 
2740 O9B1A 29 TBNS37 P= 3 Terminate current msg, 
2741 O9B1C 629E : GOTO  TBMSO1 call indirect nsgt. 
2742 
2743 09820 7FOD TBMS39 GOSUB DOASCI End of nsg. Since C(A)=0, sends 
2744 x out FF terminator (consider 
2745 x null ressage). 
2746 09824 136 CDOEX C=addr of FF at end of nsg. 
274? 09B27 DS B=C R Copy addr to B. 
2748 09829 110 R=RO To preserve upper RQ. 
2749 x 
2750 e'idttse tl Fall into DO=-AVS FE bb 


2751 x 
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2752 EJECT 
2753 kloldotddtot Above code falls into here |} tbr 
2754 JOO IOCIGUICCIG OIG ICI OO OT TE 
2755 JO II SII IIIT OC TTR 
2756 xk 
2757 **k Nane:(S) DO=AVS - Set DO=address in AVMENS 
2758 ** Nane:(S) DO=PCA - Set DO=address in PCADDR 
2759 wk 
2760 **k Category:  PTRUTL 
2761 a 
2762 ** Purpose: 
2763 x DO=AVS : Set DO=<AVMENS> (also set A(R)=<AVMENS>) 
2764 Kn DO=PCA : Set DO=<PCADDR> (also set A(R)=<PCADDR>) 
2765 aR 
2766 kk Entry 
2767 ak No necessary conditions 
2768 KK 
2769 *k Exit: 
2770 x DO=AVS : DO=A(A)=<AYNEMS> 
2771 x DO=PCA : DO=A(A)=<PCADDR> 
2772 ak Carry not affected. 
2773 Ka 
2774 ** Calls: None 
2775 aK 
2776 kk Uses:...... DO, ACA) 
2777 aK 
2778 ** Stk lvls: none 
2779 Kx 
2780 ** Detail: 
2781 x =DO=AVS DO=(5) =AVMEMS Set DO= start of avail men. 
2782 Km GOTO Dd=NT0 
2783 aa =DO=PCA DO=(5) =PCADDR Set DO= addr of xqtn line. 
2784 ak DO=DTO A=DATO A Set DO= address in DATO. 
2785 aK DO=A 
2786 ak RIN 
2787 aK 
2788 *k History: 
2789 KK 
2790 ae Date Progranner Modification 
2791 RKO nner e ne ene e enn n ne roe - no-no nee een ee 
2792 *k 91/05/83 MB Dacunentation 
2793 xx 
2794 FOR IOTORIOOOO RO oO OI II IOI III III OI 
2795 FOE JOOI ROR OIOORO OOOO OO TOT OO IO OOOO IO IOI IOI IO 
2796 x tlt ttt t Above code falls into here | | bibl 
2797 
2798 O9B2C 1B49 =DO=AVS DO=(5) =AVNENS Set DO= start of avail nen. 
5F2 
2799 09B33 6ROO GOTO 3 =M®=DTO 
2800 09837 1B97 =DO=PCA DO=(5) =PCADDR Set DO= address of execution line. 
6F2 
2801 09B3E 142 DO=DIO A=DATO A Set DO= address in DATO. 
2802 09841 130 DO=A 
2803 09B44 01 RIN 
x 


2804 
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2805 
2806 FRI I RII II IIS III IOI ISS SS SIT III ISI III SSIS IIS ISIS II SIS SAI IS 
2807 $I ISOS ISI TIS IIIT II IIIT ITO TI IES III TOI IOS IIIT III AS ISIS SI IIA AI 
2808 a 
2809 ** Nane: CSRWPS - Do five CSR WP with P=9 
2810 ** Narie: CSRWP - Do five CSR WP, P as passed 
2811 ata 
2812 ** Category:  GENUTL 
2813 ea 
2814 ** Purpose: 

2815 a Shift C right 5 nibbles with P=9. 

2816 aR 

2817 ** Entry: 

2818 ak No necessary conditions 

2819 ak 

2820 Ae Exit: 

2821 ak P = 0 

2822 ah Carry cleared 

2823 k 

2824 *k Uses P, C(9-0) 

2825 ae 

2826 ** Stk lvls: None 

2827 ia 

2828 ** Detail: 

2829 aK =CSRUP9 P= 9 C(9-5) to C(A). 
2830 aa =CSRWP CSR = WP 

2831 xa CSRs 

2832 ax CSR oP 

2833 is CSR OP 

2834 aE CSR OP 

2835 a P= 0 

2836 Be RTNCC 

2837 xk 

2838 ** History: 

2839 = 

2840 ss Date Progranner Nodification 
2841 RR ccuaeesus eee cdecas- * esastectemseaacteases censuses onesion 
2842 x 06/25/82 MB Docunentation 

2843 ae 

2844 JI IOI I III IIIS ITO SI III TIT ITO SI IIT SII ISI IAI IIASA IAAI 
2845 JOIST OTT OT IIIT SIS TIT TIT T SII I TTI I ITT IITA 


2846 09846 11A CSRWS- C=R2 
2847 09849 135 CSRU9+ DI=C 


2848 OSB4C 29 = =CSRWPO P= 9 C(9-5) to C(A). 
2849 O9B4E B96 =CSRWP CSR WP 

2850 09851 B96 CSR WP 

2851 09854 896 CSRWP* CSR WP 

2852 09857 B96 CSR WP 

2853 OSB5A B96 CSR WP 

2854 O9B5D 20 P= 0 


2855 OSBSF 03 Mrtncec RTNCC 
2856 x 





Saturn Assenbler 


Error Message Driver <831216.1 Fri Dec 30, 1983 5:13 an 


Ver. 3.39/Rev. 2306 Display Utilities Page 64 
2857 JECT 
2858 JOO IT III IIIT IIT IST ITT IO TIS ISI III II ITI STASI 
2859 JO IO III IIIS III III II TI ITI SIS IIIS IIIT IIIT I IIIS SI STI IIT SSI ASS: 
2860 ae 
2861 xk Narie: CSLWP9 - Do five CSL WP with P=9 
2862 xk Nane: CSLWP - «Do five CSL WP, with P as passed 
2863 oi 
2864 ** Category:  GENUTL 
2865 a 
2866 ** Purpose: 
2867 ak Shift C left 5 nibbles with P=9. 
2868 Bk 
2869 xk Entry: 
2870 aK No necessary conditions 
2871 ak 
2872 aK Exit: 
2873 ax P = 0 
2874 ia Carry cleared 
2875 xk 
2876 *k Uses P, C(9-0) 
2877 aE 
2878 ** Stk lvls: None 
2879 xR 
2880 ** Detail: 
2881 ak =CSLUP9 P= 9 C(A) to C(9-5). 
2882 a =CSLWP CSL WP 
2883 a CSL) UWP 
2884 ak CStsWP 
2885 ax A 
2886 as CSL)OWP 
2887 ae P= 0 
2888 ae RTNCC 
2889 AX 
2890 ** History: 
2891 ak 
2892 oi Date Progranner Modification 
2893 RR. Webeese se. : eee eee ae MRS tenes Mesa Geers tee ake 
2894 ** 06/25/82 NB Docunentation 
2895 7 
2896 JU III ITO IS TOSI II IO TITRE 
2897 JOO OOS ISI ISU IOS ITT TOI 
2898 09861 29° =CSLWPS P= 9 
2899 09863 B92 =CSLWP CSL WP 
290 09866 B92 CSL WP 
2% 1 09869 B92 CSL WP 
CWe2 OSBEC B92 CSL WP 
2%3 OSBoF B92 CSL WP 
294 09B72 20 P= 0 
295 09874 03 RINCC 
296 x 
2%? 09876 END 
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A=CUR 
ATCHK 
AUTCLR 
AVMENME 
AVAENS 
ZAVS2DS 
AVS=C 
BF2ST+ 
BLDDSP 
=BSERR 
BSTYCK 
CHIRP 
CKINF - 
CLCOLL 
COLLAP 
CPLH10 
CRLFND 
CRLF SD 
=CSLWP 
=CSLWP9 
CSRW9+ 
CSRW9- 
=CSRWP 
CSRWP* 
=CSRWP9 
CURRL 
CURSFL 
CURSRR 
=CURSRT 
=DO=AVS 
DO=DTO 
=DO=PCA 
DORG1 j 
DORE 3 J 
DORSOS 
DORSOS 
DOAS 11 
DORS 21 
DOAS27 
DOAS29 
DOARS 31 
DOAS 37 
DORS41 
DOAS43 
DOAS49 
DOASS1 
DORS 63 
DOAS 65 
DOAS 73 
DOASC* 
=DOASC+ 
DORSC- 
=DORSCI 
DOASER 
DORSE j 


Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


193945 #2F599 
193940 #2F594 


38664 #09708 


37786 #0939A 


39779 #09B63 
39777 #09B61 
39753 #09849 
39750 #09846 
39758 #OSB4E 
39764 #09B54 
39756 #OSB4C 


194536 #2F7E8 


38593 #O96C1 
39724 #09B2C 
39742 #09B3E 
39735 #09B37 
39087 HOS8AF 
3983 #O098AB 
39039 #0987F 
39H #098B2 
39106 #098C2 
39115 #098CB 
39128 #098D8 
39154 HOS8F2 
39174 #09906 
39178 #O990R 
39204 #09924 
39209 #09929 
39228 #09930 
39237 #09945 
39246 #OS94E 
39273 #09969 
39291 #09978 
38950 #09826 
38956 #O982C 
38947 #09823 
38963 #09833 
38943 #0981F 
39187 #09913 


Table 


1479 
1516 
1353 
14 
14 
1906 
1485 
2199 
1497 
595 
1733 
1492 
1652 
1362 
1351 
1736 
1373 
1496 
2899 
2898 
2847 
2846 
2849 
2851 
2848 
14 
167? 
1681 
1676 
2798 
2801 
2800 
2405 
2404 
2388 
2407 
2413 
2417 
2424 
2433 
2440 
2441 
2453 
2456 
2462 
2465 
2469 
2480 
2487 
2355 
2357 
2354 
2361 
2351 
2445 


bot tot § Foe bt F ft b F tf bo tf bbe te at a aa at a a a a a a a a aa kak kk a) tk tl lt at tt 


2371 
2798 
1489 
1488 


806 


1486 


1150 
2729 
2709 


1675 
1454 


1439 
1663 
1614 
239 
2382 
2386 
2393 
2411 
2402 
2442 
2427 
2435 
2438 
2405 
2461 
2443 


2404 
2485 
2477 
1450 


2721 
1465 
2198 
2448 


1925 
2737 


1964 


1906 


2799 
1735 


2414 
2430 


2472 


2704 
2379 
2483 
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2672 


2586 


2419 


2483 


2708 
2445 
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2498 


2743 


§:13 ari 
Page 65 


Saturn Assenbler Error Message Driver <831216.1 Fri Dec 30, 1983 5:13 an 
Ver, 3.39/Rev. 2306 Syribol Table Page 66 


DORSu+ Abs 39196 #0991C - 2449 1460 1467 
DOASub Abs 39191 #09917 - 2447 2071 2440 2456 2484 
DOOUTB Ext - 1914 

DIC=R3 Ext - 2192 

=DONNA Abs 38486 #09656 - 1646 

DSPB11 Abs 38765 #09760 - 1949 1932 
DSPB15 Abs 38792 #09788 - 1960 1950 
DSPBF1 Abs 38712 #09738 - 1928 1944 
DSPBF3 Abs 38732 #0974C - 1936 1948 
DSPBF5 Abs 38754 #09762 - 1943 1935 
DSPBF9 Abs 38760 #09768 - 1947 1930 
=DSPBUF Abs 38691 #09723 - 1920 1659 1910 
DSPCHA Ext - 1673 1939 
=DSPCNA Abs 38689 #09721 - 1917 1671 
=DSPCNB Abs 38687 #0971F - 1916 

=DSPCNO Abs 38678 #09716 - 1914 

ERR# Abs 194532 #2F7E4 - 14 1408 2587 
ERRADR Abs 194184 H2F638 - 14 1433 
=ERRNS Abs 38908 HOS7FC - 219 

=ERRN$f Abs 38918 #09806 - 2192 


ERRMST Ext - 1445 

ERRRTN Ext - 699 

ERRSUB Abs 194179 #2F683 - 14 1429 1433 
ESC'<" Abs 38619 #096DB - 1686 1374 1647 
ESCSEQ Ext - 1688 

ESCSEq Abs 38625 #096E1 - 1688 1661 

FPoll Ext ~ 1346 

HEXDEC Ext ~ 2394 

I/OFND Ext - 2009 

INBS Abs 194246 H2F6C6 - 14 1143 1662 
InhEGL Abs 4 #00004 - 17 18 19 1655 191? 
KILLKY Ext ei 


=LERRM Abs 38827 #037AB - 2056 

LERRM1 Abs 38843 #097BB - 2060 2058 
LERRM3 Abs 38873 #097D9 - 2071 2073 
LERRM5 Abs 38883 #097E3 - 2075 2067 

LEX: MN Ext - 2639 
=LXFND Abs 38813 #09790 - 2007 2602 
LXTFOS Abs 39370 #O9SCR - 2606 2611 2630 
LXTFOS Abs 39431 #O9AO7 - 2628 2619 
LXTIF11 Abs 39440 #O9R10 - 2632 2627 
=MENER* Abs 37979 #0945B - 1341 1336 
MEMER1 Abs 38046 #0949E - 1362 1156 1335 
=MEMERR Abs 37965 #09440 - 1334 2351 
=MENERX Abs 37967 #O944F - 1335 

MFER+6 Abs 38079 HOS4BF - 1374 1372 
MFER.6 Abs 38057 #094A9 - 1368 1158 1356 
MFERO2 Abs 37888 #09400 - 1132 815 
MFERO3 Abs 37896 #09408 - 1135 1131 
MFERO4 Abs 37938 #09432 - 1149 1147 
MFEROS Abs 37951 #0943F - 1154 1138 1140 
MFERO? Abs 38092 #O94(C - 1392 1376 
MFERO8 Abs 38120 #094E8 - 1402 1397 
MFEROS Abs 38129 #094F1 - 1406 1403 
MFER11 Abs 38164 #09514 - 1417 1407 1411 
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MFER15 Abs 38215 #09547 - 1439 1418 1428 1432 1436 
MFER1S Abs 38252 #09560 - 1449 1447 
MFER25 Abs 38295 #09597 - 1463 1458 
MFER27 Abs 38306 #095A2 - 1466 1453 
MFER29 Abs 38310 #O95R6 - 1467 1461 
MFER33 Abs 38314 #O95AR - 1469 1441 
MFER3S Abs 38372 #095E4 - 1489 1482 
MFER37 Abs 38387 #095F3 - 1493 1491 
MFER39 Abs 38398 #O95FE - 1496 1494 
MFER41 Abs 38437 #09625 - 1507 1506 

zMFER42 Abs 38444 #0962C - 1509 
MFERS1 Abs 38486 #09656 - 1645 1508 
MFERS3 Abs 38520 #09678 - 1656 1651 
MFERSS Abs 38578 #09682 - 1672 1670 
MFER57 Abs 38603 #096CB - 1679 1682 

sMFERR Abs 37779 #09393 - 592 

sMFERR* Abs 37873 #093F1 - 1126 595 

sMFERR- Abs 37870 #O93EE - 1125 

=MFERRS Abs 37790 #0939E - 596 1338 

=MFERsp Abs 37901 #0940D - 1136 
MFLG=X Ext - 1499 
MFASTX Abs 39456 #09A20 - 2639 2604 2676 
MFWRO3 Abs 37831 #09307 - 804 800 
MFWROS Abs 37858 #093E2 - 813 809 

=MFURN Abs 37820 #093BC - 798 

=MFWRNQ Abs 37829 #093(5 - 803 

sMFWRQ8 Abs 37827 #093(3 - 802 
MOveu3 Ext - 2494 
Mrtnce Abs 39775 #O9BSF - 2855 
MsgAVS Abs 39325 #09990 - 2586 2060 2191 
MsgPOL Abs 37805 #093AD - 605 804 1126 
NoCont Abs 14 #0000E - 13. 596 
ONERR Ext - 1437 
PCADDR Abs 194169 #2F679 - 14 2800 
POll) = Ext - 608 

=PRP3>3 Abs 38532 #09684 - 1660 1648 
R3=Di0 Ext - 219 
R<RST2 Ext ~ 1368 
RST2<R Ext - 1501 
Range Ext - 2625 
SAVELO Ext - 1741 
SENDUD Ext - 1957 
SFlag? Ext - 811 
STOSW1 Abs 38465 #09641 - 1521 
STOSW3 Abs 38469 #09645 - 1522 1394 
STOSWP Abs 38462 #0963E - 1520 1504 1507 
STAKDN Ext - 2078 
STAKUP Ext - 2059 
Sflagl Ext - 1421 
TBMNUL Abs 39454 #09R1E - 2638 2608 2650 
TBNSO1 Abs 39343 HO99AF - 2594 2741 
TBNSO3 Abs 39463 #09R27 - 2640 2636 
TBMSOS Abs 39473 #09A31 - 2644 2642 2679 
TBMSO9 Abs 39477 #09A35 - 2647 2658 
TBNS11 Abs 39509 #09A55 - 2660 2654 
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TBMS15 Abs 39512 #O9A53 - 2662 2694 2711 
TBMS19 Abs 39563 HO9A8B - 2686 2670 
TBNS20 Abs 39625 HOSAC9 - 2708 2703 
TBNS21 Abs 39636 #O9AD4 - 2711 2722 2731 
TBMS23 Abs 39639 #O9AD? - 2713 2665 
TBHS25 Abs 39656 HOSAES - 2720 2717 


TBNS27? Abs 39665 HO9AF1 - 2724 2714 
TBNS31 Abs 39688 #09B08 - 2733 2688 
TBNS35 Abs 39696 #09B10 - 2737 2699 
TBNS3? Abs 39706 #09B1A - 2740 2735 


TBNS39 Abs 39712 #09B20 - 2743 2728 
=TBNSG$ Abs 39339 #099AB - 2589 
TBMSID Abs 39346 #099B2 - 2595 1444 
=TBMSTX Abs 39341 #OS9AD - 2592 1471 
TRNFCK Ext = 1355 
UPDCR1 Abs 38656 #09700 - 1739 1734 
UPDCR3 Abs 38658 #09702 - 1741 1738 
=UPDCRL Abs 38631 #096E7 - 1733 1377 


VIEWD1 Ext ~ 2075 

WRNNST Ext - 1448 

XDELAY Ext - 1495 

bLEX Abs 3068 #OOBFC - 13 2008 

beep Abs 3 #00003 - 25 1490 
=bf2st+ Abs 38936 #09818 - 2199 

cntr? Abs 5 #00005 - 18 1917 1929 
delay Abs 0 #00000 - 22 1493 

eNEN Ext - 1362 

fFCALC? Ext - 1371 2057 2076 
FINOFN Abs -42 #FFFD6 - 13. 1420 
FIQIET Abs -1 #FFFFF - 13 810 
zifofnd Abs 38820 #097A4 - 2009 

1LXADR Abs 5 #00005 - 13 2613 2629 
ILXENT Abs 11 #OOOOB - 13 2609 
oNSGPT Abs 9 #00009 - 13 2616 
pERROR Abs 242 HOOOF?2 - 13° 1127 

phen Abs 241 #OOOF1 - 13. 1347 

pWARN Abs 243 #HOOOF3 - 13. 805 

parse Abs 1 #00001 - 23 1404 1505 
sENDx Abs 1 #00001 - 13 -597 
sERROR Abs 0 #00000 - 13, 598 
zssavelO Abs 38658 #09702 - 1740 

warn Abs 2 #00002 - 24 (1395 1417 1446 1503 


width? Abs 6 #OOOOE - 19 1655 1934 1949 





Saturn Assenbler Error Message Driver <831216.1 Fri Dec ®, 1983 5:13 an 
Ver. 3.39/Rev. 2306 Statistics Page 69 


Input Paraneters 
Source file nane is TISERD: 3S 
Listing file name is TI/ERD: TI: ML: :-1 
Object file name is TIZERD: TI: MS::-1 


144114 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 x SSS GG 8&8 FFFFF XK XxX QQQQ 
2 & $ G G6 8% F K XxX Q Q 
3 x G && F XxX Q 1} 
4 a SSS. 6G6G6G & FFFF x Q Q 
§ x $ G G &&& F XX Q QQ 
6 * S$ $ GG G&& F x xX Q 
7 : SSS GGG 8& & F X XK QQQ Q 
8 
9 TITLE File Execution Routines<831216.1614> 
10 09876 ABS #09876 
11 ROSYMB TIZEQU: :MS 


12 RDSYMB SBZRAM: AS 
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15 STITLE File Execute (FILKQ*%) 
16 FRIIS II ITI TSI ISOS OOS IIIS IIIT I STII II III IIIS ITI III IIIA 
17 SI III I III IS ITT I ITT IIIT TSI OTITIS III ISIISISIO SIO III IIS I III SIS IIIS 
18 ke 
19 *® Narie:(S) FILXQ* - Filenane Execute 
20 = Nare:(S) FILXQ$ - Filename Execute For a String Expression 
21 - 
22 ** Category:  FILUTL 
23 ak 
24 ** Purpose: 
25 ak Executes a tokenized file specifier. Solitary device 
26 xx Specifiers of the forn ’:CARD’, ’:PORT’, ’:MAIN’, etc, 
27 ak are accepted. There are tuo entry points. 
28 xk 
23 a FILXQ*: 
30 ak Assunes that DO points to a file specifier in prograr 
31 aE nenory. The file specifier nay be a literal or a 
32 ae string expression. 
33 x 
34 ae FILKQS: 
35 as Assuries that the alleged string has been evaluated and 
36 ak is on the Math Stack. This entry is used by ADDR$ and 
37 kk CATS. 
38 xx 
39 ** Entry: 
40 oie FILXQ*: 
41 a DO at start of file specifier 
42 RP FILKQS: 
43 - 01 points to string expression on top of Match Stack 
44 
45 AEERL Lt? 
46 xR CARRY SET: (both entry points) 
4? ne Nainfrare-recognizable file specifier found. 
48 = A(W) = Blank-padded file nane if nane present. 
49 BE = © 1f only device specifier present, as in 
50 ae *:MAIN’, *:PORT’, >: CARD’ 
51 an D(S) = F if no device specified 
62 me = 0 if device is : MAIN 
53 xk => 1 .1f device in :PORT, in which case: 
54 wx D(O) = PORT extender nurber 0-F 
55 xe D(1) = PORT nuriber 0-4 
56 me D(B) = FF if no PORT number specified 
57 RE = 7 1f device 1s card, in which case: 
58 * D(B) = 0 af :CARD 
59 ae B(B) = Nonzero if :PCRD 
60 RR DO = Past file specifier (FILXQ* only) 
61 = P = Q 
62 ae If file specifier was a string expression: 
63 a D1 points past the string on the stack 
64 aR If file specifier was a literal containing a port#: 
65 at D1 points past the 16 nibble nunber on the stack 
66 ae (RAVMENME )=D1 
6? aK 
68 Ss CARRY CLEAR: 
69 a FILXQ*: 
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70 aR Executed illegal nainfrane file nane. Either string 
71 ~ expression or literal nane with over 8 characters. 
72 se $721 => Specifier was string expression, in which 
73 aK case the expression 1s still on the stack. 
74 ak AVNENE points to the string header 
75 Rk DO points past the tokenized expression. 
76 th 
77 AK $7=0 => Specifier was a literal; DO may be restored 
78 ax to the start of the literal by using (STMTDO) 
79 at Pp = 0 
80 ak 
81 ak FILXQS: 
82 - String expression on stack contained an illegal specifier 
83 & $7 = 
84 ax AVNENE = Value it contained on entry. May be used to 
85 ala preserve the pointer to the string header prior 
86 ak to calling FILKQ$. 
87 aK P = 0 
88 kk 
89 ak ERROR EXIT (both entry points): 
«® ak Exit to MFERR (eFSPEC) if and only if :PORT is found, 
91 ae followed by an illegal port specifier. 
92 ak 
93 ak 
94 *k Calls: EXPEXC, FILEP, PDEV, CATCHR, OVCTYP, POLL, 
95 a REVPOP, BLKOK, PRT#P, FINDA, RSTST, SAVEDO, 
96 ma CNVWUC, AVE=D1 
97 REO USES (x ceases 
98 kk Exclusive: A-D, D1, DO, STMTDO, RO, R1, $1,S2,87 
99 *k Inclusive: STMTR1 (all of it) -- port spec. as nun expr 
100 le RO-R3, all of function scratch -- EXPEXC 
101 ze 
102 a NOTE: FILXQ$ entry doesn’t use any statenent scratch. 
103 
104 ak 
105 ** Detail: DO on entry to FILXQ* is a pointer to the start 
106 ak of the conpiled file specification. FILXQ* must 
107 Ee save DO in STMTDO, since EXPEXC can use all CPU 
108 aK registers and all function scratch RAM. STMTDO 
109 an will be updated if nenory noves. 
110 ax 
111 ak SYNTAX FOR PORTH IS <d[.d[d]]> 
112 af 
113 ak ASSUMES THAT ALL NON-MAINFRANE DEVICE REFERENCES 
114 ak HAVE BEEN TOKENIZED WITH tCOLON. 
115 aK 
116 ae Nibs 2,3,4 of D are zeroed out for TRSFfu 
117 aK 
118 *® Stack lvls: FILKQ$ entry pt - 3 
119 a Otherwise = § 
120 a 
121 ** History: 
122 = 
123 xx Date Progranner Modification 


124 Ai corseest: Nogoereous: | perciecede 
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125 Rk 06/29/82 = SW. Added docunentation. 
126 Rk 07/05/82 = S.W. Modified code to elininate 
127 aK call to POP1S - lets REVS 
128 ax take care of that. ; 
129 ek 07/27/82 9 S.W. Added code to check for tCOLON 
130 ak before assuning string expr. 
131 KK 10/21/82 9 S.W. Save PC in STMTDO, instead 
132 ak of S-R1-0 
133 ek 01/31/83 J.P. Clear S$? on entry 
134 ek 06/28/83 9S. Save rtn stack level in RO 
135 ak prior to calling FILEP!. 
136 th 
137 SII I III DI TTI TAT TDI I TIT TTI TIT II AISI SI SSSI SIS ISIS OSI SSI IK 
138 FIO RII DRI ITE TST TT TIT I TT TIO SI IIIT IST ISS ISII IIS SSI III IS 
j * 
i JU IO ICI OK 
141 JOS Ik 
142 aK 
143 . Narie:(S) pFILXQ - Poll for device to return device ID 
144 
145 ** Category: POLL 
146 aK 
147 ** Type: POLL 
148 RR 
149 *k Purpose: 
150 7 Polls for dedicated device to intervene to return its id 
151 
152 xk Should poll be "Handled" (return with XM=0)?: 
153 x Yes 
154 ak 
155 xk Meaning of "Handling" Poll (what does code do if handled?): 
156 oles Reads device specifier (either as an executed string 
157 ak expression off stack or as a literal) and if their 
158 . device 1s referenced, return device ID in D(S) & D(X) 
159 x 
160 ** Entry conditions for handler (registers, ST, RAN, etc.): 
161 ax Carry clear 
162 ak B[A] = Poll nunber. 
163 ae HEX node. 
164 RK P=0, 
165 te RO contains file nane (if any) - <=8 characters 
166 ie DO may be restored prior to filespec, using STNTDO 
10? ax (this 1s generally not useful) 
168 ae IF $7=0 
169 a Device specifier 1s a literal 
170 ae M points past tCOLON (Poll handler must check 
171 ee to ensure that DO points to tLITRL - if it doesn’t 
172 a poll should NOT be handled. 
123 a IF $?=1 
174 Ax Device specifier 1s a string on the stack 
175 ae (string header pointed to by AVMENE) 
176 AR DO points past the entire file specifier 
17? ak A colon was found on the stack, in the appropriate 
178 a position. 


179 +t 
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180 ** Wornal exit conditions from handler if handled (ST, RAM, 
181 %* registers, etc.): 
182 ah Carry clear 
183 an HEX node. 
184 ak XA=0. 
185 ax File Nane in A (Retrieve fron RO before exit) 
186 ak D(S),D0(X) set appropriately with device id 
187 ak DO past file specifier 
188 ak ADDITIONALLY: 
189 aK IF $7=1 on entry, then D1 must point past the string 
190 res on the stack and AVMEME must reflect this. 
191 
192 *k Nornal exit conditions fron handler if not handled (ST, RAN, 
193 ** registers, etc.): 
194 oe Carry clear 
195 &k HEX node. 
196 ak XA=1, 
197 kk RO must be unaltered fron entry. 
198 ais 
199 ** Error exit conditions fron handler (POLL only): 
200 ak NO ERROR - Instead DON’T HANDLE 
201 xx 

202 ** Available subroutine levels: 

203 kr 

f 204 ae 
205 *% NOTE: 
206 tk 
207 aK 
208 *x What registers/RAN nay be used if handled?: 

y 209 ae A-D,01,D0,R1,STMTR1 (all of it), $1,S82 

210 RS 
211 ** What registers/RAN nay be used if not handled?: 
212 x A-D, DO, DI, P 
213 aK R1,STMTR1 (all of it), $1,S2 
214 ax 
215 kX What registers/RAMN may be used if error exit (POLL only)?: 
216 aR NO error exit 
217 ae 
218 tk Envisioned application(s): 
219 se So a dedicated device may be referenced analogous to an 
220 HPIL device, eg > INITIALIZE :HP145xXx 
221 Rx 
222 *X History: 
223 ax 
224 £K Date Progranner Modification 
225 RKO “ches Soees Ue oe ese bbe ee SS eee eo ea tee 
226 - 04/21/83 S.U. Added POLL & docunentation 
Se JU II IO I III IOS IIIS IOS ISO IO IOI I SII TIT SAIS 
229 JOS SOCIO CS OC OTR TTR 
2H . 
231 x 
232 09876 20 =FILKQ* P= 0 
233 * Save PC in STNTDO 


234 09B78 8E00 


GOSUBL =SAVEDO 
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00 

235 x 

236 O9B7E AFO A=0 W NO FILE NANE SPECIFIED 

237 09B81 100 RO=A 

238 09B84 847 ST=0 7? Clear String Expr flag 

239 O9B87 7AD1 GOSUB DVCTYP 

240 % 

241 * Must be expression 

242 7 

243 O9B88B 8E00 GOSUBL =EXPEX+ Save statuses 
00 

244 09891 7293 GOSUB rstst Restore statuses 

245 09895 857 =FILXQ$ ST=1 7 Set string expression flag 

246 k 

247 09B98 8E0O GOSUBL =REVPOP REVERSE STRING ON STACK 
00 

248 * D1 past header 

249 O9BSE 8A8 7A2O OA NULL STRING? 

250 O9BA1 D2 GOYES FLXQO5 

251 O39BA3 D8 B=A A Copy string length 

252 O9BAS 137 CDIEX 

253 OSBA8 135 D1=C 

254 O9BAB C2 C=C+A A POINT PAST LAST CHARACTER 

255 OSBAD AF3 D=0 W IN PRTHP, WANT NIBS = 0 

256 O9BBO D7 d=C A SAVE PTR PAST LAST CHAR IN STRING 

257 O9BB2 31A3 LCASC \:\ 

258 O9BB6 148 A=DAT1 B 

259 O9BB9 362 *A=C OB 

260 O9BBC 54 GOYES FLXQ11 

261 x 

262 O9BBE D2 C=0 A 

263 O9BCO 30E LCHEX E 

264 O9BC3 8BD *B<=C A 

265 O39BC6 AO GOYES FLXQ07 

266 O9BC8 307 LCHEX 7 

267 O9BCB 5D0 GONC =FLXQ10 (B.E.T.) 

268 , 

269 OSBCE 03 FLXQO5 RTNCC 

270 * 

271 O9BDO0 A89  FLXQO?7 C=B P 

272 O9BD3 BIE CSRB 

273 O9BD6 AOE C=C-1 P 

274 O9BD9 816 FLXQIO CSRC 

275 O9BDC 07 C=RSTK 

276 OSBDE 108 RO=C Save a level (only have 3) 

27? O9BE1 8E0O GOSUBL =FILEP! 
00 

278 OSBE? 118 C=RO 

279 OSBER 06 RSTK=C Restore level 

280 OSBEC AC3 D=0 S 

281 OSBEF 500 RTNNC 

282 x 

283 * String expression contains legal file nane 

284 O9BF2 137 CDIEX 


285 O9BF5 135 D1=C 





Saturn Assenbler 


286 O9BF8 
287 OSBFB 
288 O9BFD 
289 

290 09001 
291 09004 
292 09007 
293 O9COR 
294 09C0D 
295 09(11 
296 09014 
297 09016 
298 OSCIA 
299 

RO 09010 
1 OSCiF 
M2 09C22 
H3 

%4 09026 


5 

HE O9C2C 
7 O9C2F 
8 09032 
H9 09035 
310 09038 
311 O9C3A 
312 

313 99C30 
314 OSC3F 
315 09C42 


316 O9C4C 
317 O9C4F 
318 09C51 
319 

320 09C55 
321 09C57 
322 O9C5A 
323 O9C5D 
324 

325 OSCSF 
326 09C63 
327 

328 09066 
329 0968 
330 09C6B 
331 09C6D 


332 09C7? 
333 O9C7A 
334 

336 O9C?7C 
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8R7 CHD 6A 
90 GOYES FLXQ12 
6CAO : GOTO FLXQ25 
AFO = FLXQ11 -A=0 W 
100 FLKQ12 RO=A 
148 A=DAT1 B 
171 D1=D1+ 2 
31A3 LCASC \:\ 
962 7A=C OB 
21 GOYES FLXQ13 
7962 GOSUB BLKOK2 
500 RTNNC 
k 
0B C=D A 
135 b1=C 
6480 : GOTO FLXQ22 
8E00 FLKXQ13 GOSUBL =CNVWUC 
00 
x 
177 D1=D1+ 8 
137 CO1EX 
135 Diz 
888 C<=0 A 
5 GOYES FLXQOK 
582 : GONC filxqpl 
DS FLXQOK B=C A 
AFG = W 
3705 LCASC \TROP\ 
F425 
45 
976 PARC OW 
& GOYES FLXQ14 
6841 ; GOTO PRTHP 
D3 FLXQ14 C=B A 
AF8 B=A W 
8A3 7C=D OR 
90 GOYES FLXQ15 
* Hore than 4 
7012 GOSUB BLKOK 
565 ,f ixapl GONC FLXQPL 
DB FLXQ15 C=D A 
135 01=C 
D3 D=0 A 
37D4 LCASC = \NIAN\ 
1494 
£4 
971 7B=C =oW 
Re : GOYES FLXQ19 
3734 LCASC = \DRAC\ 


4:54 an 
Page 7 


Fri Dec ®, 1983 


NOT AT END OF STRING? 


Save file nane 
Step over char 
: ? 
File nane followed by char 
other than blank or colon 
(could be 10 character nane) 


Position D1 past string 


Convert to upper case 


At least 5 chars on stack? 
(B.E.T.) Device nane <4 chars 


Save stk ptr past chars 


Not PORT? 
Parse port # on stack 


Restore stack ptr past chars 
Copy device nane 


characters following the colon 


Not a blank? 


Position D1 past string 


MARIN? 


Saturn Assenbler 
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336 09C86 
337 09€89 
338 

339 09C8B 


340 09091 
341 09094 
342 

343 09096 
344 09C99 
345 O9C9B 
346 OSC9E 
347 O9CAI 
348 O9CA4 
343 O9CR? 
350 O9CRA 
351 O9CAC 
362 

353 O9CAF 
354 O9CB2 
355 O9CB4 
356 O9CB6 
357 

358 O9CB8 
359 OSCBA 
360 O9CBE 
361 O9CCO 
362 09CC3 
363 O9CC6 
364 O9CC8 
365 

366 

367 

368 O9CCA 
369 O3CCD 
370 09CDO 
371 

372 O9CD2 


373 
374 
375 
376 
37? 


OSCD8 
OSCDB 
OSCDE 


O9CE1 


378 
379 
380 
381 
382 
383 O3CFO 
384 

385 O9CF4 


OSCE? 


OSCEA 
OSCED 
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1425 
44 
971 *B=C OW : CARD? 
01 GOYES FLXQ17 
x 
3305 LCASC = \CP\ 
34 
975 BHC OW NOT :PCRD EITHER? 
62 ‘ GOYES FLXQPL 4 char device nane not recognized 
R6F =6FLXQ16 D=D-1 8B :PCRD 
oF FLXQI? P= 15 : CARD 
6 LCHEX 6 
AC? D=C S 
B47 = FLXQ18 D=D+1 = § > PORT 
B47 = FLXQ19 D=D+i = § : MAIN 
110 FLXQ22 A=RO RESTORE FILE NAME 
20 FLXQ25 P= 0 RE-SET P 
A4F D=D-1 $§ 
* If called DVCTYP, must pop level off stack 
877 (3t24, 7 
00 RTNYES 
07 C=RSTK 
02 RTNSC 
x 
0? FLXQ29 C=RSTK Pop DVCTYP level off stack 
7597 FLXQPL GOSUB poll 
HX CON(2) =pFILXQ 
470 GOC FLKXQ30 Error ? 
831 ?XN=0 
00 RTNYES Handled successfully ? 
03 jf Ne RTNCC Filespec not recognized 
* FILE NAME IN PROGRAM MEMORY 
k 
136 = FILEXQ CDOEX 
135 D1i=C PC IN D1 
07 C=RSTK Pop RETURN stack from DVCTYP 
* ASSUMING A WILL BE BLANK-PADDED 
8E00 GOSUBL =FILEP+ 1ST CHAR MUST BE LEGAL 
oO 
100 RO=A Save file nane 
B46 C=C+1 § 
5B0 GONC =F LXQ40 LESS THAN 8 CHARACTERS? 
* FOUND 8 CHARACTERS 
8E00 GOSUBL =CATC++ 
00 
40E GOC —- FLXQ30 FOUND 9TH CHARACTER 
* 
137 FLXQ40 CDIEX 
134 DO=C 
* SEE IF tMAIN, tCARD, OR tPORT FOLLOWS FILE NANE 
7170 GOSUB DVCTYP 


did return, compensate for subroutine level 
RSTK=C 


* Since 
06 
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386 O9CF6 5OB 
387 


388 OSCF9 181 
389 OSCFC 35FE 
10E3 
390 09004 25 
391 09006 916 
392 09009 E9 
393 O9D0B 165 
394 OSDOE 578 
395 
396 09011 14fA 
397 09014 3182 
398 09018 962 
333 0901B 9% 
400 09D1D RO6F 
41 09020 608F 
42 
403 
44 
405 09024 110 
406 09027 1F18 
8F2 
407 O9D2E 1517 
408 09032 07 
403 09034 161 
410 09037 8E00 
00 
411 0903D 7361 
412 09041 17F 
413 09044 137 
414 09047 1F18 
8F2 
415 O9D4E 1537 
416 039D52 100 
417 03055 135 
418 09058 78E1 
419 O9D5C 06 
420 OSD5E AC3 
421 09061 6F 3F 
422 
423 09065 15A5 
424 09069 AF3 
425 O9D6C 161 
426 OSD6F 8£00 
00 
427 09075 00 
428 09077 22F 
429 09D7A 00 
430 09D7C 59F 
431 0907F © 
432 09081 32F 
433 09084 00 
434 09086 23F 
435 09089 00 


x 


FLXQ74 GOTO 
x 


x 
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FLXQ65 


FLXQ70 


GONC = FLXQ22 
DO=D0- 2 
LC(6) =tPCRD 


P= 5 

AMC | OP 
GOYES FLXQ22 
0O=D00+ 6 

GONC FLXQ16 


A=DATO B 
LCASC \(\ 
7A=C OB 
GOYES FLXQ75 
D=D-1 6B 
FLXQ18 


Fri Dec W, 1983 4:54 an 
9 


Page 
(B.E.T.) 


Step over tPCRD 
(B.E.T.) 


Set D(B) = FF 


* SAVE FILE NAME & C(S) BEFORE CALLING EXPEXC 


x 


FLXQ75 


FLXQ80 


BVCTYP 


A=RO 
D1=(5) =S-R1-0 


DATI=A W 
C=RSTK 

DO=D0+ 2 
GOSUBL =EXPEX+ 


GOSUB PDEV1 
Di=Di+ 16 
CD1EX 

D1i=(5) =S-R1-0 


A=DAT1 W 
RO=A 
D1=C 
GOSUB 
RSTK=C 
D=0 S 

GOTO FLXQ18 


ave=d1 


A=DATO 6 
D=0 W 
DO=D0+ 2 
GOSUBL =FINDA 


CON(2) =tCARD 
REL(3) FLXQ17 
CON(2) =tPORT 
REL(3) FLXQ70 
CON(2) =tMAIN 
REL(3) FLXQ19 
CON(2) =tCOLON 
REL(3) FLXQ29 
CON(2) =tXWORD 


Save file nane 
Take unneeded level off stack 
Step over ( 


Position past expression on stk 
Save D1 in C(A) 


Restore file nane 
Restore D1 

Update AVNENE 
Anticipate pop to cone 


Step over 2 nibs 
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436 0908B EGF 
437 O9D8E 00 
438 09090 A3F 
439 09093 00 
440 

441 09095 181 
442 09098 01 
443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

4ga 

490 


x 

x 

x 

ax 
ak 
an 
aK 
ax 
ak 
xx 
xx 
ak 
ak 
xk 
x 
xk 
ak 
xk 
xk 
xx 
ak 
xk 
ax 
ak 
xk 
ax 
an 
xk 
xk 
xx 
xk 
ak 
xk 
xx 
a 
an 
ae 
ak 
anh 
ae 
a 
a 
ak 
xk 
a 
RA 
aK 
x 


REL(3) FLXQ65 
CON(2) =tLITRL 
REL(3) FILEXQ 


NIBHEX 00 
DO=D0- 2 
RTN 


SOIR TI OO TTT TOOT 
FOTO IOI III TIT OO TO IOI TOTO 


Nare: PRI#P -  port# parse 
Category: LOCAL 
Purpose: 
Interprets PORT designation on the expression stack 
Entry: 
P=0 
Reversed string expression on the stack 
D1 points past *:PORT’ at possible port specifier 
D(A) is past last character on stack 
Exit: 
Via FLKXQ18 
P = 0 
D1 is past the last character on stack 
D(A) contains port# (FFFFF if none specified) 
Calls: DIGCK, RANGE, DECHEX, BLKOK2, E0S 
Uses....... 
Inclusive: A-0, D1, S1 
Stk lvls: 3 


Detail: 
ALLOWS ’(d.)’ - EG HANGING DECIMAL POINT 
This is not straight-line code ONLY to keep 
GOYES/GOC instructions 1n range in FILXQ routine 
History: 
Date Progranner Modification 
06/29/82 SW. Added docurentation 
02/03/83 = S.U. No digit required before decimal pt 
JI I TR OI DOI DI III DITA I III III ID ITD III II ATI II IIT I IIIS ISI SATA 


FOI OT TIT OI IGE IOI os 
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491 x 
492 O9D9A DB PRIWP C=D A 
493 O9D9C 06 RSTK=C Save pointer on stack 
494 O9D9E 137 CDIEX 
495 O90A1 135 D1=C 
496 O9DA4 25 = 5 
497 O9DR6 A83 D=0 P 
438 O9DA9 20 = 0 
499 OSDRB £3 D=D-C A Length of string 
500 OSDAD 81F DSRB #CHARS IN STRING 
501 O9DB0 CF D=D-1 A 
502 O9DB2 485 ; GOC PRIANL CARRY=> NO PORT DESIGNATION 
503 
504 O9DB5 148 A=DATI B READ IN NEXT CHARACTER ON STACK 
505 O39D0B8 3182 LCASC \(\ 
506 OSDBC 966 ARC OB 
507 O9DBF 54 GOYES PRT#N+ Extraneous char after PORT 
508 O9DC1 D1 B=0 A 
509 O9DC3 770 GOSUB EOS 
510 09007 463 GOC FSPCER At end of string? 
511 O9DCA 851 ST=1 1 No digit found prior to dec pt 
512 O9DCD 31£2 LCASC \.\ 
513 09001 962 7AZC OB 
514 09004 51 GOYES PRT#P5 
515 O9DD6 841 ST=0 1 
516 09009 7370 GOSUB DIGCK+ MUST find digit 
517 O9DDD 5A3 GONC PRTHP7 FOUND ’)°? 
518 * $0 FAR FOUND ’(d’ 
519 O9DEO 31£2 LCASC \.\ 
520 O9DE4 966 RAC OC 
521 O9DE7 71 GOYES FSPCER 
522 * the following 2 commands are to allow ’(d.)’ 
523 * if want to cut code, can delete the next 2 connands, iff the 
524 * gosub following is changed to ’GOSUB DIGCK’ 
525 OSDE9 7370 PRTIHP5 GOSUB DIGCK2 
526 O9DED 552 GONC PRT#P6 *.’ FOLLOWED BY ’)’ ? 
527 OSDFO 7050 GOSUB DIGCK+ NO, LOOK FOR DIGIT 
528 O9DF4 562 GONC PRTHP8 
529 * NOW HAVE ’(d.d’ 
530 O9DF7 7550 GOSUB DIGCK+ 
531 O9DFB 522 GONC PRTHPS 
532 * FOUND ’(d.dd’ - SHOULD HAVE FOUND ’)’ 
533 OSDFE 8C0O =FSPCER GOLONG =INVFSP Invalid filespec 
00 
534 : 
535 09604 7B70 PRTHN+ GOSUB BLKOK2 
536 09608 SSF fspcer GONC FSPCER Not a blank? 
537 OSEOB D3 PRTHNL D=0 A 
538 O9EOD AGF D=D-1 B Set port spec. to FF 
539 09E10 463 COC flxqi8 (B.E.T.) 
540 ® 
541 09613 871 PRI#P6 7ST=1 1 No digits found yet? 
542 O9E16 8E GOYES FSPCER 
543 09618 BB1 PRT#P7 BSL x Move port# to B(XS) 


544 09£1B BB1 PRTHP8 BSL x B(B) contains port extender 
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545 & 
546 O9E1E 3251 PRTHP9 LCHEX 615 
6 
547 O9E23 9E1 7BoC 6B PORT EXTENDER# > 157 
548 09E26 8D GOYES FSPCER 
549 O9E28 3A9 ?B>=C XS PORTH > 5? 
550 O9E2B 3D GOYES FSPCER 
551 O9E2D AFO A=0 W 
552 09E30 AE4 A=8 B PORT EXTENDER# 
553 09€33 BBS BSR x Get port# in nib 1 
554 09636 09 C=B A Copy nib 1 (port#) & 2-4 (zeroes) 
555 09638 D7 D=C R SAVE PORTH 
556 O9E3R 8FOO GOSBYVL =DECHEX 
000 
557 * UPON RIN FROM DECHEX C=0 
558 09641 A86 C=A P 
559 09644 A8?7 D=C P 


560 09E47 07 flxqi8 C=RSTK 


561 O9E49 135 D1=C Position D1 past string 

562 O9E4C 611F : GOTO FLXQ80 Sets D(S)=0; on to FLXQ18 

563 

564 * CARRY CLR=> FOUND DIGIT, ’)’ AND END OF STRING 

565 * SET=> FOUND DIGIT AND A(B) CONTAINS NEXT CHARACTER 

566 * Error exits if digit not found, or if ’)’ 1s found but not at 
56? : the end of the string 

568 


569 O9E50 8FOO DIGCK+ GOSBVL =DRANGE 
000 


570 O9E57 46A GOC FSPCER NOT A DIGIT? 
571 OSE5A BBI BSL X 

572 O9E5D A88 B=A P 

573 O9E60 7A20 DIGCK2 GOSUB E0S 

574 O9E64 439 COC FSPCER AT END OF STRING? 
575 O9E67 3192 LCASC = \)\ 

576 OSE6B 966 ARC OB 

577 OSEGE 00 RTNYES 

578 

579 O9E70 7A10 GOSUB E0S 

580 O9E74 490 GOC DIGCK3 Blank found? 
581 O9E?7 7800 GOSUB = BLKOK2 

582 O9E7B 5C8 GONC =f spcer 

583 O9E7E 03 


DIGCK3 RTNCC 
584 & 
585 O9E80 14B =BLKOK A=DAT1 B 
586 O9E83 3102 BLKOK2 LCASC \ \ 


587 O9E8? 962 *A=C OB 

588 O9E8A 00 RTNYES 

589 OSE8C 01 RIN 

590 * 

591 OSE8E CF EOS D=D-1 A AT END OF STRING? 
592 O9E90 400 RINC 

593 OS9E93 171 DI=D1+ 2 

594 09696 14B A=DAT1 B 

595 09£99 01 RIN 


Saturn Assenbler File Execution Routines<831216 Fri Dec 3, 1983 4:54 an 


Ver. 3.39/Rev. 2306 Port Address Evaluation (PDEV) Page 13 
596 STITLE Port Address Evaluation (PDEV) 
597 JOIST III OSI IIS SIS SSI IIIS SIT ISISISI SSIS III SS SSSI SIS IIS. 
598 JU IIS I ISI III SS IIS III IIIS ISIS SSIS ISI SI ISI SSSIS ISI IIA 
599 ak 
600 ** Wane: (S) PDEV - Evaluate Nun Expression as Port Device 
601 &* Nane: PDEV+ - Evaluate Nun Expression as Port Device 
602 he Nane: PDEV1 - Evaluate Num Expression as Port Device 
603 x 
604 &* Category:  FILUTL 
605 ik 
606 - Purpose: Evaluates numeric expression for port address 
607 
608 RK PDEV+ and PDEV entries evaluate an expression 
603 ax in nenory and ensure it is a valid nuneric 
610 ak expression. 
611 ak 
4 612 ak PDEV1 assumes that the evaluated expression 1s 
f 613 - already on the stack. It is useful for functions. 
é 614 
615 ** Entry: 3 entry points: 
616 ak 1) PDEV+ - DO 2 nibs prior to alleged nuneric 
\ 617 ak expression. 
618 ax 2) PDEV - DO at alleged nuneric expression. 
619 ak 3) PDEV1 - D1 points to evaluated expression on 
620 ae nath stack. 
621 ak 
622 &* Exit: D(O)=Port extender¥; D(1)=port# 
623 ax D1 points to nuneric expression on stack 
624 ax DO past evaluated numeric expression 
4 625 - (if entered at PDEV1, DO unchanged fron entry) 
626 aX Statuses intact 
627 ak (except if entered at PDEV1) 
628 kk ERROR EXITS IF EVALUATED EXPRESSION IS INAPPROPRIATE 
629 RK FOR A PORT ADDRESS. 
630 tk 
631 ** Calls: EXPEXC, TST12A, FRAC15, FLTDH, ARGSTA 
632 RX CLRFRC, GIPRT#, RSTST 
633 Be 
; 634 a Uses: A-D, D1,D0, RO-R3, all of function scratch -- EXPEXC 
4 635 
636 ** Detail: Allows nuneric expressions which evaluate to x.yy 
637 =e where: ; 
638 ae O<= x <= 6 and = O<= yy <= 15 
639 Be 
640 ** Stack lvls: 5 
641 ak 
642 ** History: 
643 ak 
644 aK Date Progranner Modification 
645 PR uieme le, Cake eta gt 
646 kK 06/29/82 S.W. Added docunentation 
647 ** 08/05/82 SW. Added PDEV1 entry point 
648 xx 
649 FOO TOIT 


650 SOOO TOI TOTO TIT TT TIT ITT TT TR TTI TTI IK 
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651 x 
652 x 
653 x 
654 O9E9B 161 =PDEV+ DO=D0+ 2 ~~ STEP OVER tPORT 
655 O9ESE 8E00 =PDEV GOSUBL =EXPEX+ Save statuses 
00 
656 O9EA4 8E0O =PDEV1 GOSUBL =ARGSTA Errors on conplex,NaW, array 
00 
657 OSEAR 470 GOC CHKSGN Infinite? 
658 OSEAD 958 ?A=O ON Zero? 
659 O9EBO 70 GOYES PDEV3 Want to allow negative zero 
660 O9EB2 94C CHKSGN ?7AHO | = S Negative? 
661 OSEBS 66 GOYES PDVE24 
662 O9EB? 2C PDEV3 P= 12 
663 O9EB9 AF2 C=0 W Exponent = 000 
664 O9EBC 3251 LCHEX 515 load up 5.15 
5 
665 O9EC1 23 P= 3 Set for TST12A 
666 O9EC3 8E0O GOSUBL =IST12A TESTS <=5.15 (TRAPS OUT INF.) 
00 
667 O9EC9 515 GONC PDVE24 
668 QO <= K <= 5.15 
669 OSECC E4 A=R+1 =A Increnent exponent by 2 
670 OSECE E4 A=A+1 A to nove dec. pt past hundredths 
671 O9EDO 8E00 GOSUBL =CLRFRC TRUNCATE THOUSANDTHS 
00 
672 O9ED6 CC A=A-1 A Restore original exponent 
673 O9ED8 CC A=A-1 A 
674 * In A now have original expression, uith thousandths truncated 
675 O9EDA 100 RO=A SAVE EXPONENT 
676 OSEDD AFS C=B W 
67? O9EEO 109 R1=C SAVE MANTISSA 
678 O9EE3 8E00 GOSUBL =CLRFRC truncate (no return 12-dig forn) 
00 
679 O9EES D3 D=0 A In B now have port# 
680 OSEEB 7A10 GOSUB GTPRT# Convert to hex 
681 O9EEF 05 SETDEC Port# in D(0) 
682 x PORTH IN D(O) 
683 OSEF1 BE3 DSL B 
684 OSEF4 110 A=RO RESTORE EXPONENT 
685 O9EF? 119 C=R14 
686 OSEFA AFS B=C W RESTORE MANTISSA 
687 OSEFD 8E00 GOSUBL =FRAC15 Port extender# in B 
00 
688 O9FO3 B34 A=A+1 xX 
689 O9FO6 B34 A=A+1  X Make it an integer 
6% 
691 O9FOS AD4 GTPRT# A=B nM GET MANT FROM 15-DIG FORM 
692 OSFOC 8E0O GOSUBL =fltdh Convert from floating dec 
00 
693 O9F12 31FO LCHEX OF to hex 
694 O9F16 SEA Ac=C OB Ensure <= 15 (for port extendert) 
695 69F19 8&0 GOYES GTPR#1 
696 * 


697 OSF1B 8COO PDVE24 GOLONG =ARGERR Invalid argurnent 
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0 

698 x 

699 O9F21 A86 GIPR¥1 (=A OP 

700 09F 24 A87 D=C Pp 

701 O9F27 8C0O rstst GOLONG =RSTST Restore statuses 
00 

02 x 


703 5 
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704 STITLE File Spec Execute 
705 JOO I OCI IOI OIG TCO CIOS III III TT III 
206 JOO I II I TOI III IIS III I III III ISI III TIS III III IID I ISI SOI IIS SAIS IM 
707 xs 
708 *k Nane:(S) FSPECx - File Specification Execute 
709 a 
710 ** Category:  FILUTL 
714 ak 
712 . Purpose: Evaluates a file specification 
713 
714 ** Entry: DO @ File specification start 
715 aK 
716 AR Exit ; DO past file specification 
717 aie Carry Clear: Legal file specification 
718 aK 
719 ak A = filenare (blank filled) 


= 0 if no filenane 


720 ae A 

721 a RO = last tuo chars of file name (if any) 
722 a = tuo blanks by default 

723 ah O(S) = F NO DEVICE SPECIFIED 

724 ak O MAIN 

725 KK 1 PORT D(B) = PORT nurber 

726 ae D(B) = FF if :PORT 

727 a 7? CARD D(B) = 0 if CARD 

728 ne PCRD D(B) # 0 if PCRD 

729 a = 8 HP-IL device (D{X) = device addr) 
730 x > 8 other 

731 sie 

732 = P=0 

733 RK P reset before POLL 

734 &k If file specifier uas a string expression: 
735 a (AVMEME) points past the string on the stack 
736 x 

737 - 

738 a Carry set: 

733 ia Unrecognized File Specification 

740 x C(3-0) = Errork 

74) ae 

742 ** Calls: FILXQ”, POLL 

743 ax 

744 as FILXQ* returns: 

745 xx Carry Clear --~> Illegal File Spec 

746 xe S-R1-0 holds original 00 

74? ae Carry Set ---> Legal File Spec 

748 hes S8=0 Sinple Filenare 

749 ex S8=1 D(S)=F No Device specified 
750 ae 0 MAIN 

751 a 1 PORT 

752 ax 0(B) = Port# 

753 a® = FF if :PORT 
754 i ? CARD 

755 e PCRD 

756 i D(B) = 0 af CARD 
757 ee # 0 if PCRD 


758 a 
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759 xk Uses: A-D 
760 xR D = End of Expression stack (fron FILXQ%) 
761 ak STMTDO, STMTR1 (all of it), S$1,S$2,S87 -- FILKQ 
762 - D1,D0, RO-R3, all of function scratch -- EXPEXC 
763 
764 ** Detail: Try Mainfrane File Execute (FILKQ*) 
765 ah Blank-fill lower 2 bytes of RO 
766 aR If acceptable file specification (Carry set) 
767 a If sinple filenane 
768 A Set Device = 0 (D(S)) 
769 aR RTNCC 
770 ah else 
771 ae POLL for File Specification Execute 
772 xs Return if Carry Set 
773 a If handled (kM=0) 
774 ah Return uith Carry Clear 
775 ah else 
776 xk C <-- eFSPEC 
777 ak Return with Carry Set 
778 ah 
779 ** Stack lvls: 6 
780 ah 
781 *% History: 
782 aE 
783 xk Date Programmer Modification 
784 Pee eee: Oaeeecauews® Veetet Ee teese 
785 06/29/82 S.W. Added docunentation 
ae JIGS OIC TTI OTITIS IIIT IOI IDI SSI SSI TA 
788 JIS II UOT TTS IAT II ISIS II IIIS ISI SOI IISA III SITS. 
789 . 
790 * 
794 JOIST II IIIT TIT DIT II OD II TI IOI IISA SSS SII SII SAI 
792 FORO II II TTI IIIT IIIT TI IIIO III SISOS SS SIS I ISI ISI SSI ISI SIA 
793 ah 
794 cs Nane:(S) pFSPCx - File Spec Execution poll 
795 
796 ** Category: POLL 
797 aR 
798 ** Type: POLL 
799 ae 
800 ** Purpose: 
801 ah POLL for file specification execution 
802 xx 
803 ** Should poll be “Handled” (return with XM=0)?: 
804 la Yes 
805 xk 
806 ** Meaning of "Handling" Poll (what does code do if handled?): 
807 7 Returns ist 8 chars of file nare in A 
808 * and last two characters in RO 
809 =e D(S)=Device type; D(X)= Device address 
810 ak 
811 ** Entry conditions for handler (registers, ST, RAN, etc. ): 
812 Ae Carry clear 


813 xk B[A] = Poll nunber. 





1am 
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814 xx HEX node. 
815 aK P=0. 
816 ak Low 2 bytes of RO are blank-filled 
817 is $7=1 => String expression on stack 
818 a Top of stack pointed to by AVMENE 
819 ah DO past string expression 
820 aR =0 => Literal 
821 aK DO nay be restored fron STNTDO to interpret 
822 ak file specifier 
823 se 
824 *k Norrial exit conditions from handler if handled (ST, RAN, 
825 *k registers, etc.): 
826 ax Carry clear 
827 ae HEX node. 
828 aK XM=0. 
829 ax A contains file nane (blank-filled) 
830 x If > 8 characters, last 9 & 10 in RO 
831 ax If no file nane specified, A=0 
832 ae 0(S) = Device type 
833 aE D(X) = Device address 
834 xk DO past file specifier 
835 ak S? intact from entry 
836 = If S$? set on entry (string), D1 must point past file 
837 a specifier on stack; eg D1 nust reflect new top of stk 
838 mE 
839 kX Nornal exit conditions fron handler if not handled (ST, RAN, 
840 ** registers, etc.): 
841 aA Carry clear 
842 x HEX node. 
843 xa XM=1. 
844 xk 
845 ** Error exit conditions fron handler: 
846 ae Carry set. 
847 = HEX riode. 
848 ae C{0-3] = Error nunber. 
849 xk 
850 kK Available subroutine levels: 
851 ak ? 
852 aS 
853 ** NOTE: 
854 ax If not handled, error generated 1s eF SPEC 
855 ax 
856 ** What registers/RAN nay be used 1f handled?: 
857 xt A-D, , DI, P 
858 BS RO,R1, S-R1-0 thru S-R1-3, STNTDO, STATDI, 
859 AS $1,382 
860 at 
861 **% What registers/RAM nay be used if not handled?: 
862 as A-D, DO, DI, P 
863 ax Sane as if handled (See above) 
864 a S? must remain intact 
865 = 
866 ** What registers/RAN nay be used if error exit: 
867 a A-D, DO, DI, P 
868 ae Sane as 1f handled (See above) 
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869 ak 
870 . Special nenory/pointer considerations (are pointers funny?): 
871 No 
872 aX 
873 %k Envisioned application(s): 
874 ak PURGE A: TAPE 
875 aK 
876 *k Note: 
877 ak If not handled, error generated is eFSPEC. 
878 ax 
879 *k History: 
880 ak 
881 a Date Progranner Modification 
882 $5G “eles ele eee yale eae ee 
883 tk 02/04/83 S.W. Added docunentation 
884 a 
885 JU TOSI TE 
886 SII IIIT IRI RTS TIO I SII III III IIIS IA IISISISIIS IAI IIS: 
887 * Check for acceptable File Specification 
888 & 
889 O9F2D 754C =FSPECx GOSUB FILXQ* Execute file specification 
89 & 
891 * Blank fill characters 8-9 of Filenane for Chou 
892 * If sinple filenane 
893 a Set Device 
894 * RINCC 
895 x 
896 O9F31 20 P= 0 
897 O9F33 32 LcAsc \ \ Blank fill chars 9,10 
02 
898 O9F39 108 RO=C 
899 OSF3C 501 GGNC FSPC20 Illegal File spec 
900 OSF3F 867 FSPCIO ?7ST=0 7? Not a string expr? 
901 O9F42 90 GOYES FSPC15 
902 O9F44 8D00 =ave=d1 GOVLNG =AVE=D1 Collapse arithmetic stk 
000 
903 O9F4B 03 FSPC15 RINCC Legal file spec - Clear carry 
904 x 
905 * Not Mainfrane File 
906 * POLL for File Spec Execute 
907 t Indicate Error Return (Carry Set ) if 
908 : Error Return from POLL | Not handled 
909 a 
910 O9F4D 7205 FSPCZO GOSUB poll 
911 O9F51 50 CIN(2) =pFSPCx 
912 O9F53 400 RTNC Error return fron Lex File POLL 
913 O9F56 831 ?XN=0 Handled by POLL ? 
914 O9F59 6E GOYES FSPC10 Return CC 
915 O9F5B 3300 FSPC30 LC(4) =eFSPEC Illegal File Spec 
00 
916 O9F61 62 RTNSC Error Return indicator 
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317 STITLE Find File in RAM ROM PORTS 
918 JO IOI ITT IRR III ITT I IOI I SII IS III III I SII SII IIS S AS IS 
919 JO III IO I ITI IT IIIT II IIIA ISI IS I IIIS ISS ISS III III AIS IIS IIIA 
920 ak 
921 ek Narie:(S) FINDF - Find a file 
922 *k Narie:(S) FINDF+ - Find a file 
923 ** Nane: FILEMF - Find a file 
924 RX Nane:(S) FILEF - Find a file 
925 ** Narie: FINDWF - Find a file 
926 xk 
927 tk Category:  FILUTL 
928 at 
929 *k Purpose: Searches for a Specified File in file chain(s) 
930 aX specified by the caller. 
931 ak 
932 a The entry points which allow the file chains to 
933 ax be specified require as entry conditions sone 
934 - of the exit conditions from FILXQ*/FSPECx. 
935 
936 aK FILEF and FILEMF entries search the MAIN file 
937 ak chain only. 
938 ak 
939 ak FINDF and FINDF+ entries look at D(S) to 
940 ak deternine which file chains to search. The only 
941 ak difference between the tuo entry points 1s that 
942 x FINDF assumes the integrity of D(S) and ACW), 
943 oe whereas FINDF+ checks their integrity to ensure 
944 aK that A(W) is nonzero and D(S)<=6. 
945 ‘ 
946 - FINDWF searches the MAIN file chain for <workfile> 
947 x 
948 tk Entry: P=0 
949 zt 5 entry points: 
950 ak 
951 aa 1) FINDF - fale nane in ACW) 
952 ae D(S) deternines search pattern: 
953 as =F => Search MAIN, plug-ins 
954 ah =0 => Search MAIN only 
955 aX other => Search Plug-ins only 
956 ak D(B) indicates port desig. 
95? ak =FF => all PORTS (:PORT) 
958 ak OR D(1)= PORT # 
959 ae D(O)= Extender # 
960 ax 
961 a 2) FILEF - File nane in ACW) - Mainframe search only 
962 ak 
863 kK 3) FILENF sare as above, except file nane in B(W) 
9H4 ax 
965 ad 4) FINDF+ - Sane as FINDF. 
366 ak 
967 kK 5) FINDWFE - Searches for workfile 
968 ae 
969 RX Exit: P=0 
970 aK Carry Clear - File found 


971 ee D1 @ File Start 
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972 &k A(W)=B(W) contain file nane 
973 a D(S) = Device Type 
$74 ak 
975 ak 0 = Mainframe RAN 
976 at 1 = IRAN 
977 ae 2 = ROM 
978 as 3 = EEPROM 
379 aK 
980 RK It cannot be assuned that Device Type is 
981 ak linited to these nunbers. 
982 x 
983 aA Routines using FINDF should probably POLL when 
984 ak Device Type is not 0-2. 
985 aK 
986 kK D(B) = Extender#, Port# (if applicable) 
987 x 
988 ak Carry Set => File not found 
989 ak S6=1 => 
990 ak B=A = Filenane 
991 ak C(3-0) contains err# for eFnFND or eDVCNF 
992 af $6=0 (FINDF+ entry only) => 
993 ae Illegal file spec for file chain search 
994 ak either A(W)=0 or D(S)>=7 
i 995 ak C(3-0)=eF SPEC 
: 996 ak C(S) = 2*(D(S)+1) 
997 aK 
998 aa Calls: ROMCHK, ROMFND, ROMF-1, FILSKP, C=MAIN, WRKFIL 
999 
1000 ** Uses: A-D, D1, S6,$8,R1,R2 (if outside of Main search) 
1001 a R3 (if single PORT search) 
1002 aR 
1003 ak S6 = Not Initial PORT search 
1004 ut $8 = Single/ Special file chain search 
1005 aK 
1006 ak ROMCHK 
1007 aK ROMFND uses A-D,D1,RO,R1 
1008 ak ROMF-1 uses A-D,D1,RO,R1,R3 
1009 x 
1010 tk Stk lvls: 2 
1011 x 
1012 ** Detail: 
1013 aX 
1014 kx FINDF+: If D(S) >= 7 or A(H)=0 
1015 ax Return with carry set; °(3-0)=eF SPEC 
1016 ** FINDF: Clear Single Filechain Search flag ($8) 
1017 kx Nove filenane to B 
1018 ak If Standard search D(S)=F 
1019 ax goto 1; 
1020 ak If MAINfrane only D(S)=0 
1021 a goto FILFNF; 
1022 ax else (PORT) 
1023 a Save filenane (R2) 
1024 ax If all Ports (D(B)=FF) 
1025 a go Search ALL Ports (goto 3); 


1026 ax else 
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1027 ax Set single file chain flag ($8) 
1028 kx Find Start of file chain in Port (ROMF-1) 
1029 ax Restore filenane to A 
1030 a Put filenane in B 
1031 ae Set S6 for error (file not found) 
1032 ae If not found 
1033 ax Return Carry (€(3-0)=eDVCNF 
1034 aa else 
1035 ae Continue search (goto 2) 
1036 kk FILEF: )«©—6B <-- Filenarie 
1037 *k FILFMF: Set Single Filechain flag (S8) 
1038 RX 1: Set pointer @ Main nerory start 
1039 a Clear Initial Port Search flag (S6) 
1040 ae 2: Read filenane 
1041 ax If not at end of file chain (A(B)H#O) 
1042 KK If filenane match --> RINCC 
1043 aK else 
1044 ak Skip to next file 
1045 ax oto 2; 
1046 Ke else (End of file chain) 
1047 ak Restore file nane to A 
1048 x If single search only (S8) 
1049 ax RTNC C(3-0)=eFnFND 
1050 aK else 
1051 am If initial PORT search (S620) 
1052 ak Save filenane (R2) 
1053 ax Set Not Initial PORT search (S6) 
1054 aK = If no ROMs exist (RONCHK ) 
1055 aK Restore filenare 
1056 ax RTNC C(3-0)=eFnFND 
1057 ae else 
1058 ke Set B = filenane 
1059 ae go search ROM for file (goto 2) 
1060 ae else 
1061 ax Find next RON (ROMFND ) 
1062 km Restore filenane 
1063 ax If no riore ROMs ---> RTNC C(3-0)=eFnFND 
1064 ax Set B = filenare 
1065 Re go Search ROM for file (goto 2); 
1066 kk 
1067 **% Note: 
1068 Kx Device ID’s 2-6 are NOT available for use. 
1069 wa Dedicated devices are restricted to ID's 9-E 
1070 ax 
1071 ** History: 
1072 kx 
1073 “ Date Progranner Modification 
1074 PAs wccelis. Seekteeetice +t ele ace aee 
1075 KX 06/29/82 9 S.W. Added Docurnentation 
1076 &* 10/29/82 9 S.W. Modified entry conditions for 
1077 KR riew device cades 
1078 ee 42/20/82 SLM. Calls FILSKP instead of RDHDR 
1079 ae so FINDF doesn’t use $9 
1080 ke 


1081 FOI ROTOR OOO OI II TOE 





1082 
1083 
1084 O9F63 
1085 09F 66 
1086 09F69 
1087 O9F6C 
1088 OSF 6F 
1089 09F 72 
1090 O9F75 
1031 
1092 
1093 
1094 
1095 
1096 
1097 09F77 
1098 O9F7A 
1099 O9F7D 
1100 O9F80 
1101 
1102 
1103 
1104 
1105 O9F83 
1106 O9F 86 
1107 O9F89 
1108 
1109 
1110 
14144 
1112 
1113 
1114 OSF8C 
1115 OSF 8F 
1116 O9F92 
111? 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 O9F95 
1128 O9F98 
1129 O9F9C 
113% OSF9F 


1131 
1132 
1133 
1134 
1135 OSFA9 


OSFAS 
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846 
ACB 
B46 
A46 
4BE 
978 
6E 


AFS 
848 
B47 
453 


A4F 
R4F 
492 


102 
B67 
4(5 


858 
2080 
112 
3300 


6650 


7636 
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KARKERK KEK AERA IKE RR IRIE IRI OSI II SIR IIT ITD IIT IIIS IN 
x 


=FINDF+ ST=0 = 6 
C=) S 
C=C+1 S$ 
C=C+C § 
COC FSPC30 
7A=0)0 OW 
GOYES FSPC30 


If rtn u/carry set & S6=0 => 
D(S) >= 7 => Illegal filespec 


No filenane => Illegal filespec 


Nove filenane to B 
Clear Single Filechain flag 
If no device 

go Search Main, ROM 


1 3 % + Be MM 


Save filenane 
Clear Single Filechain flag 


FINDF B=A W 
ST=0) 8 
D=D+1 = § 


GOC FILFOS NO DEVICE SPECIFIED? 


k 
* If Device = :MAIN 

: go Search MAINfrare ONLY 
k 


D=D-1 § 
D=0-1 §$ 

GOC FILFMF MAIN? 
k 

* Device = :PORT 

* Save filenane in R2 


* If all Port search (D(B)=FF) 

& go Search ALL ports 

x 
R2=h Save filenane 
D=D0+1 8B Search ALL ports ? D(B)=FF 
COC FILFSO 

k 

* Set Single Filechain Search flag (S8) 

* Find start of file chain for particular port 

* Restore filename (R2 --> A) 

* If not found 

s Return Carry 

* else 

x Move filenane to B 

: go Search file chain for file 

k 
ST=1 8 Single Filechain flag 
GOSUB ROMF-1 
R=R2 Restore filenane 
LC(4) =eDVCNF 
GOTO FILF60 

x 

* Find workfile - Mainframe search only 

* 

=FINOWF GOSUB WRKFIL 
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1136 OSFAD AFA FINDW+ R=C W 
1137 x 
1138 * MAINfrane Search ONLY - Entry 
1139 x 
1140 OSFBO AF8 =FILEF B=A W Move Filenane to B 
1141 O9FB3 858 =FILFNF ST=1 8 
1142 x 
1143 * Set Start of Search @ Mainfrane File Chain Start 
1144 * Clear NOT Initial PORT search flag 
1145 g Clear Device field to return MAIN frane find 
1146 
1147 O9FB6 7650 FILFOS GOSUB C=NAIN Set C(A)=MAINST 
1148 O9FBA AC3 D=0 S$ Clear Device field 
1149 OSFBD 846 STO 6 Clear Not Initial PORT search 
1150 x 
1151 * Search File Chain for Match 
1152 x 
1153 OSFCO 135 FILFIO D1=C 
1154 OS9FC3 1537 FILEF- A=DAT1 W Read Filenane 
1155 OSFC? 968 7A=0)— iB End of File Chain ? 
1156 OSFCA 51 GOYES FILF40 
1157 OSFCC 974 ?BHA OW NOT A MATCH? 
1158 OSFCF 40 GOYES FILF30 
1159 a 
1160 * Match found ---> RTNCC 
1161 & 


1162 O9FD1 
1163 
1164 
1165 
1166 O9FD3 
1167 O9FD6 


1168 OSFDC 
1169 
1170 
1171 
1172 
1173 
1174 
1175 OSFDF 
1176 OSFDF 
117? OSFE2 
1178 OSFES 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
118? 
1188 OSFE? 
1189 O9FER 


133 
8E00 
00 
53€ 


AFA 
878 
1 


876 
E4 


RTNCC WANT CARRY CLR FOR NATCH 
x 
* Skip to next file 
* 


FILFX ADIEX AR points to file header 
GOSUBL =FILSK+ 


GONC FILF1O (B.E.T.) CCA) @ Next file 


End of File Chain 

Restore filenane to A 

If Single Filechain search --> RTNC 
File not found 


ee ee e 


* 


FILF40 
A=B W Restore filenane 
*ST=1 8 Single file chain search? 
GOYES FILF55 CARRY -> File not found 


If Initial PORT search 
Save filenare 
Restore filenare to A 
Tf no ROMs exist 
RTNC 
Set not Initial PORT search (S6) 
go Search ROM for file 


ee ee ee ee 


?ST=1 6 Not initial PORT search ? 
GOYES FILF70 
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1190 OSFEC 102 R2=A 
1191 
1192 * Entry for search ALL ports 
1193 . Filenane already saved in R2 
1194 x Set NOT initial PORT search 
1195 * 
1196 OSFEF 7454 FILFSO GOSUB  ronchk Check if any ROMs 
1197 O9FF3 112 FILF52 A=R2 Restore filenare 
1198 OSFF6 3300 FILF55 LC(4) =eFnFND 
oo 
1199 OSFFC AF8 FILF6O B=A WW 
1200 OSFFF 856 ST=1 6 
1201 OAD? 400 RTNC No ROMS - File not found 
1202 OAOOS 5DB GONC FILEF- (B.E.T.) 
1203 x 
1204 * Find Next ROM 
1205 * Restore filenane 
1206 * If no more ROMs ---> RTNC 
1207 * else 
1208 * go Search ROM for file 
1209 x 
1210 OROOS 7144 FILF70 GOSUB  ronfnd Find next RON 
1211 OROOC 66EF GOTO FILF52 
1212 x 
1213 ORO10 1F85 =C=MAIN 01=(5) =MAINST 
5F2 
1214 0A017 147 C=DAT1 A 
1215 OAOIA 01 RTN 
1216 x 


1217 x . 
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1218 

1219 ae 
1220 ae 
1221 me 
1222 ae 
1223 aE 
1224 as 
1225 ee 
1226 aK 
1227 a 
1228 a 
1229 ze 
1230 oe 
1231 ak 
1232 x 
1233 a 
1234 me 
1235 aR 
1236 ce 
123? xs 
1238 AE 
1239 ae 
1240 ae 
1241 as 
1242 RE 
1243 Te 
1244 aE 
1245 a 
1246 ax 
124? xx 
1248 mA 
1249 ne 
1260 i 
1251 ne 
1262 i 
1253 as 
1264 a 
1255 AY 
1256 Ae 
1267 me 
1258 ae 
1269 id 
1260 ae 
1261 ae 
1262 oe 
1263 xe 
1264 ae 
1265 ae 
1266 a 
126? aK 
1268 a 
1269 ae 
1270 OROIC RGF =R 
1271 OROIF DB =R 


1272 OROZ1 108 


STITLE Find a particular ROM 


JOR UDI III GIO OOO TIT I TTI IIIA 
JORIS IO OTC CEI TOOT 
Narie: ROMF- - Find file Chain start for a ROM 
Nane: ROMF-1 - Find file Chain start for a ROM 
Category: GENUTL 
Purpose: Find file chain start for a specific ROM 
Entry: 
2 entry points: 
1) ROMF- - O(0)=Extender#; D(1)=Port# 
2) ROMF-1 - Sarre as above except 0(B)=D(B)+1 
Exit: Carry Clear - PORT found 
01 @ Filechain start 
RAR = Filenane of first file in chain 
D(S)= Device type 
R3 = D(B) on entry 
Carry Set - PORT not found 
Calls: RONCHK, ROMFND 
Uses: 
Inclusive: A-D,R1,R3,01 
ROMNCHK 
ROMFND uses A-D,D1,R1 
Stk lvls: 1 
Detail: Save D --> R3 
If no RONS (ROMCHK ) 
RTNC 
else 
If Extender# and Port# natch 
RTNYES 
else 
Continue until no more ROMs (RTNC) 
History: 
Date Prograriner Modifications 
08/09/82 SLU. Updated docunentation & added 
ROMF- entry point 
FORO ROO OOO GIO ROI IOI OIE 
FOI OIRO OO OOO IO OO OI FOO OOOO OIC OI IO 
ONF-1 D=D-1 B Assunes D(B) was increnented to ck 
OMF- C=D A for no ports specified - Save D(B) 


R3=C 
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1273 ORO24 7F14 GOSUB ronchk Look for ROMs 
1274 ORO28 400 RTWC No ROMs found 
1275 ORO2ZB 590 GONC = ROMF-3 
1276 ORMOZE 7B14 ROMF-2 GOSUB ronfnd Find next ROM 
1277 ORO32 400 RTNC No nore ROMs 
1278 ORD35 11B = ROMF-3 C=R3 Restore original Port# 
1279 ORO38 967 CHD = =«=B no Match ? 
1280 ORO38 3F GOYES ROMF-2 Continue 


1281 ORO3D 03 RTNCC Port found 
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1282 STITLE PURGE Execute 

1283 JU IUGR COC III OTIS II II ITI II 

1284 JG OI IOI IIIS TOGO CII CII I TK IK 

1285 aK 

1286 *k Nate: PURGE - PURGE statenent execute 

1287 ax 

1288 *k Category: STEXEC 

1289 aK 

129% *k Purpose: Executes PURGE statenent 

1291 aK 

1292 **k Entry: DO POINTS PAST tPURGE 

1293 ak 

1294 a Exit: Either go to NXTSTN 

1295 ak or ERROR exit if 

1296 a specified file is SECURE 

1297 aR 

1298 ek Calls: FINDF, PRGFMF, tKYSck, GETPRO, POLL, MFWRQ8, 

1299 . FSPECx, CURDVC, EOLXCK, FILSKP, PRGFMF, C=NAIN 

1300 x 

1301 kk Uses: A-D, S-RO-0, RO&R1 (RFADJ-), R2, 01,D0 

1302 as S-RO-1 (PRGFNF) 

1303 ak RO-R3, STMTDO, STMTR1 (All of it), $1,S2,87, 

1304 aK + all of function scratch -- FSPECx 

1305 ah 

1306 *k Stack lvls: 7 

1307 ak 

1308 ek Detail: Does not error exit if file not found - 

1309 xs issues warning 

1310 ah 

1311 ak PURGE of current running file collapses ALL 

1312 ak environnents. 

1313 ax 

1314 &k History: 

1315 aS 

1316 *% Date Progranner Modification 

1317 RR ence ener eee meee ne eee e cen cnee 

1318 Kk 06/29/82 S.H. Added docurientation. 

1319 RK 07/29/82 SLU. Warning issued if specified 

1320 ak file doesn’t exist. 

1321 RK 41/24/82 9 SLi. Collapse of current running 

1322 a progran collapses ALL 

1323 ak environtients. 

1324 aR 

1325 FOR ROO OI IO RO OI I OI IOI TIO IOI III 

1326 FORO ITO ICO OI OO ICI OIC IOI IO 
5 i 

ho FORO ROROO RRO RRO IOI OI OO I IO IOI 

1329 JIG OU OGIO IIIS I TTT ITI OTT II 

1330 a 

1331 ** WNarie:(S) pPURGE - Poll to PURGE file on external device 

1332 - 

1333 ** Category: POLL 

1334 ae 

1335 ** Type: POLL 


1336 ee 
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1337 ** Purpose: 
1338 . Polls to PURGE a file on non-nainfrane device 
1339 
1340 tk Should poll be “Handled” (return with XN=0)?: 
1341 Rx Yes 
1342 ae 
: 1343 ** fleaning of "Handling" Poll (what does code do if handled?): 
1344 4% Purges the file 
: 1345 a The nainfrane will handle purging any associated FIB 
1346 
1347 *x Entry conditions for handler (registers, ST, RAM, etc.): 
1348 ax Carry clear 
1349 ae B[R] = Poll nunber. 
1350 ak HEX mode. 
1351 ak P=0. 
1352 ak DO past file specifier 
1353 aX D(S) & D(X) contains device info 
1354 ak Blank-filled file name in A(W) & RO; RO contains chars 
1355 aK 9 & 10; If no file nane given, A=0 
1356 ax 
1357 kk Nornal exit conditions fror handler if handled (ST, RAM, 
1358 tk registers, etc.): 
1359 a Carry clear 
1360 ak HEX node. 
1361 aK xM=0, 
1362 ne S8=0 (indicates current file was not purged) 
1363 
1364 **k Nornal exit conditions fron handler if not handled (ST, RAN, 
1365 ** registers, etc.): 
1366 sas Carry clear 
1367 ax HEX node. 
1368 ak XM=1, 
1369 ae 
1370 *k Error exit conditions fron handler (POLL only): 
1371 Rx Carry set. 
1372 ax HEX node. 
1373 x C{0-3] = Error nunber. 
1374 aR 
1375 *X Available subroutine levels: 
1376 ae 7 
1377 ies 
1378 ** NOTE: 
1379 a If not handled, error generated is eFSPEC 
1380 x 
1381 a --SCRATCH RAM TO CONSIDER BELOW: -- 
1382 aK --STNT/FN Scratch, SCRICH, SNAPBF, TRFMBF, LDCSPC,-- 
1383 a --LEXPTR.-- 
1384 Re 
1385 ** What registers/RAM nay be used if handled?: 
1386 ak A-D, DO, DI, P 
1387 xe Anything available to statenents 
1388 x STMNT/FN scratch, RO-R4, SO-S11 
1389 ae 
1390 xx What registers/RAM nay be used if not handled?: 


1391 ae A-D, DO, DI, P 
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1392 a Sane as if handled, except don’t use RO ! 
1393 ax 
1394 ** What registers/RAM nay be used if error exit: 
1395 ak A-D, DO, D1, P 
1396 aK Sane as if handled 
1397 ax 
1398 ** Special nenory/pointer considerations (are pointers funny?): 
1399 x No 
1400 ax 
1401 ** Envisioned application(s): 
1402 ak PURGE A: TAPE 
1403 ak PURGE :PORT(2) ! PURGE ALL on a plug-in EPROM perhaps 
1404 ax 
1405 ** Note: 
1406 ax If not handled, error generated is eFSPEC. 
1407? ak 
1408 ** History: 
1409 ae 
1410 a Date Prograriner Modification 
1411 KK nnn nee nnn nnn re nnn nn nn en ee nn nnn een n nee 
1412 Kk 06/29/82 = S.W. Added docurentation 
tr 

Ui JIGS OOS OO COGIC ISCO IK 
1415 JOO OO IS IOI I OOS GI IOI 
1416 % 
141? x 
1418 OAD3F 0000 REL(5) =PURGOC 

0 
1419 09044 0000 REL(S) =PURGEP 

0 
1420 ORO49 74BO =PURGE GOSUB eolxc+ 
1421 ORO4D 5E1 GONC PURG20 NOT AT EOL? 
1422 * PURGE CURRENT FILE 
1423 ORO5O 7785 GOSUB = CURDVC GET DEVICE FOR CURR FILE 
1424 ORO54 7EEO PURGOO GOSUB PRGFMF ATTEMPT TO PURGE THE FILE 
1425 ORO58 404 GOC bserr ERROR? 
1426 OROSB 877 = =PURGIO ?ST=1 7 PURGED CURRENT RUNNING FILE? 
1427 OROSE 80 GOYES TRMPRG TERMINATING PURGE 
1428 OROGO PURGNF 
1429 OROGO 8CO0O PURGDN GOLONG =NXTSTN 

00 
14% & 
1431 OROG6 8COO TRMPRG GOLONG =ENDALL 

00 
1432 . 
1433 OROGC 7DE2 PURG2O GOSUB tKYSck 
1434 ORO?0 521 GONC  PURG25 tKEYS? 
1435 OAO73 3100 LC(2) = tALL 
1436 ORO?? 962 *A=C OBB 
1437 ORO7A E3 GOYES PURG40 
1438 - 
1439 ORO7C 7DRE GOSUB FSPECx 
1440 OfO80 481 GOC bserr ERR# LOADED IF CARRY 
1441 : 
1442 OROS3 7CDE PURG25 GOSUB FINDF+ 


1443 0R087 
1444 

1445 OROBA 
1446 ORO8D 
1447 OROSF 


1448 0A095 
1449 
1450 ORO99 


1451 
1452 OROSF 
1453 OROA3 
1454 OROAS 
1455 ORORE 
1456 OROAB 
145? 
1458 ORORD 
1459 
1460 OROB1 
1461 OROBS 
1462 
1463 OROBS 
1464 OROBB 
1465 OAOBF 
1466 OROC2 
1467 OROCS 
1468 OROCE 
1469 
1470 
1471 
1472 OROCA 


1473 ORODI 
1474 OROD4 
1475 

1476 ORODE 


1477 ORODC 
1478 ORODF 
1479 

1480 OROET 


1481 OROE7 
1482 
1483 
1484 OAROEA 
1485 OROED 
1486 OROF1 
1487 
1488 OROF4 


1489 OROFB 
1490 OROFE 
1491 
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5CC GONC PURGOO FILE FOUND? 
* GIVE WARNING THAT FILE DOESN’T EXIST 
866 ?ST=0 6 Illegal file spec? 
21 GOYES PRGEXT 
8E00 GOSUBL =MFURQS 
00 
6ACF GOTO  PURGNF 
x 
8(00 ~bserr GOLONG =BSERR 
00 
x 
70B3 PRGEXT GOSUB poll WPURGE SAYS ILL. FILE SPEC 
01 CON(2) =pPURGE 
43F GOC ~— bserr HANDLED & ERRORED? 
831 7XN=O HANDLED OKAY? 
60 GOYES PURG30 
* DEFAULT HANDLER - ILLEGAL FILE SPECIFIER 
6050 ; GOTO FSPCER 
7041 PURG3O GOSUB PRGF4O Purge FIB entry 
SAR GONC PURGDN (B.E.T.) 
* *PURGE ALL’ COMMAND 
847 = PURG4O ST=0) 7 Clear curr running file flag 
715F GOSUB C=MAIN 
135 PURG45 01=C 
14B A=DAT1 B 
968 7A=0 OB END OF FILE CHAIN? 
39 GOYES PURGIO 
* Save start of next file to purge 
* Guards against infinite loop 
* (Repetitively purging uorkfile and re-creating it) 
1B17 DO=(5) =S-RO-0 
8F2 
144 DATO=C A UPDATE PTR TO FILE CHAIN 
DS B=C A 
* CHECK PROTECTION 
8£00 GOSUBL =GETPR1 
00 
832 ?7$B=0 
BO GOYES PURG47 NO PURGE PROTECT? 
* FILE IS PURGE PROTECTED ~ SCAN TO NEXT FILE 
8E00 GOSUBL =FLSKPB 
0 
57D GONC PURG45 (B.E.T.) 
* FILE NOT PROTECTED - OKAY TO PURGE 
* PURGE FILE & ADJUST ALL POINTERS 
84B PURGA? ST=0 11 Purging file in MAIN 
7470 GOSUB PRGF 
47A GOC bserr Only errors if not enough nen 
* Returns with DO at RSTKBp (RSTK<R) 
1B17 DO=(5) =S-RO-0 
8F2 
146 C=DATO A RESTORE PTR TO FILE CHAIN 
50C GONC = ©PURG45 (B.E.T.) 
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1492 * 
1493 0A101 14A =eolxc+ A=DATO B 
1494 OR104 8(00 =eolxck GOLONG =EOLXCK 


00 
1495 * 
1496 * 
1497 x 
1498 JOR IO III III III IDI STI ISI I ISIS IIIS III II ISI IIIS III IIIT ISIS ISI IK 
1499 JORIS IO OTT TI TIT I DI ITI ITI ISI III III II IIIT IS 
1500 xn 
1501 ** Nane:(S) PROFMF - Purge File in Menory 
1502 an 
1503 &* Category:  FILUTL 
1504 ak 
1505 ** Purpose: 
1506 is Purges specified file 
1507 aR 
1508 **k Entry: 2 entry points: 
1509 kn 1) PRGFNF - D(S) as it is after FINDF call 
1510 ae D1 pointing to start of file header 
1514 ax 2) PRGF - File in MAIN; S11=0. 
1512 ale D1 at file type in file header. 
1513 xx 
1514 ae Exits 
1515 Kr Carry set => error# loaded in C(3-0) 
1516 ax Caller should exit using BSERR 
1517 aK Carry clr => File purged successfully 
1518 ak $7=1 => Purged current running file 
1519 a 
1520 ** Calls: POLL, RAMRON, GETPRO, EOFLCH, CREATF, FINDWF 
1521 ue LEXBF+, ZERPGM, MENCKL, PUGFIB, FILSKP, 
1522 7 RFA-I, DI=CRS, RSTOFS, NOVEUN, EDIT81 
1523 xs 
1524 RR USES cs iias ss 
1525 **k Exclusive: A-D, DO,D1,RO,R1,S-RO-0,S-RO-1, $7,S9-S11 
1526 ae If purging current file, also uses R2 & R3, $6,588, S-RO-0 
152? x If purging a LEX file, also use R2,R3 
1528 ak If purging current file AND there’s no workfile, uses SO-S?7 
1529 me 
1530 *k Stk lvls: 5 
1531 me 
1632 xk Date Progranner Modifications 
1533 RK ene een nae e nner -- 0-2 ----------- 
1534 eK 08/04/82 SLU. Added docunentation 
1535 KK 12/16/82  S.W. Replaced calls to RSTK=R and 
1536 as R=RSTK with R<RSTK and RSTK<R 
153? am C(S)} now used 
1538 ** 06/06/83 SLU. Replaced call to CLSUSP with 
1539 wR a call to ZERPGM. (Poll rust 
1540 -* go out when curr file purged) 
1541 Ke 
1542 SOI TORO ORO IOI IO TO IO OTIS OOOO III 
1543 JOIST TOI III REO IR 
1544 z 


1545 FOR RRR JOO III UI OUI IOI IO 


Saturn Assenbler File Execution Routines<831216 Fri Dec ©, 1983 4:54 ar 


Ver. 3.39/Rev. 2306 PURGE Execute Page 33 
1546 RII IIR III IDI TIA D III IAI III IDI III SIS ISII IIS IS III IIIS II SSI SSI IIS 
1547 ak 
1548 ** Narie:(S) pPRGPR - Poll to PURGE file on non-RANM device 
1549 aR 
1550 ** Category: POLL 
1551 aK 
1582 xk Type: POLL 
1553 ak 
1554 xk Purpose: 

1555 a Polls for PURGE of file on non-RAM nenory device 
1556 & 

1557 *& Should poll be "Handled" (return with XM=0)?: 

1558 xk Yes 

1559 aK 

1560 . *& Meaning of "Handling" Poll (what does code do if handled’): 
1561 ah Checks File Protection. 

1562 aR If current file, ensure there’s a workfile in mainfrane 
1563 ak or roon to create one - See Note belon. 

1564 aK If not secure, purge the file. 

1565 aR Call RFAD-I with begin source in RO, offset in B(A) 
1566 me and D1 pointing to S-RO-1 (which contains old enf of 
1567 aK file chain) 

1568 RS Have S10 set on exit iff a LEX file was purged. 
1569 : $9 should be set on return iff current file purged 
1570 

1571 as Mainfrane will handle: 

1572 ak Deleting any associated FIB. 

1573 ia If current file purged (S9=1), SUSP annun. will be 
1574 xk cleared & new uorkfile created. 

1575 ak If LEX file purged (S10=1), will call LEXBF+ 

1576 . If current running file purged, S7 will be set. 
1577 x 

1578 ** Entry conditions for handler (registers, ST, RAN, etc. ): 
1579 aR Carry clear 

1580 aR B[A] = Poll nunber. 

1581 ax HEX node. 

1582 aR P=0. 

1583 xe D1 at file header of file to purge 

1584 a D(S) contains device type 

1585 at 2 => RON 

1586 3 => EPROM 

1587 x D(B) contains port info 

1588 ak 

1589 ** Normal exit conditions fron handler if handled (ST, RAN, 
1590 xk registers, etc.): 

1591 = Carry clear. 

1592 ak HEX node. 

1593 ak KN=0. 

1594 ak PCADDR intact 

1595 = $9 set iff current file purged 

1596 RS $10 set if LEX file purged 

1597 aR 

1598 *k Normal exit conditions fron handler if not handled (ST, RAN, 
1599 *% registers, etc.): 


1600 ax Carry clear 
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1601 ak HEX mode. 
1602 an KN=1. 
1603 AK 
1604 ** Error exit conditions from handler 
1605 aS Carry set. 
1606 ae HEX node. 
1607 aa C(0-3] = Error nunber. 
1608 ois Possible errors are: 
1039 xs eFPROT (file is SECURE) 
1610 ax eMEN (file is current, there’s no workfile, and no 
1611 aK roon to create one) 
1612 = 
1613 *& Available subroutine levels: 
1614 ae 6 
1615 ak 
1616 ** NOTE: 
1617 7 If file to purge is current file, consult nainfrane code 
1618 mR between PRGF2S & PRGF35 to verify there’s a uorkfile 
1619 aS or roon to create one. 
1620 kh 
1621 ak --SCRATCH RAM TO CONSIDER BELOW: -- 
1622 ae --STNT/FN Scratch, SCRTCH, SNAPBF, TRFMBF, LDCSPC, -- 
1623 %% ~-LEXPTR. -- 
1624 x 
1625 %* What registers/RAN nay be used if handled?: 
1626 aE A-D, DO, Di, P 
162? ak RO,R1,R2,R3,S-RO-O0, S-RO-1, S0-S7, $9-S11 
1628 ae 
1629 ** What registers/RAN nay be used if not handled?: 
1630 a A-D, DO, D1, P 
1631 ax Sane as if handled (see above) 
1632 ne 
1633 ** What registers/RAM nay be used if error exit: 
1634 aK A-D, DO, D1, P 
1635 xx Sane as 1f handled (see above) 
1636 es 
1637 ** Special nenory/pointer considerations (are pointers funny?): 
1638 a No 
1639 a However, 1t is important to consider that PURGE of 
1640 oa current file CAN and SHOULD generate an insufficient 
1641 as nerory error if there’s no workfile in the nainfrane & 
1642 aS no room to create one. 
1643 ae 
1644 *t Envisioned application(s): 
1645 ae PURGE A:PORT(2) ' where PORTH2 is an EPROM 
1646 a 
1647 ** Note: 
1648 = If no one responds, error generated is eFACCS 
1649 ae 
1650 ** History: 
165) ae 
1652 aX Date Prograrner Modification 
1653 KR nnn e nn emcee renee tee rence ee nen cer nee rece ce nce cne 
1654 *% 06/29/82 9 S.W. Added docunentation 
1665 ** 12/16/82 9 SLM. Elinanated check to distinguish 
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1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 ORIOA 7543 
1666 ORIOE 23 
1667 OA110 400 
1668 OA113 831 
1669 OR116 AO 
1670 OR118 3300 


00 
1671 OAIIE 02 
1672 
1673 OR120 6600 
1674 
1675 OA124 1CF 
1676 OR127 137 
1677 ORI2A 134 
1678 OA12D 8E00 

00 
1679 OA133 £6 
1680 OAI35 £6 
1681 OR137 132 
1682 OAT3A 131 
1683 OAT3D 17F 
1684 OR140 85B 
1685 OR143 5B2 
1686 
1687 OR146 847 
1688 OR149 7AR4 
1689 ORI4D SCB 
1690 
1691 OR150 8E00 

00 


1692 OR156 832 
1693 OR159 40 
1694 OA15B O02 
1695 OAI5D 868 
1696 OR160 4C 
1697 OR162 848 
1698 
1699 OR165 1849 
5F2 
1700 OR16C 146 
1701 ORI6F 1B67 
8F2 
1702 OR176 144 
1703 OR179 85A 
1704 OA17C DO 
1705 OAI7E 1583 
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ae 
ak 
aK 


12/16/82 


** 06/03/83 
ae 
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ROM fron other non-RAM devices 


S.W. Poll handler no longer requires 
entry point to PRGF4&O 
S.W. Replaced call to CLSUSP uith ZERPGA 


SORT OTT IO TTT TTR TN 
FORT TO TOI TOT OTT TO TTT TTT TT TK ITI 


x 


* POLL - PURGE 
PRGRO+ GOSUB 
CON(2) 
RTWC 

?XA=0 
GOYES 
LC(4) 


RTNSC 


=PROFE 


& 
PRGRTN GOTO 
x 


PRGIRN D1=D1- 
CDIEX 
po=C 
GOSUBL 


C=C+1 
C=C+1 
ADOEX 
D1=A 
D1=D1+ 
ST=1 
GONC 
=PRGFNF ST=0 
GOSUB 
GONC 


GOSUBL 


?SB=0 
GOYES 
RTNSC 
?S$T=0 
GOYES 
ST=0 


PRGFOS 


* ENTRY 
PRGF  00=(5) 
C=DATO 
PRGF20 DO=(5) 


DATO=C 
ST=1 
A=0 
A=DAT1 


on non-RAM nerory device 
poll 
=pPRGPR 


HANDLED? 
PRGRTN 
=eF ACCS 


PRGF 37 Adjust ptrs,etc;rtn u/carry clr 


16 


SAVE PTR TO HEADER 
=EOFLCH PT TO END OF CHAIN 
A 
A PT PAST 00 BYTE 


RESTORE PTR TO HEADER 
LFNAMh 
11 
PRGF 20 


File to purge on plug-in 
(B.E.T.) 


? Curr running file flag 
RANRON 
PRGRO+ 


=GETPRI1 


PRGFOS NO PURGE PROTECT? 
8 Not in MAIN? 
PRGIRM 


11 File in MAIN 


PT ASSUMING PROT. ALLOWS PURGE - ASSUMES D1 @ FILE HEADER 


=AVMENS 


A 
=$-RO-1 


A UTILITY *AVNENS’ 

10 PURGING LEX FILE FLAG 
A 

4 READ IN FILE TYPE 
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1706 OR182 3480 
2E£0 
1707 OR189 1CF 
1708 OA18C 8A2 
1709 OR18F 50 
1710 OR191 84—A 
1711 
1712 OA194 137 
1713 OR197 D? 
1714 OA199 8EOO 
00 
1715 ORISF 108 
1716 ORIA2 DB 
1717 OATA4 DA 
1718 ORTRG 849 
1719 GRIAI 8E 
00 
1720 ORIAF 8A6 
1721 ORIB2 F2 
1722 
1723 
1724 OR1B4 859 
1725 
1726 
1727 ORIB? 7EED 
1728 ORIBB 552 
1729 
1730 ORIBE 789 
1731 ORIC? D2 
1732 ORIC4 3113 
1733 ORIC8 878 
1734 ORICB CO 
1735 
1736 ORICD C9 
1737 ORICF 511 
1738 ORID2 8AA 
1739 ORIDS CO 
1740 
1741 
1742 
1743 
1744 ORID? 8FOO 
000 
1745 ORIDE 400 
1746 
1747 ORIE1 7570 
1748 
1749 ORIES 8FOO 
000 
1750 
1751 ORIEC 1F6? 
8F2 
1752 ORIF3 7264 
1753 ORIF? 86A 
1754 ORIFA 80 
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LC(5) =f LEX 
1FNAMh 
AR 
PRGF25 
10 


D1=01- 
?A=C 
GOYES 
ST=0 
PRGF25 CDIEX 
D=C A 
GOSUBL =FILSKP 


RO=C 
C=D 
A=C 
ST=0 
GOSUBL 


"wopDwD 


D1=CRS 


RHC OR 
GOYES PRGF35 


4354 an 
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LEX FILE? 
NOT A LEX FILE 


BGN DEST. 


BGN SOURCE 

Bgn Dest. 

Bgn Dest. 

Current File flag 

Set C(A) & D1 to CURRST 


Not purging current file? 


* Purging current file - ensure there’s enough nenory left 
* in MAIN to create new uorkfile 


ST=1 9 


Purging current file 


* See if new workfile will need to be created 
* If not, don’t bother with special checks 


F INDWF 
PRGF 35 


GOSUB 
GONC 
* Will need to 
GOSUB RSTOFS 
C=0 A 
LC(2) (oF LSTr) 
*ST=100 14 
GOYES PRGF27 
* Subtract off length of file 
C=C+B A 
GONC PRGFI5 
C=O) =O—A 
GOYES PRGF35 
* C(A) contains ant of nenory 
* Only 2 cases fall into here: 
* 4) Current file on plug-in 
* 2) Current file non-BASIC 
PRGF2? GOSBVL =NEMCKL 


RTNC 
* Restore A(A),B(A): Set 01 
PRGF35 GOSUB RSTOFS 
* B(A)=of fset; D1=Begin Dest; 
GOSBVL =NOVEU1 


in RO 
=S-RO-1 


* Begin source 
D1=(5) 


RFAD-1 
10 
PRGF40 


GOSUB 
PRGOF3? ?ST=0 
GOYES 


workfile Already Exists? 


create workfile- ensure there’s anple renory 


Restore offset (-file len) 


Total ant of nenory needed 
File to purge on plug-in? 


being purged 


Carries if file being purged 
> size of new workfile+LEEWAY 


required (counting leeway) 


Not enough nen to purge curr 


Set A(R),B(A),D1 
A(A)=Begin Source 


Pointer to ptr to end source 


ADJ FOR-NXT & GOSUB STKS 
DIDN’T PURGE LEX FILE? 
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* ASSUMES LEXBF+ WON’T USE >4 SUBR LEVELS 
GOSUBL =LEXBF + DELETE LEX TABLE ENTRY 


1755 
1756 ORIFC 8E00 
00 


1757 OAZ202 8EOO PRGF40 GOSUBL =PUGFIB 
00 


1758 OR208 869 *ST=0 9 Current file not purged? 
1759 OA20B D4 GOYES PRGF85 
1760 * Clear any ’run-tine nenory’ which this progran right 
1761 * have sitting around 
1762 OAZ0D 8E00 GOSUBL =ZERPGN 
00 
1763 s 
1764 * Change CURRST & CURREN TO <workfile> 
1765 & 
1766 0A213 85A ST=1. 10 PURGE FLAG 
1767 OR216 7F8D GOSUB FINDUF 
1768 OAZ1A SD4 GONC PRGF9O Workfile exists? 


1769 


Create new wuorkfile - we know there’s roon 


1770 ORZ1D 102 R2=A Save nane for EDIT79 call 
1771 OR220 D2 C=0 A 
1772 OA222 3113 LC(2)  =oF LSTr 
1773 OA226 108 RO=C Save size for CREATF 
1774 OR229 DS B=C A 
1775 OA22B 1F49 01=(5) =AVNENS 
5F2 
1776 OR232 143 R=DAT1 A Set up A(R), D1 for CREATF 


1777 OAZ35 8E0O 
00 
1778 OAZ3B 7F23 


GOSUBL =CRETMS 
GOSUB EDIT79 


Open neriory, adjust ptrs 


Write out header info;move ptrs,etc 


1779 * workfile CREATED - SEE IF POINTED TO BY S-RO-0 
1780 * This is to keep PURGE ALL fron going into an infinite loop 
1781 * CURRST IN B(A) - CURREN IN C(A) 
1782 * DO at CURREN 
1783 OR23F 1A17 DO=(4) =S-RO-0 
SF 
1784 OAZ4S 142 A=DATO A 
1785 OAR248 SAA 7AHB OAR workfile NOT POINTED TO BY S-RO-0? 
1786 OR24B 50 GOYES PRGF8O 
1787 OAZ4D 144 DATO=C A Update S-RO-O (avoid infinite loop) 
1788 . 
1789 * YMDHMS CLEARS S7 
179) OA250 86D PRGOF8O ?ST=0 13 NOT RUNNING FROM PGN MEN? 
1791 OAZ53 50 GOYES PRGF85 
1792 OA255 857 ST=1 7 PURGED RUNNING PROGRAM FLAG 
1793 * 
1794 OA258 03 PRGF8S RTNCC 
1795 * 
1796 ORZ5R DOB RSTOFS C=D A Begin Dest 
1797 ORZ5C 135 D1=C 
1798 OR25F 110 A=RO Begin Source 
1799 OR262 DS B=C A Begin Dest 
1800 0R264 £8 B=B-A A Begin Dest-Begin Source 
1801 0A266 01 RIN B(A) contains offset 


1802 


1803 ORZ68 7943 PRGF9O GOSUB EDIT31 


Pos ptrs at workfile 
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1804 OA26C 53E GONC PRGF80 (B.E.T.) 

1805 x 


1806 a 


4:54 an 
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1807 STITLE Continuation of RENAME Execute 
1808 JOO UI OO TT RI IIIS IIT II IIS I SIE SIS IIIS 
1809 JOIST ITI IOS I III ISI I IIS ASIII SI SII IIS. 
1810 aka 
1811 - Nane: RNMO10 - Continuation of RENAME Execution Code 
1812 
1813 k* Category: STEXEC 
1814 aK 
1815 . Purpose: Continuation of RENAME Execution 
1816 
1817 &k Entry: DO past the RENANE tokenization 
1818 ae P=0 
1819 a Filespec source and destination infornation 
1820 an has been saved on the SAVSTK. (See RENAME 
1821 ax execute for details). 
1822 kk 
1823 aK Exit: via NXTSTM 
1824 ah 
1825 kk Calls: FINDF, tKYSck, FSPECx, POLL, ALINFO, DEFFIL, 
1826 ae RDINFO, RAMROM, LAKEYS, BASKEY, SVINFO 
1827 x 
1828 ** Uses: 
1829 xX exclusive... SAVSTK, A-D, D1,D0 
18% *k inclusive... A-D, D1,D0, RO-R3, $1,$2,387 
1831 ak STMTDO, STMTR1 (All of it) 
1832 de All of function scratch 
1833 ax 
1834 ** Detail: RENAME file TO KEYS renanes the specified file & 
1835 ax makes it the active key assignnent file. It 
1836 kk follous that if the specified file to renane is 
1837 ak not a key file, an error will occur. 
1838 oe 
1839 ah MNainfrane-only keywords such as KEYS are 
1840 ak considered to specify a source, therefore any 
1841 a device given on the destination is ignored. 
1842 aR 
1843 ** Note: The actual start of RENAME execution code 1s in 
1844 ssa the JP&EXC nodule; it shares sone connon code with 
1845 xx COPY, then jumps off to the RNMO10 entry point in 
1846 a this nodule. 
184? ax 
1848 *k Stack lvls: 7 
1849 ak 
1850 **X History: 
1851 xm 
1852 x Date Progranner Modification 
1853 KK neem en ee ener eee ne tenner ene neee 
1854 KK 06/29/82 = S.W. Added docunentation. 
1855 Kk 07/29/82 = S.W. Added special check to 
1856 uy RENAME <file> TO KEYS to ensure 
1857 xx specified file is in the nainfrane. 
1858 aR 
1859 FORO OI TOR JOJO ORO JOO OOOO IO 
1860 JOO IORI ISU BOR IOUT OTT TOTO TT TO II ITO 


1861 x 
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1862 FOI IO TI TIT ITT TTI ISI IA IASI SII SSIS ISIS IS III AI IK 
1863 JIG II III IDI IATA TRI TDI II OD ITI IAI SII SSSSSSI III IIIS SSIS IIIS 
1864 xk 
1865 *x Nane:(S) pRNAME - Poll to RENANE file on unknown device 
1866 kK 
1867 ** Category: POLL 
1868 ak 
1869 xk Type: POLL 
1870 xm 
1871 *x Purpose: 

1872 ak Polls to RENAME file on external device or on non-RAN 
1873 ak neniory device. 

1874 a 

1875 ** Should poll be “Handled” (return with kM=0)?: 

1876 xx Yes 

1877 xx 

1878 **& Meaning of "Handling" Poll (what does code do if handled’): 
1879 a Writes out nen narie to file header (or directory) 

1880 ak Should be ready to go on to NXTSTN 

1881 ik 

1882 kk Entry conditions for handler (registers, ST, RAN, etc.): 
1883 ae Carry clear 

1884 we B[A] = Poll nuriber. 

1885 a HEX riode. 

1886 ak P=Q, 

1887 Ak DO is past the file specifier 

1888 ex Proposed new file narie 1s in the SAYSTK area 

1889 ak (or at least what WAS the SAVSTK area before poll) 
1890 ak The 10 character blank-filled new file mane is 112 
1891 o nibbles LOWER in trenory than where SAVSTK points 

1892 a (70 HEX). 

1893 aA 

1894 ak 0(S) >= 7 => 

1895 mR RENANE file on external device 

1896 aK Nane of file to renane is blank-filled in ACH); 
1897 xe Characters 9 & 10 in RO 

1898 ze D(S),0(%) contain device id 

1899 ae In higher netiory, adjacent to proposed file nane 
190 ae given above, 1s its corresponding 5 nibble 
1901 oe device id (Do a shift right circular to restore 
1%2 a to original forn). 

1903 a If poll isn’t handled, default error 1s eFSPEC 
1%4 ak 

1%5 ah D(S) < ? => 

1%6 ae RENAME file on non-RAM nenory device 

1%? xe D1 1s at the file header 

1%8 a D(S) contains nenory type info 

1909 xe 1 => RON 

1910 ne 2 => EPROM 

1911 ak D(B) contains port nunber/extender 

1912 an If poll isn’t handled, default error is eFACCS 
1913 “* 

1914 %* Norrial exit conditions fron handler if handled (ST, RAN, 
1915 ** registers, etc.): 


1916 x Carry clear 
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1917 ak HEX node. 
1918 ak xn=0, 
1919 eR Ready to go on to NXTSTN 
1920 aR 
1921 ** Norrial exit conditions fron handler if not handled (ST, RAM, 
1922 ** registers, etc.): 
1923 ae Carry clear 
1924 a HEX node. 
1925 at XM=1. 
1926 x RO intact fron entry. 
1927 aR 
1928 *% Error exit conditions fron handler: 
1929 aR Carry set. 
1930 aa HEX node. 
1931 aR C{0-3] = Error number. 
1932 ah 
1933 ** Available subroutine levels: 
1934 aR 7 
1935 aR 
1936 ** NOTE: 
1937 ia Error if: 
1938 aa 1) No file nane is specified, 1e RENAME A TO : TAPE 
1939 ae (eF SPEC) 
1940 aE (This is default error given if D(S)>=7, else 
1941 ah the handler MUST EXPLICITLY error) 
1942 ia 2) Proposed file nane is ’keys’ 
1943 is (eF SPEC) 
1944 aR 3) File by that name already exists on the nediun 
1945 ae (eFEXST) 
1946 am 
1947 *% What registers/RAN nay be used if handled?: 
1948 xk A-D, DO, D1, P 
1949 ae RO-R4, SO-S11, STNT/FN scratch 
1950 ae 
1951 xk What registers/RAN may be used if not handled?: 
1952 xk A-D, DO, DI, P 
1953 a R1i-R3, SO-S11, STNT/FN scratch 
1954 a% Don’t alter SAVSTK ! 
1955 a 
1956 ** What registers/RAN nay be used if error exit: 
1957 ae A-D, DO, DI, P 
1958 - RO-R4, SO-S11, STMT/FN scratch 
1959 a 
1960 *& Special nenory/pointer considerations (are pointers funny?): 
1961 x No 
1962 aK 
1963 ** Envisioned application(s): 
1964 ah RENAME A:<external device> T0 B 
1965 oo RENANE A:PORT(3) TO B (uhere A is on EPROM) 
1966 KE 
1967 ** History: 
1968 * 
1969 x Date Progranner Modification 
1970 a a aaa acetate tai anaiateneneianenenneieenaate 


1971 aK 42/16/82 9 S.W. Combined polls 
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im 


1972 eh 05/17/83 S.U. Added docunentation 
? & 
ae 3 III III II II TTI II OSI III II IIT IIIT SSIS ISI ISIS IIK IIIS IS ISIS IA 
1975 FRI I IDI IIIT I SIS II ISI II ISIS IOS IS IIIS SII ISOS IIIS I SSIS ISI II IIS 
1976 * 
1977 x 
1978 OAZ6F 06 =RNMO1O RSTK=C Save Destination info 
1979 0A271 843 ST=0 = sDEST 
1980 0A274 8E00 GOSUBL =RDINFO 
0 
1981 OA27A DB C=D A 
1982 OA27C B06 C=C+1 P 
1983 OR27F 07 C=RSTK Restore Destination info 
1984 OA281 540 GONC RNMOIS Device specifier on source? 
1985 * No device specifier on source 
1986 OA284 D? d=C A Take destination device specifier 
1987 OA286 817 RNM15 DSRC 
1988 OR289 76D GOSUB FINDF+ 
1989 OR28D 4F5 GOC RNMW85 
1990 * File found 
1991 0A29O 7363 GOSUB = RANRON 
1992 0A294 5D5 GONC = RNMPOL not in RAN? 
1993 0A297 AFB C=0 W Copy file chain info 
1994 OA29A 10A R2=C Save chain info 
1995 OA29D 137 CDIEX 
1996 ORZAO 06 RSTK=C Save ptr to file to renane 
1997 OR2R2 853 ST=1— sDEST 
1998 OR2ZAS 8E00 GOSUBL =RDINFO Get proposed nane 
00 
1999 OA2AB 978 *A=0) OW 
2000 OR2ZARE 86 GOYES RNIW70 
2001 ORZ2BO 11A C=R2 
2002 OR2B3 AF? D=C W Restore file chain info 
2003 OA2B6 7DBC GOSUB FINDF 
2004 ORZBA SF5 GONC  RNMERR 
2005 * Proposed file nane in R&B 
2006 OAZBD 07 C=RSTK 
200? OR2BF 135 Di=C Restore ptr to file to renarie 
2008 OR2C2 76A0 GOSUB LAKEYS 
2009 OA2C6 974 7AHB OW Not renaming to keys? 
2010 OA2C9 91 GOYES RNMO50 
2011 * Ensure file to renane 1s in the MAINFRAME 
2012 * And that file is a keys file 
2013 OR2ZCB 11A C=Re 
2014 OR2CE AR4E C=C-1 § 
2015 OA2D1 544 GONC RNMO70 
2016 OA2D4 8E00 GOSUBL =BASKEY 
00 
2017 OR2DA 594 GONC = RNMO95 Not a KEY file? 
2018 OR2DD 866 ?ST=0 6 
2019 ORZEO 44 GOYES RNMO95 Not a KEY file? 
2020 OAZE2 AF4 RNIW5O A=B W 
2021 ORZE5 159F RNMOSS DAT1=A LFNAMh 
2022 OAZES 667D RNMO6C GOTO  PURGDN 


2023 


x 
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2024 ORZED 876 

2025 ORZFO E2 

2026 

2027 OR2F2 7051 

2028 ORZF6 11 

2029 

203% 

2031 

2032 

2033 OR2F8 491 

2034 OR2FB 831 

2035 OR2FE BE 

2036 

2037 ORO B47 

2038 OR303 A47 

2033 OR306 4FO 

2040 OAI09 978 

2041 OAI0C AO 

2042 OAZOE 760E 

2043 OA312 668D 

2044 

2045 OA316 67EA 

2046 

2047 OR31R 3100 

2048 OAZ1E 8000 
00 


2049 
2050 0324 65A2 
2051 
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RNMO85 ?ST=1 6 File not found 


GOYES nmferr 


RNAMPOL GOSUB poll 

CON(2) =pRNANE 
* Requirenents of this handler: 
* Handled => go on to NXTSTM 
* DO(S)<? => default is eFACCS 
* 0(S)>=7 => default is eFSPEC 


=pPOLL2 GOC Bserr Handled and errored? 
?xXA=0 Handled Okay? 
GOYES RNMW60 
* Not handled - give correct error 
D=D+1 §$ 
D=0+D § External devices will carry 
GOC RNIO70 
7A=O) OW No file nane specified? 
GOYES RNMO70 
=PRGROMN GOSUB PRGFE Load eF ACCS 
Bserr GOTO  bserr 
x 
_RiIO70 GOTO  FSPCER Illegal Filespec 
SRNMERR LC(2) =eFEXST DUPLICATE FILE 


nferr GOLONG =MFERR 


x 


_RNNODS GOTO = EDITXE Illegal file type 
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2052 STITLE NANE Execute 
2053 FOI III OIC UO OCI TOTTI ITOK 
2054 JOIST TCT TK 
2055 aK 
2056 kk Narie: NANE - Execute NAME Statenent 
2057 ak 
2058 kk Category: STEXEC 
2059 ak 
2060 *k Purpose: 
2061 ak Executes NANE Statenent 
2062 aK 
2063 tk Entry: 
2064 ak P = 0 
2065 aK DO past tNANE 
2066 aK 
2067 ak Exit: 
2068 ae P = 0 
2069 aK workfile NAMED 
2070 aK 
2071 ak ERROR exits if 
2072 da 1) File by nare given already exists in 
2073 aK the nainfrane - eFEXST 
20 74 aK 2) No workfile - eFnFND 
2075 aK 3) Illegal file spec - eF SPEC 
2076 ak 
2077 tk Calls: FILEF, FILEXQ, WRKFIL 
2078 aK 
2079 tk Uses: 
2080 kk Exclusive... A, B, C, D, D1, DO, $8 
2081 tk Inclusive...  A-D, RO-R3, 01,00, $1,82,$87, STNMTBO, 
2082 aK STNTR1 (All of it), All of function scratch 
2083 ak 
2084 &k Detail: 
2085 aK Only allows sitple file nanes (no devices) 
2086 aK 
2087 ek Stk lvls: 6 
2088 RK 
2089 ak History: 
20390 ak 
2091 xk Date Progranner Modification 
2092 Fa. Sie, ae ee eer ce ian Nae 
2093 kk 06/29/82 = S.W Added docunentation 
20.94 RK 42/13/82 SW. No longer creates nen workfile 
2095 ae 
2096 FOR OORT OOOO IO OOOO IG Ot 
2097 PES TCORESCS SS CCCES ECCLES CCC COCESCOSCS ECCS ESS CSCS SCS SCCECS SC SSS OSES ES. 
2038 * 
2099 x 
2100 OA328 0000 REL(S) =NANEDC 
0 
2101 OA32D 0000 REL(5)} =NANEP 
0 
2102 x 
2103 


2104 


* IF FILE BY THAT NANE DOESN’T ALREADY EXIST, RENAME workfile 
x 
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2105 OA332 8EE3 =NANE  GOSUBL FILXQ* 
8F 
2106 OA338 5DD GONC RNMO70 Illegal file nane? 
2107 OA33B 978 7A=O0 OW No file nane specified? 
2108 OA33E 8D GOYES RNMO70 
2109 0A340 B47 D=D+1  $ 
2110 0A343 52D GONC  RNMO70 Device specified? 
2111 “% SEARCH MAIN ONLY FOR POSSIBLE DUPLICATE FILE NAME 
2112 OA346 766C GOSUB FILEF 
2113 OAI4A SFC ' GONC  RNNERR DUPLICATE FILE NANE? 
2114 
2115 OA34D 100 RO=A SAVE PROPOSED FILE NANE 
2116 OA350 755C GOSUB FINDWF 
2117 0A354 49C GOC nferr workfile doesn’t exist? 
2118 OA357 110 A=RO 
2119 OA3I5SA 5A8 GONC = RNMKOSS (B.£.7.) NAME workfile 
2120 : 
2121 & 
2122 , 
2123 JOISTS OTIS STI TA 
2124 SOR ROU JO OI JOO IO JOO Oe 
2125 a 
2126 ** Nane: tKYSck - Check for tKEYS; Loads "keys : 
2127 ak 
2128 ** Category:  FILUTL 
2129 - 
21H . Purpose: tKYSck entry checks for tKEYS token. 
2131 
2132 a LAKEYS entry simply loads A&C registers with 
2133 RK \ syek\. 
2134 a 
2135 *® Entry: 
2136 RX 2 entry points: 
2137 ae P=0 
2138 am 1) tKYSck - DO at possible tKEYS token 
2139 ax 2) LAKEYS - No additional requirerents. 
2140 aK 
2141 eX Exit: 
2142 ae LAKEYS entry: 
2143 ak Carry preserved fron entry 
2144 oe B(S)=0 
2145 ae C and A contain necessary ascii to search for 
2146 ak <keys> file. 
2147 a tKYSck entry: 
2148 Carry clr => Found tKEYS 
2149 el DO past tKEYS 
2150 Re C and A contain necessary ascii 
2151 Re to search for <keys> file. 
2152 aK D(S)=0 
2153 ae Carry set => DO unchanged 
2154 xx A(B) = token pointed to by DO 
2155 ae C(B) = tKEYS 
2156 ax 
2157 ** Calls: none 


2158 a 
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2159 &* Uses: A, C, DCS) 
2160 kk 
2161 *k Stack lvls: 0 
2162 ax 
2163 ek History: 
2164 kk 
2165 a Date Programmer Modification 
2166 RK pene ene wenn ene ee ------------ 
2167 a 06/30/82 = S.W. Added docunentation 
pee JOIST OIC ITO GOI I I 
2170 JOC TOI II IGT IG ISO IO TTI TE IT 
2171 x 
2172 & 


2173 OA35D 14A 
2174 OA360 3100 
2175 OR364 966 
2176 OA367 00 
2177 
2178 OR369 161 
2179 OA36C 3FB6 
5697 
3702 
0202 
02 
2180 OR37E AC3 
2181 OA381 AFA 
2182 OR384 01 


=tKYSck A=DATO B 

LC(2} =tKEYS 

ARC OB 

RTNYES 
t 

DO=D0+ 2 STEP OVER TOKEN 
=LAKEYS LCASC \ syek\ 
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2183 STITLE SECURE/UNSECURE Execute 
2184 FOTO I I TTT III TIT III SI AIS IAIAIISIS IIIS ISI II IISI SASSI IAS 
2185 JOGO IOI UTI TRIAS IAI AIIASI III SI SI III ISTE III III. 
2186 ae 
2187 xx Nane: SECURE - Executes SECURE Statenent 
2188 = Nane: UNSECR - Executes UNSECURE Statenent 
2189 
219% ** Category: STEXEC 
2191 aK 
2192 cc Purpose: Executes SECURE/UNSECURE Statenents 
2193 
2194 ** Entry: 
2195 ae 
2196 ax DO after tSECURE or tUNSECURE 
2197 ah P=0 
2198 KK 2 ENTRY POINTS: 
2199 aK 1) SECURE 
2200 kk 2) UNSECURE 
2201 . we 
2202 KX Exit: 
2203 aK P=0 
2204 xk 
2205 xX Uses: 
2206 kk Exclusive: S6,S8,510, A-D, D1,D0, R1-R3 
2207 *k Inclusive: A-D, 01,D0, RO-R3, S1,S2,87, STHTDO, 
2208 ah STMTR1 (ALL of it), All of function scratch 
2209 ak 
2210 ** Calls: GETPRO, FINDF, tKYSck, FSPECx, POLL, EOLXCK, 
2211 ae RAMRON, CURDVC, FTYPFD, RDENTY 
2212 ah 
2213 ** Stack lvls: 7 
2214 aK 
2215 &* Detail: Flag nibble in file header - Bit O SECURE 
2216 aR Bit 1 PRIVATE 
2217 aR 
2218 **X History: 
2219 aX 
2220 aR Date Progranner Modification 
2221 KR mec ee nee eee e nee e ener ener enne- 
2222 kk 06/H/82  S.W. Added docunentation 
22ed KK 12/17/82 SL. Errors on ROM 
2224 a 
2996 JOISTS IIS TOOK 
2226 JOSIE I OCT 
k 
ae JO UII OIC TITER TOE 
9929 JOO JO OO OTT I 
22% ke 
2231 ** Nane:(S) pFPROT - [UN]SECURE or PRIVATE in non-RAM device 
2232 ae 
2233 ** Category: POLL 
2234 ek 
2235 xx Type: POLL 
2236 kk 


2237 ** Purpose: 
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2238 ak Poll to SECURE/UNSECURE/PRIVATE file on external device 
2239 as or in non-RAN reriory device 
2240 a 
2241 ** Should poll be "Handled" (return with XM=0)?: 

2242 kx Yes 

2243 KK 

2244 ** Meaning of "Handling" Poll (what does code do if handled?): 
2245 ak Change file protection; ready to go on to NXTSTN 

2246 a 

224? ** Entry conditions for handler (registers, ST, RAM, etc.): 
2248 ola Carry clear. 

2249 a BLA] = Poll nuriber. 

2250 Kn HEX ode. 

2251 a P=0, 

2252 a DO past file specification 

2253 KK D(S) >= 7 => 

2254 ax File on external device 

2255 x File nane blank-filled in A(W); 

2256 Sas characters 9 & 10 in low nibbles of RO 
2257 xx D(S),D(X) contains device identifier 

2258 ale If poll not handled, default error is eFSPEC 
2259 kk 

2260 a DCS) « 7? => 

2261 ak File in non-RANM renory device 

2262 ke D1 at file header 

2263 aK D(S} contains nenory type info 

2264 ois D(B) contains port extender/nunber 

2265 aR If poll not handled, default error is eFACCS 
2266 ax 

2267 a $11=1 => PRIVATE 

2268 ae else 

2269 Aa $i0=1 => UNSECURE 

2270 KK © => SECURE 

227) Sas 

2272 ** Nornial exit conditions fron handler if handled (ST, RAN, 
2273 ** registers, etc.): 

2274 ax Carry clear. 

2275 ax HEX triode. 

2276 xk RM=0. 

227? Ae PCADDR intact (ready to go on to NXTSTN) 

2278 ak 

2279 ** Norrial exit conditions fron handler if not handled (ST, RAN, 
2280 ** registers, etc.): 

2281 s Carry clear. 

2282 xx HEX rode. 

2283 ae XM=1. 

2284 ae S10,S11 intact from entry 

2285 xk If D(S)>=?7, RO must be intact fron entry 

2286 ax 

2287 ** Error exit conditions from handler: 

2288 ae Carry set. 

2289 ax HEX rode. 

2290 *k C{O-3] = Error nurber. 

2291 a Only foreseen errors are for PRIVATE on a SECURE or non- 


2292 ee executable file, which generates eFPROT, eF TYPE 
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2293 a respectively. 
2294 ae 
2295 ** Available subroutine levels: 
2296 ah 7 
2297 ah 
2298 a* NOTE: 
2299 ah For no file name specified, ie SECURE :<device> 
2HR0 ae if D(S)>=7, the default error for ‘not handled’ will 
201 ak be eFSPEC. But if D(S)<?, the handler MUST EXPLICITLY 
2H2 A error on this. 
203 aR 
204 *% What registers/RAN nay be used if handled?: 
205 ak A-D, DO, D1, P,RO-R4 
2H6 ak STMT/FN Scratch, SO-S11 
207 ah 
2H8 *% What registers/RAMN may be used if not handled?: 
209 ah A-D, DO, D1, P 
2310 ak R1-R3, SO-S9, STNT/FN Scratch 
2311 ak RO if D(S)<? 
2312 ah 
2313 xk What registers/RAN nay be used if error exit : 
2314 ala A-D, DO, D1, P 
2315 an RO-R4, SO-S11, STMT/FN scratch 
2316 a 
2n7 xk Envisioned application(s): 
2318 aR SECURE A: TAPE 
2319 = PRIVATE A:PORT(3) uhere PORTH#3 is EPRON 
2320 2 
2321 ** History: 
2322 i 
2323 xz Date Progranner Modification 
2324 RR wewenmne eww ew wenn ns tere cr ence nse r renee ren ere ner mcemee 
2325 KK 06/H/82 SLU. Added docunentation 
2326 we 12/16/82 SLU. Combined polls 
2327 ar 
2728 JOO IOI IIT IIIS ISI I ITS III ISI III III SSI SSI SSIS ISIS ISS IS SSIS IA 
2329 SRI III III IIIT I TI IIIS IST ISI ISI IIIS IIIS ISS SIS IIIS SIS SIS SISTA 
2330 x 
2331 x 


2332 OR386 0000 


0 
2333 OR38B 0000 

0 
2334 0A390 85A 


REL(5) =SECRDC 
REL(5) =SECURP 


sUNSECR ST=1 = 10 


2335 0A393 6D00 ‘ 


2336 
2337 OA39? 0000 
0 


2338 OA39C 0000 
0 


2339 
2340 0OA3A1 7C5D 
2341 OR3AS 590 
242 
2343 ORISA 7F52 


x 


GOTO SECURE 
REL(5) =SECRDC 
REL(5) =SECURP 


=SECURE GOSUB eolxct 


GONC SECROZ EOL NOT FOUND? 


* NO FILE NAME GIVEN - APPLIES TO CURRENT FILE 


GOSUB CURDVC GET DEVICE TYPE OF CURR FILE 
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2344 OAIAC 571 

2346 

2346 OA3AF 7AAF 

2347 OR3B3 590 

2348 

2349 0A3B6 7378 

2350 OA3BA 402 

2351 OR3BD 72AB 

2352 OR3C1 456 

2353 OA3C4 7F22 

2354 OR3C3 536 

2365 

2356 OR3CB 86B 

2357 OASCE 92 

2358 

2359 OA3DO 8E00 
0 


2360 OA3D6 832 
2361 OR3D9 60 
2362 OA3DB 6DBC 
2363 
2364 OR3IDF 8E00 
0 
2365 OA3E5 5D0 
2366 OR3E8 8E00 
00 
2367 OAZEE SOE 
2368 ORIF1 90 
2369 OA3F3 6601 
2370 
2371 OR3F? 17F 
2372 OR3IFA 173 
2373 OA3IFD 14B 
2374 OR400 302 
2375 OR403 878 
2376 OR406 RO 
237? 
2378 OR408 87A 
2379 OA40B DO 
2380 
2381 OR40D 301 
2382 OR410 OEOE 
2383 OR414 GAO 
2384 
2385 OA418 30E 
2386 OR41B OE06 
238? OR41F 1590 
2388 OA423 OC3C 
2389 
2390 OR427 876 
2391 OR42R 1B 
2392 
2393 
2394 OR42C 7320 
2395 OR430 BO 


GONC SECR15 


SECRO2 GOSUB = tKYSck 
GONC SECR10 
x 


GOSUB FSPECx 


COC SECERR 
SECR1O GOSUB FINDF+ 
COC SECEXT 


SECR1S GOSUB RANRON 
GONC  SECPOL 
x 
2ST=0 11 
GOYES SECR60 


Page 50 
(BLE. Ts) 


tKEYS? 


FILE WOT FOUND? 
NOT IN RAN? 


Not PRIVATE corinand? 


* Do not allow PRIVATE on SECURE file 


GOSUBL =GETPR1 


?S$B=0 

GOYES SECR20 
SECERR GOTO = bserr 
x 


SECR20 GOSUBL =FTYPFD 


GONC PRVYT20 
GOSUBL =RDENTY 


*C#O OP 
GOYES SECR65 
PRVT20 GOTO EDITXE 
x 


SECR60 D1=D1+ LFNAMh 
SECR65 D1=D1+ 1FTYPh 
A=DAT! B 
LCHEX 2 
?ST=1 11 
GOYES SECR70 
* SECURE or UNSECURE 
?ST=1 10 
GOYES UNSEC 
* SECURE FILE 
LCHEX 4 
SECR70 A=AIC P 
GOTO — SECR80 
x 
UNSEC LCHEX 
A=ABC P 
SECR8O DATI=A 1 
GOTO — PURGDN 
x 
SECEXT ?ST=1 6 
GOYES SECERR 
* 
* POLL FOR SECURE ON PRON 
SECPOL GOSUB poll 
CON(2) =pFPROT 


not SECURE? 


type unknown? 


executable? 
Illegal file type 


Point to file type field 
POINT TO FLAG FIELD 
Read in current protection 


(2 nib read costs less ROM) 
PRIVATE? 


UNSECURE FILE? 


SET LOW BIT 


CLR LOW BIT 
WRITE OUT NEW PROTECTION 
CONTINUE EXECUTION 


File not found? 


Default handlers are eFSPEC & 
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2396 ORA32 OSCE GOTO = =pPOLL2 eFACCS 
2397 F 


Saturn Asserbler 


File Execution Routines<831216 Fri Dec 30, 1983 4:54 an 


Ver. 3.39/Rev. 2306 PRIVATE Statenent Execute Page 52 
2398 STITLE PRIVATE Staterient Execute 
2399 JUS OI SOIC OIC TT TTI 
2400 JOIST TIT IIIT ITT TITS RIT TIT ITI 
2401 aK 
2402 &k Narie: PRIVAT - Executes PRIVATE statenent 
2403 kk 
2404 *k Category: STEXEC 
2405 aK 
2406 *k Purpose: Executes PRIVATE Statenent 
2407 aK 
2408 kk Entry: DO past tPRIVATE 
2409 aK 
2410 Bk Exit: through NXTSTN 
2411 aK 
2412 &k Calls: FINDF, FSPECx, FTYPFD, POLL, RAMROM, GETPRO 
2413 aK RDENTY, tKYSck 
2414 ak 
2415 ** Uses: 
2416 kk Exclusive: A-D, $6,$8,S11, D1,00, RO-R3 
2417 *k Inclusive: A-D, D1,D0, RO-R3, $1,$2,S7, STNTDO, 
2418 ak STNTR1 (All of it), All of function scratch 
2419 aK 
2420 ** Stack lvls: 7 
2421 kK 
2422 *k Detail: | SINCE PRIVACY ONLY MAKES SENSE ON AN EXECUTABLE 
2423 ax FILE, THE COMMAND ERRS IF 1) THE FILE TYPE IS 
2424 . UNKNOWN OR 2) IF THE FILE TYPE IS NON-EXECUTABLE. 
2425 & 
2426 xk History: 
2427 aK 
2428 aK Date Progranner Modification 
2429 BR ene ene wen een nee ree ee eee 
2430 Ak 06/30/82 SW. Added docunentation 
2431 ** 01/10/83 SU. Combined PRIVATE with SECURE; 
2432 is Combined polls 
2433 *k 02/08/83 SU. No longer can a SECURE file be 
24:34 ak rade PRIVATE. 
2435 RK 
24 36 JOIST III III IIT IIR 
2437 JORIS IOI IOI III GCI II IK 
2438 x 
2439 OR436 0000 REL(5) =NANEDC 
0 
2440 OR43B 0000 REL(5) =PRIVIP 
0 


2441 OR440 858 


=P 


2442 OR443 OBOF 
k 


2443 

2444 OR447 8000 
00 

2445 

2446 OR44D 8000 
00 

2447 

2448 


=r 


x 


RIVAT ST=1 11 
GOTO =  SECROZ 


onchk GOLONG =RONCHK 


zronfnd GOLONG =RONMFND 


x 
x 
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2449 STITLE SHOW PORT 
2450 SEIT OTIS TIS DIDI IIIA III IIIT SATIS I DI II TITAN 
2451 SOI III III III IIIT I SIDI IIIT III IIT II ITT IIIT IIIA 
2452 AX 
2453 &k Nane: SHOW - Executes SHOW (PORT) statenent 
2454 aK 
2455 ** Category: STEXEC 
2456 RK 
2457 *k Purpose: 
2458 &A Displays information on all ports - type of nen 
2459 ax and size 
240 ak 
2461 tk Entry: 
2462 aK P = 0 
2463 x DO at nuneric expression 
2464 x 
2465 ak Exit: 
2466 ax P = 0 
2467 ak 
2468 tk Calls: ROMFND, AVNZDS, CAT$90, MSIZE, CAT$83, S-CRLF, 
2469 Rx BLNKC+, ROMNCHK, PRT#DC, OUTC15, OUTNBS 
2470 ak 
2471 tk Uses....... 
2472 aK A-D, DO, D1, RO,R1 
2473 ak 
2474 ** Stk lvls: MAX(4,1 wore than ’several’ [S-CRLF]) 
2475 ak 
2476 ** Note: There is an external subroutine to search a 
2477 ak device table for the corresponding ascii text. 
2478 aK PT-TYF - Port Type Find 
2479 kk 
2480 ** History: 
2481 ax 
2482 xk Date Progranner Modification 
2483 RK een wenn nnn reece ener nee ener cern nen nnn rer reer eee ecee 
2484 kk 08/09/82 = SLU. Wrote routine 
2485 kk 04/25/83 SW. No longer: a) progrannable, 
2486 &x b) outputs header, c) outputs device 
2487 ak nane (outputs device# instead), or 
2488 am d) allous for selective PORT. 
2489 ** 06/10/83 SW. Replaced calls to LDCSET & BLANKC 
2490 a2 with call to BLNKC+. 
2491 RK 
2492 JOO OSI SIO ISIS ITO IS TOO I ITT I IIIS 
2493 JUG OI OT OOO TT ISI IIIT IIIS 
2494 - 
2495 k 
2496 & 
2437 OR4S3 =P011) 
2498 OA453 8C0O poll GOLONG =POLL 
60 
2499 x 
2500 07459 3100 =DVCNFE LC(2) =eDVCNF 
2501 OA45D GOCE GOTO nferr 


2502 a 
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2503 x 
2504 0461 0000 REL(5) =SHONp 
0 
2505 x 
2506 OR466 161 =SHOW  DO=D0+ 2 STEP OVER tPORT 
2507 ORAS 7ADF GOSUB  ronchk 
2508 OA46D 4BE GOC DVCNFE No Ports ? 
2509 *D(S)=DEVICE TYPE;D(7-0) CONTAINS SIZE INFO 
2510 OR470 AFB SHOW1O C=D W 
2511 0A473 108 RO=C 
2512 OR476 8E00 GOSUBL =BLNKC+ Call LOCSET, BLANKC 
00 
2513 OAR47C AFA A=C W (B(A)=D0) 
2514 OR47F 8E0O GOSUBL =OUTC15 
00 
2515 OR485 29 P= 9 
2516 OR487? 8E0O GOSUBL =OUTNBS BLANK FILL 26 NIBS 
00 
2517 OR48D DI C=B A 
2518 OR48F 134 DO=C Back up DO 
2519 OR492 118 C=RO 
2520 OR495 D? D=C A 
2521 OR497 8E0O GOSUBL =PRT#DC 
00 
2522 OA49D 118 C=RO 
2523 ORAARO ADO A=0 M 
2524 OR4AZ 8E0O GOSUBL =MSIZE+ 
00 
2525 OR4AS FO ASL A 
2526 OR4AB FO ASL A 
2527 OR4AAD 8E00 GOSUBL =CAT$83 
00 
2528 OR4B3 161 DO=DO+ 2 LEAVE BLANK BETWEEN FIELDS 
2529 * Convert Device# in RO to decinal & output, suppressing leading 
2530 x zeroes 
2531 OR4BE 110 A=RO 
2532 OR4B9 DO A=0 A 
2533 OR4BB 810 ASLC 
2534 OR4BE 2C P= 12 Convert to decinal & output up to 
2535 OR4CO BEOO GOSUBL =CAT$90 2 digits 
00 
2536 OR4ACE ZIFF LCHEX FF 
2537 OR4CA 14C DATO=C B 
2538 OA4CD 8FOO GOSBVL =AVN2DS 
000 
2539 OR4D4 BFOO GOSBVL =S-CRLF SEND BUFFER TO DISPLAY & BUILD 
000 
2540 OR40B 7E6F GOSUB ronfnd 
2541 ORADF 509 GONC = SHOW10 More ports ? 
2542 OR4E2 6D7B GOTO PURGDN 
2543 * 


2544 i 
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2545 STITLE EDIT Execute 
2546 $I III ITD TTT TTT DT TDI TTT STASI IIIA IDK 
2547 JOIIOR II III TTT TITS ITI IIIT I IO IOS TS IIIS IIIA IIA 
2548 ee 
2549 ** Nane: EDIT - floves EDIT Pointers to Specified File 
2550 ** Nane:(S) EDITWF - Designates workfile as Current File 


2551 ** Nane:(S) EDIT8O - Designates Specified File as Current 
2552 Nane: EDIT20 - Collapses Stks; Spec. File Becones Curr. 
2553 

2554 ** Category: FILUTL 

2555 aK 

2556 *k Purpose: 

2557 ak EDIT executes the EDIT statenent. 

2558 ak 

2559 aw EDITWF designates the uorkfile as the current file. 
2560 aK If it doesn’t exist, it is created. EDITHF is 
2561 aR called when current file is purged and during 
2562 a configuration. 

2563 aa 

2564 ax EDIT80 designates the specified file as current. 
2565 aK If file isn’t BASIC, a POLL goes out, resulting 
2566 ex in an error if no one responds. This entry 

2567 aK point is used by CAT when [fJ[EDIT] is hit 

2568 ak during a multiple file catalog. 

2569 aR 

2570 ae EDIT20 collapses all the execution stacks before 
2571 ae designating the specified file as current. This 
2572 ah is the entry point used by RUN. An assunption is 
2573 ae nade that this file is of legal type to be nade 
2574 x2 current. 

2575 aa 

2576 ** Entry: 4 entry points: 

2577 am P=0 

2578 aK 1) EDIT - DO past tEDIT. 

2579 ax 

2580 ax 2) EDITWF - S10=1 => No collapse of stacks and 
2581 xR no CATalog. 

2582 aw $10=0 => No collapse of stacks 
2583 aK CATalog iff S$11=0 

2584 kk 

2585 ak 3) EDIT8O - $10 and S11 as with EDITUF. 

2586 aK 

2587 ak 4) EDIT20 - D1 points at new current file. 
2588 7m 

2589 ae Exit: 

2590 ak CURRL UPDATED; Stacks, etc collapsed via CLPSTK 
2591 a Error Exits if: 

2592 an 1) file nust be created and not enough nenory 
2593 ak 2) specified file is not BASIC 

2594 ae 3) port# specified that doesn’t exist 

2595 KK 4) non-nainfrane device specified 

2596 ae If no CATalog 1s done: 

2597 aX B(A)=CURRST; C(A)=D(A)=CURREN; 

2598 x DO points to CURREN RAM location 


2599 AS 
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2600 **k Calls: CRETF, CLPSTK, FINDF, SAVEL, WRKFIL 
2601 ak EOLXCK, FSPECx, POLL, NULLP, BASKEY 
2602 aX 
2603 *k Uses: A-D, RO-R3, S6, S8, $9, $10, S11, D1,DO 
2604 ik + If FSPECx is called: $1,52,S7, STMTDO, 
2605 x STMTR1 (ALL of it), All of function scratch 
2606 ax 
2607 ** Detail: EDIT is a systen corimand (non-progrannable). The 
2608 aK reason for this linitation 1s that EDIT changes 
2609 ax CURRST & CURREN; this would be nonsensical during a 
2610 ax running progran, since the sane pointers are used 
2611 aR to indicate current EDIT file as current RUN file. 
2612 RK 
2613 Kx EDIT [filenane] 
2614 ak 
2615 *k Stack lvls: 7 
2616 ak 
2617 ** History: 
2618 kk 
2619 ae Date Progranner Modifications 
2620 KK enn eee enn e nnn e ere none e eee 
2621 *k 06/30/82 SL. Added docunentation 
2622 *K 07/20/82 9 S.W. No longer saves 2 stack levels 
2623 Kk (burden put on PRGFNF) 
2624 ak 09/17/82 J.P. Set S9 before NULLP call 
2625 RK 11/11/82 0 SW. Deleted poll on external file 
2626 42/17/82 SLU. Eliminated call to CHAIN - caused 
2627 ak probleris when old EDIT file is 
2628 a7 in non-RAN nediun; ptr to new 
2629 aK CURRST no longer in R3 on exit. 
2630 wk 
2631 Kk 01/11/83 J.P. Change S9=1 to P=1 before NULLP 
2632 xe call. 
2633 *k 03/02/83 J.P. Added pEDIT poll 
2634 ak 
2635 FOI RIOT OIG OCI OOOO IOI IOI IOI OT 
2636 JOO IIE OIG COCO OOOCICIOOCICIIIS IIIII IO 

x 

ee JO IOI RII AIT IIIA II ISDST SITE IIIA I ID IIIS IIS NI SII IASI SAS 
2639 FOI IO IO IIIT TOIT ISIS ITI TS ITI ISI ISI IS SSIS ISO III SSS IS 
2640 ae 
2641 ** Nane:(S) pEDIT - Poll to position at non-BASIC file 
2642 a 
2643 ** Category: POLL 
2644 xe 
2645 ** Type: POLL 
2646 e 
2647 ** Purpose: 
2648 ae Just gives the ’OK’ to position at non-BASIC file 
2649 mM 
2650 ** Should poll be "Handled" (return with XM=0)?: 
2651 xe Yes 
2652 iia 
2653 ** Meaning of "Handling" Poll (what does code do if handled’): 


2654 ae Clears XM 
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2655 *R 
2656 *k Entry conditions for handler (registers, ST, RAM, etc. ): 
2657 an B[A) = Poll number. 
2658 ae HEX node. 
2659 at P=0, 
2660 ax D1 points at file header 
2661 aR ACA) contains file typet 
2662 aR 
2663 ** Norrial exit conditions fron handler if handled 
2664 aa Carry clear (POLL only). 
2665 aS HEX node. 
2666 aE XM=0. 
2667 a D1 at file header 
2668 ah $11 preserved fron entry (flags whether to CATalog) 
2669 ah P=0 
2670 ak 
2671 ** Norrnal exit conditions fron handler if not handled (ST, RAN, 
2672 ** registers, etc.): 
2673 ak Carry clear (POLL only). 
2674 ak HEX node. 
2675 ah XM=1, 
2676 x $11 preserved fron entry 
2677 ak P=0 
2678 a 
2679 ** Error exit conditions fron handler (POLL only): 
2680 ah Carry set=> Must be MEMERR 
2681 = HEX rode. 
2682 a C{0-3] = Error nunber. 
2683 ah 
2684 ** Available subroutine levels: 
2685 a 7 
2686 aR 
2687 aR 
2688 ** NOTE: 
2689 an If handled or not, S11 & D1 must be preserved 
2690 ae 
2691 xk What registers/RAM nay be used if handled?: 
2692 ie A-D, DO, RO-R3, S6 
2693 xs 
2694 ** What registers/RAN nay be used if not handled?: 
2695 ie B,C,D,DO,RO-R3, S6 
2696 xe 
2697 *k What registers/RAN nay be used if error exit (POLL only)?: 
2698 at N/A 
2699 ae 
2700 ** Special neriory/pointer considerations (are pointers funny?): 
2701 =e N/A 
202 as 
2703 *k Envisioned application(s): 
2704 a To designate non-BASIC file as current, so cursor keys 
2705 *e could be used to *scroll’ through the file contents. 
2706 as 
2707 ak Also possibly to be used in conjunction with the parse 
2708 Be take-over poll, ie position at a non-BASIC file and 
a enter lines. 


2709 





“a 
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2710 AB 
2711 ** History: 
2712 aR 
2713 ae Date Prograriner Modification 
2714 RR mewn ene mace eee e weer ere e nnn rn n mee nn en een manne 
2715 ek 03/04/83) SLU. Added poll 
2716 Pe 
on? JI IOS II IIIS IIIT I OTIS IT II IID III I II III ITI II II SIA IIIS I IIS IN 
28 JOO II OT II III I IO III III SII TIO DI IIIS SII SSSI ISAAK 
2719 x 


2720 OR4E6 137 
2721 OR4ES 06 
2722 OR4EB 8EOO 


2723 
2724 


2725 
2726 
272? 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
273? 
2738 


2739 
2740 
2741 
2742 
2743 


2744 


2745 
2746 
274? 
2748 
2749 
2750 


2751 
2/52 
2783 
2754 
e7no 
2786 
27h? 
2758 


OR4F 1 
OR4F 3 


OR4FA 
OR4FD 


OR4FF 
0A501 


OR50? 
0AS5OS 
OASOC 
OASOF 
0A513 


OAS19 
0AS20 


ORS2e 
OR525 


OR52?7 


OAS2C 
0A530 


00 
0? 
1BD5 
5F2 
144 
05 


21 
8EO0 


D2 
490 
171 
15F3 
8E00 


1BC6 
5Fe 
0B 
144 
03 


7108 
5FO 


=EDIT20 CDOIEX Save new CURRST 
RSTK=C 
GOSUBL =CLPSTK 


C=RSTK 
EDIT3O DO=(5) =CURRST 


DATO=C A UPDATE CURRST 
B=C A SAVE CURRST 
x 


* Initaalize CURRL RAN location 
x 


* Note: 

* EDIT20 1s a RUN entry point 

* Added RUN Binary code to JP&SYS/RUN 

* fissures: CURRST/CURREN can be non-BASIC 

- All BASIC-file-dependent code rust do their oun 
: check for the BASIC file type 


P= 1 Avoid file type check 
GOSUBL =NULLP 


0) A 

GOC EDIT4S 

D1=Di+ 2 

C=DAT1 4 READ IN 1ST LINE# IN PROGRAM 
EDIT45 GOSUBL =SAVELO WRITE OUT LINE# TO CURRL 


DO=(5) =CURREN 
C=D 


DATO=C 
RTNCC 


A D(A) SET IN NULLP 
A 


REL(S) =EDITP 


* 
* Assure $10,811 clear on entry 
x 


EDIT GOSUB eolxct 
GONC EDIT? NOT EOL => MUST BE FILENANE 
* Assune $10, S11 set as appropriate 
* No file specified - EDIT <workfile> 
* If uorkfile doesn’t exist, create it 
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2759 OA533 7CRO 

2760 ORS37 AFR 

2761 OAS3R AC3 

2762 ORS3D 590 

2763 

2764 ORS40 79E9 

2765 ORS44 492 

2766 

2767 

2768 OR547 AFB 

2769 

2770 

2771 ORSAR 108 

2772 ORS4D 721A 

2773 OR551 535 

2774 ORS54 866 

2775 ORS57 97 

2776 ORSSI 118 

2777 ORSSC AF? 

2778 

2779 

2780 

2781 ORSSF 102 

2782 OR562 D2 

2783 ORS64 3113 

2784 ORS68 8E00 
00 


2785 ORSGE 416 
2786 ORS71 111 
2787 OAS74 131 
2788 OAS77 11A 
2789 
2790 ORS7R 15DF 
2791 ORS7E 17F 
2792 OAS81 3341 
2E 
2793 OR587 1503 
2794 OASSB 17F 
2795 OASSE 174 
2796 ORS91 AF2 
2797 OR594 1509 
2798 OR598 179 
2799 OR59B 3100 
2800 ORSIF 14D 
2801 OASA2 131 
2802 
2803 
2804 
2805 OASAS 8£00 
00 


2806 ORSAB 876 
2807 ORSAE EO 
2808 OASBO 86A 
2809 ORSB3 12 
2810 
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=EDITWF GOSUB URKFIL 
A=C Ml 


x 


EDIT70 GOSUB FSPECx 
GOC 


D=0 


S 
GONC €DIT75 (B.E.T.) 


EDIT79 CARRY => ERR LOADED 


* Assumes neither FINDF & CREATE use S10, S11 


EDIT75 C=D W 


* If file needs to be created, it is created in the nainfrane if: 


a 


x 


1) No location was specified OR 2) MAIN was specified 


R3=C Save INFO on where to search 
GOSUB FINDF+ 

GONC EDIT8O 

?S8T=0 6 

GOYES EDIT83 

C=R3 


D=C W RESTORE INFO ON WHERE TO CREATE FIL 


* NO MATCH => CREATE FILE - MUST CHECK TO SEE IF IT’S IN ROM/RAN, 
* 


& 


EDIT79 GOC 
A=R1 


R2=A 

C=O) =o 

LC(2) (oFLENn)+(oBSsod) total BASIC file hdr length 
GOSUBL =CRETF+ 


EDIT83 


D1=A START OF FILE HEADER 
C=R2 


CARRY => ERROR LORDED 


WRITE OUT FILE NANE 
STEP OVER IT 


DAT1=C LFNAMh 
D1=D1+ LFNAMh 
LC(4) =f BASIC 


DAT1=C LFTYPh 

D1=01¢ (LFTYPh)+(LTINEh)+( 1 DATE) +(1FLAGH) 
D1=D1+ lFLENh STEP OVER LENGTH 

C=0 W 
DAT1=C 10 
D1=01+ 10 
LC(2)  =tEOL 
DAT1=C 8 EOL 
D1=A 


ZERO OUT SUB & LBL CHAIN HEADERS 


* D1 @ FILE HEADER 
* 


=EDIT8O GOSUBL =BASKEY 


*ST=1 6 NOT BASIC? 
GOYES EDTEXT Poll on EDIT 
?$T=0 «10 NOT CALLED BY PURGE? 


GOYES EDIT8&5 


* CURR FILE PURGED - DON’T WANT TO Collapse stks or CATalog 
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2811 ORSBS5 137 
2812 OASB8 6A3F 
2813 

2814 

2815 

2816 ORSBC 739E 
2817 ORSCO B2 
2818 OASC2 4D0 
2819 OASCS 831 
2820 ORSC3 CO 
2821 ORSCA 3300 


00 
2822 OASDO 68CA 
2823 
2824 
2825 


2826 OASD4 7EOF 

2827 ORSD8 878 

2828 ORSDB 00 

2829 ORSDD 8COO 
00 

2830 

2831 OASE3 3F77 
F627 
B6b6 
9606 
56 

2832 ORSFS5 03 

2833 

28 34 

2835 

2836 

2837 

28 38 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

284? 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 
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EDIT81 CDIEX 


x 


GOTO EDIT30 


* Non BASIC filetype --- POLL 
* 


EDTEXT GOSUB poll 


E 
E 
k 


& 
E 


x 
*H 


x 


DITKE 
DIT83 


DIT85 


RKFIL 


CON(2) =pEDIT 
GOC  -EDIT83 
2KN=O 

GOYES EDIT85 
LC(4) =eF TYPE 


GOTO bserr 


GOSUB EDIT20 
*ST=111 
RTNYES 

GOLONG =CATEDT 


Errored? (Must be MEMERR) 


Handled and Okay ? 
No response --- Error 


GOLONG BSERR 


UPDATE CURRST & CURREN 
Don’t want CATalog 


LCASC \elifkrou\ 


RTNCC 


FOI ICO OT IIT ITT TTT TO III IIIT TI IN 
FORO III OOOO III TTT TTT TO IO TIN 


ak 


*K Nane:(S) RAMROM - 


ak 
ak 
ak 
at 
ak 
ak 
ak 
ak 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
tk 
ke 


Category:  FILUTL 
Purpose: 
Entry: 
=Q => 
=] => 
=2 => 
=3 => 
Exit: CARRY SET 
CLR 
Calls: none 
Uses: $8, C(S) 


Classify Menory Device 


Returns info on whether file in RAN, IRAN, other 


D(S) preserved fron FINOF call: 


Mainfrane RAM 
TRAN 
RON 
FEPRON 
=> RAN 
S8=1 => IN MARIN 
0 => IRAN 
=> non-RAM renory device 
S8=0 
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2860 *k Stack lvls: 0 
2861 ax 
2862 ** History: 
2863 ak 
2864 tx Date Programmer fodifications 
2865 RK eee enn eee meee eee n-ne --------- 
2866 *k 06/30/82 S.W. Added docunentation 
2867 Re 12/17/82 = SLU. Elininated distinction 
2868 &k between ROM & other 
2869 ax non-RAN nenory devices 
2870 xk 
2871 PO CCSTTTCISTCSTCTTTSICOCSOCTOSTISCOCCOS OST T TTT Tete TTT TTT eee eT TT 
2872 $I IOS III IS TOSI IIT III ITSO SSI ISS OASIS SSSI IS 
2873 & 
2874 OASF7 858 =RANRON ST=1 8 
2875 OASFA ACB CD = § 
2876 ORSFD ASE C=C-1 § 
2877 OR6OO 400 RTNC 
2878 OR6O3 848 ST= 8 
2879 OAGOG A4E C=C-1 § 
2880 OfGO9 01 RIN Carry set IFF IRAN 
2881 x 
2882 & 
2883 REKRKERIR RI RIO UO OOOO 
2884 $I TIO IIIT AIT ITO STII ISTO IISI SII SSSI III SII SSSI ISS SIS: 
2885 ax 
2886 *X Wane: (S) LOCADR - Locate, Classify Rddress’s Nenory Device 
2887 ** Wane: (S) CURDVC - Classify Current File’s Device 
2888 dei 
2889 ** Category:  FILUTL 
2890 ak 
2891 ** Purpose: Given a file address, returns infornation 
2892 AE regarding the nediun (MARIN, IRAN,RON, etc.) 
2893 kk 
2894 CURDVC entry assunes the file address is (CURRST). 
2895 
2896 *X Entry: 2 entry points: 
2897 aK 1) CURDVC - No additional requirenents. 
2898 an 2) LOCADR - C(A) = sone address in the file 
2899 igs 
2900 ** Exit: Specified address in R2 
2901 aX Carry clr => Legitinate address 
2902 xm D(S)=0 => MAIN 
2903 kk #0 => PORT 
2904 aK D(S) reflects menory type 
2905 aX =1 => RAN 
2906 ax =2 => RON 
2907 a =3 => EEPROM 
2908 aw D(0)= Extendert 
2909 x D(1)= Port# 
2910 x D(?7-2)=Rest of Config. entry 
2911 kx ACA)=D1=R2(A) 
2912 ax 
2913 ne Carry set (LOCADR entry only) => 
2914 ax Not a legitinate address 
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2915 Ee 
2916 x* Calls: ROMCHK, ROMFND, EOFLCH, D1=CRS 
2917 ak 
2918 a* Stk Ivlsi-2 
2919 <7 
2920 &* Uses: A-D, D1, RI & R2 
2921 ax 
2922 ** Detail: THE ADDRESS MUST BE WITHIN A FILE CHAIN, OR CARRY 
2923 a WILL AUTOMATICALLY COME BACK SET. 
2924 a% 
2925 ** History: 
2926 ae 
2927 hes Date Progranner Modifications 
2928 BR eweeeewe ence ere see ee ee nen enween 
2929 ek 06/30/82 = S.N. Added docunentation 
290 ae 
2931 SRI II I KI III ISO IT ITI STII I III ISIS ISISSIIISSI ISIS ITS I SISA IA 
2932 JI IDI I DI TI IIIT II TIS TOT IIA II III IOI IIS III II IR TOSI IIIS ITA 
2933 ‘ 
2934 - 
2935 OAGOB 8E0O =CURDVC GOSUBL =D1=CRS Set C(R) to CURRST 
00 
2936 x 
2937 OA611 AC3 =LOCADR 0-0 ~~ 8§=6§ MAIN 
2938 OR614 1F17 Di=(5) =MAINEN 
5F2 
2939 ORE1B 143 A=DAT1 A 
2940 ORGTE 10A R2=C 
2941 Of621 8B6 7C<A OA IN MAIN? 
2942 OR624 72 GOYES LOCA25 
2943 * 
2944 OA626 7DIE GOSUB = ronchk 
2945 ORBZA 400 ~=—LOCA10 RINC NO [MORE] PORTS? 
2946 * NOT IN MAIN - CHECK PORTS - C POINTS TO START OF FILE CHAIN 
2947 OAB2D 112 A=R2 SPECIFIED ADDRESS 
2948 OR630 8B2 “AcE NOT ON THIS PORT? 
2949 0633 01 GOYES LOCA20 SEE IF ANY MORE PORTS 
2350 * SCAN TO END OF FILE CHAIN 
2951 OR635 8E0O GOSUBL =E0FLC1 CHECK FOR NULL CHAIN 
00 
2982 * C(A) POINTS TO END OF FILE CHRIN 
2953 OA63B 112 R=R2 
2954 ORO3E SBR PAc=C OA 
2955 OR641 CO GOYES LOCA30 
2956 * SEE IF ANY MORE PORTS 
2957 ORb43 760E LOCR20 GOSUB  ronfnd 
2958 OR64? G2EF GOTO LOCARIO FOUND ANOTHER PORT? 
2959 * 
2960 OR64B DA LOCA25 A=C A 
2961 OREAD 131 LOCA DI=A 
2962 ORBS5SO 03 RTNCC 
2963 - 
x 


2964 
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2965 STITLE Reference Adjust (RFADJ-) 
2966 JI II II IIR IIIT IOI TSI TTT II SII TST IDI TTI IIS II IIIS IIIS I ISIS I IN 
2967 FORO JI JOT TOSI TT TTT TOR ITO TT 
2968 ae 
2969 ** Wane: (S) RFAD-I - Adjust Refs when men moves to lower addr 
2970 Nane:(S) RFAD-- - Adjust Refs when men noves to lower addr 
2971 x 
2972 ** Category: PTRUTL 
2973 aR 
2974 ** Purpose: Adjusts address references on the FOR/NEXT & GOSUB 
2975 Kx stacks, in FIBs, as well as RAM pointers 
2976 ah (PCADDR -> THRADZ) & (CURRST -> AVMENS), when 
2977 ak appropriate; this 1s to be used when part of 
2978 am progran nenory moves to lower address space 
2979 a (hence a negative offset will be added to the 
2980 xk references) 
2981 ak 
2982 ak RFAD-- entry is used to adjust pointers when the 
2983 KK file chain in MAIN has moved. 
2984 xk 
2985 ak RFAD-I entry is used to adjust pointers when a 
2986 = file chain in an IRAM has noved, 
2987 aR 
2988 kk Entry: 
2989 as B(R) = Bgn destination - Bgn source (offset) 
2990 ae RO contains Begin Source 
2991 is 2 entry points: 
2992 a 1) RFAD-- - End Source assuned to be (AVNENS). 
2993 aR 2) RFAD-I - D1 points to a 5-nibble location 
2994 ak containing the address of the file 
2995 kk chain end. 
2996 = 
2997 Kk Exit: B(A)=of fset 
2998 a RO=Bgn Source 
2999 RK R1=Bgn Destination 
3000 xe Carry Clear 
3001 xk RFAD-I entry point - D1 preserved 
3002 ae All other entry pts - D1 pts to AVMENS ran loc. 
3003 xk 
HO04 xx 
3005 ** Calls: RFUPD-, RFADS8 
3006 aie LXFND, CSRC10, CSLCS, FORUPD, RFADS7, BUFFIB, 
X07 aK PRVADR, I/OFND, RFUPD+, RFAD86 
008 kk 
009 ** Uses: A, C, D, RO, R1, DO, D1 
3010 ax 
311 *k Stack lvls: 2 (PCUPDT) 
3012 ah 
13 ** Detail: Zeroes out references on the GOSUB & FOR-NEXT 
3014 a stacks which point into purged address space. 
3015 ax 
3016 Note: Menory rust be noved BEFORE calling this routine! 
3017 * 
3018 xk History: 


3019 a 
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3020 xk Date Progranner Modifications 
3021 Rei lowes seeceenwn! , eucaitencnens 
22 KK 07/01/82 S.U. Added docunentation 
3023 . 12/29/82 SLU. Updates CURRST -> AYNENS 
4 k 
ae JKR RII III III III III TT TORTI III III III II III III III III III TIARA I 
3026 JIS IO III IO TOTTI TOS III SII III ITI ITT IIA 
3027 x 
3028 x 
3029 OAES52 1F49 =RFAD-- 01=(5) =AVMENS 
5Fe 
3030 OR659 110 =RFAD-I A=RO 
3031 OR6SC CO A=A+B A COMPUTE BEGIN DEST. 
3032 ORGSE 101 R1=A 
3033 OR661 ACI 0=0 S 
3034 OR664 BA? D=D+1 S$ 
3035 OARG667 6D90 : COTO PCUPD+ Update/Zero affected references 
3036 
3037 - 
3038 JOISTS ISIS ISI III I TOI IIIS I I 
3039 JOU IIIT III ICO III II I II ITI IAS SIS IIIT TA 
040 ak 
3041 ** Name: (S) RFUPD+ - Updates a ptr when ren roves 
3042 ks 
3043 ** Category:  PTRUTL 
3044 ak 
3045 ** Purpose: 
3046 a Adds offset to given address reference, if menory 
3047 ak novenient to lower address space calls for such adjust- 
3048 KK nent. Indicates if reference points to a part of 
3049 ae nenory that has just been purged. 
3050 + 
3051 ek Entry: 
3052 a D(S)=0 => nenory expansion, else nenory contraction 
3053 a RO=Bgn Source for MOVEUN 
3054 x R1=Bgn Destination for NOVEUN 
3055 ee DO points to RAN location containing address to 
3056 ax check/update 
305? Ks 01 points to Ran location containing ptr to end source 
3058 zx B(A)=offset (bgn destination)-(bgn source) 
3059 aS This nuriber will be negative! 
3060 KK 
3061 REET: 
3062 ao B, D, RO-R3, DO & D1 are as they were upon entry 
3063 — Carry set=> Reference into purged address space. 
3064 as A(R)=Bgn Destination 
3065 ed clr=> Reference has been updated if needed. 
3066 as Correct reference in C(A) & in RAM pointed 
306? as to by DO. 
3068 AR 
3069 ae 
3070 *k Calls: none 
3071 os 
3072 RE USCS cod aais 
073 ** Inclusive: RA(A), C(A) 
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R74 aR 
075 ** Stk lvls: 0 
76 aR 
77 ** History: 
3078 a 
3079 ae Date Programmer Modification 
3080 RE: captecae: “eecerccdes® AStSaaeeeseoutoussceceteseeleorwen 
3081 *K 07/01/82 SH. Added docunentation 
H82 at 
83 FORT RIO IOUT OO TO Ok 
84 3A III IOI III IO II IIIS IIS SI ITS IIS I IIIS IIIIIISSSIIISI IIIS IIS II. 
85 x 
3086 OR66B 134 = RFUP++ DO=C 
87 x 
388 OAGGE 110 =RFUPD+ A=RO BEGIN SOURCE 
389 ORG71 146 C=DATO A 
W9 OR674 8B6 7C<A OA ADDRESS<BEGIN SOURCE? 
3091 ORG77 11 GOYES RFUP-5 
92 x 
93 * MUST CHECK HERE TO SEE WHETHER ADDRESS IN C IS IN FILE CHAIN 
H94 * Address >= Begin source 
35 x 
3096 0AG79 143 A=DAT1 A 
3097 ORE7C 8B2 70>R =A ADDR GREATER THAN END SOURCE? 
O98 ORG7F 70 GOYES RFUP-3 
3099 0A681 C9 C=C+B A ADD OFFSET 
3100 OAE83 144 DATO=C A & UPDATE 
3101 OA686 03 = RFUP-3 RTNCC 
3102 - 
3103 OR688 94B = RFUP-5 7D=0) =6§ Menory expansion? 
3104 OA68B BF GOYES RFUP-3 
3105 OR68D 111 A=R1 BEGIN DEST. 
3106 0A690 8BA 70>=A A ADDRESS >=BEGIN DEST? 
3107 0R693 OO RTNYES ADDR BETWEEN BGN SOURCE & BGN DEST 
3108 OR695 01 RIN 


3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 


x 
x 
x 
FOTO ITO RO IOI TTT TITS IIIT IT 
ORR JIU SIRO STITT ITT II 
ak 


** Nane: RFAD85 - Adjusts ptrs when mer noves=>higher addr 
ak 


** Category: LOCAL 
ki 


** Purpose: 

ak Adjusts specified # of RAM pointers, to account for 
= nenory Hovenent to higher address space 

x 

*k Entry: 

xk —-RFADS6: 

a DO positioned at first RAM pointer to update 

ae P= (16-n) pointers to check/adjust, e.g. if only 

ae one pointer to be checked P=15 


as ACA)=RO Begin Source for Moving menory down 
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3129 =e D1 positioned at pointer to end source for moving menory 
3130 ak down 
3131 xn BCA) (End dest)-(End Source)= offset to add to affected 
3132 ze pointers - This will be a positive number! 
3133 ** — -RFAD84: SAME AS ABOVE EXCEPT WILL EXPLICITLY SET P, DO TO 
3134 ak UPDATE CURRST-AVNENS 
3135 kh 
3136 aX Exit: 

3137 xk Carry set 
3138 aK P=0 
3139 ak DO § nibbles past last RAM location updated 
3140 ah 
3141 *%* Calls: RFUPD+ 
3142 ie 
3143 ** Uses....... 
3144 kk Exclusive: P, DO 
3145 *x Inclusive: C(A), ACA), P, DO 
3146 aK 
3147 xk Stk Ivis: 1 
3148 an 
3143 ** Detail: Does not zero any references 
3150 aE 
3151 ** History: 
3152 a 
3153 a Date Prograrner Modification 
3154 AK www een ee cewen eer es cee enc men ene merece nnn mene nee ern nen 
3155 *X 07/04/82 9 S.M. Added docunentation 

. at 
AES FRI II I II III IDI IIA IT ISIS I ISI III IIIS IS ISI IIIS ITI ISTO SIS IIS IA 
3158 JOO UII ISI IIS III IOI ITI IAT ITH 
3159 = 
3160 * Update CURRST -> AVMENS 
3161 2 
3162 OR697 1BDS RFAD84 DO=(5) =UPDIST 

5F2 

3163 ORBSE 23 P= 15-((UPD1EN)-(UPD1ST))/5 
3164 
3165 ORBAO 7ACF RFAD86 GOSUB RFUPD+ 
3166 ORBA4 164 DO=D0+ 5 
3167 OAGBA? OC P=P+1 
3168 OR6AS SOF GONC RFAD86 
3169 ORBAC 01 RIN 
3170 - 
3171 USTUUETTCSUSTCCCCESeTeCtt tess teeter itTeUTlestetieattrctstcett: 
3172 USTCTSESTCSSCUUCCCCCTSCUTT TICS Ceres tees Teste et essst tt set eet 
3173 aX 
3174 *% Narie:(S) FORUPD - FOR Stack Update 
3175 a 
3176 ** Category:  PTRUTL 
3177 xx 
3178 ** Purpose: 
3179 a Updates references on FOR-NEXT stack 
31806 ak 
3181 x* Entry: 
3182 at P = 0 
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3183 ae RO contains Begin Source 
3184 ae D1 points to location, containing End Source 
3185 ah If want appropriate references zeroed 
3186 ak have D(S)#O and R1 containing Begin Destination 
3187 - B(R) containing offset (Bgn Source)-(Bgn Dest) 
3188 
3189 RK Exit: 
3190 an P = 0 
3191 ak 
3192 ** Calls: RFUP++ 
3193 ak 
3194 tk Uses....... 
3195 ** Inclusive: A(A), C(A), D(A), DO 
3196 a 
319? tk Stk lvis: 1 
3198 ak 
3199 ** History: 
3200 ak 
3201 an Date Progranner Modification 
3202 BR ene nnn eee err ee cee rere nner n een r renner ence n eee nenn ee 
3203 ek 01/28/83 SS. Added routine 
3204 ak 
3205 JIGS ITS SOS IIIS SI ISIS IS IIIS SII ISIS IIIS IN 
3206 JEG IIR OOO ST STITT IAT IRIS III II ISISS OSI IIIS ISIS IS 
3207 a 
3208 ORGAE 1BE9 =FORUPD DO=(5) =FORSTK 
5Fe2 

3209 OR6BS 146 C=DATO A 
3210 OR6BS D7 D=C A 
3211 OAR6BA 164 DO=D0+ 5 
3212 OREBD 146 C=DATO A 
3213 OR6CO DF CDEX A 
3214 OR6C2 BBF FORUP2 ?C>=D A 
3215 OREC5 00 RTNYES 
3216 OR6C7 7ORF GOSUB RFUP++ 
321? ORBCB D2 C=0 R 
3218 OR6CD 550 GONC  FORUP3 Not pting to purged space? 
3219 OAEDO 144 DATO=C A Zero out reference 
3220 OA6DI 3192 FORUPZ LC(2) 41 
3221 ORED7 132 ADOEX 
3222 OABDA C2 C=C+A A 
3223 OREDC 132 ADOEX 
3224 ORBDF S2E GONC FORUP2 (B.E.T.) 
SR III IIS IAAI IID II III IISI SII IIIS ISIS SSIS IIISIIIIISIISSSII ISI IIS 
3227 JI III IIIS IIIS SII IIS II ISIS IIS SSI ISI SSSISII IIIS SSSI IS 
3228 a 
3229 *k Narie: RFAD96 ~- Adjusts ptrs if nem moves=>lower addr 
320 a 
3231 ** Category: LOCAL 
3232 a 
3233 ** Purpose: 
3234 ae Adjusts specified # of RAN pointers, to account for 
3235 fe, file nerory novenent to lower address space 

ak 


3236 
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3237 ak Entry: 
3238 aS D(S)#0 => references pointing into purged address 
3239 ak space will be zeroed 
3240 RS DO positioned at first RAM pointer to update 
3241 a P= (16-n) pointers to check/adjust, e.g. if only 
3242 aK one pointer to be checked, P=15 
3243 aK A(A)=RO Begin source for moving renory up 
3244 aX Di positioned at pointer to end source 
3245 a B(A) offset (Bgn dest)-(Bgn source) NEGATIVE! 
3246 ak 
3247 ae Exit: 
3248 ak P = 0 
3249 ak Carry set 
3250 ae DO 5 nibbles past last RAM location checked 
3251 ak Any pointer pointing into purged address space 
3252 ak is zeroed 
3253 zs 
3254 ** Calls: RFUPD- 
3255 ak 
3256 xk Uses: ACA), CCA), P, DO 
3257 ae 
3258 ek Stk lvls: 1 
3259 aK 
3260 *k History: 
3261 aK 
3262 at Date Progranner Modification 
3263 RE. SeHendas . SSE SRE. east icensasloemeeereor acess e ne 
3264 - 11/04/82 SN. Wrote docurentation 
x 
eee JI IO II IO OI IIT IIIS IIIT III IIIS IIS I ISI ISI SSIS ISI ISS II ISSSA I. 
3267 JU III OT IIIT II IIS III IISA II SSIS III SSSI SII IS II IAIS IIA 
3268 $ 
3269 * Carry must be set on return for KEYDEL 
3270 * 
3271 OR6GE2 788F RFADI7 GOSUB RFUPD+ 
272 ORBEG 570 GONC RFADI8 
3273 * Only necessary for RFADJ- 
274 ORGES D2 = A 
3275 OR6BEB 144 DATO=C A 
3276 . 
277 ORGEE 164 RFADI8 DO=D0+4 5 
3278 OREF1 OC P=P+1 
3279 ORBF3 SEE GONC RFADS? 
3280 OR6F6 01 RTN 
3281 & 
3282 ‘ 
3283 . 
3284 JOO RIO IOI OUSIDE GI III TOT TTI I 
3285 FOR ROO OTOO ROO JOO OO OOOO OI OOOO OOOO OOO IOI 
3286 ak 
328? ** Nate: RFADJ+ - Adjusts Refs When Men Moves=>Higher Addr 
3288 ** Narie:(S) RFAD++ - Adjusts Refs When Men Moves=>Higher Addr 
3289 x* Narie:(S) RFAD+I - Adjusts Refs When Men Moves=>Higher Addr 
32% ay 
3294 ** Category: PTRUTL 
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3292 ax 
3293 ** Purpose: Adjust address references on the FOR/NEXT & GOSUB 
3294 aK stacks, in the FIBs, as well as the RAM locations 
3295 ae PCADDR -> TMRAD3 & CURRST -> AVMENS, to reflect 
3296 a instances of program nenory expanding into 
3297 ax higher address space. 
3298 a 
3299 kK Entry: 
3300 su B(A)= Offset (End Dest. )-(End Source) 
301 ax This nunber will be positive! 
3302 + 3 entry points: 
3303 kk 1) RFADJ+ - Bgn source in ACA). 
34 ak 2) RFAD++ - Bgn source already in RO. 
3305 ax 3) RFAD+I - D1 pointing to RAM location 
3306 ax containing pointer to end of 
3307 ak file chain - entry pt for IRANS. 
3308 RR Bgn source already in RO. 
3309 ae 
3310 RX Exit: B(R)=OFFSET; RO=BGN SOURCE; CARRY CLEAR 
3311 ae C(S )=0 => Sone address on GOSUB or FOR-NEXT 
3312 ah referenced block that noved 
3313 tk 
3314 ek Calls: RFADS8, RFUPD+, RFADSS 
3315 ax RFADS7, BUFFIB, LXFND, CSRC10, CSLCS, FORUPOD, 
3316 BM I/OFND, PRVADR, RFAD86 
3317 ax 
3318 ** Uses: A, C, D, DO, D1, RO 
3319 aK 
3320 ** Stk lvls: 2 (PCUPDT) 
3321 £% 
3322 Detail: Needed when progran men moves to higher address space 
3323 
3324 ** Note: Menory must be moved BEFORE calling this routine! 
3325 ax 
3326 ** History: 
3327 RK 
3328 x Date Progranner Modifications 
3329 RX meweeeee ewer eeerere ce cer cence ce 
33H *k 07/01/82 = S.W. Added docunentation 
3331 7 12/29/82 SN. Updates CURRST -> AVMENS 
a3 JOIST III OT ISTO III IIS IIIS II IIS IIS II ISIS IIISIA 
3334 JOS IO II I IIS TI III ISI II II IIO SITIO SISOS ISI IIS IS ISIS ISIS 
3335 & 
3336 : 


3337 OREF8 100 =RFADJ+ RO=A 
3338 OREFB 1F49 =RFAD++ D1=(5) =RVMENS 


5F2 
3339 OA702 AC3 =RFAD+I D=0 S 
3340 * 
3341 * Starting fron current FORSTK to RAMEND make one pass to 
3342 * adjust all the addresses on the stack 
3343 x 
3344 * Set 0(14,10) = CALSTK 
3345 : D(9,5) = ACTIVE 
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3346 * 
3347 OA705 1BDA PCUPD+ DO=(5) =CALSTK 
5F2 
3348 OA70C 146 C=DRTO A 
3349 OA70F 7112 GOSUB Cslc5 
3350 0A713 184 DO=DO- (CALSTK)-(ACTIVE) 
3351 OR716 146 C=DATO A 
3352 0A719 7702 GOSUB Cslc5 
3353 OA71D AFF CDEX W 
3354 0A720 AC? D=C S 
3355 * 
3356 * Now adjust the FOR-NEXT stack 
3357 x 
3358 OA723 778F GOSUB FORUPD 
3359 : 
3360 * Set up to adjust GSBSTK 
3361 * Set DO = D(A) 
3362 . D(A) = D(9,5) 
3363 , 
3364 OA727 DB RFADIO C=D A 
3365 OA729 134 DO=C 
3366 OA72C AFB C=D W 
3367 OR72F 8E00 GOSUBL =csrc5 
00 
3368 0A735 D? D=C A D(A) = Current ACTIVE 
3369 * 
3370 * Adjust the GSBSTK 
3371 : 
3372 OR737 136 RFADIS CDOEX 
3373 OR73A 8BF 7C>=D A Reached ACTIVE ? 
3374 OA73D F4 GOYES RFAD30 If so, done with current progran 
3375 OR73F 134 DO=C 
3376 OA742 15AO0 A=DATO 1 
3377 OA746 160 DO=D0+ 1 
3378 OA749 B04 A=A+1 P 
3379 OA74C 5AO GONC RFADI8 NOt a BOUNDARY or MICROCODE rtn ? 
3380 OR74F 142 A=DRTO A 
3381 OA752 8A8 7A=0—OA A BOUNDARY ? 
3382 OA755 BO GOYES RFAD2O 
3383 x 
3384 OR75? 2F RFADI8 P= 15 Want RIN 
3385 0OA?759 758F GOSUB RFAD9? Zero out appropriate addresses 
3386 OA75D 490 GOC RFADI5 (BeEst.. 
338? a 
3388 * Reached FOOOOO, rust a User-Defined Function block follous. 
3389 * Adjust all the addresses saved by User-Defined Function 
3390 x 
3391 OA?60 164 RFADZO DO=D0+ 5 Skip over the 00000 
3392 OA7H3 29 P= 9 
3393 OA765 773F GOSUB RFAD86 
3394 OAR769 16F DO=D0+ 16 
3395 OR76C 16E DO=D0+ 15 DO @ saved S-R1-2 
3396 OR76F 7BFE GOSUB RFUPD+ 
3397 OA773 16A DO=D0+ 6+5 DO @ offset of previous FORSTK 


3398 s 





Saturn Assenbler File Execution Routines<831216 Fri Dec 3, 1983 4:54 an 


Ver. 3.39/Rev. 2306 Reference Adjust (RFADJ-) Page 71 
3399 * Nou DO is pointing at the offset of the previous FORSTK 
3400 * Set DO = Previous GSBSTK 
3401 x D(A) = Previous FORSTK 
3402 x 
3403 0A776 7091 RFAD2S GOSUB PRVADR 
3404 OR77A D7 D=C A D(A) = Previous FORSTK 
3405 OA77C 164 DO=D0+ 5 
3406 OR77F 7491 GOSUB PRVADR 
3407 OR783 DF CDEX A D(A) = Previous GSBSTK 
3408 OR785 793F GOSUB FORUP2 C(A) = previous FORSTK 
3409 0A789 409 GOC RFAD1O (B.E.T.) 

3410 & 
3411 * Done with current program, see if still in a subprogran ? 
Wie * Check if 0(14,10) = RAMEND ? 
3413 x 
3414 OA78C AFB RFADH C=D OW 
3415 OR78F 8FOO GOSBVL =CSRC10 
000 
3416 OA796 1B2B 00=(5) =RANEND 
5F2 
3417 OA79D 142 A=DATO A 
3418 OA7AO 8A2 7A=C OR If current CALSTK = RANEND 
3419 OR7A3 97 GOYES RFAD7S then done 
3420 & 
3421 * Adjust addresses saved by CALL 
3422 ® 
323 OA7AS ACZ ‘ C=0 S Initialize nainfrane block flag 
24 
3425 OR7A8 134 RFADIS DO=C DO @ Current CALSTK 
3426 OA7AB 146 C=DATO A 
3427 OA7RE 96E CHO) OB Block ID # 00 
3428 0AR7B1 SO GOYES RFAD4O Nainfrane’s block ID 1s 00 
3423 OR7B3 B46 ; C=C+1 $ Use C(S) to flag end of save blocks 
AW 
3431 * Now compute the address of next block if any 
3432 r 
3433 OA7B6 D7 RFAD4O D=C A 
3434 OR7B8 164 DO=D0+ 5 
3435 OR7BB F7 DSR A 
3436 OA7BD F7 DSR A D(A) = Current block size 
3437 OR7BF 136 CDOEX 
3438 OA7C2 134 DO=C 
3439 OR7C5 C3 D=D+C A Save next block address in D(A) 
3440 OA7C7 14E C=DATO B 
3441 OA7CA 990A 7-0) =P Any addr to adjust in this block ? 
3442 OAZCD 52 GOYES RFADSO If not, goto next block if any 
3443 OA7CF 160 DO=00+ 1 Skip over the address count 
3444 OA7D2 BSA C=-C P Cornplenent the count 
3445 OAR7D5 80FO CPEX 0 
3446 OR7D9 719E RFAD4S GOSUB RFUPD+ 
3447 OA7DD 5CO GONC = RFAD46 
3448 * Don’t zero the address if the addr = Beg. Dest. 
3449 OA7EO 8A2 7A=C OR 
3450 OA7E3 70 COYES RFAD46 


3451 OR7ES D2 C=0 A 
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3452 OA7E7 
3453 
3454 OA7EA 
3455 OR7ED 
3456 OA7EF 
345? 
3458 OR7F2 
3459 OR7F4 
3460 OR7F7 
3461 
3462 
3463 
3464 
3465 
3466 OR7F9 
3467 OR7FC 
3468 OA800 
3463 OR804 
3470 OR807 
3471 OR80B 
3472 ORB80F 
3473 OA812 
3474 OA815 
3475 OA818 
3476 
347? 
3478 
3473 
3480 OR8IC 
3481 ORBIE 


3482 OAB25 
3483 

3484 

3485 

3486 0A829 
348? 

3488 OA82D 
3483 OR831 
3490 

3491 OR834 
3492 OA837 
3493 OA83B 
3494 OA83E 
3495 OR842 
3496 OAS45 
3497 OR849 
3498 OR84C 
3499 ORS4E 
3500 0A851 
3501 0A853 
3502 OA855 
3503 OR858 
3504 OA85B 
3505 ORSS5E 
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144 DATO=C A 
164 RFADS6 DO=D0+ 5 
oc P=P+1 
59E GONC RFAD4S 
x 
DB RFADSO C=) A 
34A 7c=0)— § Done with mainfrane block yet ? 
1B : GOYES RFAD35 If not, keep going 
* Set up for previous progran environment 
* set D(14,10) = previous CALSTK 
; D(9,5) = Previous TACTVE 
16E DO=D0+ 15 DO @ offset to previous CALSTK 
7711 GOSUB PRVADR 
2021 GOSUB Cslc5 
184 DO=D0- 5 DO @ Offset to previous ACTIVE 
7€01 GOSUB PRVADR 
7511 GOSUB Cslc5 
AFF CDEX WwW 
AC? D=C S 
189 DO=D0- 10 DO @ Offset to previous FORSTK 
6D5F GOTO  RFADZS Start fron the FORSTK again 
* 
* Now adjust other pointers in the systen RAN 
: DSPCHX -> TNRAD3 
25 RFAD75 P= 15-((UPDZEN )-(UPD2ST))/5 
1B4? DO=(5) =UPD2ST 
6F2 
79BE ; GOSUB RFAD9? Zeroes pointers when appropriate 
* Adjust CURRST -> AVMENS 
x 
7ROE GOSUB RFADS4 None of these will be zeroed 
* Exits with DO at AVMENE 
1917 DO=(2) =NAINEN 
146 C=DRTO R Update addresses in I/0 Buffers 
* Update references in the I/0 buffers 
134 EXTADR DO=C 
15EO C=DATO 1 Read in # of addresses to check 
B8A C=-C P Negate for RFAD97 
8000 P=C 0 Coriplenent # of addresses to update 
160 DO=DO+ 1 Point to buffer ID 
15A5 A=DATO 6 Read in ID & Length 
938 7A=0 X No nore buffers? 
42 GOYES PCUPDT External Update Done 
BF4 ASR W 
F4 RSR A 
F4 SR ) A(A) contains length 
165 DO=D0+ 6 Step over header 
136 CDOEX 
134 DO=C Restore DO in case of update 
C2 C=C+A A C(A} points past buffer 
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3506 OA860 890 ?P= 0 No pointers to update? 
3507 OA863 1D GOYES EXTADR 
3508 0A865 D7 D=C a Pointer to next buffer 
3509 OR867 777E GOSUB RFAD97 Update pointers 
3510 OA86B DB (=D 860A 
3511 OA8ED 46C ; GOC EXTADR (B.E.1.) - Look at next buffer 
3512 
3513 ; Update addresses in FIB when nenery noved 
3514 
3515 * USED A,C,D,D0 +2 SUB LEVEL 
3516 * 

3517 OA870 137 PCUPDT CDIEX SAVE D1 IN D(A) 
3518 0A873 D7 D=C A 
3519 0A875 8E00 GOSUBL =BUFFIB 

00 
3520 0A87B 7880 GOSUB 01=D 
3521 OA87F 536 GONC  LXU100 go Update LEX Buffer 
3522 OR882 110 A=RO 
3523 OR885 14E  PCU310 C=DATO B 
3524 OA888 396A 7C=0 «=«=B REACHED END OF FIB YET ? 
3525 OR88B 85 GOYES LXU100 go Update LEX Buffer 
3526 OR88D 16B DO=D0+ (oDEVCb) 
3527 OR890 1560 C=DATO P C(O) = DEVICE TYPE 
3528 0A894 160 DO=D0+ (oF BEGb)-(oDEVCb) 
3529 0A897 ROE C=C-1 P IS THIS A MAINFRAME FILE ? 
3530 OA8SA 4E0 GOC PCU340 IF SO, TAKE A LOOK AT THE POINTERS 
3531 OA89D ACE C=C-1 P IS THIS AN IRAN FILE ? 
3532 OA8AO 480 PCU340 IF SQ, CHECK THE ADDR T00 
3533 OA8A3 167 DO=D0+ (oDBEGb)-( oF BEGb) 
3534 OA8AB 503 CONC  PCU350 (B.E.T.) 
3535 OR8R9 94B = PCUI40 7020) = S$ Menory expand? 
3536 ORBAC 51 GOYES PCU342 
3537 ORBAE 146 C=DATO A 
3538 OA8B1 111 A=R1 
3539 OA8B4 8A6 ARC OAR File Start#Bgn Dest? 
3540 OR8B7 AO GOYES PCU342 
3541 OR8B9 D2 C=O) =A 
3542 OR8BB 144 DATO=C A 
3543 OASBE 560 ; GONC PCU343 (B.E.T.) 
3544 
3545 OA8C1 79AD PCUM2 GOSUB RFUPD+ UPDATE FILE HEADER ADDRESS 
3546 OA8CS 167 PCU343 DO=D0+ (oDBEGb)-(oFBEGb) 
3547 OA8CE 146 C=DATO A 
3548 OA8CB 110 A=RO 
3549 * If start of data = bgn source (empty file), don’t update 
3550 OABCE 8A2 7A=C OA 
3551 OA8D1 60 GOYES PCU350 
3552 OA8D3 7790 GOSUB RFUPD+ UPDATE DATA START ADDRESS 
3553 OR8D7 16E  PCU3SO DO=D0+ (oRECLb)-(oDBEGb) 
3554 OA8DA 16F DO=D0+ (oRLENb)-(oRECLb) 
3555 OR8DD 16A DO=D0+ (1FIB)-(oRLENb) 
3556 OR8EO 54A GONC PCU310 (B.E.T.) 
3557 : 
3558 * Update Nain Table Addresses in LEX Buffer 

x 


3559 
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3560 OR8E3 8E00 LXU100 GOSUBL =LXFND 


00 
3561 OR8E9 7D10 
3562 ORBED 500 
3563 OR8FO 110 
3564 OA8F3 14E 
3565 OA8F6 96A 
3566 OR8F9 FO 
3567 OR8FB 165 
3568 OR8FE 7C6D 
3569 OR92 164 
3570 OA90S 5DE 
3571 OR98 03 
3572 
3573 ORQOA 137 
3574 OA9OD 134 
3575 0AS10 DB 
3576 ORJ12 135 
3577 OASIS 01 
3578 
3579 
3580 0A917 146 
3581 OASIA 132 
3582 OAS1D 130 
3583 0A920 C2 
3584 OAI2Z2 O03 
3585 
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Find LEX Buffer 


GOSUB 01=D Restore D1 fron D(A) 

RTNNC Buffer not found 

A=RO Restore address to check against 
C=DATO B Read Lex ID 

C=O) —#B End of External Lex IDs? 

GOYES CLRCAR DONE 


DO=DO+ (1LXID)+(1LXTKR) Skip Lex ID and Token range 
GOSUB RFUPD+ Update Main table address 
DO=DO+ 1LXADR Skip Main Table address 

GONC LXU110 BET: 

RTNCC 


FORO JOO TOOT TO TT TIT I TKI K 


x 
x 


x 


D1=D 


PRVADR 


CDIEX 
DO=C 
C=) 
b1=C 
RIN 


C=DATO A 
ADOEX 
DO=A 
C=C+R A 
RTNCC 


3586 0A924 8DOO =CslcS GOVLNG =CSLCS 
000 


358? 
3588 
3589 


x 
x 
x 
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ACTIVE 
ARGERR 
ARGSTA 
AVE=D1 
AVAZDS 
AVMENS 
BASKEY 
=BLKOK 
BLKOK2 
BLNKC+ 
BSERR 
BUFF IB 
Bserr 
=C=MAIN 
CALSTK 
CAT$33 
CRT$90 
CATC++ 
CATEDT 
CHKSGN 
CLPSTK 
CLRCAR 
CLRFERC 
CNVWUC 
CRETF+ 
CRETNS 
CSLC5 
CSRC10 
=CURDVC 
CURREN 
CURRST 
=Cslc5 
D1=CRS 
01=D 

DECHEX 
DIGCK+ 
DIGCK2 
DIGCK3 
DRANGE 
=DVCNFE 
DVCTYP 
=EDIT 

=EDIT20 
EDIT30 
EDIT4S5 
EDIT 70 
EDIT75 
EDIT 79 
=EDIT80 
EDITS1 
EDIT83 
EDIT85 
EDITP 
=EDITWF 
EDITXE 


Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 


193960 #2F5A8 


193940 #2F594 


40576 #09E80 
40579 HO9E83 


41746 #0A312 
40976 #0A010 
193965 #2F5AD 


40626 #09EB2 
43272 #ORSOS 


42507 #OR6OB 
193900 #2F56C 
193885 #2F55D 
43300 #0A924 


43274 HORSOR 


40528 #09E50 
40544 #0SE60 
40574 #OSE7E 


42073 #OR459 
40293 #09D65 
42284 HOASZC 
42214 #ORGE6 
42227 HOR4F3 
42259 #0A513 
42304 #0A540 
42311 #0A547 
42350 HOAS6E 
42405 #0R5A5 
42421 #OASB5 
42448 #ORSDO 
42452 #0R5D4 


42291 #0A533 
42442 RORSCA 
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Table 
12 


2724 
2743 
2764 
2768 
2785 
2805 
2811 
2822 
2826 
2750 
2759 
2821 


i | 
aw 
on 
oo 
nn 
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3350 


1639 
2805 
325 
297 


2033 
1147 
3347 


657 


3566 
678 


1423 
2744 
2724 
3349 
2935 
3520 


516 
525 
580 


2508 
239 


2826 
2812 
2740 
2755 
2762 
1778 
2773 
1803 
2775 
2809 


2050 


1776 


536 


1464 
3350 


2343 


3352 
3561 
52? 


383 


2765 


2785 
2820 


2369 


N29 3338 


581 


3468 3471 


530 


2818 
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EDTEXT 
ENDALL 
EOFLC1 
EQFLCH 
EGLXCK 
EOS 
EXPEX+ 
EXTADR 
=FILEF 
FILEF- 
FILEP! 
FILEP+ 
FILEXQ 
FILFOS 
FILF10 
FILF 30 
FILF40 
FILFSO 
FILFS2 
FILFSS 
FILF6O 
FILF 70 
=FILFMF 
FILSK+ 
FILSKP 
=FILKQ$ 
=FILKQ* 
FINDA 
=F INDF 
=FINDF+ 
FINDW+ 
=F INDWF 
FLSKPB 
FLXQOS 
FLXQO?7 
FLXQ10 
FLXQ11 
FLXQ12 
FLXQ13 
FLXQ14 
FLXQ15 
FLXQ16 
FLXQ1? 
FLXQ18 
FLXQ19 
FLXQ22 
FLXQ2S 
FLXQ29 
FLXQ30 
FLXQ40 
FLXQ6S 
FLXQ 70 
FLXQ 74 
FLKQ?5 
F LKXQ80 


Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Rbs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 


42428 #OASBC 


40590 HOSE8E 


460 #0A834 
40880 #09F BO 
40899 #09FC3 


Table 


40138 #OSCCR - 


40886 #OSFB6 
40896 #09FCO 
40915 #09FD3 
40927 #09F DF 
40943 #O9FEF 
40947 HOSFF3 
40950 #OSFF6 
40956 #O9FFC 
40968 #OROOS8 


40883 #O9FB3 - 


39829 #09B95 
39798 #09B76 


40823 #09F 77 
40803 #09F63 
40877 HOSFAD 


40873 HOSFAS - 


39886 #OSBCE 
39888 HOSBDO 
39837 #OSBDI 
39937 #O9CO1 
39940 #O9C04 
39974 #09026 
40021 #09055 
40038 #O9C66 
40086 #O9C96 
40083 #09C93 
40097 #OSCAI 
40100 #OSTA4 
40103 #OSTA? 
40106 ROSTAA 
40120 #OSTB8 
40136 #09C(8 
40170 #09CER 
40185 #OSCF9 
40209 #OST11 
40224 #09020 
40228 #09024 
40286 #O9D5E 


2816 
1431 
2951 
1678 
1494 
531 
243 
3491 
1140 
1154 
277 
372 
368 
114? 
1153 
1166 
1125 
1196 
119? 
1198 
1199 
1210 
1141 
1167 
1714 
245 
232 
426 
1097 
1084 
1136 
1135 
1480 
269 
271 
274 
290 
231 
304 
320 
328 
343 
344 
34? 
JAS 
349 
350 
358 
364 
380 
388 
396 
401 
405 
420 


2807 


509 
410 
3507 
2112 
1202 


438 
1100 
1168 
1158 
1156 
1116 
1211 
1178 
1431 
1189 
110? 


889 


2003 
1442 


172? 


250 
265 
267 
260 
287 
296 
317 
323 
394 
33? 
401 
333 
302 
288 
434 
361 
375 
436 
430 


393 
562 


573 
655 
3511 


2105 
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§79 


1988 2351 2772 


1767 2116 


428 
421 
432 
386 


378 


392 
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FLXQOK Abs 39997 #09C3D 313-310 

FLXQPL Abs 40122 #O9CBA 359 326 1 

FORSTK Abs 193950 #2F59E 12 3208 

FORUP2 Abs 42690 WRECZ 3214 3224 3408 

FORUP3 Abs 42707 #0RED3 3220 3218 


FRACS Ext 687 

FSPC10 Abs 40767 #09F3F 9O 914 

FSPC15 Abs 40779 #OSF4B 93 91 
FSPC20 Abs 40781 #O9F4D 910 839 


FSPC30 Abs 40795 #O9F5B 
=FSPCER Abs 40446 WOSDFE 


915 1088 1090 

533 510 521 536 542 548 550 570 
574 1458 2045 

889 1439 2349 2764 


=FORUPD Abs 42670 MORGAE - 3208 3358 


=FSPECx Abs 40749 #O09F2D 


3535 3530 3632 
3545 3536 3540 


PCU340 Abs 43177 #ORBAI 
PCU342 Abs 43201 #0R8C1 


FIYPFD Ext - 2364 
GETPR1 Ext - 1476 1691 2359 
GTIPRH#1 Abs 40737 #09F21 - 699 695 
GIPRTH Abs 40713 HOSFO9 - 691 680 
INVFSP Ext - $33 
=LAKEYS Abs 41836 #OAZ6C - 2179 2008 
LEXBF+ Ext - 1756 
LOCR10 Abs 42538 HORG2R - 2945 2958 
LOCA20 Abs 42563 #0RE43 - 2957 2949 
LOCA25 Abs 42571 #ORG4B - 2960 2942 
LOCA30 Abs 42573 #OR64D - 2961 2955 
=LOCADR Abs 42513 #0R611 - 2937 
LXFND = Ext - 3560 
LXU100 Abs 43235 #OA8E3 - 3560 3521 3525 
LXU110 Abs 43251 #OA8F3 - 3564 3570 
MAINEN Abs 193905 #2F571 - 12 2938 3488 
MAINST Abs 193880 #2F558 - 12 1213 
MEMCKL Ext - 1744 
MFERR = Ext - 2048 
MFURQS Ext - 1447 
MOVEUT Ext - 1749 
MSIZE+ Ext - 2524 
=NAME Abs 41778 HOR332 - 2105 
NAMEDC Ext - 2100 2439 
NANEP = Ext - 2101 
NULLP Ext - 2738 
NXTSTM Ext - 1429 
OUTC1S Ext - 2514 
OUTNBS Ext - 2516 
PCU310 Abs 43141 #OA885 - 3523 3556 
PCU343 Abs 43205 HOR8C5 - 3546 3543 
PCU350 Abs 43223 #OR8D7 - 3553 3634 3551 
PCUPD+ Abs 42757 #OR705 - 3347 W356 
PCUPDT Abs 43120 HOR870 - 3517 3498 

=PDEV Abs 40606 HOSESE - 655 

=PDEV+ Abs 40603 #OSESB - 654 

=PDEV1 Abs 40612 HO9ER4 - 656 411 

PDEV3 Abs 40631 #09EB7 - 662 659 


PDVE24 Abs 40731 #09F1B 


697 661 667 





POLL 
=P011) 
PRGEXT 
PRGF 
PRGFOS 
PRGF 20 
PRGF 25 
PRGF 27 
PRGF 35 
PRGF 37 
PRGF 40 
PRGF 80 
PRGF 85 
PRGF 90 
=PRGFE 
=PRGF MF 
PRGIRM 
PRGRO+ 
=PRGROM 
PRGRIN 
=PRIVAT 
PRIVTP 
PRTHOC 
PRTHN+ 
PRTHNL 
PRTHP 
PRTHPS5 
PRI#P6 
PRT#P7 
PRIRPS 
PRTHPS 
PRVADR 
PRYT20 
PUGFIB 
PURGOO 
PURG10 
PURG2O 
PURG25 
PURG30 
PURG40 
PURC45 
PURG4? 
PURGDC 
PURGDN 
=PURGE 
PURGEP 
PURGNF 
RAMEND 
=RANRON 
RDENTY 
RDINFO 
REVPOP 
=RFAD++ 
=RFAD+I 
=RFALi-- 





Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
fibs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
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42067 
41119 
41317 
41309 
41327 
41364 
41431 
41441 
41463 
41474 
41552 
41560 
41576 
41240 
41286 
41252 
41226 
41742 
41248 
42048 


40452 
40459 
40 346 
40425 
40467 
40472 
40475 
40478 
43287 
41971 


41044 
4105) 
41068 
41091 
4113? 
41144 
41151 
41194 


41056 
41033 


41056 
193970 
4248? 


42747 
42754 
42578 


File Execution Routines<831216 Fri Dec 30, 1983 
Syribol Table 


#0A453 
#OROSF 


#0OR165 - 


#0A15D 
#0A16F 
#0R194 
#0R1D7 
#OR1E1 
#ORTF?7 
#OR202 
#0A250 
#OA258 
#0R268 
#0A118 
#0A146 
#0A124 
#0R10A 
#OR30E 
#0A120 
#OR440 


#OSE04 
#OSEOB 
#03D9R 
#OSDE9 
#OS9E13 
#O9E18 
#09E1B 
HOSETE 
#0A917 
#OR3F 3 


#0R054 
#OROSB 
#OROEC 
#0A083 
#0R0B1 
#OROBS 
#OROBF 
ROROER 


#ORO6O 
#ORO49 


#ORO6O 
#2F SB 
#ORSF ? 


#ORGFB 
#OR 702 
#OR65¢ 


' ' t ' ' ' i) 


' ' t ' ' ' t ' 1 


2498 
2497 
1452 
1699 
1695 
1701 
1712 
1744 
1747 
1753 
1757 
1790 
1794 
1803 
1670 
1687 
1675 
1665 
2042 
1673 
2441 
2440 
2521 

535 

537 

492 

525 

541 

543 

544 

546 
3580 
2369 
175? 
1424 
1426 
1433 
1442 
1460 
1463 
1465 
1484 
1418 
1429 
1420 
1413 
1428 


5 


c 


2874 
2366 
1980 

247 
3338 
3339 
3029 


1446 
1485 
1693 
1685 
1709 
1734 
1721 
1673 
1460 
1786 
1759 
1768 
2042 
1424 
1696 
1689 


1669 


507 
502 
318 
514 
526 
517 
528 
531 
3403 
2365 


1443 
1468 
1421 
1434 
1456 
143? 
1481 
1478 


1461 
1448 
3416 
1688 


1998 


1728 


1754 
1804 
1791 


3406 


1991 


1737 1739 


3467 3470 


2388 2542 


2353 
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=RFAD-I 
RFADIO 
RFADIS 
RFAD18 
RFADZO 
RFAD25 
RFAD30 
RFAD35 
RFAD40 
RFAD45 
RF AD46 
RFADSO 
RFAD75 
RFAD&4 
RFAD86 
RFADS7 
RFADS8 
=RFADJ+ 
RFUP++ 
RFUP-3 
RFUP-5 
=RFUPD+ 
=RNMO10 
RNM15 
RNMOSO 
RNMO5S 
RNIW60 
RNMO70 
RNIW85 
RNMO95 
=RNNERR 
RNMPOL 
RONCHK 
=RONF- 
=ROMF-1 
ROMF-2 
ROMF-3 
ROMFND 
RSTOFS 
RSTST 
S-CRLF 
$-RO-O 
S-RO-1 
S-R1-0 
SAVEDO 
SAVELO 
SECERR 
SECEXT 
SECPOL 
SECRO2 
SECR1O 
SECR15 
SECR20 
SECRE0 
SECR65 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Robs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Rbs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Rbs 
Abs 
Abs 


26 


42585 
42791 
42807 
42839 
42848 
42870 
42892 
42920 
42934 
42963 
42386 
42994 
436 
42647 
42656 
42722 
42734 
42744 
42603 
42630 
42632 
42606 
41583 
41606 
41698 
41701 
41705 
41750 
41709 
41764 
41754 
41714 


40991 
40988 
41006 
41013 


41562 


194673 
194678 
194689 


41947 
42023 
42028 
41903 
4191? 
41924 
41951 
41975 
41378 
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Synbol Table 


#OR659 
#OR?27 
#08737 
#0A757 
#0A760 
#OR776 
WOR78C 
#OR7A8 
#OR7B6 
#OR7D9 
#OR7EA 
WOR7F 2 
#OABIC 
#0R697 
#ORGARO 
HORGE 2 
#HORGEE 
#ORGF 8 
#OA66B 
#OR686 
#OR688 
#ORG6E 
#OR26F 
#OR286 
WORZE2 
#OR2ES 
#OR2ES 
WOR316 
#ORZED 
#0A324 
#0A31A 
HORZF 2 


#OA01F 
#OAR01C 
HOROZE 
#ORO35 


#OR25A 


#2F871 
#2F876 
#2F 881 


#OA3DB 
#OA427 
#OAA2C 
#OA3AF 
#OA3BD 
#ORIC4 
#ORIDF 
HOA3F 7 
#OR3F A 


t t+ F # b fF bb ft £ £ F F£ F Fb ft § b FF FF £ F&F t F + § ££ F £ & F Ft t FF b F b tf b bd bb te tb bb 


WH 
3364 
3372 
3384 
3391 
3403 
3414 
325 
3433 
3446 
3454 
3458 
3480 
3162 
3165 
3271 
3277 
3337 
86 
3101 
3103 
88 
1978 
1987 


1752 
3409 
3386 
3379 
3382 
3475 
3374 
3460 
3428 
3456 
3447 
42 
3419 
3486 
3168 
3279 
3272 


3216 
198 
091 
3165 


1984 
2010 
2119 
2035 
2000 
1989 
2017 
2004 
1992 


1128 
1280 
1275 


17H 


1472 
1701 
406 


2350 
2352 
2354 
2341 
2347 
2344 
2361 
2357 
2368 


3450 


3393 
3385 


3104 
3271 


2015 


2019 
2113 


1747 


1488 
1751 
414 


2391 


2442 


Ws2 3509 


3396 3446 


2039 2041 


1783 
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3545 3552 3568 


2106 2108 2110 
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SECR70 
SECR8O 
SECRDC 
=SECURE 
SECURP 
=SHOW 
SHOW10 
SHOUp 
TRMPRG 
TST12A 
UNSEC 
=UNSECR 
UPDIEN 
UPD1ST 
UPD2EN 
UPD2ST 
=WRKFIL 
ZERPGN 
=ave=d1 
bserr 
csrc5 
eDVCNF 
eFACCS 
eFEXST 
ef SPEC 
eF TYPE 
eFnFND 
=eolxc+ 
=eolxck 
fFBASIC 
FLEX 
fltdh 
Flxgi8 
flxqpl 
fspcer 
IOATEH 
1FIB 
IF LAGHh 
IFLENH 
1FNANH 
1FTYPh 
ILXADR 
ILXID 
ILKXTKR 
1TINEh 
nferr 
oBSsod 
oDBEGh 
oDEVCb 
of BEGb 
of LENh 
oF LSTr 
oRECLb 
oRLENh 
pEDIT 


Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Rbs 
Rbs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
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42000 
42015 


41889 


42086 
42096 


41062 


42008 
41872 
193945 
193885 
194214 
194164 
42467 


40772 
41113 


41217 
41220 
57876 
57864 


40519 
40035 
40456 
6 

63 


HHrIM SHA 


41758 
V7 
a 
12 
13 
32 
49 
36 
bc 
43 


File Execution 
Table 


Syrbol 
#OA410 


HOR41F - 


#OR3A1 


#OR466 
#OR470 


#OR066 


#OR418 
#0A390 
#2F599 
#2F55D 
#2F6A6 
#2F674 
HOARSE 3 


HO9F44 
#ORO99 


#OR101 
#OR104 
#OE214 


#OE208 - 


#09547 
#09063 
#OSEO8 
#00006 
#OOO3F 
#00002 
#00005 
#00010 
#00004 
#00005 
#00002 
#00004 
#00004 
HORITE 
#0001 1 
#00015 
#OOOOC 
#OO00D 
#00020 
#00031 
#00024 
#00034 
#00028 


2382 
2387 
2332 
2340 
2333 
2506 
2510 
2504 
1431 
666 
2385 
2334 
12 
12 
12 
12 
2831 
1762 
92 
1450 
3367 
1130 
1670 
2047 
915 
2821 
1198 
1493 
1494 
1 
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2376 
2383 
2337 
2335 
2338 


2541 
1427 
2379 


3163 
3162 
3480 
3480 
1135 


418 
1425 


2500 


1420 


2792 
1706 


539 

311 

582 
2794 
3555 
2794 
2795 
2021 
2793 
3569 
3567 
356? 
2794 
2025 
2783 
3533 
3626 
3528 
2783 
1732 
3653 
3554 
2817 


3163 
3481 
2759 


1440 


2340 


2790 
2372 


2117 


3546 
3528 
3533 


1772 
3554 
3555 


1454 


2754 


1683 
2794 


2501 
3653 
3546 
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1486 2043 2362 2822 


170? 2371 


2791 
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Ver. 3.39/Rev. 26 Synbol Table Page 81 
pFILXQ Abs 3 #00003 11 360 
pFPROT Abs 11 #00008 11 2395 
pFSPCx Abs 5 #00005 11 911 
=pPOLL2 Abs 41720 WOR2F8 - 2033 2396 
pPRGPR Abs 50 #00032 11 1666 
pPURGE Abs 16 #00010 11. 1453 
pRNANE Abs 17 #00011 11 2028 


2498 §=6359 = 910 «1452 «1665 2027 2394 2816 
2444 1196 1273 2507 2944 
2446 1210 1276 2540 2957 


poll Abs 42067 #ORG53 
sronchk Abs 42055 #0A447 
z=ronfnd Abs 42061 #OA44D) 


( ¢ @ © F § § § 8 & # & F € F F FH F £ ££ F F Ft 


rstst Abs 40743 #09F27 701-244 
sDEST Abs 3 #00003 11. 1979 1997 
tALL = Ext 1435 

tCARD Ext 427 

tCOLON Ext 433 

tEOL ~=—s Ext 2799 

tKEYS = Ext 2174 

=tKYSck Abs 41821 #OA35D 2173 1433 2346 
tLITRL Ext 43? 

tMAIN Ext 431 

tPCRD Abs 4063727 #EOTEF 11-389 
tPORT = =Ext 429 

tXWORD Ext 435 
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Ver. 3.39/Rev. 2306 Statistics 

Input Paraneters 
Source file nane is SG8FXQ: AS 
Listing file name is SG/FXQ:TI:ML::~-1 
Object file nane is SGAFXQ:TI:MS::-1 


141111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 x SSS. BBBB& FFFFF CCC N N 
2 s S S$ B B && F C CN N 
3 * S B B&& F C NN ON 
4 x SSS. BBBB& FFFF OC NNN 
5 x SB 8B &&& F C N NN 
6 & SS 8 8 8 8. F C ¢C N N 
7 & SSS BBBB && & F cct N N 
8 a 
9 TITLE Function Definitions <831212.1206> 
10 OR92B SBFCN ABS  #0A92B 
11 
12 
13 JS TIT III AIA I ISI ASI III ISIS ISI OSI IS SAII SIA 
14 JORIS OTITIS TTT IIT SS TOT IS TI TIT ISA IIIS IK 
15 ae 
16 *k Nane:(S) pVER$ - VER$ Staterent Extension Poll 
17 ak 
18 kk Category: POLL 
49 ha 
20 *k Type: FPOLL 
ak 
** Purpose: 
a Allows a lex file to show its presence and revision 
= code. 
ak 
** Should poll be "Handled" (return with XM=0)?: 
ak Nott 
ak 
** Meaning of "Handling" Poll (what does code do if handled’): 
ak Not applicable 
ik 
** Entry conditions for handler (registers, ST, RAN, etc.): 
at B[A] = Poll number. 
tk R2=(AVMENS) 
ae R3=Stack pointer 
mn HEX node. 
tk P=0, 
ak 


** Normal exit conditions fron handler if handled (ST, RAM, 
*k registers, etc.): 


kk Not applicable 
ak 


*k Worrial exit conditions fron handler if not handled (ST, RAM, 
xk registers, etc.): 


APARAARAEHSHHHSHHHSEWWWWWGVVUNaANNNNNNnnn 
On & wn — WOM M AWA DOW WNH WM HWP — WD oow HOT & wo = 


RE HEX wode. 

aK KN=1. 

ai R2=( AVMENS ) 

ak R3=New Stach pointer 

at 

&* Error exit conditions fron handler (POLL only): 
ad Not applicable 

ae 

** Available subroutine levels: 
kt 2 

ae 


Saturn Assenbler 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
20 
71 
72 

: 73 
i 74 
75 
76 
: 77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
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Page 2 
** What registers/RAM nay be used if handled?: 
“ Not applicable. 
ke 
** What registers/RAN nay be used if not handled?: 
te A-C, D[15-5) DO, D1, P 
aX NOTE: D[A] 1s sacred in FPOLL!! 
o* Ri and R4. Function scratch is available in the 
aa unlikely event 1t it needed. 
a 
xx What registers/RAN nay be used if error exit (POLL only)?: 
a Not applicable 
te 
** Special menory/pointer considerations (are pointers funny?): 
kk This occurs during expression execute so keep in mind 
** the rules of that gane. 
he 
** Envisioned application(s): 
ak The poll handler is expected to add onto the string 
xx being built on the stack. The stack pointer is kept 
ak in R3 and must be decrenented to point to the new 
ae end of the string. Available menory should be checked 
al by conparing against the AVNEMS (which resides in R2). 
tk 
= The string added should have a leading blank followed 
hk by a short (~3-5 characters) nane describing the lex 
ak file and optionally followed by a colon and a revision 
aX code. The revision code will usually be just a digit 
ae but a nore complicated code nay be required for a 
aX multi-chip ROM. 
ak 
kx History: 
&k 
sia Date Progranner Modification 
ths oveande-- eenkeewanes —kogeaceseeele eee k ee aemnedeceneeon 
kx 06/08/83 B.S. Added docunentation. 
£x 


FORO TOR TO TOTO IIT TI IT I TI TI TTI 
FOR TIO OJ IIIT OR ITT TT TTT TI 
TORO IIR ROJO IOI TOO IOUT 
FOR TORII TO TOTO TTT TK 
ax 


** Nane: VERS - VER$ function 
ae 

** Category:  FNEXEC 

a 

** Purpose: 

RX Inplenents the VER$ function 
ak 

&* Entry: 

xx Pp = 0 

ax D1 points to top of stack 

* DO is progran pointer (points past VER$ token) 
ke 

RA Ent? 

ae Pp = 0 





Saturn Assenbler Function Definitions <831212.1 Fri Dec 30, 1983 4:20 an 


Ver, 3.39/Rev. 2306 Page 3 
i Ae. Exits thru EXPR 
112 a 
113 ** Calls: XXHEAD , BF 2STK, STKCHR, FPOLL, D=AVMS, ADHEAD, EXPR 
114 ie 
115 tk Stk lvls: 2 
116 ax 
117 ** History: 
118 km 
119 ae Date Progranner Modification 
120 KK ceeslend. Jackeocieticy mateo cesscsccoese ence e ce ea bow es ek es 
121 xk 07/28/83 B.S. Added docunentation 
122 ax 
423 JOO IO OIC III OO OIC OI 
124 JO ITI COO UTI IIIT OT IO 
125 OR92B VER" 
126 OR9ZB 8405 NIBASC \HP71:1\ 
7313 
A313 
127 0A937 FF NIBHEX FF 
128 
129 0A939 00 NIBHEX 00 
130 OA93B 34B2 =VER$ LC(5) VER" 
SAO 
131 OA942 850 ST=1 0 Return fron BF2STK 
132 OA945 8F0O GOSBVL =BF2STK Put buffer onto stack 
000 
133 OA94AC 8FOO GOSBYL =XXHEAD Reriove stack header 
0 
134 0A953 136 CDOEX 
135 OA956 108 RO=C Save PC 
136 
137 0A3959 1B00 DO=(5) =RIREV 
000 
138 OR960 7040 GOSUB REVCHR Get ROM 1 rev 
139 OR964 1R00 DO=(4) =R2REV 
00 
140 OASBA 7340 GOSUB REVCHR Get ROM 2 rev 
141 OASGE 1800 DO0=(5) =R3REV 
000 
142 OR9?75 7830 GOSUB REVCHR Get ROM 3 rev 
143 OR979 1ROO 0O=(4) =R4REV 
00 
144 OAS?F 7E20 GOSUB REVCHR Get ROM 4 rev 
145 
146 0A9383 DB C=B A 
147 OA985 10A R2=C R2=(AVNENS) for ROMs to use 
148 OR988 137 CDIEX 
143 OAISB 108 R3=C Save Stack pointer 
150 OAS8E 8E0O GOSUBL =FPOLL Poll ROMs for their versions 
00 
151 08994 60 CON(2) =pVER$ 
152 OR996 118 C=RO 
153 OA999 134 DO=C Restore PC 
154 ORSSC &FOO GOSBYVL =D=AVNS 


000 
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Ver. 3.39/Rev. 206 Page 4 
155 ORSAI 118 C=R3 
156 ORSRE 135 01=C Restore stack pointer 
157 ORSAI 7690 GOSUB Adhead 
158 ORSAD 6C30 GOTO EXPR; 
159 Ks 
160 x 


161 ORB! 14E —REVCHR C=DATO B 

162 ORGB4 8D00 =stkchr GOVLNG =STKCHR 
000 

163 *- 

164 s. 
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Ver. 3.39/Rev. 2306 NUN Page § 
165 STITLE NUM 
166 JIC ISU OCOD TTI TTT ITI TIE 
167 JO IO IOI IOI IOI TIT TIS TOE III TI TI IK 
168 a 
169 *k Nane: NUM - NUM function execution 
170 ax 
171 ** Category: FNEXEC 
172 ax 
173 ** Purpose: 
174 Kk Inplenents the NUN function 
175 Km 
176 ** Entry: 
17? KK = 0 
178 ae D1 = Stack pointer 
179 vis DO = Program counter (points past NUM token) 
180 
181 aK Exit: 
182 aR D1 updated to neu top of stack 
183 a Exits thru EXPR 
184 ae 
185 ** Calls: POP1S,HDFLT,EXPR 
186 xk 
187 ** Stk lvls: 1 
188 x 
189 *k History: 
190 ik 
194 7 Date Progranner Modification 
192 RR: ich Ssus2e. Aisa vtech e mse tetec es cote ese oe ess 
193 - 07/28/83 B.S. Added docunentation 
ic JOS IOI III ICT III III IIT TIE TR 
196 JOR I OI III OTT ISI TIT IIIT IIIT IIIT ISITE IIT IDI IIIT IIR 


197 ORSBB 411 
198 ORSBE 8£00 
00 
199 ORSC4 137 
200 OASC? C2 
201 OAST9 135 
202 OASCC AFS 
203 ORSCF AFO 
204 ORBDZ BAY 
205 ORSDS Bi 
206 ORSD? 11 
20? ORSDR 14B 
208 ORSDD 1CD 
209 OAIEO 8E00 
00 
210 ORSEG 161? 
211 ORSEA 800 
00 
212 
213 
214 OASFO 1CF 
215 OASF3 S2F 
216 


NIBHEX 411 
=NUM GOSUBL =POP1S Check for string on stack 
CDIEX 
C=C+A A 
D1=C Pop string off stack 
B=A W B(A)=string length 
A=0 W Zero 
*B=0) =A Null string? 
GOYES NUN2O Yes, then return 0 
DI=D1- 2 Point to first character 
A=DAT1 B Read in first char 
DI=D1- 14 Set ptr to urite out numeric iten 
GOSUBL =hdflt Convert byte to decinal float 
NUN10 =DATI=A W Write out NUN value 


=EXPR) GOLONG =EXPR 


NUN20 B1=D1- 16 Set ptr to urite out nun iten(0) 
GONC NUNIO (B.E.T.) 
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217 en 
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218 STITLE CHARSET$ 
219 IIIA IIT IORI IIIT III III I III III II SIS III III III ISS SOS I SSIS ISI SSSI AS: 
220 FOI ITO OT I IIIA IIIT IIIISII III SIT I SII IIS ISSA SSSI SIS SSI IAS 
221 ais 
222 ** Nane: CHRST$ - CHARSET$ function 
223 ah 
224 ** Category: FNEXEC 
225 aa 
226 **k Purpose: 
227 ak Inplerients the CHARSET$ function 
228 a 
229 xk Entry: 
230 ak P = 0 
231 an D1 is stack pointer 
232 . DO is program counter (points past CHARSET$ token) 
233 
234 RK Exit: 
235 xx P = 0 
236 ak D1 is new stack pointer 
237 ote Exits through EXPR 
238 a 
239 ** Calls: D=AVNS , IOFNDO, CHRBUF , ADHEAD 
240 ak 
241 ** Stk lvls: 1 
242 ae 
243 ** History: 
244 aR 
245 ak Date Prograrner Modification 
246 BAS Meet ee! ee eee! + Bette ews ee eee eOueeraae see 
247 Re 07/28/83 «B.S. Added docunentation 
kk 

a JOO III TI TIT III III III II DIT II III II IIIT ATE IE LRTI TT 
250 $I IDI III TIT TOA II STOTT A IID III IIIT ITI IIIT IIIT III III IAI II 
251 OASF6 00 NIBHEX 00 
252 OASFS 8FOO =CHRST$ GOSBVL =D=AVNS 

000 
253 OASFF DS B=C A Save stack pointer 
254 OAAO1 109 R1=C Save it for ADHEAD too. 
255 OARO4 3200 LC(3) =bALTCH 

0 
256 ORADS 8E00 GOSUBL =IOFNDO Find buffer 

00 
257 ORROF 440 GOC CHRS$2 Found? 
258 OAAI2 DO A=0 A No, then return null string 
259 ORAI4 8FOO CHRS$2 GOSBVL =CHRBUF Find actual character set 

000 
260 ORAIB 137 CD1IEX C(A)=Buffer ptr, Di=stack ptr 
261 ORAIE 136 CDOEX C(A)=PC,00=Buffer pointer 
262 ORAZ1 108 RO=C RO saves PC 
263 OARZ4 81C ASRB Divide length by 2 for bytes 
264 ORAZ? A3C CHRS$3 A=A-1 XK Decrenent byte count 
265 ORAZR 4FO GOC CHRS$4 
266 ORA2ZD 14€ C=DATO B Read byte fron buffer 
267 ORA30 161 DO=DG+ 2 
268 ORA33 7D?F GOSUB stkchr Add byte to stack 
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269 OAA37 SFE GONC CHRS$3 (B.E.T.) 
270 ORAZA 118 CHRS$4 C=RO Recall PC 
271 OAA3D 134 DO=C Restore PC to DO 


272 OAR4O 840 $T=0 Don’t return fron ADHEAD 


0 
273 OAAG3 8D00 =Adhead GOVLNG =ADHEAD 
000 


Saturn Asserbler 
Ver. 3.39/Rev. 2306 UPRC$ 
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274 STITLE UPRC$ 

275 JUS IOI OC OO ITS TI IIIT IIIS II STII ISS 

276 JU ICI IO IIIS I IIS IIIS II SOT III IS III IA 

277 aK 

278 ** Nane: UPRC$ - UPRC$ function 

279 aK 

280 *k Category: FNEXEC 

281 aK 

282 ** Purpose: 

283 ig Inplenents the UPRC$ function 

284 aK 

285 ek Entry 

286 ak P = 0 

287 aK D1 is stack pointer 

288 . DO 1s progran counter (Points past UPRC$ token) 

289 

2% ek Exit 

291 ak P = 0 

292 ae D1 is new stack pointer 

233 ak Exits thru EXPR 

294 ak 

295 *k Calls: POP1S, CNVUCR, EXPR 

296 aR 

297 kK Stk Ivls: 1 

298 a 

239 *k History: 

300 ok 

301 a Date Progranner Modification 

302 Ph. Golivcon -eitccasewa: fuepesit etc eee ee 

303 ek 07/28/83 B.S. Added docunentation 

304 kh 

305 SII IIIT ITI IID D ITT STII TALI ITI ATI TI SI ISI SSIS SIS ISIS SSIS TN 

306 JO IIIT III RI IIIS IIS ISI TTI IIT IIIS IS IIT I DITA IIS IS 

307 : Upper case conversion 

308 ORR4R 411 NIBHEX 411 

309 OAR4D 137 =UPRC$ CDIEX 

310 OARSO 135 D1=C 

311 OAAS3 D? D=C A 

312 ORASS 8E0O GOSUBL =POP1S 
00 

313 ORASB AFI B=0 W 

314 ORASE D8 B=R A 

315 ORRGO 810 BSRB Convert to bytes 

316 ORAG3 CD UPRC10 B=B-1 A Decrenent loop counter 

317 OARGS 421 GOC UPRE20 

318 ORAG8 8FOO GOSBVL =CNVUCR A=DAT1 B,Convert to upper case 
000 

319 ORROF 149 DAT1=A B 

320 ORR72 171 Di=D1+ 2 

321 ORA75 SDE GONC UPRC10 (B.E.T.) 

322 ie 

323 a 

324 ORA?8 DB UPRC20 C=D A 

325 ORA?A 135 D1I=C 

326 OAR?D 6COF GOTO EXPR) 


Saturn Assenbler Function Definitions <831212.1 
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327 ORA81 END 


Fri Dec WK, 1983 


4:20 an 
Page 10 
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ADHEAD Ext - 273 
=Adhead Abs 43587 HORAA3 - 273 157 
BF2STK Ext - 132 
CHRBUF Ext - 259 
CHRS$2 Abs 43540 #0AAI4 - 259 267 
CHRS$3 Abs 43559 #0AR27 - 264 269 
CHRS$4 Abs 43578 HOAA3A - 270 265 
=CHRST$ Abs 43512 #OASF8 - 252 
CNVUCR Ext - 318 
D=AVNS Ext - 154 252 
EXPR Ext - 211 
=EXPR} Abs 43498 HO0ASEA - = 211 158 326 
FPOLL Ext - 150 
ITOFNDO Ext - 256 


=NUN Abs 43454 #ORSBE - 198 
NUM10 =Abs 43494 HORSE6 - = 210 215 
NUN20 Abs 43504 #OROFO - 214 8 205 


POP1S Ext =". [93° dhe 
RIREV Ext = 13? 

R2REV Ext =. 439 

R3REV Ext - 141 

R4REV Ext =. 183 
REVCHR Abs 43441 #0A9B1 - 161 138 140 142 144 
STKCHR Ext - 162 
=UPRC$ Abs 43597 HORRAD - 309 
UPRC10 Abs 43619 #ORA63 - 316 321 
UPRC20 Abs 43640 #ORA78 - 324 317 
VER" Abs 43307 HOA92B - 125 130 
=VER$ Abs 43323 #0R93B - 130 
XXHEAD Ext = 83 
bALTCH Ext = eb 

hdfit Ext = 209 

pvER$ = Ext ae St 


=stkchr Abs 43444 #OR9B4 - 162 268 
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Input Paraneters 
Source file nane is SB&FCN: 2 AS 
Listing file name is SB/FCN: TI:ML::-1 
Object file nane is SBZFCN: TI: MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 


Saturn Assenbler Zero File - End of chain Fri Dec 30, 1983 3:18 an 
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1 TITLE Zero File - End of chain 
2 00000 00 NIBHEX 00 
3 00002 END 
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Input Paraneters 
Source file narie is JP&ZER: MS 
Listing file nane is JP/ZER:TI:NL::-1 
Object file nane is JPZZER: TI: MS::-1 


1111411 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 


Saturn Assenbler HP-71 Revision Nunber Fri Dec ®, 1983 5:20 an 


Ver. 3.39/Rev. 206 Page 1 
1 & TTITT III & RRRR EEEEE VV 
2 x T I &&% R RE Vey 
3 x T I 8&& R RE VY 
4 k T I & RRRR_~ = EEEE VV 
5 & T I &&8& RR E VV 
6 x T I && RR E Vy 
7 x T III 8@&& & R- R_ EEEEE y 
8 
9 TITLE HP-71 Revision Nunber 


10 00000 24 NIBASC \B\ 
11 00002 END 


Saturn Assenbler HP-71 Revision Nunber 
Ver. 3.39/Rev. 2806 Statistics 


Input Paraneters 
Source file nane is TI8REV::MS 
Listang file nare is TI/REV: TI:ML::-1 
Object file name is TIZREV:TI:MS::-1 


119911 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 


Fri Dec 3, 1983 5:20 an 
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Ver. 3.39/Rev. 2306 


ROM 2 Fix Module 


5:19 an 
Page 1 


Fri Dec 3, 1983 


1 a TITIT III & FFFFF X xX 222 
2 % T I 68 xX xX 2 2 
3 & T I 68 x x 2 
4 A T I & x 22 
5 a T TI 8&8&& K X 2 
6 k T I & & KX xX 2 
? x T III 8&& X X 22222 
g x 
9 TITLE ROM 2 Fix Module 
10 OAAR85 ABS #ORRES 
11 x TITLE BUGFIX MODULE 
12 
13 ORA8S5 OBO =B9605A NIBHEX OBO NUMERIC, BASE 0, DIN 1 
14 ORA88 097 NIBHEX 097 NUMERIC, BASE 0, DIN 2 
15 ORA8B ORO NIBHEX ORO NUMERIC, BASE 1, DIN 1 
16 ORA8E 046 NIBHEX 046 NUMERIC, BASE 1, DIN 2 
17 OAR91 CE2 NIBHEX CE2 STRING, BASE 0, DIN 1 
18 ORA94 440 NIBHEX 440 STRING, BASE 0, SIMPLE 
19 ORA97 8AZ NIBHEX 8A2 STRING, BASE 1, DIM 1 
20 ORASA 440 NIBHEX 440 STRING, BASE 1, SIMPLE 
21 
22 ORAID Dé =B9605B C=A A 
23 ORASF 8FOO GOSBVL =CSRC4 
000 
24 ORARE 20 P= 0 
25 OAARS 36F8 LCHEX OO00008F 
0000 
0 
26 OARBI 02 RTNSC 
er . 
28 * Fix to SR¥ 1040-5 
29 * SST a RETURN with ELSE following the GOSUB 
9) x 
31 * Update PCADDR @ RETURN address 
32 * Position PCADDR @ the line length 
33 : Requires skipping over EOL or "@" 
4 
35 ORAB3 134 =UPDPCA DO=C DO @ Return address 
36 ORRB6 14A A=DATO B Read EOL or @ 
37 OARBS 161 DO=D0+ 2 Move past EOL or @ 
38 ORABC 20 P= 0 
39 ORABE 90C 7AHO | OP Not EOL ? 
40 ORAC1 50 GOYES UPDPC3 
41 ORAC3 163 DO=DO+ 4 Skip over Line nunber 
42 OARC6 136 UPDPC3 CDOEX Move address to C 
43 ORACS 800 GOLONG =UPDPCC Update PCADDR 
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Ver. 3.39/Rev. 2306 Symbol Table Page 2 
=B9605A Abs 43653 #ORA85 - 13 
=B9605B Abs 43677 #OARSD - 22 

CSRC4 Ext - 23 


UPDPC3 Abs 43718 RORATE - 42 40 
=UPDPCA Abs 43699 #ORAB3 - 35 
UPDPCC Ext “ 43 


Saturn Assenbler ROM 2 Fix Module Fri Dec ®, 1983 5:19 an 
Ver. 3.39/Rev. 206 Statistics Page 3 


Input Paraneters 
Source file nane is TI8FX2::NS 
Listing file nane is TI/FX2:TI:AL::-1 
Object file name 1s TIZFX2:TI:MS::-1 


4411111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn fssenbler News 
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OF % 0 


Array EQU 


I 


String EQU 
NonEx EQU 
OpBase EQU 
NoZero EQU 


ak 
xk 
ak 
kk 
ak 
an 
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A BBBB & RRRR EEEEE G66 
R RE 

R RE 

AR A BBBB & RRRR = EEEE 

&&& RR E 

& & RR ECE 

A A BBBB 8&& R R EEEEE GGG 
TITLE Variable Creation Routines <831216.1818> 
ABS #ORBFE 8 


o 


G66 
G 
G 


OOO Qa 


RDSYMB TIZEQU:: AS 


nDEF €QU 


WWh-—OoO do 


FORO IIIT TOI OTT TT TTI TTI RIT IT ITI IR 
SORT IO TI TOO OOO TOT K 


Nare: INTEGR - Dinension Variables 
Nane: SHORT - Dinension Variables 
Nane: REAL - DPinension Variables 
Nane: DIN - Dinension Variables 


Category: STEXEC 


Purpose: 
Execute INTEGER, SHORT, REAL and DIM statenents. 


Entry: 
DO=PC, pointing past INTEGER, SHORT, REAL or DIM token. 
Junped on said token. 
P=0, 


Exit: 
Through NXTSTH. 


Calls: PREP, DPVCTR, SPACE, DMNSN. 


Detail: 
SYNTAX: DIM A,A1(15),A2(3,6), B$, B1$[26], B2$(5)[30]} 


THE FOLLOWING TOKENS ARE EXPECTED: 
Sinple Variable - tDIM tVAR tCONMA 
Nuneric Array - tDIM tARRAY tVAR EXPRESSION tCONNA 
String - tDIN tVAR ; EXPRESSION tCOMNA 
String Vector - tDIM tARRAY tVAR EXPRESSION ; 
EXPRESSION tCOMMA 


History: 


Date Progranner Modification 


we wee eee wer ne ew ree we ww ww wwe = we a ew ww ee we ew ew ee meee ewe 
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56 aig SA Wrote 
57 kk 10/18/83 NM Attenpted to docurent 
58 ak 
59 IIIS ISAK ETAT DT TD TDD TED EIR II IIIS IIIS ISIS III III ISIS SII SSIS STII A 
60 II IIA ITAL ITI IDI I IIIT IDI IAI ISS ISS ISS I SII IIIISI SSI SII ISIISS SII SIA 
61 OABF8 0000 REL(5) =DECDC 
0 
62 OABFD 0000 REL(5) =DECP PARSE ROUTINE FOR REAL 
0 
63 OACO2 =INTEGR 
64 OACOZ =SHORT 
65 OACO2 6000 =REAL GOTO DINSTH ENTRY POINT FOR REAL 
66 
67 OACOG 0000 REL(5) =DECDC 
0 
68 OACOB 0000 REL(5) =DIMP 
0 
69 OATIO =DIN 
70 OAC1O 181 =DINSTM DO=DO- 2 
71 OAC13 14E C=DATO B REREAD TOKEN 
72 ORC16 161 DO=D0+ 2 
73 OAC19 1FOO D1=(5) =S-R1-3 
000 
74 OAC20 1550 DAT1=C P STORE DATA TYPE INDICATOR 
75 ORC24 7781 DNSTMN1 GOSUB PREP INITIALIZE 
76 OAC28 7420 GOSUB DPVCTR CREATE DOPE VECTOR 
77 OAC2C 109 R1=C 
78 OAC2F 7A61 GOSUB SPACE COMPUTE SPACE REQUIRENENTS 
79 QOAC33 7202 GOSUB DMNSN DIMENSION VARIABLE 
80 OAC37 ACE COC DMSTM1 IF NOT AT END, REPEAT DMSTM1 
81 OAC3A 6424 GOTO CRIRIN REPEAT NXTSTN 
82 JIT I IDI I STITT IRD DIT IIIS IIIT IIA III IIIS III IIIA III IIIS IIA 
83 JO III ITD TTI II STII ITT II IIS IIIT III IIIS IIIS IS IIA 
84 AK 
85 ** Wane:(S) LIMITS - Compute Dinension Linits In Decl Stnt 
86 af 
8? ** Category:  EXCUTL 
88 a 
89 ** Purpose: 
90 ee Compute the dinension linits in a declaration statenent 
91 AS (INTEGER, REAL, SHORT, DIM). Collapses the stack 
92 e beforehand. 
93 aS 
94 ANOENLEY: 
95 ae DO pointing at start of tokenized expression. 
96 i 
97 PERLE: 
98 AE DO pointing past expression. 
99 x D1 @ top of math stack. 
100 ah 
101 ** Calls: COLLAP, EXPEX+. 
102 ae 
103 BP Uses. cees 
104 am Everything available to expression execute. 


105 a 


Saturn Assenbler Variable Creation Routines <83 Fri Dec 30, 1983 2:39 an 


Ver. 3.39/Rev. 26 Page 3 
106 ** Stk lvls: = 5 
107 ak 
108 ** History: 
109 ax 
110 ze Date Progranner Modification 
111 RS 2oects20 . -Shcecestee. Sieeser sconces ew cldce Se etecesseses 
112 tk SA Wrote 
113 - 10/18/83 NM Attenpted to docunent 
x 
ve JUICE OI OOOO OO TTI TTI IS IIIT ISIS IIS IA 
116 SIRI RII III IIS ITI I TI III ISIN IIIS IIIS SSSI III SOI SISIISSSSIIIIS IIS 
117 OAC3E 8E0O =LINITS GOSUBL =COLLAP 
0 
118 OAC44 8E0O GOSUBL =EXPEX+ 
00 
119 OAC4A 8000 GOLONG =RSTST 
120 - JU IR I RII II TIT IT IIT OATI ITI SSI IIIS IIIS SII ISISSIIIISISSSI IIS ISS 
121 $I RII ITO II IIIT ITI OT III IIIIS SSSI III SOI I IIS SISIISIISSISSI SII SIA 
122 | Re 
123 Nane:(S) DPVCTIR - Creates Vars, Conputes # Of Elenents 
124 
125 *k Category: VARNGT 
126 sx 
127 ** Purpose: 
128 - Creates prinary variables(dope vectors), conputes 
129 ae nuriber of array units to allocate 
1% ak 
131 ** Entry: 
132 as Sane as exit conditions fron PREP, ie 
133 a P = 0 
13¥4 ax DO points to dinension expression(s) if array 
135 a A(X), (S-R1-2) = 3-digit code for variable 
136 ae B(R), (S-RO-O) = Address of variable(if it exists(S2=0)) 
137 aK (S-RO-1 thru S-R1-1) zeroed 
138 ae Array(SO) set iff it is an array 
139 a NonEx(S2) set iff variable/array doesn’t already exist 
140 xt String(S1) set iff string variable/array 
141 ae OpBase(S3) set iff OPTION BASE 1 
142 5e 
143 RX Exit: 
144 = P = 0 
145 - C-register has the following infornation: 
146 x 
147 RK He wwe nnn nner donne nnceen pee nceeenee te-t--4--4+ 
148 ax LETTTTTT AS |dindant 1 |dindint 2 | bi dl ti 
149 RK Heer eer eter doe nan enwenpoceneneren to-t--4~-4 
150 ax 4 4 11 1 
151 a where t is datatype indicator 
152 ee d is dincount 
153 an b is baseoption 
154 a dinlint 2 1s second dinlinat or max string length 
155 RA dinlint 1 is first dinlinit 
156 a or 


157 ae 
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158 Re aaa aati aciateatnateiatetatate +--+ 
159 ne | zeroes | tl 
160 kk t--------- ----- +--+ ee = +--+ 
161 ae 
162 as where t is datatype indicator (0 for real) 

163 is for real, short, and integer simple variables. 
164 ax 
165 am A(R) = nunber of array units 
166 ax B(X) = 3-nibble code for variable 
167 aX S-RO-1 = 1st subscript if is an array 
168 ax S-RO-2 = 2nd subscript if is a 2 dimensional array 
169 a = Maxinur string length if string 
170 aa S-R1-0 = Nunber of elenents for numeric array 
171 a 
122 ** Calls: LIMITS ,GETDIN, A-MULT 
173 ig 
174 ** Uses....... 
175 ** Inclusive: A,B,C,D,RO,R1,R2,R3, R4, DO, D1 
176 a 
17? ** Stk lvls: 6 
178 = 
179 ** History: 
180 x 
181 a Date Progranner Modification 
182 Me Deeds" eke | elie ee eet A 
183 cs SA Wrote 
184 a 
185 JI IO OO TORTI II II TI ITI TIT TIT TAT II ITE III TAIT III TITAN 
186 JOSS IIIT TOIT OTT SI IA IAI 
187 OACSO AC3 =DPVCTR D=0 S 
188 OAC5S3 860 ?$T=0) Array SIMPLE VARIABLE? 
189 OACSE 53 GOYES ¥CT10 IF $0, GOTO VCT10 
1% OAC58 72EF GOSUB LIMITS COMPUTE DINLINITS 
191 ORC5C AC3 D=0 S 
192 OAC5F B47 D=0+1 § INCREMENT DINCOUNT 
193 ORC62 7501 GOSUB GETDIN GET DINLINIT 
194 ORC66 17F D1i=D1+ 16 
195 OACES 17 D=C A 
196 OACHB 137 CDIEX 
197 ORCBHE 1F00 D1=(5) =FORSTK 
000 
198 OAC?5 143 R=OAT1 A 
199 OAC 78 SA2 *A=C OR STACK EXHAUSTED? 
20 OAT?B O41 GOYES VCT10 IF NOT, GOTO VCT10 
O01 ORC7D 137 CDIEX 
202 ORT8O B47 D=D+1 § INCREMENT DINCOUNT 
203 ORLE3 74EO GOSUB = GETDIN GET DIMLINIT 
204 OATS? DF CDEX A SWAP WITH PREVIOUS DIMLIMIT 
205 OAT89 DA A=C A 
206 ORC8B 1FOO VCT1I0 Dt=(5) =S-RO-3 
000 
207 OACS2 AFB C=D W 
208 ORT95 1554 DAT1=C S$ SAVE DINCOUNT IN $-RO-3 
209 OAC99 1(4 DI=DI- 5 
210 OACIC 145 DAT1=C A SAVE FIRST DIMLIMIT IN S-RO-2 
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211 OACOF 1C4 Di=D1- 5 

212 OACA2 141 DATI=A A SAVE SECOND DIMLIMIT IN S-RO-1 

213 OACAS 361 7$T=0 String STRING? 

214 ORCRE 82 GOYES VCT20 IF NOT, GOTO VCT20 

215 OACAA 148A R=DATO B READ DELIMITER 

216 ORCAD FO ASL =A 

217 OACAF 3402 LCHEX 00020 LOAD DEFRULT STRING LENGTH 
000 

218 ORCBE 966 7AMC OB SEMICOLON TOKEN? . 

219 ORCBS DO GOYES C115 IF NOT, GOTO VCT15 

220 OACBB 161 DO=D0+ 2 

221 OACBE 7C7F GOSUB LIMITS COMPUTE STRING LENGTH 

222 OACC2 75R0 GOSUB GETDIN 

223 OACCE 1FOO VCT15 b1=(5) =S-RO-1 
000 

224 OACCD 145 DATI=C A STORE STRING LENGTH 

225 OACDO 147 VCT20 C=DAT1 A READ SECOND DINLINIT 

226 OACD3 174 D1=D1+ 5 

227 OACDE 143 A=DAT1 A READ FIRST DINLINIT 

228 OACD9 174 Di=D1+ 5 

229 OACDC 1534 R=DAT1 S READ DINCOUNT 

2% OACEO 17F Di=Di+ 16 

231 OACES 1574 C=DAT1 S$ READ DATATYPE 

232 ORCE7 873 ?ST=1 OpBase BASE OPTION ZERO? 

233 OACEA & GOYES vCTH IF NOT, GOTO VCT# 

234 OACEC £4 A=A+1 —A INCREMENT DINLIMIT 

235 OACEE 871 7§T=1 String STRING? 

236 ORCF1 40 GOYES VCTH IF SO, GOTO VCTH 

237 OACF3 E6 C=C+1 A INCREMENT DINLIMIT 

238 OACFS 861 VCT3O ?ST=0 String STRING? 

239 OACF8 41 GOYES vVCT40 IF NOT, GOTO VCT40 

240 ORCFA 850 ST=1 Array 

241 OACFD DE ACEX A 

242 OACFF £4 A=A+1 A 

243 ORDO1 £4 A=A+1 A 

244 OADO3 B44 A=A+1  § 

245 OADOG ACZ (=o) =—s § 

246 ORDOD ASE C=C-1 § 

247 OADOC AAC VCT40 A=A-1 S$ SIMPLE NUMERIC VARIABLE? 

248 OADOF 4B3 GOC © VC T60 IF SO, GOTO VCT6O 

249 ORDI2 ICE 01=01- 15 

250 OADIS 948 7A=0 SS ONE DIMENSION? 

251 OAD18 BO GOYES VCTSO IF $0, GOTO VCT5O 

252 ORDIA 8E00 GOSUBL =a-nult COMPUTE NUMBER OF ELEMENTS 
© 

253 OAD20 5E3 CONC  TOOBIG IF 100 BIG, GOTO TOOBIG 

254 OAD23 141 VCTSO DATI=A A SAVE NUMBER OF ELEMENTS IN S-R1-0 

255 ORD26 1CB D1=D1- 12 

256 OAD29 15F9 C=DAT1 10 READ 1ST DIMLIMNIT TO A(9-6) 

257 ORD2D 1C0 D1=D1- 1 

258 OAD30O 15F5 C=DAT1 6 READ 2ND DIMLINIT TO A(5-2) 

2539 OAD34 178 Di=D1+ 12 

260 OAD37 1570 C=DAT1 P READ DIMCOUNT 

261 OAD3B 812 CSLC 


262 ORD3E ARZ C=0 KS 
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263 OARD41 
264 OAD44 
265 OAD46 
266 OAD49 
267 OAD4B 
268 ORD4D 
269 OADSI1 
270 OADSA4 
271 ORDS? 
272 ORDS9 
273 OADSD 
274 

275 OADSF 


863 
00 
B26 
02 
DO 
80DF 
AF2 
89C 
6F 
80FO 
02 


8000 
00 
8000 
00 


276 ORDES 
27? 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

2%) 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

1 

Re 

3 

4 

#5 

6 

xX? 

8 

9 

310 

311 

312 

313 ORDEB 8E00 

00 

314 ORD?71 04 


Fri Dec 3, 1983 2:39 an 


Page 6 


Variable Creation Routines <83 


BASEOPTION ZERO? 
IF SO, RETURN CARRY SET 


?8T=0 OpBase 
RTNYES 
C=C+1 
RTNSC 
A=0 A 

P=C 15 
C=0 W 

?P= 12 
GOYES VCT?0 
CPEX 0 
RTNSC 

SIO TI TOS TIT ITI II IIT IIT III III SAS II SII IDI ISS TIS ASIII SII SSSI 


TOOBIG GOLONG =MENERR 


RS 


VCT 60 


VCT 70 YES, BUT IT’S SHORTER 


DATATP GOLONG =CNFLCT 


JI II SII IIS TOSI III IIIT II II III ITI IIIS I IIIA II STI SID ISI IS 
JI IO IIIT III IIIT IIT I III ITI TI III SII II ITI IIIA II IIIIII IIIA A 
tok 

** Nane:(S) GETDIN - 
tok 
ik 
tk 
ee 
ok 


Get A Dinlinit Fron Stack 


Category: | VARNMGT 
Purpose: 
Pop dinension linit fron stack and check range. 


Entry: 
D1=stack pointer. 


P=0, 

HEX rode. 

Errors out if result conples (eDATTY) or out of range 
(eARGOR). 

ALA}=dinlinit. 


Calls: FLTDH, POPIN. 


A,B,C,P. 


kk Stk lvls: 2 
ke 


** History: 
xx 
ka 
aa 
kr 
* 10/18/83 

ke 

FES SC CECT ESS OSCE SESS ECCS CCECCCESE SSC ESCT CSS SSCECECCECSSS CCS EC CSE SESS 
SOIT FOI TOO I ITO FOO 


=GETDIN GOSUBL =POP1N POP DIMNLINIT 


Modification 


Wrote 
Atternpted to docunent 


Progranner 


SA 
NN 


SETHEX COMPLEX NUMBER? 
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315 OAD73 41F GOC DATATP If SO, GOTO DATATP 
316 OAD76 8E00 GOSUBL =fltdh CONVERT TO HEX INTEGER 
00 
317 OAD7E 470 GOC = GTDN10 IF OK, GOTO GTDMN10 
318 ORD7F 8AC PAHO OAR DIALIAIT = 07 
319 OAD82 71 GOYES ARGORL IF NOT, GOTO ARGORL 
320 ORD84 863 GIDMIO 7ST=0 OpBase BASEOPTION ZERO? 
321 ORD87 70 GOYES GTDN20 IF SO, GOTO GTDN20 
322 ORD89 8A8 7A=0) OA DIMLIMIT = 0? 
323 OAD8C DO GOYES ARGORL IF $0, GOTO ARGORL 
324 OAD8E D6 «=—s«sGTDN2O (=A 
325 OADIO F2 CSL A 
326 OAD92 Fb CSR A 
327 OAD94 8A2 7A=C OR DINLIMIT < 2.16? 
328 OADI? OO RTNYES IF SO, RETURN CARRY SET 
329 ORDSS 6BC2 ARGORL GOTO  ARGOR SHORT JUMP LINKAGE 
330 JOIST ISS IOI STII I IIT SSIS SOS SS II ISS SSIS ISS SIS AN 
331 JOIST OI I TIT IOI III TOS IITA SSI IIS II IIA 
332 ak 
333 . Name:(S) SPACE - Compute Space Needs For An Array 
334 
335 *% Category: VARMGT 
336 ah 
337 *% Purpose: 
338 pe Calculate space requirenents for an array. 
339 
Ho ** Entry: 
41 a2 P=0, 
2 = A(R] = nunber of array units needed. 
343 at C[O} = data type: 
4 = A - Integer 
W5 xe B - Short real 
346 aa C - Real 
47 = D - Short conplex 
48 xk E - Conplex 
49 ak Error exit (eMEM) if > address space. 
350 an 
351 aK Exit: 
352 xk A,RO = space requirenents in nibbles. 
353 ER P=0, 
354 = 
355 ** Calls: LENGTH, A-MULT. 
356 ak 
357 &* Uses....... 
358 ea A,B,C,RO. 
359 ak 
360 ** Stk lvls: 1 
361 xk 
362 *k History: 
363 an 
364 aA Date Progranner Modification 
365 RE. Gocoless ( <oescsSetes “tote kcc eco ce oes ee ee 
366 aR SA Wrote 


367 xk 10/18/83 9 NM Attempted to docunent 
k 
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363 

370 

371 ORDID 70E7 

372 OADA1 8E00 
00 

373 ORDA? 57B 

374 OADAR 100 

375 OADAD 01 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

38? 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

42 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 OADAF 04 

419 OADB1 20 

420 OADB3 840 

421 OADBe 14A 

422 ORADBY 3100 


ak 
xk 


=§ 


ak 
xx 
ak 
ax 
xk 
ax 
ax 
ak 
xk 
xk 
xk 
wk 
xk 
xR 
ak 
ax 
ax 
xx 
aa 
xk 
ax 
a 
ak 
xr 
aK 
xx 
ak 
ak 
xk 
xx 
xk 
xx 
xx 
xk 
ak 
a 
ak 
ax 
xx 
ax 
ax 
xk 


=p 
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JOR Ok 
OOO TOI TOTTI TT TTR TOK 


PACE GOSUB LENGTH COMPUTE SPC REQTS IN NIBS 
GOSUBL =a-nult 


GONC TOOBIG 
RO=A 


FORO ITI TO OTT TK 
SOO TOTO OUI TO IO TT TTT III 


Nane:(S)} PREP - Prepare To Create A Variable/array 
Category: VARNGT 


Purpose: 
Prepare to create a variable or array 


Entry: 
DO points to tokenization of a variable or array in 
sone "din" statenent. 


Exit: 
P = 0 
A(X), (S-R1-2) = 3-digit code for variable 
B(A), (S-RO-O) = Address of variable(if it exists(S2=0)) 
(S-RO-1 thru S-R1-1) zeroed 
Array(SO) set iff it 1s an array 
NonEx(S2) set iff variable/array doesn’t already exist 
String(S1) set iff string variable/array 
Carry and OpBase(S$3) set iff OPTION BASE 1 


Calls: ADDRSS, C=ACTV, BASE 


Inclusive: 00,01,S0,$1,S2,S3,A(A),B(A), CCW), D(A) 
Stk lvls: 2 


Note: Takes error exit if trying to change a function 
paraneter. 


History: 


Date Progranner Modification 


SOGOU OR FOI IOI OOOO TIO OOOO IOI IO 


JUICE I OC CTT SE TTR TT 
REP SETHEX 

P= 0 

ST=0 Array 

A=DATO B 


LC(2) = tARRAY 
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423 ORDBD 966 ANC OB ARRAY DECLARATION 7 
424 ORDCO 80 GOYES PREP10 IF NOT GOTO PREP10 
425 OADC2 850 ST=1— Array SET ARRAY FLAG 
426 OADCS 161 DO=D0+ 2 PASS THE ARRAY TOKEN 
427 OADCS 841 PREPIO ST=0 String 
428 ORDCB 14A R=DATO B 
429 OADCE 3102 LCHEX 2D 
430 OADD2 966 PAHC OB STRING DECLARATION? 
431 OADDS 50 GOYES PREP20 IF NOT, GOTG PREP2O 
432 ORDD? 851 ST=1 String SET STRING FLAG 
433 OADDA 852 PREP2O ST=1 = NonEx 
434 OADDD 8E00 GOSUBL =ADDRSS SEARCH FOR THE VARIABLE 
00 
435 OADE3 132 ADOEX 
436 ORDEG 401 GOC PREP3O IF NOT FOUND, GOTO PREP3O 
437 ORDED 842 ST=0 = NonEx DENOTE EXISTING VARIABLE 
438 OADEC D5 B=C A SAVE NAME IN B 
439 OADEE 7ER4 GOSUB C=ACTV 
440 OADF2 &B2 7A<C OA FUNCTION PARAMETER? 
441 ORDFS 83 GOYES NORDIN IF SO, GOTO NORDIN 
442 OADF7 1FOO PREP3O D1=(5) =S-R1-2 
000 
443 OADFE DC RBEX A LEAVE ADDRESS IN B 
444 OREOO 141 DATI=A R SAVE NAME IN S-R1-2 
445 OREO AF2 C=0 Wl 
446 ORES 1C9 D1=Di- 10 
447 OREOS 1509 DAT1=C 10 CLEAR STUFF 
448 OREOD 1CF D1=D1- 16 
449 ORE10 D9 C=B A 
450 ORE12 1557 DATI=C W SAVE ADDRESS IN S-RO-0 
451 ORE16 132 ADOEX 
452 ORE19 843 ST=0 OpBase 
453 OREIC 8E0O GOSUBL =BASE 
+4) 
454 ORE22 550 GONC  PREP40 SET BASEQPTION FLAG 
455 ORE25 853 ST=1  OpBase 
456 OREZ8 132 PREP4O ADOEX 
457 OREZB 01 ; RIN RETURN 
aeg FIR IR I I IIE SI IID III III IS II III II IIIT II IISIISI SII IIIA II ISIS 
460 JI II IIIT ISI ITI III III I IIIS IIIS SI SISSSIISIISII SSI ISS 
461 ak 
462 kk Narie:(S) NORDIN - Report "Var Context" Error 
463 mF 
464 ** Category: SYSTEM 
465 aX 
466 ** Purpose: 
467 ax Report "Var Context" as an execution error. 
468 xe 
469 ** Entry: 
470 RK P = 9 
471 ae $13=0 if not a running progran (i.e., keyboard 
472 ak execution error) 
473 ak $13=1 if running progran 


474 aK 
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475 
476 
477 
478 
479 
480 
481 
482 
433 
484 
485 
486 
4387 
488 
489 
4% 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
51? 
518 
519 
520 
S21 
522 
523 
524 
525 
$26 
Sel 
528 
529 


OREZD 3100 
ORE31 66F1 
ORES 692F 
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aK Exit: 
ak Exits to BASIC main loopo (ERRRTN) 
kk 


xk Calls: MFERR 


ak 


RK Uses....... BASIC nain loop can use anything 
ak 


** Stk lvls: BASIC main loop can use all 
ak 

*k NOTE: 

ak Setting P=0 selects the following error options: 
ak -~ not a parse error 

ax ~- store ERRN (and ERRL if S13=1) 
ak -- display "ERR:" (or "ERR L<#>:") 
ik 

*k Detail: 

&k =NORDIN LC(2) =eVCNTX 

ak GOLONG =NFER 

ah 

** History: 

ih 


ig Date Progranner Modification 
Pha -Gugecwee. eeeiGeseee ~ 2 heer site eee ets e 


Ak 11/09/83 MB Docunentation 

ak 

JI JO IOS II TI II OO III IOI IIT TO TTT IK 
JOR II OOO ITI IIT IIS IT III IIIS III IS IIIT IIIS II III IIIT I IA 


=NORDIN LC(2) =eVCNTX CAN’ T REDINENSION 
GLORP GOTO SMFERR 


BIGLNK GOTO § TOOBIG 
JI IOI IIS SOROS SOT SOT IIIS II IIIT IIIT III III IIIT ITT IIR IT TN 


FORO IO TOIT TT TOT TTT TT TTDI INIT IIIT DIT TI ITN 
ak 


is Nane:(S) DNNSN - Create And Allocate Menory For Variable 
* 

** Category: VARNGT 

ae 

*k Purpose: 

al Create simple numeric/string variable, nuneric array 
re and string vector. 

& 

ek Entry: 

wk Array(SO) = 1 Create array 

am = 0 Create sinple variable 

Ax String(S1) = 1 String variable 

= = 0 Numeric variable 

ae NonEx(S2) = 1 Create new variable 

aK = 0 Redinension existing array 
a D = Dope vector of the variable 

ER A = # of elerents of the array 

a C = Elernent length in nibbles 

ia DO = PC 

ae R2(X) = Variable nane 

EX S-R1-1 = Variable address 1f already exist 
x 
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5H” x Exit: 
531 S Carry CLEAR if PC is pointing at end of line. 
532 
533 ** Calls: A-MULT, CR-VAR, CR-ARR, AJDEST, ARYSIZ, CR-ADJ, 
534 a ADRS40, WIPOUT 
535 ae 
536 &x Uses: A,B,C,D,RO,R1,R2,R3,S3,P 
537 ae 
538 *X Stk lvls: 3 
539 ax 
540 &* History: 
541 ax 
5A2 tk Date Progratiner Modif ication 
543 OR Sect ees Eee eteteee: eee reeee ee ee oe 
544 ak SA rote 
545 ik 
546 SEI II IIIT III III IIT IAS II ISSI IIIA IIIS ISI III ISSSIIS 
547 $I IO OTD IIT II III IIIS I ISI III IIS I IIIS II SI SSI III SISIIS 
548 ORE39 853 =DNNSN ST=1 NoZero Don’t zero array contents 
549 ORE3C 136 CDOEX SAVE PC ON HARDWARE STACK 
550 ORE3F 06 RSTK=C 
551 ORE41 136 CDOEX 
552 ORE44 1F00 D1=(5) =S-R1-2 
000 
553 ORE4B 147 C=DAT1 A GET VARIABLE NAME 
554 ORE4E 10R R2=C 
555 ORES1 872 ?S$T=1  NonEx NEW VARIABLE? 
556 ORES4 23 GOYES DMNSN1 IF SO, GOTO DMNSN1 
557 ORESE D5 B=-C =A NEW 
558 OAES8 8£00 GOSUBL =ADRS40 NEW; SEARCH FOR VARIABLE 
00 
559 ORESE D9 C-B OAR NEW 
560 ORE6O 135 Di=C 
561 ORE63 1537 A=DAT1 W READ PRIMARY VARIABLE 
562 ORE67 310E LCHEX £0 
563 ORE6B 9E6 *AC OB PARAMETER? 
564 OAEGE FB GOYES NORDIN IF SO, GOTO NORDIN 
565 ORE?70 871 ?ST=1 String STRING? 
566 ORE73 65 GOYES REDIN IF SO, GOTO REDIN 
567 ORE75 3180 LCHEX OA 
568 ORE79 982 AcE OP SIMPLE REAL? 
569 ORE7C AO GOYES ONNSN1 IF SO GOTO DANSNI 
570 ORE7E 308 LCHEX 8B 
571 ORE81 SE6 “ADC =iB SIMPLE INTEGER OR SHORT ? 
572 ORE84 54 GOYES REDIN IF NOT, GOTO REDIN 
573 ORE86 118 DNNSN1 C=RO C= REQUIRED SIZE 
574 ORE89 8E00 GOSUBL =chkspc CHECK IF MEMORY SUFFICIENT 
00 
575 ORESF 45A GOc BIGLNK CARRY CLEAR IF MEMORY SUFFICIENT 
576 ORES2 112 A=R2 
577 ORES5 ABS B=A xX RETRIEVE NANE 
578 ORE98 7F14 GOSUB CR-VAR CREATE PRIMARY VARIABLE 
579 ORESC 119 C=R1 
580 ORESF 1547 DATO=C W STORE PRIMARY VARIABLE 


581 ORER3 860 *ST=0 Array ARRAY? 
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582 ORER6 AO 


583 
5384 


ORERS 
OREAC 


7295 
7E05 


585 OAREBO 07 


586 
587 
588 
589 
590 


OREB2 
OREBS 
OREBS 
OREBB 
OREBF 


134 
14A 
161 
3100 
962 


591 OREC2 00 


592 


OREC4 


181 


593 OREC? 03 


594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 


608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 


ORECS 
ORECC 
ORECF 
ORED1 
ORED4 
ORED? 
OREDS 
OREDC 
OREDE 
OREE1 


OREE3 


OREES 
OREEB 
OREEE 
OREFO 


OREF 2 
OREF 6 
OREFS 
OREFD 
OAFOO 
ORFO3 
ORFO6 
ORFOA 
ORFOD 
ORFOF 
ORF 114 
ORF 13 
ORF 16 
OAF 19 
OAF 1B 


119 
861 
RO 
ABO 
AB2 
26 
912 
50 
843 
20 


8E23 
20 


D7 
137 
06 
D8 


7874 
463 
7874 
TE 
17E 
174 
7144 
5B 
0? 
06 
EB 
143 
8B2 
DO 
C3 
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GOYES DMNSN2 
GOSUB CR-ARR 
GOSUB AJDEST 
DMNSN2 C=RSTK 
DO=C 
ENDCHK A=DATO 
DO0=D0+ 
LC(2) 
7A=C 
RTNYES 
00=D0- 
RTNCC 


nh co HW ROO 


REDIM C=R1 
?$T=0 String 
GOYES REDIN 


Ax OX 
C70 x 
P= & 


REDIN? ?A=C = WP 
GOYES REDIN2 
ST=0  NoZero 

REDIM2e P= 0 


tCONNA 
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IF NOT, GOTO DMNSN2 

CREATE ARRAY SPACE 

ADJUST DESTINATION ADDRESS 
RESTORE THE PC 


READ NEXT TOKEN 

COMMA? 

IF SO, RETURN CARRY SET 
RETURN CARRY CLEAR 


NUNERIC? 
IF SO, GOTO REDIMI 


WIPEOUT REQUIRED? 
IF NOT, GOTO REDIN2 
SET FOR WIPEQUT 


* CREATE THE NEW VARIABLE OVER THE EXISTING VARIABLE 
* 


x 


GOSUBL ARYSIZ 


COMPUTE EXISTING ARRAY SIZE 


* NOW D1 POINTS TO THE ARRAY POINTER 
C = ARRAY POINTER ( OFFSET RELATIVE 10 D1) 
A = EXISTING ARRAY SIZE IN NIBBLES 


& 


x 
x 


- e we 


d=C A 
CDIEX 
RSTK=C 
B=A A 


D = ARRAY POINTER 


SAVE D1 ON RSTK 
SAVE ACA) IN BCA) 


Check if any pending dest is in the range of this array ? 
If so, don’t let then redinension this array 


GOSUB getcnt 
GOL CR¥2H 
GOSUB =PRNCHN 
CRV210 Di=Di+ 15 
D1=D1+ 15 
Di=D1i+ 5 
GOSUB DESTCK 
GONC CRV220 
C=RSTK 
RSTK=C 
C=(-D A 
A=DAT1 A 
“AcE OR 
GOYES C 
C=C+B A 


RY220 


C(A) = low addr of the array 
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636 OAFID 
637 ORF20 
638 
639 ORF22 
640 


641 

642 

643 OAF26 
644 ORF 2A 
645 

646 ORF20 
647 ORF 2F 
648 ORF 32 
6439 ORF 34 
650 OAF37 
651 OAF3A 
652 OAF3D 
653 OAF40 
654 OAF42 
655 ORF4S 


656 

657 ORF47 
658 ORF4A 
659 OAF4D 
660 ORFS1 
661 

662 ORFS55 
663 OAF58 
664 OAFSA 
665 OAFSC 
666 OAFSE 
667 ORF 61 
668 OAF63 
669 ORF 66 
670 ORF 68 


671 OAFGE 
672 ORF71 
673 OAF75 
674 ORF?7 
675 ORF 78 
676 ORF 7F 
677 ORF82 
678 ORF 84 
679 OAF86 
680 OAF89 
681 ORFS8C 
682 ORF8E 
683 

684 ORF92 
685 ORF 94 
686 ORFS? 
687 OAF99 
688 OAF9B 
689 ORF 9D 
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8BE 7A>=C A 

60 ; GOYES CRV220 

6ROF GOTO NORDIN CAN’T REDIMENSION 


k 
* See if we get to the botton of the nested user-def fn yet ? 
k 


7274 = CRV220 GOSUB NXPRM+ 
420 : COC CRV210 
07 CRV2%0 C=RSTK Restore D1 & A(A) 
135 di=C 
D4 A=8 A 
118A C=R2 RESTORE VARIABLE NANE TO B(x) 
RBS B=C x 
128 CROEX C = NEW ARRAY SIZE 
8B2 700A =A NEW > EXISTING ? 
51 GOYES CRV¥240 IF SO, GOTO CRV240 
8B6 7c<A OA NEW < EXISTING ? 
D4 GOYES CRV¥260 IF SO, GOTO CRV260 
* NEW AND EXISTING ARRAY ARE THE SAME SIZE 
1CA Di=D1- 11 
129 CRIEX C= THE DOPE VECTOR 
15DA DAT1=C 11 
6570 GOTO  CRV300 
* WEW ARRAY LARGER THAN EXISTING ARRAY, EXPAND EXISTING ARRAY 
100  CRV240 RO=—A RO= EXISTING ARRAY SIZE 
£2 C=C-A A C= ADDITIONAL SPACE 
DF CDEX A D= ADDITIONAL, C=ARRAY POINTER 
cE C=A-C A EXISTING ARRAY END ADDR = D1-C+A 
133 ADIEX 
CA A=AtC A 
130 DO=A DO POINTS EXISTING ARRAY END 
DB C=0 A C= ADDITIONAL SPACE REQUIRED 
8E00 GOSUBL =chkspc CHECK IF STILL ROOM 
00 
560 CONC  CRV250 IF NOT, SIGNAL NO ROOM 
6DED GOTO  TOOBIG 
D8 CRV250 (=D A C= ADDITIONAL SPACE TO EXPAND 
7E75 GOSUB GAP 
78A5 COSUB ADJPTR ADJUST ALL THE CHAIN POINTERS 
136 CDOEX DO POINTS TO NEXT CHAIN HEAD 
DA A=C A R= LOW END ADDR OF NEW GAP 
DB C=D A 
AC2 C=0 S DENOTE POSITIVE ADJUSTMENT 
128 CROEX RO= ADDITIONAL, C= EXISTING SIZE 
EA A=A-C A R= NEW ARRAY BASE ADDRESS 
6030 GOTO  CRV270 
* WELW ARRAY SMALLER THAN EXISTING ARRAY, SHRINK EXISTING ARRAY 
EA CRV260 A=A-C A A= # OF NIBBLES TO EXTRACT — 
137 CD1EX D1= NEW ARRAY SIZE 
EB C=C-D A C= START OF ARRAY ADDRESS 
DE ACEX A C= # OF NIBBLES, R= START ADDRESS 
0? D=C A D= # OF NIBBLES TO EXTRACT 
C2 C=A+C A C= NEW ARRAY START ADDRESS 
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690 OAFOF 108 RO=C RO= NEW ARRAY START ADDRESS 
691 OAFAZ 137 CDIEX C= NEW ARRAY SIZE 
692 OAFAS C2 C=AtC A C= START EXTRACTING POINT 
693 OAFA7 134 dO=C 
694 ORFAR 7925 GOSUB EXTRCT 
695 ORFAE FB D=-D =A D= 10’S CMPLMT OF NIBS TO EXTRACT 
696 ORFBO 7375 GOSUB ADJPTR ADJUST ALL CHAIN POINTERS 
697 ORFB4 136 CDOEX DO POINTS TO NEXT CHN HEAD ADDR 
6398 OAFB? 120 AROEX A= NEW ARRAY START ADDRESS 
699 ORFBA DB (=-b OA 
700 ORFBC 108 RO=C RO= 10’S CMPLNT OF EXTRACTED SIZE 
701 ORFBF 71C4 CRV270 GOSUB CR-ADJ ADJ ARRAY PTRS IN THE SANE CLASS 
702 ORFC3 77F3 GOSUB AJDEST ADJUST DEST. ADDR 
703 OAFC7? 11A CRV300 C=R2 GET THE VARIABLE NAME BACK 
704 OAFCA ABS B=C x 
705 ORFCD 8E00 GOSUBL =ADRS40 FIND THE VARIABLE ADDRESS AGAIN 
00 
2706 ORFD3 870 ?ST=1 Array CREATING ARRAY VARIABLE ? 
70? ORFD6 21 GOYES CRV310 IF SO, GOTO CRV310 
708 OAFD8 871 ?$T=1 String IS IT A STRING VARIABLE ? 
709 OAFDB 00 GOYES CRV310 IF $0, GOTO CRV310 
710 OAFDD 119 C=R1 
711 OAFEO 1547 DATO=C W ZERO THE THE NUMBER 
712 OAFE4 68CE GOTO  DMNSN2 GOTO DANSN2 
713 OAFE8 873 CRV310 ?ST=1 NoZero FOR RE DIN ? 
714 OAFEB B1 GOYES CRV320 IF SO, GOTO CR¥320 
715 OAFED 136 CDOEX SET D1 = DO 
716 ORFFO 135 01=C 
717 ORFF3 7426 GOSUB ARYSIZ COMPUTE ITS NEW SIZE 
718 ORFF? 133 ADIEX A= ARRAY PTR ADDR, D1= ARRAY SIZE 
719 ORFFA EE C=A-C A C= ARRAY START ADDRESS 
720 ORFFC 137 CD1EX D1= ARY START ADDR, C= ARY SIZE 
721 ORFFF 8FOO GOSBVL =WIPOUT ZERO THE ENTIRE ARRAY 
000 
722 OBOO6 6B9RE CRV320 GOTO DNMNSN2 GOTO DANSN2 
723 POSS SSS SOS SSC SSE SESE SSOSSS SC OCCSE SSCS SSCS SSESCES CESSES CCE SECTS SSS 
724 JIC IO IDOI III III EI TOI TOT I ITD IIT 
725 ae 
726 ** Nane: STAT - STAT Statenent Execute 
727 ae 
728 ** Category:  STEXEC 
729 ae 
730 ** Purpose: 
731 a Execute STAT staterent. 
732 Aa 
133 ** Entry: 
734 a DO=PC. 
735 = Junped on STAT token. 
736 aX 
73? AMER 
738 ae Errors out (eARGOR) if arg out of range. 
733 ae Through NXTSTH. 
740 ee 
741 ** Calls: Cslc5, DMNSN, DPVCTR, PREP, SPACE. 
+k 


742 


Saturn Assenbler Variable Creation Routines <83 Fri Dec W, 1983 2:39 an 


Ver. 3.39/Rev. 2306 Page 15 
743 ** History: 
744 an 
745 ae Date Prograrner Modif ication 
746 RE elo “eee es. “yee eee ee oe ell Bo ee 
747 xk SA Wrote 
748 as 10/18/83 = NM Attenpted to docunent 
7 x 
a JI III TI TIT RI ID II III SII II IIS SII IIIS SII ISI III IS IIS SI II SIII IS 
751 FI III III TI TI II IIIS III III III SII IIIS SI IIS OSI IIIS ISI IS ASIII. 
752 OBOOR 0000 REL(S) =STATDC 
0 
753 OBOOF 0000 REL(5) =STATP 
0 
754 08014 779D =STAT GOSUB PREP 
755 0B018 870 *ST=1 Array NEW STAT ARRAY? 
756 0B01B 05 GOYES STRT4 IF SO GOTO STAT40 
757 OBO1D D4 A=B A 
758 OBOIF 862 *ST=0 NonEx SUPPOSEDLY EXISTING ARRAY FOUND? 
759 08022 B1 GOYES START20 IF SO, GOTO STAT2O 
760 0B024 3100 =NOSTAT LC(2) =eIVSAR NO SUCH STAT ARRAY 
761 0B028 8COO SMFERR GOLONG =MFERR ERROR 
00 
762 
763 OBOZE 31CE STAT1O LCHEX EC 
764 0B032 966 7AHC OB PARAMETER POINTER? 
765 0B035 FE GOYES NOSTAT IF NOT, GOTO NOSTAT 
766 0B037 171 D1=D1+ 2 
767 OBO3A 143 A=DAT1 A READ PARAMETER ADDRESS 
768 0BO03D 131 STAT20 DI=A 
769 0B040 143 R=DAT1 A READ TYPE INFORMATION 
770 0B043 32C1 LCHEX 81C 
8 
771 08048 936 PARC OK STAT ARRAY? 
772 OBO4B 3E GOYES STAT1O IF NOT, REPEAT STATIO 
773 OBO4D 1C2 Di=D1- 3 
774 OBO50 1573 C=DAT1 X 
775 0B054 1FOO STAT3O D1=(5) =STATAR 
000 
776 OBOSB 1553 DAT1=C X STORE STAT ARRAY NANE IN STATAR 
777 OBOSF 8COO CRIRTN GOLONG =NXTSTN RETURN 
00 
778 
779 08065 8COO ARGOR GOLONG =ARGERR 
00 
780 
781 OBO6B 71EB STAT40 GOSUB DPVCIR GENERATE DOPE VECTOR 
782 OBO6F D2 C=0 A 
783 0BO?71 30F LCHEX F 
784 08074 8B3 7c<D =A MORE THAN 15 INDEPENDENT VARS 
785 08077 EE GOYES ARGOR IF SO, GOTO ARGOR 
786 08079 DB C=D A 
78? OBO7B DS B=C A 
788 0807D C9 STAT5O C=B+C A COMPUTE NUMBER OF ARRAY ELEMENTS 
789 OBO7F CD B=B-1 


A 
790 0B081 5BF GONC STRT5O 
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791 0B084 DA 
792 OBO86 E4 
793 0B088 7000 
784 OBO8&C DB 
795 OBO8E Fe 
796 0B090 BF2 
797 0B093 BF2 
798 0B096 32C1 
8 

793 OBOSB 109 
800 OBOSE 7BFC 
801 OBOAZ 739D 
802 OBOAG 171A 
803 OBOAI GRAF 
804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 OBOAD 310 
841 OBOB1 3982 
842 OBOB4 00 
843 OBOB6 Bab 
844 OBOBS SEA 


xk 
xk 
ak 
ak 
ak 
xx 
xk 
ax 
xk 
ax 
xx 
xk 
ak 
ak 
xx 
ak 
ak 
ak 
wk 
ax 
xx 
ak 
xx 
xk 
xx 
ax 
xx 
xk 
ak 
xt 
ax 
aK 
xk 
ax 
ak 
ak 


V 
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A=C A 
A=A+1 A NUMBER OF ELEMENTS IN A(A) 
GOSUB =Cslc5 DINLIMIT IN NIBBLES 7-10 
C=D A INDEPENDENT VARIABLE COUNT IN 3-6 
CSL A 
CSL W 
CSL W 
LCHEX 81C STAT WITH BASE 0, DIM 1, REAL 
Ri=C R1=DOPE VECTOR 
GOSUB SPACE COMPUTE SPACE REQUIREMENTS 
GOSUB DMNSN CREATE RRRAY 
C=R2 LOAD THE STAT VARIABLE NANE 
GOTO STATO GOTO STATH 
JI III III IR IIIT IIT II IIIA TIA I I III ISIS III IT IASI IISA IIA 
XIII IDI I III ITI ISI ITS II III TI II IIS ISIS IS IIIS IS ISIS ISS I IIIS IIIA 
Nane: VCTRCK - Check Dope Vector For Simple Var 
Category: VARNGT 
Purpose: 
Deternine if a dope vector contains a sinple variable 
or 1s a pointer to sonething. 
Entry: 
P=0,. 
A[B]=first byte of dope vector. 
Exit: 
P=0, 
Carry set iff dope vector contains sinple variable 
(i.e., simple integer or short variable). 
Calls: None. 
Uses....... 
c(B}. 
Stk Ivls: 6 
History: 
Date Progranner Modification 
SA Wrote 
10/18/83 NM Attenpted to docunent 
SOOO ROI IOI GOI OOO OI COO IIIT II OOO IO IOI 
SOIT OOOO OI OI ITOIIO 
CTRCK LCHEX OA 
eAKC OP 
RTNYES 
C=C+1 8B C(B)= 0B 
*Ac=C OB IS INTEGER OR SHORT ? 


Saturn Assenbler 


Ver. 3.39/Rev. 26 


845 OBOBC 00 

846 OBOBE 310€ 

847 OBOC2 SEE 

848 OBOLS 00 

843 OBO? 01 

850 

851 

852 

853 

B54 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 OBOC9 8E00 
00 


883 OBOCF D6 
8% OBOD1 132 
891 OBOD4 400 
892 OBOD? 06 
833 OB0D9 817 
894 OBODC 817 
895 OBODF 130 
836 OBOE2 100 
897 OBDES 182 
8398 OBOES 1563 
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RTNYES 
LCHEX £0 
Ar=C B TS AN INDIRECT REFERENCE ? 
RTNYES 
RTN 


x 
2300000 2 3 III TO TOTO TTT OTST TIT TT STN 
SOI TO TOOT OUT TT IIT TTT TSI TN 
aK 


ak Nare: DSTRY* - Destroy A Variable 
kh 


** Category: VARNGT 
ih 


** Purpose: 

a Destroy a variable. 

ah 

** Entry: 

ak DO=PC, pointing at a tokenized variable nane. 

ak SO = 1 iff we are in a user-defined function. 

ak This will prevent destruction of global variables 
aK fron within a user-defined function. 

th 

&* Exit: 

ax DO pointing past variable tokenization. 

RK Variable has been destroyed. 

ak 

ek Calls: ADORSS, ADINFG, ADJPTR, ARYSIZ, C=ACTV, EXTRIO, 
a EXTRCT, PRNC20, VCTRCK, getcnt. 

ak 

RR USCS. 00% « 

ae A,8,C,D,00,01,P. 

ak 

** Stk lvls: 3 

ak 

** History: 

aa 

ae Date Programmer Modification 

Di “Oucseres, fiecccetaue-- SesvdereAc ec piece sel s.sedooes 
ae SA Wrote 

ex 10/18/83 NM Attenpted to docunent 

ah 


SOI RII TR RE 
FORO III OR TTI TT TTI III TTI IST IIIT TTT TITS I 


=DSTRY* GOSUBL =ADDRSS SEARCH FOR VARIABLE 
C=A A 
RDOEX 
RTNC IF NOT FOUND, RETURN CARRY SET 
RSTK=C SAVE PC ON HARDWARE STACK 
DSRC D(B)=# OF VAR LEFT IN SANE CLASS 
DSRC SAVE POINTER IN D(15,14) 
DO=A SEE IF A LOCAL OR GLOBAL VARIABLE 
RO=A RO= VARIABLE ADDRESS 
DO=D0- 3 
C=DATO x READ THE VARIABLE NAME 
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8399 OBOEC 109 R1=C R1= VARIABLE NAME 
900 OBOEF 7DA1 GOSUB C=ACTV 
901 OBOF3 8B2 7AcC OA 
902 OBOF6 BO GOYES DSTR30 IF A LOCAL VAR, GOTO DSTR3O 
903 OBOF8 860 ?ST=0 InDEF ARE WE IN A LOCAL ENVIRONMENT ? 
904 OBOFB 60 GOYES OSTR30 IF NOT, GOTO DSTR30 
905 OBOFD 67FO NODSTR GOTO DSTR9O DON’T DESTROY GLOBAL IN LOCAL ENV 
906 08101 130 DSTR30 DO=A 
907 0B104 D3 D=0 A 
908 08106 148 R=DATO B 
909 OB109 70AF GOSUB VCTRCK SEE IF IS A NUMBER OR VECTOR 
910 OB10D 402 GOC DSTR35 IF IS A NUMBER, GOTO DSTR35 
911 * THE VARIABLE IS AN ARRAY, STRING, OR COMPLEX NUMBER 
912 OB110 136 CDOEX 
913 OB113 135 B1=C Di= VARIABLE ADDRESS 
914 08116 8EFF GOSUBL ARYSIZ COMPUTE ARRAY SIZE 
40 
915 OB11C DE ACEX A A=ARRAY POINTER, C= ARRAY SIZE 
916 OBI1E D7 D=C A D=ARRAY SIZE 
91? OB120 137 CDIEX C= ARRAY POINTER ADDRESS 
918 08123 E2 C=C-A A 
919 OB125 134 DO=C DO= ARRAY START SDDRESS 
920 08128 8E9A GOSUBL EXTRCT EXTRACT THE ARRAY 
30 
921 OB12E D2 = DSTR35 C=0 A 
922 08130 3131 LC(2) 19 
923 08134 C3 D=D+C A 
924 0B136 118 C=RO 
925 0B139 135 D1=C DI=VARIABLE ADDRESS 
926 OB13C AFB C=D W 
927 OB13F 812 CSLC 
928 OB142 812 CSLC C(B)= # OF VARS BELOW THIS VAR 
929 OB145 DS B=C A 
930 OB147 860 *ST=0 = InDEF IS A LOCAL VARIABLE ? 
931 OB14A~A 40 GOYES DSTR36 IF NOT, GOTO DSTR36 
932 OB14C E5 B=Bt+1 A INCLUDES THE FUNCTION VALUE TOO 
933 OB14E 17A = DSTR36 D1=D1+ 11 POINT TO NEXT VARIABLE 
934 08151 177 DSTR37 D1=D1+ 8 
935 08154 Aad B=B-1 8 DONE WITH VARS IN SAME CLASS ? 
936 OB15? 4A1 GOC DSTR40 
937 OB15A 148 A=DAT1 B 
938 OB15D 7C4F GOSUB VCTRCK SEE IF IT IS A VECTOR 
939 OB161 4CE Got DSTR36 IF NOT, GOTO TO SEE NEXT VARIABLE 
940 08164 17A D1=D1+ 11 POINT TO THE PTR OF THE VECTOR 
941 OB167 14? C=DAT1 A 
942 OB16A EB C=C(-D A ADJUST IT 
943 OB16C 145 DATI=C A 
944 OBIGF SIE GONC DSTR3? (B.E.T.) 
945 08172 119 DSTR40 C=R1 
946 08175 DS B=C A B(X) = PARAMETER NANE 
947 0B177 860 ?ST=0 InDEF IS THIS A FCN PARAMETER ? 
948 OB17A 63 GOYES DSTR?0 IF NOT, GOTO DSTR70 
949 OB17C 1FO f1=(5) =MTHSTK ADJUST MTHSTK,FORSTK & GSBSTK 
000 


950 08183 7570 GOSUB ADJNFG 
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951 * WE HAVE TO ADJUST OFFSETS TO PREVIOUS MTHSTK, FORSTK & GSBSTK 
952 : THAT ARE SAVED ON THE FUNCTION STACK 
953 
954 08187 137 CDIEX 
955 OB18A 12 D1i=D1- 3 
956 OB18D 1CF Di=D1- 16 D1 @ TOP OF GSBSTK 
3957 0B190 7EE1 GOSUB PRAC20 
958 08194 D2 C=0 A 
959 08196 3184 LC(2) (uf MSTK)-(ufRTNA) 

960 OB19A 133 ADIEX 

961 OB19D CA R=A+C A 

962 OB19F 131 Di=A D1 @ OFFSET TO PREVIOUS MTHSTK 

963 OBIA2 FB =-D A 

964 0B1A4 7450 GOSUB ADINFG 

965 OB1A8 7201 ‘ GOSUB getcnt ADJUST PARM COUNT & CHAIN ADDRESS 

966 

967 OB1AC 6310 GOTO  DSTR8& 

968 x 

969 0OB1B0 FB DSTR70 D=-D A 

970 OB1B2 8EF6 GOSUBL ADJPTR 
30 

971 OB1B8 1C1 DI=D1- 2 

972 OB1BB 147 C=DAT1 A 

973 OBIBE CE , C=C-1 A DECRENENT VARIABLES NUMBER 

974 

975 OB1CO 14D DSTR&O DATI=C B 

976 OB1C3 171 Di=D1+ 2 

977 OB1C6 D2 C=0 A 

978 OB1C8 3131 ic(2) 19 

979 OBICC D7 D=C A 

980 OBICE 147 C=DAT1 A 

981 0B1D1 CB C=C+D A 

982 OB1D3 145 DAT1=C A 

983 OB1D6 118 C=RO 

984 OB1D9 134 DO=C 

3985 OBIDC 182 D0=D0- DO @ VARIABLE NANE 

986 OBIDF 1F0O D1=(5) =NTHSTK RAISE MTHSTK BY 19 NIBBLES 
000 

987 OB1E6 143 A=DAT1 A 

988 OBIES D2 C=0 A 

989 OBIEB 3131 LC(2) 19 

9% OBIEF EE C=A-C A 

991 OB1F1 7CE2 GOSUB EXTR10 

992 OB1F5 07 DSTR9O C=RSTK 

993 OBIF7 134 DO=C RESTORE PC 

994 OBIFA 02 RTNSC RETURN 

995 x 

996 . 

997 OBIFC 20 ADINFG P= 13 

998 OBIFE 147 ADJ=PS C=DAT1 A 

999 0B201 CB C=C+D A 

1000 0B203 145 DAT1=C A 

1001 OB206 174 Di=D1+ 5 

1002 0B209 OC P=P+1 


1003 OB20B 52F GONC ADJ=PS 





Saturn Assenbler Variable Creation Routines <83 Fri Dec 3, 1983 2:39 an 


Ver. 3.39/Rev. 2306 Page 20 
1004 OB20E 01 
1005 JI IO OT III TOI III IIIS II IIIS ITI I IIIT III IIIS IIIS SIAN 
1006 JI III IO TIO I IIIT IIT OTITIS TIS IIIS IOI II II III IIIA ITA H 
100? am 
1008 ** Nare: DSTROY - DESTROY Statenent Execute 
1009 aX 
1010 *X Category:  STEXEC 
1011 ax 
1012 ** Purpose: 
1013 a% DESTROY statement execute. 
1014 aK 
1015 ** Entry: 
1016 ae Juriped on DESTROY token. 
101? aR DO=PC. 
1018 a 
1019 ek Exit: 
1020 oe Through NXTSTM. 
1021 ak 
1022 ** Calls: A=CALS, ADJ=PS, C=ACTV, DSTRY*, ENDCHK, EXTRCT, 
1023 a getcnt. 
1024 aR 
1025 ** NOTE: 
1026 am The DESTROY conriand has only local meaning. If the 
102? ax machine 1s in a local environnent, such as DEF FN or 
1028 xe subprogran, only local variables can be destroyed. 
1029 xe If DESTROY ALL is executed in a DEF FN, it will be 
1030 a treated as END DEF. 
1031 ax 
1032 ** Detail: 
1033 am DESTROY ALL | DESTROY <var>,<var>,<var>,... 
1034 a 
1035 ** History: 
1036 Rx 
1037 ae Date Progranner Modification 
1038 BK newer een een ener een ne ree nen enn n cnn cn eer cr eres 
1039 ae SA Wrote 
1040 ek 10/18/83 9 NM Attempted to docunent 
an 

a ORO OOO IORI IO OOOO OOO I OOOO IOI IOI: 
1043 FOTO OI IOI OOOO OOOO IO 
1044 0B210 0000 REL(5) =DSTROC 

0 
1045 08215 G000 REL(5) =DSTRYP 

0 
1046 OB21A 1FOO =DSTROY 01=(5) =FORSTK SET MTHSTK=FORSTK 

000 
1047 OB221 147 C=DAT1 A 
1048 OB224 1€4 Di=D1- 5 
1049 OB22? 145 DAT1=C A 
1050 OB22A 840 ST=O = InDEF 
1051 OB22D 7D31 GOSUB getcnt SEE IF WE ARE IN A DEF FN 
1052 0B231 450 COC DSTROS 
1053 0B234 &50 ST=1— InDEF REMEMBER IN DEF FN 
1054 OB237 3100 DSTROS L{(2) =tALL SEE IF IT IS DESTROY ALL 


1055 O823B 14A A=DATO B 
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1056 OB23E 966 ARC OB 
1057 08241 B86 GOYES DSTR10 
1058 * DESTROY ALL 
1059 0B243 860 DSTALL ?ST=0 InDEF IN A DEF FN ? 
1060 0B246 8 GOYES DSTAX IF NOT, GOTO DSTAX 
1061 OB248 8(00 GOLONG =DEFEND 
00 
1062 * DESTROY ALL GLOBAL VARIABLES 
1063 OB24E 7240 =DSTRX GOSUB A=CALS DESTROY ALL ABOVE CALL STACK 
1064 OB252 BFO ASL W 
1065 0B255 BFO ASL W 
1066 OB258 1800 DO=(5) (=CHNLST)+175 
000 
1067 OB25F 3191 LC(2) 25 INIT ENTIRE CHAIN HEAD TABLE 
1068 0B263 1586 DSTASO DATO=A 7 
1069 OB267 186 D0=D0- 7 
1070 OB26A AGE C=C-1 8B 
1071 OB26D 55F GONC  DSTASO 
1072 0B270 7020 GOSUB A=CALS A= CALSTK 
1073 OB274 7820 GOSUB C=ACTV C= ACTIVE 
1074 0B278 134 dO=C 
1075 0B27B EE C=A-C A 
1076 OB27D D7 b=C A 
1077 OB27F 7452 GOSUB EXTRCT EXTRACT ALL THE VARIABLES 
1078 0B283 1F0O D1=(5) =MTHSTK ADJ MTHSTK, FORSTK, GSBSTK, ACTIVE 
000 
1079 OB28A 2C P= 12 
1080 OB28C 7E6F GOSUB ADJ=PS 
1081 08290 6ECD GOTO CRIRTN 
1082 * 
1083 08294 1FOO A=CALS 01=(5) =CALSTK 
000 
1084 0B29B 143 A=DAT1 A 
1085 OB29E 01 RTN 
1086 OB2AO 1FOO C=ACTV D1=(5) =ACTIVE 
000 
1087 OB2R7 147 C=DAT1 A 
1088 OB2AR 01 RTN 
1089 
1090 * 
1091 OB2AC 791E DSTRIO GOSUB DSTRY* 
1092 OB2B0 710C GOSUB ENDCHK END OF LINE? 
1093 OB2B4 47F GOC DSTR1O IF NOT, REPEAT DSTR10 
1094 0B2B7 67AD GOTO CRIRTN 
1095 JOU ITC ITI I III ISI III IIS SISS SSSI SIS ISIS SSSI: 
1096 FOR IOI II DIT IIT IIIT SI IAD I IT IIIS II IIIS IS IIIT STII IIIS SSIS IIS 
1097 aX 
1098 ** Nane: CR-VAR - Create Space For A Variable. 
1099 ae 
1100 ** Category: VARNGT 
1101 ae 
1102 ** Purpose: 
1103 as Create space in the variable chain for a variable 
1104 ae or a dope vector. 


1105 ae 
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1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
4121 
1122 
1123 
1124 
1125 
1126 
112? 
1128 
1129 
1130 
4131 
1132 
1133 
1134 
1136 
1136 
113? OB2BB 


1138 OB2C1 
1139 OB2C4 
1140 OB2C7 
1141 OB2CR 
1142 OB2CD 
1143 OB201 
1144 OB2D4 
1145 OB2D7 
1146 OB2D9 
114? OB2DC 
1148 OB2DF 
1149 OB2E2 
1150 OB2E5 


1151 OB2EC 
1152 OB2FO 
1183 OB2F4 
1154 OB2F8 
1155 OB2FB 
1156 OBCFF 
115? OB302 
1188 OB305 


Variable Creation Routines <83 Fri Dec 3, 1983 2:39 an 

2306 Page 22 

** Entry: 

KR P=0, 

a B[X] = 3-nibble variable nane. 

Ae HEX rode. 

kk 

aX Exit: 

aK P=0, 

ak Carry set -> 

xk Variable already exists. DO points at variable or 

ak dope vector (pointing PAST variable nane). 

kK Carry clear -> 

a New space created for variable. DO points past nane 

ak at area for variable or dope vector. 

xk 

** Calls: ADJPTR, CHNHED, CR-V30, CR-VCK, DESTCK, GAP, 

ax NEWVAR, NXPRN+, PRNCHN, getcnt. 

kk 

REUSE Ss oot atic 

si A,B,C,D,P,D0,D1,R3. 

kk 


ek Stk lvls: 2 
wk 


*k History: 
at 


aa Date Progranner Modification 

ME Riceleeey ebteaeein spate eueen cee tee ea ca ss 
ak SA Wrote 

xx 10/18/83 NN Attenpted to docunent 

kk 


FOI UII IOI OTTO ITT OTT OTT IIIT TIO III ITN 
FOO IOI TO OTTO TIO RTT TOT TI TIO TIO 


8£00 =CR-VAR GOSUBL =CHNHED GET CHRIN HEAD POINTER 


00 

RE2 C=0 B INITIALIZE 

REF CDEX 8B 

REA A=C B 

4A GOC CR-¥20 IF CHAIN IS NULL, GOTO CR-V20 
1663 CR-ViO C=DATO X READ CHAIN LABEL 

162 DO=D0+ 3 POINT TO REGISTER CONTENTS 
$31 ?B=C x VARIABLE FOUND? 

0.0) RTNYES IF SO, RETURN CARRY SET 

BG? D=D+1 B INCREMENT CHAIN ELEMENT COUNTER 
16F DO=DO+ 16 POINT TO NEXT CHAIN ELEMENT 
AEC A=A-1 8B CHRIN EXHAUSTED? 

SAE GONC = CR-V10 IF NOT, REPEAT CR-V10 

3431 CR-V20 LCHEX 00013 

000 

7902 GOSUB GAP ALLOCATE CHAIN REGISTER 
7332 GOSUB ADJPTR 

7372 GOSUB NENVAR UPDATE CHAIN HERD POINTER 
RBS C=B K 

1543 DRTO=C X WRITE CHAIN LABEL 

162 DO=DO+ 3 POINT TO REGISTER CONTENTS 
AF 2 C=0 W 

3131 LC(2) 19 
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1159 OB9 108 R3=C R3= ADJUST 19 NIBBLES 
1160 OBC 7E50 GOSUB getcnt SEE IF WE ARE IN A DEF FN ? 
1161 OB310 483 COC CR-V45 IF NOT, RETURN CARRY CLEAR 
1162 . 
1163 * Adjust DO to point to end of the newly created reg vector. 
1164 * 
1165 0B313 16F DO=D0+ 16 
1166 0B316 7500 GOSUB CR-V Adjust pointers if necessary 
1167 OB31A 18F DO=D0- 16 
1168 OB31D 03 RTNCC 
1169 x 
1170 OB31F 7250 CR-V30 GOSUB PRMCHN GET ADDR OF TOP OF FN STACK 
1171 0B323 74£0 CR-V35 GOSUB CR-VCK SEE IF RETURN PC IS ON STACK 
1172 08327 17E = «=«CR-V38 D1=D1i+ 15 
1173 0B32A 17E D1=D1+ 15 
1174 0B32D 174 D1=D1i+ 5 D1 POINTS TO SAVED "STMTD1" 
1175 0B33% 77D0 GOSUB CR-VCK UPDATE IT IF NEED 10 
1176 x 
1177 0B334 7310 GOSUB DESTCK 
1178 0B338 560 GONC CR-¥40 
1179 - 
1180 0B33B 7CCO GOSUB CR-VCK 
1181 x 
1182 OB33F 7950 CR-¥40 GOSUB NXPRM+ 
1183 0B343 4FD coc CR-¥35 
1184 08346 133 ADIEX 
1185 0B349 03 gee MaS RTNCC 
1 
ae IIR IST IS IIIS IT IIS SIIIIIIIIIISIII III III IIT I ISSSSSI SSIS SIS ISIS IN 
1188 x 
1189 0B34B 1€4 = DESTCK Di=D1- 5 D1 POINTS TO 1ST RETURN ADDRESS 
1190 OB34E 143 A=DAT1 A IF 4ST RTN ADDR SAVED IS =STORE, 
1191 0B351 3400 LC(5) =STORE THEN MUST BE AN ASNANT STATEMENT 
000 
1192 0B358 179 D1=D1+ 10 D1 @ SAVED S-RO-0 
1193 OB35B 8A2 7A=C OA AND WE HAVE TO LOOK AT THE 
1194 OB35E 00 RTNYES SAVED DESTINATION ADDRESS 
1195 0B360 3400 LC(5) =VALCHK OR 1ST RIN ADDR SAVED IS =VALCHK 
000 
1196 0B367 8A2 *A=C OA 
1197 OB36A 00 RTNYES 
1198 OB36C 03 RTNCC 
1199 x 
1200 IR IIIK 
1201 * 
1202 OB36E 8D00 getcnt GOVLNG =GETCNT 
000 
1203 x 
1204 III II III I IIIA I IAB ISIS III III III IOS SII III IIIS SAIS ISS III ISSISISIIA 
1205 FRI IIIS IIIA III RI IIS IIA IIIT STII II IIT SISOS II IIS ISI IIS IS SSS SSSI IAS 
1206 a 
1207 xk Narie: PRICHN - Corpute Address Of Top Of Fn Stack 
1208 ah 
1209 *% Category: VARNGT 
wa 


1210 
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1211 ** Purpose: 
1212 xs Compute address of top of FN stack. 
1213 ar 
1214 ** Entry: 
1215 a HEX triode. 
1216 ak 
1217 ak Exit: 
1218 am HEX node. 
1219 ah D1 points at top of FN stack. 
1220 me 
1221 ** Calls: None. 
1222 aR 
1223 AR Uses. casas 
1224 aR D1,C({A},C{S]. 
1225 le 
1226 *k Stk lvls: 0 
1227 ae 
1228 ** History: 
1229 aR 
1230 aa Date Progranmer Modification 
1231 aa aaa aaa aaa aaa etait 
1232 an SA Wrote 
1233 xk 10/18/83 NM Attenpted to docunent 
ak 
ie SOI IO IIIT IIIT II III IIIT ITI IIIS IOI II ISSI SISOS IIS III SITS ITA IA 
1236 SII III III III TIES IASI STIS I STII IIIS ISIS III IIIS ISI IS ISIS AA 
1237 0B375 1FOO =PRNCHN D1=(5) =GSBSTK FN STACK IS RIGHT UNDER GSBSTK 
000 
1238 OB37C 147 C=DAT1 A 
1239 OB37F 135 =PRNC10 D1=C 
1240 0B382 1574 PRNC20 C=DAT1 S$ C(S)- RETURN TYPE 
1241 0B386 170 Di=D1+ 1 
1242 0B389 147 C=DAT1 A LAST GSBSTK SHOULD BEEN 000000 
1243 OB38C 174 D1=Di+ 5 
1244 OB38F 8AE CHO OA REACH LAST GSBSTK YET ? 
1245 0B392 OF GOYES PRNC20 IF NOT, KEEP GOING 
1246 08394 B46 C=C+1 $ RETURN TYPE SHOULD BE "F" 
1247 0B397 SRE GONC PRNC20 
1248 OB39A 01 RTN 
1249 - 
1260 FORO TOTO TO 


1251 - 
1252 OB39C 17F 
1253 OB39F 1?7F 
1254 OB3A2 17E 
1255 * 
1256 OB3A5 14F =NXPRNP C=DAT1 B 


NXPRM+ D1=01+ 16 
D1=D1+ 16 
D1=D1+ 15 


D1 POINTS AT PREV PRMPTR COUNT 


125? OB3A8 ABE C=C-1 B 

1258 OB3AB 540 GONC NXPR1O IF PREV PRNPTR COUNTHO, GO NXPR10 
1259 OB3AE 03 RTNCC NO MORE FN NESTING, CLERR CARRY 
1260 OB3BO 104 NXPR1IO D1=D1- 5 D1 POINTS TO PREV GSBSTK OFFSET 
1261 0B3B3 147 C=DAT1 A 

1262 OB3B6 133 ADIEX 

1263 0B3B89 Ce C=A+C A COMPUTE PREVIOUS GSBSTK ADDRESS 
1264 OB3BB 53C GONC = PRHC1O (B.E.T.) 
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1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 


1297 OB3BE 1F0O =RIDEST D1=(5) =PRAPTR 
000 


1298 OB3C5 14F 
1299 OB3C8 AGE 
1300 OB3CB 5D1 
1301 OB3CE 118 
1302 08301 108 
1303 OB3D4 D9 
1304 OB306 134 
1305 OB3D9 168 
1306 OB3DC 146 
1307 OB3DF 132 
1308 OB3E2 ER 
1309 OB3E4 1% 
1310 OB3E7 03 
1311 OB3E9 D9 
1312 OB3EB 108 
1313 OB3EE 135 


1314 OB3F1 7622 


1315 OB3F5 EE 
1316 OB3F? 133 
131? OB3FA CA 
1318 OB3FC 130 
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RAK RIKERK IRE KEK IKARIA AAR IEA IIIT IIE IORI IRI 
KK AAKK KKK RK EKER ARERR ERIK IO IO TOO TIO TOR TIO STI IO 


xk 


** Nane: AJDEST - Adjust Destination Address 
aK 

- Category: VARNGT 

i 

** Purpose: 

aK Adjust destination address, whatever that neans. 
ah 

Rk Entry 

aK RO=Adjustnent anount. 

ka 

AX Exit: 

ak P = 0 

ik 

&k Calls: ARYSIZ, PRMCHN, CR-VCK, NXPRM+ 

ak 

aX Uses....... 

ae A,B,C,D,P,00,D1,R3. 

ae 

** Stk lvls: 3 

ih 

** History: 

ah 

xx Date Progranner Modification 
Pe Secctu (Letcececins SPawsebe ee es Gee a ees Uelewes 
ae SA Wrote 

ek 10/18/83 = NM Attenpted to docunent 
ak 


FOI TTT TTT 
FIO IIIT TOTTI TOT TTT TTT TTT ITT T IIT 


AIDE 30 


Zoo 
wD 

= 4 
ce 


oi. 
7 ow OO 


JDE30 


ODO nooaon 
Hwnaoan u 
‘8 


oO 
ae 
Se 


on Wt ow H 
bw od 


7°88 


ae 


1npDpes-DmDwu unweit Dp 
D 


aOnpDim»D 


oO 
D 


ARYSIZ 


Ses i ee ie 
Hon OnrwW tt - 


SEE IF WE ARE IN A DEF FN 


RETURN IF NOT 
SAVE ADJUSTMENT TO R3 


DO = DOPE VECTOR ADDRESS 
POINTS TO ARRAY POINTER 


DO = START OF ARRAY 


SAVE DOPE VECTOR ADDR IN R3 


ARRAY END ADDR = D1-C+A 


DO POINTS TO ARRAY END 
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1319 OB3FF 118 

1320 OB402 12B 

1321 OB405 DS 

1322 OB40? 671F 

1323 

1324 OB40B 143 

1325 OB40E 136 

1326 OB411 134 

1327 OB414 8BE 

1328 OB417 00 

1329 08419 3400 
000 

1330 OB420 133 

1331 OB423 135 

1332 OB426 147 

1333 OB429 133 

1334 OB42C 143 

1335 OB42F 8B2 

1336 OB432 00 

133? 08434 118 

1338 OB437 EA 

1339 08439 141 

1340 OB43C 03 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 
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C=RO 
CR3EX 
B=C 
GOTO 
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R3= ADJUSTMENT 
A RESTORE 8 
CR-V¥30 


FOI IIIT TOOT TTT TTT TT TTT TO 


CR-VCK R=DAT1 A 
CDOEX 
DO=C 
*Ar=C A 
RTNYES 
LC(5) 


HAS THE ADDRESS BEEN AFFECTED ? 
RETURN IF NOT 
=AVNENS 
ADIEX SEE IF THE ADDR IS ON THE STACK 
01=C 
C=DAT1 A 
ADIEX 
A=0AT1 
AKC 
RTNYES 
C=R3 
A=A-C 
DAT1=A 
RTNCC 
x 


JO IIIT TOI ITO TTT TTT TTT TT 
JOO TOOT TOR UIT TT ETT IK 
ak 


D>» 


IS THE ADDR >= AVNENS 7? 
IF NOT, RETURN 


>wD 


**k Nane: CR-ARR - Create Space For An Array 
kk 

*k Category: VARMGT 

a 

xx Purpose: 

ak Create space for an array. 

ak 

xk Entry: 

ax Variable creation data in D, DO,and RO. 
ak P = Q 

ak 

ek Exit: 

ak p = 0 

ah 

** Calls: ADJIPTR, FIND, GAP. 

tk 

BP USES. 45. ws 

** Exclusive: A(A),C,D(B), 00,01 

** Inclusive: A,B,C,0(A),00,D1 

ah 

** Stk lvls: 2 

at 

** History: 

i 

a Date Progranner Modification 
Ah eects. - See Peek he eee loan eo eae ae Soe Sua 
xe SA Wrote 

** 10/28/83 9 NM Attempted to docurent 
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1373 e 12/16/83 FH Added nore docurientation 
cae RHI KKK KAKA KKK KKK KEKE KARRI RII TKK EKKO TORO TTT TIO 
1376 JOGO OTTO TIT 
1377 OBASE 31RO =CR-ARR LCHEX OR INITIALIZE 
1378 OB442 182 CR-AIO DK=D0- 3 
1379 OB445 RGF O-D-1 8B BACKCHRIN EXHAUSTED? 
1380 OB448 4B2 GOC CR-R20 IF SO, GOTO CR-AZO 
1381 OB44B 18F DO=D0- 16 
1382 OB44E 14A R=DATO B READ TYPE INFORMATION 
1383 OB451 982 7A<C OP REAL REGISTER? 

1384 OB454 EE GOYES CR-A10 IF SO, REPEAT CR-A10 
1385 0B456 300 LCHEX D 
1386 08459 9E2 7AcC Oi RESIDENT NON-REAL? 
1387 OB45C 2E GOYES CR-ARR IF SO, REPEAT CR-ARR 
1388 OB45E BE4 ASR B 
1389 OB461 986 TAC OP PARAMETER POINTER? 
139% OB464 AD GOYES CR-ARR IF SO, REPEAT CR-ARR 
1391 OB466 16A DO=DO+ 11 
1392 OB469 142 A=DATO A READ RELATIVE ADDRESS 
1393 OB46C 136 CDOEX 
1394 OB46F E2 C=C-A A COMPUTE ARRAY BASE ADDRESS 
1395 OB471 134 DO=C 
1396 0B474 118 CR-A20 C=RO 
1397 0B47? 7E70 GOSUB GAP CREATE ARRAY SPACE 
1398 OB47B 78A0 GOSUB ADJPTIR 
1399 OB47F 136 CDOEX LOCATE REGISTER 
1400 0OB482 DA A=C A 
1401 0B484 1C1 CR-ADJ Dt=Di- 2 
1402 OB487 14F C=DAT1 B 
1403 OB48R AE? D=C B 
1404 OB480 AGF D=0-1 8B 
1405 0B490 8£00 GOSUBL =FIND 

00 
1406 OB496 119 CR-AW C=R1 
1407 0B439 15CA DATO=C 11 STORE DOPE VECTOR 
1408 OB49D 16A DO=DO+ 11 
1409 OB4A0 EC R=B-A A COMPUTE ARRAY RELATIVE ADDRESS 
1410 OB4A2 3480 LCHEX 00008 

000 
1411 OB4A9 6AIO GOTG CR-ASO GOTO CR-ASO 
1412 OBSAD 16F CR-R40 DO=D0+ 16 ; POINT TO NEXT REGISTER 
1413 OB4B0 162 DO=D0+ 3 
1414 OB4B3 148A A=DATO B READ TYPE INFORMATION 
1415 OB4B6 982 7AcC OP REAL REGISTER? 
1416 OB4B9 31 GOYES CR-AGO IF SO, GOTO CR-AGO 
1417 OB4BB 118 C=RO 
1418 OB4BE 16A DO=DO+ 11 
1419 OB4C1 142 A=DATO A 
1420 OB4C4 CA CR-ASO A=A+C A UPDATE ARRAY POINTER 
1421 OB4C6 140 DATO=A A 
1422 OB4C9 18A DO=DO- 11 
1423 OB4CC 30R CR-A6O LCHEX A 
1424 OB4CF AGF D=D-1 B CHAIN EXHRUSTED? 


1425 OB4D2 5AD GONC  CR-R40 IF NOT, REPEAT CR-A40 
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1426 OB4D5 02 RTNSC RETURN CARRY SET 
1427 JK II SII III III IIIS IID III IIIA IISA ISI KISS IIS II SIS IIS II III II IIS IIA 
1428 ® EXTRCT - EXTRACT A BLOCK MEMORY 
14293 * INPUT: D = # OF NIBBLES TO EXTRACT 
14% * DO POINTS TO START EXTRACTING POINT 
1431 : 
1432 OB4D7 1FOO EXTRCT Di=(5) =NTHSTK 
000 
1433 OB4DE 147 C=DAT1 A C= MTHSTK 
1434 OB4E1 132  EXTR10 ADOEX A= START EXTRACTING POINT 
1435 OB4E4 EE C=A-C A C= STACK SIZE 
1436 OB4E6 130 DO=A DO= START EXTRACTING POINT 
1437 OB4E9 DF CDOEX A C= # OF NIBBLES TO EXTRACT 
1438 OB4EB CA A=A+C A A= END EXTRACTING POINT 
1439 OB4ED 131 DI=A D1= END EXTRACTING POINT 
1440 OB4FO OF CDEX A 
1441 OB4F2 8D00 =MOved3 GOVLNG =MOVED3 
1442 a JI ITI DAI IIIS IIT III IT ATI ATID I STII SSIS IIS ISIS IIIS SSSI III IK 
1443 : 
1444 * GAP - Create gap for variable and zero it out 
1445 x 
1446 * Uses: A,C,D(A),D00,D1 
1447 z 
1448 OB4F9 D7 GAP D=C A SAVE GAP LENGTH 
1449 OB4FB 1F0O D1=(5) =MTHSTK 
000 
1450 OB502 143 A=DAT1 A 
1451 0B505 EE C=A-C A 
1452 OB507 135 DI=C 
1453 OBSOA 136 COOEX 
1454 OB50D 8F00 GOSBVL =MOVEU2 OPEN GAP 
000 
1455 08514 DB C=D A 
1456 08516 8F0O GOSBVL =WIPOUT ZERO GAP 
000 
1457 OB51D 136 CDOEX 
1458 08520 EB C=C-D A SET DO TO START OF GAP 
1453 OB522 134 DO=C 
1460 OB525 03 RTNCC RETURN CARRY CLEAR 
1461 JI II IIS I II II ISI III III III II SOIT III IST III IIIS III III SII III IIIS 
1462 JOO I OI TI III TIT ITIT II I III ITT I IIIT IIT IS III TIN 
1463 + 
1464 ** Nare: ADIPTR - Adjust Stack And Chain Pointers 
1465 = 
1466 ** Category:  PTRUTL 
1467 xs 
1468 ** Purpose: 
1469 Be Adjust stack and chain pointers. 
1470 x 
1471 ** Entry: 
1472 ax HEX rode. 
1473 aa D[A}] = arnount to SUBTRACT fron pointers. 
1474 ae P=0,. 


1475 ae B[B]=ASCII code of highest parrichain head to adjust 
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1476 ax (e.g., B[BJ=\Z\). 
1477 xx 
1478 Ke Exit: 
1479 ak Pp = Q, 
1480 = Carry clear. 
1481 aK 
1482 ** Calls: None. 
1483 aK 
1484 Kk Uses....... 
1485 aK A(8),C{[A},P,01. 
1486 KR 
148? Kk Stk lvls: 0 
1488 ak 
1489 ** Detail: 
14% aK Adjusts MTHSTK, FORSTK, GSBSTK, ACTIVE and all parn 
1491 7 chain heads fron A to whatever uas specified in B[B]. 
1492 
1493 kk History: 
1494 ke 
1495 kk Date Programmer Modification 
1496 RK meen enn nnn een re nn nnn nn nn en ne en een eee 
1497 Ke SR Wrote 
1498 a 10/18/83 = NN Attenpted to docunent 
x 
ieee JOG III OO OT TT OR 
1501 FOI IOI III TTT TT TTR 
1502 08527 1FOO =ADJPTR 01=(5) =MTHSTK ADJUST STACK & CHAIN POINTERS 
000 
1503 OB52E 2C P= 12 
1504 0B53X 147 AP-10 C=DAT1 A ADJUST STACK POINTERS 
1505 0B533 EB C=C-D A 
1506 0B535 145 DATI=C A 
1507 0B538 174 01=01+ 5 
1508 0853B OC P=P+4 
15039 0B53D 52F GONC AP-10 
1510 OB540 17B Di=D1+ 12 Di POINTS TO (=PRMPTR+2) 
1511 08543 RE4 R=B B 
1512 0B546 31F5 LCHEX 5F 
1513 OBS4A OE66 A=RaC OB 
1514 OBS4E 3114 LCHEX 41 
1515 0B552 B6A A=A-C B 
1516 08555 147 C=DAT1 A READ PRRANETER CHAIN ADDRESS 
1517 08558 EB AP-20 (€=C-D A ADJUST CHAIN HEAD ADDRESS 
1518 OB5S5A 145 DAT1=C A 
1519 OB55D 176 D1=D1+ 7 
1520 OB560 147 C=DAT1 A READ NEXT CHAIN HEAD ADDRESS 
1521 0B563 AGC A=A-1 B NORE ADDRESSES TO ADJUST? 
1522 OB566 51F GONC AP~20 IF SO, REPEAT AP-20 
1523 08569 03 RTNCC RETURN CARRY CLEAR 
1524 JOGO ISO III TTT TT TE 
1525 OB56B EB NEWVAR C=C-D A ADJUST CHAIN HEAD ADDRESS 
1526 OBS6D 145 DAT1=C A 
1527 0B570 1C1 D1=D1- 2 
1528 OB573 14F C=DAT1 B 


1529 0B576 AE? D=C 8 
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1530 08579 B66 

1531 OB57C 14D 

1532 OBS7F 901 

1533 

1534 

1835 

1536 

153? 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

154? 

1548 

1549 

1550 

1551 

1582 

1583 

1554 

1555 

1556 

1687 

1558 

1589 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

157? OB581 B8E 

1578 0B584 Ad6 

1579 OB587 B8A 

1580 OB58A 8010 

1581 OBS8E 3820 
0221 
0190 
60 
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C=C+1 8B INCREMENT CHAIN COUNTER 
DAT1=C B 
RTN RETURN 


FOI IOI TTI TN 
FOI TOT TO TTT TTT IST 
xk 


** Nane:(S) DATLEN - Coripute Data Length Given Type 
kk 


** Category: VARNGT 
* 


* 
** Purpose: 

a Conpute length of a data iten. 

x 

ee ENteys 

aX C[O]=data type. 

ae 5 - Integer. 

ee 4 - Short real. 

AK 3 - Real. 

ze 2 - Short complex. 

i 1 - Conplex. 

a P=0, 

re 

RR EMIts 

ms C[AJ=Length of data iten: 

xe Integer: 6. 

ee Short real: 3. 

AA Real: 10H. 

* Short conplex: 12H. 

a Coriplex: 20H. 

tok 

** Calls: None. 

ik 

BRUSCS wyscae'h's 

a C. 

tok 

XX Stk lvls: 0 

kk 

** History: 

kek 

xx Date Progranner Modification 
WE aiscecee + Woes, - eueee babe ce ee eae ea 
i SA Wrote 

** 10/18/83 NM Attempted to docurent 
wx 


FOOT OIRO OOOO ITO OOOO IOI OK 
OIRO ICO OOO OSI IER OE tor 


LENGTH C=-C-1 P 
=DATLEN C=C+C P 
C=-C P 
P=C 0 

LCHEX 060910122002 
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1582 OBS9C 22 P= 2 
1583 OBSS9E 3200 LCHEX 000 
0 
1584 OB5A3 20 P= 0 
1585 OBSAS 01 RTN 
1586 SII IOI TI TIT I ITS III IS IIIS ISSO SIS II SSIS IIIS SI SISA SIS IA 
4587 SOI IOI JOJO DT IIIT TTT TTT OORT 
1588 aS 
1589 ** Nane:(S) ARYSIZ - Compute Array Size, # Elenents 
1590 : Nane:(S) ARYELM - Conpute Array Size, # Elenents 
1591 
1592 ** Category:  VARNGT 
1593 as 
1594 ** Purpose: 
1595 xk O ARYSIZ: Conpute array size in bytes. 
1596 xk ~— ARYELM: Conpute number of elenents in an array. 
1597 xk 
1598 at Entry: 
1599 ak D1 points at the dope vector of the array. 
1600 aE 
1601 xe Exit: 
102 ta P=0. 
1603 xk ARYELM: D1 points at first subscript linit. 
1604 a A = nunber of elenents in the array. 
1605 xk ARYSIZ: D1 points at the array pointer within the array 
1606 ah dope vector. 
1807 ak C = array pointer (is an offset fron the array 
1608 ar pointer to the start of the array). 
1609 zis A = array size in nibbles. 
1610 ae 
1611 ** Calls: ARYELM: A-MULT. 
1612 xR ARYSIZ: ARYELM, DATLEN, A-MULT. 
1613 ae 
1614 AX Uses....... 
1615 ii A,8,C,0,01. 
1616 aK 
1617 KK Stk lvis:  ARYELM: 1. 
1618 =e ARYSIZ: 2. 
1619 es 
1620 *k History: 
1621 a 
1622 a Date Progranner Modification 
1623 BK wm wer nme cmc cer eree ene n cern tere r ere cen nme n ens eenesnnee 
1624 x SA Wrote 
1625 . 10/18/83 NM Attenpted to docunent 
bie FIR IST IARI IDI IIIT III ISS III IIA ISISISSSSIISISIISSIISSIS SIS SSS 
1628 JIS IOI IITA TIT IIIS SII I ISIS STII ISIIIISISSIIISISISI SSS STII. 
1629 
1630 OBSA7 1573 =ARYELM C=DAT1 X 
1631 OBSAB AB? d=C x 
1632 OBSRE A27 D=D+D XS PUSH OUT THE STATISTIC BIT 
1633 0B5B1 R27 D=D+D XS 
1634 0B5B4 A2?7 D=D+D XS 


1635 OB5B? 20 P= 0 
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1636 OBSBS 30F 
1637 OBSBC BOF 
1638 OBSBF 172 
1639 OBSC2 D2 
1640 OB5C4 15F3 
1641 OBSC8 173 
1642 OBSCB DO 
1643 OBSCD 1583 
1644 OB5D1 32F 
1645 OB5D4 BO 
1646 OBS5D6 £4 
1647 OB5D8 90B 
1648 OBSDB 02 
1649 OB5DD £6 
1650 OBSDF 90B 
1651 OBSE2 91 
1652 OBSE4 21 
1653 OBSE6 AOF 
1654 OBS5E9 590 
1655 OBSEC DO 
1656 OBSEE £4 
1657 OBSFO 462 
1658 OBSF3 90F 
1659 OBSF6 B1 
1660 OBSF8 5&1 
1661 OBSFB DE 
1662 
1663 OBSFD £4 
1664 OBSFF £4 
1665 OB601 C4 
1666 0B603 21 
1667 OB605 90F 
1668 0B608 90 
1669 OB60A D2 
1670 OB60C E6 
1671 OBBOE 580 
1672 OB611 8E00 
00 
1673 OB617 20 
1674 08619 02 
1675 
1676 OB61B 788F 
1677 
1678 OBo1F 90B 
1679 OB622 FO 
1680 OBb24 ASB 
1681 OB627 795F 
1682 OB62B 8EOO 
00 
1683 08631 173 
1684 0B634 147 
1685 0B637 03 
1686 
168? 
1688 
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ARYS10 


ARYS15 


ARYS20 


* NOW R= 


ARYS3O 


ARYS40 
ARYS50 


x 
=ARYSIZ 
k 


ARYSS5 


ARYS60 


LCHEX 
D=C-D 
Di=D1+ 
C=0 
C=DAT1 
D1=D1i+ 
A=0 
A=DAT1 
DRO 
GOYES ARYS10 
A=A+1 A 

7D=0 =P 

GOYES ARYS20 

C=C+1 A 

7D=0 oP 

GOYES ARYS20 

P= 1 

D=D-1 P 

GONC = ARYS15 

A=0 A 

A=A+1 A 

GOC ARYS5O 

*DHO OP 

GOYES ARYS40 

GONC  ARYS5O 

ACEX A 

MAX. STRING LENGTH, 
A=A+1 A 

R=A+1 A 

A=A+A A 

P= 1 

*DHO OOP 

GOYES ARYS40 

C=0 A 

C=C+1 A 

GONC  ARYSSO 
GOSUBL =a-nult 


broDrASDwWOIT 


oc 
” 


P= 0 
RTNSC 


GOSUB ARYELN 


*D=0) —O~P 
GOYES ARYS60 
C=D P 


GOSUB ORTLEN 
GOSUBL =a-nult 


D1=D1+ 4 
C=DAT1 A 
RTNCC 


2:39 an 
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D(O)= O-5 FOR ORGINAL D(0)= F-A 
D1 @ 2ND SUBSCR LIM OR MAX STR LEN 


C=2ND SUBSCR LIM OR MAX STR LEN 
D1 @ 1ST SUBSCRIPT LIMIT 


A=1ST SUBSCRIPT LIMIT 
SEE WHAT IS THE OPTION BASE 


OPTION BASE 0 
TS THIS A STRING ? 


IS THIS A STRING ? 

YES, IF D(Q) ORIGINALLY = F 
D(1)= SUBSCRIPT COUNT 

IF 0(1)=0 IS NOT ARRAY OR VECTOR 
IF IS AN ARRAY, GOTO ARYS15 


(B.E.T.) 

IF IS A 2 SUBSCRIPTS ARRAY, 
IF SO, MULTIPLY THEN 

(BE. 1.) 


C= 1ST SUBSCRIPT LIMIT 
ADD 2 BYTES FOR STR HOR({ LENGTH) 


A= STRING LENGTH IN NIBBLES 
IS THIS A STRING VECTOR ? 
NOT ARRAY NOR STRING, IS COMPLEX 


(B.E.T.) 
MULTIPLY THE ROW & COLUM LIMIT 


IS THIS A STRING ? 


COMPUTE DATA LENGTH 
COMPUTE THE ARRAY LENGTH 


POINT TO RELATIVE POINTER 
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1689 ‘ 
16% 0B639 END 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 Synbol Table 


A=CALS 
ACTIVE 
ADDRSS 
ADJ=PS 
ADINFG 
=ADIPTR 
ADRS40 
AIDE 30 
=AIDEST 
AP-10 
AP-20 
ARGERR 
ARGOR 
ARGORL 
=ARYE LN 
ARYS10 
ARYS15 
ARYS20 
ARYS30 
ARYS40 
ARYS5O 
ARYS55 
ARYS60 
=ARYSIZ 
AVMENS 
Array 
BASE 

BIGLNK 
C=ACTV 
CALSTK 
CHNHED 
CHNLST 
CNFLCT 
COLLAP 
CR-A10 
CR-A20 
CR-A30 
CR-R40 
CR-ASO 
CR-Ag0 
CR-ADJ 
=CR-ARR 
CR-V¥10 
CR-V20 
CR-V 30 
CR-V35 
CR-V 38 
CR-¥40 
CR-V45 
=CR-VAR 
CR-VCK 
CRIRTN 
CRV210 
CRV220 
CRV230 


Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 


45716 #08294 


45566 #OBIFE 
45564 #OBIFC 
46375 #0B527 


46057 #0B3E9 
46014 #0B3BE 
46384 #0B530 
46424 #0B558 


45157 #08065 
44441 #0AD99 
46503 #0B5A7 
46559 #0B5DF 
46579 #0B5F 3 
46587 #0B5FB 
46602 #OB60A 
46609 #OB611 
46615 #08617 
46623 #OBOIF 
46641 #08631 


oot £ 


46619 #0B61B - 


0 #00000 


44597 #0RE35 
45728 #OB2A0 


46146 #08442 
46196 #OB4 74 
46230 #0B496 
46253 #OB4AD 
46276 HOB4C4 
46284 #OB4CC 
46212 #0B484 
46142 #0B43E 
45773 #OB2CD 
45797 #0B2E5 
45855 #OB31F 
45859 #OR323 
45863 #OB32? 
45887 HOB33F 
45897 #0B349 
45755 #0B2BB 
46091 #0B40B 
45151 #OBO5SF 
44797 #OREFD 
44838 #ORF 26 
44845 #OAF cD 


1083 
1086 
434 
998 
997 
1502 
558 
1311 
1297 
1504 
151? 
779 
779 
329 
16% 
1650 
1658 
1661 
1669 
1672 
1673 
1678 
1683 
1676 
1329 
13 
453 
504 
1086 
1083 
113? 
1066 
276 
117 
1378 
1396 
1406 
1412 
1420 
1423 
1401 
137? 
1142 
1150 
1170 
1171 
1172 
1182 
1185 
113? 
1324 
77? 
624 
643 
646 


1063 


888 
1003 
950 
675 
705 
1300 
584 
1509 
1522 


329 
319 
1676 
1645 
1654 
1648 


1659 
1657 


1679 
607 


188 


575 
439 


1384 
1380 


1425 
1411 
1416 

701 

583 
1149 
1141 
1166 
1183 


1178 
1161 
578 
1171 
81 
644 
628 
622 
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1072 


1080 
964 
696 


202 


785 
323 


1651 
1668 
1660 
717 
240 


1175 
1081 


634 


<83 


370 


1671 


914 
420 


1073 


13% 


1180 
1094 


637 
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1152 


1314 
425 


1398 


581 


706 
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CRV240 Abs 44885 #OAFSS 662 653 
CR¥VZ50 Abs 44917 #ORF75 673 671 
CRV260 Abs 44946 #OAFIZ 684 655 
CRV270 Abs 44991 #OAFBF 701-682 
CRV300 Abs 44999 HOAFC7 703 660 
CRV310 Abs 45032 WOAFES 713, 707-709 
CRV320 Abs 45062 #08006 7220714 
CsicS Ext 793 
DATATP bs 44389 #0ADE5 276 «315 
=DATLEN Abs 46468 #0B584 1578 1681 
DECDC = Ext 61 67 
DECP Ext 62 
DEFEND Ext 1061 
DESTECK Abs 45899 #08348 1189 627 1177 
=DIK Rbs 44048 #0AC10 69 
DIMP Ext 68 
=DINSTH Abs 44048 HORACIO 70 ~—s«65 
=DMNSN Abs 44601 #0AE39 548 79s 801 
DMNSNI Abs 44678 #0RE86 573 $56 569 
DANSN2 Abs 44720 #OREBO 585 582 712 722 
DMSTNT Abs 44068 #0AC24 75 = 80 
=DPVCTIR Abs 44112 #OACSO 187? 76 = 781 
EDSTRIO Abs 45646 #HOB24E 1063 1060 
DSTA5O Abs 45667 #08263 1068 1071 
DSTALL Abs 45635 #0B243 1059 
DSTROS Abs 45623 #08237 1054 1052 


DSTRIO Abs 45740 #0B2AC 1091 1057 1093 


= 
8 
¥ 


DSTR3O0 = Abs 45313 #08101 

DSTR35 Abs 45358 #0B12E 8921 3910 

DSTR36 Abs 45390 #0B14E 933 931 939 
DSTR37 Abs 45393 #08151 9H 944 

DSTR40 Abs 45426 #08172 345 936 

DSTR70 Abs 45488 #08180 969 948 

DSTR8O Abs 45504 #08100 975 967 

DSTR9O Abs 45557 #OB1F5 992 90S 

DSTRDC Ext 1044 
SDSTROY Abs 45594 #0B21A 1046 
EDSTRY* Rbs 45257 #0B0(9 888 1091 

DSTRYP Ext 1045 

ENDCHK Abs 44725 #0REBS 587 1092 

EXPEX+ Ext 118 

EXTRIO Rbs 46305 #0B4E1 1434 «86991_—; 

EXTRET Abs 46295 #0B4D7 1432 694 920 1077 
FIND Ext 1405 

FORSTK Ext 197 1046 

GAP Abs 46329 #OB4F9 1448 «674 «+1151 1397 
GETCNT Ext 1202 
FGETDIN Abs 44395 HOADGB 313, 193-23 222 
GLORP Abs 44593 #ORE31 503 

GSBSTK Ext 123? 

GTIDNIO =Abs 44420 #OADE4 320.317 

GIDM20 Abs 44430 HORDS8E 324 321 
=INTEGR Abs 44034 #OACO2 63 

InDEF Abs 0 #00000 14 93 9% 3947 1050 1053 1059 
LENGTH Abs 46465 #0B581 1577 371 
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=LIMITS 
MENERR 
NFERR 
MOVEDS 
MOVEU2 
=MOved3 
ATHSTK 
NEWVAR 
NODSTR 
=NORDIN 
=NOSTAT 
NXPR10 
NXPRM+ 
=NXPRMP 
NXTSTA 
NoZero 
NonEx 
OpBase 
POPIN 
=PREP 
PREP1O 
PREP2O 
PREP3O 
PREP40 
=PRHC10 
PRHC20 
=PRACHN 
PRMPTR 
=RERL 
REDIN 
REDIM 
REDIN2 
RSTST 
S-RO-1 
S-RO-3 
S-R1-2 
$-R1-3 
=SHORT 
SMFERR 
=SPACE 
=STAT 
STAT1O 
STRT20 
STATH 
STAT40 
STRT5O 
STATAR 
STATOC 
STRTP 
STORE 
String 


TOOBIG 
VALC HK 
VCT16 


Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 


Abs 


Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
fibs 
Ext 
fibs 
Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Abs 
Ext 
Abs 
fibs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
flbs 
Abs 
flbs 
Abs 
Abs 
Abs 
Abs 
fibs 
Rbs 
Ext 
Ext 
Ext 
Ext 
Rbs 


Abs 
Ext 
Ros 


44094 


46322 


46443 
45309 
44589 
45092 
46000 
45980 
45989 


WAR Ww 


44463 
44438 
44506 
44535 
44584 
45951 
45954 
45941 


44034 
44745 
44761 
44763 


440 34 
45096 
44445 
45076 
45102 
45117 
45140 
45163 
45181 


44383 
44171 
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Syribol 
#ORC3E 


#OB4F2 


#0B56B 
#OBOFD 
#OAE2D 
#0B024 
#0B3B0 
#0B39C 
#0B3A5 


#00003 
#00002 
#00003 


#OADAF 
#ORDC8 
#OADDA 
#ORDF 7 
HORE28 
#0B37F 
#0B382 
#08375 


HORCO2 
HORECS 
HOREDS 
HOREE1 


#OALOZ 
#OBO2S 
HOADSD 
#OB014 
HOBOCE 
#OB03D 
#0B054 
#0B06B 
#OB070 


#0000 1 
RORDSF 
#OAT8B 


Table 


117 
Decale 
- 764 
- 1441 
- 1454 
- 1441 
a= “949 
= “1525 
- 905 
- $02 
- 760 
- 1260 
- 1252 
- 1256 
777 
18 
16 
17 
313 
418 
42? 
433 
442 
456 
1239 
1240 
123? 
1297 
6 
595 
601 
604 
- 119 
a Sees 
- 206 
- 442 
= 73 
= 64 
= 764 
- 373 
- 764 
= #63 
- 768 
ee oS 
- 781 
- 788 
oe 21S: 
>. “956 
el hoe 
= 4491 
- 15 
708 

= 276 
= $195 
- 206 


4 t 1 t ' ' , t ' ' t 


190 


986 
1153 


441 
765 
1258 
643 


548 
433 
232 


75 
424 
431 
436 
454 

1264 
957 
623 


566 
597 
602 


552 


503 
78 


772 
759 
803 
756 
790 


221 


1078 


564 


1182 


603 
437 
263 


754 


1245 
1170 


§72 


800 


235 
373 
200 


1432 


639 


713 
555 
320 


1247 


238 
504 
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1449 


75 
45 


42 
67 


8 
2 


7 


2 


1502 


455 


432 


565 
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596 
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vCT15 
VCT20 
VCTX 
VCT40 
VCT50 
VCT60 
VET 70 
VCTRCK 
WIPOUT 
a-riult 
chkspc 
eIVSAR 
eVCNTX 
fltdh 
getcnt 
tALL 
tARRAY 
tCONMA 
uf NSTK 
uf RTNA 


Abs 
Abs 
Abs 
Abs 
Abs 
Robs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 


2306 


44230 
44240 
44277 
4400 
44323 
44363 
44365 
45229 


45934 
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#ORCCO - 
WORCDO - 
WORCFS - 
#ORDOC - 
#WOADZ3 - 
#0ARD4B 
#OAD4D 
#OBORD 


#OB36E - 


#OO04E 
#00006 


223 
225 
238 
247 
254 
267 
268 
849 
721 
252 
574 
760 
502 
316 
1202 
1054 
422 
589 
1 
11 


219 
214 
233 
239 
251 
248 
271 
909 
1456 
372 
670 


621 


959 
959 


236 


938 
1672 


365 


<83 


1682 


1051 
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Input Paraneters 
Source file nane is AB&REG: :AS 
Listing file nane is AB/REG:TI:ML::-1 
Object file nane is ABZREG: TI: MS::-1 


111111 
0123456 789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 TITLE Functions <831212.1512> 
2 0B639 ABS = #0B639 
3 k 
4 x ARA BBBB & FFFFF CCC N N 
5 * A AB B && F C CN N 
6 * A AB B &8& F Cc NN ON 
7 * AARAR BBBB & FFFF C NNN 
8 * A RB B &8&8& F C N NN 
9 * A AB B&B F Cc CN N 
10 * A A BBBB & & F ctC WN N 
11 x 
12 RDOSYMB TIZEQU: : NS 
13 FRI IR IIIS OSI IIIS II III III ISI III IIS ISIIIIIIISSSIIDII IIS I ISI IS 
14 SII II RIK TTDI TEI I TIAL IIIA LILI ITI ISIS I IIIS ISIS IL ISI IIIS IA 
15 kK 
16 xk Nane: INVLUT - Involution Operation (*) 
17 ** Nane: MINUS - Minus Operation (-) 
18 *&k Nane: NOT - Not Operation (NOT) 
19 xt Nare: MULTPY - Multiply Operation (*) 
20 xt Nane: DIVIDE - Divide Operation (/) 
21 xk Nane: PERCNT - Percent Operation (2%) 
22 xk Narie: PLUS - Addition Operation (+) 
2 ** Narie: CONCAT - Concatenation Operation (&) 
24 ** Narie: EXPON - EXPONENT Function 
25 ae 
26 **% Category: FNEXEC 
97 at 
28 ** Purpose: 
29 ae Evaluate the various binary operators. 
30 ak 
31 ** Entry: 
32 a Expression execution controller junped on appropriate 
J x token. 
34 = P=0, 
35 ae HEX node. 
36 ae DO = PC. 
37 ax D1 = Mathstack pointer. 
38 wk 
39 at 
40 S*-Ex1t: 
41 xe Through EXPR. 
82 a 
43 *t Calls: Appropriate calls for each operator. 
44 a 
45 BE SOS cuietie ts 
46 an Reasonable usage for functions. 
47 be 
4§ ** Stk vis:  <=4 
49 xk 
50 ** Note: 
$1 a When operators are parsed, unlike when functions are 
ya es parsed, the parameter count is not used. The parn 
53 mS counts appearing before each routine are for CALC node. 
54 xx 


55 ** History: 
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56 

5? 

58 

59 

60 

61 

62 

63 

64 OB639 11 

65 OB63B 8E31 
70 

66 OB641 447 

67 0B644 8E00 
00 

68 OBG4A 6936 

69 

70 OBG4E 11 


71 OB650 78C6 
72 OB654 416 
73 08657 BCC 
74 OB65A 68B2 
75 
76 OB6SE 11 
77 OB660 7027 
78 OB664 415 
79 OB667 2E 
80 OB669 AIC 
81 OB66C 69F1 
82 
83 08670 11 
84 OB672 7ED6 
85 OB676 4F3 
86 OB679 8£00 
00 
87 OB67F 6406 
88 
89 OB683 11 
9) 08685 7BC6 
91 OB689 4C2 
92 OB68C BEX 
0 
93 OB692 61FS 
94 OB696 11 
95 OB693 78B6 
96 OB69C 491 
97 OB6SF 8£00 
00 
98 OB6AS 460 
99 OB6AS CE 
100 OB6AA CE 
101 OB6AC 8E00 
00 
102 OB6B2 6105 
103 OB6B6 6965 
104 
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Page 2 
ik 
aK Date Progranner Modification 
RR siccoe!, (lise ees, ssguecieeeveas Ga cose sceowbencees 
ak SA Wrote 
kk 10/13/83 NT Attenpted to docunent 


ak 
STOR RI IIR IO SIO IIT I II ITI SII ITI II TISAI ISI IASI SII IID 
FRR IOI IORI II IIIT ST TIED DIDI IIIT TIT TII IDI ITIDI ID I IIS III IN 


NIBHEX 11 Argument count range = [1,1] 
=INVLUT GOSUBL MPOP2N 


GOC CLNK1 
GOSUBL =YX2-12 


GOTO  OQUTRES 
JIG OOO TTI I SOAS ISIS IIS II IIIS ISS IS IISA IIS 
NIBHEX 11 Argunent count range = [1,1] 
=MINUS GOSUB POPIN 
GOC CLNK1 
A=-A-1 S 
GOTO DIAEXP 
23 III SOOO IST TTIK 
NIBHEX 11 Argunent count range = [1,1] 
GOSUB POPIN+ 
COC CLNK1 
P= 14 
R=A-1 WP 
O10 BABBAJ 
JOO ITT IAT TEI II RII ISIS II IITI SSSI SISA 
NIBHEX 11 Argunent count range = [1,1] 
sMULTPY GOSUB MPOP2N 
GOC CLNK1 
GOSUBL =MP2-12 


=NOT 


GOTO OUTRES 
JOO IO CT TIT TIT IIIRISS IO IIS IIS 
NIBHEX 11 Argunent count range = [1,1] 
GOSUB MPOP2N 
GOC CLNK1 
GOSUBL =D¥2-12 


=DIVIDE 


GOTO  OUTRES 
NIBHEX 11 
GOSUB NMPOP2N 
COC CLNK1 
GOSUBL =SPLTAC 


Argunent count range = [1,1] 
=PERCNT 


GOC uMP15 carry set neans non-finite oper. 
C=C-1 A JUOCGUCKBUG--SEE SBI EE touuCGiok 
C=C-1 A divide finite 15 dig res by 100. 


uMP15 GOSUBL =MP2-15 
GOTO OUTRES 
CLNK1 GOTO CPOLLF 


FORO IO OO TTR FT TTT ITT TTR 


Saturn Asseribler 
Ver. 3.39/Rev. 26 


105 OB6BR 11 

106 OB6BC 7496 

107 OB6CO 45F 

108 OB6C3 8E00 
00 

109 OB6C9 6460 

110 

111 OB6CD 11 

112 OB6CF 7566 

113 OB6D3 D8 

114 OB6DS 137 

115 OB6D8 C9 

116 OB6DA 135 

117 OB6DD 136 

118 OB6EO D? 

119 OBGE2 15R6 

120 OBGE6 7256 

121 OB6EAR D9 

122 OBBEC C8 

123 OB6EE 7000 

124 OB6F2 04 

125 OB6F4 BFO 

126 OB6F? BFO 

127 OB6FA AOC 

128 OB6FD 1CF 

129 OB700 1596 

130 OB704 8CEC 
BO 

134 

132 OB70A 811 

133 OB70D ?7C76 

134 0B711 448 

135 0B714 8E00 
00 

136 OB71R 6965 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 
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NIBHEX 11 Argurent count range = [1,1] 
=PLUS GOSUB MPOP2N 
GOC CLNK1 


GOSUBL =uADI2 Fetch Rnd Mode,Split,Add, & Round 


GOTO  TOFNA4 
JO III SIO II ITT IIT TOTS TS III I III IIIS TEI IAI TI IIS IISA IA 


NIBHEX 11 Argunent count range = [1,1] 
=CONCAT GOSUB POP1S READ HEADER 

B=R A 

CDIEX 

C=C+B A COMPUTE ADDRESS OF NEXT STRING 

D1=C 

CDOEX 

B=C A SAVE PC IN D-REGISTER 

A=DATO 7 READ HEADER 

GOSUB POP1S1 CHECK FOR STRING 

C=B OAR 

B=A+B A COMPUTE LENGTH OF NEW STRING 

GOSUB =MOved3 PACK OUT SECOND HEADER 

A=B A CONSTRUCT NEW HEADER 

ASL W 

ASL W 

R=A-1  P 

D1=D1- 16 

DAT1=A 7 


GOLONG DEXPR RESTORE PC, RETURN 


JOR IOI IOI TTT TT TIT TO II 


NIBHEX 811 Argunent count range = [1,1] 
=EXPON GOSUB MPOPIN 

GOC CLNK41 

GOSUBL =EX12 


<SMZMNTH> §=Return Exponent(x) 


GOTO OQUTRES 


JOR JOIST TTT TOTO TT TTT ITI 
FORO ITT TTT TTI III TR 
aK 


*k Narie: 
ak 


*k Category: 
ah 


CLASS - Execute CLASS Function 


FNEXEC 


Purpose: 
Execute class function. 


DO = PC. 
Dt = Mathstack pointer. 
Jumped on CLASS token. 


Exit: 
Through EXPR. 


Calls: POPIN, CLASSA. 
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157 ax 
158 ** History: 
159 AR 
160 tk Date Progranner Nodif ication 
161 Rk (ewdeeses sseteeceddes «sees e chce ses wet Scere ee ee See ce ses 
162 RK SA Wrote 
163 kk 10/13/83 so NM Atterpted to docunent 
164 ke 
165 JOIST IO III ISAO IS TI RT 
166 JOSS IOUS ITT TTT IH 
167 OB71E 811 NIBHEX 811 
168 0B721 77F5 =CLASS GOSUB POPIN 
169 08725 409 GOC CLNK1 
170 08728 8£00 GOSUBL =CLASSR <SMZNTH> Return +/-{1,2,..5} 
00 
171 OB72E 6186 TOFN4 GOTO FN4 
172 JUSSI IO OCICS IO TOT TIT TE TTT TIT TTT 
173 0B732 62E5 DATERR GOTO CNFLCT "Data Type" 
174 JOU IS OST SIT IA SIS III ITI ATI IIIT I IIIT AI IS 
175 JOIST ST TTT TTT 
176 Rx 
177 *x Wane: SMALL - Create Special Consts 
178 &* Nane:(S) BIG - Create Special Consts 
179 ** Wane: BIG+ - Create Special Consts 
180 Name: (S$) HUGE - Create Special Consts 
181 
182 ** Category:  MTHUTL 
183 = 
184 ** Purpose: 
185 ae Create constants MAXREAL, INF, EPS. 
186 ak 
187 xx Entry: 
188 am 
189 aX Exit: 
190 kk SMALL: C{W) = EPS. 
191 is: Mode unchanged. 
192 kk P=14, 
193 xx BIG: =C[W] =+/-9.99999999999E499 (sign preserved fron 
194 ze entry). 
195 > DEC node. 
196 tk BIG+: = C[W] = 9.99999999999E499, 
197 a DEC node. ’ 
198 x HUGE: C[W] = 0999999999999F00 (infinity). 
199 ax 
200 ** Calls: None. 
201 ax 
202 RE USOS cress 
203 ae C. SMALL uses P. 
204 ax 
205 ** Stk lvls: 0 
206 RK 
207 ** History: 
208 &k 
209 xx Date Progranner Modification 


210 $4o Do eee, Sete 2astieeonesareataseetanes cau useeed 
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211 
212 
213 
214 
215 
216 
217 
218 


219 
220 
221 
222 
223 


224 
225 
226 
227 
228 
223 
2H 
231 
232 
233 
234 
235 
236 
237 
238 
239 
249 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
c57 
258 
259 
260 
261 
262 


263 


08736 AF2 
0B739 2E 
0B73B 3410 
105 
0B742 02 
0B744 AC2 
08747 05 
0B749 136 
OB74C 1A99 
40 
0B752 136 
08755 AD2 
087538 ASE 
0B75B 02 
OB75D AF2 
0B760 04 
0OB762 A2E 
08765 05 
0B767 ASE 
OB76A O2 


ax 


xx 10/13/83 NM 
ak 
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SR Wrote 
Attenpted to docurnent 


SOR TOTO OTR TIT TIT IK 
SOOO TOI ITT OOOO IO 


=SMALL C=0 W 1.0 £-499 
P= 14 
LCHEX 50101 
RINSC 
=BIG+ (C=O S 9,99999999999 £499 
=BIG SETDEC (Does not change P) 
CDOEX 
DO=HEX 0499 
CDOEX 
C=0 4 
C=C-1 N sets carry 
RTNSC 
=HUGE  (=0 W +Infinity 
=HUGE2O SETHEX (Does not change P) 
C=C-1 = XS sets carry 
SETDEC 
C=C-1 ff +9.99...99FOO=inf & sets carry 
RTNSC 


JOO II IOI IOI TT ITI TOTTORI TO TTI OK 
JOTI IOI OTTO IT TT TTT TTT TT OT OI IO 


ax 
ax 
ax 
xx 
ax 
ax 
ax 
ak 
a 
ae 
aX 
ka 
ax 
ae 
xx 
aa 
an 
ae 
ax 
xx 
ax 
aX 
xx 
ak 
ae 
aR 
aK 
ae 


Nane: 
Narie: 
Nane: 
Nane: 
Nane: 


Category: 


Purpose: 
Eval 
EPS, 


Entry: 
DO 
D1 
P=0, 
Junp 


nou 


Exit: 


MAXRL - MAXREAL Function 
MINRL - MINREAL Function 
EPS - EPS Function 
INF - INF Function 
NAN - WAN Function 
FNEXEC 
uate these no-argunent functions: MAXRERL, MINREAL, 


INF, NAN. 


PC. 
Nathstack pointer. 


ed on appropriate token. 


Through EXPR. 


Calls: 


History: 


Whatever. 
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264 
265 
266 
267 
268 
— 269 OB76C 
270 OB76E 
271 08772 
272 
273 08775 
274 08777 
275 08779 
276 0877C 
277 OB77E 
278 08781 
279 0B784 
280 08787 


281 OB78E 
282 08791 
283 08794 
284 08797 
285 0B79B 
286 

287 0B79F 
288 OB7A1 
289 OB7A5 
290 

291 0B7A8 
292 OB7AR 
293 OB7RE 
294 

295 08781 
296 0B7B3 


297 OB7B9 


298 
299 OB7BF 
0 
1 
2 
3 
4 
5 
6 
7 
308 
9 
310 
311 
312 
313 
314 
315 
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00 
72DF 
464 


00 
05 
AF 1 
2E 
805 
AFO 
132 
1803 
499 
132 
822 
821 
7384 
6010 


00 
719F 
431 


00 
7FAF 
40 


00 
8E00 
00 
8000 
00 


6064 
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kK SA 
*k 10/13/83 NN 
ke 


Wrote 
Atternpted to docunent 


FORO TJ IIIT TTT ITT IT TTT 
FOI TOTO TOTO OTTO TTT TIT OK 


NIBHEX 00 Argunent count range = [0,0] 
=MAXRL GOSUB BIG+ 


GOC FNI 
FOI JOO ROTO ITO OTT TITS TIT IT 


NIBHEX 00 Argunent count range = [0,0] 
=MINRL SETDEC 

B=0 W 

P= 14 

B=B+1 P Mantissa=1 

A=0 W 

ADOEX 

DO=HEX 99490 Exponent=-510 

ADOEX 

$B=0 Exact. 

xM=0 No Exception. 

GOSUB uresi2 

GOTO =F NI 


FORK RUROINI II III STIS SI IN 


NIBHEX 00 Argunent count range = [0,0] 

=EPS GOSUB SMALL 
GOC = FIN4 

FOI I SII SII STII IIS IIS I IIIT AISI III SIS IIIS SII ISISS IISA 
NIBHEX 00 Argunent count range = [0,0] 

sINF  GOSUB HUGE 
coc FN 

JUS TOIT TOT TTI IIIS III IOI SSIS 
NIBHEX 00 

=NAN GOSUBL =SIGNAN CREATE A SIGNALING NAN. 

FNI GOLONG =FNRTN1 


JI OOOO CC TTR 
CLNK2 GOTO  CPOLLF 


FIR FIFO ITO I IIIS III III RTT IIIT TIKI IIIT I TIS II IK 
FOO SIU RIO III TTT TTT IK 


kk 
** Nane: COMPAR - Execute Comparison Operator 
ik 

** Category: FNEXEC 

kk 

** Purpose: 

ax Evaluate comparison operator. 

kk 

AX Entry! 

oe DO = PC. 

ak D1 = Mathstack pointer. 

- P=Q, 

xk 


Junped on conparison operator token. 
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Ver. 3.39/Rev. 2306 Page 7? 
316 RK 
317 ax Exit: 
318 ae Through EXPR. 
319 xe 
320 A*® Calis: Depending on the test: 
321 1 MPOP2N, POP1S, POP1S2, STRIST, uTEST. 
322 AK 
323 ** History: 
324 ak 
325 aK Date Progranner Modification 
326 PR elite. | Sameweesae ; iy. Cea ON eee ies eas 
327 aR SA Wrote 
328 fi 10/13/83 NM Attenpted to docunent 
aes JOU II TIT III OTS IIIT ITI III I SI ITI IIIT SII III TRIOS ISAS II IAL 
331 JIT IDRIS TITS T ID TID TID TILIA TI IIIT III III IIIS ISS SOS III IA 
332 OB7C3 11 NIBHEX 11 Argunent count range = [1,1] 
333 0B7C5 1564 =COMPAR C=DATO §$ READ PREDICATE NIBBLE 
334 0OB7C9 160 DO=D0+ 1 INCREMENT PC 
335 OB7CC AC? D=C S Predicate to D (sign) 
336 OB7CF 15B6 A=DAT1 7 READ STACK SIGNATURE 
337 0B7D3 B04 A=A+1  P 
338 0B706 A64 A=A+A OB 
339 OB7D9 968 7A=0)—=B STRING? 
340 OB7DC 02 GOYES STRCNP IF SO, GOTO STRCMP 
341 
342 OB7DE 109 R1=C Save Predicate. 
343 0B7E1 7F65 COSUB =MPOP2N Fetch Arg’s, Conplex? 
344 OB7E5 129 CRIEX Bring in Predicate & save C 
345 OB7E8 8ODF P=C 15 PREDICATE TO POINTER 
36 OB7EC 129 CRIEX Restore C 
347 
348 OB7EF 4FC GOC = CLNK2 IF COMPLEX, POLL FOR COMPLEX RON 
349 OB7F2 8E00 GOSUBL =uTEST COMPARE 
#0 
350 OB7F8 6060 COTO BABBAI GOTO BABBAJ 
351 OB7FC 7945 STRCMP GOSUB POP1S2 ALIGN LENGTH HEADER 
352 OB80 D6 Cc=-A =A STORE LENGTH IN C 
353 OB802 137 CDIEX 
354 0B805 C2 C=C+A A COMPUTE ADDRESS OF SECOND STRING 
355 08807 07 D-CA 
356 0B809 137 CDIEX 
35? OB80C 7825 GOSUB POP1S READ NEXT STRING HERDER 
358 OB810 137 CD1EX 
359 0B813 C2 C=C+A A COMPUTE ADDRESS OF FIRST STRING 
360 OB815 06 RSTK=C SAVE ON HARDWARE STACK 
361 OB817 136 CDOEX 
362 OB81A DF CDEX A SAVE PC IN D 
363 OB81C 137 COIEX 
364 OB81F 24 P= 4 ASSUME FIRST STRING IS LONGER 
365 OB821 8B6 AC OA IS FIRST STRING LONGER? 
366 08824 DO GOYES SC10 IF SO, GOTO SC10 
36? OB826 22 P= 2 ASSUME STRINGS RRE SAME LENGTH 
368 OB828 8A2 *A=C OA ARE STRINGS SAME LENGTH? 


369 OB82B 60 GOYES $C10 IF $0, GOTO SC10 
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370 OB82D 21 P= 1 FIRST STRING IS SHORTER 

371 OB82F Dé C=A A 

372 0B831 8OFF SC10 CPEX 15 

373 0B835 ACS B=C S 

374 0B838 8FOO GOSBVL =STRIST STRINGS EQUAL? 

000 

375 OB83F AFD BCEX Ww 

376 0B842 SFO GONC SCH IF SO, GOTO SCH 

377 0B845 24 P= 4 ASSUME FIRST STRING IS GREATER 

378 0B847 9FO ADB OW IS FIRST STRING GREATER? 

379 OB84A 40 GOYES SC20 IF $0, GOTO SC20 

380 OB84C 21 P= 1 RECORD INFERIORITY 

381 OB84E 8OFF SC20 CPEX 15 

382 OB852 DB SCs C=D A RESTORE PC 

383 08854 134 dO=C 

384 0B857 07 C=RSTK PLACE STACK POINTER 

385 0B859 135 D1=C 

386 OB85C 1CF D1=D1- 16 

387 OB85F 0E47 C=(C8D § DETERMINE RESULT 

388 OB863 BCA =BOOLE C=-C § 

383 OB866 AF2 =BABBAJ C=0 W ASSUME FALSE 

39 08869 570 =LOGIC GONC ODMPRES IF FALSE, GOTO DMPRES 

391 OB86C 2E P= 14 

392 OB86E #1 LCHEX 1 CREATE LOGICAL TRUE 

393 0B871 6E65 DMPRES GOTO FN4 DUMP RESULT 10 STACK 

394 FRI TIT IITIT ISIS SSIS III IIS SIS SII III IOI SIT ISI SSSI SSSI ISI SSS: 

395 FRI ISI IIS ISIS IIIS IIIT SI III III SII ISI ISIS STS ISIS AS: 

396 a 

397 *k Nane: AND - AND Logical Operators 

398 ** Narie: OR - OR Logical Operators 

399 ** Nane: EXOR - EXOR Logical Operators 

400 kk 

41 *& Category: FNEXEC 

402 xk 

43 ** Purpose: 

404 - Evaluate logical operators during expression execute. 

405 

406 ** Entry 

407 a DO = PC. 

408 xk D1 = Mathstack pointer. 

409 xe P=0, 

410 xx HEX node. 

411 ar Junped on appropriate token. 

412 xe 

413 ** Exit: 

414 aR Through EXPR. 

415 — 

416 ** Calls: POP2N+. 

417 ak 

418 ** History: 

419 an 

420 a Date Progranner Modification 

421 RR MSletewse, “Maetessece, Jee en Soe Sees Ute 

422 ae SR Wrote 

423 kk 10/13/83 9 NM Attenpted to docunent 
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424 
425 

426 

427 0B875 11 
428 0B877 7DD4 
429 0B87B 04 
430 0B87D 491 
431 0B880 2E 
432 0B882 BSA 
433 0B885 SOE 
434 0B888 B98 
435 OB88B 6ADF 
436 

437 OB88F 11 
438 0B891 73C4 
439 0B895 04 
440 0B897 4A6 
441 OB89A 2E 
442 OB89C OEE 
443 OB8AO 57E 
444 

445 OB8A3 11 
446 OB8A5 7FA4 
447 OB8A9 04 
448 OB8AB 465 
449 OB8AE 2E 
450 OB8BO A98 
451 0B8B3 AID 
452 OB8B6 450 
453 OB8B9 A91 
454 OB8BC 0E11 
455 OB8CO ATE 
456 OB8C3 450 
457 OB8C6 ASZ 
458 OB8C9 0E16 
459 OB8CD E18 
460 0B8D1 66BF 
461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 
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FOCI I ITO ITO TTT TO TIO IOC 
SOJT OTT TO TTT TOTO TTT 


=AND 


LGOCTST 


NIBHEX 114 Argunent count range = [1,1] 
GOSUB POP2N+ 

SETHEX 

GOC SLARF 

P= 14 

C=-C WP 

GONC  BABBAI 

A=-A WP 

GOTO BABBAJ 


FOI TIT OTTO TOTO TOT TIT 


NIBHEX 11 
GOSUB POP2N+ 
SETHEX 

coc CLNK3 
P= 14 
A=R'C WP 
GONC = LGCTST 


Argurient count range = [1,1] 


GOTO LGCTST 


FORO IIIT TOT ITOK 


=EXOR 


EXOR10 


EXORZ2O 


NIBHEX 11 
GOSUB POP2N+ 
SETHEX 
GOC 

P= 

B=A 
B=B-1 
GOC 
B=0 
B=B&C 
C=C-1 
GOC 
C=0 
A=R&C 
A=A'B 
GOTO 


Argurient count range = [1,1] 


CLNK3 
14 

WP 

WP 
EXOR10 
WP 

WP 

WP 
EXOR2O 
WP 

iP 

WP 
LGCTST 


not X 


(not X) and Y 
not ¥ 


X and (not Y) 
((not X) and YJor(X and (not ¥)) 
GOTO LGCTST 


FORO IIIS OO TOOT TOI OOOO. 
FOI IIIT ITI IIIT TOI OI OI OI 


wk 


** Nane: SGN ~- SGN Function 
** Nare: ABS - ABS Function 
xk 

** Category: FNEXEC 

xk 

*x Purpose: 


KK 


Execute SGN, ABS functions. 


** Entry: 

xk pP = QO 

mA DO = PC. 

AE D1 = Mathstack pointer. 
kk 


Exit: 


Juriped on SGN or ABS token. 
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479 
480 
481 
482 
483 
484 
485 
436 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 


498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 


519 
520 
521 
522 
523 
524 
525 
526 
52? 
528 
529 
530 
§31 


OB8D5 811 
OB8D8 7044 
OB8DC 452 


OB8DF AF2 
OB8E2 8E00 
00 


OB8E8 580 
OB8EB AF6 
OB8EE 4FO 


OB8F1 ACE 
OB8F4 2E 
OB8F6 918 
OB8F3 50 
OB8FB 301 


OB8FE 627F 
OB92 6D13 


OB906 811 
OB909 7F04 
OB90D 44F 
0B310 ACO 
OB913 1517 
08917 8C00 
00 
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ak Through EXPR. 
ah 


ak Calls: Yes. 
kk 


** History: 
ah 


ax Date Progranner Modification 

WR Becccees) elesc eee. - weabccewee ce bocce cose re teeteese eee 
aK SA Wrote 

** 10/13/83 NN Attenpted to docunent 


ak 
FOO TOOTS TTI TITS TD ITI TTT TTI TI TTT IIIT ITT II 
KAI KAIRIE AIK KIRK ERI IKE III I IIIT IK KIT IRIE RII IIIT REE RTI IS ID 


NIBHEX 811 Argunent count range = [1,1] 
=SGN GOSUB POP1N POP ARGUMENT 

GOC CLNK3 

C=0 W (SET C#NAN) 

GOSUBL =NSN15 NAN? 

GONC SGN20 not NaN 

C=A W RTN THE NAN. 

GOC SGN3O “GOTO" 
SGN20 C=A $ 

P= 14 

7A=0 =P X=07 (NOT INF THOUGH) 

GOYES SGN30 

LCHEX 1 +/- ONE 


SGN30 §=6GOTO = DNPRES 
SII TI III ITD ISAT TI III DIISIISSSSSSIISIIIISSISSISI ISI SSS IIS SII SIM 


CLNK3 GOTG CPOLLF 

NIBHEX 811 Argurient count range = [1,1] 
=ABS GOSUB POPIN 

GOC CLNK3 

A=O0 —§ 


DIREXP DATI=A W 
expr GOLONG =EXPR 


FOI OO TR ITT ITI TRI III 
FORO TTT TTT IIT IIDTTIII 
kk 


** Narie: RES - RES Function 
xX Category: FNEXEC 


** Purpose: 
ak Evaluate RES function. 


xk Entry: 
ak P=0, 
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532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 OB91D 00 

551 OB91F 137 

552 OB922 1FOO 
000 

553 OB929 7FE3 

554 OB92D 135 

555 0B930 AF6 

556 08933 4EC 

557 OB936 6115 

558 

559 OB93A 162 

560 OB93D 21 

561 OB93F ROF 

562 OB942 90F 

563 OB945 33 

564 0B947 163 

565 OB94A 7EC3 

566 OB94E 400 

567 OB951 7654 

568 OB955 470 

569 OB958 8A 

570 OB95B 00 

571 OB95D D2 

572 OBS5F 153 

573 OB963 163 

574 OB966 8B6 

575 OB969 00 

576 OB96B 92F 

577 OB9GE 60 

578 OB970 £6 

579 OB972 01 

580 08974 CC 

581 OB976 01 

582 

583 08978 7ECF 

584 OB97C 422 

585 OB9?F 17F 
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aK 
aK 
aK 
ak 


Rk Exit: 


ak 
ak 


Page 11 
DO = PC. 


D1 = Mathstack pointer. 
Junped on RES token. 


Through EXPR. 


ak Calls: POPIN. 

ae 

*k History: 

kk 

ax Date Progranner Modification 

$e oeeteseh, teatoeiiees, eect Ne eee eee 
ah SA Wrote 

KK 10/13/83 NM Atternpted to docurent 

te 


FOTO III II IT TT TTT TTR TK 
JOR III III OIC TOTO TI 


=RES 


NIBHEX 00 Argunent count range = [0,0] 
CDIEX 
D1=(5) =RESREG 


GOSUB POPIN 


01=C 

C=A W 

GOC CLNK3 

GOTO = fn 
JOTI III III OO TTT TITAS 
REGNUN DO=00+ 3 

P= 1 

D=D-1 P 

7DHO | OP DINCOUNT EQL 2 

GOYES RGNMN4 THEN GOTO RGNM4; 

DO=D0+ 4 POINT AT NEXT DINLINIT; 
RGNN1 GOSUB POPIN POP SUBSCRIPT; 

RTNC COMPLEX THEN RETURN CARRY SET; 

GOSUB filtdh CONVERT TO HEX; 

GOC RGNN2 CONVERSION OK THEN GOTO RGNN2; 

7AHO OA CONVERSION NOT OK 

RTNYES THEN RETURN CARRY SET; 
RGNN2 C=0 8 

C=DATO 4 READ DINLINIT; 

DO=D0+ 4 

PAC OA SUBSCRIPT OUT OF RANGE 

RTNYES THEN RETURN CARRY SET; 

?DHO KS BASEOPTION ONE 

GOYES RGNN3 THEN GOTO RGNM3; 

C=C+1 A INCREMENT DINLINIT; 

RIN OVERFLOW THEN SET CARRY; RETURN; 
RGNN3 A=A-1 A DECREMENT SUBSCRIPT; 

RIN ZERO SUBSCR THEN SET CRY; RETURN; 
RGNN4 GOSUB RGNM1 GET SECOND SUBSCRIPT; 

GOC RGNMS COMPLX/OUT OF RNG THEN GOTO RGNMS 

Di=01+ 16 
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586 OB982 100 
587 08985 108 
588 086988 7EBF 
589 OB98C 400 
59 OB98F 118 
591 0B992 8£00 
00 
532 OB998 118 
593 08998 CA 
594 08990 03 
595 
596 OBS9F 17F 
597 OB9A2 7673 
598 OB9R6 04 
599 OB9A8 DO 
600 OBSRA CC 
601 OBSAC 02 
602 
603 OB9RE CA 
604 OB9BO 146 
605 OB9B3 E2 
606 OB9B5 132 
607 OB9B8 EA 
608 OBSBR D8 
609 OBSBC 
610 OBSBF 111 
611 OB9C2 £4 
612 OB9C4 01 
613 
614 
615 
616 OB9C6 161 
617 OB9C9 146 
618 OBSCC 134 
619 OB9CF 20 
620 OB9D1 1563 
621 OB9D5 AB? 
622 OB9D8 31AE 
623 OB9DC 987 
624 OBSDF OO 
625 OB9E1 21 
626 OBSE3 988 
627 OBSE6 OF 
628 OB9E8 132 
629 OBSEB 1560 
630 OBSEF 132 
631 OBSF2 907 
632 OBSFS 00 
633 OB9F? O03 
634 
635 OB9FI 20 
636 OBSFB 3102 
637 OBSFF ABD 
638 OBAO2 10A 
639 OBROS OF65 
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RGNM5 


2xRGNN 
RRYADR 


*Y¥CCKO 
x 
VCCK1 


VECCHK 


NEWVEC 


RO=A 

R3=C 

GOSUB RGNM1 
RTNC 

C=R3 

GOSUBL =a-nult 


C=RO 
R=A+C A 
RTNCC 


D1=01+ 16 
GOSUB POPIN 
SETHEX 

R=0 A 
A=A-1 A 
RTNSC 


R=A+C 


oO 
" 
oO 
! 
x» 
p>D a>wvD 


_ 
x» 


D=C 
LCHEX 
2020 
RTNYES 
P= 1 
<=) P 
GOYES VCCK1 
ADOEX 

C=DATO P 
RDOEX 

7C#D =P 
RTNYES 

RTNCC 


P= 0 
LCHEX 20 
BCEX X 
R2=C 
C=B&C B 
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SAVE SECOND SUBSCRIPT; 

SAVE SECOND DINLINIT; 

GET FIRST SUBSCRIPT; 

CNPLX/OUT OF RANGE THEN GO RGNMS 
RECALL SECOND DIMLIMIT; 

FIRST SUBSCRIPT * 2ND DIMLIMIT; 


RECALL SECOND SUBSCRIPT; 


COMPUTE REGISTER NUMBER; 
RETURN CARRY CLEAR; 


POP SECOND SUBSCRIPT; 


CREATE LARGE REGISTER NUMBER; 
RETURN CARRY SET. 


READ REL ADDRESS OF ARRAY START 
COMPUTE REL ADDRESS OF REGISTER 


COMPUTE ABS ADDRESS OF REGISTER 
LERVE ADDRESS IN B RAND DO 


LEAVE PC INA 
INCREMENT PC PAST SUBSCRIPT COUNT 
RETURN 


DOPE VECTOR AT INDIRECT ADDRESS? 
IF NOT, RETURN CARRY SET 


READ INDIRECT ADDRESS 
READ REGISTER TYPE INFORMATION 
SIMPLE VARIABLE? 


IF $0, RETURN CARRY SET 


PARAMETER POINTER? 
IF SO, REPEAT VCCK1 


READ SUBSCRIPT COUNT 
SAME ARGUMENT COUNT? 


IF NOT, RETURN CARRY SET 
RETURN CARRY CLEAR 


SAVE VARIABLE NAME IN R3 
ISOLATE STRING BIT 








640 
641 
642 
643 
644 
645 OBROS 
646 OBROC 
647 OBROE 
648 OBA11 
649 OBA14 


650 

651 OBAIA 
652 OBA1D 
653 OBAIF 
654 OBAZ3 


655 OBAZA 
656 OBAZE 
657 OBA31 
658 

659 OBA33 


660 OBA3A 
661 OBA3D 
662 OBA4O 
663 OBA43 
664 OBA45 
665 OBA48 
666 
667 
668 
669 
670 
671 
672 OBR4B 
673 OBA4D 
674 OBAS5O 
675 OBAS3 
676 OBR56 
677 
678 OBR59 
679 OBASB 


680 OBAb3 
681 OBRbS 
682 OBRGS 
683 OBRoD 
684 OBA70 


685 
686 
687 
688 
689 
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96E 
50 
300 
ROE 
8E00 
00 


1H 
21 
1560 
1 BOO 
000 
1540 
AB? 
O41 


1 BOO 
000 
140 
11A 
AD2 
2F 
308 
AFS 


20 

ASB 
B06 
AF2 
500 


cA 
S5EF 
FFFC 
ABS 
18F 
1547 
RFS 
8E0O 
00 
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KKKKKKKKAKKRERK 

, =O B 

k GOYES NHVC1 

' LCHEX F 

KK KKKAK KKK KAKK 
CHO —B 
GOYES NUVC1 
LCHEX D 

NWWC1 C=C-1 P 
GOSUBL =BASE 


JOTI II IATA 

DO=A 

P= 1 
C=DATO P 
DO=(5) =F-R1-3 
DATO=C P 

D=C x 

RTN 


SAVSUB DO=(5) =F-R1-0 


DATO=RA A 
C=Re 
C=0 MN 
P= 15 
LCHEX 8 
B=C W 
KI OI II 
k C=0 W 
x P= 0 
k 27D=0 =P 
x RINYES 
ROI IK 
P= 0 
C=D P 
C=C+1 P 
C=0 W 
RTNNC 
III IO TO IKK 
P= 10 
LCHEX CFFFFE 
C=B x 
DO=D0- 16 
DATO=C W 
B=C W 
GOSUBL =csrc5 
KAKKAKAAKEKAIRAERE 
‘ C=A A 
x GOSBVL =CSRC4 
& p= 0 
& LCHEX O00008F 
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BUGFIX 9605 ON 830803 -SA 


STRING VARIABLE? 


IF NOT, GOTO NUVC1 


SET BASE OPTION 


READ SUBSCRIPT COUNT 


SAVE COUNT FOR ASSIGNHENT 
RETURN 


SAVE REG NUMBER FOR ASSIGNMENT 


BUGFIX 3605 ON 830803 -SA 


BUGFIX 9605 ON 830803 -SA 
Thais code labelled =89605B, 
and rioved to a Ronfix area. 


6% 
691 
692 OBR76 


693 
694 
695 OBA7D 
696 OBR81 


697 OBR88 
698 OBAS8C 
699 OBR&F 
700 OBA93 
701 OBA96 
702 OBA98 
703 
704 
705 
06 
707 
708 
709 
710 OBASC 
711 OBASF 
712 OBAR2 
713 
714 OBAR4 
715 OBRR8 
716 OBRAC 
717 
718 
719 
720 OBRAE 
721 
722 OBRBI 
723 OBRB4 
724 
725 
726 
72? 
728 OBRB6 
729 OBABY 
73) OBRBB 
731 OBABE 
732 OBARC1 
733 OBAC4 
734 
735 OBRC6 
736 OBRC8 


737 OBACE 
738 OBRDO 
739 OBAD3 


740 
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8D00 
000 


787F 
BOO 


_ 


000 
7ERE 
4FO 
70AF 
111 
£4 
6E90 


ASB 
oA 


3100 
7(C1 
04 


AF 1 


111 
E4 


862 
£7 


RAD 
861 
37 


D8 
33FF 
FF 
D3 
178 
8600 
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x RTNSC 
FOI SR TI ISTO 


GOVLNG =B9605B 


KKEKKRKKKKKIKK 


UNDECL GOSUB 
bo=(5) 


NEWVEC 
(=DIN10)-3 


GOSUB 
COC 
COSUB 
A=R1 
A=A+1 A 

GOTO ARYRIN 


KRKKIEK KAKI 


*XRINNAN ST=0 =O 
x D=D+1  P 
x GONC  RTNANI 
x ST=1 0 
KARI KKEK KEK REKE 
RTNNAN C=0 P 
C=C-1 P 


REGNUM 
RTNNAN 
SAVSUB 


KKKK KEK KEKEEKEK 


=eSUBSC 
INVRES 


SE THEX 
KARRI ARE IKI KEK K 
x =9 


KERKAKKARKAEKEK 


KARA KARE KRKKKKK 
AER 
A=At1 A 
KAAKKEKKRKREKEK 
k 2ST=0 0 
x GOYES ARYRTN 
KHKKK KKK KEKIAKAKK 
2$T=0 2 
GOYES ARYRTN 
B=B-1 § 
B=B-1 § 
$120 1 
GOYES ARYRTN 
KXRK KEK KEK 
B=A A 
LCHEX FFFF 


D=0 A 
DI=D1+ 12 
GOLONG =FAKE 
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BUILD LOWER 3 NIBS OF DOPE VECTOR 


COMPUTE REGISTER NUMBER 
IF QUT OF RANGE, GOTO RTNNAN 
SAVE SUBSCRIPT INFORMATION 


GOTO ARYRTN 


BUGFIX 9605 ON 830803 -SA 


LOAD ERROR NUMBER 
CREATE NAN, CHECK TRAPS 


BUGFIX 9605 ON 830803 -SA 


LEAVE PC IN ACA) 


BUGFIX 9605 ON 830803 -SA 
NON-COMPLEX NUMERIC REFERENCE? 
IF SO, GOTO ARYRIN 

COMPLEX NUMERIC REFERENCE? 

IF SO, GOTO ARYRIN 


PREPARE FOR STR HDR CONSTRUCTION 


GOTO FAKE 
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741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

77? 

778 

779 

780 

781 

782 

783 

784 

785 

786 

78? 

788 

789 OBRDS 8812 

790 OBADD 8600 
00 

791 OBRE3 101 

792 OBRE6 469 

793 OBRES 01 

794 OBREB ABS 
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JOO TIO OT OT TTI I TT TTI 
XBUGFIX 9613 ON 830803 -SA 

*In all routines fron REGNUM down through DMARRY, scratch 
*registers have been rearranged with respect to TIZRNS: 

x RO changed to R1 


x R1 changed to R2 
x R2 changed to RO 
x R3 renains R3 


FORO III TIT TTT TTT II 


FORO JI OO TOT TTT TTT 
FOO IIT TO ITOK 
kk 


** Nane: ARRAY - Evaluate Array Reference 
kk 

xx Category: FNEXEC 

ak 

xx Purpose: 

KK Evaluates an array reference during expression execute. 
kk 

xk Entry: 

ii DO = PC. 

ak D1 = Mathstack pointer. 

ae Jurped on tARRAY token. 

ak P=0, 

ak 

XA Exits 

ay Value of array elerent on top of stack. 
aa Through FNRTN3. 

kx 

k* Calls: ADDRSS, VECCHK, REGNUM, ARYADR. 

ik 

** Detail: 

xs Array reference is tokenized as: 

BR expression 

ax (expression, if 2-ditiensional array) 

aR tARRAY 

a variable 

kh 

** History: 

ak 

is Date Progranner Modification 
Piece ceete LB, Sesent eek oe ee hee Pe Me 
aX SA Wrote 

*X 10/13/83 NM Attenpted to docurent 
ae 


FORO RIO OI ITI IO OO IOI 
FOR JORIOOI IR OROIIOIIITOOIOO I IOIOIOIOIO 


NIBHEX 8812 Argunent count range = [1,2] 
=ARRAY GOSUBL =ABDRSS LOOK FOR ARRAY DOPE VECTOR 

Ri=R SAVE PC IN R1 

GOC UNDECL IF NOT FOUND, GOTO UNDECL 

B=0 A 


B=C X SAVE NAME IN B(A) 
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795 OBAREE 
796 OBAF2 
797 OBAFS 
798 OBAF8 
799 OBAFB 
800 OBAFE 
801 OBBO2 
802 OBB0S 


803 OBBOC 
804 OBBOF 
805 OBBI2 
86 OBB15 
807 08818 
808 OBB1B 
809 OBBIE 
810 0BB21 
811 OBB24 
812 OBB27 
813 OBB2A 
814 OBB2D 
815 OBB2F 
816 0BB33 
817 0BB37 


818 

819 OBB3D 
820 OBB3F 
821 OBB41 
822 OBB44 
823 0BB47 
824 0BB49 
825 OBB4B 
826 OBB4D 
827 OBBS1 
828 OBB54 
829 OBBS? 


830 
831 OBBSD 
832 


835 

836 OBB61 
837 OBBE4 
838 OBB66 
839 OBB68 
840 OBB6C 
841 OBBEE 
842 OBB71 
843 0BB73 
844 08876 


845 OBB7C 


26 


7F DE 
4Aé 
A27 
A27 
R27 
783€ 
136 
1B00 
000 
140 
136 
498 
ACI 
BO? 
454 
xD 
BOF 
446 
ROF 
521 
FO 
707E 
1567 
8COO ARYRIN 
0 


D6 SHORT 


D6 INT 
CA 
7D5E 
181 
1?F 
8C00 
00 
6781 DOOFUS 
*DOOFUS 
x 


x 


187 
23 
d2 
1561 
D7 
167 
C6 
809 
8E00 


STRING 


00 
703E 
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GOSUB 
GOC 

0=D+D XS 
D=D+D XS 
D=D+D XS 
GOSUB 
CDOEX 
DO=(5) =F-R1-0 


VECCHK 


DATO=R A 
CDOEX 
6OC 
B=0 S 
D=D+1 
GOC 
LCHEX 0 
D=C-D P 
GOC CPLX 
D=D-1 P 

GONC SHORT 
ASL A 

GOSUB ARYADR 
C=DATO W 
GOLONG =FNRTN3 


C=A A 

A=A+C A 

D=D-1 P 

GONC INT 
A=A+C A 

C=A A 

A=A+C A 

GOSUB = 2»RGNM 
DO=D0- 2 
D1=D1+ 16 
GOLONG =INTSHT 
GOTO CNFLCT 
P= 0 

LC(2) =eDATTY 
GOTO 3=onferr 
DO=D0- 8 

P= 3 

C=0 A 
C=DATO WP 

p=C A 
DO=D0+ 8 
C=C+C A 

C+P+1 

GOSUBL =a-nult 


GOSUB ARYRDR 
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CHECK OUT DOPE VECTOR 
IF NOT OK, GOTO DOOFUS 
KNOCK OUT STATISTICS STATUS 


COMPUTE REGISTER NUMBER 


SAVE REGISTER NUMBER FOR TRACE 

IF OUT OF RANGE, GOTO RTNNAN 
INITIALIZE STORAGE TYPE INDICATOR 
STRING? 

IF $0, GOTO STRING 

INTEGER, SHORT, OR REAL? 

IF NOT, GOTO CPLX 

REAL? 

IF NOT, GOTO SHORT 

COMPUTE REGISTER ADDRESS 


READ REGISTER 
PUSH VALUE & RETURN 


SHORT? 
IF NOT, GOTO INT 


COMPUTE REGISTER ADDRESS 


PUSH VALUE & RETURN 


Data Type error 


READ MAXINUN STRING LENGTH 


COMPUTE REGISTER ADDRESS 
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846 OBB80 17F 

847 OBB83 8000 
00 

848 

843 OBB89 D6 

850 OBB8B FO 

851 OBB8D C6 

852 OBB8F B07 

853 OBB92 440 

854 OBB95 Dé 

855 OBB97 731E 

856 OBB9B 132 

85? OBBSE E7 

858 OBBAO 17F 

859 OBBA3 817 

860 OBBAG 3176 

861 OBBAR 6C70 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

890 

893 OBBRE 8812 

894 OBBBe 8E00 
00 

895 OBBB& 101 

896 OBBBB 444 

897 OBBBE D1 

898 OBBCO ABS 
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DI=D1+ 16 
GOLONG =STRRCL PUSH STRING & RETURN 
CPLX C=A A 
ASL A 
c=C+C A 
D=D+1 P 12-DIGIT COMPLEX? 
coc CSHORT IF NOT, GOTO CSHORT 
C=A A 
CSHORT GOSUB 2xRGNM COMPUTE REGISTER ADDRESS 
ADOEX 
D=D+1 A SET TYPE INDICAT’N FOR CMPLX POLL 
D1=D1+ 16 
=CSETUP DSRC 
LC(2)  =cRCL 
GOTO CPOLLR GOTO CPOLLR 


FOI ITU TTT TTI TK 
FOI III III TOTTI TOT TOTO 
xk 


** Nare: DMARRY - Evaluate Durnny Array Reference 
xe 


** Category: FNEXEC 
re 


** Purpose: 


Ee Evaluate dummy array reference. 

xk 

** Entry: 

i DO = PC. 

= Di = Mathstack pointer. 

- P=0, 

ak Juriped on tONYAR token. 

aK 

We ERLE: 

aa Through FNRTN2. 

ae 

** Calls: VECCHK, RECADR. 

kk 

** History: 

ax 

KS Date Prograrner Modification 
RR. Swliwecs <SeeduweeS se Jieuaee eae MeN eee ete ae eee eee ee 
a SA Wrote 

*X 10/13/83 NT Attenpted to docunent 


aK 
SRI ROI IO OE IIIS OTTO EOI TOTO 
FORO IO OGIO OT OTTO TOTO OOOO 


NIBHEX 8812 
=DMARRY GOSUBL =RDDRSS 


R1=8 

GOC DNARI0O 
B=0 A 

B=C ® 
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899 OBBC3 7ROE 


GOSUB VECCHK 


900 OBBC7 459 GOC DOOFUS 

901 OBBCA 2E P= 14 

902 OBBCC 320C LCHEX FCO 
F 

903 OBBD1 132 ADOEX 

904 OBBD4 D8 B=A A 

905 OBBDE ACS B=C > 

906 OBBD9 1560 C=DATO P 

907 OBBDD A8S B=C P 

908 OBBEO 132 ADOEX 

909 OBBE3 20 P= 0 

910 OBBES 903 *C=D OP 

911 OBBE8 50 GOYES DMAIO 

912 OBBER A45 B=B+B S 

913 OBBED 1567 DNMAIO C=DATO W 

914 OBBF1 8E00 GOSUBL =RECADR RECTIFY VECTOR ADDRESS 
00 

915 

916 OBBF7? 111 DMA2O A=R1 

917 OBBFA E4 A=A+1 A 

918 OBBFC 64C2 : GOTO = Fnrtn2 

919 

920 OBCOO 75FD DMAIOO GOSUB NENVEC 

921 OBCO4 7B2E GOSUB SAVSUB 

$22 OBCO8 RAAB C=D XS 

923 OBCOB 31F9 LCHEX 9F 

924 JU II IIT 

925 * GONC DMA2O BUGFIX 9605 ON 830803 -SA 

926 FI III TI RI IIT R 

927 OBCOF 47E DMA2O 

928 $I III IIIT III 

929 OBC12 3C LCHEX C 

93%) JS III I III 

931 % Coc DMA2O BUGFIX 9605 ON 830803 -SA 

932 III I IIT I III 

933 OBC15 SIE GONC  DMAZO 

934 SII I RI III II DIDI DIDI IIE ISI III LILI IIIS AIT II SIT I ISI SIS SSSI IIS 

935 SIRI IIA III IIIT SIS IIIS III IIS II IS IITID ISI SSSI ISIS ISI ASSIS ISIS ISIS: 

936 aa 

93? ** Narie: CHPLX - Complex Poll 

938 ** Nane: CHPLXF - Complex Poll 

939 ** Narie: CMPLXR - Complex Poll 

940 &k Nane: CPOLL - Complex Poll 

941 ak 

942 %k Category: MTHUTL 

943 ak 

944 ** Purpose: Perforns complex math poll. 

345 ah 

946 ak Entry: CNPLX is the Conplex conversion function. 

947 ak CNPLXF assumes a function token lies left- 

948 ae justified in B(X). The token is shifted right. 

949 ak C is stored in R3. This is the nornal entry 

350 ah point for nost complex functions which override 

951 aK the mainframe functions. This entry point 
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952 AK assures one of the POP routines uas just called. 
953 aK CNPLXR calls CPOLL, then jumps back into the 
954 an expression interpreter. This entry point is 
955 ah used by recall operations. A(A) is assuned to 
956 ax contain the variable address, with D(S) having 
957 ak information about the variable fornat: even 
958 ak for 12-digit, odd for 5-digit. 

959 ak 
960 ak CPOLL does a fast poll to locate the conplex 
961 ak function Ron code. The function token is in 
962 ak C(B). Storage functions have the sane entry 
963 ae conditions as for CNPLXR. 
964 hh 
965 ak 
966 AX Exit: CMPLX, CNPLXF, CNPLKR jump back to EXPR. 
967 ak CPOLL returns with carry set, or else errors out. 
968 a 
969 ** Calls: FPOLL 
970 aK 
971 ** Uses: A,B, C,D,RO,R1,R2,R3,R4, SCRATCH 
972 ax 
973 tk Stk lvls: CPOLL: 3 
974 ax CNPLX, CMPLXF, CPOLLF: 4 
975 ak 
976 *k History: 
977 ak 
978 aX Date Progranner Modification 
979 RX Secsceeee, USbecerdeee, the eicccececresceemcceeccc coe esocees 
980 ais SA Wrote 
981 - 10/25/83 NM Attenpted to docunent 
a FOI UI IOI OTTO TTT TT TOTTI IO 
9R4 JOR III II II IIIT III III II III III SSSI III IIIS ISSIIS II ISI III IT IA 
985 OBC18 8822 NIBHEX 8822 
986 OBCIC 6800 =CMPLX GOTO CNPLK1 
98? 
988 OBC20 10B =CPOLLF R3=C 
989 OBC23 FS BSR A 
990 OBC25 DI CMPLX1 C=B A 
991 OBC27 7800 =CPOLLR GOSUB CPOLL Entry point for rcl operations. 
392 OBC2B 560 GONC NOXLNK 
993 OBCZE 68EC GOTO =expr Goto expr. 
994 OBC32 GAE6 NOXLNK GOTO NOXFN 
995 
996 OBC36 101 =CPOLL R1=A 
997 OBC39 132 ADOEX 
998 OBC3C 1B00 DO=(5) =FUNCDO 
000 
999 OBC(43 140 DATO=A A Save PC in FUNCDO. 
1000 OBC46 164 DO=DO+ 5 
1001 OBC49 14¢ DATO=C B Save token in FUNCD1. 
1002 OBC4C 1A00 DO=(4) =AVMENE 
00 
1003 OBC52 137 CDIEX 


1004 OBC55 144 DATO=C A Save SP in AVMEME. 
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1005 OBC58 04 
1006 OBCSR 8E00 
00 
1007 OBC60 83 
1008 OBC62 20 
1003 OBC64 1B00 
000 
1010 OBC6B 142 
1011 OBC6E 1% 
1012 OBC71 831 
1013 OBC74 00 
1014 OBC76 03 
1015 
1016 
1017 
1018 OBC78 8E00 
00 
1019 OBC7E 8C00 
© 


1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
10% 
1031 
1032 
1033 
1034 
1035 
1036 
103? 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 


OBC84 76FF 
OBC88 6751 
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SETHEX 
GOSUBL =FPOLL Perforn poll.. 
CON(2) =pCMPLX ..-for complex functions. 
P= 0 
DO=(5) =FUNCDO Restore PC. 
A=DATO A 
DO=A 
2xXM=0 Was poll handled? 
RTNYES If so, return carry set 
RTNCC else return carry clear. 
x GOTO NOXFN else error out. 
& GOTO CNFLCT else error out. 


=INVRES GOSUBL =INVNaN 
urest2 GOLONG =uRES12 


SOI TOO TO TO TIRE 
FOTO TOTO ITT OR TOR TT TT TT TTT TO TTT OK 
ax 


&k Wane: (S) OUTRES - Round And Return Result 
k 


& 
*& Category: EXCUTL 

£k 

** Purpose: 

a Round result according to IEEE rounding rules, put on 
ak nathstack and reenter expression execution controller. 
ak 

** Entry: 

x Result in (A,B), SB, XM and P as per uRES12 entry 

iis conditions. 

aK D1 = top of math stack. 

ka 

a EMA: 

a Through EXPR. 

tk 

t* Calls: uRES12. 

ax 

k* History: 

ax ; 

ax Date Progranner Modification 

We weoeeees.. Seeccaneos Vaceeeua eee ee eee wh bles 
es SA Wrote 

kx 11/01/83 NM Attenpted to docunent 

a 


FOR IOIOIOITOTOO TIIC 
TORR TOI IRI JIT TRI II IK 


=QUTRES GOSUB urest2 
GOTO FN4 


SOIT ITO TT TIO 
FORO JOJO ITO TTT TT OK 
ak 


*K Nane:(S) pCMPLX - 


Conplex Number Operation Poll 
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1056 x 
1057 kX Category: POLL 
1058 a 
1059 ** Type: FPOLL 
1060 aK 
1061 ** Purpose: 
1062 ax Look for handler to perforn complex operation: 
1063 aK Function, Store or Recall. 
1064 ae 
1065 ** Should poll be "Handled" (return with XM=0)?: 
1066 ax Yes. 
1067 ak 
1068 *X Meaning of "Handling" Poll (what does code do if handled’): 
1069 aX Handler has perforned complex operation. If poll is 
1070 KK not handled, calling code errors out (eDATTY). 
1071 kk 
1072 ** Entry conditions for handler (registers, ST, RAN, etc.): 
1073 am Carry set on entry. 
1074 kx B[A] = Poll nunber. 
1075 as HEX node. 
1076 ak P=0, 
1077 ca (FUNCDO) contains PC, pointing past token. 
1078 ax (FUNCD1) contains 2-nibble token. 
1079 aX (AVNENE) contains stack pointer. 
1080 an If token 1s a function token of one paraneter (e.9., 
1081 ax SIN(Z)), then R1 = Real part of argunent, 
1082 si RO = Inaginary part of argunent. 
1083 wx If token 1s a function token of two paraneters (e.g., 
1084 ar Z*W), then RO = Imaginary part of argunent at top 
1085 kn of stack (second argunent), 
1086 x% R1 = Real part of second argunent. 
1087 7 R2 = Imaginary part of first argurent. 
1088 aK R3 = Real part of first argurient. 
1089 a If either argurent 1s real, the inaginary part will 
1090 ax be represented as 0000000000000900. 
1091 a If token is a coriparison token, entry conditions are 
1092 xx the sane as for other tuo-paraneter functions. The 
1093 ae predicate can be obtained by looking at (PC). (or 
1094 Xi naybe (PC-1)7) 
1095 - If token 1s cR->C, 1t means that a real value is being 
1096 + assigned to a variable whose type 1s not real, short 
1097 a or integer. The value to be assigned is at the top 
1098 as of the stack and the variable destination information 
1099 a occupies STMT scratch as set up by DEST routine. 
1100 ae If token is cC->C, it means that a value which is 
1101 ax neither real or string 1s being assigned to sone 
1102 variable. The value to be assigned 1s at the top of 
1103 es the stack and the variable destination infornation 
1104 a occupies STMT scratch as set up by DEST routine. 
1105 RA If token is cRCL, 1t means that a complex nunber needs 
1106 ak to be recalled (put on the sfack). 
1107 ke R1[A}] points at the value to be recalled. 
1108 ak D[S] 1s odd iff value 1s COMPLEX SHORT. 
1109 a 


1110 ** Nornal exit conditions fron handler if handled (ST, RAN, 
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1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
112? 
1128 
1129 
1190 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1133 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1182 
1163 
1154 
1165 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
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xk registers, etc.): 
Ae HEX rode. 
Ks xM=0. 
xn For functions and conparisons, result pushed on 
ax math stack (handler nust do available menory check 
7 and error out if insufficient nenory), complete with 
a stack signature. Di = stack pointer. 
ak For store, no further exit conditions. 
aK For recall (token = cRCL), value has been pushed on 
a stack, D1 = stack pointer, B[A] = address of 
xk variable register, B[S] = — iff COMPLEX, F iff SHORT 
a COMPLEX. 
x 


*% Normal exit conditions fron handler if not handled (ST, RAN, 
*k registers, etc.): 


a HEX node. 

an Xn=4, 

tk 

** Available subroutine levels: 

ey ' 

ae 

x* What registers/RAM nay be used 1f handled?: 

KK A-D,DO,01,P,RO-R4, function scratch RAN. 

ee 

** What registers/RAM nay be used if not handled?: 
- A-C, D[15-5] DO, D1, P. 

kK 

** Envisioned application(s): 

ae Extension of nainfrane functions to conplex argunents. 
wk 

** History: 

tk 

ax Date Progranner Modification 
RE cechuwes. -“skadcawmes, eaSeuecetsalase ue escenSesee seas 
a SA Wrote 

xX 10/20/83 NN Attenpted to docunent 
kk 


FOO ROJO TTT TTI TTC 
FOR J RTO TT ROI 
x 

FOOT OO TTT RTE 
FOI JOO IIIT Or 
xk 


**X Nane:(S) POP2N - Pop 2 Nunbers Fron Stack. 
tok 

** Category:  MTHSTK 

tok 

** Purpose: 

a Pop 2 nunbers fron nath stack. 
tk 

x* Entry: 

es D1=Stack pointer. 

tok 

Re Ext: 

aR DEC node. 
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1166 
116? 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
117? 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 OBC8C 
1196 OBC8E 
1197 OBC90 
1198 OBC93 
11939 OBC96 
1200 OBCSA 
1201 OBC9D 
1202 OBC9F 
1203 OBCAR2 
1204 OBCRE 
1205 OBCAS 
1206 OBCAB 
1207 
1208 OBCAB 
1209 OBCAF 
1210 OBCB2 
1211 OBCBS 
1212 OBCBS 
1213 OBCBR 
1214 OBCBD 
1215 OBCC1 
1216 OBCC4 
1217 OBCC? 
1218 OBCCB 
1219 OBCCE 
1220 OBCD2 


05 
20 
BB1 
ROD 
1577 
985 
01 
17F 
163? 
980 
£3 
03 


04 
B06 
B06 
96E 
D6 
174 
1677 
17F 
10R 
1577 
17F 
163? 
980 
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xx 
an 
kk 
xx 
xx 
ak 
an 
ak 
x 
xx 
ak 
xx 
ax 


kk Calls: 


dk 
&* Uses 
dk 
ok 
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D1 16 nibbles before end of entry (D1=D1+16 to get to 


next entry. 


If carry clear: 


C{W] = first number on stack. 
A[W] = second nuriber on stack. 


If carry set {one or both nunbers complex}: 


C({W}=Real part of first nunber. 
R2=Inaginary part of first number. 
A[W]=Real part of second number. 
RO=Inaginary part of second nurber. 
Inaginary part = 0000000000000900 if arg is real. 
Error exit (eDATTY) if either arg not numeric. 


None. 


A,B[O},C,P. 


kk Stk lvls: 0 


ax 


x 


KX nee 
ax 


x 


** History: 
k 


SA 


** 10/13/83 NN 
a 


Progranner 


If Carry Set: RO, R2. 


Nodification 
Wrote 
Atterpted to docunent 


FO UII TOIT OO TIO 
FORO I UII IOI OT ITT IK 


=POP2N 


RSLV10 


SETDEC 

p= 0 

BSL K 
B=B-1 P 
C=DAT1 W 

70>B  O?P 
GOYES RSLV10 
Di=D1+ 16 
A=DAT1 W 

AB OP 
GOYES RSLV20 
RTNCC 


SE THEX 
C=C+1 P 
C=C+1 P 
CHO) |B 
GOYES CNFLCT 
Di=zD1+ 2 
C=DAT1 W 
D1=D1+ 16 
R2=C 
C=DAT1 W 
D1=Di+ 16 
A=DAT1 W 
7A>B OP 


CREATE TEST DIGIT 
READ STACK REGISTER 
REAL? 

IF NOT, GOTO RSLV10 


READ STACK REGISTER 
RERL? 


IF NOT, GOTO RSLV20 
RETURN CARRY CLEAR 


COMPLEX? 
IF NOT, GOTO CNFLCT 


READ IMAGINARY PART 


READ REAL PART 


READ STACK REGISTER 
REAL? 
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1221 OBCD5 £1 

1222 OBCD? 100 

1223 OBCDA AFO 

1224 OBCDD 05 

1225 OBCDF A2C 

1226 OBCE2 120 

1227 OBCES 02 

1228 OBCE? 10A 

1229 OBCEAR AF2 

1230 OBCED A2E 

1231 OBCFO 12A 

1232 OBCF3 04 

1233 OBCF5 BO4 

1234 OBCF8 B04 

1235 OBCFB 396C 

1236 OBCFE 71 

1237 OBDOO 171 

1238 OBDO3 1537 

1239 OBDO? 17F 

1240 OBDOR 100 

1241 OBDOD 1537 

1242 OBD11 05 

1243 0BD13 02 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 OBD15 8D00 
000 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 
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RSLV20 


RSLV30 


GOYES RSLV30 
RO=A 

A=0 W 
SETDEC 
A=A-1 
AROEX 
RTNSC 
R2=C 
C=0 W 
C=C-1 XS 
CR2EX 

SE THEX 

A=A+1 P 
A=A+1 ?P 
7AHO | OB 
GOYES CNFLCT 
D1i=D1+ 2 
A=DAT1 W 
01=D1+ 16 
RO=A 

R=DAT1 W 
SETDEC 

RTNSC 


KS 


2:34 an 
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IF NOT, GOTO RSLV30 
CONVERT TO COMPLEX 

A[N]=0 & A[XS]=9 ==> REAL 
RETURN CARRY SET 


CONVERT TO COMPLEX 
(indicates REAL arg) 


COMPLEX? 
IF NOT, GOTO CNFLCT 


READ IMAGINARY PART 


READ REAL PART 
RETURN CARRY SET 


KKK IA KKRKK RIK AKER KARE KKK IKK KAIRIE IKI KRIST IIR IIT TI IRE 
FOR TIO IOJOI IO ROTTS IDI TTT IIT ITT IB 


a 


Report "Data Type" Error. 


kk Nane:(S) CNFLCT - 

xt 

** Category: SYSTEN 

kt 

** Purpose: 

aR To do a GOVLNG =RDATTY. 
kt 


x 


ia Date Progranner 
RE sities “Wescelese 
ak 11/09/83 NB 


ak 


ak History: 
a 


Modification 


me ww em ee ew ew ew eee ew ee ww ee em meee 


Docunentation 


FOTO OTT TT IO 
KEK IKK IKK IRIE K RIKI III IIIT TIT TT IT IIT IIIT III TTI I OK 


=CNFLCT 


GOVLNG =RDATTY 


FOU RII IO RII II ITT III II III ISI I TIS SII IIIS 
FOI IIR RTO IIT ITI TIT TTT IT III IIT IIIT IT ITI III IIIT II 


ak 


Pop 1 Nunber Off Of Stack 


Pop one numeric value off of math stack. 


xk Nane:(S) POPPIN - 
xx 

*% Category: MTHSTK 
tk 

** Purpose: 

at 

xk 


** Entry: 
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1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
11 
1He 
1X3 
14 
135 
186 
10? 
18 
1X09 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
131? 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
132? 
1328 
1329 


OBDIC 05 
OBDIE 20 
0BD20 BBI1 
OBD23 AOD 
OBD26 1537 
OBD2A 3980 
OBD2D 6C 
OBD2F 03 
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ae Di = Stack pointer. 
aK 
aX Exit: 
xe Errors out (eDRTTY) if non-nuneric iten. 
a DEC node. 
ae P=0, 
a If carry clear: Result real. 
me Result in A. 
aS If carry set: Result conplex. 
xR Real part in A. 
aK Inaginary part in RO. 
xe 
** Calls: None. 
kk 
ABUSES 5 divs’ 
xk A,B[O). If carry set, RO. 
ke 
*X Stk lvls: 0 
xe 
** History: 
at 
ois Date Prograriner Modification 
hie iste Eire  Saclatt eh ar se tc a : 
a SA Wrote 
** 10/13/83 NN Attenpted to docunent 
at 


FOI IIIT TOT TTT TOTTI TTT IK 
FOI OTTO TT TOTTI 


=POPIN SETDEC 


P= 0 

BSL x 

B=B-1 P CREATE TEST DIGIT 
R=DAT1 W READ STACK REGISTER 
7A>B OP RERL? 

GOYES RSLV30 IF NOT, GOTO RSLV30 
RTNCC RETURN CARRY CLEAR 


FOO ITO IOUT TO TT ITI TR 
SOOO IIIT III UIT TOTTI OTTO IK 
xn 


** Narie:(S) REVPOP - REV$ On String And Then POP1S 
ae 


*% Category: MTHSTK 


kk 
** Purpose: 

x Reverse a string on the stack and then pop it. 

aK 

** Entry: 

a Di=Mathstack pointer. 

ee HEX node. 

xk 

AE EMTS 

i A[A}=string length. 

ae D1 pointing at low-address end of string (last char). 
AE P=0, 

xk 
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130 ek Calls: REV$, POPIS (falls through). 
1331 a 
1332 tk Uses....... 
1333 ak A,B,C([A},0[A),P,01 
1334 ak 
1335 tk Stk lvls: = 2 
1336 ak 
1337 &* History: 
1338 ak 
1339 aK Date Programmer Modification 
1340 BR meme nnn ewww ener n eter nnn n nnn ener nner nner ner neree 
1341 ak SA Wrote 
1342 a 10/13/83 NM Attenpted to docunent 
1 
eh JOIST IT IIIT I III III ISS IIS ISID IIIS ITO IIS SASSI III III ITN 
1345 JIT IOI TIT IT II IIIS IIS IIT ISSISISIIIISSS ISI SSIS SS ISS SSIS: 
1346 OBD31 8FOO =REVPOP GOSBVL =REV$ 
1347 ~ JEU IGS TIA STIS OI III IIIS SSI IN 
1348 SO ROU IIR ROOT Tr 
1349 xx 
1350 ** Nane:(S) POP1S - Pop 1 String Arg Off Stack 
1351 ae 
1352 *k Category: MTHSTK 
1353 ak 
1354 ** Purpose: 
1355 an Position pointers to pop a string argunent off of 
1356 RK math stack. 
1357 Be 
1358 ek Entry: 
1359 ak HEX node. 
1360 ak D1 pointing at string header in stack. 
1361 ak 
1362 RX Exit: 
1363 ae Errors out (Data type) if iten on stack is not string. 
1364 ae P=0, 
1365 ak D1 pointing past string header... pointing at last 
1366 ak character of string. 
1367 a A[A}=length of string in nibbles. 
1368 x 
1369 ek Calls: None. 
1370 = 
1371 RE Uses... 2.00. 
1372 tk A(W),01,P 
1373 a 
1374 ** Stk lvls: 0 
1375 ze 
1376 ek NOTE: 
1377 ae Does not return if iten on stack is not string. 
1378 x 
1379 ** History: 
1380 = 
1381 se Date Progranner Modification 
1382 RR ween n en crm e wren en rem rrr rer rn cer erent creer ert see 


1383 ak SA Wrote 
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1384 

1385 

1386 

1387 

1388 OBD38 1586 
1389 OBD3C 20 
1390 OBD3E BO4 
1391 OBD41 R64 
1392 O8D44 96C 
1393 OBD47 EC 
1394 OBD49 BF4 
1395 OBD4AC BF4 
1396 OBD4F 17F 
1397 OBDS2 03 
1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1414 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1921 

1422 

1423 

1424 

1425 

1426 

142? 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 
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KK 09/23/83 NM Atternpted to docurent 
kk 


FOI UII TT 
FRO ROO OTT I OR R ITI. 


=PQP1S A=DAT1 7 READ TYPE INDICATOR 
POP1S1 P= 0 

R=A+1 P 

A=A+AR B 

AHO OB ACTUAL STRING? 

GOYES CNFLCT IF NOT, GOTO POPERR 
POP1S2 ASR W 

ASR W 

D1i=D1+ 16 

RETURN 


JUDIE TI 
JI III II IO TI TOO OI TC IR 
ke 

xk Narie:(S) MPOP2N - Pop 2 Args W/signan Check 

** Narie:(S) POP2N+ - Pop 2 Args W/signan Check 

kk 


** Category: MTHSTK 


aa 
** Purpose: 

ax Pop tuo argurents off of the math stack and report 

i signaling NANs. 

ak MPUP2N calls uMODES to fetch modes to ST. 

ak POP2N+ assures this has already been done. 

ak 

ek Entry: 

ak D1 = stack pointer. 

ik 

ax Exit: 

a Carry set: One or both numbers are conplex. signaling 
ax NaN check not done. Sane exit conditions as POP2N. 
aK Carry clear: C{W]) = first nurber on stack. 

aK A{W}] = second number on stack. 

ae P=0. 

is D1 pointing 16 nibbles before next stack entry. 

hk 

tk Calls: POP2N, SIGTST, URES12, uMODES. 

ak 

RA USCS 54 vceies 

a R,B,C,D,R3,S7-S11. 

tk 

** Sth lvls: 3 

tk 

** History: 

ah 

‘ Date Progranner Modification 

BE. scctgltas: pg dimeetiadae Iain itu sees ete areata 
bs SA Wrote 

kk 10/14/83 9 NN Attenpted to docurent 

i 


SOR OOO IOI OI IIIT 
SOOO JOT UO OOO Or 
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1439 OBD54 7950 

1440 OBD58 703F 

1441 OBDSC 400 

1442 OBDSF 108 

1443 OBD62 8E0O 
00 

1444 OBD68 590 

1445 OBD6B 7FOF 

1446 OBDGF AFA 

1447 OBD72 120 

1448 OBD75 8£00 
00 

1449 OBD7B 590 

1450 OBD7E 7CFE 

1451 OBD82 AFR 

1452 OBD85 AF6 

1453 OBD88 110 

1454 OBD8B 03 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 
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=MPOP2N GOSUB uMODES 


=p 


Pp 


Pp 


OP2N+ GOSUB POP2N 
RTNC 
RO=C 
GOSUBL =SIGTST 


GONC POPZNA 
GOSUB uresi2 
R=C W 

OP2NR AROEX 
GOSUBL =SIGTST 


GONC POP2NB 

GOSUB uresi2 

A=C WW 
OP2NB C=A W 

A=RO 

RTNCC 


Fri Dec 30, 1983 2:34 an 
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check for signaling NaN 
jJurnp if not a signaling NaN 
process signaling NaN 

check for signaling NaN 


jJunp if not a signaling NaN 
process signaling NaN 


FORT JOJO TOOT TTT TE 
SOIT II IO OT TIO 


ak 
ak 
ax 
ar 
ax 
xk 
ax 
ak 
ax 
ak 
a 
ax 
ae 
xk 
ae 
ak 
ak 
ax 
aX 
ax 
ak 
ax 
a 
x 
ak 
ak 
ak 
ax 
ak 
a 
ak 
ax 
ax 
ak 


Nane:(S) MPOPIN - Pop 1 Arg & Check For Sig NaN 
Nane:(S) POPIN+ - Pop 1 Arg & Check For Sig NaN 


Category: MTHSTK 


Purpose: 


Pop one nuneric argunent and give Signaled Op nessage 


if appropriate. 


Entry: 


Di=Mathstack pointer 


POPIN+: S8-S11 already set according to nodes (uNODES) 


has already been called. 

Exit: 

DEC node. 

Carry set: Result is conplex. Signaling NaN check not 

performed. Result in A/RO as per POPIN. 
Calls: uMODES, POPIN, SICGTST, uRES12. 
USES. ssccu's . 
A,B,C, 0,R3,S8-S11. 
Stk lvls: 3 
History: 
Date Prograrimer Modification 


ewe eee wwe we ee eee 


SA 
10/14/83 NM 


Wrote 
Attenpted to docunent 


FOI IO TIO O TO TTOTI TIO 
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1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1503 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1524 
1522 
1523 
1524 
1525 
1526 
152? 
1528 
1529 
1530 
1631 
1532 


4533 

1534 

1935 

1936 

o- 1537 
1638 


1539 
1540 
1541 
142 
1543 
1544 


OBDSD 7020 
OBD91 ?78F 
OBD95 400 
OBD38 &E0O 
00 
OBDSE 500 
OBDA1 79DE 
OBDRS AFA 
OBDAS 03 


OBDAAR 8D00 
000 
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FOI OUTRO TR TTT ITT IT TTT ITT IK 
x 

SO JOIST ITT TTT STITT RTT TTI TTT TIT IK 
SOR IIIITOIOIIOTT TTTT IITIOI 
ak 


** Nane:(S) SIGCHK - Report Signaling NaN 


aa 
** Category: = MTHUTL 

ak 

** Purpose: 

aa Check for signaling NaN and report "Signaled Op" if 
xe found. 

oe 

** Entry: 

ax Nunber in A. 

ae DEC node. 

ak 

AEOERIE: 

a Nuriber in A. 

RS Carry clear. 

ax 

** Calls: uRES12, SIGTST. 

ax 

PE USCS: eae ns 

xe R-D,P,R3,S7-S11. 

kx 

** Stk lvls: 3 

aK 

** History: 

&k 

xx Date Progranner Modification 

PR) cose ‘iisiaeweces  acddueepoot cores noe wecae ee esate’ 
ae SA Wrote 

xx 11/01/83 NN Atterpted to docunent 

1 


JOO IOI OOOO TOTO ICO IOI TT I TIO 
FORO OI OTTO TI III II 


=MPOP1N GOSUB uMODES 
=POPIN+ GOSUB POPIN 


RTNC 

=SIGCHK GOSUBL =SIGTST Check for signaling NaN. 
RTNNC NOT a Signaling NaN . 
GOSUB uresi2 process signaling NaN 
A=C W 
RTNCC 


FOROS TOE OOOO HE 


=fltdh GOVLNG =FLTDH 


FOR RIOT TI IO ROTO OI TOO TOI IO 
FOR RJR IO OOOO III OIG 
ax 


* Nane: uMOBES ~- Set $8-S11 To Indicate Modes 
ake 


** Category:  MTHUTL 
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1545 
1546 
1547 
1548 
1549 
1550 
1551 
1652 
1553 
1584 
1555 
1556 
1857 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1974 
1575 
1576 
1577 
1578 
1679 
1580 
1581 OBDB1 
1582 OBDB3 
1583 OBDB6 


1584 OBDBD 
1585 OBDBF 
1586 OBDC3 
1587 OBDC5 
1588 OBDC8 
1589 OBDCA 
1590 
1591 
1592 
1693 
1594 
1595 
1596 
1597 
1598 


D? 
137 
1FOO 
000 
0B 
1872 
OB 
135 
DB 
03 
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P 


a 
** Purpose: 

xe Set S8-$11 according to nath nodes. 
tok 

x* Entry: 

ae Yes. 

1 

** Exit: 

a $8 - User node if set 

aX S9 - Rad Mode if set 

BR S10- sINFRD (Rounding node) 
ae S11- sNEGRD (Rounding node) 
tok 

ka $10 S11 ROUND 

tk Soe, nee: eee See 

sia 0 0 Nearest 

a 0 1. Touard zero 

be 1 0 Toward +INF 

aA 1 1 Toward -INF 

tk 

** Calls: None. 

ak 

AP USES ie cicis 

a D[A], S8-S11. 

tok 


aK Stk lvls: 0 
ka 


** History: 
ak 


xk Date Progranner Hodification 
CIO “2 coets Gee, iweb Teese lamaten 
aX SA Wrote 


*k 10/14/83 NA 


ax 


Attenpted to docunent 


2:34 ar 
age 


FOR TO TOI OTT TTT TTI TT TTT IDI IIT IIT SIDI TRI T ISITE IK 
FOO ITI RI ROTOR RIOTS II III IIIT IK 


=uMODES 


d=C AR 

CDIEX Save D1 

01=(5) (=FLGREG)-#E  RND,INF,RAD Mode address 
CSTEX Fetch current Status 
C=DAT1 XS Set S8-S11 as above 
CSTEX Restore Status 

b1=C Restore D1 

C=0 A 

RTNCC 


KIRK KEK KRHA K ERIK KEKE IKEA AIR IRI OR IDOI I TTI 
KIKI III IRI III RIK R KIKI IK IIIA ISK IIR III IKI III III IRI RII IIIA 


kk 
** Nane: ASIN - ASIN Function 
&* Nane: ACOS - ACOS Function 
xk Nane: ATAN - ATAN Function 
Xx Nane: ANGLE - ANGLE Function 
** Nane: CHRS$ - CHR$ Function 
*k Nane: SIN - SIN Function 
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1599 ** Nane: cos - COS Function 
1600 ** Nane: TAN - TAN Function 
1601 a 
1602 ** Category: FNEXEC 
1603 aK 
1604 ** Purpose: 
1605 RK Assorted nainfrane functions. 
1606 an 
1607 xk Entry: 
1608 KK DO = PC. 
1609 a D1 = Mathstack pointer. 
1610 aa P=0, 
1611 xx Junped on function token. 
1612 ak 
1613 Kk Exit: 
1614 xe Through EXPR. 
1615 kx 
1616 aX Calls: Whatever. 
1617 a 
1618 ** Detail: 
1619 kk SIN, COS, TAN, ASIN, ACOS, RATAN are nuneric functions 
1620 aK of one nuneric argurent. 
1621 ax ANGLE 1s a nuneric function of two numeric argunents. 
1622 x CHR$ 1s a string function of one nuneric argunent. 
1623 kk 
1624 ** History: 
1625 x 
1626 xk Date Progranner Modification 
162? KK mewn ene ene n een creer nn rn nner nr nn rn nner nner ene 
1628 ax SA Wrote 
1629 kk 10/14/83 NM Atteripted to docunent 
ik 
io FOI I OI TTT TIT TTT TTT TRI IIIT ITI ITI IOI IAT TI 
1632 JIU OIC ISCO IDO GI III IO OT TIT 
1633 OBDCC 811 NIBHEX 811 Argunent count range = [1,1] 
1634 OBDCF 7ABF =ASIN GOSUB MPOPIN Trig trode lookup 
1635 OBDD3 487 coc CLNK4 
1636 OBDD6 8£00 GOSUBL =ASIN12 
00 
1637 OBDDC 67RE GOTO 8 «OUTRES 
1638 JORG IOI SII GOGO ISE TO OCCT EI I IK 
1639 OBDEO 8C0O FNA GOLONG =FNRTN4 
1640 ~ SOOO UO ROO OID OO UI OOOO OI III IO 
1641 OBDEG 811 NIBHEX 811 Argunent count range = [1,1] 
1642 OBDES 7OAF =ACOS COSUB MPOPIN Trig rode lookup 
1643 OBDED 4&5 Gor CLNK4 
1644 OBDFO 8E00 GOSUBL =ACOS12 
00 
1645 OBDF6 6D8E GOTO = «©OUTRES 
1646 JOO UO GIGI GIISISIISIESISE EIEIO TO ATE E TR 
1647 OBDFR 811 NIBHEX 811 Argurent count range = [1,1] 
1648 OBDFD 7(8F =RTAN GOSUB MPOPIN Trig node lookup 
1649 OBEO1 4A4 GOC CLNK4 


1650 OBEO4 8£00 GOSUBL =ATAN12 


1651 OBEOR 
1652 

1653 OBEOE 
1654 OBE12 
1655 OBE16 
1656 OBE13 


1657 OBE1F 
1658 

1659 OBE23 
1660 OBE26 
1661 OBE2A 
1662 OBE2E 
1663 OBE31 
1664 OBE34 
1665 OBE36 
1666 OBE39 
1667 OBE3D 
1668 OBE40 
1669 OBE43 


1670 OBE48 
1671 

1672 OBE4C 
1673 

1674 OBESO 
1675 OBES3 
1676 OBES? 
1677 OBESA 


1678 OBE6O 
1679 

1680 OBE64 
1681 OBE6?7 
1682 OBE6B 
1683 OBE6E 


1684 OBE74 
1685 

1686 OBE78 
1687 OBE7B 
1688 OBE7F 
1689 OBE82 


1690 OBE88 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
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00 
697E 


8822 
7E 3F 
453 
8E00 
0 

646E 


811 
736F 
7C7F 
AF2 
$31 
3% 
HF 
66AF 
17D 
149 
32F0 
2 
6079 


6300 


811 
763F 
44F 
BEOO 
00 
632E 


811 
722F 
40€ 
8E00 


00 
6FOE 


811 
7EOF 
4(c 
8E00 
00 
6BFD 
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GOTO OQUTRES 
JOIST TITS IT ITT ITT I TIA 

NIBHEX 8822 Argunent count range = [1,1] 
=ANGLE GOSUB MPOP2N Trig node lookup 

GOC CLNK4 

GOSUBL =ARG12 


GOTO OUTRES 
SIRI IDI IIIT DID IID IIT II TISAI IIIT IIIS DI III IAIIS III IIIS IITA 


NIBHEX 811 Argurient count range = [1,1] 
=CHR$ GOSUB MPOP1N POP ARGUMENT 
GOSUB filtdh CONVERT ARGUMENT TO HEX 
C=0 W 
?XN=0 REALISTIC ARGUMENT? 
GOYES CHR$1 IF $0, GOTO CHR$1 
LCHEX F 
GOTO FN4 WRITE NULL STRING TO STACK 
CHR$1 01=D1+ 14 
DATI=A B WRITE CHARACTER TO STACK 
LCHEX 20F 
fni GOTO FN WRITE STRING HEADER & RETURN 
JIS ISI OOOO ISU OT ISIS ATO 
CLNK4 GOTO CPOLLF 
NIBHEX 811 Argunent count range = [1,1] 
=SIN GOSUB MPOP1N Trig node lookup 
GOC CLNK4 


GOSUBL =SIN12 
GOTO  OQUTRES 


FOO RTI TTI ITI II IIIT IK IIIT IIE III I IN 


NIBHEX 811 Argunent count range = [1,1] 
=COS GOSUB MPOPIN Trig node lookup 
GOC CLNK4 


GOSUBL =C0S12 


GOTO  OUTRES 
JOU TO TC SIT TIT ITA I TAIT I IIASA 


NIBHEX 811 Argunent count range = [1,1] 
=TAN GOSUB MPOPIN Trig node lookup 

GOC CLNK4 

GOSUBL =TANI2 

GOTO OUTRES 
JOO ISIC CII CER OIE 
Keke COT, CSC, & SEC renoved fron nainfrane - 3/31/83 S.B. 
RK 


SOOO RI RO RII TTDI I IK 


FRITS I III TTI IDI ITI III I IIIT IIIT I IK 
KAKI RKK RAK KKK KKK KKK IK IKK RK KIRK I KKK KKK KEK IEK ARK IRE KIA KKK AREA KK 
ak 


*&* Narie: ERRN - ERRN Function 


1S ere 


Saturn Assenbler 
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1700 ** Nane: ERRL - ERRL Function 
1701 Ke 
1702 ** Category: FNEXEC 
1703 a 
1704 ** Purpose: 
1705 ax Evaluate ERRN, ERRL functions. 
1706 ak 
1707 xk Entry: 
1208 a DO = PC. 
1709 ae D1 = Mathstack pointer. 
1710 ah P=0, 
1711 a Junped on function token. 
1712 ak 
1713 aX Exit: 
1714 xR Through EXPR. 
1715 ae 
1716 ** Calls: Whatever. 
1717 ak 
1718 ** Detail: 
1719 ak These are both no-argunent functions. 
1720 aR 
1721 ** History: 
1722 a 
1723 aE Date Prograriner Modification 
1724 RR mam mc ene ewer eee ree me een reece ewww en eer enne nnn nee 
1725 a SA Wrote 
1726 . 10/25/83 NM Attempted to docunent 
ee JOO I III ITI TI TTI I IOI OT IIIT I ASIII III III AK 
1729 JOOS II III IIT III IO III ITI III IOS I III III SIO STII II SII IAS 
1730 OBE8C 00 NIBHEX 00 Argunent count range = [0,0] 
1731 - 
1732 * Changed by NB 1/8/82 
1733 * ERR# 1s stored as 4 nib hex nuriber: (LEX IDH)*256 + tmsgH in 
1734 * hex. 
1735 * This 1s converted to (LEX ID#)*1000 + trisg# in decinal. 
1736 * e.g. ERRH= 171B 1s converted to 227 
173? : 
1738 OBE8E 3400 =ERRN LC(5) (=ERRH)+2 Point to LEX ID#. 
000 
1739 OBE95 136 CDOEX 
1740 OBE98 D? D=C A Save DO. 
1741 OBESAR AFO A=0 W 
1742 OBE9D AF2 C=O 86 
1743 OBERO 148A A=DATO B Read in LEX IDH. 
1744 OBEA3 328E LC(3) 1000 
ra! 3 
1745 OBER8 8E00 GOSUBL =a-nult Multiply LEX ID# by 1000. 
oo 
1746 OBERE D2 C=0 A Clr C(A) since A-MULT don’t. (SB) 
1747 OBEBO 181 DO=D0- 2 
1748 OBEB3 14€ C=DATO B Add message nunber. 
1749 OBEB6 CA A=A+C A 
1750 OBEBS 7B00 HDFRT2 GOSUB hdflt Convert all to dec float. 


1751 OBEBC 0B 


C=0 R C= previous DO. 
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1752 OBEBE AFE ACfrt2 ACEX UW 

1753 OBEC1 8C00 fnrtn2 GOLONG =FNRTN2 
00 

1754 OBEC? 8D00 =hdflt GOVLNG =HDFLT 
000 


1755 FOI TO TT TOK 


1756 OBECE 00 NIBHEX 00 Argunent count range = [0,0] 
1757 OBEDO 3400 =ERRL LC(5) =ERRLH 
000 
1758 OBED?7 136 CDOEX 
1759 OBEDA AFO A=0 Wi 
1760 OBEDD 1583 A=DRTO 4 
1761 OBEE1 8&00 GOSUBL =FLOATA 
00 


1762 OBEE? 660F GOTO §=ACFrt2 
1763 SII II RID IITA IID III IIIA IIISIIS IIIT ISIISIIIISIISIISSISI IL 


1764 FOI TIITTIT DIR ITNT IIIA IDI TTI DIDI ITT TTI IIIS IN 


1765 ak 

1766 ak Nane: EXP EXP Function 
1767 tk Narie: EXPM1 EXPM1 Function 
1768 ak Nane: LEN LEN Function 
1769 ak Wane: LOG LOG Function 
1770 kk Nane: LOG10 LOG1O Function 
1771 ak Wane: LOGP1 LOGP1 Function 
1772 ak Nane: MEN MEM Function 
1773 *k Wane: PI PI Function 
1774 aX Narie: POS POS Function 
1775 aX Narie: RMD RAD Function 
1776 &* Narie: NOD MOD Function 
1777 ** Nane: RED RED Function 
1778 &* Narie: DIV DIV Function 
1779 a* Warie: DEG DEG Function 
1780 *k Narie: SQR SQR Function 
1781 RK Nare: RAD RAD Function 
1782 aK 

1783 *&k Category: FNEXEC 

1784 aK 

1785 ** Purpose: 

1786 ak Function execute code for various functions. 
1787 aK 

1788 ak Entry: 

1789 aK P=0, 

17% ak DO = PC. 

1791 kk D1 = Mathstack pointer. 

1792 ak Junped on function tokens. 
1793 ak 

1794 aK Exit: 

1795 i Through EXPR. 

1796 RK 

1797 ak Calls: Whatever. 

1798 aK 

1799 ** Detail: 

1800 ae Nuneric functions of no argunents: 
1801 ak MEM (if port# not specified), 
1802 aK PI (pi). 


o@ @ @ § t & © b €& & € 9 
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1803 ax Nuneric functions of one numeric argunent: 
1804 ak EXP (E*X), 
1805 ae EXPM1 (E°K-1), 
1806 ak LOG (LN), 
1807 ae LOG1O (LOG base 10), 
1808 ax LOGP1 (LN(x) + 1), 
1809 ak NEM (if port# specified), 
1810 ak DEG (radians to degrees), 
1811 ak SQR (square root), 
1812 aK RAD (degrees to radians). 
1813 ax Numeric functions of tuo nuneric argunents: 
1814 aK RND (rernainder), 
1815 ae MOD (nod), 
1816 RK RED (reduction), 
1817 ax DIV (DIV operator) 
1818 ax Nuneric functions of one string argument: 
1819 ax LEN (length of string). 
1820 ak Nuneric functions of two string argunents: 
1821 ak POS (position function). 
1822 ah 
1823 ** History: 
1824 aR 
1825 ak Date Prograrnner Nodification 
1826 BR nnwee nee cer ete rete reenter renner enter esc enn enc sesenee 
1827 ak SA Wrote 
1828 tk 10/14/83 NM Attenpted to docunent 
1829 an 
1830 JOR IO ITI ATA TI IRI IIIT TTDI LIA IIIIISI SII IIS ISOS IS SII IAA 
1834 IIIS I IT III ITI TIO IIIS ISIS ISIS ISIS IISISS SII SI ISIS ISIS SIA 
1832 OBEEB 811 NIBHEX 811 Argunent count range = [1,1] 
1833 OBEEE 7B9E =ExP GOSUB MPOPIN POP ARGUNENT 
1834 OBEF2 486 GOC CLNK5 
1835 OBEF5 8E00 GOSUBL =EXP12 
00 
1836 OBEFB 688D GOTO QUTRES 
183? FORO TOI OUI ITI TOTO IO TOTO OK 
1838 OBEFF 811 NIBHEX 811 Argunent count range = [1,1] 
1839 OBFO2 778E =EXPNi GOSUB MPOPIN 
1840 OBFO6 445 GOC CLNK5 
1841 OBFO9 8E00 GOSUBL =EX-112 
00 
1842 OBFOF 8E00 GOSUBL =EXAB1 get [exp(x)-1] from (RO,R1) regs 
00 
1843 OBF15 6£6D GOTO OQUTRES 


1844 ‘ 
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1845 
1846 I IRIS RII IIIS ISIS I III I III III IIIS IIS IIS III III IORI II III ISA IIS IS. 
1847 $3 JOO III SI IIS IIIS IIS ISIS ISIS II III IOS ISIS IIIT SIS 
1848 sig 
1849 ** Nane:(S) ARGERR - Report “Invalid Arg" Error. 
1850 xe 
1851 ** Category: SYSTEM 
1862 Re 
1853 ** Purpose: : 
1854 ax To report "Invalid Arg" as an execution error. 
1855 ax 
1856 kk Entry: 
1857 ax $13=0 if not a running program (i.e., keyboard 
1858 am execution error) 
1859 ak $13=1 if a running progran. 
1860 x No other necessary conditions. 
1861 a 
1862 RX Exit: 
1863 ae Exits to BASIC nain loop (ERRRTN) 
1864 = 
1865 ** Calls: MFERR 
1866 ae 
1867 aX Uses....... Exits to main loop, can use anything 
1868 ae 
1869 ** Stk lvls: Exits to main loop, can use all 
1870 ax 
1871 ** NOTE: 
1872 sae ARGERR sets P=0 to select an execution error: 
1873 ax -- not a parse error 
1874 am -- store ERRN (and ERRL, if $13=1) 
1875 ax ~- display "ERR:" (or "ERR L<#>:") prefix 
1876 ee -- exit to BASIC nain loop 
1877 ax 
1878 ** Detail: 
1879 aS =RARGERR P= 0 
1880 am LC(2) =e IVARG 
1881 ak GOLONG =MFERR 
1882 a 
1883 &® History: 
1884 a 
1885 kx Date Prograrner Modif ication 
1886 BK nme re ne eee ew cerns creer en ewe nnn cer cem nen eerenweceneee 
1887 kx 11/09/83 MB Docunentation 
1888 ex 
1889 JE III IDIOT ITO IIIS IT IIIS I ITI II IIIS IIIS ISI IIA 
1890 JECT O TT OTIR IIIT ISS IASI SII II IIT IIT ISI ISIS II IST IS 
1891 OBF19 20 =ARGERR P= 0 
1892 OBF1B 3100 LC(2)  =eIVARG Invalid Argunent 
1893 OBFIF 8C0O nferr GOLONG =MFERR EXECUTION ERROR!!! 
f 
1894 ” JIS IO ITI OS SII I ISO IIIS II OTITIS ISI ISISIISIS ISIS AIS: 
1895 OBF25 411 NIBHEX 411 Argunent count range = [1,1] 
1896 OBF28 7COE =LEN GOSUB POP1S READ HERDER 
18397 OBF2C 137 CDIEX 


1898 OBF2F C2 C=C+A AR COMPUTE ADDRESS OF RESULT 
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1899 OBF31 135 D1=C 
1900 OBF34 1CF D1=D1- 16 
1901 OBF37 25 LEN1O P= 5 CONVERT LENGTH TO BYTES 
1902 OBF39 A80 A=0 P 
1903 OBF3C 81C ASRB 
1904 OBF3F 748F =LEN20 GOSUB hdflt CONVERT HEX TO DECIMAL 
1905 OBF43 6FC9 GOTO DIAEXP WRITE RESULT TO STACK, RETURN 
1906 JI III II II TTI IIIT ITI ISIS I ISS III IIS ISS SIS IIS AI SSIS ISS SII 
1907 OBF47 811 NIBHEX 811 Argurient count range = [1,1] 
1908 OBF4A 7F3E =LOG GOSUB MPOPIN POP ARGUMENT 
1909 OBF4E 40 GOC CLNKS 
1910 OBF51 8E00 GOSUBL =LN12 
00 
1911 OBF57 6C2D GOTO  OUTRES 
1912 III III II OT II IIT II III ISIS II STIS SID IIIS STS III III SI ISS II III ITA 
1913 OBF5B 64CC CLNKS GOTO CPOLLF 
1914 
1915 OBFSF 811 NIBHEX 811 Argunent count range = [1,1] 
1916 OBF62 772E =LOG10 GOSUB MPOPIN POP ARGUMENT 
1917 OBF66 44F GOC CLNKS 
1918 OBF69 8E00 GOSUBL =LGT12 
00 
1919 OBF6F 641D GOTO  OUTRES 
1920 SII IA STII IIA IIIT II DI DIL ITI ARI II IIIA TI III III AID III SII I IAAI III IM 
1921 OBF73 811 NIBHEX 811 Argurent count range = [1,1] 
1922 OBF76 731E =LOGP1 GOSUB MPOPIN 
1923 OBF7A 40E GOC CLNKS 
1924 OBF7D 8£00 GOSUBL =LN1+12 
00 
1925 OBF83 600D GOTO  OUTRES 
1926 II III III III DIDI DIT II IIIT III III ISSSI SGI IIISSII IOI SI SSOI SSSI ISI TK 
192? OBF87 3100 MEMeDV LC(2) =eDVCNF 
1928 OBF8B 639F GOTO 3=nferr 
1929 
1930 OBF8F 801 NIBHEX 801 Argunent count range = [0,1] 
1931 OBF92 S4A =MEN C20) = § No argurients? 
1932 OBF95 B3 GOYES MEN10 
1933 OBF97 8E00 GOSUBL =PDEV1 Calculate Port# 
00 
1934 OBF9D 8F0O GOSBVL =SAVD1 Save D1 in F-RO-1 
000 
1935 OBFA4 8E00 GOSUBL =RONMF- Find Port entry in table 
00 
1936 OBFAA 4(D GOC MEMeDY 
1937 OBFAD 13? CDIEX D1 at File chain start 
1938 OBFBO 8E00 GOSUBL =EOFLC+ D1 at Fale chain end 
00 
1939 OBFB6 8E00 GOSUBL =LSTAOR 
00 
1940 OBFBC 171 DI=Di+ 2 Point past zero byte 
1941 OBFBF 133 ADIEX 
1942 OBFC2 E2 C=C-R A #Nibs left 
1943 OBFC4 DA A=C A 
1944 OBFC6 8E00 GOSUBL =rstd1 Restore D1 fron F-RO-1 


00 
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1945 OBFCC 6R6F GOTO LENIO 
1946 
1947 OBFDO 136 MEN10 CDOEX 
1948 OBFD3 07 D=C OAR 
1949 OBFDS 1800 DO=(5) =RVNENS 
000 
1950 OBFDC 146 C=DATO A 
1951 OBFDF 164 DO=D0+ 5 
1952 OBFE2 ADO A=OOO 
1953 OBFES 142 A=DATO A 
1954 OBFE8 EA A=A-C A COMPUTE FREE BYTES ON STACK 
1955 OBFEAR D2 C=O) =A 
1956 OBFEC 314D LC(2)  =LEEWAY 
1957 OBFFO EA A=A-C A SUBTRACT LEEWAY 
1958 OBFF2 540 GONC MEN2O 
19539 OBFF5 DO A=O oA 
1960 OBFF7 81C MEN20 ASRB 
1961 OBFFA 6DBE GOTO HDFRT2 CONVERT TO DECIMAL, RETURN 
1962 JORIS IIIT TI EI IIIT ITI I III II IIIS II IIS I ITI IIIS IIIT ISA 
1963 OBFFE 00 NIBHEX 00 Argunent count range = [0,0] 
1964 OCOOO 3FOO =PI LCHEX 0314159265359000 PI (12 digit forn) 
0953 
5629 
5141 
x» 
1965 0CO12 653E GOTO 36 frn1 RETURN 
1966 SOIT OO ORI TI TORII III IID IIIT AIT III III IIIA II AI IIS ISS: 
1967 0CO16 8442 NIBHEX 84423 Argunent count range = [2,3] 
3 
1968 0CO1B 80DF =PO0S P=C 15 ARGCOUNT->P; 
1969 OCO1F 136 CDOEX 
1970 OCO22 10B R3=C PC->R3; 
1971 0CO25 D1 B=0 =A 0->SCANSTART; 
1972 OCO27 892 ?P= 2 ARGCOUNT=2 
1973 OCO2A 02 GOYES POS1 THEN GOTO POS1; 
1974 OCO2C 7CEC GOSUB POPIN 
1975 OCO3W 17F D1=D1+ 16 
1976 0C033 7370 GOSUB fltdh SIGN->B; 
1977 0CO37 D8 B=A AR 
1978 0C039 4CO GOC POSO O<=SCANSTART<=FFFFF THEN GO POSO; 
1979 OCO3C D1 B=O =A O- >SCANSTART; 
1980 OCO3E 821 KMN=0 
1981 0(041 94D BHO OS SIGNHO 
1982 OC044 60 GOYES POS1 THEN GOTO POS1; 
1983 0C046 CD POSO B=B-1 A 2*( SCANSTART-1)- >SCANSTART; 
1984 0C048 C5 B=B+B A 
1985 OCO4A 7AEC POSt GOSUB POP1S LEN(SEARCHS ) 
1986 OCO4E Dé C=A OA ->C; 
1987 0C050 133 ADIEX 
1988 0CO53 CA A=A+C A START (SEARCHS ) 
1989 0CO55 131 D1i=A ->D1-2 
1990 0C058 CC A=A-1 A 
1991 OCOS5A CC A=A-1 A 
1992 OCOS5C 101 R1=A ->R1; 
1993 OCOS5F 7SDC GOSUB POP1S LEN(OBJECT$)->A; 
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1994 0C063 
1995 0C066 
1996 0C068 
19397 OCO6B 
1998 oCO6D 
19399 0C070 
2000 00072 
2001 0C075 
2002 OC077 
2003 OCO7A 
2004 0C07D 
2005 OCO7F 
2006 0C082 
2007 00084 
2008 0087 
2009 0C08B 
2010 OCO8D 
2011 OCO8F 
2012 

2013 OCO092 
2014 00094 
2015 0(096 
2016 0C099 
2017 0CO9B 
2018 OCOSE 
2019 OCOAT 
2020 OCOAR4 
2021 OCOR6 
2022 OCOR8 


2023 OCOAF 
2024 OCOBI1 
2025 OCOB4 
2026 OCOBE 
2027 OCOBS 
2028 OCOBB 
2029 OCOBD 
2030 OCOlo 
2031 OCO0C3 
2032 OCOl6 
2033 OCOC9 
2034 OCOCC 
2035 OCOCF 
2036 OCOD2 
2037? OCOD4 
2038 OCOD 
2039 OCOD9 
2040 OCODC 
2041 OCODF 
2042 OCOE? 
2043 OCOES 
2044 OCOE? 
2045 OCOEA 
2046 OCOED 
2047 OCOEF 


2306 


137 
C2 
10A 
E9 
13? 
£0 
466 
EA 
416 
AD1 
D8 
81D 
CE 
445 
80D0 
F6 
D7 
502 


09 
06 
137 
06 
137 
161 
171 
DB 
te) 
8F00 
000 
07 
135 
07 
DS 
562 
cD 
119 
134 
451 
148 
1C4 
14F 
962 
oc 
CO 
52F 
114A 
135 
11A 
AFO 
DA 
13? 
1CF 
EA 
8iC 


POS2 


PO0S3 


POS4 


POSS 
POS6 
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CDIEX 
C=A+C A 
R2=C A 
C=C-B A 
CD1EX 
A=A-B A 
GOC POS5 
R=A-C A 
Goc POSS 
B=0 " 
B=A R 
BSRB 
C=C-1 A 
GOC POSS 
P=C 0 
CSR A 
d=C A 
GONC POS3 
C=B A 
RSTK=C 
CDIEX 
RSTK=C 
CD1EX 
DO=D0+ 2 
D1=D1i+ 2 
C=D A 
B=C A 
GOSBVL =STREQL 
C=RSTK 
01=C 
C=RSTK 
B=C A 
GONC POS6 
B=B-1 A 
C=R1 
DO=C 
GOC POSS 
A=DATO B 
D1=D1- 2 
C=DAT1 B 
7A=C OB 
GOYES POS2 
B=B-1 A 
GONC POS4 
C=R2 
bi =C 
C=R2 
A=0 W 
R=C A 
CD1IEX 
D1=01- 16 
A=A-C A 
ASRB 
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START (OBJECTS )->R2; 

START (OBJECTS )-SCANSTART 
->SCANPT ; 

LEN( OBJECTS )-SCANSTART->A<O 
THEN GOTO POSS; 
A-LEN(SEARCHS )- >A>0 

THEN GOTO POS5; 


A/2->SCANINDEX; 

LEN(SEARCHS$ )-1->C€<0 

THEN GOTO POS5; 

RND( LEN( SEARCH$ )-1 , 16) ->PARTWORD; 
DIV(LEN(SEARCH$ )-1, 16) 

- WORDCOUNT ; 

B.E.T. 


SCANINDEX->STACK; 
SCANPT->STACK; 


WORDCOUNT- >B; 
STRINGMATCH 


SCANPT->D1; 


SCANINDE X->B; | 
THEN GOTO POS6; <--+ 
SCANINDEX-1->SCANINDEX<O --+ 


START (SEARCHS )- >D0; | 

THEN: GOTO POSS; <+-<+-->+-=- + 
FIRSTCHAR( SEARCHS$ ) ->A; 
SCANPT-2->SCANPT ; 

OBJEC T$(SCANPT)->C; 
FIRSTCHR(SEARCH$ )=OBJECT$(SCANPT ) 
THEN REPEAT POSe; 
SCRNINDEX- 1 - >SCRNINDEX >=0 

THEN REPEAT POS4; 


START (OBJECTS )- >SCANPT; 


SCANPT->C: 

MTHSTK-16->D1; 

START (OBJECTS )-SCANPT->A; 
A/2->A; 
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2048 OCOF2 71DD GOSUB hdflt FLOAT(A) 
2049 OCOF6 AFE C=A W ->C; 
2050 OCOFS 113 A=R3 PC->A; 
2051 OCOFC 6A3A GOTO ARYRIN GOTO FNRTN3 
2052 SR IK III SST IAT ISITI IIIS SSSI SSI III SIS SISIIIIIOI SSIS SIS SS SSSSI IIS SIS. 
2053 0C100 8822 NIBHEX 8822 Argurient count range = [2,2] 
2054 0C104 7C4C =RND GOSUB MPOP2N 
2055 0€108 403 GOC CLNK6 
2056 0C10B 7000 GOSUB =RND12 
2057 OC1IOF 6478 GOTO OUTRES 
2058 SII ITI RT TIT TTI TIT IIIS IIIT SSID II ISIS IIS SSI SSSI IIS II 
2059 00113 8822 NIBHEX 8822 Argunent count range = [2,2] 
2060 0C117 793€ =n0d GOSUB MPOP2N 
2061 0C11B 401 GOC CLNK6 
2062 OC11E 7000 GOSUB =NO0D12 
2063 0C122 6168 GOTO  OQUTRES 
2064 FIR IRI IIIT III SIS SSSI SASSI SSSI III III SII IIS III SIS ISIS SSIS SII SI SIN. 
2065 0€126 8822 NIBHEX 8822 Argunent count range = [2,2] 
2066 OC12A 762C =RED GOSUB MPOP2N 
2067 OC12E 4A0 GOC CLNK6 
2068 0€131 7000 GOSUB =REM12 IEEE xREMy fen. 
2069 0C135 6E4B QUTRES 
2070 III IIT IIT TT TRISTE TTT STITT ALI I IT ITI IIIT III IASI III SISA ISISAI: 
2071 0€139 8C5E CLNK6 GOLONG CPOLLF 
AF 
2072 
2073 0C13F 8822 NIBHEX 8822 Argunent count range = [2,2] 
2074 0C143 7D0C =DIV GOSUB MPOP2N 
2075 0C147 41F GOC CLNK6 
2076 OC14A 7000 GOSUB =IDIVi2 integer divide (xDIV¥y) 
2077 OC14E 6538 GOTO OQUTRES 
2078 FRI III IDI IIIT IIIS IIIT AISI III IIS III IIIIS IIIS SII ASSIS SII SII 
2079 OC152 811 NIBHEX 811 Argunent count range = [1,1] 
2080 0C155 =DEG 
2081 0C155 743C =RID GOSUB MPOP1IN 
2082 00159 4FD COC CLNK6 Error if conplex 
2083 OC15C 7000 GOSUB =SPLITA 
2084 00160 72% GOSUB PI/180 
2085 0C164 7000 GOSUB =DV15M 
2086 0C168 6B1B GOTO  OUTRES 
2087 RII SI SIDI ISI ISI TITIISSSSSSSI III III IIIS ISI II IIIS SISIS ISIS ISIS SIS. 
2088 OC16C 811 NIBHEX 811 Argurient count range = [1,1] 
2089 OC16F 7A1C =SQR GOSUB MPOP1N POP ARGUMENT 
2090 0C173 45C GOC CLNK6 
2091 0C176 7000 GOSUB =SQR12 
2092 OC17A 690B GOTO OQUTRES 
2093 SIRI IOI II IO ITT T OTR TTI TIT ISIS SSIS IIIS IIS IS SII SSS SSIS IS. 
2094 OC17E 811 NIBHEX 811 Argunent count range = [1,1] 
2095 00181 =RAD 
2096 0C€181 780C =DTR GOSUB MPOPIN 
2097 OC185 438 GOC CLNK6 Error if complex 
2098 0C188 7000 GOSUB =SPLITA 
2093 0C18C 7600 GOSUB PI/180 
2100 0C€190 8CAI GOLONG ufMP15 
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2101 

2102 0C196 27 

2103 0€198 8E00 
00 

2104 OC19E AF? 

2105 OC1A1 AF2 

2106 OC1AR4 CE 

2107 OC1A6 CE 

2108 OC1A8 01 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147? 

2148 OC1AA D3 

2149 OC1AC ADO 

2150 OC1AF 13? 

2151 OC1B2 1FO0 
000 

2152 OC1BY 143 

2153 OC1BC 135 
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=PI/180 P= ? 

GOSUBL =GETCON 

D=C W 

C=0 u 

C=C-1 A 

C=C-1 A 

RIN 


FORO OOO TO TE 
FOR III OTTO TIT TIT IIDD EIT I IK 
ax 


** Nane: STRLIT - Process String Literal Expression 

xx 

*X Category: FNEXEC 

&k 

** Purpose: 

an Process a string literal in an expression. 

kt 

** Entry: 

a DO = PC. 

aa D1 = Mathstack pointer. 

xk Token in B[B]. 

ak Junped on " or ’ token. 

xh P=0. 

xk 

AK EXIT: 

re eNEM if insufficient merory to put string on stack. 
- Through EXPR. 

xk 

** Calls: None. 

xk 

&* Detail: 

ax B[B] contains " or ’. This routine scans the string, 
= putting each character on the stack as it 1s 

a encountered until a ratching closing quote 1s found. 
RK The code then builds a string header and exits to 
ae expression execution controller. 

ak 

** History: 

kK 

an Date Progranner Modification 

PO, Sesh dee. eR i ede eee Red 
a SA Wrote 

ae 10/14/83 NM Attenpted to docunent 

te 


JOIST IOI IETS ISIS EIEIO ISIS RK 
JO I SII IID TOOT TOG IIR 
=STRLIT D=0 A 

A=0 A 

CDIEX CALCULATE FREE BYTES ON STACK 

D1=(5) =RVMENS 


R=DAT1 A 
D1=C 
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2154 OCIBF CE C=C-1 A 
2155 OCiC1 EA A=A-C A ANY ROOM ON STACK? 
2156 OC1C3 81C ASRB 
2157 OC1C6 451 GOC SLSTRT IF SO, GOTO SLSTRT 
2158 OCIC9 8CO0O STKERR GOLONG =MEMERR 
00 
2159 OCICF £4 PSHCHR A=A+1 = -A STACK COLLISION? 
2160 OC1D1 47F GOC STKERR IF SO, GOTO STKERR 
2161 OC1D4 1C1 Di=D1- 2 PUSH CURRENT CHARACTER ON STACK 
2162 OC1D? 14D DAT1=C B 
2163 OCIDA E7 D=D+1 A INCREMENT LENGTH COUNT 
2164 OCIDC 14— SLSTRT C=DATO B READ CHARACTER 
2165 OC1IDF 161 DO=D0+ 2 POINT TO NEXT CHARACTER 
2166 OCIE2 965 BHC OB TERMINATOR? 
2167 OCIES AE GOYES PSHCHR IF NOT, REPEAT PSHCHR 
2168 OC1E? DB C=D A 
2169 OCIES C6 C=C+C A CONVERT BYTES TO NIBBLES 
2170 OC1EB BF2 CSL W CONSTRUCT STRING HEADER 
2171 OCIEE BF2 CSL W 
2172 OCIF1 3OF LCHEX F 
2173 OCIF4 635C GOTO fn RETURN 
2174 SOIT OJ OTTO OTTO Ok 
2175 $3 IO RIT TTDI TOTTORI TI SIDI IID EIS ISIDISIII ISIS IA 
2176 ak 
2177 *k Warie: SUBS - Process Substring 
2178 -* 
2179 *& Category: FNEXEC 
2180 aK 
2181 ** Purpose: 
2182 ak Process substring specification. 
2183 an 
2184 ak Entry: 
2185 ze P=0. 
2186 ae DO = PC. 
218? RR D1 = Mathstack pointer. 
2188 se Jumped on substring token. 
2189 mR 
2190 ae Exit: 
2191 =e Through EXPR. 
2192 bs 
2193 ** Calls: MOVEDD, POPIN. 
2194 * 
2195 ** Detail: 
2196 x Substrings are tokenized as: 
2197 ae <string expr> 
2198 ae <expression> 
2199 ae (<expression>, if 2nd substring parn) 
2200 ae substring token (u/nunber parns) 
2201 aia SUB$ then peels substring paraneter(s) off of stack 
2202 see and modifies string (on stack) into substring. 
2203 a. 4 
2204 ** History: 
2205 AK 
2206 ax Date Progranner Modification 


2207 BK nnn nent ne ene nen enn nen n nnn e eee e een en enee 
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2208 ae SA Wrote 
2209 ek 10/14/83 NM Atteripted to docurent 
aK 
ae FRI III IDE I RII ISIS IIIT III III III II II ID III III SITS SITS IIS ISS SIS 
2212 SKIT SRI TT RAT III ITI I IIIS IIIS III ISI I SSIS ISI IST ISI SSS ISIS IIA 
2213 OCIF& 8812 NIBHEX 8812 Argunent count range = [1,2] 
2214 OCIFC 03 = =SUB$ = D=0—SsOA CREATE DEFAULT SECOND ARGUMENT 
2215 OCIFE CF D=D-1 A 
2216 OC200 1564 C=DATO § READ ARGUMENT COUNT 
2217 OC204 160 DO=D0+ 1 
2218 OC207 A4E C=C-1 § 
2219 OC20A 7EOB GETARG GOSUB POPIN READ ARGUMENT 
2220 OC20E 7898 GOSUB fltdh CONVERT TO HEX INTEGER 
2221 O(212 480 GOC  POPARG IF POSITIVE, GOTO POPARG 
2222 OC215 DO A=0 A NEGATIVE ARGUMENT BECOMES ZERO 
2223 OC217 94D 7BHO OS NEGATIVE ARGUMENT? 
2224 OC21A 40 GOYES POPARG IF SO, GOTO POPARG 
2225 OC21C CC A=A-1 A LARGE ARG OR IEEE BECOMES FFFFF 
2226 OC21E 17F POPARG D1=D1+ 16 POP STACK 
2227 OC221 D6 C=A OR SWAP ARGUMENTS 
2228 OC223 OF CDEX A 
2229 0C225 DA. A=C OR 
2230 OC227 AAE C=C-1 § ANOTHER ARGUMENT ON STACK? 
2231 OC22A SFD GONC GETARG IF SO, REPEAT GETARG 
2232 OC22D 8AB 7D=0 =A FIRST ARGUMENT ZERO? 
2233 0€230 40 GOYES SUB$10 IF SO, GOTO SUB$10 
2234 0OC232 CF D=D-1 A DECREMENT ARGUMENT 
2235 0(234 (4 ~=—s- SUB$10 A=AHA A 
2236 OC236 C7 D=D+D A 
2237 OC238 136 CDOEX SAVE PC IN D(A) 
2238 OC23B DF CDEX A 
2233 OC23D D5 B=-C =A 
2240 OC23F 8B0 7A>B OA SECOND ARG GREATER THAN FIRST? 
2241 OC242 40 GOYES SUB$20 IF SO, GOTO SUB$20 
2242 00244 D4 A=B A SET SECOND ARG EQUAL TO FIRST 
2243 0C246 1B00 SUB$20 DO=(5) =F-RO-2 
000 
2244 OC24D 140 DATO=A A RECORD SECOND ARGUNENT 
2245 OC250 184 DO=D0- 5 
2246 O(253 144 DATO=C A RECORD FIRST ARGUMENT 
2247 OC256 184 DO=DO- § 
2248 OC259 176 Di=D1+ 7 
2249 OC25C 147 C=DAT1 A 
2250 OC2SF 144 BATO=C A RECORD SOURCE ADDRESS 
2251 OC262 1C6 BI=D1- 7 
2252 OC265 1577 C=DAT1 W READ STRING HEADER 
2253 OC269 BOG C=C+1 P STRING? 
2254 OC26C 52? GONC SUB$E0 IF NOT, GOTO SUBS$60 
2255 OC26F 300 LCHEX C ASSUME NONEXISTENT STRING ARRAY 
2256 OC272 816 CSRC 
2257 OC275 R06 C=C+C P ASSUMPTION PROBABLY CORRECT? 
2258 O€278 450 GOC SUB$30 IF SO, GOTO SUB$30 
2259 OC27B B46 C=C+1 § ASSUME SIMPLE STRING VARIABLE 
2260 OC27E 90E SUB$30 7CHO) OP ASSUMPTION CORRECT? 
2261 0C281 E5 GOYES SUB$60 IF NOT, GOTO SUBS$EO 


Saturn Asserbler 


Ver. 3.39/Rev. 2306 


2262 OC283 ACS 

2263 OC286 BF6 

2264 Of2839 882 

2265 OC28C 40 

2266 OC28E DA 

2267 OC290 885 

2268 0C293 40 

2269 0C295 D5 

2270 0C297 EO 

2271 OC299 17F 

2272 OC29C 133 

2273 OC29F ED 

2274 OC2A1 C2 

2275 OC2A3 CO 

2276 OC2A5 137 

2277 OC2A8 D5 

2278 OC2AA 8FOO 
000 

2279 OC2B1 D9 

2280 OC2B3 BF2 

2281 OC2B6 BF2 

2282 OC2B9 30F 

2283 OC2BC 1CF 

2284 OC2BF 1557 

2285 OC2C3 1800 
000 

2286 OC2CA 15EE 

2287 OC2CE ABS 

2288 OC2D1 ADS 

2289 OC2D4 DB 

2290 OC2D6 134 

2291 OC2D9 8CC3 
6F 

2292 OC2DF 653A 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2505 

2306 

27 

2308 

2309 

2310 

2311 

2312 

2313 
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B=C $ 
CSR W 
7A<C OR 
GOYES SUB$40 
A=C a 
SUB$40 7B<C A 
GOYES SUBS 
B=C A. 
SUB$50 A=A-B A 
D1=D1+ 16 
ADIEX 
B=C(-B A 
C=A+C A 
A=A+B A 
CD1EX 
B=C A 
GOSBVL =NOVEDD 


C=B A 

CSL W 

CSL W 

LCHEX F 
D1=D1- 16 
DATI=C W 
DO=(5) =F-RO-0 


expri GOLONG expr 


SUB$60 GOTO  CNFLCT 
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ACTUAL LENGTH IN C(A) 

SECOND ARG BEYOND ACTUAL STRING? 
IF NOT, GOTO SUB$40 

SET TO ACTUAL STRING END 

FIRST ARG BEYOND ACTUAL STRING? 
IF NOT, GOTO SUB$50 

SET TO ACTUAL STRING END 

COMPUTE LENGTH OF SUBSTRING 


COMPUTE OFFSET TO STRT OF SUBSTR 
COMPUTE ADDR OF START OF STRING 
COMPUTE ADDR OF START OF SUBSTR 


LEAVE SUBSTRING LENGTH IN B(A) 
MOVE SUBSTR TO NEW TOP OF STACK 


CONSTRUCT STRING HEADER 


WRITE STRING HEADER TO STACK 


STORE ADDR INFO IN B-REGISTER 


RETURN 


FORO R ORI JI ROR JOTI 
FOO JOO ITER TORTI TOT TTT TOK 


he 
kx Nane: XFN - 


Process External Functions 


** Category: FNEXEC 

tx 

** Purpose: 

x Process XFNs in expression. 
tx 

** Entry: 

ot P=0, 

oe DO = PC. 

2 D1 = Mathstack pointer. 

a Junped on XFN token. 

aK 

RK EXLY: 

aE Exits to function requested. 
i 

** Calls: XNTADR. 

ax 
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2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 OC2E3 OF 

2330 OC2ES 142 

2331 OC2E8 8E00 
00 

2332 OC2EE 4E2 

2333 OC2F1 C9 

2334 OC2F3 AIS 

2335 OC2F6 A35 

2336 OC2F9 A35 

2337 OC2FC C9 

2338 OC2FE AB8 

2339 0(301 136 

2340 00304 162 

2341 00307 142 

2342 OCIA 136 

2343 OC30D C2 

2344 OC30F 06 

2345 00311 163 

2346 00314 1564 

2347 00318 160 

2348 0C31B 03 

2349 00310 20 

2350 OC31F 3100 

2351 00323 6BFB 

2352 00327 
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** Detail: 
ay Looks for Xfunction table and then looks for requested 
4K entry in table. If not found then errors with eXFNNF. 
ax Otherwise loads address of function execute and junps 
x to it. 
ae 
k* History: 
ax 
kx Date Progranner Nodification 
ERX eceetcca. meiieeecece:- .seoesenoeGulse eewck nce Secew cee ccwew 
ne SA Wrote 
ek 10/14/83 NM Attenpted to docunent 


xx 


TOI JI TOIT TIO 
FORO TIT TTT TOTTI TTT I IK IM 


NIBHEX 
=XFN R=DATO 


OF Argunent count range = ({0,15] 
A 


GOSUBL =XMTADR 


GOC 
C=C+B 
B=B+B 
B=B+B 
B=B+B 
C=C+B 
B=A 
CDOEX 
DO=00+ 
R=DATO 
COOEX 
C=C+A 
RSTK=C 
DO=D0+ 
C=DATO 
DO=DO+ 
RINCC 
=NOXFN P= 

LC(2) 
GOTO 
END 


NOXFN 


xDx x xX D 


copy token into B(x) 


D> Dw 


—- & 


0 
=eXFNNF 
nferr 
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2xRGNN Robs 47534 HOBSRE - 603 826 855 
=RBS Abs 47369 #08909 514 
=ACOS Abs 48617 #OBDE9 - 1642 


ACOSI2 Ext - 1644 
ACfrt2 Abs 48830 HOBEBE - 1752 1762 
ADDRSS Ext 7%) =. 894 


=AND Abs 47223 #OB877 - 428 
=ANGLE Abs 48658 HOBE12 - 1654 
ARG12 = Ext - 1656 
=ARGERR Abs 48921 #OBFI9 - 1891 
=ARRAY Abs 47837 HOBADD - 790 
ARYROR Abs 47536 #0B9BO - 604 815 845 
ARYRTN Abs 47927 #0BB37 - 817 702 729 733 2051 
=ASIN Abs 48591 #OBDCF - 1634 


ASINI2 Ext - 1636 
=ATAN Abs 48637 #OBDFD - 1648 
ATANI2 Ext - 1650 
AVNENE Ext - 1002 
AYMENS Ext - 1949 2151 
B9605B Ext - 692 
=BRBBAJ Abs 47206 #OB866 - 389 81 «350 = 433) 435 
BASE Ext - 649 
=BIG Abs 46919 #0B747 - = 221 
=BIG+ Abs 46916 #08744 - 220 270 
=BOOLE Abs 47203 #0B863 - 388 
CEXPR Abs 49878 #OC2D6 - 22% 
=CHR$ Abs 48678 #0BE26 - 1660 
CHR$1 Abs 48701 #OBE3D - 1667 1664 
=CLASS Abs 46881 #0B721 - 168 
CLASSA Ext - 12 
CLNK1 Abs 46774 #0B6B6 - 103 66 22 78 85 91 96 107 
13544 = =169 


CLNK2 Abs 47039 #OB7BF - 299 348 

CLNK3 Abs 47362 HOBH2 - 511 440 448 494 515 556 

CLNK4 Abs 48716 #OBE4SC 1672 1635 1643 1649 1655 1676 1682 1688 
CLNKS Abs 48987 #OBF5B 1913 1834 1840 1909 1917 1923 

CLNK6 Abs 49465 #0(139 2071 2055 2061 2067 2075 2082 20% 2097 


1 


# § ft 9 


=CHPLX Abs 48156 #OBCIC 986 
CHPLX1 Abs 48165 #OBC25 9%) 986 
=CNFLCT Abs 48405 #0BD15 - 1263 173 831 1212 1236 1393 2292 
=COMPAR Abs 47045 #OB7(5 - 333 
=CONCAT Abs 46799 HOB6CF - 112 
=COS Abs 48743 #OBE67 - 1681 
COS12 Ext - 1683 
CPLX Abs 48009 #OBB89 - 849 811 
=CPOLL Abs 48182 #OBC36- 996 991 
=CPOLLF Abs 48160 #OB(20 - 988 103 299 511 1672 1913 2071 
=CPOLLR Abs 48167 #0B(27 - 991 861 
=CSETUP Abs 48035 #OBBA3 - 859 
CSHORT Abs 48023 #OBB97 - 855 853 
DIREXP Abs 47379 #0B913 - 517 74 «1905 
DATERR Abs 46898 #0B732 - 173 


=DEG Abs 49493 #0C155 - 2080 
DEXPR Abs 49876 #OC2D4 - 2289 1H 
DIMN10 =—sExt - 696 
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=DIV Ros = 49475 #00143 - 2074 
=DIVIDE Abs 46725 #OB685 - 90 
DMA1O) «6 Abs.) 48109 HOBBED - 913-9111 
DHAIO0 =Abs 48128 #OBCOO - 920 896 
DHAZ20 «=6Abs )|«=— 48119 ROBBF7 - 916 927 933 
=DMARRY Abs 48050 #OBBB2 - 894 
DMPRES Abs 47217 #OB871 - 393 390 509 
DOOFUS Abs 47965 HOBB5D - 831 796 900 


=DTR Abs 49537 #OC181 2096 
DVI5N = =—Ext 2085 
DVe-12 Ext - 92 
EOFLC+ Ext - 1938 

=EPS Abs 47009 #0B7A1 - 288 
ERR# Ext - 1738 

=ERRL Abs 48848 #OBEDO - 1757 
ERRLH = Ext = 4757 

=ERRN Abs 48782 OBESE - 1738 
EX-112 Ext - 1841 
EX12 Ext =: “1a6 
EXAB1 = Ext - 1842 


=EXOR Abs 47269 #OB8A5 - 446 
EXOR10 Abs 47292 ROB8BC - 454 462 
EXOR20 Abs 47305 #OB8C9 - 458 456 

=EXP Abs 48878 #OBEEE - 1833 
EXP12 Ext - 1835 

=EXPM1 Abs 48898 HOBFO2 - 1839 


=EXPON Abs 46861 #OB70D - = 133 
EXPR Ext - 518 
F-RO-O Ext - 2285 
F-RO-2 Ext - 2243 
F-R1-O Ext - 659 802 
F-R1-3 Ext - 654 
FAKE Ext =. #39 
FLGREG Ext = E5Od 
FLOATA Ext - 1761 
FLTDH Ext #1638 


FNA Abs 47033 #OB7B9 - 297 271 285 289 293 1670 
FN4 Abs 48608 #OBDEO - 1639 171 393 1051 1666 


FNRTNI Ext a 3287 
FNRIN2 Ext - 1763 
FNRTN3S Ext - 81? 
FNRTNG Ext = 1639 
FPOLL Ext - 1006 
FUNCDO Ext - 998 1009 
GETARG Abs 49674 #OC2OR - 2219 2231 
GETCON Ext - 2103 
HDFLT = Ext - 1754 


HDFRT2 Abs 48824 #OBEBS - 1750 1961 
=HUGE Rbs 46941 #OB75D - 228 = 292 
=HUGE2Q Rbs 46944 #0B760 - 229 

IDIVi2e Ext - 2076 
= INF Abs 47018 ROB?7AA - = 292 

INT Abs 47945 #OBB49 - 824 = 822 

INTSHT Ext = 3828 
=INVLUT Abs 46651 #OB63B - 65 
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INVNaN Ext - 1018 
=INVRES Abs 48248 #0BC78 - 1018 715 
LEEWAY Abs 212 #O00D4 - 12 1956 
=LEN Abs 48936 HOBF28 - 1896 
LENIO §«=6Abs «= 498951 WOBF37 - 191 1945 
=LEN20 Abs 48959 HOBF3F - 1904 
LGCTST Abs 47240 #OB888 - 434 443 460 
LGT12 Ext - 1918 
UN1412 Ext - 1924 
IN12 Ext - 1910 
=LOG Abs 48970 HOBF4A - 1908 
=LOGIO Abs 48994 #OBF62 - 1916 
=LOGIC Abs 47209 #08869 - 390 
=LOGP1 Abs 49014 #OBF76 - 1922 
LSTADR Ext - 1939 
=MAXRL Abs 46958 HOB76E - 270 
=HEN Abs 49042 #0BF92 - 1931 
NEN10 §=Abs 49104 HOBFDO - 1947 1932 
NEN20 Abs 49143 HOBFF7 - 1960 1958 
MEMERR Ext - 2158 
NEMeDV Abs 49031 #0BF87 - 1927 1936 
MFERR = Ext - 1893 
=MINRL Abs 46967 #08777 - 274 
=NINUS Abs 46672 #OB650 - 71 
=HOD Abs 49431 #0(117 - 2060 
MODi2 ~=Ext - 2062 
MOVEDD Ext - 2278 
NOved3 Ext - 123 
MP2-12 Ext - 86 
MP2-15 Ext - 101 


1629. 133 1634 1642 1648 1660 1675 1681 
1687 1833 1839 1908 1916 1922 2081 2089 


=HPOPIN Abs 48525 #OBD8D 


65 84 % 95 106 343 1654 
2054 2060 2066 2074 


' 
_ 
& 
w 
oO 


=HPOP2N Abs 48468 HOBDS4 


ASN15 = Ext 497 

=HULTPY Abs 46706 #OB672 84 

=NAN Abs 47027 #0B7B3 296 

NEWVEC Abs 47609 ROBSF9 635 695 920 
=NOT Abs 46688 #08660 


=NOXFN Abs 49949 #OC31D 2349 994 «2332 


NOXLNK Abs 48178 #OBC32 994 §=6992 
NUVC1 Abs 47633 #0BA11 648 8646 
=0R Abs 47249 #08891 438 


bof © bo bo oe § F 4 
~~ 
~~ 


1050 68 87 393. 102 136 1637 1645 
1651 1657 1678 1684 16% 1836 1843 1911 
1919 1925 2057 2063 2069 2077 286 2092 


=QUTRES Abs 48260 #OBC384 


PDEV1 = Ext = 1933 
=PERCNT Abs 46744 #0B698 - 95 
=PI Abs 49152 #OCOOO - 1964 
=PI/180 Abs 49558 #OC196 - 2102 2084 2099 
=PLUS Abs 46780 #OB6BC - 106 


13 71 «168 «=6493) 514 «= 5583) 565 = 897 
1530 1974 2219 
=POPIN+ Abs 48529 #OBD91 - 1530 7? 


=POP1IN Abs 48412 #OBDIC 
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=POP1S 
POP1S1 
POP1S2 
=POP2N 
=POP2N+ 
POP2NA 
POP2NB 
POPARG 
=P0S 
POSO 
POS1 
POS2 
POS3 
POS4 
POSS 
POSS 
PSHCHR 
=RAD 
RDATTY 
RECADR 
=RED 
REGNUM 
REM12 
=RES 
RESREG 
REVS 
=REVPOP 
RGNM1 
RGNH2 
RGNK3 
RGNI4 
RGNNS 
=RND 
RNDI2 
ROMF - 
RSLV10 
RSLV20 
RSLV30 
=RTD 
RTNNAN 
SAVDI 
SAV SUB 
$€10 
SC20 
SC30 
=SGN 
ee SGN20 
SGN 
SHORT 
=SIGCHK 
SIGNAN 
SIGTST 
=SIN 
SIN12 
SLARF 


oe] 


Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Ext 
Abs 
Abs 
fibs 
Aibs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Abs 


48440 #OBD38 
48444 #OBD3C 
48457 #0BD49 
48268 #OBC8C 
48472 #OBDS8 
48498 #OBD?72 
48517 #OBD85 
49694 #OC21E 
49179 #OCO1B 
49222 #OC046 
49226 #OCO4A 
49298 #OCO92 
49341 #OCOBD 
49353 #OCOC9 
49369 #OCODS 
49375 #OCODF 
49615 #OCICF 
49537 #00181 


49450 #OC12R - 


47418 #OB93A 
47391 #OB91F 


48433 #OBD31 
47434 #OB94A 
47453 #0B95D 
47476 #0B974 
47480 #0B978 
47519 #OBS9SF 
49412 #OC104 


48301 #OBCAD 
48359 HOBCE? 
48371 #OBCF3 
49493 #00155 
47772 HOBRSC 


47667 #OBR33 
47153 #OBS31 
47182 #OB84E 
47186 ROB8S2 
47320 HOB8D8 
47345 #OB8F1 
47358 HOB8FE 
47933 #OBB3D 
48536 #OBDIS 


48723 #OBES3 
47255 #0B897 


Table 


- 1388 
- 1389 
- 1394 
- 1195 
- 1440 
- 1447 
- 1462 
- 2226 
- 1968 
- 1983 
- 1985 
- 2013 
- 2029 
- 2033 
= 2033 
- 2041 
ma eleo 
- 2095 
- 1263 
- 914 
2066 
“B58 
- 2068 
=. “651 
a Bde 
- 1346 
- 1346 
- 565 
- 671 
- 580 
- 683 
= -§96 
- 2054 
- 2056 
=? 4935 
- 1208 
- 1228 
= Nese 
- 2081 
- 710 
- 1934 
2 $59 
a She 
= (36l 
= . 362 
-~ 493 
= + 603 
- §09 
- 819 
- 1532 
- 296 
- 1443 
- 1675 
~- AGE 7 
- 440 


112 
120 
351 
1440 
428 
1444 
1449 
2221 


1978 
1973 
2036 
2011 
2038 
2000 
2027 
2167 


697 


583 
568 
577 
$63 
584 


1201 
1205 
1221 


638 
699 
366 
379 
376 
499 


501 
813 


1448 


430 
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357 


438 


2224 


1982 


800 


588 


1309 
805 


921 
369 


506 


1532 
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1896 1985 


446 


2007 2031 


1993 
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SLSTRT 
=SMALL 
SPLITR 
SPLTAC 
=SQR 
SQR12 
STKERR 
STRCMP 
STREQL 
STRING 
=STRLIT 
STRRCL 
STRTST 
=SUB$ 
SUBS10 
SUB$20 
SUBS 
$UB$40 
SUB$50 
SUB$60 
=TAN 
TANI 2 
TOFN4 
UNDECL 
VCCK1 
VECCHK 
=XFN 
XMTADR 
YX2-12 
a-nult 
cRCL 
esrc5 
eDVCNF 
eIVARG 
eSuBSC 
eXFNNF 
expr 
expr 
=fltdh 
fni 
fnrtn2 
shdflt 
nferr 
pCNPLX 
rstd1 
uAD12 
=uMODES 
ulP15 
uRES12 
uTEST 
ures12 


Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 


49628 #OCIDC 
46902 #08736 


49519 #0C16F 


439609 #0C1C9 
47100 #0B7FC 


479639 #0BB61 
49578 #OCTRA 


49660 #0C1FC 
49716 #00234 
43734 #00246 
49790 #0C27E 
439808 #00290 
49815 #0€297 
49887 #OC2DF 
48763 #0BE 7B 


46894 #0B72E 
47741 #OBA7D 
47558 #0B9C6 
47569 #0B9D1 
49893 #0C2E5 


103 #00067 


47383 #0B917 
49881 #0C2D9 
48554 #OBDAR 
48712 #0BE48 
48833 #OBEC1 
48839 #OBEC7 
48927 HOBFIF 

56 #00038 


48561 #OBDB1 
46764 #OB6AC 


48254 #0BC7E 


Table 


- 
- 
- 
- 
- 
- 


2164 
216 
2083 
37 
2089 
2091 
2158 
351 
2022 
836 
2148 
847 
374 
2214 
2235 
2243 
2260 
2267 
2270 
2292 


1019 
1019 


2157 
288 
2098 


2160 
340 


808 


2233 
2241 
2258 
2265 
2268 
2254 


109 
792 
627 
796 


B44 
860 


933 


567 
§57 
918 
1750 
1928 
1007 


1439 
98 
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Input Paraneters 
Source file nane is RB&FCN: MS 
Listing file nane is AB/FCN: TI:ML::-1 
Object file name is ABAFCN: TI:MS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Asseribler News 
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1 & J iy &@ Mm om dtvittt H H 

2 & J T && nn MM T H H 

3 x J T && nnn T H H 

4 x J T & nan T HHH 

5 a J T &&& M OM T H 4H 

6 x J J T & & FOR T H H 

7 & JJJ T 8&8 M ON T H H 

8 

9 TITLE Math Routines - Part 1 <831213.107> 
10 0C32? RBS #00327 

14 JOO IIIT III OC TOC OT OTE 
12 kkk HATH ROUTINES KKK 
13 Kae kak 
14 kkk INPUT: KKK 
15 kaX KK 
16 ReK FOR BINARY FUNCTIONS- KKK 
17 bax KK 
18 aa IF NUMBER IS 2-12, KKK 
19 aa THEN FORM IS: KKK 
20 ax A HAS 12 DIGIT FORN KKK 
21 ReK C HAS 12 DIGIT FORM KKK 
22 aaK IF NUMBER IS 1-12, KKK 
23 RaK THEN FORM IS: KKK 
24 RaK AR HAS SIGN AND EXP Ka 
25 Rae B HAS 15 DIGIT MANTISSA KkK 
26 Rx C HAS 12 DIGIT FORM KKK 
27 kak IF NUMBER IS 2-15, KKK 
28 aK THEN FORM IS: KKK 
29 RAK A HAS SIGN AND EXP KaK 
x RAK B HAS 15 DIGIT MANTISSA KKK 
31 RaK C HAS SIGN AND EXP KK 
32 aa D HAS 15 DIGIT NMANTISSA KKK 
33 tok tok 
34 BKK FOR UNARY FUNC TIONS- KK 
35 ok kak 
36 aa IF NUMBER IS 12, KKK 
37 aKK THEN FORM IS: RAK 
38 aaK C HAS 12 DIGIT FORM KaK 
39 AX IF NUMBER IS 15, KKK 
40 KKK THEN FORM IS: KKK 
41 RKR A HAS SIGN AND EXP KKK 
42 aa B HAS 15 DIGIT MANTISSA KK 
43 ka ok 
44 Sok kik 
45 ke OUTPUT: KKK 
46 keK A HAS SIGN AND EXP AAR 
47 Rak B HAS 15 DIGIT MANTISSA Ka 
48 aX KKK 
49 ame SB=O: MANTISSA IN B EXACT RAK 
50 pape SB=1: MANTISSA IN B INEXACT KKK 
51 KEK kik 
52 ke kit 
53 JOO II ICO OOS IO OI TOE IO IE 
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56 
57 
58 
59 
60 JO IIIT OIC TTR 
61 Ka x 
62 x STATUS BITS x 
63 & 
64 =sINFRD EQU 10 RND TO +/- INF x 
65 =sNEGRD EQU 11 RND 10 -INF OR 10 0 x 
66 =sxCPT EQU 4 GLOBAL XCPT FLAG x 
67 =sINX  EQU 5 GLOBAL INEXACT FLAG & 
68 =sIX EQU 7 : a 
69 sUN EQU 8 . local flags in % 
70 s0V EQU 9 uRES12 x 
71 sbZ EQu 10 & 
72 sIV EQU 11 . x 
73 sY=INF EQU 8 (y=inf flag used in YTOX) * 
74 s=SGNS EQU 3 used in renainder fcns. 
75 NOTNOD €QU 8 USED IN REMPWD ONLY (for xMODinf) 
76 & 
77 x XCPTIONS FOR P & 
78 & 
79 =QKP EQU 0 INEXACT (needs to stay 0 for* HTRAP 
80 =UNP EQU 1 UNDERF LOW & 
81 =OVP EQU 2 OVERF LOW 
82 =D7ZP EQU 3 ZERO DIV. & 
83 =]VP EQU 4 INVALID x 
84 & 
85 x 
86 =EFIELD £QU 0 PTR POSITION FOR BYTE ERROR * 
87 FIELO IN NaN . x 
88 x 
89 k 
90 k OPERATIONS FOR P : 
91 
92 + EQU 0 P=Q => P=’+’ x 
93 x EQU 1 x 
94 / EQU 2 k 
95 k 
96 & 
97 JOU GUCCI OT IR 
98 
99 
100 
101 
102 KAEK KK ARK KKK KIKI REIKI SOROS 
103 JIC GCOS OGIO OCU ITT IT 
104 kk 
105 *k Nane:(S) ADDONE - Add One 
106 kk Nane:(S) SUBONE - Subtract One 
107 wR 
108 ** Category: MATH 
109 wk 


110 ** Purpose: 
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111 
12 
113 
114 
415 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 0C32? 
136 0C32A 
13? 0C32D 
138 
139 0C3H% 
140 0C333 
141 0C335 
142 00338 
143 0C338 
144 
145 
146 
14? 
148 
149 
150 
151 
182 
153 
154 
155 
156 
15? 
158 
159 
160 
161 
162 
163 
164 
165 


AF 2 
BCE 
§50 


AF 2 
2E 

AF 3 
B07 
502 
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Be To compute X+1 & X-1 for X an internal nunber. 
kt 
kk Entry: 
kx Standard floating point math input with (A,B)=x. 
wok sINFRD(s10)&sNEGRD(s11), rounding nodes, are consulted 
aK only 1f X+1=0 (or X-1=0) in which case the result may 
ee be +0 or -O depending on the node. (see AD15s) 
ka 
*k Exit: 
ak Standard floating point nath output. 
ke 
xx Calls: Goes to AD1Ss . 
kk 
BP USCS fc5. uss 
** Inclusive: P; A,B,C,0; 
a HD. ST. [SB]; 
kx 
** Stk Ivis: 0 
kk 
** NOTE: 
ak Can raise no XM=1 xcption . (clrs SB but not XM) 
ka 


JO III OOO OTT TT IOK 
FOO IO ITI IOI IOI IIT IO 


=SUBONE C=0 W doesn’t init SB & XN (sticky only) 
C=-C-1 § 
GONC SUBON1 "goto" 
=ADDONE C=0 W DOESN’T INIT SB & XM (sticky only) 
SUBON1 P= 14 
D=0 W 
D=D+1 P 
ONC &D1S5s "GOTO" 


FOI OKI OTTO TOR TOT TTR 
SOTO IOI TOT TTT TT TO TTT I ITE K 
xk 


kX Nane:(S) 1/X15  - 1/K 
&K 

** Category: MATH 

kk 


** Purpose: 

aX To compute 1/x 
tk 

** Entry: 


ax ' Standard floating point math input. 
ax 


eX ERAT: 
xs Standard floating point math output. 


kk HD.ST.[SB, XM); 


kk Stk lvls: 0 
ak 
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166 ** NOTE: 
167 an Goes to DVISS (divides 1 by x ) 
x 
Pee SOIR ORI IORI RISO TOIT TTT IO OT TIO 
170 SII III IIIT III OS III II III IIS II STII I III III III SO ISIS III III SS ISAK 
171 OC33E 821 =1/K15 XM=0 
172 0C341 822 SB=0 
173 
174 0C344 AF2 =1/X15S C=0 W 
175 0C347 AF3 D=0 W 
176 OC34A 2E P= 14 
177 OCHC BO7 D=0+1 P 
178 OC34F AFD =x/Y15 BCEX WwW 
179 0C352 AFF CDEX WwW 
180 0C355 RFD BCEX WwW 
181 0C358 AFE ACEX WwW 


182 0C35B 6651 GOTO 3 dV15S 





kad 
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183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

19? 

198 

199 

200 

201 

202 

203 

204 

206 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

21? 

218 

219 

220 

221 

222 

223 

224 

225 

226 

2c? 

228 

229 

230 

231 OC35F 
232 OC35F 7105 
233 0C363 848 
234 

235 00366 
236 0C366 821 
23? 00369 822 


Math Routines - Part 1 <831213 Fri Dec 30, 1983 3:18 an 
Page 5 


II IIIT OTTO TOR RIT TTI ITI ITI 
FOOT IO TI TO TO TT 
ak 


** Nane:(S) ADZ-15 
xk Narie:(S) AD2-12 
&* Narie:(S) ADDF 
** Nanie:(S) ADISN 
** Narie:(S) ADI5s 


1 


Add tuo 15 digit forms 
Add tuo 12 digit forns 
Add for finite args only 
Add according to nodes 
Add with XM sticky 


kk 
** Category: MATH 

ke 

** Purpose: 

AX To compute the sun x+y . 

aR 

&k Entry: 

a Standard floating point math input. 

x AD2-15 assunes NOT(round to -Inf) (i.e. x+(-x)=+0) 
x AD1Ss has rounding node inputs (SB cleared inside) 
a $10 & s11 set ==> rnd to -inf (i.e. x#(-x) = -0 ) 
a else x+(-x) = +0. 

xx 

aE CODE: =AD2-12 GOSUB SPLTAC 

ax ----  =AD2-15 ST=0  sNEGRD (s11) NO round to NEG. 
ax =ADISN = XM=0 

a =AD15s SB=0 (add uses SB for result!) 
eh 

es 

AX: ERAT: 

ss Standard floating point nath output. 

aa XN=1 inplies Inf+(-Inf) 

xe 

** Calls: (none) 

wt 

EA USES vidaas 

** Inclusive: P; A,B,C,0; ST.[s11 for AD2-15 only]; 

BX HD.ST. (SB, XN]; 

ak 

** Stk lvls: 0 

ar 

xX NOTE: 

ae The main entry AD2-15 forces rnd to nearest 

an (sane result except for rnd to -inf). 

i Results are truncated. (e.g. 1 - 1£-10 --> 

‘ . 9999399999399999 with SB=1 ' ) 

xx 


FIR OOOO OO ICICI OIG IIS IOI TO 
FOO OOOO IOI OT TOTO OOO 


=ADe-12 
GOSUB SPLTAC 
=AD2-15 ST=0 — sNEGRD indicates DON’T RND TO -INF 
=AD15N 
xn=0 
=AD15s SB=0 RESET STICKY BIT 
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238 OC36C 20 
239 OC36E 6462 
240 


241 

242 

243 0(372 

244 00372 822 
245 0(375 AFD 
246 0C378 AC2 
247 0C37B AC3 
248 OC37E 24 

249 00380 BO4 
250 OC383 B04 
251 00386 BO4 
252 00389 BO4 
253 OC38C BO4 
254 OC38F BOS 
255 0(392 BOS 
256 0C395 BOS 
257 0(398 BOS 
258 OC39B BOS 
259 OC39E 978 
260 OC3A1 £4 

261 

262 OC3A3 AFC 
263 OC3A6 AFF 
264 OC3A9 978 
265 OC3AC 34 

266 OC3RE 8B0 
267 OC3B1 32 

268 OC3B3 8B4 
269 OC3B6 DE 

270 OC3B8 SFF 
271 OC3BB 32 

272 OC3BD AFC 
273 OC3CO AFF 
274 OC3C3 5A1 
275 

276 

277? 

278 

279 

280 OC3C6 

281 

282 OC3C6 

283 OC3C6 8% 
284 OC3C9 9A 

285 

286 OC3CB 891 
287 OC3CE 87 


288 
283 OC3D0 67E0 
290 
23 
292 


x 
x 
x 


x 
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ADDF 


PUT SMALLER 


. Ps 


P= + 
GOTO PWEEDS 


SB=0 
BCEX 
C=0 
D=0 


A=A+1 
A=A+1 
A=A+1 
A=A+1 
R=A+1 
B=B+1 
B=B+1 
B=B+1 
B=B+1 
B=B+1 
?D=0 

GOYES 


rcruvUvUDvVVUVDVUVUT VAP UNYNET 


ADDEO 


ADD2O ABEX WwW 


CDEX WwW 
70-0 OW 
GOYES ADD6O 
?ADB 
GOYES 
7A<B 
GOYES 
*C>=D 
GOYES ADD40 
ABEX W 
CDEX WwW 
GONC ADD4O 


A 
ADDH 
R 
ADD20 
M 


3:18 an 
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Pp=’4’ 
"GOSUB" (RTN TO ADDF) 


(clear again for ARG (trig)) 
(MANTS IN C&D) 


ADD 50000 TO EACH EXP 
TO MAKE BOTH POSITIVE 


ZERO ARGUMENT? 
YES 


OF ARGUMENTS IN B & D 


EXCHANGE MANTISSAS 

EXCHANGE SIGNS, EXPS 

OTHER ARG ZERO? 

YES 

A HAS STRICTLY LARGER EXP? 
YES. LARGER ARG IS INA BC 
A HAS STRICTLY SMALLER EXP? 
YES. EXCHANGE 

EXPS EQUAL. C>=D (MAN) ? 
YES 

NO.EXCHANGE MANTISSAS 
EXCHANGE SIGNS, EXPS 

BET 


FOR JOO TTT TI TTT ITOK 


x 


X&YHS 
MATHR 


¥&Y ARE FINITE 


?P= + 
GOYES ADDF 
?P= x 


GOYES MULTF 


GOTO ODIVF 


MATH RETURN for PWEEDS (TO AVOID 
SUBR LEVELS) 


x 
x 
x 
x 
x 
x 


x 


FOI TTR TIT IK 
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293 OC3D4 940 
234 OC3D7 70 
295 OC3D9 BF2 
296 OC3DC CC 
297 OC3DE £8 
298 OC3E0 FS 
299 OC3E2 CD 
300 OC3E4 4A0 
301 OC3E7 BF? 
302 OC3ER 97F 
303 OC3ED SF 
304 OCIEF 940 
305 OC3F2 52 
306 OC3F4 832 
307 OC3F7 50 
308 OC3F9 B77 
309 OC3FC B7B 
310 OC3FF 97E 
311 OC402 81 
312 

313 0404 ACO 
314 OC40? 86A 
315 OC40A 01 
316 OC40C 868 
317 OC40F BO 
318 

319 0(411 BCC 
320 0C414 550 
321 

322 00417 AZB 
323 OC41AR AOC 
324 OC41D AOC 
325 OC420 AOC 
326 OC423 AOC 
32? OC426 ROC 
328 OC429 2E 
329 OC42B AFS 
330 OC42E 6D40 
331 

332 

333 

334 

345 

336 

Saf 

338 

333 

340 

344 

342 

343 

344 

345 

346 

34? 
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ADD30 


RDD40 
ADDSO 


ADDEO 


ADD?0 


ADD8O 
ADD90 


kk 


?A=B 
GOYES 
CSL 
A=A-1 
B=B-A 
B=-B 
B=B-1 
Coc 
DSR 
?DHO 
GOYES 
7A=B 
GOYES 
?SB=0 
GOYES 
D=D+1 
C=C-D 
?CHO 
GOYES 


A=0 

?S$T=0 
GOYES 
*ST=0 
GOYES 


GOTO 


DD40 


KScEewwnwvwvwmDenDm 


RDDSO 


wn 


ADD8O 


ADD 70 
W 
W 
W 
ADDO 


S 


sINFRD 


ADD9O 


sNEGRD 


RDD90 


S 
ADD9O 


4 


x=er UD OU UU Ee 


MPY150 
JU II ICI I IIIT ISIC ICICI III IT IK 


SOI IO OIC OO OI OO TIT 


kK Nane:(S) MP2-15 
kK Nane:(S) MP15S 
NULTF 


*k Narie: 
*k Narie: 


kk Narie: 
ak 


aK 


(S) 
(S) MP1-12 
(S) 


MP2-12 


** Category: MATH 
ah 

** Purpose: 

ax To conpute 
ae 

** Entry: 


xt 


! 


xky 


Page 7 


LIKE SIGNS? 

YES 

SHIFT LARGER LEFT 
DEC EXP OF LARGER 


B(X)=NO OF SHIFTS TO LINE UP DP 
DEC SHIFT COUNT. BORROW? 

YES. LINED UP 

SHIFT MAN OF SMALLER ARG RIGHT 
SHIFTED CLEAR OFF 

NO 

LIKE SIGNS? 

YES 

STICKY BIT SET? 

NO 

YES. INCREASE D BY 1 COUNT 
SUBTRACT 

MANTHO? 


(+/-)O RESULT 

FORCE SIGN POS 

DON’T RND TO +/-INF 

DON’T RND NEGATIVELY 

RND TQ -INF 

"GOTO" (A=-A-1 ALWAYS CLS CRY.) 


DO ADDITION 
RESTORE EXP 


B=MANTISSA OF ANSWER 
nornalize 


Multiply 

Multiply without clearing SB 
Multiply for finite args only 
Multiply for one 12-forn 
Multiply for tuo 12-forns 


Standard floating point nath input. 
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3A8 - MULTF & MP15S: SB & XM are not cleared on entry. 
349 
30 ax CODE: =MP2-12 GOSUB SPLITA 
351 ak ---- =fP1-12 GOSUB SPLITC 
352 ax =AP2-15 SB=0 
353 ak xM=0 
354 ak =MP15S 
365 aR 
356 &k 
357 ak 
358 RX Exit: 
359 RX Standard floating point hath output. 
360 ak XM=1 implies O*Inf 
361 ak 
362 tk Calls: (none) 
363 ax 
364 kX Uses. ...... 
365 kk Inclusive: P; A,B,C,D; 
366 k HD. ST. (SB, XM); 
367 ak 
368 *k Stk lvls: 0 
369 x 
370 ** NOTE: 
371 xe Reg. D has the 16 digit mant. of x*y if D(S)#0, 
372 ak Cane of Inf & NaN is not put into D,but D(S$)=0 here) 
373 ae Results are truncated to 15 digits. 
374 ax Unfortunately SB=1 when XM=1 on exit. (This is true for 
375 as nost math routines. ) 
376 ae 
377 JES III II IOS TTI TSI TI I IIIT I OSI II IIA I II IIIA 
378 JOS IO OO SISO SI TOSI STII SII SIO STIS ISIS SISOS IIIS II AISI IIIA 
379 00432 =MP2-12 
380 0C432 7982 GOSUB SPLITA 
381 0(436 7605 =MP1-12 GOSUB SPLITC 
382 OC43A =MP2-15 
383 OC43R 822 SB=0 RESET STICKY BIT 
384 OC43D 821 XH=0 
385 0£440 21 9 =MPI5S) P= x p=’? 
386 00442 6091 GOTO PWEEDS "GOSUB" (RTN TO MULTF) 
387 x ‘ ; 
388 
389 : 
3% 00446 =MULTF 
391 0C446 AFD BCEX W (MANTS IN C&D) 
392 0(449 AC2 C-o)6=— lS; 
393 OC44C AC3 D=0 § 
394 OC44F CO A=A+B A ADD EXPONENTS 
395 0C€451 B4C R=8-A S$ FORM “EXCLUSIVE OR" OF SIGNS 
396 00454 550 GONC MPY110 
397 OC45? BC8 A=-A § A HAS SIGN AND EXP OF ANSWER 
398 OC45A AFI MPY110 B=0 W CLEAR B FOR PRODUCT 
399 OC45D 2F P= 15 INITIALIZE POINTER 
400 OC45F OC MPY120 P=P+1 POINT TQ NEXT DIGIT IN MULTIPLIER 
401 0(461 BFS BSR W SHIFT PRODUCT RIGHT FOR NEXT DECADE 


402 00464 6600 GOTO 8 MPY140 
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403 0C468 A71 MPY130 B=B+C W ADD MULTIPLICAND TO PRODUCT 
404 OC46B AROF MPY140 D=D-1 P DEC MULTIPLIER DIGIT. BORROW? 
405 OC46E 59F GONC MPY130 NO 
406 0(471 88E ?PH 14 DONE? 
407 0(474 BE GOYES MPY120 NO 
408 0C476 AFS C=B W 
409 0C479 AF? D=C W MOVE 16 DIGIT MANTISSA TO 0 
410 0C47C 949 MPY150 7B=0 = § CARRY OUT? 
411 OC47F 70 GOYES SHF10 NO 
412 0C481 £4 A=A+1 A INC EXP 
413 0C483 BFS BSR W SHIFT MANTISSA RIGHT 
ae JOIST IOI IO IOI TOT TIT TI 
416 JOIST IOI O UO IEC I TO 
417 ae 
418 kk Wane: (S) SHF10  - Shift to nornalize 
419 ax 
420 ** Category:  MTHUTL 
421 ae 
422 ** Purpose: 
423 ax Normalize 15 forn in AB. 
424 ak 
425 kk Entry: 
426 ak Finite (possibly denornalized no.) in AB 
42? ak 
428 ee Exit: 
429 aK AB is normalized (clean 0s). P=C(S), C(S)=B(S), B(S)=0 
4% ex Carry clear. 
431 ax 
432 *k Calls: None 
433 ak 
43 &* Uses....... 
435 tk Inclusive: C(S) (see exit conditions) 
436 a 
43? ** Stk lvls: 0 
438 ae 
439 SOR IOIOR RRO OOOO OGIO OTTO OOO 
440 FOR TOIT JO TROT OOO IIT OT ITI IOI 
441 * Normalize result -- N.B. P:=C(S), C(S):=B(S) on exit. This 
442 x is for SPLITA (to save P) 
443 0C486 2E 9==SHF1O.) «P= 14 
444 00488 919 7B=0 = oP MANTISSA ZERO? 
445 O0C48B 61 GOYES SHF30 YES 
446 0C48D 90D SHF20 *BRO P NORMALIZED? 
447 0C€430 fd GOYES SHF40 
448 0(492 CC A=A-1 =A DEC EXP 
449 0(494 B91 BSL WP LEFT SHIFT MANTISSA 
450 0(497 G5SFF GOTO SHF20 
451 0C498 SHF 30 
482 0C49B DO A=0 A 
453 0C49D 20 =SHF4O P= 0 
454 OC49F &0FF CPEX 15 Restore P if saved 
465 OC4A3 RCD BCEX § Restore C[S}] " ". set B(S)=0. 
456 OC4R6 03 RTNCC 


45? 
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458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 OC4A8 
507 OC4A8 7884 
508 OC4AC 
509 OC4AC 821 
510 OC4AF 822 
511 OC4B2 22 
512 OC4B4 6&11 
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FOI JI IRI IR ISI IO TTI TTT TO TST TIT TT TT I TIN 
FOO III IOC TOT TOTO TOT TTT TOT TT IOK 
ak 


AX Nane:(S) DV2-15 
** Nane:(S) DIVF 
** Nane:(S) DV15S 
** Nane:(S) DV15M 


*k Nane:(S) DV2-12 
ak 


1k 
** Category: MATH 

wk 

** Purpose: 

= To compute y/x 

aK 

** Entry: 

Me Standard floating point nath input. 
tok 

oe CODE: =DV2-12  GOSUB SPLTAC 

a =DV2-15 

ax =DV150 xn=0 

* SB=0 


ts =DV15S 
ax 


kk 
Ke Exit: 

ak Standard floating point math output. 
ax XM=1 & P=3 implies c/O where O<|c|<Inf 
a & P=4 " 0/0 or Inf /Inf 

ax 


** Calls: (none) 

kk 

**k Uses....... 

xk Inclusive: P; A,B,C,D; 

kK HD. ST. [SB, XM); 
kk 


kk Stk lvls: 0 

ks 

** NOTE: 

a Divides (A,B) by (C,D) . 

xe Results are truncated to 15 digits. 
ka 


FOR IRI II RIOT TI ITI III TI IIT IK 
FOI UI JOJO TI II IIT IK 


Divide 

Divide for finite args only 
Davide without clearing SB 
Divide (sane as DV2-15 
Divide for two 12-forns 


=DV2-12 
GOSUB SPLTAC 
=DV2-15 
=DVISM = xM=0 
SB=0 
=DV15$ P= / P=’ /? 


GOTO PWEEDS “GOSUB" (RTN TO DIVF) 
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513 x 
514 x 
§15 x 5 j 
516 OC4B8 =DIVF Entry for finite arg’s 
517 CK DIVIDE XCPTIONS 
518 OC4B8 AFD BCEX W (MANTS IN C&D) 
519 OC4BB AC2 =DIVFCD C=O) 8=6§ 
520 OC4BE AC3 D=-0 = § 
521 OC4C1 97F 7DHO OW ?X#O 
522 0C4C4 63 GOYES DIV100 
523 0C4C6 97E =DIVO ?7C#HO) OW Y#O 
524 0C4C9 CO GOYES DZERO C/O 
525 
526 0/0 
527 OC4CB 20 = EFIELD 
528 OC4CD 3100 LC(2) =eZR0/0 
529 0C4D1 6081 GOTO  INVNaN 
530 
531 OC4D5 DZERO (recall: nants in C&D ) 
532 OC4D5 B40 A=A-B S SIGN OF PRODUCT 
533 0C4D8 550 GONC § 0210 
534 OC4DB BC8 A=-R  § 
535 OC4DE 20 =D210 ~~ P= 0 
536 OC4EO 3100 LC(2) =eZRDIV /ZERO MSG CODE 
537 
538 OC4E4 =DZINF input: A(S)=sgn, C(B)=nsg 
539 P=0 IS ASSUMED ! 
540 
541 OC4E4 DO A=-O A C/O . CREATE INF (’FOO’) 
542 OC4E6 AEA A=C B 
543 P=0 1s assuned fron DZINF entry. 
544 OC4E9 3200 LCHEX FOO FOO 
F 
545 OC4EE DE ACEX A A(X)=FOO, C(A)=nsg code 
546 OC4FO AFI B=-0 OW 
547 OC4F3 BDD B=~B-1 1 nant=099,. . 99000 
548 OC4F6 23 = DZP P="D2’ 
549 OC4F8 OO RTNSXM XCPT JUST OCCURRED (XM: =1) 
550 
551 
552 OC4FR EO =DIV1I0OO A=A-B A SUBTRACT EXPONENTS 
553 OC4FC B40 A=A-B S FORM "EXCLUSIVE OR" OF SIGNS 
554 OC4FF 550 GONC § DIV15 
555 oC502 BC8 A=-A SS 
556 0C505 SFF =DIVIS 7C>=D W DIVIDEND .GE. DIVISOR? 
55? 0C508 70 GOYES DIV120 YES 
558 OCSOR BF2 CStLW NO. SHIFT DIVIDEND LEFT 
559 0C50D CC A=A-1 A DEC EXP OF ANSWER 
560 OCSOF 2E =DIV120 P= 14 INITIALIZE POINTER 
561 0C511 AFI B=0 W CLEAR B FOR QUOTIENT 
562 0C514 6600 GOTO = DIV140 
563 0C518 BOS DIV13% B=B+1 P INC DIGIT OF QUOTIENT 
564 OC51B B7B DIV140 C=C-D UW DIVIDEND-DIVISOR. BORROW? 
565 OCSIE 59F GONC = DIV130 NO 
566 0C521 A7B C=C+D W YES. RESTORE DIVIDEND 
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567 0C524 BF2 CSL SHIFT DIVIDEND LEFT FOR NEXT DECADE 
568 0C527 OD P=P-4 POINT TO NEXT DIGIT. DONE? 

569 0C529 SIF GONC DIV140 NO 

570 OCS2C 6990 GOTO § SQR75 

571 

572 

573 SOO JOO JIT DTT TOTO ITT TOIT OO SITIO 
574 OIRO TI III TIT TII IIS T IIIT I ITI ISS SIT DIK 
575 a 

576 ** Nane:(S) SQR15  - Square Root 

577 on Nane:(S) SQR17  - SQRT for finite argunents only 

578 & 

579 *% Category: MATH 

580 an 

581 ** Purpose: 

582 ak To compute SQRT(x) 

583 x 

584 ** Entry: 

585 ak Standard floating point math input. 

586 ae 

587 aA Exit: 

588 a Standard floating point math output. 

589 ae KM=1 inplies sartneg) 

590 xk 

591 ** Calls: (none) 

592 ai 

593 xX Uses....... 

594 xk Inclusive: P; A,8,C; 

595 a HD.ST. (SB, XN); 

596 ak 

597 ** Stk lvls: 0 

598 = 

599 ** NOTE: 

600 ae Certain 15-forn inputs can exit with SB=0, even though 
601 es the result is inexact! e.g. SQR(1E14+1)-->1E7 & SB=0. 
2 = This occurs fron BSR instr. before SQR30. 

603 an 

604 SOR IOI II IO I IIIS III III II III SIS ISIS IS III ISSIISISI SIS SSI ISI IS. 
605 FIO II II III II III ISI IIS I I III III SII III III SSSI III SSI SSSIS ISS IS 
606 OCS 7881 =SQRI2 GOSUB SPLITA 

607 

608 0C534 =SQR15 

609 0C534 821 =SQR15N XN=0 

610 0C537 822 SB=0 (Must aluays be cleared here.) 
611 (Didn’t use FNPWDS in order to 
612 keep 0 subr levels. ) 

613 OC53A 04 SETHEX 

614 0C53C B24 A=A+1 XS 

615 OCS3F A2C A=A-1 XS 

616 0C542 05 SETDEC 

617 0C544 5E0 GONC = SQR17 finite argurent. 

618 

619 00547 SORXCP HANDLE EXCEPTIONAL OPERAND 

620 0C547 96C AHO OB NAN? 


621 OC54—A 00 RTNYES 
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622 
623 OC54C 94C PAHO OS ~ INF? 
624 OCS4F 41 GOYES SaR- 
625 x $OR(inf) * 
626 
627 0C551 01 RTN RTN with inf 
628 
629 
630 0€553 AC1 =SQR17 B=0 8 § 
631 0C556 AF9 C=B OW C=MANTISSA 
632 0C559 979 7B=0 «OW ZERO INPUT? 
633 OC55C 76 GOYES SQR70 YES 
634 
635 
636 OC55E 948 7A=0 SS X>0? 
637 0€561 CO GOYES SQR18 
638 0C563 SQR- K<0, 
639 0C563 20 = EFIELD 
640 00565 3100 LC(2) =eSQR- ERR CODE SQR(NEG) 
641 0C569 65FO GOTO  INVNaN 
642 
643 0C56D A75 SOR18 B=B+B W 
644 0570 A75 B=B+B W 
645 0€573 A71 B=B+C  W B=. 5(MANTISSA) 
646 
647 0C576 D6 (=A OA 
648 0(578 Ce C=C+C A 2*EX 
649 OC57A AD2 C=O) OU 
650 0C57D 550 GONC §  SQR20 EX>=0 
651 EX<0 
652 0C580 BDE C=-C-1 4 
653 0C583 SOR20 
654 0C583 D6 C=R =A 
655 0C585 AFA A=C W 
656 OC588 A76 C=C+C W 2*EX 
657 OCS8B A76 C=C+C Ww 4*EX 
658 
659 OCS58E A7A A=A+C Wi 5*EXPON 
660 0C591 20 P= 0 
661 0C593 90C TARO OP EXP IS ODD? 
662 0C596 50 GOYES SQR3# YES 
663 0C598 BFS BSR W NO.SHIFT MANTISSA OF ARG RIGHT 
664 0(59B BF4 SQR30 ASR W . 5*EXPON 
665 OCS9E AF2 f=0 UW 
666 OC5A1 2E = 14 
667 OC5A3 305 LCHEX 5 
668 OCSAG AFD BCEX W C=.5 (MANTISSA) 
669 OC5A9 B95 = SQR35 BSR WP B=05000... 
670 OCSAC AOD B=B-1  P 
671 
672 OCSAF BOS SQR40 B=B+1 P INCREMENT DIGIT IN ANSWER 
673 OC5B2 B79 SQRSO0 C=C(-B W SUBTRACT. BORROW? 
674 OC5BS 59F GONC  SQR40 NO 
675 OCSBS A79 C=C+B wW YES. RESTORE REMAINDER 
676 OC5BB BFe SL W SHIFT REMAINDER FOR NEXT DECADE 
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677 OCSBE OD 
678 OC5CO S8E 
679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

719 

714 

712 

713 

714 OCSC3 822 
715 OCSC6 97A 
716 OCSC9 80 
717 OCSCB A3E 
718 OCSCE BB6 
719 OCSD1 03 
720 

721 

722 

723 

724 

725 OCSD3 

726 

727 

728 

729 

730 OCSD3 ACI 
731 OC5D6 AC3 
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P=P-1 POINT TO NEXT DIGIT. DONE? 
GONC § SOQR35 NO 


20302 SJR IOI OI IIS ITT TTI TTI TIT 
JOT OTT TT TOR I 
xk 


** Narie:(S) SQR70 - Set SB according to Reg C 
ak 


** Category:  ATHUTL 

ak 

** Purpose: 

a To set or clear Sticky Bit (SB) for C#O or C=0 resp. 
ak 

ak Entry: 

ak C=0 if SB=1 is desired, else CHO 
ah 

BS EME 

tk SB=0 if C=0, else SB=1. 

Ae Carry Clear. 

ah 


x Calls: (none) 
ak 

aK Uses....... 

: Inclusive: C(A) 


*k Stk lvls: 0 

aa 

*k Algorithn: 

aa =SQR70  SB=0 

aK 7C=0 W 

aR GOYES SQR80 
ak C=C-1 xX 

aK CSR x 


aS SQR80 = RTNCC 
ak 


2070020002 OOO ITI TE TTT RIT TTT III IIT IT IK 
FOR JIT IIT II TITTIES DI IIIT II ITT IK 


=$QR70 SB=0 RESET STICKY BIT 
SQR75 ?C=0) «6W NO REMAINDER? 
GOYES SQR80 TRUE 
C=C-1 x LSO0=9 
CSR x SET STICKY BIT 
,dAR6 RTNCC (needed for RADIUS) 
PWEEDS PULL WEEDS (INF & NaN) 


INPUT: P= pending op. (+,*,/) 
(A,B)=¥,(C,D)=x 
STATUS BITS: FOR RND,INF & 
USER MODES. 
Needed for 0 nant tests and to 
indicate no 16 digit result in 


ao 
& 
an 
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732 

733 OC5D9 04 
734 OCSDB B26 
735 OCSDE A2E 
736 OCSE1 4F2 
737 

738 OCSE4 B24 
739 OCSE? A2C 
740 OCSER O5 
741 OCSEC 460 
742 OCSEF 6600 
743 

744 OCSF3 

745 OCSF3 96C 
746 OC5F6 00 
74? 

748 

749 OCSF8 892 
750 OCSFB 33 
751 OCSFD 890 
752 OC600 00 
753 

754 

755 OC602 97F 
756 OC605 92 
75? 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

784 

782 

783 

784 

785 

786 


YC 


x 


ak 
ak 
aK 
ak 
ak 
ak 
ak 
xx 
ak 
ak 
xk 
ak 
ak 
xk 
xk 
ak 
ak 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ae 
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D after MP2-15. 
SETHEX 
C=C+1 XS 
C=C-1 XS 
GOC X=xCP X NOT FINITE 
R=A+1 = XS 
A=R-1 XS 
SETDEC 
GOC YCP; X# 
GOTO X&yas X8Y ARE FINITE NUMBERS 
P; X# Y NOT FINITE, X FINITE 
7AHO | OU#B Y=NAN? = (X=#) 
RTNYES 
Y=INF & K=# 
?P= { 
GOYES SGNOF* INF /# 
?Pp= + 
RTNYES 
p=* 
7DHO OU KHO? (Y=INF) 


GOYES SGNOF* 
K=0 


FOO OOO III TOIT TTT OTT 
FOO IO I TOT TOT TTT 


Nare:(S) INF*O - Inf*O exception 


Category:  MTHUTL 


Purpose: 
To create a 15-forn NaN result with Inf*O msg code. 


Entry: 
No conditions. 
CODE: =INF*O P= 0 
LC(2)  =eIF*2R 
GOTO INVNaN 
Exit: 


(See INVNaN) 
Calls: Goes to INVNaN 


lses....... 
Inclusive: P; A,B,C(A); HD.ST.[XM, SB] 


Stk lvls: 0 
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787 

788 

789 

7%) 0(607 

791 OC607 20 
792 0C6039 3100 
793 OC60D 6150 
794 

795 

796 

797 

798 

799 

800 0(611 

801 0C611 05 
802 0(613 922 
803 0f616 Fe 
804 

805 0(618 36E 
806 0C61B E1 
807 

808 

809 OC61D 892 
810 OC620 D1 
811 OC622 8% 
812 0C625 41 
813 

814 0627 979 
815 OC62A DD 
816 OC62C DA 
817 

818 OC62ZE 

819 OC62E B4—A 
820 0[631 500 
821 00634 BC8 
822 0637 01 
823 


824 
825 0C639 6D50 
826 


827 

828 OC63D DO 
829 OC63F AFI 
8% 00642 4BE 
831 

832 0C645 

833 OC645 96E 
834 00648 A4 
835 

836 OC64A 96 
837 OC64D 00 
838 

839 

840 OCE4F 8% 
841 00652 33 
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KK KKK AKKKKAK EKER AREKER KERRIER EER RII ITO TOO 
KK AKKERK KEK IR EIR IR OR ITO III RIO IIT III ITI IIIT TIT ITITTN 


=INF*O 
P= EFIELD 
LC(2) =eIF*ZR 
GOTO INVNaN 
X=XCP 
SETDEC 
PA=C XS 
GOYES Y8&XxCP 
CHO. —O#B 
GOYES xyex 
& Y=# & X=INF 
?P= / 
GOYES DIVOP 
?P= + 
GOYES xyex 
7B=0 OW 
GOYES INF*O 
A=C A 
SGNOF * 
A=A-C S 
RTNNC 
A=-A S§ 
RIN 
xyex GOTO XxYEX 
DIVOP AO A 
B=0 W 
GOC SGNOF* 
Y&.XXCP 
*c#0.— «iB 
GOYES XNNYCP 
7RHO | OB 
RTNYES 
- X&Y INF 
?P= + 
GOYES INFS+ 


O*XINF 
MSG CODE 


X IS NOT FINITE 
Y EXCPTN T00? 
Y=# 


X=NAN (&Y=#) 
Y: =X=NAN 


INF RESULT 

P=x 

Y¥=0? (X=INF) 
INF EXPON 

SIGN OF PRODUCT 


(CARRY MUST BE SET ON ENTRY) 
"GOTO" 


X=NAN? 


X=INF Y=XCPT 
Y=NAN? 
Y=NAN, X= INF 
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842 0C654 891 ?P= x 
843 0C657 7D GOYES SGNOF* 
844 
845 x INF /INF 
846 0C659 20 P= EFIELD 
847 OC65B 3100 LC(2) =elF /IF 
848 
849 
850 
851 
852 JOO IOI IIIT OTTO ITOK 
853 FOCI II OI IOI I I OI TIO 
$54 ax 
855 *k Narne:(S) INVNaN - Create IVL NaN 
856 ak 
857 k* Category: MATH 
858 a 
859 ** Purpose: 
860 . To create an internal NaN and set XM for IVL. 
861 
862 ** Entry: 
863 ax C(B)=tuo nib. mainfrane error msg code. 
864 xx 
865 RA EKIYS 
866 an (A,B):=NaN with B(14..11):= 4nib nsg code 
867 ne C(A):= 4nib msg code for input to MESSAGE ROUTINE. 
868 ax XM:=1 (indicates xcpt’n) & P:=IVP (IV xcpt’n) 
869 ak B(XS)=9 (if in DEC MODE !). This indicates a 
870 ae 15-forn INVNaN (1.e. created in math routine -- input 
871 ak NaNs fron SPLITA will have F instead of 9 in B(XS)). 
872 a This causes INVNaNs (and their encoded nessage) 
873 gies to be nore significant than input NaNs and thus 
874 aR will be preserved when tuo NaNs enter a function. 
875 a 
876 xe 1.e. A = OOOQOQOQO00000F 01 
877 zs B = 0001100000000 900 
878 ak ( = ----------- 000rin 
879 aX 
880 ax 
881 kX Calls: (none) 
882 RE 
883 RE USES: osseous 
884 a* Inclusive: P; A,B,C(A); 
885 ax HD. ST. [XM,SB); 
886 ee 
887 ** Sth lvls: 0 
888 ne 
889 ** NOTE: 
890 a CAUTION: This routine will set SB (unfortunately). 
Q ae 
oa FOR RRIF ROR JO OOOO RO aor 
893 FORO ROO OOOO III OGIO III OI 
894 OC65F =INVNaN entry for 2 nib err code. 
835 OCoSF AFI B=0 W 
896 OC662 RES B=C B B(A)=risg code (in nant u/ lead Os) 
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897 

898 0C665 
833 0C668 
900 OC66A 


AFO 
20 
3210 
F 


901 OC66F 
%2 00672 
%3 
904 0C674 
905 0(676 
%6 0C679 
97 OC67C 
908 OC67E 
909 
910 0C681 
911 0C683 
912 
913 
914 
$15 
916 
917 OC685 
918 0C685 
919 0C687 
920 OC68B 
921 OC68E 


ABA 
09 


oc 
815 
885 
8F 
BAD 


24 
00 


3100 
946 
1D 


—_ 


925 0C692 
926 OC692 96C 
927 OC695 01 
928 

929 

930 

931 

932 

933 

934 

935 

336 

937 

938 

939 
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A=0 \ 
P= 0 
LCHEX FO1 
A=C XK A(X}: =FO1 (NaN expon) 
C=B A C(A)=code for err nsg 
IV50 P= P +1 

BSRC shift 4 digit msg nunber (5 tines) 
?PH 5 
GOYES IV50 
B=-B-1 XS B(XS):= 9 (in DEC MODE ! ) 
P= IvP 

SETXM = RTNSXM XCPT JUST OCCURRED (XM:=1) 

INFS+ 
= EFIELD 
LC(2) =elF-IF ERR CODE INF-INF 
TAHC OS DIFF. SIGNS 
GOYES INVNaN 

SANE SIGNS 

RIN 

KNNYCP X=NAN, Y=XCPT 
7AHO OB Y=NAN? 
GOYES TWONaN 

Y=INF, X=NAN 


FOOT OOOO IT ISI IIT TTI ITN 
FOO ITO TOTO TTT TTT TTT TK 
xk 


oe Nane:(S) XYEX EXCHANGE X & Y 
& 


**k Category:  NMTHUTL 

ak 

** Purpose: 

os To exchange the internal nos. Y=(A,B) & X=(C,D) . 
xk Entry: 

am (A,B)=¥ & (C,D)=x 

xk 

kK Exit: 

a (A,B)=x & (C,D)=¥ 
a Does not alter carry 
kk 

** Calls: (none) 

kk 
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951 
952 
953 
964 
955 
966 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
97? 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
390 
991 
992 
993 
994 
395 
396 
99? 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 


0C697 
0C697 
OC69A 
océ69D 
OCEARO 
OC6A3 


OC6AS 


OC6A5 
OC6A8 
OC6AB 
OC6AD 
OC6BO 
OC6B2 
OC6B5 
0C6B7 
OC6BA 
OC6BD 


AFD 
AFF 
AFD 
AFE 
1 


AFF 
oft 
CO 

9AS 


901 
AFF 


4CD 
01 
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RK Uses....... 
xk Inclusive: A,B,C,D 
&k 
** Stk lvls: 0 
kk 
** Detail: 
Kk Suaps entire regs (A with C and B with D) 
kk 


SOROS I ITI 
FOO JOO ITI OT OI ITO TT TI IK 


=XYEX EXCHANGE (A,B)=¥ WITH (C,D)=x 
BCEX WwW 
CDEX W 
BCEX W 
ACEX W 
RTN nust not alter carry. 
=TWONaN X=Y=NAN. Return nost significant NaN 
[i.e. smallest (SIGH, ERR#) } 
CDEX W for conpare 
7C<B XS X<<¥ ? (significance digit) 
GOYES TWON1 set carry. 
70>B XS 
RTNYES 
7c<B ON K<¥ 
GOYES TWON1 set carry. 
TWON1 CDEX W 
COC XYEX return most significant NaN 
RTN 


FORO RI UOT TTT IT TI ITI IO 


FOO ROO OOOO IOI OK 
FOI IOI OI TOIT TOK 
xk 

** Nane:(S) SPLITA - SPLIT A 

xk 


** Category:  MTHUTL 
ak 


** Purpose: 

at To convert an external (12 dig.) forn into an internal 
a (15 dig.) forn 

aa 

** Entry: 

am f=x’ (external no.) 

ak 

** Exit: 


KK (A,B)=x (normal internal forn of x’) 
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1006 aR CR.set => excptn’] operand (i.e. NaN or Inf ) 
1007 at CR.clr => finite operand 
1008 at --see DETAIL below for nornal internal forrn defn. 
1009 an 
1010 &% Calls: (none) 
1011 an 
1012 Kk Uses....... 
1013 ** Inclusive: A,B (actually B[14..5] ends up in A[14..5] ) 
1014 a | 
1015 KX Stk lvls: 0 
1016 ak 
1017 ** Detail: 
1018 ae DEFN: The “normal internal forn" of 
1019 xR 1) NaN is ACR)=00F01 & B(XS)=F (i.e. manth0). 
1020 ak 2) Inf is A(A)=00FO & " 
1021 - 3) finite no is a normalized no. (no denorn.). 
ee JOGO IU OO IO ST IO TI II III ITI IAT TAR 
1024 FOIA IOI TOTO UOT TC IIIT 
1025 OC6BF ADC =SPLITA ABEX f 
1026 OC6C2 ABS B=A x 
1027 OC6C5 A24 A=A+A XS NEG 3 DIGIT EXP? 
1028 OC6C8 DO A=0 A 
1029 OC6CA 540 GONC  SPLAIO NO 
1030 OcéCD CC A=A-1 A 59'S 
1031 OC6CF AB4 SPLAIO A=B x 
1032 OC6D2 ABI B=0 x 
1033 OC6DS =NRMLAB 
1034 0C6DS 04 SETHEX 
1035 OC6D7 B24 A=A+1 XS 
1036 OC6DR AZC A=A-1 XS 
1037 OC6DD 05 SETDEC 
1038 OC6DF 4CO GOC NIINF 
1039 OC6E2 ACS 8=C S Save C[{S] in B[S] 
1040 OC6ES 80FF CPEX 15 Save P in C[S] 
1041 OC6E9 584 GONC Shf "GOTO SHF10" 
1042 
1043 OC6EC ADO NTNF = A=0 A OOFxx for expon 
1044 OCOEF ARB B=A XS rake mant non-zero 
1045 
1046 OC6F2 02 RTNSC carry set on excpt’] operand. 
1047 
1048 
1049 
1050 
1051 
1052 
1053 JOO IOI IOI IO OO TOTTI RITE 
1054 JOGO IOI OO ICT IE 
1055 ae 
1056 ** Nane:(S) CLRFRC - Clear fractional part 
1057 ae 
1058 *k Category:  MTHUTL 
1059 a 


1060 *x Purpose: 
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1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
107? 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
108? 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
110? 
1108 
1103 
1110 
1111 
1112 
1149 
1114 
1115 


OC6F4 7540 
OCOF8 89F 
OCEFB 00 
OCOFD 919 
00700 00 
00702 A91 
0C705 88E 
0708 40 
OC70A DO 
OC70C 03 


xx 
aK 
ak 
xx 
xk 
xa 


Math Routines - Part 1 <831213 Fri Dec 30, 1983 3:18 an 


Page 21 


Clears fractional part of quantity in A/B, preserving 
the sign of the argurient. Returns the result in A/B. 
Carry set if no fractional part. 


Entry: 


Exit 


A/B -- 15-digit forn of quantity 


A/B ~~ quantity with fractional part cleared 
Carry=set if no fractional part 


Carry=clear otherwise 
DECNODE 
Calls: INFR15 
Use@s.c i cxx 
Inclusive: A(A),B,C(A),P 
Stk lvls: 2 
1S tory: 

Date Progranner Modification 
08/24/82 PM Docunented routine 
09/23/82 SB Packed out =CLFRCF Entry 
12/02/82 JT Corrected docun. for stk lvls. 


CINFR15 calls FINITA now) 


FOOT TU TIT II 
FOR IIIT TTT TO TOTO OTT TTI I IK 


=CLRFRC GOSUB INFR15 


locate decinal point 


?P= 15 integer or exceptional nunber? 
RTNYES 

*B=0 =P all integer? 

RTNYES 

B=0 WP clear fractional part,preserve sign 
?PH 14 

GOYES CLREND 

A=0 A all fractional: clear expon too. 


CLREND RINCC 
SOIC IO ICI CC TT RTT 


III OOOO TOR TIT IIT IK 


ak 
ar 
xk 


Narie 


: FRAC15 - Compute Fractional Part of Argunent 


Category:  MTHUTL 


Purpose: 


Compute fractional part of argunent, preserving sign. 


Entry: 


Exit 


Argunent in A/B. 


Result in A/B. 
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1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
114? 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
115? 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 


OC70E 71F5 
OC712 SEO 
0C715 96C 
0C718 00 
OC71A DO 
OC71C AFI 
OC71F 01 


OC721 7810 
0725 OC 
0C727 OC 
OC?29 4B0 
OC72C BF1 
OC72F CC 
0C731 65FF 
0735 
0735 605D 
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kk 
** Calls: FINITA, INFR1S, SHF1O (falls through) 
hk 
RE SEG i554 20 
a AA], B,C{S),C(A},P. 
kk 
ee Stk lvls: 2 
hk 
JOIST IIIT OO OO TOR 
JOTI IOI TIO TTR TOK 
=FRAC1S GOSUB FINITA test for nonfinite 
GONC FRC15F 
oRHO.|OUO* NaN? 
RINYES 
A/B=0 A=0 A +-inf: return +-0. 
B=0 W 
RIN 
=FRC1SF GOSUB INFR15 finite 
P=P+1 
FRCITR P=P+1 
GOC ENDINT 
BSL W 
A=A-1 A 
GOTO FRCITR 
ENDINT 
Shf GOTO  SHF10 ( B(S):=0 in SHF10 ) 
SOR UTIIIOITOTO TOTIITOOT T ROR 


KKK 
ak 
xk 
ak 
xk 
aK 
ak 
kk 
ak 
&k 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
aK 
ak 
xk 
xk 
aK 
xk 
ax 
ak 


FORGO TO TO TTT TTI TITS TTS ITI III RIT IIIT IN 


Nane:(S) IF12A = - 
Narie:(S) INFR15 = - 


Integer/Fraction Split 
Integer/Fraction Split 
Category: MTHUTL 

Find decinal (used by INT15 & FRAC1S). Returns 


Purpose: 
position of decinal encoded in P (see below). 


Entry: Standard Math - 12 dig: IF12A, 15 dig: INFRI5 


Exit: Encoded location of decinal in P. 
Alters: 
IF12A: A,8,C(AJ,P,CARRY 
INFR15: C[AJ},P, CARRY 
Stk Lvls: 1 
Note: 
ARGUMENT RETURN (P)  [Notation: EXP(X)=E] 
NaN or INF 15 
Standard 0 13 (standard 0 has £=0) 
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1171 ae 
1172 ak Exo 14 
1173 ae 0<=E<=13 13-E 
1124 ak 13<E 15 
1175 aR 
1176 ae 
1177 kk Note: If the Expon=14 (i.e. a 15 digit integer) then C(A) 
1178 aK is 0. If Expon>14 (but finite} then 7A) 50000 on exit 
1179 ae This is used in YX15 to deternine 1f x 1s an even 
1180 aR integer. 
1181 aK 
1182 ah 
1183 tk History: 
1184 ak 
1185 aK Date Progranner Modification 
1186 RR ween nnn een wenn er re nnn n nn nnn nnn rrr nnn enn rrcene 
1187 ek 09/23/82 SB 15-dig entry: P=15 for NaN or INF, 
1188 ak Connents, description update, 
1189 ak Standard header. 
1190 ak 
1194 JU OI III TOI TITAS TSAI ATI IIIS III III SII IIA 
1192 JOO ITO IST TT SS TIT ITS ITO IIR 


1193 00739 728F =IF12A GOSUB SPLITA 
1194 OC73D 72C5 =INFR15 GOSUB FINITA 


1195 0C741 443 GOC BIG15 
1196 0C744 20 P= 0 
1197 00746 D2 C=0 A 
1198 0C748 3131 LCHEX 13 C(A)=00013 
1199 OC74C E2 C=C-A A 
1200 OC74E 441 coc BIGSAL If EXP<O or EXP>13, Go BIGSML 
1201 0€751 21 =DECP=C P= 1 
1202 0C753 390A C20) OP 
1203 OC756 70 GOYES PICKUP If EXP<10, Go PICKUP 
1204 0C758 29 P= 9 Else create Pickup value (HEX) 
1205 OC75A 809 C+P+1 by adding 10 to C[0]. 
1206 OC75D 80D0 PICKUP P=C 0 
1207 OC761 01 RIN 
1208 
1209 0(763 E6 BIGSML C=C+1 A 
1210 OC765 401 GOC BIG15 expon = 14 (rtn with C(A)=0) 
1211 0C768 3400 LCHEX 50000 else C(A)=50000. 
005 
1212 OC76F 2E P= 14 
1213 OC771 8BE *A>=C A 
1214 0€774 00 RTNYES 
1215 OC776 2F BIG15 P= 15 
1216 OC778 01 RTN 
1217 Rae ~~ + ee noe en enn nner nnn es nnen * 
1218 
1219 
1220 
1221 
1222 
1223 


1224 
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1225 
1226 
1227 
1228 
1223 
12% 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1233 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1243 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 OC77A 7681 
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Reed sie s eer e a ee ee & 
SR IIR II TRI RITTER IIIA LAID I IAI II III SIR ISIS IIIS IIIS 
t k 
x REMAINDER FCNS. -- RND,NOD & REN * 
x & 
IIR KI IIIT I SIDI II IIIS IIIS III TIS ISIS I IISSI SI IIISIISS IIA 
Siete eee ne ina ace peda a oan Saou eer ele anes k 


SOROS TT TT TOK 
FORO JIU IOI IIIT TIO III 
ak 


&* Wane: RNDiS - RMD function 
kk 


** Category: MATH 
ak 


*X Purpose: 
ak To compute xRMDy = x~y*IP(x/y) 


*k Entry: 
ae Standard floating point math input. 


REEMA: 
an Standard floating point nath output. 


kk Uses. ...... e 
** Inclusive: P; A,B,C,D; R regs [0,1]; ST. [NOTNOD (s8)); 
xx HD. ST. (SB, XM); 


** Stk lvls: 2 

** NOTE: 

bo RMD is the BASIC fen REN. It gives exact results every- 
ak where but is not periodic in x across x=0. 


SOUR JOJO OOOO 
KK KKK KKK KKK IK KKK AK KAKA KARE KA KARE RIK AK KKK IKI IKK RIKER REA AK RRR I KA 


=RMD12 GOSUB SPLTAC 
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1280 OC77E =RMD15 XRNDy=x-y*IP(x/y) 
1284 OC77E 858 ST=1 NOTNOD 
1282 0€781 7231 GOSUB RENPHD weed out xcpt’1 args 
1283 
1284 0€785 AC8 B=A $ S$g(R):=Sg(x) 
1285 0€788 76CO GOSUB REDUCe 
1286 OC78C 400 RTNC RIN WITH K (xi <lyl) 
1287 OC78F 5F5 GONC  RSTEXP "goto" (rtn: Sg(x)*R ) 
1288 RO www nnn nen tote en nena nnn nen mene werener nnn 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 JOO OCICS IGOR ICCC OGIO CRI 
1301 JORIS IDOI OCI TEI TT 
1302 ax 
1303 ** Nane: M0015 - MOD function 
1304 ik 
1305 ** Category: MATH 
1306 ls 
1307 ** Purpose: 
1308 ax To compute xMODy = x-y*INT(x/y) 
1309 a 
1310 ek Entry: 
1311 pie Standard floating point math input. 
1312 * 
1313 aX 
1314 AE Et: 
1315 ae Standard floating point nath output. 
1316 ae 
1317 RE USOSs Sac: oats 
1318 ** Inclusive: P; A,B,C,D; R regs [0,1]; ST. [s=SGNS(s9), 
1319 ak NOTMOD(s8)J]; HD.ST.[SB, XM); 
1320 a 
1321 ** Stk lvls: 2 
1322 ae 
1323 x* NOTE: 
1324 aK MOD 1s subject to round’g error unlike RMD, but MOD is 
1325 ae periodic in x over the entire x-axis. 
1326 ie 
1327 FORO ROOT TOO IOI OR OIG IO OI IOI 
1328 FORO ORR IO OO OOO OI IO OO TORO IIIT 
1329 0€792 =M0012 
1330 00792 7€91 GOSUB SPLTAC 
4331 0796 =M0D15 xMODy=x-y*INT(x/y) 
1332 OC796 848 ST=0 = NOTNOD FOR Y=inf ONLY (in REMPUD) 
1333 0C€799 72R0 GOSUB SGNS to set s=SGNS approp’ ly 


1334 OC79D 7611 GOSUB RENPUD weed out xcpt’l args 
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1335 OC7A1 
1336 O0C7A4 
1337 OC7R8 
1338 
1339 
1340 OC7AB 
1341 OC7RE 
132 
1343 0C7B0 
1344 00763 
1345 0C7B5 
1H6 0C7B8 
1347 
1348 
1349 OC 788 
1350 
1351 
1382 OC7BB 
1383 OC7BE 
1354 
1365 
1386 0C7C1 
1357 0C7C4 
1358 
1359 
1360 
1361 OC7C6 
1362 OC7C9 
1363 
1364 
1365 
1366 OC7CB 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
137? 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1383 


ACS 
7RRO 
421 


879 
14 
979 
C3 


B70 
563 


AF? 
118 


879 


959 
0 


6A9B 
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B=C S 
GOSUB REDUCe 
6OC MODX<¥ 


* usual x>=y case * 
?S$T=1 s=SGNS 
GOYES RSTEXP 


*B=0) COW 
GOYES RSTEXP 
B=(-B W 
GONC  RSTEXP 
NODX<Y 
* Bring back y * 
D-C OW 
C=RO0 


* Watch out for MOD(0,y) 


MODSO = ?ST=1.— s=SGNS 


Page 26 
5g(R):=Sg(y) 


SAME SIGNS ? 
(Rtn with Sg(y)*R ) 


R’=0? (1.e. x-ky=0 the discont’ity 
USE SG(Y) FOR K=0 

R’:2¥7-R? [i.e.-(ly!-!R!)x10%ex(y) J 
"60TO" 


IX!<!¥! case 


(C,D)= y 


x & y have sare signs ? 


RTNYES RIN X 
x Test N-field since x is finite at this point but x 
& B[S] nay not be clean when coring fron REMPWDS ! a 
7B=0 ON K=07 
RTNYES RIN +/- 0 
Since !x!cly! => (x+ty)#0, ignore 
rnd’g bits input.(=> won’t use s11) 
GOTO  ADISN (want SB=1 if add is inex. else 


$B=0) 
xty (=Sg(y)*(lyl-Ix1)) 


FORTIS TTT TIT IIT IIIT IS IK 
FOI JOO TOR RT ITI TT IIIS IIT TTT I III III IN 


xx 


xk Nane: REM15 - IEEE "REN" function 


ak 


** Category: MATH 
kk 


xk Purpose: 


ae To compute xREMy = x-y*NI(x/y) where NI(x)=nearest int. 


ak 
*k Entry: 


ae Standard floating point math input. 


ke 
KK Exit: 


ax Standard floating point math output. 
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1390 
1391 
1392 
1393 
1394 
1395 
1396 
139? 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 OC7CF 
1406 0C7D3 
140? 0C7D3 
1408 0C7D6 
1409 OC7DA 
1410 OC7DD 
1411 OC7E1 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 OC7E4 
1424 OC7E7 
1425 
1426 OC7ER 
1427 OC7ED 
1428 
1429 
1430 OC7EF 
1431 OC?F2 
1432 
1433 
1434 OC7F6 
1435 OC7F9 
1436 OC?FB 
1437 OC7FE 
1438 0801 
1439 
1440 0C805 
1441 
1442 0808 
1443 OC80B 
1444 OC80E 


7164 


858 
7D00 
AC 
7170 
473 


AF4 
A274 


SFE 


110 
639C 


972 
CO 
110 
B?D 
6110 


110 
AE3 


8iF 
96B 
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kk 
BP USes) aalaces 
xx Inclusive: P; A,B6,C,D; R regs [0,1]; ST. [NOTMOD(s8)]; 
ai HD. ST.{SB, XM]; 
&k 
RX Stk lvls: 2 
kk 
** NOTE: 
aK REM is defined by the IEEE Floating Point Standard. It 
ak gives exact results and is periodic in x alnost everywher 
ax with per=y. Only at multiples of y/2 does the period 
aR double. 
kk 


FORO OTT I TIT TIC 
FO OOO TTT 


=REM12 GOSUB SPLTAC 


=REN15 xREMy=x-y*NI(x/y ) 
ST=1 - NOTNOD 
GOSUB = REMPWD weed out excpt’] args 
B=A SS $g(R):=Sgq(x) 
GOSUB REDUCe 
GOC RENK<Y 
* usual |x[>=ly] case. (Here R & y have sane expon, so use nants 
: 2R’ & y’ for testing R<y/2, >oy/2 & =y/2. 
* * 
x B=nant(R), C=nant(y) x 
: RO=Sg(x)..ex(y)=ex(R), D(XS)=last digit of quot. : 
R7¥/2  A=B W 
A=A+R OW 2R’ 
*A>=C OW 2'R! >= lyl? 
GOYES REN120 
kR< ¥/2 * 
RSTEXP R=RO 
shf10 GOTO  SHF1O NORNL’ZE R 
REM 20 ?7A=C OW IRIi=t¥l f2? 
GOYES R=Y/2 
R>¥/2 AERO 
B=C(-B W ('y!-'R')x107ex(y) 
GOTO NEGT RIN: ~Sg(x)*(ly!-!R!)*10%ex(y) 
R=¥/2  A=RO restore S(R) & ex(y) 
D=0 B 
DSRB Test D(XS) even or odd. 


*D=0 iB Is last quot digit even ? 
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1445 0C811 1€ GOYES shf10 

1446 00813 BCC NEGT A=-A-1 S$ -Sg(x)*!R! 

1447 0C816 5BD GONC = shf10 “GOTO" 

1448 

1449 

1450 

1451 

1452 

1453 x Ixl< lyl case * 

1454 

1455 0C819 REMX<Y 

1456 0C819 AR3 D=0 XS force even quot. since DIV=0 for 

1457 IXic ty 

1458 OC81C 128 CROEX 

1459 OC81F EA A=A-C A EX(X)-EX(Y) 

1460 0C821 128 CROEX 

1461 0C824 8A8 7A=0 OA ex(x)=ex(y) ? 

1462 OC827 DB GOYES R?Y/2 (Use R*10%ex(y) = x) 

1463 

1464 x  ex(x) # exfy) * 

1465 0C829 £4 REMN310 A=A+1 A ex(x)-ex(y)+1 

1466 0C82B 470 GOC REN330 ex(x)=ex(y)-1 

1467 ex(x)<zex(y)-2  ( Ixticty!/2 ) 

1468 

1469 k Definitely |x| < lyl/2 * 

1470 OC82E 111 RINK R=R1 

1471 0C831 01 RTN 

1472 

1473 * ex(x) = ex(y) - 1 * 

1474 x Adjust mant(y) so that R=x & y have conron exponent 

1475 e ex(y)-1. (NOTE: If ex(y) were used with a BSR on 2x, 
x 


Sg(x)..ex(x) 
RTN x 


1476 a digit could be lost with 15 forn inputs causing 
1477 the test RoY/2 to fail.) 

1478 

1479 

1480 0C833 REN330 

1481 0C833 BF2 CSL OW 10*nant(y) 

1482 0C836 111 A=R1 

1483 0C839 100 RO=A RO=Sg(x)..ex(y) - 1 here. 
1484 OC83C 47A GOC R?7Y/2 "GOTO", 

1485 Use (x’ & 10y’ )*10%ex(x) = xB y 
1486 

1487 Ro een e rere nmr nnn nnn nner nnn c sence nase nse nnen 
1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 
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1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
151? 
1518 
1519 
1520 
1521 
1§22 
1523 
1524 
1525 
1526 
182? 
1528 
1529 
1530 
1531 
1§32 
1633 
1534 
1535 
1536 
1$3? 
1538 
1639 
1540 
1541 
1842 
1543 
1544 
1545 
1546 
1847 
1548 
1849 
1550 
1651 
1562 
1553 
1554 


OC83F 

OC83F ACI 
OC842 859 
0C845 942 
0C848 00 


OC84A 849 
OC84D BCD 
0C850 01 
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JOIST OO I IIE 
* Support routines for Reriainder Functions * 
FOI I IIIT OTT 
fa a ee oe i a Sh ee eh a Peed) k 
* SGNS - Signs ‘ 
x INPUT: x & y (15 forns) x 
x QUTPUT: B(S)=Sign of x*y & s=SGNS is set * 
x iff Sg(x)=Sg(y). % 
k k 
SONS SGN OF A PRODUCT 

B=0 $ 

ST=1  — s=SGNS 

A=C OS 

RTNYES B(S)="+" & =SGNS is true. 

ST=0 = s=SGNS DIFF SIGNS 

B=-B-1 S$ B(S)="-" 

RIN 
Bechet Minnie mite iret tie fet Santas cle x 


FOI IOI TOI ITO OI TTI I UI OT O ITK 
FOI RII III TOTTI OOOO TIO TIO OT OI TIO 
xx 


** Nare: REDUCe - Reduce {x| by ly] 


tk 
** Category: MATH 

xk 

** Purpose: 

xt To reduce |x| by ly] for finite argunents. [RMD(Ix1, lyl)] 
an Thais is the heart of the RMND,MOD and RED functions. 

xs 

** Entry: 

re (A,B) = x, (C,D) = y, and B(S)=Sq(R). 

aR 


AX Exit: (where R denotes the renainder of the reduction) 
ke 

xe 41) If Ixl<ly| then Carry Set and (A,B)=x, 

mn C=mant(y), RO=Sg(R)..ex(y) and R1=Sg(x)..ex(x) 

at 

xe 2) If [xl>=lyl then Carry Clear and B=nant(R), 

ae C=nant(y), RO=Sq(R)..ex(y), D(XS)=last digit of 
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1555 RS quotient. 
1556 aK 
1557 aK Calls: (none) 
1558 ae 
1559 KK Uses....... 
1560 *k Inclusive: A,B,C,D0; R regs [0,1]; 
1561 ak 
1562 ak Stk lvls: 0 
1563 ak 
1564 SORORITIES Or 
1565 KKK KK KAKI KA KKK KKK ER AKIRA KR KAKI RR KEI JOO R IDI 
1566 
1567 OC852 =REDUCe 
1568 OC852 101 R1=A 
1569 0C855 ACI C=8 3 
1570 OC858 AC B=0 S 
1571 OC85B AC3 D=0 S$ 
1572 OC85E 108 RO=C 
1573 0C861 979 *B=0 «OW X=0? 
1574 OC864 34 GOYES REDO<Y 
1575 
1576 OC866 AFD REDSO BCEX UW 
1577 OC869 EO A=A-B A ex(X)-ex(Y¥)=#div-1 
1578 OC86B 9SFF 70>=0 W MANT X >= MANT Y ? (X’ >= Y? ? ) 
1579 OC86E 70 GOYES RED® 
1580 0C870 CC A=A-1 A adjust #div-1 = ex(X DIV Y) 
1581 OC872 BF2 CSL W forn x’ 
1582 
1583 0(875 D8 RED B=A A 
1584 0(877 C5 B=B+B A 2(#div-1). carry if #div<=0 = (X<¥) 
1585 0C879 AC4 A=B $ A=Sg(R). .#div-1 
1586 OC87C AFS B=C W B=nant(x’ ) 
1587 OC87F RFF CDEX W C=nant(y), D=Sg(R)..ex(y) 
1588 OC882 472 GOC REDK<Y¥ Ki < '¥! CASE 
1589 OC885 101 R1=A 
1590 
1591 x Here R1=Sg(R). .#div-1 x 
1592 k A(R)=#div-1, B=nant(x’), C=nant(y) * 
1593 
1594 
1595 a Reduction for RMD,NOD & REM (RED) 
1596 x corbined to save code (sone loss 
1597 & is speed). 
1598 
1599 OC888 550 GONC RNOD35 "GOTO" 
1600 
1601 OC88B BF1 RMOD30 BSL W 
1602 OC88E AA3 RNOD35 D=0 XS init’ze quot. digit 
1603 
1604 0C831 B27 RNOD40 D=D+1 XS Build quotient digit 
1605 OC894 B71 B=B-C W and reduce |x| by lyl. 
1606 OC897 59F GONC RMAOD4O 
1607 
1608 OC89A R71 B=B+C W restore renainder 
1609 OC89D CC A=A-7 A 
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1610 OC89F SBE GONC RNOD30 

1611 

1612 OC8R2 A2F D=D-1 XS restore last quot digit 

1613 OC8AS5 03 RTNCC C.C.for nornal reduction ([x}>=ly]) 

1614 

1615 

1616 

1617 

1618 OC8A? AFB REDO<Y C=) W Puts nant y into C to nake use 

1619 of REDX<Y code (Note D(P)=0 here) 

1620 OC8AA REDK<Y 

1621 OC8AR 111 A=R1 Restore Sq(x) & Expon(x) 

1622 OC8AD 949 ?B=0) —§ 

1623 OC8BO 50 GOYES RDO 

1624 OC8B2 BF5 BSR W tant X restored fron xX’ 

1625 OC8B5 02 RDO RTNSC C.S. for [xl<lyl]. 

1626 R ----------- +--+ ------- +--+ == ----- & 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 . 

1660 OC8B7 REMPWD 

1661 OC8B7 821 KN=0 

1662 OC8BA 822 SB=0 

1663 OC8BD 8E00 GOSUBL =MSN15 
00 


»* 
Pd 


ee we we we we ee ee ee ee we we ee a aw ew ne we eee wee wee 


REMPWD 
INPUT:  (A,B)=x, (C,D)=y, NOTMOD=1 iff not MOD fen. 
OUTPUT: 
1) If either x or y = NaN then return fron calling 
routine with (A,B)= the correct NaN. 


2) If |x|=Inf then return fron calling routine with 
“INVALID ARG" NaN (XM=1) . 


3) If MOD(x,+/-Inf), then directly exit NOD through 
MOD50O. 


4) If lyl=0 then "INVALID ARG" NaN (with XM=1). 


5) Else return to calling routine with sane inputs. 


i Oe Oe a 
ee Oe ee ee 


ALSO USES: RO 
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1664 OC8C3 560 

1665 OC8C6 07 

1666 OC8C8 01 

1667 

1668 OC8CA 7534 

1669 OC8CE 5A 

1670 

1671 

1672 OC8D1 07 

1673 OC8D3 8C00 
00 

1674 

1675 OC8D9 7234 

1676 OC8DD 531 

1677 

1678 

1679 OC8EO 108 

1680 OC8E3 07 

1681 OC8E5 118 

1682 

1683 OC8E8 878 

1684 OC8EB 00 

1685 

1686 

1687 OC8ED 63DE 

1688 

1689 OC8F1 S5F 

1690 OC8F4 00 

1691 OC8F6 SAD 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

171? 
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GONC = RENP2 
C=RSTK 
RIN 
RENP2 GOSUB FINITA 
GONC REMPS X FINITE 
k | xf=Inf & 
GIVARG C=RSTK TO RTN FROM REM FCNS 
GOLONG =IVARG "INVALID ARG NaN 
REMPS GOSUB FINITC Y 
GONC  REMP20 Y FINITE 
* ly! = Inf * 
RO=C 
C=RSTK y non-finite. don’t return to 
C=RO reduction code 
?ST=1 NOTNOD 
RTNYES RTN X 
* MOD(x,Inf) * 
GOTO nods 
REMP2O 7DHO) Of Y#O? (use N-field--D[S]} may not be 
RTNYES clean; ok here, since y 1s finite 
GONC  GIVARG 


ee ee ee ee eee 


TORII RIOR JI RIOT ORI ORI ITT III 
FORO JOJO JO TORII OIRO OI II 
ak 


*x Nane: 
ke 


kx Category: 
hk 


IDIV15 


DIV (integer division) 


MATH 


*k Purpose: 
To compute xDIVy = IP(x/y) 


xx 
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1718 an 
1719 k* Entry: 
1720 ax Standard floating point math input. 
1721 a 
1722 ax Exit: 
1723 a Standard floating point math output. 
1724 x 
1725 kk Uses....... 
1726 ** Inclusive: P; A,B,C,D; 
1727 x HO. ST. (SB, XM"); 
1728 RK 
1729 * Stk lvls: 1 
170 ax 
1731 ** NOTE: 
1732 + This routine was changed to save code, and now it nay 
1733 ae occasionally signal inexact (SB=1) uhen the result is 
1734 ak actually exact. 
1735 aK 
1736 - Signals exact (SB=0) when : 
1737 ak 
1738 a 1) P#15. Since this indicates x/y has less than or 
1739 ak equal to 14 digits in its integer part, IP(x/y) 
1740 ae will be exact. 
1741 ak 
1742 ex 2) x/y is exact. If x/y is exact then it 1s represented 
1743 ak by 15 digits, therefore IP(x/y) will just be sone of 
1744 ak its leading digits (i.e. exact). 
1745 ae 
1746 RK 
1747 ak Signals inexact (SB=1) when : 
1748 ax 
1749 ae |x/y| >= 1£14 and x/y is inexact. Unfortunately, x/y 
1750 ae can satisfy these conditions and still have IP(x/y) 
1751 = be exact in rare cases. 
1762 ah 
1753 gi Exanple: 
1754 ay 
1755 ae 1E25 div 9999999999 = IP(1000000000100000. 0000100... ) 
1756 Ay 
1757 a = 1,0000000001E15 exactly, even though |x/y|>1E&14 
1758 ak 
1759 aX and x/y is inexact. 
1760 ae 
1761 aA 
1762 FOO OI IIIT OI OIG. 
1763 FOI OIIR ROO IOI IOI III OOOO 
1764 OC8F9 7730 =IDIVi2 GOSUB SPLTAC 
1765 OC8FD 7BRB =IDIV15 GOSUB DV2-15 Y/X 
1766 OC901 &31 2XM=0 no xcpt. 
1767 00904 40 GOYES IDVX 
1768 0(906 01 RIN XM=1, so preserve P=xcpt & 
1769 C(A)=nsg code (rio need to 
1770 CLRFRC). 
1771 


1772 0(908 78E0 IDV3O GOSUB CLRFRC IP(Y¥/X) 
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1773 OC9OC 89F 
1774 OC9OF 00 
1775 

1776 0C911 822 
177? 

1778 00914 01 
1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

178? 

1788 

1789 

1790 

1794 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

180? 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 0C916 
1818 0C916 AF2 
1819 0€919 20 
1820 OC91B 3220 


F 
1821 OC920 01 
1822 
1823 
1824 
1825 
1826 
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*p= 15 NaN,Inf or > 1€14 ? 
RTNYES Rtn with SB fron y/x. 
SB=0 Exact since y/x has =< 14 


digits in its int. part 


FORO TOT OT TTT TC 
SOIR RRR ROJO OIOIR RTO IK 
ak 


** Nane: SIGNAN - Signaling NaN 
kk 

**k Category: MATH 

kk 


** Purpose: 

SA To create a Signaling NaN (From exec’g the NAN fcn) 
aK 

** Entry: 

ne No entry conditions. 

aK 

£R Exit: 

aR C=Signaling NaN (12 forn) for user. 

es =10}0000 10... .0/FO2| 

aK 


kk Calls: none 
KR 


kk Inclusive: P; C 
kk 


*k Stk lvls: 0 
kk 


FOI III ROI TTI RIT RF IK 
FOO III JR RII OTTO TST ITT K 


=SIGNAN 
i) W clr nsg code for Signal’g NaN 
p= 0 
LCHEX #FO2 C = [000001000 |00000 | FO2 | 
RIN 


FORO JOR JIT 
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1827 OC922 8E00 
00 

1828 OC928 7800 

1829 OC92C 763A 

1830 0C9% 6360 

1831 

1832 

1833 

1834 

1835 

1836 

183? 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

184? 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

185? 

1858 

1859 

1860 

1861 

1862 00934 D? 

1863 0C936 07 

1864 0C938 7380 

1865 0C93C 06 

1866 OC93E DB 

186? 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

187? 

1878 

1879 

1880 
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=uADi2 GOSUBL =uMODES copy rnd’g nodes to st. bits 


GOSUB SPLTAC 
GOSUB ADI5N 


GOTO uRES12 
FOI III II OA TSI DIT DI TT ITAL K 


FOI TOI OTTO TTT TTT II TI IK 
FOI OI OI  TTO IOT 


**K Name:(S) SPLTAC - Split & normalize A & C 
kk 


kk Category:  MTHUTL 
kk 


** Purpose: Split & Normalize values in fl & C. 
kk 


kk Entry: A:X C:¥ {12-digit forns] 
tok 
&X Exits A,B:X C,D:¥ [15-digit forns] 
kk 
*k Calls: SPLITA, SPLITC 
a 
x* Alters (INC): A,B,C,D0,Carry 
aX 
Xx Stk lvls: 0 
tk 
** History: 
ok 
kk Date Prograntier Modification 
RX. wciacwse, -stescecsess seceiosvee ee seco se eb ose looSc ees ek 
kk 6/28/82 SB A field instead of W 
Xk 9/23/82 SB This routine noved (elininate GOTO) 
FO OIRO JOO OI ICO TOTO IOI 
FO IIIT TO TTT TOO TTT TOTTI IO TI TTI 
=SPLTAC D=C A 
C=RSTK Save Return 
COSUB SPLITA 
RSTK=C Restore Return 
C=D A 


IOI SII IS IE IGISISI GUIS ISG IGS TI TI TIO IE 
BORO TOTO ORI IO RO IOI IO OI TOI IOI IOI IOI OSI HOIE 
aK 

kk Name:(S) SPLITC - SPLIT C 


a 


** Category:  MTHUTL 
kk 

%* Purpose: 

as see SPLITA 

kk 

** Entry: 


ks C=x’ {external forn) 
ak 
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1881 ak Exit: 
1882 at (C,D)=x (normal internal forn) 
1883 an 
1884 kt Calls: (none) 
1885 an 
1886 ke Uses....... 
1887 xk Inclusive: C,0 
1888 ax 
1889 xk Stk lvls: 0 
1890 ah 
1891 xk Detail: 
1892 aR see SPLITA 
1893 xn 
1894 JOU IIS OI OCU OR 
1895 JO III IO TOIT IIR TIT TI IARI TITS ADI AK 
1896 0C940 ADF =SPLITC CDEX i 
1897 0€943 AB? D=C XK 
1898 0C946 A26 C=C+C XS 
1899 0C949 D2 C=0 A 
1900 0C94B 540 GONC  SPLC10 
1901 OC94E CE C=C-1 A 
1902 0C950 ABB SPLC10 C=D x 
1903 0C953 AB3 D=0 Xx 
1904 
1905 00956 04 =NRNLCD SETHEX 
1906 0C958 B26 C=C+1 XS 
1907 OC95B AZE C=C-1 xS$ 
1908 OC95E 05 SETDEC 
1903 0C960 5A0 GONC SHFD 
1910 
1911 0C963 AD2 C=0 nf OOFxx for expon 
1912 0C966 AR? d=C XS nake nant#O for NaN & inf 
1913 00969 02 RTNSC 
1914 
1915 0C96B AC? SHFD D=C S$ Save C[S]=sign in D[S] 
1916 OCS6E 8OFF CPEX 15 Save P in C[S$] 
1917 0C972 2E P= 14 
1918 00974 918 7D=0 =WP 
1919 0C977 01 GOYES SHFD3O 
1920 00979 90F SHFD20 7DHO P 
1921 0C97C DO GOYES SHFD40 
1922 OC97E CE C=C-1 A 
1923 00380 B93 DSL WP 
1924 00983 65FF GOTO  SHFD20 
1925 
1926 0C987 D2 SHFD3O C=0 A 
1927 0C989 20 SHFD40 P= 0 Restore P 
1928 OC98B 80FF CPEX 15 Restore C[S] 
1929 OC98F ACF OCEX § D(S):=0 
1930 0C992 03 RTNCC 
1931 
1932 
1933 
1934 


1935 
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1936 
193? 
1938 
1939 SIRI III AIT TAT RII IKI II IDI ISI DISTT ISI IIIS III III IIS IIIS II SSI SAIS IK 
1940 SIRI ISI IIS IIIA IR III II IST IS IASI SII III SI SSSI SII ISS I IIS ISS IIS I IS 
1941 a 
1942 xk Narie:(S) uRES12 - User Result 
1943 KK Nane:(S) uRESNX - User Result (non exceptional) 
1944 kk Narie:(S) uRESKT - User Result for exact results 
1945 ae 
1946 ** Category:  MTHUTL 
1947 ak 
1948 ** Purpose: 
1949 ak To pack the 15-forn input into a 12-forn result for 
1950 aR delivery to the user. This includes rounding according 
1951 aR to the user’s node, checking for xcpt’ns & consul ting 
1982 aa relevent trap values, setting the xcptn flags,and sending 
1953 ax off any warning ressages or errors. The external default 
1954 ae result (12 forn) is returned in reg C. 
1955 ae 
1956 xk Entry: 
1957 aR 1.(A,B)&SB contain x (the unpacked result) 
1958 is 2.XM is set if x is the result of an xcpt (DVZ or IVL) 
1959 a if XM=1 then P=(02P,IVP or TYPO“) tells which xcptn and 
1960 aR C(A)=nsg code (for specific xcptn e.g. 0/0,LOG(O),etc. ) 
1961 ak **kNote**; DZP=3; IVP=4; TYPO™O=14. 
1962 x 
1963 as 3.D1=top math stk -- only used for a urn. nsg., to check 
1964 xR avail.nen. for a possible men err. 
1965 a 
1966 a CODE:  =uRESNX GOSUB uRND>P 
1967 xk oeSs =uRESXT GOSUB HTRAP 
1968 ax GOSUB HNDLFL 
1969 ie GOTO MESSG 
1970 ak 
1971 ah 
1972 PROEMES! 
1973 a C:=x’ (the 12digit packed result). 
1974 ar The XCPIN flags are set and any nessages have been dis- 
1975 x played (including errors). 
1976 xs 
197? ** Calls: uRND12, HTRAP, HNDLFL, MESSG 
1978 xe 
1979 BP USES i sy ko'va 
1980 ** Inclusive: P; A,B,C,D; R regs [3]; ST.[7..11]; 
1981 ee HD. ST. (SB, XM]; 
1982 - 
1983 ** Stk lvls: 2 (provided that MFWRNQ uses <= 4 levs.) 
1984 AX 
1985 x* NOTE: 
1986 a TYPO~O "xcptns" (0% & Inf) return 1. They are not 
1987 x IVL xcptns but do consult the IVL trap. No flags are 
1988 ak raised, but TRAP(IVL)HO gives a urn’g while =0 gives 
1989 ux an error. XM=1 & P=14 signals TYPO™ "xcptn”. 


1990 =e 
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1991 
1992 
1993 
1994 
1995 
1996 
199? 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
20 34 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 


0(994 


00994 831 
00997 42 


0C(3999 7140 


OC939D 893 
OCSAO 12 
OC9R2 894 
OT9A5 C1 


OC9A7 A83 


OC9AA 7191 
OCSRE 24 
OC9BO 90B 
OC9B3 61 
OC39B5 A4D 
OC9B8 401 


OC9BB 22 

OC9BD 7E00 
OC9C1 7A61 
OC9C5 7002 
OC9C3 6D42 
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KKK KAIRIE ISTO IIIT TTR ITT STITT IIE IR IIT TET 
KAA KKK AERARKKAE KERIKERI KIRK I IKI RII III IRR EIST R RIOR TI IO 


=uRES12 


?KN=0 
GOYES 


GOSUB 


?P= 
GOYES 
?P= 

GOYES 


NRN12 
RNDXCP 


DZP 
uRESXT 
IVP 
uRESXT 


x P=TYPO™ (P=14) 


D=0 


GOSUB 
P= 
*D=0 
GOYES 
B=B-1 
GOC 


NRM12 P= 
=uRESNX GOSUB 
=uRESXT GOSUB 

GOSUB 
nessg GOTO 


P 


TRPO 
IVP 

P 
Nessg 
S 


nessg 


2 

uRND >P 
HTRAP 

HNDLFL 
NESSG 


x 


INPUT: X = (A,B)&SB 
KN=1 when an xcptn has 
occured (0Z,IV or TYPO) 
P=<xcpt> 02Z,IVori4(if XM=1) 


OUTPUT: C=RESULT, user’s flags set 
NORMAL RESULT? (NO XCPT) 


C:=RESULT, sIX:=0 (I¥,DZ&TYPO%) 
DVZ ? 


Use inaginary 0 trap value of 0 
to get traps fron HTRAP. 
on exit D(A)=TRAPS & B(S)=0 


Is TRAP(IVL)=0 ? 

disp error (0™,inf) *Here, 
disp warn (0W,inf%O)  *NO flags 
"goto" Set 


Round to 12 sig. digits 

Non Xcpt’] res. (needs rnd’g) 
Consult TRAPS 

HANDLE FLAG SETTING 

DISP ANY WRN’G OR ERROR MESSAGE 


FOR IO ITO TTT TTT TTT TI TIT TR TTT TIT ITT RII IST IT 


ax 


kk Nane:(S) uRNDoP - 
kK Nane:(S) RNDi2+ - 
RK Nane:(S) OVFL - 


*k Category: 


** Purpose: 


MTHUTL 


RIO RII TOT ITI TTD III IIIT III TTR IST ITS TIS 


user ROUND 
Round 15-forn 
Create overflow value 


RF To round an internal no. x to external forn, according 
= to the user’s rounding triode. 
xk RNDi2+: Round according to status bits (s10,s11). Given 
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2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 OCSCD 22 


2077 OCSCF 8E00 


00 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 OC9D5 7CFC 
2089 OC9D9 521 
2090 
2091 
2092 
2093 OC9DC 20 
2094 OCSDE 847 
2095 OC9E1 AFD 
2096 OCSE4 ABE 
2097 OC9E? ACE 
2098 OCSEAR 01 
2099 
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aK by (0,O)=NEAR, (0,1)=ZERO, (1,0)=POS, (1,1)=NEG. 
kk 
** Entry: 
ak (A,B)&SB= x 
ae P=rounding position (e.g. P=2 for 12dig.;P=9 for Sdig. ) 
ak 2<2P ce 13 
a DEC Move 
kk 
ak Exit: 
ak C:= x’ (rounded external forn) 
ak sIX(s7):= inexact info. 
ae P:=OVP(2),UNP(1) or OKP(O) (ovfl,unfl or ok) 
ae B(A)=nsq code of OV or UN resp. 
kK 
kk Calls: NRMLAB, RNONRN, BIASC+,-, BIASA-, HUGE20, BIG, 
aK uMODES 
ke 
RRO USES ise ca 0 
xk Inclusive: P; A,B,C,D; R regs [3]; ST.[7(sIxX),8..11]; 
tk HD. ST. [SB]; 
ke 
** Stk lvls: 1 
kk 
tk NOTE: 
ak Original x is not always preserved ! 
aK An inexact +/- 0 (i.e. SB=1) will be rounded to +/- 0 
ak with P=OKP and sIX(s7)=1 on exit. 


KK 


BI KIO I ITO OTT TTT TTT KT TITS TIT IIT IDET TIT TITS TI IDI IK 
JO III IT I TTT TTI IT TT ITT ITT ITT ITT ITT TTT EIT IIIT I OTITIS III K 


=uRND12 P= 


=uRND>P GOSUBL =uMODES 


=RND12+ GOSUB NRMLAB 


GONC 


* Round a NaN or Inf 


p= 
=RNDXCP ST=0 
BCEX 
C=A 
C=A 
RTN 


2 


RND5SO 


OKP 
sIX 
W 
x 
S 


x 


round to 12 digits 


SETS P= OV,UN or IX 


input: 1. rnd’g node in st. bits 
2. X=(A,B) 
3. P=rnd’g position 
output: 1. C=rnd12(X) 
2. Pin (OV,UN,IX), sIX 


C:=NANT (B:=MSG FOR uRES12) 
C(X)=F-- 
C(S)=Sq 
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2100 
2101 
2102 OCSEC RNDSO P set from uRND>P or RND>P entry. 
2103 OCSEC 80CF C=P 15 C(S):=P’ (RND’G POSITION) 
2104 OCS9FO ACS B=C S B(S):=P’ SAVED. 
2105 
2106 OC9F3 7ABO GOSUB RNONRM (RND100) ROUND NRM’L FINITE # 
2107 (C,D0)=rounded result, sIX correct 
2108 
2109 *% CHECK FOR EXCEPTIONS OV,UN, IX 
2110 OC9F7 103 R3=A SIGN & EXPON OF ORIGINAL X 
2111 OC9FA 8E0O GOSUBL =BIASC+ BIAS EXPON BY 50000 
00 
2112 OCROO DA A=C R R=BIASED RNDED EXPON 
2113 OCAO2 20 P= 0 
2114 OCAO4 3410 LCHEX 49501 NIN LEGAL EXPON (BIASED) 
534 
2115 OCROB 95D 7BHO OU MANT NON ZERO? (don’t change 
2116 OCROE 80 GOYES xXCPT3# to W field -- B(S) has P’ saved) 
2117 
2118 k Pack (A,B)=0 & 
2119 Note: P= OKP = 0 already set & 
2120 sIX set approp’ly (RNONRM). 
2121 
2122 OCA10 AF3 D= W Zero mantissa in case RNDNRM 
2123 nade D=00...01 (ROUND to POS 
2124 or NEG nodes) 
2125 OCA13 595 GONC xXCPTSO "GOTO" (clean the expon) 
2126 
2127 
2128 
2129 OCA16 XCPT# 
2130 OCA1E 8B2 oA<C OAR EXP<MIN ? 
2131 OCA19 81 GOYES UNFL 
2132 
2133 OCR1B FA C=-C A MAX LEGAL EXPON (biased !) 
2134 OCAID 8B6 7AOC OR EXPON>MAX ? 
2135 OCAZO 35 GOYES OVFL 
2136 
2137 OCA22 8E0O GOSUBL =BIASA- UNBIAS 
00 
2138 OCAZ8 D6 C=A A 
2139 
2140 OCAZA 20 P= OKP sIX already set 
2141 
2142 OCA2C ADB XCPTSS C=D nN 
2143 OCA2F 01 RIN 
2144 
2145 
2146 
2147 * 0 < [Result| < EPS * 
2148 OCR31 UNFL 
21439 OCA31 8E0O GOSUBL =BIASC- UNBIAS MIN EXPON (99501) 


00 
2160 OCA37 113 R=R3 RESTORE ORIGINAL EXPON FOR # SHIFTS 
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2151 OCA3A DE ACEX A A=MIN UNBIASED EXPON (OF DENOR. #) 
2152 OCA3C EE C=A-C OR # SHIFTS 
2153 OCA3E 2E P= 14 
2154 
2155 OCA40 CE UNFLIO C=C-1 A 
2156 OCA42 4A0 COC UNF L20 
2157 OCA4S B95 BSR WP (ALSO TAKES CARE OF SB FOR NEXT RND) 
2158 OCA48 OD P=P-1 
2159 OCR4A 55F GONC UNFL1O 
2160 Nay fall through with inex 0 (0€-499 
2161 & SB=1). This 1s ok for RNDNRM. 
2162 
2163 OCA4D ACS UNFL20 C=B S 
2164 OCASO 80DF P=C 15 RESTORE P=P’ for rnd’g. 
2165 
2166 OCA54 7950 GOSUB RNDNRN 
2167 
2168 * Signal "tiny" result, UNF will be determined in HTRAP * 
2169 OCA58 21 P= UNP NOTE: sIX nay be 0 or 1 here . 
2170 
2171 OCASA 133 ADIEX 
2172 OCASD 1£00 01=(4) =eUNFLW UN MSG CODE 
00 
2173 OCAG3 133 ADIEX 
2174 
2175 OCAGE D8 B=A A B(A): =eUNFLW 
2176 OCAG8 UNF L40 
2177 OCAG8 97F 7DHO | OW IS ANSHER #0? 


2178 OCR6B 1C 
2179 


GOYES XCPT55 


2180 OCA6D D2 = xXCPTSO C=0 A "C=0 xX" (EXPON OF 12DIG ANS) 
2181 OCAGF 6CBF GOTO § XCPT55 
2182 
2183 
2184 *  OVFL assures P=0 on entry * 
2185 Here the Sign is in A(S)&C(S). 
2186 OCA73 =OVFL called in AB&ASN to set for uRESNX 
2187 OCA73 857 ST=1 ss IX 
2188 OCR76 3X0 LC(4) =eO0VFLW OV NSG CODE 
00 
2189 
2190 OCA7C DS B=C AR B(A): =eOVFLW 
2191 OCA7E 22 P= OVP 
2192 OCA80 87A ?8T=1 ~~ sINFRD RND TO +/- INF 
2193 OCA83 31 GOYES OVFL20 
2194 
2195 OCA85 87B ?ST=1  =sNEGRD Round to 0 ? 
2196 OCA88 C2 GOYES OVFL40 
2197 
2198 
2193 * RND TO NEAREST * 
2200) * (Create Inf Result * 


2201 OCR8A 
2202 OCRBA HF2 
2203 OCR8D ACE 


OVINF DON’T CHANGE P 
C=0 W 


C=A S 
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2204 OCA 800 GOLONG =HUGE20 +/- INF. 
00 

2205 

2206 

2207 * —RND 10 +/- INF * 

2208 OCAIG OVFL20 

2209 & <<< sIX already set 

2210 OCA96 87B 7ST=1  sNEGRD TO -INF ? 

2211 OCA99 AD GOYES OVFLO 

2212 

2213 TO +INF 

2214 * To tInf * 

2215 OCA9B 94E CHO OS 

2216 OCASE AOD GOYES OVFL40 TO +INF & NEG OVFL 

2217 

2218 OCARO 59E GONC  OVINF TO +INF & POS OVFL 

2219 

2220 

2221 * To -Inf * 

2222 OCAA3 SAE OVFLIO 7CHO = § To -inf & neg OVFL ? 

2223 OCARE 4E GOYES OVINF 

2224 To -inf & pos OVFL 

2225 * Create MAXREAL Result * 

2226 OCARE8 OVFL40 LEAVE SIGN ALONE 

2227 OCAA8 ADZ (=O) ON (FOR =BIG WITHOUT SIGN) 

2228 OCAAB 8C00 big GOLONG =BIG +/- 9.99...99E499 (WON'T ALTER P) 
00 

2229 

22H” hewn mnn nem ee nnn nm nenenne : 

2231 

2232 

2233 

2234 JOO IO TOI II ATI SII ISI ITT IOS III II ITI SITS SI TI II TOSSA I SII IIA 

2236 JORIS IRI IOI IDI IIIS ISI ISIS SISSI SII IIS ISIISSS IOS III III I ISS ISI IIIS 

2236 ax 

2237 ** Nane:(S) RNDNRM - Round a Normal Nunber 

2238 mn 

2239 **k Category:  MTHUTL 

2240 =x 

2241 *k Purpose: . 

2242 KR To round the mantissa of a finite internal no. x, 

2243 ae according to the rounding nodes specified. 

2244 ah 

2245 xk Entry: 

2246 me (A, B)&SB = x 

2247 kk P=rounding position (e.g. P=2 for 12 digit round; 

2248 an P=9 for 5 digit rund) 0<=P<=14 

2249 x SINFRD(s10)&sNEGRD(s11) set for rounding trode 

2250 ae (see =uMODES) 

2251 a DECHODE 

2252 ax 

2253 *k Exit: 

2254 xx (C,D) = x’ (rounded value) (and D[S]=0) 

2255 me sIX(s7) set iff the rounded result is inexact 


2256 ax P=0 
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2257 am 
2258 ** Calls: None 
2259 ax 
2260 ** Uses....... 
2261 kk Inclusive: P; €,0; ST. [sIX(s7)]; 
2262 xx 
2263 kk Stk lvls: 0 
2264 aK 
2265 ** NOTE: 
2266 ak With an input of inex 0 in Rnd to Inf node, the nantissa 
2267 ae 1s rounded to 00...01 and its exponent is unchanged. In 
2268 | the other rounding nodes the rantissa renains 0. 
ao JORIS OU CISTI SOC CCC TO TG Re 
eel JORIS TIT TOO 
2272 
2273 OCABI =RNDNRM RND FINITE # at position P 
2274 OCRB1 AFS C=B OW 
2275 OCAB4 AC2 C=0 S MAKES D=O W FOR ZERO RESULT. 
2276 OCAB? 847 ST=0 —sIX INIT. IX BIT 
2277 OCABA SIE 7C#O0 =P DEFINITELY INEXACT? 
2278 OCABD 70 GOYES RND120 
2279 OCABF 832 ?SB=0 EXACT? 
2280 OCAC2 C2 GOYES RND150 
2281 
2282 * Inexact Result * 
2283 OCAC4 857 RNDI20 ST=1 = sIX SET IX RND FLAG 
2284 OCAC? 87A ?$T=1 sINFRD RNO TOWARD INF 
2285 OCACA C4 GOYES RND210 
2286 OCACC 878 ?$T=1  sNEGRD TO 0 
2287 OCACF 80 GOYES RND125 
2288 
2289 
22% * Round to Nearest * 
2291 OCAD1 AIG C=C+C WP RND TO NEAREST 
2292 OCAD4 4% GOC RND130 
2293 
2294 
2295 Kak TRUNCATE = *** 
2296 
2297 OCAD? AI2 RNDI25 C=0 WP Truncate. 
2298 OCADA 6310 GOTO RND1IS0O 
2299 
20 
2301 OCADE S1E RNDIX ?C#O = WP DEFINITELY RND UP? 
2He2 OCRE1 70 GOYES RND140 
2303 OCAE3 832 ?SB=0 HALF WAY. STICKY BIT O ? 
24 OCREG 22 GOYES RND190 
295 
26 
27 
28 
2H3 *** ROUND UP *4% 
2310 


2311 OCRES AI2 RND140 C=0 WP RND UP. 


Saturn Assenbler Nath Routines - Part 1 <831213. Fri Dec 30, 1983 3:18 ani 


Ver. 3.39fRev. 236 Page 44 
2312 OCREB BSE C=-C-1 WP GUARD DIGITS ALL 9’S 
2313 
2314 
2315 *kk =Perforn the Rounding *** At this point, guard digits will 
2316 be all 9s (Up) or all Os (Trunc). 
2317 OCAEE 2E RNDISO P= 14 
2318 OCAFO AF7 D=C WW 
2319 OCAF3 AF6 C=A W 
2320 OCAF6 817 D=D+1 WP RND UP. CARRY? 

2321 OCAF9 570 GONC RNDIE6O NO. 

2322 OCAFC E6 C=C+1 A YES. INC EXPON 

2323 OCAFE B07 D=D+1 P NAN=1000... 

2324 OCBO1 20 RNDI60 P= 0 

2325 OCBO3 A83 D=O0)—Oos*i®PP CLEAR POSSIBLE #0 LSD 
2326 OCBO6 01 RTN 

2327 

2328 

2329 

2330 0CB08 RND190 NOTE: C=0 WP here. 
2331 OCBO8 AF? D=C W 

2332 OCBOB 81F DSRB Does not alter SB. 
2333 OCBOE 90B 70-0 =—?P SET CARRY IF EVEN 
2334 0CB11 DD GOYES RNDISO EVEN ALREADY NO RND 
2335 0CB13 54D GONC RNDI40 ODD. RND UP TO EVEN 
2336 

2337 x Infinity Rounds * 

2338 OCB16 87B RND210 ?ST=1 sNEGRD RND TO -INF 

2339 OCB19 AO GOYES RND220 

2340 

2H41 * To +INF x 

2342 OCBIB 948 7A=0 OS 

2343 OCBIE AC GOYES RND140 RND UP 

2344 0CB20 56B GONC RNDI25 NEG. TRUNCATE 

2345 

2346 * To -INF & 

2347 OCB23 948 RND220 ?A=0 = = S 

2348 OCB26 1B GOYES RNDI25 TRUNC 

2349 OCB28 SFB GONC RND140 NEG. RND UP 

2350 

2351 

2352 OCB2B 6398 splitA GOTO SPLITA 

2353 

2354 

2355 

2356 JS TOGO ICTR APPR TING MECHANT SHARE RI RIG IIIT I III 
2357 

2358 

2359 

2360 

2361 

2362 

2363 SII III II II II IIIT IOS TOTTI TI STII IIIT IIT IIIS AISI I III OS III ISI IIA 
2364 JOGO IOI ITT T SIO IIS III III III IIIS IA 
2365 ak 


2366 ** Nane:(S) HTRAP - HANDLE TRAPS 
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2367 xn 
2368 ** Category:  MTHUTL 
2363 ah 
2370 ** Purpose: 
2371 aR To determine any trapping action that is specified (e.g. 
2372 aK alter the IEEE default result or halt) on an xcptn. 
2373 aa 
2374 ** Entry: 
2375 x C= x’ (the 12 forn IEEE default result) 
2376 *K Trap to be checked 1s indicated by: 
2377 ak P=<xcpt> {OK,UN,OV,DZ or IV} 
2378 ak sIX(s7)= xact/inex info (esp. for P=0k) 
2379 ae B(A)=nsg code (for UN,OV,DZ or IV only) 
2380 an 
2381 KX Exit: 
2382 ak C:= x’’ (revised result --after consulting traps) 
2383 at B(S):= 0 for an error (HALT) ; 9 otherwise (continue) 
2384 ax B(A)=nsg code for IX,UN,OV,DZ or IV. 
2385 a P = updated xcpt. 
2386 xx sIX(s7) reflects updated exact/inexact info 
2387 ax Sets DECMODE (only when GOSUB BIG is executed) 
2388 xk 
2389 xk = Special exit condition: 
2390 = (preserved for USGOVF -- DISP USING OVFL) 
2391 
2392 aR Whenever HTRAP exits mith B(S)=0 (i.e. Halt) 
2393 ak then: 
2394 xe 
2395 a 1) If TRAP(OVF) caused the Halt then s7 (sIX) is 
2396 ax NOT altered fron its entry state. 
2397 ak 
2398 xR 2) If TRAP(INX) caused the Halt then s7 (sIX) is 
2399 xx set to 1 on exit. 
2400 ax 
2401 a 
2402 ae 
2403 BF USES. crcaae 
2404 *& Inclusive: A,B,C,0; ST.[sIX(s7)]; 
2405 ae 
2406 XX Calls: BIG 
2407 a 
2408 xX Stk lvls: 1 
2409 ae 
2410 Xx NOTE: 
2411 aK 
2412 A 
241 3 TORII OI OIRO OOOO OO GIO IO 
2414 SORORITIES ok 
2415 OCB2F =HTRAP 
2416 OCB2F AC1 B=0 S$ 
2417 OCB32 A4D B=B-1 §$ init. BHO (i.e. WRN not ERR ressage) 
2418 OCB35 880 ?7PH OKP NOT(IX or XACT) ? 
2419 OCB38 70 GOYES TRP30 
2420 


2421 OCB3A 867 ?ST=0 sIX XACT? 
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2422 OCB3D 00 RTNYES 

2423 

2424 

2425 OCB3F TRP 

2426 OCB3F AFF CDEX WwW 

2427 

2428 OCB42 133 ADIEX 

2429 

240 * get TRAPS * 

2431 OCB45 1F0O D1=(5) =TRPREG 
000 

2432 OCBAC 147 C=DAT1 A 

2433 OCBAF 133 ADIEX 

2434 

2435 OCB52 80CF C=P 15 

2436 

2437 

2438 * Test TRAP(P) * 

2439 OCB56 TSTRAP 

2440 

2441 OCB56 ROE C=C-1 P 

2442 OCB59 4E0 GOC TRP=0 

2443 OCBSC ROE C=C-1 P 

2444 OCBSF 404 GOC TRP=1 

2445 OCB62 AOE C=C-1 P 

2446 OCB65 461 GOC TRP=2 

2447 

2448 a not a nainfrane trap 

2449 

2450 OCBE8 TRP=0 

2451 OCB68 880 ?P#H OKP 

2452 OCB6B AO GOYES ERRMSG 

2453 

2454 & IX halt (P=0) k 

2455 OCBED D2 C= A 

2456 OCB6F 3100 LC(2) =eINX 

245? OCB73 DS B=C A 

2458 OCB75 ERRMSG 

2459 OCB75 ACI B=0 S 

2460 OCB78 6800 GOTO RINDEF 

2461 

2462 

2463 

2464 OCB7C TRP=2 

2465 OCB7C 880 ?PH OKP 

2466 OCB7F BO GOYES CKIX? 

2467 

2468 OCB81 80DF RTNDEF P=C 15 

2469 OCB85 AFF CDEX W 

2470 OCB88 01 RTN 

2471 

2472 OCB8A CKIX? 

2473 OCB8A 877 ?ST=1— SIX 

2474 OCB8D DO GOYES CKIXP 

2475 OCB8F 881 PH UNP 
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D:=x’ (C may be D-input fron uRES12 
on entry to TRP30. P=14 case) 
save [1 into A 


addr(IX) - 1 
C(A):=TRAPS[IV,DZ,0V, UN, OK) 


C(S):=xcpt=P now use P 
as the CURRENT xcption 


RAHA TR 
NOT IX TRAP ? 


B(A):= eINX 


LEAT EEE RRR 
current TRAP checked is not IX ? 


restore xcpt (P:=xcpt) 
C=x & sonetines D=TRAPvalues. 


Inexact ? 
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2476 OCB92 FE GOYES RTNDEF Exact & not UNF 
2477 
2478 * "Tiny" & Exact (i.e. rslt<EPS & exact) x 
2479 OCB94 AC2 C=0 Ss xcpt:=0KP (no UNF--neuw defn of UNF) 
2480 OCB97 59E GONC RTNDEF "goto" 
2481 
2482 
2483 OCB9IA 20 CKIXP P= OKP to check TRAP(IX) 
2484 OCB9C 69BF GOTO TSTRAP 
2485 
2486 
2487 
2488 
2489 OCBARO TRP=1 X*XTRADITIONAL FINITE DEFAULTS (75C) 
2490 OCBRO 890 ?P= OKP was TRAP(IX) checked? 
2491 OCBA3 ED GOYES RTNDEF 
2492 
2493 OCBAS 894 ?P= IVP 
2494 OCBAR8 DC GOYES ERRMSG 
2495 
24396 OCBAR 857 ST=1 SIX (UN, OV and DZ defaults are inex) 
2497 OCBAD AFA A=C W save trapvalues & original xcpt 
2498 OCBBO AF2 C=0 W 
2499 OCBB3 891 ?P= UNP Flush to 0? 
2500 OCBB6 60 GOYES GETSGN 
2501 
2502 , P=0V or DZ --- create MAXREAL * 
2503 
2504 OCBBS 7FEE GOSUB big 9...9E499 (DOES NOT USE P,Sets DEC) 
2505 
2506 OCBBC ACB GETSGN C=D S +/- for UN,OV or DZ 
2507 OCBBF AF? D=C W D:=DEF. VAL. 
2508 OCBC2 AF6 C=R W restore trapvalues & xcpt 
2509 OCBC5 64DF GOTO CKIXP 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 JOC OIE IOI EIS TTT TK 
2619 JUKE IIIT ITT TTT TD DTI EE DTD TTDI ITED TT 
2620 aX 
2521 * Nane:(S) HNDLFL - HANDLE FLAG SETTING 
2522 ne 
2523 ** Category:  MTHUTL 
2524 aK 
2525 **k Purpose: 
2526 a To set user’s xcptn flags (all at once). 
2527 a 
2528 Ae Entry? 
2529 wk P=<xcpt>, <xcpt> im {OK,UN, 0V,DZ, IV}. 


2530 ak sIX(s7)= inex info. 
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2531 tk 
2532 aX Exit: 
2533 ak user’s xcptn flags have been updated. 
2534 ak D(X) will contain bit mask of xcptns set (b11 to b7 
2535 ke represents IV,DZ,0V,UN, IX) 
2536 ae 
2537 tk Uses....... 
2538 ** Inclusive: A(A),D(X); R regs [3]; 
2539 ak 
2540 ** Stk lvls: 0 
2541 ae 
2542 tk NOTE: 
2543 C The info. from HTRAP [C,B(S),B(A),P & sIX) is preserved. 
cee 230 III IOS ISOS SISOS ITS SI TOO IOS IS IST I IO SAI IIIA ISAK 
2646 JU OI TO IOS TOIT SISO TOSI OT IOI TIO STII TIN 
2547 OCBC9 =HNDLFL 
2548 OCBC9 108 R3=C SAVE C 
2549 OCBCC ABZ C=0 x 
2550 OCBCF 877 *ST=1 =sIX 
2551 OCBD2 AO GOYES HNDL20 (inex. & possibly another xcptn) 
2552 OCBD4 89 ?P= OKP 
2553 OCBD?7 B3 GOYES RSTDEF EXACT RESULT (RTN) 
4 2554 OCBD9 580 GONC HNDL30 "GOTO". (other xcptn & exact) 
2555 
2556 OCBDC B26 =HNDL20 C=C+1 XS 
2557 OCBDF 81E CSRB SET IX BIT IN C[b7]. 
2558 
2559 
2560 
2561 k x 
2562 * Set C[XS] so that C[b11]...C[b8] --> IVL...UNF * 
2563 & & 
2564 k xcept P  C[XS] * 
2565 & wat weene & 
2566 & IVL 4 8 & 
2567 x DVZ 3 4 a 
2568 & OVF 2 2 x 
2569 ® UNF 1 1 & 
2570 k INK 0 QO with C[b7]J=1. & 
2571 & & 
2572 * * 
2573 
2574 
2575 
2576 
2577 OCBE2 80C2 HNDL30 C=P 2 C(KS):=P =XCPIN 
2578 OCBE6 894 ?P= IVP 
2579 OCBE9 AO GOYES HNDL40 
2580 OCBEB 883 7PH DZP i.e. OV,UN or illegal P. 
2581 OCBEE 80 GOYES XFSET 
2582 OCBFO AZE C=C-1 XS (DZ -> 2) 
2583 OCBF3 R26 HNDL40 C=C+C XS (shift left 1 bit for D2 & IV) 
2584 


2585 
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2586 

2587 

2588 OCBFE 133 

2589 OCBF9 1F00 
000 

2590 OCCOO AB7 

2591 OCCO3 1573 

2592 OCCO? OE3F 

2593 OCCOB 1553 

2594 OCCOF 131 

2595 OCC12 118 

2596 OCC15 01 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 
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* Set the RAM exception flags * 
XFSET ADIEX 
D1=(5) (=SYSFLG)-1 
D=C x D(X): = XCPTN BITS FOR MASK 
C=DAT1 X xcptn flags (IV -> IX start’g in XS 
C=C'D X OR to set sticky flags 
DAT1=C X COPY TO USER’S FLAGS. 
DI=A RESTORE SYS. D4 
RSTDEF C=R3 Restore C 
RIN 


FOI IO III III TOI IIIT IO IK 
SOI ICICI ICI IO TO III IOK 
ax 


** Nane:(S) MESSG - MESSAGE 

kk 

** Category: = MTHUTL 

ak 

xk Purpose: 

a To display a warning message uithout disturbing most 
aa of the CPU or Nath Scratch Stack. It uses available 
ae reriory instead, to preserve C,RO,R1,R2,R4, 00,01, Status 
ak Bits, Math Scratch (=SCRSTO) and RSTK levels. 

ae 

** Entry: 


xx 1) B(RA)=nsg code; B(W) used if msg has text insertion (see 
aK MFWRNQ). 
kk?) B(S)= 0 for error 


ax = 9 otherwise 

kx 3) «If B(S)=9 then 

ae P=0 ==> no sg = (used to supress nsg ) 

4% PHO ==> put out warning risg 

wk 

*k 4) «<Di=top of math stk (end of available nenory) 

pie -- used only for men chk when a warning is sent out. 
x 

tk 

ae Ett 

ae Displays warn/err tisg & rtns to main driver on an err. 
aA 

x Calls: MFWRNQ or exits thru BSERR, CHKnen, SNAPLC, 

a MOVEU3, MOVED3, SNAPR* . 

ax 

RP USES oo5o4%5 


kk Inclusive: P; A,B,0:R3; (unless an error occurs--BSERR) 
* The Math Scratch Rrea is saved to Available Menory 
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2640 a since the display routines check Service Request and 
2641 kx an Alarm calculation uses math scr. 

2642 oe 
2643 - Stk lvls: 2 1+{Levels(MFURNQ) - 2(saved Levels) ] 

4 
oe SOOO OOOO OOO OI IO OI 
2646 FO RROR II OI TO 
2647 OCC17 =MESSG Nessages (esp. for Math Routines) 
2648 OCC17 94D BHO OS Don’t HALT ? 
2649 OCCIA CO GOYES NOHALT 
2650 
2651 * HALT on ERROR * 
2652 OCCIC D9 C=B OA C(A)=ERR ASG 
2653 OCCIE 20 P= 0 std. err nsg paraneter 
2654 OCC20 8CO0 mfERR GOLONG =BSERR BASIC ERROR (MFERR) 

00 

2655 
2656 
2657 OCC26 89)  NOHALT ?P= OKP IX or XACT ( WITH NO HALT) 
2658 OCC29 OO RTNYES rtn promptly (no msg) 
2659 
2660 * —attenpt warning nsg (observe QUIET) x 
2661 * To save code, QUIET will not be checked * 
2662 * before saving away MathSCR and CPU regs. * 
2663 * (QUIET check would involve saving ptrs x 
2664 ¥ and doing a POLL on the WARN’G) x 
2665 
2666 
2667 
2668 * Save CPU info. and Math Scratch Stack (MSCR) nantissas 
2669 * to available nenory. 
2670 * 
2671 * NOTATION for connents: 
2672 & 
2673 x 
2674 x 
2675 * low --> high ren 
2676 x 
2677 ; MENS CPUST SUBST CPUEND d4 MENE 
2678 Kee wwe renner nnn n nnn nnn nnn nnn nn nnn nner nme n enema wen ennmenene 
2679 Bisae 4 | CPU .CRSTK)| MSCR OLSASAASATSTINTTTT TY... 
2680 i lilotateietahetateteiatatatatetatatetatenatenenetetanatatenetatenetstatetaansenatenataneetenetatatatatanataaadan 
2681 x 
2682 x 
2683 x 
2684 
2685 
2686 
2687 OCC2B 04 SE THEX hex arith. below on addrs. 
2688 OCC2D 20 P= 0 for LC instrs. 
2689 OCC2F 108 R3=C R3=C (preserve C) 
26%”) 
2691 * set up for CHKnen * 
2692 OCC32 137 CD1EX C=d1 


2693 OCC35 D7 D=C A 
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2694 OCC37 DA A=C A A=D=d1 
2695 OCC39 D2 C=0 A 
2696 OCC3B 3147 LC(2)  52+64 length of CPU Area + Math Scr. Area 
2697 
2698 OCC3F 8FOO GOSBVL =CHKnien not enough neriory? 
000 
2699 OCC46 49D GOC nfERR Yes 
2700 
2701 OCC49 NOERR 
2702 
2703 * set up for SNAPLC save to avail renory * 
2704 A=MENS (from CHKnern), C=CPUST-NENS 
2705 OCC49 C2 C=AtC A C=CPUST 
2706 OCC4B 135 b1=C 
2707 OCC4E 119 C=R1 C=r1 
2708 OCC51 AFF CDEX WwW D=r1, C=d1 
2709 OCC54 110 A=RO A=r0 
2710 
2711 OCC57 8FOO GOSBVL =SNAPLC save rO, ri, di, d& & msg - 47?nbs 
000 
2712 i.e. A, D , CCA), DO & BA) 
2713 
2714 
2715 * save 2 RSTK levels -- 10nibs * 
2716 OCCS5E 135 D1=C D1 -> nsq (write over nsg) 
2717 i.e. DI=SUBST (start of rstk area) 
2718 OCC61 2E P= 14 
2719 OCC63 07 SVSUBR C=RSTK 
2720 OCC65 145 DATI=C A 
2721 OCC68 174 D1=D1+ 5 
2722 OCCOB OC P=P+4 
2723 OCC6D S5F GONC SVSUBR 
2724 D1 -> CPUEND (start of destination 
2725 for MOVEU3) 
2726 
2727 
2728 - 
2729 - 
2730 x CPUST SUBST CPUEND di 
2731 RO wren nen nn nn nn nen nn nn nnn nnn nnn nnn nn nn ne ee nnn nn ee eee 
2732 x [rO,rt,d1,do.rstkO, rstki|?27e77eeee? | fA sf fff ff 
2733 Kwan nen neennnn enna nnaneneneunemneetnnamnccerensenncenas 
2734 ; i. 
2735 * 01 
2736 * 
2737 
2738 
2739 
2740 
2741 * set up for MOVEU3 -- to store MSCR area * 
2742 OCL70 1800 DO=(5) =SCRSTO start of source (NSCR) 
000 
2743 OCC77 D2 C=0 R (P=0 fron SVSUBR) 
2744 OCC79 3104 LC(2) 64 MOVE 64 NIBS OF MSCR 


2745 OCC7D 8E00 GOSUBL =NOveu3 MOVE NEN. 
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00 

2746 

2747 * update AVMEME to CPUST and save old MEME into Ri * 

2748 OCC83 133 AD1EX A=d1 

2749 OCC86 D2 (=o) OAR 

2750 OCC88 3147 LC(2) 52+64 Length of save area 

2751 OCC8C EA A=A-C A A=CPUST=d1 - (52+64 ) 

2752 OCC8E 7560 GOSUB GNENE sets DO -> AVNENE 

2753 OCC92 109 R1=C R1=MEME 

2754 OCC95 140 DATO=R A AVNENE: =CPUST 

2755 

2756 

2757 

2758 

2759 & 

2760 x CPUST CPUEND di NENE 

2761 RO wet nen nnn nner nn nnn nn nn en enn nn nn nn nnn enn n nn nee 

2762 x | CPU | ASCR OUSSSAPLPELPP INSTT 

2763 RO wan nen ere nnn nnn nner nen ne nnn nnn nnn nnn nen eee 

2764 x * 

2765 x AVMENE 

2766 a 

2767 

2768 

2769 

2770 

2771 

2772 * Put out warning message * 

2773 OCC98 AF (=B OW restore nsg code 

2774 OCC3B 28 P= 8 

2775 OCC9D 8EOO GOSUBL =MFWRNQ cks for QUIET not ON ERROR though 
00 

2776 also updates ERRN & ERRL. 

2777 

2778 * restore AVMEME -> MENE * 

2779 OCCA3 7050 GOSUB GHENE C=CPUST, DO -> AVNENE 

2780 OCCA7 111 A=R1 A=MENE 

2781 OCCAA 140 DATO=A A AVMEME -> MEME 

2782 

2783 * Set up for MOVED3 -- restore MSCR * 

2784 OCCAD DS B=C A B=CPUST 

2785 OCCAF D2 C=0) =A 

2786 OCCB1 3147 LC(2) 52+64 (P=0 fron MFWRNQ) 

2787 OCCBS C9 C=B+C A C=d1 =CPUST+(57+64) 

2788 OCCB? 134 DO=C DO=d1 (end of source) 

2789 OCCBA 1FOO D1=(5) (=SCRSTO)+64 end of destination 
000 

2790 OCCL1 D2 C=O =A 

2791 OCCC3 3104 LC(2) 64 WNIBS OF MSCR TO BE MOVED (ONLY 

2792 MANTISSAS) 

2793 OCCC7 8E0O GOSUBL =NOved3 noved MSCR back to SCRSTO 
00 

2794 

2795 * Restore the 2 saved RSTK levels * 


2796 OCCCD 2E P= 14 
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2797 OCCCF 184 RSUBR 00=D0- 5 DO -> rstk(i) 
2798 OCCD2 146 C=DATO A 
2799 OCCD5 06 RSTK=C 
2800 OCCD? OC P=P+4 
2801 OCCD9 55F GONC RSUBR 
2802 
2803 * Restore CPU info. fron avail nenory * 
2804 DO -> rstk_O Area 
2805 OCCDC 136 CDOEX C:=D0 
2806 OCCDF 135 D1=C D1 -> MSG ARER for SNAPR* 
2807 OCCE2 8EOO GOSUBL =snapr* 
0 
2808 OCCE8 100 RO=A RESTORE RO 
2809 OCCEB AFB C=) W C=ri 
2810 OCCEE 109 R1=C Restore R1=r1 
2811 
2812 OCCF1 05 SETDEC 
2813 OCCF3 6E1F GOTO RSTDEF restore C (C:=R3 & RIN) 
2814 
2815 
2816 
2817 
2818 OCCF? =GNENME GET AVMENE 
2819 OCCF? 1B00 DO=(5) =AVNENE 
000 
2820 OCCFE 146 C=BATO A 
2821 OCDO1 01 RTN 
2822 
2823 
2824 
2825 
2826 Rkesscsasscssnesrssssesrstessessrarsssrsssassssssssssssssssssses 
2827 
2828 
2829 
2830 JI I IRI I III III III IIIT IIIT IIIS IIS III III II III I IAI IG ISIS II IIS IAT IIA 
2831 KI ISI IT ISI ISIS IIS ISI ISS IIIS ISI III IIIS III ISI III ITI III ISI III TSI IAS 
2832 a 
2833 ** Narie:(S) FINITA - Is (A,B) non-finite ? 
2834 ** Nane:(S) FINITC - Is (C,D) non-finite ? 
2835 ae 
2836 ** Category:  MTHUTL 
2837 a 
2838 ** Purpose: 
2839 ae To test for finite argurients. 
2840 a 
284) AE Entry: 
2842 fs FINITA: 15-forn in AB 
2843 aR FINITC: 15-forn in CD 
2844 ae 
2845 *k Exit: 
2846 ne DEC Mode 
2847 xe Carry Set indicates non-finite 
2848 a Carry Clear indicates finite 


2849 ax 
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2850 ak 
2851 *k Calls: (None) 
2852 RR 
2853 aK Uses....... 
2854 %k Inclusive: Nothing 
2855 a 
2856 AK Stk lvls: 0 
2857 aa 
R58 JOO TOO TT TR TT 
2859 JU OOOO TR 
2860 
2861 OCD03 =FINITA 
2862 OCDO3 04 SE THEX 
2863 OCDO5 B24 A=A+1 XS 
2864 OCD08 A2C A=R-1 XS 
2865 OCDOB 05 SETDEC 
2866 OCDOD 01 RTN (carry is set for non-finite #s 
2867 and clear for finite 4s) 
2868 
2869 
2870 OCDOF =FINITC 
2871 OCDOF 04 SE THEX 
2872 OCD11 B26 C=C+1 XS 
2873 OCD14 AZE C=C-1 XS 
2874 OCD17 05 SETDEC 
2875 OCD19 01 RIN (carry set => non-finite 
2876 clear => finite ) 
2877 
2878 JX II OO 
2879 ree LNSUB 
2880 RaK 
2881 aKK INPUT: A= SIGN, EXP OF X 
2882 AER B= MANTISSA OF X 
2883 aKK Restriction: 0 <= [KX] <1 ? 
2884 ake OUTPUT: Returns X/([X1+1) in (A,B) 
2885 RAK DESTROYS: A(X), B,C,D,P,SB 
2886 REX SUBROUTINE LEVELS: 0 
2887 JOOS ICK 
2888 OCD1B AF9 LNSUB C=B W 
2889 OCDIE AF? D=C W 
2890 OCD21 D8 B=A A 
2891 OCD23 BF?  LNSUB1 DSR W 
2892 OCD26 97B 7D=0) od 
2893 OCD29 21 GOYES LNSUB2 
2894 OCD2B ES B=B+1 RA 
2895 OCD2D SSF GONC  LNSUB1 
2896 OCD30 2E p= 14 
2897 OCD32 BO? D=D+1 P 
2838 OCD35 8CEC LNSUB3 GOLONG DIV15 (OK, will not reset XM) 
7F 
2899 OCD3B AFS  LNSUB2 B=C W 
2900 OCD3E 01 RIN 
2901 
2902 


2903 FORO RIOT TTT ITI IIIT IIIT I IK 
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2904 KER LN1+X 
2905 KKK 
2906 aK INPUT: A= SIGN,EXP OF X 
2907 aa B= MANTISSA OF X 
2908 REE OUTPUT: RETURNS LN(1+X) IN STANDARD FORMAT 
2909 RaK DESTROYS: A,8,C,D,P,SB,S10,RO 
2910 RKK SUBROUTINE LEVELS: 1 
2911 JU IOI OT SOT IIIS IOI IOI ITT II SII III IS 
1 
i JOO III ISIC OCI SCO TIT TTI SOT IIT IIA 
2914 JUS ITA IOS ISOS TST S OSI III AI IIASA 
2915 ak 
2916 RK Nane:(S) LN1+15 - LN(14X) 
2917 *k Nane:(S) LN1+XF - LN(1+KX) for finite args only 
2918 an 
2919 *k Category: MATH 
2320 aK 
2921 *k Purpose: 
2922 ak To conpute In(1+x) fron x. 
2923 aK 
2924 *k Entry: 
2925 ak Standard floating point math input. 
2926 a 
2927 BX EMat: 
2928 ae Standard floating point math output. 
2929 aK XM=1 & P=3 inplies LN(0O) 
2930 ax & P=4 LN(negative) 
2931 ak 
2932 kk 
2933 tk Calls: ADDONE, LN15, 
2934 ss 
2935 Rk Uses....... 
2936 tk Inclusive: P; A,B,C,D; R regs [0]; ST.[s10]; 
2937 ak HD.ST.[SB, XM); 
2938 an 
2939 ** Stk lvis: 1 
2940 ak 
2944 JOR ISIS GIOTTO 
294? JUSSI OIG UEC TIO TOC TIT I IK 
2943 OCD40 77ED =LN1+12 GOSUB splitA 
2944 
2945 OCD44 821 =LN1+15 XM=0 
2946 OCD4? 7576 GOSUB FNPWDS (Rlso does SB=0. ) 
2947 OCD4B 550 GONC =LN1+XF finite arg. 
2948 OCD4E 403 GOC LNINF "GOTO". Sane result as LN(inf) 
2943 
2950 OCD51 84R = =LNI+XF ST=0 810 RESET NEGATIVE EXP FLAG 
2951 OCD54 ACI B=0 S 
2952 OCD5? De C=A A 
2953 OCD59 £6 C=C+1 A 
2954 OCDSB C6 = ==LN1+X4 C=C+C A EXPXK<-1? 
2955 OCDS5D 4C0 GOC LN1 4X1 Yes ( [xl < 0.1 ) 
2956 
2957 


2958 
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2959 

2960 & [x41] =< 0.9 or [xt1] >= 1.1 * 

2961 

2962 OCD60 8EAC LN1+X2 GOSUBL ADDONE COMPUTE X+1,(rnd’g bits input don’t 
SF 


2963 natter since LN(+/-O)=-Inf ) 
2964 LNi+x already weeded xcptns. 
if 2965 OCD66 6530 GOTO N30 LN(x+1) 
? 23966 
2967 
2968 
2969 
2970 
2971 
2972 
, 2973 
2974 ke 0.9 < [x41] << 1.1 * 
2975 
2976 OCD6R 948 ~ LNI+X1 7A=0 = S [x44] > 1.7 (x07) 
2977 OCDED 80 GOYES LN1+X5 
: 2978 
4 2979 % xO * 
2980 OCD6F 85A ST=1 10 neg expon flag := true 
2981 OCD72 50 GONC = 1ni+X6 "GOTO" .DECOMP prep on x (x<0) 
2982 
2983 x x= * 
2984 OCD75 72AF LNI+X5 GOSUB LNSUB FORM X/(X+1) 
2985 OCD79 6A70 Ini+X6 GOTO  LN1+X6 
2986 
2987 
2988 
2989 
2990 
2991 


2992 
2993 JO JOO IU IOI TOTTI TT TTI 


2994 FOTO ITT IIT TIS T IIIT TOK 


2995 ae 
2996 ** Name: (S) LN15 - Natural Logarithn 
2997 *X Wane: (S) LNI2 - LOG for 12-forn args. 
2998 ** Narne:(S) LN3IO  - LOG entry for finite args only. 
2999 e* , 
3000 ** Category: MATH 
x 


3002 ** Purpose: 
03 aX To compute LN(x) 


3005 ** Entry: 
3006 ae Standard floating point math input. 
x 


3008 eX Exit: 

3009 aX Standard floating point math output. 
#10 ax XM=1 & P=3 inplies LN(O) 

3011 kk & P=4 LN(negative) 
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13 ax 

14 tk Calls: SHF10, (GOES TO 0V157) 

3015 ae 

3016 ak Uses....... 

3017 kx Inclusive: P; A,B,C,D; R regs [0]; ST.[10]; 

018 aK HD. ST. [S8, XN); 

3019 ax 

20 kX Stk lvls: 1 

21 ax 

3022 JORIS IDOI ISOS OI TO OO TOT 

3023 JOU II ICIOOII GOI OO IOI OTIC T 

324 OCD7D 7AAD =LN12 GOSUB splitA 

%25 

3026 OCD81 =LN15 

327 OC081 821 xM=0 

3028 OCD84 7836 GOSUB FNPWDS pull weeds (Also does SB=0) 

3029 OCD88 531 GONC LN3O finite arg. 

3030 inf. arg. (affine node) 

3031 OCD8B 948 LNINF ?A=0 = = § +inf 

#32 OCD8E 00 RTNYES 

3033 ~inf 

3034 OCD90 20 =LNNEG P= EFIELD 

3035 OCD92 3100 LC(2) =eLOG- nsg code for LN(neg) 

3036 OCD96 8C7C INVNN) GOLONG INVNaN create NaN & sXxCPT:=1 
8F 

3037 

3038 

3039 OCD9C =LN30 LN(finite #) 

3040 OCDSC 84A ST=0 10 RESET NEG EXP FLAG 

3041 OCDSF AF2 C=0 W Init. all a(i)=0 & 150. 

3042 OCDA2 ACI B=0 S$ 

3043 OCDAS 970 7BHO OW X#0? 

3044 OCDA8 41 GOYES LN5O YES 

3045 K=0 

3046 OCDAR 20 LNZR P= EFIELO 

3047 OCDAC 3100 LC(2) =eLNo LN(O) msg code 

3048 OCDBO ACO R=0 S 

3049 OCDB3 BCC A=-A-1 $ (WANT -inf ) 

3050 OCDB6 &CC2 LNZR1 GOLONG DZINF 
7F 

3051 

3052 

3053 

3054 OCDBC 94C LN5O = ?AHO SS, K<Q? 

3056 OCDBF 1D GOYES LNNEG YES 

3056 

3057 OCDC1 D6 C=R A C=000...00] n | 

3058 OCDC3 &AE CHO) OAR n#0? 

3059 ocDté 15 GOYES LN110 

3060 

3061 

3062 

X63 

3064 


#65 
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3066 

3067 

3068 

3069 

3070 

71 

3072 

73 

74 

75 Pisces ican atu an tae eke eas x 
3076 * nO case. (1 <= x < 10) x 
R77 BUS leat we ube sees aes Dees & 
3078 OCDC8 2E 
3079 OCDCA AFY 
3080 OCDCD AF? 
3081 OCDDO ROE 
3082 OCDD3 97E 
3083 OCDD6 CO 
#84 

085 x x=1 ( In(1):20 ) * SB=0 fron FNPWDS in LN15, or 

3086 fror: ADDONE in LN1+X. 

3087 OCDD8 822 SB=0 (For other entry points 7) 

#88 OCDDB AFI B=-O =o ANSWER IS 0 

3089 OCDDE 6€11 GOTO  LNS65 (exit LNIS) 

3090 

3091 

3032 OCDE2 LN200 

3093 OCDE2 SE CHO) =~ NORMALIZE X-1 

3094 OCDES BO GOYES LN210 2 

3095 OCDE? CC A=A-1 A x 

3096 OCDE9 BF2 (StL x 

3097 OCDEC 65FF GOTO  LN200 & 

3098 * Here A(A)=expon((x-1)/x) & C= its mantissa * 

3099 

3100 

3101 OCDFO LN210 

3102 OCDFO 714F GOSUB LNSUB3 COMPUTE (X-1)/X. Then prepare for 
3103 DECOMP of 10 - 10*(x-1)/x. 

3104 & 

3105 

3106 

3107 JOG SIIB GCI OCT IIIT TT 


3108 * Preparation for DECOMP of (10-10*ly|), where Regs (A,B)=y * 
3109 JO IIIS UI OO CI OT TT TTR TOR TR 
3110 
3111 OCDF4 2E LN1+X6 P 14 
3112 OCDF6 AF2 C=0 W Init. all a(i)’s & n’ to 0. 
3113 OCDF9 108 RO=C FOR LN400 CASE (FOR RTN AFTER LNAP) 
3114 OCDFC D6 A A FOR LN300 CASE (C=I&EXP FOR DECOMP) 
C 
T 


Den 
FORN MANTISSA OF X-1 
X#1? 


VOUOl DO 
on uw i tt 
EQS 
—_ 
c-revee 


S 
< 
nm 
“” 


C 
3115 OCDFE AFA A W FOR LN400 CASE (A=EXP FOR LNAP) 
3116 OCEO1 600 GOTO LN14K7 A=C=00. ..00|expon(y) | 
3117 
3118 
3119 * Set up 10-m and i for entry into middle of DECOMP. * 
3120 OCEO5 898  LN1+X8 ?P= 8 Is {y|<10*-? ? (7) 
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3121 OCEO8 
3122 
3123 OCEOA 
3124 OCEOC 
3125 OCEOF 
3126 OCE11 
312? 
3128 OCE14 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
313? 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 OCE17 
314? OCE1? 
3148 OCE19 
3149 OCEIC 
3150 OCEIE 
3151 
3152 
3163 
3154 
3165 
3166 
315? 
3158 
3159 
3160 
3161 
3162 
3163 OCE21 
3164 OCE21 
3165 OCE23 
3166 OCE26 
316? 
3168 
31639 OCE29 
3170 OCE2C 
3171 OCE2F 
3172 OCE32 
3173 
3174 OCE36 
3175 OCE39 


2306 Page 59 
B? GOYES LN400 (use quadratic approx only--LNAP) 
Note: when P=8 then i=6. 
oD P=P-1 
BA6 C=C+1 § 1=1+1 
£6 LN1+X? C=C+1 A inc. expon 
53F GONC LN1+K8 not done ? 
471 GOC LN300 Enter Decorip. C(S)=i, B=10-10y 
"60TO" 
x eee eee wmeeeevnanenees x 
*  n#O case * 
x eee eoenwnee eevee 
LN110 
CA A=A+C A EXP<0? 
570 GONC  LN140 NO 
FE C=-C-1 A 
85A ST=1 10 SET NEG EXP FLAG 
x { nif noo. x 
* Here C(A) =n’ = ¢ x 
* { |nj-1 af no. * 
JOISTS IIIT TI TOOK 
* DECOMPOSITION on (n,n?) * 
& B=n & C(R)=n’ x 
JOO III IE II IIIT 
LN140 
2 P= 14 
B99 B=-B WP 10 - 1 
AOE C=C-1 P a(O):=-1 


Product Deconp. loops 


B6 LN310 C=C+t P ® a(i)=a(1)+1 

AFA = LN300)=—-R=B W * R(i,j)=10 - P(1#10%-1)7) 
AC? b=C S * DF1 

6600 GOTO LN3IX , 

BFS = =LN320 «BSR W * Forn R(a,))*107-2. 

ASF OLN330)OD=D-1 0S F 
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3176 OCE3C 59F GONC —LN320 x 
3177 

3178 OCE3F A78 B=A+B OW 
3179 OCE42 AAD B=B-1 S 
3180 OCE4&S 53E GONC = LN310 i 
3181 
3182 
3183 
3184 
3185 OCE4&3 B46 C=C+1 
3186 OCE4B AF8 
3187 OCE4E BF1 BSL 

3188 OCE51 OD P=P-1 

3189 OCE53 886 ?PH 6 

3190 OCE56 6D GOYES LN300 
3191 

3192 * DECONP finished * 
3193 

3194 

3195 

3196 

3197 

3198 

3199 OCE58 AFA A=C W 

3200 OCESB AF2 C=0 W 

3201 OCE5E 20 P= 0 

3202 OCE60 3423 LCHEX 99992 


999 
3203 
3204 
3205 
3206 
3207 
3208 
3209 * 
3210 x At this point: A=]8]a(O),a(1),...,a(7) [00] n’ | 
3211 RO were nnn nnnnn- B= R 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 OCE67 8AC PAHO OA n’#0 ? 
3224 OCE6A C2 GOYES LN450 
3225 
3226 
3227 
3228 
3229 * 1<x<10 case -- use quadratic approx (LNAP) * 


™» 


R(i, j)*(14107-1) 
R(i, j41)=107(-2 41) +R(2, 3)* 
(1+1 


al 


0*-1) 


i=1i+1 (next p-quot.) 
B=R(i+1,0)=10-P 

Next decade 

Point to next a(1) 

More a(i) to deternine ? 


wo 
tt 
D 


ee 0 OF OF 


C=|000.. .000|99992 (expon (R)) 


Renaining code conposes In(x) fron the DECOMPosition 
of x into a(i)’s and R (in Regs A,B & C). 


ee 6 we He 
+ & © Se SH He Oe OF 
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3230 OCE6C 
3231 OCE6F 
3232 
3233 OCE72 
3234 OCE75 
3235 
3236 
3237 
3238 OCE?7 
3233 OCE79 
3240 
3241 
3242 
3243 OCE7D 
3244 
3245 
3246 
3247 OCE80 
3248 
3249 
3250 OCE83 
3251 OCE8?7 
3252 OCE8R 
3253 OCE8D 
3254 OCE90 
3255 OCE92 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 OCES6 
3265 OCES6 
3266 OCE98 
326? OCE9B 
3268 OCE9D 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 OCEARO 
3277 OCER3 
3278 OCER? 
3279 OCERB 
3280 OCERE 
3281 
3282 
3283 
3284 OCEBO 


26 Page 61 
100 RO=A save a(i)’s & n’ 
AFE ACEX W ACR)=99992,A(S)=0; C=a(i)’s & n’ 
95E 7C#0) OWN Sone a(i)#0 ? 
BO GOYES LN420 
* ALL afi)=O 9 ( x«K 107-7 7) a 
cc A=A-1 A (A,B)=R UNNORN. (DECR EX not BSR) 
7080 GOSUB LN565 NORM. R (nant in W-field. Need to 
check for carry out in B(S)--forner 
bug for LN(1-1E-8)) 
"GOSUB MPY150" RTNS WITH CRY. CL. 
550 GONC —LN400 "GOTO" 
* Sore a(ij#O * 
BFS  LN420. BSR W R/10 
* Quadratic approx. to -1ln(1-R/10) * 
7E80 LN400 GOSUB  LNAP t/(1-t/2), where t=R/10. 
AF6 C=A W 
AF? D=C W 
110 A=RO restore a(i)’s & n’. 
27 P= ? 
6010 GOTO LN431 
* x>=10 and x<=0.1 cases. (n’#O -- linear approx) * 
LN450 
26 P= 6 
B04 A=A+1 =P Set n’#0 flag A(6)=1 for P-SUN 
27 P= 7 
AF? D=C W expon of reriainder 
x @eeevoeernereevoseveve eee eeeeeeneeesenvneeveesees ear x 
Add in P-SUM to -1n(1-R/10) approx. * 
BFS LN460 BSR Wo PSUEDO-MULTIPLY LOOP 
7032 iN431 GOSUB LNC20 * Get 1n(1+10°-1) const. 
7850 GOSUB PNUL K+ a{i)*1n(1+10%-1) 
958 7A=0 0 ON * all a(i) & n’ = 0? 
63 GOYES LN530 * Yes. Exit now to avoid 
* shifting off significant 
* digits of P-SUN - 1n(1-R/10) 
* for 0 a(i)’s. (Not "full" P-SUM) 
88F PH 15 * More a(1)’s to do” 
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3285 OCEB3 DE 
3286 


3287 

3288 

3289 

329 

3291 OCEBS AF2 
3292 OCEB8 20 
3293 OCEBR R89 
3294 OCEBD A71 
3295 OCECO BFS 
3296 

3297 

3298 

3299 

3300 OCEC3 7EC2 
3301 OCEC? 387A 
3302 OCECA 50 
3303 

3304 OCECC B7D 
3305 

3306 

330? 

3308 

3309 

3310 

3311 OCECF 7330 
3312 OCED3 8A8 
3313 OCED6 EO 
3314 OCED8 BF5 
3315 OCEDB 53F 
3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 OCEDE BFS 
3327 OCEE1 49% 
3328 

3329 OCEE4 340 
3330 OCEE? 7F 
3331 OCEES CF 
3332 OCEEB 
3333 OCEEB 7000 
3334 OCEEF AFB 
3335 OCEF2 AFA 
3336 OCEF5 86A 
3337 OCEF8 50 
3338 OCEFA BCC 
3339 OCEFD 8CD7 
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GOYES LN460 x 


* Round [1n(10/m)] (only when using "full" P-SUM. Why?) 
C=0 W 


ROUND TO 15 DIGITS 


=o Cc 
+ 
oO 
rcrrvo 


own wv 
nuiuiwd 


& B=[1n(10/n)]. (n’#O cases) 
GOS 1 


UB LNC10 FETCH LN(10) 
?7ST=1 «10 NEG EXP FOR x? 
GOYES LN520 (0<x<0.1 case) 
B=C(-B W 1ni0 - [ln(10/m)]. (%210 case) 
k k 


LN520 GOSUB PAUL Mult. digit of n’ and 1n10 
?7A=0 OA No nore digits of n’ ? 
GOYES LNS3 (exit Nts) 
BSR W next decade of n’ 
GONC LN520 "GOTO" next digit multiply 
& x 
x LN1S exit -- for all but x=1 case. * 
%  (LNT+X exit --" x70 " J 
x a 
LN540—«BSR W 
GOC LN550 "GOTO" 
LN530 ?BRO OS a carry out ? 
GOYES LN540 
D=D-1 A 
LN550 
GOSUB =SETSB set SB=1 
C=0 W 
A=C W 
?$T=0 10 NEG EXP ? 
GOYES LN565 NO 
A=-A-1 § 


LN565 GOLONG NPY150 (Changed fron SHF10 for GOSUB LN565 
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5F 
3340 above LN450 to fix LN(1-1E-8) 
3341 
3342 JOGO END LN)§ 2 dodoboGe 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 RKAKK SUBROUTINE PMUL ***e eke 
3351 
3352 OCFO3 A71 PMUL1 B=B+C W 
3353 OCFO6 AOC PMUL A=A-1 P 


3354 OCFO9 SOF GONC PMULI 

3355 OCFOC R80 A=O oP 

3356 OCFOF E7 D=0+1 A 

3357 OCF11 OC P=P+1 

3358 OCF13 01 PMUL2 RIN 

3359 JI IIIS II ITI III III IAT IIIS IITA 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 FI IIS SO II III IID ISI SII IIIS IIISISII SIS SII IID II STII ISI IIS SA 
3368 aE LNAP 

3369 RES 

3370 RRP INPUT: B=MANTISSA OF R 

3371 ak A(A)= EXPON. OF R, ACS)= sign(R) 
3372 BAT OUTPUT: RETURNS R/(1-[R|/2) INA 8B 
3373 xee 

3374 pats CONDITION: Must have input satisfying |R{<1 ! 
3375 REX 

3376 nae DESTROYS: A(A),B,C,0,P 

337? cc SUBROUTINE LEVELS: 0 

3378 JER II IIA II IIR TT OTE ETI III IIIT III TISAI SI III ISI ISI AS 
3379 OCF15 AF9 =LNAP C=B W 

3380 OCF18 AF? D=C W 

3381 OCF1B D8 B=R A 

3382 OCF1D A??7 D=0+0 W 

3383 OCF20 A7?7 D=D+D W 

3384 OCF23 A73 D=C+D W 

3385 OCF26 BF? LNAP1 DSR W 

3386 OCF29 97B 7D=0 OW 

3387 OCF2C 31 GOYES LNAP2 

3388 OCF2E £5 B=B+1 A 

3389 OCF30 SSF GONC ~—-LNAP1 

3390 OCF33 BFB D=-D OW 

3391 OCF36 AC3 D=0 S 

3392 OCF39 E4 A=A+1 A 

3393 OCF3B 69FD GOTO  LNSUB3 
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3394 OCF3F AF5 LNAP2 B=C u 
3395 OCF42 01 RT 


3396 JOU OIC OO TTT IST SAI IIIT IK 

3397 RKK EXP 

3398 RKK 

3399 RAK INPUT AND OUTPUT: STANDARD MATH. RETURNS EX 

Aw aKK DESTROYS: A,B,C,D,P,SB,S10,$11,R0 

A01 RKK SUBROUTINE LEVELS: 1 

3402 tk 

3403 KKK 

3404 KaK EX-1 

3405 hia 

3A06 kkk INPUT: STRNDARD MATH 

3407 tak OUTPUT: RETURNS EK IN ASB. 

3408 tae RETURNS (E*X)-1 IN RO,R1 

3409 fi DESTROYS: A,B,C,D,P,SB,S10,S11,RO,R1 *extas 

3410 tik SUBROUTINE LEVELS: 1 

3414 JOOS OO ITT TK 
1 t 

err JE CII ET IR 

3414 JU OUI CITE 

3415 kx 

3416 kk Wane: (S) EXP15  - EXP(x) (exponential fcn) 

3417 ** Nane:(S) EX-115 - EXP(x)-1 (EXPM1(x«)) 

3418 ** Wane: (S) DXP100 - EXP for double precision arg 

3419 aK 

Hw ** Category: MATH 

3421 ax 

3422 ** Purpose: 

3423 ie To compute ex 

24 x 

25 **% Entry: 

3426 a Standard floating point math input. 

3427 ak ( Uses $11 to distinguish e“x fron [e*x - 1] ) 

3428 an DXP100: finite args only; s11=0; RO=low order 

2g aE digits of double precision argunent. 

AR xx 

AN &* Exit: 

3432 ae Standard floating point math output for EXP15. 

3433 ax EX-115 outputs ex in (A,B)8SB and [e*x - 1] in 

3434 ak (R1,RO)&SB (SB is the sane for both). 

3435 xX 

3436 *k Calls: DBLSUB, SHFLAC,1/X15S, STAB, EXAB1 , ADDONE, SUBONE 

3437 x and other local subroutines. 

38 aK 

39 ** Uses....... 

3440 ** Inclusive: P; A,B,C,D; R regs [0]; ST.[10,11]; 

3441 ax HD. ST. [SB, XM]; 

3442 2 EX-115 also uses R1. 

3443 ae 

3444 ax 

3445 ** Stk lvls: 1 

3446 ak 

3447 ex NOTE: 


3448 aK When xpon(e%x)>19999 then EXP15(x):=9.99...99E+19999 . 
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3449 
3450 
3451 
3452 
3453 
3454 OCF44 
3455 
3456 OCF48 
3457 OCF48 
3458 OCF4B 
3459 OCF4E 
3460 OCF52 
3461 
3462 OCF56 
3463 OCF5A 
3A64 OCFSA 
3465 OCF5D 
3466 OCF 60 
3467 OCF64 
3468 
3469 
3470 OCF67 
3471 OCFER 
3472 
3473 
3474 OCFeC 
3475 OCFEF 
3476 OCF?2 
3477 
3478 
3479 
3480 OCF 76 
3481 
3482 
3483 OCF 76 
3484 
3485 OCF 79 
3486 OCF 79 
3487 OCF?7C 
3488 OCF 7F 
3489 OCF ?7F 
34% OCF82 
3491 OCF85 
3492 OCF8? 
3493 
3494 OCF8A 
3496 OCF 8D 
3436 OCF 90 
3497 OCF92 
3498 OCF 95 
3499 OCFS9? 
3500 
3501 OCF 9A 
3502 OCF SC 
3503 OCF SF 


73€B 


821 
858 
7784 
6D00 


7108 


821 
84B 
7084 
541 


948 
80 


AFO 
AFI 
6E92 


821 


AF2 
108 


858 
94C 
50 

84h 


ACO 
AF3 
bé 
AC? 
C6 
582 


De 
949 
BO 
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ax 
ax 
ak 


When . 
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< -19999 then EXP15(x):=9.9..99E-19999 . 


SOR RJT TOT TO 
FOO TOTO TIT TTT TTT TTT TOK 


=EX-112 
=EK-115 


=EXP12 
=EXP15 
=EXP154 
=EXP90 


x Inf 


&  -Inf 


exp710 


=EXP164 


=EXP100 


=DXP100 


EXP110 
EXP115 


GOSUB splitA 


KN=0 

ST=1 11 
GOSUB STABI 
GOTO EXP90 
GOSUB splitA 
XN=0 

ST=0 11 
GOSUB FNPNDS 
GONC EXP100 
argument * 


7A=0 SS 
GOYES exp710 


argunent * 


A=0 W 

B=0 W 

GOTO EXP710 
Xf=0 

C= W 

RO=C 

ST=1 10 
PAHO OS 
GOYES EXP110 
ST=0 = 10 

A=0 S 

D=0 W 

C=A A 

C=0 S 
C=C+C A 

GONC DXP200 
C=A A 

?B=0 = S 
GOYES EXP120 


SET E*X-1 FLAG 
(For NaN input only) 


INIT ex - 1 flag to false. 
(Also does SB=0) 


tInf ? 
EXP(+Inf) = +Inf 


EXP(-Inf) = 0 


assunes 16 digit nornal finite no. 
NO NaN,inf or denorn handling !!! 
input: s11=1 for [Y°X-1] 


(lou digits of dbl x ) 
DBL EXP (RO= LOW DIGITS) 
INIT neg nant flag 

X NEG? 

YES 

RESET NEG MANT FLAG 


clear p-quat&exp ans (for neg expn) 
22??? needed for neg expn case?? 


NEG EXP? 
NO ( n>=0) 


16 DIGIT MANTISSA? 
NO 
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3504 
3505 * 16 digit mantissa & 
3506 OCFR1 E4 A=A+1 A 
3507 OCFA3 BFS BSR W 
3508 OCFRE 69EF GOTO EXP115 
3509 
3510 
3511 
3512 
3513 x |x| <1.) case, so x 
3514 * prepare for DECOMPOSITION; * 
3515 *  deternane how small |x| is * 
3516 
3517 OCFAR 2F EXP120 P= 15 
3518 OCFAC OD EXP130 P=P-1 
3519 OCFRE 896 ?P= 6 |x| < 1&-8 ? 
3520 OCFB1 BO GOYES EXP131 
3521 OCFB3 E6 C=C+1 
3522 OCFBS 56F GONC EXP130 
3523 OCFB8 6&70 GOTO EXP400 enter DECONMP. 
3524 OCFBC 6180 EXP131 GOTO EXPS5O0 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 SII III Ie 
3536 * {|X| >= 1 case * Double Reduction by Ini0 (x’=x-n’*1ni0) 
3537 JOG UII OIE 
3538 
3539 OCFCO 120 DXP200 RROEX RO=0...XPON(X); A=X_low 
3540 OCFC3 AFC ABEX W A=X_high; B=X_low 
3541 
3542 x Extra Precision 1n10 k 
3543 OCFC6 AF2 C=0 W 
3544 OCFCS 2C P= 12 
3545 OCFCB 3348 LCHEX 5684 (low digits = 5684018- ) 
65 
3546 OCFD1 AF? D=C W 
3547 OCFD4 7AB1 GOSUB LNC10+ + LNIO 
3548 OCFD8 CE C=C-1 A (C,D)=2. 25 85092 99404 / 56840..0 
3549 OCFDA AFD BCEX W 
3550 OCFDD 02 C=0 A 
3551 A=...X_high... 
3552 B=0230258509299404 
3553 C=...X%_low. .00000 
3554 D=568400... .00000 
3555 
3556 RO=0-------- xponx 


3557 OCFDF 25 P= 5 
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3558 OCFE1 
3559 
3560 
3561 OCFE3 
3562 OCFES 


3563 OCFEB 
3564 OCFEE 


3565 OCFF4 
3566 OCFF? 
3567 OCFF9 
3568 OCFFC 
3569 OCFFF 
3570 00002 
3571 

3572 00004 
3573 

3574 

3575 

3576 00008 
3577 ODOOB 
3578 ODOOE 
3579 ODO11 
3580 00014 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3583 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3593 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 00028 
3609 ODO2B 
3610 ODOZE 


00016 
ODO1A 
0D01D 


OO1F 
ODO22 
00025 
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cE C=C-1 A 

* Perforn a double precision reduction by 1n10 * 
£6 DXP210 C=C+1 A COMPUTE XPON ANS 
8EOO DXP220 GOSUBL =DBLSUB x’ -1n10 
4) 
57F GONC DXP210 
8E00 GOSUBL =SHFLAC DBL SHIFT 
00 
120 AROEX 
CC A=A-1 A DEC XPON(X) 
120 AROEX 
480 GOC DXP225 
90A 7C=0 =P EXPON ANS <=999997 
3E GOYES OXP220 
62F 1 GOTO OVF-15 (OV/UN occured) 
B96 = DKP225 “CSR WP shift expon ans back 
AF 8 B=A W B=X_hagh 
110 A=RO A=0...99999 ? 
AF 3 D=0 W (zero for p-quots) 
D7 d=C A D(A)=expon ans 
7701 GOSUB OVF15? check OVF/UNF 
5C1 GONC EXP400 no internal exception 
01 RTN 

JORSOGUOUO OVE/UNF ext of EXP 22300 U aR Ot Ob Ook 

SOO OI ITOK 

* DECOMPOSE x’ * 

FORO RR 

PSUEDO-DIVIDE LOOP 
BO7 = EXP410 D=D+1 P * build a(i) 
B71 = EXP420 B=B-C Wl * R(1) = R(i) - In(1+10%-1) 
59F GONC EXP410 . 
x 

A71 B=B+C WW ARC a) 
897 ?P= ? ‘ 
01 GOYES EXP500 . 
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3611 

3612 0D030 BF1 
3613 00033 CC 
3614 0D035 OD 
3615 0D037 78A0 
3616 0D03B 46E 
3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 ODO3E 
3632 ODO3E 86B 
3633 00041 21 
3634 00043 AFB 
3635 00046 108 
3636 0D049 78CE 
3637 

3638 ODO4D 118 
3639 OD050 AF? 
3640 

3641 

3642 00053 D6 
3643 0D055 2F 
3644 00057 307 
3645 ODOSA 26 
3646 ODOSC 8AB 
3647 ODOSF 50 
3648 00061 B07 
3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 00064 3958 
3657 00067 F4 
3658 00069 OC 
3659 OD06B 90B 
3660 ODO6E 42 
3661 0D070 ROF 
3662 00073 AF4 
3663 00076 AC? 
3664 00079 550 
3665 
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x 
BSL WW * next decade 
A=A-1 A * exponent of renainder 
P=P-14 x 
EXP400 GOSUB LNC20 * FETCH LOG CONSTANT 
COC EXP420 * "GOTO" (LNC20 HAS RTNSC) 


SOOO TOO RIOR IT R IOI RII 


x Conpose [e%x’ - 1} x 
SII OI II GOK 


EXP500 
*S$T20 «(11 E“x-1? 
GOYES EXP565 NO 
c=) 6 
RO=C SAVE PQUOT AND EXP ANS 
GOSUB LNAP COMPUTE R/(1-R/2) 
Quadratic approx. of eR - 1 
C=RO 
D=C W RESTORE PQUOT AND EXP ANS 
EXP565 C=A A 
EXP570 P= 15 
LCHEX 7 1=7 
P= 6 
7D=0 =A ZERO EXP? 
GOYES EXP550 YES 
D=D+1 P SET D(6)=1 (flags n’#0 ). 


* Start Composing [e*x - 1] * 


» FORM PRODUCT 
EXP550 7D=0) =o PQUOT AND EXP ANSWER = 0 ? 
GOYES EXP600 YES ({x| < In2) 
P=P+1 
EXP560 7D=0 =P 
GOYES EXP520 
D=D-1 P won’t carry since DHO P . 
A=B W 
D=C S$ D(S)=i 
GONC EXP530 "GOTO" 
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3666 

3667 ODO7C BF4 

3668 ODO7F A4E 

3669 ODO82 59F 

3670 

3671 OD085 A78 

3672 0D088 B45 

3673 0DO08B ACB 

3674 ODO8E 6CDF 

3675 

3676 OD092 E6 

3677 00094 BFS 

3678 ODO97 AGE 

3679 ODOSA 590 

3680 

3681 

3682 

3683 

3684 x 

3685 x 

3686 x 

3687 ODOSD DB 

3688 ODOSF BOS 

3689 ODOR2 DA 

3690 ODOR4 ACO 

3691 

3692 ODOA? 86A 

3633 ODOAA 80 

3694 ODOAC 8E29 
2F 

3695 ODOB2 6E51 

3636 

3697 * 

3638 

3693 

3700 

3701 

3702 

3703 

3704 

3705 

3706 * 

3707 . 

3708 ODOB6 ACO 

3709 OD0B39 DA 

3710 ODOBB 86A 

3711 ODOBE 90 

3712 

3713 % 

3714 ObOCO BCC 

3715 ObOC3 745C 

3716 

3717 A 

3718 ODOC? 86B 

3719 ODOCA 60 
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EXPS40 ASR W 
EXP530 C=C-1 $ 
GONC  EXP540 


B=A+B W 
B=B+1 § 
C=0 S 
GOTO EXP560 
EXP520 C=C+1 A 
BSR W 
C=C-1 S$ 
GONC EXP550 


End Corposition 
|x| >= In2 case 
fe*x’ - 1] 

A 

Pp 

A 

Ss 


DwDmDvoom 
ee 
oowoo 
+ 
_ 


?S8T=0 10 

GOYES EXP521 

GOSUBL 1/X15S 
EXP521 GOTO EXP710 


EXIT EXP - 


x 
x 
x 
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forn [P(1#10*-i)*j - 10)*107-i 


[ " ](1+#10%-1) 
vee + 10%(-141) 
1 


expon ans = n 
nant ex’ 


Here (A,B)=e*|x| 
NEGATIVE MANTISSA? 
NO 


ex 


All remaining p-quotients are 0, and expon(ans)=0 * 


lee. |x| < ln2 
EXP600 A=0 S 
A=C A 
*ST=0 «10 
GOYES EXP?40 


x<Q case a 
A=-A-1 § 
GOSUB LNSUB 


have [ex - 1]. 
EXP740 ?ST=0 11 
GOYES EXP750 


0 <= [e“Ix] - 1] «1. 


NEGATIVE NANTISSA? 
NO 


E“X-1 WANTED? 
NO 
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3720 
3721 ODOCC 7903 GOSUB STAB STORE £°X-1 IN MATH SCRATCH 
3722 
3723 ODODO EXP750 
3724 ODODO 979 B20) OW [ex - 1) = 0? 
3725 ODOD3 RO GOYES EXP760 Yes (0+1 will clear SB on exit) 
3726 
3727 ODODS 7400 GOSUB EXP760 ex (ADDONE may clear SB !) 
3728 ODODS 6000 GOTO =SETSB SB:=1 since x#0; exit EXP. 
3729 
3730 ODODD 8C15 EXP760 GOLONG ADDONE COMPUTE e*x. ([e*x-1]+1 #0 so 
2F 
3731 ignore rnd’g bits input) 
3732 Bea nnn nner n nner nnn nn nnn nner nen nn ence renee n nn nw econ een k 
3733 
3734 
3735 
3736 
3737 
3738 
3739 OD0E3 LNC 20 RTNS WITH CARRY SET. 
3740 ODOE3 AF2 C=0 W 
3741 ODOEG 89E 2p 14 
3742 ODES 03 GOYES LtNC30 
3743 ODOEB ASE C=C-1 fA 
3744 ODOEE 304 LCHEX 4 
3745 ODOF1 B56 C=C+1 
3746 ODOF4 89D ?P= 13 
3747 ODOF7 64 GOYES LNC40 
3748 ODOFS 89C ?P= 12 
3749 ODOFC 65 GOYES LNC5O 
3750 ODOFE 898 ?Ps 11 
3751 00101 46 GOYES LNC60 
3752 ODI03 839A ?P= 10 
3753 00106 07 GOYES tNC70 
3754 00108 899 ?P= 9 
3755 OD10B A7 GOYES LNC8O 
3756 OD10D 897 ?P= ? 
3757 00110 DO GOYES LNC90 
3758 OD112 20 = 0 
3759 00114 3233 LCHEX 333 
3 
3760 00119 28 P= 8 
3761 OD11B 02 RTNSC 
3762 OD11D 20 LNC9O) P= 0 
3763 OD11F 303 LCHEX 3 
3764 ODI22 27 = ? 
3765 OD124 01 RTN 
3766 OD126 20 LNC3O P= 0 
3767 00128 3E54 LCHEX 693147180559945 
9955 
0817 
4139 


6 
3768 OD139 2E P= 14 
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3769 OD13B 01 

3770 OD13D 20 

3771 OD13F 3094 
2340 
8971 
013 

3772 ODI4E 2D 

3773 OD150 01 

3774 00152 20 

3775 OD154 3A80 
8613 
5803 
3 

3776 OD161 2C 

3777 OD0163 01 

3778 OD165 20 

3779 OD167 3833 
5380 
333 

3780 OD172 2B 

3781 0D174 01 

3782 OD176 20 

3783 00178 3638 
0333 
4 

3784 00181 2A 

3785 00183 01 

3786 OD185 20 

378? OD18? 3433 
333 

3788 ODI18E 29 

3789 00190 01 

3790 

3791 OD192 AC2 

3792 00195 20 

3793 00197 3E50 
4992 
9058 
5203 
2 

3794 ODIR8 01 

3795 

3796 

379? 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 
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LNC40 


LNCSO 


LNC60 


LNC70 


LNC80 


LNC 10+ 
=LNC10 


RIN 
p= 
LCHEX 


RIN 


LCHEX 


RTN 


LCHEX 


RIN 


LCHEX 


- 
= 


RIN 
p= 
LCHEX 


RTN 
C=0 


LCHEX 


RIN 
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0 
3101798043249 


13 


0 
33085316808 


12 

0 

333083533 

11 

0 

333383 

10 

0 

33333 

S FOR +1n10 


0 
230258509299405 


FOO III TOI II 
FORO III COI IOI TTI TI IK 


xk 


x 


*k Category: 
k 


** Purpose: 
To conpute the base 10 logarithn of x. 


** Entry: 


®& Wane:(S) LGT15 - Log base 10 
* 


MATH 
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3809 aK Standard floating point math input. 

3810 x 

3811 ** Exit: 

3812 ax Standard floating point math output. 

3813 ae 

3814 tk Calls: NRNLAB, EX15, LN15, LNC10+, DV15S, MAKE 

3815 aK 

3816 RR USOS3 vas aas 

3817 *k Inclusive: P; A,B,C,D; R regs [0}; ST.[10]; 

3818 x HD. ST. [SB, XM]; 

3819 ak 

3820 ** Stk lvls: 2 

3821 kk 

3822 *k NOTE: 

3823 ae LGT(10%n) returns n exactly. 

3824 ax 

3825 SOIT OR TTT TO TOT OIE 

3826 JU ISIDORE TTI 

3827 

3828 ODIAR 7079 =LGT12 GOSUB splitA 

3829 ODIRE =LGT15 

3830 ODIAE 8E12 GOSUBL NRALAB This will nake Inf & NaN nant#! 
5F 

3831 OD1B4 94C RHO OS A<O (or =-0 ) 

3832 OD1B7 FO GOYES LGT5O use usual code 

3833 

3834 * check for LGT(10%n) * 

3835 OD1B9 8£00 GOSUBL =MAKE1 C:=0100...00 & conpare with B 
00 

3836 ODIBF 560 GONC  LGTSO Nant#1 

3837 ODIC2 6000 GOTO =EX15M rtn expon(x) exactly. 

3838 

3839 

3840 

3841 OD1C6 77BB LGT5O GOSUB LN15 COMPUTE LN(X) 

3842 ODICR 831 ?XM=0 No LN xcpt’n occurred? 

3843 ODICD 40 GOYES xXLOG20 

3844 ODICF 01 RIN LGT(x) = LN(x) if x=0 or «<0, 

3845 Sane error nsg., too. 

3846 

3847 

3848 * usual code * 

3849 OD1D1 7DBF XLOG20 GOSUB LNC10+ LN10 

3850 OD1D5 AF3 D=0 W 

3851 OD1D8 AFF CDEX W 

3852 ODIDB 8C5D GOLONG DV15$ LN(X)/LN10. SB=O here, only if 
2F 

3853 x = Inf or NaN (x=1 already trap- 

3854 ped out). 

3855 

3856 

3857 S03 END LGT75  éaebuotat 

3858 

3859 


3860 
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3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3870 ODIE1 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 ODIE1 24 

3880 OD1E3 908 

3881 ODIE6 DO 

3882 OD1E8 ROF 

3883 ODIEB 90F 

3884 ODIEE 90 

3885 OD1FO B07 

3886 ODIF3 2E 

388? ODIFS 03 

3888 

3889 

3890 ODIF7 AF2 

3891 ODIFA 2E 

3892 ODIFC ATE 

3893 ODIFF AFS 

3894 OD202 24 

3895 0D204 301 

3896 00207 86A 

3897 OD20A 40 

3898 OD20C FR 

3899 OD20E AFA 

3900 

3901 

3W2 00211 

3903 00211 868 

3904 00214 00 

396 

3906 

3%? 

3908 OD216 7FBI 

3909 OD21A 8E70 
1F 

3910 

3911 OD220 7301 

3912 OD224 02 

3913 

3914 
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=OVF15? 


EXP240 


=OVF-15 


EXP 700 


EXP?710 


p= 
2D=0 
GOYES 
D=0-1 
20HO 
GOYES 
D=D+1 
P= 
RTNCC 


Oo 


?S$T=0 
RTNYES 


GOSUB 
GOSUBL 


GOSUB 
RTNSC 


4 
Pp 
EXP240 


OVF-15 
14 


11 


STABI1 
SUBONE 


EXAB1 
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input: D(R)=|expon| 
$10=sign of expon 
si1=will put rstl-1 into RO&1 
output: carry clr ==> no xcpt 
uses only P:=14. 
carry set ==> xcpt. and 
(A,B): =9.99, "E(+/- )19999, 
uses ABC8D,P. 


EXP ANS <=99997 
YES 


EXP ANS >19999? 


no internal xcpt 


OVER-UNDERFLOW. create reslt. 


C(A)= 19999 (for OVFL) 
NEGATIVE MANTISSA FLAG SET? 

NO 

C(A}=80001 (-19999 for UNDFL) 


E*X-1 NOT SET? 


STORE E*X 
COMPUTE e*x-1 (#0 here, would be 


inacc,so ignore rnd’g bits input) 
EXCHANGE E*X AND E*X~-1 
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3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 JO OTTO TK 
3924 x PURTEN a 
3925 JI I TT 
3926 
3927 00226 PWRTEN special code for (1x10%k)N. 
3928 INPUT: (A,B)=¥, (C,D)=N. 
3929 Y,N 
39% 0D226 7000 GOSUB =EX15N 
3931 OD22A 8EARO GOSUBL =MP2-15 kN in +/-{0,1,2,...} 
oF 
3932 O02 384A ST=0 = 10 S10=SGN OF KN 
3933 00233 948 A=0) S 
3934 00236 50 GOYES PWR40 
3935 00238 85A ST=1 10 
3936 0D23B D2 PWR4O 8 C=0 A 
3937 00230 20 P= 0 
3938 OD23F 34 LCHEX 4 
3939 00242 886 7AC OR expon(kN)>4 (i.e. >5 digits) 
3940 00245 2B GOYES OVF-15 OVF/UNF create 9.9..E(+/-)19999 
3941 according to s10. 
3942 
3943 00247 811 BSLC * Shift kN into expon field. 
3944 OD24A 811 PWREO BSLC x 
3945 00240 CC f=A-1 A & 
3946 OD24F SAF GONC  PWREO k 
3947 
3948 OD252 03 C=B A 
3949 00254 D7 D=C A D(A):=ans expon ({KN|) for OVF15? . 
3950 0D256 778F GOSUB OVF15? OVF/UNF ? (looks at s10) 
3951 OD25R 400 RTNC yes. rtn 9.99..E(+/-)19999. 
3952 
3953 
3954 
3955 0D25D DB C=0 A 
3956 OD25F DA A=C A restore legal expon. A(A):=(kN] 
3957 00261 86A ?$T=0 10 Sgn(kN)="4" ? 
3958 00264 40 GOYES PWR8O 
3959 0D266 F8 f=-A8 A KN 
3960 
3961 OD268 ACO PWR8O A=0 S 10°KN 1s non-neg. 
3962 0D26B AF1 B=0 W Make Mantissa = 1. 
3963 OD26E B05 B=B+1  P (P=14 FROM OVF15? ) 
3964 00271 5SF3 GONC EXP710 "GOTO" 
3965 Konan ~~ +--+ == k 
3966 
3967 


3968 FOI TO JOR TOUT TT TOTO I 
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3969 I ICIS III IOUT ITO 
3970 a 
3971 ** Nane:(S) YX2-15 - Y to the X power 
3972 ** Nane:(S) YX2-12 - Y°X for 12-forn argurients 
3973 aa 
3974 *k Category: MATH 
3975 KK 
3976 *k Purpose: 

397? ak To compute yx 
3978 am 
3979 ** Entry: 
3980 ak Standard floating point triath input. 
3981 ak s11 can be used to compute [Y°X - 1] by entering 
3982 KK later with s11=1. 
3983 aK 
3984 Kk Exit: 
3985 xx Standard floating point math output. 
3986 Kx 
3987 kk Calls: LN, EXP 
3988 x 
3989 Kk Uses....... 
399 *k Inclusive: P; A,B,C,D; R regs [0,2,3]; ST. [sY=INF(s8),10,11); 
3991 xx HD.ST.[SB, XM]; 
3992 aK [y*x - 1] uses R1 also. 
3993 ae 
3994 ** Stk lvls: 3 
3995 km 
3996 ** NOTE: 
3997 ak If fy*x| > 1&20000 or <1£-20000 then y*x-->1E(+/-)20000, 
3998 - these are the internal ovf/unf thresholds. 

x 
oe JO ISI UII IOC UOT TTI 
4001 JOE IOS OCI IOI CTT IT TE 
42 ON274 =YK2-12 
4003 00274 8EAB GOSUBL SPLTAC 

6F 
4004 0D27A~A =Y¥X2-15 
4005 OD27A 821 XN=0 
406 0D27D 822 SB=0 
400? 010280 7000 GOSUB =MSN15 ELIMINATE NANS 
4008 00284 400 RTNC return with correct NaN 
4009 00287 848 ST=0 11 
4010 OD28A 848 ST=0 = SY=INF init yHinf 
4011 OD28D ACI B=0 8 CLEAR ANY JUNK 
4012 00290 AC3 D=0 S 
4013 00293 8EC3 GOSUBL NRMLAB 
4F 

4014 00299 550 GONC = YX3 finite y 
4015 
4016 * y=inf RECALL: inf has nant#O & expon=O0FOO fron NRALAB 
4017 O029C 858 ST=1 9 sY=INF 
9018 
4019 
4020 OD29F YX30 


4021 ODCSF 8E1B COSUBL NRMLCD 
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6F 

4022 

4023 

4024 

4025 

4026 

4027 

4028 OD2AS 7E71 

4029 OD2A9 948 

4030 OD2AC 60 

4031 

4032 OD2AE 6880 

4033 

4034 00282 97D 

4035 0D2B5 60 

4036 0D2B7 62E0 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 0D2BB 

4054 

4055 0D2BB 8E00 
00 

4056 0D2C1 5C2 

4057 

4058 

4059 

4060 

4061 

4062 

4063 0D2C4 7451 

4064 0D2C8 734A 

4065 OD2CC 412 

4066 OD2CF 8E2C 
3F 

4067 0D2D5 D7 

4068 0D207 8E71 
4F 

4069 OD2DD DB 

4070 OD2DF D3 

4071 OD2E1 8E0B 

3F 
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* NOTE: for x=inf NRMLCD yields: nant#0 & expon=00F00 


finite & +/- inf cases 


GOSUB STCD2 STORE X AWAY. Y STILL IN ABB 
7A=0)— § y >= +0? 
GOYES Y¥x050 YES 
GOTO Yx200 (y <= 0) 
=¥XOSO0 7BHO WW YHO? 
GOYES Yx055 YES 
GOTO YX700 (y=+0) 
BIOTIC T IT 
* Y> +0 case * 
SII III OI IT TR IITA M 
¥X055 Y,X R283 = X 
* test for mant(Y)=1 * 
GOSUBL =MAKE1 C:=0100...00 & is compared with B. 
GONC YxXO56 Nant#1 


x  Mant(y) = 1 x 


* if Y is non-integer or X=Inf then goto usual code * 


GOSUB RCCD2 Y,x R283=X 

GOSUB FINITC x<Inf ? 

GOC YXO056 send (1x10°k)*Inf thru usual code. 
GOSUBL XYEX ‘X,Y 

p=C A save 

GOSUBL CLRFRC N,Y’ (carry set if integer) 

C=D A 

D=0 A restore 1 rant. 

GOSUBL XYEX Y,N (preserves carry) 
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4072 OD2E? 
4073 OD2ER 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 OD2EE 
4083 
4084 OD2EE 
4085 OD2F2 
4086 
4087 OD2F6 


4088 
4089 OD2FC 
4090 OD2FF 
4091 
4092 
4093 0D301 
4094 0DW3 
4095 0035 
4096 0039 
4097 OD30C 
4098 
4099 
4100 
4101 ODWE 
4102 
4103 
4104 0D312 
4105 
4106 00315 
4107 00318 
4108 0D31B 
4109 00310 
4110 
4111 
4112 
4113 


26 


560 
6B3F 


x Nant(y) # 1 


x 
YX056 


7F 8A 
7621 


8EE3 
1F 


831 
32 


x 


20 
D2 
3100 
878 
90 


3100 


5E3 


AFO QNE15 
AF 1 

2E 

BOS 


4114 00320 00 


4115 
4116 
4117 
4118 
4119 
4120 
4121 00322 
4122 00325 
4123 0032? 
4124 
4125 


GONC 
GOTO 


GOSUB 
GOSUB 


GOSUBL 


?XxM=0 
GOYES 


P= 
C=0 
LC(2) 
?ST=1 
GOYES 


Lc(2) 


GONC 


R=0 
B=0 
P 
B 


mo 6 


B+1 


RTNSAM 


Nath Routines - Part 1 «831213 


YXO56 
PWRTEN 


or 


here (A,B)=y and SCR2=x 


LN15 
RCCD2 


MP2-15 


YXO60 


exception on x*lny 


EFIELD 
A 
=eINF 
SY=INF 
ONE15 


=e1°INF 


Ivn 


u- cK 
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KX 1s non-int, goto usual code. 
use special (1x10%k)°N algor. (gives 
exact 10°499,10°-499, etc.) 


x non-int x 


x 
usual e“(x*ln y) calculation. 


COMPUTE LN(Y) 
FETCH X TO C&D 


(no xcpt mill occur) 


COMPUTE X*LN(Y) 


(XM set properly) 
no xcpt’n? 


Y= F730 IO IO IR 
SOOO PQ ep Saeo ok 
JI IIIT IIIT TAI 


JOO IO TK 
JOOLIIIOE TAT nf ep 0G UR 
JIU ITO TI TK 


"goto" INVNaN 


P=TYPO°O EXCEPTION 

1 

(gosub EXP710; P=14. will correct 
this case for [Y°K-1] BUT still 
the nsg code in C(A) 1s last) 


kM=1 for uRESt2 


* Computed x*in(y) with no exceptions * 


94F =YXO60 
60 
683 

SII 


*DHO 
GOYES 
GOTO 


EXIT 


S 
YX100 
EXP9) 


KRRAERKAKK 


16 DIGIT RESULT? 


EXP. (does not alter sti, 
allons for [Y°X - 1] calc’n. 
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4126 
4127 
4128 
4129 
4130 


4131 * 16 digit result of x*In(y) 


4132 0032B CC YX100 A=A-1 A 

4133 OD32D AFB C=) W 

4134 00330 AFD BCEX W 

4135 00333 624C GOTO EXP16M 
4136 


4137 JOG BT got 


4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 JOO I TT IOK 
4152 * Y = ~-O * 
4153 FOO IIR 
4154 

4155 0D337 73D0 YX200 GOSUB EXAB2 
4156 0D33B D6 C=A A 
4157 00330 C6 C=C+C A 
4158 OD33F 551 GONC §  YxX400 
4159 

4160 x O<[x}<t * 

4161 

4162 OD342 78C0 YX250  GOSUB EXAB2 
4163 ODHM6 9793 ?B=0) OW 
4164 00343 15 GOYES YX700 
4165 

4166 00348 NONINT 
4167 OD34B 20 

4168 

4169 OD34D 3100 LC(2)  =eNEG*X 
4170 

4171 0D351 644A = Ivn GOTO  INVNN) 
4172 


P= EFIELD 


4173 

4174 

4175 

4176 OD355 8E2E YxX400 GOSUBL INFR15 
3F 

4177 OD35B AC3 D=0 S 

4178 OD35E 88F ?PH 15 


4179 00361 RO GOYES Yx450 
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k 
DEC EXP 


USE 16 DIGIT MANTISSA 
COMPUTE E*(X*LN(Y)) 


SCR=¥, A&B = X 


ABS(K) < 1? 
'X!>=1 or =0 (non-neg expon) 


(A,B)=¥, (R2,3)=x 
Y=0? (tests for Y=-0 here) 
-O*nonint: rtn -O or -Inf 


JIG TTI TTT 
III neg™(non- int) ERR 
JIS IIIT TT TTT TTT TE 


(INVNaN) 


x, SCRey 


init to “even” for >15 dig # 
< 15 digits 
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4180 
4131 x P=1h—* 
4182 00363 8AE ?C#O 8 OA >15 DIGITS (nust be even) 
4183 0D366 B1 GOYES YX5S0 
4184 00368 570 GONC YX500 =15 DIGITS 
4185 
4186 
4187 
4188 
4189 OD36B 91D YxX450 ?BHO WP Is X non-integer ? 
4190 OD36E 4D GOYES Y¥X250 
4191 
4192 
4193 
4194 x Test N (int. x) for even/odd * 
4195 00370 OC YK500 «= P=P+1 POINT TO LSD INTEGER PART OF X 
4196 0D372 A893 C=B P 
4197 00375 ACG C=C+C P 
4198 0D378 AD6 C=C+C P 
4199 0D37B AOS C=B+C P LSD MOD 2 
4200 OD37E A87 D=C P D(P):= N nod 2 
4201 
4202 00381 7980 YxX550 GOSUB EXAB2 A&B = Y, SCR=N 
4203 00385 ACO A=0 S 1Y} 
4204 00388 390B 7D=0 =—~P X EVEN? 
4205 0D38B BO GOYES YxX600 YES. Conpute |y|7N 
4206 OD38D 712F GOSUB Yx050 Conpute |y|*X 
4207 00391 BCC A=-A-1 S$ -lyION 
4208 00394 01 RIN 
4209 
4210 
4211 0D396 6BIF YxX600 GOTO  Yx050 COMPUTE Y°X 
421 
a S3OOO EXTTS for negTintege r 22000 RI RIA 
4214 
4215 
4216 
421? 
4218 
4219 
4220 
4221 
4222 
4223 
9224 
4225 JI IOI I III 
4226 * Y=0O case . 
4227 JI SII TIT 
4228 
4229 OD39A 7E70 YK700 GOSUB RCCD2 Y=+/- 0. RECALL X IN C&D 
4230 OD39E 20 P= EFIELD 
4231 OD3AO 97F ?DHO OU KHO? 
4232 OD3A3 CO GOYES Y¥xX750 
4233 OD3A5 De C=0 A 


4234 SISO III TIT 
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4235 OD3A7 3100 
4236 

423? 

4238 OD3AB 696F 
4239 

4240 OD3AF 394A 
4241 OD3B2 AO 
$242 

4243 

4244 0D3B4 3100 
4245 

4246 

4247 0D3B8 6DF9 
4248 

4249 OD3BC 645E 
4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 OD3CO 822 
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LC(2)  =e0% TIKI OND ERR Ki 
FORK I IIIT ITI IIT DI ITA 
GOTO ONE15 "goto" 
YX750 ?*€=0 = § X NON-NEG? (A,B)=y=+0 
GOYES Y¥X800 YES 
SII II III I TIT IK 
LC(2)  =e0°NEG REKAKR ovneg err Rxrkkh 
JOR IIIT RTI I TAT IK 
GOTO LNZR1 +/- Inf (golong DZINF) 
YX8OO GOTO EXP710 ANSWER IS 0 


FOR IR J JIOIOR TOO TT 
SOIT OTTO 
xk 


&* Nane:(S) FNPWDS - Weed out NaNs and Infs 
ae 


*X Category:  MTHUTL 

x 

** Purpose: 

a To handle NaN and Inf as argunents to functions. 


&* Entry: 
x AB=x 


ax Exit: 

an If x is 

an 1) finite ==> 

xk 2) inf ==> RTNSC 
ae 3) NaN ==> abort call’g fn (C=RSTK) 
a RTN with x Uinput NaN) 
ax DEC Mode 


aw 


kk Calls: FINITA 

ke 

kk Uses. ...... 

kk Inclusive: C(A) 

kk 

kK Stk lvls: 0 {Uses C(A) to save the level.) 

kk 

OGIO OO IOC IOI OO I TTT IK 
JOC III IT ITO TIS IIIS ITT III I ITI I III 


=FNPWDS SB=0 init exact. 
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429 


4231 OD3C5 7A39 
4292 OD3C9 460 


4293 
4294 
4295 


4296 OD3D0 96 


4297 
4258 
4293 
49M 
41 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4339 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
432? 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4336 
4336 
433? 
4338 
4333 
4340 
4341 
4342 
4343 
4344 


0D3C3 07 


OD3CC 06 
OD3CE 03 


0D3D3 00 


O03D5 06 
OD3D?7 O02 


Math Routines - Part 1 «831213 Fri Dec 30, 1983 3:18 an 
Page 81 


XCPARG 7AHO 


x 


C=RSTK 
GOSUB FINITR 


coc 


XCPRRG 


RSTK=C 


RTNC 


C 
B 


RTNYES 
NaN input--RSTK popped. RTN from calling fen with NaN 


Inf * 
RSTK 


=C 


RTNSC 


keep 1 subr lev 
sets carry for xcpt’l arg 


replace FN addr 
CC FOR FINITE ARG 


NaN? 


x 


FOI OI OOO TOTTI I TOO TT III OK 


KKK 
kk 
aX 
aKK 
aa 
KKK 
KKK 
KK 
aK 
KKK 
KAX 


RO,R1= SCRATCH, 


CPU SCRATCH . 


aaK 


RO(S)=S, ROCA)=EXP,R1(14-0)=MANT*** 


R2,R2= SCRATCH2, R2(S)=S, R2(A)=EXP, R3(14-O)=MANT *** 
IK 


STAB1: COPY A&B IN SCR1. DESTROYS RO,R1 ONLY 
RCAB1: RECALL SCR1 TO A&B. DESTROYS A&B ONLY 
EXAB1: EXCHANGE A&B WITH SCR1. DESTROYS NOTHING 


ETC, 


kak 
dkok 
Khe 
xkx 
KKK 
KaK 
aaK 


JOR III III SOI IO TOI TIT OTT III II IDI 


FORGO III ICO III IO 
SOOO IOI IOI TOI III 


ax 
KK 
aa 
aK 
ax 
xx 
a 
aR 
ak 
ak 
aK 
xx 
xx 
ae 


Nane:(S) 
Nane: (S$) 
Nane: (S) 
Nane: (S$) 
Narie: (S$) 
Narie: (S) 
Nane: (S) 


Category: 


Purpose: 


To use RO-R3 as scratch space for 15-forn nunbers. 


STRB1—- 
EXAB1 = - 
RcCD1- 
STRB2- 
EXAB - 
RCCP2 0 - 
STCDe = 


ATHUTL 


Store AB into scratch 1 
Exchange AB with scratch 1 
Recall CD into scratch 1 
Store AB into scratch 2 
Exchange AB with scratch 2 
Recall CD into scratch 2 
Store CD into scratch 2 
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4345 a 
4346 *k Entry: 
4347 aa Either AB or CD has a 15-forn to be transfered with 
4348 a (RO,R1) or (R2,R3). 
4349 a 
4350 Kk Exit: 
4351 ax Data transfer has taken place. 
4352 ak 
4353 Kk Calls: (none ) 
4354 aK 
4355 KK Uses....... 
4356 **k Inclusive: nothing 
4357 KK 
4358 Kk Stk lvls: 0 
4359 KK 
4360 SOI III UII OOOO EIR 
4361 JOIST OO TTT Te 
4362 00309 100 =STAB1 RO=A 
4363 OD3DC AFC ABEX W 
4364 OD3DF 101 R1=A 
4365 OD3E2 AFC ABEX WwW 
4366 OD3E5 01 RTN 
4367 OD3E7 120 =EXAB1 AROEX 
4368 OD3EA AFC ABEX W 
4369 OD3ED 121 ARTEX 
4370 OD3FO AFC ABEX W 
4371 OD3F3 01 RTN 
4372 OD3F5 119 =RCCD1 C=R1 
4373 OD3F8 AF? D=C W 
4374 OD3FB 118 C=RO 
4375 OD3FE 01 RTN 
4376 0D400 102 =STAB2 R2=A 
4377 00403 AFC ABEX W 
4378 0D406 103 R3=A 
4379 00409 AFC ABEX W 
4380 OD40C 01 RTN 
4381 OD40E 122 =EXAB2 ARZEX 
4382 00411 AFC ABEX W 
4383 00414 123 AR 3EX 
4384 00417 AFC ABEX WwW 
4385 OD41A 01 RTN 
4386 OD41C 11B =RCCD2 C=R3 
4387 OD41F AF7 d=C W 
4388 00422 11f C=R2 
4389 00425 01 RTN 
4390 00427 10A =STCD2 R2=C 
4391 OD42A AFF CDEX WwW 
4392 0042) 108 R3=C 
4393 OD4X% AFF COEX WwW 
4394 00433 01 RTN 


4395 00435 END 
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+ fibs 0 #00000 - 92 238 «©6283, 751 811 840 
/ fibs 2 #00002 - 94 511 749 809 
1/X15 Abs 49982 H0C33E - 171 


1/K15S Abs 49988 #00344 - 174 3694 
A/B=0 Abs 50970 HOC71A - 11380 
=ADISN Abs 50022 #00366 - 235 1366 1829 
=AD1S5s Abs 50025 #00369 - 237 = 143 
=AD2-12 Abs 50015 HOC3SF - = 231 
=RD2-15 Abs 50019 #00363 - 233 
ADD20 Abs 50083 ROC3A3 - 262 269 
ADD Abs 50132 ROCID4 - 293 267 
ADD40, «Abs «= 50142 HOC3DE - =297 S271 2742984 
ADDSO «=Abs = 50146 HOCZE2 - §=6299_- 5 
ADD6O «=6Abs §=650159 HOC3EF - 4 260 265 300 
ADD70 «Abs «50172 HOC3FC - #9 30? 
ADDO = Abs) = 50199 #0417 - 322 305 
ADDO =Abs §=6 50202 HOC41A - 323) 311 «315 = 317? = 3 
=ADDF Abs 50034 #00372 - 243 284 
=RADDONE Abs 49968 #00330 - 139 2962 3730 


AVNENE Ext - 2819 
BIASA- Ext mL 21st 
BIASC+ Ext ao Ott) 
BIASC- Ext - 2149 
BIG Ext - 2228 


BIG1S5 Abs 51062 #00776 - 1215 1195 1210 
BIGSHL Abs 51043 #00763 - 1209 1200 
BSERR Ext - 2654 
CHKnen Ext - 2698 
CKIX? Abs 52106 #OCB8R - 2472 2466 
CKIXP Abs 52122 HOCB9R - 2483 2474 2509 
CLREND Abs 50956 HOC70C - 1100 1098 
=CLRFRC Abs 50932 #OCOF4 - 1091 1772 4068 
DBLSUB Ext -~ 3562 
=DECP=C Abs 51025 #0C751 - 1201 
=DIVO Abs 50374 #OC4C6 - = 523 
=DIVI00 Abs 50426 HOC4FA - 552 522 
=DIVI20 Abs 50447 #OC5SOF - 560 557 
DIV130 Abs 50456 #00518 - 563 565 
DIV140 Abs 50459 #0C051B - 564 562 569 
=PIV15 Abs 50437 #0OC505 - 556 554 2898 
=DIVF Abs 50360 #OC4B8 - 516 289 
=DIVFCD Abs 50363 #OC4BB - 519 
DIVOP Abs 50749 #0C63D - 828 810 
=PV15N Abs 50348 HOC4AC - 509 
=DV15S Abs 50354 WOC4B2 - 511 182 3852 
=0V2-12 Abs 50344 #OC4A8 - 506 
=PV2-15 Abs 50348 #OC4AC - 508 1765 
=DXP100 Abs 53119 #OCF7F - 3488 
DXP200 Abs 53184 HOCFCO - 3539 3499 
DXP210 Abs 53219 HOCFE3 - 3561 3563 
DXP220 Abs 53221 HOCFES - 3562 3570 
DXP225 Abs 53256 #00008 - 3576 3568 
=02710 Abs 50398 HOC4DE - 535 §33 
DZERO Abs 50389 #00405 - 531 52 
=DZ2INF Abs 50404 #OC4E4 - 538 3050 
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=DZP 
=EFIELD 


ENDINT 
ERRASG 
=EX-112 
=EX-115 
EX15" 

=EXABI 

=EXABZ 

=EKP100 
EXP110 
EXP115 
=EXP12 

EXP120 
EXP130 
EXP131 
=EXP15 

=EXP15M 
=EXP16M 
EXP240 
EXP400 
EXP410 
EXP420 
EXP500 
EXP520 
EXP521 
EXP530 
EXPS40 
EXP550 
EXP560 
EXP565 
EXP570 
EXPG0O 
EXP 700 
EXP710 
EXP 740 
EXP 750 
EXP 760 
=EXP9O 

=FINITA 
=FINITC 
=FNPUDS 
=FRACI5 
=FRCISF 
FRCITR 
GE TSGN 
GIVARG 
=GMENE 

=HNDL2O 
HNDL3O 
HNDL40 
=HNDLFL 
=HTRAP 

HUGE20 


Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 


3 #00003 
0 #00000 


50397 #0(735 
52085 #0(B75 
560 #OCF44 
5364 #OCF48 


54247 #0D3E7 
54286 HOD40E 
53113 #OCF79 
53130 HOCF8A 
53136 #OCF 90 
5378 #OCF56 
53162 #OCFAA 
53164 #OCFAC 
53180 HOCFBC 
582 #KOCF5A 
5W82 HOCFSA 
53110 OCF 76 
53747 #ODIF3 
5333 #00037 
53279 #OD01F 
53282 #OD022 
53310 #0D03E 
53394 #00092 
53426 #OD0B2 
53375 #OD07F 
53372 #0D07C 
53348 #00064 
53355 #OD06B 
53331 #00053 
53333 #OD055 
53430 HODOBE 
53774 #OD20E 
53777 #00211 
53447 #OD0C7 
53456 #ODODO 
53469 #0OD0DD 
53088 HOCF 60 
52483 #O(D03 
52495 #OCDOF 
54208 #00300 
50958 #OC70E 
50977 #0721 
50983 #00727 
52156 #OCBBC 
51409 #OC8D1 
52471 #OCCF?7 
52188 #OCBDC 
52194 #OCBE2 
52211 #OCBF3 
52169 #OCBC9 
52015 #OCB2F 


Table 


bobo oe bt b bt de dF de bb ae a ak a a aaa aaa a aa aa aa a 


82 

86 
4093 
1141 
2458 
3454 
3456 
3837 
4367 
4381 
3485 
3434 
3496 
3462 
3517 
3518 
3524 
3463 
3464 
ABO 
3886 
3615 
3604 
3605 
3631 
3676 
3695 
3668 
3667 
3656 
3659 
3642 
3643 
3708 
3899 
3W2 
3718 
3723 
37% 
3466 
2861 
2870 
4289 
1126 
1134 
1136 
2506 
1672 
2818 
2556 
2577 
2583 
2547 
2415 
2204 


548 
527 
4167 
1137 
2452 


3930 
3911 
4155 
3467 
3491 
3508 


3503 
3522 
3520 


4135 
3881 
3523 
3606 
3616 
3524 
3660 
3693 
3664 
3669 
3647 
3674 
3633 


3657 
3897 
3476 
3711 
3719 
3725 
3460 
1126 
1675 
2946 


1127 
1140 
2500 
1691 
2782 
2551 
2554 
2579 
2025 
2024 


2006 
639 
42H 


2494 


4162 


3585 


3610 


3679 


3695 


372? 
4123 
1194 
4064 
028 


2779 
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2580 
791 846 «=—918 34 =346 


4202 


3964 4249 


1668 4291 
3466 
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=IDIVi2 
=IDIVI5 
IDV 
=IF12A 
=INF*O 
=INFRIS 
INF S+ 
INVNN } 
=INVNaN 
Tv50 
IVARG 
=IVP 
Ivn 
=LGT12 
=LGT15 
LGT50 
=LN1i+12 
=LN1415 
LN1+X1 
LN1+K2 
=LN1+K4 
LN4+X5 
LN1+K6 
LN1+X7 
LN1+X8 
=LN1+XF 
LN110 
={N12 
LN140 
=LN15 
LN200 
LN210 
=LN30 
LN300 
LN310 
LN320 
LN3X 
LN400 
LN420 
LN4 31 
LN450 
LN460 
LN50 
LN520 
LN530 
LN540 
LN550 
LN565 
=LNAP 
LNAP1 
LNAP2 
=LNC10 
LNC 10+ 
LNC20 
iNCX® 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
fibs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
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51449 #OC8F3 
51453 #OC8FD 
51464 #00908 
51001 #0C739 
50695 #0(607 
51005 #0C73D 
50821 #00685 
52630 #0CD96 
50783 #OC65F 
50804 #OC6 74 


4 #00004 
54097 #OD351 
53674 #OD1AA 
53678 HODTRE 
53702 #OD1C6 
52544 #0CD40 
52548 #0(D44 
52586 #OCD6A 
52576 ¥OCD60 
52571 #OCD5B 
52597 #0CD75 
52724 #OCDF4 
52751 #OCEOF 
52741 #OCEOS 
52561 #OCD51 
52759 #OCE17 
52605 #0CD7D 
52769 #OCE21 
52609 #00081 
52706 HOCDE2 
52720 HOCDFO 
52636 #OCDSC 
52780 #OCE2C 
52777 #OCE29 
52790 #OCE 36 
52793 #0(E39 
52867 ROCE83 
52864 #OCE80 
52899 #OCEA3 
52886 HOCE96 
52896 #OCEAO 
52668 #OCDBC 
52943 HOCECF 
52964 #0CEE4 
52958 #OCEDE 
52971 #0CEEB 
52989 #OCEFD 
53013 HOCF15 
53H HOLF 26 
53055 #OCF 3F 
53653 #00195 
53650 #00192 
53475 #ODOE3 
53642 #00126 


t ' ' ' 


1764 
1765 
1772 
1193 
79% 
1194 
917 
3036 
894 
904 
1673 
83 
4171 
3828 
3829 
3841 
2943 
2945 
2976 
2962 
2954 
2984 
3111 
3125 
3120 
2950 
3146 
24 
3163 
26 
92 
3101 
939 
3170 
3169 
3174 
3175 
3250 
3247 
3277 
3264 
3276 
3054 
3311 
3329 
3326 
3332 
3339 
3379 
3385 
3394 
3792 
3794 
3739 
3766 


176? 


815 
1091 
841 
4171 
529 
97 


910 
4104 


3832 


2955 


2977 
2985 
3116 
3126 
2947 
3059 


3148 
3841 
083 
94 
2965 
3128 
3180 
3176 
3172 
3121 
3234 
3255 
3224 
3285 
#44 
3H2 
3280 
3330 
332? 
389 
3250 
3383 
3387 
3300 
3547 
3277 
3742 
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1134 4176 
644. 793 921 36 
2008 2015 2493 2578 


3836 


4084 
3097 


3029 
319 


3243 


3315 
3313 


3239 
3636 


3843 
3615 


3337 
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3770 3747 
3774 3749 
3778 3751 
3782 3753 
3786 ©3755 
3762 3757 
31 2948 
34 W555 
2888 2984 
2891 2895 
2893 2893 

3102 


LNC40 = Abs) 3565 #00130 
LNC50 Abs: 53586 #OD152 
LNC60 §=Abs §=©53605 #00165 
LNC7O0 =Abs §=§3622 #00176 
LNC80 = Abs) = 3637 #0D185 
LNC90 Abs) 3533 #00110 
LNINF Abs 52619 HOCD8B 
=LNNEG Abs 52624 #OCD90 
LNSUB Abs 52507 #OCD1B 
LNSUB1 Abs 52515 #OCD23 
LNSUB2 Abs 52539 #0CD38 
LNSUB3 Abs 52533 #OCD35 
LNZR Abs 52650 HOCDAA 
LNZR1 Abs 52662 HOCDBE 
MAKE = Ext 
MATHR Abs 50118 #OC3C6 
sMESSG Abs 52247 #OCC1? 
MFURNQ Ext 
=MOD12 «Abs 51090 #OC792 
=MOD15 Abs 51094 #00796 
MODSO =6Abs) = 51137 #OC7C1 
MODX<Y Abs 51131 #0C7BB 


- 4247 
MOved3 Ext - 


4055 
2026 


MOveu3 Ext 

=MP1-12 Abs 50230 #0C436 
=MP1S5SS Abs 50240 #0C440 
=MP2-12 Abs 50226 #0C432 
=MP2-15 Abs 50234 HOC43A 
MPY110 Abs 50266 #0C45RA 
MPY120 Abs 50271 #OC45F 
MPY130 Abs 50280 #0C468 
MPY140 Abs 50283 #00468 
MPY150 Abs 50300 #0C47C 
MSNIS = Ext 

=<MULTF Abs 50246 #0446 
NEGT Abs 51219 #00813 
NIMNF Abs 50924 #OCGEC 
NOERR Abs 52297 #OCC49 
NOHALT Abs 52262 #OCC26 
NONINT Abs 54091 #00348 
NOTNOD Abs 8 #00008 
NRM12 3=Abs 51643 HOC9BB 
=NRMLAB Abs 50901 #0C6D5 
=NRALCD Abs 51542 #O0C956 
=QKP Abs 0 #00000 


1407 
4013 
2418 2451 2465 2483 2490 


ONE1S Abs 54037 #00315 
=OVF-15 Abs 53751 #ODIF? 
=OVF15? Abs 53729 #ODIE1 
=OVFL Abs 51827 #0CA73 

QVFL20 Abs 51862 #OCA96 

OVFL30 Abs 51875 #OCAR3 

OVFL40 Abs 51880 #OCAAS8 

OVINF 51850 #OCA8A 
=0VP 2 #00002 


3940 


Le | 
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PICKUP 
PNUL 
PMUL1 
PNUL2 
PWEEDS 
PWR40 
PWREO 
PWR8O 
PWRTEN 
R=Vf2 
R>Y¥/2 
R?Y/2 
=RCCD1 
=RCCD2 
RDHO 
REDO<¥ 
REDSO 
REDIO 
=REDUCe 
REDX< ¥ 
=REMI2 
REN 20 
=REMS 
REN310 
REN330 
REMP2 
REMP2O 
REMPS 
REMPWO 
RENK<Y 
=RMD12 
=RMNDIS 
RM0D 30 
RMOD35 
RNOD40 
=RNDIC+ 
RND1 20 
RND125 
RND1 30 
RND140 
RND1 50 
RND1 60 
RND1 90 
RND210 
RND220 
RNDSO 
=RNDNRN 
=RNDKCP 
RSTOEF 
RSTEXP 
RSUBR 
RTNDEF 
RTNX 
SCRSTO 
SETSB 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Ros 
Abs 
Abs 
Ros 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 


51037 #0C75D 
52998 #OCFO6 
52995 #0CFO3 
53011 #OCF13 
50643 #0(5D3 
53819 #00238 
53834 #0D24A 
53864 #00268 
53798 #00226 
51205 #OC805 
51195 #0C7FB 
51172 #0C7E4 
54261 #0D3F5 
54300 #0D41C 





51381 #OC8B5 - 


51367 #0C8A7 
51302 #00866 
51317 #00875 
51282 #00852 
51370 #OC8AA 
51151 #0C7CF 
51190 #OC7F6 
51155 #0C7D3 
51241 #00829 
51251 #0C833 
51402 #0C8CR 
51441 #OC8F1 
51417 #0C8D9 
51383 #0C8B7 
51225 #00819 
51066 #0C778 
51070 #OC77E 


51339 #OC83B - 


51342 #OC88E 
51345 #008391 
51669 #0C9D5 
51908 #OCAC4 
51927 #0CAD? 
51934 #OCADE 
51944 #OCAE8 
51950 #OCAEE 
51969 #OCBO1 
51976 #0CBO8 
51990 #0CB16 
52003 #0CB23 
51692 #OCSEC 
51889 #OCABI 
51678 #OCSDE 
52242 #OCC12 
51183 #OC7EF 
52431 #OCCCF 
520397 #0CB31 
51246 #0C82E 





1206 
3353 
3352 
3358 

725 
3936 
3944 
3961 
3927 
1440 
1436 
1423 
4372 
4386 
1625 
1618 
1576 
1583 
156? 
1620 
1405 
1434 
1406 
1465 
1480 
1668 
1689 
1675 
1660 
1455 
1279 
1280 
1601 
1602 
1604 
2088 
2283 
2297 
2301 
2311 
2317 
2324 
2330 
2338 
247 
2102 
2273 
2094 
2595 
1430 
2797 
2468 
1470 
2742 
3333 


1203 
3278 
3354 


239 
3934 
3946 
3958 
4073 
1435 


1462 


4063 
1623 
1574 


1679 
1285 
1588 


142? 


1466 
1664 
1676 
1669 
1282 
1411 


1610 
1599 
1606 


2278 
2287 
2292 
2302 
2280 
2321 
2304 
2285 
2339 
2089 
2106 
2004 
2953 
1287 
2801 
2460 


2789 
3728 


3311 


386 


1484 
4085 


1336 


1334 


2344 


2335 
2298 


2166 


2813 
1341 


2476 
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512 


4229 


1410 


1408 


2348 


2343 «2349 
2334 


1344 1346 
2480 «2491 
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SETKA 
SGNOF* 
SONS 
=SHF10 
SHF 20 
SHF 30 
SHF40 
SHFD 
SHFD20 
SHFD3 
SHFD40 
SHF LAC 
=SIGNAN 
SNAP LC 
SPLA1O 
SPLC10 
=SPLITA 
=SPLITC 
=SPLTAC 


SOR- 
=SQR12 
=SQR15 
=SOQR15M 
=SQR17 

SOQR18 

SQR20 

SQR30 

SQR35 

SQR40 

SQR50 
=SQR70 

SQR75 

SOQR8O 

SQRXCP 
=STAB1 
=STAB2 
=STCD2 

SUBON1 
=SUBONE 

SVSUBR 

SYSF LG 

Shf 

TRP3O 

TRP=0 

TRP=1 

TRP=2 

TRPREG 

TSTRAP 

THON 
=TWONAN 

UNF L 

UNF L10 

UNF L20 

UNF L40 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


50319 
50734 
51263 
50310 
50317 
50331 
50333 
51563 
51577 
51591 
51593 


51478 


50895 
51536 
50879 
51520 
51508 
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#00683 
#OC62E 
#0C83F 
#00486 
#0C48D 
#00498 
#0C49D 
#0 96B 
#00979 
#00987 
#00989 


#00916 


#OCOCF 
#00950 
#0C 6BF 
#00940 
#00934 


#00563 
#00530 
#00534 
#00534 
#00553 
#0C56D 
#00583 
#0C59B 
#OCSAS 
#OCSAF 
#0C5B2 
#0C5C3 
#OCSC6 
#00501 
#00547 
#00309 
#00400 
#0D427 
#00333 
#00327 
#0CC63 


#00735 
#OCB3F 
#0CB68 
#OCBAO 
#OCB7C 


#0CBS6 
#0C6B7 
#0C6AS 
#OCA31 
#0CR40 
#OCA4D 
#OCAE8 


t 
- 


911 

818 
1517 

443 

446 

451 

453 
1915 
1920 
1926 
1927 
3564 
1817 
2711 
1031 
1902 
1025 
1896 
1862 
4003 


2719 
2589 
1142 
2425 
2450 
2489 
2464 
2431 
2439 

931 

971 
2148 
2155 
2163 
2176 


750 


617 
637 
650 
662 
678 
674 


633 
570 
716 


3453 


4028 

137 
399 
2723 


1041 
2014 
2442 
2444 
2446 


2484 
376 
$27 

2131 

2159 

2156 


1 <831213 


756 
1142 


606 
507 


3721 


2419 


980 


8H 
1431 


1193 
12793 
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1864 
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2352 
1405 
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=UNP 
X&YHS 
=K/Y¥15 
X=XCP 
XCPARG 
XCPT 30 
XCPTSO 
XCPT55 
XFSET 
XLOG20 
XNNYCP 
=XYEX 
Y&XXCP 
YCP; X# 
=¥X050 
¥xX055 
¥X056 
=¥X060 
¥X100 
=¥X2-12 
=¥X2-15 
Y¥X200 
¥X250 
YX30 
¥X400 
YX450 
¥X500 
¥X550 
YX600 
¥X700 
¥X750 
¥X800 
bi 
20 
e0°NEG 
el INF 
eIF*ZR 
elF-IF 
elF /IF 
e INFO 
eINX 
eLNO 
el0G- 
eNEG*X 
eOVF LW 
eSQR- 
eUNF LW 
eZRDIV 
eZR0/0 
exp?10 
Int +X6 
nessg 
nfERR 
s=SGNS 
s0Z 


fibs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ribs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
fbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Robs 
Abs 
Abs 
Abs 


1 
50118 
49999 
50705 
54224 
51734 
51821 
51756 
52214 
53713 
508 34 
50839 
50757 
50675 
53938 
53947 
53998 
54050 
54059 
53876 
53882 
54071 
54082 
53919 
54101 
54123 
54128 
54145 
54166 
54170 
54191 
54204 
51883 


53106 
52601 
51657 
52256 


10 
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Table 


Synbol 


#00001 
#OC3C6 
#OC 34F 
#0(611 
#0D300 
#OCR16 
#OCRED 
#OCR2C 
#OCBF6 
#00101 
#00692 
#00697 
#00645 
#OC5F3 
#0D2B2 
#002BB 
#OD2EE 
#0D322 
#0032B 
#00274 
#0D27A 
#00337 
#00342 
#OD29F 
#00355 
#00368 
#00370 
#00381 
#00396 
#0D39A 
#0D3AF 
#00 3BC 
#OCARB 


#OCF72 
#0CD73 
#0C9C9 
#0CC20 
#00009 
#0000A 


' ' ' ' 


' y ' ' ' ‘ a 1 


80 
280 
178 
800 

4296 
2129 
2180 
2142 
2588 
3849 
925 
961 
832 
744 
4034 
4053 
4082 
4121 
4132 
4002 
4004 
4155 
4162 
4020 
4176 
4189 
4195 
4202 
4211 
4229 
4240 
4249 
2228 
4235 
4244 
4101 
792 
919 
847 
4095 
2456 
047 
3035 
4169 
2188 
640 
2172 
536 
528 
3476 
2985 
2026 
2654 
74 
71 


2169 
742 


736 
4292 
2116 
2125 
2178 
2581 
3843 

834 

825 

803 

741 
4030 
4035 
4056 
4090 
4122 


4032 
4190 
4014 
4158 
4179 
4184 
4183 
4205 
4036 
4232 
4241 
2504 


3471 
2981 
2017 
2693 
1340 
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2475 


2181 


982 


4206 
4065 


4164 


2019 
1356 


2493 


4066 


4211 
4072 


1519 
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=sINFRD 

=sINX 
sIV 

=sIX 


=sNEGRD 
s0V 
sUN 
=sXCPT 
sY=INF 
shf 10 
snapr* 
splith 
=uAD12 
uMODES 
=uRES12 
=uRESNX 
=uRESXT 
=uRND12 
=uRND>P 
x 
xyex 


Abs 
Abs 
Abs 
Rbs 


Rbs 
Abs 
Abs 


‘ Abs 


Abs 
Rbs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


10 #OO00R - 
5 #00005 - 
11 #0000B - 
7 #00007 - 


11 #OOOOB - 
9 #00009 - 
8 #00008 - 
4 #00004 - 
8 #00008 - 
51186 #OC7F2 - 
52011 #OCB2B - 
51490 #00922 - 
51604 #00994 - 
51645 #OC9BD - 
51649 #0C9C1 - 
51661 #OC9CD - 
51663 #OC9CF - 
1 #00001 - 
50745 #00633 


Math Routines - 
Synbol Table 


64 
67 
72 
68 
2550 
65 
70 
69 
66 
73 
1431 
2807 
23562 
1827 
1827 
1993 
2023 
2024 
2076 
2077 
93 
825 


Part 


314 


2094 
233 


4010 
1445 


2943 


2077 
18% 


2023 
286 
806 
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2192 


2187 
316 


4017 
1447 


224 


385 
812 


2284 


2276 
2195 


4096 


3454 


842 
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2283 2421 2473 2496 
2210 2286 2338 


3462 3828 
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Input Paraneters 
Source file nane is JT&nTH: :MS 
Listing file nane is JT/MTH:TI:ML::-1 
Object file nane is JTIZMTH: TI: MS::-1 


141111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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10 
11 
12 
13 
14 
15 
16 
1? 
18 
13 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
3? 
38 
33 
40 
41 


43 
44 
45 
46 
47 
48 
4g 
50 
51 
52 
53 
54 
55 


00435 
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x SSS mM on & Nn oN TITTT HH 

x S S$ Mmnn && hn NA T H oH 

x S Man && nnn T H 4H 

* SSS HAN & nA T HHHHH 

x Sm om 8&8 HM M T H H 

x S$ SH HS’ & M HM T H H 

" SSS Mm Mm 8&8& M HM T H H 

TITLE Math Routines - Part 2 <831216.1618> 
ABS #00435 

JG IIS I I II I IOI IIE II STII III IIIS III SI III IIIT III IAI STI OA 
ia tk 
seks MATH ROUTINES: <SM&NTH> HK 
aR tak 
kk tk 
xX INPUTS: nay 
KK IK 
BAX -BINARY FUNCTIONS- een 
AIK tok 
ane 2-12 digit nunbers, then RAR 
ta A HAS 12 DIGIT FORM aa 
ka C HAS 12 DIGIT FORM tat 
tk IK 
=e 2-15 digit nunbers, then Sak 
mee A: SIGN & EXP, 8: NANT RAS 
ale C: SIGN & EXP, D: NANT a 
ai ik 
KKK tok 
Job ik 
te tk 
his -UNARY FUNCTIONS- aD 
tok 1 
AAS 1-12 digit nunber, then RAR 
aA A: 12 DIGIT FORM Ae 
tok to 
ae 1-15 digit number, then Bee 
ls A: SIGN & EXP mee 
tak B: 15 digit MANTISSA ik 
otk aK 
tok k RIK 
1c SK 
ok tok 
Axx QUTPUTS: A: SIGN AND EXP aad 
ea B: 15 digit MANTISSA aee 
mas SB: 0 1f surely EXACT xeE 
are XN: O af no excpt’n (ZD, INV) ane 
JOGOS IO UII III IIS TI TIT IIIT III III D A 


RRX STATUS 
1K 


KKK 
KK 
=sRAD €QU 
skM EQU 
sIx EQU 


BITS Modified 10/15/82 to pernit use of =uMODES 
to set Deg/Rad Mode into $9. The change: 
roles of S6 and S9 swapped. 


9 RAD/DEG Mode in Trig 
9 Local value for XM 
7 Local Inexact flag 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
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sINVRT EQU 
sTAN EQU 
sSGN  EQU 
sSGNT EQU 


sCOMP EQU 
sATRN EQU 
s+PI/2 EQU 


8 
6 
10 
11 


8 
6 


Page 2 


Invert result 
Desire Tangent 
Sign of Result 
Sign of TAN 


Need conplenentary angle 
Desire ATAN 
Add PI/2 


KEKKIK AKI R I IIIS III III II RIT ITT DIDI I IIT IIT TRIER ETD 
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66 EJECT 
67 JIG III OOO TTI II ISIS III SSS SS SIO III SS TS: 
68 JOO III OOOO SITIO I SII TIK 
63 xk 
70 ** Narie:(S) uTEST - Perforn comparisons 
71 ze 
72 *X Category: MATH 
73 he 
74 **k Purpose: User Real Comparisons - <, >=, etc. 
75 kk 
76 *k Entry: P encodes predicate (see Predicate table). 
W ak A:a C:c (Arg’s are 12-dig forns a&c). 
78 kk 
79 ak Exit: Carry=Result (Set=TRUE), P=Cell# for pair, raises 
&0 aK Invalid 1f Unordered and predicate contains one 
81 aK of ">" or "<" but not "7", If invalid, subse- 
82 ak quent action based on user traps. 
83 xx 
84 ** Calls: TST12A, (Also uRESXT - if INVALID raised) 
85 ae 
86 &k Alters (INC): A,B,C,D,P,xN, SB, sIX 
87 xk 
88 tk Stk lvls: MAX(3,MESSG) 
89 ak 
0) ** Algorithm: See =TST15 
94 xk 
92 xm Date Prograriner Modification 
93 KE Seeeeeie. ceceieosees (Secaceeseoceeat lew cecis cence oe cee ss 
94 ek 07/09/82 = SB Bugfix: HTRAP now works off of sIX 
95 tk 02/07/83 = SB Update header. 
96 JI IO I III II ITT OT ITO IIIS IO TTT OTIS II IIIT I TID ISIS IIIS IIA 
97 JI II III III IIIS ITS II STS SSI ISSS SSS SSSI III II III III IIIS II IIS III IIA 
98 OD435 80F2 =uTEST CPEX 2 
99 00433 06 RSTK=C Save Predicate 
100 OD43B 80F2 CPEX 2 
101 OD43F 73H GOSUB §=TST12A 
102 0D443 07 C=RSTK 
103 OD445 400 RTNC Done if true. 
104 OD448 888 2PH 8 Result <,=, or > ? 
105 OD44B 92 GOYES  €XITO3 Yes, Test false. No exception. 
106 OB44D AA? D=C XS Predicate: D{XS] 
107 OD450 25 P= 5 
108 OD452 80F2 CPEX 2 [0101] : C[XS] 
109 OD456 0E27 C=C8D XS 
110 OD45—A 932A *C=0 KS Predicate had "<" or ">" ?? 
111 OD45D 71 GOYES  EXITO3 No. 
112 OD45F D2 OOPS3 C=0 A 
113 OD461 20 P= 0 
114 OD463 3100 {C(2) =eUNORC Err Msg: Unordered conpare 
115 OD467 D5 B=C A 
116 OD469 20 P= =IVP 
117 OD46B 847 ST=0 sIX Always exact. 
118 OD46E 8£00 GOSUBL = =uRESXT <JT&NTH> 
00 


119 OD474 03 EXITO3 RTNCC CC=Result false 


Saturn Asserbler 
Ver. 3.39/Rev. 2306 


120 


Math Routines - Part 2 <831216 


Fri Dec 3, 1983 


5:10 an 
Page 4 





Saturn Asseribler 


Yer. 3.39/Rev. 2306 


121 
Nee 
123 
124 
125 
126 
127 
128 
129 
1H” 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
182 
153 
154 
165 
156 
15? 
158 
159 
160 
161 
162 
163 
164 
165 
166 
16? 
168 
169 


174 OD476 7292 
175 OD47A AC? 


xx 
xk 
xe 
xk 
xk 
ax 
ax 
ak 
kK 
kn 
ax 
ax 
x 
an 
ak 
xk 
xx 
xx 
ke 
a 
a 
as 
ar 
an 
ak 
x 
xk 
ae 
xk 
kk 
xx 
a 
ae 
ak 
aK 
ad 
xh 
ax 
ak 
ae 
ar 
xe 
KR 
aA 
xs 
a 
ae 
aA 
ax 
Ka 
ae 
xs 
=] 
=] 
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EJECT 
FOI OI III OI OIG IIH 


FORO JO IO UI III IOI ICO IOI IO IOI 


Nane:(S) TST12A - Conpare nunbers: 12-Digit arg’s A,C 
Nane:(S) TST15  - Compare nunbers: 15-Digit arg’s A/B, C/D 


Category:  NMTHUTL 
Purpose: Deternine relationship between nunbers a & c. 


Entry: TSTI2R: 12-digit arg’s in A&C. 
TST15 : 16-digit arg’s in A&B and C&D. 


P encodes predicate. 
Exit: Carry set=TRUE, P has the cell# associated with 
the number pair, arg’s in 15-dig form unchanged. 
Calls: SPLTB,AFIN,CFIN, BIASA+, BIASC+, 
BIASA-, BIASC- 
Alters (INC): P,A,B,C,D, CARRY 
Stk lvls: 1 
NOTE: Predicate (INPUT) & Cell# (OUTPUT) Table 
Pred 9-bias P Cell Cell# P 
< 0001 1 acc O01 1 
= 0010 2 a=c 010 2 
<= 0011 3 arc 0100 4 
> 0100 4 a’c 1000 8 
> 0101 5 
>= 0110 6 
t 1000 8 {"?" = Unordered] 
<? 1001 
=? 1010 10 
>? 1100 12 
# 1101 13 
(Pred 1s 9-bias of the system token) 


Algorithm: Direct conparison of $,EXP, & MANTISSA. 


History: 
Date Progranner Modification 
07/12/82 = SB Docunented 
10/06/82 SB Code Pack: Eliminate Pro) Mode 
02/09/83 SB Code Pack: Consolidate a=NaN tests 
02/25/83 SB Code Pack: Eliminate GOTO LOGIC. 


JUSSI III ISIS GEIS IGSI SIS ISI ISU ISI I 
JOGOS ISI IG GUI I IGT I 
oTieR GOSUB = SPLTB fé-digit entry 

ST165 DC 3 
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176 OD47D 80FF CPEX 15 P-->D[S] 
177 0D481 ACF CDEX Ss 
178 00484 75A0 GOSUB = BIASA+ Renove EXP bias 
179 00488 74B0 GOSUB = BIASC + 
180 OD48C 28 P= 3 Cell# for unordered. 
181 OD48E 7E62 GOSUB  AFIN 
182 00492 5A4 GONC FINA If a finite, go FINA 
183 
184 00495 AFD BCEX W AB: S,EXP CD: MANT 
185 00498 96C PAHO B 
186 OD49B 81 GOYES LOGIC If a=NaN, go LOGIC 
187 OD49D 924 7AHB XS 
188 OD4AO CO GOYES SIGNA If c finite & a=INF, go SIGNA 
189 OD4A2 96D ?BHO B 
190 OD4A5 £0 GOYES LOGIC If c=NaN, go LOGIC 
191 OD4A7 940 ?A=B S 
192 OD4AR 16 GOYES AEQC If sane INF, go AEQC 
193 
194 OD4AC 948 SIGNA ?A=0 S$ Pigeonhole on sign of a 
195 OD4AF 24 GOYES AGTC 
196 0D4B1 21 ALTC P= 1 Cell# 1 
197 OD4B3 8OFF LOGIC CPEX 15 Cell# to C{S] 
198 OD4B7 0E43 = S Truth value (O=false, else true) 
199 OD4BB RFD BCEX W Restore standard fornat 
200 OD4BE 7860 GOSUB = BIASA- Restore exponent bias 
201 OD4C2 7A70 GOSUB  BIASC- 
202 OD4C6 ACD BCEX 3 
203 OD4C9 8ODF P=C 15 Cell# back to P 
204 OD4CD AC2 C=0 $ 
205 00400 ACD BCEX S 
206 OD403 94F 7DHO S Truth value to CARRY 
207 OD4D6 20 GOYES CTRICK 
208 OD4D8 AC3 CTRICK D=0 S 
209 OD4DB 01 RIN 
210 
211 OD4DD 7000 FINA GOSUB =FINITC c finite? 
212 OD4E1 AFD BCEX W A,B: S,EXP C,D: MANT 
213 OD4E4 521 GONC FINAC 
214 OD4E7 96D 7BHO B c=NaN? 
215 OD4EA 9C GOYES LOGIC 
216 OD4EC 949 =SIGNC 7B=0 S$ Pigeonhole on sign of c 
217 OD4EF 2C GOYES  ALTC 
218 OD4F1 24 AGTC P= 4 Cell# 4 
219 OD4F3 6FBF GOTO LOGIC 
220 
221 OD4F7 2E FINAC P= 14 
222 OD4F9 391A 7C=0 WP a=0 ? 
223 OD4FC AO GOYES AISO 
224 OD4FE SIF ?DHO WP a#0. cHO 7 
225 00501 01 GOYES ACNOTO 
226 00503 58A GONC SIGNR BET. a#O and c=0. 
227 OD506 91F AISO ?DHO WP a=0. cHO ? 
228 00509 3E GOYES SIGNC 
229 ODSOB 22 REQC P= 2 Cell# 2 


230 OD50D 65AF COTO LOGIC 
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231 0D511 944 ACNOTO 7AHB S Different signs? 
232 OD514 83 GOYES SIGNA Yes. Pigeonhole on sign a 
233 0D516 880 7A>B A EXP(a) > EXP(c) ? 
234 00519 39 GOYES SIGNA Sign check 
235 ODS1B 884 7A<B A EXP(a) < EXP(c) ? 
236 ODSIE EC GOYES SIGNC Sign check 
237 0D520 997 7020 WP MANT(a) > NANT(c) ? 
238 0D5S23 98 GOYES SIGNA Sign check 
239 00525 993 7C<D WP MANT(a) < NANT(c) ? 
240 00528 4C GOYES SIGNC Sign check 
241 OD52A SOE GONC REQC BET 
242 


243 
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244 
245 SOIC II TOTTI TI III TIT TIS SII IID IST TAS TASS SST IIASA 
246 FORO III JOTI OI TO 
247 ae 
248 ** Nane:(S) BIASA+ - Add Exp bias to A 
249 ** Nare: BIASA- - Reriove Exp bias fron A 
250 ** Nane:(S) BIASC+ - Add Exp bias to C 
251 ** Nane: BIASC- - Rernove Exp bias fron C 
262 xn 
253 4% Category:  MTHUTL 
254 aR 
255 ** Purpose: Add (or remove) EXP bias [50000] to 15-dig Nur 
256 aR 
257 es Entry: 15-digit nunber in A&B or C&D, DEC Mode. 
258 
259 eR Exit: Unbiased or biased exponent, P=4. 
260 x 
261 ** Uses (INC): P, and ALA] (or C[A]) 
262 ak 
263 ** Stk lvls: 0 
264 xx 
265 && History: 
266 ak 
267 ak Date Progranner Modification 
268 WR. Beeseese Seeeeseie sateleatecerosooeuee soe sane 
269 xk 02/10/83 SB Rerioved =BIASAC entry. 
270 a 
271 aX 
272 ** NOTE: BIASA+ = BIASA- (EXP+50000+50000=E XP ) 
273 FOCI IDI TOTO OI ISI TSS I SSSI II TIS ISI TIT IIS 
274 FRI IAI IIIT TI ITI ASIII SII SD IST III III SSI III III IS II IST ASI IOS ISI IAS 
275 0D520 =BIASA- 
276 OD52D 24 =BIASA+ P= 4 
277 ODS2F B04 A=A+1 =P 
278 0D532 804 A=A+1 =P 
279 0D535 B04 A=Ae1 =P 
280 0D538 804 A=A+1 =P 
281 0D53B B04 A=A+1 =P 
282 ODS3E 01 RTN 
283 00540 =BIASC- 
284 00540 24 «==BIASC+ P= 4 
285 00542 B06 C=C+1 P 
286 00545 B06 C=C+1 P 
287 00548 B06 C=C+1 =P 
288 OD54B B06 C=C+1 P 
289 ODS4E B06 C=C+1 P 
290 00551 01 RTN 
291 


292 
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293 

294 

235 

296 

297 

298 

299 

HO 

01 

He 

H3 

H4 

35 

H6 

0? 

8 

9 

310 

311 

312 

314 

314 

315 

316 

317 

318 

313 

320 

321 

322 

323 0D553 7581 

324 0D557 75A1 

325 0D55B 502 

326 ODS55E 926 

327 0D561 41 

328 00563 968 

329 OD566 F1 

330 0D568 396A 

331 OD56B 00 

332 OD56D 8E00 
00 

333 00573 02 

334 00575 96C 

335 00578 00 

336 0D57A 03 

337 OD57C 8E00 
00 

338 ODS82 500 

339 00585 396A 

340 0D588 2F 

341 OD58A 7074 

342 ODS8E 02 

343 


xx 
xx 
xk 
ak 
ax 
ar 
ax 
a 
xx 
ax 
ak 
xk 
a 
a 
ax 
xk 
xx 
a 
a 
xr 
ar 
xx 
x 
xx 
ax 
xx 
xk 
xx 
ax 
=M 
=n 


F 


C 
F 


I 
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JOR RII ITT OT ITO 
FOI I TOI TO IT IIT 


Nane:(S) MSN12  - Find most significant NaN, 12-Dig arg’s 
Nane:(S) MSN15  - Find most significant NaN, 15-Dig arg’s 


Category:  MTHUTL 
Purpose: For 2-arg functions return nost significant NaN. 
Entry: {A,B}: x {C,D}: y (15-digit forns) 


Exit: CC - Neither x nor y is Nan, reg’s not altered. 
CS - [A,B] has most significant NaN. 


Calls: SPLTB, AFIN, CFIN, =TWONaN, SHAPKY. 
Alters: Carry. If exit CS, also registers A,B,C,D. 
Stack lvls: 1 
History: 
Date Progranner Modification 


~~ eee wee wee ee ee ewe we we em mee ee ww me ww me mee ew eK ee mee 


9/23/82 SB Natie change and 12-digit entry 


10/04/82 SB Code pack - Change near IX 
JOO OCICS IO CIO TO CO EI TOT TOK 


JOR OTTO TTT TTT TT OTT OTE 


SN12 GOSUB SPLTB 
SN15 GOSUB  AFIN 
GONC FR If x finite, go FX 
PARC KS 
GOYES FY Else if y finite, go FY 
?A=0 B 
GOYES Ix If x=INF, go IX 
*C=0 B 
RTNYES Else if y=INF, return x=NaN 
GOSUBL =TWONaN Both NaN’s, get most significant 
RTNSC 
¥ PAHO B 
RTNYES If (x,y)=(NaN,Fin), return x 
CEXIT RTNCC No NaN 
X GOSUBL =FINITC 
RTNNC No NaN 
x *C=0 B 
GOYES  CCEXIT If y=INF, No NaN’s, go CCEXIT. 
GOSUB  SWAPXY Return y(=NaN) 
RTNSC 
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344 

345 

346 

34? 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 OD590 7A35 
391 00594 AC6 
392 00597 7561 
393 OD63B 421 
394 OD59E 958 
395 ODSA1 00 
396 OD5A3 BOb 
397 OD5AG 908 
398 ODSA9 00 


a 
ak 
ak 
aR 
kk 
ak 
ae 
ak 
an 
ak 
xk 
ak 
ae 
Kk 
ak 
xx 
an 
xx 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
Kk 
ak 
ak 
aK 
xk 
ax 
ax 
ak 
xx 
xx 
ak 
ak 
aK 
ax 
ak 
ak 
ak 
ak 
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EJECT 
FO IOI TIO RI TR TT TTT 


FOI UOT TOOT TTT TT RTT TTT DIM 


Narie:(S) CLASSA Classification of numeric arg 


Category:  MTHUTL 


Purpose: User classification of numeric argument 


Entry: 12-digit argunent x in A. 


Exit: 12-digit y=CLASS(x) in C; -6<=y<=6 


Calls: AF IN, NMAKE1 


Alters (INC): A,C,P,CARRY 
Stk lvls: 1 


Detail: Sign(y) = Sign(x) 


Mag(y) 1,2,3,4,5,6 (below) 


ee ee ee ee ee 


Sssese 


| Infinity 
| Quiet NaN 


[ibe we eedaeeetaswasenensy 
| Signalling NaN 


6/01/82 
10/25/82 
01/06/83 
02/07/83 


SB 
SB 
SB 
SB 


eee we mew mew ww em Be Ow He ee eee mee 


Docurented 

Code Pack: Use MAKE1 

SR# 30 - Distinguish Sig NaN. 
Update header. 


FOI ROI TTT TI ITT III IIIT TTDI TTT DDT IT TI IK 
FORO IIIT TOT IIIT TIO TIT ITI III ITI IDI II ITN 


=C 


LASSA GOSUB MAKE’ Init result (c=+1, or -1) 
C=A S 
GOSUB RFIN x finite? 
GOC NONFIN 
?A=0 nM Zero? 
RTNYES (C=1) 
C=C+1 P 
7A=0 P Denornalized? 
RINYES (C=2) 
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399 ODSAB 551 
400 ODSAE 304 
401 005B1 968 
402 OD5B4 00 

403 ODSB6 BO6 
404 OD5B9 A6C 
405 ODSBC 968 
406 ODSBF 00 

407 ODSC1 BO6 
408 OD5C4 01 

409 
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NONFIN 


C+1RTN 


GONC 
LCHEX 
?A=0 
RINYES 
C=C+1 
A=A-1 
7A=0 
RTNYES 
C=C+1 
RTN 


C+1RIN 
4 
B 


P 
B 
B 


P 
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BET; Normal non-zero (C=3) 


x=INF? 

(C=4) 
Quiet NaN? 

(C=5) 
Signalling NaN 

(C=6) 
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410 
4i1 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
423 
4H” 
431 
432 
433 
4H 
435 
436 
437 
438 
i 439 
f 440 
441 

442 

443 

444 

445 

446 

447 

448 

449 o05C6 7C31 

450 OD5CA 7350 

451 OD5CE 7€&21 

452 OD5D2 SCO 

453 0D5D5 96C 

454 OD5D8 12 

455 OD5DA ACO 

456 OD50D 03 

457 

458 

459 ODSDF 

460 ODSDF ACI 

461 ODSE2 97D 

462 ODSES 61 

463 ODS5E7 ACO 

464 ODSEA BCC 
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FOI OJOS JOT JOR OOOO EK 
SOIR IORI TOTO III OTT TDI ITT IN 


tk 
&* Name: (S$) EX12 - Return exponent of 12-dig arg 

*X Wane:(S) EX15N - Return exponent of 15-dig arg (XM=SB=0) 
** Narie:(S) EX15S | - Return exponent of 15-dig arg 

** Narie:(S) EXF - Return exponent of finite 15-dig arg 

ak 

** Category: MATH 

ak 

*x Purpose: Returns the exponent of given argunent. 

ak 

&X Entry: 

ak EX12: 12-digit arg in A, 

RX EX15N: 15-digit arg in A&B. 

aK EX15S: 15-digit arg in A&B. 

ae EXF:  15-dig finite arg in A&B. 

ik 

RX Exit: A&B: y=EXPONENT(x) 15-digit forn 

ki 

** Calis: SPLTA, XMOSBO, AFIN, =DZ10 

ai 

** Alters (INC): A,B, SB,xXM,P, CARRY 

ak 

*& Stk lvls: 1 

ax 

&* History: 

x 

- Date Progranner Modification 

RA. giuwedse sidiesscas .deascadeceensenoweasdommecceeens 
kk = 6/01/82 SB Docunented. 

kx 9/22/82 = SB EXPONENT(O) raises DV2Z 

kx = 10/08/82 SB Code Pack: Tighter loop 

kx = 12/09/82 SB Inprove Comments 

kk 02/07/83 SB Update Header. 

kk 03/31/83 = SB Dedicated err nsg: "EXPONENT (0)" 
JOIST SO II TIO III III STII IOI IOI II IIT ISITE ISIIIISISI IK 


FOTO UO TT TT TO 


=EX12 GOSUB SPLTA 
=EX15M GOSUB XMOSBO 
=EX15S GOSUB AFIN 


GONC  EXF If x=Finite, go EXF 

7RHO | OB 

GOYES EXITO2 If x=NaN, Return it. 

A=0 $ 

RTNCC If |x|=Inf, Return +INF 
=EXF XXFINITE ARGUMENT** 

B=0 $ Ensure zero field. 

7BHO OW 

GOYES XNOQNO If x not zero, go XNONO 

A=0 S 

A=-R-1 S$ 
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465 ODSED 20 
466 ODSEF 3100 
467 ODSF3 8E00 
00 
468 OD5F9 03 
469 
470 ODSFB AF1 
471 ODSFE D8 
472 00600 C4 
473 OD602 RFO 
474 00605 570 
475 00608 BCC 
476 OD60B F9 
47? 
478 OD60D 815 
479 00610 £4 
480 OD612 8AD 
481 00615 8F 
482 
483 00617 BFS 
484 OD61A CC 
485 OD61C 822 
486 OD61F 03 
487 
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EXITO2 
XNONO 


EXLOOP 


SBOCC 


P= 0 
LC(2) =eEXPO 
GOSUBL =DZINF 
RTNCC 

B=0 W 

B=A i) 
A=A+A A 

A=0 W 

GONC EXLOOP 
AR=-A-1 S$ 

B=-B A 

BBSRC oW 
A=A+1 A 

7BHO OA 
GOYES EXLOOP 
BSR W 
A=A-1 A 

SB=0 

RTNCC 
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Fri Dec 30, 1983 


MSG: “EXPONENT(Q)" 
Answer = -INF, raise DVZ 


Neg Exponent? 


If Not negative, Go EXLOOP. 


Rotate digit to MANT 
Bunp exponent 

Done? 

No. 


Shift MANT past sign field 
Adjust exponent 
Exact result. 
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488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 00621 
528 00624 
529 00627 
530 
531 
532 00629 
533 00620 


534 00633 
535 00636 
536 00638 
537 0063C 
538 OD63F 
539 0D641 
540 00644 
541 00647 


821 
822 
01 


7630 
8E00 
869 


2010 
867 


AC2 
B46 
BC6 
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EJECT 
SOI ITO TT TT TIO TTT TTT TTT TSS IS IIIS: 


FOI IO TOI TOTTI OO TOTTI TI TSI I ITT IIT IID IK 


** Nane:(S) SQRSAV - SQR for Chain calculations. 

Kk Nane:(S) ORXM - Set XM if sxM=1 and Set SB if sIX=1 
** Nane:(S) ORSB - Set SB if sIxX=1 

- Nane:(S) SETSB - Set SB 


** Category: MATH UTILITY 
kk 


** Purpose: SQRSAV-Puts XM & SB into status bits sxM & sIX, 
ak calls SQR15M, and falls into ORXM which 


ae establishes XM<--XN OR sXM, SB<--SB OR sIX. 
an This preserves exactness in SB and 

aK exceptions in XM thru a call to SQR15M. 

kh 

kX Entry:  SQRSQV:15-Digit arg in A and B. 

ee DEC Mode 

kk XM Set if previous exception. 

xx SB Set if previous inexact calculation 

i 


ak Exit: SQR(Arg) in 15-digit forn in A and B 
ax DEC Mode 


ak XN Set if previous exception or SQR exception. 
ax SB Set if previous inexact or SQR inexact. 
ek 


*k Alters: A,B,C,P,SB,XM,CARRY, and status bits sIX,sxmM 
ok 

kk Calls: SAVEXM, SQR15", SETXM 

xk 

*k Stack Levels: 1 

ak 


** History: 


kk 
ne Date Progranrier Modification 

BRS rica Wl eee. Nee Aomre re eee woe ao 
xk = 11/02/83 SB Docunented 


FORO TOI RRO ITU IO 
FORO J OTO J OUTITTTT I TK 


XMOSBO XM=0 No invalid or zero divide 
SB=0 
RTN 


=SQRSAV GOSUB SAVEXM SB-->sIX & KM-->skM 
GOSUBL =SQR15n Square Root: [A,B] 


=ORXM ?ST=0 skM Set XM if sxM=1 
GOYES ORSB 
GOSUB SETXN 

=ORSB = =?ST=0—sSIX Set SB if sIX=1 
RTNYES 

=SETSB C=0 S 
C=C+1 § 
CSR $ 
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542 OD64A 01 RTN 
543 

544 ODE4C OO SETXM = RTNSKM 
545 


582 0D659 01 
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546 EJECT 
547 JOO IOS COG OO ROT 
548 JOU ICI OCI ITI ATTA 
549 k* Narie:(S) SAVGSB - Put SB into sINX 
550 ** Nane:(S) ORGSB - Set SB if sINX=1 
551 ** Narie:(S) SAVEXM - Put XM into sxM & SB into sIX 
552 ** Narie:(S) SAVESB - Put SB into sIX 
553 ak 
554 *% Category: MATH UTILITY 
555 aR 
556 ae Purpose: Routines save and restore SB and XM fron status 
557 
558 ** Entry: See description above 
559 aR 
560 AR Exit: See description above 
561 ae 
562 ** Alters: SAVGSB - CARRY, status sINX 
563 ak ORGSB - C{S], SB, CARRY 
564 ah SAVEXMN - CARRY, status sIX,sxM 
565 ae SAVESB - CARRY, status sIX 
566 at 
567 ** Calls: Nothing 
568 xR 
569 *% Stack Levels: 0 
570 aR 
571 ** History: 
572 aR 
§73 - Date Progranner Modification 
574 fs .gtsecind >  veerees.  ascersiaebc oe. me homes le 
575 xk = 11/02/83 = SB Docunented 
576 JOIST CTT IAT TAK 
577 SOI III IIT TT IIIT IIIS OT IIT III IIIS SISA I SII SSI 
578 OD64E 840 =SAVGSB ST=0 =sINX SB-->sINX 
579 00651 832 ?$B=0 
580 0D654 00 RTNYES 
581 0D656 850 ST=1 =sINX 


583 FOI IT TTI SII AT ISI III III SII ISTIIITIII STIS STS ISS ISIISIIA 
584 OD65B 860 =ORGSB ?ST=0 =sINX Set SB if sINX=1 

585 OD65E 00 RTNYES 

586 0D660 SOE GONC SETSB ‘ 

587 FORO TI TIS TTT TTT IOS STII SIT T ITT OT TTT TTT ITI ITI TIT TST SSA 
588 0D663 849 =SAVEXMN ST=0 = ski XM-->skM 

589 0D666 3831 ?xM=0 

590 0D669 50 GOYES SAVESB 

591 OD66B 859 ST=1— sxM 

592 OD66E 847 =SAVESB ST=0 = sIX SB-->sIX 

593 0D671 832 ?SB=0 

594 00674 00 RTNYES 

595 0D676 857 ST=1— s IX 

596 00679 01 RTN 


597 
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598 EJECT 
599 SOOO TI TI TOTO OI TI TTT OT 
600 JI IO TIO IIT IOT TOS ITS I IS SSS ISIS IIIS SII SSS SI SIS 
601 ax 
602 kk Nane:(S) ARGI2 - Return Arg of X+i¥ (12-dig args) 
603 ** Nane:(S) ARGIS - Return Arg of X+i¥ (15-dig args) 
604 en Nane:(S) ARGF - Return Arg of X+i¥ (15-dig finite args) 
605 * 
606 *% Category: MATH 
607 a 
608 ** Purpose: Argurient of X+iY. Used by ANGLE. 
609 ae 
610 xk Entry: ARG12: 12-Dig args- A:X, C:Y, =sRAD 
611 aa ARG15: 15-Dig args- AB:X, CD:Y, =sRAD 
612 ve ARGF : 15-Dig finite args- AB:Y, CD:X, =sRAD 
613 % 
614 xk Exit: A&B: ARG(X,Y) 
615 at 
616 ** Calls: SPLTB, MSN15, AFIN, SWAPXY, =DV2-15, SAVGSB, 
617 . ATAN1S, ORGSB, PI/2D, =ADDF , XMOSBO. 
618 
619 ** Alters (INC): A,B,C,D,RO,R1,P,sIX,=sINX,sCOMP, SATAN, sSGN, 
620 ak =sRAD,s+PI/2,SB, XM 
621 a& 
622 AE Stk lvls: 2 
623 ae 
624 . Algorithm: Weed special cases, call ATAN1S(Y/X) 
625 
626 ** History: 
627 aa 
628 - Date Progranner Modification 
629 Mes Met eee ees . Ga eee Ske oe ten ee Sees 
630 aa 6/30/82 SB sAFFIN used in place of P 
631 xe 10/06/82 = SB Code Pack: Eliminate Proj Mode, 
632 xx Also bugfix (X,Y)=(FINITE, INF). 
633 ae 11/15/82 SB Bugfix: ANGLE(0,0)=0 is EXACT. 
634 xk =—-02/07/83 = SB Update header. 
635 xk 11/02/83 SB Additional Docunentation 
636 SORIA ITC 
637 FOR RO IO IOI III 
638 0D67B 7080 =ARGI2 GOSUB SPLTB 
639 OD67F 7E9F =ARG15 GOSUB xXfMOSBO XM=0, SB=0 
640 00683 70DE GOSUB MSN15 
641 00687 400 RTNC If any NaN, return a NaN. 
642 OD68A 100 RO=A Save sign(X) 
643 ODE8D 103 R1=C Save sign(Y) 
644 OD69%) 760 GOSUB AFIN 
645 00694 7373 GOSUB SWAPXY Y:RAB -xX:CD 
646 00698 571 GONC = =XFINIT If X finite, go XFINIT. 
647 
648 OD69B 926 7AKC XS (INF, 7); 
649 OD69E 91 GOYES DIVYX If ¥ finite, go DIVYX. 
650 OD6AC 68A0 GOTO IVARG (INF, INF). Error: Inv Arg. 
651 
652 OD6A4 97F =ARGF ?DHO 
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653 OD6R? O1 GOYES DIVYX 

654 OD6AS 970 7BHO OW 

655 OD6AC BO GOYES DIVYK 

656 ODGRE 01 RIN 

657 

658 OD6BO 7C40 XFINIT GOSUB AFIN 

659 OD6B4 SFE GONC  ARGF 

660 OD6B7? 8E00 DIVYX GOSUBL =DV2-15 
00 

661 OD6BD 7D8F GOSUB SAVGSB 

662 OD6C1 79F4 GOSUB ATANI5 

663 OD6C5 729F GOSUB ORGSB 

664 OD6C9 118 C=RO 

665 OD6CC 94A C20) § 

666 ODECF 00 RTNYES 

667 

668 OD6D1 119 C=R1 

669 OD6D4 2E P= 14 

670 OD6D6 A9Z C=0 WP 

671 OD6D9 AF? D=C W 

672 Ob6DC 879 *ST=1 =sRAD 

673 OD6DF 21 GOYES MAKEPI 

674 OD6E1 E7 D=D+1 A 

675 OD6E3 E7 D=D+1 A 

676 OD6ES 2D = 13 

677 OD6E? 3181 LCHEX 18 

678 OD6EB AFF CDEX WwW 

679 OD6EE 5B GONC  ARGEX 

680 OD6F1 7584 MAKEPI GOSUB PI/2D 

681 OD6F5 R77 D=D+D W 

682 OD6F8 CF =D-1 8 

683 OD6FR 8COO ARGEX GOLONG =ADDF 


00 
684 
685 


Page 18 
If X#0, go DIVYX. 


If Y#O, go DIVYX. 
(0,0}. Return Y. 


(Finite, 7) 
If ¥ finite, go ARGF. 


Save divide Exactness (=sINX) 
ATANCY/X). 

Set SB if inexact divide. 
Fetch sign(X) 

If Sign(X)="+", ATAN(Y/X). 


Fetch sign(Y) 


D[S]=Sign(Y¥) 
If RAD Mode, : MAKEPI 


Create 180 (+/-) 
Exp=2 


BET. CD = SGN(Y)*180 
SGN(Y)*3. 14159265358980 
SGN(Y)*3.14159265358979 (BETTER) 
NOTE: Never 0, ==> Round node 


not inportant. 
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686 EJECT 
687 kesccessiShscssSsessecsstsssesssscssssssscsssissssssssssssssssz 
688 kecssssscsscssssszezss JUMP TABLE =s=2s=sssssssss2crs5ene22e=22 
689 OD700 8C00 AFIN GOLONG =FINITA JTANTH RTNCC IF X FINITE 

00 
69% 00706 8C00 SPLTA GOLONG =SPLITA JTANTH 

00 
631 OD70C 8CO) SPLTB GOLONG =SPLTAC JTZMTH SPLIT BOTH X & Y 

00 
692 XSWAPKY GOLONG =XYEX (Moved-BS)JTZNTH SWAP X & Y 
693 00712 6000 =STRB1X GOTO =STAB1 JTZNTH STORE X IN RO,R1 
694 *RCCD1X GOTO =RCCD1 (Moved-BS)JTZNTH FETCH Y FROM RO,R1 
695 Recccscsestcstsststsssesssccssscesscsssessesscessessescssscssscz 
696 kesrerssrssssssssrsresessssssssssssssssrsessscsssssssscsssscsrs: 


697 
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698 
699 JEG ITI TOSS TOSS OSI TITS IS OTT II ITT IATA 
700 20 OOO SISOS IACI TI TO TRI 
701 aK 
702 ®X Wane: (S$) SINI2 - Trig: Sine of 12-dig arg 
703 ** Name: (S$) COS12 - Trig: Cosine of 12-dig arg 
704 ** Wane: (S) TANI2 - Trig: Tangent of 12-dig arg 
705 ** Wane: (S$) SINIS - Trig: Sine of 15-dig arg 
706 *k Wane: (S) COS1S - Trig: Cosine of 15-dig arg 
707 ** Wane: (S$) TANIS - Trig: Tangent of 15-dig arg 
708 a 
709 %* Category: MATH 
710 tk 
711 *% Purpose: SINE, COSINE, & TANGENT 
712 tk 
713 &* Entry: SIN12,COS12, TAN12 - Standard Nath, 12-dig arg’ts 
714 es SIN15,COS15, TAN1S - Standard Math, 15-dig arg’ts 
715 ax 
716 xe All entries assure Status bit =sRAD encodes 
717 - the desired angle node (SET=RAD MODE) 
718 x 
719 ** Exit: A&B: 15-digit result. COS & SIN entries also 
720 ak produce TAN (or COT) magnitude in RO&R1. 
721 ae 
722 Kx Calis: SPLTA, AFIN, SHFRAC, SHFRBD,PI/4, TWO*, DBLSUB, 
723 ze SHF LAC , FLIPS, FLIP1O,FLIP11,GETCON, =MULTF,=1/x15, 
724 ax =DIVFCD, STAB1X, RCCD1X, =MP2-15, =ADDONE, =SQR15, 
725 ax FUDGE. 
726 za 
727 ** Alters (INC) : A,B,C,D,RO,R1,P,SB,XM,CARRY, and 
728 ae Status bits - sIX, sINVRT, sTAN, sSGN, sSGNT. 
729 ax Current Value: 7 8 6 10 11 
7% aK 
731 *K Stk lvls: 2 
732 RX 
733 ** Algorithn: 
734 Be The absolute value of the argument is dol word reduced 
735 ax by 2*Pi (or 360), then by Pi/2, and Pi/4 to obtain 
736 ne O<=Phi<=Pi/4. A pseudo divide produces (X,Y) mith 
737 ah 0<=¥<=X and TAN(Phi) = Y/X . Fornulas; 
738 ak TAN(Phi) = ¥/X 
739 ax SIN(Phi) = .1/SQRT(1+(X/¥)%2) 
740 ax COS(Phi) = 1/SQRT(1+(¥/X)%2) 
741 ee Related back to the argunent via STATUS bits. 
742 ae 
743 ak SIX (7) : Local exactness. Not set=Exact. (INEXACT flag) 
744 kk sINVRT (8) : If set, use X/Y¥ instead of Y/X (INVERT flag) 
745 &* sTAN (6) : If not set, TAN is desired (TAN flag) 
746 %X sSGN (10): Sign of result (SGN flag) 
747 ** sSGNT (11): Sign of TAN (SGNT flag) 
748 xe 
749 ** History: . 
750 kx 
751 e Date Progranner Modification 


752 $e Srlwtes: ‘eee Gaelvtacletesanmccusedtcautere uous 
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753 ax 7/15/82 SB Fix to sign of 0 for COS(90), etc. 
754 a 8/12/82 SB Bugfix: Neg Exp in Radian Node. 
755 tk 10/29/82 SB Pack: INIT rearrangenent 
756 x 12/09/82 = SB Inprove Connents, Label Change 
757 ax TRG150->REDUCE, Code Pack 
758 Rk 12/14/82 SB Label changes, code Pack in area 
759 ax where exactness established. 

70 ** = 02/10/83 SB Code Pack: Put XTENDE in line. 
761 Rk 03/31/83 SB Error sg change: TAN=INF replaces 
762 ak previous TAN or SEC=INF. 
763 JO II OTIS OTE ISSO OS SIS IS IIIT I SII SII IIA II 
764 JOISTS OOS OS SOS IOS SSS OSI IIS II IIIS IIIT II IK 
765 00716 7CEF =SINi2 GOSUB SPLTA 
766 OD71A 858 =SIN1S ST=1 = sINVRT SIN: (INVERT=YES) 
767 0D71D 6AOO GOTO TRG10 (TRN=NO) 
768 
769 OD721 71EF =COS12 GOSUB SPLTA 
770 OD725 848 =COS15 ST=0 = sINVRT COS: (INVERT=NO) 
771 00728 856 TRG1O ST=1 ~ sTAN (TAN=ND) 
772 OD72B 6D0O GOTO  TRGSO 
773 
774 OD72F 73DF =TAN12 GOSUB SPLTA 
775 00733 848 =TANIS ST=0  sINVRT TAN: (INVERT=NO) 
776 00736 846 ST=0  sTAN (TAN=YES) 
777 
778 OD739 74EE TRGSO GOSUB XMOSBO INIT: XM=0, SB=0 
779 0D73D 7FBF GOSUB AFIN 
780 00741 531 GONC = TRGF If finite, go TRGF 
781 00744 96C PAHO OB 
782 00747 00 RTNYES If NaN, send it back. 
783 00749 OOPS4 If INF, error 
784 00749 20 ===IVARG P= 0 
785 OD74B 3100 LC(2) =eIVARG "Invalid Argunent™ 
786 OD74F 8C00 BLDNAN GOLONG =INVNaN 
00 
787 
788 OD755 AF2 RGF C=0 W [FINITE ARG) 
789 OD758 108 RO=C Louw order MANT = zero 
79) 0D75B 84A ST=0 — sSGN (SGN=+) 
791 OD75E &84B ST=0 — sSGNT (SGNT=+) 
792 0D761 878 7S8T=1 sINVRT SINE? 
793 00764 50 GOYES TRG100 
794 00766 B46 C=C+1 $ flag: Retain COS entry. Used 
795 00769 109 = TRG100 R1=C for proper sign of COS(%) 
796 
797 OD76C ACI B=0 S Ensure zero field 
798 OD76F 847 ST=0 ss IX 
799 00772 979 78-0 =o 
800 00775 50 GOYES TRGi25 If arg zero, EXACT result. 
801 0D?777 857 ST=1 ss IX 
802 OD77R 948 TRGI25 7A=0 = = § Argurent sign="+" ? 
803 00770 DO GOYES TRG130 Yep, go TRG130 
804 OD77F &5B ST=1— sSGNT TAN(a}=-TAN(-a) 
805 OD782 868 ?S8T=0 sINVRT 


806 0D785 50 GOYES TRG130 COS(a)=COS(-a) 
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807 00787 
808 OD?78A 
809 0D78A 
810 OD78D 
811 OD78F 
812 00792 
813 00794 
814 00796 
815 00799 
816 OD79C 
817 OD79F 
818 
819 
820 
821 
822 
823 
824 
825 
826 OD7A2 
827 OD7AS 
828 
829 OD7A7 
830 OD7AA 
831 OD7AD 
832 
833 OD7AF 
834 0D782 
835 
836 0D785 
837 00788 
838 OD76B 
839 OD7BF 
840 
841 
842 
843 
844 
845 
846 0072 
847 OD7C5 
848 OD?7C7 
849 OD7CB 
850 OD?7CF 
851 00703 
852 0D7D7 
853 
854 
855 
856 
857 
858 
859 OD70B 
860 OD7DE 
861 OD7E2 
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85A ST=1 sSGN SIN(a)=-SIN(-a) 
TRG1 30 
ACO A=0 S |Arg| 
25 P= 5 Extend EXP sign [6-dig EXP] 
R80 A=0 P 
D6 C=A AR 
C6 C=C+C A 
550 GONC TRG135 
ROC A=A-1 P 
AF6 TRG135 (=A OW Exp--->C 
AF4 A=B W High Mant--->A 


FOI OO ITI TO TOT TOE TOR RT IK 


x PREPARE FOR FIXED POINT 31-DIGIT TRIG REDUCTION * 
x Make argunent alignnent agree with reduction constant * 
* [0360000...] or [062831...] x 


879 ?$T=1  =sRAD If RAD MODE: M=[Ox. xxx... ], 
D1 GOYES REDUCE Exp=E, & go REDUCE. 

ALE C=C-1 WP 

90E CHO OP If X<10:  M=[Ox. xxx... J, 

07 GOYES TRG181 Exp=E-1 & skip Reduce. 

ALE C=C-1 WP If X>=100: N=(Oxxx. xxx... ], 
5FO GONC REDUCE Exp=E-2, & go REDUCE. 

B16 C=C+1 WP 

128 CROEX ELSE 10=<X<100: M=[O0xx. xxx... ], 
7293 GOSUB SHFRAC Exp=E-1, & begin REDUCE. 
128 


FOI IIIT RI IO IOI TR FI IIT ITI TIT TSI 


FORO TOIT TOR TO TIT TT TO ITI OK 


x Generate reduction constant if arg not snall : 
90E REDUCE ?(#0 = =P Neg EXP? 
56 GOYES TRG181 Yes. Skip 2*pi & pi/2 reduce 
7133 GOSUB DBLPI4 Fetch dbl pi/4 or 45 
7963 GOSUB TWO* Doubling: 2*pi or 360 (B,D) 
7563 GOSUB = TWO* 
7163 GOSUB TWO* 
7483 GOSUB SHFRBD Shift 360 (or 2*pi) right 


FO RIOR TOO 


FOI IO IIT TOTO TTT TTI 


k 360 or 2*PI Reduction x 
128 RED360 CROEX Mant--->(A,C) Exp--->RO 
7BF2 TRG155 GOSUB DBLSUB Double subtract 
5BF GONC TRG155 Repeat until negative 


Saturn Asserbler Math Routines - Part 2 <831216 Fri Dec 30, 1983 5:10 an 


Ver. 3.39/Rev. 2306 Page 23 
862 OD7E5 7053 GOSUB SHFLAC Align for next pass 
863 OD7E9 128 CROEX 
864 OD7EC RIE C=C-1 WP Dec exp, Negative? 
865 OD7EF SBE CONC RED360 Nope, continue reduce 
866 OD7F2 ASZ C=0 WP Set extended EXP zero 
867 FIO II DSI III IIIT I II III ITI IIIT TTA TI IIIT IOI SSS SIT SII IIS SII SIS 
868 
869 
870 
871 SIRI III RII III II IDIOT I III II III I III IIIB III SSIS IIS SIS SSSI SSI SSIS IS 
872 * fArgunent align and constant generation for reduce % x 
873 OD7F5 128 TRG160 CROEX Mant ---> (A,C) 
874 OD7F8 7003 GOSUB DBLPI4 fetch dbl pi/4 or 45 
875 OD7FC 7833 GOSUB TWO* pif2 or 9 
876 OD800 869 ?$T=0 =sRAD Deg node? 
877 00803 AO GOYES RED® If yes, skip alignnent shifts 
878 0D805 7653 GOSUB SHFRBD Shift PI/2 right 
879 0D809 7443 GOSUB SHFRAC Shift Theta right 
880 JIS OCI II TO IIS TTI ITO SS TI IAS IT III IIIA SSSI III TK 
881 
882 
883 
884 SOR ROOIO OOO TOIITO 
885 x 31-dig Trig reduction (90 or pi/2) x 
886 OD80D 7(C2 RED9O GOSUB DBLSUB REDUCE Q BY 90 OR PI/2. BORROW? 
887 00811 451 GOC TRG180 Yes, go TRG180 
888 00814 7393 GOSUB FLIP11 TAN( a+90 )=-COT(a) 
889 OD818 7173 GOSUB FLIP8 SIN(a+90 )=COS(a) 
890 OD81C 40F GOC RED90 COS(a+90 )=-SIN(a) 
891 OD81F 7973 GOSUB FLIP10 Toggle Sign flag 
892 00823 69EF COTO  RED%® 
893 OIRO UO TOT TO TTT III TOI IIIT ITT IN 
894 
895 00827 128  TRG180 CROEX Fetch exp to C 
896 OD82A 869 TRG181 ?ST=0 =sRAD 
897 OD82D 71 GOYES TRG270 If DEG Mode, go TRG270 
898 OD82F SIE 7C#0 =O WP EXP NONZERO? 
8399 OD3832 FO GOYES TRG260 YES (Arg small, didn’t reduce) 
WO 00834 128 CROEX 
901 OD837 7803 GOSUB = SHFLAC Shift theta left 
%2 OD83B 128 CROEX 
903 OD83E 550 GONC  TRG270 BET. 
904 00841 B16 = TRG260 C=C+1 WP Bunp exp 
905 
96 0D844 9OE TRG270 *CHO) OP C:EXP, RO:tou Theta 
907 OD847 24 GOYES TRG2?79 If Neg EXP, go TRG279 
98 OD849 128 CROEX 
99 OD84C 7CA2 GOSUB DBLPI4 Get pi/4 or 45 
910 00850 7982 GOSUB DBLSUB Theta>=45 ? 
911 0D854 401 GOC TRG275 No, use theta 
912 OD857 AFC ABEX W Yes, 90-theta 
913 OD85A AFF CDEX Ww TAN(90-Q)=COT(Q) 
914 OD85D 7072 GOSUB DBLSUB SIN(90-Q)=CO0S(Q) 
915 00861 7823 GOSUB FLIP8 COS(90-Q)=SIN(Q) 


916 
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917 
918 SR IKI IIIT A III RII IIIS TAIT IIIS III IS ISI SII I IIIS SI IIIS ISS IS IIIA 
919 % Normalize reduced arg if necessary [15-dig result] x 
920 0D865 2E TRG275 P= 14 
921 OD867 128 CROEX 
922 OD86A AFS B=C W Exp to B 
923 OD86D 128 CROEX 
924 01870 97C PAHO OW High theta zero? 
925 00873 70 GOYES NORM If non-zero, go normalize 
926 0D875 397A C=O) OW Low order theta zero also? 
927 00878 41 GOYES TRG280 If yes, skip nornalize 
928 
929 0D87R 90C =NORM =?7RHO OP Lead digit non-zero? 
930 0D87D FO GOYES TRG280 If so, done nornalize 
931 OD87F 73C2 GOSUB SHFLAC double word left shift 
932 0D883 CD B=B-1 A Decrenent exp 
933 OD885 64FF GOTO NORM Do again 
934 KIKI ID ISI SII II ISIII IIIS SSSI III I IPT IIIA II III IPI IIIS SII III IIIS: 
935 
936 
937 
938 SIRO TTT TT SIO 
939 * Exactness: RAD Mode 0, or TRG(O),SIN(30), TAN(45) x 
940 003889 AFS TRG279 B=C W 
941 OD88C TRG280 A:Mant B:Exp 
942 OD88C AFC ABEX W 
943 OD88F 879 ?S8T=1  =sRAD 
944 00892 B2 GOYES TRG290 If RAD, only zero EXACT. 
945 00894 979 7B=0 «OW 
946 0D897 32 GOYES TRGEX If reduced arg zero, EXACT. 
947 0D899 8AC PAHO OR 
948 OD89C 12 GOYES TRG290 If Exp#O, can’t be 3%, 45. 
949 OD89E AF2 C=0 W 
950 OD8A1 2D P= 13 
951 OD8A3 3154 LCHEX 45 
952 OD8A7 866 ?ST=0 =sTAN 
953 OD8RA BO GOYES TRGTST If Tan, check 45. 
954 OD8AC 868 ?ST=0 = sINVRT 
955 OD8AF EO GOYES TRG290 If Cos, inexact. 
956 0D8B1 3103 LCHEX 3% Else Sin, check X. 
957 OD8B5 975 TRGTST 7BAC OW 
958 OD8B8 50 GOYES TRG290 
959 OD8BA 847 TRGEX ST=0 — sIx Exact result (S$7=0) 
960 SSID III III TITAS ISIS II SSIS IIS IIIITIIISIIIII TTI II IIIT ISIS TI ISIN 
961 
962 
963 
964 SII III IIT ITI IOS IIIA TTI IIIS IIS ST ISISIISIOS III ISIS SSSI ISIS SIA 
965 * If Degree Mode, convert arg to Radians e 
966 OD8BD CC TRG290 A=A-1 A DEC EXP 
967 OD8BF 879 ?ST=1  =sRAD RAD MODE? 
968 OD8C2 31 GOYES TRG300 YES 
969 OD8C4 2? P= ? 
970 OD8C6 7901 GOSUB GETCON Fetch PI/180 
971 OD8CA AF? D=C W 
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972 OD8CD D2 C=0 R Make 15-digit forn 

973 OD8CF 8E00 GOSUBL =NULTF (PI/180)*Theta 

974 KIKI SI ISIS III IIIS III I ISIS I III III IIS SIS SIS IIIS SIS ISI IIS ISI IIIS 
975 

976 

977 

978 OD8D5 Dé TRG30O C=A A Special case: EXP=-1 

979 OD8D?7 £6 C=C+1 A Inc exp, carry? 

980 OD8D9 5A0 GONC TRG310 No, Go see how snall 

981 OD8DC BFI1 BSL W 

982 OD8DF 2E : P= 14 Yes, shift Mantissa and 
983 OD8E1 492 Goc TRG330 (BET) go pseudo-divide (p=14) 
984 

985 OD8E4 D2 TRG310 C=0 A EXP<=-2; How small is it? 
986 OD8E6 20 P= 0 

987 OD8E8 28 LCHEX 8 

988 OD8EB C2 C=C+A A -8<=EXP 7 

989 OD8ED 411 coc TRG318 Yes, go TRG318 

990 OD8FO 868 ?$T=0 = sINVRT No, very small. 1/TAN ? 
991 OD8F3 80 GOYES TRG314 No, ARG=Answer 

992 OD8F5 8EOO GOSUBL =1/X15 Yes, Invert ARG 

00 

993 OD8FB 6BAO TRG314 GOTO TRC430 

994 

995 OD8FF AE6 TRG318 C=A B 

996 00%2 25 P= 5 INDEX: J=EXP+16 

997 00904 809 C+P+1 

938 00907 8000 P=C 0 

Fe KI ITI ID ID II IO TIS IIIS IIIT III IAI III III SIS IIS II IIIS TI III III IIA 
1001 x PSEUDO-DIVIDE - 
1002 0D90B AFO TRG330 A=0 W PSEUDO-DIVIDE (A=PQUOT) 
1003 OD9OE 7191 TRG340 GOSUB GETCON Fetch PHI=ATAN(10**-1), 
1004 00912 550 GONC  TRG800 BET 

1005 00915 B44 = TRG810 A=A+1 $ Bunp current PQUOT 

1006 00918 B71 TRG800 B=B-C W Theta=Theta-PHI. Borrow? 
1007 ODS1B 59F GONC TRG810 Nope, do again 
1008 ODSIE A?71 B=B+C W Restore Theta 

1003 00921 OD P=P-1 Decrerent INDEX J 

1010 0D923 BF4 ASR W Shift Previous PQUOT’S 
1011 00926 BF1 BSL W Align Theta 

1012 0D929 887 ?PH ? J=7? (Done PSUEDO-DIVIDE?) 
1013 OD92C 2E GOYES TRG340 Nope 

1014 OD92E BFS BSR W 

1015 00931 BFS BSR W Forn Y(8) 

1016 00934 AFE C=A W 

1017 0093? 2F P= 15 

1018 00939 3177 LCHEX 77 

1019 0D93D AFA A=C W AR = [1,PQUOT,i} (1=7) 
1020 0D940 AF3 D=0 W 

1021 00943 2E P= 14 

1022 0D345 BO? D=D+1 P D=x(8)=1 

1023 OD94E AFI C=B W B=C=¥(8) 

1024 0D94B 5A1 GONC  TRG370 BET - Go unravel PQUOT 
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1025 
1026 
1027 
1028 
1029 
1030 
1031 ODS4E B96 
1032 00951 B96 
1033 00954 A4E 
1034 00957 S6F 
1035 OD95A AC2 
1036 OD95D AFF 
1037 00960 B7F 
1038 00963 A739 
1033 OD966 AFS 
1040 009639 ACE 
1041 OD96C AOC 
1042 OD96F 54E 
1043 00972 BDO 
1044 00975 958 
1045 00978 21 
1046 OD97A AAC 
1047 0D97D AGC 
1048 00980 AC2 
1049 00983 BF6 
1050 00986 6FDF 
1051 
1052 
1053 
1054 
1055 OD398A ACO 
1056 OD98D AC2 
1057 00990 A7F 
1058 OD993 F8 
1059 00995 D1 
1060 OD997 868 
1061 OD99A 70 
1062 OD9SC FB 
1063 OD99E AFF 
1064 OD9A1 8E00 
00 
1065 OD9R7 876 
1066 ODSAA 51 
1067 ODSAC 831 
1068 ODSAF 14 
1069 O03B1 BCC 
1070 OD9B4 20 
1071 OD9B6 3100 
1072 OD9BA 20 
1073 OD9BC 5C3 
1074 
1075 ODSBF 119 
1076 OD9C2 394A 
1077 OD9C5S BO 
1078 OD9C? 831 
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SOR RII I ROR  e 


SOIR ITI TTT TT TEETER IATL I SAIS ISIS IIT 
x UNRAVEL PQUOTE * 


TRG350 CSR WP Forn (10%**-2i)Y 
CSR WP 

TRG360 C=C-1 S$ jtj-1. Borrow? 
GONC TRG350 Nope, keep shifting 
C=0 S 
CDEX W D=(10**-21)¥. C=X 
D=(-D W XK? =K-(10**-2i)¥ 
C=C(+B W Y’=X+¥ 

TRG370 B=C W B=Y¥=Y’ 
C=A S jzi (shift counter) 
A=A-1  P PQUOT=PQUOT-1. Borrow? 
GONC  TRG360 Nope, continue (sane i) 
ASL nH 
7A=0)0O Rest of PQUOT=07 
GOYES TRG400 Yep, Done- C=¥, D=X 
A=A-1 S$ Nope, decrenent i 
A=A-1 B decrenent exp 
C=0 S 
CSR W Y=1O*y 
GOTO  TRG370 


ORR OI TOO TIT TTR TTR TT TTT IK 


TRG400 A=0 S 
C=0 S Clear junk in signs 
D=0-1 W PROTECT FROM 10 DIVIDE 
A=-A A EXP(Y)=-1 
B=0 A EXP(X)=0 
?ST=0  sINVRT Y/X? 
GOYES TRGA20 YES 
A=-A A CONP EXP 
CDEX WwW X/Y 
TRO420 GOSUBL =DIVFCD Z=¥/X or X/Y 
TRG430 ?ST=1  sTAN SIN or COS ? 
GOYES TRG440 Yep, go TRG440 
?XA=0 No zero divide? 
GOYES TRG500 Yep, go TRG5OO 
A=-A-1 § Fudge sign (toggle) for INF 
P= 0 
LC(2)  =eTNINF MSG="Tan=INF" 
P= =DZP Restore err code 
GONC TRGS1S BET. Go set sgn of INF 
TRO440 C=R1 Fetch flag 
*C=0 S COSINE? 
GOYES  TRG450 NO. 
?xN=0 TAN=INF? 
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1079 ODSCA 60 GOYES  TRG450 NO. 
1080 ODSCC 7CC1 GOSUB = FLIP10 Toggle sign (COS(%), etc.) 
1081 OD9D0 7E3D TRG450 GOSUB  STABIX Z=TAN OR COT--->RO,R1 
1082 OD9D4 7B91 GOSUB RCCD1X 
1083 OD9D8 8E0O GOSUBL =MP2-15 FORN 2**2 
00 
1084 OD9DE 8E00 GOSUBL =ADDONE FORM 14Z**2, Not 0, ==> Round 
00 
1085 node not isportant. 
1086 ODSE4 8E0O GOSUBL =SQR15 FORN SQRT(14+2**2) 
00 
1087 ODSEA 8E00 GOSUBL =1/x15 FORM 1/SQRT(1+Z**2) 
00 
1088 
1089 ODSFO 7214 TRGSOO GOSUB FUDGE Make perfect if exact. 
1090 OD9F4 876 TRGS1O ?ST=1  sTAN SIN or COS ? 
1091 OD9F7 CO GOYES TRG530 Yep, go TRG53 
1092 ODSF9 868 = TRGS15 ?ST=0 sSGNT Negate TRAN ? 
1093 OD9FC 00 RTNYES No 
1094 OD9FE BCC TRGS20 A=-A-1 $ Coriplenent sign 
1095 ODAO1 01 RTN 
1096 ODAO3 86A TRGS30 ?ST=0 sSGN Negate result? 
1097 ODAOE 00 RTNYES No 
1098 ODRO8 55F GONC TRG520 Yes (BET) 
1099 
1100 III I TA IIIS IIT IARI I III I IIIA III II III IIIT SII TIS I ISI IIIT I AIA 
1101 
1102 
1103 ODROB 8COO =SWAPXY GOLONG =XYEX JTZNTH SWAP X & Y 
00 
1104 (moved here to pack code. 8S) 


1105 
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1106 EJECT 
; 1107 23 IO IO ISI IO ITO ISSO RSIS TAI 
1108 20 IO IOI ISIS II IIIS III IIT IIT I IIIT IS 
1109 *& Nane:(S) TRC9O - Table of nuneric constants 
1110 ax 
1111 ** Category: MATH 
1112 kk 
1113 *x Purpose: Constants used by the trig routines. 
1114 ak 
1115 &* Entry: Values are accessed by a call to GETCON with a 
1116 ae select code in P (See GETCON, GETVAL). 
1117 RK 
1118 ** History: 
1119 aX 
1120 ak Date Programmer Modification 
1121 BK ween een ener nner ne ren nen nnn nnn eee nn ee ene = 
1122 kk 11/02/83 SB Docunented 
1123 JUICE 
1124 JU III IOI OI III OO TATE IE 
1125 ODA11 0261 =TRC9O NIBHEX 0261194256866990 ATAN(10°-1) 14 
1942 
5686 
6990 
1126 ODA21 4256 NIBHEX 4256668666699990 ATAN(10°-2) 13 
6686 
6669 
39% 
1127 ODA31 7686 NIBHEX 7686666669999990 ATAN(10°-3) 12 
6666 
6999 
999 
1128 ODA41 7666 NIBHEX 7666666999999990 ATAN(10°-4) 11 
6669 
9999 
99% 
1129 ODAS1 7666 NIBHEX 7666699999999990 ATAN(10*-5) 10 
6999 
9999 
99% 
1130 ODAG1 7669 NIBHEX 7669999999999990 ATAN(10°-6) 9 
9999 
3999 
99% 
1131 ODA71 7999 NIBHEX 7999999999999990 ATAN(10°-7) 8 
9999 
9999 
9990 
1132 ODA81 3349 NIBHEX 3349915292354710 PI/180 ? 
9152 
9235 
4710 


1133 ODA91 8447 NIBHEX 8447933618935870 PI/4 6 
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1134 
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1135 
1136 ODAAI 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1185 
1156 
116? 
1188 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
116? 
1168 
1169 
1170 
1171 
1172 
11273 
1174 
1175 
1176 ODAR3 
1177 ODRAS 
1178 OBRRS 
1179 ODARB 


1180 ODAB2 
1181 ODAB4 
1182 ODAB6 
1183 ODABS 
1184 ODABB 
1185 ODABD 
1186 ODAC 
1187 ODACS 
1188 ODAC? 


26 


D2 
80F 1 


07 


341F 
RDO 
04 
EB 
05 
136 
DF 
8001 
1567 
DF 
134 
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EJECT 
=PI/4 P= 6 Use GETCON to fetch PI/4 


FORO JIU IOUT OT TTT TT RII 
FORO IIIT TOTTI TOI IO OT IK 
a 


kk Nane:(S) GETCON - Get constants fron table 
** Nane:(S) GETVAL - Get constants fron table 


&* Nane:(S) PI/4 - Fetch Pi/4 fron table 
ka 

** Category:  MTHUTL 

kk 


** Purpose: Access nuneric constants stored in table. 
ih 


kk Entry: Table index in P (Selects desired constant). 

ik 

ae Exit: Constant selected in C 

kk 

kk Alters (INC): C,D[A] 

kk 

** Stk Ivis: 0 

ak 

** NOTE: 

a Presently used only for constant table starting at 

ak label TRC90. However by entering at label GETVAL, this 
ak code can be used to access constants stored in other 
kk tables. The 1st constant corresponds to P=14, the 2nd 
cs to P=13, etc. 

ik 


** Algorithm: Value of P determines offset fron table start. 
kk 


&k History: 


kn 
a Date Progranner Modification 

a 6/07/82 SB Docunented 

ax G/H/82 = SB Use of D[A] instead of stack. 

kk = 01/06/83 SB Neu entry: PI/4 

xk 02/07/83 = SB Nove =PI/4 above header-Cosnetic 
aR change only. 

JOTI OO TOOT TOO OT IIR 


JOT IIIT OTTO TTT TIT TOTTI ITT OK 


=GETCON C=0 A 
CPEX 1 
d=C A D[R}=[000PO] (P in Nib 1) 
LC(5) (=TRC90)+#EO Address of P=0 constant 
=GETVAL SETHEX 
C=C-D A Rddress of desired constant 
SETDEC 
CDOEX 
CDEX fA Save DO, Fetch back P 
P=C 1 Restore P 
C=DATO W Fetch constant 
CDEX A Cleanup: Restore DO 
DO=C 
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1189 ODACA DB c=) A 
1190 ODACC 03 RTNCC 
1191 
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1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 ODACE AF2 
1219 ODAD1 2E 
1220 ODAD3 BOG 
1221 ODADE 971 
1222 ODADI 00 
1223 ODADB 01 
1224 


Math Routines - Part 2 <831216 Fri Dec 30, 1983 5:10 an 
Page 32 


EJECT 
OR IIR UI RTO ROJO TIT 


OUI TORII UII III TIO ITO TIT TIO TIO OK 


** Narie:(S) MAKE1 - Make 12-dig 1 in C and compare with B. 
xt 

** Category: MTHUTL 

kh 


*% Purpose: Make 12-dig 1.0 in C and test against value in B 
at 


** Entry: DEC Node 
ae 


AS Ea ts C: [0100000000000000], P=14; CARRY Set iff B=C 


ak 
*% Alters: C,P,CARRY 


at 
** Calls: Nothing 

xk 

** Stack Levels: 0 

xk 

** History: 

xk 

ae Date Progranner Modification 

BRO Gee eae | eee e ani ead idee 
xk 11/02/83 SB Docunented 


FOI TOTO TOTO TT TTI IK 
FTO TOIT IID ITI ITI III IN 


sMAKE1 C=O 8 W 


P= 14 
C=C+1 P 
7B=C OW 
RTNYES 
RTN 
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1225 

1226 

122? 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1280 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 ODADD B70 
1259 ODREO 461 
1260 ODAE3 B78 
1261 ODRE6 440 
1262 ODRES 03 

1263 ODAEB A7C 
1264 ODREE 500 
1265 ODAF1 B74 
1266 ODAF4 A7B 
1267 ODRF? R70 
1268 ODAFR O02 

1269 
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EJECT. 


FO IIIS TOI TOOT OO TOI TTT OTOL 
200K KOO I TOI TTT TI TT TT TOK 


ak 


xk Nane:(S) DBLSUB - Double Precision Subtract 


as 
** Category: 
wh 


** Purpose: 
xX 


*X Entry: 
ah 
ah 
ae 
BK ERTL: 
at 
ak 
aR 
ah 
ah 
ak 
aK 


NTHUTL 
Dbl Precision subtract (used in TRIG Reduction). 


A&C:¥, B&D:X 31-digit positive fixed point 
values. First 15 high order digits are in A&B. 
Notation: XH=high order word of X. 


R&C: 2Z 
Carry Clear: Z=Y-X 
Carry Set : Z=¥ (In this case Y¥<X) 


A B C D 
(ENTRY) YH XH ¥L KL 
(EXIT) ZH XH Zt KL 


** Alters (INC): A,C,Carry 


xx 


kk Stk Ivis: 
xk 


** History: 
wR 


ax Date 
We lc oe 
aa 6/07/82 


0 


Progranner Modification 


i ees ee we we ewe we ew eee ee ee ew we ee we 


$B Docunented 


FOI IOI IIIT IIT TOIT OOO TT TOTS 
JOTI IOI TOI IOI OT TOOT TOOT I IO ISTO 


=PBLSUB A=A-B 
GOC 
C=C-D 
GOC 
RTNCC 

DBL3 = A=A-1 
RTNNC 
A=A+1 
C=C+D 

DBL4 =A=A+B 
RTNSC 


W High order subtract 

DBL4 

W Low order subtract 

DBL3 Borrow needed? 
Successful subtract 

W Take care of borrow 
Successful subtract 

Wl Un-do borrow 

W Un-do Low order subtract 

W Un-do high order subtract 


Unsuccessful subtract 
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1270 
1271 JORIS IO SII TSAI IS TOI SII OSS III II SII SI SII II SII IIIT ISIS SS 
1272 FIT IIR III III II II TI III IIIS II II III IIIS SII III ISS ISI ISIS IISTS:. 
1273 ak 
1274 ** Narie:(S) DBLPI4 - Generate 31-digit PI/4 or 45 
1275 ax 
1276 ** Category:  MTHUTL 
1277 ak 
1278 ** Purpose: Generate 31-digit value PI/4 -or- 45 
1279 ae 
1280 > Entry: sRAD Status bit (sRAD=1 ==> PI/4, ELSE 45) 
1281 
1282 RK Exit: Value in [B,D], P=5. 
1283 ak 
1284 &k Calls: PI/4 
1285 ak 
1286 ek Alters (INC): B,D,P,Carry 
1287 ak 
1288 *k Stk lvls: 1 
1289 gia 
1290 ** History: 
1291 ak 
1292 ak Date Progranner Modification 
1293 RR ween nn eee e wenn ne nee en nn nn nnn nnn nnn nnn eee e nee 
1294 ak 6/07/82 SB Docunented 
1295 *k = 10/05/82 = SB Code Pack 
1296 tk 10/06/82 SB Code Pack - Elininate call GETCON 
1297 ek = 01/06/83 SB Fix header, Pack by moving the 
1298 ae entry PI/4 to before GETCON. 
1299 JIS III III IIIT ITI IIT III ISIS IIIS SOS SITS ISSO IISSSISSSS. 
1300 I II SIO III III II III IISIIISIISIIIIS SI SI SII IIS IS SIIIIIISIIS IIIS IS 
1301 ODAFC AFS =DBLPI4 B=C W Save (C) 
1302 ODAFF 869 ?$T=0 = =sRAD 
1303 ODBO2 72 GOYES DBL45 If DEG Mode, go create 45 
1304 ODBO4 799F GOSUB PI/4 High pi/4 
1305 ODBO8 AF? D=C W 
1306 ODBOB 20 P= 0 
1307 ODBOD 3F99 LCHEX 3096156608458199 Lon pi/4 
1854 
8066 
5169 
03 
1308 ODBIF AFF CDEX WwW 
1309 ODB22 25 EGRESS P= 5 
1310 ODB24 AFD BCEX W Restore (C) 
1311 ODB2?7 01 RTN 
1312 ODB29 AF2 ODBL45 C=0 W 
1313 ODB2C AF3 D=0 W 
1314 ODB2F 2D = 13 
1315 ODB31 3154 LCHEX 45 
1316 ODB35 4CE GOC EGRESS BET. Go exit 
1317 
1318 


1319 
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1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 ODB38 A75 
1338 ODB3B A?77 
1339 ODB3E 500 
1340 O0B41 B?5 
1341 ODB44 01 
1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 ODB46 ACA 
1361 ODB49 810 
1362 ODB4C BF2 
1363 ODB4F 01 
1364 

1365 ODB51 BF6 
1366 ODB54 814 
1367 ODBS? ACE 
1368 ODB5A ACO 
1369 ODBSD 01 
1370 
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EJECT 
JE IIS IOUT CISC OC TT TTT RT SII 


FORO OTT TIT IIIT II 
xk 


6 Nane:(S) THO* - Double Precision Doubler 
= Category:  MTHUTL 

a Purpose: Dbl Precision doubler 

- Entry: B&D: (B:XH, D:XL) 

Ak Exit: B&D: 2*X 

eh 


*k Alters (INC): B,D,Carry 
SI III A II IIIS III IIIT IS ISI IS SST ISIS SIS SI IS IIIS SSS SIS SSI SSIS SSSI ISIS: 


FOTO III I UIT TO TTT 


=TWO* B=B+B W Double the value in (B,D) 
D=0+D W Lou order add 
RTNNC Exit if no carry from low add 
B=B+1 W Carry reflected to high order 
RIN 


SOIT OTTO IOI TTT TT 
JOO III ITO TO OI ITT TTT TORTI 
ax 


** Narie:(S) SHFLAC - Double Precision Shift Left 
*k Nane:(S) SHFRAC - Double Precision Shift Right 
ae 


*k Category:  MTHUTL 
ak 


** Purpose: Db] Precision (Fixed Point) shifts 
ak 


ek Entry: A&C:X (A:KH, C:XL) 
kh 
kK Exit: A&C:10*X (or K/10) 
ik 


*X Alters (INC): A,C,(SHFRAC Only - SB) 


FORO IO OI IIIT TT TTT TIN 
FORO TOI JIT OK 


=SHFLAC A=C S Capture MSD of theta lou. 
ASLC Put it as LSD theta high. 
CSL W Shift theta low left. 
RTN 

=SHFRAC CSR W Lose LSD of theta low. 
ASRC LSD of theta high to sign. 
C=A S$ It becones NSD of theta low. 
R=0 S Shift 0 into theta high. 
RTN 
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1371 
1372 SUI III IIIT TOTO TI I TIS II SOI SO IIT SI ISIS SII IOI ISTO SII IIS IIS. 
1373 JU IOI I TOO IO OCIS TO TIO STS TTS TAT 
1374 ah 
; 1375 ** Wane: (S) SHFRBD - Double Precision Right Shift 
1376 Be 
1377 ** Category:  MTHUTL 
1378 aK 
1379 ** Purpose: Dbl Precision (Fixed Point) right shift 
1380 ak 
1381 ** Entry: B&D: (B:XH, 0:XL) 
1382 ax 
1383 RK Exit: B&D: /10 
1384 a 
1385 *k Alters (INC): 8,0,SB 
1386 $20 IG TOI TTT IS SIT OI OS SI SSIS ISS IIS: 
1387 20 OO TISSUE T SI 
1388 ODBSF BF? =SHFRBD DSR W Lose LSD of D. 
1389 ODB62 815 BSRC Rotate LSD of B to B[S]. 
1390 ODB65 ACD CBEX § Nake accessible to D. 
1391 ODB68 AC7 D=C Ss Move it to MSD of D. 
1392 ODBEB ACD CBEX § Restore C[S]. 
1393 ODB6E ACI B=0 Ss Clear MSD of 8B. 
1394 ODB71 01 RTN 
1395 
1396 
1397 JU IIIS TOTO TSI IAS TI 
1398 ODB73 6000 =RCCD1X GOTO =RCCD1 JT“MTH FETCH Y FROM RO,R1 
1399 JOT IS ISI SISO III IIIT II ISIS IIIS SI SII ISS STS III AIST I TAN 
ay JIS TIS IIIT I IIIT STO TIS II III I IOS IIS II III III ISS IISA SASS TIS: 
1402 JIS IOI ISS SIS ISO STII SS ITO ITI III III SSIS SSIS 
1403 ax 
1404 &X Warne: (S) PI/2 - Generate PI/2 
1405 ** Wane: (S) PI/2D - Generate signed PI/2 
1406 ak 
1407 ** Category:  MTHUTL 
1408 ae 
1409 ** Purpose: Generate Pi/2 (15-Digit forn) 
1410 aX 
1411 aX Exit: CD: 1.57079632679490 
1412 ax 
1413 ** Calls: PI/4 
1414 ax 
1415 kk Alters (INC): C,0,P,Carry 
1416 £2 
1417 &K Stk lvls: 1 
1418 JI IO I SO OOS OOS I IIS OI III OSI TIA SII SS SOS IIS 
1419 JI TIO I III IISA IIS IOI TIS III ITS SITS III ORI T I III IIS SS STIS 
1420 ODB77 AC3 =PI/2 D=0 $ SGN=" +" 
1421 ODB7A 732F =PI/2D GOSUB PI/4 0785398163397448 
1422 ODB7E A76 C=C+€ W 1570796326794896 
1423 ODB31 BF6 CSR W 01570796326 79489 
1424 ODB384 E6 C=C+1 A 0157079632679490 (MAKE BETTER) 


1425 ODB86 AFF CDEX WwW 
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1426 ODB89 D2 
1427 ODB8B 01 
1428 
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1429 EJECT 
1430 III IRI AI IDI IIIS ISI IISA IIIS SSIS III II III SIS SSIS SSI SISSIIISS SSIS S 
1431 SKIRT OI IIIA D AISI III IOISISSI SII II ISISIS ISIS IS SIS SII SSIS SSIS A 
1432 aK 
1433 ** Nane:(S) FLIP8 - Toggle status bits 
1434 ** Nane:(S) FLIP10 - Toggle status bits 
1435 ** Nane:(S) FLIP11 - Toggle status bits 
1436 ae 
1437 **k Category:  MTHUTL 
1438 ax 
1439 **% Purpose: Toggle Status bits 
1440 ae 
1441 kK Exit: Toggled status, Carry set if new status = 0, 
1442 aK 
1443 ** Alters (INC): Selected Status bit, Carry. 
1444 FOI IOI III TIT III OAT ITI ISI ISSI SII III II III ISI III SII IISII IIS 
1445 J ISI III IDI III IIS IIS II TOSS IIIS ISSISSI SSIS ISI IISSSSSSIISISIIISS SSIS 
1446 ODB8D 878 =FLIP8 ?ST=1 ~~ sINVRT 
1447 0DB% 70 GOYES T1068 
1448 ODB92 858 ST=1 sINVRT 
1449 0DB95 03 RTNCC Clr Carry: 0O-->1 
1450 ODB97 848 1068 ST=0 sINVRT 
1451 ODB9A 02 RTNSC Set Carry: 1-->0 
1452 
1453 ODB9C 87A =FLIPIO ?ST=1  ~ sSGN 
1454 ODB9F 70 GOYES T0610 
1455 ODBA1 85A ST=1 sSGN 
1456 ODBR4 03 RTNCC Cir Carry: 0-->1 
1457 ODBA6 84A T0G10 ST=0 sSGN 
1458 ODBAI 02 RTNSC Set Carry: 1-->0 
1459 
1460 ODBAB 87B =FLIP11 ?ST=1 = sSGNT 
1461 ODBRE 70 GOYES TOG11 
1462 ODBBO 85B ST=1 sSGNT 
1463 ODBB3 03 RTNCC Clr Carry: O-->1 
1464 ODBBS 848 T0G11 ST=0 sSGNT 
1465 ODBBS 02 RTNSC Set Carry: 1-->0 
1466 


1467 
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1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
147? 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
151? 
1518 ODBBA 784B 
1519 ODBBE 848 
1520 ODBC1 846 
1521 ODBC4 6810 
1822 
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FORO RII OI TTT TI IIIT IIT IIE 
FOI JOTI III TTR TO OK 


a 
xk 
an 
ak 
xx 
ae 
ak 
wk 
xk 
ak 
ak 
xx 
ak 
x 
xk 
ax 
a 
xk 
xk 
xk 
ak 
ke 
ak 
kk 
ak 
xx 
xk 
ak 
ak 
ak 
ak 
xx 
ak 
xk 
a 
xk 
xx 
kk 
ak 
kk 
xx 
x 
a 
xk 
kk 


Nane:(S) ASINI2 - 
Nane:(S) ACOS12 - 
Nane: ATANI2 - 
Nane:(S) ASINIS - 
Nane:(S) ACOS15 - 
Nane:(S) ATANIS - 
Nane:(S) BRT3O = - 


Nane:(S) BRIF 


Category: MATH 


ArcSin Inv Trig (12-dig argurient) 
ArcCos Inv Trig (12-dig argurient) 
ArcTan Inv Trig (12-dig argunent) 
ArcSin Inv Trig (15-dig argurient) 
ArcCos Inv Trig (15-dig argument) 
ArcTan Inv Trig (15-dig argurient) 

Inv Trig, defined by status 

Inv Trig, finite arg, defined by status 


Purpose: ARCSINE, ARCCOSINE, ARCTANGENT 


Entry: ASINI2Z2, ACOS12,ATANI2 - Stnd. Nath, 12-dig arg’ts 
ASIN1I5, ACOS15, ATANIS - Stnd. Math, 15-dig arg’ts 


All entries assure angle riode encoded in 
status bit =sRAD (set=RAD Mode). 


Exit: Standard math (15-digit result in A&B) 


Calls: SPLTA, AFIN, =INVNaN, PI/2,SWAPXY, STABIX, 
=STAB2, =ADDONE , =EXAB1, =SUBONE, RCCD1%, =MULTF, 
=$QR17,=RCCD2, =X/¥15,=1/X15, FLIP8, GETCON, 
=DIV120, =SHF10, =AD15s, =DIV100, FUDGE 


Alters (INC): A,B,C,D,RO,R1,R2,R3,P,XM,SB,sIX, sCOMP, 


Stk lvls: 


Algorithn: 


s Ix (7) : 
sCOMP (8): 
SATAN (6) : 
sSON (10): 
s+PI/2 (11): 


History: 


6/07 /82 
10/06/82 


SATAN, sSGN, s+PI/2 

If set, result nay be inexact (INEXACT flag) 
If set, need conplenentary angle (COMP flag) 

If set, need ATAN (ATAN flag) 

If set, negate result (SGN Flag) 

If set, need add PI/2 (Add PI/2) 
Progranner Modification 

SB Docunented 

38 Code Pack: Eliminate proj node 


FORO II OOOO IOI TO III ITO TOI 
FOI IO IIIT OTK 


=R 
=A 


TANI2 GOSUB 

TANI ST=0 
ST=0 
GOTO 


SPLTA 
sCOMP 
sATAN 
BRT20 


ATAN: sCONP=0 
sRTAN=0 
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1523 ODBC8 7A3B =ASINI2 GOSUB SPLTA 
1524 ODBCC 848 =ASINI5 ST=0 = sCOMP ASIN: sCONP=0 
1525 ODBCF 6RAOO GOTO BRTIO sATAN=1 
1526 
1527 ODBD3 7F2B =ACOS12 GOSUB SPLTA 
1528 ODBD7? 858 =ACOS15 ST=1 = sCOMP ACOS: sCOMP=1 (ACOS=PI/2-ASIN) 
1529 ODBDA 856 BRT10 ST=1 ~~ sATAN sATAN=1 
1530 
1531 
1532 ODBDD 821 BRT20 xM=0 INIT: (NO EXCPT’NS) 
1533 ODBEO 847 ST=0 = s IX (EXACT) 
1534 ODBE3 84A =BRT30 ST=0 = sSGN sSGN=0 [+] 
1535 ODBE6 848 ST=0 = s #PI/2 stPI1/2=0 [No add pi/2] 
1536 ODBES 7318 GOSUB AFIN Finite ? 
1537 ODBED 572 GONC BRIF Yes. 
1538 ODBFO 96C AHO OB Not finite. NaN? 
1539 ODBF3 00 RTNYES Yes, send it back. 
1540 ODBFS 866 ?$T=0  sATAN INF. ATAN? 
1541 ODBF8 60 GOYES BRT40 Yes, go BRT40 
1542 
1543 ODBFA 6E4B OOPSS GOTO IVARG Nsg="Invalid Arg" 
1544 
1545 ODBFE 757F BRT40 GOSUB PI/2 Fetch pif/2 
1546 ODCO2 750E GOSUB SWAPKY 
1547 ODCO6 ACA A=C S Sign of ARG*pi/2 
1548 ODCO9 869 ?ST=0 ==sRAD DEG Mode ? 
1549 ODCOC 50 GOYES BRT60 Yes 
1550 ODCOE 857 ST=1 s IX No, so Inexact 
1551 ODC11 69C1 BRT60 GOTO BRT420 ATANCINF)=PI/2 (+/-) 
1552 
1553 
1554 ODC15 =BRTF *k* FINITE ARGUMENT 
1555 ODC15 AC1 B=0 Ss Ensure zero field 
1556 ODC18 879 ?ST=1  =sRAD 
1557 ODCIB A2 GOYES BRTRAD If RAD Mode, go BRTRAD 
1558 ODC1D 979 *B=0 OW If ARG zero, Exact. go BRT110 
1559 ODC20 64 GOYES BRT110 vee 
1560 ODC22 78AE GOSUB MAKE 
1561 ODC26 570 GONC  BRT80 
1562 ODC29 8A8 7A=0) OA ee 
1563 ODC2C A3 GOYES BRT110 If ARG 1, Exact. go BRT110 
1564 ODC2E 866 BRT8O ?ST=0 sRTAN 
1565 0DC31 23 GOYES BRINEX If ATAN, Inexact. Go BRTNEX 
1566 0DC33 35 LCHEX 5 ssn 
1567 ODC36 975 BHC OW 
1568 ODC39 A2 GOYES BRTNEX ARG= (+/-)0.5 ? 
1569 ODC3B CE C=C-1 A 
1570 ODC3D 8A2 7A=C OA (Ey 
1571 ODC40 62 GOYES BRT110 Yes, Exact. 
1572 ODC42 502 GONC BRTNEX BET. 
1573 
1574 ODC45 868 BRTRAD ?ST=0 sCONP 
1575 ODC48 61 GOYES BRT100 If ASIN or ATAN, go BRT100 
1576 ODC4A 94C AHO OS ute 
1577 ODC4D 61 GOYES BRTNEX 
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1578 ODC4F 8AC 
1679 ODC52 11 
1580 ODC54 767E 
1581 ODC58 SAO 
1582 ODC5B 4A0 
1583 ODCSE 979 
1584 0DC61 50 
1585 ODC63 857 
1586 
1587 
1588 ODC66 
1589 ODC66 948 
1590 ODC69 31 
15391 ODC6B 85A 
1592 ODC6E 868 
1593 ODC71 BO 
1594 ODC73 848 
1595 ODC76 85B 
1596 ODC79 84A 
1597 
1598 ODC7C 97D 
1599 ODC7F 60 
1600 ODC81 6F21 
1601 ODC85 Dé 
162 ODC8? C6 
1603 ODC89 5A5 
1604 
1605 ODC8C 866 
1606 ODC8F 15 
1607 
1608 ODC31 7D7A 
1609 ODC95 8E00 
00 
1610 ODC9B 8E00 
0 
1611 ODCA1 8E00 
00 


1612 ODCR? 8E00 
00 
1613 ODCAD 72CE 
1614 ODCB1 8EOO 
00 
1615 ODCB? ACO 
1616 ODCBA 8E00 
00 
1617 ODCCO 8EO0 
00 
1618 ODCCE 8E0O 
00 
1619 ODCCC ACO 
1620 
1621 
1622 
1623 ODCCF Dé 
1624 ODCD1 C6 
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BRT100 
BRTNEX 


BRT110 


BRT130 


BRT135 


BRT140 


AHO OAR 
GOYES BRTNEX 
GOSUB MAKE1 
GONC  BRITNEX 


GOC BRT110 
7B=0) OW 
GOYES BRT110 
ST=1 gs IX 
7A=0 = S 
GOYES BRT130 
ST=1  sSGN 
?ST=0 sCONP 
GOYES BRT130 
ST=0 sCOMP 
ST=1 gs +PI/2 
ST=0 — sSGN 
7BHO |OUW 
GOYES BRT135 
GOTO BRT400 
C=A A 
C=C+C A 

GONC  BRT150 
?ST=0  sATAN 


GOYES BRT145 


GOSUB STAB1X 
GOSUBL =STAB2 


GOSUBL =ADDONE 
GOSUBL =EXRB1 
GOSUBL =SUBONE 


GOSUB = RCCD1X 
GOSUBL =MULTF 


A=0 S 
GOSUBL =SQR17 


GOUSUBL =RCCD2 
GOSUBL =X/Y15 


ARG=+1 ? 
Yes. (BET) ACOS(1) 


Inexact. 


**k EXACTNESS ESTABLISHED 
SIGN(arg) = "+" ? 
YES 
SET NEG ANS FLAG 
ASIN, ATAN? 
Yes. Go BRT1X 


ACOS(-X)=PI/2 + ASIN(X) 
Reset Neg Ans flag 


If Arg=0, go BRT400 


If |Arg] >= 1 go BRT150 


{Arg|<1. 
If ATAN, go BRT145 


ACOS or ASIN. Use Fornula: 
ASIN( X)=ATAN(K/SQRT(1-X°2)) 


ARG+1 (See note belouw) 


ARG-1 (See note belon) 


ARG**2-1 


1-ARG**2 
SQRT(1-ARG**2) 


Z=ARG/SQRT( 1-ARG**2) 


Set positive. NOTE: Because 
of this, round mode not 
inportant in the calls 
to ADDONE & SUBONE. 


z2<1 ? 
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1625 ODCD3 4C0 
1626 ODCD6 8£00 
00 
1627 ODCDC 7DAE 
1628 ODCEO 6A 
1629 
163 ODCE4 
1631 ODCE4 8AC 
1632 ODCE? 90 
1633 ODCES 71ED 
1634 ODCED 4B0 
1635 
1636 ODCFO 
1637 ODCFO 866 
1638 ODCF3 3E 
1639 ODCFS 640F 
1640 
1641 OOCFS 
1642 ODCF9 876 
1643 ODCFC 11 
1644 ODCFE 7F9D 
1645 ODDO2 AFS 
1646 ODDOS AFO 
1647 OD008 CC 
1648 ODDOR 4CO 
1649 ODDOD 7C7E 
1650 ODD11 AFO 
1651 ODD14 AFI 
1652 ODD17 6990 
1653 
1654 ODD1B 8A8 
1655 ODDIE O€ 
1656 ODD20 7AAD 
1657 ODD24 AF? 
1658 ODD2? A8&2 
1659 ODDZA D6 
1660 ODD2C £6 
1661 ODDZE 4FO 
1662 ODD31 B46 
1663 ODD34 0D 
1664 ODD36 887 
1665 ODD39 3F 
1666 ODD3B 58D 
1667 
1668 ODD3E AFF 
1669 ODD41 4A1 
1670 
1671 00044 BO7 
1672 ODD47 ACB 
1673 ODD4A BF4 
1674 ODD4D BF4 
1675 ODD50 R4E 
1676 ODD53 S6F 
1677 ODDS6 AC2 
1678 ODDS9 A72 
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BRT144 


BRT145 
BRT150 


BRT153 


BRT154 


BRT170 


BRT175 


BRT176 
BRT190 


BRT191 


BRT195 


BRT320 
BRT330 


GOC BRT145 
GOSUBL =1/x15 
GOSUB FLIP8 
GOTO BRT190 
7AHO OA 
GOYES BRT153 
GOSUB MAKE 
GOC BRT154 
?$T=0 sATAN 
GOYES BRT144 
GOTO OOPSS5 
?ST=1 =sATAN 
GOYES BRT175 
GOSUB PI/4 
B=C W 

A=0 Wi 
A=A-1 A 

GOC BRT176 
GOSUB FLIP8 
A=0 W 

B=0 W 

GOTO BRT400 
7A=0 ~~ =—O—R 
GOYES BRT170 
GOSUB MAKE1 
D=C W 

C=0 P 

C=A R 
C=C+1 A 

GOC BRT195 
C=C+1 

P=P-1 

?P# 7 
GOYES BRT191 
GONC BRT176 
CDEX 

GOC BRT340 
D=0+1 P 

C=D S 

ASR W 

ASR W 
C=C-1 § 

GONC BRT330 
C=0 S 
C=C+A W 
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Yes, go BRT145 
2>=1. ATAN(Z)=PI/2-ATAN(1/Z) 


ARK ARG>=1 


£ 

If 1, go BRT154 
eek ARG>1 

If ATAN, go BRT144 


ak ARG=1 


If ASIN or ACOS, go BRT175 
No, create pi/4 


BET 
Toggle sCOMP 


Z=1?7 RXBUGFIX 11/22/82 
Po 4 
D: [0100000000000000 ] 


C: [0000000000000000 ] 

C: J=I-1=C[S]=0, COUNT=EXP<0 
Inc count. zero? 

Yes, go BRT195 

No, J=J+1 

Dec position 

Done? 


No 
BET - tiny Arg (<10%-7) 


D: J=I-1; PQUOT=0 
BET. C:X=1, B:¥’=MANT 


PQUOT+1 
C: I-1 
FORM (107%-21)*¥ 


C:X=X+(10°-21)*Y 
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1679 ODDSC AF4 
1680 ODDSF 871 
1681 ODD62 SIE 
1682 ODDE5 AF 
1683 ODD68 B47 
1684 ODD6B BF1 
1685 ODDEE OD 
1686 ODD70 887 
1687 ODD73 9E 
1688 
1689 ODD75 AFF 
1690 ODD78 AFD 
1691 ODD7B AF4 
1692 ODD7E 8E00 
00 
1693 ODD84 28 
1694 
1695 ODD86 791D 
1696 ODD8A 6600 
1697 ODD8E AZ1 
1698 00091 AOC 
1699 ODD94 SOF 
1700 ODD97 A80 
1701 ODD9A BF5 
1702 ODD9D 958 
1703 ODDRO AO 
1704 ODDR2 OC 
1705 ODDR4 61EF 
1706 
1707 ODDA8 OC 
1708 ODDAR CC 
1709 ODDAC 88E 
1710 ODDAF 9F 
1711 
1712 ODDB1 ACO 
1713 ODDB4 8£00 
00 
1714 ODDBA 868 
1715 ODDBD FO 
1716 ODDBF BCC 
1717 ODDC2 71BD 
1718 ODDCE 8E00 
00 
1719 
1720 
1721 ODDCC 868 
1722 ODDCF CO 
1723 ODDD1 72AD 
1724 ODDDS 8E00 
00 
1725 
1726 
1727 
1728 
1729 ODDDB 879 
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BRT340 A=B 
B=B-C 
GONC 
B=A 
D=D+1 
BSL 
P=P-4 
?PH 
GOYES 


CDEX 
BCEX 
A=B 
GOSUBL 


p= 


BRT350 GOSUB 
GOTO 

BRT360 B=B+C 

BRT370 A=A-1 
GONC 
A=0 
BSR 
7A=0 
GOYES 
P=P+1 
GOTO 


BRT380 P=P+1 

BRT390 A=A-1 
°PH 
GOYES 


BRT400 A=0 
GOSUBL 


?ST=0 
GOYES 
R=-A-1 
GOSUB 
GOSUBL 


BRT410 ?ST=0 
GOYES 
GOSUB 
GOSUBL 


W 
W 
BRT320 
W 
S 
W 


? 
BRT340 


W 
W 
W 
=DIV120 


8 


GETCON 
BRT370 
W 
P 
BRT 360 
Pp 
W 
n 
BRT390 


BRT350 


A 
14 
BRT380 


S 
=SHF10 


sCOnP 
BRT410 
S$ 

PI/2 
=AD15s 


s+PI/2 
BRT420 
PI/2 

=AD15s 
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Y=¥’ (save current value of Y) 
B:Y’=¥-X.  Y'<O ? 

Not yet, go compute new X. 

Yes. too far, Y’=¥ (Restore) 
Bunp I-1 (smaller rotate angle) 
Y’=10Y’ 

Dec PQUOT position 

Done? 

NO 


A: PQUOT 
B:¥/X 


P:NIB PTR = TABLE INDEX 
FETCH ATAN(10°-I) 
B: ARG+RTAN( 107-1) 


Dec PQUOT. Borron? 
No 


PQUOT=07 
YES 
Burip PTR 


Establish EXP 


Shift & Nornalize 

Need PI/2 - Q ? 

No, go BRT410 

PI/2 - Q. Round node not 
inportant--Case by Case. 

Need add PI/2 ? 

No, go BRT420 

Yes, fetch PI/2 


Round node not inportant. 


Case by Case. 


*----NEED: sRAD,SIX,sSGN, A/B=Result----* 


BRT420 ?ST=1 


=sRAD 


RAD Mode? 
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173% ODDDE Al 
1731 ODDEO 27 
1732 ODDE2 7DBC 
1733 ODDE6 AF? 
1734 ODDES D2 
1735 ODDEB CE 
1736 ODDED CE 
173? ODDEF AFD 
1738 ODDF2 8E00 
00 
1739 
1740 ODDF3 7ROO =BRT430 
1741 ODDFC 86A 
1742 ODDFF 50 
1743 ODEO! BCC 
1744 ODEO4 03 
1745 
1746 ODEO6 8E53 FUDGE 
8F 
1747 ODEOC 877 
1748 ODEOF 00 
1749 
1750 ODE11 822 
1751 ODE14 A35 
1752 ODE1? ABI 
1753 ODE1A 500 
1754 ODE1D BBD 
1755 ODE2O 2E 
1756 ODE22 B15 
1757 ODE25 500 
1758 ODEZ8 E4 
1759 ODE2A BOS 
1760 ODE2D 03 
1761 
1762 ODE2F 


BRT440 


RTNCC 
GOSUBL 


*ST=1 
RTNYES 


SB=0 
B=B8+B 
B=0 
RTNNC 
B=-B-1 
p= 
B=B+1 
RTNNC 
A=A+1 
B=B+1 
RTNCC 


END 
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BRT430 
7? 
GETCON 


oeyaDwnonDore 


DIV100 


FUDGE 
sSGN 
BRT440 
S 


SETSB 
sIX 
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Yes, go BRI4® 
No, convert to DEG. 
Fetch P1I/180 


Q*180/PI 


Make perfect if exact 
Negate? 

No. 

Yes. 


Ensure SB=1 


Inexact? 
Yes, done. 


Exact: Make the 15-dig 
result perfect (round 
to 12-digits), set SB=0. 
B[X]: 999 

Round up 


Burp EXP 
MANT=1.000... 
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1/X18 
ACNOTO 
=ACOS12 
=ACOS15 
AD15s 
ADDF 
ADDONE 
REQC 
AFIN 


AGTIC 
AISO 
ALTC 
=ARG12 
=ARG15 
ARGEX 
=ARGF 
=ASINI2 
SASINIS 
=ATANI2 
=ATANTS 
=BIASAt 
=BIASA- 
=BIASC+ 
=BIASC- 
BLONAN 
BRT10 
BRT100 
BRT110 
BRT130 
BRT135 
BRT140 
BRT144 
BRT145 
BRT150 
BRT153 
BRT154 
BRT1 70 
BRT175 
BRT176 
BRT190 
BRT191 
BRT195 
BRT20 
=BRT30 
BRT 320 
BRT330 
BRT340 
BRT 350 
BRT 360 
BRT370 
BRT 380 
BRT390 
BRT40 
BRT400 


Ext 
flbs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 


54545 
56275 
56279 


54539 
55040 


54513 
54534 
54449 
54907 
54911 
55034 
54948 
56264 
56268 
56250 
56254 
54573 
54573 
54592 
54592 
55119 
56282 
56414 
56422 
56444 
56453 
56460 
56534 
56544 
56548 
56560 
56569 
56574 
56589 
56599 
56603 
56620 
566 38 
56285 
56291 
56644 
56650 
56668 
56710 
56718 
56721 
56744 
56746 
56318 
56753 
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Synbol 


#00511 
#00803 
#0DBD7 


#OD50B 
#0D 700 


#OD4F1 
#00506 
#0D4B1 
#00678 
#0D67F 
HOD6FR 
#0D6A4 
#ODBC8 
#ODBCC 
#0DBBA 
#ODBBE 
#0D52D 
#0D52D 
#00540 
#0D540 
#00 74F 
#ODBDA 
HODC5E 
#0DC66 
#0DC7C 
#ODC85 
#ODC8C 
#ODCD6 
HODCEO 
#ODCE4 
#ODCFO 
#ODCFS 
#ODCFE 
#ODDOD 
#0DD17 
#0DD1B 
#ODD2C 
HODD3E 
#ODBD0 
#ODBE3 
#00044 
#ODD4A 
#ODD5C 
#ODD86 
#ODD8E 
#0DD91 
#ODDAS 
#ODDAA 
#ODBFE 
#0DDB1 


992 
231 
152? 
1528 
1718 
683 
1084 
229 
689 
1536 
218 
227 
196 
638 
639 
683 
652 
1523 
1524 
1518 
1519 
276 
275 
284 
283 
786 
1529 
1583 
1588 
1698 
1601 
1605 
1626 
1628 
1630 
1636 
1641 
1644 
1649 
1652 
1654 
1660 
1668 
1532 
1534 
1671 
1673 
1679 
1695 
1697 
1698 
1707 
1708 
1545 
1712 


108? 
225 


1724 


1610 
192 
181 


195 
223 
217 


679 
659 


662 
178 


179 
201 


1625 
1575 
1559 
1590 
1599 


1638 
1606 
1603 
1632 
1634 
1655 
1643 
1648 
1628 
1665 
1661 
1521 


1681 
1676 
1669 
1705 
1699 
1696 
1710 
1703 
1541 
1600 
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1626 


241 
324 


1563 
1693 


1625 


1666 


1687 


1652 


392 


1571 
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451 


1582 


644 


1584 


658 
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BRT410 
BRT420 
BRT430 
BRT440 
BRT 60 
BRT 80 
=BRIF 
BRTNEX 
BRTRAD 
C+1RTN 
CCEXIT 
=CLASSA 
=C€0S$12 
=(0S$15 
CTRICK 
DBL3 
DBL4 
DBL45 
=DBLPI4 
=DBLSUB 
DIV100 
DIV120 
DIVFCD 
DIVYX 
DV2-15 
OZINF 
ozP 
EGRESS 
=EX12 
=EX154 
=EX15S 
EXAB1 
=EXF 
EXIT02 
EXI1T03 
EXLOOP 
FINA 
FINAC 
FINITA 
FINITC 
=FLIP1O 
=FLIP11 
=FLIP8 
FUDGE 


MAKEPI 


Abs 


Abs | 


Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbhs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 


2306 


56780 
56795 
56824 
56836 
56337 
56366 
56341 
56419 
56389 
54721 
54650 
54672 
§5073 
55077 
54488 
56043 
56055 
56105 
56060 
56029 


54967 


56098 
54726 
547% 
§4734 


54751 
54777 
54388 
54797 
54493 
64513 


56220 
56235 
56205 
56838 
54652 
54645 
55971 
55986 


55113 


54661 
$4451 
56014 
§5025 
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Symbol Table 


#ODDCC 
#ODDDB 
#ODDF8 
#ODEO4 
#ODC11 
HODCZE 
#ODC15 
#ODC63 
#ODC45 
#OD5C1 
#0057A 
#00530 
#00721 


#00725 - 


#0D4D8 
#ODREB 
#ODAF 7 
#ODB29 
#ODAFC 
#ODRDD 


#0D6B7 


#ODB22 
#OD5C6 
#ODSCA 
HODSCE 


#ODSDF 
HODD5F9 
#0D474 
#0D60D 
#0D4DD 
#OD4F 7 


#ODBSC 
#ODBAB 
#ODB8D 
#ODEO6 
#0D57C 
#00575 
#ODAR3 
#ODAB2 


#00749 


#OD585 
#0D4B3 
#ODACE 
#ODOF 1 


' tt f£ # FY t § 4 


1721 
1729 
1740 
1744 
1551 
1564 
1554 
1585 
1574 

407 

336 

3” 

769 

770 

208 
1263 
1267 
1312 
1301 
1258 
1738 


211 
1453 
1460 
1446 
1746 

337 

34 
1176 
1180 

786 

784 

116 

339 

197 
1218 

680 
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1715 
1551 
17” 
1742 
1549 
1561 
1537 
1565 
1557 

399 

340 


207 
1261 
1259 
13 

848 

860 


649 


1316 


452 


105 
474 
182 
213 


337 
891 
888 
889 
1083 
325 
327 
970 


650 


329 
186 
3% 
673 


1722 


1568 


874 
886 


653 


114 
431 


1080 


915 
1740 


1003 


1% 
1560 


172 


909 
310 


655 


1627 


1695 


215 
1580 
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1577 


914 


1649 


1732 


219 
1633 


1579 


230 
1656 


1581 
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MP2-15 Ext - 1083 
=NSN12 Abs 54611 #00553 - 323 
=MSN15 Abs 54615 #00557 - 324 640 
MULTF Ext - 973 1614 
NONFIN Abs 54702 RODSRE - 400 393 
NORN Abs 55418 #OD87A - 929 325 933 
OOPS3 Abs 54367 #OD45F - 112 
OOPS4 Abs 55113 #OD749 - = 783 
OOPS5 Abs 56314 RODBFA - 1543 1639 
=ORGSB Abs 54875 #ODESB - 584 663 
=ORSB Abs 54844 #OD63C - 537 86535 
=ORXN Abs 54835 #00633 - 534 
=PI/2 Abs 56183 #ODB77 - 1420 1545 1717 1723 
=PI/2D Abs 56186 #ODB7R - 1421 680 
=PI/4 Rbs 55969 #ODAR1 1136 1304 1421 1644 


RCCD1 —s Ext - 1398 

=RCCDIX Abs 56179 #0DB73 - 1398 1082 1613 
RCCD2 Ext - 161? 
RED360 Abs 55259 #OD7DB - 859 865 


RED9O = Rbs = 5309 #OD8OD 886 «6877 «8H 892 
REDUCE Abs 55234 #OD702 - 846 827 834 
=SAVESB Abs 54894 HOD66E - 592 5% 
=SAVEXMN Abs 54883 #00663 588 532 
=SAVGSB Abs 54862 HOD64E - 578 661 


SBOCC Abs 54812 #OD6IC 485 
=SETSB Abs 54849 #OD641 539 586 «1746 
SETXM Rbs 54860 #ODE4C 544 = 536 


SHF10 Ext - 1713 
=SHFLAC Abs 56134 #ODB46 - 1360 862 W%1 931 
=SHFRAC Abs 56145 #ODBS1 - 1365 838 879 
=SHFRBD Abs 56159 #ODB5F ~ 1388 852 878 
SIGNA Abs 54444 #0D4AC - 194 188 226 232 26 238 
SIGNC Abs 54508 HOD4EC - 216 228 236 240 
=SIN12 Abs 56062 #00716 - 765 
=SIN1S Abs 55066 #0D71R - 766 
SPLITA Ext - 6% 
SPLTA Abs 55046 #0006 - 6% 449 765 769 774 1518 1523 1527 
SPLTAC Ext - 691 
SPLTB Abs 55052 #OD70C - 691 174 323 638 


SQR15 Ext - 1086 
SQRISM Ext = $33 
SQR17, Ext - 1616 
=SQRSAV Abs 54825 #ODE29 - = 532 
STABT =—Ext - 693 
=STABIX Abs 55058 #00712 - 693 1081 1608 
STAB2 Ext - 1609 
SUBONE Ext - 1612 


=SWAPXY Abs 55819 #ODROB - 1103 341 645 1546 
=TANIC Abs 55087 #OD?2F - 774 
=TRNIS Abs 55091 #00733 - 775 
TOGI0 =6Abs «= 6230 HODBAb - 1457 1454 
TOG11 Abs 56245 #ODBB5 - 1464 1461 
T0G8 Abs 56215 RODB9? - 1450 144? 
=TRO90) =Abs 65825 HODRI1 - 1125 1179 
TRG1O) =—Abs 55080 HOD728 - = =—771— 767 
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TRG100 
TRG125 
TRG130 
TRGO135 
TRG155 
TRG160 
TRG180 
TRG181 
TRG260 
TRG270 
TRG275 
TRG279 
TRG280 
TRG290 
TRGHO 
TRG310 
TRG314 
TRG318 
TRG330 
TRG340 
TRG350 
TRG360 
TRG370 
TRG400 
TRG420 
TRG430 
TRG440 
TRG450 
TRGSO 
TRGSOO 
TRG510 
TRG515 
TRG520 
TRGS30 
TRG8&O0O 
TRG810 
TRGEX 
TRGF 
TRGTST 
=TST12A 
=T$T15 
=TWO* 
TWONaN 
K/Y¥15 
XFINIT 
XMOSBO 
XNONO 
XYEX 


eEXPO © 


eIVARG 
eTNINF 
eUNORC 
s+PI/2 
sATAN 
sCOMP 


Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 


55145 #00769 
55162 #0D77A 
55178 #0D78A 
55196 #0079C 
55262 #OD7DE 
55285 #OD7F5 
55335 #00827 
55338 #OD82R 
55361 #00841 
55364 #00844 
55397 #OD865 
55433 #00889 
55436 #OD88C 
55485 #00880 
55509 #0D8D5 
55524 #OD8E4 
55547 #OD8FB 
55551 #OD8FF 
55563 #00908 
55566 HODSOE 
55630 #OD94E 


55636 #00954 - 


55654 #00966 
55690 #0D98A 
55713 #0D9A1 
55719 #009A7 
55743 #OD9BF 
55760 #OD9D0 
55097 #00739 
55792 #ODSFO 
55796 #ODSF4 
55801 #OD9FS 
55806 RODSFE 
55811 HODAO3 
55576 #00918 
55573 #00915 
55482 #OD8BA 


55125 #00755 - 


55477 #0D8B5 
54390 #00476 
54394 #00478 
56120 #0DB38 


54960 #OD6B0 
54817 #00621 
54779 #ODSFB 


11 #OOOOB 
6 #00006 
8 #OOOOS 
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Table 
- 795 793 
- 802 800 
- 808 803 
- 816 814 
- 860 861 
- 873 
- 895 887 
- 896 831 
- 94 899 
- 96 897 
- 920 911 
- 940 97 
- 941 927 
- 966 944 
- 978 968 
- 985 9380 
- 993 991 
- 995 989 
- 1002 983 
- 1003 1013 
- 1031 1034 
1033 1042 
- 1039 1024 
- 1055 1045 
- 1064 1061 
- 1065 993 
- 1075 1066 
- 1081 1077 
- 778 772 
- 1089 1068 
- 1090 
- 1092 1073 
- 1094 1098 
- 1096 1091 
- 1006 1004 
- 1005 1007 
- 959 946 
788 = 780 
- 957 953 
- 174 101 
- 175 
- 1337 849 
- 332 
- 1618 
- 658 646 
- 527 456 
- 470 462 
- 1103 
- 466 
- 785 
- 1071 
- 114 
- 63 1535 
- 62 1520 
- 61 1519 
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806 


847 
903 


9H” 


348 


1050 


1079 


850 


633 


1595 


1529 
1624 


955 


851 


778 


1721 


1540 
1528 


Fri Dec , 1983 


958 


875 


1564 
1574 


1605 
1692 


1637 
1594 
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1642 
1714 
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sINVRT 


sINX 
sIX 


=sRAD 
SSGN 


sSGNT 
sTAN 
sx 
uRESKT 
=uTEST 


Abs 


Ext 
Abs 


Abs 
Abs 


Abs 
Abs 
Abs 
Ext 
Abs 


8 #00008 


? #00007 
9 #00009 
10 #OOOOA 
11 #00008 
6 #00006 
3 #00009 


54325 #00435 


56 
1060 
578 
55 
1533 
53 
1548 
58 
1591 
59 
57 
54 
118 
98 


766 
1446 
581 
117 
1550 
672 
1556 
790 
1596 
791 
771 
534 


770 
1448 
584 
537 
1585 
826 
1729 
807 
1741 
804 
776 
588 
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775 
1450 


592 
1747 
876 


1096 
1092 


952 
591 


Fri Dec 30, 
792-805 
595 798 
896 6943 

1453 1455 
1460 1462 
1065 1090 


1983 


954 


801 
967 
145? 
1464 
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990 


359 
12 
1534 
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Input Paraneters 
Source file nane is SM&NTH: :MS 
Listing file nane is SM/MTH:TI:ML::-1 


Object file nane is SMAMTH: TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler Neus 
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1 TITLE Statistics <831216.1457> 

2 ODE2F ABS #ODE2F 

3 x 

4 * PPPP AH OM & SSS. OTTTTT A 

5 x p P WAM &B Sn T RA 

6 xP PHAM &8& S T A A 

7 % PPPP MAN & SSS T A A 

8 a ?P nh nH &8&8& Ss T AARRA 

9 BoP hmoené& §$ § T R A 

10 xP nm mM 8& & SSS T A AR 

11 & 

12 J] II TIS ITI IT TTT OK 
13 JUSTO III SISO ITO SOT I STIS TI SII SISOS IT SII IIA 
14 ak 

15 ** Nane: DROP - Renoves data point fron statistics 

16 te 

17 ** Category:  STEXEC 

18 ak 

19 *® Purpose: 
20 ah Drops a data point from the currently specified 
21 ak statistical array. See the docunentation for ADD for 
22 RK further infornation. 
23 ik 
24 JOIST TIS SS IO I IT 
25 JU III ISOS OS CIO OTT IRI 
26 ODEZF 0000 REL(S) =DROPDC 

0 
27 ODE34 0000 REL(5) =DROPP 
0 
28 ODE39 74F3 =DROP GOSUB TEXPEX build expression stack 
29 ODE3D 850 ST=1— -=sSTAT set DROP status 


HK ODES 6830 GOTO  DENTRY 
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31 
32 JUI IOI I OO IIIS III TIS III TOSI SIO III SII 
33 JO III II I II TIS IIS IIIS ISI IOI III TOSI ITI IIS IS AIST IIIS IAI SST II 
4 ax 
35 ** Nane: CLSTAT - Sets current stat array to zero 
36 ak 
37 ** Category: STEXEC 
38 ax 
33 *k Purpose: 
40 ah Clears the current statistical array (sets all elenents 
4i ax to zero). 
42 ae 
43 *k Entry: 
44 ak current statistical array specified 
45 aK 
46 AR ERAT 
47 ae current statistical array cleared 
48 ak 
49 &* Calls: GETNSG, GETSA 
50 ‘ exits through NXTSTM 
51 ax 
52 BR USES) acca ey 
53 *k Inclusive: A,B,C(6-0),D(A),P,00,R2,SB,xM, 
54 a statistical array, unless fatal error 
55 xx 
56 RX Stk Ivls:- <3 
57 tok 
58 ** NOTE: 
59 xx The current statistical array’s dope vector is not 
60 ae altered, so the current regression is unchanged. 
61 tk 
62 ** History: 
63 ak 
64 dg Date Prograriner Modification 
65 oO ies seesooeien.. | sieeesscieustasw cumceeteoalmeeeases 
66 ** 06/10/82 PM Docunented routine 
67 EX 01/06/83 a Revised docunentation 
68 an 
63 FOI OOO ITO TOT TOIT TI ITT OIE 
70 JOO ROJO IOI I III TO IOI 
71 ODE44 0000 REL(5) =STOPDC 
0 
72 ODES9 0000 REL(S5) =RTNCC 
0 
73 ODESE 7FF6 =CLSTAT GOSUB GETSR DO points to N, 
74 ODES52 AFO A=0 W C(A)=length in hex 
75 ODESS CE CLSTLP C=C-1 A 
76 ODES? 4C0 GOC nxtstl done? 
77 ODESA 150? DRTO=A W 
78 ODESE 16F DO=D0+ 16 
79 ODE61 53F GONC CLSTLP bul; 
80 SOI IOI IIIT II IOI 
81 ODEG4 62E1 nxtsti GOTG nxtstn 
82 FOO IIR II JOO I III OE OO IOI OIE 


$3 Lo 22 689 5.0.9.8S.292S5.2S.0.2.0.05,0,0.5,9.992.29.25,92 9002. 5.09.0, 9.2.05, 0,.0.0 5 2.0.0,2,5. 2,6. 6.5.5' 
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84 xx 
85 . Nane: ADD - Adds data point to statistics 
86 x 
87 *k Category:  STEXEC 
8& xn 
89 ** Purpose: 
3% ax Adds a data point into the currently specified 
91 as statistical array. The data point may have 0-15 
92 ae specified coordinates (variables). If less than 
93 7 15 are specified, any tissing ones are assured zero. 
94 ales The accunulated surimary statistics are the nurber 
95 ae of data points, the totals, and the nean-adjusted 
96 aK suns of squares and cross products. 
97 ff A recursive nethod is used to update the statistics. 
98 
99 ** Entry: 
100 an variables in parsed forn 
101 ak current statistical array specified 
102 ax 
103 AX Exits 
104 a current statistical array updated 
105 
106 kk Calls: ADDONE ,AD15S, ARESD1, BFGTAB, BFGTCD, BFPTAB, 
107 ae DO=SRO ,01=SR1,D1+21, FBMVAR, GETSA, I/ODAL, MESSG, 
108 kh MSARES, NNGTAB, RCCD1, STAB1, STBALL, SPLTAS, 
109 an TEXPEX, XYEX, dv15s,np15s,rclut, rclui+,splthr, 
110 a stscr, subone, uRESD1, unode+ 
111 x exits through NXTSTN 
112 ak 
113 BP USES ie ide 
114 xk Exclusive of EXPEX-: 
115 ies CPU: A,B,C,D,P,00,D1,RO-4,SB,XN, sSTAT(s6), sIX(s7), 
116 a s8-11 
117 ax RAN: scratch math stack 
118 ax statistical buffer 
119 ae statistical array 
120 ak S-RO-0,1,2,3, STMTD1, MTHSTK/AVNENE 
121 ax 
122 Stk lvls: max(6,1+EXPEX-) = max(1+EXPEX-, 3+uRESD1 ) 
123 
124 xe 
125 ** History: 
126 xe 
127 ais Date Prograriner Modification 
128 xx si sain e_commerce 
129 ak 06/07/82 PN Docuriented routine 
130 kk 12/16/82 Added tests for signaling NaNs 
131 kK 01/31/83 0 Handled arithnetic-created NaNs 
132 nih 03 /04 /83 is Modified ADD algorithn, packed 
FOO JOJO JRO TO 
135 SOO UII TO TOI IT TTI 
136 ODE68 0000 REL(S) =ADDDC 
0 


137 ODE6D 0000 REL(5) =ADDP 
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0 
138 ODE72 7883 =ADD GOSUB TEXPEX build expression stack 
1339 ODE76 840 ST=0 = =sSTAT set ADD status 
140 ODE79 7406 DENTRY GOSUB GETSA get SA address, #VARS 
141 ODE?7D 75F1 GOSUB = STBALL allocate and fill buffer, scr RAM 
142 ODE81 78C3 GOSUB stscr Wi:=old N 
143 ODE85 7F83 GOSUB urodeH get user nodes, clear SB,XM, sethex 
144 FOI III OO TO I TT TTT II 
145 * COMPUTE ADJUSTED SS AND SCP (have hexriode, P=14) 
146 JOU III GOGO TE TTR 
147 ODE&89 72D1 ADISQ GOSUB D1=SR1 point D1 to buffer 
148 ODE8D 7EB1 GOSUB DO=SRO C(S):=#VARS, point DO to N 
149 ODE91 A82 C=0 P C(14)=#SS-1:=0 
150 ODE94 AAE ADISO2 C=C-1 § no nore variables? 
151 ODE97 495 GOC ADISO4 
152 ODESA 10C R4=C 
153 ODESD 16F ADISQ3 DO=D0+ 16 point DO to next total 
154 ODERO AOE C=C-1 P 
155 ODEA3 59F GONC ADISQ3 
156 ODER6 1537 A=DAT1 W get VJ (12-digit mantissa) 
157 ODEAR 7192 GOSUB SPLIRS split, normalize, test for signan 
158 ODERE 7-93 GOSUB orclui+ get N (15-digit), save DO, setdec 
159 ODEB2 7DF2 GOSUB np15Ss N*VJ 
160 ODEB6 461 GOC ADISQN junp if Inf*O NaN created 
161 ODEB9S 11B C=R3 
162 ODEBC 134 hO=C restore DO 
163 ODEBF 7000 GOSUB =STAB1X store product in RO/R1 
164 ODEC3 7472 GOSUB spitA+ get, split, norn., test total TJ 
165 ODEC? 7000 GOSUB =RCCD1X recall product into C/D 
166 ODECB BCC A=-A-1 $ 
167 ODECE 7B6C2 GOSUB ADI5S Inf-Inf? 
168 ODED2 7A92 ADISQN GOSUB BFPTAB FJ:=N*VJ-TJ (15-digit), P:=14 
169 ODED6 76F2 GOSUB RPTNaN Report any invalid NaN, P:=14 
170 ODEDA 7091 GOSUB D1+21 point 01 to next variable 
171 ODEDE 04 SE THE X 
172 ODEEO 11C C=R4 
173 ODEE3 B06 C=C+1 P #SS:=#58+1 (P=14 here) 
174 ODEE6 5DA GONC ADISQ2 B.E.T. 
175 JOGO UII IOI IIIS TOSI IIIS IOC OK 
176 ODEES 7833 ABORTS GOSUB GETNSG get error nessage 
17? ODEED 6A32 GOTO 3 3=onferr 
178 JOG III IO ISI IE ICICI TO IK 
179 ODEF1 7263 ADISO4 GOSUB rclwi recall N (15 digit), setdec 
180 ODEF5 7192 GOSUB addsub N+1 or N-1 
181 ODEFS 7A5S3 GOSUB rely recal] N 
182 ODEFD 860 ?§$T=0 =sSTAT ADD? 
183 ODFOO 01 GOYES SQADD2 
184 ODFO2 7606 GOSUB POSTAB DROP: error if N<«=0 
185 ODFO6 42E GOC ABORTS 
186 ODFO9 7000 GOSUB =SWAPKY exchange N and N-1 
18? ODFOD BCE C=-C-1 § negate N 
188 ODF1O 7206 SQRDD2 GOSUB NNGTAB 
189 ODF14 44D COC ABORTS error: N<O (ADD) or O<N<4 (DROP) 
190 ODF1? 7892 GOSUB = npids FO: =N*(N41) or -N*(N-1) 


191 (Inf*O not possible) 
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192 ODFIB 7E23 GOSUB stscr W1:=FO 

193 ODFIF 04 SETHEX 

194 ODF21 7A21 GOSUB 00=SRO point DO to N 

195 ODF25 10C R4=C R4(S)=#VARS 

196 ODF28 7331 GOSUB D1=SR1 point C(A),D1 to Fi 

197 ODF2C ACI B=0 S 

198 ODF2F 970 7BHO OW FORO? 

1939 ODF32 92 GOYES ADJSQE 

200 IO OOO UOC IE TOO OI TIE 

201 * SET SS AND SCP TO ZERO 

202 JOU IOI OIC GUCCI OTT ART IK 

203 ODF34 AFO A=0 W need hex node 

204 ODF3?7 16F DO=D0+ 16 DO points to total 

205 ODF3A 11C C=R4 C(S): =H#VARS 

206 ODF3D D2 C=0 A C(A)=(#SS to be set to zero)-1 

207 ODF3F ASE ZEROS1 C=C-1 $ done? 

208 ODF42 4E1 GOC RTOTO 

209 ODF45 DS B=C A BCR): =#SS-1 

210 ODF47 16F DO=D0+ 16 

211 ODF4A 1507 ZEROS2 DARTO=A W $S:=0 

212 ODF4E 16F DO=D0+ 16 

213 ODF51 CD B=B-1 A 

214 ODFS3 S6F GONC ZEROS2 

215 ODF56 E6 C=C+1 A #SS:=HSS+1 

216 ODF58 56E GONC ZEROS! B.E.T. 

217 JAI IOI IIIT II ITT OT TTT TT 

218 * COMPUTE NONZERO ADJUSTED SS AND SCP 

219 FOI OIC III OOO TIO RIOR TT TTT 

220 ODF5B 114 ADISQ6 A=R4 need hex node, XM=0 

221 ODF5SE RAC A=R-1 S$ no more variables? 

222 ODF61 4B7 ATOTO GOC ADITOT 

223 ODF64 104 R4=A 

224 ODFE7 1FOO D1=(5) =S-RO-1 point D1 to F1 

000 

225 ODF6E 143 A=DAT1 A 

226 ODF71 131 Di=A 

227 ODF74 16F DO=00+ 16 skip total 

228 ODF77 16F ADISOQ? DO=D0+ 16 point DO to next SCP or SS 

229 ODF7A 133 ADIEX see if is a SS 

230 ODF7D 131 D1=A 

231 ODF8O 06 RSTK=C save C(A) in RSTK 

232 ODF82 8A2 7A=C) OA SS? 

233 ODF85 52 GOYES ADIJSQS 

234 ODF8? 75C1 GOSUB BFGTAB no: get FI/FO, I<J 

235 ODF8B 07 C=RSTK get FJ 

236 ODF8D 137 CO1EX 

237 ODF9O0 06 RSTK=C 

238 ODF92 7ACI GOSUB BFGTCD 

239 ODF96 7E32 GOSUB MSARES Inf*0, Inf-Inf NaNs handled 

240 ODFSA 1547 DATO=C W SCP: =[SCP+FI/FO*F J) 

241 ODFSE 07 C=RSTK restore D1, C(A) 

242 ODFRO 137 CDIEX 

243 ODFA3 7700 GOSUB D1+#21 point Di to next tern 

244 ODFA7 SFC GONC ADISQ? B.E.T. 


245 ODFAR 73AR2 ADISQ38 GOSUB  rclui+ 


SS: get FOHO, setdec 
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246 ODFRE 11B 
247 ODFB1 134 
248 ODFB4 7000 
249 ODFB8 7491 
250 ODFBC 7245 
251 
252 ODFCO 7C91 
253 ODFC4 78A1 
254 ODFC8 7002 
255 
256 ODFCC 1547 
257 ODFDO 7A90 
258 ODFD4 07 
259 ODFD6 137 
260 ODFD9 618F 
261 ODFDD 20 
262 ODFDF 75D0 
263 ODFE3 73A1 
264 ODFE? 7302 
265 ODFEB 1547 
266 
267 
268 
269 ODFEF 11C 
270 ODFF2 A82 
271 ODFFS R4E 
272 ODFF8 414 
273 ODFFB 10C 
274 ODFFE 16F 
275 0E001 AOE 
276 0£004 S9F 
277 OE0O? 7031 
278 OEOOB 8E00 
006 
279 0E011 1537 
280 OE015 7621 
281 O£019 7000 
282 OFO1D 7D40 
283 O£021 860 
284 0£024 50 
285 O€026 BCC 
286 OE029 7DB1 
287 O£02D 1547 
288 0£031 11C 
289 0E034 BO6 
290 0£037 5DB 
291 O£03A 20 
2392 OEO3C 3200 
0 
293 0E041 8E0O 
00 
294 0£047 04 
295 0E049 8C00 
00 
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ADITOT 


C=R3 

DO=C 

GOSUB =SWAPXY 
GOSUB BFGTRB 
GOSUB dvi5s 


GOSUB BFGTCD 
GOSUB BFPTAB 
GOSUB MSARES 


DATO=C W 
GOSUB D1+21 
C=RSTK 

CDIEX 

GOTO ADISE 
P= 0 
GOSUB FBWVAR 
GOSUB addsub 
GOSUB uRESD1 
DATO=C W 
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restore X) 


rove FO to C/D 

get FJ 

FI/FO. 

Inf/Inf? (0/0,DVZ not possible) 


handles Inf /Inf. 

(Inf*0, Inf-Inf not possible) 
SS:=[SS+FI*FI/FO), FJ:=FI/FO 
point to next FJ 
store in C(A) 


fill buffer with vars, setdec 
N+1 or N-1 


N:=[N+#1] or :=[N-1] 


FOI OT TTT TI TIT TIO 


* COMPUTE NEW TOTALS 
SOI TOT TIT TTI A IIIT IIIT IIIS III ITI SII SIT IIIS IA 


ATOTI 


ATOT2 


ATOT3 


ADDEND 


axtstri 


C=R4 

C=0 P 
C=C-1 §$ 

GOC ADDEND 
R4=C 

DO=D0+ 16 
C=C-1 P 

GONC ATOT2 


GOSUB splth+ 
GOSUBL =STAB1 


A=DATI W 

GOSUB SPLTAS 
GOSUB =RCCD1xX 
GOSUB Di+21 


*ST=0  -=sSTAT 
GOYES ATOT3 
A=-A-1 S 
GOSUB ARESD1 
DATO=C W 

C=R4 

C=C+1 P 

GONC ATOT 
P= 0 


LC(3)  =bSTAT 
GOSUBL =1/0DAL 


SETHEX 
GOLONG =NXTSTN 


C(14)=#SS-1: 20 
no Hore variables? 


point DO to next total TJ 


get, split, nornalize, test TJ 
save TJ in RO/R1 


get variable VJ (12-digit) 
split normalize, test VJ 
recall TJ 

point D1 to next variable 


any Inf-Inf NaN 1s recorded 
TJ:=[TI+VJ] or :=[TJ-VJ] 


SS: =HSS+1 


B.E.T. = branch every tine 
done: deallocate stat buffer 


--- exit --- 
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296 

297 

298 

299 

300 OEO4F 1B00 
000 

301 O€056 1567 

302 OEO5A 134 

303 OE05D 01 

304 

305 

306 

307 OEOSF 1F00 
000 

308 OF066 147 

309 O£069 135 

310 OE06E 01 

311 

312 OEOGE 174 

313 06071 17F 

314 0&074 03 
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EJECT 
RAK KKAKKEREKEKEKRERIR RIO III RRO I 


* DO=SRO S.L.=0 Uses: C,D0 
SII IDI IID TITI II IIT IARI II IIIA III ISI ISSIIIIISISSAI SSIS IIS 


DO=SRO DO=(5) =S-RO-0 


C=DATO W 
DO=C 


BOI ITT TTC TTT TTT TO ITI IK 


* D1=SR1 S.L.=0 Uses: C(AR),D1 
JI IIIT TTI OT TOTTI IIIT DI IIT IIIT II ASS ISIS 


D1=SR1 01=(5) =S-RO-1 


C=DAT1 A 
D1=C 


FIRST IIT SDI IS IAIT III II ISIS IIS III ISIIIISI SI IIIS IIIS IS IA 
D1i+21 Di=D1+ 5 

D1=D1+ 16 

RTNCC 
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315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
3% 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
34? 
348 
349 
350 
351 
352 
353 
354 
355 
356 
35? 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 O£076 8E00 
00 
368 O£07C 1F00 
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FORO OIRO ITSO TIO IO 
FOO IIIT OTTO TIT ITI II 
ak 


ak Nare: STBALL - Allocate and Fill Statistical Buffer 
kk 


** Category: CONFIG 


x 
*k Purpose: 

ak Allocates the statistics scratch buffer and fills it 
ak mith the value of the variables specified by an ADD or 
ak DROP statenent. List length > # variables is 

ak interpreted as a fatal error. 

kh 

** Entry: 

tk P=0 

kk A(S) -- # variables 

ak ACA) -- statistical array starting address 

aA D1 ---- points to top of nath stack 

ak 

RK Exit: 

ah MTHSTK/AVMENE - point to top of math stack 

aK S-RO-0 (5) ---- N address 

xt S-RO-1 (5) ---- i/o buffer starting address 

wk S-RO-2 (5) ---- junk??? 

ak S-RO-3 (1) ---- # variables 

ak also FBWVAR outputs 

ae -- unless fatal error -- 

ah 

*k Calls: ave=d1 , DO=SRO,D1=SR1,D1+21,FBTEST, I/OALL, 

ak SPLTAX, uRESD1 

- falls into FBUVAR 

kk 

AR USES keae 

*k Inclusive: CPU: A,B,C,D,P,R3,R4,D0,D1,SB, XN, sIX(s7),s8-11 
i RAN: MTHSTK/AVMEME, STNTD1, S-RO-0,1,2,3 

ax statistical buffer 

ak 

Re Stk lvls: 4 = max(3,1+uRESD1) 

ck 

ak 

x® History: 

ik 

a Date Progranner Modification 

OR -2555icee 'Seneciiwes: wsdawetusceuss doce pte deueeadenous 
KK 06/10/82 Pri Docunented routine 

Rk 11/03/82 " Updated MTHSTK/AVMENE 

Rk 01/14/83 " Fatal error if list length > &vars 
RK 01/27/83 : S-RO-2 not set to 00000 

ah 


SOIT OOO SITIO OI OOK 
FOO III IOI II OI OOO 


STBALL GOSUBL =ave=d1 update MTHSTK/AVMENE 
D1=(5) =S-RO-0 
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; 000 
369 O£083 1517 DAT1=A W S-RO-0,3:=N address, #VARS 
370 0£087 DO R= A 
371 O£&089 810 ASLC ACA)=HVARS 
372 OEFO8C D8 B=R A 
373 OE£O8E C5 B=B+B A 
374 0£090 C5 B=B+B A ; 
375 O£092 C8 B=A+B A 
i 376 0£094 FO ASL A 
377 06096 C8 B=A+B A B(A): =21*(HVARS) 
378 0£098 3200 LC(3) =bSTAT 
0 
379 OE03SD 8E0O GOSUBL =I/OALL allocate statistics buffer 
00 
380 OFOA3 460 GOC STBAL1 sufficient nenory? 
381 OEOR6 6180 GOTO) 3=onferr no: “eMEM" fatal error 
382 OEOAR 137 STBALI CD1EX yes: save buffer address 
383 OEOAD 1F00 01=(5) =S-RO-1 
000 


384 OE0B4 1504 DAT1=C 5 S-RO-1:=buffer address 
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385 EJECT 

386 JOO III IO ICO OCT IORI SII IIT TI SII IT TITS III IATA 

387 JOIST III I ISI TI II IIIS TIS IIIS III III IIT IIIS IIIS IIIA 

388 a 

389 a. Nane: FBUVAR - Fills statistical scratch buffer 

390 : 

391 ** Category: LOCAL 

392 ax 

393 &* Purpose: 

394 ae Fills the statistics buffer with values placed on the 

395 aX nath stack. If any expected values are missing, zero 

396 ak is used in their place. Complex, array, and extra 

397 ak values are interpreted as fatal error conditions. 

398 a: 

399 ** Entry: 

400 aK P=0 

401 ae HEXNODE 

402 ax 

403 ak Exit: 

404 hk buffer filled with 12-digit forns separated by 5 nibs 

405 wx each, 

406 kK DO ---- points to N 

407 ae D1 ---- points to buffer (just past buffer header) 

408 ae R4(S) - # variables 

409 ae A/B --- N split and nornalized 

410 ax Carry=Clear 

411 << DECMODE 

412 as -- unless fatal error -- 

413 ax 

414 ** Calls: DO=SRO ,01=SR1,D1+21, SPLTAX, uRESD1 

415 xe falls into SPLTAS 

416 ax 

417 RA Uses....... 

418 ** Inclusive: CPU: A,B,C,D,P,R3,R4,00,01,SB,XM,sIX(s7),s8-11 

419 ae RAN: statistical buffer, STNTD1 

420 = 

421 ke Stk lvls: 4 = max(2,1+uRESD1) 

422 z 

423 ** History: 

424 xe 

425 ax Date Programmer Modification 

426 K&O SSeS owiehe eee. ee ee oe ctet ee See eee oe Seed 

42? ke 06/10/82 PH Docunented routine 

428 ee 42/15/82 . Added signaling NaN test 

429 RR 01/14/83 " Fatal error if list length > #vars 

4H RR 03/21/83 . Moved error exit 

431 Rk 04/26783 Merged subroutine, added 16n test 
2 an 

Poe FORO ROI RO OIRO OOOO ORO OIC OOO I IGOR III 

434 JG IIIS UGS ICI ICIS IO IOUT TRE 

435 OE0B8 30A FBWVAR LCHEX A store A in B(O) 

436 OFOBB D5 B=C A 

437 OEOBD 7ESF GOSUB D1=SR1 point D1 to buffer 

438 OFOC1 1800 PO=(5) =S-RO-3 C(S)}: =#VAR 


000 
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439 O£0C8 1564 C=DATO § 
440 O£OCC 1R00 DO=(4) =MTHSTK 
oo 
441 OEOD2 146 C=DATO A C(A): =MTHSTK 
442 OFODS 164 DO=D0+ 5 
443 OFOD8 142 A=DATO A A(A): =FORSTK 
444 OEODB 906 RHC OP stack length not 16n? 
445 OEODE 72 GOYES ivarty 
446 OEOEO ASE FBNVRI C=C-1 S$ RVAR: =HVAR-1 
447 OEOE3 483 GOC FBUVR4 
448 OFOE6 8BR 7A<=C A out of data? 
449 OEOES 22 GOYES FBUVR2 
450 OEOEB 130 DO=A no: get and test next value 
451 OEOEE 181 DO=D0- 2 test for conplex header 
452 OEOF1 148A A=DATO B 
453 OEOF4 988 7A>=B OP 
454 OEOF7 £0 GOYES ivarty 
455 OEOFS 18D DO=D0- 14 test for array dope vector 
456 OEOFC 1527 A=DATO W 
457 0F100 984 7A<B OP 
458 0E103 £0 GOYES FBRVR3 carry set 1f not 
459 0E105 8CFF ivarty GOLONG cnfict data type error 
70 
460 0£10B 130 FBWVR2 DO=A 
461 OE10E AFO A=0 W use 0 for missing data 
462 0£111 1517 FBWVR3 DATI=A W put real value into buffer 
463 0£115 755F COSUB 01+21 
464 0£119 132 ADOEX 
465 OE11C §3C CONC FBHVR1 B.E.T. 
466 OE11F 8BA FBWVR4 ?A<=C A error if any extra data 
467 0EF122 £0 GOYES FBRYRS 
468 0E124 3100 LC(2) =eIV¥SOP (P=0) 
469 0E128 =MFERRO 
470 0E128 20 nferr P= 0 
471 O£12AR 8C00 GOLONG =NFERR 
oO 
472 0£130 7B2F FBWVRS GOSUB 0D1=SR1 point D1 to buffer 
473 0E134 771F GOSUB DO=SRO point DO to N 
474 0£138 10C R4=C R4(S): =#VARS 


475 0£13B 1527 spltAt+ A=DATO W get N 
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476 

47? 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 OE13F 7864 
516 0€143 500 
51? 0€146 74R0 
518 OE14A AFA 
519 O€140 SIF 
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FOI JIT TOT IT TTT TH 
JOO IRI III III IER II IN 
ax 


** Nane: SPLTAS - Split, Test Argument for Signaling NaN 
kk 


** Category:  NTHUTL 


hk 
** Purpose: 

a Splits, norrializes, tests argunent for signaling NaN. 
aK If a signaling NaN, raises IVL flag, consults IVL trap, 
xx and prints any warning nessage or saves any fatal error 
ae nessage. 

xk 

kk Entry: 

a A ---- 12-digit forn of argunent 

kk 

ak Exit: 

- A/B -- split and normalized argurient 

k 

** Calls: SPLTAX, uRESD1 

da 

OE USeS ic kuass 

**k Inclusive: see uRESD1 

kk 

KK Stk lvls: 4 = tiax(2,1+uRESD1) 

&k 

xx Note: 

aa Foreign NaNs are treated as signaling NaNs. 

x 

** History: 

sh 

xk Date Progranrier Modification 

RRO Situteee. aecueges: « Gite ae Cicer ceed ecm es Daca 
KK 12/21/82 PM Docunented routine 

KK 01/26/83 Pn Revised docunentation 

eK 


FORO IOI IOI TOI TOTO IOI OTTO TTI OK 
FOO ROI IOI IOI OOOO OTITIS OI OI 


=SPLTAS GOSUB SPLTAX split, normalize, test 
RTNNC 
GOSUB uRESD1 raise IVL flag, consult trap 
R=C W 


GONC SPLTAS B.E.T. with quiet NaN 
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520 EJECT 
524 FRI IO SII OTITIS III IIT III IT ISI SIS TSI ISOS ISI SSIS ISI SSIS SSIS II SOAK 
522 JI III III IIIS ITO TTT IIT 
523 aK 
524 xk Nare: BFGTAB - Statistical buffer I/0 routine 
525 aR 
526 ** Category: LOCAL 
527 aR 
528 ** Purpose: 
529 an Buffer 1/0 routine: copies 15-digit buffer value into 
530 ‘i registers A/B. 
531 aE 
532 ** Entry: 
533 xh D1 -- points to 15-digit buffer value 
534 aR 
535 aK Exit: 
536 a A/B - contains 15-digit buffer value 
537 ak Carry=Clear 
538 xk 
539 *k Calls: nothing 
540 kt 
541 aK Uses....... 
542 *X Inclusive: A,B 
543 xk 
544 ** Stk lvls: 0 
545 kK 
546 ** NOTE: 
547 ak See ADD for how this routine may be used. 
548 ey 
549 xt History: 
550 ak 
551 xk Date Progranner Nodification 
552 SE Bees Sees, Segoe susan ruee auc a oecaee betes 
553 Kk 06/10/82 PN Docuriented routine 
554 xk 01/06/83 PM Reviewed docunentation 
aR 
Bee JOO II III III IIA I IOS TIO STII O I IIIS IIS II IOS SITIOS I ISIS SISTA IN 
557 JO III II IIR IOI OT ITSO STII ITI II IIIS III IIIT ISOS IOS II ISI I IN 
558 0£150 1537 BFGTAB A=DAT1 W $ign and nantissa 
559 0E154 17F D1=D1+ 16 
560 0£157 AF8 B=A OW 
561 OE15SA 143 A=DAT1 A exponent 


562 O£15D 542 GONC D1-16 Bi ELT. 
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563 

564 

565 

‘566 

567 

568 

569 

570 

571 

$72 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

§90 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 0E160 1577 
602 OE164 17F 
603 O£167 AF7 
604 OE16A 147 
605 OE16D 541 


kk 


ak 
xx 
an 
ar 
ax 
aK 
ak 
xk 
ak 
ak 
aK 
ax 
aK 
a 
xk 
xk 
xk 
a 
aK 
ar 
xk 
xk 
ak 
ae 
xk 
xk 
xx 
xk 
ah 
ax 
ax 
xk 
xk 
aK 
aK 
ak 
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EJECT 
JOOS OCC CCT TIT IT III TAK 


JOIST OO IOI IIIT IT IO TTR 
Narie: BFGTCD - Statistical buffer I/0 routine 


Category: LOCAL 


Purpose: 


Buffer i/o routine: copies 15-digit buffer value into 
registers C/D. 
Entry: 
D1 -- points to 15-digit buffer value 
Exit: 
C/D - contains 15-digit buffer value 
Carry=Clear 
Calls: nothing 
Uses....... 
Inclusive: C,D 
Stk lvls: 0 
NOTE: 
Sane as BFGTAB, except uses registers C,D. 
History: 
Date Progranner Modification 
06/10/82 PM Docunented routine 
01/06/83 " Reviewed docunentation 


SS III TI TIO DA IIIT ITT III IID III IIIT IAI III I ITI SIRI II IITA IK 
JOIST IAT TIS III ITI TI IITII IIIS II IIIT IT IAI OID III AAI IIA 
FGTCD C=DAT1 W Sign and mantissa / 

D1=D1+ 16 

D=C W 

C=DAT1 A exponent 

GONC D1-16 B.E.T: 
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606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

6H 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 OEF170 2E 
648 OE172 ASC 
649 OE175 1517 
650 O€179 AIC 
651 OF17C 17F 
652 OEI7F 141 
653 OE182 1CF 
654 OE185 01 
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ECT 


JIC TIS I IO SI IRI I IIT III II IIS IIT IOS I III IIIT IIS II ISI III IA 
JCI II IOI III III II IOI I II III IASI IIIS II III IIIS ISI IIII IIIS IA 
aK 
** Nane: BFPTAB - Statistical buffer I/0 routine 
ak 
x* Category: LOCAL 
Ka 
** Purpose: 
aA Stores 15-digit forn in registers A/B into buffer 
ae location pointed to by D1. 
ak 
** Entry: 
a A/B - contains 15-digit forn 
ag D1 -- point to 15-digit buffer location 
ak 
E-ERT TS 
aK buffer location has 15-digit forn 
a4 Carry=Clear 
ts P=14 
ak 
** Calls: nothing 
ak 
BR USES. os. ee 
kt Inclusive: CPU: P 
de RAN: 21 nibbles: [D1,01+20] 
ik 
** Stk Ivls: 0 
ik 
** NOTE: 
a See ADD for how this routine nay be used. 
aK 
*® History: 
ak 
xk “Date Progranner Modification 
AM igeeeeeee: Tessie, weiter wesw ec ctes ess eeeeaess 
KK 06/10/82 Pr Docunented routine 
ak 01/06/83 * Revised docurentation 
ae 
JU I I IO III III TE III IO SIO ITI SII II IID IIIA ISIS IIS 
JOIST III II TI III IIIS OOS III IIIS ITI IIIIISISIIISII IIA 
BFPTAB P= 14 
ABEX WP 
DAT1=A W sign and mantissa 
ABEX UP 
D1i=D1+ 16 
DATI=A A exponent 
01-16 Di=D1- 16 
RIN 
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655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 O€187 850 
693 OE18R AF2 
694 OE18D AF3 
695 O£190 2E 
696 OE192 BO? 
69? OE195 860 
698 OF198 50 
699 

700 

704 

702 

703 

704 

705 

706 

707 

708 

709 
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EJECT 
FIR I IIIT II ATO DT TITAS IIIT AIT ILI TTI IIIS III I ATT I IK 


ROR TOTO ITO IIT TT ITT ITI IT IIT ITT ITI KITT IK 
xx 


** Narie: addsub - Adds or subtracts 1 fron A/B 

kt 

*k Category: LOCAL 

ak 

** Purpose: 

a Adds or subtracts 1 fron a 15-digit forn while 
ax preserving the neaning of SB to denote an inexact 
ak chain calculation. 

kk 

** Entry: 

ae standard 1§-digit floating point nath inputs 
a SSTAT(s6)=0: add 1 

RK =1: subtract 1 

ak 

xP EMA: 

ak see docunentation for AD15S,SB15S 

kk 

ak Calls: falls inte ADI5S or SB15S 

kk 

x Uses....... 

** Inclusive: A,B,C,D,P,SB, XM, sIxX(s7) 

kk 

** Stk lvls: 1 

ak 

*k History: 

a y 

xk “Date Progranner Modification 

he wetevae: Wetec Guus outepee Gotan kee i een etes eee 
kK 01/06/83 Pr Docunented routine 

RK 03/04/83 " Used sSTAT(s6) to sel. add or sub. 
ae 


FOO IIIT TOTO OI ITT TOO TOTO 
FOI OOOO 


subone ST=1 =sSTAT 
addsub C=0 W 


D=0 W 
P= 14 
D=D+1 P 
?ST=0 =sSTAT 


GOYES AD15S 
FEI IAI II TIE TO TT EE ITE 


JOR IIT III TOTO TOTTI OOOO TOI 
ae 


** Narie:(S) SB15S -  15-digiat subtract/add routine 

** Narie:(S) ADISS - 15-digit subtract/add routine 

ak 

** Category:  MTHUTL 

ah 

%* Purpose: 

ae Subtracts or adds, respectively, tuo 15-digit forns 


a while preserving the neaning of SB to denote an inexact 
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710 ax chain calculation. 
711 ak 
712 ** Entry: 
713 a A/B,C/D -- standard floating point nath inputs 
714 a SB, XM ---- indicate prior inexact or invalid operation 
715 x 
716 &k Exit: 
717 es A/B ------ standard floating point math outputs 
718 hk SB, XM ---- 
719 ak Carry set iff XM=1 on exit (e.9., Inf-Inf NaN created) 
720 ak 
721 tk Calls: AD15s, SAVESB, ORSB 
722 x exits through XMNTEST 
723 ax 
724 ek Uses....... 
725 tk Inclusive: A,B,C,D,P,SB,xXN,sIX(s7) 
726 Ee 
727 ** Stk lvls: 1 
728 ak 
729 &* History: 
7H xx 
731 bes Date Prograriner Modification 
732 Bk Ccccchios” Adecsceuue Wceetiecicuecc aeoteeeeouetu ras 
733 *k 12/21/82 PH Docunented routine 
734 . 01/31/83 " Handled arithnetic-created NaNs 
JU III OTITIS TOTO SII STO SIS I IOS III ISI IITA 
737 20 II III IIIS III OS IS SII III IOS I II OSI SSIS STIS. 
738 OE19A BCE =SB15S C=-C-1 § needs dec rode 
739 OE19D 8E0O =ADISS GOSUBL =SAVESB save SB in sIX 
00 
740 OE1A3 8E00 GOSUBL =AD15s needs dec node 
00 
741 OE1A9 8E0O GOSUBL =ORSB update SB 
00 
742 OE1AF 6B0O GOTO XNTEST set carry iff XM=1 
743 JI III OT TOI II IIT IIIT III IIIT III IIIS STI III II ATI IIA ISIS STII 
744 1 II IOI OI III III TIT IS TI ITT OTITIS ISI III SII IIIS IIIS ISSA S SIS: 
745 2% 
746 ** Narie: mp15s_  - Connection to NP15S 
747 ak 
748 ** Category: LOCAL 
749 xe 
7% ** Purpose: 
751 ae Sets dec node, junps to MNP15S 
752 x 
753 &* Entry /Exit: 
754 x See MP15S 
755 a Carry set iff XM=1 on exit (e.g. Inf*O NaN created) 
756 * 
757 eX Uses. ...... 
758 *X Inclusive: A,B,C,D,P,SB, XN 
759 aS 
760 ** Stk lvls: 1 


761 aS 
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762 FI ITI ATI II AI III III III II III II STS SIS ISS OS SIS III II IIS SS SSI IIK 
763 II II TID IDI ITI IIIT IDI SII III IIIS SIS I SIS SSIS IS ITI I SIDI SS SSSI SSIS K 
764 OE1B3 05 mpi5s SETDEC 
765 OF1B5 8E00 GOSUBL =M"P15S 

00 

766 IIIT III ITD IAI IIS ID ISIS SIS III III III III IIIT III ISI IS ISISSSSSSISS SK 
767 OE1BB 831 =XMTEST ?xN=0 Carry set iff XM=1 
768 OE1BE 40 GOYES rtnec2 
769 OE1CO 02 RTNSC 


770 OE1C2 03 rtncc2 RINCC 
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771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
784 
782 
783 
784 
785 
786 
787 
788 
789 
790 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 OE1C4 2 
813 OE1C6 7E50 
814 OEICA 8C00 
00 
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EJECT 
FOR OO RI IOI TI TIT TO 


FORO JOTI OTITIS TTT 
an 


** Nane: uresi2 - Connection to uRES12 

k 

** Category: LOCAL 

ae 

** Purpose: 

ak Set P=IVP, nove any error message into C(A), then 
ae fall into uRES12. 

xk 

kk Entry: 

a A/B -- 15-digit forn 

ax D1 --- points to end of available nenory 

kk (top of math stack) 

xk 

AAC EMITS 

aE uRES12 outputs 

ak 

** Calls: GETNSG 

ae exits through uRES12 

ak 

RX Uses... .... 

xx Inclusive: A,B,C,D,P,R3,SB, XM, sIX(s7),s8-11 

ik 

X* Stk lvls: 2 = uRES12 

k 

** Note: 

ws This routine nay fail to properly display a warning 
ae nessage 1f the nessage involves text insertion. 
ak 

** History: 

kk 

xx Date Progranner Modification 

PO. Sovetses “epeteutane: .vaneteeneaueeawe aecane owoeeaseeane 
RES Aesel fee Pn Docunented routine 

Kk 01/28/83 au Revised docunentation 

&k 


FOI IJ JOTI TTT OR TOO I I TIT I 
FORO JOO JOO TTT RT I 


uresi2 P= =IVP if exception, then is IV 
GOSUB GETNSG put any message into C(A) 
GOLONG =uRES12 
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815 

816 

817 OE1D0 831 

818 O£1D3 00 

819 OE1D5 581 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 OE1D8 77DF 

846 

847 OE1DC 8E00 
00 

848 OE1E2 755F 

849 OE1E6 7000 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 
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FOI III TIT IOI IIIA II II STI IS IIIS ISIS SIT IIS SSS SSIS 
=RPTNaN ?XM=0 
RTNYES 


GONC uRESD1 B.E.T.: report Invalid NaN 
III III IDI ISI IIT IIIT III IIIT III SII IIIS ISIS SII SI SSI SITS ISI ISI IRIN 


FORT TI TO TI TTT TIT TI ITN 
xk 


** Nane: MSARES - Chain calculation utility 
kk 


** Category: LOCAL 


ek 
** Purpose: 

a Hultiply, read nunber fron RAN, add, then fall into 
a uRESD1. Used for code packing. 

tok 

** Entry/Exit: 

a See npt5s, spltA+, uRESD1 

ae 

** Calls: AD15S, RCCD1X, STAB1,npt5s, spl tA+ 

ne exits through uRESD1 

tok 

RX Uses... 00. 

4k Inclusive: CPU: A,B,C,D,P,RO-R1,R3,SB, XM, sIX(s7),$8-11 
xe RAM: STMNTD1 

tk 

KR Stk vis: 5 = max(3,2+uRESD1) 

tok 


FOI IIIT TOTTI TTT TTT IT ITT IIIT ITN 
FOI IIIT TTT TOT TT TTT TT TIT TIT TOIK 


NSARES GOSUB rp15s 


GOC uRESD1 jurip if Inf*O NaN created 
GOSUBL =STAB1 save product in RO/R1 

GOSUB spltA+ get, split, norralize, test 
GOSUB =RCCD1X recall product into C/D 


FORO JOO TOTO TOTO OTTO TOI ITOK 
SOOO IO OTTO TIO OTTO IOI TT TOI ITOK 
x 


** Nane: ARESD1 = - Chain calculation utility 
ak 

** Category: LOCAL 

ak 

** Purpose: 

a Adds two 15-digit forris and then falls into uRESD1. 
a Used for code packing. 

xx 

** Entry/Exit: 

= See AD15S, uRESD1 

ak 

BE USCS ec i005 

xx Inclusive: see uRESD1 

*K 

** Stk lvls: 3 

ak 
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869 
870 
871 OE1ER 7FAF 
872 
873 
874 
875 
876 
877 
878 
879 
880 
8381 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
398 
899 
900 
91 
%2 
93 
904 
905 
6 
7 
8 
9 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 


ax 
aK 

A 
ar 
xk 
xk 
ak 
xk 
an 
ax 
aR 
ak 
ax 
xx 
an 
xx 
ar 
xk 
ax 
xk 
ak 
ak 
xn 
ak 
xk 
xk 
xk 
ak 
aK 
xk 
xk 
ak 
xk 
xk 
ax 
an 
ak 
ax 
xx 
ax 
xk 
x 
xk 
ak 
ak 
xt 
xk 
xk 
xk 
ak 
ak 
xk 
ak 
ak 
xk 
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KHAKI KEK KEK KEK AIRE KIO OOOO TOO TOTO IO Ik 
FORO RIO RI OI II TOI IOI 
RESD1 GOSUB AD15S 

FORTIS 
JOO JOTI TIO OO TT TITRE 


Narne:(S) uRESD1 - Variation of uRES12 
Category:  MTHUTL 


Purpose: 
Sinilar to uRES12. Any XM exception is 
considered an invalid operation (not a divide by zero 
or OO type). AVMNENE, rather than D1, points to the 
end of available nenory. Also, various entities are 


initialized on exit. 
Entry: 
A/B ----- 15-digit forn for rounding, trap handling 
XN ------ set iff invalid operation has occured 
SB ------ set iff result is inexact 
AVMEMNE -- points to end of available nenory 
Exit: 
C ------- contains result 
$B,XM = 0 
$8-11 --- user nodes 
HE XMODE 
Carry=Clear 
P=14 
Calls: uresi2 
exits through uMODES 
Uses....... 
Inclusive: 


CPU: A,B,C,D,P,R3,SB,XN, sIX(s7),s8-11 
RAM: STNTD1 


Stk lvls: 3 = 1+uRESi2 


Note: 
This routine may fail to properly display a warning 


nessage 1f the nessage involves text insertion. 
History: 
Date Progranner Modification 
06/10/82 PM Docunented routine 
11/17/82 " D1 preserved, falls through unodet 
01/28/83 Fatal errors halt execution 


innediately 


FORK III JJ JOO OO UTI TTT TIT ITI IN 


i. & 
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924 
925 OE1EE 137 
926 OE1F1 1F00 
000 
927 OEIF8 145 
928 OE1FB 1E00 
00 
929 0F201 147 
930 0E204 135 
931 OE207 796F 
932 OE20B 1FXO 
000 
933 0€212 143 
934 0€215 131 
935 0£218 04 
936 OE21A 2E 
937 OE2IC 822 
938 OE2IF 821 
939 OE222 800 
00 
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FOOT ITI TTT ITO 


=uRESD1 


uniodeH 


unode+ 


CDIEX 
D1=(5) =STNTD1 


DATI=C A 
D1=(4) =AVMENE 


C=DAT1 A 

01=C 

GOSUB uresi2 
D1=(5) =STNTD1 


R=DRT1 A 

D1=R 

SETHEX 

P= 14 

SB=0 

XN=0 

GOLONG =uMODES 


save D1 in STNTD1 


point D1 to AVMENE 


restore 01 
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940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
564 
965 
966 
967 
968 
969 
970 
971 
972 
973 OF228 AFI 
974 OF22B 8000 
00 
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EJECT 


TOIT RIO JI ROJO TIT TTI 
FOR IORI TTT TTT II ITI TIT TTI III ER IIT IT 


ak 
ak 
ar 
ak 
ak 
ak 
ah 
ak 
ak 
xk 
ax 
xk 
ax 
ax 
ak 
ak 
kk 
ak 
ak 
xk 
ak 
xk 
ak 
ak 
aK 
ak 
ak 
ak 


Narie: GETNSG - Get Signaling NaN Encoded Error Msg 


Category: LOCAL 
Purpose: 
Puts error message encoded in NaN (A/B) into C(A). 
Entry: 
A/B --- split NaN (B(14-11) has error nessage code) 
Exit: 
C(A) --- error nessage code 
Calls: nothing 
Uses....... 
Inclusive: C 
Stk lvls: 0 
History: 
Date Progranner Modification 
12/21/82 Pr Docunented routine 
04/15/83 " Messages in NaNs moved 


SOOO IR TO OTTO TTT TTT TO 
FRI IOI TOTO III IK IK I IIIT I RII III III RIE ITT REIT AIK 


GETNSG C=B W 


GOLONG =Cslc5 
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975 

976 

97? 

978 

979 

980 

931 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

397 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1003 

1019 

1011 

1012 

1013 

1014 

1015 

1016 

1017 O€231 8E00 
00 

1018 OE23?7 135 

1019 OE23A 14A 

1020 OE23D 04 

1021 OE23F 21 

1022 OF241 BO4 

1023 OF244 400 

1024 O£247 8C00 
00 
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EJECT 


FORO JOJO I IIIT TTT TI TTI II IK 
FOI IIT TOTTI ITI I IK 


ak 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
aK 
ak 
xk 
KK 
xk 
xx 
xk 
ax 
xk 
xk 
ak 
ak 
a 
ak 
ah 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 


Narte: TEXPEX - Stacks list of n.e. on math stack 
Category: MTHSTK 


Purpose: 
Collapses the math stack, then stacks a list of nuneric 
expressions on it. 


Entry: 
DO -- points to nuneric expression list (or statenent 
terninator if there is no list) 


Exit: 
nath stack contains values of numeric expressions 
DO ------ points to statenent terminator 
DY. =esee4 points to top of nath stack 


AVNEME -- points to top of nath stack 
Carry=Set if no expression list 
=Clear otherwise 


Calls: COLLAP 
exits through EXPEXC 
Exclusive of EXPEXC: CPU: A(B),C(A),P,01 
RAN: MTHSTK/AVNENE 


Stk lvls: —max(1,EXPEXC) 


History: 

Date Progranner Modification 
06/10/82 Pn Docunented routine 
01/06/83 : Revised docunentation 


FORO OO TOO OO TOTO TTI 
FOR RII OI OTT ITT TOT OK 


TEXPEX GOSUBL =COLLAP collapse math stack 
01=C point D1 to MTHSTK/AVNENE 
A=DRTO B test for no argunent 
SETHEX 
P= 1 
A=A+1 P 
RTNC no arg: return carry set 
expexc GOLONG =EXPEXC arg: return carry clear 
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1025 
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EJECT 


1026 OE24D GEDE stscr GOTO STSCR 


1027 
1028 
1029 
10% 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1082 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 OE251 136 
1062 O€254 108 


JORIS I JOTI TOIT TST SII 
SII IIIT TT TT TT TTT TTT IT RTT TTT TK 
xx 


** Nane: rclwit - Save DO then connect to RCLW1 
ak 

** Category: LOCAL 

ax 

** Purpose: 

x Save DO in R3, then exit through RCLWI. 

ke 

*X Entry: 

aK W1 -- value to be recalled fron top of scratch math 
ah stack 

ak DO -- pointer to be saved 

ae 

aK Exit: 

&k R3 --- prior DO value 

ax A/B -- recalled fron top of scratch math stack 
ke 

tk Calls: GEXPAD , GSCPTR 

hn 

tk Uses....... 

kk Inclusive: A,B,C,D,P,D0,R3 

ae 

** Stk lvls: 1 

ak 

** History: 

kk 

ae Date Progratiner Modification 

Be” 2ccec ue Chere eee ee i ee es 
kk 01/06/83 Ph Docunented routine 

ke 


JOT JO JOI JOJO ITT 
FOO RII OI OTT TTI 


relui+ CDOEX 
R3=C 


1063 O€257 6927 rclwi GOTO RCLWI setdec 
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1064 EJECT 
1065 {UII II I III IOI OI I IO ITO SS SIT I TTI 
1066 JI IOC OO IOI OS ISSO ITO IO III TIS I IN 
1067 RR 
1068 xx Nane: pshstk - Pushes nath stk 
10693 xx 
1070 ** Category:  MTHSTK 
1071 ax 
1072 ** Purpose: 
1073 ae Pushes riath stack 16 nibs, checking for out-of-nenory 
1074 ax 
1075 ** Entry: 
1076 ak 01 @ Current top of mnathstack 
1077 ax 
1078 tk Exit: 
1079 ax To NOMEN if insufficient nenory, else return carry set 
1080 x D1 @ New top of mathstack, (pushed 16 nibs) 
1081 x 
1082 xx Calls: STK16?, NOMEN 
1083 ax 
1084 EX USCS. ssa es 
1085 ** Inclusive: C(A),D0,D1 
1086 ae 
1087 ** Stk lvls: 1 
1088 aK 
1089 ** History: 
1090 ax 
1091 ae Date Prograriner Modification 
1092 BK anne nee nee rennet en nen eee n eee 
1093 kk 11/22/82 PM Docunented routine 
1094 ** 01/06/83 " Reviewed docunentation 
1095 . 03/29/83 FH Docunented entry/exit conditions 
i 
i JOOS III IIIT III IO TO II II ITO STATS III IIIT ISIN 
1098 JOIST TOI IC OI TIS I IIIS 
1099 O£25B 132  pshstk ADOEX save ACA) in DO 
1100 OE25E 8E00 GOSUBL =STK16? increnent nath stack 
00 
1101 OE264 132 RDOEX restore A(A) 
1102 OE26? 400 RTNC collision? 
1103 OE26A 800 GOLONG =NONEN yes: fatal error 


00 
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1104 EJECT 
1105 JIC TOTO SIO SOS OSI TIT IAI II IIIA 
1106 FIST TIO ISTO TOT IIT IIT SOAS SSI SI SAS AS ISI I IIS ISI STII A IIA 
1107 at 
1108 ** Nane: STFPRP ~ Statistical Function Preparation 
1109 ae 
1110 ** Category: LOCAL 
1111 ak 
1112 ** Purpose: 
1113 ae Statistical function preparation routine: saves PC in 
1114 ae function scratch, tests current statistical array, 
1115 ae reads user nodes, pops, tests, and converts variable 
1116 xe nunber if present, otherwise pushes math stack and uses 
1117 an default variable nunber. 
1118 ak 
1119 *k Entry: 
1120 ace 00 ------- Progran Counter 
1121 ex STATAR --- current statistical array nane 
1122 x optional variable nurber on top of math stack 
1123 vis 
1124 KX Exit: 
1125 Carry=Clear: 
1126 ak A(A) ---- rounded hex variable nunber 
1127 ak R2(S) --- _# variables <=F 
1128 aR R2(A) --- Address of SA(O) 
1129 ak XN=0 
1180 ak HEXNODE 
1131 aK P= 
1132 aR Carry=Set 
1133 an A/B ----- NaN 
1134 z% XN=1 if NaN created 
1135 ax 
1136 ae 
4137 *X Calls: DCHXF , GETSDO, IVARG, POP1R, SPLTAX, pshstk, 
1138 am finita, unodet 
1139 ax 
1140 RROUSES oxen s 
1141 kk Inclusive: CPU: A,8,C,D(A),P,00,R2,SB,XN,s8-11 
1142 ax also D1 if no argunents 
1143 ax RAM: F-RO-O 
1144 ax 
1145 xk Stk lvls: 3 
1146 ae 
1147 ** History: 
1148 xs 
1149 ay Date Progranner Modification 
1150 tee euiee. “Neeetedoee,, ekentoitre see ete cts aces ease 
1151 KK 12/21/82 Pn Docunented routine 
1152 . 03/24/83 : Fatal error if no stat array 
ie JOOS GOI II IIIS IIS ISIS OT TI TTI TIT IT 
1155 JOSS OCIS OOO IST ISTO TOTTI TTT 
1156 O€270 76D2 STFPRP GOSUB GETSDO save PC in F-RO-0 
1157 get SA address, #VARS 


1158 0&274 74AF 


GOSUB unodet+ get user nodes, set SB,XM to zero 
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1159 0E278 A4E 
1160 OE27B 5DO 
1161 OE27E 79DF 
1162 O£282 DO 
1163 0&284 £4 
1164 0EF286 5C1 
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C=C-1 § 

GONC VARNBR 
GOSUB pshstk 
A=0 A 
A=A+1 A 

GONC VAR=1 
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jump if 1 arg 
0 args: increment math stack. 
use var. nbr. 1 


B.E.T. 
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1165 EJECT 
1166 JOISTS TIT TOTO TT RIT 
1167 JO IOS TOTO I ISIS IIIA SOOT TR RTE 
1168 BR 
1169 ** Nane:(S) VARNBR - Pop and Test Variable Nuriber 
1170 ** Narie:(S) VARNB- - Pop and Test Variable Number 
1171 kh 
1172 ** Category: CONVRT 
1173 ak 
1174 ** Purpose: 
1175 xR Rounds decinal floating point real value on top of 
1176 RE nath stack to a hex integer, then tests for a valid 
1177 xk variable nunber. 
1178 ak A NaN input will fall through; an out-of-range input 
1179 ak will create a NaN -- both set carry. 
1180 ak 
1181 xk Entry: 
1182 aR decinal value to be converted on top of math stack 
1183 ak D1 ----- points to top of math stack 
1184 ae R2(S) -- # statistical variables 
1185 ah 
1186 a® Exit: 
1187 ae Carry=Set: invalid input, NaN output in registers A/B 
1188 aR KM=1: If NaN created 
1189 ae Carry=Clear: A(A) -- rounded hex integer 
1190 a KN=0 
1191 aE HEXMODE 
1192 ak P=0 
1193 ak 
1194 ** Calls: DCHXF , IVARG, POPIR, SPLTAX, finita 
1195 ie 
1196 xX Uses....... 
1197 xk Inclusive: VARNB-: A,B,C,P,xXM 
1198 aa VARNBR: sane, unless fatal error 
1199 AF 
1200 KK Stk lvls: 2 
1201 aR 
1202 **® History: 
1203 ak 
1204 ss Date Progranner Modification 
1205 WES Ctuvecto, eeSecmiaes. melSoceo he ten le ot eee og 
1206 xk 06/09/82 PH Docunented routine 
1207 ek 08/12/82 Changed entry points 
1208 KK 12/14/82 " Added signaling NaN test 
1209 ak 02/10/83 ) Fixed neg var nbr problen 

kk 
of SITIO III OOOO III COC IO 
1212 JO I TI TI SOO TO SOC I ISIS TIT I TOI SE IIT IAS 
1213 O£289 7076 =VARNBR GOSUB POPIR pop real argunent 
1214 OE28D 7596 =VARNB- GOSUB finita detect nonfinite, don’t norralize 
1215 0F&291 402 GOC IVVRNB nonfinite? (preserve NaNs) 
1216 OE294 8FO0O GOSBVL =DCHXF round and convert to hex 

000 

1217 OE29B 470 GOC VAR=1 jurp if positive and no overflow 


1218 OE239E 8AC ARO OR <O or overflow? 
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1219 OE2A1 C1 
1220 OE2A3 11f 
1221 OE2R6 D2 
1222 OE2A8 812 
1223 OE2AB 8B6 
1224 OE2RE FO 
1225 OE2B0 03 
1226 OE2B2 968 
1227 OE2B5 80 
1228 OE2B? 7073 
12239 OE2BB 02 
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GOYES aornan 


VAR=1 C=R2 
C=0 A 
CSL 
7AOC OA 
GOYES aornan 
RTNCC 


IVVRNB 7A=0 OB 


GOYES aornan 
GOSUB SPLTAX 
RTNSC 


1230 OE2BD 8E00 aornan GOSUBL =IVARG 


00 
1231 OE2C3 02 


RTNSC 
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var nor > NVAR ? 


legal var nbr: return with CClear 
Inf? 


no: split,test for signan 


create NaN, set XM, carry 
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1232 EJECT 
1233 JI IO ITO TOS OO ISIS OS TTS SS SSS SS TOS IT SII SII IIS 
1234 FOR ROR IOI OOO TUR SI OT 
1235 aE 
1236 ** Nane: TOTAL - TOTAL, MEAN Function Execute 
1237 xk Nane: NEAN - TOTAL, MEAN Function Execute 
1238 “ 
1239 *% Category: FNEXEC 
1240 ak 
1241 *% Purpose: 
1242 aR Returns the sanple total and nean, respectively, of 
1243 ae specified variable in the current statistical array. 
1244 ak 
1245 tk Entry: 
1246 ak Carry=Clear 
1247 ax variable # I on top of wath stack 
1248 ak current statistical array available 
1249 RK C(S) -- argunent count 
1250 ak 
1251 aX Exit: 
1252 ak total or mean on top of nath stack 
1253 ak 
1254 ak Calls: TOTAL: RSTDO,STFPRP, TBLTOT,uresi2 
1255 ak MEAN: also SGNPRD 
1256 ax exits through FNRTN4 
1257 aK 
1258 ak Uses....... 
1259 *k Inclusive: 
1260 ak TOTAL: CPU: A,B,C,D,P,R2,R3,5B,XM, sSTAT(s6),s1X(s7), 
1261 an s8-11, also D1 if no argunent 
1262 a RAM: F-RO-0 
1263 xX MEAN: also D, scratch nath stack 
1264 ae 
1265 ek Stk lvis: 4 = max(4, 1+uRES12) 
1266 ax 
126? ** History: 
1268 ak 
1269 ail Date Progranner Modification 
1270 RR nnn enn wae e nen e rere en nnn nnn nnn nn nen nnn nee eee 
1271 Kk 06/09/82 Pn Docunented routine 
1272 ak 08/13/82 - Merged TOTAL, MEAN 
1273 ae 11/19/82 u Fixed no paraneter case 
1274 RK 12/17/82 _ Saved PC in function scratch 
1275 KK 01/31/83 _ Handled arithnetic-created NaNs 
1276 = 03/24/83 " Fatal error if no stat array 
oe JI III III TI II SIS IIIS ITS IOS SSS SII ISS SSSI STO TI II ISI IIIA 
1279 JI III I IIT II ISO SI ITSO SS IIIT ISIS SSSI ISI IIS ISS ASIII A 
1280 OE2C5 801 NIBHEX 801 
1281 OF2C8 840 =TOTAL ST=O0 =sSTAT 
1282 OE2CB 580 GONC MEANT BE.) 
1283 OE2CE 801 NIBHEX 801 
1284 OE2D1 850 =MEAN ST=1 = =sSTAT 
1285 OE2D4 789F MEANT GOSUB STFPRP save PC (DO) in F-RO-0 


1286 get SA address, #VARS 
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1287 

1288 

1289 OF2D8 4F0 

1290 OE2DB 7023 

1291 x 

1292 OE2DF 860 

1293 OE2E2 60 

1294 OE2E4 7E02 

1295 

1296 OE2E8 6AEO MEAN 


GOC 
GOSUB 
coc 
?ST=0 
GOYES 
GOSUB 


GOTO 


NERN3 
TBLTOT 
NEAN3 
=sSTAT 
MEAN3 
SGNPRD 


CORR3 
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push stack if NaN and no args 

pop, round, test I; use 1 if no arg 
NaN created? 

get 1(0,1) 

Signaling NaN? 

TOTAL? 


W1:=T(0,1), get T(0,0)=N 
T(0,1)/T(0,0) or NaN 
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1297 
1298 $10] IOI OO CII OOOO SOC OSI ITOK 
1299 FOI J OIRO JOJO TOOT TORII 
1300 ak 
1301 ** Nane: SDEV - Standard Deviation Function 
1302 aK 
1303 ** Category: FNEXEC 
1304 kr 
1305 ** Purpose: 
136 a Conputes the standard deviation of the specified 
1307 x variable in the current statistical array. 
1308 ak This 1s a sanple estinate of the population paraneter. 
1309 ax 
1310 ** Entry: 
1311 ak variable # I on top of math stack 
1312 &k current statistical array available 
1313 ae C(S) -- argurent count 
1314 RK 
1315 aX Exit: 
1316 ax estinate on top of nath stack 
1317 ax 
1318 kx Calls: NNGTAB , POSTAB, PTRCDV, RSTDO, SQRSAV, STFPRP, 
1319 ax ST&GTN, ZATBLU, subone, ures12, 
1320 ax exits through FNRTN4 
1321 aK 
1322 xx Uses....... 
1323 ** Inclusive: 
1324 ak CPU: A,B,C,D,P,R2,R3,SB, XM, sSTAT(s6), sIX(s7),s8-11 
1325 ar (,D1 if no argunent) 
1326 x RAN: scratch nath stack, F-RO-0 
1327 kk 
1328 kk Stk lvls: 4 = max(4,1+uRES12) 
1329 ne 
13% ** History: 
1331 ey 
1332 Ae Date Progranner Modification 
1333 RK meme nnn tee e eer e teen en rere n rene nn nnn nnn nner enn eee 
1334 kX 06/03/82 Pr Docunented routine 
1335 RK 12/17/82 . Saved PC in function scratch 
1336 KK 01/31/83 " Handled arithnetic-created NaNs 
1337 - 03/24/83 ? Fatal error if no stat array 
x 
a0 JIS OU OIC O ISOC SOIC IOI ISS IAT IT TOTTI 
1340 JOIST GOR ITSO OCIS ICI I II SI IIIS IIIT I 
1341 OE2EC 801 NIBHEX 801 
1342 OE2EF 7D7F =SDEV GOSUB STFPRP save PC () in F-RO-0 
1343 get SA address, #VARS 
1344 push stack if NaN and no args 
1345 pop, round, test I; use 1 if no arg 
1346 OE2F3 422 GOC SDEV2 NaN created? 
1347 OE2F6 D6 C=A A 
1348 OE2F8 70F2 GOSUB ZATBLU get T(I,1). Return 0 if I=0. setdec 
1349 : GOC SDEV2 Signaling NaN? 
1350 OE2FC 7612 GOSUB NNGTAB valid sanple? 


1351 k GOC SDEV2 NaN created? 
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1352 O£300 75F2 GOSUB ST&GIN Wi:=T(1,1), get T(0,0)=N 
1353 : GOC SDEV2 Signaling NaN? 
1354 0£304 7402 GOSUB POSTAB insure proper nessage uhen N=0 
1355 * GOC SDEV2 
1356 O£308 7B7E GOSUB subone N-1 
1357 OE30C 7AE1 GOSUB PTRCDV valid sanple/stat oper? N>1? 
1358 Inf /Inf? 
1359 0E310 8E00 GOSUBL =SQRSAV SQR(T(1,1)/(€N-1)) 
00 


1360 0€316 6CBO SDEV2 GOTO CORR3 restore PC 
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1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1384 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 OE31A 
1404 0E31D 
1405 
1406 0E321 
140? 0€323 
1408 0E325 
1409 0E328 
1410 0€32B 
1411 OE32D 
1412 0E3% 
1413 0E333 
1414 
1415 0E337 


811 
7922 


D2 
FS 
Ag 
109 
FS 
R89 
108 
7281 


71F5 
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FOTO RII UR JO JOU OR TO Oe 
FORO UU TOTO TT TIE 


ak 
** Wane:  PREDV) = - Predicted Value Function 

kk 

** Category: FNEXEC 

re 

** Purpose: 

ae Corputes the predicted value for the current regression 
aR and dependent variable value. 

ik 

** Entry: 

ita dependent variable value on top of math stack 

ae dependent, independent variable #’s in stat array’s 
a dope vector 

kk 

KK Exit: 

xx predicted value on top of nath stack 

ik 

** Calls: ADI5S, ARGPRP,GETSDO, GTINSL,RCLW1, RCLW3, 

ks RSTDO, STSCR, np15s,ures12 

sia exits through FNRTN4 

ak 

AP USES circ ce 

** Inclusive: 

zs CPU: A,B,C,0,P,RO-3,SB, XN, sIX(s7),s8-11 

an RAM: scratch math stack, F-RO-O 

xk 

*K Stk lvls: 4 = max(4,1+uRES12) 

1k 

** History: 

oo 

aE Date Progranner Modification 

Ric, somos. peeasasee! wtareieiee es ete eee. 
kk = 06/03/82 Pn Docuriented routine 

KK 12/17/82 " Saved PC in function scratch 

KK 01/31/83 . Handled arithnetic-created NaNs 
KK 03/24/83 ¥ Fatal error if no stat array 

kk 


FOR RIO TOTTI 
FO JOTI RIOR TOOT IK 


=PREDV 


x 


NIBHEX 811 
GOSUB GETSDO save PC (D0) in F-RO-O 
get SA address, VAR, P:=0 
C=0 A 
BSR A 
C=B P 
R1=C Ri:=J=indep var # 
BSR A 
C=B P 
RO=C RO:=I=dep var # 
GOSUB GTINSL get INTCPT, SLOPE, user nodes 
GOC PREDV1 NaN created? 
GOSUB STSCR 
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1416 0£33B 70B5 GOSUB 
141? x COC 
1418 OE33F 7186 GOSUB 
1419 0E343 7C6E GOSUB 
1420 x Coc 
1421 0E347 7636 GOSUB 
1422 OE34B 7E4E COSUB 
1423 


1424 OE34F 6380 PREDV1 GOTO 


ARGPRP 
PREDV1 
RCLW3 
np15s 
PREDV1 
RCLW1 
AD15S 


CORR3 
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pop, prepare x 
signaling NaN? 


SLOPE*x 
Inf*0 NaN? 


INTCPT + SLOPE*x 
(Inf-Inf NaN caught) 
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1425 EJECT 
1426 JOO III III TOTTI III IIT IIT IAS III I III TIT ISOS 
1427 FOO RIOR ITI IIT OTTO IOK 
1428 at 
1429 ** Narie: CORR - Correlation Function 
1430 as 
1431 ** Category:  FNEXEC 
1432 ah 
1433 ' ** Purpose: 
1434 aa Computes the correlation coefficient between the tuo 
1435 i specified variables in the current statistical array. 
1436 
1437 ak Entry: 
1438 ak variables #’s I,J on top of math stack 
1439 aS current statistical array defined 
1440 ae 
1441 ak Exit: 
1442 ak correlation coefficient on top of stack 
1443 aR 
1444 xt Calls: GETSDO, NSN12, POSTAB, RCLW1, RCSCR, RSTDO, 
1445 oe SQRSAV, STSCR, TBLU, VARNB-, ZATBLU, dv15s, 
1446 ah np15s, pop2n+t, unodet, urest2 
1447 nig exits through FNRTN4 
1448 aa 
1449 At Uses....... 
1450 ** Inclusive: 
1451 a CPU: A,B,C,0,P,01,RO-3,SB,XM, sIX(s7),s8-11 
1452 x RAN: scratch math stack, F-RO-0 
1453 xe 
1454 aK Stk lvls: 4 = max(3,2+uRES12) 
1455 ae 
1456 ae 
1457 ** History: 
1458 ak 
1459 - Date Progranner Nodif ication 
1460 RR emer nnn een een eee nn nnn nee ne nnn ere nee ene nen 
1461 kk 06/03/82 PN Docunented routine 
1462 Ke 42/17/82 “ Saved PC in function scratch 
1463 ae 01/11/83 Changed order of tests, added 
1464 a Nost significant NaN test. 
1465 kK 01/12/83 ‘ Pop 1st argument if no valid 
1466 aie current statistical array 
1467 RK 01/17/83 _ Replaced popin+ with pop2n+ 
1468 xk 01/31/83 " Handled arithnetic-created NaNs 
1469 a 03/24/83 u Fatal error if no stat array 
te FRIIS II II IT III TT IIE TTI ITI DI TTI ASIII ITI IIT TIA 
1472 RI III IIIA III IIT ISI TIS IS SSIS IIIT III TEI III IIIS III III SOS III ISI I IN 
1473 0E353 62B5 cnflc2 GOTO cnflct 
1474 0E357 8822 NIBHEX 8822 
1475 0£35B 7BE1 =CORR GOSUB GETSDO save PC (DO) in F-RO-0 
1476 get SA address, #VARS, P:=0 
1477 OE35F 7495 GOSUB pop2nt pop 2 real args (signan test) 
1478 0E363 4FE Goc cnflc2 


1479 0£366 100 RO=A RO: =I 





0 
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1480 0E3639 109 R1=C R1:=J 
1481 OEF36C 7CRE GOSUB unode+ get user nodes, clear $B,xM 
1482 0E370 8E00 GOSUBL =NSN12 find most significant NaN 
00 
1483 0£376 4C5 GOC CORR3 NaN? 
1484 0E379 110 A=RO 
1485 OE€37C 7D0OF GOSUB VARNB- split, round, test I; sethex 
1486 0£380 425 GOc CORR3 NaN? 
1487 0£383 121 AR1EX R1:=I 
1488 0£386 730F GOSUB VARNB- split, round, test J 
1489 OE38A 484 GOC CORR3 NaN? 
1490 OE£38D 100 RO=A RO: =J 
1491 0£390 119 C=R1 
1492 0€393 7A62 GOSUB TBLU get T(I,J), setdec 
1493 coc CORR3 Signaling NaN? 
1494 0E397 7195 GOSUB STSCR W1:=T(1,J) 
1495 0£39B 118 C=RO 
1496 OE39E 7A42 GOSUB ZATBLU get T(J,J). Return 0 if J=0 
1497 GOC CORR} Signaling NaN? 
1498 OE3A2 7661 GOSUB POSTAB valid sanple/stat oper? T(J,J)>0? 
1499 GOC CORR3 NaN created? 
1500 O€3A6 7285 GOSUB STSCR W1:=1(J,J), W2=T(I,J) 
1501 OE3AR 119 C=R1 
1502 OE3AD 7B32 GOSUB ZATBLU get T(I,I). Return 0 if I=0 
1803 COC CORR3 signaling NaN? 
1504 0E€3B1 7751 GOSUB POSTAB valid sarple/stat oper? T(I,1I)>0? 
1505 GOC CORR3 NaN created? 
1506 OEF3B5 7B95 GOSUB RCSCR W1=T(I,J) 
1507 OE3B9 76FD GOSUB rpt5s (Inf*0 not possible) 
1508 OE3BD 8E00 GOSUBL =SQRSAV den=SQR(T(I,1)*1(J,3))0 
00 
1509 OE3C3 7AB5 GOSUB = RCLW1 
1510 O£3C7 95D 7BHO UN clear SB if T(1I,J)=0 
1511 OE3CAR 50 GOYES CORR2 
1512 OE3CC 822 SB=0 
1513 OE3CF 7F21 CORR2 GOSUB dvi5s CORR=T(1,J)/den 
1514 Inf/Inf? (0/0,DVZ not possible) 
1515 0€3D3 8E0O CORR3 GOSUBL =RSTDO restore PC (D0) 
ow 
1516 O£3D9 77ED outres GOSUB urest2 
1517 OE3DD 8000 GOLONG =FNRTN4 
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1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
152? 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1580 
1551 
1552 
1553 
1554 
1555 
1556 
155? 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
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J 
KEK IR IRR IRI IIR I RIO III III I TIT TAI IIIT TIS III RTI TERI TIOK 
FOI JRO JOO TI TIT TI TIT TIT TTT TTT IITA 


ak 
ax 
xk 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
aK 
aK 
aK 
aK 
xx 
ax 
ax 
xk 
ak 
ak 
ak 
aK 
kk 
ak 
ak 
ak 
ak 
ak 
aK 
xk 
ak 
xk 
ax 
ak 
x 
ak 
ak 
ak 
ak 
xk 
kk 
aK 
ak 
ak 
xk 
ak 
xk 


Narie: LR 


Category: 


Purpose: 


- Sinple linear regression 


STEXEC 


Stores the dependent and independent variable nurbers 
in the current statistical array’s dope vector. If a 
variable nane list 1s included, the intercept and 
slope of the regression are stored in the specified 
variables, respectively. 


Entry: 


dependent, independent variable nunbers parsed 


Exit: 


dope vector nib 10 -- dependent variable nunber 


dope vector nib 


9 -- independent variable nunber 


slope and intercept in optional variable(s) 
Fatal error if bad var # or no valid stat array 


Calls: 


ADRS5O, B=STAN, DEST, DISTOR, DI=AVE, GETSA, 
GTINSL, POPMTH, RCLW2, SVTRC, TEXPEX, VARNBR, 
ave=d1,expexc, unode+,ures12 

exits through nxtstn 


Exclusive of EXPEXC,STORE: 
CPU: A,B,C,D,P,D0,01,RO-3,SB,XN, sIX(s7),s8-11 
math scratch stack 
S-RO-0,1,2,3 (DEST) 
S-R1-0,1,2,3 (DEST) 


RAN: 


Stk lvls: 


History: 


06/02/82 
08/27/82 
11/22/82 
11/30/82 
12/16/82 
01/31/83 
03/24/83 
05/10/83 


ATHSTK, AVMENE 

nax(5, 1+EXPEXC) 

Progranner Modification 
Pn Docunented routine 


Always conputes paraneters 

Created GTINSL routine 

Fatal error for invalid var # 

Rllowed trace 

Handled arithnetic-created NaNs 

Fatal error if no stat array 

Stacked INTCPT,SLOPE on math 
stack for variable STORE 


SORORITIES TIT I IRIE IK 
FORO TOO TOTO TO IR TTT 
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1573 O£3E3 6C35 

1574 OEF3E? 7900 

1575 OE3EB 10A 

1576 OE3EE 6860 

1577 OE3F2 0000 
0 

1578 OE3F?7 0000 
0 


1579 OE3FC 713E 
1580 O£400 136 
1581 O£403 06 
1582 OF405 7841 
1583 O€409 7C7E 
1584 OE€40D 45D 
1585 OF410 101 
1586 O£413 17F 
1587 OF416 7F6E 
1588 OE41A 48C 
1589 OF41D 100 
1590 OF420 7DA1 
1591 OF424 8E0O 
00 
1592 O£F42—A 163 
1593 OEF42D 118 
1594 O£430 Fe 
1595 O€432 DA 
1596 OF434 119 
1597 O£437 ABA 
1598 OF43A 148 
1599 O€43D 7870 
1600 O€441 45A 
1601 0€444 7C7D 
1602 
1603 06448 
1604 OE44C 
1605 OF44F 
1606 O£453 
1607 
1608 OF45? 108 
1603 OE45R 07 
1610 OE45C 136 
1611 OF45F 110 
1612 OF462 1517 
1613 O&466 112 
1614 O£469 1CF 
1615 OE46C 1517 
1616 
1617 
1618 
1619 
1620 
1621 
1622 O£470 8E00 
00 


7000 
10R 

7B65 
7060 


o 


1623 


LRIVAE GOTG IVAERR fatal error: invalid argurent 
LRSKIP GOSUB uresi2 set IVL flag, consult IVL trap 
R2=C put created NaN into R2,R0 and 
GOTO ~=—LR1 continue 
REL(S) =LRDC 
REL(5) =LRP 
=LR GOSUB TEXPEX build expression stack, point D1 
CDOEX save PC 
RSTK=C 
GOSUB GETSA get SA address, #VARS, test length 
GOSUB VARNBR pop, round, test J; sethex 
GOC LRIVAE invalid argument error? 
R1=A Ri:=J=indep var # in hex 
D1i=D1+ 16 
GOSUB VARNBR pop, round, test I; sethex 
GOC LRIVAE invalid argument error? 
RO=A RO:=I=dep var # in hex 
GOSUB B=STAN read current stat array nare 
GOSUBL =RDRS5O get dope vector address 
DO=D0+ 4 point to dep,indep var #’s 
C=RO 
CSL A 
A=C A update dep var # 
C=R1 
A=C P update indep var # 
DATO=A B 
GOSUB GTINSL get INTCPT, SLOPE 
COC LRSKIP NaN created? 
GOSUB uresi2 fatal error halts here!! 
(D1 points to top of nath stack) 
GOSUB unode+ reread user nodes, etc 
R2=C R2=INTCPT,W2=SLOPE 
GOSUB RCLH2 
GOSUB  uresi2 fatal error halts here!! 
(D1 points to top of math stack) 
LR1 RO=C RO=SLOPE ,R2=INTCPT 
C=RSTK restore PC 
CDOEX 
A=RO push SLOPE onto math stack 
DAT1=A W 
A=Re push INTCPT onto nath stack 
DI=D1- 16 
DATI=A W 


JO IIIS IO ITI TIS ISG ICO IAT 
* Here: D1 --> INTCPT (16 nibs) x 
& SLOPE (16 nibs) k 


: FORSTK --> x 
* 


JUICE III SIT ITI TIT TIE I IT AH 
LRVRLP GOSUBL =ave=di 


FRR ROO TTT TOT TTR TTT TTT 


ed 
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1624 

1625 

1626 

1627 

1628 O£476 14A 

1629 0£479 20 

1630 OF47B 311F 

1631 O£47F 966 

1632 OF482 33 

1633 

1634 

1635 

1636 OF484 161 

1637 0E487 8£00 
00 

1638 O£48D 76BD 

1639 0£491 8E00 


00 

1640 

1641 

1642 

1643 

1644 0E497 20 

1648 0£499 8FOO 
000 

1646 OE4AO 8F0O 
000 

1647 

1648 

1649 

1650 

1651 OE4A7 8F0O 
000 

1652 

1653 

1654 

1655 


1656 OE4RE 17F 
1657 OE4B1 6EBF 
1658 OE4B5 6198 
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* Here: AVMENE,D1 --> value to be stored on top of stack x 
t * 
* Nou test for presence of destination variable nane: : 
SII ITT TTI TIT I IIT III III III IID IIIT IIIS IIIIIS IIS IIIT A 
A=DATO B 
P= 0 
LCHEX F4 load conna token 
7ARC OB 
GOYES LREND 
JI TTI ITT IAI I IIIA S III IIIT III IIIS IIIT TI OAS IIIS SSSI IIIS 
* Nane present: find address, etc. x 


FOI ITO ITO OTT TO ORK 


DO=D0+ 2 skip over conria token 
GOSUBL =SVTRC save PC for TRACE 


GOSUB expexc 
GOSUBL =DEST 


JOIST ISOS ITO SOS TC II III IIR 
* Repoint AVMENE,D1 to value to be stored into destination x 


get variable nane 
save destination variable nane 


* by finding and popping top entry off the math stack. a 
FORO JOJO I IO 
P= 0 
GOSBVL =D1=AVE point D1 to top stack entry 


GOSBYL =POPNTH 


SOOO UOT IT TI TT IT TIT TTI K 


* Put new D1 into AVMEME. Then store the value into the x 
* destination variable. Handle TRACE VARS if it is in effect * 
JK UI OU UO I TIO DI DE TOT TIT ITI ISI IIIT I IORI IAIN 


GOSBVL =D1STOR Di is preserved (SB&I0) 


FORO ITO TTT TTT TTI TT TT II 


® Increnent D1 to point at next value to be stored and loop * 
x 


® back to check for another desination variable. 
JOGO OT IO I OTTO I TTI 


pop top entry off stack (AB&UTL) 


D1=Di+ 16 
GOTO  LRVRLP 
LREND GOTO  nxtstn 
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1659 
1660 JI IOI IIIT GC CCC IIIS IO I III 
1661 JO I III IO TOSS O SS IO SIS SIO OS IIIS SSIS OI II 
1662 ae 
1663 ** Nane: GTINSL - Conpute slope and intercept for LR 
1664 AX 
1665 ** Category: LOCAL 
1666 x 
1667 ** Purpose: 
1668 ax Computes the slope and intercept for the current sinple 
1669 regression. 
1670 xk 
1671 ** Entry: 
1672 RX RO(A) --- dependent variable number (hex) 
1673 kx R1(A) --- independent variable nunber (hex) 
1674 ae SB, XM --- no meaning 
1675 ae 
1676 ak Exit: 
1677 kx A/B --- Intercept (INTCPT) in 15-digit forn 
1678 ax W2 ---- Slope in 15-digit forn 
1679 ae SB ---- set/clear as appropriate 
1680 ak Carry set iff XM set 
1681 aK 
1682 ** Calls: DV15S, POSTAB, PTRCDV, RCLW1, RCSCR, SB15S, STSCR, 
1683 xm ST&GIN, TBLTOT, ZATBLU, ZTBLU+, rip15s, unode+ 
1684 EA 
1685 RR USES iC oeles 
1686 xx Inclusive: A,B,C,D,P,D0,SB,xXN,sIX(s7),s8-11 
1687 ak scratch math stack 
1688 a 
1689 *k Stk lvls: 3 
1690 xe 
1691 ** History: 
1692 a 
16393 a Date Progranner Modification 
1694 OM: wcigtecses . Geese. whee eS ee oe elt 
1695 R& 41/22/82 PM Constructed from LR routine code 
1696 kX 01/31/82 a Carry set iff XM=1 on exit 
1697 k 01/31/83 ‘ Handled arithnetic-created NaNs 
a 
eee JU] IOI ICICI IOS TOS IIS TOSCO TIC O TOI 
1700 JU] OCC IIIT TOI OIG COA ICCA II K 
1201 O€4B9 7F5D) GTINSL GOSUB unodet get user nodes, set SB,xXM=0 
1702 OF4BD 7021 GOSUB ZTBLU+ get T(J,I). If I=0 then SLOPE=0 
1703 : RTNC Signaling NaN? 
1704 OE4C1 7764 GOSUB STSCR W1:=T(J,1),RO=I,R1=J 
1705 O€4C5 119 C=R1 
1706 OF4C8 7021 GOSUB = ZATBLU get T(J,J). Returns 0 if J=0. 
170? ; RTNC Signaling NaN? 
1708 OE4CC 7A20 GOSUB PTRCDV valid sanple/stat oper? Inf/Inf? 
1709 : RTNC NaN created? 
1710 OF4D0 7854 GOSUB STSCR W1:=SLOPE=T(J,1)/1(J,J),RO=1,R1=J 
1711 OE4D4 111 R=R1 
1712 OF4D7 7421 GOSUB TBLTOT get 1(0,J), sets hex 


1713 . RTNC Signaling NaN? 
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1714 OE40B 72A4 
1715 OESDF ?0DC 
1716 

1717 OE4E3 7544 
1718 OE4E7 110 

1719 OE4ER 7111 
1720 

1721 OE4EE 7264 
1722 OE4F2 74AC 
1723 

1724 

1725 

1726 

1727 

1728 

1729 

17% 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1245 

1746 

174? 

1748 

1749 

1750 

1751 

1782 

1763 

1754 

1755 

1756 

1787 

1768 

1759 

1760 

1761 

1762 

1763 OE4F6 ?7FFO 
1764 

1765 

1766 

176? 

1768 


x 
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GOSUB 
COSUB 
RTNC 
GOSUB 
A=RO 
GOSUB 
RTNC 
GOSUB 
GOSUB 
RTNC 


RCLWI1 
np15s 


STSCR 
TBLTOT 


RCSCR 
SB15S 
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SLOPE*T(0,J) 
Inf*O NaN created? 
Wi=SLOPE*T(0,3),W2=SLOPE, RO=1,R1=J 


get 1(0,1) 
Signaling NaN? 


Inf-Inf NaN created? 


FORO ROI TTI 
FOI IIIT TTT OTTO ITT TTI II 


xk 
xx 
xk 
xx 
xk 
kx 
ax 
we 
xk 
xx 
xk 
xk 
ak 
wk 
xx 
ak 
xx 
xk 
xk 
ak 
ak 
xx 
ax 
xx 
xx 
x 
a 
xx 
zx 
ax 
xk 
ax 
ak 
xk 
kk 


Nane: SGNHPRD - Chain calculation utility 


Category: 


Purpose: 


LOCAL 


Pushes 15-digit numerator on top of math stack, gets 
SA(O) (denoninator) and tests that is not <=0, recalls 
nunerator and computes quotient. If SA(O) is a 
signaling NaN or is <=0, a NaN is created. 


Entry: 


A/B --- 15-digit nunerator 


Exit: 


A/B -- quotient 
SB --- set/clear as appropriate 
W1 --- numerator 


Carry=Set iff XM set 


Calls: 


DV15S, POSTAB,RCLW1, ST&GIN 


Inclusive: A,B,C,0,P,SB, XM, DO 
scratch math stack 


Stk lvls: 
History: 


12/21/82 
01/31/83 


3 


Pr 


“ 


Modification 
Docunented routine 
Carry set iff XM=1 on exit 


FOO JOO IORI TTI TOI Ok 
FOI OI IIIT TOO TO OO TO ITO ITT IK 


SGNPRD COSUB ST&CTN 


x 


FOI IO II Ik 


RTNC 


W1=T(0,1)-W1,W2=SLOPE, RO=I,R1=J, 
get T(0,O)=N 
Signaling NaN? 
FO II TI IIT TO OTK 


FOO OI I ITT TTR TOK 


kk 
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1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
178? 
1788 
1789 
179 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 OE4FA 7E00 
1804 
1805 OE4FE 7F74 
1806 0E502 8£00 


00 
1807 OF508 62BC 
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** Nane: = PTIRCDV - Test denoninator, recall, divide 
aA 
** Category: LOCAL 
ke 
*k Purpose: 
ae Tests that 15-digit denoninator is not <=0. If not, 
eK recalls nunerator and computes quotient. Otherwise, 
ots creates a NaN. 
tok 
** Entry: 
aK A/B -~- 15-digit denoriinator 
x 
RX Exit: 
ah A/B --- quotient 
RX SB ---- set/clear as appropriate 
ae Carry=Set iff XM set 
wk 
kX Calls: DV15S, POSTAB, RCLW1 
a exits through XMTEST 
tek 
B® USES ex esses 
x* Inclusive: A,B,C,0,P,SB, XM, DO 
kk 
RX Stk lvls: 2 
tok 
k* History: 
tk 
xk “Date Progranner Modification 
PES lets \iikece te. Ses oMsewteanwcene- fuses ioueesees 
** 12/21/82 PM Docunented routine 
kK 01/31/83 e Set carry iff XM=1 on exit 
tk 


SOO OOO ITO TOI TTT TT OT TOK 
FOO JO III OOOO TO TTT K 


PTRCDV GOSUB POSTRB valid sanple/stat oper? 
x RTNC NaN created? 
GOSUB RCLWI 
dvi5s GOSUBL =DV15S INTCPT:=W1/N (needs dec node) 


COTO 8 =XNTEST Set carry iff XM is set 
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1808 
1809 JEU IOI GOS OIC OOO IOI OTT II TOE 
1810 JOIST OIG IOC OI SIT TID I OTS IITA III IAI 
1814 ah 
1812 xt Narie: POSTAB - Tests against <= 0 
1813 ak 
1814 Ak Category:  MTHUTL 
1815 aK 
1816 ** Purpose: 
1817 xx Tests that the 15-digit value in registers A/B is not 
1818 xx <=0,. If it is <=0, a NaN 1s generated and carry is set. 
1819 ak 
1820 xk Entry: 
1821 aa A/B -- 15-digit forn 
1822 aR 
1823 aK Exit: 
1824 ah NaN: Carry=Clear 
1825 x >0: Carry=Clear 
1826 ah DECMODE 
1827 aR =O: eIVSOP NaN created 
1828 xk Carry=Set, xXM=1 
1829 aK <O: eIVSTA NaN created 
1830 ax Carry=Set, XM=1 
1831 aR 
1832 xk Calls: INVNaN(if NaN created), finita 
1833 = 
1834 *F USCS. ik oc 
1835 xk Inclusive: if NaN created: A,B,C(A),P, XM 
1836 x otherwise: nothing 
1837 a 
1838 x* Stk lvls: 1 
1839 ax 
1840 ** History: 
1841 aE 
1842 A Date Progranner Modification 
1843 RR. Soebemed “SSseiewees! -2chsccceesoleece cee ce cese ee oes les 
1844 xk 06/10/82 PM Docunented routine 
1845 *& 01/06/83 ‘ Reviewed docunentation 
ke 
ie KIS III IASI ISI IIT I III SIT IID II SII II IIIS IIS III I III III SIS IOS SII IIA 
1848 JI II TI TIT TITS TDA IIIT RIT IIIT TI II II IIIA SSI SOS IST IAA 
1849 OE50C 95D POSTAB 7BHO test for =0 
1850 OE50F 70 GOYES NNGTAB 
1851 O€511 8A8 *A=0 OA 
1852 0E514 12 GOYES IVSOPR 
1853 JIE OCIS I COI II OTT IIIS SIT IAT ASS 
1854 JOIST ICI III OTIS II SII IIIT IIIS ISIS IIIT IAN. 
1855 as 
1856 ** Nane: NNGTAB - Tests against < 0 
1857 RK 
1858 ** Category:  MTHUTL 
1859 ae 
1860 xk Purpose: 
1861 ae Tests that the 15-digit value in registers A/B is not 


1862 = <0. If it is <O, a NaN 1s created and carry set. 
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1863 

1864 

1865 

1866 

1867 OE516 7004 

1868 OE51A 532 

1869 OE51D 96C 

1870 O€520 82 

1871 OE€522 948 

1872 O£525 32 

1873 O€527 20 

1874 0F523 3100 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

190 

1901 

192 

193 

1904 

1905 

196 

1907 

1908 

19039 OE52D 8E00 
00 

1910 0€533 02 

1941 

1912 0€535 20 

1913 0€537 3100 

1914 O€53B 41F 

1915 O€53E 959 

1916 O€541 70 
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wR See POSTAB docunentation for nore inforriation. 
aK 


FOI OO IIIT TTT 
FOI IO OTST TT TT TTI ITI TTI TTI IK 


NNGTAB GOSUB finita sets dec rode 
GONC NNGFIN 
7AHO OB NaN? 
GOYES PRINCC 
7A=0 OS +inf? 
GOYES PRINCC 
IVSTAT P= 0 invalid statistic: 


C(2) =elIVSTA 
JIT OO TOI I I OT TTI III TAK 


FORO TOIT TTI ITI IK 


at 
**% Nane: invnan - Create a NaN With Encoded Error Msg 
xk 

** Category:  MTHUTL 

kk 

** Purpose: 

ak Create a NaN, set XN, set Carry 

wk 

** Entry: 

ak C(B) -- mainframe error message code 

xk 

AX EMITS 

ak A/B --- split NaN 

aK C(A) -- 5 nib nessage 

at P ----- IVP 

ok 

** Calls: INVNaN 

xk 

*k Uses....... 

** Inclusive: A,B,C(A),P,xM 

a 

*® Stk lvls: 1 

aK 

** History: 

xe 

ae Date Progranner Modification 

BR Gucconie- . Giscesetint *CecectIaceteeua ete ote eee 
aK 42/21/82 PN Docunented routine 

K 01/06/83 % Reviewed docunentation 

xk 


SIO OIRO ICT OOOO TOK 
SOIC UII ITO TOTO OTTO TOTTI 


invnan GOSUBL =INVNaN create a NaN, set xf 
RTNSC set carr 
SOI OI IOI OIE OI GIEIG IS ICIS I II 
IVSOPR P= 0 +-O: invalid statistical operation 
LC(2) =elIVSOP 
GOC inynan B.E.T. 
NNGFIN ?7B=0 8 ffl finite: treat -0 as 0 


GOYES PRINCC 
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1917 OEF543 94C PAHO OS <Q? 
1918 OF846 1E£ GOYES IVSTAT 


1919 O£€548 03 PRINCC RTNCC 
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1920 
1921 JI I OITA T III III III IIS ITI III IIIS I ISIS III IIIA 
1922 JI IO IOI TOSS ISIS SII IIS I IOI SI SI TI IOI II IIIA 
1923 aise 
1924 ** Ware: (S) GETSA - Tests current statistical array 
1925 o Narie: GETSDO - Tests current statistical array 
1926 
192? kk Category:  MTHUTL 
1928 aK 
1929 ** Purpose: 
1930 ak Gets the starting address of the current statistical 
1931 ak array, to record and test the number of variables, and 
1932 ak to test the length of this array. GETSDO does the 
1933 se sane after saving DO in function scratch. 
1934 aK 
1935 kk Entry: 
1936 pe Current statistical array nane stored at =STATAR 
1937 
1938 aK Exit: 
1939 aS Carry=Clear: 
1940 ak A(S) --- # variables <=F 
1941 ax A(R) ~-- address of first element of current stat array 
1942 ax B(X) --- depend var#, independ var#, #variables 
1943 aa C(A) --- nurber of elernents in current stat array 
1944 aK R2(S) -- sane as A(S) 
1945 aK R2(A) -- sane as A(R) 
1946 AK DO. aaae= sane as A(A) 
1947 ax P=0 
1948 ee HEXMODE 
1949 x F-RO-O0 - original DO if GETSDO 
1950 ae otherwise: Fatal error 
1951 ak 
1952 ** Calls: ADRSSO, B=DTOR, B=STAN 
1953 x GETSDO: also SAVDO 
1954 aK 
1955 AR USES cise eds 
1956 ** Inclusive: A,B,C(6-0),D(A),P,SB,R2,D0 
1957 a GETSDO: also F-RO-0 
1958 xt 
1959 tk Stk lvls: 2 
1960 ak 
1961 ** NOTE: 
1962 = Fatal error if there 1s no current statistical array, 
1963 ae or if the current statistical array is invalid. 
1964 es 
1965 ** History: 
1966 ae 
1967 a Date Programmer Modification 
1968 RX eet tiwes  Seeteectean Ghose seocesce leet Soca tee ec 
1969 aK 06/01/82 PM Docurented routine 
1970 RR 06/25/82 = Replaced fatal errors with NaN’s 
1971 aK 03/24/83 - Replaced NaN’s with fatal errors 
at 
i PEI KR RRR I IIIT DEI II IT ISI IT III III LISI IIS IIS AIS ISIS: 


1974 FOR RRO OO TOTO 
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1975 OE54R 8FOO GETSDO GOSBYL =SAVDO 
000 


1976 0£551 04 


1977 0€553 
1978 0€557 
1979 OESSR 
1980 OE€55C 
1981 OES5E 
1982 O€562 
1983 O€566 


7A70 
93€ 
CO 
20 
3100 
65CB 


8E00 
00 


1984 OE56C 4FE 


1985 OES6F 
1986 0£572 
1987 O€575 
1988 

1989 0€578 
1990 OE57C 
1991 OE57F 
1992 O£582 
1993 

1994 

1995 O€584 
1996 OE586 
1997 0€589 
1998 O€588 
1999 OES8F 


146 
R26 
56E 
x 

80D3 
165 
146 
F6 


E6 
AFR 
D2 
80CF 
809 


2000 OF592 OD 


2001 06594 
2002 06597 
2003 OE59A 
2004 0£590 
2005 OES9F 
2006 OE5A2 
2007 OE5SAS 
2008 OE5AI 
2009 OESAB 
2010 OESAD 
2011 OESBO 
2012 OFSB2 
2013 OF5B4 
2014 OE5B7 
2015 OE5B9 
2016 OE5BC 
2017 OESBF 
2018 O€5C2 
2019 OF5C4 
2020 OE5C7 
2021 OESCA 
2022 OESCC 


SAF 
ACE 
8B2 
FB 
102 
182 
7130 
F6 
20 
985 
CA 
F6 
985 
5A 
167 
146 
132 
EE 
134 
112 
DE 
102 


2023 OESCF 03 


TVSTAR 


GETSA1 


GETSA3 


GETSA4 


=GETSA SETHEX 


GOSUB 
?CHO 
GOYES 
p= 

LC (2) 
GOTO 
GOSUBL 


GOC 
C=DRTO 
C=C+C 
GONC 
B=C 
P=C 
DO=D0+ 
C=DATO 
CSR 
7BHO 
GOYES 
C=C+1 
R=C 
C=0 
C=P 
C+P+1 
P=P-1 
GONC 
ACEX 
70>AR 
GOYES 
R2=A 
DO=D0- 
GOSUB 
CSR 

p= 
2C>B 
GOYES 
CSR 
2C>B 
GOYES 
DO=D0+ 
C=BATO 
ADOEX 
C=A-C 
DO=C 
A=R2 
ACEX 
R2=R 
RTNCC 


B=STAN 
x 
GETSA1 


6 
=eIVSAR 
nferr 
=RDRSSO 


IVSTAR 


KS 
GETSA3 
A 

W 

A 

15 


GETSA4 
S 
A 
IVSTAR 


3 
B=DTOA 
A 
0 
Pp 
IVSTAR 
A 
p 
IVSTAR 
8 
A 


A 
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save PC in F-RO-0 
read the current stat array nane 
any array selected? 


error: no valid statistical array 
defined 


get dope vector address 


shift stat array bit out 

not a statistical array? 
(stat arrays have base=0 non) 
P:=#VAR 

get dinension bound 


A(R)=length, A(S):=C(S) 
get nin length 
C(S): =#VAR 


C(A)=nin length 

C(S) restored, A(S)=HVARS 
nin length>length? 
R2(S):=#vars, R2(A):=length 


B(X): =dep#, indep# ,#vars 


indep# >#vars? 


dep# >#vars? 
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2024 
2025 JI II OOO III IIIT OCS C IOI IO TIT I 
2026 III DI I III III III IOS II III OTST IOS ITI III IO III TI SI III IASI SS 
2027 aX 
2028 ** Nane: B=STAN - Reads current statistical array nane 
2029 aR 
2080 ** Category: LOCAL 
2031 ax 
2032 ** Purpose: 
2033 ae Reads current statistical array nane. 
2034 ax 
2035 ** Entry: 
2036 aA 
2037 SEEN Lt: 
2038 a B(X) -- Current statistical array nane 
2039 Rx C(X) -- sane 
2040 Rx P = 0 
2041 ae 
2042 ** Calls: nothing 
2043 ax 
2044 ** Uses....... 
2045 kk Inclusive: B(A),C(A),P, D0 
2046 x 
2047 ** Stk lvls: 0 
2048 = 
2049 kk History: 
2050 ax 
2051 ae Date Prograniner Modification 
2052 RK macnn ee ween ence ere r enn nero nn ne nen renee ener ee 
2053 ** 01/06/83 PM Revised docunentation 
2054 RS 
2055 $I ISI TAT SI III III IT IIIT ISI II IO II III TIS III IIIT IS IIIS IIIS IA. 
2056 JIS III OO III IOI II II OI IO III IO IIIA II AIST S SN 
2057 OE5D1 20 B=STAN P= 0 
2058 OESD3 1B00 DO=(5) =STATAR 
00 
2059 OESDA 146 B=DTOR C=DATO A 
2060 OFSDD DS B=C A 


2061 OESDF 01 RIN 
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2062 
2063 JOO IO OO TG TOOT TR 
2064 JOGO CUI OTTO TTI IDI ITI IIIA TAI ST 
2065 aa 
2066 kk Nane: TBLU - Returns STAT elenent (L,K) 
2067 xk Nane: ZTIBLU) s---—s Returns STAT elerient (L,K) if K#O 
2068 xk Nane: ZATBLU - Returns STAT elenent (K,K) if K#O 
2069 &* Nane: TBLTOT - Returns STAT elenent (L,0) 
2070 k* Nane: ST&GIN - Stacks A/B, Returns STAT elenent 1(0,0) 
2071 *k Nane: TBLU, ZTBLU, ZATBLU, TBLTOT, ST&GTN 
2072 a 
2073 ** Category:  MTHUTL 
2074 Kx 
2075 ** Purpose: 
2076 aa The lower triangular part of the current statistical 
2077 ak tableau is stored in the current statistical array by 
2078 ai rous, with 16 nibs per statistical array elenent. 
2079 xx 
2080 ax TBLU: Returns elenent (L,K). 
2081 aR ZTBLU: If K#O, returns elenent (L,K). 
2082 wk Otherwise, returns 0. 
2083 a ZATBLU: If K#O, returns element (K,K). 
2084 aR Otherwise, returns 0. 
2085 KK TBLTOT: Returns elenent (1,0). 
2086 ak ST&GTN: Pushes A/B onto top of math stack 
2087 ax Returns elenent 1(0,0)=N 
2088 ae 
2089 xR In each case, a test for signaling NaN is nade. 
2090 a 
2091 ** Entry: 
2092 KX ACA) -- L (a valid hex variable nunber) 
2093 xx (not used by ZATBLU) 
2094 kk C(R) -- K (a valid hex variable nunber) 
2095 ae R2(A) - points to first entry of the current statistical 
2096 &* array 
2097 KK 
2098 KK Exit: 
2099 ak A/B --- T(L,K) split and normalized 
210 ae Carry=Set if signaling NaN 
2101 aK =Clear otherwise 
2102 a DECMODE 
2103 aK DO ---- points to elenent 
2104 ax 
2105 kk Calls: INVNaN, SPLITA 
2106 KK ST&GTIN also calls STSCR 
2107 ke falls into SPLTAX 
2108 Kx 
2109 Kk Uses....... 
2110 kk Inclusive: A,B,C,P, D0, XM 
2111 ak 
2112 kk Stk lvls: 2 for ST&GTN 
2113 aK 1 otherwise 
2114 xk 
2115 **k History: 


2116 ae 
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2117 a Date Prograrimer Modification 
2118 ee 
2119 kk 06/01/82 PN Docunented routine 
2120 kK 12/16/82 : Added signaling NaN test 
2121 *k 01/06/83 7 Reviewed docunentation 
xx 
as FORO I I TOTO TOT TOTO 
424 JOSIE IO ISU IIDC ITO OCCT DEIR 
2125 OESE1 111 ZIBLU+ A=R1 
2126 OE5E4 118 C=RO 
2127 OESE? 8AE ZTBLU *C#O A 
2128 OESEA 71 GOYES TBLU 
2129 OESEC DA ZATBLU A=C A 
2130 OESEE 8AE CHO OAR if reg C has zero, return sane 
2131 OESF1 01 GOYES TBLU 
2132 OESF3 AFO A=0 W return zero in A/B 
2133 OESF6 543 GONC SPLTAX Bi Est. 
2134 OESF9 7F23 ST&GTIN GOSUB STSCR push A/B onto top of math scratch 
2135 OESFD DO A=0 A 


2136 OESFF D2 TBLTOT C=0 A 
2137 OF601 04 =TBLU SETHEX 


2138 O£603 8BA 7A<=C A 

2139 OF606 40 GOYES TBLU3 

2140 OE608 DE ACEX A 

2141 OE60A 8000 TBLU3 P=C 0 here "L"=A(A)<=C(A)="k" 

2142 OEBOE D2 C=0 A 

2143 O€610 OD TBLU4 =P=P-1 

2144 0E612 480 GOc TBLUS 

2145 OE615 809 C+P+1 

2146 OE618 57F GONC TBLU4 B.E.T. 

214? 0€61B CA TBLUS A=AHC A ACA) has I=L+K(K+1)/2 in hex 
2148 OE61D 11f C=R2 

2149 OF620 FO ASL A 16 nibs per statistics elenent 
2150 OF622 C2 C=A+C A 

2151 0£624 134 DO=C 


2152 O62? 1527 A=DATO W 
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2153 EJECT 
2154 JI TOSI TI II IOS II TIT TIS II SII I TIS I OT ITS STII I ATI IK 
2155 FRI III IAI IIS I III III IIIS I IIIT ISIS IOS IIIS IIIS II III IT II IOI STI III I A 
2156 aR 
2157 ** Narie:(S) SPLTAX - Split, normalize A; handle signal NaN 
2158 ** Nane:(S) SIGTST - Handle signal NaN 
2159 A 
2160 **& Category:  MTHUTL 
2161 xk 
2162 ** Purpose: 
2163 aK SPLTAX: Splits and nornalizes contents of 
2164 xR register A, then... 
2165 a SIGIST: Test for a signalling Nan and replace such a 
2166 xk NaN by a quiet NaN. 
2167 aR 
2168 ak Entry: 
2169 Rt SPLTAX: 
2170 aK A --- argument in 12 digit forn 
2171 ae SIGTST: 
2172 xR A/B = 15 digit forn to be tested 
2173 xs 
2174 aX Exit: 
2175 aR A/B -- split and normalized argurent 
2176 7 Carry=Set: 
2177 x Signaling NaN replaced by a quiet NaN 
2178 ax XM=1 
2179 = Carry=Clear, XM preserved, otherwise 
2180 ak 
2181 ** Calls: INVNaN, SPLITA 
2182 aR May exit through invnan 
2183 aR 
2184 xe Uses....... 
2185 *k Inclusive: A,B,C(A),P,xM 
2186 a 
2187 ** Stk lvls: 1 
2188 xx 
2189 ** Note: Foreign NaNs are treated as signaling NaNs. 
2190 = 
2191 ** History: 
2192 ss 
2193 ae Date Progranner Nodification 
2194 a aaa talent tetacciatateciaeteetatenatatatatanetalatenetaates 
2195 Kk 42/21/82 PN Docunented routine 
2196 aK 01/14/83 : Revised docurientation 

xk 
as JIS III III I TIS I SII IIIS III TIS II III ISI IIIT ISI III II ATI IIT III II OT I IK 
2199 SII OO II III ETI TIO III IIA I III I SIS ITI ITI IIIA III IIS SSIS SI ASS 
2200 OE62B 05 =SPLTAX SETDEC 
2201 OE62D 8E00 GOSUBL =SPLITA split and nornalize into A/B 

00 
2202 0£633 500 RTNNC return if finite (speed) 
2203 0E636 20 4 =SIGIST P= 0 
2204 0£638 3220 LCHEX FO2 
F 


2205 OE63D 9BE 7A>=C—X Signaling NaN? (works in decnode) 
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2206 0F640 40 GOYES SIGNAN 
2207 OE642 03 RTNCC 

2208 0F644 3100 SIGNAN LC(2) =eSIGOP 
2209 OF648 64EE GOTO invnan 
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no: return with carry clear 
yes: create SIGOP NaN, set XN 
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2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
22 34 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 OE64C 0000 
0 


2254 OF651 0000 
0 


2255 OF656 770B 
2256 OEF65A 551 
2257 OF65D 1F OO 
000 
2258 OF664 143 
2259 OF667 8E00 
00 
2260 OF66D 431 


ax 
ak 
ar 


ak 
ak 
xx 
ak 
ak 
ak 
ak 


=R 
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FOR TOO IO IO RI III ITT IARI RIT ST TIT ITT TEI TAIT 
FOI TIO RO TTT TTT TIE IIIT ITT RI IIIT IDI TTI ISTE IN. 


Narie: RANDGH - Randonize statenent 
Category:  STEXEC 


Purpose: 
To construct a randon nunber generator seed. 


Entry: 
Optionally, a parsed seed nuneric expression 


Exit: 
15-digit seed at =RNSEED 


Calls: TEXPEX, POPIN+, hdf lt 
exits through nxtstn 


Exclusive of EXPEX-: CPU: A,B,C,D,P,R3,01,SB,xM,sIX(s7), 
s8-11 
RAN: RNSEED 


Stk lvls:  max(4,14EXPEXC) = max(2+uRES12, 1+EXPEXC) 


NOTE: 
The optional seed argurent nay be any real nureric 


expression. fA zero produces a "randon" nunber 
sequence of zeroes. 
History: 

Date Progranner Modification 
06/01/82 PY Docunented routine 
08/12/82 : Renoved corplex type seed 
12/14/82 ” Added signaling NaN test 
01/26/83 . Revised docunentation 


KIKI KIKI KI KIT KIRK KI KARI KI KIKI KI III IIS SII IIIT DTI IIE 
FORO TI TOT TTT TTR 


REL(S) =RDIZDC 
REL(S) =RANDP 


ANDOM GOSUB TEXPEX get argunent, if any 
GONC RNDNZD 
D1=(5) =TINER3 no arg: get clock tine 
A=DAT1 A read least significant 5 nibs 
GOSUBL =hdflt convert to decinal float-pt 
GOC RNOMF B.E.T. 
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2261 OF670 8E00 
00 
2262 OF676 424 
2263 OF679 ACO 
2264 OE67C 978 
2265 OE67F 392 
2266 OF681 D1 
2267 OF683 RBC 
2268 OF686 E5 
2269 OE688 978 
2270 OE68B 51 
2271 OF68D DI 
2272 OEG8F A36 
2273 OE692 5D0 
2274 OF695 93A 
2275 OE698 80 
2276 OE69A BF4 
2277 OE69D S8E 
2278 OEGAO AB4 
2279 OF6R3 BBO 
2280 OE6AG E4 
2281 OE6A8 1FOO 
000 
2282 OEGAF 20 
2283 OFG6B1 159E 
2284 OE6B5 6199 
2285 
2286 OF6B9 6042 
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RNDNZD GOSUBL =POP1N+ 


GOC cenflc3 

A=0 S 

7A=0 OW 

GOYES PTSEED 
RNOMF = B=0 AR 

ABEX xX 
RNON2 B=B+1 A 

7A=0 6 OW 

GOYES RNDN3 

C=B A 

C=C+C xX 

GONC RNDN3 

?C=0 = K 

GOYES RNDN3 

ASR W 

GONC  RNDM2 
RNDM3) =A=B x 

RSL x 

A=A+1 A 
PTSEED D1=(5) =RNSEED 

P= 0 

DAT1=A 15 

GOTO = nxtstri 


cnflc3 GOTO 


cnflict 


4:01 ari 
Page 56 
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pop argunent, test for real 


type, signaling NaN 


nonzero: 

put exponent into B(A) 
increnent exponent 
nantissa = 0? 


test for non-negative exponent 


shift mantissa 

B.E.T. 

truncate last 3 mantissa digits 
append last 2 exponent digits, 1 


save seed X(0) 


JORIS III IOI TTT OI TTT TT TT TTT TK 
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2287 EJECT 
2288 JOISTS IOS OOS SI ST IAI I 
2289 JU III OOO SSIS OSI OCCU TIT 
22% ae 
2291 ** Narie: RND - Randon Nunber Function 
2292 ax 
2293 tk Category: FNEXEC 
2294 ax 
2295 ** Purpose: 
2296 aK Conputes the next pseudo-random nunber fron the current 
2297 ak seed value. 
2298 ak 
2299 &* Entry: 
2300 &k P=O 
2301 ae seed value in RAM register 
2302 ae Carry=Clear 
2303 RK 
204 ek Exit: 
2305 ae nunber on top of nath stack 
2306 ax seed value changed for next RND call 
2307 kk 
2308 ** Calls: nothing 
2309 ak exits through FNRTN1 
2310 ax 
2311 tk Uses....... 
2312 xk Inclusive: CPU: A,B,C,P 
2313 x RAN: RNSEED 
2314 xs 
2315 ** Stk lvls: 14 
2316 * 
2317 k* Algorithn: 
2318 EX Uses a linear congruential nethod 
2319 ak 
2320 kk X(n):=C*X(n-1) nod 10°15 
2321 ax 
2322 ae to calculate the next seed value. 
2323 ke RND is K(n)/10™15 truncated to 12 digits. 
2324 ola 
2325 *k History: 
2326 Re 
2327 ax Date Progranner Modification 
2328 atta tata ietataiatetatetatatetettetatanatant 
2329 KK 05/28/82 Pr Docuriented routine 
23H iS 01/06/83 " Revised docunentation 
x 
aes JOS ITO IIIS CIO III TORT IT 
2333 JUS OI III SIO ISIC TTR TIT I 
2334 OE6BD 00 NIBHEX 00 
2335 OE6BF OS =RND SETDEC 
2336 OE6C1 136 CDOEX save PC 
2337 OE6C4 06 RSTK=C 
2338 O£6C6 1B00 DO=(5) =RNSEED load X(N) into B, 0 into A 
000 
2339 OE6CD 15AE A=DATO 15 (P=0 here) 


2340 O€6D1 AFI B=0 W 
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2341 O€6D4 AFC ABEX W 
2342 OE6D? 3F76 LCHEX 0002851130928467 load nultiplier C 
4829 
0311 
5820 
00 
2343 OF6E9 550 GONC  RND3 B.E.T. 
2344 OEFGEC A70 RND2 A=A+B W 
2345 OEGEF AOE RND3 C=C-1 P 
2346 OEGF2 59F GONC RND2 
2347 OE6FS BFI BSL W shift X(N) left 
2348 OE6F8 OC P=P+1 
2349 OE6FR S4F GONC  RND3 
2350 OE6FD 158E DATO=A 15 save X(N+1)=C*X(N) 
2351 0€701 AFC ABEX WwW sign=exponent=0 
2352 OE704 2E P= 14 
2353 O€706 919 ?B=0 =P nantissa zero? 
2354 0£709 11 GOYES TRUNC yes 
2355 O£70B CC A=A-1 A exponent=-1 
2356 O£70D 90D = RNDSHF 7BHO OP nornalized? 
2357 0E710 ARO GOYES TRUNC yes 
2358 OE712 CC A=A-1 A no: decrerient exponent 
2359 0E714 B91 BSL WP left shift mantissa 
2360 0£717 55F GONC = RNDSHF B.E.T. 
2361 0£71A AD4 TRUNC A=B 4 truncate last 3 nantissa digits 
2362 OE71D 07 C=RSTK restore PC 
2363 OE71F 134 DO=C 
2364 OE722 AF6 C=A W 
2365 OF725 8C00 GOLONG =FNRTN1 


00 
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2366 
2367 
2368 
2369 
2370 
2371 
este 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
238? 
2388 
2389 
23%” 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
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FORTIS ROR RIOT OOO TIO TTT TT TE 
SOIC III OITA IT 


ak 


ak 
kx 
ak 
xx 
xx 
ak 
ax 
Kk 
xk 
xx 


ak 
xk 
ak 
ak 
ak 
xx 
xk 


Nane: FAC1SS - Internal Factorial 


Nane: FACTF - Internal Factorial 
Nane:(S) FCSTRT - Internal Factorial 
Category: MATH 
Purpose: 
Computes the factorial of the 15-digit quantity in 
registers A/B. 
Entry 
A/B -- normalized 15-digit quantity 
user nodes set 
DECMODE 
Exit: 
A/B -- factorial in 15-digit forn 
SB set if result is inexact 
XM set if NaN created 
Carry=Set 
DECMODE 
Calis: FNPWDS, INFR15, SHFMLT 
May exit through aornan 
Uses....... 
Inclusive: A,8,C,0,P,SB,xM 
Stk lvls: 2 
NOTE: 
The result 1s accurate to 12 digits for all integer 
argunents 1, where 0<=1<=253. A noninteger finite 
or -Inf argunent causes a NaN to be created and XM set. 
Algorithn: 
A fast integer multiply method is used with adjustnents 
for 12137 and 167 to insure full 12-digit accuracy. 
History: 
Date Prograriner Modification 
05/28/82 Ph Docurnented routine 
06/25/82 : Fatal errors for noninteger args 
01/06/83 a Reviewed docurientation 
01/13/83 - NaN created for invalid args 


FORO JRO RIO ITT RK 
FORO I TIO TIO OTTO TIT TO TOIT 


2420 OE72B 8E00 =FACI5S GOSUBL =FNPWDS 


handle NaN, SB:=0 
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00 

2421 0F731 5B0 GONC FACTF junp if finite 

2422 OE734 948 7A=0 = S tinf? 

2423 0E737 RTNYES 

2424 0E739 638B ARGOR GOTO aornan -Inf: “eIVARG' NaN created, XM:=1 

2425 0E73D 8E0O FACTF GOSUBL =INFR15 finite: find decinal point 

0 

2426 0E743 919 7B=0 =o WP 

2427 OE746 70 GOYES FACT2 

2428 0£748 88F ?PH 15 noninteger? 

2429 0E74B EE GOYES ARGOR 

2430 0OEF74D 959 FACT2 ?B=0 fh treats -0 as 0 

2431 0E750 70 GOYES FCSTRT 

2432 OE752 94C PAHO OS <0? 

2433 0E755 4E GOYES ARGOR yes: fatal error 

2434 0E757 ACO =FCSTRT A=O S use +0 for -0 

2435 OE75A ACI B=0 S 

2436 0E75D D2 C=O 836A test for exponent in [0,2] 

2437 OE75F £6 C=C+1 A 

2438 06761 E6 C=C+1 A 

2439 0E763 8BA ?A<=C A 

2440 0£766 31 GOYES FACTOK 

2441 0£768 AFO A=0 W exponent>2: 

2442 OE76B B54 A=A+1 ON return large nunber (10°1000) 

2443 OE76E AFI B=0 W 

2444 0E771 €5 B=B+1 A inexact result: set SB 

2445 0E773 FS BSR A 

2446 0E775 6ARO COTO =6FCN-1 

2447 0£779 BFS FACTOK BSR W 

2448 OE77C CC FCALGN A=A-1 A Align: right-justify integer in 

2449 OE77E 480 GOC FCXTST positions 15-13. 

2450 0E781 BF 1 BSL W 

2451 06784 57F GONC FCALGN B.E.T. 

2452 0E787 822 FCXTST SB=0 clear SB to detect inexactness 

2453 OE78R AF3 D=0 W 

2454 OE78D AF2 C=0 W x=n, integer, aligned in reg B 

2455 0E790 2E P= 14 

2456 0E792 B06 C=C+1 P initial product = 1 

2457 OE795 AFD BCEX W C(15-13) has multiplier 

2458 C(A) has exponent of part.prod. 

2459 B has mantissa of part.prod. 

2460 0E798 949° FACNLT ?B=0) = § product didn’t carry 

2461 0E79B 21 GOYES FACLSD 

2462 OE79D E6 C=C+1 A increrient exponent 

2463 OE79F 20 P= 0 

2464 0E7R1 AOS B=B+B P see if round up 

2465 OE 7R4 BFS BSR W shift mantissa 

2466 OE7A7 550 GONC = FACLSD ship if truncate 

2467 OEF7AR B75 B=B+1 Ww round up (can’t carry into S) 

2468 OE7AD AFO FACLSD A=0 W 

2469 OE7BO 2D P= 13 

2470 OE7B2 BO3 D=D-C P 

2471 OE7B5 5BO GONC FACISD skip 1f LSD#O 

2472 OE7B8 A70 FACLLP A=A+B OW add partial product LSD tines 

2473 OE7BB BO? D=D+1 P 


Saturn Assenbler Statistics <831216.1457> Fri Dec 30, 1983 4:01 an 


Ver. 3.39/Rev. 206 Page 61 
2474 OE7BE 59F GONC FACLLP 
2475 OE7C1 2E FACISD P= 14 
2476 OE7C3 BO3 D=D-C P 
2477 OE7C6 5CO GONC FACTS skip if ISD=0 
2478 OE7C9 BF3 DSL W 
2479 OE7CC 7550 GOSUB SHFALT add 10*p.product ISD tines 
2480 OE7D0 4C0 Coc FACHSD BE. T:. 
2481 OE7D3 94R FACTS ?7C€=0) = § enters here if ISD=0. NSD=0? 
2482 OE7D6 11 GOYES FACDEC yes: finished with multiply 
2483 OE7D8 BF4 ASR W no: shift extra tine (truncate) 
2484 OE7DB £6 C=C+1 A increnent exponent 
2485 OE7DD B43 FACMSD D=D-C S$ 
2486 OE7EO 560 GONC FACDEC skip if MSD=0 
2487 OE7E3 7E30 GOSUB SHFALT add 100%p.product NSD tines 
2488 OE7E7 AFC FACDEC ABEX W Decrenent nultiplier: 
2489 OE7EA 2D P= 13 
2490 OE7EC ROE C=C-1 P Decrenent Isd. Carry? 
2491 OE7EF 58A GONC FACHLT 
2492 OE7F2 2E P= 14 
2493 OE7F4 ROE C=C-1 P Decrenent isd. Carry? 
2494 OE7F7 50R GONC = FACHLT 
2495 OE7FAR ASE C=C-1 § Decrenent nsd. Carry? 
2496 OE7FD 5A9 GONC FACHALT 
2497 OE800 AFI B=0 W done: get previous nantissa 
2438 0£803 AIC ABEX WP 
2499 0£806 DA A=C A 
2500 0E808 20 P= 0 adjust mantissa for 167! 
2501 OF 80AR 3400 LCHEX 00300 
300 
2502 OE811 8A2 *C=A_ OA test exponent 
2503 0€814 CO GOYES FCH-1 
2504 0€816 3243 LCHEX 234 adjust mantissa for 137! 
2 
245 OE81B 8A6 CHA OA test exponent 
2506 OE8IE OO RTNYES 
2507 OE820 ASD FCN-1 B=B-1 A decrenent mantissa 1000 ulps 


2508 OE823 02 RTNSC 
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2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

e547 

2548 

2549 

2550 

2551 

2552 

2563 

2554 

2555 

2556 

2557 OE825 Eb 
2558 06827 20 
2559 OE829 AO4 
2560 OE82C BF4 
2561 OE82F 550 
2562 0E832 B74 
2563 0£835 A70 


xx 
a 
xk 
xk 
xx 
xk 
ax 
ax 
xk 
a 
ak 
xk 
ax 
ar 
xx 
xr 
ar 
xr 
x 
a 
xk 
xk 
a 
xx 
xk 
xx 
xk 
xk 
ax 
ak 
ax 
xx 
xx 
xk 
xk 
xx 
xk 
xk 
xx 
xk 
xx 
xk 
an 
xk 
ak 
xk 
a 


S 


F 
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EJECT 
JOO ICICI II TTI TAIT IIT AK 


FOTO ITO OTT TOR TT OTTO 


Narie: SHFNLT - Fast Multiply for Factorial 
Category: LOCAL 
Purpose: 


Fast multiply loop for FACT function. Increnents 
exponent, shifts nantissa (rounding if necessary), 


and multiplies by next digit. 
Entry: 
A ---- current product rantissa 
B ---- preceding (partial) product nantissa 


C(A) - current product exponent 
D(S) - 10 - multiplier digit (>0) 
DECNODE 

Exit: 
A ---- new product mantissa 
B ---- preceding (partial) product nantissa 
C(A) - new product exponent 
P=0 
Carry=Set 
DECHODE 

Calls: nothing 

USOS. ciweys 


Inclusive: A,C(A),D(S),P 
Stk lvls: 9 
NOTE: 


See the FACT execution routine internal docunentation 
for more infornation about how the registers are used. 
History: 
Date Progranner Modification 
06/23/82 PN Docunented routine 
01/06/83 Reviewed docunentation 
SOR IOIOOOJo tO OO OI OI OI OOO IO oir 
BOKIIIO OGIO OI ISIS UIGI ISSUE GORE ISO ITOK 
HFALT C=C+1 A increnent exponent 
P= 0 
A=A+R P see if round up 
ASR W shift mantissa 
GONC FSTMLT skip if truncate 
A=A+1 W round up (can’t carry into S) 


STMLT A=A+B W fast multiply 
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2564 OF838 B47 D=D+1 § 
2565 OE83B 59F GONC = FSTNLT 


2566 OE83E 01 RIN carry set on exit 


Saturn Assenbler 


Ver. 3.39/Rev. 26 


Statistics <831216. 1457> Fri Dec 30, 1983 4:01 an 


Page 64 


2567 EJECT 

2568 JI III IOC TOC III COT TIS IT SII TTI T SITS I A STS I IK 
2569 JUSSI IIDC CIC OIC OTITIS TIT IITA II STS IIA 
2570 RX : 

2571 ** Nane: FACT - Factorial Function 

2572 RK 

2573 *k Category: FNEXEC 

2574 RK 

2575 ** Purpose: 

2576 ak FACT function execution routine. 

2577 aK 

2578 *k Entry: 

2579 ak nuneric argunent on top of math stack 

2580 ak D1 points to top of nath stack 

2581 aK 

2582 ak Exit: 

2583 ak result on top of math stack 

2584 aK 

2585 *k Calls: ARGPR+,FAC15S, uresi2 

2586 ak exits through outres 

258? aK 

2588 AK Uses....... 

2589 kk Inclusive: &,8,C,0,P,R3,SB, XM, sIX(s7),s8-11 

2590 aK 

2591 kK Stk lvls: 3 = max(3,1+uRES12) 

2592 ae 

2593 ** History: 

2594 aK 

2595 ae Date Progranner Modification 

2596 RR nnn ew nen twee enter e cee e neem eee een r ee ren ewes scenee 
2597 kk 06/23/82 Pn Docunented routine 

2598 . 01/26/83 : Reviewed docunentation 

ane JOTI IOI TOS IIT AS SIT SITS SII ISIS I SOS S ISIS 
2601 JI A II OS II TIO SII STII TIS IAT IS III TTS IASI IIH 
2602 OE840 811 NIBHEX 811 

2603 OEF843 74A0 =FACT GOSUB ARGPR+ pop, test, prepare arg. SB, XM: =0 


2604 OF84?7 70EE 
2605 OF84B 4C4 


GOSUB =FAC15S 
GOC outrs2 B.E.T. 
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2606 
2607 JUSS A TOSCO OSS SOS ISI ISO IIR 
2608 $US  TO I SITOTOOS I TS OS I I S STS I TSI SSIS ST RIK 
2609 ae 
2610 *k Nane: FP - Fractional Part 
2611 &k 
2612 ** Category: FNEXEC 
2613 aK 
2614 *k Purpose: 
2615 ak FP function execution routine 
2616 ak 
2617 ** Entry: 
2618 ax nuneric argurient on top of rath stack 
2619 ax Di points to top of math stack 
2620 ak 
2621 a Exit: 
2622 aK result on top of math stack 
2623 ak 
2624 a* Calls: ARGPR+ , FRAC15, uresi2 
2625 ne exits through outres 
2626 ak 
2627 tk Uses....... 
2628 &* Inclusive: A,B,C,0,P,R3,SB,xXM, sIX(s7),s8-11 
2629 ae 
26H kK Stk lvls: 3 = nax(3,1+uRES12) 
2631 ak 
2632 ** History: 
2633 ak 
2634 aX Date Progranner Modification 
2635 RK mmr mere neem e rere creer en ree nen ren c rere conn n ence nnen 
2636 ** 06/23/82 PM Docunented routine 
2637 && 01/26/83 * Revised docunentation 
2638 bis 
2639 JOO OCI GOO SOOO OOCOC ISS IIO I I T II 
2640 JI IO OOOO SIO OOOO OTC TOC SOCIO TST SII 
2641 OE84E 811 NIBHEX 811 
2642 0F851 7690 =FP GOSUB ARGPR+ pop, test, prepare arg. SB,xXN:=0 
2643 O€855 8E00 GOSUBL =FRAC15 get fractional part 
00 
2644 OE85B 6CX GOTO outrs2 
2645 JCI II IOI IT IIS I III II ISOS II SII OS ISI OSI IOS IS TS ASIII IO I I AIK 
2646 JCI TI ITT ETT ST TAIT IAT II IIIT III III TOSI III AT IIT III ISI IITA S 
2647 ax 
2648 ** Nane: INT - Floor Function 
2649 ** Nare: FLOOR - Floor Function 
2650 xe 
2651 ** Category: FNEXEC 
2652 ze 
2653 ** Purpose: 
2654 x INT and FLOOR function execution routine 
2655 RX 
2656 ** Entry: 
2657 ae nuneric argunent on top of math stack 
2658 a D1 points to top of nath stack 


2659 ne 
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2660 aX Exit: 
2661 aX result on top of math stack 
2662 am 
2663 ** Calls: SUBONE , argclf ,urest2 
2664 ae exits through outres 
2665 RX 
2666 *X Uses. ...... 
2667 kk Inclusive: A,B,C,D,P,R3,SB,xM,sIX(s7),s8-11 
2668 ax 
2669 ** Stk lvls: 4 = max(4,1+uRES12) 
2670 aX 
2671 ** History: 
2672 aX 
2673 aX Date Prograriner Modification 
2674 eee 
2675 kX 06/23/82 PN Docunented routine 
2676 ek 01/26/83 " Reviewed docunentation 
2677 kk 03/04/83 . Used SUBONE rather than subone 
x 
ce JI OI III IIRC STI STITT IK 
2680 SUIS COCO OCT IIS IIS SII AIK 
2681 OE85F 811 NIBHEX 811 
2682 OF862 =FLOOR 
2683 O£862 763) =INT GOSUB argclf pop, test, prepare argument, setdec 
2684 clear frac. part, preserve sign 
2685 OF866 413 Coc outrs2 done if result is exact (incl +-0) 
2686 OE869 948 7A2O OS inexact positive nuriber? 
2687 OE86C C2 GOYES outrs2 if so, done 
2688 OE86E 8£00 GOSUBL =SUBONE inexact negative nunber: decrenent 
00 
2689 O€874 6320 GOTO outrs2 (SB=0 here) 
2690 {III IOI IO ITO IIS ISIS IS SIO SSIS SII OAT II IOI IS III IASI I ST IIS 
2691 Peet eteetettetetestetesittttttttistti tite eet etttitetee tect ey. 
2692 Re ; 
2693 xX Narie: CEIL - Ceiling Function 
2694 ex 
2695 ** Category: FNEXEC 
2636 zx 
2697 ** Purpose: 
2698 - CEIL function execution routine 
2699 as 
2700 ** Entry: 
2701 és nuneric argunent on top of math stack 
2702 2 D1 points to top of nath stack 
2703 a 
2704 A®- Ex ti 
2705 ae result on top of math stack 
2706 a 
2707 ** Calls: ADDONE , argclf,uresi2 
2708 via exits through outres 
2709 am 
2710 RF USOS ccc 
e711 tk Inclusive: A,B,C,D,P,R3,5B8, XM, sIX(s7),s8-11 
2712 a 


2713 ** Stk lvls: 4 = nax(4,1+uRES12) 
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2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 0E878 811 

2725 OE87B 7010 

2726 

2727 OE87F 481 

2728 OE882 94C 

2729 OE885 31 

273% 0E887 8E00 
oO 

2731 OE88D 6ROO 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

275? 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 OE891 811 

2767 0E894 7400 
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kk 
%* History: 
kk 
ae Date Progranner Modification 
Ws ete re OE, pA eS te atone tani eee oe 
tk 06/23/82 PN Docunented routine 
Kk 01/26/83 " Reviewed docunentation 
aK 


FOURTH OK 
FOR RTO I TOIT TTT TOTO TK 


NIBHEX 811 

=CEIL GOSUB argclf pop, test, prepare argunent 

clear frac. part, preserve sign 

GOC outrs2 done if result is exact (incl +-0) 
AHO |S inexact negative nunber? 
GOYES outrs2 if so, done 
GOSUBL =ADDONE inexact positive nurber: increrent 
GOTO outrs2 (SB=0 here) 


FOU TO OTT IT TT TO TTT 
FOI III TO OK 
ar 


** Nane: IP - Integer Part Function 
kk 


** Category: FNEXEC 
sk 


** Purpose: 
k 


s IP function execution routine 
we 
kk Entry: 
Bx nureric argunent on top of nath stack 
ae 01 points to top of math stack 
tok 
AP Exits 
ae result on top of math stack 
tok 
** Calls: argclf,ures12 
ae exits through outres 
ek 
RE USES sae ins 
** Inclusive: A,B,C,D,P,R3,SB,XN,sIX(s7),s8-11 
kK 
** Stk lvls: 4 = max(4,1+uRES12) 
dk 
** History: 
kk 
kx Date Progranner Modification 
WO eke cas Aer eeees Vda eet eee eee eee eos 
*® 06/23/82 Pn Docunented routine 
ek 01/26/83 " Revised docunentation 
ke 


FORO OOOO OO OK 
FOU TTT TOR TIT ITI IIT ITI 


NIBHEX 811 
=IP GCOSUB argclf pop, test, prepare argunent 
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2768 clear fractional part 
2769 OEF898 6048 outrs2 GOTO outres 
2770 IK II IIIT DID IAI III III III IIIA IIIS IIIS III IIIS IDI IIIS II IIIT IIIS IAIN 
2771 FOI IIT IO OK 
2772 Ex 
2773 a Nane: argclf - Corbine ARGPR+ and CLRFRC Routines 
2774 ) 
2775 ** Category: LOCAL 
2776 kK 
2777 ** Purpose: 
2778 at Combines ARGPR+ and CLRFRC routines for packing. 
2779 aa 
2780 *k Entry/Exit: 
2781 xR See ARGPR+, CLRFRC 
2782 xk 
2783 ** Calls: ARGPR+ 
2784 aK exits through CLRFRC 
2785 ak 
2786 AX Uses....... 
2787 xk Inclusive: A,B,C(R),0(A),P,SB,XM,s8-11 unless fatal error 
2788 aR 
2789 kK Stk lvls: 3 
2790 eas 
2791 FORO OOO III TO TO OO 
2792 FORO IIIT IO TIO III TIT TT TTT. 
2793 O€89C 7B40 argclf GOSUB ARGPR+ pop, test, prepare arg. SB,XM:=0 
2794 OE8AO 8C00 GOLONG =CLRFRC clear fractional part 


©” 
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2795 EJECT 
2796 2 IOI II TO IIS OTIS ITI SISO SSIS SOT STS SI SIA 
2737 FORO TOI ITT TOOT 
2798 aR 
2799 ** Nane: MAX - Maxinun and Mininun Function 
2800 x* Nane: MIN - Maxinun and Mininun Function 
2801 aa 
282 ** Category: FNEXEC 
2803 as 
2804 ** Purpose: 
2805 xe Returns the maxinun or mininun of 2 argunents. 
2806 aR A NaN is created and XM is set if an unordered compare 
2807 aR occurs (fron a NaN arg.). 
2808 as 
2809 ak Entry: 
2810 ak arguments are on the nath stack 
2811 ae HEXMODE 
2812 aK 
2813 aA Exit: 
2814 an Maxinun or Mininun argurient or NaN is on the top 
2815 aR of the math stack 
2816 ak IVL flag set or cleared 
2817 a Fatal error for conplex argunent 
2818 ak 
2819 ** Calls: pop2nt, TST12A, XYEX, invnan, ures12 
2820 aR exits through outres 
2821 xk 
2822 kk Uses....... 
2823 xk Inclusive: A,8,C,0,P,R3,D1,SB,xM,sIX(s7),s8-11 
2824 AE unless fatal error 
2825 ae 
2826 RX Stk lvls: 4 = 2+uRES12 
2827 aK 
2828 xX Detail: 
2829 Be This routine uses the <= or >= compare in TST12A to 
2830 ae determine the maxinun. TST12A deterriines any 
2831 ak unordered coripare. 
2832 ae 
2833 *k History: 
2834 vse 
2835 - Date Progranner Modification 
2836 aaa rata tlataceatocetateehataiatateateeetateetnetanetennanate 
2837 kK 05/26/82 PA Docuriented routine 
2838 xk 11/16/82 " Restricted argunent count to 2 
2839 KK 11/30/82 y Conplex arg --> fatal error 
2840 aK 01/17/83 “ Signal any signaling NaN arg 
2841 03/24/83 " Revised docunentation 
Bae SRI II DI II III III IIS ISIS IS SASSI II IIIS IIII III IIS II IIIS SSI ISS ISI SSS: 
2844 JOR IIT OSI IOI ITI I IIIS IIIS ISOS IIS ISS IIISSS SSIS SISOS SII SSSI SSIS IA 
2845 OE8AG 8822 NIBHEX 8822 
2846 OE8RA 7940 =NAX GOSUB pop2n+ pop args, test for signaling NaNs 
2847 OE8AE 26 P= 6 >= test for MAX 
2848 OE8BO 6A10 GOTO MXENTR 


2849 OE8B4 20 UNORC P= 0 unordered: create NaN 
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2850 OE8B6 3100 LC(2)  =eUNORC (XM,SB not needed here) 
2851 OE8BA 7F6C GOSUB = inynan 
2852 OE8BE 490 GOC outrs2 weal 
2853 JO IOI IO I TOIT OO III TOI TOTS ITI T I ITI I III II IIIT IIT TAK 
2854 OE8C1 8822 NIBHEX 8822 
2855 OE8C5 7E20 =MIN GOSUB pop2n+ pop args, test for signaling NaNs 
2856 OE8C9 23 P= 3 <= test for MIN 
2857 OEF8CB 4A3 MXENTR GOC enflct conplex? 
2858 OE8CE 822 SB=0 
2859 OE8D1 821 KN=0 
2860 O£8D4 8EOO GOSUBL =TST12A 
#0 
2861 OE8DR 40B GOC outrs2 tests true 
2862 OE8DD 898 ?P= 8 unordered? 
2863 OE8EO 4D GOYES UNORC 
2864 OE8E2 8EOO GOSUBL =XYEX 
00 


2865 OF8E8 5FA GONC outrs2 B.E.T. 
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2366 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2836 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
289? 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 OE8EB 7029 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
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EJECT 
SOI OIC OO TK 


JOO UII TIO ITT TOT TTT ST II TOI I 
ak 


**k Narie:(S) ARGPR+ - Reads nodes, pops and norn. real nbr 
ah 

** Category:  MTHSTK 

ak 

** Purpose: 

aK Reads user nodes, pops nuneric argunent off nath stack, 
* tests for array or conplex type or signaling NaN, 
ay splits and normalizes argunent to 15-digit forn, 
a detects non-finiteness 

xk 

*k Entry: 

zs Numeric argunent on top of sath stack 

ak D1 points to top of nath stack 

ak 

ee Ext! 

xR A/B -- 15-digit form of argunent 

ak If signaling NaN: Carry=Set, XM=1 

ae Otherwise: Carry=Clear 

ak DECNODE 

ak Fatal error if complex or array data type 

ik 

‘ Calls: INVNaN, POP1R, SPLITA, unode+ 

x 

AR MSCS 55 faa 505 

xk Inclusive: A,B,C(A),D(A),P,SB,XN,s8-11, 

An unless fatal error 

ak 

*® Stk lvls: 2 

ak 

** History: 

kk 

ee Date Programmer Modification 

MRE Jeet ~ jeewete cee . denies ca teas ec eememnenadetect 
kk 08/26/82 Pn Docunented routine 

KK 42/14/82 " Added signaling NaN test 
kK 01/06/83 : Revised docunentation 

ak 


JOO III ICU IO TTI OOO TT ITOK 
OI III TOI TIT III ITI IIIT OAT IAI I IIIS IT IIS SSSI AI IIIT AIK 
=ARGPR+ GOSUB unode+ get user nodes, clear SB,XM 

JO ITO TT ITO TTI I IIIT TIT ITTID IIIT IDI I ASIII 
FOI IIIT OI I EK 
ak 


** Warie:(S) ARGPRP - Pops and normalizes real nunber 

kh 

** Category: MTHSTK 

ik 

** Purpose: 

ae Sane as ARGPR+, except that user nodes are not read. 
ah 


** Entry: 
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2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 


2946 
2947 
2948 
2949 
2950 
2351 
2982 
2953 
2954 
2355 
2956 
295? 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 


OE8EF 7AOO 
OE8F3 673D 


OE8F? 8000 
00 
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ak Sane as ARGPR+ 

ak 

ae Exit: 

ak Sane as ARGPR+, except user nodes not read. 
ak 


kk Calls: INVNaN, POP1R, SPLITA 

kk 

RK Uses... i... 

kk Inclusive: A,B,C(A),P,xM, unless fatal error 
kk 


kK Stk lvls: 2 


bk 
*k History: 

ak 

ak Date Programmer Modification 

WE Opes en ets, ace ete ee tel le a A Aes a 
RK 05/26/82 PN Docurented routine 

KK 01/06/83 " Revised docunentation 

kk 


JOR IO OI OT TTT IO TT OC 
FOI TOIT TTT TOT TO TOT 


sRRGPRP GOSUB POPIR 
GOTO  SPLTAX 
20 OO OOS TTT IIIT IASI ILIA II IIT IS IIS SI III IT 


pop2n+ GOLONG =POP2N+ 


JORIS IOI OT TT IT TT II 
JOR OI OI IOI TTT TTR 
ak 


xk Nane:(S) POP1R - Pops real nunber fron math stack 
ak 

** Category: MTHSTK 

ak 

** Purpose: 

a pops nuneric argurient off the top of the math stack and 
es tests that it is a real data type. 

aK 

** Entry: 

AR Nuneric argunent on top of nath stack 

an D1 points to top of math stack 

kk 

AOE METS 

ae A -- has 12-digit forn of argunent 

a Carry=clear 

aK DECMODE . 

ae fatal error if array or corplex data type 
aX 

** Calls: POPIN 

ak 

ABUSE Ss diated 

** Inclusive: A,B(X),P, unless fatal error 

ak 

RK Stk vis: 1 

a 


** History: 
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; 2975 = 
i 2976 xx Date Progranner Modification 
; 2977 $A) Bimcsots, ma eca, caeidliL ete eceaicane cee Seek cect 
2978 kk 08/12/82 PN Docunented routine 
2979 &X 01/06/83 : Revised docunentation 
2980 an 
2981 SO II DIR ATI ITA TOAST OI IOS IOI III III IDI II ISI IIIA I ISIS III ISI IA. 
2982 $I IDI III IOI IID IIT II III TI III II IIIGII III IIIA IIIA III SI TA. 


2983 OE8FD 8E00 =POP1R GOSUBL =POPIN 
00 


23984 0£903 500 RTNNC 
2985 O£F906 8(00 cnflct GOLONG =CNFLCT complex arg: fatal error 
2986 os FI III II III ISIS III SII SSIS III IIIS IIIS II SII ISI SIISSSIOS ISIS II IIA 
2987 SII III III ISIS IS ISI III III IO IOS III SSI SSI IOS IIS III IS SSI ISIS SISA 
2988 ae 
2989 %* Nane:(S) ARGSTA - Pops and tests real nunber 
2990 **% Name: (S) ARGST- - Pops and tests real number 
2991 ak 
2992 ** Category: MTHSTK 
2993 ax 
2994 ** Purpose: 
2995 aA Reads user nodes, pops numeric argunent off nath stack, 
2996 kx tests for array or cornplex type, detects non- 
2997 aK finiteness, and tests for NaN. 
2998 ax 
2999 ** Entry: 
3000 ae Nurieric argument on top of math stack 

‘ 3001 a 

3002 ek Exit: 
3003 ak A ---- 12-digit argunent fron top of stack 
04 RR Carry=Clear if real finite 
3005 7 Carry=Set if infinity 
3006 ae Fatal error if array, complex, or NaN 
3007 aA DECMODE 
3008 xx 
3009 A® Calls: POP1R, finita, unode+ 
#10 aA 
11 ** Uses....... 
12 kk Inclusive: A,B(X),D(R),P 
#13 x ARGSTA: also SB,XNM,s8-11 
#14 ae 
15 ** Stk lvls: 2 
316 ax 
17 ** WOTE: 
018 ae Input Fatal error nessage 
3019 ae 
20 aK array “eDATTY" 
21 ax conplex “eDATTY" 
22 Ex NaN "eIVARG" 
23 * 
#24 ** History: 
325 a 
26 ae Date Progranner Modification 


3027 Wks Re Sewoe: ete leeee sl ete ee ete a i 
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28 

29 

HH 

3031 

3032 

033 

334 OE90C 7009 

3035 0O£910 79EF 

3036 OF914 7E0O 

3037 06918 500 

3038 O£91B 968 

3039 OESIE 00 

3040 

3041 

42 

3043 

44 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 O£920 8C00 
00 

3059 

3060 O£926 8C00 
00 
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Kk 97/16/82 Ph Docunented routine 
kk 10/06/82 . Renoved projective infinity test 
kk 01/06/83 a Revised docunentation 
ax 


FIJI OI OOO ITT IK 
JOR IIIT I TTI TIO ITOK 


=ARGSTA GOSUB urode+ read user nodes 
=ARGST- GOSUB POPIR pop off math stack 
GOSUB finita test for nonfinite 
RTNNC return 1f finite with carry clear 
7A=0—B Inf? 
RTNYES es: return with carry set 


FORO JOO ITO TOTTI TTT TON 
FOI TOTO OI IIIT OTT OTTO TTI TIT 
ax 


** Nane:(S) IVAERR - Report “Invalid Arg" error. 
ax 


** Category: SYSTEM 


x 
** Purpose: 

ax To do a GOLONG =ARGERR 

te 

** History: 

ka 

zt Date Progranner Modification 

Fk Soeeesiet SteeeucEel es SteswionGe eke ee tere ae 
kx 11/09/83 MB Docunentation 

ax 


FOTO IOI IO TOI 
FOI JOO ITO TOIT OT IIIT II TTT TO IIIT 


=IVAERR GOLONG =ARGERR invalid argurent error 


JOTI TOI IIIS III OT TOT I 
finita GOLONG =FINITA 
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3061 
062 JOGO IO ITT TTT 
063 JOTI IIIS IOI IO IIIT TTT TTT 
3064 xk 
3065 ** Nane:(S) STSCR  - Push 15-Forn Onto Math Scratch Stack 
366 aha 
3067 *k Category:  MTHUTL 
3068 an 
3069 ** Purpose: 
3070 at Pushes a 15-digit forn onto top of math scratch stack 
071 aR 
3072 xk Entry: 
3073 ax A(S) ---- sign 
74 ax A(A) ---- exponent 
3075 a B(14-0) - nantissa 
3076 an 
3077 EXE Rit: 
3078 Kx P= 1 
3079 a Carry=Clear 
3080 a 
3081 ** Calls: GEXPAD,GSCPTR 
3082 pg 
3083 Kk Uses....... 
3084 **k Inclusive: C,D0,P 
85 ak 
3086 ** Stk lvls: 1 
3087 xk 
3088 ** History: 
3089 aK 
HW ae Date Progranner Modification 
3091 OKs deca. Jeouscuseus 4. “Raskoedecrecucussewesaemacteomeasy 
3092 KK 27/22/82 BS Wrote and coded routines 
3093 *k 12/07/82 PM Packed and docunented routines 
3094 Kk 01/06/83 ” Reviewed docurentation 
3095 ak 
3096 FOI III IIR TIT IITA ITI IIIT III III TTI ITT II III IIIT TOTTI IAI SSSI AS: 
3097 FI IIS IIA TILT I IDI ID ITT I IIIT TD ITI IIT ITI IIIS IIIT TIO SII ISIS IAS 
3098 OF92C 7A9O =STSCR GOSUB GSCPTIR Get address of top of scratch stack 
3099 OE9X B06 C=C+1 P Increnent stack pointer 
3100 0£933 OB CSTEX Suap into status and 
3101 0£935 846 ST=0 6 clear upper 2 bits of second nib 
3102 x ST=0) 07 (Mod 4 reduction) 
3103 0€938 OB CSTEX Then suap hack into register 
3104 OF93R 1540 DATO=C P Write out updated stack pointer nib 
3105 OE93E 134 DO=C Put address in data pointer 
3106 0E941 AFS C=B W Copy mantissa fron B 
3107 0€944 ACE {=A S Copy sign fron A 
3108 0€947 1547 DATO=C W Write out sign and mantissa 
3109 OE94B 7390 GOSUB GEXPAD Get address of exponent 
3110 OES4F 140 DATO=A A Write out exponent 


3111 O£952 03 RTNCC Done 
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3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
31% 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 0E954 
3151 0E958 
3152 O£95B 
3153 OE95E 
3154 0E961 
3155 0E964 
3156 0£968 
315? OE96B 
3158 OES6E 
3159 O£972 
3160 0F975 
3161 0£979 
3162 OE97C 
3163 OE97F 


4:01 ari 
Page 76 
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FOR III OOO I OTITIS OTTO 
JOO OI ISI II IS TIT OTT IOI SITS IIS III III IAS 
kk 

** Nane:(S) RCSCR  - 
kk 

** Category: 
ak 


** Purpose: 


Pop 15-Forn Fron Math Scratch Stack 


MTHUTL 


x Pops a 15-digit forn from scratch stack 

kx 

** Entry: 

kk 

Kk Exit: 

ak C(S) ---- sign 

a C(A) ---- exponent 

KK 0(14-0) - nantissa 

a A/B ----- unchanged 

ak Carry=Clear 

ka p= 4 

ke 

** Calls: GEXPAD, GSCPTR 

kk 

AM USES J a:atein 

** Inclusive: C,D,D0,P 

s 

k Stk lvls: 1 

KR 

xk History: 

kk 

kk Date Progranner Modification 
WH eo a. “Geetha, aeGivche se SR ae ri ye seta tle opi, 
KK 22 £27182 BS Wrote and coded routines 
Kk 12/07/82 Pn Packed and docunented routines 
*k 01/06/83 A Reviewed docurentation 
ok 


FOO OTT TT TO TT TTT ITOK 
FOTO IO TOO TIO OI ITT ITO TORII IO 


7270 =RCSCR GOSUB GSCPTR Get address of top of scratch stack 
R87 D=C P KAKKBUG FIXED -- PM**** 

AOE C=C-1 P Decrenent stack pointer 

550 GONC RCSCR1 Did it borrow fron O to F? 
3 LCHEX 3 Yes, then set 1t to 3 

1540 RCSCR1 DATO=C P Write out new stack pointer 
A8B C=D P KAKKBUG FIXED -- PH**** 

134 DO=C Copy into data pointer 

1567 C=DATO W Read 1n nantissa and sign 
AF? D=C W Nove nantissa to D 

7960 GOSUB GEXPAD Get exponent address 

146 C=DATO A Read in exponent 

AC3 D=0 S Clear sign in D 

03 RTNCC Done 
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3164 
3165 JOT TIT TTI TIT TI ITE TIT II 
3166 JAI ITI ISIS TOCCOA O TI T II IOS SIT IR TAA 
3167 as 
3168 a Nane: EXSCR - Exchange 15-Forn u/Math Scrtch Stack Top 
3169 
3170 *% Category:  MTHSTK 
3171 aR 
3172 *% Purpose: 
3173 . Exchange 15-digit forn with top of math scratch stack 
3174 
3175 ** Entry: 
3176 a A(S) ---- sign 
3177 ae A(R) ---- exponent 
3178 ak B(14-0) - mantissa 
3179 xk 
3180 KK Exit: 
3181 a A/B exchanged with top of math scratch stack 
3182 ak C/D unchanged 
3183 aR P=4 
3184 ak Carry=Clear 
3185 aR 
3186 ** Calls: GSCPTR 
3187 Sa 
3188 RP USES sk ena 
3189 ** Inclusive: A,B,D0,P 
3190 aE 
3191 kK Stk lvls: 2 
3192 an 
3193 SII RII SII TI IIIT IIIT LISI OT IT IAI IIIS IIIS ISI IS III III SOS IIS IAT IAM 
3194 KIKI II IDI IIR IIIA II III III III IIIT III III IIT IIIT I IID ISI IIS IAS SIS IIA. 
3195 XEXSCR B=A S$ Copy sign into B 
3196 x RSTK=C Save C(R){exponent} on stack 
3197 x GOSUB GSCPTR Get address of top of scratch stack 
3198 : CSTEX Suap address into status 
3199 x ST=1 6 and select exponent fields 
3200 x CSTEX Then nove address into DO 
3201 x O=C 
3202 x C=DATO A Read exponent 
3203 . DATO=A A Exchange exponents 
3204 x CDOXS Suap address into status 
3205 - CSTEX 
3206 x ST=0 6 and select mantissa fields 
3207 k CSTEX Then swap back into data pointer 
3208 ® CDOXS 11/22/82 fix by PN 
3209 , A=DATO W Read mantissa 
3210 x ABEX W 
3211 a DATO=A W Exchange nantissas 
3212 x A=C A Copy exponent into A 
3213 x C=RSTK Recall C(A)<exponent} 
3214 x A=B S$ Copy sign into A 
3215 A B=0 S Clear sign of B 
3216 x RTNCC Done 
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321? 

3218 

acto 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

324? 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 0£981 20 
3265 06983 04 
3266 0£985 80F1 
3267 0£989 RE? 
3268 O£98C 7A 
3269 0£39G BOB 
3270 0E993 OB 
3271 0€995 846 
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FOI III ITO TTT RTI TTT IK 
FORGO IIIT ITI IT TE STII N 
ak 


*k Narie:(S) RCLW1 
*k Narie:(S) RCLW2 
** Narie:(S) RCLW3 


Recall ist (Top) Math Scrtch Stack Entry 
Recall 2nd Math Scratch Stack Entry 
Recall 3rd Math Scratch Stack Entry 


** Nave: RCL - Recall 4th Math Scratch Stack Entry 
*x Nane:(S) RCL*  - Recall Selected Math Scratch Stack Entry 
ak 

** Category:  MTHUTL 

wh 

*& Purpose: 

aR Move the 15-digit forn in A/B to C/D and then recall 
xk the requested math scratch stack entry in A/B without 
= renoving that entry fron the stack. 

ah 

ak Entry: 

ae (A,B) = 15-forn nunber 

as RCL*: 

xe P = 0 for 1st entry on math scratch stack 

xR = n-t for nth entry on math scratch stack 

aK 

AP Eat: 

xe (A,B) = 15-forn nunber fron natch scratch stack 

xe (C,D) = (A,B) on entry 

ax P = j 

- DECNODE 

x Carry = Clear 

ah 

** Calls: GEXPAD, GSCPTR 

ah 

AN USES. wees es 

*x Inclusive: A,B,C,D,00,P 

ah 

** Stk lvls: 1 

ah 

** History: 

an 

xx Date Prograrner Modification 

RE: Uecieces ~ghuaiewkes , StatecntcbccoweueeuGtcuudevesiaswes 
BR SPS? BS Wrote and coded routines 

xx 12/07/82 PH Packed and docunented routines 
** 01/06/83 Pn Reviewed docunentation 

aL 


JULIO II III TI III OTIS TIO IT RII AISI IAT IDI I II ISIS II IAI AIA 
BOI I IT II IIIT III IIIT TIT IAT I I TISAI TI ISI IIIS IS IAT IAS 
=RCLW1 = P= 0 Specify recall stack level 1 
=RCL* = SETHEX 


CPEX 1 Siap pointer into second nib of add 
D=C B Copy pointer to D 

GOSUB GSCPTR Get address of top of scratch stack 
C=(-D P Offset by stack register nunber 
CSTEX Sap into status 


ST=0 6 to clear upper 2 bits of nibble 2 
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3272 O€998 847 ST=0 7 of address space (nod 4 reduct. ) 
3273 OF99B OB CSTEX Then swap back into register 

3274 OF99D 134 DO=C Point to selected register 

3275 OESAO 1567 C=DATO W Read desired register 

3276 OE9A4 RFD BCEX W Swap recalled nantissa into B 
3277 OESA? AF? D=C W Move old B register to D 

3278 OESRA 74% GOSUB GEXPAD Get address of exponent 

3279 OESRE 146 C=DATO A Now read exponent for desired reg. 
3280 OF9B1 AFE ACEX W Swap recalled exponent into A 

3281 OF9B4 05 SETDEC 

3282 OF9B6 AC4 A=B S Copy sign nibble fron B 

3283 OF9B9 ACI B=0 S Clear sign in B 

3284 OF9BC 03 RTNCC Done 

3285 OESBE 21 =RCLW2 P= 1 Specify recall stack level 2 

3286 OE9CO 62CF GOTO = RCL* Join recall code 

3287 OEF9C4 22 =RCLW3 P= 2 Specify recall stack level 3 

3288 OF9C6 6CBF GOTO 8 RCL* Join recall code 

3289 XRCLW4 P= 3 Specify recall stack level 4 

32% . GOTO RCL* 
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3291 

3292 

3293 

3294 

3295 

3296 

329? 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

330? 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 OESCA 1800 
000 

3324 OE3D1 20 

3325 O£9D3 3400 
000 

3326 OESDA 21 

3327 OE9DC 1560 

3328 OESEO 01 
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EJECT 
FORO OI OTT TT TTT TIN 


FOI IO IIIT OOO IT TTT TTI TT IIT ITI ITN 
ak 


** Narie: GSCPTR - Scratch math stack utility 
ak 


** Category: LOCAL 


ak 
** Purpose: 

aK Gets address of top of scratch math stack. 
kh 

xk Entry: 

ae nothing in particular 

oe 

RK Exit: 

ak C(R) -- points to top of scratch math stack 
ah 

*k Calls: nothing 

ak 

ek Uses....... 

kk Inclusive: C(A),P,D0 

ak 

** Stk lvls: 0 

ak 

** History: 

x 

ak Date Progranner Modification 
Ph, Geese “ASeetecste es” bess ote ee bee Soe 
tk 01/06/83 Pn Docunented routine 

be 


FOI IOI TTT OTT TTT TT TTT II 
JOTI TTT TT TTT TOT TTC 


GSCPTR DO=(5) =SCRPTR Get address of top of scratch stack 
P= 0 
LC(S) =SCRSTO Pointer to stack register 1 
P= 1 Select second nibble of address 
C=DATO P Recall current stack pointer 
RIN 
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3329 EJECT 
33% 23 III III TICS ICICI OST TTI 
3331 Cette CSS t sete s tetes testes teerestesesseetettete treet ttt lett ttt T 
3332 ak 
3333 ** Nane: GEXPAD - Scratch nath stack utility 
3334 AK 
3335 *k Category: LOCAL 
3336 ak 
3337 ** Purpose: 

3338 ax Given address of scratch nath stack elenent’s sign and 
3339 RK nantissa, finds address of its exponent. 

3340 x 

3341 kk Entry: 

3342 ax DO --- adress of sign/nmantissa 

3343 ae 

3344 ** Exit: 

3345 ak DO --- address of exponent 

3346 Rk 

3347 ** Calls: nothing 

3348 x 

3343 BR NSOS3 63 Se 

3350 ** Inclusive: €(3-0),D0 

3351 ax 

3352 *X Stk lvls: 0 

3353 am 

3354 xx History: 

3355 a 

3356 a Date Progratiner Modification 

3357 RX mann nnn nen ene n ne ene n nee e enn enone nn ne ee nee eee ee 
3358 xe 01/06/83 Pr Docunented routine 

3359 ae 

3360 JI II II IIS STO SOTO I ITI IS ATI IIIS II 
3361 JI OO TSI OTTO OT O TIO II OS SIS TI IIIS IIIS OI EIS ISI III IIS 
3362 OESE2 13E  GEXPAD CDOXS Get address of exponent: 

3363 OESES OB CSTEX Move address into status 

3364 OESE? 856 ST=1 6 to select expontent’s address 
3365 OESEA OB CSTEX then swap back 

3366 OESEC 13C DO=CS and rove back to data pointer 
3367 OESEF 01 RIN 


3368 OE9F1 END 
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ABORTS Abs 57065 #ODEES 
=ADI5S Abs 57757 #0E190 


176 «6185 = 189 
739° «167 = 698) 871 1422 


ADI5s Ext 740 
=RDD Abs 56946 #0DE72 138 
ADDDC =Extt - 136 
ADDEND Abs 57402 HOEO3A - 291 272 
ADDONE Ext - 273 
ADDP Ext = AS? 
ADJSQ Abs 56969 #0DE89 - 147 
ADJSQ2 Abs 56980 #ODE94 - 150 174 


ADJSQ3 Abs 56989 HODE9ID - 153 155 
ADJSQ4 Abs 57073 HODEF1 - 179 151 
ADJSQ6 Abs 57179 HODFSB - 220 199 260 
ADJSQ? Abs 57207 HODF77 - 228 244 
ADJSQ8 Abs 57258 HODFRA - 245 233 
ADJSQN Abs 57042 HODED2 - 168 160 
ADITOT Abs 57309 HODFDD - 261 222 


ADRSSO Ext - 1591 1983 
RRESD1 Abs 57834 HOEIER - 871 286 
ARGERR Ext - W58 


ARGOR Abs 59193 #0E739 - 2424 2429 2433 
=ARGPR+ Abs 59627 HOESEB - 2909 2603 2642 2793 
SARGPRP Abs 59631 HOE8EF - 2942 1416 


ZRRGST- Abs 59664 #0E910 - 3035 
=ARGSTA Abs 59660 HOE9OC - 34 
ATOTO §=Abs 57185 HODFE1 - 222 208 
ATOT1 Abs 57333 HODFFS - 271 290 
ATOT2 Abs 57342 HODFFE - 274 276 
ATOT3 Abs 57385 HOEO29 - 286 284 
AVNEME Ext - 928 
B=DTOR Abs 58842 #OESDA - 2059 2007 


B=STAN Abs 58833 #0E5D1 2057 1590 1977 
BFGTAB Abs 57680 #0E150 - 558 234 249 
BFOTCD Abs 57696 HOE160 - 601 238 252 
BFPTAB Abs 57712 #0E170 - 647 168 253 
sCEIL Abs 59515 HOE87B - 2725 


CLRFRC Ext - 2794 
=CLSTAT Abs 56910 HODE4E - 73 
CLSTLP Abs 56917 #ODESS - 75 73 
CNFLCT Ext - 2985 
COLLAP Ext - 1017 


=CORR Rbs 58203 HOE35B - 1475 

CORR2 Abs 58319 HOE3CF - 1513 1511 

CORR3 Abs 58323 #0E3D3 - 1515 1296 1360 1424 1483 1486 1489 
CslcS ~~ Ext - 974 

BO=SRO Abs 57423 HOEOS4F - WO 148 194 473 

D1+21) «Abs 57454 HOEOGE - 312 170 243 «257 282 = 463 

D1-16 Abs 57730) #0E182 - 653 562 605 


DI=AVE Ext - +1645 

DI=SR1 Abs 57439 HOEOSF - 307 147 196 437 472 
DISTOR Ext - 1651 

DCHXF Ext - 1216 

DENTRY Abs 56953 #ODE79 - 140 30 

DEST Ext - 1639 


=DROP Abs 56889 #0DE39 - 28 
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DROPDC Ext - 26 
DROPP Ext = 27 
DVISS Ext - 1806 
EXPEXC Ext - 1024 


=FACISS Abs 59179 H0E72B - 2420 2604 
FACDEC Abs 59367 HOE7E7 - 2488 2482 2486 
FACISD Abs 59329 HOE7C1 - 2475 2471 
FACLLP Abs 59320 #OE7B8 - 2472 2474 
FACLSD Abs 59309 #OE7AD - 2468 2461 2466 
FACHLT Abs 59288 #0E798 - 2460 2491 2494 2496 
FACHSD Abs 59357 #OE7DD - 2485 2480 

=FACT Abs 59459 #06843 - 2603 
FACT2 Abs 59213 #OE74D - 24% 2427 
FACT9 Rbs 59347 #0E7D3 - 2481 2477 
FACTF Abs 59197 #OE73D - 2425 2421 
FACTOK Abs 59257 #0E779 - 2447 2440 
FBWVAR Abs 57528 HOEOB8 - 435 262 
FBWVR1 Abs 57568 #0E0EO - 446 465 
FBWVR2 Abs 57611 #0E10B- 460 449 
FBWVR3 Abs 57617 HOE111 - 462 458 


FBWVR4 Abs 57631 HOE1IF - 466 447 
FBWVRS Abs 57648 #0E130 - 472 467 
FCALGN Abs 59260 #0E77C - 2448 2451 
FCN-1 Abs 59424 #OE820 - 2507 2446 2503 

=FCSTRT Abs 59223 #0E757 - 2434 2431 
FCXTST Abs 59271 HOE?87 - 2452 2449 
FINITA Ext - 360 

=FLOOR Abs 59490 #OE862 - 2682 
FNPHDS Ext - 2420 
FNRTN1 Ext - 2365 
FNRTNG Ext - 1817 

=FP Abs 59473 #OE851 - 2642 
FRACIS Ext - 2643 


FSTMLT Abs 59445 #0E835 2563 2561 2565 


GETNSG Abs 57896 HOE228 - 973 176 813 
=GETSA Abs 58705 #OE551 - 1976 73° «140-1882 

GETSA1 Abs 58726 #0E566 - 1983 1979 

GETSA3 Abs 58758 HOE586 - 1996 

GETSA4 Abs 58767 HOES8F - 1999 2001 


GETSDO Abs 58698 #0E54A - 1975 1156 1404 1475 
GEXPAD Abs 59874 HOESE2 - 3362 3109 3160 3278 
GSCPTR Abs 59850 HOESCA - 3323 %98 3150 3268 
GTINSL Abs 58553 HOE4B9 - 1701 1413 1599 


I/OALL Ext - 373 
I/ODAL Ext me ees 
INFR1S Ext - 2425 
=INT Abs 59490 ROE862 - 2683 
INVNaN Ext - 1909 


=IP Ros 59540 #0E894 - 2767 
=IVRERR Abs 59680 #OE920 - 3058 1573 
IVARG = Ext - 123% 
IvP Ext - 812 
IVSOPR Abs 58677 #OE535 - 1912 1852 
IVSTAR Abs 58716 #OE55C - 1980 1984 1987 2004 2011 2014 
IVSTRT Abs 58663 #OE527 - 1873 1918 
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IVVRNB Abs 58034 #0E2B2 - 1226 1215 

=LR Abs 58364 HOE3FC - 1579 
LR1 Abs 58455 #OE457 - 1608 1576 
LRDC Ext - 1877 


LREND Abs 58549 #OE4B5 1658 1632 
LRIVAE Abs 58339 HOE3E3 - 1573 1584 1588 
LRP Ext - 1578 
LRSKIP Abs 58343 #0E3E7 - 1574 1600 
LRVRLP Abs 58480 HOE470 - 1622 1657 

=MAX Abs 59562 #OE8AR - 2846 

=MEAN Abs 58065 #OE2D1 - 1284 
MEANT «Abs 58068 HOE2D4 - 1285 1282 
NEAN3 Abs 58088 HOEZES - 1296 1289 1293 
MFERR = Ext - 474 

=MFERRO Abs 57640 #0E128 - 469 

=MIN Abs 59589 #OE8C5 - 2855 


MP15S Ext - 765 
MSARES Abs 57816 HOE1ID8 - 845 239 254 
MSN12 Ext ~ 1482 
NTHSTK Ext - 440 


AXENTR Abs 59595 HOE8CB - 2857 2848 
NNGFIN Abs 58686 HOESSE - 1915 1868 
NNGTAB Abs 58646 #06516 - 1867 188 1350 1850 


NOMEN Ext - 1103 
NXTSTM Ext So eg 
ORSB Ext - 744 
POPIN Ext - 2383 
POPIN+ Ext - 2261 
=POP1R Abs 59645 #HOE8FD - 2983 1213 2942 %35 
POP2N+ Ext - 2945 
POPNTH Ext - 1646 


POSTAB Abs 58636 HOESOC - 1849 184 1354 1498 1504 1803 
=PREDV Abs 58141 HOE31D - 1404 
PREDV1 Abs 58191 ROE34F - 1424 
PRINCC Abs 58696 #0E548 - 1919 1870 1872 1916 
PTRCDV Abs 58618 HOES4FA - 1803 1357 1708 
PTSEED Abs 59048 HOE6R8 - 2281 2265 
=RANDOM Abs 58966 #OE656 - 2255 
RANDP Ext - 2254 
RCCDIX Ext - 165 281 849 
=RCL* Abs 59779 #OE983 - 3265 3286 3288 
=RCLW1 =Abs 59777 #0E981 - 3264 1063 1421 1509 1714 1805 
=RCLW2 Abs 59838 HOESBE - 3285 1605 
=RCLW3 Abs 59844 HOE9C4 - 3287 1418 
=RCSCR Abs 59732 HOE954 - 3150 1506 1721 
RCSCR1 Abs 59748 ROE964 - 3155 3153 
RDI2ZDC Ext = “@ebg 
=RND Abs 59071 HOE6BF - 2335 
RND2 Abs 59116 HOEGBEC - 2344 2346 
RND3 Abs 59119 HOEGEF - 2345 2343 2349 
RNDN2 Abs 59014 #OE686 - 2268 2277 
RNDM3 Abs 59040 HOEGRO - 2278 2270 2273 2275 
RNDNF Rbs 59009 #OE681 - 2266 2260 
RNDAZD Rbs 58992 #O£670 - 2261 2256 
RNDSHF Abs 59149 #OE70D - 2356 2360 
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RNSEED Ext - 2281 2338 
=RPTNaN Abs 57808 HOEIDO - 817 169 
RSTDOsCExt - 1515 
RTNCC Ext - v2 
S-RO-O Ext - HO 368 
S-RO-1 Ext - 224 7 383 
S-RO-3 Ext - 438 
SAYDO Ext - 1975 
SAVESB Ext - 739 
=$B15S Abs 57754 HOE19R - 738 1722 
SCRPTR Ext - 3323 
SCRSTO Ext - 3325 


=SDEV Rbs 58095 HOEZEF - 1342 

SDEV2 Abs 58134 HOE316 - 1360 1346 

SGNPRD Rbs 58614 HOESF6 - 1763 1294 

SHFMLT Abs 59429 HOE825 - 2557 2479 2487 

SIGNAN Abs 58948 HOE644 - 2208 2206 

=SIGIST Abs 58934 #OE636 - 2203 

SPLITA Ext - 2201 

=SPLTAS Abs 57663 HOE13F - 515 157 280 519 
=SPLTAX Abs 58923 HOE62B - 2200 515 1228 2133 2943 
SQADD2 Abs 57104 HODF10 - 188 183 


SQRSAV Ext - 1359 1508 

ST&GTN Abs 58873 HOESF9 - 2134 1352 1763 

STAB1 = Ext - 278 847 

STABIX Ext = 163 

STATAR Ext - 2058 

STBRL1 Abs 57514 HOEORR - 382 380 

STBALL Abs 57462 #06076 - 367 141 

STFPRP Abs 57968 HOEZ70 - 1156 1285 1342 

STK16? Ext - 1100 

STNTO1 Ext - 926 932 

STOPOC Ext “ 71 

=STSCR Abs 59692 HOES2E - 3098 1026 1415 1494 1500 1704 1710 1717 
2134 

SUBONE Ext 2688 

SVTRC Ext 1637 

SWAPKY Ext 186 §=6248 


TBLTOT Abs 58879 #OESFF 2136 1290 1712 1719 

=TBLU Abs 58881 #OE601 2137 1492 2128 2131 

TBLU3 Abs 58890 HOE6GOA 2141 2139 

TBLU4 = Abs = 8896 HOEG1O - 2143 2146 

TBLUS Abs 58907 HOE6G1B - 2147 2144 

TEXPEX Abs 5795 HOEZ31 - 1017 28 4138 1679 2255 
TIMERS Ext - 2267 

=TOTAL Abs 58056 HOE2T8 - 1281 

TRUNC Abs 59162 HOE71A - 2361 2354 2357 

TSTi2A Ext - 2860 

UNORC Abs 59572 HOE8B4 - 2849 2863 

VAR=1 Abs 58019 HOEZA3 - 1220 1164 1217 

=VARNB- Abs 57997 #OE28D - 1214 1485 1488 

=VARNBR Abs 57993 HOE289 - 1213 1160 1583 1587 
XMNTEST Abs 57787 HOE1BB - 767 742 1807 

KYEX Ext - 2864 

ZATBLU Abs 58860 HOESEC - 2129 1348 1496 1502 1706 


' to eot g 
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ZEROS1 
ZEROS2 
ZTBLU 

ZTBLU+ 
addsub 
aornan 
argclf 
ave=d1 
bSTAT 

enflce 
cnflc3 
cnflct 
dvi5s 

eIVSAR 
elVSOP 
eIVSTA 
eSIGOP 
eUNORC 
expexc 
finita 
hdflt 

inynan 
ivarty 
nferr 

np15s 

nxtst1 
nxtstr 
outres 
outrs2 


popent+ 
pshstk 
rely 
rclui+ 
rtnece 
sSTAT 


splth+ 
stscr 
subone 
uNODES 
uRES12 
=uRESD1 
uriode+ 
uriodeH 
uresi2 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 


Rbs 
Abs 
Abs 
Abs 
Rbs 
Ext 


Abs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Rbs 
Abs 


57151 #ODF 3F 
57162 #ODF4R 
58855 #OE5E?7 
58849 #OESET 
57738 #0E18A 
58045 #OEZBD 
59548 #OE8SC 


58195 #0E353 
59065 #OE6B9 
59654 #OE906 
58626 #OE5SO2 


57927 #OE24?7 
59686 #OE926 


58669 #0E52D 
57605 #0£105 
57640 #0E128 
57779 #0E1B3 
56932 #ODE64 
57415 #05047 
58329 #OEIDS 
59544 #OE898 


59639 HOE8F7 
57947 #OE25B 
57943 #OE25?7 
57937 #OE251 
57794 #OEIC?2 


57659 #OE1 3B 
57933 #OE24D 
57735 #OE187 


57838 #OE1EE 
57884 #OE21C 
57880 #0E218 
57796 #OE1C4 


207 
211 
2127 
2125 
693 
12H” 
2793 
36? 
292 
1473 
2286 
2385 
1806 
1981 
468 
1874 
2208 
2850 
1024 
3060 
2259 
1909 
459 
470 
764 
81 
294 
1516 
2769 
2731 
2945 
1099 
1063 
1061 
770 
29 
1292 
475 
1026 
692 
939 
814 
925 
93? 
935 
812 


216 
214 


1702 
180 
1219 
2683 
1622 
378 
1478 
2262 
459 
250 


1913 


1638 
1214 


1914 
445 
177 
159 

76 
81 

2769 

2605 

2852 

1477 

1161 
179 
158 
768 
139 


164 
142 
1356 


264 
1158 
143 
931 
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263 
1224 
2725 


1473 
1513 


1867 
2209 
454 
381 
190 
1658 
2644 
2861 
2846 


181 
245 


182 


aa 
192 


517 
1481 


1516 


1227 
2767 


2286 


3036 
2851 


1982 
845 


2284 
2685 


2865 
2855 


283 
848 


819 
1603 


1574 
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2424 


2857 


1419 


2687 


692 


1701 
1601 


1507 


2689 


697 


2309 
1606 


1715 


2727 


1281 


#34 


4:01 ari 
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2729 


1284 
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Input Paraneters 
Source file nane is PM&STA:: MS 
Listing file nane is PM/STA:TI:ML::-1 
Object file name is PAZSTA: TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 x nh AN N & BBBB = PPPP 
2 x mn MA NN ON BS B 8B P 
3 % Min WN N 8&8 B BP P 
4 & nam NNW & BBBB = PPPP 
5 * Mh mM N NN &8&& BB P 
6 x h mM WN WN & & B BP 
7 x h om N N 8&& BBBB P 
8 * 
9 TITLE BEEP Module <831212.1529> 
10 OESF1 ABS #0E9F1 
1 
12 FOI JOTI IOI TTT TTT TO TTT 
13 TO IIR RJ JO JIT TOOK 
14 &k 
15 ** Nane: CLKSPD - Conpute CPU Clockspeed 
16 ak 
17 ** Category:  GENUTL 
18 xx 
19 ** Purpose: 
20 xm Deternine CPU clock speed for use in tine-dependent 
21 ak applications. 
22 ak 
23 &k Entry: 
24 lig None 
25 xx 
26 aK Exit: 
27 aK Clockspeed/16 in HEX stored in CSPEED. 
28 x P=0, 
29 ee Carry clear. 
” aK INTON. 
31 ak HEX rode. 
32 ak 
33 kk Calls: None 
34 ak 
35 *k Uses....... 
36 aK A,B,C{A],00,P 
37 ax 
38 ** Stk lvls: 0 
39 xx 
40 ** Detail: 
41 hk Clockspeed is accurate to about 500 hz. 
42 ae 
43 &* Algorithn: 
44 Look at nibble 1 of display driver tiner. 
45 ae Loop until kerchunk (1/512 sec tine boundary). 
46 hk (Since we determine kerchunk by looking at low nib 
4? ax only, kerchunk could not have occurred in middle 
48 aK of this read.) 
49 ax Execute 36-cycle counting loop for 32 kerchunks. 
50 a (1/16 seconds). 
51 ** Screen for false alarm (e.9., looking for 10H and 
52 aX having tiner kerchunk between reading nibs of 
53 kk 20H, resulting in misreading as 10H rather than 1FH). 
54 ak Compute clockspeed/16 as: 


55 ke 36*[loop counter) - 19. 
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56 

5? 

58 

59 

60 

61 

62 

63 

64 

65 

66 OE9F1 04 
67 OESF3 20 
68 OESFS Di 
69 OFSF? 114 
70 OESFA DO 
71 OESFC 104 
72 OESFF 1B00 

000 
73 OERO6 808F 
74 OEAOR 148A 
75 OEROD 14E 
76 OER10 902 
77 OEA13 AF 
78 OER15 14E 
79 OER18 21 
80 OERIA AOE 
81 OERID AOE 
82 OEAZ0 B35 
83 OEFAZ3 14A 
84 OEA26 966 
85 OEA29 7F 
86 OEAZB DO 
87? OER2D B35 
88 OER30 147A 
89 OEA33 966 
% OER36 AE 
91 QER38 8080 
92 OEASC 114 
93 OER3F SAC 
94 OER42 FA 
95 OER44 20 
96 OFR46 C5 
97 OER48 D4 
98 OER4AA FO 
99 OERAC C5 
100 OER4E CO 
101 OER5O De 
102 OEA52 3131 
103 OER56 ER 
104 OER58 1800 
000 

105 OERSF 140 
106 OERG2 03 
107 
108 
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wk 
** History: 
ak 
RK Date Progranner Modification 
PE cheese Sete tie oe ee ote ates 
ke 05/19/82 NN Added docunentation 
kK 02/23/83 NN Snpl int to 1/16; write to CSPEED 
ke 


FOI TIO IIIT TOTTI 
SORORITIES IO 


=CLKSPD SETHEX 


P= 0 
B=0 A Counter 
A=R4 
A=0 A 
R4=A R4[R}=0 
DO=(5) =TIMER2 
INTOFF 
A=DATO B Read lower 2 nibs of tiner 
CLKS10 C=DATO B Wait until kerchunk 
PA=C OP Kchunk? 
GOYES CLKS10 Not yet--7 cycles if fall through 
C=DATO B In case kchunk in Ist digit--15 c 
P= 1 Scan for another kerchunk--2 cycs 
C=C-1 P Tine in 1/32 secs--4 cycles 
C=C-1 P Tine in 1/16 secs--4 cycles 
CLKS20 B=B+1 xX Inc counter--6 cycles 
A=DATO B Read tiner again--15 cycles 
RHC OB Kerchunk again?--15 cycs if not 
GOYES CLKS20 Fall thru 1/32 secs after ?a=c 
A= A Kill 7 cycles 
B=B+1 XxX Duplicate above loop--6 cycles 
A=DATO B Read tiner again--15 cycles 
AHC OB False alarn?--15 if yes 
GOYES CLKS20 
INTON B <= FFF 
A=R4 Will look at R4[A] 
PAHO OA Did we interrupt? 
GOYES CLKSPD Yes. Recorpute. 
= 0 
B=B+B A 
A=B A 2*B 
ASL A 20*8 
B=B+B A 4*B 
A=A+B A 24%8 
C= A 
LCHEX 13 
A=A-C A 24*B-13 (HEX) 
DO=(5) =CSPEED 
DATO=A A 
RTNCC 


JO OI ICI OO OOOO ICICI IO IO OIC IOI III IOK 
SOR IOOOI IS  OO OIOIOIIO 
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109 xx 
110 - Nane:(S) BEEP - BEEP Keyboard Execute 
114 % 
112 ** Category: STEXEC 
113 ae 
114 ** Purpose: 
115 KK BEEP, BEEP ON and BEEP OFF connands fron BASIC. 
116 xk 
117 ** Entry: 
118 ae Juriped on BEEP token. 
119 ae 
120 KK Exit: 
124 ak If nornal exit, NXTSTM. 
122 ie eDATTY if provided complex argunent(s). 
123 
124 *k Calls: BEEP: EXPEXC, POP1N, SFLAG?, BP. 
125 aK BEEP ON: SFLAGC. 
126 an BEEP OFF: SFLAGS. 
127 ah 
128 ** Detail: 
129 ak BEEP ON 
130 KK BEEP OFF 
131 xk BEEP [ frequency [ , duration ] } 
132 am 
133 ** Algorithn: 
134 ne If PC points at ON token, clear BEEP disable flag. 
435 mA If PC points at OFF token, set BEEP disable flag. 
136 aR Else call EXPEXC; 
13? aa If paraneters not supplied, use default frequency 
138 a of 500 hz and default duration of 0.25 sec. 
139 kk Call BP to perforn beep. 
140 ak 
141 ** History: 
142 aa 
143 ax Date Prograrimer Modification 
144 ME? eooteete, , iceeentoawe, dvbecesSuescclesasecomacueseeonue 
145 kk = 05/20/82 NM Added docunentation 

kk 
a FOO OOOO IR TOT OR TIO 
148 JOO ITI III TI TIS SII IASI ITI I ISI ISI SII IIIS SSS IIIT SIS TIS AS: 
149 OER64 0000 REL(S) =BEEPDC 

0 
150 OEA69 0000 REL(S) =BEEPP 
0 

151 OER6E 14A =BEEP A=DATO B Read next token 
152 OEA71 3100 LC(2) =tON 
153 OER75 962 7A=C OB Token is "QN"? 
154 OER78 AO GOYES LCFLB Yes. 
155 OEA7A B66 C=C+1 8B C=tOFF 
156 OEA7D 966 ARC OB Token is "OFF"? 
157 OEA80 C1 GOYES DOBEEP No. 
158 OEA82 3100 LCFLB LC(2) =f1BEEP LC Beep flag# 
159 OER86 4C0 GOC BPON Go if BEEP ON 
160 OEA89 8E00 GOSUBL =SFLAGS Set nobeep flag 


00 


161 OER8F 
162 OEA93 


163 OER99 
164 OEASC 
165 OEARO 
166 OEAR4 
167 SEAR? 
168 OEAAR 
169 OEARE 
170 OERBI 
171 OEAB4 
172 OERB7 
173 OERBA 
174 OERBD 
175 OEACO 
176 OEAC? 


177 OERC? 
178 OERCA 
179 OEACD 
180 OEACF 


181 OEAD? 
182 OEADB 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 


é 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
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6000 
8E00 
00 
SUF 
7000 
7000 
481 
101 
2000 
480 
119 
522 
111 
4FO 
AF2 
2E 
3250 
2 
AFA 
AF 2 
20 
3682 
0999 
7400 
63BF 
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NEXTST GOTO =NEXTst Done (to NXTSTN) 
BPON GOSUBL =SFLAGC Clear nobeep flag 
GONC = NEXTST B.E.T. 
DOBEEP GOSUB =EXPEXC Expression execute for beep call 
GOSUB =GETRG+ Get last argurient 
COC BEEP20 Go if no argurients 
R1=A Save last argunent 
GOSUB =GETRG+ Get next-to-last argunent 
GOC BEEP10 Go if only one argunent 
C=R1 This was last arg--duration 
GONC BEEP30 BEEP. B.E.T. 
BEEP1O A=R1 This was only arg--frequency 
COC BEEP25 Get default duration. 8.E.T. 
BEEP20 C=0 W Here if no args given 
P= 14 
LCHEX 205 Default frequency=500 
A=C W To A. Fall through to get dur. 
BEEP25 C=O W 
P= 13 
LCHEX 999025 Default duration=0.25 
BEEP GOSUB BP Do beep. 
GOTO  NEXTST Done 


JIU IDI AIO TOI TO II TST III IASI II II IIIT 
JO IIE III TOO ICC OC IIIT IT TTI 
ak 
** Nane: BP - Machine-level Beep 
** Nane: BP+ ~ Machine-level Beep 
**k Nane:(S) BP+C Machine-level Beep 
| Nane:(S) TONE Nachine-level Beep 
x 


** Category: GENUTL 
aK 


** Purpose: 

“ Perforn BEEP. 

aa 

Ae Entry: 

a BP: A = frequency in hz (floating point dec). 

kk C = duration in secs (floating point dec). 

ks 

xe BP+: A[A] = duration in risec (hex). 

KK D(A} = frequency in hz (hex). 

ax HEX rode. 

kk 

xk BP+C: C[A] = duration in msec (hex). 

aK D[A] = frequency in hz (hex). 

ax HEX node. 

ke 

aK TONE: C[X] = inner loop countdown constant. 

kk B[W] = outer loop countdown constant (# cycles). 
ak HEX node. 

ax (Bypasses check of beep flag, conputation of 


ze constants based on freq, duration and 
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213 ak clockspeed. ) 
214 aR 
215 ae 
216 aR Exit: 
217 aR HEX node. 
218 ak 
219 ** Calls: BP: RJUST, DCHXW, all BP+ calls. 
220 - BP+: CSLW5, CSRWS, IDIV, MPY, SFLAG?. 
221 
222 RE USES io veces 
223 ak A,B,C,0,00,P. 
224 ae 
225 Kk Stk lvls: 2 
226 aR 
227 kk Detail: 
228 an Maxinun duration is 1048.575 seconds (FFFFF msec). 
229 ax Maxinun frequency 1s deternined by clockspeed. At 
230 a 500 khz clockspeed, maxinun frequency is 6757 hz. 
231 
232 ** Algorithn: 
233 a Define: f = frequency 
234 aK t = duration in nsec 
235 te k1 = inner loop countdown constant 
236 = k2 = outer loop countdoun constant 
237 xh One beep cycle (one cycle of square wave) takes 
238 ia 32*k1+74 nachine cycles. The routine beeps for k2 beep 
239 aa cycles. 
240 ak ki=(clkspd/f-74) /32 
241 ak if k1<O0 then k1=0 
242 ae if k1oFFF then k1=FFF 
243 ak "=clkspd/(32*k1+74)  {conpute actual frequency} 
244 xk k2=f*t/1000 {conpute cycle count} 
245 eis Execute tone loop, using k1 to tine square waves 
246 ak and k2 to count tone cycles. 
247 ak 
248 *% History: 
249 A 
250 * Date Progranner Modification 
254 MM > Giswtose “Keeeweruas  weeccceedidee ser scecacsauetecuuseds 
252 05/20/82 NM Added docunentation 
oe SORORITIES TIO 
265 IIIS IDOI I III I IIIT ITI I IIIT TITS II III II II III II IIIS IIS IIS IIL IASI ISS. 
256 OERDF 04 =6P SE THEX 
257 OERE1 B26 C=C+1 XS 
258 OERE4 AZE C=C-1 XS 
259 OERE? 05 SETDEC 
260 OERES AF? D=C W Hold duration 
261 OEREC 4A1 GOC BPO3 Go if duration is funny nuriber 
262 OEREF 22 P= 2 
263 OEAF1 304 LCHEX 4 
264 OERF4 9A3 *D>C = XS Exponent negative? 
265 OERF? 70 GOYES BPO2 Yes... convert duration to msec 
266 OEAF9 923 *D=C) XS Exponent in range [400,499]? 


267 OERFC BO GOYES BPO3 Yes. Will oflo RJUST anynay. 





De 
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268 OEAFE 
269 OEBO1 
270 OEBO4 
271 OEBO? 


272 OEBOD 
273 OEBI0 
274 OEB14 
275 OEBI?7 
276 OEBIS9 
277 OEBIC 
278 OEBIE 
279 OEB21 
280 OFB24 
281 OEB2? 


282 OEB2D 
283 0EB30 
284 0EB34 
285 0£B37 
286 0EB39 
287 OEB3C 
288 OEB3E 
289 OEB40 
2390 OFB43 
291 OEB45 
292 OEB49 
293 OEB4C 
294 OEB4E 
295 OEBS0 
296 O£B54 


297 OEBSA 
298 OEBSD 


299 OF B64 
0 OEB6? 
1 OEB63 
2 OBB 
303 OEBGE 
X04 OEB71 
35 OEB74 
Wb OEB78 
307 OEB7A 
8 OEB?7D 
9 0EB81 
310 OEB84 
311 OEB8? 
312 OEB8A 
313 OEB8D 
314 OEB90 
315 OEB93 
316 OEB96 


26 


B37 = BPO2 
B3? 

B37 

8E00 §=BPO3 
00 


AF6 
7000 
AFO 
CC 
SF6 
50 
AFE 
AFF  BPOS 
AFA 
8EOO 
00 
AF6 
7000 
AFO 
CC 
SF6 
40 
06 =BP+ 
8AB =BP+C 
00 
7000 
AFF 
BS 
20 
3100 
8E00 
00 
400 
1800 
000 
RF2 
D9 
07 
AFO 
142 
BFO 
7000 
20 
AF2 
3166 
B7A 
550 
RFO 
BF4 = BP20 
B74 
8iC 
AF 2 
A3E 


317 OEB99 SFE 
318 OEBSC 46 


D=D+1 
D=D+1 
D=D+1 
GOSUBL 


C=A 
GOSUB 
A=0 
A=A-1 
AOC 
GOYES 
ACEX 
CDEX 
A=C 
GOSUBL 


C=A 
GOSUB 
AR=0 
A=A-1 
TAC 
GOYES 
C=A 
D=0 
RTNYES 
GOSUB 
CDEX 
B=C 

P= 
LC(2) 
GOSUBL 


RTNC 
bo=(5) 


Or-vVveorweo 
x» 
— 
o 


= 
ca 


no 


pornounvnoeoamrnneaAHe 
fueny 


DEpDre-ovugqwDwDwDITIeam 
PZPTSO 
On 


Dw 
i ow 
xD x 
+ 
— 


ASRB 


oO 
© 


C=C-1 
?Ro=C 
GOYES 
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R 
R 
K 
=RJUST 


W 
=DCHAW 


=RJUST 


W 
=DCHXW 


=CSLW5 
W 

A 

0 

=f 1BEEP 
=SF LAG? 


=CSPEED 


reDewwve 


IDIV 


Berewoneexecor 
m8 
o 


orxe 
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Convert duration to msec. 


Duration in nsec 
Unfloat freq (error if nan) 


To hex 


Frequency < FFFFF? 
Yes 
No, use FFFFF 


Unfloat duration 


To hex 


Duration < FFFFF? 
Yes. Else use FFFFF. 


Beep 0? 

Yes. do nothing. 
Duration to C[9-5] 
Duration to D[9-5] 
Frequency to B[A} 


Test nobeep flag 


Return if set 


C(Wj=frequency 
D[A)=frequency 


A(Wj=clkspeed 
Clkspeed/frequency 


Clkspeed/freq - 102 

Go 1f > max frequency 
Minirtun countdown const * 32 
{16 

For rounding 

Countdown constant 


C=0000000000000F FF 
Result > max countdown const? 
Yes, use FFF 
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319 OEBSE D6 
320 OEBRO D7 
321 OEBR2 29 
322 OEBA4 AIB 
323 OEBA? 7000 
324 OEBRB AFO 
325 OEBRE 142 
326 OEBB1 BFO 
327 OEBB4 7000 
328 OEBB8 AF2 
329 OEBBB 0B 
330 OEBBD F2 
331 OEBBF AFS 
332 OEBC2 81E 
333 OEFBCS C1 
334 OEBC? 81E 
335 OEBCA F2 
336 OEBCC BF2 
337 OEBCF B71 
338 OEBD2 BF1 
339 OEBDS 20 
340 OEBD? 3583 
7000 
341 OEBDF B79 
342 OEBE2 7000 
343 OEBE6 AF8 
344 OEBE9 DB 
345 OEBEB 7000 
346 OEBEF AF? 
347 OEBF2 20 
348 OEBF4 3100 
349 OEBF8 8EOO 
00 
350 OEBFE AFB 
351 OEFCO1 7000 
352 OECOS AFD 
353 OFCO8 AF? 
354 OECOB 32F0 
0 
355 OEC10 28 
356 OEC12 540 
357 OEC15 24 
358 OEC17 ACI 
359 OEC1A 860 
360 OECID 80 
361 OECIF 840 
362 
363 OEC2Z22 A4D 
364 OEC25 80F2 
366 OEC29 870 
366 OEC2C F1 
367 OEC2ZE 801 
368 OFC31 RB4 
369 OFC34 A3C 
370 OEC37 SCF 


BPH 


=TONE 


TONEO1 


TONEOS 
TONE 10 


TONE2O 


Oonw 


oOo ww wb it 


DOr vce 
Oo 
C= 
oo 


LC(2) 
GOSUBL 


C=D 
GOSUB 
BCEX 
D=C 
LCHEX 


P= 
GONC 
p= 
B=0 
?ST=0 
GOYES 
ST=0 


B=8-1 
CPEX 
?ST=1 
GOYES 
QUT=C 
A=B 
A=A-1 
GONC 


BEEP Module <831212.1529> 


rwownnp 


oo 


SRW5 


=x 
2 
< 


_ 
o 
— 
< 


CSLWS5 


ornpDerere MOorrerrn »D EewDwvrorov owen 


=f 1BPLD 
=SFLAG? 


W 
=CSRW5 
W 

W 

OOF 


8 
TONEO1 
4 

S 
=Except 
TONEOS 
=Except 


S 

2 
=Except 
TONESS 


x 
x 
TONE2O 
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No, use result. 
Hold inner countdoun constant. 


C(15-10] already clear 
Duration to C{A] 


Clkspd/16 
Cikspd 
Duration * Clkspd 


Inner loop countdown constant 
*410H 


*8H 
*18H 


*400H 
*(-3E8H) 
*(-3E80H) 


*16000+51000 
Outer loop countdown constant 
Hold 


Get inner loop const out of way 
Hold 


Beep loud? 


Recover inner loop constant 
To B{X] 
Outer loop constant to D 


Go if quiet beep 


Clear Exception flag for beep 
(Only ATTN nay set within beep) 
B[S]=F iff Exception flag set 


Start of beep loop. attn? 
No--7 cycles if fall through 
Beeper on--6 

6 
6*(k+1) 
10*k+3 


(k is countdoun const} 
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371 OEC3A 80F2 

372 OEC3E CF 

373 OEC40 58E 

374 

375 

376 

377 

378 

379 

380 

381 

382 OEC43 D3 

383 OFC45 A7F 

384 OEC48 SOE 

385 

386 

387 

388 OEC4B 949 

389 OEC4E 50 

390 OEC5O 850 

391 OECS3 8000 
000 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 OECSA De 
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CPEX 2 Toggle beeper--6 
D=D-1 A More cycles?--? 
GONC  TONE10 Yes--10 


k 
; total period tine (on & off) = 32*k+102 cycles 


* Only checked D[A] field for cycle counter for speed. 
* In the bizarre range in which the cycle count can be 
* greater than FFFFF, the following code will continue 
: the loop with a brief hiccough every 100000H cycles. 


D=0 A 
D=D-1 W 
GONC TONE10 


k 
* END HICCOUGH 
k 


TONES9 *7B=0) = § 

GOYES TON9S99 

ST=1  =Except Restore Exception flag. 
TONS99 GOVLNG =EXITBP 


he 
SOT UIT TI II ION 
FOTO IIIT TI TET TTI TI IIT IIIT TTI IK 
ak 


re Narie:(S) CHIRP - Do An Annoying Little Beep 
k 


** Category:  GENUTL 
ak 

kk Purpose: 

a Quick, high-pitched beep for errors and whatever. 
ik 

xk Entry: 

xe HEX rode. 

ik 

AP ERD te 

ak HEX trode. 

ik 


&k Calls: BP+C (falls through). 
ak 

kk Uses....... 

iy A,B,C,D,P,DO. 

ak 


RK Stk Ivis:s 2 
ae 


** History: 
ah 


ae Date Progranrer Modification 
TiS Sees “wees seee edie Setene sees vet eu eae neecete 


kK 08/02/83 NT Added docunentation 

aK 
SUIT ISU IEG II OTITIS TO TTT 
JOGO I TOIT OO TTT 


=CHIRP (C=0 A 
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425 OECSC 20 
426 OECSE 3287 

5 
427 OFC63 D7 
428 OFCE5 3284 

0 
429 OEC6A 65DE 
4% OECGE 
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P= 0 
LC(3) 1400 


D=C A 
LC(3) 75 


GOTO = BP+C 
END 


Fri Dec 30, 1983 


1400 hz 


75 millisecs 


3:34 an 


Page 


9 
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=BEEP Abs 60014 HOERGE - 151 

BEEP10 Abs 60087 HOEAB? - 172 #169 

BEEP20 Abs 60093 HOERBD - 174 #166 

BEEP25 Abs 60106 HOEACR - 178 173 

BEEP30 Abs 60119 HOEAD7 - 181 171 

BEEPDC Ext - 149 

BEEPP = Ext - 150 

=BP Abs 60127 HOEADF - 256 181 


=BP+ Abs 60222 HOEBSE - 288 

=BP+C fibs 60224 HOEB40 - 289 287 429 
BPO? Abs 60158 HOEAFE - 268 265 

BPO3 Abs 60167 HOEBO? - 271 261 267 
BPOS Abs 60193 HOEB21 - 279 277 

BP20 Abs 60298 HOEB8A - 312 310 

BP30 Abs 60320 HOEBRO - 320 318 

BPON Abs 60051 H0EA93 - 162 159 


=CHIRP Abs 60506 #0ECSA 424 

CLKS10 Abs 59917 HOEAROD - 75 a7 
CLKS20 Abs 59936 #OEA20 - 82 85 90 
=CLKSPD Abs 59889 HOESF1 - 66 94 

CSLWS = Ext - 291 345 
CSPEED Ext - 104 298 

CSRWS = Ext - 323 351 

DCHXW = Ext - 273 283 
DOBEEP Abs 60060 HOEASC - 164 157 
EXITBP Ext - 391 

EXPEXC Ext - 164 

Except Ext - 359 361 365 3% 
GETRG+ Ext - 165 168 

IDIV Ext - 305 2 

LCFLB Abs 60034 HOER82 - 158 154 

NPY Ext - 327 

NEXTST Abs 60047 HOER8F - 161 163 182 
NEXTst Ext - 161 

RJUST Ext - 271 281 
SFLAG? Ext - 296 349 
SFLAGC Ext - 162 

SFLAGS Ext - 160 

TIMER2 Ext 7 72 


TONSSS Abs 60499 #0E(53 - 391 389 
=TONE Abs 60395 H0EBEB - 345 

TONEO1 Abs 60439 HOECI7 - 358 356 
TONEOS Abs 60453 #OEC25 - 364 360 
TONE10 Abs 60457 HOEC29 - 365 373 384 
TONE2ZO Abs 60468 HOET34 - 369 370 
TONESS Abs 60491 HOEC4B - 388 366 
FIBEEP Ext - 158 295 
fFIBPLD Ext - 348 

tON Ext ~ Phe 
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Input Paraneters 
Source file nare 1s MN&BP:: NS 
Listing file narne 1s MN/BP: TI:ML::-1 
Object file name 1s MNZBP:TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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& 
& 
& 

& 

& & 


& 
8& &  UUU 


Qe Ho 
cccccec 


pe 90 


N ON 
N ON 
NN ON 
NNN 
N NN 
N ON 
N ON 


TITLE Miscellaneous Utilities<831216.1456> 
OEC6E RBS #OECGE 


ee OF OF OF OF Ot OF 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 


1 
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11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
24 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
G2 OEC6E AFI 
53 OEC71 D8 
54 0E(73 AFA 
55 0EC76 DS 
56 OEC78 AFS 
57 
58 
59 
60 
61 
62 
63 
64 
65 


STITLE IDIV, NPY and HEX/DEC conversions 
JO III III IIIS ITO GI I IIT TT IIIT II TK 


FOO JOU OTT TI TTT I ITI ITN 
ax 


** Narie:(S) IDIVA - A-field Integer Divide 
aR 

** Category:  MTHUTL 

a 

** Purpose: 

aS Conpute A/C, A nod C. 

kh 

** Entry: 

as HEX or DEC mode according to argunents. 
aR Dividend in A[A], divisor in C[A]. 

xe 

BEE uit: 

= Quotient in AW]. 

xk Rerainder in B[W],C(W]. 

aR Mode preserved 

as P=15, 

ak Carry clear. 

hh 

** Calls: IDIV (falls through). 

a 

Be USES icin es 

aS A,B,C,P 

ok 

*X Stk lvls: 0 

tok 

** Algorithn: 

a Zero out nibs 5-15 of A and C. 

xe IDIV. 

ak 

** History: 

ks 

xx “Date Prograriner Modification 
RAs ceteris, eh bk Cals ue oi ee ea eae 
XX 06/22/82 = NM Added docurentation 
ak 


SOI OI OT I OOOO TI TOI OIC 
ORI TORO IIT TTT ETI ITT TAK 


=IDIVA B=0 W 
B=A A 
A=B W 
B=C A 
C=B 


Fall sees) ta IDIV 
TOO RRO OOOO OOO ORI ISI OIC TOak 


UII JOO OOOO IO OIG III OI OO IOI IK 
aX 


** Narie:(S) IDIV - Full Word Integer Divide. 
a 


** Category:  MTHUTL 
kh 


** Purpose: 
xe Perform HEX or DEC integer divide. 
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66 xx 

67 ** Entry: 

68 ole HEX or DEC node according to argunents. 

69 aS Dividend in A, 

70 AK Divisor in C. 

71 ak 

72 RX Exit: 

73 ak Quotient in A, 

74 ak Renainder in B and C. 

75 Re Mode preserved. 

76 ak P=15, 

77 ak Carry clear. 

78 xk 

79 *k Calls: None. 

80 th 

81 BR Uses... ...06 

82 aa A,B,C,P. 

83 ak 

84 *k Stk Ivls: 0 

&5 ak 

86 ** NOTE: 

8? aK No provision is made if called with denoninator = 0. 
88 ae This code will get stuck in an infinite loop. CAVEAT 
89 ak EMPTOR. 

ev) bh 

91 ** Algorithn: 

92 se Align divisor with dividend, with P pointing at 1’s 
93 as digit of divisor. 

94 a Divisor to B. Clear A for result. 

95 ek 1: While BoC do begin B=B-C W, A=A+1 P end 

96 = CSR W, P=P-1. If P wasn’t zero, goto 1. 

97 ak 

98 ** History: 

99 ah 
100 ax Date Prograrner Modification 
101 KR obestocee” ~atostosloss. Nescceecccectoce cucceSc esc ee ecu ses 
102 . 05/20/82 NN Added docunentation 
ne JIS CCI I II IIIS I SII IIIA SSIS IIS I SIA II IIIA 
105 SI II IKI I IKI IIIT IIT ISI ITIL ITI III ITSISIISIISISSI SI SISSIES OASIS SII IS: 
106 * FALL THROUGH FROM ABOVE! ! 
107 OEC7B 20 «==IDIV P= 0 Find digit to start divide 
108 OEC7D 94E IDIVI ?C#O0) = 6§ Flow to last dig? 
109 OEC80 FO GOYES IDIV2 
110 OEC82 SFA eAc=C OW 
111 OEC85 AO GOYES IDIV2 Ready to divide? 
112 OEC8?7 BF2 CSL W No, sl denorinator 
113 OECBA OC P=P+1 
114 OEC8C SOF GONC IDIVI1 I hope this never carries 

115 OEC8F AF&8 IDIV2 B=A W Nurierator to b 

116 OEC92 AFO A=0 W 

117 OEC95 AOC A=A-1 P 

118 OEC98 BO4 IDIV3 A=A+1 P Inc digit of quotient 

119 OECSB B71 IDIV4 B=B-C UW Dividend-divisor. borrou? 
120 OECSE 59F GONC IDIV3 No 
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121 OECAT A741 B=B+C W Yes, restore dividend. 
122 OECR4 OD P=P-1 End of integer divide? 
123 OECAG 403 GOC MPY40 Yes. 
124 OECAS BF6 CSR W No, sr divisor 
125 OECAC SEE GONC IDIV4 Bet 
126 JU IG IG IGE OC C OTTOR 
127 JOTI OCC EC TTT IIIT TTI 
128 RK 
129 kk Narie:(S) HXDCW - Hex To Decinal Conversion 
130 - Narie:(S) HEXDEC - Hex To Decinal Conversion 
131 x 
132 *k Category: CONVRT 
133 Rk 
134 *k Purpose: 
135 ve Convert a full-word HEX# or an A-field HEX # to a DECK. 
136 
13? ek Entry: 
138 *k — HEXDEC: Argunent in ALA}. 
139 ek HXDCH: Argument in C[W] (HEX). 
140 Kk Node doesn’t natter. 
141 ak 
142 ak Exit: 
143 aK Result in A,B,C (DEC). 
144 Rk DEC node. 
145 ak Carry clear. 
146 ak P unaffected. 
147 ak 
148 ** Calls: NPY (falls through) 
143 aK 
150 RK Uses... ...e. 
151 RK A,B,C 
152 aK 
153 KE Stk lvls: 0 
154 ak 
155 *k Algorithn: 
156 tk HEXDEC: C=O W, C=A A 
157 Kk HXDCW: == R=000000000000000 1 
158 ak SETDEC 
159 ne Fall through to MPY for mixed-node multiply. 
160 | kk 
161 kk History: 
162 kk 
163 ax Date Prograrner Modification 
164 BR. Saeee ele) weet: ~ Be abiee soo Sel eee ee cee cecal 
165 k= 06/03/82 = NN Added docunentation 
166 ee 10/15/82 SA Added HEXDEC entry point 
xk 
i JOSIE GOUT 
169 (GIGI IOI ITSO CIO IU IGE OIC 
170 OECAF AF2 =HEXDEC C=0 W 
171 OECB2 D6 C=A A 
172 OECB4 AFO =HXDCW A=0 W 
173 OECB? £4 R=A+1 A A=1 
174 OECBS 05 SETDEC 


175 FORO IOUT TIT ROTI 
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: 176 eStetesetetttectteetetseteritetsesetitettttstettetetttteettets. 

177 ax 

178 ** Wane: (S$) MPY ~ HEX * HEX Or HEX * DEC Multiply. 

179 as 

180 ** Category: MTHUTL 

181 ak 

182 *% Purpose: 

183 . Perforn HEX node or mixed mode full word rultiply. 
184 
185 Rk Entry: 

186 a If HEX * HEX nultiply: 

187 ak Mode = HEX. 

188 a% Argunents in A and C. 

189 a 

19 ax If HEX * DEC multiply: 

191 ak Mode = DEC. 

192 ax Hex argunent in C. 

193 ax Dec argunent in A. 

194 a 

195 AX Exit: 

196 ak If HEX * HEX multiply: HEX result in A,B,C. 

197 ak If HEX * DEC multiply: DEC result in A,B,C. 

198 ak Mode preserved. 

199 wk Carry clear. 

200 ax P unaffected. 

201 a 

202 *x Calls: None. 

203 ak 

204 **x Uses....... 

205 x A,B,C. 

206 2 

207 ** Stk lvls: 0 

208 

209 ax NOTE: 

210 mn This routine provides a handy HEX to DEC conversion. 

211 as Perforning a tixed-node multiply with the hex argurent 

212 aK in €C and a 0000000000000001 1n A produces a DEC result 

213 Re in C. 

214 * 

215 *X Algorithn: 

216 aa Clear result (B). 

217 ae 1: CSRB. ; 

218 ax If low bit was clear, goto 2. 

219 ax Add A to result. 

220 a 2: Double A. 

221 7 If C#O goto 1. 

222 RR Copy result to A and C. 

223 a 

224 ** History: 

225 ae 

226 sg Date Progranner Modification 

227 Bs leet ue tas, , Ae Mees eS te tie Le Se 

228 kx 05/20/82 NM Added docunentation 

229 kk 40/15/82 = SA Leaves result in A also. 


230 nk 
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231 JOIST II OCI III IIS OT I IIIS TITAS IIIT IK 
232 III IOI IT ISI ITI I III II IIIT I ST OI SI SSI SSI SSS OSI III III II ISOS I SSS ISK 
233 OECBB AF1 =MPY B=0 W Clear for result 
234 OECBE 822 NMPY10 SB=0 
235 OECC1 Si1E CSRB Srb rultiplier 
236 OECC4 832 ?SB=0 Shifted off digit? 

237 OECC? 50 GOYES MPY20 No 

238 OECCI A78 B=B+R W Yes, increnent product by a 
239 OECCC A74 = =MPY2O A=AHR OW Double argunent in a 

240 OECCF 97E CHO OW Any nore digits in nultiplier? 
241 OECD2 CE GOYES MPY10 Yes 

242 OECD4 AF4 NMPY3O0 AB W No, result to A 

243 OECD? AF9 MPY40 C=B W 

244 OECDR 03 RTNCC 

245 JI I IU OCI IIIS TOOT OTIS TOT TTS SIA SIO TIS SS I IIH 
246 JU OI OI SIS SI OOS OOOO SOC SOT SIS IS IOC IO I SII 
247 ak 

248 ** Narie:(S) DCHXW - Full Word Decinal To Hex Conversion 
249 a 

250 ** Category: CONVRT 

251 gi 

252 ** Purpose: 

253 ax Convert full-word DEC to full-word HEX nunber. 

254 ax 

255 ** Entry: 

256 aie Argunent in C. 

257 aK Mode doesn’t natter. 

258 a 

259 ** Exit: 

260 ae Result in A, B and C. 

261 x HEX node. 

262 ax Carry clear. 

263 Am P=0, 

264 ax 

265 ** Calls: None. 

266 i 

267 k* Uses....... 

268 Ex A,B,C,P. 

269 a 

270 ** Stk lvls: 0 

271 tik 

272 ** Algorithm: 

273 ah Clear register for result. 

274 a For g=15 downto 0 do 

275 a begin 

276 aia Multiply result by 10. 

c?7 *P Add digit #q of argunent to result 

278 ae end. 

279 a 

280 ** History: 

281 ‘ 

282 a Date Progranner Modification 

283 MH eG ets, Spe eebas dee eos oe mena cae eed od ce, 
284 ** 06/03/82 = NN Added docunentation 


285 te 
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286 JO ISI UI IOI IO IO IOI OIC TI Tk 
287 SOOO O UG UTO TT O TIT IIT IT AS 
288 OECDC 04 =DCHXW SETHEX 
289 OECDE 20 P= 0 
290 OECEO AF1 B=0 W For result 
291 OECE3 AFO DECHIO A=0 W 
292 OECE6 ACA A=C S$ 
293 OECED 810 ASLC 
294 OECEC BF2 CSL *) 

295 OECEF A78 B=B+A W Add digit 
296 OECF2 OC P=P44 

297 OECF4 4FD COC MPY3O Go if done 
298 OECF7 A75 B=B8+B W 

299 OECFA AF4 A=B W 

XO OECFD A75 B=B+B W 

1 OEDOO A75 B=B+B W 

#2 OEDO3 A78 B=A+B ld 

33 OEDO6 SCDF GOTO  DECHIO 
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4 STITLE Register shifts 
305 JIU IID OUI IO TO ITT I ITA TI IT IT IH 
6 JO IOI CII IO IO OOO II TT TORTI IT 
07 xx 
8 *k Nane:(S) ASRW3  - Shift A Right 3 Nibbles 
9 ** Nane:(S) ASRW4 - Shift A Right 4 Nibbles 
310 ** Nane:(S) ASRWS - Shift A Right 5 Nibbles 
311 **K Nane:(S) ASLW3 - Shift A Left 3 Nibbles 
312 **k Nane:(S) ASLW4 - Shift A Left 4 Nibbles 
313 kk Nane:(S) ASLWS - Shift A Left 5 Nibbles 
314 ** Nane:(S) CSRW3  - Shift C Right 3 Nibbles 
315 ** Nane:(S) CSRW4 - Shift C Right 4 Nibbles 
316 *k Nane:(S) CSRW5 - Shift C Right 5 Nibbles 
317 *k Nane:(S) CSLW3 - Shift C Left 3 Nibbles 
318 kk Nane:(S) CSLW4 - Shift C Left 4 Nibbles 
319 ** Nane:(S) CSLW5 - Shift C Left 5 Nibbles 
320 xx 
321 ** Category:  GENUTL 
322 ax 
323 ** Purpose: 
324 xR (SL or SR) (A or C) (3, 4 or 5) tines. 
325 xk 
326 *k Entry: 
32? ax Yes. 
328 a 
329 KX Exit: 
330 ue xSdWn: Register x shifted direction dn tines. 
331 ax Carry and pointer unaffected. 
332 a 
333 Ak Calls: None. 
334 x 
335 Kk Uses....... 
336 a Register x (above, Exit conditions). 
337 Ke 
338 ek Stk lvls: 0 
339 es 
340 ** History: 
341 a 
42 me Date Progranner Modification 
343 HRs EP rcuwe. . Saeoewoweey - wlkoesaeAoes nuk Wacnaeceuashaneeeaae 
344 *k 06/23/82 = NM Added docunentation 
345 xx 
346 JOGOS IIIT IS IEC EIEIO IT TIT RTI 
347 JOO ICIS OIG IEISISUI IIIS ICI TE RII IK 
348 OEDOR BF4 =ASRWS ASR W 
349 OEDOD BF4 =ASRW4 ASR W 
350 OED10 BF4 =ASRW3 ASR W 
351 O€013 BF4 ASR W 
352 OED16 BF4 ASR W 
353 OED19 01 RTN 
354 OEDIB BFO =ASLWS ASL W 
355 OEDIE BFO =ASLIWA ASL W 
356 OED21 BFO =ASLW3 ASL W 
357 0£D24 BFO ASL W 
358 OED27 BFO ASL W 
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359 OED2AR 01 RTN 
360 OED2C BF6 =CSRWS CSR UU 
361 OED2F BF6 =CSRWA CSR UW 
362 O£D32 BF6 =CSRW3 CSR W 
363 OED35 BF6 CSR W 
364 OED38 BFE CSR OW 

365 OED3B 01 . RIN 
366 OED3D BF2 =CSLWS CSL UW 
367 OED40 BF2 =CSLWA CSL WN 
368 OFED43 BF2 =CSLW3 CSL WwW 
369 OED46 BF2 CSL WwW 
370 O£D49 BF2 CSL) OW 


371 OED4AC 01 RTN 
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372 

373 = 
374 AS 
375 ae 
376 a 
377 a 
378 - 
379 = 
380 ae 
381 a 
382 a 
383 a2 
384 ae 
385 is 
386 A 
387 is 
388 ae 
389 ae 
390 a 
331 an 
392 sa 
393 a 
394 = 
395 * 
396 am 
39? aA 
398 xe 
399 aS 
400 at 
401 xk 
402 aa 
403 ay 
404 a 
405 Re 
406 aK 
407 xr 
408 = 
409 a 
410 a 
411 oa 
412 ae 
413 a“ 
414 OED4E 0000 

0 
415 0ED53 0000 
0 


416 OED58 7782 
417 OEDSC 7611 
418 OE€D60 8£00 
00 
419 OED66 978 
420 O€D69 DS 
421 OED6B 304 
422 OED6GE 8E00 
00 


STITLE WAIT 
JOGO IOC I TIT TI TT TIE IIIT T ISK 


FOOT TTT ITT ITN 


Nane: WAIT - WAIT Execute 
Category:  STEXEC 


Purpose: 
Execute WAIT statenent. 


Entry: 
Junped on WAIT token. 


Exit: 
NXTSTM. 
eIVARG if WRIT NaN. 


Calls: EXPEXC, POPIN, SECZ2TK, SETALR, LSLEEP, ALNSRV, 
CKSREQ 


Detail: 
WRIT <duration> 


Algorithn: 
If interval negative, GOVLNG NXTSTN. 
Convert expression to hex 512ths of a second. 
Schedule alarn #5 using relative alarm set (SETALR). 


1: If alarn #5 tined out, GOVLNG NXTSTM. 
If ATTN flag set, GOVLNG NXTSTM. 
Sleep. 
CKSREQ. 
GOTO 1. 
History: 
Date Progranrer Modification 
06/04/82 NN Added docunentation 


OURO IO TOOT ITT K 
FOR OUT OTT TTT TK 


REL(5) =WAITd 
REL(S) =WAITP 


=WAIT GOSUB expexc Canpute paraneter 
GOSUB GETRG+ Fetch it 
GOSUBL =SEC2TK Ta hex ticks 
7A=0 6 Wait = 07 
GOYES NEXTST Yes. no wait. 
LCHEX 4 Alarn# of pause 
GOSUBL =SETALR Schedule wait alarn 
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423 OED74 8E0O WAITIO GOSUBL =ALNSRV Check alarn 
00 
424 OED7A 874 *ST=1 4 WAIT alarn expired? 
425 O€D7D 94 GOYES NEXTST Yes. 
426 OED7F 1F0O D1=(5) =ATNFLG No, check ATIN flag. 
000 
42? OED86 1570 C=DAT1 P 
428 OED8A IE CHO | OP Attn flag set? 
429 OED8D 93 GOYES NEXTST Yes. NXTSTN. 
430 OED8F 8FOO GOSBVL =LSLEEP Go to sleep 
000 
431 OFD96 8FOO GOSBVL =CKSREQ 


000 
432 OED9D 660F GOTO WAITIO Back to check for wait alarn 
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433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
45? 
458 
459 
460 
461 
462 
463 
464 
465 


466 OEDA1 0000 
0 
467 OEDAG 9000 


468 OEDAB 15A1 
469 OEDAF 8£00 


470 OEDBS SAO 
471 OEDB8 7010 
472 OEDBC 6900 
473 OEDCO 8E00 


474 
475 OEDCE 


476 OEDC6 8C00 


477 
478 
473 
480 
431 
482 


0 


00 


00 


00 
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STITLE Reset statenent and CSTRST 
JO II ITI OOO OI TIO I IIE 


JIC OI TEI TRIE IK 
ak 


xx Nane: RESET - Execute RESET Statenent 

ka 

** Category:  STEXEC 

aa 

** Purpose: 

aK Execute RESET [CLOCK] statenent. 

ak 

aX Entry: 

ak DO = PC. 

aX Junped on RESET token. 

th 

ek Exit: 

a Through NXTSTH. 

ae 

** Calls: eolxck, CSTRST (if reset), RESETC (if reset 
a clock). 

ak 

** Detail: 

ae RESET (resets flags and traps to coldstart values) 
aK RESET CLOCK (clears exact flag and sets AF=0) 

ka 

xk History: 

ah 

- Date Progranner Modification 

She eee ls eee ee tee uo oot sete eeeeeweneee 
ak 09/21/82 = NM Added docunentation 

ak 


FOO IOI TTT TOR TTT TIT IIT ITT TID II TT ITN 
FOOT OTT TT TTT TTT TTT IT TTI II IIIT 


REL(5) =RESETd 
REL(5) =RESETp 


=RESET A=DATO 2 Read token after RESET 
GOSUBL =eolxck EOL (or woral equivalent)? 
GONC = RESE10 No. 
GOSUB CSTRST Yes. Do RESET. 
GOTQ NEXTST 
RESE10 GOSUBL =RESETC No. Must be RESET CLOCK. 
=NEXTst 


NEXTST GOLONG =NXTSTN 


FORO IO OI OOO TT OI IOK 
JOR RIO OO IOI OOOO OTT FTO TO I 
ak 


ak Nane: CSTRST - Coldstart Set Flags And Traps 
ak 


** Category: CONFIG 
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483 ie 
484 ** Purpose: 
485 a Set systen flags, user flags and arithmetic traps to 
486 KA coldstart setting. 
487 a 
488 &* Entry: 
489 ae P=0. 
4% ak 
491 xX Exit: 
492 ae P=0, 
493 am (through UPDANN) 
494 ax 
495 ** Calls: UPDANN (falls through). 
496 ax 
497 kX Uses....... 
498 ax A[B],B[A},C,D0,P 
499 7 
500 ** Stk lvls: 1 
501 a 
502 ax 
503 xx WOTE: 
504 ae Clears all user flags. 
505 ae Only clears lower 32 systen flags (user-writeable). 
506 xk 
507 &k History: 
508 tk 
509 f Date Progranner Modification 
510 ERS DecteGses 9° veacetncdioe-- vais tudl ate os ume one maa mote tame con 
511 xk 09/21/82 NM Wrote 
512 a 
513 JOO TI IOS II TOSI SITS TI ISIS IS IOI IISA II III II IIS 
514 3 III III IIS IOS IS SOIR TIO SSI II SIO IOS ISS IIIT STITH 
515 OEDCC 1800 =CSTRST DO=(5) =TRPREG 
000 
516 OEDD3 3411 LCHEX 11111 
111 
517 OEDDA 144 DRTO=C A Set default arithnetic traps. 
518 OEDDD 18F DO=DO- 16 Point at FLGREG. 
519 OEDEO AF2 C=0 W 
520 OEDE3 1547 DATO=C W Reset all user flags. 
521 OEDE7 18F DO=DO- 16 Point at SYSFLG. 
522 OEDEA 15C7 DATO=C 8 Reset writeable systen flags. 
523 OEDEE 8C00 GOLONG =UPDANN Update annunciators 


00 
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524 

525 

526 

527 

528 

529 

5H 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

$53 

554 

555 

556 OEDF4 0000 
0 

557 OEDF3 0000 
0 

558 OEDFE 71E1 

559 OEEO2 7750 

560 O£E06 5A0 

561 OFEO9 2D 

562 OEEOB 3322 
01 

563 OEE11 108 

564 OEE14 7FC1 

565 OFE18 480 

566 OEFE1B 20 

567 OEE1D 6000 

568 OFE21 120 

569 OEFE24 7FB1 

570 OEE28 52F 

571 OEEZB 20 

572 OEE2D D2 

673 OEE2F 3161 

574 OEE33 8Bé 

575 OFE36 SE 


STITLE Window 
JO IO IO OI IOI IO III ISI OC II 


JOIST TOO OIG TOTTI TO TIO TT TTI OK 
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ke 
xx Nane: WINDOW - Window Execute Routine 
ai 

kX Category:  STEXEC 

x 

** Purpose: 

x Command to set display viewing windon. 
ah 

** Entry: 

xs Juriped on WINDOW token. 

ik 

FREI: 

a% Norrial exit: NXTSTM. 

es eIVARG if parns out of range. 

ax 

** Calls: EXPEXC, POP1-2, FLTDH. 

ok 

** Detail: 

- WINDOW <p1> [ , <p2> ] 

ax where 1 <= pl <= p2 <= 22. p2 defaults to 22. 
i 


** History: 
tk 


am Date 
SX) | Sain eens 


kK 06/21/82 
xk 


Nn 


Modification 


we a a a a a a a we ee ee ee wm wwe meen 


Added docunentation 


JO III IOI OTT TOIT IOI OK 
JOJO OI TIC ICO TOOT TT IO ITI SII III 


REL(5) 
REL(S) 


WINDOW GOSUB 
GOSUB 
GONC 
P= 
LCHEX 


WIND10 RO=C 
GOSUB 
GOL 
IVARG P= 
GOTO 
WIND20 AROEX 
GOSUB 
GONC 
WIND30 P= 
C=0 
LC(2) 
PAC 
GOYES 


=WINDWd 
=WINDNp 


expexc 
POP1-2 
WIND10 
13 
1022 


FLTDH 
WIND2O 
0 
=IVRERR 


FLTDH 
IVARG 
0 

A 

22 

A 
IVARG 


Conpute paraneters 
Pop paraneters 
Go if two paraneters 


Default second parn to 22 
Hold second parn 


First parn to hex 
Go if no overflow and positive 


Second parn to hex 
Go if overflow or negative 


Second parn > 22? 
Yes. range error. 
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576 0£E38 
577 OEE3B 
578 OEE3E 
579 OEE4 
580 O£F43 
581 OEE45 
582 OFE4? 
583 OEE49 


584 OEES0 
585 OEES3 


586 OEES9 


2306 


118 
8B2 
DD 
396A 
8D 
ER 
CE 
1F0O 
000 
14D 
1£00 


00 
6380 
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Window 


C=RO 

702A =A 
GOYES IVARG 
7C=0)—oiB 
GOYES IVARG 
A=A-C A 

C=C-1 A 
D1=(5) =WINDST 


DAT1=C B 
D1=(4) =WINDLN 


GOTO DLAY6O 
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First parn > second parn? 
Yes. range error. 

First parn zero? 

Yes. range error. 
Corpute windln 

Conpute uindst 
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587 STITLE Pop argunents 
588 JOIST IO TIO III IOS IOI TOTS TOI ITI IA 
589 FOI III TI OO SI III SOS OOO TOS ISIS SOIT SSAA SIT TIA 
590 kk 
591 - Nane: POP1-2 - Pop 1 Or 2 Args Fron Result Stack 
592 
593 **k Category: LOCAL 
594 ok 
595 ** Purpose: 
596 Za Pop one or tuo args fron result stack. 
597 ax 
598 *k Entry: 
599 ak None. 
600 ak 
601 aX Exit: 
602 ae First ARG in A. 
603 kk Carry set: second arg not supplied; C{W]=0. 
604 ax Carry clear: second arg in C 
605 kk Nornal ARGSTD error exits. 
606 a Argunent < 0 defaults to arg = 0. 
607 KR DECMODE. 
608 xx 
609 *k Calls: GETRG+. 
610 An 
611 AP USES Suse 
612 ak A,B,C, D[A},P,D1,S8-S11, RO 
613 aA 
614 ** Stk lvls: 4 
615 a 
616 ** History: 
617 ee 
618 xk Date Progranner Nodification 
619 WA ect! Meese Vue eee ie toate ee 
620 kk 10/01/82 NM Reurote 
621 ah 
622 JORIS SO II TIO III TI TIO TI TTT TIT 
623 JOS II II ICO IT IIIS I IOS ISTO TOS TIO IIT I 
624 OEESD 7510 POP1-2 GOSUB GETRG+ Pop final arg. 
625 OFE61 100 RO=A Stash. 
626 OEE64 7£00 GOSUB = GETRG+ Pop Ist arg; cry set if only 1. 
62? OEE68 118 C=RO Last arg to C 
628 OEEGB 500 RTNNC Return if tuo args 
629 OEEGE AFA A=C W Only arg to R. 
630 OEE71 AF2 C=0 W Return 0 in C. 
631 OEE 74 01 Carry set 
632 JUG ICIS IS IIT OI ICI IS III ISITE 
633 OURO RO OIRO OO TOI II IGIO I IO IOI 
634 & 
635 ** Nane: GETRG+ - Get Arg From NTHSTK W/excp Check 
636 a 
637 ** Category: MTHSTK 
638 7 
639 ** Purpose: 
640 te Pop an argunent off of the math stack, with exception 
641 Ae checking for type, NaN, projective infinity; screen 
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642 ah for positive argunents. 
643 kk 
644 ** Entry: 
645 oe D1=Top of stack 
646 xk 
647 ak Exit: 
648 ae Carry set if nothing on stack. 
649 aS Else carry clear, 12-digit form in A, D1 increnented 
650 ak by 16. If A negative, returns A=0. 
651 aA DECNODE. 
652 aE 
653 *% Calls: ARGSTA. 
654 wk 
655 AK Uses....... 
656 ae A,B,C, D[A},P,D0,01, S8-S11. 
657 ak 
658 *E Stk Ivis: 3 
659 xR 
660 *k History: 
661 ak 
662 ah Date Progranner Modification 
663 KR -Soececcee eee see oe eee e Se Sa eee ee oe eae lok 
664 KX 07/9/82 NN Wrote 
665 &t 
666 FAIR SII III IAI III I ISI III TSS ISIO SSI II SII ISS ISS II IIIT II II IIIS IIIA 
667 JU III IOI ISI TIS II TAI IIT IS II SII SAS: 


668 OEE76 1B00 =GETRG+ DO=(5) =FORSTK 
000 


669 OEE7D 142 A=DATO A Botton of mathstack 

670 OEE80 137 CD1EX Top of nathstack 

671 OEE83 135 Di=C 

672 OEE86 8A2 7A=C OR Anything in mathstack? 

673 OEE89 OO RTNYES No. Carry set. 

674 OEE8B 7000 GOSUB =ARGSTA Pop with exception handling 
675 OEE8F 17F D1=D1+ 16 Point to next iten 

676 OEE92 948 *A=0 = oS Positive? 

677 OEES5 50 GOYES GETA10 Yes 

678 OEE9? AFO A=0 W No. Return 0 


679 OEESAR 03 GETAIO RTNCC Carry clear. 
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680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
631 
692 
693 
694 
695 
696 
697 
698 
639 
700 
701 
202 
103 
704 
705 
706 
207 
708 
103 
710 
711 
712 
713 
714 
715 OEESC 


716 OEEA1 


717 OEERG 
718 OEERA 
719 OEERE 
cO OEEB1 
721 OEEB3 


722 OEEBC 
723 OEEBF 
724 OEEC3 
725 OEECG 
726 OEECA 
72? OEECD 


728 OEED4 
7239 OEED? 


0000 
0 

0000 
0 

7931 
7F AF 
5D0 
el 

3652 
1099 
9 

108 
7120 
120 
7A10 
118 
1FOO 
000 
14D 
1E00 
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STITLE Delay 
JO II TOI OI I ITI II OT III TIO I SII II III ISI OTT IIIT TTI ISIS IAS 


FOI IOI IOI TT TIT II IIT TI II IK 
ax 


** Nane: DELAY - Delay Execute 

ak 

** Category:  STEXEC 

xk 

** Purpose: 

ak Execute delay statenent. 

ke 

xk Entry: 

ak Jurped on DELAY token. 

at 

** Exit: 

ak NXTSTM if nornal. 

ai eIVARG if arguments out of range. 

xk 

a Calls: EXPEXC, MP32, POP1-2 

ak 

** Detail: 

xt DELAY <delayt> [ , <scrolt> J 

kh 

** Algorithn: 

Rk Delayt * 32 to hex -> DELAYT. 

phe Scrolt * 32 to hex -> SCROLT. 

an 

** History: 

xR 

ak Date Progranner Modification 
Mh gotiecce> “(oottzeccs. Jetset oes eee et esas 
xk 06/01/82 NM Added docunentation 
xk 


FOI OI TOO TOT TTT TO TTI II 
FOO TIO TOT TT TO ITT IK 


REL(S) =DELAYd 
REL(5) =DELAYp 


=DELAY GOSUB expexc Conpute paraneters 

GOSUB POP1-2 Pop paraneters 

GONC DLAY10 Go if tuo paraneters 

P= 12 

LCHEX 9990125 Default second parm to .125 
DLAY1O RO=C Hold second arg 

GOSUB MP32 First arg*32 to A[B] 

AROEX 

GOSUB MP32 Second arg’ 32 to A[B]. 


C=RO First arg*32 to C(B). 


DLAYSO 01=(5) =DELAYT 


DATI=C B Write out first parn 
01=(4) =SCROLT 
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00 

73% OEEDD 149 

731 OEEEO 65EE 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

74? 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 OEEE4 AF2 

766 OEEE? 20 

767 OEEES 3323 
01 

768 OEEEF 05 

769 OEEF1 8E00 
00 

770 OEEF? 8E£00 
00 

771 OEEFD AFA 

772 OEFOO 73E0 

773 OEFO4 500 

774 

775 

776 

777 

778 

779 

780 


DLAY60 DATI=A B Write out second parn 


GOTO NEXTST 
FIO TITS SITS TT IIT IIIS TTI TEI RTI TAT I IIS SI ISIS II IIIS ITI AA 


FOO JO TOTTORI 
xk 


** Nane: MP32 - Multiply Fp# By 32 And To Hex 
th 

** Category: LOCAL 

ie 

** Purpose: 

ax Perform conputation for DELAY routine. 

ak 

ak Entry: 

aa A[W] = arg (floating point DEC). 

aa 

RK Exit: 

ah P=0, 

Re HEX result in A[B]. 

ak FF if oflo. 

ae 

** Calls: MP2-12, TRUNCC, FLTDH 

kk 

ek Uses....... 

ak A,B,C,0,P 

th 

ek Stk lvls: 2 

ih 

** History: 

aK 

- Date Progranner Modification 
e Seecivenc.. tvcescewe iekesiGeesvosseseyecsceupeousecces 
kk 06/01/82 = NM Added docunentation 

aa 


FOI RIO TRIO TORI TI IER III ITI IN 
FORO IORI IOUT IO 


MP32 06 C=0 W 


P= 13 
LCHEX 1032 
SETDEC 
GOSUBL =MP2-12 Multiply parn by 32 
GOSUBL =TRUNCC Truncate to 12-digit forn 
A=C W 

HEXFIX GOSUB FLTDH To hex 


RIN if overflow 
BOOT IIIT UOC ISI IIR I 


FORO ITI TTT TOR TT UT 
xk 


. Nane: BYTE? - Does A[4-2] = 0? 
k 


*k Category: LOCAL 
ak 
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781 *k Purpose: 
782 aK Deternine if ALA} fits into 1 byte. 
783 aK 
784 ek Entry: 
785 ak HEX rode. 
786 ak 
787 RR Exit: 
788 aK B[A] = OOOA[B]. 
789 xk If carry set, A[A] fits into one byte. 
790 aK Else ALA] = FFFFF. 
794 kk 
792 *k Calls: None, 
793 aK 
794 RK Uses... cece 
795 aK B[A], ALA]. 
796 aK 
797 kK Stk lvls: 0 
798 aK 
799 ** History: 
800 xk 
801 aK Date Progranrer Modification 
802 PR GOR eee as” wheat erect entnre tera ames eS 
803 kK 07/12/82 = NM Wrote 
804 aK 
805 JO OC IIS OOOO OCT TOT TTT I AK 
806 JU IOUT TIO ITS TIS STA 
807 a 
808 : NOTE: ABOVE CODE FALLS THROUGH TO HERE 
809 


810 OEFO7 D1 
811 OEFOS RE8 
812 OEFOC 8A0 
813 OEFOF OO 
814 OEF11 DO 
815 OEF13 CC 
816 OEF15 03 


BYTE? B=0 A 
B=A B 
?A=B OAR 
RTNYES 
A=0 A 
A=R-1 A 
RTNCC 
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817 STITLE AC/Battery check 
818 JI OCI TSI CTO TCI OO TR ROR 
819 SOR RII JOJO TOTO OI OI TOO ITI 
$20 br 
821 ** Nane: ACBAT? - Check For Low Bat 
822 ak 
823 ** Category:  GENUTL 
824 aK 
825 *k Purpose: 
826 ak Determine presence of low battery condition. 
827 kn 
828 ex Entry: 
829 aA ACBTSR: None. 
80 ak ACBAT?: None. 
831 ak 
$32 ak Exit: 
833 ak Carry clear. 
84 ax f1BAT flag has been set or cleared to reflect battery 
835 ak condition. 
836 aK P=0, 
837 aK 
838 cL Calls: CKTMOU, SFLAGS, SFLAGC, WRITNR (falls through). 
839 
840 aX Uses. ...... 
841 sk Exclusive: A[R),B[A],C,D[A},P,D0, 01 
842 tk Inclusive: D[A] 
$43 ak 
844 eX Stk lvls: 3 
845 wa 
846 ** Detail: 
847 ak ACBTSR checks if TINER3 is tined out. If so, it falls 
848 ax through to ACBAT?. 
849 aA 
850 ** Algorithn: 
851 ax ACBTSR: Return if tiner3 not tined out 
852 a ACBAT?: Read control nib from master driver. 
853 oe Wait about 100 machine cycles. 
854 = Read control nib again. 
855 ax Set BAT annunciator iff battery low bit fron 
856 aR control nib is set. 
857 = Set tiner3 for 1 minute. 
858 xe 
859 ** History: 
860 xx 
861 ay Date Progranner Modification 
862 The Pe edie. Aunt on iad Ne eE Sears 
863 kk 06/03/82 NM Added docunentation 
864 ak 
865 JOISTS III OCIS OOS I IT 
866 JOISTS ISI TI I IK 


867 OEF17 04 
868 OEF19 20 
869 OEF1B 1B00 
000 
870 OEFZ2 7060 


=A 


CBTSR SETHEX 
P= 0 
BO=(5) (=TIMER3) +45 Point at tiner hinib 


GOSUB CKTNOU 
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871 OEF26 50 RTNNC Return if tiner not tined out 
872 OEF23 04 =ACBAT? SETHEX 
873 OEFZB 1800 DO=(5) =DDICTL 

000 
874 OEF32 1562 C=DATO XS Read display control nib once 
875 OEF36 26 P= 6 
876 OEF38 OC BATOS P=P+1 Delay about 100 machine cycles 
877 OEF3A SOF GONC BRTOS 
878 OEF3D 1562 C=DATO XS Read display control nib again 
879 OEF41 A26 C=C+C XS Set carry if low bat bit set 
880 OEF44 3100 LC(2) =f 1 BAT Battery flag nurber 
881 OEF48 5C0 GONC  BATIO Lou bat bit set? 
882 OEF4B 8£00 GOSUBL =SFLAGS Yes. set bat flag. 
00 
883 OEF51 6900 GOTO BAT20 
884 OEFS5 8E00 BATIO GOSUBL =SFLAGC No. clear bat flag. 
00 
885 OEF5B 1800 BAT2O DO=(5) =TINER3 
000 
886 OEF62 3700 LCHEX 80007800 
8700 
08 
887 OEF6C 15C7 DATO=C 8 Enable tiner--1 minute 
888 OEF70 8C00 GOLONG =WRTTNR Now write it correctly. 
889 re FISK IDI ITI II IIIT III III II III IIIS ITI II III IIIS III III IDI SIS IAI IN 
890 JORIS III III IAT II III ITI SII IIIS II IIIS III II III SIT IIIS IIIS SSI SI SII ISA. 
891 a 
892 ** Narie: NOKEYS - Clear Keybuffer 
893 xe 
8394 ** Category:  KEYUTL 
895 x 
896 ** Purpose: 
897 xx Clear keybuffer. 
898 ae 
899 x* Entry: 
a) tk 
901 AX Exit: 
902 ae DO = KEYPTR. 
903 ax A[S} = 0. 
904 an Carry clear. 
aQ5 ax 
906 ** Calls: None. 
907 aa 
908 RE USES bes aiced 
909 a ALS], 00. 
910 gs 
911 x4 Sth lvls: 0 
912 ne 
913 ** History: 
914 a 
915 ae Date Progranner Modification 
916 RAe JSS ceSceoo tla scons — Sete tee ee oo tee ee ee ee 
917 ** 10/13/82 NM Wrote. 


918 a 
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919 JIS TIIOOC IIIT TT IT 
920 JOIST I I ITO III TIS IS ITS TIO STII III IIIS IIS IIIS IIA ITIL ISK 
921 OEF76 1B00 =NOKEYS DO=(5) =KEYPTR 

000 

$22 OEF 7D ACO A=0 S 
923 OEF8O 1504 DATO=A S$ 
924 OEF84 03 RTNCC 


925 

926 

927 

928 

$29 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

961 

952 

963 

954 

965 

956 

95? 

958 

959 

960 

361 

962 

963 

964 

965 

966 

967 

968 OEF86 1560 
369 OEF8A R06 
970 OEF8D 400 
971 OEF9O 1560 
972 OEF94 Ab 


FOO TOIT TOOT TT TO TTT TTT TOK 
FORO TOI RRO JOO OO RTOT IOK 
ak 


xx Nane: CKTMOU - Check Hinib Of Tiner For Tineout 
re 


** Category:  GENUTL 


tk 
** Purpose: 

ak Look at high nibble of tiner and deternine if 

ne tiner has tined out. 

kk 

** Entry: 

ae HEX node. 

sai DO points at high nibble of tiner. 

&k 

AX Exits 

aR Carry set iff tined out. 

aK 

** Calls: None. 

kK 

AM USCS 5 coats 

x C[P] (whatever P is). 

x 

** Stk lvls: 0 

Kk 

** Detail: 

aK Handles potential problen of kerchunking during read. 
ax If tiner kerchunks during read, sone bits nay be pulled 
ae erroneously to 2ero. 

kx 

** Algorithn: 

Be Read nibble at DO. SL one bit. RINC (tined out). 

x (Carry clear): perhaps we lost sone bits from kchunk 
Be during the read. Read again. SL one bit. RIN. 

xk 

** History: 

kk 

kk Date Progranner Modification 

Eki ccgiicies. iteadenta: tsoteeeupetnu torso se ceweec le 
*X 01/28/83 NN Wrote. 

xk 


FOR IO II OT TI TIS ITT IIIT IIIT IIT KI 
FOO ITI JO TORI IIT TO I TIT TTI TI IKI 


=CKTMOU C=DATO P 


C=C+C P Read hinib of tiner 

RTNC RINSC if tined out 

C=DATO P May have read low fron kchunk 
C=C+C PP If so, this catches it 
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973 OEF9? 01 RTN 


3:57 an 
Page 25 
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974 STITLE WIDTH and PWIDTH 

975 JOO III IDOI IIIS CTS TI II TI TIO 
976 FOO JOJO IORI TOT Or 
977 ah 

978 ** Nane: WIDTH - WIDTH And PWIDTH Execute 

979 ** Narie: PWIDTX - WIDTH And PWIDTH Execute 

980 xh 

981 ** Category:  STEXEC 

982 aR 

983 ' &* Purpose: 

984 aR Execute WIDTH and PWIDTH statenents. 

985 aR 

986 ak Entry: 

987 ak DO = PC. 

988 ak Junped on WIDTH or PWIDTH token. 

989 a 

990 at Exit: 

991 ak Through NXTSTM 

992 ak 

993 ** Detail: 

994 aR WIDTH <new width> 

995 ak PUIDTH <new width> 

996 ak 

997 ah If <new width> <= 1, <new width> = 1. 

998 ee If <new width> >= 255, <new width> = 0. 

999 ak 
1000 xX History: 

1001 xR 

1002 am Date Progranner Modification 

1003 KZ. ebteccas,, " ckeossuces,, Keatcceovwiccessnecestocte cece sees 
1004 *k 10/18/82 = NN Wrote 
1005 ak 

1006 JOO OI IOS ISI ISSO S TO STIS IIIT I ATI IK 
1007 FOI TOI OOO SIO ITO IIIT II IIR II IIH 
1008 OEF99 0000 REL(S) =FIXDC 
) 
10039 OEFIE 0000 REL(5) =FIXP 
0 

1010 OEFA3 7030 =WIDTH GOSUB expexc Expr execute for width 
1011 OEFA? 7D10 GOSUB DOWIDT Fetch paraneter 

1012 OEFAB 613F ,HIDTIO GOTO  DLAY6O Write out parn & NXTSTM 

1013 

1014 OEFAF 0000 REL(S) =FIXDC 


0 
1015 OEFB4 0000 
0 


REL(S) =FIXP 


1016 OEFBS 7620 =PWIDTX GOSUB expexc 
1017 OEFBD 7700 GOSUB DOWIDT 
1018 OEFC1 1000 D1=(2) =PWIDTH 
1019 OEFCS 45€ GOC WIDT10 B.E.T. 
1020 . 
1021 OEFC8 7ARE DOWIDT GOSUB GETRG+ 
1022 OEFCC 1FOO D1=(5) =DWIDTH 
000 
1023 OEFD3 792F GOSUB HEXFIX 
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1024 OEFD? 570 GONC MAX Go if >255 (rtn A=0) 
1025 OEFDA 96C 7AHO | OB Arg>0? 
1026 OEFDD 00 RTNYES Yes 
1027 OEFDF £4 MAX A=A+1 =A No. 00-01 or FF->00. 
1028 OEFE1 02 RTNSC 
1029 x 


1030 OEFE3 6000 expexc GOTO  =EXPEXC 

1031 OEFE? 8COO FLTDH GOLONG =fitdh 
00 

1032 x 
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1033 STITLE FIX, SCI, ENG, STD execute 
1034 JX OIC TIT 
1035 SOI III OI TT OT TT IIIT TI IT IAI TTI TTT IIIA IT 
1036 ak 
1037 ak Narie: DSPF - FIX, SCI, ENG Statenent Execute 
1038 *k Nare: STD - Statenent Execute 
1039 aK 
1040 ek Category: STEXEC 
1041 kk 
1042 ** Purpose: 
1043 aR Exexute FIX, SCI, ENG, STD statenents 
1044 aK 
1045 ** Entry: 
1046 a DO past FIX | SCI | ENG | STD token 
1047 kk (token is reread during execute). 
1048 aK P=0 
1049 ak 
1050 aK Exit: 
1051 ak Through NXTSTM 
1052 aK 
1053 aR If STD: DSPFNT <-- 0 
1054 aK If FIX: DSPFNT <-- 1 
1055 aK If SCI: DSPFMT <-- 2 
1056 ak If ENG: DSPFMT <-- 3 
1057 ak 
1058 ** Detail: 
1059 ak STD 
1060 kK (FIX | SCI | ENG) <# digits> 
1061 ak 
1062 ** History: 
1063 ak 
1064 ax Date Progranner Modification 
1065 RK nnn een enn nnn nnn ne nn nn enn rn nnn nnn nnn ee nnn nee ene 
1066 kk 6607/04/82 JP Modified docunentation 
1067 - 10/18/82 NM Sinplified & dunnified. 
' k 
es JOGO IGT TOO COICO OT RTI 
1070 JOOS OOO OI Ok 
1071 OEFED 0000 REL(5) =STOPOC 1 Token Deconpile 
0 
1072 OEFF2 0000 REL(5) =RTNCC 1 Token Parse 
0 
1073 OEFF7? 30C =STD LCHEX C STD Display Fornat = 0 
1074 OEFFA 7120 sft GOSUB SETFNT Update RAM addr 
1075 OEFFE 67(D GOTO NEXTST 
1076 x 
1077 OFOO2 0000 REL(5) =FIXDC FIX Deconpile 
0 
1078 OF007 0000 REL(5) =FIXP FIX Parse 
0 
1079 OFOOC 73DF =DSPF GOSUB expexc Compute expression 
1080 OFO10 7130 GOSUB SETDGT Set display fornat 
1081 OF014 8F00 GOSBYL =STNTST Token # to C 


000 
1082 OFO1B 6EDF 


GOTO = sf nit C{O]=D, E or F for fornat 
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1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 OFOTF D? 

1121 OFO21 133 

1122 OFO24 1FOO 
000 

1123 OFO2B 14F 

1124 OFOZE OB 

1125 OFO30 850 

1126 OF033 851 

1127 OFO36 OB 

1128 OFO38 OF67 

1129 OFO3C 15D0 

1130 OFO40 133 

1131 OF043 03 

1132 

1133 

1134 

1135 

1136 


SOIR IO TT TI ISI ITT IK 
FOO IO TOIT IT TTT IIT ITI ITI TEI ITT II 
ak 


*® Nane:(S) SETFNT - Set Display Fornat 


ak 
**k Category:  DSPUTL 

ae 

** Purpose: 

ae Set FIX, SCI, ENG or STD display format. 

ak 

kk Entry: 

aK C(O] = C for STD, D for FIX, E for SCI, F for ENG. 
ae 

AR EMLt: 

a Carry clear. 

ak 

** Calls: None. 

ak 

MA USES <ccciwe 

fe Inclusive: A[A],C{AJ,0[A]) 

i 

** Stk lvls: 0 

ak 

*& Algorithn: 

ae Read DSPFNT nibble fron systen flags. 

xe Set lower 2 bits thereof. 

aK AND with argunent passed in C(O]. 

Write out DSPFMT nibble. 

tk 

** History: 

ak 

a Date Progranner Modification 
Mi. citedver. @ticesumes. tpeieep sno cy sealant eae 
kk 10/26/82 NM Wrote. 

ae 


FOI IIIT TTT ITT ITI TIT IK 
FOR OO III TOT TTI TOTTI 


=SETFNT D=C A Hold arg 
ADIEX Hold D1 
D1=(5) =DSPFNT 
C=DAT1 B Read DSPFMT nib 
CSTEX 
ST=1 90 
ST=1 1 
CSTEX Set lower 2 bits in DSPFAT nib 
C=C8D B AND in arg 
DAT1=C 1 Write out new DSPFAT nib 
RADIEX Restore 01 
RTNCC 


FORO IDOI IOI IOI ICO ITI TOI TOI 
SOIC RIO IORI IOI OT TOTTI 
as 


x* Narie: SETDGT - Set Display Digit Nurber 
kk 
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1137 *% Category: DSPUTL 
1138 on 
1139 ** Purpose: 
1140 aR Set display fornat fron nunber on stack. 
1141 &R 
1142 ** Entry: 
1143 kk Argurent on nath stack. 
1144 aK 
1145 Rk Exit 
1146 Carry set. 
1147 kk 
1148 ** Calls: GETRG+, HEXFIX. 
1149 2s 
1150 kX Uses. ....+. 
1151 ax A,B,C,P,D0,D1. 
1152 ax 
1153 ** Stk lvls: 4 
1154 a 
1155 ** History: 
1156 xx 
1157 ax Date Programmer Modification 
1158 a aaa aaa actatetatetieiatateitaiata 
1159 kk 10/19/82 NM Wrote. 
1160 ae 
1161 $0 I II II IT ID III III IIIS IOS ITS OST IT SAIS IOS IIIT II IIIA 
1162 $I III II II IOS III IIIS IIS I OTIS TTI IIIT SSIS I III III IIS IIIS II ISIS IIH 


1163 OFO45 7D2E 
1164 OFO49 73BE 
1165 OFO4D 1B00 
0 
1166 OFO54 D2 
1167 OFOS6 20 
1168 OFO58 30B 
1169 OFO5B 886 
1170 OFOSE 50 
1171 OFO60 A86 
1172 OFO63 150 
1173 OFO67 O02 


=SETDGT GOSUB GETRG+ Get argunent 
GOSUB HEXFIX Fix; A=FFFFF if big. 
DO=(5) =DSPDGT 
C=0 A 
P= 0 
LCHEX 8B 
7AoC OR Arg > 11? 
GOYES SETF1O Yes, use 11. 
C=A P No, use arg. 
SETF10 DATO=C 1 Update DSPDGT | DSPFMT if STD 
RTNSC 
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1174 STITLE CONTRAST execute 
1125 JOU IOI IIIS IS SOTTO IIT STITT I IAI K 
1176 JI III I IOI I III IIS III SII IIIS SSIS SSS ISOS II IIIS ISIS I SSIS II K 
1177 x 
1178 *x Nane: CNTRST - CONTRAST Execute 
1179 aX 
1180 ** Category:  STEXEC 
1181 ax 
1182 ** Purpose: 
1183 Re Execute CONTRAST connand. 
1184 ax 
1185 RX Entry: 
1186 ak DO = PC. 
1187 a Juriped on CONTRAST token. 
1188 sts 
1189 RA EMTS 
11% Ax Through NXTSTM. 
1191 kk 
1192 ** Detail: 
1193 ae CONTRAST <nuneric arg> 
1194 a 
1195 ** History: 
1196 RX 
1197 es Date Prograriner Modification 
1198 aa aa aaa aa aia aati 
1199 kk 10/19/82 = NM Wrote 
1200 ** 
1201 JIU I I IOI ISO STII IOS IO TIO SII TI III ISOS I IIS III AK 
1202 JI I TOSI II II III III III SIT IS III IIIT I ISOS OS ISI III SIS SITS SS TK 
1203 OF069 0000 REL(S) =FIXDC 
0 
1204 OFO6E 0000 REL(5) =FIXP 
0 
1205 OFO73 7COF =CNIRST GOSUB expexc 
1206 OFO??7 7BFD GOSUB GETRG+ 
1207 OFO7B 718E GOSUB HEXFIX 
1208 OFO7F D6 C=A R 
1209 OFO381 F4 ASR A 
1210 OFO83 8A8 7A=0)—OAR 
1211 OFO86 50 GOYES CNTRIO 
1212 OFO88 30F LCOHEX F 
1213 OFO8B 1FOO CNTR1O D1=(5) =DCONTR 
000 
1214 OFO92 1500 DAT1=C 1 


1215 OFO96 6F2D GOTO = NEXTST 


Saturn Assenbler 


Miscellaneous Utilities<831216 Fri Dec 30, 1983 3:57 an 


Ver. 3.39/Rev. 2306 STRHDR Page 31 
1216 STITLE STRHDR 
1217 FOI CITI III UII IOC TIO OE IERIE Tt 
1218 JIU III OUI OI IO TIO IOI 
1219 ah 
1220 ** Nane:(S) STRHDR - String Header 
1221 a 
1222 ** Category: EXCUTL 
1223 an 
1224 ** Purpose: Ensures there’s enough nenory to push string 
1225 ak on the math stack, then urites out string header 
1226 xk 
1227 ** Entry: C(A)=HNIBS IN THE STRING 
1228 ae D1 at top of math stack 
1229 ax P=0 
12% ak 
1231 KK Exit: R1[A} points to string header on stack 
1232 ak D1 points past the header (where string mill go) 
1233 RK Ri[15-5] = A[15-5] on entry. 
1234 Kx A[15-5} = C{15-5] on entry. 
1235 aK C[A] preserved. 
1236 ak Carry Clear. 
1237 ae ERROR EXITS IF NOT ENOUGH MEMORY 
1238 as 
1239 ** Calls: none 
1240 a 
1241 *k Stack lvls: 0 
1242 ak 
1243 *k Uses: A, C, D1, RI 
1244 ae 
1245 ** History: 
1246 ak 
124? ak Date Prograriner Modifications 
1248 Rk meee ee ewe e cee ee en eee n ee nn----- 
1249 kk 07/04/82 S.W. Added docunentation. Modified 
1250 ax code to use AVMENE, instead of 
1251 ae TFORN, as place to push string. 
1262 ek 10/22/82 NM Reurote 
1253 xx 
1254 JIG ICI IOI III UI TIO OCT TCI ITS I TTT TICE 
1265 JIG III TOIT ISO TCI ISI IIIT I TIT TIS IIT TI 
1256 x 
1257 & 
1258 OFOSA 1CF =STRHDR D1=D1- 16 Subtract header size 
1259 OFO9D 133 ADIEX 
1260 OFOAO ER A=A-C A Proposed top-of-stack 
1261 OFOR2 413 GOC PKS$E41 
1262 OFORS 109 R1=C Hold size 
1263 OFOR8 1F0O 01=(5) =AVNENS 
000 
1264 OFORF 147 C=DAT1 A 
1265 OFOB2 8B2 700A =A Header fit? 
1266 OFOBS F1 GOYES PKSE41 No 
1267 OFOB7 131 DI=A Yes. Point to start of header 
1268 OFOBA 121 AR1EX And store in R1 (fetch str size) 
1269 OFOBD ARF2 C=0 W 
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1270 OFOCO WF LCHEX F 
1271 OFOC3 14D DATI=C B Output string header tag byte 
1272 OFOC6 D6 C=A A 
1273 OFOC8 171 DI=Di+ 2 
1274 OFOCB 15D0 DATI=C 14 Output string header size 
1275 OFOCF 170 Di=D1+ 14 Position to urite string 
1276 OFOD2 03 RTNCC 
1277 x 
1278 OFOD4 6000 PK$E41 GOTO =NONEN GOTO MEMERR 
& 


1279 
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1280 

1281 aE 
1282 ae 
1283 a 
1284 ae 
1285 ‘ 
1286 ae 
1287 a 
1288 a 
1289 a 
12% BE 
1291 ae 
1292 ie 
1293 ae 
1294 zs 
1295 pA 
1296 a 
1297 a 
1298 aK 
1299 ne 
10 ak 
1H#1 aE 
1H2 aA 
1X3 3s 
1%4 xR 
1305 as 
1X6 ae 
1X? ns 
108 a 
139 ps 
1310 ae 
1311 a 
1312 ses 
1313 a 
1314 a 
1315 ig 
1316 ae 
1317 aK 
1318 se 
1319 =e 
1320 = 
1321 ons 
1322 ae 
1323 s 
1324 
1325 aE 
1326 a 
132? is 
1328 OFOD8 7760 =C 
1329 OFODC 147 «C 


1330 OFODF 393A 
1331 OFOE2 00 
1332 OFOE4 OB 
1333 OFOE6 848 
1334 OFOES OB 


STITLE 1/Obuffer autodelete 
FOI III OT IO TOT OO TOTTI IK 


FOI TOUT OI OTTO TO TIOK 


Narie: CL-IDS - Clear High Bit Of All I/O Buffer IDs 
Category: CONFIG 


Purpose: 
Clear hibit of I/0 buffer IDs prior to deepsleep 
wakeup polling. 


Entry: 
None. 


Exit: 
Carry set. 
HEX rode. 


Calls: PTBUFS, ADBSIZ. 


Stk lvls: 1 


Detail: 
Called during deepsleep wakeup prior to polling. 
This routine clears hibit of all buffer IDs. Any 
buffers whose IDs have not been restored during polling 
are then deleted by AUTDEL. 


Algorithn: 
Point at first buffer. 
1: Read buffer ID; return if 000 (end of list). 
Clear hibit if buffer ID (bit 11). 
Write out new buffer ID. 
Skip past buffer. 


Goto 1. 
History: 
Date Progranner Modification 
06/01/82 NM Added Docunentation = 


FORTIS TTI 
FORO OTTO II TIO IOI 


L-IDS GOSUB PTBUFS Point at Lobfst 
LID10 C=DAT1 A Read buffer id 
7C=0 =X End of bufferlist? 
RTNYES 
CSTEX 
ST=0 11 Clear high bit 
CSTEX 
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1335 OFOEB 1553 DATI=C X Write out id again 
1336 OFOEF 172 D1=D1+ 3 
1337 OFOF2 7A% GOSUB ADBSIZ Add buffersize to get to next id 
1338 OFOF6 55E GONC CLID1IO veal. 
1339 SOIR III OI TIT OI IOI IOT OI OIIO 
1340 SOR I I TOIOIII OOOTOIII IO TOI OI OR K 
1341 an 
1542 *xk Nare: AUTDEL - Delete Non-restored 1/0 Buffers 
1343 xe 
1344 ** Category: CONFIG 
1345 xk 
1346 *k Purpose: 
1347 aa Delete unneeded I/0 buffers. 
1348 ak 
1349 ** Entry: 
1350 as None. 
1351 xk 
1352 kK Exit: 
1353 aR Carry set. 
1354 ae HEX rode. 
1355 ax 
1356 ak Calls: PTBUFS, I/ODAL, ADBSIZ. 
1357 xk 
1358 aK Uses....... 
1359 ax A,B,C,D,D0,D1,P 
1360 ak 
1361 kK Stk lvls: 3 
1362 ak 
1363 xk Detail: 
1364 aa Called during deepsleep wakeup after polling. See 
1365 a docunentation for CL-IDS for details of use. 
1366 a 
1367 ** Algorithn: 
1368 a Point at first buffer. 
1369 kk OA: Read ID. 
1370 a End of list (ID=0)? Return if yes. 
1371 x If ID>=800 then point at next buffer; goto A. 
1372 =e Delete buffer; goto A. 
1373 ae 
1374 ** History: 
1375 ak 
1376 ae Date Progranner Modification 
1377 RR wenn nee en nee enn rn enn en nnn rn nnn nen nner e rene 
1378 xk 06/01/82 NM Added docunentation 
1379 ax 
1380 OIRO IO OOOO OR OI IORI TOO III ITO 
1381 SOIR IO OI OGIO OO OO IIIT OIG III TOI OHO 
1382 OFOFS 7640 =RUTDEL GOSUB PTBUFS Point at 1obfst 
1383 OFOFD 147 AUTDOS C=DATI A Read buffer ID (C[X}) 
1384 OF 100 93A 720) K End of list? 
1385 OF 103 00 RTNYES Yes, 
1386 OF105 OB CSTEX No. Look at ID. 
1387 OF 107 87B ?8T=1 «11 Hibit set? 
1388 OF1OA Al GOYES AUTD20 Yes. 


1389 OF 10C OB CSTEX No. 
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1390 OF10E D? 
1391 OF110 137 
1392 OF113 DF 
1393 OF115 8E0O 
00 
1394 OF11B DB 
1395 OF11D 135 
1396 OF120 6CDF 
1397 OF 124 OB 
1398 OF 126 172 
1399 OF129 730 
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D=C A Hold buffer id 
CDIEX 
CDEX A Hold pointer 
GOSUBL =I/ODAL Deallocate buffer 
C=D A 
D1=C Restore buffer pointer 
GOTO  AUTDOS 

AUTD20 CSTEX 
D1=D1+ 3 
GOSUB ADBSIZ Point past this buffer 
GONC  AUTDOS Look at next one. 8B.E.T. 


1400 OF12D SFC 
1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 OF130 D2 
1436 OF132 1573 
1437 OF136 173 
1438 OF139 133 
1439 OF13C CA 
1440 OFI3E 133 
1441 OF141 03 
1442 

1443 


SOO RII ETT TTT FIR TIN 
SOROS TTI TTT ISTIC ITT TIT TN 
ak 


kk Nare: ADBSIZ - Add I/Obuffer Size To 01 


kk 
kk Category: LOCAL 

ae 

** Purpose: 

ak Get past I/0 buffer. 

ak 

** Entry: 

ah D1 points at length field of I/Obuffer header. 
a HEX node. 

aK 

*® Exit: 

AR D1 points at I/D field of next buffer. 

a HEX node. 

a Carry clear. 

kk 

x& Calls: None. 

ak 

B® SOS. cabs 

xk Exclusive: 01,C{A] 

kk 

** Stk lvls: 0 

ak 

&* History: 

ak 

ak Date Prograrner Modification 

Oe: Bees. Aoecewiones  euitteeets cee coed ens 
*k 06/01/81 NN Added docunentation 

kk 


FOR RJ TT TT TTT TIT TTR 
2020 ROTI TTR ET TTT TK ITT 


ADBSI2 C=0 A 
C=DAT1 X Read buffer length 
D1i=D1+ 4 Point past buflen field 
ADIEX 
A=R+C A Point to next buffer 
ADIEX 


SO RIO I III TOT TTT TTT IIT TTR TTT IIT RITE 
FOR I TTI TTI IIIT TT KID ITI ITI TSI IRE 
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1444 KK 
1445 ** Narie: PIBUFS - Point At IOBFST 
1446 ak 
1447 ** Category: LOCAL 
1448 ax 
1449 ** Purpose: 
1450 ak Point at IOBFST+1. 
1451 RK 
1452 ** Entry: 
1453 ak None. 
1454 ae 
1455 ak Exit: 
1456 ak Di = (IOBFST)+1. 
1457 ak HEX node. 
1458 aK 
1459 tk Calls: None. 
1460 ak 
1461 Rk Uses. ..sess 
1462 *k Exclusive: C(A],01. 
1463 ak 
1464 ** Stk lvls: 0 
1465 ah 
1466 ** History: 
1467 ak 
1468 ak Date Progranner Modification 
1469 RK wenn wee emer enn emer renee enc een een errs nnecces 
1470 kk 06/01/82 = NM Added docunentation 

ih 
3 JET KI DA TTI OTT TTI TI TTA TT TIKI III IIIS II ISI IIIS II III IISA 
1473 JU IO OI IT TO TIO TTT I II IIS IIS TIS T IIIS III SSIS SIS 
1474 OF143 04 PTBUFS SETHEX 
1475 OF145 1FO D1=(5) =IOBFST 

000 

1476 OF14C 147 C=DAT1 A 
1477 OF14F E6 C=C+1 A Point past address counter 
1478 OF151 135 Di=C 
1479 OF154 01 
1480 JU IU II SUI OOO TIS I IOI IA II IOS ISAT A 
1484 JU IOI TOO OO STC SSS II III IAI ITI I STK 
1482 xe 
1483 tk Narie: RS-IDS - Restore Requested I/0 Buffer IDs 
1484 aK 
1485 ** Category: CONFIG 
1486 re 
1487 ** Purpose: 
1488 ax Restore (set hibit in) buffer IDs requested. 
1489 ¥ 
1490 ak Entry: 
1491 a Call to RS-IDS is followed by a list of buffer ID’s 
1492 ake to be restored. List is terminated with 000. 
1493 ae See exanple in DETAIL (below). 
1494 aK 
1495 ae Exit: 
1496 ae Continues execution at address immediately following 
1497 a 000 terninating buffer ID list. 
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1498 ex Carry 1s set. 
1499 ak 
1500 ** Calls: I/ORES 
1501 ak 
1502 &* Uses. ...... 
1503 ax A,C,00,01,P. 
1504 ak 
1505 ** Stk lvls: 2 
1506 a 
1507 ** Detail: 
1508 ax GOSBVL =RS-IDS 
1509 ax CON(3) =bBUF1 
1510 ax CON(3) =bBUF2 
1511 ak CON(3) =bBUF3 
1512 a CON(3) =bBUF4 
1513 ax CON(3) 0 
1514 a <code to be executed upon return> 
1515 ax 
1516 *k Algorithn: 
1517 ak Fetch pointer to list (fron RSTK). 
1518 xk 4; Read 3 nibs; increrient pointer 3 nibs. 
1519 ae If read 000, goto 2. 
1520 aK Restore buffer with ID just read. 
1521 ax Goto 1. 
1522 xx 2: Push pointer onto RSTK; RIN. 
1523 ae 
1524 ** History: 
1525 ax 
1526 ae Date Progranner Modification 
1527 RR wenn wn ne ewer rene tenner ern ern nnn nn ene nen een e nen e 
1528 xx 06/02/82 NM Wrote 
1529 a 
15H JI DO IOI TOSI IOS III OSI ITSO TIO SOT ISOS OCI IIIT TS ITI I TN 


1631 
1532 OF 156 07 
1533 OF158 134 
1534 OF15B 1563 
1535 OFI5F 162 
1536 OF 162 93A 
1537 OF165 CO 
1538 OF167 8E00 
00 
1539 OF16D 6DEF 
1540 OF171 136 
1541 OF174 06 
1542 OF 176 01 
1543 OF178 


JO TOT TI ASTI ITI SI IAI I IIIT IST IIIS IS IIIT SI IIT ITN 
=RS-IDS C=RSTK 


DO=C Point at first buffer ID 
RSID10 C=DATO X Get buffer ID 

DO=D0+ 3 Point past buffer ID 

7C=0)—K End of list? 

GOYES RSID20 Yes 

GOSUBL =I/ORES No. Restore this buffer. 

GOTO RSID10 On to next buffer ID. 
RSID20 CDOEX Fetch pointer past list 

RSTK=C 

RIN Jump to code after list 

END 
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t 


sACBAT? Abs 61225 HOEF29 872 
=ACBTSR Abs 61207 HOEFI7 - 867 
ADBSIZ Abs 61744 HOF130 - 1435 1337 1399 


ALMSRV Ext - 423 
ARGSTA Ext - 674 
SASLU3 Abs 60705 HOED21 - 356 
ZASLW4 = Abs = 60702 HOEDIE - 355 
sASLWS Abs 60699 HOEDIB - 354 
=RSRN3 = Abs = 60688 HOEDIO - 350 
sASRW4 = =Abs 60685 HOEDOD - 349 
=ASRWS Abs 60682 HOEDOR - 348 


ATNFLG Ext - 426 
RAUTDOS Abs 61693 HOFOFD - 1383 1396 1400 


AUTD20 Abs 61732 HOF 124 - 1397 1388 
=RUTDEL Abs 61689 HOFOF9 - 1382 
AVMENS Ext = 1263 
BATOS Abs 61240 HOEF38 - 876 877 
BAT10 Abs 61269 HOEFSS - 884 881 
BAT2ZO Abs 61275 HOEFSB - 885 883 
BYTE? Abs 61191 #OEFO7 - 810 
CKSREQ Ext - 431 
=CKTNOU Abs 61318 HOEF86 - 968 870 
=CL-IDS Abs 61656 #OFOD8 - 1328 
CLID1O Abs 61660 #HOFODC - 1329 1338 
CNTRIO Abs 61579 HOFO8B - 1213 1211 
=CNTRST Abs 61555 #OFO73 - 1205 
ZCSLU3 Abs = 60739 HOED43 - 368 
=CSLU4 Abs = 60736 HOEDSO - = 367 
=CSLUW5 Abs 60733 HOED3D - 366 
2CSRW3 Abs 60722 HOEDI2 - 362 
sCSRW4 = Abs = 60719 HOED2F - 361 


=CSRWS Abs 60716 HOED2C - 360 
=CSTRST Abs 60876 HOED(C - 515 471 
=DCHKN Abs 60636 HOECDC - 288 
DCONTR Ext - 1213 
DDICTL Ext = 8f3 
DECHIO Abs 60643 HOECE3 - 291 W3 
=DELAY Abs 61094 HOEEAG - 717 


DELAYT Ext ar JOG 
DELAYd Ext - 715 
DELAYp Ext > #16 


DLAYIO Abs 61116 HOEEBC - 722 719 
BLAYSO Abs 61133 HOEECD - 727 

DLAY60 Abs 61149 HOEEDD - 730 586 1012 
DOWIDT Abs 61384 HOEFC8 - 1021 1011 1017 


DSPOUGT Ext - 1165 
=DSPF Abs 61452 HOFOOC - 1079 
OSPFNT Ext = (ice 
DUIOTH Ext - 1022 
EXPEXC Ext - 1030 
FIXDC Ext - 1008 1014 1077 1203 
FIXP Ext - 1009 1015 1078 1204 
FLTIDH Abs 61415 HOEFE7 - 1031 564 569 772 
FORSTK Ext - 668 


GETA10 Abs 61082 HOEESA - 679 677 
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=GCETRG+ 
=HEXDEC 
HEXFIX 
=HXDCW 
I/ODAL 
I/ORES 
=IDIV 
IDIV1 
IDIV2 
IDIV3 
IDIV4 
=IDIVA 
IOBFST 
IVAERR 
IVARG 
KEYPTR 
LSLEEP 
MAX 
MP2-12 
MP32 
=MPY 
MPY10 
NPY 20 
NPY 30 
MPY40 
NEXTST 
=NEXTst 
=NOKEYS 
NOMEN 
NXTSTN 
PKS$E41 
POP1-2 
PTBUFS 
PWIDTH 
=PWIDTX 
RESE10 
=RESET 
RESETC 
RESETd 
RESETp 
=RS-IDS 
RSID10 
RSID20 
RTNCC 
SCROLT 
SEC2TK 
SETALR 
=SETOGT 
SETF10 
=SETFNT 
SF LAGC 
SF LAGS 
=STD 
STNTST 
STOPDC 


Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Ext 
Rbs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Rbs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Ext 
Ext 


2306 


61046 
60591 
61184 
60596 


60539 
60541 
60559 
60568 
60571 
60526 


60955 


61407 


61156 
60603 
60606 
60620 
60628 
60631 
60870 
60870 
6102 


61652 
61021 
61763 


61369 
60864 
60843 


61782 
61787 
61809 


61509 
61539 
61471 


61431 
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Symbol 


HOEE76 
#OECRF 
HOEFOO 
#OECB4 


#OEC7B 
#OEC7D 
#HOEC8F 
HOEC98 
#OEC9B 
HOEC6E 


#OEE1B 


HOEFDF 


#HOEEE4 
HOECBB 
HOECBE 
#OECCC 
#OECD4 
HOECD? 
#OEDCE 
HOEDC6 
HOEF76 


#OFOD4 
HOEE5SD 
HOF 143 


HOEFBS 
HOEDCO 
#OEDRB 


HOF 156 
HOF 15B 
HOF 171 


HOF045 
#OF063 
#OFO1F 


HOEFF 7 


' + § £ £ 4 4 


668 
170 
772 
172 
13933 
1538 
107 
108 
115 
118 
119 
52 
1475 
567 
566 
921 
4% 
1027 
769 
765 
233 
234 
239 
242 
243 
476 
475 
$21 
1278 
476 
1278 
624 
1474 
1018 
1016 
473 
468 
473 
466 
467 
1532 
1534 
1540 
1072 
729 
418 
422 
1163 
1172 
1120 
884 
882 
1073 
1081 
1071 


417 
1023 


114 
109 
120 
125 


570 


1024 
723 


241 
237 
297 
123 
420 


1261 
559 
1328 


470 


1539 
1637 


1080 
1170 
1074 


624 
1164 


111 


575 


725 


425 


1266 
718 
1382 


626 
1207 


578 


429 


1021 


580 


472 


1163 


731 


Fri Dec 30, 1983 


1206 


1075 


3:57 an 
Page 39 


1215 


Saturn Asserbler Miscellaneous Utilities<831216 Fri Dec 30, 1983 3:57 an 


Ver. 3.39/Rev. 2306 Symbol Table Page 40 
=STRHDR Abs 61594 HOFOSA - 1258 

TIMERS Ext - 869 885 

TRPREG Ext - 515 

TRUNCC Ext - 779 

UPDANN Ext - §23 


=WATT Abs 60760 HOEDS8 - 416 
WAITIO Abs 60788 HOED74 - 423 432 
WAITP = Ext - 415 
WAITd = Ext - 414 
WIDTIO Abs 61355 #OEFAB - 1012 1019 

=WIDTH Abs 61347 HOEFA3 - 1010 


WIND1O Abs 60945 HOEE11 - 563 560 
WIND2O Abs 60961 HOEE21 - 568 565 
WIND3O Abs 60971 #HOEEZB - 571 
WINDLN Ext - 585 
=WINDOW Abs 60926 HOEDFE - 558 
WINDST Ext - 583 
WINDWd Ext - 556 
WINDWp Ext - §5? 
WRITMR Ext - 888 
eolxck Ext - 469 


expexc Abs 61411 HOEFE3 - 10K 416 558 717 1010 1016 1079 1205 
fl1BAT Ext - 880 

fltdh Ext - 1034 

sfrit Abs 61434 HOEFFA - 1074 1082 
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Input Paraneters 
Source file nane is MN&UTL: 2S 
Listing file name is MN/UTL:TI:ML::-1 
Object file name is MNZUTL: TI:MS::-1 


1411111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 TITLE Expression Execution Controller<831212.1511> 
2 OF178 ABS  #0F178 
3 * A BBBB& EEEEE X XX PPPP 
4 * AA B B&S& CE KX xX P P 
5 x A AB B&S& ECE XX P P 
6 * A A BBBB & EEEE X — PPPP 
7 * ARARA B B &&S E XX P 
8 x A AB B& & E x xX P 
9 * A A BBBB &8& & EEEEE XK X P 

10 FOO ITO OT OOOO 
11 FORO JOR TOTO JOTI OO OOO 
12 ae 

13 **& Nane:(S) EXPEXC - Evaluate Expression 

14 ** Narie: EXPEX1 - Evaluate Expression 

15 *k Narie:(S) EXPEX- - Evaluate Expression 

16 : Nane:(S) EXPEX+ - Evaluate Expression 

1? 

18 *k Category: EXCUTL 

19 ak 

20 ** Purpose: 

21 a Initiate evaluation of an expression. 

22 . 

23 ak Entry: 

24 ak HEX node. 

25 fo DO pointing to start of expression. 

26 

27 AXOEKSL ES 

28 ak Carry clear. 

23 ae D1 pointing at top of nathstack, which contains 
ce) = whatever results the expressions put there. 

31 ak DO pointing past expression. 

32 aK A[W} = 16 nibbles at top of stack (==result if this 
33 ak is a REAL numeric expression). 

34 ak If the last item in the expression was a variable, 
35 a8 information is left in certain registers for use 
36 ak by the DEST routine. See the docunentation for 
37 aR DYNANC and STATIC in this nodule. 

38 kk 

39 af Calls: COLLAP, GETST. Exits through EXPR. 

40 

41 ak Uses....... 

42 ale Everything available to functions: 

43 - ALL CPU REGS, Function Scratch, SCRICH, 

44 

45 - Stk lvls: 4 (4 levels available to functions invoked) 
46 bis 

4? ** Note: 

48 xe EXPEXC and EXPEX1 are different nanes for sane entry 
49 ak point. 

50 kk 

51 ** Algorithn: 

52 xk EXPEX-: Collapse nathstack to forstk. 

53 ax Goto expexc. 

54 ek EXPEX+: Save CPU status bits in STSAVE. 

55 wk EXPEX1: 
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56 
57 
58 
53 
60 
61 
62 
63 
64 
65 
66 
67 
68 


69 
70 
ra 


72 


73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
10? 
108 


OF178 8E00 
00 
OF17E 6110 
OF182 7034 
OF 186 
OF186 1FOO 
000 
OF18D 147 
OF190 135 
OF193 68A0 
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xk OEXPEXC: D1 = (MTHSTK). 

ak Go to EXPR {1.e., evaluate expression}. 

kk 

*k History: 

aK 

ak Date Programmer Modification 

REP ee ees + hte am, | ee ites ee a a te eee) 
RK SA Wrote 


ke 10/13/83 9 NM Atterpted to docunent 
kk 


FOOT TIO TTT TOI 
FOR OI IIIT ITI TOTO TTT TTT TIO 


=EXPEX- GOSUBL =COLLAP Collapse Math Stack to FORSTK 


GOTO  EXPEX2 
=EXPEX+ GOSUB GETST 


=EXPEX4 

=EXPEXC D1=(5) =NTHSTK Arithnetic Stack = MTHSTK/AVMENE 
C=DAT1 A 

EXPEX2 D1=C 
GOTO EXPR GOTO EXPR 


FORO JOJO IT TTI ITER IIIT IRI ITT I IK 
FOI IOI OOOO TIO OU TO TOC 
ak 


aK Narie: BLONUN - Read Tokenized Nunber In CPU 
kk 


** Category:  EXCUTL 

ka 

** Purpose: 

ak Read tokenized nunber at execution tine. 

he 

** Entry: 

ak Expression execution controller jumped on INTEGER or 
an REAL constant token. 

a P=0. 

x Token in B[B}. 

a DO=PC, 

= D1 = top of nathstack. 

kk 

aK Exit: 

aw Through FNRTN1 (puts result on stack and continues 
ak expression execution). 

ak 


Xf Calls: None. 

a 

aK Uses....... 

aR Everything available to EXPEXC (since this 1s 
at part of expression execution). 

at 


KK Stk lvls: 4 
kt 


** History: 
st 
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109 ae Date Progrannmer Modification 
110 Pie Ohaus, Baece eS . ~ee eet ee ea 
111 aK SA Wrote 
112 kk 10/13/83 NM Attenpted to docunent 
ak 
ie TORII III III 
115 SRI JOR JOOS IO TTT OI 
116 OF197 A89 =BLDNUN C=B P SET TEXT PTR FOR MANTISSA READ 
117 OF19A 80FO CPEX 0 
118 OFI19E 136 CDOEX 
119 OF1A1 FR C=-C A 
120 OF1A3 809 C+P+1 
121 OF1R6 FA C=-C A 
122 OF1A8 136 CDOEX 
123 OF1AB 1567 C=DATO W READ MANTISSA AND JUNK 
124 OFIAF AC2 C=0 S$ CLEAR SIGN 
125 OF1B2 A92 C=0 WP ZERO OUT JUNK 
126 OF1BS 16€ DO=D0+ 15 SET TEXT POINTER PAST MANTISSA 
127 OF1B8 21 P= 1 
128 OF1BR 90D BHO OOP FLORTER? 
129 OFIBD 11 GOYES FLOAT IF $0, GOTO FLOAT 
13% OFIBF 20 P= 0 MANUFACTURE INTEGER EXPONENT 
131 OF1C1 3131 LCHEX 13 
132 OF1C5 05 SETDEC 
133 OF1C? B69 C=C-B B 
134 OFICA 6B40 GOTO  FNRTN1 GOTO FNRTNI 
135 OFICE 1563 FLOAT C=DATO X READ FLOATING EXPONENT 
136 OF1D2 162 DO=D0+ 3 SET TEXT POINTER PAST EXPONENT 
137 OF1D5 6040 GOTO  FNRTN1 GOTO FNRTNI 
138 
139 OF1D9 6000 STKERR GOTO =NONEN STACK COLLISION 
ts JI I IO OO III OSS TO IO TOS TOSI TOS SOS SII TSI ISI T TK 
142 JOS OOOO IOS IO OS SSO OTS SOS SSS ISIS SIS SI II RII 
143 ax 
144 ** Nane:(S) TRANTR - Process Terminator In Expr Execute 
145 ak 
146 ** Category: FNEXEC 
147 x 
148 ** Purpose: 
149 ut Process terninator in expression execute. Collapse 
150 ae expression execution environment and return to 
151 ak whonever called EXPEXC. 
152 xx 
153 ** Entry: 
154 x D1 = nathstack pointer. 
155 ae 
156 aK Exit: 
157 ak D1 = nathstack pointer. 
158 ae A{W}] = 16 nibbles at top of stack. 
159 “e 
160 *k Calls: None. 
161 ae 
162 kk Uses....... 


163 a A,C{A]. 
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164 
165 
166 
167 
168 
169 
170 
171 
1?2 
173 
124 
175 
176 
127? 
178 


1793 
180 
181 
182 
183 
184 
185 
186 
18? 
188 
189 
19 
191 
192 
193 
194 
195 
196 
197 
198 
132 
200 
201 
202 
203 
204 
205 
206 
207 
208 
203 
210 
ot 
212 
213 
214 
215 
c16 
217 


OFIDD 181 
OFIEO 137 
OFIE3 1FOO 
000 
OFIEAR 143 
OFIED 174 
OFIFO 141 
OFIF3 174 
OFIF6 141 
OFIF9 174 
OFIFC 145 
OFIFF 137 
OF202 1537 
OF206 03 
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x 
** Stk lvls: 0 
ax 
*® History: 
oe 
aK Date Prograrimer Modification 
i> Seoctaee. Gndeusuasees  Sseusenceneenecnacnasae ae yeReena ene 
- SA Wrote 
xx 11/01/83 NM Attenpted to docunent 
i 
201 III II IOS STI STI IIS T ASIST II IIIA IIIT II ITI SI III IIA 
JOIST I ITI IIT IR TOS IIIT IIIS IO TO III IOI III III IIIA IIIS ISI III IS 
=TRANTR DO=D0- 2 BACK UP PROGRAN COUNTER 
EXPEND CD1EX EXPRESSION TERMINATOR 
D1=(5) =SYSEN COLLAPSE SYSTEM STUFF 
A=DAT1 A 
DI=D1+ 5 
DAT1=A A 
Di=01+ 5 
DAT1=A A 
Di=D1+ 5 
DATI=C A STORE MTHSTK POINTER 
CDIEX 
A=DAT1 W REREAD TOP OF STACK 
RTNCC RETURN CARRY CLEAR 
J III III SII IIT ASIII III OSI IIIT IIIS IIIS STII II IIIS III IISA IIA 
20 ITI IIIT TCT TET TTI IIIT TSI IO TIAL 
aX 
** Nane: ONEDGT - Read Tokenized One-digit Constant 
xx 
x* Category:  EXCUTL 
t 
** Purpose: 
ar Read tokenized one-digit constant in the course of 
ae evaluating an expression. 
i 
ee enti: 
a P=0, 
es Token# in B. 
ae Dt at top of nmathstack. 
= DO=PC. 
ne Expression execution controller junped on one-digit 
a constant token. 
ih 
OP ERI: 
ee Through FNRTN1 (falls through). 
ae 
eS Calls; None. 
xk 
REVS OSs at ets 
ta Everything available for expressions. 
kk 
at 


Stk lvls: 4 
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218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 


OF 208 AF2 
OF 20B A839 
OF 20E 80F0 
OF212 80FE 
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hk 
** History: 

& h 

ae Date Progranner Modification 

BR erie ee; eee (See tela ween cee til Sel 
ae SA Wrote 


*k 10/13/83 NM Attenpted to docunent 
kh 


FO OTIC T EF Or 
FORO ITO TIO TTI UO OTT TTT 


=ONEDGT C=0 ) CREATE SINGLE-DIGIT CONSTANT 
C=B P 
CPEX 90 
CPEX 14 


FORK J TOTO TOTTORI TT TIT IT 
FOR RRR IIR RJT RTO TTT TTI 
ax 


** Nane:(S) FNRTN1 - Function Return 
*& Nane:(S) FNRTIN2 - Function Return 
*& Nane:(S) FNRIN3 - Function Return 
** Nane:(S) FNRTN4 - Function Return 
: Nane:(S) EXPR - Function Return 
i. Category:  EXCUTL 
xk Purpose: 
a Return to expression execution controller after 
- evaluation of a function or operator. 
x 
** Entry: 
Ak  FNRIN1: DO = PC. 
ak D1 = stack pointer. 
aK Nunber to be pushed on stack in C[W]. 
kk FNRIN2: A[A] = PC. 
xe D1 = stack pointer. 
aK Number to be pushed on stack in C[W]. 
xx ~— FNRIN3: A[R} = PC. 
am D1 = new stack pointer (pointer already 
oe decrenented for storing result and stack 
ae collision check already perforned). 
kk Nunber to be pushed on stack in C(W]. 
xk FNRTN4: DO = PC. 
Kx D1 = new stack pointer (pointer already 
ae decrenented for storing result and stack 
mn collision check already perforned). 
ae Nunber to be pushed on stack in C[W]. 
xk  EXPR: ~=— DO = PC. 
ax D1 = stack pointer. 
ie Result has already been put on stack. 
rk 
xx Exit: 
ak Continues evaluation of expression. Returns to 
ae uhonever called expression execution controller when 
ae expression is done. 
ees Return conditions at that tine: 
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273 ak Carry clear. 

274 Kk D1 at top of stack. 

275 KK DO = PC, 1s past expression. 

276 xk 

277 ** Calls: None. 

278 xx 

279 kk Uses....... 

280 ak Everything available for functions. 

281 ak 

282 kK Stk lvls: 4 

283 aK 

284 ** History: 

285 xk 

286 xk “Date Progranner Modification 

287 PMs choos. eee Soest oe J ee ae ine 

288 ae SA Wrote 

289 k* 10/13/83 NM Attenpted to docurient 

2%) kk 

294 JIG III I I III IIIT ITO II IIIS III II OSS ISI SIS STII III RIS TT IIS 

292 JISC IS III D OO ISCO IIIT 

293 x 

294 * Note: Above code falls into this 

295 * 

296 OF 216 132 =FNRTN1 RDOEX SWAP OUT PC 

297 OF 219 1B00 =FNRTN2 DO=(5) =AVMENS 
000 

298 OF 220 1CF D1=D1i- 16 

299 OF 223 137 CD1EX 

WO OF 226 07 d=C A 

1 OF 228 146 C=DATO A 

32 OF 22B DF CDEX A 

33 OF 22D 8BB <=) A STACK COLLISION? 

34 OF2% 9A GOYES STKERR IF SO, GOTO STKERR 

5 OF 232 13? CDIEX 

WE OF235 130 =FNRTN3 DO=A RESTORE PC 

HO? OF238 1557 =FNRTN4 DATI=C W PUSH NUMBER ON STACK 

H8 OF 23C =LPRP 

9 OF23C 04 =EXPR  SETHEX EXPRESSION INTERPRETER 

310 OF 23E 20 P= 0 

311 OF 240 DO A=0 AR 

312 OF 242 14f A=DATO B READ TOKEN 

313 OF 245 3100 LC(2)  =LASTFN 

314 OF 249 3E6 “AC BB END OF EXPRESSION? 

315 OF 24C 49 GOYES EXPEND IF SO, GOTO EXPEND 

316 OF 24E D8 B=A R SAVE TOKEN IN B(A) 

317 OF 250 161 DO=D0+ 2 

318 OF 253 3400 LC(5) (=MAINT)+3 MAINT ADDRESS PLUS 3 
000 

319 OF25R C2 C=A+C A COMPUTE RELCON ADDRESS 

320 OF 25C A34 A=AtA xX 

321 OF 25F A34 A=AtR  X 

322 OF 262 A34 A=A+A OX 

323 OF 265 CR A=AeC AR 

324 OF 267? 132 ADOEX 


325 OF 26A 146 C=DATO A READ RELCON 
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326 OF 26D 132 ADOEX 
327 OF 270 C2 C=AeC A COMPUTE EXECADDRESS 
328 OF 272 06 RSTK=C 
329 OF 274 03 RTNCC JUMP TO FN WITH CARRY CLEAR, 
330 P=0, HEXMODE 
a5 JUDO TO TI TTI TSI TI TOTTI IK 
333 SORORITIES TK 
334 xr ; 
335 ** Narie: DYNANC - Variable Recall 
336 ** Nane: STATIC - Variable Recall 
337 ** Nane:(S) RECALL - Variable Recall 
338 ak 
339 *% Category: VARNGT 
340 ae 
41 *k Purpose: 
42 ae Recall a variable. 
43 aR Also set up destination address infornation for 
344 ak possible use by DEST after expression execution 
345 aR terninates. 
346 ak 
47 ak Entry: 
448 as P=0, 
349 ax HEX node. 
350 ak STATIC: Expression execution controller jumped on variable 
351 ak token (non-alpha-digit). 
352 a5 DO=PC. 
353 xk D1=top of stack. 
354 ** ~— DYNANC: Expression execution controller jumped on alpha- 
355 Re digit variable token. 
356 — DO=PC. 
357 = Di=top of stack. 
358 xR RECALL: DO=PC. 
359 aR A[A]=top of stack. 
360 ps DO, B[A}=address of variable register (register 
361 a contains variable if sinple, else contains 
362 kk dope vector). 
363 x 
364 aX Exit: 
365 ay Through FNRTN2. 
366 AA DO=PC, pointing past expression. 
367 ak Di=stack pointer. 
368 ak Value recalled in on top of stack. 
369 ak 
370 xk Calls: 
371 aX If we are end of expression (this recall is last thing 
372 aia done): ADRS10, ADRS40, MOved3, READIN, RECADR. 
373 xh If we are not at end of expression, control reverts 
374 ae to expression execution controller, which could call 
375 = anything. 
376 ak 
377 ** Uses....... 
378 ae If we are not at end of expression: everything 
379 as available to expression execution controller. 


380 xR If we are at end of expression: A-D,D0,D1,P. 
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331 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
40? 
408 
409 
410 
411 
412 
413 
414 
415 
416 
41? 
418 
419 
420 
21 
422 
423 
424 
425 
426 
42? 
428 OF276 7062 
429 OF27A 7DAZ 
430 OF27E 445 
431 OF 281 30A 
432 OF 284 A8?7 
433 OF 28? ACI 
434 OF 238A 1567 
435 OF28E BOF 


ak 
xk 
ax 
ak 
ax 
xx 
ak 
a 
ae 
xx 
a 
xk 
ak 
xk 
a 
xk 
xk 
ak 
xk 
ak 
ax 
xR 
xk 
xk 
xk 
ak 
xk 
ak 
xx 
aK 
ae 
ak 
ax 
ak 
ak 
xk 
xx 
x 
xk 
a 


xk 
xk 
ak 
a 
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Stk lvls: 4 


NOTE: 


2, 1f we are at end of expression. 


This 1s part of expression execution. It does not 
return, it goes back to the expression execution 
controller. The way to use this routine 1s to set 

up the tokenized forn of the variable you want to 
access (whether for recall or for computing the store 
address), complete with a terminator, point DO at it 
and perforn an expression execute. You can, mith sone 
cleverness, set things up to look as though an 
expression execution 1s in progress and call this code 
instead of calling EXPEXC. This might save a little 
execution tine. 


Detail: 


In addition to recalling the variable, this routine 
sets up infornation relevant to using the variable as a 
destination. This information includes the variable 
address, substring paraneters, type, array register 
nuriber, maxinun string length and subscript count. 

If this is the last thing done before the expression 
terninates, that information 1s intact upon return front 
the expression execution controller, and can be passed 
to the DEST subroutine for storage soneuhere safe. 


WHY? One purpose of this code is to evaluate a 
variable on the left side of an assignment operator (=) 
so it can be stored into after the expression on the 
right side is evaluated. DEST serves the purpose of 
saving the destination information so the assignrient 
can take place later. 


The destination infornation is stored in function 
scratch and B[W]. DEST moves it to statenent scratch. 


History: 


Date Prograriner Modification 


10/1 


“<-- ee wee ee wee wee eee we wm we ew ee wwe me ee ee wee Oe ewe 


SA Wrote 
3/83 NN Attenpted to docunent 


FO JOTI IOI OTTO OTT TOTTI 
FOO OOOO ITI OIC 


=DYNANC GOSUB ADRS10 CREATE CHAIN LABEL 
=STATIC GOSUB ADRS40 SEARCH VARIABLE CHAIN 
GOC ZERO IF NOT FOUND, GOTO ZERO 
=RECALL LCHEX A LOAD TEST DIGIT 
D=C P 


B=0 Ss SET REAL DATA TYPE 
C=DATO W RERD REGISTER 
b=C P REAL NUMBER? 
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436 OF291 478 GOC —- FNRTN2 IF SO, GOTO FNRTN2 
437 OF 294 80D1 P=C 4 
438 OF 298 880 PHO POINTER? 
439 OF29B 35 GOYES NOTNUN IF NOT, GOTO NOTNUM 
440 OF 29D AOB C=C+D P COMPLEX? 
441 OF2A0 403 GOC  COMPLX IF SO, GOTO CONPLX 
442 OF2A3 E5 B=B+1 A POINT TO THE MANT OF THE NUMBER 
443 OF2A5 ES B=B+1 A 
444 OF2A7 B45 =INTSHT B=B+1 S SET SHORT DATA TYPE 
445 OF2AA 29 P= 9 
446 OF2AC 187 DO=D0-- 8 
447 OF2AF 1567 C=DATO W READ 5-DIGIT MANTISSA AND SIGN 
448 OF2B3 A92 C=O WP CLEAR OUT JUNK 
449 OF 2B6 20 p= 0 
450 OF2B8 90F 7DHO OP SHORT VARIABLE? 
451 OF2BB DO GOYES SHORT IF SO, GOTO SHORT 
452 OF2BD B45 B=B+1 S SET INTEGER DATA TYPE 
453 OF2CO 7001 GOSUB READIN 
454 OF2C4 645F GOTO FNRTN2 GOTO FNRTN2 
455 OF2C8 16F SHORT DO=D0+ 16 7 
456 OF2CB 1563 C=DATO X READ EXPONENT 
457 OF2CF 694F GOTO FNRTN2 GOTO FNRTN2 
458 
459 OF203 AC1 ZERO 6-0 S$ 
460 OF2D6 AF2 C=O OW 
461 OF2D9 6F3F GOTO FNRTN2 
462 
463 OF2DD 16A COMPLX DO=D0+ 11 
464 OF2EO 146 C=DATO A READ OFFSET 
465 OF2E3 132 ADOEX 
466 OF2E6 EA A=A-C A COMPUTE REGISTER ADDRESS 
467 OF2E8 8COO SNARF GOLONG =CSETUP POLL FOR COMPLEX RON 
00 
468 
469 OF2EE 89F NOTNUN ?P= 15 PARAMETER DATA POINTER? 
470 OF2F1 92 GOYES PASSN IF SO, GOTO PASSN 
471 OF2F3 89E P= = 14 PARAMETER DOPE VECTOR POINTER? 
472 OF2F6 06 GOYES PASSA IF SO, GOTO PASSA 
473 OF2F8 B45 B=B+1 S B(S) = 8 (NUMERIC ARRAY) 
474 OF2FB B45 B=B+1 
475 
476 OF2FE 75B1 VECTOR GOSUB RECADR RECTIFY VECTOR ADDRESS 
477 OF 302 A45 B=B+B S 
478 OF305 A45 B=B+B  S 
479 OF308 80D1 P=C PUT SUBSCRIPT COUNT TO B(14) 
480 OF30C AFD BCEX W MOVE C(1) TO B(14) 
481 OF30F 80FE CPEX 14 
482 OF313 AFD BCEX W 
483 OF 316 620F . GOTO FNRTN2 GOTO FNRTN2 
484 
485 OF31A 20 = PRSSN. P= 0 
486 OF31C A87 Det oP D(O)= VAR TYPE: A,B,C,D,E 
487 OF31F 161 DO=D0+ 2 POINTS TO THE ADDRESS FIELD 
488 OF322 146 C=DATO A READ THE INDIRECT ADDRESS 
489 OF325 DS B=C sR SAVE THE ADDRESS IN B(A) 
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490 OF327 134 DO=C 
491 OF32A WC LCHEX C NOW CHECK WHAT TYPE THIS IS 
492 OF32D 903 7C=D OP IS THIS A REAL NUMBER 7? 
493 OF330 £1 GOYES PASSR IF SO GOTO PASSR 
494 OF332 30A LCHEX A 
495 OF335 A8F CDEX P C(0)=A,B,0,E D(O)=A 
496 OF338 BOF D=C(-D P 0(0)=0,1,3,4 
497 OF33B ROB C=C+D P 
498 OF33E 132 RDOEX 
499 OF341 46A GOC SNARF COMPLEX NUMBER 
500 OF344 132 ADOEX 
501 OF347 181 DO=D0- 2 
502 OF34A 6C5F GOTO  INTSHT IS EITHER INTEGER OR SHORT REAL 
503 OF34E 1567 PASSR C=DATO W JUST RERD THE REAL NUMBER 
504 OF352 66CE GOTO FNRTN2 
505 ® THE INDIRECT ADDRESS IS POINTING TO A DOPE VECTOR OF AN ARRAY 
506 OF356 161 PASSA DO=D0+4 2 
507 OF359 146 C=DATO A READ THE INDIRECT ADDR 
508 OF35C D5 B=C A SAVE THE DOPE VECTOR ADDR IN B 
509 OF35E 134 DO=C 
510 OF361 1567 C=DATO W READ THE DOPE VECTOR 
511 OF365 8001 P=C 1 
512 OF369 ACI B=0 S 
513 OF36C 618F : GOTO NOTNUN 
514 
515 OF370 6D8F ets GOTO VECTOR 
516 
517 OF374 DC NULL ABEX A LEAVE PC IN B-REGISTER 
518 OF376 1H” DO=A LEAVE CHAIN LABEL IN DO 
519 OF379 1CF 01=D1- 16 CREATE NULL STRING ON STACK 
520 OF37C 3400 LC(5) =AVMENS 
000 
521 OF383 137 CDIEX 
522 OF386 143 R=DAT1 A 
523 OF389 8BE 7Ar=C A STACK COLLISION? 
524 OF38C 36 GOYES STKLNK IF SO, GOTO STKERR 
525 OF38E 136 d1=C 
526 OF391 17F Di=Di+ 16 
527 OF394 D2 C=0 A REGISTER NUMBER ZERO 
528 OF396 D3 D=0 A ACTUAL LENGTH ZERO 
529 OF398 6680 GOTO STRHOR GOTO STRHDR 
530 OF39C 7741 =STRING GOSUB ADRS10 SEARCH VARIABLE CHAIN 
531 OF3AO 7781 GOSUB ADRS40 
532 OF3A4 4FC GOC NULL IF NOT FOUND, GOTO NULL 
533 OF3A7 1567 =PTRRCL C=DATO W READ REGISTER AT ADDRESS 
534 OF3AB 8001 P=C 1 
535 OF3AF 89 *P= 0 SIMPLE STRING? 
536 OF3B2 14 GOYES SIMPLE IF SO, GOTO $IMPLE 
537 OF3B4 ACI B=0 S B(S) WILL EQUAL TO "C" LATER 10 
538 OF3B7 B45 B=B8+1 § INDICATE THIS IS A STRING VECTOR 
539 OF3BA B45 B=B+1 § 
540 OF3BD B46 B=B+1 § 
541 OF3CO 891 ops 1 ARRAY POINTER? 
542 OF3C3 DA GOYES VECTLK IF SO, GOTO VECTOR 


543 OF3C5 89E ?P= 14 INDIRECT PASSING DOPE VECT ADDR? 
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544 OF3C8 Al GOYES STRVCT IF SO GOTO STRVCT 
545 OF3CA 166 DO=DO+ 7 
546 OF3CD D2 (=o) 6A 
547 OF3CF 1563 C=DATO 4 READ THE STRING MAXINUM LENGTH 
548 OF3D3 D7 D=C A SAVE THE MAX.LEN IN D 
549 OF3D5 184 DO=D0- 5 POINTS BACK TO STRING ADDRESS 
550 OF3D8 146 C=DATO A 
551 OF3DB 134 DO=C 
552 OF3DE 6020 GOTO  STRRCL UNCONDITIONAL GOTO STRRCL 
553 OF3E2 161 STRVCT DO=D0+ 2 
554 OF3E5 146 C=DATO A READ THE DOPE FACTOR ADDR 
555 OF3E8 134 DO=C 
556 OF3EB 6BBF GOTO = PTRRCL 
557 OF3EF 69ED STKLNK GOTO STKERR SHORT JUMP LINKAGE 


558 OF3F3 162 $IMPLE DO=D0+ 3 


559 OF3F6 D2 C=0 A 
560 OF3F8 15E3 C=DATO 4 READ MAXIMUM LENGTH 
561 OF3FC D? D=C A 
562 OF3FE 167 DO=D0+ 8 
563 OF401 146 C=DATO A 
564 OF404 132 ADOEX 
565 OF407 EA A=A-C A RECTIFY ADDRESS 
566 OF409 132 ADOEX 
567 OF40C D8 = ==STRRCL B=A A SAVE PC IN B 
568 OF40E D2 C=0 A 
569 OF410 153 C=DATO 4 READ LENGTH OF STRING TEXT 
570 OF414 DF CDEX A 
571 OF416 06 RSTK=C SAVE MAX LENGTH ON HARDWARE STACK 
572 OF418 C7 D=D+D A 
573 OF41R 3400 LC(5) =AVMNENS 
000 
574 OF421 136 CDOEX 
575 OF424 CB C=C+D A COMPUTE ADDRESS OF END OF STRING 
576 OF426 142 A=DATO A READ AVAILABLE MENORY POINTER 
577 OF429 134 DO=C 
578 OF42C 163 DO=DO+ 4 
579 OF42F 1CF D1=D1- 16 
580 OF432 13? CD1EX 
581 OF435 136 01=C 
582 OF438 17F D1=D1+ 16 
583 OF43B E2 C=C-A A COMPUTE FREE STACK SPACE 
584 OF43D 8BB *C<=D A STACK COLLISION? 
585 OF440 FA GOYES STKLNK IF SO, GOTO STKERR 
586 OF442 DB C=D A 
587 OF444 8£00 GOSUBL =M0ved3 RECALL STRING TO STACK 
00 
588 OF44A 183 DO=D0- 4 
589 OF44D 07 C=RSTK RETRIEVE MAXINUN LENGTH 
590 OF44F 103 STRHDR D1=D1- 4 
591 OF452 15D3 =FAKE DAT1=C 4 WRITE MAXLEN/REGNUN TO STACK 
592 OF456 2A P= 10 
593 OF458 AI2 C=0 WP CONSTRUCT ADDRESS RESIDUAL 
594 OF45B 35EF LCHEX DFFFFE 
FFFD 


595 OF463 D9 C=B A 
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596 OF465 136 CDOEX 
597 OF468 AFS B=C W 
598 OF46B 14 D1=D1- 5 
539 OF46E 145 DAT1=C A WRITE ADDRESS TO STACK 
600 OF471 DB C=D A 
601 OF473 BF2 CSL W CONSTRUCT STRING INDICATOR 
602 OF476 812 CSLC 
603 OF479 1C6 D1=D1- 7 
604 OF47C 15D6 DAT1=C 7 WRITE INDICATOR & LENGTH TO STACK 
605 OF480 6BBD GOTO  EXPR REPEAT EXPR 
606 JIG IDO CC CISC TOI OI SOIC I I TIT III K 
607 ROTOR ROI OI OO IOI IOI I IOI IOI IOI IOI OIC 
608 aS 
609 ** Nanie:(S) READIN - Read Sonething In 
610 aK 
611 ** Category:  MTHUTL 
612 aa 
613 kk Purpose: 
614 a Probably. 
615 Rx 
616 ** Entry: 
617 a Unclear. 
618 wee 
619 EA ENIt: 
620 a Unclear. 
621 RA 
622 x* Calls: None. 
623 cx 
624 AR OUSES is bacad 3 
625 ax DL PLCS). 
626 7 
627 *K Stk Ivis: 0 
628 ae 
629 ** History: 
630 xx 
631 a Date Prograriner Modification 
632 RY. MoesaGieen: siete cieetc: ca cusocseccnoeuelec ee cece cee c emacs 
633 cg SA Wrote 
634 Ke 41/01/83 NM Attenpted to docurent 

a 
a6 JOO a OI IOI IO IOI OTIS IOI OOO IE IOI III 
637 JU ALIS I IIIS II ISIS OCIS IEEE CG CTO TK 
638 OF484 AC? =READIN D=C S UNPACK SIGN & EXPONENT 
639 OF48? oF P= 16 
640 OF489 3385 LCHEX F058 

OF 

641 OF48F 20 P= 0 
642 OF 491 OF47 C=(8b $ 
643 OF495 B43 D=p-C §$ 
644 OF498 AE3 p=0 B 
645 OF49B 813 DSLC 
646 OF49E ABF CDEX 
647 OF4A1 BO3 B=0-C P NAN OR INF? 
648 OF4A4 580 GONC = RDINIO IF NOT, GOTO RDINIO 


649 OF4A? BSF D=-f-1 P CONSTRUCT PROPER EXPONENT 
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650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 


693 
694 
635 
696 
697 


698 
699 
700 
701 
702 


OF4RA ABB 
OF4AD 94A 
OF 4B0 00 
OF4B2 B46 
OF4B5 01 


OF 4B7 8E00 
00 
OF4BD 16A 
OF4CO 132 
OF4C3 EE 
OF4C(5 132 
OF4C8 8000 
000 
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C=0 x 
RDINIO ?€=0 = § POSITIVE NUMBER? 
RTNYES IF SO, RETURN 
C=C+1 $ CONSTRUCT PROPER SIGN DIGIT 
RTN RETURN 


x 

FOI IIIT TTT TTT TIT TT TIT ITI I 
FOO IIIT IO TOTO TO TI OTTO TTI TTT IK 
aK 


** Nane:(S) RECADR - Sone Recall Utility 
Sok 


** Category: VARMGT 

&k 

** Purpose: 

Ka Perforn DO0:=00+11 ; C{9-5]:=DO-C[9-5]. Evidently 
ax useful for recalling things. 
ok 

** Entry: 

a Things in C and DO. 

mas HEX node. 

&k 

kK Exit: 

ak DO has been incremented by 11. 
ak C(9-5] = New DO - C[9-5]. 

ER HEX node. 


Kk Calls: 0 


xx DO, C[9-5]}. 
*k Stk Ivls: 0 
** History: 

x 


xx Date Progratiner Modification 
HAS wcuweien Ltoctasess Secususste Wc seume diate emuceeeosbe. 
ae SA Wrote 


Kk 41/09/83 NM Atteripted to docunent 
aK 


FOI OIC TOO TOT TTT ITN 
FOI IOI TORO TOT TOT TTT TTI ITT ITS TTI TIKIT IT TT TK 


=RECADR GOSUBL =Cslc5 


DO=D0+ 11 
ADOEX 
C=A-C A 
ADOEX 

=csrc5 GOVLNG =CSRC5 


FO IOI OO I TTI TIT TTT TK 
FO IORI TTT TTI TOT TTT K 
xx 


**k Nane:(S) ADRSUB - Get Variable Nane Fron Token Strean 
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703 ak 
704 ** Category: VARNGT 
705 kk 
706 ** Purpose: 
707 + Read a token strean for a variable and return 3-digit 
708 aK code for that variable 
709 &k 
710 *k Entry: 
711 Kk P=, 
712 aX HEX node. 
713 wk DO points at token strear 
714 ak 
715 Re Exit: 
716 kx P=Q, 
717 xk B(X) = 3-digit code for variable 
718 Kk (Defining aa = ASCII code for variable nane) 
719 ax = QOaa if simple variable. 
720 xk = qaa if alpha-digit variable, where q = digit+1. 
721 xk = Obb if string var, where bb = aa ! 20H. 
722 Ke = qbb if alpha-digit string var. 
723 kk DO points past last byte of variable tokenization. 
724 aK Carry set 
725 kx 
726 *k Calls: None 
72? am 
728 KX Uses.....ee 
729 *k Inclusive: B(X),C(X),DO. 
730 ik 
731 *k Stk lvls: 0 
732 ae 
733 ** History: 
734 kK 
735 aK Date Progranner Modification 
736 KK Sseeeec’” “se boeashe  Erovescoeecs tous cue cee es cece ces. 
737 ne SA Wrote 
738 10/13/83 9 NN Atteripted to docunent 
x 
i FIT I TI TTT TTR SIDA IDI DAIS IDI ISI III ITI IDI ID IDI I DK 
241 JOO OU OUI ST GUI CITI IIA I TI IIIT IA 
742 OFSCF 01 =ADRSUB B=0 A INITIALIZE 
743 OF4D1 14E C=DATO B READ TOKEN 
744 OF 4D4 161 DO=D0+ 2 
745 OF 4B? ARES B=C B SAVE IN B-REGISTER 
746 OF4DA 3102 LCHEX 20 
747 OF4DE OF65 C=B8C 8B 
248 OF4E2 396A *C= B ALPHADIGIT OR STRING VARIABLE? 
749 OF4ES OO RTNYES IF NOT, RETURN 
750 OF4E7? BET ADRS10 BSL B 
751 OF4ER BB1 BSL x 
252 OF4ED 14€ C=DATO B 
753 OF4FO 161 DO=D0+ 2 
754 OF4F3 RES B=C B 
755 OF4F6 3206 LCHEX 60 
D 


756 OF4FB 925 7BRC XS STRING VARIABLE? 
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757 OF4FE 42 GOYES ADRS3O0 IF NOT, GOTO ADRS30 
758 OF 500 AAI B=0 XS 
759 0F503 A2D B=B-1 XS B(XS) = F 
760 OF 506 9E5 7B<C iB ALPHADIGIT STRING? 
761 OF 509 51 GOYES ADRS20 IF NOT, GOTO ADRS20 
762 OF 50B BE1 BSL B 
763 OF50E BB1 BSL x 
764 OF511 14€ C=DATO B 
765 OF 514 161 DO=D0+ 2 
766 OF 517 RES B=C B 
767 OFSIA 3106 LCHEX 60 


768 OFSIE O€69 ADRS2O B=BIC B 
769 OF522 B25  ADRS30 B=B+1 XS 


770 OF525 02 RTNSC 

774 JOO UU TOT TITS IIT SITS ISI SII III IAI IOS 
772 SIRI TOTTI ITI II OAS III III III SIS ISI IOI IAT IAS 
773 ah 

774 ** Nane:(S) ADDRSS - Find Address Of A Variable 

775 xk Narie:(S) ADRS40 - Find Address Of A Variable 

776 *k Narie:(S) ADRSSO - Find Address Of Var Not Of Parn Chain 
777 ** Nane:(S) FIND - Find Address Of Var Not Of Parn Chain 
778 ** Nane:(S) ADRS8O - Find Address Of Var Not Of Parn Chain 
779 ak 

780 ** Category: VARNGT 

781 xR 

782 xk Purpose: 

783 **k ~— ADDRSS, ADRS40: Search paraneter chain and then variable 
784 ae chains to find a variable. 

785 xk ADRS5O: Search variable chains to find variable (do not 
786 as search parameter chain. 

787 ** FIND : Sane as ADRSSO except search already in progress. 
788 o ADRS80: Sane as FIND except DATO already read. 

789 * 

790 xk Entry: 

791 as P=0, 

792 x ADDRSS: DO points at token strean of variable to be 
793 aR found. 

794 aa ADRS40: B[X] contains 3-digit code for variable to be 
795 xk found. 

796 ak ADRSSO: B[X] contains 3-digit code for variable to he 
797 kh found. 

798 ah FIND : Search already in progress. B[X] as above. 
799 a DO points at a variable nane entry in variable 
800 xk chain. 

801 xk D[B] = #entries left in chain. 

802 as ADRS80: Sane as FIND + C[X] contains entry already 
803 = read at DO. 

804 kk 

805 RAO ERT: 

86 7 P = 0 

807 aA Carry set if variable not found 

808 ae Carry clear if variable found 

809 a DO,B(A) = Address of variable register 

810 xR ALA] = DO at tine of entry (if ADRS40 called). 


811 a Pointer past variable tokenization (if ADDRSS 
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812 
813 
814 
815 
816 
81? 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 OF527 
837 OF52B 
838 OFS52E 


839 OF 535 
840 OF 538 
841 OF53B 
842 OFS53E 
843 OF 541 
844 OF 544 
845 OF 547 
846 OFS4A 
847 OFS4E 
848 OF 551 
849 0F555 
850 0F558 
851 OF55A 
852 OF 55D 
853 OF 560 
854 OF 563 
855 OF 567 
856 OF 56A 
857 OF 56D 
858 OF 5S6F 
859 OF 572 
860 OF 574 
861 OF 577 
862 

863 

864 

865 


ty 


74AF 
132 
1B00 
000 
14€ 
AGE 
451 
RE? 
161 
146 
134 
7FO 
500 
7420 
5DO 
02 
16F 
RoF 
400 
1563 
162 
935 
DE 
132 
Dg 
132 
03 
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xk called). 
a A{A] at tine of entry (if ADRSSO, ADRS80 
ax called). 
ak 
*k Calls CHNHED,ADRS70,ADDRSS calls ADRSUB 
xk 
Kk Uses....... 
aR DO,A(A),B(A),C(6-0), D(A) 
re’ 
xk Stk lvls: 1 
aK 
xk Detail: 


First searches paraneter chain for variable (in case 
passed in CALL). Then searches variable chain. 


** History: 

a 

a Date Progranner Modification 

KK? See lae.  Beeeeciuce. -Suathossecestiocoeatawaces.Sesecce se: 
* SA Wrote 

kk 10/13/83 NM Attempted to docunent 


xk 
FO III OO TIO ICIS TOO IOI IK 
FOO IU JOT TOTO TU OTTO OT IT IK 


=ADDRSS GOSUB ADRSUB 
=ADRS40 ADOEX 


DO=(5) =PRMPTR 

C=DATO B READ PARAMETER CHAIN POINTER 

C=C-1 B NULL CHAIN? 

GOC ADRS5O IF SO, GOTO ADRS5O 

d=C B PREPARE FOR PARM CHAIN SEARCH 

=DO+ 2 

C=DATO A C = PRMPTR 

pOo=C 

GOSUB ADRS70 SEARCH PARAMETER CHRIN 

RTNNC IF FOUND, RETURN CARRY CLEAR 
=ADRS5O GOSUB CHNHED GET CHAIN HEAD POINTER 

GONC FIND IF CHAIN NOT NULL, GOTO FIND 

RTNSC RETURN CARRY SET 
ADRS60 DO=D0+ 16 POINT TO NEXT CHAIN ELEMENT 
ADRS70 D=D-1 8B CHAIN EXHAUSTED? 

RTNC IF SO, RETURN CARRY SET 
=FIND (C=DATO X READ CHAIN LABEL 
=ADRS80 DO=D0+ 3 POINT TO REGISTER CONTENTS 

7BHC OX VARIABLE FOUND? 

GOYES ADRS60 IF NOT, REPEAT ADRS6O 

RDOEX 

B=A A STORE ADDRESS IN B 

ALOEX 

RTNCC RETURN CARRY CLEAR 


FOO II SO III IOI OOOO TOTO TO OT TIT TI III 
FOR IOI OI TOT TT 
xn 


*X Warie:(S) CHNHED - Point To Variable Chain Head 
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866 ak 
867 *k Category: VARNGT 
868 aK 
869 ** Purpose: 
870 aK Point to variable chain head and return # entries in 
871 aK chain. 
872 kK 
$73 ek Entry: 
874 ax P=0. 
875 ak HEX node. 
876 , B[X] = three-digit variable nane (see ADRSUB doc hdr). 
877 
878 AK Exit: 
879 ak P=0, 
880 ak HEX node. 
881 ak D[B]=# itens in chain - 1. 
882 a Carry set iff chain enpty. 
883 aK C[R], DO=pointer to chain head. 
884 ak 
885 Ak Calls: None. 
886 aK 
887 aK Uses.....0. 
888 aK C{A},C[6-0], dO. 
889 ak 
890 kk Stk lvls: 0 
831 ak 
892 *k History: 
893 ak 
894 ze Date Progranner Nodification 
895 RE. Gets “hee. nteck ae es a oe ae een 
896 ak SA Wrote 
897 ek 10/13/83 NI Attempted to docunent 

aK 
as JI IOI UII OO III I TTT TI III 
300 JIG III IOI TIO I IO OTC I TIO TI II TIT 
901 OF579 D2 =CHNHED C=0 A RECONSTRUCT CHAIN NAME 
G9O2 OF57B 31F5 LCHEX 5F 
803 OF57F OE65 C=BaC 8B 
904 OF583 D7 D=C A COMPUTE ADDRESS OF POINTER 
905 OF585 R66 C=C+C 8B 
906 OF588 A33 D=C+D X 
907 OF58B A36 C=C+C xX 
908 OFS8E AI3 D=C+D xX 
909 OF591 3400 LC(5) (=CHNLST)-\A\*7 

000 

910 OF598 CB C=C+D AR 
911 OF59R 134 DO=C 
$12 OF59D 15E6 C=DATO 7 READ POINTER & COUNTER 
913 OF5A1 REZ D=C B 
914 OFSA4 26 P= 6 
915 OF5R6 B96 CSR WP 
916 OF5AR9 B96 CSR WP 
917 OFSAC 134 DO=C LOAD CHAIN HEAD ADDRESS 
918 OFSAF 20 p= 0 


919 OFSB1 AGF D=D-1 8B COND’ TN CTR, NULL CHN SETS CARRY 
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920 OF5B4 01 

921 

922 OF5SB6 OB 

923 OF5B8 1F0O 
000 

924 OFSBF 1553 

925 OF5C3 03 

926 

92? 

928 

929 

930 

931 

932 

933 

934 

935 

936 

93? 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

350 

351 

952 

953 

954 

955 

956 

Jof 

958 

959 OFSCS 132 

960 OFSC8 1B00 
000 

961 OFSCF 1563 

362 OFS5D3 OB 

363 OFSD5 132 

964 OFS5D8 03 

965 OFSDA 
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RETURN 
JI II II IIIT III IOS II ASI SII IIIS IASI IIS II II III II III ISI IIS L 
=GETST CSTEX 
D1=(5) =STSAVE NEED 5 NIB LOAD HERE (SW-6/28/82) 


DATI=C X SAVE PREVIOUS STATUS BITS 


RETURN CARRY CLEAR 
III IA IIIS I III I IIIT IIIS ITI III ITT I IIIS STII ISI III ITT T IIIS SKI IA 


JOTI IOI TOI TTI IT TTI ITI TTD TIT IK 
xk 


&k Nare:(S) RSTST  - Restore Status Bits 

ik 

xk Category:  MTHUTL 

x 

xk Purpose: 

ae Restore status bits saved in STSAVE. 

aK 

ek Entry: 

ak None. 

kk 

ak Exit: 

Status bits restored. 

a Carry clear. 

rk 

ek Calls: None. 

kk 

RK Uses.....0. 

aK A[A}, C(x). 

ak 

aK Stk Ivis: 0 

kk 

** History: 

hk 

kK Date Programmer Modification 
RE eke es “oe Sete seem tel eer ee 
aK SA Wrote 

ke 11/01/83 9 NM Added docunentation 
kh 


FOI II OO ITO TIT TIT III IIT ITN 
FOR IIT TOTTI TTI 


=RSTST ADOEX 
DO=(5) =STSAVE 


C=DATO X 
CSTEX 
ADOEX 
RINCC 
END 
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SIMPLE Abs 62451 #0F3F3 - 558 536 
=ADDRSS Abs 62759 #OF527 - 836 
ADRS10 Abs 62695 HOF4E7 - 750 428 530 
ADRS20 Abs 62750 HOFSTE - 768 761 
RORSIO Abs 62754 HOFS22 - 769 757 
=ADRS40 Abs 62763 #0F52B - 837 429 531 
=ADRSSO Abs 62801 #OF551 - 848 841 
RDRS6O Abs 62810 HOF55A - 851 857 
ADRS70 Abs 62813 HOF55D - 852 846 
=ADRS80 Abs 62823 HOF567 - 855 
=ADRSUB Abs 62671 HOF4CF - 742 836 
AVMENS Ext - 297 520 573 
=BLDNUN Abs 61847 #0F197 - 116 
=CHNHED Abs 62841 #0F579 - %1 848 
CHNLST Ext =. 909 
COLLAP Ext rm 68 
COMPLX Abs 62173 #OF2DD - 463 441 
CSETUP Ext - 467 
CSRC5 Ext - 697 
Csic5 Ext - 692 
=DYNANC Abs 62070 #OF276 - 428 
EXPEND Abs 61920 HOF1EO - 177 315 
ZEXPEX+ Abs 61826 #OF182 - 70 
‘| SEXPEX- Abs 61816 #0F178 - 68 
| =EXPEX1 Abs 61830 #0F 186 - 71 
EXPEX2 Abs 61840 HOF190 - 74 69 
=EXPEXC Abs 618% #O0F 186 - 72 
=EXPR Abs 62012 #OF23C - 309 75 = 605 
=FAKE Abs 62546 #OF452 - 591 
=FIND Abs 62819 HOF563 - 854 849 
FLOAT Abs 61902 HOFICE - 135 129 
EFNRTN1 Abs 61974 #OF216 - 296 134 137 
=FNRTN2 Abs 61977 #OF219 - 297 436 454 457 461 483 504 
=FNRTN3 Abs 62005 H0F235 - 306 
=FNRTN4 Abs 62008 #OFZ238 - 307 
=GETST Abs 62902 HOF5B6 - 922 70 
SINTSHT Abs 62119 HOF2A7 - 444 502 
LASTFN Ext + 313 
=LPRP Abs 62012 HOF23C - 308 
MRINT = Ext - 318 
MOved3 Ext - 587 
MTHSTK Ext 72 
NOMEN Ext a) N39 


NOTNUN Abs 621% HOFZEE - 469 439 513 
NULL Abs 62324 #0F374 - 517 532 
=QNEDGT Abs 61960 HOF208 - 228 

PASSA Abs 62294 HOF356 - 506 472 

PASSN Abs 62234 HOF3IA - 485 470 

PRSSR Abs 62286 HOF34E - 503 493 
PRAPTR Ext - 838 

=PTRRCL Abs 62375 HOF3A7 - 533 556 
RDIN1O Abs 62637 HOFAAD - 651 648 
=READIN Abs 62596 HOF484 - 638 453 


=RECADR Abs 62647 #0F4B7 - 692 476 
=RECALL Abs 62081 #OF281 - 431 
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SRSTST Abs 62917 HOFSC5 - 959 
SHORT Abs 62152 #OF2C8 - 455 451 
SNARF Abs 62184 HOF2E8 - 467 499 
=STATIC Abs 62074 HOF27A - 429 
STKERR Abs 61913 HOF1D9 - 139 304 557 
STKLNK Abs 62447 HOF3EF - 557 524 585 
STRHDR Abs 62543 HOF44F - 590 529 
sSTRING Abs 62364 HOF39C - 530 
=STRRCL Abs 62476 HOF40C - 567 552 
STRVCT Abs 62434 HOF3E2 - 553 544 
STSAVE Ext - 923 960 
SYSEN Ext - 178 
=TRANTR Abs 61917 HOFIDD - 176 
VECTLK Abs 62320 #0F370 - 515 542 
VECTOR Abs 62206 HOF2FE - 476 515 
ZERO Abs 62163 #OF2D3 - 459 430 
scsrc5 Abs 62664 HOF4C8 - 697 
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Input Paraneters 
Source file nare 1s ABSEXP: : NS 
Listing file name is AB/EXP:TI:ML::-1 
Object file nane 1s ABZEXP: TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 TITLE Assignment Staterent Controller<831216.1822> 
2 OFSDA ABS  #OFSDA 
3 x A BBBB & A SSS oN ON 
4 & AA B B && AA S$ $ N N 
5 x A AB B&R A AR S NN ON 
6 x A A BBBB & A A SSS NNN 
7 x ARAAAR B B & && ARARA S N NN 
8 x A AB B& & A AS § N N 
g x A A BBBB 8&8 A A SSS N N 
10 FOCI IO II TOTTI ITO TOI 
11 RDSYMB TIZEQU::MS 
12 JI I ITI TID III IIIT STI IIIS IIIA 
13 FOOT RRR ITO I TIO ITI 
14 ai 
15 ** Nane:(S) ASNMNT - Perform Variable Assignnent 
16 x Narte: ASNSTO - Perform Variable Assignnent 
17 ae 
18 kk Category:  STEXEC 
19 ak 
20 ** Purpose: 
21 Rk Evaluate expression and assign it to a variable. 
22 ax ASNANT evaluates (1.e., locates) destination variable. 
23 ak ASNSTO does not (and requires proper entry conditions 
24 ax for DEST subroutine). 
25 kia 
26 ** Entry: 
27 ax ASNANT - DO @ Destination Variable token. 
28 ae ASNSTO - DO 1 byte before start of expression, 
29 aR Entry conditions for DEST. 
30 xx 
31 xx S15 set if trace is desired. 
32 xx 
33 AR Exit: Top 16 nibbles of Mathstack in A, 
34 ak DO @ end of Statenent, 
35 xk D1 @ top of Mathstack. 
36 xk 
37 ** Calls: DEST, EXPEX-, SVTRC. All STORE calls (below) 
38 aK 
39 ** Uses: Everything. 
40 xk 
41 AK Stk lvls: 6 
42 xR 
43 ** History: SA and SC 
44 a 
45 ae Date Progranner Modification 
46 Ris atheeck) tee. ved iuecieie ea ees aaa eee e 
4? ek 05/26/82 SA Personnel change 
4&8 xk 
49 JOO I IOI IIT IS IT TIT ITI TISAI TAD 
50 FR IK IIIT IAT ITI TTT T TITAS II III III III III III IIT I ITI ITI III TAS 
51 
52 OFSDA 8COO =NOMEN GOLONG =MNENERR INSUFFICIENT MEMORY 
00 
53 OF5EO 86F =ASNNNT 7ST=0 16 IN TRACE MODE ? 


54 OFSE3 60 GOYES ASNM1O IF NOT, GOTO ASNN10 
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55 OFSES 7044 GOSUB SVTRC SAVE STATEMENT ADDR IN $-R1-2 
56 x 
5? * Assignnent calls Expression Execute at EXPEXC 
58 * (Builds fron TFORN) 

59 x 

60 

61 OF5E9 7000 ASNN10 GOSUB =EXPEX- LOCATE VARIABLE 

62 OFSED 7FB1 =RSNSTO GOSUB DEST SAVE DESTINATION INFORMATION 
63 OFSF1 161 DO=D0+ 2 

64 OF5F4 7000 GOSUB =EXPEX- COMPUTE RESULT 

65 JORIS II IIIT IIIT I TOT IIIT ITI TIS IIIT III IIIT I IDI III IOI ITT III TAK 
66 FOO RIO J JI OTTO OT OR OO TTT IK 
67 ak 

68 ** Nare:(S) STORE - Store Fron Stack To Variable 

63 ax 

70 *k Category: STEXEC 

71 xx 

72 *k Purpose: Store nurber or string in known register. 

73 ak 

74 ak Entry: Exit conditions of DEST 

75 x D1 = (MTHSTK) = true top of Mathstack, 

76 ie Top 16 nibbles of Mathstack in A. 

77 x Staternent scratch has infornation set up by 
78 aR DEST. 

79 a $-R1-2= Address points at the variable nare 

80 xR This address is for TRACE to decompile the 
81 we variable nane. If the content of S-R1-2 is 
82 xe zero, the assignent will not be traced. 

83 xk 

84 RX Exit: Preserves DO, 

85 a D1 @ top of Mathstack, 

86 x R3 contains value stored in variable location 
87 sed (as opposed to the value in the RES register) 
88 xk 

89 ** Calls: CPOLL, Create, INTGR, RESTOR, SHRT, STRASN. 

90 xn 

91 ** Uses: Everything. 

92 xk 

93 *K Stk lvis: 5 (TRACEA and CREATE) 

94 ks 

95 xk History: 

96 x 

97 a Date Progranner Modifications 

98 Bi. gewwsts Getegescon: temic tenses 

99 ke 03/14/83 SW R3 contains value stored 

100 aX 

101 SOOT ROO OO OIG OOO IR OIG IDI III fo 
102 FORGO IIIT OI TO OOOO 
103 * 

104 * NOTE: Above code falls into this code 

105 * 


106 OF5F8 20 
107 OF5FA 136 
108 OF5FD 06 
109 OF5FF 1B00 


=STORE P= 0 
CDOEX 
RSTK=C SAVE PC ON HARDWARE STACK 
DO=(5) =S-RO-0 
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000 
110 OF606 7AF1 
111 OF6OR 4FC 
112 OF60D 309 
113 OF610 986 
114 OF613 03 
115 OF615 R4E 
116 OF618 506 
117 OF61B 1507 
118 OF61F 103 
119 OF 622 1B00 

000 
120 OF629 1507 
121 OF 62D 04 
122 OF62F 86F 
123 OF632 60 
124 OF 634 6000 
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STORE1 


STORE2 


125 OF638 75F2 =TRCRIN 


126 OF63C 07 
127 OF63E 134 
128 OF641 03 
129 

130 OF 643 BO4 
131 OF646 A64 
132 OF649 96C 
133 OF64C 15 
134 OF64E B46 
135 OF651 B46 
136 OF654 B46 
137 OF657 514 
138 OF65A 7550 
139 OF65E SEC 
140 OF661 6DE2 
141 

142 OF665 7303 
143 OF669 1537 
144 OF66D 64BF 
145 OF671 7623 
146 OF675 63FF 
147 OF679 ACS 
148 OF67C A4E 
149 OF67F 45€ 
150 OF682 A4E 
151 OF685 4BE 
152 OF688 3196 


153 OF68C 8E00 
00 
154 OF692 560 
155 OF695 679F 
156 
157 
158 
159 
160 


161 OF699 61B2 


OM OF 


STORE4 


R5STO 
AGRIN 


ISST0 
STORES 


POLL 


TYPLK1 


GOSUB 
GOC 
LCHEX 
AOC 
GOYES 
C=C-1 
GONC 
DATO=R 
R3=A 
DO=(5) 


DATO=A 
SETHEX 
?S$T=0 
GOYES 
GOTO 
GOSUB 
C=RSTK 
DO=C 
RTNCC 


R=A+1 
A=A+A 
ARO 
GOYES 
C=C+1 
C=C+1 
C=C+1 
GONC 
GOSUB 
GONC 
GOTO 


GOSUB 
R=DAT1 
GOTO 
GOSUB 
GOTO 
B=C 
C=C-1 
GOC 
C=C-1 
GOC 
LC(2) 
GOSUBL 


GONC 
GOTO 
A=0 
B=B+1 
GOC 
B=B+1 
GOC 
GOTO 


Create 
NOMEN 
9 

Pp 
STORE4 
S 
STORES 
W 


=RESREG 
W 


15 
TRCRTN 
=TRACEA 
RESTOR 


TYPLK1 
STRASN 
STORE2 
ERROR 


SHRT 

Wd 
STORE1 
INTGR 
AGRIN 
S 

$ 
R5STO 
S 
I5ST0 
=cR->C 
=CPOLL 


TYPLK1 
STORE2 
W 

5 
C5ST0 
S 
C12ST0 
TYPERR 


Page 3 


CREATE VARIABLE IF NECESSARY 
IF OUT OF MEMORY, GOTO NOMEN 


RERL RESULT? 

IF NOT, GOTO STORE4 

REAL DESTINATION? 

IF NOT, GOTO STORES 

STORE REAL RES IN REAL DEST 


STORE RESULT IN RESULT REGISTER 


TRACE MODE? 

IF NOT, GOTO TRCRIN 
PERFORM TRACE 

RESTORE TOP OF STACK TO A 
RESTORE PC 10 DO 


RETURN CARRY CLEAR 


STRING RESULT? 
IF NOT, GOTO STORE6 


STRING DESTINATION? 
IF NOT, GOTO TYPERR 
STORE STRING IN DESTINATION 
STORAGE OK THEN GOTO STORE2 
GOTO ERROR HANDLER 


STORE REAL RES IN SHORT DEST 
REREAD RESULT 

GOTO STORE1 

STORE REAL RES IN INTEGER DEST 
GOTO AGAIN 

PREPARE FOR COMPLEX 

SHORT DESTINATION? 

IF SO, GOTO R5STO 

INTEGER DESTINATION? 

IF SO, GOTO ISSTO 


POLL FOR COMPLEX 


IF NOT HANDLED, GOTO TYPERR 
GOTO STORE2 

ZERO IMAGINARY PART 

COMPLEX SHORT DESTINATION? 
IF SO, GOTO C5870 

COMPLEX DESTINATION? 

IF $0, GOTO C12ST0 

GOTO TYPERR 
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162 
163 
164 
165 
166 OF69D 3186 
167 OF6A1 6REF 
168 
169 
170 
171 
172 
173 
174 
175 
176 
17? 
178 
179 
180 
184 
182 
183 
184 
185 
186 
187 
188 
189 
190 
194 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
ete 
213 
214 
215 
216 


- 


& 
S 


C 


C 


S 


ee Oe OO 


. 
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TORE6 LCHEX € 

PARC OB 
GOYES TYPERR 
LC(2) =cC-C 
GOTO = =POLL 
D1=D1+ 2 
R=DAT1 W 
D1=D1+ 16 
C=C+1 § 

GOC C5S10 
GOSUB SHRT 
DO=D0+ 3 
A=DAT1 W 
GOSUB SHRT 
A=DAT1 W 

GOTO STORE? 
DATO=A W 
DO=D0+ 16 
R=DAT1 W 
DATO=A W 

D0=(5) C RESREG)+18 
DATO=A W 
D1=D1- 2 
A=DAT1 B 
DO=DO- 2 
DATO=A B 
01=D1- 16 
R=DAT1 W 

GOTO ©«©STORE1 


COMPLEX RESULT? 

IF NOT, GOTO TYPERR 
TORES 
READ IMAGINARY PART 
COMPLEX SHORT DESTINATION? 


IF SO, GOTO C5STO 


5870 WRITE IMAGINARY PART TO DEST 


READ REAL PART 


12ST0 


TORE? 


TORES 
GOTO STORE1 


WRITE REAL PART TO DESTINATION 


2:27 an 


4 


ORIEL ae I 
FOTO IIT TT TTT TOT TO ITT IT TIT IIIT I ITN 


ak 
aK 
ak 
ak 
ae 
ak 
ak 
xx 
xk 
xk 
xk 
ak 
ax 
ak 
a 
ak 
ak 
ak 
ax 
xx 
ak 
xk 
at 


Nane:(S) STRASN - String Assignnent 


Category: VARNGT 


Purpose: Store a string fron stack to a string variable 


Entry: 
D1 = Stack pointer 
A = String header fron stack ( A=DAT1 W) 
S-RO-0 = Destination address ( @ String length) 
= 00000 if hokey destination. 
Exit: 
P=0 


Carry clear => No error 
Carry set => String too long 


Calls: NOVED3, MOVEU3 
Uses: A,B,C,D 
Stk lvls: 2 
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217 ax 
218 kk History : 
219 aia 
220 ** Date Progranner Modification 
271 Si eee hit eee an whee Se aes ee on ae 
222 ie 6/17/82 Sc straight line code=> subroutine 
a SOOT OTOR OO IOI TIO JI OI TTT TITTOK 
225 ORO JOTI TO TIT OTT TO TO TT TO TI 
226 A 
227 OF6AS5 07 TOOLNG C=RSTK TRASH STUFF ON STACK 
228 OF 6A? 07 C=RSTK 
229 OF6RI D2 C=0 A 
2X) OFGAB 3100 LC(2)  =eSTROV 
231 OFGAF 02 RTNSC RETURN CARRY SET 
232 OF6B1 03  HOKEY RTNCC RETURN CARRY CLEAR 
233 OF6B3 BF4 =STRASN ASR W 
234 OF6B6 BF4 ASR W 
235 OF6B9 1800 DO=(5) =S-RO-0 
000 
236 OF6CO 146 C=DATO A 
237 OF6C3 BAR 7-0 «OA HOKEY DESTINATION? 
238 OF6C6 BE GOYES HOKEY IF $0, GOTO HOKEY 
239 OF6C8 137 COIEX 
240 OF6CB 06 RSTK=C STACK POINTER ON HARDWARE STACK 
241 OF6CD D2 C=0 A 
242 OF6CF 15F3 C=DAT1 4 
243 OF6D3 C6 C=C+C A 
244 OF 6D5 DS B=C A CURRENT DESTINATION LENGTH IN B 
245 OF 6D7 CO A=A+B A 
246 OF6D9 164 DO=D0+ 5 
247 OF BDC 146 C=DATO A 
248 OF6DF AF3 D=0 W 
249 OFGE2 D? D=C A START POSITION IN D 
250 OF6E4 CA A=A+C A 
251 OF6E6 164 DO=D0+ 5 
252 OF6E9 146 C=DATO A END POSITION IN C 
253 OFGEC 881 7BoC OAR END AFTER CURRENT END? 
254 OFGEF 40 GOYES $TORE1 IF SO, SET END TO CURRENT END 
255 OF6F1 D9 C=B A 
256 OF6F3 ER $TORE1 A=A-C A NEW OVERALL LENGTH IN A 
257 OF6F5 25 P= 5 
258 OF6F7 A A=0 P 
259 OF6FA 20 = 0 
260 OFEFC 81C ASRB 
261 OFGFF 06 RSTK=C 
262 OF701 16A DO=D0+ 11 
263 OF 704 146 C=DATO A STRING ALLOTMENT IN C 
264 OF 707 8B6 AC OA STORAGE OVERFLOW? 
265 OF70A B9 GOYES TOOLNG IF $0, GOTO TOOLNG 
266 OF70C 1593 DAT1=A 4 STORE NEW STRING LENGTH 
267 OF710 C4 A=A+A A 
268 OF712 07 C=RSTK 
269 OF714 173 Di=D1+ 4 


270 OF 71? 8B ?A<=B OA NEW STRING SHORTER THAN OLD? 
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271 OF71R 
272 OF7IC 
273 OF71F 
274 OF 721 
275 OF 724 
276 OF 726 
277 OF 723 
278 OF72B 
279 OF 72D 
280 OF 72F 
281 OF 732 
282 OF 734 
283 OF 736 
284 OF 739 


285 OF 73F 
286 OF 743 
287 OF 746 
288 OF 749 
289 OF 74C 
290 OF74E 
291 OF 751 
292 OF 753 
293 OF 756 
294 OF753 
295 OF75C 
296 OF 75E 
297 OF 760 
298 OF 763 
299 OF 766 


300 OF 76C 
301 OF 770 
302 OF 773 
303 OF 775 
304 OF 777 
305 OF77A~ 
306 OF 770 
307 OF77E 
308 OF 780 
309 OF 782 
310 OF 785 
311 OF 788 
312 OF 78B 
313 OF 78E 


314 OF 794 
315 OF 796 
316 OF 799 
31? OF79B 


318 OF7A1 


319 OF7A8 
320 OF 7AB 


2306 


65 
13? 
CA 
131 
cg 
134 
DB 
DD 
£3 
560 
D3 
D9 
81F $TORE2 
8E00 
00 
3102 
580 
1C1 = STORE3 
14D 
CF $TORE4 
57F 
07 
134 
161 
142 
DE 
CA 
1H” 
16F 
8E00 
00 
6430 
133 $TORES 
EE 
C9 
13? 
C8 
DB 
E1 
QO? 
144 
161 
146 
16D 
3EOO 
00 
DS 
14 
DB 
8E0O 
00 
1FOO = $TORE? 
000 
147 
135 


GOYES 
CD1IEX 
A=A+C 
D1=A 
C=B+C 
DO=C 
C=B 
BCEX 
D=D-C 
GONC 
D=0 
C=B 
DSRB 
GOSUBL 


LCASC 
GONC 
D1=D1- 
DAT1=C 
D=D-1 
GONC 
C=RSTK 
dO0=C 
DO=D0+ 
A=DATO 
ACEX 
A=A+C 
DO=A 
D0=D0+ 
GOSUBL 


GOTO 

ADIEX 
C=A-C 
C=B+C 
CD1EX 
B=A+B 


onon Wt} DOW 
nx 


SSP SSr re 
Bese" 4 


Assignnent Staterient Controlle 


STORES 


TORE2 


DBDSFeDDODD 


="0ved3 


AA 
$TORE4 
2 

B 

A 
STORES 


Da>wpDr 


16 
=MOved3 


$TORE? 
A 
A 
A 
A 
A 


2 

A 

14 
=Moveu3 


A 


A 
=Moveu3 


=ATHSTK 
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IF SO, GOTO STORES 


NEW START OF STRING POS’N IN D1 
CURR START OF STRING POS’N IN DO 


NUMBER OF BLANKS TO FILL IN D 
LENGTH OF LEADER STRING IN C 


MOVE STRING TO NEW POSITION 


UNCONDITIONAL GOTO $TORE4 
WRITE BLANK 


MORE BLANKS TO FILL? 
IF SO, REPEAT $TORE3 


LENGTH OF RESULT IN C 
START OF RESULT POSITION IN DO 
MOVE RESULT INTO DESTINATION 


TRAILER START POSITION IN D1 


HEADER END POSITION IN B 


RESULT LENGTH IN C 
MOVE RESULT INTO DESTINATION 


LEADER LENGTH IN C 
CLOSE LEADER-RESULT GAP 
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321 OF 7RE 03 
322 
323 
324 
325 
326 
327 
328 
329 
3X0 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
4? 
348 
349 
350 
351 
362 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
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RTNCC 


FOR IIR RTT TTI TID TTDI III ISITE III DISTT SE IK 
FORTIS IIT ITT TTA 


ak 
ak 
xk 
kk 
x 
ww 
xx 
a 
ak 
xk 
a 
ak 
kk 
xx 
ak 
xx 
x 
aa 
ax 
kk 
a 
x 
xx 
ax 
ax 
ak 
xk 
a 
xk 
ak 
xk 
xk 
xx 
ak 
ak 
x 
xx 
ax 
xn 
xk 
xx 
kk 
ak 
x 
xx 
ak 
ke 
xx 
ak 
xk 
xk 
kk 


Nane: 


(S) DEST - Save Variable Destination Info 


Category: VARNGT 


Purpose: 


Entry: 
B 


Exit: 


Save variable destination infornation for use by STORE 
subroutine. 


Exit condition fron EXPEXC (see note belou) 
Exit condition from EXPEXC (see note below) 
Exit condition fron EXPEXC (see note below) 
Exit condition fron EXPEXC (see note belon) 


D1 
F-R1-0 
F-R1-3 


P=0, 

Following inforration has been stored: 
First substring paraneter. 
Second substring paraneter. 
Variable type. 

Rrray elenent nunber. 
Naxinun string length. 
Subscript count. 


— — tt CE 

' 
we Ow 
tone uw now 


Calls: None. 


Stk lvls: 0 


NOTE: 


Whenever EXPEXC evaluates a variable (sirnple or array 
elenent), it leaves destination information about that 
variable in B[W] and function scratch. This routine 
puts that information in statenent scratch, where it 1s 
safe fron further abuse during expression execute, and 
can be subsequently accessed for a store operation. 


In computing the destination information, the recall 
code sets up information about the variable’s address, 
substring paraneters, type, array register nunber, 
haxlnun string length and subscript count. If the 
variable does not exist, that fact is somehow encoded 
into this infornation and the variable will be created 
in the store subroutine. 


Detail: 


Typically called after EXPEXC, uhich left information 
around about the location of the last variable 
evaluated (if evaluating a variable uas the last thing 
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376 wx done). Typical use is in variable assignnent: 

377 ak EXPEXC (evaluate destination variable). 

378 aK DEST {save destination infornation for STORE). 

379 Kx EXPEXC (evaluate expression). 

380 ak STORE (store result in destination variable). 

381 a 

382 ** History: 

383 wx 

384 am Date Progratner Modification 

385 De Wn. cele iy + Gli et en. tee Tarte Batak eee ee alan 

386 ak $A Wrote 

387 kk 10/13/83 = NM Attempted to docunent 

388 a 

389 JOOS IOC ETT 

390 JOO I IIIS OSE TIO K 

391 OF7B0 17B =DEST 01=D1+ 12 

392 OF 7B3 02 C=0 A 

393 OF 7B5 15F3 C=DAT1 4 

334 OF 7B9 1FOO 01=(5) =S-R1-1 STORE DESTINATION INFORMATION: 
000 

395 OF7CO 145 DATI=C A S-RO-0 = VAR ADDRESS OR LABEL 

396 OF 7C3 AF9 C=B W S-RO-1 = FIRST SUBSTR PARAMETER 

397 OF7C6 1FOO D1=(5) =S-RO-0 S-RO-2 = SECOND SUBSTR PARAMETER 
000 

398 OF 7CD 1557 DATI=C W S-RO-3 = VARIABLE TYPE 

399 0OF7D1 1£00 01=(4) =F-R1-0 S-R1-0 = ARRAY REGISTER NUMBER 
0 

400 OF 7D7 1577 C=DAT1 W S-R1-1 = MAXIMUM STRING LENGTH 

401 OF 7DB 1£00 01=(4) =S-R1-0 S-R1-2 = 
oO 

402 OF7E1 145 DATI=C A S-R1-3 = SUBSCRIPT COUNT 

403 OF 7E4 17€ 01=D14+ 15 

404 OF7E7 1554 DATI=C S 

405 OF7EB 01 RTN RETURN 

406 JOISTS IK 

407 XBUGFIX 9605 ON 830803 -SA 

408 *This table renaned =B9605A, and aaved? to a Ronfix area. 

409 x 

410 XDCGLOP NIBHEX OBO NUMERIC, BASE 0, DIN 1 

4i1 x NIBHEX 097 NUMERIC, BASE 0, DIN 2 

412 x NIBHEX ORO NUNERIC, BASE 1, DIM 1 

413 x NIBHEX 046 NUMERIC, BASE 1, DIN 2 

414 x NIBHEX CE2 STRING, BASE 0, DIN 1 

415 x NIBHEX 440 STRING, BASE 0, SIMPLE 

416 x NIBHEX 8A2 STRING, BASE 1, DIM 1 

41? x NIBHEX 440 STRING, BASE 1, SIMPLE 

418 SOI ROI ROTORS ooo tok 

419 OF 7ED 0 CON(1) =FIXSPC Log that freespace is available 

420 OF 7EE BSS 18 

421 JOGO UU IIR 

422 OF 800 6A41 TYPLK2 GOTO TYPERR 

423 

424 JOOS IIE IE ISG TOO IE TI TTT 

425 JOISTS IGE ITE IOO ISU IU TOT TT RTT 


426 + 
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42? ** Wane: Create - Create Variables 
428 ** Nane: NEWVAR - Create Variables 
429 ** Nane: DFLTCR - Create Variables 
430 KR 
431 *% Category: VARNGT 
432 af 
433 *k Purpose: 
434 aR Create is a local label. 
435 xs NEWVAR and DFLTICR are entry points in create code 
436 ae to create new variables. 
437 aR 
438 ak Entry: 
439 aR Unclear. 
440 xk 
441 aK Exit: 
442 pe Unclear. 
443 ax 
444 *k Calls: AJDEST, BASE, CR-ARR, CR-VAR, chkspc. 
445 xk 
446 **k Uses....... 
447 i Unclear. 
448 xn 
449 RK Stk lvls: Unclear. 
450 xn 
451 ** Detail: 
452 ae Create uses information saved in the statenent scratch 
453 a (aniong other places?) to create variables. It is 
454 a reconnended that you not try to use this routine to 
455 - create an array. Instead, follow the instructions in 
456 ss the IDS volure 1, which tell you how to point at a 
457 ak tokenized DIN statenent and execute it. 
458 a 
459 &* History: 
460 aaa 
461 a Date Progranner Modification 
462 Wh: Sot cw teas Vey eee. Camels erectus tone cee esa es 
463 ie SA Wrote 
464 . 10/13/83 NM Attenpted to docunent 
pa FOI II II TIT TIT TT TT TTI TID TDI SII ASIA IST I IISA IIA 
467 KI DIS IAT I TITIES II IIT IID III III ITI IIIS III III IIIT IO ISI SII IIT IIA 
468 OF804 34£0 Create LCHEX O100E 
010 
469 OF80B D7 D=C A 
470 OF 80D 1567 C=DATO W READ TYPE & ADDRESS 
471 OF 811 8B3 7c<D OA DOES VARIABLE EXIST? 
472 OF814 70 GOYES CR20 IF NOT, GOTO CR2 
473 OF816 134 CRI0 DO=C DO POINTS AT VARIABLE 
474 0F819 03 RTNCC RETURN CARRY CLEAR 
475 
476 OF81B 8AR CR20 ?*C=0 A BUGFIX 9605 ON 830803 -SA 
477 OF81E 8F GOYES CR10 
478 OF820 DE ACEX A 
479 OF822 963 7C=D «6B COMPLEX NUMBER ON STACK? 


480 OF 825 BD GOYES TYPLK2 IF SO, GOTO TYPERR 
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481 OF827 DE ACEX A 
482 OF829 8AA =NENVAR ?C=0 A HOKEY ARRAY ELEMENT? 
483 OF82C AE GOYES CR10 IF SO, GO RHEAD & WRITE TO 00000 
484 OF82E 05 B=C A SAVE NANE IN B(A) 
485 OF830 A46 C=C+C = § STRING OR ARRAY? 
486 OF 833 432 GOc DFLTCR IF SO, GOTO DFLTCR 
487 OF 836 D2 C=0 A 
488 OF 838 7801 GOSUB chkspc ENOUGH ROON? 
483 OF 83C 400 RTNC IF NOT, RETURN CARRY SET 
490 OF 83F 8&00 GOSUBL =CR-VAR CREATE VARIABLE 
00 
4391 OF845 3100 LC(2) =eVCNTX 
492 OF 849 490 GOC UUURP IF IT EXISTS, GOTO ERROR 
493 OF84C 136 CDOEX 
494 OF 84F 64D0 GOTO  GETBAK GOTO GETBAK 
495 OF853 6000 UUURP GOTO =NfErr 
496 
497 OF857 841 =DFLICR ST=0 1 DENOTE NUMERIC 
438 OF85A 3ACO NIBHEX 3ACOO LOAD NUMERIC DOPE VECTOR SKELETON 
0 
499 OF85F ADCO =DIMNIO NIBHEX ROOOROOO 
AOOO 
500 OF 867 1B00 pO=(5) =S-R1-3 
000 
501 OF86E 21 P= 1 
502 OF870 1560 C=DATO P READ SUBSCRIPT COUNT 
503 OF 874 1F00 D1=(5) =B9605A 
000 
504 OF87B A46 C=C+C S NUMERIC ARRAY? 
505 OF87E 5C2 GONC 0C10 IF SO, GOTO DC10 
506 OF881 851 ST=1 1 DENOTE STRING 
507 OF 884 17B D1=D1+ 12 
508 OF 887 D2 C=0 A 
509 OF 889 302 LCHEX 2 CONSTRUCT DEFAULT MAXINUM LENGTH 
510 OF88C 189 DO=D0- 10 
511 OF88F 142 A=DATO A READ ARRAY REGISTER NUMBER 
512 OF 892 144 DATO=C A WRITE MAXIMUM STRING LENGTH 
513 OF895 184 DO=D0- 5 
514 OF 898 140 BATO=A A WRITE ARRAY REGISTER NUMBER 
515 OF89B CE C=C-1 A LOAD LOWER END OF STRING D.V. 
516 OF89D 3310 LCHEX 2001 
02 
51? OF8A3 94A~A 7C=0)— SS STRING ARRAY? 
518 OF8A6 50 GOYES 0C10 IF SO, GOTO 0010 
519 OF8A8 300 LCHEX 0 INDICATE SIMPLE STRING 
520 OF8AB 74AO0 DC10 GOSUB BASE GET CURRENT BASE OPTION 
521 OF8AF 109 R1=C SAVE SKELETON IN R1 
522 OF8B2 550 GONC 020 IF BASE = O THEN GOTO DC20 
523 OF8B5 175 D1=D1+ 6 
524 OF8B8 ROE DC20 C=C-1 P 
525 OF8BB 90A *C=0 =P DIMENSION COUNT = 1 ? 
526 OF 8BE 50 GOYES pC3 IF SO, GOTO DC30 
527 OF8CO 172 Di=D1+ 3 


528 OF8C3 AF2 DC30 C=0 W 
529 OF8C6 1573 C=DAT1 X READ SPACE REQUIREMENT 


577 


ak 
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530 OF8CR 108 RO=C 
531 OF8CD 20 P= 0 
532 OF8CF 7170 GOSUB chkspc ENOUGH ROON? 
533 OF8D3 400 RTNC IF NOT, RETURN CARRY SET 
534 OF8D6 8E00 GOSUBL =CR-VAR CREATE VARIABLE 
00 
535 OF8DC 3100 LC(2)  =eVCNTX 
536 OF8EO 4E6 GOC ERROR IF IT EXISTS, GOTO ERROR 
537 . GONC DC40 IF NEW, GOTO DC50 
538 x A=DATO B 
539 * LCHEX 9 
540 x 7A OP SIMPLE REAL VARIABLE? 
541 x GOYES TYPERR IF NOT, GOTO TYPERR 
542 OF8E3 8E0O DC40 GOSUBL =CR-ARR CREATE ARRAY 
00 
543 OF8E9 8E00 GOSUBL =AJDEST ADJUST DESTINATION ADDRESS 
00 
544 OF8EF 1F0O D1=(5) =S-R1-0 
000 
545 OF8F6 143 A=DAT1 A READ REGISTER NUMBER 
546 OF8F9 D6 C=A A 
547 OF8FB FO ASL A MULTIPLY REGNUM BY 16 
548 OF8FD 2F P= 15 
549 OF8FF 300 LCHEX 9 LOAD REAL TYPE INDICATOR 
550 OF 902 861 ?$T=0 1 NUMERIC VARIABLE? 
551 OF905 BO GOYES O0C50 IF SO, GOTO DC50 
552 OF97 CA A=A+C A MULTIPLY REGNUM BY 68 
553 OF909 (4 A=A+A A 
554 OF90B C4 A=A+A A 
555 OF90D 300 LCHEX D LORD STRING TYPE INDICATOR 
556 OF910 20 BC50— P= 0 
557 OF912 D9 C=B A 
558 OF914 134 DO=C 
559 OF917 16A DO=D0+ 11 
560 OF91A 146 C=DATO A READ ARRAY RELATIVE OFFSET 
561 OF9ID E2 C=C-A A COMPUTE REGISTER OFFSET 
562 OFSIF 132 ADOEX 
563 OF922 EE C=A-C A COMPUTE REGISTER ADDRESS 
564 OF924 1FOO GETBAK 01=(5) =S-RO-0 
000 
565 OF92B 145 DATI=C A STORE ADDRESS IN $-RO-O 
566 OF92E 134 DO=C LEAVE ADDRESS IN DO 
567 OF931 1FOO RESTOR D1=(5) =MTHSTK 
000 
568 OF938 143 A=DAT1 A 
569 OF93B 131 Di=A RESTORE MATH STRACK POINTER 
570 OF93E 1537 A=DAT1 W RESTORE TOP OF MATH STACK 
571 OF942 03 RTNCC RETURN CARRY CLEAR 
572 OF944 8D00 =chkspc GOVLNG =CHKSPC 
000 
573 OF94B 3100 TYPERR LC(2) =eDATTY 
574 OF94F 6000 ERROR GOTO =NfErr 
575 IIIT I III II III III IIT IIS IIIS ISIS ISIS III IIIT OI IOI II III II IIIS IAI AK 
576 II IIT IAI II IKI SII SII IIIT IIIS ASSIA IIS III II IOI III IIT I III IIIA I II AK 
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578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
583 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 


611 
612 
613 
614 
615 
616 
61? 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 


OF953 1B00 
000 
OF95A 1562 
OFS5E A26 
OF961 AR2 
OF964 500 
OF96? B26 
OF96A O2 


xk 
xk 
ax 
ak 
ak 
xk 
xk 
ak 
xk 
xk 
ak 
xk 
atk 
ak 
ak 
ak 
ax 
ak 
ak 
xk 
ak 
xk 
xk 
ak 
ak 
kk 
ak 
ak 
ak 
ax 
ak 
xk 


=B 


xk 
ak 
ak 
xk 
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Nane:(S) BASE - Determine Option Base 
Category: VARMGT 


Purpose: 
Deternine whether we are in option base O or 1. 
Entry: 
HEX mode. 
Exit: 
If carry set: 
We are in option base 1. C[XS]=1. 
If carry clear: 
We are in option base 0. C{XS]=0. 
Calls: None. 
Uses....... 
0O,C{XS]. 
Stk lvls: 0 
History: 
Date Progranrer Modification 
SA Wrote 
10/13/83 NM Attenpted to docunent 
FOO II III IAD IIIT ID IS IIIS IIIT SI IIIS IIIISSISIIIISI SSSI SA 


JOR III II II III IIIT ISIS II ISS TTI III IIIT IIISIIIIIII IDI SII ISI IK 
ASE 00=(5) (=SYSFLG)+3 GET CURRENT BASE OPTION 


C=DATO XS 

C=C+C XS 

C=0 KS 

RTNNC IF ZERO, RETURN CARRY CLEAR 

C=C+1 XS 

RTNSC IF ONE, RETURN CARRY SET 
etetetettetiettttsettttetittetitettetestii eset ts testi esses: 
JI III IOI ITO I ITI IIT TTS II TS III IIIT IITA SIAR 


Nane:(S) SHRT - Store Into Short Variable 


Category: VARNGT 


Purpose: 
Store a nunber into a short variable, with IEEE 
rounding. 
Entry: 
12-digit forn in A[W]. 
DO pointing at variable storage location. 
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632 BS Ext: 
633 RX R3 contains copy of nunber as stored. 
634 RK DEC node 
635 ah 
636 t* Calls: SPLITA, uRESNX. 
637 ae 
638 &k Uses......- 
639 ated DO, D1,A,B,C,D,RO,R3,S7-S11. 
640 te 
641 ** Stk lvls: 3 
642 aK 
643 ** History: 
644 ax 
645 x Date Progranner Modification 
646 $k VeeSeuek: Beoaoeeees ee re Oe 
647 ak SA Wrote 
648 %* 10/13/83 NN Attenpted to docunent 
hk 
a JOO TSI TI TI IIIT TTI OTST OST II III III II IIS IS II TAK 
651 JIU IO ATA SAID TIT TIT IDI TITS T IT IIIT ISIS ASST A 
652 OF96C O05 =SHRT SETDEC 
653 
654 
‘ 655 * ovf/unf check * NOTE: 9.99996E499 ovflus & 
| 656 0.0012345E-499 unflus. 
657 OF96E 8E00 GOSUBL =SPLITA 
00 
658 OF974 821 XN=0 
659 OF977 822 SB=0 
660 OF97A 23 P= 9 
661 OF97C 8E0O GOSUBL =uRESNX IEEE RND AT DIG 5, ck traps, set 
00 
662 flags, disp nessages. 
663 OF982 108 R3=C 
664 (uses R3 & s7...811 also) 
665 OF985 DA A=C A A(X)=exp of ans, C=sgn&nant&expon 
666 he mewn ween ener e nn nen x 
667 
668 
669 OF987 189 DO=D0- 10 
670 OF98A 15E9 C=DATO 10 READ JUNK 
671 OF98E 1547 DATO=C W WRITE MANTISSA, SIGN, & JUNK 
672 OF992 16F DO=D0+ 16 
673 OF995 1503 DATO=A X WRITE EXPONENT 
674 OF999 01 RTN RETURN 
675 SII IAI A III TIO TIS I I SII SI ITI III IOS III IIIS IASI SITI SSIS SSSI IS 
676 JO I II II III I III III ISTO SII IIIT III OTS IIT III IIS SIS SSS ISS 
677 ae 
678 - Nane:(S) INTGR - Store Into An Integer Variable 
679 
680 ** Category: VARMGT 
681 =e 
682 *k Purpose: 
683 a Store a number into an integer variable. 


684 te 
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685 ** Entry: 
686 am Nuriber in 12-digit floating-point forn in A. 
687 a 
688 REVUES LS 
689 ax P = 0 
690 kx 
691 ** Calls: IF12A, OVFL, RND-12, SIGCHK, uRESXT. 
692 ax 
693 ** Uses....... 
694 a A,B,C,0,D0,01,RO,R3,S?7-S11. 
695 ax 
696 ** Stk lvls: 3 
697 RK 
698 ** Detail: 
633 aK Handles overflow according to IEEE trap settings. 
700 xx 
701 ** History: 
702 ae 
703 isha Date Prograriner Modification 
204 18> tee “aiceetakeat Seber seGateccetcis saoouseeesageuuss 
705 ae SA Wrote 
706 &k 10/13/83 NM Attenpted to docunent 
707 ax 
708 JO I III ITI I ISTO TI III II IOS IIS IIIT III II III IOS ISI SS II IIIS 
709 $I III II IIIA TT IIIT TIT III III III IIIS I I III SIA I I IIIS ISI ISI SISI ISIS IA 
710 OF99B 05 =INTGR SETDEC CAUTION - PACKED CODE 
711 
712 * Check for Sig NaNs -- unless we encode INTEGER SigNaNs, * 
713 OF99D 8E00 GOSUBL =SIGCHK then renove this check. 
00 
714 : 
715 
716 OF9A3 8E0O GOSUBL =IF12A FIND DECIMAL POINT 
00 
717 OFSAS AD4 A=B n 
718 OFSAC 8FOO GOSBVL =RND-12 ROUND AT DECINAL POINT 
000 
719 OF9B3 103 R3=A 
720 OFSB6 04 SETHEX 
721 OF9B8 AF2 C=0 W 
722 OFIBB 2F P= 15 
723 OFSBD 3185 LCHEX 58 
724 OFIC1 20 P= 0 
725 OF9C3 OF46 A=ARC S$ TURN OFF LOW BIT OF SIGN DIGIT 
726 OFSC? 9B2 AcE X LEGAL INTEGER RANGE? 
727 OFSCA 45 GOYES INTGR3 IF NOT, GOTO INTGR3 
728 OFSCC 3200 LCHEX 500 
) 
729 OF9D1 SBE 7A>=C Xx QO<= expon <= 4 ? 
73% OF9B4 B2 GOYES INTGRO IF SO, GOTO INTGRO 
731 
732 
733 
734 * Handle Overflow * 


735 OFSD6 05 SETDEC 
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736 OF 908 
737 
738 OF SDB 


739 OF 9E1 


740 
741 OF9E7 
742 OFSEA 
743 OF SEC 
744 OF SEF 
745 OF SF 1 
746 OF SF4 
747 OF 9F7 
748 OFSF9 
749 OF SFC 
750 
751 
7$2 
763 
754 OF OFF 


755 OF A04 
756 OFRO7 
757 OF ROS 
758 OFROC 
759 OF ROF 
760 OFAIZ 
761 OFAIS 
762 OFR18 
763 OFAIB 
764 OFAIE 
765 OFAZ1 
766 OF A24 
767 OFA28 
768 OF AZB 
769 OF R2F 
770 OFA33 
774 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 


840 
8£00 


00 
8E00 
00 


10B 
04 
AFA 
20 
H6 
968 
A2 
4 
542 


3200 
F 
9B2 
"1 

7? 
ROC 
511 
H6 
ASE 
A8A 
ADA 
A86 
816 
OE4SE 
189 
15R9 
1507 
03 
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ST=0 = =sINFRD 
x (P=0 fron above) 
GOSUBL =OVFL B(A)=e0VFLW,P=OVP,C=+-9.99..9F0O 
GOSUBL =uRESXT ch. traps, set flags, disp nsg. 
C:=+-(Inf or 9.99..9e499) (traps) 
R3=C 
SE THEX 
A=C W A=+-(Inf or naxreal) 
p= 0 
LCHEX 6 
7A=0 = B A=+-Inf ? 
GOYES INTGR4 rtn integer Inf. 
LCHEX 4 
: GONC INTGR4 "goto", A=+-99993, 
be See pe & 
INTGRO LCHEX FOO 
7A<C OX SMALL NUMBER? 
GOYES INTGR2 IF SO, GOTO INTGR2 (WRITE ZERO) 
LCHEX 7? 
A=A-1 P NAN? 
GONC INTGR4 IF SO, GOTO INTGR4 
INTGR1 LCHEX 6 CREATE INTEGER INFINITY: 
C=C-1 FFFFFFFFFFFFOO6 
INTGR2 A=C P 
A=C " 
INTGR3 C=A P 
INTGR4 CSRC 
A=R'C § PACK SIGN & EXPONENT 
DO=D0- 10 
A=DATO 10 READ JUNK 
DATO=A W WRITE INTEGER & JUNK 
RTNCC RETURN CARRY CLEAR 


x 

x 

FORO UOJ TT TTT I TTI IIT IK 
FOI III TO TTT TTT FT TTI ITI IK 
ak 


Kk Nane:(S) SVTIRC - Save Trace Infornation In Strnt Scratch 
kk 


** Category: EXCUTL 

ka 

** Purpose: 

ak Save trace infornation in stnt scratch. 
ke 

*k Entry: 

aie Dh) = trace infornation. 

ka 

Ax EMILE: 

ax Copy of information in C[A]. 
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788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 OFA35 136 

807 OFA38 1B00 
000 

808 OFA3F 144 

809 OFR42 134 

810 OFR45 01 

811 OFR4? 
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ak Infornation saved in S-R1-2. 
ak 


*k Calls: None. 

xk 

ek Uses....... 

i c{al 

ak 

kk Stk lvls: 0 

ak 

** History: 

xk 

ak Date Progranner Modification 
WK. anc ene. eteata - Bieeout Meat alee aca wt etal le cee ous 
aR SA Wrote 


kk 11/01/83 NM Attenpted to docunent 
ak 


FOI OO OI OST ITT TTT TT TTT K 
FOI IO TOT 


=SVTRC CDOEX 
=SETTRC DO=(5) =S-R1-2 


DATO=C A 
do=C 
RTN 
END 
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$TORE1 
$TORE2 
$TORE3 
$TORE4 
STORES 
STORE? 
AGAIN 
RIDEST 
ASNNIO 
=RASNANT 
=ASNSTO 
B9605—A 
=BRSE 
CHKSPC 
CPOLL 
CR-ARR 
CR-VAR 
CR10 
CR20 
Create 
0C10 
DC 20 
cH” 
dC40 
0C50 
=DEST 
=DFLTCR 
=DINi0 
ERROR 
EXPEX- 
F-R1-0 
FIXSPC 
GE TBRK 
HOKEY 
I5ST0 
IF12A 
=INTGR 
INTGRO 
INTGR1 
INTGR2 
INTGR3 
INTGR4 
NENERR 
NOved3 
MTHSTK 
Af Err 
Moveu3 
=NEWWAR 
=NONEN 
OVFL 
POLL 
R5ST0 
RESREG 
RESTOR 
RND-12 


Rbs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 


63219 HOF6F 3 
63286 #OF736 
632 #OF746 
63308 #OF74C 
63344 #OF770 
63393 #0F7Al1 
6381 #OFE69 


62953 #OFS5ES 
62944 #OF5E0 
62957 HOFSED 


63827 #OF953 


63510 #OF816 
63515 HOF81B 
63492 HOF804 
63659 HOF8AB 
63672 HOF8B8 
63683 HOF8C3 
63715 HOF8E3 
63760 HOF910 
63408 HOF7B0 
63575 #OF857 
63583 #OF85F 
63823 HOF S4F 


63780 HOF924 
63153 #OF6BI 
6389 #OF671 


63899 HOF99B 


63999 HOFSFF - 


64018 HOFAI2 
64024 #OFA18 
64030 HOFRIE 
64033 HOFA21 


63529 HOF829 
62938 HOFSDA 


63116 HOF68C 
63077 HOF 665 


63793 #OF931 


256 
283 
287 
289 
1 
318 
143 
543 

61 

53 

62 
503 
610 
572 
153 
5A2 
49 
473 
476 
468 
520 
524 
528 
542 
556 
391 
497 
499 
574 

61 
399 
419 
564 
232 
145 
716 
710 
754 
760 
762 
764 
765 

52 
284 
318 
495 
313 
482 

52 
738 
153 
142 
119 
567 
718 


254 
280 
290 
286 
271 
WO 
146 


54 


520 


534 
47? 
472 
110 
505 
522 
526 


551 
62 
486 


140 


494 
238 
151 


145 
730 


756 
72? 
747 


299 
567 
574 
317 
114 


167 
149 


125 


483 


518 


536 


743 
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S-RO-O Ext - 109 235 397 564 
$-R1-0 Ext - 401 544 
S-R1-1 Ext - 394 
S-R1-2 Ext - 87 
S-R1-3 Ext - 600 


=SETTRC Abs 64056 HOFA38 - 807 

=SHRT Abs 63852 HOFS6C - 652 142 
SIGCHK Ext - GAZ 

SPLITR Ext - 657 

=STORE Abs 62968 HOFSF8 - 106 

STORE1 Abs 63010 HOF622 - 119 144 
STORE2 Abs 63021 #OF620 - 121 139 155 
STORE4 Abs 63043 #OFO643 - 130 114 


STORES Abs 63097 #0F679 - 147 116 
STORE6 Abs 63133 HOF69D - 166 133 
=STRASN Abs 63155 HOF6B3 - 233 138 
=SVTRC Abs 64053 HOFR35 - 806 55 
SYSFLG Ext - 610 

TOOLNG Abs 63141 #OF6AS5 - 227 265 
TRACEA Ext - 124 


=TRCRTIN Abs 63032 HOF638 - 125 123 
TYPERR Abs 63819 #OFS4B - 573 161 422 
TYPLK1 Abs 63129 #OF699 - 161 137 154 

TYPLK2 Abs 63488 HOF8O0 - 422 480 


UUURP Abs 63571 HOF853 495 492 

cC->C = Abs 104 #00068 11 166 

cR->C Abs 105 #00069 - 11. 182 
=chkspc Abs 63812 HOF944 - 572 488 532 
eDATTY Ext ~ “StS 

eSTROV Ext - 2% 

eVCNTX Ext - 491 535 
sINFRD Ext - 736 

uRESNX Ext - 661 


uRESXT Ext » 7399 
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Input Paraneters 
Source file nane is AB&ASN: MS 
Listing fale nane 1s AB/ASN: TI: ML: :-1 


Object file nane is RBAASN: TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 x SSS ct & TTTTT RRRR ccc 
Z . S$ S$ € C && T R RC C 
3 x $s C && T R RC 
4 ‘ SSS. oC & T RRRR_ C 
5 & s &&8 T RR C 
6 . Ss. 8 ©. £8.24 T RR C C 
7 * SSS CCC — 8B B T R R CCC 
8 t 
9 k 

10 & 

11 TITLE TRACE Module <831216.1824> 
12 RDSYMB SBZRAM: : MS 

13 RDSYMB TIZEQU: : MS 


14 OFA47 ABS #OFA47 
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15 EJECT 
16 JI IO III IIT TIO TTI STITT IIIT TIT OT III IIIS ISS AS IIS ISIN 
17 $I III OI III SII SII IIIT ISI I IIIS II IIIS IIIS ISI IIS II IIA I SSS SII IS 
18 ax 
19 ** Nanre: TRACE - TRACE Statenent Execution 
20 xx 
21 ** Category:  STEXEC 
22 ke 
23 ** Purpose: TRACE staterent execution 
4 tk 
25 ** Calis: D1=TRC 
6 ke 
27 *k Detail: 
28 xx There is a nibble in the system RAN(TRACEM) to indicate 
29 ** the node of trace: 
x xx TRACEN = 0 - Trace off 
31 ae 4 - Trace all variables 
32 EX 2 - Trace flou 
33 kx $15 =1 if either im TRACE VARS or TRACE FLOW 
4 xx Trace node are global status of the systen. 
35 xx Trace flow and trace variables can be co-exist. 
oe 

= JI I IO I III III ITI II ATT IIIT I TTI III III III II III IIIA IK 
38 JIU I III II TTI TI IOS ATI TTT IIIT TSAI I ISI III IISA I IISA 
39 x 
40 SelTrc EQU 1 
41 x 
42 x 
43 OFA47 0000 REL(5) =TRACDC 

0 
44 OFRAC 0000 REL(5) =TRACEP 

0 
45 OFA51 AFR =TRACE A=C W A=C = 0 
46 OFAS4 35FE LC(6) =tV¥ARS 

1085 
47 OFASC 15A5 A=DATO 6 
48 OFA60 972 *A=C OW 
49 OFAG3 21 GOYES TRVARS IF TRACE VARS, GOTO TRVARS 
50 OFR65 &4F ST=0 15 ASSUME IS TRACE OFF 
51 OFAG8 35FE LC(6) =tFLOW 

1092 
52 OFA70 976 PARC OW 
53 OFA?73 50 GOYES TROFF 
54 OFA75 85F TRVARS ST=1 = 15 
55 OFA78 7DB4 TROFF GOSUB D1=TRC 
56 OFA?C 540 GONC TRFLOW NO CARRY FOR TRACE FLOW 
57 OFR?F C6 C=C+€ A 
58 OFA81 OEOR TRFLOW C=A'C P 
$9 x 
60 OFA85 87F ST=1 15 
61 OFA88 40 GOYES TRAL2O 
62 OFA8A D2 C=0 A 
63 OFA&8C 1550 TRAL2O DATI=C P 
64 OFR90 800 GOLONG =NXTSTN 


00 
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65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
%” 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
i12 
113 
114 
115 
116 
117 
118 OFA96 6763 
119 


ax 
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FOUR OUT T ITT IIO 
FORO IO TOI OTTO TIT TT ITI 


ax 
ka 
ak 
xk 
ak 
xx 
ak 
ak 
ax 
x 
ak 
ak 
ax 
xk 
xr 
xx 
ak 
ax 
ax 
xx 
ak 
Kx 
xk 
ar 
xk 
ak 
xk 
x 

ak 
xr 
xk 
xk 
ak 
xk 
xk 
xx 
xx 
xk 
ak 
xk 
xx 
xn 
ak 
ak 
a 
xk 
ak 


Nane: TRACER - Trace variable assignnent 
Category: VARNGT 
Purpose: Trace variable assignnent 


Entry: 


$13 = Systen run flag 

S$-R1-2 = Address of the variable token in the statenent. 

S-R1-2 = 0 to disable the TRACE VARS for one assignnent. 

STNTRO & STMTR1 have not been altered since last tine 
called the DEST. STMTRO & STNTR1 have the infornation 
of the destination, such as variable type, array 
subscript, etc. 


Exit: 


This routine 1s called by the STORE routine, so it 
return to STORE thru a harduire junp to =TRCRIN. 


Calls: EXPRDC,DRANGE ,ADRS45, TRCLIN, OSBFCK, HEXDEC , LINHAU 


STR$SB, DSPCNA, POPNTH, AVE=D1, REVPOP, TRFN20, FNCK 
DO=PCA, RCLNUN, D=AVME, DO=AVS, OUTZTC, D1=SRI1 
VARDC, IDIV, DI=TRC, BSTYCK, FCALC?, DATLEN. 


Uses: A-D, DO,D1, RO,R1,R2, S0,S3, S55, S8-11 
Stk lvls: 4 


Note: TRACEA can’t destroy R3. STORE passes the value stored 


in the variable in R3 - this 1s needed by NEXT 


Detail: 


This routine 1s only called by the STORE routine, so the 
only way to trace an assignnent is to go through STORE. 
The reason we need the address of the variable token in 
the statenent is that the destination variable nane will 
be reconstructed by deconpiling the variable token. 

If the destination 1s a substring or array elenent, the 
subscript(s) will be conputed fron the infornation stored 
in the STMTRO & STMTR1. 

If in a case the address of the variable token or the 
content of STMTRO & STMTR1 are lost, just zero the $-R1-2 
to disable the tracing tenporally. 


FORT IO TIT TT TTI ITT I IK 
FOI IIT TI TIT TOK 


x 


DONtrc GOTO TRCrtn 
x 


Saturn Asserbler TRACE Module <831216. 1824> Fri Dec 3, 1983 4:48 an 


Ver. 3.39/Rev. 2306 Page 4 
120 x 
121 OFASA 86D =TRACEAR ?ST=0 13 ARE WE RUNNING ? 
122 OFASD 9F GOYES DONtre DON’T TRACE IF NOT RUNNING 
123 OFASF 7694 GOSUB D1=TRC SEE WHICH TRACE MODE WE ARE IN 
124 OFRA3 98A A<=C PP TRACE FLOW ONLY ? 
125 OFAR6 OF GOYES DONtrc RETURN IF SO 
126 x 
12? * Check if is in BASIC file 
128 x 
129 OFAA8 7793 GOSUB BSTYCK 
130 OFAAC 59E GONC ODONtre Don’t trace 1f not BASIC file 
131 x 
132 OFRAF 8FOO GOSBVL =fCALC? Don’t trace if in CALC node 
000 
133 OFAB6 4FD COC DONtrc 
134 x 
135 * Check if we have a valid destination address ? 
136 x 
13? OFABS 1B17 DO=(5) =S-RO-0 
8F2 
138 OFACO 146 C=DRTO A 
139 OFAC3 8AA C=O) 6A 
140 OFACE OD GOYES DONtrc If not, don’t trace 
141 x. 
142 x 
143 FOI II OI IG IOI GEICO CIO GOTO TOR 
144 * IN ORDER TO KNOW WHAT IS THE VARIABLE NAME OF THE DESTINATION, 
145 * WE HAVE TO DECOMPILE THE LEFT-HAND SIDE OF THE ASSIGNMENT 
146 * STRIENENT. 
147 OFAC8 8FOO GOSBVL =D=AVNE D= AVMENE 
000 
148 OFACF 8£&00 GOSUBL =DO=AVS A= AVMENS 
00 
149 OFADS DB C=D A C= AVMENE 
150 OFAD? E2 C=C-R A C= AVAILABLE MEMORY IN NIBS 
151 OFADS 137 CD1EX SEE IF AT LEAST 16 NIBS AVAILABLE? 
152 OFADC 1CF 01=D1- 16 
153 OFADF 468 COC DONtrc IF NOT, DON’T TRACE IT AT ALL 
154 x 
155 OFAE2 AF2 C=0 W ZERO BEGINNING 8 BYTES OF BUFFER 
156 OFRES 1547 DATO=C W 
157 OFRED 7013 GOSUB 01=SR1 GET SAVED ASSIGNMENT STMT ADDRESS 
158 OFRED 8A8 °A=0)—OA WANT TO BE TRACED ? 
159 OFAFO 6A GOYES DONtre No, if parse addr zero 
160 x 
164 * Check 1f this an UDF assigntient such as : 
162 * 10 FNX=45 
163 x 
164 OFAF2 848 ST=0 8 
165 OFAFS 143 A=DAT1 A 
166 OFAF8 8FO0 GOSBVL =FNCK Call function check routine 
000 
167 OFAFF 501 GONC  TRC150 If carry clear, 1t 1s an “FNx=" 
168 * 


169 * Chech if this 1s a single line UDF such as 10 DEF FNF$="ABC". 
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170 
171 
172 OFBO2 136 
173 OF B05 8£00 
00 
174 OFBOB 161 
175 OFBOE 14A 
176 OFB11 136 
177 OF B14 3100 
178 OFB18 966 
179 OFBIB D1 
180 
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* See if the statenent is started with a tDEF ? 
x 


x 


181 OFB1D 3364 TRC150 


£4 
182 OF B23 8FOO 

000 
183 OFB2A 8FOO 

000 


184 OFB31 853 

185 OF B34 6D00 

186 

187 OFB38 8FOO 
000 


188 OFB3F 843 
189 OF B42 8E00 


00 
190 OF B48 1567 
191 OFB4C 109 
192 OFB4F 863 
193 OF B52 90 
194 OFB54 163 
195 OFBS? 1563 
196 OFBSB D5 
197 OFB5D 161 
198 OF B60 14A 
199 OF B63 842 
200 OF B66 8F0O 

000 
201 OFB6D 411 
202 OFB70 852 
203 OFB73 B25 
204 OF B76 161 
205 OFB73 14A 
206 OFB7C 550 
207 OFB7F ARI 
208 OF B82 840 
209 OF B85 3142 
210 OF B89 966 
211 OFB8C CO 
212 OFB8E 850 
213 OFB91 300 
214 OF B94 OF69 
215 
216 OF B98 873 
21? OFB9B 03 


x 


x 


TRC160 


TRC170 


TRC180 


TRO210 
TRC215 


TRC220 


CDOEX 
GOSUBL =DO=PCA 


DO=D0+ 2 
A=DATO B 
CDOEX 
LC(2) 
PRHC 

GOYES 


= tDEF 
B 
TRC160 
\NF\ 
GOSBVL =OUTZTC 


LCASC 


GOSBVL =VARDC+ 


ST=1 3 
GOTO TRC170 


GOSBVL =EXPRDC 


ST=0 3 
GOSUBL =DO=AVS 


C=DATO W 

R1=C 

2ST=0 3 
GOYES TRC130 
DO=D0+ 4 
C=DATO X 

B=C A 


ST= 2 
GOSBYL =DRANGE 


GOC 
ST=1 
B=B+1 XS 
DO=B0+ 2 
R=DATO B 
GONC = TRC215 
B=0 KS 
ST=0 60 
LCASC \$\ 

B 


PARC 
TRC220 
0 


TRC210 
2 


GOYES 
ST=1 

LCHEX © 
B=BIC B 


?S$T=1 
GOYES 


Save DO in C 


Restore ® fron C 


Is this a single line UDF ? 
If not, decompile it by EXPRDC 


Output ASCII FN 
Decoripile the FN nane 


Set Fn flag 


DECOMPILE EXPRESSION 


SAVE 1ST 5 LETTERS OF THE LEFT- 
HAND SIDE IN Ri 

TRACING REGULAR VARIABLE ? 

IF SO, GOTO TRC180 

SKIP OVER THE "FN" 

READ THE FN NAME 


SEE IF 2ND LETTER IS A DIGIT 


IF NOT,GOTO TRC210 
SET ALPHA DIGIT FLAG 
B(XS)= DIGIT+1 


IS THIS A STRING VARIABLE ? 
IF NOT, GOTO TRC240 
SET STRING VARTABLE FLAG 


C(B) = 20 


OR IN THE STRING BIT TO NANE 
FUNCTION ? 





Saturn Assenbler TRACE Module <831216.1824> Fri Dec 30, 1983 4:48 an 


Ver. 3.39/Rev. 2306 Page 6 
218 * 
219 OFB3D 7000 . GOSUB =ADRS40 LOOK FOR THE VARIABLE 
220 
221 OFBR1 844 : ST=0 4 ASSUME IS NOT INDIRECT ADDRESS 
222 
223 OFBA4 310E TRC230 LCHEX £0 
224 OFBR8 14A A=DATO B 
225 OFBAB 9E2 7A<C OB IS THIS AN INDIRECT ADDRESS ? 
226 OFBAE A1 GOYES TRC240 IF NOT, GOTO TRC240 
227 OFBBO 31FF LCHEX FF 
228 OFBB4 966 ARC OB 
229 OF BB? 50 GOYES TRC235 
230 x ¥ 
231 OFBBS 854 ST=1 4 THIS IS A INDIRECT SIMPLE STRING 
232 * 
233 OFBBC 161 TRC235 DO=D0+ 2 
234 OFBBF 142 A=DATO A 
235 OFBC2 130 DO=A 
236 OFBC5 5ED GONC TRC230 (B.E.T.) 
237 OFBC8 136 TRC240 CDOEX 
238 * 
239 OFBCB 108 TRC245 RO=C RO= VARIABLE ADDRESS 
240 OFBCE 72F2 GOSUB TRCLIN WRITE “TRACE” & LINE # TO BUFFER 
241 OFBD2 3102 LCASC \ \ 
242 OFBDE 14C DATO=C B 
243 OFBDS 161 DO=20+ 2 
244 OFBDC 7E82 GOSUB TRFN20 
245 OFBEO 7F23 GOSUB DSBFCO SET UP DO AND D AGAIN 
246 OFBE4S 119 C=R1 C= 1ST 5 LETTERS OF DESTINATION 
247 OFBE? 15C9 DATO=C 10 WRITE IT TO BUFFER 
248 OFBEB 161 DO=D0+ 2 AT LEAST ONE LETTER OF DESTINATION 
249 OFBEE 863 ?$T=0 3 
250 OFBF1 50 GOYES TRC246 
251 OFBF3 163 DO=D0+ 4 
252 OFBF6 862 TRC246 ?ST=0 2 STATIC VARIABLE ? 
253 OFBF9 50 GOYES TRC250 IF $0, GOTO TRC250 
254 OFBFB 161 DO=D+ 2 PASS THE "DIGIT" 
255 OFBFE 860 TRC250 ?ST=0 0 NUMERIC VARIABLE ? 
256 OFCO1 50 GOYES TRC260 IF SO, GOTO TRC260 
257 OFCO3 161 DO=00+ 2 PASS THE “$" SIGN 
258 OFCO6 873 TRC260 *ST=1 3 FUNCTION ? 
259 OFCOS D2 GOYES TRC265 IF SO, GOTO TRC345 
260 * 
261 OFCOB 874 ?ST=1 4 INDIRECT SIMPLE STRING ? 
262 OFCOE 82 GOYES TRC265 
263 * 
264 OFCIO 118 C=RO 
265 OFC13 135 01=C 01 = VARIABLE ADDRESS 
266 OFC16 147 C=DAT1 A 
267 OFC19 D5 B=C A 
268 OFCIB R25 B=B+B XS Push out the stat bits 
269 OFCIE A2S5 B=B+B XS 
270 OFC21 A25 B=B+B XS B(2) = Option base of the array 


271 * 
272 OFC24 3170 LCHEX OA 
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273 OFC28 985 *B<C OP A REAL ? 
274 OFC2B BO GOYES TRC265 IF SO, DISPLAY "=" SIGN 
275 OFC2D BES BSR OB 
276 OFC30 AED B=B-1 8B SIMPLE VARIABLE ? 
277 OFC33 560 GONC TRC270 IF NOT, GOTO TRC270 
278 OFC36 6100 TRC265 GOTO TRC345 
279 
280 x 
281 * ARRAY OR VECTOR 
282 * THE SUBSCRIPT(S) IS COMPUTED FROM THE ARRAY REGISTER NUMBER 
283 * SAVED IN S-R1-0. THE REGISTER # IS COUNTED FROM ZERO. 
284 * THE FORMULAR TO COMPUTE THE SUBSCRIPT IS : 
285 * 1. ONE DIMENSION ARRAY : 
286 : OPTION BASE 0: i = REGISTER # 
287 7 ff 1: i = REGISTER + 1 
288 * 2. TWO DIMENSIONS ARRAY: ( C IS THE 2ND SUBSCRIPT LIMIT) 
289 x OPTION BASE 0: i = REGISTER # / (C+1) 
2 x j = REMAINDER OF ABOVE DIVISION 
291 x Hf 1: 2 = (REGISTER # / C) +1 
292 , j = REMAINDER + 1 
293 x 
294 OFC3A 3182 TRC270 LCASC \(\ 
295 OFC3E 14C DATO=C B 
296 OFC41 161 DO=D0+ 2 PASS THE "(" 
297 OFC44 133 ADIEX 
298 OFC47 1F18 01=(5) =S-R1-0 POINTS TO SAVED REGISTER # 
8F2 
299 OFC4E AF2 C=O 36 
300 OFC51 147 C=DATI A 
301 OFC54 96D BHO OB TWO DIMENSION ARRAY ? 
302 OFC57 26 GOYES TRC290 IF SO, GOTO TRC2% 
303 OFC59 DA A=C A A= REGISTER # 
304 OFC5B 929 °B=0 = XS OPTION BASE 0 ? 
305 OFCSE 40 GOYES TRC275 IF SO, GOTO TRC340 
306 OFC60 £4 A=A+1 A 
307 * FOR SUB-STRING ASSIGNMENT, WE WILL LOSE THE REGISTER NUMBER IF 
308 * ONE OF THE SUBSCRIPT IS AN USER-DEFINED FUNCTION, LIKE 
309 * A$(3)[12,FNX] = "ABC". 
310 x 
311 OFC62 3400 TRE275 LCHEX 10000 
001 
312 OFC69 8B2 ACC OA 
313 OFC6C 94 GOYES TRC285 
314 OFC6E 110 A=RO 
315 OFC71 131 DI=A D1 @ VARIABLE DOPE VECTOR 
316 OFC74 17A D1=Di+ 11 
317 OFC?7 143 R=DATI A A = ARRAY POINTER 
318 OFC7A 137 CDIEX 
319 OFC7D E2 C=C-A A C = ARRAY START ADDRESS 
320 OFC7F 1F17 D1=(5) =S-RO-0 
8F2 
321 OFC86 143 R=DAT1 A A = ASSIGNMENT DESTINATION 
322 OFC89 100 RO=A 
323 OFC8C 17F D1=D1+ 16 


324 OFC8F 174 D1=D1i+ § D1 @ S-R1-1 (CONTAIN MAX.STR. LEN) 
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325 OFC392 32D 
326 OFC95 20 
327 OFC9? D1 
328 OFC9S 440 
329 OFCSC CD 
330 OFCSE E5 
331 OFCAO 143 
332 OFCA3 £4 
333 OFCAS £4 
334 OFCA? C4 
335 OFCAS C2 
336 OFCAB 110 
337 OFCRE 8BE 
338 OFCB1 DE 
339 OFCB3 D4 
340 OFCBS 6440 
341 
342 OFCB9 131 
343 OFCBC 172 
344 OFCBF AFO 
345 OFCC2 1583 
346 OFCC6 DE 
347 OFCC3 92D 
348 OFCCB DO 
349 OFCCD £6 
350 OFCCF 8E00 
00 
351 OFCDS 50 
352 OFCD8 8E00 
00 
353 OFCDE £4 
354 OFCEO E5 
355 OFCE2 20 
356 OFCE4 D9 
357 OFCE6 108 
358 OFCES 7362 
359 OFCED 312 
360 OFCF1 14€ 
361 OFCF4 161 
362 OFCF?7 110 
363 OFCFA 7252 
364 OFCFE 3192 
365 OFDO2 14€ 
366 OFDOS 161 
367 OF KOS 870 
368 OFDOB 91 
369 OFDOD 3103 
370 OFDI1 14C 
371 OFDI4 161 
372 OFDI? 7351 
373 OFDIB 860 
374 OFDIE F5 
375 OFD20 6900 
376 
377 
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TRO276 


TRO280 


TRO285 


?BHO XS 
GOYES TRC276 
B=0 A 

GOC TRC280 
B=B-1 A 
B=B+1 A 
A=DAT1 A 
A=A+1 A 
A=R+1 A 
A=A+A A 
C=C+AR A 
A=RO 

PA>=C OA 
GOYES TRC280 
A=B8 A 

GOTO  TRC340 


* TWO DIMENSION ARRAY 


TRC290 


TRC310 


TRC320 


TRC340 
TRO345 
TRC350 
TRC360 


TRC370 
& 


D1=A 

D1=D1+ 3 

A=0 W 
A=DAT1 4 

ACEX A 

?BHO | XS 
GOYES TRC310 
C=C+1 A 
GOSUBL =IDIV 


GONC TRC320 
GOSUBL =IDIV 


GOSUB DSHEX 
LCASC \,\ 
DATO=C B 
DO=DO+ 2 

R=RO 

GOSUB DSHEX 
LCASC \)\ 
DATO=C B 
DO=DO+ 2 
?ST=1 0 
GOYES TRC400 
LCASC \=\ 
DATO=C B 
PO=PO+ 2 
GOSUB = TRFNZO 
?$T=0 0 
GOYES TRC450 
GOTO  TRC4&90 
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IF OPTION BASE =1, START FROM 1 
IF OPTION BASE =0, START FROM O 


A = MAX. STRING LENGTH IN BYTES 


Oo 
tt 


ADDRESS OF NEXT STRING ELEMENT 


PUT ")" AND “=" TO BUFFER (B.€.T.) 


R= 2ND SUBSCRIPT LIMIT 

A= REGISTER #, C= 2ND SUB. LIMIT 
OPTION BASE 1 ? 

IF SO, GOTO TRC310 

OPTION BASE 0 

DIVIDE A BY C 


A= 1ST SUBSCRIPT, B= 2ND SUBSCRIPT 


A= 1ST SUBSCRIPT 
B= 2ND SUBSCRIPT 


WRITE 1ST SUBSCRIPT 10 BUFFER 
WRITE COMMA TO BUFFER 


WRITE 2ND SUBSCRIPT TO BUFFER 
WRITE ")" TO BUFFER 


IS A STRING VARIABLE ? 
IF SO, GOTO TRC400 
WRITE "=" TO BUFFER 


WRITE END OF BUFFER MARK TO BUFFER 
NUMERIC VARIABLE ? 

IF SO, GOTO TRC450, DISPLAY RESULT 
GOTO SEND CR/LF TO DISPLAY 


* FOR STRING VARIABLE TO DISPLAY THE SUBSTRING SUBSCRIPT 


378 
379 OFD24 


380 OFD2B 
381 OFD2E 
382 OFD31 
383 OFD34 
384 OFD37 
385 OFD3R 
386 OFD3D 
387 OFD3F 
388 OFD41 
389 OFD43 
3% OFD45 
391 OFD48 
392 OFD4B 
393 OFD4F 
394 OFDS2 
395 OFD54 
396 OFD58 
397 OFD5B 
398 OFDSD 
399 OFDSF 
400 OFD61 
401 OFD64 
402 OFD68 
403 OFD6B 
404 OFDOF 
405 OFD73 
406 OFD76 
407 OFD79 
408 

409 

410 

411 OFD7D 


412 OFD84 
413 OFD88 
414 OFD8B 


415 OFD91 
416 OFD94 
417 OFD9? 
418 OFDSA 
419 OFDSC 
420 OFDSF 
421 OFDAR2 


422 OFDA8 
423 OFDAB 
424 OFDRE 


425 OFDB4 
426 OFDB? 
427 OFDBS 
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S-RO-1 


RC410 


RC360 
(\ 


SHEX+ 


RC420 
»\ 


SHEX+ 
)\ 


RC360 
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POINTS TO 1ST SUBSCRIPT 


A = 1ST STRING SUBSCRIPT 


C = 2ND STRING SUBSCRIPT 

1ST SUBSCRIPT = 0 ? 

IF NOT, GOTO TRC410 

IF 1ST SUB=O & 2ND SUB=FFFFE 
IT MEANS ENTIRE STRING 


ENTIRE STRING ? 
RO = 2ND SUBSCRIPT 


WRITE 1ST SUBSCRIPT TO BUFFER 

2ND SUBSCRIPT = FFFFE ? 

If SO, DON’T DISPLAY 2ND SUBSCRIPT 
WRITE COMMA TO BUFFER 


WRITE "}" TO BUFFER 


* DISPLAY THE RESULT, RECALL IT FROM WHERE IT IS STORED. 
k 


1F67 TRC400 D1=(5) = 
8F2 

AFO AsO OW 
143 A=DAT1 A 
174 Di=D14+ 5 
AF2 C70) OW 
147 C=DAT1 A 
BAC 7RHO OA 
BO GOYES 1 
DS B=-C 36 
E5 B=B+1 A 
E5 B=B+1 A 
41D coc OUT 
108  TRC410 RO=C 
31B5 LeASC  \ 
81C ASRB 

E4 R=A+1 A 
72F 1 GOSUB D 
110 A=RO 

D6 C=A oR 
E6 C=C+1 A 
E6 C=C+1 A 
400 coc 3O oT 
31C2 LCASC \ 
81C ASRB 
7801 GOSUB D 
3105 TRC420 LCASC \ 
14C DATO=C B 
161 DO=DO+ 2 
6D9F ; GoTo 6 
1817 TRC450 D0=(5) = 
8F2 

1527 A=DATO W 
1% DO=A 
8E0O GOSUBL = 
00 

810 ASLC OW 
30C LCHEX C 
B02 C=C-A P 
DA A-C 830A 
30F LCHEX F 
Bo2 C=C-A P 
8E0O GOSUBL = 
00 

845 ST=0 5 
843 ST=0 3 
8E0O GOSUBL = 
00 

875 *ST=1 5 
34 GOYES T 
863 ?§T=0 3 


S-RO-0 


Dinstk 


DATLEN 


RCLNUN 


RC490 


DO @ DESTINATION 


A(O)=VAR TYPE(2,1,0,D,E-1,S,R, CMS, 
cn 
C(0)=A,B,C,F,£ - 1,8,R,CMS,CM) 


Clear error flag 
Clear conplex flag 
RECALL THE NUMBER 


IF NO ROOM, DON’T DISPLAY NUMBER 
COMPLEX NUMBER ? 
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428 
429 
4H 
431 
432 
433 


434 


435 
436 
437 
438 
439 
440 
44) 
442 


443 
444 


445 
446 
447 


448 
449 
450 
451 
452 
453 
454 


455 
456 


457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 


OFDBC CO 
OFDBE 31E0 
OFOC2 101 
OFDCS 14D 


OFDC8 8F00 
000 

OFDCF 8£00 
00 


OFDDS AFO 
OFDD8 8E00 
00 
OFDDE 81C 
OFDE1 8E00 


OFDE? 8E00 
OFDED 8F00 
OFDF4 8E00 


OFDFA 7400 
OFDFE 6000 


OFEO2? 8D00 
000 


OFEOS 1FB8 
8F2 
OFE10 143 
OFE13 131 
OFE16 O14 
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GOYES TRC480 IF NOT, GOTO TRC480 
LCHEX OE 
D1=D1- 2 
DAT1=C B 


x 


TRC480 GOSBVL =STR$SB 
GOSUBL =ave=d1 


x 
i 
* NOW D1 POINTS TO NEW TOP OF STACK WHICH SHOULD BE A STRING 
® AND SINCE THE STRING IS IN REVERSE ORDER, SO WE HAVE TO SEND 
* THE STRING STARTING FROM THE END. 
k 
A=0 W 
GOSUBL =REVPOP REVERSE THE STRING ON STACK 
ASRB 
GOSUBL =DSPCNA SEND IT TO DISPLAY 
GOSUBL =Dinstk 
GOSBVL =POPMTH 
GOSUBL =ave=d1 
k 
TRC490 GOSUB crifsd Send CR/LF 


TRCrtn GOTO =TRCRIN 

* 

* SEND "CR" & "LF" AT THE END 
& 

=erlfsd GOVLNG =CRLFSD 


& 
D1=SR1 D1=(5) =S-R1-2 


A=DAT1 A 
D1=A 
RTN 
i 
x 
FORO III IOI III III OI IO III IK 
SOI II OUI IIT TOTO IO OK 
ii 
** Name: TRFLCK - Trace mode check 
** Wane: TRFCK- - Trace node check 
ax 


** Category:  EXCUTL 
ax 


** Purpose: To check if need to trace flou 
ae 

** Entry : 

sx PO, 
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474 kx TRFLCK: Not executing RESTORE ; 
475 AR TRFCK=: S10 = 1 Must be executing RESTORE (no trace) 
476 sa = 0 Not executing RESTORE 
477 AX Exits 
478 xk Carry set => No trace 
479 aS Carry clear => Trace needed 
480 aR TRFLCK: $10 = 0 
481 ak 
482 Kx 
483 kk Uses: ACR),C(A),D1, S10 
484 ak 
485 ** Calls: DI=TRC, BSTYCK 
486 aR 
487 *k Stk lvls: 2 
488 ak 
489 ** Detail: 
490 a Only need to trace flow if all the following conditions 
491 ax are net: 
492 x 1. In trace flow mode ($15=1 and TRACEM=2 or 6) 
493 ae 2. Executing program (S$13=1). 
494 KK 3. Not executing RESTORE (S10=0). 
ih 
a J IO UII I COGIC OCT Tk 
497 JOO I IOI GOI OC OTT TR 
498 : 
499 OFE18 84A =TRFLCK ST=0 10 DON’T CARE ABOUT RESTORE 
500 OFE1B 86F =TRFCK- ?ST=0 15 TRACING ? 
501 OFE1E 00 RTNYES IF NOT, DON’T TRACE 
502 OFE20 86D 7ST=0 13 RUNNING ? 
503 OFE23 00 RTNYES 
504 OFE25 87A ?$T=1 10 FOR RESTORE COMMAND ? 
505 OFE28 00 RTNYES RETURN IF SO 
506 OFE2A 7801 GOSUB D1=TRC SEE WHICH TRACE NODE WE ARE IN 
507 OFE2E £06 A=R8C OP 
508 OFE32 AOC A=A-1 P SET CARRY IF TRACE OFF 
509 OFE35 400 RTNC 
510 x 
611 * See if type BASIC 
512 . 
513 OFE38 7700 GOSUB BSTYCK 
514 OFE3C 440 GOC = CLCRY 
515 OFE3F 02 RTNSC 
516 OFE41 03 CLCRY RTNCC 
517 ax 
518 FST KD I ITI TT TI TR T TDI DIT TIS AIT SIDI IOI IS ITSO IOS ISSA S ISI 
519 JOKIIO JO IO IO I OI TOTS OCI OCT OT I TIA 
520 ax 
621 a Nane: BSTYCK - Check if Current File is BASIC 
522 * 
523 ** Category:  FILUTL 
524 ax 
525 **x Purpose: Check if the file type is BASIC 
526 a 
527 **k Entry: CURRST points to current file start 


528 ae P=0 
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529 

530 

531 

532 

§33 

534 

§35 

536 

537 

538 

§39 

540 

541 

542 

543 

544 

545 OFE43 8FOO 
000 

546 OFE4A 17E 

547 OFE4D 143 

548 OFESO F4 

549 OFES2 8000 
000 

550 

551 

552 

553 

554 

555 

556 

557 

558 

569 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

$72 

573 

574 

575 

576 

57? 

578 

579 

580 OFES9 7760 

581 OFESD 3702 
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xx 


XX Exit: Carry set => Current file is type BASIC 
ax Carry clear => Current file is not type BASIC 
kk 


*k Uses: A(A),C(A), D1 
wk 

kk Calls: Di=CRS 

ax 


** Stk lvls: +1 

ek 

** Detail: 

ae Find the current file header by CURRST, then check 


x the file type in the file header. 
SISO I IIIT TTI ITE IIT OTE TIT ETI I TO TIT ITT IOS 


FOI III TIO CTO OTT TTT RIK 
x 


=BSTYCK GOSBYL =01=CRS 
D1=D1+ (oFTYPh)-1 


A=DAT1 A 
ASR A 
GOVLNG =BASTYP 
x 
x 


FOO IO RO RII TOOT I OT OI 
JOO OOOO TOTO OOOO TOIT TOTTI. 
xx 


xk Nane:(S) TRFROM - Trace Line Nunber 
e 


** Category: EXCUTL 

ak 

** Purpose: Routine to generate the “Trace nnnn to" in display. 
ak The current line nuriber 1s conputed fron PCADDR. 
kk 

*k Entry: PCADDR @ current line length 

ae P=0 

tk 

*k Exit: Send “Trace nnnn to" to display buffer 

ax (Via AVS2DS) 

kk 


kk Calls: ITRCLIN 
ke 


kk Uses: A,B,C,D,D0,01,D0, RO, P 


kx 
** Stk lvls: +4 

ke 

** Note: Will exit to error routine if not enough nenory to 


we buffer the display line. 
* 


FORTIS OIG 
FOO IOI OOOO OI OI Or 
x 


=TRFROM GOSUB TRCLIN 
LCASC \ ot \ 
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47F6 
02 
582 OFE6? 15€7 DATO=C 8 
583 OFE6B 167 DO=KO+ 8 
584 OFEGE 31FF =TRFN2O LCHEX FF 
585 OFE72 14C DATO=C B 
586 OFE75 8000 GOLONG =AVS2DS 
00 
587 x 
588 SOO TOI IIIT TOOT TOT TTT OTTO TOT TOO 
589 RIO OI OR FOI TOTO TOIT 
590 ax 
591 ** Narie: TRIO - Generate Trace Message 
592 4% Narie:(S) TRTO+ - Generate Trace Message 
593 *k Nane: TRTO- - Generate Trace Message 
594 ** Nanie: TRIOX - Generate Trace Nessage 
595 a 
596 **k Category:  EXCUTL 
597 ak 
598 *&k Purpose: Generates "to nnnn" for TRACE FLOW node. 
599 Ax The line nunber is computed fron DO on entry. 
600 kt 
601 AX Entry : 
602 a DO is pointing at sone where in the current line. 
603 ak (A line can have nultiple statenents) 
604 x 
605 ax TRIO+: DO pts at EOL/@ preceding a statenent 
606 aa P=0 
607 xe TRIOr: DO pts at the line length of a staterent. 
608 es TRTO-: © pts at middle of a statenent 
609 xx TRTO*: DO pts at EOL preceding the current line. 
610 ak 
611 eX Exit: Via CRLFSD 
612 xe TRIO+: R1 = DO on entry. 
613 aig 
614 ** Calls: CPLH1O, DO=PCA, DSBFCK, DSINTR, TRFM20. 
615 KR 
616 ** Uses: 
617 ae A,B,C,D,00,01,S9 
618 - TRTO+ also uses R1 to save the DO on entry. 
619 * 
620 *E Stk lvls: +5 
621 aR 
622 ** History: 
623 ax Date Programmer Modification 
624 TE act. eomeenue:” “ile hei telumee ee ae aie ete 
625 aK 3/11/83 SC Docurient 
626 BE 
627 SII II II I TI III III DTI III III III III IT IIIS I III II IIS SSI IIT IIT IIIA 
628 SII DI TTI ITT ATO TTR IATA TI 
629 Ae 
630 OFE7B 136 =TRTO+ CDOEX DO AT EOL/@ PRECEEDING THE LINE 
631 OFE7E 109 R1=C 
632 OFE81 134 DO=C 


633 OFE84 14A R=DATO B 





wm 
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634 OFE87 908 7R=0)—O?P POINTS AT AN EOL ? 
635 OFE8A F1 GOYES TRIO* 


636 OFE8C 161 =TRTOr DO=D0+ 2 
637 OFE8F 8FOO =TRTO- GOSBYL =CPLH1O 


000 
638 OFE96 521 GONC =TRTO* CARRY CLEAR IF LINE # FOUND 
639 x 
640 OFES9 8EOO GOSUBL =D0=PCA TRY PCADDR 
00 
641 OFESF 8FOO GOSBYL =CPLH10 
000 
642 OFER6 491 coc EOFIL IF STILL NO LINE #, GIVE UP 
643 x 
644 OFERS 161 =TRTO* DO=D0+ 2 POINTS TQ LINE # 
645 OFEAC 15A3 TRTO10 R=DATO 4 
646 OFEBO D8 B=A A 
647 OFEB2 7D50 GOSUB DSBFCO 
648 OFEB6 D4 A=B A 
649 OFEB8 7090 GOSUB DSINTR 


650 OFEBC 7EAF =TRTIOEN GOSUB TRFM20 
651 OFECO 614F EOFIL GOTO crifsd 
x 


a FR IOI III TIE TIE TI IDI TL ITI TR TTI III IISA IIS IIIA ISIS II IIIS III IIS 
654 JORIS IE IIIT TOTS IIIS IO IIIS II III I SIDI SII IIIS IA 
655 ae 

656 . Nanie: TRCLIN - Display "Trace line nnnn" Message 

657 

658 ** Category:  EXCUTL 

659 a 

660 ** Purpose: Generates "Trace line nnnn" to display. 

661 at The current line nunber is computed fron PCADDR. 
662 = 

663 ** Entry: PCADDR pts at current statenent length 

664 xn P=0 

665 = 

666 ** Exit: Carry clear 

667 xk Exit to error routine if not enough renory to 

668 aS buffer the display line. 

669 aK 

670 ** Calls: COMPLH, LIN#DC, DSBFCK, DO=PCA 

671 aR 

672 *k Uses: A,B,C,D,00,D1,S9,P 

673 ae 

674 *X Stk lvls: +3 

675 ax 

676 ** History: 

677 ae 

678 **% Date Progranner Modification 

679 eR Gicetin i atiteataawe? “cupuneatniese seme petenu cameo Ie 
680 aK 3/11/83 SC Docurent 

681 PeeeCT eset ete eerete tte et sit ecesisttstcetetecrttetttert sts tees: 
6R2 JOIST IIIT IIIT IIT TIA T IK 
683 x 


684 OFEC4 D2 = ==TRCLIN C=0 A 
685 OFEC6 20 P= 0 
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686 OFEC8 31A3 LC(2) 58 
687 OFECC 7540 GOSUB DSBFCK SEE IF ROOM FOR DISPLAY BUFFER 
688 OFEDO 3F45 TRFM1O LCASC \il ecarT\ 
2716 ; 
3656 
02C6 
I) 
689 OFEE2 1547 DATO=C W WRITE "TRACE LI" TO BUFFER 
690 OFEE6 16F DO=D0+ 16 
691 OFEES 35£6 LCASC \ en\ 
5602 
692 OFEF1 15C5 DATO=C 6 
693 OFEFS 8E00 GOSUBL =DO=PCA 
00 
694 OFEFB 8FOO GOSBVL =COMPLH# COMPUTE CURRENT LINE # 
000 
695 * 
696 OFFO2 7D00 GOSUB DSBFCO 
697 OFFO6 16A DO=D0+ 11 
698 OFFO9 16A DO=D0+ 11 POINTS TO END OF BUFFER 
639 OFFOC 8D00 GOVLNG =LIN®DC PUT CURRENT LINE # TO BUFFER 
000 
700 a 
704 JEU TI III III III IIIS I ISI IIIS SII IS SS III SISK 
702 JI SII IIIT IIIS III SS ISIS III IIS SSA 
703 aa 
704 . Nane: DSBFCK - Check Free Space on Math Stack 
705 
706 kk Category:  EXCUTL 
707 a 
708 *x Purpose: Check if there is enough free space on the nath 
709 aR stack can be used for display buffer. 
710 aK 
711 ** Entry: C(A) = Nurber of nibbles needed 
712 ax 
713 kk Exit: Carry set 
714 ak DO @ Available nenory start (AVMENS). 
715 ax D(A) = FORSTK 
716 x A(A) = Address of available nemory start. 
717 a 
718 ae Exit to NOMEN error routine if not enough nenory to 
719 ae buffer the display line. 
720 &X 
721 ** Uses: ACA), C(A), D(A), DO 
722 xe 
723 *k Stk lvls: 0 
724 ia 
725 ** History: 
726 x 
727 kk Date Progranner Modification 
728 Pee sgsoest. Ghecee ees jean Decent awaate ls cadsuet aes oe 
729 RK 3/11/83 SC Docunent 
730 FIRS IK IK III KI ITI ISIS IIL III AISI IS IASI IISSI SII IIIS ISI SSSI SKIS 
731 FORO OI II OIOIO IITII TI 


732 - 
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733 OFF13 D2 DSBFCO C=0 A 
734 OFF15 DE DSBFCK ACEX A 
735 OFF1? 1BE9 DO=(5) =FORSTK NEED BUFFER AT LEAST 32 NIBS ON 
SF2 
736 OFFIE 146 C=DATO A OPERATING STACK 
737 OFF21 0? D=C A 
738 OFF23 E2 C=C-A A 
739 OFF25 189 =DO- (TFORN)-(AVMENS) 
740 OFF28 142 A=DATO A 
741 OFF2B 130 DO=A 
742 OFF2E 8B2 700A A 
743 OFF31 00 RTNYES 
744 OFF33 8COO =MENERk GOLONG =NONEN 
00 
745 : 
746 & 
747 OFF39 1FOB D1=TRC D1=(5) =TRACEN 
7F2 
748 OFF4O 20 P= 0 
749 OFF42 302 LCHEX 2 
750 OFF45 148 A=DAT1 B 
751 OFF48 01 RTN PRESERVE CARRY, DON’T USE RTNCC 
x 
es FORO tO JOTI OO TOIT TOI IC 
754 JI OITA IIT ATI III IIT IOS I TITS SOI IIIS SIS III SI ISI SSSI IIIA 
755 ak 
756 as Nane: DSHEX - Convert a Hex to Dec and Displat it. 
75? 
758 *k Category:  EXCUTL 
759 ak 
760 *k Purpose: Convert an Hex nunber to decinal nurber and display 
761 ax it. 
762 ae 
763 ** Entry: ACR) = The hex nunber 
764 RK DO @ Next character position in display buffer. 
765 ae 
766 RK Exit:  Vaa LIN#AU 
767 ae 
768 *k Uses: A,B,C,D(S),P 
769 ae 
770 kk Stk lvls: +2 
771 ak 
fic ** History: 
773 ax 
774 x Date Progranner Modification 
775 RX comes. GuvtemeSecan ~SSiscticin ae ates ecm dewcease a eas 
776 Re 9/11/83-. SC Docunent 
77? FIO RII JO OOOO OOOO OI 
778 FORO OOO JOO OOOO III IO IOI IGOR TORII 
779 
780 OFF4A 14C DSHEX+ DATO=C B 
781 OFF4D 161 DO=D0+ 2 
782 OFF5O 8E00 DSHEX GOSUBL =HEXDEC 
00 


783 OFF56 04 SETHEX 
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784 OFF58 8D00 DSINTR GOVLNG =LINHAU 
000 

785 

786 x 

787 OFF SF END 
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RADRS40 
AVNENS 
AVS2DS 
BASTYP 
=BSTYCK 
CLCRY 
COMPL# 
CPLHIO 
CRLF SD 
DO=AVS 
DO=PCA 
D1I=CRS 
D1=SR1 
D1=TRC 
Dinstk 
D=AVNE 
DATLEN 
DONtrc 
DRANGE 
DSBFCO 
OSBFCK 
DSHEX 
DSHEX+ 
DSINTR 
DSPCNA 
EOFIL 
EXPRDC 
FNCK 
FORSTK 
HEXDEC 
IDIV 
LINHAU 
LINHDC 
=MEMERK 
NOMEN 
NXTSTN 
OUTeTC 
POPNTH 
RCLNUN 
REVPOP 
S-RO-0 
S-RO-1 
S-R1~+0 
S-R1-2 
STR$SB 
SelTre 
TFORN 
TRACDC 
=TRACE 
=TRACEA 
TRACEN 
TRACEP 
TRAL20 
TRCO150 
TRC160 


Ext 
Abs 
Ext 
Ext 
Ribs 
flbs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 


193940 


65091 
65089 


65033 
65337 


64150 


65299 
65301 
65360 
65354 
65368 


65216 


193950 


65331 


194673 
194678 
194683 
194699 


193950 


64081 
64154 
194480 


64140 
64285 
64312 
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Symbol 


#2F594 


HOFE43 
HOFE41 


HOFEOS 
HOFF 39 


#OF A96 


HOFF13 
HOFF 15 
HOFF 50 
#OFF4A 
HOFF58 


HOFECO 


#2F 59E 


HOFF 33 


#2F 871 
H2F 876 
#2F 881 
#2F 88B 


#00001 
#2F 59E 


#OFAS1 
#OF ASA 
#2F 780 


HOF ASC 
#OF B1D 
#OF B38 


Table 


219 

12 
586 
549 
545 
516 
694 
637 
454 
148 
173 
- 545 
- 456 
- 747 
- 414 
- 147 
- 421 
- 118 
- 200 
- 733 
- 734 
- 782 
- 780 
- 784 
- 444 
- 651 
- 187 


' ' 


t 


166 

12 

782 

- 350 
- 784 
- 699 
- 744 
- 744 
- 64 
- 182 
- 446 
- 424 
- 442 


739 
129 
514 
641 


189 
640 


157 
55 
445 


122 
245 
687 
358 
395 
649 


642 


735 
352 


137 
379 
298 
456 


739 


747 


61 
167 
179 


513 


693 


123 


125 


647 


363 
403 


320 


506 


1% 
6396 


411 
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140 


153 
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159 
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TRO170 Abs 64322 #OFB42 - 189 185 
TRO180 Abs 64347 HOFBSB - 196 193 
TRO210 Abs 64383 HOFB7F - 207 201 
TRO215 Abs 64386 #OFB82 - 208 206 
TRC220 Abs 64408 HOFB98 - 216 211 
TROZH Abs 64420 HOFBA4 - 223 236 
TRO235 Abs 64444 HOFBBC - 233 229 
TRO240 Abs 64456 #OFBC8 - 237 226 
TRC245 Abs 64459 #OFBCB - 239 217 
TRC246 Abs 64502 HOFBF6 - 252 250 
TRO250 Abs 64510 #OFBFE - 255 253 
TRO260 Abs 64518 HOFCO6 - 258 256 
TRC265 Abs 64566 HOFC36 - 278 259 262 274 
TRC270 Abs 64570 #OFC3A - 294 277 
TRO275 Abs 64610 HOF(62 - 311 WS 
TRO276 Abs 64663 HOF(9? - 327 326 
TRO28O Abs 64670 HOFCSE - 330 328 338 
TRO285 Abs 64693 HOFCB5 - 340 313 
TRC290 Abs 64697 HOF(B9 - 342 He 
TRO310 Abs 64728 HOF(D8 - 352 348 


TRO320 Abs 64738 HOFCE2 - 355 351 
TRC340 Abs 64762 HOFCFA - 363 340 
TRO345 Abs 64776 HOFDOS - 367 278 
TRO350 Abs 64781 HOFDOD - 369 

TRC360 Abs 64791 HOFDI7Z - 372 3% 407 
TRC370 Abs 64800 HOFD20 - 375 

TRC400 Abs 64804 #OFD24 - 379 368 
TRC410 Abs 64840 HOFD48 - 391 386 
TRC420 Abs 64879 ROFDEF - 404 400 
TRC450 Abs 64893 #OFD7D - 411 374 


TRC480 Abs 64968 HOFDC8 - 433 428 
TRC490 Abs 65018 HOFDFA - 449 375 426 
=TRCLIN Abs 65220 #OFEC4 - 684 240 580 
TRCRTN Ext - 450 
TRCrtn Abs 65022 ROFDFE - 450 118 
=TRFCK- Abs 65051 #OFEIB - 500 
=TRFLCK Abs 65048 HOFEI8 - 499 
TRF LOW Abs 64129 #OFA81 - 58 56 
TRFI10 «Abs 65232 HOFEDO - 688 
=TRFN2O Abs 65134 HOFEGE - 584 244 372 650 
=TRFROM Abs 65113 #OFE59 - 580 
TROFF Abs 64120 #OFA78 - 55 53 
=TRTO* Abs 65193 HOFEAD - 644 635 638 
=TRTO+ Abs 65147 HOFE7B - 630 
=TRTO- Abs 65167 HOFE8F - 637 
TRTOIO = Abs 65196 HOFEAC - 645 
=TRTOQEN Abs 65212 #OFEBC - 650 
=TRTOr Abs 65164 HOFE8C - 636 


TRVARS Abs 64117 #OFA75 - 54 49 
VARDC+ Ext - = 183 

ave=d1 Ext - 434 44? 
=crlfsd Abs 65026 HOFEO2 - 454 449 651 
fFCRLC? Ext - 132 

oF TYPh Abs 16 #00010 - 13 546 


tOEF Ext - 17? 


Saturn Assenbler TRACE Module <831216.1824> Fri Dec 3, 1983 4:48 an 
Ver. 3.39/Rev. 2306 Syrbol Table Page 20 


tFLOW Abs 2687471 8OOTEF - 13 51 
tVARS Abs 5964271 #BOTEF - 13 46 
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Input Paraneters 
Source file nane is SC&TRC: AS 
Listing file nane is SC/TRC:TI:ML::-14 
Object file name is SCZTRC: TI:MS::-1 


141111 
01234567891 2345 
seen Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 x J PPPP & fh Mm EEEEE mM Of 
2 x JP P && iN Nn E nn ne 
3 & JP P && Mnnie nan 
4 * J PPPP & HAN EERE NAN 
5 x +f &&8 HM NE noon 
6 x J JP && MN ME non 
7 x JJJ_ Pp && &8 M MN EEEEE MN A 
8 x 
9 TITLE Progran Edit <831212.1204> 
10 OFF5F ABS = HOF FSF 
11 RDSYNB SBZRANM: : NS 
12 RDSYMB TIZEQU: :S 
13 JI IIIT TTR ITI III IIS IIIS IIIT SIS IIIS SSIS ISI SSSI SIS IIS 
14 SII II TI IIIASISIS II IIIS III SIS VSIIIIISIS IIIS IA 
15 kh 
16 *k Wane:(S) PEDIT - Progran Edit 
17 *k Narie:(S) PEDITD - Program Edit to delete line 
18 2 Nane: PEDITN - Progran Edit not collapsing stacks 
19 * 
20 ** Category:  FILUTL 
21 xk 
22 ne Purpose: Edit/delete line in current progran 
23 & 
24 *k Entry: PEDIT => 
25 ak Edit line into current progran 
26 ss Line in output buffer 
27 os $8 is cleared 
28 a Stacks/SUSP prog cleared after 
29 eh Protection Check 
30 aK PEDITD => 
31 ax $8 must be set 
32 a Delete Line 
33 ae Line# to delete in output buffer 
34 xe Stacks/SUSP prog cleared after 
35 ak Protection Check 
36 ak PEDITN => 
37 an MERGE connand entry point 
38 aS $8 rust be clear, to avoid delete 
39 RX PRIVATE and SECURE have already been 
40 A checked 
41 a Stacks will NOT be collapsed 
42 ax 
43 ak Exit: 
44 ax Carry Clear 
45 _ R3= offset of nenory at higher address 
46 i Menory pointers updated 
47 a else 
48 = Error Exit 
49 es Non BASIC file type eF TYPE 
50 BE File protected ePROT 
51 ak Unsuccessful replace of line 
52 ak 
53 *k Calls: FINDL+, SAVEL+, RPLLIN, OBCOLL, CHKPSF, CLPSTK 
54 ak NXTLIN, DI=CRS, DOOUTB, CLLINK 


55 ak 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
20 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 OFFSF 
94 
95 
96 
37 
98 
99 
100 
104 
102 OFF62 


103 OFF62 8FOO 
104 OFF69 8FOO 


105 
106 
107 
108 


848 


000 
000 
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&k Uses: A, B, C, D, DO, D1, OUTBS, RO-R3, $8 
ak If GOTO/GOSUB links are cleared, $1 is used 
kk 
xk Detail: 
kk 


xk PEDIT: Clear Delete Line flag 
kk PEDITD: If current file type not BASIC or protected 
ae Error Exit 


an Colapse stack, zero addresses, clear SUSP annun. 
kk =PEDITM: Zero Label chain and all GOTO links in file 

Kk Move Output Buffer to end of available nenory 
RR Set DO @ start of line to Edit (@ OUTBS) 

ak Update CURRL to new line # (SAVELO) 

kK If null line (S8=1) 

ak Collapse Output Buffer 

aK Call FINDL to find a natch on line >= 

ak Set D = End of progran nenory (MAINEN) 

aE Compute old line length 

ak Replace line 

ak If unsuccessful 

am THEN MFERR 

kk 

** Stack lvls: 5 

aK 

** History: 

kk 

Date Progranner Modifications 

fo witietues cue eteeos” . aeeduece seu 

ek 07/08/82 SW Updated docurientation 

*k 01/11/83 SH Elininated poll on non-RAM device 
tk 03/02/83 JP Packed GETPRe to CHKPSF 

. 03/03/83 JP Moved PEDITN entry, CLPSTK call 

k 


FIR IOI OTT TTT ITE TTI TT TI TITTIES RK 
FORO OTT TT TIT ITI II ITI I ITI TIN 
x 
x 


=PEDIT ST=0 8 Clear NULL line flag 
x 


* Delete Line Entry 
Assunes S8 set to indicate "delete" line 


Check File type, PRIVATE, SECURE 
Error exit from CHKPSF 
Collapse stacks, clear progran infornation 


ee ee OF 


=PEDITO 
PEDTOO GOSBVL =CHKPSF 


GOSBVL =CLPSTK 


k 
* MERGE entry point: 

* Avoids collapsing of stacks/ clearing program nenory 
*  Assurres MERGE has check protection 
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109 : 
110 * Zero Label Chain head; all GOTO/GOSUB links 
111 * 01 @ File Type field of file header 
112 & 
113 OFF 70 =PEDITA 
114 OFF70 8FOO PEDITO GOSBVL =CLLINK 
000 
115 % 
116 * Set 00,01 @ start of Output Buffer (@ line#) to PEDIT 
117 % Update CURRL, Save line# 
118 * If Null line 
119 x Collapse the Output Buffer 
120 * Try to find new line# within current file 
121 x 
122 OFF77 8F0O GOSBVL =DOOUTB Set DO = OUTBS 
000 
123 OFF7E 73F1 GOSUB SAVEL+ Read line#, update CURRL 
124 OFF82 D5 B=C A Save line# 
125 OFF84 868 ?S$T=0 8 Not Null line ? 
126 OFF87 90 GOYES PEDIT2 
127 OFF89 8FOO GOSBVL =OBCOLL Collapse Output Buffer 
000 
128 OFF9O 7250 PEDIT2 GOSUB FINDL+ Find line# in B(A) 
129 x 
1H * Set Old line length = 0 
131 * If line# found 
132 z Save start of line 
133 x Skip to End of line 
134 x Coripute Total line length 
135 . 
136 OFF94 D1 B=0 A Set Old Line Length = 0 
137 OFF96 501 GONC PEDIT3 Line # not found 
138 OFF99 133 ADIEX A <-- start of line 
139 OFFSC D8 B=A A B <-- start of line 
140 OFF9E 133 ADIEX 
141 OFFA1 7080 GOSUB NXTLIN C <-- end of line 
142 OFFAS ED B=C-B A Total line length 
143 & 
144 * Entry Conditions to RPLLIN: 
145 ® R3 = Old line length 
146 . = 0 if old line not found 
147 * (C(A) = File start. 
148 * RCA) = End of old line (place to insert) 
149 & 
150 OFFA? D9 = PEDIT3 C=B A 
151 OFFAS 108 R3=C R3 <-- Old line length 
152 OFFAC 133 RDIEX A <-- End of old line 
153 OFFAF 8F0O GOSBVL =D1=CRS ~ €(R) <-- CURRST 
000 
154 OFFB6 8F0O GOSBVL =RPLLIN go Replace line 
000 
155 OFFBD 500 RTNNC 
156 OFFCO 8C0O =NfErr GOLONG =NFERR 
00 


157 ‘ 
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158 * 
159 * 
160 JOIST TTT I SIT ITI IS IAT TITS I IIT TN 
161 JO OOS COGGI GCOS CITT TT OKI ISH 
162 ax 
163 *k Narie: LSTADR - Last Address on a Port 
164 a 
165 ** Category: ADDCAL 
166 ax 
167 ** Purpose: 
168 ax Calculates last address on a port 
169 ah 
170 ** Entry: 
171 an 0(7-0) = Nibs 1-8 of config table 
172 aK 
173 &k Exit: 
174 aK P = 0 
175 ax C(A) = last address on port (equiv. to AVMENE) 
176 ae A(A) = #nibs on port 
177 am D intact fron entry 
178 a 
179 ** Calls: NSIZE+ 
180 ax 
181 RK Uses....... 
182 xx Exclusive: A, C 
183 kk Inclusive: A, C, P 
184 ak 
185 ** Stk lvls: 4 
186 ax 
187 ** History: 
188 gis 
189 ae Date Progranner Modification 
190 OE potclese. . eeoeee eee edeeti een Goo. e eu cena oueseoc 
194 kk 07/08/82 SW Updated docurientation 
xk 
a FORO RI TOI OI IOI TO TOTO OOOO OTTO TOTO 
194 OIRO ROI III TOTTI TOK 
195 + ASSUNES MSIZE DOESN'T USE D 
196 . 
19? OFFC6 AFB =LSTADR C=D W 
198 OFFC9 7000 GOSUB =MSIZE+ 
199 OFFCD FO ASL A 
200 OFFCF FO ASL A 
201 * ACR) CONTAINS NUMBER OF NIBS ON PORT 
202 OFFD1 AFB C=p W 
203 OFFD4 BFE CSR W 
204 OFFD? RE? C=0 
205 * C(A) CONTAINS STARTING ADDRESS ON PORT 
206 OFFDA C2 C=C+A A LAST ADDRESS (AVMENE) 
207 OFFDC 03 RTNCC 


208 . 
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209 STITLE Find Line in ppograe File 
10 JOS TIO I ITT E TOI 
°14 JORIS UO OCI IOI TI TIT TTR 
212 aK 
213 Nane:(S) FINDL - Find Line# within a Progran File 
214 a 
215 *k Category: FILUTL 
216 RK 
217 ** Purpose: 
218 ae Attenpt to find passed in Line# within program and 
219 mA Return with pointer to start of line 
220 tk 
221 xk Entry: 
222 xR FINDLR: Read Line# @ DO into C(A) 
223 ak FINDL : C(R) = Laine# to find 
224 Rk FINDL+: B(A) = Line# to find 
225 ae FINDLO: B(R) = Line# to find 
226 aK C(A) = Start of Search 
227 KR D(A) = End of Search 
228 kK 
229 xm Assuries: File type = BASIC 
2% ak 
231 KK Exit: 
232 a D(A) = End of CURRENT file 
233 me 00 == Previous line found 
234 kk = 0 if No previous line found 
235 a 
236 a Carry set 
237 xe Line# found 
238 ae D1 @ Line# 
239 ak $0=0, $1=0 
240 ae 
241 ve Carry clear: 
242 ax $1=1 ---> NULL progran - D1 past EOF 
243 ee SO=1 ---> Line# not found - D1 past EOF 
244 aR $0=0,31=0 ---> Line# > found - D1 @ line# 
245 ak 
246 ax If line# found - Carry set 
247 ax D1 @ Line# found 
248 ai $0=0, $1=0 
249 wh If line# > found - Carry Clear 
250 =e Di @ Line# > found 
251 aK $0=0, $1=0 
252 ae If Null Progran - Carry clear 
253 4% D1 points past EOF on file 
254 we SO=1, S1=1 
255 xn If line# not found - Carry clear 
256 ax D1 points past EOF on file 
257 ak S$0=1, S$1=0 
258 =e Error Exit - 
259 xm None 
260 ka 
261 **k Calls: NULLP, NXTLIN 
262 me 


263 kx Uses....... 
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264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
238 
299 
300 
1 
He 
3 
4 
HS 
Hb 
HX? 
8 
9 
310 
311 
312 
313 
314 
315 
316 
31? 
318 


OF FDE 
OFFEO 
OFFE4 
OFFE6 
OFFES 
OFFEC 
OFFEE 
OFFF1 
OF FFA 
OFFF? 
OFFFA 


OF FFD 
10000 
10003 
10006 
10008 
10000 
1OO0F 
10011 
10014 
10016 
10019 
10010 
{O01F 
10023 


D2 
15€3 
i) 
21 
7660 
DO 
130 
443 
1714 
137 
135 


840 
841 
SBF 
62 
15B3 
8RO 


8B0 
BI 
133 
130 
131 
7E00 
5FD 
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** Exclusive: A(R),B(A),C(A), D(A), DO, D1,S0,S1 
**x Inclusive: ACA),B(A),C(A), D(A), D0, 01, 80,81 
dk 
** Stk lvls: +3 
aK 
** Detail: © NULLP 
ee Carry Set if Null Progran 
a D1i= First line of file 
aK D = End of current file 
* C = oBSsod 
am Assunes: When end of progran test done in FINDL 
xm If not null progran, NOT @ end of progran 
aK C (00011) is ALWAYS < D (End of progran) 
kk 
** History: 
kk 
xk Date Progranner Modification 
RR -eGeeaee Sec,  “Siccueeen cet = oe econo eS 
kx 01/04/83 JP Renoved $9 usage 
** 03/01/83 = JP Updated docurentation 
Rk NULLP does not Error Exit 
kk 


FOI TOI ITT TTT TIT TI 
JOR III IOI III IOI OI TOIT STI I IK 


x 


=FINDLR C=0 A 
C=DATO 4 
=FINDL B=C A 
=FINDL+ P= 1 
GOSUB NullP 
A=0 A 
DO=A 
Coc FINOL? 
Di=D1+ 2 
CDIEX 
bi=C 
x 
x 
& 
x 
=FINDLO ST=0 0 
ST=0 1 
FINDLe ?C>=D A 
GOYES FINDL8 
A=DAT1 4 
*A=B OR 
RTNYES 
7A>B OA 
GOYES FINOLS 
ADTEX 
DO=A 
DI=A 
GOSUB NXTLIN 
GONC FINDL2 


Read line# into C 


Don’t want to check or rtn file typ 
Check if Null Progran 


Initial Previous Line#=0 
Move past EOF, Set flag and return 
Nove past EOF 


Assuries If not NULL program --> Not @ End of progran 
Therefore, End of program test will ALWAYS be false (C=00010) 


Clear LIne# > found flag 

Clear Null Progran flag 

At end of progran ? 

Line # not found - Set SO,rtn 
Read line# in progran 

Line #s natch? 

Line # found - Set carry on rtn 


Line# > found - Clr carry & rtn 
Save previous line in 0O 


Preserve D1 


(B.E.T.) 
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319 10026 171 FINDL? D1=D1+ 2 Pasiton past EOF 
320 10029 851 ST=1 1 NULL PROG FLAG 
321 1002C 850 FINDL8 ST=1 0 LINE# NOT FOUND 


322 1002F 03 FINDLS RTNCC CLEAR CARRY ON RETURN 





Ei | 
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323 STITLE Scan to Next Line 

324 JOJO III OI III ISIS ISOC ICICI ICO GOTOH 

325 JOIST IOC OTT K 

326 a 

327 ** Nane:(S) NXTLIN - Scan to Next Line 

328 wn 

329 xk Category: FILUTL 

330 aR 

331 ** Purpose: 

332 ax Scan fron Line Number to End of Line Token 

333 ak 

334 ak Entry: 

335 aK D1 @ Line Nunber 

336 ae 

337 KX Exit: 

338 ak Carry Clear 

339 ak D1, C(A) POINT PAST EOL TOKEN 

340 xx 

341 ** Calls: None 

Re ar 

343 KX Uses....... 

344 ** Exclusive: A(A),C(A),D1 

345 kk Inclusive: A(A),C(R),D1 

346 xk 

¥? xk Stk lvls: +0 

8 xk 

349 ** Detail: 

350 - USES IMPLEMENTATION OF ’@’ FOR MULTI-STATEMENT LINES 
x 

a JOSS ISIS ICICI GO OG I TO IO TTI STAT 

353 JOO III IIS GIGI IOI GIGI OGTR 

354 x 

355 a 

356 10031 173 =NXTLIN D1=D1+ 4 Nove ptr to line length byte 

357 10034 DO NXTLI2 A=0 A 

358 10036 148 A=DAT1 B Read line length 

359 10039 137 CO1EX 

360 1003C C2 C=C+A A Add line length to data pointer 

361 1003E 135 D1=C 

362 10041 148 A=DAT1 B 

363 10044 171 01=D1+ 2 

364 10047 Eb C=C+1 A 

365 10049 £6 C=C+1 A 

366 1004B 30C 7RHO OP NOT EOL? 

367 1004E 6E GOYES NXTLI2 IF NOT EQL, GOTO NXTLI2 

36& 10050 01 RIN CARRY CLEAR ON RETURN 

369 x 

370 x 

371 10052 8D00 NullP GOVLNG =NULLP 


000 
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372 STITLE Cursor Up and Doun, Deconpile Line 
373 JI UOT OT TTI IIIT EE TIT IE IE IIIT IIIT ATI IA IS 
374 JOO TTT ITS TOI IIS IIIT IIS III IIIT II III III ISI III IIIS SS: 
375 ak 
376 Ak Warie:(S) CURSRU - Cursor Up 
377 kK Nane:(S) CURSRD - Cursor Doun 
378 Ak Nane:(S) CURTOP - Cursor Top 
379 *& Narie:(S) CURBOT - Cursor Botton 
380 ax Narie:(S) DCPLIN - Deconpile line and display it 
381) *% Nane:(S) DSPLI+ - Display line with cursor on;calc cursor po 
382 2 Nane:(S) DSPLIN - Display line with cursor on;pass cursor po 
383 x 
384 *k Category:  DCMUTL 
385 as 
386 ** Purpose: Cursor UP, Cursor DOWN, Cursor TOP, Cursor BOTTON 
387 ak FETCH “next line" in progran menory 
388 aE Scroll Cursor Up | Cursor Doun 
389 ak Deconpile and Display line with Cursor on 
390 ak 
391 ek Entry: CURBOT: Sets Cursor Botton flag sCURBT 
392 ah Clear Cursor Up flag sCURUP 
393 an Displays last line of non-null progran 
394 ak CURTOP: Clears Cursor Botton flag sCURBT 
395 ak Displays first line in a non-null progran 
396 ak CURO20: Entry for FETCH u/ CURRL=0 
397 ak Assunes sCURBT=0 
398 a Avoids CR/LF and Poll for Cursor UP/DOUN 
399 ak CURSRU: Sets Cursor Up flag sCURUP 
400 BK CURSRD: Clears Cursor Up flag sCURUP 
401 ax DCPLIN: Deconpile & Display Line Entry 
402 ak D1 @ Line to deconpile 
403 ak DSPLI+: Display line entry in output buffer 
404 an #cursor rights needed will be calculated 
405 ak FETCH KEY entry 
406 ak DSPLIN: Display Line Entry in Output Buffer 
407 ae AUTOX entry 
408 ak ACA) = #backspaces for cursor position 
409 ak = cursor rights 
410 ae QUTBS @ Start of line to decorpile 
411 ak 
412 ah CURRL = Current line# referenced 
413 ah After FINDL call: 
414 ak SO=0 if Line# > found 
415 ae SO=1 if Line# not found 
416 xx S1=1 if Null progran nenory 
417 = DO = Previous Line found 
418 * D = End of current progran 
4139 ah 
420 EME! If Private progran 
421 xx Error Exit <-- eFPROT 
422 _ If not BASIC progran 
423 a Poll on pCURSR 
424 RK If no response: 
425 -* Error Exit <-- eF TYPE 


426 ae If no CURRent Line # or Null Progran file 


Saturn Assenbler Progran Edit <831212.1204> Fri Dec 30, 1983 2:55 ani 


Ver. 3.39/Rev. 2306 Cursor Up and Doun, Deconpile Page 10 
427 ae Return to Main Loop 
428 ae else 
429 aK 01 = Start of line to Deconpile 
430 ak Deconpile & Display line u/ Cursor 
431 - Return to MAIN3O to preserve display 
432 
433 *k Calls: FINDL, LOCOMP, BF2DPP, DSPCHO, NXTLIN, RDCHDR 
434 aK NULLP, BLODSP, FPOLL, CURRLO, DO=OBS, CURSRT, 
435 aa CRGTPR (CRLFSD & GETPeF) 
436 ae 
43? xk Uses: A-D, DO, D1, CURRL, RO-R2, SO, $1, S5-S8 
438 o For Cursor entry: sCURUP ($2), sCURBT (S3) 
439 * 
440 ak sCURUP = Cursor Up 
441 ak sCURBT = Cursor Botton 
442 # RO= # backspaces for cursor position after line# 
44} 
444 *k Stk lvls: 5 
445 ae 
446 kk Detail: 
447 ak 
448 ks SCURBOT, sCURUP set/cleared for pCURSR to guarantee 
449 xk unique deternined of Cursor key. 
450 ak 
451 ah 
452 ek CURBOT: Clear Cursor Up flag (sCURUP ) 
453 i Set Cursor Botton flag (sCURBT ) 
454 aig goto 0: 
455 kx CURTOP: Clear Cursor Botton flag (sCURBT) 
456 2 Set Cursor Up flag 
457 ak 0: Send Carriage Return / Line Feed (CRGTPR) 
458 ak If Private Progran (GETPeF ) 
459 ah Error Exit (eF PROT) 
460 ak Set status to check file type & error (S9) 
461 xs If non BASIC progran (Carry set) 
462 ak 0.5: Poll for Cursor keys (pCURSR) 
463 aK Error exit if no response (eF TYPE) 
464 ak CURO20: If NULL Progran 
465 ae golong NAINLP 
466 ak If CURTOP 
467 ak Position to line# of First line (D1+1EOL) 
468 aR go Deconpile and Display line (DCPLIN) 
469 else 
470 ¥ go Find Last Line in file 
471 aK Line <--- FFFF (goto 3) 
472 xk CURSRU: Set Cursor Up flag (sCURUP ) 
473 x Set Cursor Botton flag 
474 ak goto 1; 
475 &*  CURSRD: Clear Cursor Up flag (sCURUP ) 
476 = Clear Cursor Botton flag 
477 ak 1: Send CR/LF (CRGTPR) 
478 ae If Private progran (GETPeF ) 
479 at Error Exit (eF PROT) 
480 a If non-BASIC progran (Carry set) 


481 ae Issue pCURSR poll (goto 0.5) 
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482 ak Read current Line# (CURRLO) 
483 ax 3: Find Line# (FINDL) 
434 ak If Line# NOT found (Carry clear) 

485 ak If Cursor Down 

486 ax If Line# > found (SO=0) 

487 ax go Deconpile & Display line (DCPLIN) 

488 ak else 

489 + If NULL progran (S1=1) 

4% ae goto Main Loop 

491 ak else 

492 x go Deconpile previous line (goto 4) 

493 ke If Cursor Up (sCURUP) 

494 ax If NULL progran (S1=1) 

495 ak goto Main Loop 

496 ae else 

497 am Get First line of file (RDHOR1 ) 

498 ax go Deconpile previous|first line (goto 4) 

499 ax 

500 XK If Line# found (Carry set) 

501 ak If Cursor Down 

502 an Save current line position (B) 

503 am Get next line (NXTLIN) 

504 ak If next line >= End of program 

505 ae Next line <-- Saved current line 

506 ax go Deconpile & display line (DCPLIN) 

507 kK If Cursor Up (sCURUP) 

508 ae 4: If previous line # 0 (D0) 

509 kk Next line = Previous line 

510 ak else 

511 ae D1 @ Line to Deconpile & Display 

512 ae 

513 ** = DCPLIN: Deconpile line @ D1 (LDCONP) 

514 ax Calculate # backspaces to space after line# 

515 xx DSPLIN: Display line 

516 ae Send pronpt (BF 2DPP) 

517 am Send buffer (DSPCNO) 

518 ae Send backspaces (cursor rights) (CURSRT) 

519 ig Build display (BLDDSP) 

520 ‘ Return to Main, Keep display (NAIN3O) 

521 RX 

522 &X History: 

523 xk 

524 xe Date Prograriner Modification 

525 EX kisckeene Jae eseweeSGae .-aatibeadatuaa kana aemen apeeme ama e 

526 x 03/01/83 JP Added pCURSR poll on File Type 

527 ke 64/12/83 IP Ignore CURRL=0 

528 kk 04/12/83 IP CURO20 entry point for FETCH 

529 . 07/15/83 JP Send CR/LF before Private check 
x 

ae J IOI III III ITO ITT TOI TTT TTR IK 

532 JOO IIIS OGIO OCI ICO OTTO IIE 

633 JOG OI II OO III CII IOI RTI 

534 JOO OGIO OUI CTO ITO IE 

535 te 


536 ** Nane:(S) pCURSR - Cursor Key with non BASIC file Poll 
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537 ax 
538 ** Category: POLL 
539 ax 
540 ** Type: FPOLL 
541 aX 
542 ** Purpose: 
543 ax Fast Poll to allow the Cursor Keys to be used with 
544 ax non BASIC files: 
545 . Cursor Up, Cursor Down, Cursor Top, Cursor Botton 
546 
547 ** Should poll be "Handled" (return with XM=0)?: 
548 aX No this is a TAKE OVER poll 
549 ae 
550 ** Meaning of "Handling" Poll (what does code do if handled?): 
551 a Perforn Cursor Key on file, return to MAIN30/MAINLP 
552 a See notes belou. 
553 a 
554 ** Entry conditions for handler: 
555 x Carry set 
556 ak B{A] = Poll nunber = pCURSR 
557 = HEX node. 
558 ee P=0, 
559 ax 
560 . Type of Key: Status: sCURUP ($2) sCURBT ($3) 
B61 RK mmm ener nne meee teen 
562 ax Cursor Botton 0 1 
563 aK Cursor Top 1 0 
564 ae Cursor Up 1 1 
565 an Cursor Down 0 0 
566 a% 
567 . Call RDCHD+ to get Filetype returned in R2 
568 x 
569 ** Nornal exit conditions fron handler if handled (ST, RAN, 
570 ** registers, etc.): 
571 ax 
572 sig HEX node 
573 a Perforn Cursor Key on file 
574 ER GOVLNG to MAINX 
575 ax 
576 &k Wornal exit conditions fron handler if not handled (ST, RAN, 
577 *X registers, etc.): 
578 ae HEX node. 
579 ax xN=1. 
580 Re S2 and S3 must be preserved 
581 = 
582 ** Available subroutine levels: 5 
583 1” FPQLL handler 1s tuo levels deeper than caller 
584 aM Invoked fror: CURSOR keys --- top level 
585 ig 
586 4% WOTE: 
58? x The file type of the current file can be deternined: 
588 EH Call RDCHD+; R2 = File type on return 
589 aa 
5% ** What registers/RAM may be used 1f handled?: 


591 kx A-D, DO, D1, P always available-- 
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592 ae Anything nay be used: Status,RO-R4, SCRICH... 
593 me CURRL (4 nibs) holds the current BASIC file line nunber 
594 tal This field may be used if CURRENT file is line nunbered 
595 me 
596 ** What registers/RAM may be used if not handled?: 
597 ka A-C, DB[15-5] DO, D1, P always available 
598 ae NOTE: D[A} 1s sacred in FPOLL!!-- 
599 ak RO-R4 
600 ka 
601 ** Special nenory/pointer considerations (are pointers funny?): 
602 BK Take care when returning to the MARIN LOOP 
603 ax 
604 as MAIN3O is the return point for Cursor Keys in BASIC 
605 ax The line has been deconpiled 
606 ak The prompt is sent and the display built (BLDDSP) 
607 ai NAINLP is the return point if NOTHING is displayed 
608 xx CR/LF with no delay has been sent (S-CRLF) prior 
609 eX to displaying the line. 
610 a 
611 aa 
612 *k Envisioned application(s): 
613 a Allow Cursor keys to display lines of a non BASIC file 
614 
615 as The handler is responsible for maintaining the 
616 xs "Current file" position. Possibly an I/0 Buffer can 
617 a be used. 
618 xx 
619 ** History: 
620 a 
621 xe Date Progranner Modification 
622 Pe cepted: “ade setecue. oiutetwines cose nuxee de es oecen see 
623 kk 03/01/83 JP Added poll 
624 Kk 04/14/83 IP Revised docunentation 
625 kk 06/02/83 = SW If null file, check for AUTO node; 
626 a Not AUTO node => goto NAINLP 
627 a AUTO node => display curr line 
628 ~ (Before, went to MAINLP regardless) 
a JOIST III IIIT IIIT III III III RII IIS III III II IIIA AISI IIS 
631 JIS I TIT TOTTI TIE TID II II IIIT IST OAT TI IITA 
632 ‘ 
633 * Cursor BOTTOM Entry 
634 % Set Cursor Botton flag 
635 x Clear Cursor Up flag 
636 * 
637 10059 853 =CURBOT ST=1  sCURBT Set Cursor Botton flag 
638 1005C 842 ST=0 — sCURUP Clear Cursor Up flag 
639 1005F 6900 GOTO CURO10 
640 : 
641 * Cursor TOP Entry 
642 * Clear Cursor Botton flag 
643 * Set Cursor Up flag for pCURSR 
644 y Never used within code 
645 x 
646 10063 843 =CURTOP ST=0  sCURBT Clear Cursor Botton flag 
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647 10066 852 : ST=1 — sCURUP Set for pCURSR 

648 

649 * Send Carriage Return/Line Feed 

650 : If Private progran ---> Error exit fron GETPeF 

651 

652 10069 79EO CUROIO GOSUB CRGTPR Send CR/LF, Check protection 

653 10060 521 ; GONC CURO20 BASIC file ? 

654 

655 * If non BASIC file 

656 x POLL on pCURSR with non-BASIC file type 

657 * Error Exit ---> Illegal File type 

658 x 

659 10070 8E00 CURO15 GOSUBL =FPOLL 
re) 

660 10076 92 CON(2) =pCURSR Cursor Up/Down with nonBASIC file 

661 10078 D2 C=0 A If no response 

662 1007A 8CO0 GOLONG =FTYPER Illegal Filetype Error 
0 

663 * 

664 * FETCH entry: 

665 x CURRL = 0 and not a null progran 

666 * Display first line of file 

667 * If Null Progran 

668 * Return to Main Loop 

669 x 

670 10080 7ECF =CURO20 GOSUB NullP Null Progran ? 

671 10084 475 . GOC CUREXT Yes - Return to Main Loop 

672 

673 * If CURTOP 

674 x Position to first line of file (@ EOL before from NULLP) 

675 . go Decoripile & Display line 

676 . 

677 * Tf CURBOT 

678 x Set Line# = FFFF 

679 . go Find Last line in file 

680 - 

681 10087 873 CUROX ?ST=1 sCURBT Cursor Botton ? 

682 1008A 90 GOYES CURO35 

683 1008C 171 D1=01+ EOL Position past EOL 

684 1008F 6870 GOTO DOCPLIN Display First line 

685 10093 D2 CURO35 C=0 A 

686 10095 CE C=C-1 A Line# = FFFF 

687 10097 401 COC CURO6O B2b5.13 

688 , 

689 * Cursor Up Entry 

6% x Set Cursor Up flag 

691 % Set Cursor Botton flag for pCURSR 

692 x Never check within this code 

693 : 

694 1009A 852 =CURSRU ST=1  sCURUP Cursor UP entry flag 

695 1009D 853 ST=1 — sCURBT Set for pCURSR 

696 100A0 6900 GOTO CURO4O 

697 i 

698 * Cursar Doun Entry 

699 * Clear Cursor Up flag 
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700 z Clear Cursor Botton flag for pCURSR 
701 x Never checked within this code 
702 * 
703 100R4 842 =CURSRD ST=0  sCURUP Cursor DOWN entry 
704 100A7 843 ; ST=0 — sCURBT Clear this for pCURSR 
705 
706 * Send CR/LF 
207 * If Private progran 
708 x Error Exit 
709 * If non BASIC 
710 x go Poll, then Error 
711 x 
712 100AR 78A0 CURO40 GOSUB CRGTPR 
713 100RE 41C GOC CURO15 non BASIC progran 
714 x 
715 * Read current line# 
716 x 
717 100B1 7CAO GOSUB CURRLO Read CURRL, test for 0 
718 x 
719 * Find Current Line# 
720 x 
721 100B5 7B2F CURO6O GOSUB FINDL Find line 
722 10089 501 GONC  CURO65 Line# not found 
723 x 
724 * Line# found: Cursor Donn 
725 x 
726 x Save start of current line 
727 x Position to next line 
728 x If next line >= End of progran file 
729 x Next line <-- Saved current line 
730 : go Deconpile & Display line 
731 
732 100BC 872 ?ST=1  sCURUP Cursor Up ? 
733 100BF E3 GOYES CUR110 
734 100C1 137 CO1EX 
735 10004 D5 B=C A Save start of current line 
736 100C6 137 CDIEX 
737 100C9 746F GOSUB NXTLIN Position to next line 
738 100CD 8B3 *c<D OAR Next line within progran ? 
739 10000 83 GOYES OCPLIN 
740 100D2 D4 A=B A Next line = Saved current line 
741 10004 503 GONC CUR115 B.E.T. 
742 x 
743 * Line# NOT found: 
744 x If Null program 
745 x Return to Main Loop 
746 x If Cursor DOWN 
747 x If line# > found 
748 : go Deconpile and Display @ Line 
749 x else 
750 ; Previous Line (D0) @ Last line of file 
751 
752 100D7 861 CURO65 ?7ST=0 1 Not Null Progran ? 
753 100DA 90 GOYES CURO70 


754 100DC 8D00 CUREXT GOVLNG =CURSNP Cursor on null progran 
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755 
756 
75? 
758 
759 


000 


100E3 872 
100E6 RO 
100E8 860 
100EB D1 
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x 
CURO7O *ST=1  sCURUP Cursor Up ? 
GOYES CURO90 
?$T=0 6 Line# > found ? 
GOYES DCPLIN go Deconpile/Display line 
GONC CUR110 B.E.T. 


760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 


771 
772 
773 
774 
775 
776 
did 
778 
779 
780 
781 
782 
783 
784 
785 
786 


287 


788 
789 
790 
791 


792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 


1OOED 5FO 


100FO 8FO0 
000 

100F? 17F 

1O0FR 170 


1O0FD 132 
10100 8A8 
10103 50 

10105 131 


10108 8FOO 
000 

1010F 8E00 
00 


10115 FIC 
6F2 
10110 ADO 
1O11F 143 
10122 ER 
10124 81C 


10127 100 
1012A DS 


Line# NOT found: Cursor Up 
Get first line of file 
If previous line fron FINDL = 0 
Deconpile @ First line of file 
else 
Deconpile @ Previous line 


+ OF Oe Oe OF OF OO 


CURO9O GOSBVL =RDCHDR Read current file header 


01=01+ 16 
01=01+ (oBSsod)-16 


Kludge to keep symbolic 
Position past first EOL of file 
x 

* If previous line # 0 

x Next line = Previous line 

* else 

: D1 @ Line to Deconpile/Display 


Previous line 
No previous line ? 


CUR110 ABOEX 
A=0 6 OR 
GOYES DCPLIN 
CUR115 D1=A Set line @ Previous 1 
x 
* DCPLIN - Deconpile Line @ D1 
X 


=DCPLIN GOSBVL =LDCOMP Decoripile Line 


=PSPLI+ GOSUBL =dO0=obs C(A) pts to OUTPUT bufst 


* 
* Calc Hspaces to move cursor right 
x 


D1=(5) =LDCSPC Addr @ space after Line# 


Difference 
B Divide by e 
* ACA) >=1 

* DSPLIN - Display Line 
x 


DSPLIN RO=A 
C=B A 


Save # spaces 


* NOTE: 
x  BF2DSP uses 3 levels 
* {all to it uses 4 levels 
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805 

806 

807 

808 1012C 06 

809 

810 

811 

812 1012E 8F0O 
000 

813 10135 07 

814 10137 DS 

815 10139 8E00 
00 

816 1013F 118 

817 10142 8E 
00 

818 10148 8FOO 
000 


819 1014F 8D00 
000 

820 

821 

822 

823 

824 

825 10156 7000 

826 1015A 8D00 
000 
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* § levels used to save # characters 
* All entries to this routine are GOVLNG 
x 
RSTK=C Save # characters 


* Send Prompt, Buffer, # cursor rights, Build display 
i 


GOSBVL =BF2DPP Display PROMPT 
C=RSTK Restore # characters to B(A) 
GOSUBL “DSPCNO Display Output Buffer 
C=RO cursor rights 
GOSUBL =CURSRT CURSFL, then nove cursor right 
GOSBVL =BLDDSP Build display 

CUR130 GOVLNG =MAIN3O Return to Main, keep display 


* Subroutine: Send CR/LF with no delay 

x Check file protection 

Error exit if Private fron GETPeF 
Return carry set if non BASIC 

serlfsd Send CR/LF u/ no delay 
=GETPeF Check private/file type 


% OF 


CRGTPR GOSUB 
GOVLNG 


Saturn Asserbler 


Progran Edit <831212.1204> Fri Dec 30, 1983 2:55 an 


Ver. 3.39/Rev. 2X6 Read and Test CURRL for zero Page 18 
827 STITLE Read and Test CURRL for zero 
828 JI III CO OOOO IOI TOI 
829 JU CIO IOI OOO TO TIE 
830 RK 
831 fe Natie: CURRLO - Read and Test CURRL for Zero 
832 x 
833 *k Category:  GENUTL 
$34 kK 
835 xk Purpose: 
836 ak Read current line and test if current line = 0 
837 RR 
838 ek Entry: 
839 RK 
840 aK 
841 RK Exit: 
842 ak P untouched 
843 ak C(A) = Current Line (CURRL) 
844 aE Carry clear 
845 aK C(A) = 0 = Current line 
846 ax Carry set 
847 ak C(A) # O = Current line 
848 aK 
849 kk Calls: None 
850 kk 
851 aK Uses....... 
852 *k Exclusive: C(A),DO 
853 xx 
854 xk Stk lvls: 0 
855 kK 
856 ae NOTE: 
857 aR D1 could be used instead of DO 
858 aK 
859 xk History: 
860 ak 
861 aK Date Progranner Modification 
862 RE een, ee ie» Gooniee ee eects ese cee tos 
863 kk 10/08/82 JP Added routine 
864 ek 10/21/82 9 JP Changed sense of Carry on return 
ok 
ae JOO UII TOI IOI ISOS E CI IOC GI IOI IOK 
867 JOGO IEICE ITI 


868 10161 1B8E =CURRLO DO=(5) =CURRL 


7F2 
869 10168 De 
870 1016R 1563 
871 1016£ 8RE 
872 10171 00 
873 10173 01 


C=0 A Zero C(4) 

C=DATO 4 Read current line# 

7CHO OAR Current line# # 0 ? 

RTNYES Carry set if Current line# # 0 


RIN Carry clear 1f Current Line# = 0 
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874 STITLE Save Line# in CURRL 
875 OTIC ICO IOC IO IK 
876 JOO III TOI IT TIT 
877 aa 
878 - Narie: SAVEL# - Update Current Line# (CURRL) 
$79 
880 ** Category:  FILUTL 
881 ak 
882 ** Purpose: 
883 os Update current line# RAM. location: CURRL 
834 ax 
885 ** Entry: 
886 an SAVEL+: C(A) @ Start of line with new linet 
887 ae SAVEL#: Di «= @ Start of line with new linet 
888 ae SAVELO: C(A) = New line # 
889 aK 
8% Rx Exit: 
891 ak Carry clear 
892 kk DO @ CURRL RAN location 
893 ke SAVEL+: CURRL = Line # at C 
894 kk 01 @ Start of line# 
895 kx SAVEL#: CURRL = Line # at D1 
896 ae SAVELO: CURRL = Line # in C 
897 Sas 
898 tk Calls: None 
899 ak 
300 t* Uses. .....- 
901 ** Exclusive: C(A),DO,CURRL 
902 *k Inclusive: C(A),00,CURRL 
903 ke 
904 &k Stk lvls: +0 
905 tk 
906 JOGO IDIOT III OCIS IIT TTI 
907 JOO IOI IOS IOC IOI IIE 
908 & 


909 10175 135 
910 10178 D2 
911 1017A 15F3 
912 1017E 1B8E 
7F2 
913 10185 163 
914 10189 03 


=SAVEL+ DI=C 
=SAVELA C=0 A 

C=DAT1 4 Read in Line# at DI 
=SAVELO DO=(5) =CURRL Write C into CURRL 


DATO=C 4 
RTNCC 
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915 STITLE Send CR/LF 
916 JIS IDOI GIS COGIC IIT III TTI TI 
917 JO IIIT III OO IO OO ITT TIT IIIT III IT 
918 as 
919 xk Nare: SCRLF> - Send Carriage Return/Line Feed 
920 x 
921 ** Category: LOCAL 
922 ax 
923 ** Purpose: 
924 ie Send Carriage Return and Line Feed with delay suppressed 
925 x 
926 ** Entry: 
927 ax SCRLF>: Sends CR,LF with delay suppressed 
928 ae 
929 ek Exit: 
9H ax CR and LF sent to Display Buffer 
931 “ai Display is nulled 
932 ss 
933 am Exit through BF2DSP 
934 ae 
935 ** Calls: none 
936 ae 
937 tk Stk lvis: +3 
938 ce 
939 PESUSOSi 64.455 
940 ** Exclusive: D1 
941 ** Inclusive: D1,sarie as BF2DSP 
942 a 
943 JOOS OUI IIR ICIS IIT I TTI TIS TITS TI TIN 
944 JOIST IIIT III ITO TIO IIIT III IIIS IIIS ISI IIIA IOS 
945 x 


946 1018B 8000 SCRLF> GOVLNG =CRLFND 


947 
948 10192 


000 


i 
END 
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BF2DPP Ext - 812 
BLDDSP Ext ~ 818 
CHKPSF Ext - 103 
CLLINK Ext - 114 
CLPSTK Ext - 104 
CRGTPR Abs 65878 #10156 - 825 652 712 
CRLFND Ext - 946 


CURO1O Abs 65641 #10069 - 652 639 
CURO15 Abs 65648 #10070 - 659 713 
=CURO2Z0 Abs 65664 #10080 - 670 653 
CURO3O Abs 65671 #10087 - 681 
CURO35 Abs 65683 #10093 - 685 682 
CURO4O0 Abs 65706 #IODAR - 712 696 
CURO6O Abs 65717 #100B5 - 721 68? 
CURO65 Abs 65751 #100D7 - 752 722 
CURO70 Abs 65763 H100E3 - 756 753 
CURO%) Abs 65776 H1O0FO - 770 757 
CUR110 Abs 65789 H1O0FD - 779 733 760 
CURTI5 Abs 65797 #10105 - 782 741 
CUR13O Abs. 65871 H1014F - 819 
=CURBOT Abs 65625 #10059 - 637 
CUREXT Abs 65756 #10000 - 754 671 


CURRL Abs 194536 &2F7E8 - 11 868 = 912 
=CURRLO Abs 65889 #10161 - 868 717 
CURSNP Ext - 754 
=CURSRD Abs 65700 H100A4 - 703 
CURSRT Ext - 817 


=CURSRU Abs 6569) H1009R - 694 
=CURTOP Abs 65635 #10063 - 646 


DOOUTB Ext - 122 
DI=CRS Ext - 183 

=PCPLIN Rbs 65800 #10108 - 786 684 739 759 781 
DSPCNO Ext - 815 


=DSPLI+ Abs 65807 HIO1OF - 787 
=DSPLIN Abs 65831 #10127 - 799 
=FINDL Abs 65508 HOFFE4 - 291 = 721 
=FINDL+ Abs 65510 HOFFEG - 292 128 
=FINDLO Abs 65533 HOFFFD - 304 
FINDL2 Abs 65539 #10003 - W6 317 
FINDL? Abs 65574 #10026 - 319 296 
FINDL8 Abs 65580 #10020 - 321 WH? 
FINDL9 Abs 65583 #1002F - 322 312 
=FINDLR Abs 65502 HOFFDE - 289 


FPOLL Ext - 659 
FIYPER Ext - 662 
GETPeF Ext - 826 
LDOCOMP Ext - 786 
LDOCSPC Abs 194241 H2F6C1 - 11-791 
=LSTADR Abs 65478 HOFFC6 - 197 
MAIN3O Ext - 819 
MFERR Ext - 156 
MSIZE+ Ext - 198 
=NfErr Abs 65472 HOFFCO - 156 
NULLP Ext - 371 


NXTLI2 Abs 65588 #10034 - 367 367 
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=NXTLIN Abs 65585 #10031 - 356 141 316 737 
NullP = =Abs 65618 #10052 - 371-293) 670 
OBCOLL Ext ~ F27 

=PEDIT Abs 65375 HOFFSF - 33 
PEDITO Abs 65392 HOFF70 - 114 
PEDIT2 Abs 65424 HOFF9O - 128 126 
PEDIT3 Abs 65447 HOFFA? - 150 137 

=PEDITD Abs 65378 HOFF62 - 102 

=PEDITN Abs 65392 HOFF70 - 113 
PEDTOO ~Rbs 65378 HOFF62 - 103 
RDCHDR Ext - 7% 

RPLLIN Ext - 194 

=SAVELH Abs 65912 #10178 - 910 

=SAVEL+ Abs 65909 #10175 99 123 

=SAVELO Abs 65918 H1017E - 912 
SCRLF> Abs 65931 #1018B - 946 


crifsd Ext - 825 

d=obs Ext - 78? 

IEOL Abs 2 #0002 - 12 683 

oBSsod Abs 17 #00011 - 12 7?2 

pCURSR Abs 41 #00029 - 12 660 

sCURBT Abs 3 #00003 - 12 637 646 681 695 704 


sCURUP Abs 2 #00002 - 12 638 647 694 73 732 756 
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Input Paraneters 
Source file nane is JP&MEM: MS 
Listing file nane is JP/MEN:TI:ML::-1 


Object file name is JPZMEM: TI: MS: 3-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 





Saturn Assenbler Configuration Module <831213.1 Fri Dec 3, 1983 3:42 an 


Ver. 3.39/Rev. 256 Page 1 

1 * nm MN N & CCC N NW FFFFF 

2 x mi Mh N N &8& jC CN NW F 

3 * MMM NN N &88& C NN ON F 

4 * MMM NNN & C NNN. FFFF 

5 x om mM N NN 888 C N NN F 

6 * nm MAN NB & C CN N F 

7 * om nm N N 8&8& (CCC N NF 

8 k 

9 TITLE Configuration Module <831213.1255> 
10 10192 ABS #10192 


RDSYMB SBZRAN: - AS 
RDSYMB TIZEQU: : MS 


—_ — 
no -—- 
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13 
14 
15 
16 
1? 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
4? 
48 
49 
50 
51 
52 


53 
54 
55 
56 
57 
58 
a3 


60 
61 
62 
63 
64 
65 


10192 DS 
10194 20 
10196 3400 
4F2 
8B5 
D6 


1019D 
101A0 
101A2 73E2 
101A6 8B5 
1O1TAI OO 
1O1AB 31EF 
1O1RF 8E7F 
70 
101B5 500 
101B8 171 
101BB D2 
101BD 30A 
101C0 ER 
101C2 4A4 


xk 
ak 
ak 
ak 
kk 
ak 
ak 
ak 
ak 
xk 
ak 
xk 
ak 
xk 
xk 
ak 
xk 
xk 
ak 
xk 
xk 
ak 
kk 
ak 
xk 
ak 
ak 
ak 
xk 
xk 
ak 
xk 
xx 
ak 
ak 
ak 


=I 


I 


3:42 ar 
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STITLE ISRAN? utility 
FOI OO TO RT TTT IAT S III IIIT II ITAL IIT TIT 


FOCI TOOT TTT TI TOIT IIT ITI 


Narie:(S) ISRAN? - Pointing At RAN? 


Category: CONFIG 
Purpose: 
Determine whether an address is in RAM or sonething 
else. This was put in to save writing to non-RAN 
devices, which for ROMs does no harn but for EEPROMs 
does plenty of harn. 
Entry: 
Address to check in C[A]. 
Exit: 
P=0, 
Carry set if address is in systen RAM or IRAN. 
Address passed 1s now in BIAY. 
Calls: CNFFND, MSIZ++ 
Uses....... 
A, B{A],C,D1. 
Stk lvls: 1 
History: 
Date Progranner Modification 
12/09/82 NM Wrote 
FOO IR III III OTTO TTI IOI TTT TOI TIT. 


JOIST TIT TIITIGOII O TTT T IK 
SRAN? B=C A Hold address. 

P= 0 

LC(5) =INTR4 Start of RAN. 

7B<C OR Address before start? 

GOYES ISRNCC Yes. RTNCC. 

GOSUB C=RANE C=(RAMEND) 

7B«C OR Address before end? 

RINYES Yes. RITNSC. 

LCHEX FE 

GOSUBL CNFFND Look for ROM buffer. 

RTNNC RINCC if not found. 

DI=D1+ 2 For looking at table entries. 
SRN1O C=0 A 

LC(1) 10 

A=A-C A Decrenent counter. 

GOC ISRNCC RTNCC if no wore. 
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66 
67 
68 
69 
70 
71 


72 
73 
74 
75 
76 


77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
” 


101C5 15F6 
101C9 RE2 
101CC €1 
101CE 402 
101D1 14F 
101D4 8E00 
00 
101DR 7F22 
101DE D6 
1O1EO F2 
1O1E2 Fe 
101E4 8E00 
00 
1O1ER 8B9 
101ED 20 
1O1EF 15F5 
101F3 RE2 
101F6 5BO 
101F9 C1 
101FB 179 
101FE 6CBF 
10202 C1 
10204 25 
10206 AOE 
10209 20 
1020B 01 
10200 03 
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TSRN20 


TSRNH 


TSRNCC 


C=DAT1 7 
C=0 B 
B=B-C A 
GOC TSRN2O 
C=DAT1 B 
GOSUBL =ASLW3 


GOSUB MSIZ+ 
C=A OR 
CSL oA 
CSL OA 
GOSUBL =ASRN3 


7C<=B A 
GOYES ISRH2O 
C=DAT1 6 

C=0 B 

GONC  ISRN30 
B=B+C A 
D1=D1+ 10 
GOTG ISRNIO 
B=B+C A 

P= 5 
C=C-1 P 

P= 0 

RIN 

RTNCC 
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Read nibs 2-8 of entry. 

Address of this nodule. 

Offset of addr rel to this nod. 
Go if addr before nodule. 
Restore size information. 

Move counter out of way. 


Conpute size of nodule. 

Size in nibs. 

Restore counter. 

Set carry if addr not in nodule. 
Fetch address again. 

Go if found nodule. 

Restore address. 

Point at next entry. 

Restore address. 

Point at device type. 


Decrenent device type. 


Carry set if device RAM. 
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91 STITLE Hardware Configuration code 
92 SII III IOI II ITI II ITI SII III IIT II III III ISIS I SIDI IIIS SSI SSIS SSI 
93 JI II III OI OAT ITI IIT III IIIS III III OI ISI IIIT OTTO ISI SSI SSI SS SSSA IK 
94 xk 
95 ** Nare:(S) CONF - Configure Everything 
96 ax 
97 ** Category: CONFIG 
98 ak 
99 ** Purpose: 
100 ay To configure all soft-configurable devices on the 
101 aK systen bus. 
102 ae 
103 ** Entry: 
104 **k CONF: SO=0 if requesting a power-up configuration 
105 aX (preserve integrity of systen), 
106 aK 1 if requesting a coldstart configuration (reset 
107 kK all pointers to coldstart values). 
108 xk CONFS3: SO as above plus: 
109 a $3 = 1 if we intentionally want configuration to 
110 5 behave as though ROM configuration changed. 
114 x 
112 Sx ERI t? 
113 a Configuration proper falls through to LEXBUF. SO 
114 xe indicates whether a power-up configuration (S0=0) or 
115 am a coldstart configuration (SO=1) was done. 
116 a 
11? ** Calls: ADIP,C=MAIN, C=RAME,CDIVIO, CLKSPD,CLRXDS, 
118 ae CONF P4 ,CSLCE3, CSLW4, CSLW5S,CSRC3, CSRW3, 
119 aX D=AVNE , DSLW-P, FNDBUB, INITPT,MODSIZ, MOVED2, 
120 aX NOVEUA, MOved3, NRKNEW, MRKOLD, MSIZE, Moveu3, 
121 sr R3<RST,RFADI+, ROMTPT, RST<R3, SIZE10, SORT, 
122 ais SORTP2, STNBF?, TBLPT+, TBLPTR, UNCFG8, WAITKY, 
123 kk WHLTBL,csrué. 
124 xx 
125 PROUSES ccs wis 
126 ee A,B,C,D,D0,D1,P,RO-R4,Display buffer, SO-S3, 
12? ae RSTKBF. 
128 x 
129 ** Stk lvls: 3 (four are saved in RSTKBF) 
13% ak 
131 ** NOTE: 
132 = The configuration code nay decide on its own to perforn 
133 a a coldstart configuration when a power-up config was 
134 a requested. This would be done if certain neriory was 
135 Ax corrupt, disallowing the manipulations necessary to 
136 a Naintain systen integrity. In this case, the code 
13? ke Will GOVLNG to COLDST (address #00000), which will 
138 ae Wipe out the machine and call this code with SO=1. 
139 ax 
140 - If configuration code deterriines that ROM configuration 
141 aD has changed to a point endangering the validity of 
142 z% the unpteen pointers in the nainfrane, it will 
143 ax essentially perform an “EDIT workfile" before falling 
144 ae into the LEXBUF code. It will also close all files 


145 in the FIB. This tray be forced by entering at CONFS3 
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146 a with S3=1. 
147 ae 
148 he If code detects the presence of too nany ROMS to 
149 ae configure in the address space, it will give a warning 
150 se nessage. It is not written to cover the contingency 
151 a of too many RAMS or MMI/O devices, on the assunption 
152 am that the possibility of said happening is too snall 
153 aR to merit the irmense code required. 
154 kk 
155 ** Detail: 
156 ax 
157 ** This code configures all soft-configurable devices on the 
158 ** systen Bus. The code builds three tables in the configu- 
159 ** ration buffers: System RAN, Other nenory (ROM, EEPROM, 
160 ** independent RAM, etc.), Menory-napped 1/0. The buffer IDs 
161 ** for the above configuration tables are, respectively, 
162 KX FF, FE, FD. The exact fornat of the infornation in the 
163 kk tables is explained belou. 
164 kn 
165 ak 
166 > Following is the pre-configuration neriory layout: 
167 
168 x — QOOOO-1FFFF: Operating systen 
169 xk = 2(000-2C01F: Card reader 
170 &k = 2E100-2E3FF: Display RAN 
171 kk 2FQ00-2FFFF: Disp Driver RAM 
172 . (FFCOO-FFFFF: Reserved for config garbage collection) 
173 
174 a The configuration code assigns addresses as follous: 
175 
176 . Menory-napped 1/0 upward fron 20000-28000, 
177 
178 ** Systen RAN contiguously upward fron 30000. 
179 *x To achieve this contiguous napping, systen RAM is 
180 xk configured in reverse size order. This assures that 
181 kk 64 Knib RANS are configured on 64 Knib boundaries, 
182 kk 32 Knib RAMS on 32 Knib boundaries, etc. 
183 a 
184 kk Uses SO-S3 internally as follous: 
185 x SO: Set for coldstart, clear for power-up configure. 
186 an $1: Used internally in debubbling systen RAM, then 
187 ax used to indicate presence of ROMs for which 
188 am there is no room to configure. Results in 
189 ate nessage. 
190 KK (Debubbling is explained in algorithn (below) 
191 aK shortly below CON400 label. ) 
192 an S2: Set to indicate failure of internal file chain 
193 x verify. Results in message. 
194 = $3: Set to indicate that systen ROM configuration has 
195 Be changed to an extent which nay endanger the 
196 es validity of sone pointers. Results in collapsing 
197 * of stacks and resetting pointers as though an 
198 am "edit" connand was entered. 
193 xa 


200 ** To explain configuration, the following terns are used 
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201 ** belou: 
202 xx 
203 xk PORT#: Physical port location (1-5) whose daisy chain 
204 EX is addressed by a bit (0-4) in output register. 
205 ae Port #0 1s the internal daisy chain. 
206 Ae Port #5 goes to the card reader slot. 
207 aK DEVH: Position of a plug-in (0-15) in a daisy chain. 
208 ak Unless there is a port extender, all plug-ins 
209 Kx will be device #0. 
210 aK SEQUENCE: Consecutive chips in a nodule to be used 
211 ak as a single entity (e.g., a quad RAM which 
212 ax appears as one plug-in to the user). 
213 a DEVICE TYPE: Type of nenory 7RAN, ROM, etc., or nenory- 
214 ax napped 1/0). 
215 DEVICE CLASS: Identifies merory-napped 1/0 device. 
216 
217 xR 
218 ak &KK CHIP ID **A 
219 xk 
220 xk ~The CHIP ID is a (usually) mask-prograrnned 20-bit pattern 
221 kx which 1s read by the CPU on an ID poll (C=ID instruction). 
222 *k =A chip responds to the ID poll if two conditions are net: 
223 kk 1) The chip is unconfigured, 
224 ax 2) Daisy-in is high on the chip. 
225 *k By examining the daisy chains one at a tine, configuring 
226 kk each chip as we find it, we can locate and identify all 
227 kk sof t-configurable chips on the bus. 
228 a 
229 ni The chip-1d contains the following inforration: 
230 
231 xk WIBBLE 0: 15-Log2(size). 
232 RX Nenory Size Nib 0 Mn 1/0 space 
233 KEK ° jELScenSecces,  “'scene;>  vesdosocdicie 
234 a 1 knib F 1 word (16 nibs) 
235 see 2 E 2 
236 ae 4 D 4 
237 an 8 C 8 
238 ae 16 B 16 
239 as 32 A 32 
240 xx 64 (max RAN) g 64 
241 ax 128 8 128 
242 nn 256 (max meriory) 7 256 
243 ax 6 512 
244 a* 5 1024 
245 ae 
246 **  NIBBLE 1: (Reserved for future use) 
247 aa This nibble fron the first chip ina 
248 xe sequence is stared in the configuration 
249 -* table for all sequences. 
250 A 
251 xk —-NIBBLE 2: Device type-- 0: RAN 
252 xe 1: RON 
253 a 2-E: assorted nenory types 
254 a F: Menory-napped 1/0 


255 7 
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256 xk  NIBBLE 3: For nenory, (unassigned). 
257 mR For nenory-mapped 1/0, contains device 
258 a class-- 0: HPIL nailbox 
259 ah 1-15: (unassigned) 
260 a (Note: Card reader 1s hard configured 
261 * at 2C000-2C01F. ) 
262 ae 
263 x* NIBBLE 4: bits 0-1: (unassigned) 
264 aR bit 2: Last chip in sequence (see note (1) 
265 ae below). 
266 wR Always assumed high for Mn 1/0 
267 ak devices, meaning all such devices 
268 Aa have their oun table entry. 
269 aia bit 3: Last chip in nodule. 
270 RK 
271 ** The top tuo bits (bits 2-3 of nibble 4) are used to 
272 **t deternine what chips are in what physical plug-ins. 
273 *k Every sequence of chips (e.g., four identical RAMS in 
274 *k a RAM plug-in, an applications pack containing tuo 
275 ** ROMS, etc.) results in one entry in the configuration 
276 xt tables. 
277 xe 
278 xk (1) End of sequence (but not module) is identified in 
279 kt one of two ways: 1) next chip returns ID with different 
280 ** value in nibs 0-3; 2) last chip of sequence has bit 
281 ** 18 set. The second approach 1s necessary if 
282 ** consecutive, identical chips are to be considered as 
283 kt different sequences, and will probably NEVER be used 
284 **k in the entire lifetine of the machine. But it can 
285 ** be done. 
286 AE 
287 ** A nodule containing four 8-Kbit RAMS might return the 
288 4% Following sequence of IDs: 
289 aK QOOOE OOOOE OOOOE 8000E 
290 ** The resulting table entry would identify the chip 
291 *k size, chip count, device type, physical location, 
292 ** and configuration address of the device. 
293 a 
294 ** A nodule containing tuo 128-Kbit ROMS, a renory-napped 
295 ** 1/0 interface using 2 words of address space, and four 
296 ** 16-Kbit RAMS might present the following sequence of 
297 xe TOS¢ 
298 x 0O10A First ROM \ one ROMtable entry 
299 a 0QO10R End of ROM sequence / 
HO aR O1FOE MM 1/0 devclass 1 one MM I/Otable entry 
#1 RK 0OOOD Start of RAMS \ 
Re aa 00000 | one RANtable entry 
3 a 0000D | 
4 x 80000 End of nodule / 
305 ar 
6 ** Restrictions: 16 chips/sequence 
x7 aK 16 sequences/device 
8 a 16 devices/port 
9 aR 


310 * 





ro | 
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311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
j39 
0 
341 
2 
343 
344 
345 
346 
4? 
348 
349 
350 
351 
352 
Jo3 
354 
J55 
356 
36? 
358 
369 
360 
361 
362 
363 
364 
365 


aX 
xx 
ax 
xk 
aK 
ax 
ak 
xk 
ax 
ax 
xx 
ak 
a 
ak 
xx 
ak 
x 
ar 
xx 
ak 
x 
a 
xx 
xx 
an 
xx 
a 
ax 
xx 
ak 
a 
aR 
an 
ak 
ak 
ak 
x 
ak 
xk 
xx 
xk 
xk 
xk 
ae 
xk 
an 
ax 
ak 
kk 
ax 
ak 
ak 
a 
xk 
xk 


Fornat of table entries: 
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Systen RAN Other Meriory 
(cnftable ID FF) (cnftable ID FE) 
NIB 0 Seq position Seq position 
NIB 1 Device # Device # 
NIB 2 Port # Port # 
NIB 3. 15-Log2(size) ** 15-Log2(size) 
NIB 4 / / 
NIB 5 | Address (kbit) | Address (kbit) 
NIB 6 \ \ 
NIB 7 0 Device type 
NIB 8 #chips/plugin-1 #chips/plugin-1 
NIB 9 Nibble 1 from ID Nibble 1 fron ID 
Nerory-mapped 1/0 
(cnftable ID FD) 
NIB 0 Sequence position in dev 
NIB 1 Device # 
NIB 2. Port # 
NIB 3. 15-Log2(size) 
NIB 4 / 
NIB § {| Address (words rel to 10000) 
NIB 6 \ 
NIB 7? Device type (always F) 


NIB 8 Device class 
NIB 39 Nibble 1 fron ID 


X* FREEPORT routine may set this to zero to indicate 
that the RAN has been renoved intentionally. This 
affects operation of this code in the spot where the 
old and new tables are coripared to deternine which 
RANs are new and which are missing. 


Algorithn: 
CONF : 


$3=0 {to indicate we do not want EDITWF unless 


necessary}. 
CONFS3: 


Save 4 subroutine levels in RSTKBF. 


CONFRS: 


B=0000000000000001 {B contains device counters and 
other good things: B[B)=bit for output register, 
B[XS]=device#, B[3]=port#, B[S]}=sequence#, B{6-5]= 
RAM counter, B[8-7]=ROM counter, B[10-9]=NMIO 
counter, B[12-11]=sun of other three counters, 
B[4]=(tenporary storage of ID hinib). + 

Di=start of display buffer area where we build table. 


Perforn a bus reset. 
IDLOOP: 


Is there roon for any nore entries? If not then goto 


CONF10. 


Energize daisy chain for this port (OUT=B[B]/2). 
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366 ae Get ID of next device on daisy chain (C=ID). 
367 ae If response#O then goto IDLP20. 
368 aK Increnent port# (B[3]}). 
369 aA Reset device (B[XS]). 
370 aK Reset sequence# (B[S]). 
371 ak Nove port bit over one (B=B+B 8B). 
372 aK If port bit<=80H then goto IDLOOP else goto CONF10. 
373 ax IDLP20: 
374 Ax Hold ID in R3. 
375 aK Hold ID hinibble in B[4]. 
376 aes Build device table entry (except address) in C. 
377 aR If devicetype=RAM then goto IDLP9. 
378 ae If devicetype#Menory-napped-1/0 then goto IDLP60. 
379 aK Write nerory-napped-I/0 table entry at D1. Configure 
380 ak device to 40000H. 
381 4% P=(position of MMIO counter). 
382 xx IDLP30: 
383 ax If hibit of ID clear then goto IDLP40. 
384 aK Increnent device#. 
385 ak Reset sequence#. 
386 ak IDLP40: 
38? ak Increnent device counter pointed to by P. 
388 ak Increnent total-#-devices counter. 
389 ak Goto IDLOOP. 
30” ak IDLP60: {configuring "ROMs" } 
391 = Set address field of table entry to FFFOO. 
392 ak Find and configure all chips in this sequence to 
393 ak 40000H (gosub CONFP4). 
394 a P=(position of ROM counter). 
395 ae Goto IDLP30. 
396 xx — IDLP90: = {configuring RAMs} 
397 ae Configure chip to 80000H. 
398 ak If first 8 nibbles of chip = IRAN ID then unconfigure 
399 is chip and goto IDLP60 {if IRAN then treat as ROM. 
400 aA Unconfigure chip. 
401 Re Find and configure all chips in this sequence to 
402 aK 400000H (gosub CONFP4). 
493 ak P=(position of RAM counter). 
404 ae Goto IDLPH. 
405 kk CONFIO: {Having identified everything plugged in...} 
406 a Sort table by device type. {Sorting on WP, where P=7. 
407 Ax Besides separating RAMs fron ROMs fron MNI/O, this 
408 a Nill separate RAMs fron IRAMs, since IRAMs were given 
409 an an address (FFFOO) while RAMs were not, and address 
410 ae serves as a secondary sort key.} This will arrange 
411 ak table into three pieces: RAM, ROM, MMIO. 
412 kk R=300H {starting address/100H of first RAM}. 
413 kk  CONF20: {assign addresses to RAM table entries} 
414 ak If there are no nore systen RAMs in table then goto 
415 a CONF6O. 
416 kk Write A[X] to address field of table entry. 
417 aK Increnent A[X] by nodule size {nodule size=chipsize * 
418 kk fichips in nodule}. 
419 ae Goto CONF20. 


420 xk CONF60: 
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421 kk Save RANEND {A[X]*100H} in Rt. 
422 &K Point at ROM table. Sort it by size. 
423 RR Clear B for building allocation nap {B will contain a 
424 ak bitnap of what pages --a page 1s 10000H nibbles-- are 
425 ae available for configuring ROMs}. 
426 ke If there is anything non-zero at E0000 {i.e., a hard- 
427 xk configured ave then B[15]=B[14]=F {nark those 
428 aR pages as unavailable}. 
429 ak Nark pages as unavailable which are occupied or 
4H xk partially occupied by operating systen and systen 
431 kk RAN. 
432 xk CONF70: {loop to assign addresses to big ROMs} 
433 ak Any nore ROMs in table? If not then goto CON170. 
434 x If size of this entry < 1 page then goto PAKRON. 
435 oi Conpute legal configuration boundaries and # pages 
436 aK needed for this RON. 
437 kk Exanine bitnap (starting at high end) for possible 
438 ak locations to configure this ROM. 
439 RK If possible location 1s found, write address to table 
440 aK entry. {Othervise, table entry still contains FFCOO 
441 aK fron ID loop}. Mark allocation nap for space taken 
442 ae by this ROM. 
443 ak Goto CONF70. 
444 xk — PAKROM: {loop to assign addresses to small ROMs} 
445 ae Conpute boundaries of one or (if available) tuo 
446 ak bubbles (blobs of unconfigured address space). 
447 ak PAKRSO: 
448 ae Examine ROM table entry; 
449 an If ROM fits in either bubble, write address to 
450 ak table entry and reduce bubblesize appropriately. 
451 a* If there are nore ROMs in list then goto PAKRSO. 
452 xx C0N170: {now to configure nenory-napped 1/0} 
453 kK A=0 X (address of MN I/O relative to 20000H). 
454 kk CON180: 
455 aK If no nore table entries then goto CON210. 
456 ak Write A[X] to table entry. 
457 an Add device size to A[X]. 
458 ag Goto CON180. 
459 kk CON210: 
460 se Sort entire table (RAMs, RONs and MMI/O) by port-devit. 
461 aK Perforn bus reset. 
462 xx CON220: {loop to configure all at assigned addresses} 
463 1s Any nore table entries? If not then goto CON270. 
464 eK Read table entry. 
465 BR Compute output register value for this port. OUT=C. 
466 as If not reriory-napped I/0 then goto CON240. 
467 aK Compute configuration address (20000H + [addr]*10H) 
468 = and issue CONFIG connand at that address. 
469 aA Goto CON220. 
470 a CON2Z40: 
471 ak Conpute chipsize (fron table entry) and configuration 
472 a address ([table entry]*100H). 
473 x Configure all chips in the sequence contiguously. If 
474 =e address=FFFOO, then do not increment address for each 


475 a chip {this 1s rubbish plug-in, to be unconfigured 
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476 RK soon; all chips goto FFFOO}. 
477 Re Unconfigure everything at FFFOO {chips for which there 
478 am wasn’t roorn}. 
479 ax If R4[A] has been disturbed since we began {an 
480 ak interrupt occurred, and the output register may have 
431 an been screued} then goto CONFRS {start over}. 
482 ax Sort entire table by device type {separates systen RAMs 
483 hx fron "ROMs" fron MMIO}. 
484 ak Sort RAM table by port-device#t {for corparison with old 
485 am table 1n configuration buffers}. 
486 XK {Tine for the hard work. If this is a coldstart we 
487 ak will initialize all systen pointers. If this is not 
488 aR we need to compare the old and new RANtables and nove 
483 &k mMenory to adjust for any nodules which may have been 
4% aK added since the last configuration. } 
491 aK Was coldstart requested on entry (SO=1)? If not then 
492 ax goto CON280. 

: 493 tk coldst: {here if config decides to coldstart} 

; 494 ax Was coldstart requested on entry? If not then GOVLNG 
495 ak to 00000. 
496 kx Clear password. 
497 am Initialize all pointers, filechain, cormand stack, 
498 ax variable chain heads, I/0 buffers to coldstart 

499 ax values. 

: 500 ax Goto PUTBUF. 
501 *k — CON280: {ready to incorporate neu RAMs} 
502 A Look for old RAMtable. If not there then goto coldst. 
503 kk €0N310: {start of loop to conpare RAM tables} 
504 es Anything nore in nentable? If not then goto CON380. 
505 kk Anything more in oldtable? If not then goto CON3%. 
506 kk (0N330: 
507 ak Read tuo table entries. If size, port-dev#, sequencet# 
508 am and chipcount the sare then goto CON310. 
509 a If newtable pdev# < oldtable pdev# {newtable has neu 
510 ae device} then goto CON360. 
511 aK If newtable pdev# > oldtable pdev# {oldtable has 
512 x* missing device} then goto CON350. 
513 me {Pdev#’s the sane. Sonething went aay, sonething else 
514 ae appeared. } 
515 a Mark neutable entry as neu. 
516 ze Mark oldtable entry as missing. 
517 is Goto CON310. 
518 ** — CON350: 
519 aK, Mark oldtable entry as missing. 
520 is Goto CON310. 
521 ax CON360: 
522 a Mark newtable entry as neu. 
523 aa Increnent newtable pointer. 
524 ae If more neutable entries goto CON330. 
525 *k — C0N370: {renaining oldtable entries missing} 
526 a Mark oldtable entry as missing. 
527 xk CON380: 
528 Ee Any nore oldtable entries? If yes then goto CON370 
529 ae else goto CON400. 


5H xk C0N390: {remaining neutable entries new} 
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531 a Mark newtable entry as missing. 
532 aX Any nore entries? If yes then goto CON390. 
533 &*k — CON400: 
534 x Read current values of AVMENS and AVMENE. Look at 
535 ax oldtable. If any entries are marked as nissing and 
536 xx were not entirely contained between AVNENS and AVNENE 
537 ah then goto coldst. 
538 aK Compute nw AVNEME. Store in R3. 
539 ae {Now cones the really hard part. We will rearrange 
540 am everything in nerory to restore contiguity in light 
541 ax of any systen RAMs which were added. } 
542 ax Sort RANtable by address. 
543 ax Point past last entry in RAM table {ue well read 
544 ax back fron end of table}. 
545 ae {This is a debubbling process; that is, renoving 
546 &k "bubbles" of new nenory fron existing nenory. This 
547 ax is done by creating a zero-length bubble at RAMEND. 
548 ak The bubble is then rnoved down through nenory, passing 
549 a RAMs which are not rarked as new and expanding to 
550 as contain RANs which are marked as new. This process 
551 es continues until the bubble hits available nenory, 
552 ee which is itself a bubble. } 
553 aK DO=nen RAMEND {lowbound of bubble}. 
554 ae R3=new RAMEND {highbound of bubble}. 
555 AX D=old AVMENE {to know when we are done}. 
556 ae $1=0 {indicate that we are not almost done}. 
bor xk CON470; 
558 = Any nore table entries? If yes then goto CON480. 
559 AX Depe up entry to look like built-in hard-configured 
560 as RAN. 
561 a $1=1 {indicate we are alrost done}. 
562 a Goto CON490. 
563 ** — CON480: 
564 os Read next table entry doun. 
565 ae Marked as new? If not then goto CON490. 
566 i‘ DO=D0-nodulesize {expand bubble by changing lowbound}. 
567 ax Goto CON470. 
568 kk CON490: 
569 a If bubblesize#0 then goto CON5O0. 
570 * DO=D0-nodulesize {nove lowerbound of bubble}. 
571 oo R3=R3-nodulesize {rove upperbound of bubble}. 
572 ae If St=1 {1.e., 1f we are almost done} then goto CON550 
573 Ae else goto CON470. 
574 **  CONS5OO: 
575 A Move bubble doun (1.e., move data up) size of nodule. 
576 Ke If there 1s nothing to move (1.e., we have hit 
577 is available menory) then goto CON550. 
578 a If $1=0 goto CON470. 
579 x CONSSO: 
580 aS {now that we have debubbled the stacks, it 1s tine to 
581 ae debubble progran menory. } 
582 ee R3=30000H {loubound of bubble}. 
583 kk DO=30000H {highbound of bubble}. 
584 a? D=AVMENS {to deternine when we are done}. 


585 ** — CONS6O: {start of loop} 
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586 xR Any more table entries? If not then goto CON650. 
587 ae Read next entry. If not marked as new then goto 
588 as CON580. 
589 ae Increase upperbound of bubble (DO) by size of this 
590 Ae nodule, 
591 ah Goto CON560. 
592 x CONS80: 
593 aK Nove bubble down past this rodule (i.e., move that 
594 a. anount of data doun--to lower menory). 
595 7 If we are not done (bubble has not hit available 
596 a neriory) then goto CON560. 
597 x* — CONE5O: 
598 ax Unriark all RAMtable entries which were marked as new. 
599 Kx Update all pointers past AVMENE {since available nenory 
600 aK nay have changed size}. 
601 ax Update variable chain heads. 
602 ak Sort RAMtable 1n port-dev# order {since this will be 
603 a the oldtable next tine, it needs to be in this 
604 ak order). 
605 xx Sort RONtable in port-dev# order. 
606 aR Look for old ROMtable. If not found then goto coldst. 
607 ak Compare old and new ROMtables. If any old ROMs are 
608 aR missing or moved then S3=1 {indicate that we wish to 
609 eR force an edit-workfile to occur}. 
610 kk PUTBUF: 
611 ax Sort Menory-napped I/0 table by port-dev#. 
612 aS Delete all table entries in all tables with an assigned 
613 aE address of FFFOO {these were not configured}. If any 
614 ak entries deleted, S1=1 {indicate that configuration 
615 a error has occurred}. 
616 is {Now we will nove tables fron display buffer, uhere 
617 ae they were built, to configuration buffer area, where 
618 xk they will live, and will be known as oldtables on the 
619 ax next configuration. } 
620 ae Compute size needed for configuration tables. Conpute 
621 ax size taken by current configuration tables. Conpute 
622 ae difference and nove neriory to make proper ariount of 
623 xR roon. 
624 ax If there is insufficient nernory to hold new tables, 
625 Ex pinch off tables one entry at a tine until there is 
626 a roon and indicate configuration error <{S1=1}. 
627 am Nove tables fron display buffer to configuration buffer 
628 ae area. 
629 a Compute clockspeed and store in RAM (gosbvl CLKSPD). 
630 aX Restore subroutine levels saved at beginning. 
631 ax Fall through to LXBF++. 
632 ak { Configuration proper 1s done. The LXBF code will 
633 a find and build tables of all lexfiles. It will also 
634 aS report configuration error if that was requested 
635 RX and perforn an edit-uorkfile if that was requested. 
636 ** That could not be done at this point in the code 
637 xs because sone polls are issued, and that cannot be 
638 Kx done until ue have a valid list of lexfiles.} 
639 a 
640 ** History: 
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641 ae 
642 kk Date Progranner Modification 
643 KX. pesacshove, boos les. wees eeeceneost ete sees ee eee ely 
644 kk 09/15/82 NM Added nane to docunentation 
645 ak 
646 III III SII III IISA IIS II AIS ISS II IIIT ISI III II SIS ISIS IS ISI IIIS IIMA 
647 ISI III ASIII I III IDI IIIA II IAT I II IIT ILI IIA I II IIIT III IAI III III IAS 
648 1020F 840 =PWCONF ST=0 0 Request powerup configuration 
649 10212 843 =CONF ST=0 3 Indicate config has not changed 
650 10215 04 =CONFS3 SETHEX B[2]=dev#, b[3]=prt#,b[bJ=port bit 
651 10217 77C7 GOSUB R3<RST Save 4 subroutine levels 
652 10218 D2 CONFRS C=0 A 
653 10210 AbE (=C-1 8B C[A}=O00FF 
654 10220 10C R4=C Will remain untouched if no intr 
655 10223 808F INTOFF 
656 10227 AF1 B=0 W Counters: RAN[6-5], ron[8-7], 
657 1022A £5 B=B+1 A MNIO[10-3], seqpos[{15], sun[12-11] 
658 1022C 1FB?7 D1=(5) =ESCSTA Start of table 
4F2 
653 10233 80A RESET Unconfigure all chips 
660 10236 133  IDLOOP ADIEX 
661 10239 20 P= 0 
662 1023B 34E4 LC(5) (=DSPMSK)+24-10 
5F2 
663 10242 8B6 “ADC OR Can we fit more entries? 
664 10245 B2 GOYES IDLP10 No 
665 10247 133 ADIEX Yes 
666 1024 D2 C=0 A 
667 1024C AES C=B B 
668 1024F 81E CSRB 
669 10252 801 OUT=C Energize daisy chain 
670 10255 7700 COSUB WAITTKY Wait for key up. 
671 10259 806 C=ID Anything out there? 
672 1025C 96E CHO) — «iB 
673 1025F 51 GOYES IDLP20 Yes 
674 10261 B55 B=B+1 ff No. increrient port# 
675 10264 AAI B=0 XS Reset device# 
676 10267 ACI B=0 S Reset seqctr 
677 1026A AGS B=B+B 8B Move port bit 
678 1026D 58C GONC IDLOOP Go 1f nore ports 
679 10270 eb22 IDLP1IO GOTO CONF1O Done #/ID loop. Junp past utils. 
680 10274 DA IDLP20 A=C A Copy id 
681 10276 108 R3=C Hold in r3 
682 10279 24 P= 4 
683 1027B A85 B=C P Copy hinib of id to b[4] 
684 1027E 20 P= 0 
685 10280 80F1 CPEX 1 
686 10284 80F4 CPEX 4 Will hold res’d nibble in c[9] 
687? 10288 8E00 GOSUBL =CSLW4 Type,class to 6-7 
00 
688 1028E 23 P= 3 
689 10290 A99 C=B WP 
690 10293 Fé CSR A 
631 10295 Fo CSR A Size,port,dev to nibs 0-2 
692 10297 ACY C=B S Copy sequence position 
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633 
694 
695 
696 
697 
698 
699 
700 
701 
202 
703 
704 
705 
706 
707 
708 
209 
710 
711 
712 
713 
714 
715 
716 
717 


718 
719 
720 
721 
722 
723 
724 
725 
726 
72? 
728 
729 
730 


731 
732 
733 
734 
735 
736 
73? 
738 
739 
740 


1029A 
1023D 


812 
928 


102A0 05 


102A2 
102A5 
102A8 
102AC 
102AF 
102B1 
10283 
102B6 
102BA 
102BD 
10200 
102C2 
102C5 
10208 
102CB 
102CE 
10201 
102D5 
102D? 
1020B 
1020F 
102E1 


102E6 
102ER 
1O2EC 
102FO 
102F3 
102F5 
102F? 
102FR 
1O2FE 
10301 
10304 
10308 
1030A 


10314 
10316 


B24 
§93 
1509 
179 
D2 
24 
304 
7670 
805 
RO5 
29 
5B0 
B25 
AC1 
RAD 
B45 
7B60 
2B 
7560 
6ASF 
24 
32FF 
F 
7270 
27 
65DF 
AF? 
D2 
24 
#8 
720 
805 
134 
15A7 
20 
37B3 
BDDD 
DE 
27 
912 


10319 01 


10318 
1031F 
10323 
10325 
10329 
10329 
1032D 


7E£20 
73H 
25 

6C9F 


7020 
51B 
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IDLP30 


IDLP40 


IDLP60 


IDLP90 


IDL100 


CSLC 
7A=0 
GOYES 
A=A+1 
GONC 


KS 
IDLP9O 
KS 
IDLP60 


DAT1=C 10 
D1=Di+ 10 


C=0 
p= 
LCHEX 
GOSUB 


CONFIG 


B=B+B 
P= 
GONC 
B=B+1 
B=0 
B=B-1 
B=B+1 
GOSUB 
P= 
GOSUB 
GOTO 
P= 
LCHEX 


GOSUB 
p= 
GOTO 
D=C 
C=0 
P= 
LCHEX 
GOSUB 


CONFIG 


DO=C 


A 
4 
4 
WAITKY 


P 
9 
IDLP40 
KS 

S 

S 

S 

ADIP 
1 
AD1P 
IDLOOP 
4 

FFF 


CONFP4 
7 
IDLP30 
W 
A 
4 
8 
WAITKY 


A=DATO 8 


P= 
LCHEX 


p= 
*A=C 
GOYES 
GOSUB 
GOSUB 


GOTO 


GOSUB 
GONC 


0 
EDDDDD38 


? 

WP 
IDL100 
UNCF G8 
CONF P4 
5 
IDLP30 


UNCF G8 
IDLP60 
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Is this RAN? 

Yes, check if independent 
No, is this mn i/o? 

No, this 1s other nerory 
Yes, write out table entry 


40000 

Wait for key up. 
Configure device 

Hibit set? 

Point to devtype counter 
Go if hibit clear 
Increnent device counter 


Reset sequence position 
Increnent sequence position 
Increnent devtype counter 


Update total devices counter 


Other menory 
Address =FFFOO for now 


Configure riodule to 40000 
Point at devtype counter 


RAN, hold table entry ind 


80000 
Wait for key down. 


Independent RAN id 


Match? 

Yes, process standalone RAN 
UNCNFG @ 80000 & rcovr tbl entry 
Configure nodule to 40000 

Point to devtype counter 

Make table entry 


UNCNFG @ 80000 & rcovr tbl entry 
Bat. 13 
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741 STITLE Sone of the utilities 
742 FOI IU OO II II III IIT I IIIT IIIT IIT I OSI IID IAT IAS 
743 JI III I ISI II SIT II IIIT III III II III II ITI I III IIIT IIIS II III IIS III ASH 
744 aR 
745 ** Nane: WAITKY - Wait For Key Up 
746 xh 
747 At Category:  KEYUTL 
748 aR 
749 ** Purpose: 
750 K Wait for key up in energized rous. 
751 ak 
752 ** Entry: 
753 x Rows energized that we care about. 
754 am 
755 AK Exit: 
756 aS Carry set. 
757 aR 
758 ** Calls: KEYDN? 
759 ak 
760 RK Uses. ....6. 
761 aR Nothing. 
762 aX 
763 RK Stk lvls: 2 
764 ig 
765 ** History: 
766 ae 
767 ae Date Prograrner Modification 
768 KK SoeeccaS.° saecetercoce, sei cesoce eee ckesocc ecto cece scence 
769 ex 10/12/82 NM Wrote 
770 aE 
771 FRIIS IIIT IIIT I TIT IS SOT TATA I IIIT SR IIIT III IIT I ISI OI IIIS IAT ITA 
772 JI IID III II IIIT II IIIT III III IIIS III II IOI II III IIIA IIO SI SII IIIS AAI: 
773 10330 7500 =WAITKY GOSUB KEYDN? 
774 10334 5BF GONC WAITKY Key down, go back 
775 10337 01 RIN 
776 10339 8D00 KEYDN? GOVLNG =KYDN? 
777 oe JID I ITI TOT III III IIIT IIIT IT IT III ATI OASIS ITI IIIT A 
778 JOO III II ITI III III IIT III I III I ODI IIIS IIIA II ATK 
779 ae 
780 x* Nane: ADIP - Increnent Counter In B-reg Subfld 
781 vn 
782 ** Category: LOCAL 
783 a 
784 xx Purpose: 
785 a Increnent a 2-nibble counter in B pointed at by P. 
786 ae 
787 ** Entry: 
788 ae P points at low nib of counter to increrient. 
789 ae 
790 BE ERE 
791 - Carry clear. 
792 ae 
793 *% Calls: None. 
at 


794 
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795 AX SOS) as cass 
796 xe P,B 
797 ak 
798 ** Stk lvls: 0 
799 AR 
800 ** History: 
801 aA 
802 ax Date Progranner Modification 
803 RK > ccwcceeae sceecsicede  Usesceccssecciccsncescot clase cleces 
804 Kk 10/11/82 9 NM Wrote. 
805 ak 
806 SII IS III DDI II III IIIT IIIS OSI STII IIIS IIS SS III IIIS SS III ISIS ISIN: 
807 SI III ISI KI ISI T ALI IRI IIIS IIIS ISI III II OI ISS I III ISIS SIS ISIS ISI IS: 
808 10340 BOS ADIP B=B+1 P Increnent lou digit. 
8039 10343 500 RTNNC Return if wasn’t F. 
810 10346 OC P=P+4 
811 10348 BOS B=B+1 P Increnent high digit. 
812 1034B 03 RTNCC 
813 JOO IOS ISIS II IIIS IIIS I III IIIT SIS I SI ISI IIS 
814 JU IO IOS ITS ITI IIS IIS I ISIS IS SI IAI ISS IS A 
815 ak 
816 Nane: UNCFG8 - Unconfigure Chip At 80000. 
817 
818 ** Category: LOCAL 
819 ak 
820 ** Purpose: 
821 ak Unconfigure a chip at 80000 and C=D. 
822 Be 
823 ek Entry: 
824 an 
825 AX ERI t: 
826 az Carry clear. 
827 ax 
828 ** Calls: None. 
829 gig 
830 REOUSES. coed. 
831 ae PC. 
832 ~ 3 
833 ** Stk lvls: 0 
834 aK 
835 ** History: 
836 x 
837 ax Date Progranner Modification 
838 RK (“sSesebes. soeceesoks: - Keccece cee cee cooks ccc cue ce Secu cud 
839 ek 10/11/82 NN Wrote. 
840 a 
841 JI IO IIE IIT IIIT TITRA III IASI II IIIT ITI IIIA IS IIIS 
842 JU III OI AT OS TIS III III III TI ITO IAI SI ISS OS III ISS IIS: 
843 1034D D2 ~—s UNC FG8 C=0 A 
844 1034F 24 P= 4 
845 10351 308 LCHEX 8 
846 10354 804 UNCNFG 
847 10357 AFB C=D W 
848 1035A 03 RTNCC 


849 


SOO IIIT TOIT TTI 
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850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
836 
88? 
888 
839 
89 
891 
892 
893 
894 
895 
826 
897 
898 
899 
900 1035C 28 
901 1035E A&2 
902 10361 AF? 
903 10364 113 
904 10367 D2 
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FOO JO UII OT TOTO TTT TTT TTC 
xk 


*k Nane: CONFP4 - Configure A RON/RAN Sequence 

ae 

*k Category: LOCAL 

hk 

** Purpose: 

ak Configure a sequence of which nain code has found the 
ak first chip. 

ak 

*k Entry: 

aR C contains nibs 0-3, 7 and 9 fron table ID (table ID 
aE minus address and chipcount). 

aK D1 is pointing at next table entry in the table being 
an built in display buffer area. 

ak B{4] contains hinib of ID of first chip. 

ae R3 contains ID of first chip (which has not yet been 
k configured). 

ah 

Ee Exate 

ae C contains nibs 0-3, 7-9 fron table ID (table ID minus 
ls address). 

aK This alnost-conplete table entry has been written 

ak to the table. 

at All chips in the sequence have been configured. 

a D1=D1+10. 

ak P=4, 

a Carry set iff this is last sequence in nodule (hibit 
ak of ID was set). 

ak 

kk Calls: KEYDN? 

ar 

AR USES casas 


xk Exclusive: A,B[4],C,0,01,P 
kk Inclusive: 


ih 
** Sth Ivls: 2 

th 

** Detail: 

aX This code is called to configure a seqence of RAN, 

kk IRAN, or other netiory. 

kk 

** History: 

he 

t Date Progranner Modification 

$e (QaSdocss, Meese sess. . Ekta de ei ee cee hee lees 
ek 06/21/82 NM Added docunentation 

ah 


JU II IUIGOO OOOO IIIS II III IOC 
SOR OIRO IO IOI ORO Oe 


CONFP4 P= 8g 
C=0 P Zero chipcounter 
D=C W 
R=R3 Id of first chip 
CONP1O C=0 A 
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95 10369 24 P= 4 
906 1036B 304 LCHEX 4 Configure address 
907 1036E 77CF CONP1S GOSUB KEYDN? Key doun? 
908 10372 SBF GONC  CONP15 Yes. loop until up. 
909 10375 805 CONFIG 
910 10378 989 7B>=C P Last chip in sequence or nodule? 
911 1037B 12 GOYES CONP20 Yes 
912 10370 78BF CONP17 GOSUB KEYDN? Key down? 
3913 10381 5BF GONC CONP17 Yes. loop until up. 
914 10384 806 C=ID Next chip 
915 10387 23 P= 3 
916 10383 916 RHC OP Sarie low 4 nibs as first chip id? 
917 1038C 01 GOYES CONP2O No; end of sequence 
918 1038E 24 P= 4 
919 10390 A85 B=C P Copy hinib 
920 10393 28 P= 8 
921 10395 B07 D=D+1 P Increrrent chipcount 
922 10398 6ECF GOTO CONP1O 
923 1039C AFB CONP20 C=D W 
924 1039F 1509 DAT1=C 10 
925 103A3 179 D1=D1+ 10 
926 103R6 24 P= 4 
927 103R8 ROS B=B+B P 
928 103AB 01 RIN 
929 JU IIIOIOIIITOTOST III ISS ISI SII AI III III SSIS SIS IIIA 
9% $I SO IO IIS SII OSI OST OSI III IIIS IIIS III SII III II IIIA I III IA 
931 ae 
932 ** Nave: SORT - Sort Table Entries 
933 ae 
934 ** Category: LOCAL 
935 eh 
936 ** Purpose: 
937 Be Sort entries in the configuration table. 
938 aX 
939 tk Entry: 
940 aA D1 points at start of table to be sorted. 
941 kk C{B] = # entries. 
342 ax P identifies sort field (sorts on WP). 
943 “* 
944 aX Exit: 
945 a D1 points past end of table just sorted. 
946 a 
947 ** Calls: None. 
948 ak 
949 AE Uses... ia ves 
950 xx Exclusive: A,B,C, D0, D1 
951 xm 
952 ** Stk lvls: 0 
953 ae 
954 ** Detail: 
955 ae Garden variety selection sort used often. For exanple: 
956 ue Sort entire table into Port-Device order for configur- 
957 a ing 
958 a Sort RAMtable (a subtable within the entire table) into 


959 aK address order for restoring systen integrity. 
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960 
961 
962 
963 
3964 
965 
966 
967 
368 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
399 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
100? 
1008 
1009 
1010 
1011 
112 
1013 
1014 


103AD 
103AF 
103B2 
103B5 
103B7 
103B9 
103BB 
103BE 
103C1 
103C4 
1037 
103CB 
103CE 
10301 
103D4 
103D8 
103DB 
103DD 
103E1 
103£4 
103E? 
103E8 
103ED 
103EF 
103F 1 
103F4 


22 
REE 
40 
DS 
F4 
FI 
RES 
137 
1:35 
134 
1589 
169 
A6D 
451 
15€9 
399A 
OF 
1589 
AFA 
56E 
1599 
FS 
FS 
D9 
179 
6RBF 
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ee Sort tables into reverse size order for assigning 


a addresses. 
kk 

** History: 

ak 


ax Date Progranner 
Reo) Cero 3 


ek 06/21/82 NN 


ak 


Modification 


Added docurentation 


SOOO TT III 
JOO OT TTT ITT TTI TIO 


SORTP2 P= ec 
SORT C=C-1 B 
RTNC 
B=C A 
BSL A 
BSL A 
B=C B 
CDIEX 
DI=C 
DO=C 
R=DAT1 10 
SORT20 DO=D0+ 10 
B=B-1 8 
GOC SORT40 
C=DATO 10 
*A<=C WP 
GOYES SORT2O 
DATO=A 10 
A=C W 
GONC SORT2O 
SORT40 DAT1=A 10 
BSR A 
BSR A 
C=B AR 
D1=D1+ 10 
GOTO SORT 


Quter loop 


Quter loop counter to b[3-2] 
Inner loop counter to b[b] 


Read first entry 
Inner loop 

Any nore comparisons? 
Go if no 


A>c, swap 

Select new entry 

Examine rest of list. B.E.T. 
End inner loop 


Recover outer loop counter 


JOR IOI IOI ICO II IO TIO TTT I TION 
JOO IIIT IOI I IIT TO TOI III ION 


ax 


kx Narie: TBLPTR - 
ak 


** Category: LOCAL 


Point At Table 


tk 
x* Purpose: 

ae Point at table. 

xe 

** Entry: 

Bx TBLPTR: RO points at sonething we want to point at. 
a 

AX Exits 

is D1 = RO[A). 

< C = RO SR’d 5 tines (table entry counts in byte-size 
x chunks starting at C[0]). 

z D=C. 
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1015 KK 
1016 &* Calls: CSRWS5. 
1017 x 
1018 Kk Uses......- 
1019 xk Exclusive: D1 (first 2 entry points), C,D. 
1020 KK 
1021 Kk Stk lvls: 1 
1022 ae 
1023 ** History: 
1024 aK 
1025 an Date Progranner Modification 
1026 HK ean anene nee ne eee cece nee n een nnn n nnn en ene ee nen es 
1027 ** 06/21/82 NM Added docunentation 
ks 
ee JOGO OOOO UC TTT TK 
1030 JOTI UII III ICICI OO IT TTT ETT K 
1031 103F8 118 TBLPTR C=RO Table pointer & counters 
1032 103FB 135 TBLPT+ 01=C Point at table 
1033 103FE 7690 GOSUB) csrw5 
1034 10402 AF7 b=C W 
1035 10405 01 RTN 
1036 JOGO IIIS IEC TER 
4037 JOIST UO OOO UCI IR 
1038 ax 
1039 A* Nane: MSIZE - Conpute Module Size 
1040 hk 
1041 ** Category: ADDCAL 
1042 ae 
1043 ** Purpose: 
1044 ax Compute the anount of address space occupied by a 
1045 Kx nodule. 
1046 am 
1047 AX Entry: 
1048 kk OASTZE: 
1049 Kx C({3] = size nibble (nibble 3) fron table entry. 
1050 ak ([8] = chipcount nibble (nibble 8) fron table entry. 
1051 xx (Actually, C=table entry, but these are the only 
1052 ax nibbles we use fron it.) 
1053 Kx WSIZE+: 
1054 ae ([2] = size nibble (nibble 3) fron table entry. 
1055 a C[7] = chipcount nibble (nibble 8) fron table entry. 
1056 ak (i.e., table entry SR’d once.) 
1057 ax 
1058 AX Exits 
1059 aK ALX]=(Module size in nibs)/100H. 
1060 kk P=, 
1061 x Carry set. 
1062 x 
1063 **k Calls: None. 
1064 aa 
1065 RE USES ccsceae x 
1066 xk Exclusive: A[X],C,P. 
1067 KR 
1068 Kk Stk lvls: 0 
kk 


1069 
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1070 ** Algorithn: 
1071 wh Convert chipsize nibble [15 - log2(chipsize)] to 
1072 ah actual chipsize. 
1073 XK Multiply by #chips in nodule. 
1074 kk 
1075 ** History: 
1076 a 
1077 aK Date Progranner Modification 
1078 a 
1079 *k 06/21/82 NM Added docunentation 
1080 ak 
1081 JOO IO OOO III TIS GUCCI TOT I IIH 
1082 JORIS OIC OO TTT TIT RTI 


1083 10407 BF6 
1084 1040A BF6 
1085 10400 BF6 
1086 10410 ABO 
1087 
1088 
1089 
109 
1091 
1092 
1093 
1094 
1095 
1096 
109? 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
4115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 


=MSIZE CSR W 
=MSIZE+ CSR W 
=MSIZ++ CSR W 


SIZE1O A=0 X 
FOI IOI TTI I TTI TIT IIS II TI II TIS III IIIT IIS I IIIT TTT IA 


FOR III IOI OTIC TOTO TOT IO 
ak 


xx Nane: MODSIZ - Add Module Size To A 
kk 


** Category: LOCAL 
ik 


** Purpose: 


kk Compute module size and add to A[X]. 

re 

** Entry: 

ax C[O]=nibble 3 of table entry (chipsize nibble). 
a C[S]=nibble 8 of table entry (chipcount-1). 
ak (i.e., table entry SR’d 3 tines). 

aK AL[X]=nurber to add module size to. 

k 

kX Exit: 

aR ALX}=old A[X] + nodule size. 

ae P=0, 

KK Carry set. 

ak 

** Calls: None. 

kk 

RENSOS oe wars 

kk Exclusive: A[X],C,P. 

tk 

** Stk lvls: 0 

re 

** History: 

xx 

+e Date Progranner Modification 
GRR fee ee ees wR Sie octet tg ee ae ees cola ee 
Kk 06/21/82 = NM Added docunentation 

ak 


FOO IO OOO ITO I ITI OTT TOTTI 
FOO III OI IO OI TIT 


1123 10413 80D0 MODSIZ P=C 0 


1124 10417 OD 


P=P-1 14-log2(size) 
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1125 10419 AB2 C=0 x 
1126 1041C £6 C=C+1 A 
1127 1041E A36 MODSIO C=C+C X Loop to compute chipsize 
1128 10421 OC P=P+1 
1129 10423 SAF GONC MmODS10 
1130 10426 25 P= 5 Point at #nodules-1 
1131 10428 A3A MODS20 A=A+C XK Add chipsize to a 
1132 1042B ROE C=C-1 P Loop for # nodules 
1133 1042E 59F GONC MODS20 
1134 10431 20 P= 0 
1135 10433 02 RTNSC 
1136 SOR II OOO OTIS OOOO OT 
1137 SOI IOI TT TOTO TI TOOT 
1138 ak 
1139 xk Nare: ROMTPT - Point At Next Table 
1140 ax 
1141 **k Category: LOCAL 
1142 a 
1143 ** Purpose: 
1144 aR Skip pointers past a table. 
1145 ak 
1146 xk Entry: 
1147 aK Pointer to table in D1. 
1148 xR Table size (#entries) in D{B). 
1149 xk 
1150 xe Exit: 
1151 ax D1 points past end of table. 
1152 ak D[B] SR’d twice. 
1153 xe C{B}=D[B]. 
1154 ae 
1155 *k Calls: None. 
1156 aK 
1157 ak Uses....... 
1158 xX Exclusive: A[A],C{A),D,01 
1159 aR 
1160 AK Stk lvis: 0 
1161 an 
1162 ** Detail: 
1163 a Typically D contains a series of table sizes (e.g., 
1164 ak DTB]=RANtable size, D[3-2]=RONtable size, D[5-4]= NNIO 
1165 ae table size). 
1166 an 
1167 ** History: 
1168 ah 
1163 ae Date Progranner Modification 
1170 RR nnn nnn ne nnn n nnn een nce nner en rere mre ter nnn tense cee 
1171 kk 8606/21/82 NM Added docunentation 
ka 
hes JOO IOC TTI ITO III IIIT IASI TIT IIT IIS IAS 
1174 JOTI TO OAT TTI II IIIT TIDE ISI III ITI IIIT TIKI STAI 
1175 10435 De ROMTPT C=0 A 
1176 10437 AEB C=) B #entries in RAMtable 
1177 1043A BF? DSR W 
1178 1043D BF? DSR W 
1179 10440 133 ADIEX 
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1180 10443 Co C=C+C A #*2 
1181 10445 CA R=AtC A 
1182 10447 C6 C=C+C A 
1183 10449 (6 C=C+C A #*8 
1184 1044B CA A=A+C A 
1185 1044D 133 ADIEX Point past RANtable 
1186 10450 DB C=D A 
1187 10452 01 
1188 JOISTS SIO II SIS IIIT IIT I IK 
1189 JOO OCT O CIITA IAT AIK 
1190 ak 
1191 x Nane: WHLTBL - Sort Entire Table (RAMS, ROMS, Etc.) 
1192 KK 
1193 ** Category: LOCAL 
1194 ax 
1195 ** Purpose: 
1196 aa Sort all three tables together on WP field. 
119? ak 
1198 ee Entry: 
1199 se P set to sort field. 
1200 aR RO[R}] points at start of table. 
1201 xx RO[12-11] = #entries in all tables conbined. 
1202 ak 
1203 xX Exit: 
1204 ial P unchanged. 
1205 cas D[B}=# entries in all tables (# just sorted). 
1206 ae 
1207 xt Calls: TBLPTR, CSRW5, SORT 
1208 ae 
1209 Ke Uses.....0- 
1210 + A,B,C,D,D0,D1. 
1211 a 
1212 aK Stk lvls: 2 
1213 ax 
1214 *% History: 
1215 ae 
1216 a Date Prograrner Modification 
121? a aa aaa aaa aetna 
1218 xk 10/21/82 9 NM Wrote. 
1219 xR 
41220 JU IIIS OTT TTT IAI I TT TA 
4221 JOIST OC I IO TIT TTT IK 
1222 10454 70AF WHLTBL GOSUB TBLPTR Point at table & position ctrs. 
1223 10458 7930 GOSUB csru6 Shift in #entries counter 
1224 1045C D? D=C A Copy to D. 
1225 1045E 605F GOTO SORT Sart it. 
1226 FOO RI RO OOO IOI OO OOOO IOI OI ICI OIIGI OIE 
4227 OUT CTT CTT T ETUC TTSTCCC CT CCE TT eterettetttsetitettttitcetettttest 
1228 ae 
1229 ** Nare: FNDBUB - Find Bubble Boundaries 
1230 ae 
1231 ** Category: LOCAL 
1232 aS 
1233 ** Purpose: 
1234 ae Look for bubble in address space. 
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1235 
1236 
1237 
1238 
1239 
1249 
1241 
1242 
1243 
1244 
1245 
1246 
124? 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1274 
1272 
1273 
1274 
1275 
1276 
1277 
1278 


1273 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 


10462 OC 
10464 400 
10467 90D 
1046R 8F 
1046C 8002 
10470 OC 
10472 4D0 
10475 909 
10478 8F 
1047R 8005 
1047E 03 
10480 23 
10482 32CF 
F 
10487 02 
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aa 
ak Entry: 
a P = page # where we begin search. 
ax B contains map of address space: 
ak 0 in nib x 1f page x 1s vacant, 
ae F in nib x 1f page x 1s occupied. 
th 
RE ERLE: 
ak C{X] is lower boundary of bubble / 100H. 
aK C{5-3) 1s upper boundary of bubble / 100H. 
ak (If C[X}=C{5-3]=000, there is no bubble.) 
ak If carry set, there are no nore bubbles (we’ve hit end 
aR of address space). 
ak If carry clear, there nay be nore bubbles and P is 
ak positioned to continue the search for the next call. 
ah - 
ek Calls: None. 
ah 
BP USCS meiner 
ax P,C(5-0]. 
ah 
** Stk lvls: None. 
tk 
** History: 
ah 
ae Date Prograntier Modification 
Oh. “Gevatese, idbenccadee? ideceaeectonceedsebeetaeetecaceecues 
kk 05/16/83 NM Wrote 


aK 


FOO IOI TOI TTT IT TI II IIIT II IIT 
FOI OO IO TOTO TT TTR 


FNDBUB P=P+1 


Look for botton of bubble 
Return if no bubbles 
Found botton of bubble? 


Yes. C[X]=address 

Look for top of bubble 
Go if end of addr space 
Found top of bubble? 


Yes. (C[5-3]=address 

Ptr ready for next search. 
Here if hit end of addr space. 
Top of last possible bubble. 


RTNC 
7BHO OP 
GOYES FNOBUB No. 
c=P c 
FNDB2O P=P+1 
GOC LCFFC 
7B=0)— OP 
GOYES FNDB20 No. 
C=P 5 
RTNCC 
LCFFC P= 3 
LCHEX FFC 
RTNSC 


FOO IOI IRI IIT TI TTT TK 
FOO OO OI IIIT TO TO TOT TT RT 


ak 


kk Nane: C=RAME - 


xx 


&k Category: 
ah 


xk Purpose: 


ak Read (RAMEND) into C. 


GENUTL 


Read In RANEND 
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1289 Ax 
1290 ae Entry: 
1291 aK 
1292 AX Exit: 
1293 ba D1=RANEND 
1294 ak C[A]=(RAMEND) 
1295 ak Carry unaffected. 
1296 ak 
1297 ** Calls: None. 
1298 a 
1299 RX Uses... 2.255 
1300 aK 01,C[A] 
1301 ak 
1302 ** Stk lvls: 0 
1303 ae 
1304 *k History: 
1305 ax 
1306 ae Date Prograrner Modification 
1307 RK anne nee nme mene tee errr nn nnn nnn rr nr nnn nner rrn 
1308 ex 06/08/83 = NM Installed 
1309 ak 
1310 J III IIT TAIT IOS ITSO II TTT II TIT 


13114 


FOO III IT IIT TO I III I IK 


1312 10489 1F2B =C=RANE D1=(5) =RAMEND 


5F2 


1313 10490 147 
1314 10493 01 


1315 


1316 10495 BF6é 
1317 10498 8C0O0 csruS GOLONG =CSRWS 


00 


C=DAT1 A 
RIN 

x 

csru6 CSR W 
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1318 STITLE Configuration code (cont. ) 
1319 1049E AF9 CONF1O C=B W Devtype counters 
1320 104A1 20 P= 1) 
1321 104A3 34B7 LC(5) =ESCSTA Start of table 
4F2 
1322 104AA 108 RO=C Save tablepointer and counters 
1323 104AD 27 P= 7 
1324 & 
1325 * Sort whole table by devtype. 
1326 * Since address 1s secondary sort key and IRAMs have been 
132? x% assigned rubbish addresses, they will appear after 
1328 * RAMs (convemently falling in the ROM table). 
1329 * Since size is tertiary sort key, each device type will 
13H * be sorted by size. This is useful for RAMs and MMIC. 
1331 * Since ROMs encompass several device types, a subsequent 
1332 * sort by size will be needed. 
1333 & 
1334 104AF 71AF GOSUB WHLTBL Sort whole table by devtype 
1335 104B3 714F GOSUB TBLPTR Point at table 
1336 104B7 20 = 0 
1337 104B9 3200 LCHEX 300 0M starting addr 
3 
1338 104BE ABA A=C x 
1339 104C1 172 01=D1+ 3 Point at size 
1340 104C4 AEF CONF20 D=D-1 8B Any tore RANs? 
1341 104C7 481 GOC CONF 60 No. 
1342 104CA 15F5 C=DAT1 6 Yes, read nibs [8-3] of entry 
1343 104CE 170 Di=D1+ 1 
1344 104D1 1532 DAT1=A 3 Write out address 
1345 104D5 178 Di=D1+ 9 
1346 10408 773F GOSUB NMODSIZ Add nodule size to address 
1347 104DC 47E COC CONF 20 Next RAM. B.E.T. 
1348 104DF 6F41 CONF55 GOTO CON170 Inrange shortjunp fron below 
1349 104E3 FO  CONF60 ASL A 
1350 104E5 FO ASL A 
1351 104E7 101 Ri=RA Save endnen 
1352 104EA 7AOF GOSUB TBLPTR 
1353 104EE 734F GOSUB ROMTPT 
1354 104F2 23 = 3 
1355 x 
1356 * Sort ROMs by size to assign addresses. 
1357 * 
1358 104F4 77BE GOSUB SORT Sort ROMNtb1] by size 
1359 104F8 7CFE GOSUB TBLPIR 
1360 104FC 753F GOSUB RONTPT Point at ROMNtable 
1361 10500 172 Di=Di+ 3 Point at nib 3 
1362 10503 AFI : B=0 W Roon for allocation nap 
1363 
1364 * Check for presence of debugger. 
1365 : 
1366 10506 1B00 DO=(5)} #EQOOO Point at expected addr for dbugr 
OOE 
1367 10500 1567 C=DATO W 
1368 10511 397A C=O) OW Anything there? 


1369 10514 AO GOYES CONF69 No. 
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1370 10516 2E P= 14 Yes. 
1371 10518 AOD B=B-1 P Mark page E as taken. 
1372 10518 A4D ; B=B-1 $ Mark page F as taken. 
1373 
1374 * Note: Debugger won?t work too well if RAMEND > E0000. 
1375 * Nor will machine, 1f debugger is present under 
1376 a Said circunstances. 
1377 x 
1378 1051E 119 CONF69 C=R1 Get RAMEND 
1379 10521 CE C=C-1 A 
1380 10523 80D4 P=C 4 
1381 1052? AID B=B-1 WP Indicate pages taken for sys RAN 
1382 1052A A6F CONF70 D=D-1 8B Any nore ROMs? 
1383 1052D 41B COC CONF55 No. goto coni70 
1384 10530 15B5 A=DAT1 6 Nibs 3-3] of ROM table entry 
1385 10534 20 P= 0 
1386 10536 306 LCHEX 6 
1387 10539 A02 C=C+A P 6+15-log2(size) 
1388 1053C 486 GOC PRKRON Go if reraining ROMs < 1 page 
1389 1053F 8000 P=C 0 Prepare to cormpute boundary 
13% 10543 AC2 C=0 S 
1391 10546 A4E C=C-1 §$ 715 if illegal 
1392 10549 3312 LCHEX 8421 C{s] has boundary size 
48 
1393 1054F 25 P= 5 
1394 10551 A96 C=A WP Copy table entry nibs 
1395 10554 78BE GOSUB SIZE10 Conpute riodsize 
1396 10558 ACA A=C S Als] has boundary size 
1397 10558 A3C A=A-1 Xx A[xs] has #pages-1 needed 
1398 1055E BCA C=-C § 
1399 10561 B42 CON130 C=C-A S Look at next boundary 
1400 10564 493 COC CON160 Go if exhausted 
1401 1056? 800F P=C 15 Point at page marker 
1402 1056B AAG C=A XS # pages-1 to check 
1403 1056£ 90D CON140 7BHO P Page available? 
1404 10571 OF GOYES CON130 No, check next boundary 
1405 10573 OC P=P+1 
1406 10575 R2E C=C-1 XS Check adjacent pages? 
1407 10578 S5F GONC CON140 Yes 
1408 1057B 1% Di=Dt+ 1 No. found spot! 
1409 1057E &12 CSLC 
1410 10581 F2 CSL A 
1411 10583 Fe CSL A 
1412 10585 1553 DAT1=C X Write out address hinibs 
1413 10589 100 D1=D1- 1 
1414 1058C 8002 P=C 2 Hold hinib to mark map 
1415 10590 ARG C=A XS Prepare to mark allocation nap 
1416 10593 AOD CON150 B=B-1 P Mark page as taken 
1417 10596 OC P=P+14 
1418 10598 A2E C=C-1 x8 
1419 1059B 57F GONC CON150 
1420 1059E 179 CON160 D1=D1+ 10 
1421 105A1 688F GOTO CONF 70 
1422 105A5 AF2 PAKROM C=0 W Prepare to coripute bubble bdrys 


1423 105R8 20 P= 0 
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1424 
1425 
1426 
142? 


1428 
1429 
1430 
1431 
1432 
1433 
1434 


1435 
1436 
1437 
1438 
1439 
1440 
1441 


1442 
1443 
1444 


1445 
1446 
1447 


1448 
1449 


1450 
1451 
1482 
1453 
1454 
1465 
1456 
149? 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 


105RA 
105AE 
10581 
10584 


105BA 
105BE 
10501 
105C5 
105C9 
105CC 
105CF 


10505 
10508 
105DB 
1050D 
105£0 
105E4 
105E7 


105ED 
105FO 
105F 3 


105FR 
1O5FD 
1O5FF 


10606 
10609 


1060F 
10612 
10614 
10617 
10619 
1061C 
1061F 
10623 
10626 
10629 
1062C 
1062F 
10632 
10635 
10638 
10638 
1063E 
10642 
10645 
10643 
1064C 
1064F 
10652 


74BE 
4FO 
BF2 
8£00 
00 
74RE 
AFS 
15F5 
774E 
R38 
AF 
8E00 
00 
4E0 
9B1 
% 
B3C 
6830 
B38 
8E00 
00 
A3A 
453 
8FOO 
000 
986 
92 
8FO0 
000 
ABE 
8£00 
00 
BF2 
25 
AY 
28 
AIS 
170 
1813 
1€0 
179 
R6F 
549 
BF? 
BF? 
ABO 
RoF 
492 
1574 
170 
1592 
128 
AB2 
B36 
B46 
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PAKR40 
PAKR5O 


PAKR60 


PAKR?75 


PAKR8O 


CON170 


CON1 8 


CON190 


GOSUB FNDBUB 
COC PAKR40 
CSL W 

GOSUBL =CSLW5 


GOSUB FNODBUB 
B=C W 
C=DAT1 6 
GOSUB SIZE10 
B=A+B OX 
C=B W 
GOSUBL =CSRW3 


GOC PAKR60 
7BoC OX 
GOYES PAKR60 
A=B-A X 
GOTO PAKR75 
B=B-A X 
GOSUBL =CSRW3 


A=R+C x 
COC PAKR80 
GOSBVL =CSRC3 


PAC Xx 
GOYES PAKR80 
GOSBVL =CSLC3 


ACEX XX 
GOSUBL =CSLW5 


CSL W 
P= 5 
C=B W 
P= 8 
B=C W 
D1=D01+ 1 
DATI=A X 
D1=D01- 1 
01=D1+ 10 
D=D-1 8B 
GONC 
DSR W 

DSR W 

A=0 Xx 

D=D-1 8B 

GOCc CON210 
C=DAT1 $ 
D1=D1+ 1 
DATI=R 3 
D1=D1+ 9 
C=0 x 
C=C+1 xX 
C=C+1 § 
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Find lower bubble 
Go if one or no bubbles 


Nove first bubble boundary 


Find upper bubble 
Hold bubble boundaries 


Compute nodule size 
Rdd to start of first bubble 


Go if overflow first bubble 
Fits in first bubble? 

No 

Yes. recover bubble address. 
Write out address. 

Recover bubble address 

Start of second bubble 


Nodule fits in second bubble? 
No 


Bubble address to a 


Align new bubblestart 


Store new bubblestart 


Any nore ROMs? 
Yes 


Mn ifo device counter 
First addr=20000 

Any more tin 1fo devices? 
No 

Yes, read size nibble 


Write out size 


Loop to corpute size 
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1473 
1474 
1475 
1476 
1477 
1478 
14793 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
148? 
1488 
1483 
1490 
1491 
1492 
1493 
1494 


1495 
1496 
149? 
1498 
1439 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1622 
1523 
1524 
1525 
1526 


10655 
10658 
10658 
1065E 
10661 
10665 


10667 
1066B 
1066E 
10671 
10674 
10677 
10679 
10678 
1067E 
10681 
10684 
10688 
1068A 


1068F 
10692 
10695 
10698 
1069B 
1069E 
106A4 
106R3 
106R6 
106A 
1O06AB 
1O6RE 
106B1 
106B4 
106B8 
106BB 
1O6BE 
10602 
106C4 
106C6 
1O6CR 
106CC 
1OoCF 
106D2 
106D5 
106D7 
10609 
106DD 
106EO 
106E3 
106E5 
106E? 


480 
A36 
56F 
A3A 
66DF 
22 


79ED 
80R 
118 
135 
171 
D1 
CD 
RE 1 
ROF 
4&6 
15B6 


3210 


ROC 
ROC 
480 
A36 
56F 
801 
26 


5B1 
06 
RE? 
He 
B96 
787C 
805 
179 
oF BF 
D2 
21 
3102 


RO4 
SAF 
REO 
DE 
26 
7356 
805 
8BD 
40 
C2 
AOC 
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CON200 
CON2Z10 
k 


* Sort by pdev 
k 


CON220 


CON225 


CON227 


CON2H 
CON240 


CON25O 


CON260 


CON265 


COC CON200 
C=C+C xX 
GONC CQON190 
A=A+C X 
GOTO  CON180 
P= 2 


GOSUB WHLTBL 
RESET 

C=RO 

D1 =C 

D1=D1+ 2 

B=0 A 
B=B-1 A 

B=0 B 
D=0-1 8B 

GOC CON270 
A=DAT1 7 

P= 0 

00 


LOHEX 1 


P 
P 
CON22?7 


C+C X 
GONC  CON225 


= 5 
A=A+1 PP 

GONC CON240 
C=A R 

C=0 B 
LCHEX 2 

CSR WP 
GOSUB WAITKY 
CONFIG 

01=Di+ 10 
GOTO CON220 
C=0 A 

P= 1 
LCHEX 20 
C=C+C A 
A=A+1 PP 

GONC  CON250 
R=0 B 

ACEX A 

P= 6 
GOSUB WAITKY 
CONFIG 

7C>=B OA 
GOYES CON265 
C=C+A A 
R=A-1  P 
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B.E.T. (if size reasonable) 
Add to address for next address 
Next device 


to perforn configuration. 


Sort by port-devi 
Unconfigure all nodules 


Point at table again 
Point at port# 


Rubbish address = FFFOO 
Any nore entries? 

No 

Read relevant table data 


If a=0, loop will result in c=0 
Loop to position port bit 


Nove port bit 


Neriory-rapped i/o? 
No 
Yes 


Configuration address 
Wait for key up. 


Loop to cornpute chip size 


Clear garbage fron address 
Addr to c, size to a 


Wait for key up. 

Loop to configure chips 
Is this a rubbish device? 
Yes. do not inc addr. 


More chips in sequence? 
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1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1653 
1554 
1555 
1556 
1657 
1558 
1559 


1560 
1561 


1562 
1563 


1564 
1565 
1566 
1567 


1568 
1569 
1570 
1571 
1872 
1573 
1574 
1575 
1576 
1577 


106EA 
106ED 
106FO 
106F 2 
106F5 
106F8 
106FB 
1O6FE 
10700 
10704 


10706 
1070R 


1070E 


10712 
10716 
1071A 
1O71E 
10721 
10723 
10727 
1072A 
1072C 


10733 
10736 


1073D 
10741 


10747 
1074B 
1074E 
10751 


10758 
1075A 
1075E 
10760 
10762 
10765 


SEE 
4DC 
03 
804 
114 
B64 
8A8 
60 
6A1B 
27 


7A4D 
7AEC 


789C 


72EC 
7B10 
7F8C 
870 
60 

63A0 
870 
90 

8D00 
000 
AFO 
1F28 
7F2 
1517 
TE6E 
OF 

1597 
171 

137 
1F 86 
5F2 


2B 
7736 
£6 
£6 
145 
£6 


Configuration Module <831213.1 
Ver. 3.39/Rev. 26 Configuration code (cont.) 


CON270 


CON275 


% OF 0 OF OF 


oe OF OF 


a MM 


coldst 


COLDS1 


x 


* Initialize MAINST --> CURREN 
x 


nPTR1 


GONC CONZ260 
GOC CON230 
C=B A 
UNCNFG 

A=R4 

A=A+1 B 

7A=0 OA 
GOYES CON275 
GOTO  CONFRS 
P= 7 


Sort table by device types. 
Since address is secondary sort key, IRANs will fall after 
RAMs (conveniently falling into ROM table). 


GOSUB WHLTBL 
GOSUB TBLPIR 


GOSUB SORTP2 


Sort ROMS by pdev 


TBLPTR 
GOSUB RONMTPT 
GOSUB SORTP2 
?ST=1 0 
GOYES coldst 
GOTO CON280 
2ST=1 0 
GOYES COLDS1 
GOVLNG =COLDST 


GOSUB 


A=0 W 
D1=(5) =LOCKWD 


DATI=A W 
D1=(4) =CONFST 


DATI=A 8 
D1=D1+ 2 
CDIEX 

D1=(5) =MRINST 


EQU 


GOSUB INITPT 
C=C+1 A 
C=C+1 A 
DAT1=C A 
C=C+1 A 
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Yes 

No. 6.€.T. 

Retrieve rubbish address 
Unconfigure rubbish devices 


Has r4{a} been disturbed? 
No 
Yes, 


was interrupted. restart. 


Sort into device types 


Sort RANS by pdev for old/neutable conpare 


Sort RANs by port-dev# 


Sort ROMs by port-dev# 
Rre we doing coldstart? 
Yes 

No 

Was coldstart requested? 
Yes 


No. Do a coldstart! 


Point at configuration buffers 


Zeroes for cnfend, nainen, bufend 
Point past cnf table 


(((CURREN )- (MAINST))/5)+1 
P= 16-(nPTR1) 


Initialize mainst,currst, curren 
Nove past O byte of prograrn end 


Initialize mainen 
Move past O byte of i/o buffers 
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1578 10767 E6 C=C+1 A 
1579 10769 E6 C=C+1 A 
1580 1076B E6 C=C+1 A 
1581 1076D 174 01=01+ 5 
1582 x 
1583 * Initialize IOBFEN ---> RFNBFR 
1584 x 
1585 nPTR2 = EQU (CCRFNBFR )-(CIOBFEN) )/5)+1 
1586 10770 2E P= 16-(nPTR2) Initialize lobfen-->rfnbfr 
1587 10772 7F16 GOSUB INITPT 
1588 & 
1589 * Initialize Command Stack 
1590 x Create a doubly linked list of 5 stack itens 
1591 x 
1592 10776 134 DO=C C @ RAM position 
1593 10779 AF2 C=0 W 
1594 1077C 23 P= 3 
1595 1077E 303 LC(1) 3 Link list lens = 0 lead, 3 trl 
1596 10781 2B P= 16-5 5 entries 
1597 10783 15C5 COLD25 DATO=C 6 Write out links 
1598 10787 165 DO=D00+ 6 Move over link 
1599 1078A OC P=P+1 
1600 1078C 5S6F GONC COLD25 Continue til P=0 
1601 x 
1602 * Initialize RAWBFR ---> AVMENS 
1603 x 
1604 1078F 136 CDOEX C <-- RAM pasition 
1605 nPTR25 EQU (((AVMENS )-(RAWBFR))/5)+1 
1606 10792 2B P= 16-(nPTR25) 
1607 10794 7DF5 : GOSUB INITPT D1 @ RANBFR 
1608 
1609 * Initialize MTHSTK --> RANEND 
1610 x 
1611 10798 1F99 D1=(5) =MTHSTK AYNENE 
5F2 
1612 1079F 119 C=R1 
1613 nPTR3 EQU = (((RAMEND)-(NTHSTK))/5)+1 
1614 107A2 2A P= 16-(nPTR3) Initialize nthstk, forstk, gsbstk, 
1615 107A4 7DE5 GOSUB INITPT Active, calstk, ranend 
1616 107R8 DA A=C A 
1617 107AA BFO ASL Wd 
1618 107AD BFO ASL W 
1613 107B0 20 P= 0 
1620 107B2 31A1 LCHEX 1A 
1621 107Be 1596 COLD3O DATI=R 7 Clear chain list; 2? chains 
1622 107BA 176 01=01+ 7 
1623 107BD AGE C=C-1 8 
1624 107C0 55F GONC COLD 
1625 10703 6383 GOTO PUTBUF Store tables in i/o buffers 
1626 107C7 7D2C CON280 GOSUB TBLPTR 
1627 107CB AF1 B=0 W 
1628 107CE AES B=C B 
1629 10701 F1 BSL A 
1630 10703 F1 BSL A 
1631 10705 F1 BSL A #entries in neutable in b[rn] 
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1632 


1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
167? 
1678 


1679 
1680 
1681 


1682 


107D?7 


107DE 
107E1 
107E4 
107E7 
107ER 
107EE 
107F2 
107F5 
107F8 
107FB 
1O7FE 
10801 
10804 
10807 
1080A 
1080D 
10811 
10815 
10817 
1081A 
1081C 
1081E 
10821 
10823 
10826 
19828 
19828 
1082D 
10831 
10835 
10839 
1083D 
10841 
10845 
10848 
1084B 
1084E 
10852 
10855 
10858 
1085B 
1085E 
10862 
10865 
10868 
1086B 


10872 
10875 
10877 


1087E 


1B6E 
SF2 
AF2 
146 
B66 
460 
6C 3F 
7185 
103 
1¢9 
184 
179 
R50 
405 
169 
A6D 
435 
15B8 
15£8 
23 

916 
90 

28 

W2 
AD 

382 
B1 

9B6 
EO 

7175 
7075 
65CF 
7475 
66CF 
7055 
179 
A5D 
51C 
7FS5 
169 
R6D 
55F 
4FO 
7045 
179 
ASD 
55F 
1F49 
5F2 
143 
Dg 

8FO0 
000 
1EDE 
SF 
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CON290 


CON310 


CON320 


CON330 


CON340 


CON350 
CON360 


CON370 
CON380 


CON390 


CON400 


bO=(5) 


C=0 
C=DATO 
C=C+1 
GOC 
GOTO 
GOSUB 
R3=A 
D1=01- 
DO=D0- 
D1=D1+ 
B=B-1 
GOC 
DO=D0+ 
B=B-1 
GOC 
A=DATI 
C=DATO 
p= 
RHC 
GOYES 
p= 
*A=C 
GOYES 
PAC 
GOYES 
PROC 
GOYES 
GOSUB 
GOSUB 
GOTO 
GOSUB 
GOTO 
GOSUB 
D1=D1+ 
B=B-1 
GONC 
GOSUB 
DO=D0+ 
B=B-1 
GONC 
GOC 
GOSUB 
D1=D1+ 
B=B-1 
GONC 
D1=(5) 


A=DATI 
B=A 


=CONFST 


W 
A 
B 
CON290 
coldst 
CDIV10 


10 

5 

10 

" 
CON380 
10 

B 
CON390 
2 

9 

3 

WP 
CON340 
8 

P 
CON310 
x 


CON360 
K 


CON350 
MRKNEW 
MRKOLD 
CON310 
ARKOLD 
CON320 
MRKNEW 
10 

q 
CON330 
MRKOLD 
10 

B 
CON370 
CON400 
MRKNEW 
10 

n 
CON3% 
=RAVAENS 


A 
A 


GOSBYL =D=AYNE 


D1=(4) (=CONFST)+? 
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Start of i/o buffers 


Read first header 

Old RANtable? 

Yes 

No. id doesn’t natch 
C/10 to A, B 

Hold in R3 

Will look at lower 9 nibs 


Anything nore in newtable? 
No, remaining old RAMs missing 


Anything more in oldtable? 

No, remaining newtable RANs neu 
Newtable entry 

Oldtable entry 


Sane size, pdev#, seq pos? 
No. 


Chipcount sane? 

Yes, on to next entries 

Diff devs. newtable entry neu? 
Yes. 

No. oldtable entry missing? 
Yes. 

Newtable entry new...nark it 
Oldtable entry missing...nark it 


Oldtable entry missing...nark it 
Newtable entry 1s neu...nark it 
Nore newtable entries? 

Yes 

No. oldtable dev missing. mark. 
More oldtable entries? 

Yes 


No. ready to nove nenory. B.E.T. 
Mark it. 


Prepare to exarine missing RAMs 


Hold AVMENS in b 
AVMNENE in d 


Point at oldtable+2 


Saturn Assenbler 


1683 
1684 
1685 
1686 
168? 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1639 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1724 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 


10884 11B 
10887 816 
1088A ACR 
1088D 816 
10890 AAaC 
10893 580 
10896 R4E 
10899 474 
1089C 15F6 
108A0 25 
108A2 9OAR 
108A5 §3 
108A7 8001 
1O8AB RE2 
1O8AE 8BF 
108B1 52 
108B3 8B1 
108B6 02 
108B8 DO 
108BA B24 
108BD B24 
108CO C4 
108C2 OC 
108C4 SBF 
108C?7 26 
10809 C2 
108CB ROE 
1O8CE SAF 
108D1 8BB 
108D4 60 
108D6 605E 
108DA 179 
10800 628F 
1O8E1 74AB 
1O8E5 E3 
1O8E? 119 
1O8EA CB 
1O8EC 10B 
108EF 750B 
108F3 26 


108F5 768A 
108F9 7BFA 
108FD DS 
1O8FF ?238 
10903 119 
10%6 134 
10909 126 
1090C D? 
1O90E 841 
10911 1C€9 
10914 ReaD 
10917 531 
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CON410 


CON4 20 


CON4 30 


CON440 


COLD 
CON450 


CON460 


CON4 70 


C=R3 
CSRC 
A=C 
CSRC 
R=A-1 
GONC 
C=C-1 
GOC 
C=DAT1 
P= 
2C=0 
GOYES 
P=C 
C=0 
?C>=D 
GOYES 
2C<B 
GOYES 
A=0 
R=A+1 
R=A+1 
A=A+A 
P=P+4 
GONC 
P= 
C=C+A 
C=C-1 
GONC 
2C<=D 
GOYES 
GOTO 
Di=D1+ 
GOTO 
GOSUB 
D=D-C 
C=R1 
C=C+D 
R3=C 
GOSUB 
P= 


* Sort RAMs by 


GOSUB 
GOSUB 
B=C 
GOSUB 
C=R1 
DO=C 
CR3EX 
D=C 
ST=0 
01=01- 
B=B-1 
GONC 


S 


S 
CON420 
S 
CON460 
? 

5 

p 
CON450 
1 

B 

A 

COLD 

A 

COLD 

A 


KS 
XS 
A 


CON430 
6 

A 

P 
CON440 
A 
CON450 
coldst 
10 
CON410 
C=RAME 
A 


A 
A 
TBLPTR 
6 
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Hentries in oldtable 
Lsn to a[s]} 


Msn to c{s] 

Any nore entries? 

Yes 

Maybe, check rsn 

No, done checking 

Get oldtable entry nibs 2-8 


Marked as missing? 

No 

Hold chipsize nibble 

C{a] has addr of missing chip 
Started after AVMENE? 

Yes, better coldstart 

Started before AVMENS? 

Yes, better coldstart 


Loop to cornpute chipsize 


Loop to find endaddr 
RAN ends after AVMEME? 
No. was entirely erpty. 
On to next entry 
Current end of RAM 

Old AVMENE-old RANEND 
New RAMEND 


New AVMENE 


address to restore nenory integrity. 


SORT 
TBLPTR 
A 
ROMTPT 


A 

1 

10 

B 
CON480 


Sort neutable by address 


Entry counter to b 

Point to end of RANtable 
RANEND 

Louibound of bubble 
Highbound of bubble 

New AVMENE 


Any nore table entries? 
Yes 
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Ver. 3.39/Rev. 2306 Configuration code (cont. ) Page 35 
1738 1091A 851 ST=1 1 No nore plugins. prepare to nove 
1739 10910 23 P= 3 Data up fron internal RAM. 
1740 1091F 35FO LCHEX 200Q00F 3 chips, 4 kbits each 

0002 
1741 10927 6220 GOTG CON490 Do it 
1742 10928 15F8 CON480 C=DAT1 9 Read next table entry 
1743 1092F 27 P= 7 
1744 10931 390A 70-0) —P Was it marked as new? 
1745 10934 61 GOYES CON490 No, 4111 nove bubble 
1746 10936 7DCA GOSUB MSIZE Yes, nodule size to a 
1747 1093A FO ASL A 
1748 1093C FO ASL A 
1749 1093E 136 CDOEX 
1750 10941 E2 C=C(-A A 
1751 10943 136 CDOEX Move lowbound to expand bubble 
1752 10946 6ACF GOTO  CON470 
1753 1094A 79BAR CON490 GOSUB ASIZE Prepare to nove bubble 
1754 1094E FO ASL A 
1755 10950 FO ASL A 
1756 10952 11B C=R3 Highbound of bubble 
1757 10955 132 ADOEX Lowbound of bubble 
1758 10958 8A6 PAHC OAR Bubblesize=0? 
1759 10958 51 GOYES CON500 No, nust move data 
1760 1095D 132 ADOEX Yes, just change pointers 
1761 10960 E2 C=C-A A New highbound&lowbound 
1762 10962 10B R3=C 
1763 10965 134 DO=C 
1764 10968 861 *ST=0 1 Was this disp driver RAM? 
1765 1096B 6A GOYES CON470 No...on to next rodule 
1766 10960 5C7 GONC CON550 Yes...done! B.E.T. 
1767 10970 132 CON5O0 ADOEX Get back size 
1768 10973 E2 C=C-A A New highbound 
1769 10975 88F ?C>=D A Below AVNENE? 
1770 10978 40 GOYES CON510 No 
1771 1097A DB C=D A Yes, use AVMENE 
1772 1097€ 113 CON510 A=R3 Qld highbound 
1773 1097F EA A=A-C A #nibs to nove 
1774 10981 486 GOC CON550 If negative, we are done 
1775 10984 8A8 ?A=O) OR 
1776 10987 36 GOYES CON550 If zero, we are done 
1777 10989 11B C=R3 Old highbound 
1778 1098C 137 CD1EX : 
i 1779 1098F 10B R3=C Save RANtable pointer 
1780 10992 D6 C=A R #nibs to nove 
1781 10994 8E00 GOSUBL =MOved3 Move down (to higher address) 
00 
1782 1099R 118 CON540 C=R3 Recover RANtable pointer 
1783 10990 137 CD1EX 
4784 109A0 108 R3=C New highbound 
1785 109A3 871 *ST=1 1 Was this disp driver RAN? 
1786 109A6 44 GOYES CQN550 Yes... done! 


1787 109A8 686F GOTO  CON470 
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1788 STITLE CNFFND Utility 
1789 JOS III OCI ICICI TE 
179 JO II II ISI IOI TIO ITO IC IOC IOI IOC 
1791 ax 
1792 ** Name:(S) CNFFND - Configuration Buffer Find 
1793 tok 
1794 ** Category: CONFIG 
1795 ax 
1796 ** Purpose: FINDS CONFIGURATION BUFFER 
1797 i 
1798 ** Entry: C(B) IS BUF ID# 
1799 ax 
1800 ** Exit: C(B)= BUFFER ID# (preserved fron input) 
1801 aK CARRY SET=> MATCH FOUND 
1802 ak 01 POINTS PAST BUFFER HEADER 
1803 ae A(R) BUFFER LENGTH 
1804 ax SB=0 
1805 ae CARRY CLR=> NO MATCH 
1806 ax 
1807 &* Calls: none 
1808 aw 
1809 ** Stack lvls: 0 
1810 ae 
18114 kk Uses: ACA), 01 
1812 ak 
1813 *X Detail: Length given in header reflects the anount of 
1814 ak scratch area in the buffer, but doesn’t include 
1815 ak the total buffer area (e.g. the 5 nibbles used 
1816 ax by the header) 
1817 ax 
1818 xk History: 
1819 kk 
1820 ae Date Progranner Modifications 
1821 RR nen nnn eee ene ee ere renee eee 
1822 &k 07/04/82 SW Added docunentation 
1823 Rk 02/11/83 NM Noved to CNF nodule 
1824 am 
1825 JOISTS ISI SIGS TISOO ISIS IOI I TOR 
1826 TO IOIO TOTO OI OOOO OOO IIIT IG OIC 
182? x 
1828 109AC 1F6E =CNFFND D1=(5) =CONFST HARD-WIRED START OF CONF AREA 
OF2 
1829 109B3 143 CNFNQ3 A=DAT1 A 
1830 109B6 174 O1=B1+ § POINT PAST HEADER 
1831 109B9 96C RHO OB NOT AT END OF BUFFER AREA? 
1832 109BC 40 GOYES CNFNDS 
1833 109BE 01 RIN 
1834 x 
1836 109€0 BoA CNFNDS A=A-C B 
1836 109C3 822 SB=0 
1837 109C6 F4 ASR A 
1838 109C8 F4 ASR A 
1839 ®% SB=0 => FOUND BUFH MATCH (E.G. SHIFTED OFF ZEROES) 
1840 109CA 832 °SB=0 


1841 109CD 00 RTNYES 
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1%e2 
1843 
1844 
1845 
1846 
1847 
1848 
1843 


1850 
1851 


109CF 137 
109D2 C2 

10904 137 
109D7 SBD 


103DA 23 


109DC 8C00 


00 
109E2 23 


109E4 8C0O 


00 
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* 


CD1EX 
C=C+A A 
CD1IEX 


GONC CNFND3 


RST<R3 P= 3 
GOLONG =Rstk<R 


R3<RST P= 3 
GOLONG =R<Rstk 


Fri Dec 30, 1983 


POINT TO NEXT BUFFER 
(B.E.T.) 
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1852 
1853 
1854 
1855 


1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
186? 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
189? 
1898 
1899 
190 
1%1 
1902 


193 
194 


109EA 
1O9EE 
109F0 


109F? 
109FA 
1O9FC 
1OSFE 
10A00 
10A03 
10A06 
10A09 
1OAROC 
1OROF 
10A13 
10A15 
10A18 
1OR1A 
1OAIE 
10A20 
10A22 
10A25 
10R27 
10R2A 
10A20 
10A31 
10R35 
10837 
10A39 
1OR3C 
1OA3F 
10A42 
10A44 
10A47 
10A49 
1OR4C 
10AR4F 
10A53 
10A56 
10A58 
10A5B 
1OR5D 
1ORSF 
10AG2 
10R64 
10R6?7 
10R6R 
1OR6C 
1OR6F 
1OR72 
10R75 


10A7B 
1OR7E 


7ROR 
DS 
1B49 
5F2 
146 
D? 
De 
24 
H3 
108 
134 
R6D 
475 
15F8 
27 
9OR 
91 
79E9 
FO 
FO 
136 
C2 
136 
179 
6BDF 
72D9 
FO 
FO 
11B 
132 
8R6 
11 
132 
C2 
10B 
134 
6ADF 
132 
C2 
8BB 
40 
DB 
113 
E2 
432 
8AR 
E4 
128 
137 
12B 
8EO0 
oO 
11B 
137 
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CON550 


CON560 


CON570 
CON580 


CON590 


CON600 
CON61O 
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STITLE Configuration code (cont. ) 


GOSUB 
B=C 
b0=(5) 


C=DATO 
d=C 
C=90 
p= 
LCHEX 
R3=C 
DO=C 
B=B-1 
GOC 
C=DRT1 
p= 
?C=0 
GOYES 
GOSUB 
ASL 
ASL 
CDOEX 
C=C+A 
CDOEX 
01=01+ 
GOTO 
GOSUB 
ASL 
ASL 
C=R3 
ADOEX 
PARC 
GOYES 
ADOEX 
C=C+A 
R3=C 
DO=C 
GOTO 
ADOEX 
C=C+A 
?C<=D 
GOYES 
C=D 
R=R3 
C=C-A 
COC 
7C=0 
GOYES 
CR3EX 
CDIEX 
CR3EX 


TBLPTR 
A 
=AVMENS 


A 
A 
A 
4 
3 


B 
CON610 
9 

? 

P 
CONS80 
MSTZE 
A 

A 


A 


10 
CONS60 
MSTZE 
A 

A 


CON590 


CON570 


A 
A 
CON6OO 
A 


R 
CON650 
R 
CON650 


GOSUBL =Noveu3 


C=R3 
CDIEX 


Prepare to bubble up 
Entry counter to b 


AVMENS to d 


C contains 30000 
Louwbound of bubble 
Highbound of bubble 
Any nore nodules? 
No 

Read next entry 


Was it marked as new? 
No, 1ll nove bubble 
Yes, will grow bubble by size 


New upper bound 


On to next entry 
Prepare to nove bubble 


Lowbound of bubble 
Highbound of bubble 
Bubblesize=0? 

No, will nove nerory 

Yes, change pointers only 


New loubound 
New highbound 


Recover size 

New lowbound 
Above AVNENS? 

No 

Yes, use AVMENS 
Old loubound 

# nibs to nove 
Done if negative 


Done if 2ero 
Old loubound 


Save RAMtable ptr in r3 
Move up (to lower address) 


Restore RANtable pointer 
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1905 10A81 10B R3=C Restore lowbound 

1906 10A84 65AF GOTO  CON570 

1907 10888 7(69 CON650 GOSUB TBLPIR RANtable pointer 

1908 10R8C 1C2 D1i=D1- 3 Point at device type nibble 

1909 10R8F RRO A=0 XS 

1910 10892 179 CON660 D1=D1+ 10 Loop to unnark new RAMs 

1911 10A95 AGE C=C-1 8B Any nore entries? 

1912 10A98 490 GOC CON670 No 

1913 10A9B 1512 DAT1=A XS Yes, write out zero 

1914 10R9F S2F GONC CON660 i ae 

1915 10RA2 73£9 CON670 GOSUB C=RANE Old RANEND 

1916 10RA6 111 A=R1 New RANEND 

1917 10AR9 EA A=A-C A Old-new 

1918 10AAB 2A P= 16-(nPTR3) 

1919 1ORAD C2 CON680 C=C+R A Update RANEND, clcvar, calstk, 

1920 1ORRF 145 DATI=C A Active, gsbstk, AVNEME 

1921 10AB2 1€4 D1=01- 5 

1922 10AB5 147 C=DAT1 A 

1923 10AB8 OC P=P+1 

1924 10ABR 52F GONC  CON680 

1925 10ABD 1E9B 01=(4) (=PRMPTR)+2 Prepare to update chain ptrs 
SF 

1926 10AC3 31A1 LC(2) 26 There are 27 chain ptrs 

1927 10AC7 DS B=C A Counter 

1928 10A8C9 147 CON685 C=DRT1 A 

1929 10ACC C2 C=C+A A 

1930 1ORCE 145 DATI=C A 

1931 10AD1 176 D1=D1+ 7 

1932 10AD4 AOD B=B-1 B 

1933 10RD? 51F GONC CON685 

1934 10RDA 7A19 GOSUB TBLPTR 

1935 * 

1936 : Sort RAN by pdev for old/neutable conpare next tine. 

1937 

1938 10ADE 7BC8 , GOSUB SORTP2 Sort RAMs by port-devi 

1939 

1940 * Deternine if systeri configuration has changed. 

1941 . 

1942 10RE2 7219 GOSUB TBLPTR 

1943 10RE6 7B49 GOSUB ROMTPT D1 points at RONTBL, D[B]=#ents 

1944 10REA 1B8E DO=(5) (=CONFST)+2 Point at size or RAM oldtable 
9F2 

1945 10AF1 D2 C=0 A 

1946 1ORF3 1563 C=DATO X 

1947 10AF7 162 DO=D0+ 3 Point past size field. 

1948 10AFA 132 ADOEX 

1949 10RFD CA A=AHC A 

1950 10AFF 132 RDOEX Point past RAM oldtable. 

1951 10802 146 C=DATO A Start of ROMtable conftable 

1952 10805 B66 C=C+1 B 

1953 10808 B66 C=C+i 8B Is this expected ID? 

1954 10B0B 460 GOC RONC10 Yes, 

1955 10B0E 681C GOTO coldst No. 

1956 10B12 164 RONC1O DO=D0+ 5 DO -> oldtable, A[R]=size*100H 

1957 10B15 7A52 GOSUB CDIV10 Hentries to B[B] 
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1958 
1953 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
196? 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1983 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2014 
2012 


10B19 29 
10B1B A6D 
1OB1E 482 
10B21 1521 
10825 169 
10B28 ROF 
10B2B 481 
1OB2E 1571 
10B32 179 
10835 9B6 
10838 OF 
10B3A 9B2 
10B3D 70 
1OB3F 912 
10B42 9D 
10844 853 
10B47 
10847 7DA8 
10B4B 768 
1OB4F 72E8 


10B53 7658 
10857 7D98 
10B5B 76D8 
1OBSF 133 
10B62 D8 

10864 131 

10B67 7AC8 
10B6B 133 
1OB6E 103 
10B71 131 

10874 7DB8 
10B78 137 
10B7B OD 

10B7D 135 
10B80 841 

10B83 AF3 
10B86 173 
10B89 De 

1OB8B CE 

1OB8D 133 
10B90 128 
10893 8B6 
10B96 95 

10898 128 
10B9B 133 
1OB9E 1533 
1OBA2 932 
1OBA5 90 

1OBA? 179 
TOBAR 62EF 
1OBRE 103 
1OBB1 137 
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RONCZO 


DO 
RONC30 D= 
GO 


RONC4O ST=1 

ROMC5O 

PUTBUF GOSUB 
GOSUB 
GOSUB 


* Sort MMIO by 
k 


GOSUB 
GOSUB 
GOSUB 
ADIEX 
B=A 
D1=A 
GOSUB 
ADIEX 
R3=A 
D1=A 
GOSUB 
CDIEX 
BCEX 
D1=C 
$T=0 
D=0 
CON69O D1=D1+ 
C=0 
C=C-1 
CON700 ADIEX 
CR3EX 
AOC 
GOYES 
CR3EX 
ADIEX 
R=DAT1 
?R=C 
GOYES 
D1=D1+ 
GOTO 
CON710 01=D1- 
CDIEX 


RONCSO 
WP 

10 

B 
ROMC40 
WP 

10 

® 
RONC30 
x 
RONC40 
WP 
ROMC20 
3 


TBLPIR 
RONTPT 
ROMTPT 
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To conpare table entries 

Any nore in oldtable? 

No. Everything in order. 

Yes. Read oldtable entry. 

And point past it. 

Any nore in neutable? 

No. We've found a nissing ROM. 

Yes, Read newtable entry. 

And point past it. 

New entry before old? 

Yes. Get next new entry. 

New entry after old? 

Yes. We’ve found a missing RON. 
Entry identical, incl. address? 
Yes. On to next oldtable entry. 
Mark ROM configuration changed. 

Here if ROM config unchanged. 


Point at MNI/O table 


pdev to establish an order. 


SORTP2 
TBLPTR 
ROMTPT 
A 


ROMTPT 


RONTPT 


nwovfte- 


A 
CON?20 


x 

x 
CON710 
10 
CON700 
4 


Sort table by port-devi 
Get past RAM table 

Hold ROMNtable pointer 
Get past ROM table 

Hold MMIO pointer 

Get past MNIO table 


End ptr to b 
RON table pointer 


#deleted entries counter 
Point at addr nibs 


Rubbish address = FFF 
ROMtable pointer 

MNIO table pointer 
Past ROM table? 

Yes 

No 


Read address 
Rubbish ROM? 


Yes 
No. next RON. 
Begin dest 
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2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 


2022 
2023 
2024 
2025 
2026 
2027 
2028 
2023 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
204 3 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 


2053 
2054 


2055 
2056 
2057 
2058 
2059 
2060 


2061 
2062 
2063 


10BB4 
10BB7 
10BBA 
10BBD 
10BCO 136 
10BC3 134 
1OBC6 E9 

1OBC8 FA 

10BCA 8E00 
00 

11A 
135 


135 
134 
108 
169 


10BDO 
10BD3 
10BD6 D2 
10BD8 OR 
10BDB £1 
10BDD 123 
1OBEO EA 
1OBE2 123 
1OBE5 851 
10BE8 B67 
10BEB 6A9F 
1OBEF 29 
1OBF1 7650 
10BF5 118 
10BF8 B7B 
1OBFB 2C 
1OBFD 7A40 
10001 B7B 
10004 108 
10007 7A88 
10COB BF6 
1OCOE BF6 
10(11 Fé 
10(13 F6 
10€15 F6 
10017 C6 
10019 DS 
10C1B C6 
1001D C6 
1OC1F C1 
10021 347F 
SF2 
10028 C1 
10C2R 8E00 
0.0 
10030 £1 
1032 522 
10035 DA 
10037 C9 
10039 135 
10C3C 8FOO 
000 
19€43 6080 
10C47 6FDA 
10C4B BF3 
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D1=C 
DO=C 
R2=C 
DO=D0+ 
CDOEX 
DO=C 
C=C-B 
C=-C 
GOSUBL 


C=R2 
Di=C 
C=0 
LCHEX 
B=B-C 
AR3EX 
A=A-C 
AR3EX 
ST=1 
D=D+1 
GOTO 
CON720 P= 

GOSUB 
C=RO 
C=C-D 
P= 
GOSUB 
C=C-D 
R3=C 
GOSUB 
CSR 
CSR 
CSR 
CSR 
CSR 
C=C+C 
B=C 
C=C+C 
C=C+C 
B=B+C 
LC(5) 


B=B+C 
GOSUBL 


B=B-C 
GONC 
A=C 
C=B+C 
D1=C 
GOSBYL 


GOTO 
CONCLD GOTO 
DSLW-P DSL 


10 


A 
R 
=Moveu3 


zawDwD 


CON690 
DSLW-P 
W 


12 
DSLW-P 
W 


csru6 
W 
W 
A 
A 
A 
R 
A 
AR 
A 
A 
( 


=CONFST)+17 


A 
=C=MAIN 


A 
CON730 
A 
A 


=MOVEUA 
CON770 


coldst 
W 
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Hold begin dest 
Begin src 


-length 
Length 
Pack out entry 


Restore begin dest 


Update end pointer 

Update MMIO table pointer 
Indicate config error 
Update deleted entry ctr 
Rlign with ROM entry count 
Update ROM entry count 
Align with sur 


Update sun 
Save counters & tbl pointer 


Sun of # entries 


10=#entries 

Space for tables + CONFST 

Using D1, read MNAINST into C(A) 
Ant to nove nenory for neu tables 
Go if tables grew 

Begin source 

Begin dest 


Move wenory to lower address 


Go and adjust references 
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2064 
2065 
2066 
2067 


2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2083 
20.290 
2031 
2092 
2093 
2094 


2095 
2096 
2097 
2098 
2039 


2100 
2101 


2102 


2103 
2104 
2105 
2106 
2107 


2108 
2169 


2110 
2111 


10C4E OC 
10C50 SAF 
10€53 03 
10(55 1F99 
5F2 
10C5C 143 
1OCSF 104 
10062 147 
10065 EA 
10C67 4FD 
10C6A D2 
10C6C 314) 
10€70 EA 
10072 540 
10075 DO 
1007? EO 
10079 §32 
10C7C D3 
10C7E 31A0 
10082 851 
10085 £7 
10087 €1 
10089 CA 
10C8B 59F 
1OC8E 25 
10€90 77BF 
10094 11B 
10€97 B7B 
10CSA 10B 
10C9D 8A9 
10CAO B3 
10CA2 1849 
5F2 
10CR9 142 
10CAC 131 
1OCAF CO 
10€B1 133 
10CB4 1A85 
5F 
10CBA 146 
1OCBD 8FOO 
000 
10CC4 1B85 
5F2 
10€CB 146 
10CCE DA 
10ChO C9 
10CD2 144 
10CD5 8£00 
00 
10CDB 11B 
1OCDE 8E71 
7F 
10CE4 AFB 
10CE? 8E8A 
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CON730 


CON740 


CON750 


CON760 


CON770 


CON775 


P=P+1 
GONC 
RTNCC 
D1=(5) 


A=DAT1 
D1=D1- 
C=DAT1 
R=A-C 
GOC 
C=0 
LC(2) 
A=A-C 
GONC 
R=0 
A=A-B 
GONC 
D=0 
LC(2) 
ST=1 
D=D+1 
B=B-C 
R=R+C 
GONC 
P= 
GOSUB 
C=R3 
C=C-D 
R3=C 
?B=0 
GOYES 
DO=(5) 


A=DATO 
D1=A 
A=A+B 
ADIEX 
DO=(4) 


C=DATO 
GOSBYL 


DO=(5 


— 


C=DATO 
A=C 
C=C+B 
DATO=C 
GOSUBL 


C=R3 
GOSUBL 


C=D 
GOSUBL 


DSLW-P 
=AVNENE 
A 
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(AVNENE ) 


(AVNEME )-(AVMENS ) 


A 

A 
CONCLD 
A 
=LEEWAY 
A 


CON740 
A 


A 
CON760 
A 

10 

1 

A 

A 

A 
CON?750 
5 
DSLU-P 


W 

A 
CON775 
=AVNENS 
A 

A 
=MAINST 


A 
=MOVED2 


=MAINST 


uDDDD 


RFADJ+ 


TBLPT+ 


W 
csrH6 


(AVMENS ) 
Available renory 
BAD NEWS... COLDSTART 


Available nenory - leeway 
Still non-negative 

Tight! Keep tables sane size. 
New table shrinks -(this much) 
Roon for the whole thing 

For counter. 

For shrink loop. 

Indicate CONFIG error. 
Increrient excluded entries ctr. 
Reduce expand anount. 

Now do we fit? 

No. 


Align excluded ctr uw/total ctr 
New counters. 


Hou riuch do tables grow? 


End Source 
End Dest 


Start Source 
Move weriory to higher address. 


For RFADJ 
Update MAINST 
Adjust references. 


Dt->oldtable; ctrs in D 


C[Bj=total of all tables 
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2112 
2113 


2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
210 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 


2147 
2148 
2149 
2150 
2154 


2152 
2153 
2154 


7F 
10CED D5 
1OCEF 1B6E 
SF2 
10CF6 A4E 
10CFS 800F 
10CFD 89C 
10000 94 
10002 D2 
10004 AEB 
10007 BF? 
10D0R F7 
10D0C Bét 
10D0F 570 
10012 A69 
10015 D1 
10017 DA 
10019 Co 
10D1B C6 
10010 C2 
10D1F Cé 
10021 F2 
10023 F2 
10025 AGE 
10D28 80FO 
1OD2C 144 
10D2F 164 
10032 CC 
10034 41C 
10037 15F9 
10038 15C9 
10D3F 169 
10042 179 
10045 6CEF 
10049 D2 
10D4B 14C 
10D4E 8F0O 
000 
10055 03 
10057 816 
1005A 10C 
10D5D 8080 
10061 8£00 
00 
10D67 7F6C 
10D6B 7850 
10D6F 6570 
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CON780 


CON790 


CON800 


CON810 


Hom 
~~ 
n 
— 


wh iu Sr 
' 
—_ 


OS a oS non 
“” 


uonou#iu 


7~Or 
oO oO 


oO 
a 

oO 
++ 

AO 


C=A+C 
C=C+C 
CSL 
CSL 
C=C-1 
CPEX 
DATO=C 
DO=D0+ 
A=A-1 
GOC 
C=DAT1 
DATO=C 
DO=D0+ 
D1=D1+ 
GOTO 
C=0 
DATO=C 
GOSBVL 


C=ST 
CSRC 
R4=C 
INTON 
GOSUBL 


GOSUB 
GOSUB 
GCTO 


=CONFST 


15 
12 
CONS10 


ON79% 


DBOvowmwwmwrwrDrDrTVDDDIWMRBWMOWOWVDcO OD 


CON780 
10 

10 

10 

10 
CON800 
A 

8 
=CLRXDS 


=CLKSPD 


RST<R3 
STMBF? 
LXBF ++ 
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For buffer ID 


About to urite table FC? 
Yes. Done. 


Hentries in this buffer 
Subtract fron total 
Go if roon for whole table 


Only write this many entries 
No nore roon 


Size of table 


C{BJ=FF 
C{B)=Buffer ID 
Write out buffer ID. 


Any riore entries to copy? 
No. On to next table. 
Read next entry. 

Write to CNF table. 


Back for nore. 


Zero byte at end. 


Hold status bits 
Conpute clkspd, store -> CSPEED 
Restore 3 subroutine levels 


Create stnt buffer if necessary 
Create lex files buffer 
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2155 STITLE More CONFIG utilities 
2156 JOO II I III III I TTI TI IIIT TT OSI TOS OSI ISI II IIT I III SIDI IIIT IK 
2157 JI III IIT IIT III STII I III II III SI III II II TITS I SII SII SSIS I II 
2158 ae 
2159 *x Nane: CDIVIO - A = C/10 
2160 a 
2161 ** Category: LOCAL 
2162 at 
2163 ** Purpose: 
2164 ax Divide a 3-digit hex number by 10. 
2165 ax 
2166 kk Entry: 
2167 aw Argunent in C{2-4]. 
2168 RK 
2169 kX Exit: 
2170 kk Result in A[8)],B8(8). 
2171 as 
2172 ** Calls: None. 
2173 ae 
2174 &* Uses....... 
2175 ae A,B,C 
2176 aK 
2177 ** Stk lvls: 0 
2178 a 
2179 ** Algorithn: 
2180 — Based on identity 1/5=1/4-1/16+1/64-1/256... 
2181 
2182 ** History: 
2183 ax 
2184 7 Date Progratiner Modification 
2185 BK meee nen wenn ene renee nnn nnn nnn nn nnn nee enn e nn e-- 
2186 — 09/14/82 = NM Pulled out of config code 
? x 
ee JOISTS IOI ISI OIG OI II TOC TOI IAI IT IAS II IIS 
2189 JIG TIO III III II I TI TTI I ISI IIT II ITO IIIT I ISI ISIS IIIA 
219 10073 Fo CDIVIO CSR A 
2191 10075 Fo CSR A Arg to c[x] 
2192 10077 RFO A=0 W 
2193 10D7A 26 P= 6 
2194 10D07C A7R = CDIV2O0 A=A+C OW Loop to divide by 5 based on 
2195 10D7F &1C ASRB Identity: 
2196 10082 81C RSRB 1/5=1/4-1/164+1/64-1/256... 
2197 10085 BFA C=-C Ww Only need 6 iterations here 
2198 10088 OD P=P-1 
2199 10D8R 51F GONC CDIV20 
2200 10D08D 81 ASRB /2=s1ze/10 
2201 10090 AES B=A B 
2202 10093 01 
2203 JOGOS ISIS EI I GIOOUIIII IU TOI TIT IOI OTIS 
2204 JI II OI OTC II III III TT TTI IIT TT IT TIA 
2205 
2206 ** Nane: INITPT - Loop To Initialize Pointers 
2207 ne 
2208 


2203 


** Category:  ADDCAL 
£e 
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2210 ** Purpose: 
2211 ae Initialize pointers. 
2212 ax 
2213 *k Entry: 
2214 a C{A] = value to initialize with. 
2215 ee D1 points at first pointer. 
2216 a P = 16 - (#pointers to initialize). 
2217 Ak 
2218 x*- Exit: 
2219 a Di points past last pointer initialized. 
2220 Kx P=0, 
2221 an Carry clear. 
2222 xm 
2223 *k Calls: None. 
2224 ax 
2225 K* Uses......5 
2226 **k Exclusive: D1,P. 
2227 kK 
2228 kx Stk lvls: 0 
2229 ak 
2230 ** Detail: 
2231 ke Used to initialize bunches of pointers at coldstart. 
2232 ak 
2233 ** History: 
2234 ak 
2235 kk Date Progranner Modification 
2236 a att atatatata ti atatatetatatatatatedatatciatatataeeteetetatatnienmneateieneaamieataananaaie 
2237 is 06/21/82 = NM Added docunentation 
5 JOO IU IS OORT CII TI I ITI ATTA 
9240 JOSIE IOI ISIE OUI IIE TI TTT ERIE 
2241 10D95 145 =INITPT DATI=C A 
2242 10098 174 Di=Di+ 5 
2243 10098 OC P=P+1 
2244 10D9D S7F GONC INITPT 
2245 10DAO 93 
2246 KIRK III TI IID ADDI AI III IIT I SIS I IIIA III IIIS III ISI III ASISSI LIISA 
2247 JGIGIGIIGOISOC IIIT COCO I I IIIT T IIIT TIKI 
2248 Xx 
2249 xk Nane: MRKNEW - Mark New Table Entries 
2250 ar 
2251 ** Category: LOCAL 
2252 aK 
2253 xk Purpose: 
2254 a Mark newtable ID to identify RAM as new (not existing 
2255 a in old configuration table). 
2256 ae 
2257 ** Entry: 
2258 a D1 points at table entry. 
2259 Rx 
2260 ARE wits 
2261 ax Modified lower 8 nibs in A and written out at D1. 
2262 ae P=7, 
2263 am 
2264 kk Calls: None. 
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2265 aK 
2266 *k Uses....... 
2267 kk Exclusive: A[?-0],P. 
2268 BK 
2269 *K Stk lvls: 0 
2270 aa 
2271 ** Detail: 
2272 KK Changes nibble 7 of table entry fron 0 to 1. 
2273 eA 
2274 ** History: 
2275 wi 
2276 a Date Progranner Modification 
2277 WK nnn een wenn een e renee en no-no n nn enn nnn ener ne ee 
2278 kk 06/21/82 NM Added docunentation 
2279 xk 
228) JO OU I OOOO IOI ITT TTI 
2981 JO IO UII IOI TCI COI IDI 
2282 10DA2 15B7 MRKNEW A=DRT1 8 
2283 10DA6 2? P= ? 
2284 10DA8 B04 A=A+1 PP Modify nibble 7 
2285 10DAB 1597 DATI=R 8 Write out 
2286 1ODAF 01 
2287 JOU IO OCI ISIS ICICI IOC OTT ITE 
2288 JOU IO IG IIIT III IUCR TO IAT TS 
2289 a 
22% ** Nane: MRKOLD - Mark Oldtable To Identify Missing RAN 
229) zs 
2292 * Category: LOCAL 
2293 a 
2294 ** Purpose: 
2295 ak Nark oldtable entry to identify RAM as missing (in 
2296 RA oldtable but not in newtable). 
2297 wh 
2298 ** Entry: 
2293 BR DO points at table entry. 
2x0 xx 
21 ex Exit: 
2H2 x Possibly nodified table entry nibs 0-7 in C. 
2H3 ax 
24 ** Calls: None. 
25 ak 
26 MPU SOS oj hoags: 5 
ex? ** Exclusive: C[7-0],D0,P 
2X8 a 
2nd XX Stk lvls: 0 
2310 7 
2311 ** Detail: 
este aes If RAM is missing and was not intentionally reroved 
2313 .s (size nib set to © by FREEPORT neans intentional 
2314 Ax renoval), then sets nibble 7 to 1. 
2315 ze 
2316 xx History: 
2317 = 
2318 ae Date Progranrer Modification 
RR Does | Gea Rccscirtee: “mee ee nat ete tease gm lem eae me eater re nls a to grea 


2319 
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2320 *X 06/21/82 AN Added docunentation 
2321 = 
2322 FRIIS IATA TIA ITAA IT TI IIIS III DI III II III II III III ISI ASIII SI IS TAI 
2323 SII ITI TI ISI IIIS TIE II III III II SII SI IAI IASI ISIS IIA III TIN. 
2324 10DB1 15&7 MRKOLD C=DATO 8 
2325 10DB5 23 P= 3 
2326 10DB7 90A C=O =P RAN intentionally renoved? 
2327 10DBA 00 RTNYES 
2328 10DBC 27 P= 7 
2329 10DBE 31 LCHEX 1 Modify nibble 7 
2330 100C1 15C7 DATO=C 8 Write out 


2331 100C5 01 RTN 
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2332 STITLE LEXBUF - Set up Lang Ext Table 
2333 FOI ITO IT III I II TI IR ITI IIT III II ITI IIIA IIT III IIA IITA SN 
2334 JI II II I TI I I II ITI SI IIIT III IIIT III IIT III IISA 
2335 aS 
2336 ** Narie: LEXBUF - Set Up LEX Files Buffer 
2337 *% Narie:(S) LEXBF+ - Set Up LEX Files Buffer 
2338 xi 
2333 **% Category: CONFIG 
2340 aE 
2341 ** Purpose: 
22 ak Set up Language Extension Files Table Buffer 
2343 ak Must be called whenever Configuration or # Lex Files 
2344 aR changes 
2346 ak 
2346 xk Entry: 
2347 x LEXBUF: At power on (through CONF) 
2348 aia If coldstart 
2349 on Statenent Buffer created 
2350 se 
2351 ae LEXBF+: When Lex file copied into RAN 
2352 ae Statenent Buffer not created 
2353 aR 
2354 xk Exit: 
2355 cp Return after Fast POLL for Configuration 
2356 a 
2357 ae If not enough nerory to add all Lex files to Buffer 
2358 ae Lex Buffer 1s collapsed down 
2359 a XROMO1 and MAINT are added to Lex Buffer 
2360 aR 
2361 ** Calls: T/OAL+, LEXFOO, LEXFND, ROMCHK, ROMFND, POLL, I/OCOL 
2362 ay R<RSTK,RSTK<R 
2363 am 
2364 ** Uses: 
2365 Kk Exclusive: A,B,C,01 
2366 Ae RSTKBF (3 levels) 
2367 ak Needed for pCONF can be issued 
2368 ** Inclusive: A,8,C,D,D0,D1,R1,R2,R3 
2369 as 
2370 =e R1 = Pointer to next entry in ROM Config Table 


2371 aR Length renaining in ROM Config Table 
2372 ae 

2373 ** Stk Ivis: 4 

2374 i +4 levels saved in RSTKBF 

2375 AP Allows LEXFND to use 4 lvls, also 

2376 Pe 

2377 ** NOTE: 

2378 a The Statenent Buffer must be created FIRST in the 
2379 x 1/0 Buffer area. Since the LEX Buffer size can 
2380 ae change between Power ON and the Statenent Buffer 
2381 aS Hay be in use, updating PCADDR that points into 
2382 ae the Statenent Buffer would be near IMPOSSIBLE, since 
2383 a an offset is not easy to calculate. 

2384 x 

2385 ** Algorithn: 


2386 =n 
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2387 *x LEXBUF: If Coldstart (S0=1) 
2388 ak Create Statenent Buffer (1/OAL+) 
2389 ** LEXBF+ Allocate Language Extension Buffer (I/OAL+) 
239 ae ID=FC, Size=0 
2391 aK Save 4 stack levels (R<RSTK) 
2392 aK Search for LEX files in RAN (LEXFND) 
2393 aR Check if RGM Table is non-enpty (ROMCHK ) 
2394 aK If ROM Config Table NOT enpty 
2395 RR Search ROM for LEX files & Update LEX Table 
2396 ae Repeat until (End of ROM Table) 
2397 x Find next ROM (ROMFND) 
2398 ak Search ROM & Update LEX Table (LEXFND) 
2399 a If not enough nenory to Expand (Carry Clear) 
2400 ak +; Collaspe Lex Buffer (I/0COL) 
2401 xe Set C(S) so I/0EX1 will not use Leeuay 
2402 a goto 2; 
2403 aR Set C(S) so I/QEX1 will use Leeway 
2404 aK 2: Add Built-in XROM, MAINT to LEX Table Buffer 
2405 ak Set R3 @ "OO" byte to indicate end of file 
2406 ax Set DO @ start of XROM1 
2407 aS Add xronO1 and MAINT to LEX Buffer (LEXFOO) 
2408 AX If not enough memory to add --> goto 1; 
2409 aR CONFIGURATION Poll. 
2410 ak Restore return levels to stack (RSTK<R) 
2411 ak If handled, restart CONFIGURATION fron the 
2412 ~ beginning. 
2413 *S else 
2414 a go Auto delete 1/0 buffers 
2415 aX 
2416 ** Detail: 
2417 a xronOt and MAINT Lex Files are CHAINED together. 
2418 aK The next Lex File relative address pointer within 
2419 a xron01 points to the start of MAINT. One call to 
2420 am LEXFOO will add both xron01 and MAINT to the Lex 
2421 aK Buffer. 
2422 ak 
2423 aK 4 stack levels are saved to fixed TWO problens: 
2424 ak 
2425 ak Within LEXFND (called by LEXBUF) 
2426 a Usage is 4 levels (Stack save, I/OEX2 (uses2) 
2427 ak One level too deep --- 
2428 ak 
2429 az pCONF issued at end of LEXBUF 
2430 an Since FPOLL uses 2 levels to get there 
2431 aR No levels left for HPIL/Lex file to deal uith 
2432 x its buffers 
2433 % 
2434 ak COPY 
2435 a COPYu 
2436 ak RSTK <-- R1 
2437 aK LEXBUF 
2438 ne 

* 2439 *k History: 

2440 ak 


2441 x Date Progranner Modification 
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2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 


2462 


2463 
24b4 
2465 
2466 
2467 
2468 
2469 


2470 


2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 


2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 


10DC7 860 
1ODCR 00 
100CC D1 
1ODCE 20 
100D0 3210 
8 
10005 8000 
00 


1000B 78EF 
1ODDF AF2 
1ODE2 100 
TODES 01 
10DE?7 20 
10DE9 32CF 
B 
1ODEE 8E00 
00 


10DF4 7AEB 
x 


1OBF8 8E00 
00 


1ODFE 135 
1QEO1 7011 
10E05 5A1 


1OEO8 7201 
1OEOC 432 
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kK eee 
** 07/09/82 
tk 09/09/82 
tk 11/01/82 
te 11/04/82 
tk 01/03/83 
** 03/09/83 
07/05/83 
** 07/05/83 
** 07/22/83 
te 09/13/83 


ak 
ak 


Fri Dec 3, 1983 3:42 an 


Page 50 


we ew a we ww oe ee ee we ee ee eee ee ww eee 


Modified docunentation 
Add no nenory to expand handling 
Added New Lex file forrat 
Calling LEXFOO to add xror01/MAINT 
Renioved S9 usage 
Changed STNBID to bSTMT 
Save 3 levels in RSTKBF 
Adjusted docurentation 
Moved configuration excpt handling 
Updated docunentation: 
4 stack levels used;4 saved 


FUT FTO TOTO TTT TT TTT TT TT IK 
FOI III OI IIIT TO TIO TIT TIT II 


STMBF? ?ST=0 0 


RTNYES 


B=0 
p= 


LC(3) 
GOLONG 


x 


=LEXBUF 
=LEXBF+ C=0 


R4=C 


B=0 
P= 


LXBF ++ 


LC(3) 


GOSUB 


“ow 


bSTNT 
=I/OAL+ 
STMBF ? 
W 
A 


0 
=bLEX 


GOSUBL =1/0AL+ 


x 


* Save 4 levels on stack 
k 


GOSUB R3<RST 


Coldstart ? 
No. 
Yes. Size =0 

Rllocate Statenent Buffer 


Allocate with No Leeway check 


Create stnt buffer if necessary 


Since not called from CONF 
Size=0, ID=01 


Buffer ID 


Allocate with No Leeway Check 


Save 4 stack levels 


* Check for LEX Files in RAM first 
. Set B1 <-- Start of File Chain in RAN 

= If not enough roon to expand ---> go collapse down, 
x add MAINT 
& 


GOSUBL =C=NAIN 


DI=C 
GOSUB 
GONC 


ee ee ee 


Check if RON 
For each ROM 
Search for LEX files & Update LEX table (LEXFND) 


LEXFND 
LEXBSP 


Using D1, read MAINST into C(R) 


Find all Lex Files 
Not enough roon to expand 


Configuration 1s non-erpty 


GOSUB RONMCHK 


GOC 


LEXB30 


Enpty Confiquartion Table 
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2492 10EOF 590 GONC  LEXB20 B.E.T. 
2493 10£12 7912 LEXB1O GOSUB ROMFND Find next ROM 
2494 10E16 491 GOC LEXB3O No nore ROMs 
2495 10619 7401 LEXB20 GOSUB LEXFND Find all LEX files in ROM 
2496 10610 44F GOC LEXB10 Continue if enough roon 
2497 t 
2498 * No roon to Allocate / Expand buffer 
2499 x Collaspe Lex Buffer 
2500 : Set C(S)=1 so I1/OEX2 won’t use Leeway in MENCHK 
2501 
2502 10E20 32CF LEXBSP LC(3) =bLEX 
B 
2503 10E25 8E00 GOSUBL =I/OCOL Collapse Lex Buffer down 
00 
2504 10E2B 21 P= 1 No leeway setting 
2505 10E2D 440 GOC LEXB35 BE. 1. 
2506 x 
2507 * Add Built-in XROM and MAINT to LEX Table Buffer 
2508 * Set C(S)=0 so I/OEX2 will use Leeuay 
2509 * If not enough roon to expand, (C(S) <-- 1 
2510 x 
2511 10E30 20 LEXB30 P= 0 
2512 10E32 80FF LEXB35 CPEX 15 
2513 x 
2514 * Set R3 @ "00" to indicate End of File chain for XROMO1 and 
2515 * MAINT. 
2516 * Position DO @ start of XROMO1 (@ LEX ID field) 
2517 : GOSUB at secondary entry point in LEXFND to add XROMO1, MAINT 
2518 
2519 10€36 20 P= 0 P could be 1 from jump to LEXB35 
2520 10E38 3400 LC(5)  =RTNSXN Point @ "00" byte 
000 
2521 10E3F 108 R3=C End of file chain kludge 
2522 10E42 1800 DO=(5) =xridis Start of XRONO1 
000 
2523 10649 7901 GOSUB LEXFOO Add XROMO1, MAINT to Lex Buffer 
2524 10E40 52D GONC =LEXBSP No roon to expand 
2525 x 
2526 *% Handle special configuration problens here: 
2527 * ROMs noved 
2528 * Configuration warning 
2529 ‘ 
253%) 10650 11C C=R4 
2531 10E53 812 CSLC 
2532 10E56 OR ST=C Restore status bits 
2533 10658 863 ?S$T=0 3 Systen configuration changed? 
2534 10E5B 91 GOYES PUTB25 No. 
2535 10E5D &4A ST=0 = 10 Request CLPSTK 
2536 10660 85B ST=1 11 Request nocat 
2537 10E63 84D ST=0 13 Clear RUNNING flag 
2538 10E66 20 P= 0 
2539 10668 8£00 GOSUBL =EDITWF Edit workfile. 
00 
2540 10E6E 8E00 GOSUBL =CLOSEA Close all files. 


00 
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2541 10674 1FB7? PUTB25 D1i=(5) =ESCSTA Location of display buffer 
4F2 

2542 10E7B 20 P= 0 ‘ 

2543 10E7D 3400 LC(5) (OSPNSK)+24-(ESCSTA) 
000 

2544 10684 8FOO GOSBVL =WIPOUT Clean out display buffer 
000 

2545 10E8B 8E00 GOSUBL =NOSCRL Clear scroll bit 
00 

2546 10691 11C C=R4 

2547 10694 812 CSLC 

2548 10£397 OA ST=C Restore status bits 

2549 10E93 861 ?ST=0 1 Any ROMs rubbish? 

2550 10E9C 01 GOYES PUTB30 No 

2551 10E9E 3300 LC(4) =e2MRON 
00 

2552 10EA4 28 P= 8 

2553 10ER6 8E0O GOSUBL =MFWRN Yes. “e2MROn" 
00 

2554 10EAC PUTB3O 

2555 x 

2556 * Set up for configuration poll 

2557 x 

2558 1OEAC 1F47 D1=(5) =DSPCHX Clear HPIL address 
6F2 

2559 10€B3 D2 C=0 A 

2560 10EB5 145 DAT1=C A 

2561 10EB8 8E00 GOSUBL =CL-IDS Nark buffers for deallocation 
00 

2562 10EBE 8E00 GOSUBL =RS-IDS Restore necessary systen buffers 
00 

2563 10EC4 108 CON(3) =bSTNT Restore STMT buffer 

2564 10EC7 808 CON(3) =bSTART Startup 

2565 10ECR 908 CON(3) =bECOND Ext Crid 

2566 10ECD CFB CON(3) =bLEX LEX 

2567 10EDO 308 CON(3) =bFIB File Info Buffer 

2568 10ED3 408 CON(3) =bASSGN Assign buffer 

2569 10ED6 000 CON(3) 0 End of list 

2570 10ED9 8E0O GOSUBL =FIBON Restore file buffers 
00 

2571 x 

2672 * Look for unnarked CHARS buffer 

2573 m 

2574 10EDF 20 P= 0 

2576 10EE1 32BF LC(3) (=bCHARS)-#800 ID of unmarked alt chr set bfr 
3 

2576 10EE6 8E00 GOSUBL =IOFNDO Search for it 
00 

2577 1OEEC 571 GONC CNFPOL No find. Proceed to poll. 

2578 1OEEF FO ASL A Low nib of size to A[1) 

2579 10EF1 81C ASRB Low bit of size * 8 to ALO] 

2580 10EF4 90C 7RHO OP Odd buffersize? 

2681 10EF? DO GOYES CNFPOL Yes. Let ROM restore. 

2582 10EF9 32BF LC(3)  =bCHARS No. Charset buffer 1s pure. 
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2583 10EFE 8£00 GOSUBL =I/ORES Restore it. 
00 
2584 a 
2585 * Perforn configuration poll 
2586 te 
2587 10F04 8£00 CNFPOL GOSUBL =FPOLL 
0 
2588 10FOA BF CON(2) =pCONFG 
2589 
2590 * Restore 4 stack levels 
2591 x 
2592 10FOC 7ACA GOSUB = =RST<R3 Restore 4 stack levels 
2593 10F10 831 ?KM=0 Handled? 
2594 10F13 80 GOYES CNFP1O Yes. Restart configuration. 
2595 
2596 * I/Obuffer cleanup 
2597 x 
2598 10F15 8CO00 CNFP20 GOLONG =AUTDEL Delete any buffers not restored 
#0 
2599 10F1B 8C2F CNFP1O GOLONG PWCONF 
2600 er JOO III UII ICSI OT TS AT IIIS SIS AH 
2601 JORIS JUS OI I III ISI TIS IIIS IIS ISI OSI ISIS ASIII IIA. 
2602 a 
2603 ** Nane:(S) pCONFG - Configuration Poll 
2604 xk 
2605 ** Category: POLL 
2606 am 
2607 ** Type: FPOLL 
2608 
2609 ** Purpose: 
2610 a Poll at termination of configuration to allow: 
2611 ak 1) Claining of 1/0 buffers. 
2612 ae 2) Changing configuration of nachine. 
2613 kk 
2614 ** Should poll be "Handled" (return with XM=0)?: 
2615 an Yes, but ONLY IF reconfiguration is desired. 
2616 ak 
2617 ** Meaning of "Handling" Poll (what does code do if handled?): 
2618 Kx Calling code junps to beginning of configuration code 
2619 ae and reconfigures the syster. 
2620 a 
2621 ** Entry conditions for handler (registers, ST, RAM, etc.): 
2622 xs Carry set. 
2623 Ke BLA) = Poll nurber. 
2624 ak HEX node. 
2625 ak P=Q, 
2626 xe 
2627 *& Nornal exit conditions fron handler if handled (ST, RAM, 
2628 ** registers, etc.): 
2629 mn HEX rode. 
2630 ah XM=0. 
2631 ae 
2632 *k Norrial exit conditions fron handler if not handled (ST, RAN, 
2633 ** registers, etc.): 
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2634 ax HEX node. 
2635 ak KMN=1, 
2636 RS 
2637 ** Available subroutine levels: 
2638 am --FPOLL handler is tuo levels deeper than caller-- 
2639 ak LEXBUF (fron where pCONF is invoked) saves 3 stack 
2640 wk levels. A responder nay use UP T0 3 levels 
2641 kk 
2642 ** NOTE: 
2643 a "Handling" the poll (returning with XM=0) is very 
2644 aR serious business. It means that you want the nachine 
2645 aS reconfigured. Lazy writers of poll handlers who fail 
2646 ak to RTNSXMN when they should can hang the machine in 
2647 kk CONFIGURATION forever. 
2648 ak 
2649 ae -~SCRATCH RAM TO CONSIDER BELOW: -- 
2650 ax --STMT/FN Scratch, SCRICH, SNAPBF, TRFNBF, LDCSPC, -- 
2651 aR -- LEXPTR. -- 
2652 kk 
2653 **k What registers/RAM nay be used if handled?: 
2654 a All CPU registers. 
2655 ae All scratch RAM (I think). 
2656 aR 
265? ** What registers/RAM nay be used if not handled?: 
2658 Sal All CPU registers except D[A}. 
2659 ak All scratch RAM (I think). 
2660 x 
2661 **k Special menory/pointer considerations (are pointers funny?): 
2662 xx Nay be in CALC rode. 
2663 oe 
2664 kk Envisioned application(s): 
2665 aK Three main ones: 1) claining 1/0 buffers, 2) creating 
2666 a 1/0 buffers, and 3) changing configuration. 
2667 ae 
2668 ak 1) Claiming: This 1s the tine to reclain 1/0 buffers to 
2669 eA keep then fron being deleted. Just before this 
2670 a poll, all 1/0 buffers are narked for deletion. To 
2671 me keep your I/0 buffers fron being deleted, you need 
2672 oe to perforn an I/ORES on those you want to keep. 
2673 xe (Marking/unnarking for deletion consists of 
2674 kx clearing/setting (respectively) the upper bit of 
2675 xe the buffer ID nunber. Until the buffer is restored 
2676 wk (unriarked), it will not be found with I/OFND 
2677 aK because it will have a different number. } 
2678 ak 
2679 x 2) Creating: This may be the tine to create needed 
2680 re 1/0 buffers. Or you may have done it at wakeup 
2681 a tine. Or naybe sore other tine. But maybe here. 
2682 a 
2683 x 3) Changing: There are certain ways software can change 
2684 ae the configuration of the machine; specifically by 
2685 aS doing FREE or CLAIM port. Sample situation: a 
2686 x plug-in ray contain a ROM with a RAM intended only 
2687 a for the ROM’s use. When polled at configuration 

re 


2688 


tine, the ROM examines the RAM table and deterrines 
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2689 aia that the RAN living in the sarie plug-in 1s 
2690 a configured as systen RAM. The ROM then perforns all 
2691 aA the trappings of FREEPORT except the configuration. 
2692 ah It then indicates that the poll has been handled, 
2693 af and the code reconfigures the systen. When this 
2694 aR poll happens again (as it inevitably will), the ROM 
2695 x will see that its coripanion RAM 1s configured as 
2696 a IRAN, and will not repeat this nonkey business. 
2697 aR 
2698 ** History: 
2699 RE 
2700 xe Date Programmer Modification 
2701 KR nanan n ene e ewe e een e ne perenne ree nn nnn nnn enn nen reer ne 
2702 *k 05/11/83 NM Added docunentation 
2703 *k 07/05/83 JP Added stack level usage 
2704 aK 
2705 JI IIT OT IT TTI TEI IIIT TITS T II IIIT IITA SI I 


2706 FOTO OIC TIO OT TOTTI TOIT TIT IK 
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2707 STITLE LEXFND - Find ang Ext Files 
2708 JOO IO TS IIIT IIIA R II ITI III IIA IAT IAA 
2709 JOO TIT OTITIS III IT ISIS II IOI I IIIS III ITI IK 
2710 ae 
2711 a Narie: LEXFND - Find All LEX Files Within File Chain 
2712 - 
2713 ** Category: CONFIG 
2714 ke 
2715 ** Purpose: 
2716 as Find all Language Extension Files within a file chain 
che ah Find all Language Externsion Files within one file 
2718 xk Calculate Main Table start for each file 
2719 ak Add LEX ID, Token Range & Main Table start to LEX Table 
2720 aR Buffer. 
2721 Kk 
2722 xk Entry: 
2723 ne LEXFND: P= 
2724 a D1 @ First file in chain 
2725 xR C(S) 1s cleared for LEEWAY check on expand 
2726 ae LEXFOO: D1 @ Lex ID of Lex file (xronO1) 
2727 ae R3 @ Next file address 
2728 aK @ "OO" byte to indicate NO other files 
2729 a C(S) Set to 1 if no LEEWAY check in Buffer 
2730 a Expand. 
2731 a Used when no roon & adding XROMO1 /MAINT 
2732 AR Set tO 0 if LEEWAY check in Buffer Expand 
2733 ae 
2734 ze Exit: 
2735 = P=0 
2736 a Carry set 
273? a LEX Table updated with all Extension files in chain 
2738 ae Carry clear 
2739 ae Not enough nmerory to add to Lex Buffer 
2740 ax 
2741 xk Calls: RDHOR1 , ASLW5, 1/0EX2 
2742 aR 
2743 ** Uses..... 
2744 kk Exclusive: A,B,C,D,R2,R3,01, D0 
2745 *k Inclusive: A,B,C,0,R1,R2,R3, 01, OO 
2746 a 
2747 wk R2 = File Type (from RDHDR1) 
2748 aS R2(B) = LEX ID 
2749 xe R2(2-5) = Token Range 
2750 ae R2(6-10)= Main Table start 
2751 ists R3 = Next file address 
2752 aE R1 = Table information 
2753 xe used by ROMFND/LEXBUF (which calls 
2754 aA LEXFND ) 
2755 ae RSTK = Addr to Next Lex File within one file 
2756 ae 
2757 *t Stk lvls: 4 
2758 a LEXBUF (which invokds LEXFND) has saved 3 levels 
2759 as so actual usage is 1 (the CALL makes it 2) 
2760 a 


2761 ae 
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2762 ** Detail: 
2763 a 
2764 xk LANGUAGE EXTENSION FILE FORMAT 
2765 aE 
2766 ** Standard File Header 
2767 ae LEX ID 2 nibs 
2768 ** Token Range 4 
2763 *k Internal Lex File 5 
2770 ** Speed Table exists? 1 
2771 ex [ SPEED TABLE ] 78 (3*26) 
2772 *k Speed Table exists? 1 
2773 Ax TEXT Table Pointer 4 nibs 
2774 xk Message Table Pointer 4 nibs 
2775 ** POLL Handler Pointer 5 
2776 *k fain Table 
2777 kk Text Table 
2778 *k flessage Nunber Range 4 
2779 ak Message Table 
2780 aK : 
2781 aK 
2782 ah 
2783 ek Algorithn: 
2784 ai 
2785 xk Repeat 
2786 ak Set C(S)=0 for LEEWAY check on Buffer Expansion 
2787 ak Read first 2 nibs of filenane 
2788 ak Repeat until (End of chain)  (Filenane=0) 
2789 ak Set Request File Type flag (S9=0) 
2790 ax Read file header (RDHOR1) 
2791 ax Set DO = D1 (past header) 
2792 ax Compute address to next file 
2793 a Save address to next file (R3) 
2794 x If File type (R2) = Language Extension (fLEX) 
2795 *X LEXFOO: Repeat until Internal Lex File chain = 0 
2796 ak Read LEX ID & Token Range @ 00 
2797 a Save LEX ID, Token range,and LEEWAY setting (B) 
2798 RK Read Internal Lex File chain 
2799 ae If non-zero chain 
2800 ae Calculate address to next Lex File 
2801 as Save addr to next internal Lex file on stack 
2802 ae Load Offset to Main Table, including Speed Table 
2803 ax Read Speed Table nibble 
2804 ik If a speed table doesn’t exist (=F) 
2805 ae Subtract length of speed table 
2806 aK Shift nain table address over 6 nibs (ASLWS) 
2807 ae Save LEX ID and Token Range with Main Table (R2) 
2808 ae Expand LEX Table Buffer by 11 nibs (1/0EX2) 
2809 ae If not enough rierory to expand 
2810 ak Pop stack level off) 
2811 aK ReturnCC 
2812 ax Write out LEX ID, Token Range, Main Table start 
2813 ax Move LEEWAY Check setting back to C(S) 
2814 ax Get next Internal Lex File chain (RSTK) 
2815 x Set DO @ Start of next Lex File 


2816 ax Restore Next file address 
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2817 kK ORINSC 
2818 ak 
2819 ** History: 
2820 ay 
2821 RX Date Prograntier Modification 
2822 aaa aaa tain 
2823 kk 11/01/82 9 JP Rewrote for new Lex File fornat 
2824 ak 11/04/82 IP Add/Pack entry for XROMO1/MAINT add 
2825 *k 01/04/82 IP Rerioved $9 usage 
2826 ne 07/05/83 JP Pop stk level if RTNNC from I/OEK2 
ie JOO OI TTT IIT TER III III OT IIIS TRI I III III II TITS TI III IIIA 
9829 JI I I OTITIS III II III III III III III IIIB I SII IIIA IIA 
2830 10F21 AC2 =LEXFND C=0 S Set Leeway Check to Expand buffer 
2831 10F24 14B  LEXFD+ A=DAT1 B Read first 2 nibs of filenane 
2832 10F27 968 7A=0) OB End of Chain ? 
2833 10F2A 00 RTNYES 
2834 
2835 * Read file header, Set DO past header, Conpute next file 
2836 * address. 
2837 * Save next file address (R3) 
2838 x 
2839 10F2C 8FOO GOSBVL =RDHDR1 Read file header 
000 
2840 10F33 137 CDIEX 
2841 10F36 134 DO=C DO @ File Length field 
2842 10F39 164 DO=DO+ 1FLENh Position past header 
2843 10F3C C2 C=C+A A Next file=Ptr + File length 
2844 10F3E 108 R3=C Save next file address 
2845 x 
2846 * If file type = Language Extension 
2847 x Read LEX ID, Token Range and Save in 8 
2848 * If address to next Lex File within one file # 0 
2849 x Conpute next Lex File address 
2850 : Save next Lex File address within one file on stack 
2851 
2852 10F41 112 A=R2 Read file type 
2853 10F44 20 P= 0 
2854 10F46 3480 LC(S) =F LEX Lang Ext File type 
2£0 
2855 10F4D 8A2 *A=C OAR Lang Ext File ? 
2856 10F50 60 GOYES LEXFOO 
2857 10F52 6180 GOTO = LEXF 30 
2858 * 
2859 * Entry for Adding XROMO1 and MRINT in the Lex Buffer 
2860 * =R3. @ RINSXM instruction 
2861 : Indicates End of file chain, "Next file" = 00 
2862 x 01 @ Start of XROM1 @ Lex ID 
2863 * C(S) = Leeway Setting for MENCHK 
2864 - Default 1s LEEWAY checking (C(S)=0) 
2865 + 
2866 10F56 15A5 LEXFOO A=DATO 6 Read LEX ID and Token Range 
2867 10F5R AF8 B=A W Save it 
2868 10F5D 165 DO=DO+ (ILXID)+(1LXTKR) Skip LEX ID and Token Range 
2869 10F60 146 C=DATO A Read next Lex file chain address 
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2870 10F63 SAR 70-0) ~=6A End of chain ? 
2871 10F66 AO GOYES LEXF10 
2872 10F 68 132 ADOEX Current position in file 
2873 10F6B C2 C=C+A A Address to next lex file 
2874 10F6D 132 ADOEX Restore DO 
2875 10F70 06 LEXF10 RSTK=C Save next Lex file address 
2876 10F72 164 DO=D0+ ILXFAD 
2877 & 
2878 * Load offset to Main Table, including Speed Table length 
2879 * If no speed table exists (A(S)=F) 
2880 x Subtract length of Speed Table + additional Speed Table 
2881 & nibble. 
2882 * Calculate Main Table Start 
2883 : Save in R2(6-10), along with LEX ID and Token Range 
2884 
2885 10F75 D2 C=0 A 
2886 10F77 3105 LC(2) =oMAINT Offset to Main table 
2887 10F7B DA A=C A Move to A 
2888 10F7D 1524 A=DATO S$ Read Speed Table nibble 
2889 10F81 A4C A=A-1 S$ Speed Table Exists ? 
2890 10F84 480 GOC LEXF 20 Yes 
2891 10F87 31F4 LC(2) poe Len of spd table+Spd nibble 
2892 10F8B EA A=A-C Subtract speed table fron offset 
2893 10F8D 136 LEXF20 CDOEX Current position in Lex File 
2894 10F90 CA A=C+R A Offset to Main table 
2895 10F92 8£00 GOSUBL =ASLW5 Shift over 5 nibbles 
00 
2896 10F98 BFO ASL W Shift over 1 tore nibble 
2897 10F9B 25 P= 5 
2898 10F9D A94 A=B WP Transfer LEX ID, Token Range 
2899 10FAO 20 P= 0 
2900 10FA2 102 , R2=R Save LEX ID, Tkn Rng, Mn Tbl strt 
2901 
2902 * Save Leeway Setting in B(S) for future expands 
2903 * Expand LEX Table buffer to add new ID 
2904 x If not enough nenory --> RTNCC 
2905 * Write LEX ID, Token range, Main Table start 
2306 * 
2907 10FAS D2 C=0 A 
2908 10FA7 308 LC(1)  =1LLXENT Length to Expand 
2909 10FRA AFS B=C W B(Ai<-Length.B(S)<-Leeiay Setting 
2910 10FAD 32CF LC(3) =bLEX : LEX Table Buffer ID 
B 
2911 10FB2 8E00 GOSUBL =I/OEX2 Expand with C(S)=Leeway Check 
00 
2912 10FB8 07 C=RSTK POP next file address off 
2913 10FBA 500 RTNNC No room to expand 
2914 ‘ 
2915 ® Set DO at Next LEX file start (saved on RSTK) 
2916 * Move Next LEX file start in D(A) 
2917 * Move Expansion point in LEX buffer to C(A) 
2918 * Write out LEX ID.... into buffer 
23919 x 
2 2920 10FBD 134 DO=C Set DO @ Next Lex file start 


2921 10FCO DF CDEX A C<--exp pt in buf;D<--Nx file st 
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2922 10FC2 135 D1=C 
2923 10FC5 112 R=R2 Lex ID, Tkn Rng,Main table start 
2924 10FC8 159A ; DAT1=A 1LKENT Write LEX ID,Tkn rng,Main Tbl st 
2925 
2926 * Restore Leeway Check nibble 
2927 & When adding XROIW1 and MAINT with NO nenory left, 
2928 s LEEWAY cannot be included in the MenChk 
2929 x XROMO1 and MAINT are chained together, so the second 
29% k call to I/OEX2 must have C(S) set correctly 
2931 * Check if another LEX file is within one file 
2932 . 
2933 10FCC ACI C=B S Move Leeway Check back to C(S) 
2934 10FCF 8AF 7DHO OA Another Lex File ? 
2935 10FD2 48 GOYES LEXFOO Add another Lex file 
2936 x 
2937 * Move to next file in file chain 
2938 * Assunes that 
2939 * Within any file chain, adding Lex Files uses Leeway 
2940 x Checking. 
2941 *  C(S) nust be reset to 0 to insure a Leeway Check is done 
2942 * Only the XROMO1 and MAIN additions might use No Leenway 
2943 x checking. 
2944 x Since these Lex Files are chained, there is no "next" 
2945 . file. 
2946 s 
2947 10FD4 11B LEXF30 C=R3 Next file address 
2948 10FD7 135 D1=C 


2949 10FDA 664F GOTO LEXFND 
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2950 STITLE Check for ROMs, Find File Start 
2951 JOO OOO IOI IIIT TA 
2952 JORIS ICIS IOI ICICI OO GICI IOC IG IE 
2953 ak 
2954 ** Nane: ROMCHK - Find ROM / File Chain Start 
2955 ** Nane:(S) ROMFND - Find ROM / File Chain Start 
2956 xk 
2957 **k Category:  GENUTL 
2958 aa 
2959 ** Purpose: 
2960 ax Check if ROMs exist 
2961 aK Find file chain start within ROM/IRAM 
2962 kx Return Device Infornation about RON 
2363 ae 
2964 &k Entry: 
2965 am RONCHK: First tine entry point 
2966 ak Finds ROM Configuration Table 
2967 aA If non-enpty, save pointers required for entry to 
2968 ak ROMFND. 
2969 ak 
2970 ax ROMFND: Repeated entry point 
2971 x R1(X) = Length to end of Configuration Table 
2972 KA R1(3-7)=Position within Configuration Table 
2973 ak 
2974 ACERT: 
2975 AS P=0 
2976 ak RONCHK: 
2977 + Carry set: 
2978 ae Enpty Configuration Table 
2979 xe Carry Clear: 
2980 = D1,C(A) @ First file on plug-in 
2981 ak D(S) = Device type 
2982 ee 1 = IRAN 
2983 ak 2 = ROM 
2984 KK 3 = HP EEPROM 
2985 xm 4 = Intel EEPROM 
2986 ae Device type is increnented by 1 
2987 a to distinquish fron RAM 
2988 KR D(O) = Port Extender # (Device #) 
2989 as D(1) = Port # 
2990 aK D(2-7) = Nibs (3-8) of config table entry 
2991 xe Ri(X) = Length to end of Configuration Table 
2992 a R1(3-7)=Position within Configuration Table 
2933 R 
2994 a R1 nust be preserved betueen calls to ROMFND 
2995 aR 
2996 ax ROMFND: 
2997 a Carry set: 
2998 aA No rore ROMs 
2999 ae Carry Clear 
3000 ax Sane Exit Conditions as RONCHK 
3001 kk 
302 ** Calls: CNFFND 
3003 xk 


3004 kk Uses....... 
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3005 kk Exclusive: A-D,D1,R1 

3006 kk Inclusive: A-D,D1,R1 

3007 ae 

3008 ** Stk lvls: 1 

3009 ka 

3010 xx NOTE: 

3011 aK Ri nust be preserved betueen calls to ROMFND 

3012 ak 

3013 ** Algorithn: 

3014 x 

3015 **k RONCHK: Find ROM Configuration Table (CNFFND) 

3016 an If no table entries ---> RTNC 

3017 kk Nove to Device # field in table 

3018 aK Nove Table length to B 

3019 ax 1 

3020 ar Read Device#, Port# and Size infor into C,D 

3021 ax Read 3 High nib address & Device type 

3022 kk Adjust pointer (D1) to next entry in table 

3023 a Increnent & Move Device type to D(S$) 

3024 ke Calculate & Read first file address 

3025 ak Save Len of Config table & Next entry pos’n 

3026 kk in Rt. 

3027 ak 01 <-- Start of file 

3028 ak RTNCC 

3029 ** ROMFND: Restore Len of Config Table (Low 3 nibs R1 -> B) 

3030 aK Restore Position in Config Table (R1 --> D1) 

3031 kk 2: If entries left (B>0) 

3032 xk goto 1; 

3033 kx else 

3034 ak RTNSC 

3035 ak 

3036 ** History: 

3037 ak 

3038 an Date Progranner Modification 

3039 RR etoile kee” elle ss tee eee cee 

3040 - 07/09/82 IP Nodified docunentation 

* 

a JOISTS UGG IIIS TIE 

3043 FORO SOTO OO III IOI TIO IO IO IIIT IO 

3044 10FDE 20 =ROMCHK P= 0 

3045 10FEO 31EF LC(2)  =ROMCIO ROM Configuration Table ID 

3046 10FE4 74C9 GOSUR CNFFND Find Table 

304? 10FE8 938 7A=0) OK No table entries ? 

3048 10FEB 00 RTNYES 

3049 10FED 170 Di=D1+ 1 Move to Device # field 

3050 10FFO RBS B=A x Move Table length to B 

3051 * 

3052 * Read Device# (Port Extender#) and Port# and size information 

3053 * Move to Address field 

3054 * Read 3 High Nib address & Device Type 

3055 * Increnent & Move Device Type to D(S) 

3056 * Set 01,C(A) to first file in chain 

3057 * 

3058 10FF3 15F? ROMFIO C=DAT1 8 Read Device#, Port # 


3059 


1OFF7 AF? 


D=C 


W Save in D(B) 
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WOOO 1OFFA 172 Di=D1+ 3 Move to Address field 
3061 10FFD 15Fe C=DAT1 3 Read 3 nib Address 
62 11001 172 D1=D1+ 3 Nove to Device Type 
3063 11004 1574 C=DAT1 $ Read Device Type 
3064 11008 B46 C=C+1 § Increnent Device Type 
3065 1100B AC? D=C S Save in D(S) 
3066 1100E 173 Di=D1i+ 4 Move to next entry 
3067 11011 Fe CSL A 
3068 11013 Fe CSL A Move address to C(4) 
369 11015 38 LCHEX 8 Low addr of file ptr 
3070 11018 133 AD1EX Table ptr in ACR) 
3071 1101B 135 D1=C File ptr in D1,C(A) 
72 x 
3073 * Conpute first file start 
3074 * Save Configuration Table infornation 
3075 * Point to first file 
076 x 
3077 1101E BFO ASL OW Shift over Pos in Table 
3078 11021 BFO ASL W 
3079 11024 BFO ASL W 
80 11027 AB4 A=B B Save Table length 
81 1102A 101 R1=A Save pos’n in CNF table, len 
R82 1102D 03 RTNCC 
3083 x 
3084 * ROMFND Entry 
085 x Assunes: R1(X) = Length to end of Configuration Table 
3086 * Last returned LEX ID has NOT been 
3087 : decrenented yet. 
3088 - R1(3-7)=Posation to next entry in Configuration 
3089 . Table. 
HW x 
3091 1102F 111 =ROMFND A=R1 Restore length of Config Table 
3092 11032 ABS B=A x 
3093 11035 BF4 ASR W Shift Pos in table over 
3094 11038 BF4 ASR W 
3095 1103B BF4 ASR W 
3096 1103E 131 ; Di=A Pos’n within Configuration Table 
3097 
3098 * Check if ahyrore entries in Configuration Table 
3099 x 
3100 11041 20 P= 0 
3101 11043 32R0 LCHEX OOA Table entry length 
0 
3102 11048 B31 B=B-C XxX 
3103 1104B 939 ?B=0 = K No nore entries ? 
3104 1104E 00 RTNYES 
3105 11050 52A GONC RONF1O B.E.T. 


3106 11053 END 
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ADIP Abs 66368 #10340 - 808 712 714 
ASLW3 Ext 71 
ASLWS = Ext - 2895 
ASRW3 Ext = 76 
AUTDEL Ext - 2598 
AVMENE Abs 193945 #2F599 - 11 2067 2069 
AVMENS Abs 193940 #2F594 - 11. 1605 1678 1855 2069 2094 
C=MRIN Ext - 2054 2481 


=C=RAME Abs 66697 #10489 - 1312 55 1716 1915 
CDIViO Abs 68979 #10073 - 2190 1638 1957 
CDIV2O Abs 68988 #10D07C - 2194 2199 


CL-IDS Ext - 2561 
CLKSPD Ext - 2151 
CLOSEA Ext - 2540 
CLRXDS Ext - 2146 


=C(NFFND Abs 68012 HIO9AC - 1828 59 346 
CNFND3 Abs 68019 #109B3 - 1829 1846 
CNFNDS Abs 68032 #10900 - 1835 1832 
CNFP1O Abs 69403 #10F1B - 2599 2594 
CNFP20 Abs 69397 #10F15 - 2598 
CNFPOL Abs 69380 #10FO4 - 2587 2577 2581 
COLD Abs 67798 #108D6 - 1713 1698 1700 
COLD25 Abs 67459 #10783 - 1597 1600 


COLD3O0 Abs 67510 #107B6 1621 1624 
COLDS1 Abs 67379 #10733 1560 1558 
COLDST Ext 1659 


CON130 Abs 66913 #10561 - 1399 1404 
CONI40 Abs 66926 #1056E - 1403 1407 
CONISO Abs 66963 #10593 - 1416 1419 
CON160 Abs 66974 #1059E - 1420 1400 
CON170 Abs 67119 #1062F - 1461 1348 
CON18O Abs 67128 #10638 - 1464 1477 
CON190 Abs 67154 #10652 - 1472 1475 
CON200 Abs 67166 H1065E - 1476 1473 
CON210 Abs 67173 #10665 - 1478 1465 
CON220 Abs 67198 H1067E - 1490 1511 
CON225 Abs 67218 #10692 - 1496 1499 
CON22? Abs 67230 #1069E - 1500 1497 
CON230 Abs 67259 #106BB - 1510 1528 
CON240 Abs 67266 #1062 - 1512 1503 
CON2SO Abs 67274 #106CA - 1515 1517 
CON260 Abs 67289 #106D9 - 1621 1527 
CON265 Abs 67303 H106E7 - 1526 1524 
CON270 Abs 67312 #106FO - 1529 1491 
CON275 Abs 67332 #10704 - 1536 1534 
CON280 Abs 67527 #1077 - 1626 1556 
CON290 Abs 67566 #107EE - 1638 1636 
CON310 Abs 67579 #107FB - 1642 1655 1662 
CQN320 Abs 67588 #10804 - 1645 1664 
CQN330 Abs 67597 #10800 - 1648 1668 
CON340 Abs 67619 #10823 - 1656 1662 
CON35O Abs 67641 #10839 - 1663 1659 
CON360 Abs 67649 #10841 - 1665 1657 
CON370 Abs 67662 H1084E - 1669 1672 
CON380 Abs 67666 #10852 - 1670 1644 
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CON390 
CON400 
CON4 10 
CON4 20 
CON4 30 
CON440 
CON450 
CON4 60 
CON4 70 
CON4 SO 
CON4 90 
CON5O0 
CON510 
CON540 
CON550 
CONS60 
CONS 70 
CONS80 
CON590 
CON6OO 
CON610 
CON650 
CON660 
CONG 70 
CON680 
CON685 
CON690 
CON700 
CON710 
CON? 20 
CON? 30 
CON740 
CON750 
CON760 
CON? 70 
CON? 75 
CON?780 
CON?730 
CON8OO 
CON810 
CONC LD 
=CONF 

CONF 10 
CONF 20 
CONF 55 
CONF 60 
CONF 69 
CONF 70 
CONF P4 
CONFRS 
=CONFS3 
CONF ST 
CONP10 
CONP15 
CONP17 


Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 


67678 #1085E 
67691 #10866 
67728 #1089 
67740 #10890 
67776 #108C0 
67785 #1089 
67802 #108DA 
67809 #108E1 
67857 #10911 
67883 #1092B 
67914 #1094A 
67952 #10970 
67964 #1097C 
67994 #1099A 
68074 #109EA 
68105 #10AR09 
68138 #10R2A 
68145 #10A31 
68179 #10A53 
68191 H10A5F 
68196 #10R64 
68232 #10A88 
68242 #IOAS2 
68258 #1ORA2 
68269 H10RAD 
68297 #IOATI 
68486 #10B86 
68493 #10B8D 
68526 #10BRE 
68591 #10BEF 
68693 #10055 
68727 #10077 
68741 #10085 
68765 #10C9D 


6 bs F§ £ § 4 9 1 


68804 H10CC4 - 


68827 H10CDB 
68854 #10CF6 
68887 #10017 
68914 #10032 
68937 #10049 


68679 #10047 - 


66066 #10212 
66718 #1049E 
66756 #104C4 
66783 #104DF 
66787 #104E3 
66846 #IOSIE 
66858 #1052A 


66396 #1035C - 


66075 #10218 
66069 #10215 
195046 #2FSE6 
66407 #10367 
66414 #1036E 
66429 #10370 


1674 
1678 
1687 
1691 
1704 
1708 
1714 
1716 
1735 
1742 
1753 
1767 
1772 
1782 
1853 
1863 
1875 
1877 
1889 
1894 
1896 
1907 
1910 
1915 
1919 
1928 
1997 
2000 
2011 
2033 
2067 
2078 
2083 
2092 
2102 
2108 
2114 
2126 
2137 
2144 
2062 
649 
1319 
1340 
1348 
1349 
1378 
1382 
900 
652 
650 
11 
#4 
907 
912 


1647 
1673 
1715 
1688 
1706 
1710 
1694 
1690 
1752 
1737 
1741 
1759 
1770 


1766 
1876 
1888 
1868 
1883 
1892 
1864 
1896 
1914 
1912 
1924 
1933 
2032 
2010 
2008 
2003 
2056 
2076 
2086 
2079 
2061 
2093 
2138 
2123 
2143 
2117 
2072 


679 
1347 
1383 
1341 
1369 
1421 

718 
1535 


1563 
922 
908 
913 


1677 


1712 
1765 
1745 


1774 
1906 


1898 


735 


1632 
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CONP20 
CSLC3 

CSLW4 

CSLW5 

CSRC3 

CSRW3 

CSRS 

CURREN 
D=RAVNE 
DSLH-P 
DSPCHX 
DSPNSK 
EDITWF 
ESCSTR 
FIBON 

FNDB2O 
FNDBUB 
FPOLL 

I/OAL+ 
T/0COt 
I/OEX2 
I/ORES 
IDL1O0 
IDLOOP 
IDLP10 
IDLP20 
IDLP30 
IDLP40 
IDLP60 
IDLPS0 
=INITPT 
INTR4 

IOBFEN 
ITOFNDO 
=ISRAN? 
ISRINN10 
ISRN2O 
ISRN30 
ISRMCC 
KEYDN? 
KYON? 

LCFFC 

LEEWAY 
LEXB10 
LEX820 
LEXB30 
LEXB35 
=LEXBF + 
LEXBSP 
= LEXBUF 
LEXFOO 
LEXF10 
LEXF 20 
LEXF 30 
LEXFD+ 


Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


66460 #10390 


193900 #2F56C 


68683 #10C4B 
194164 #2F674 
193856 #2F540 


193659 #2F47B 


66672 #10470 
66658 #10462 


66345 #10329 
66102 #10236 
66160 #10270 
66164 #10274 
66242 #102C2 
66254 #102CE 
66271 #102DF 
66288 #102F0 
69013 #10095 
193536 #2F400 
193910 #2F576 


65938 #10192 
65979 #101BB 
66031 HIO1EF 
66050 #10202 
66061 #10200 
66361 #10339 


66688 #104380 

212 #OOOD4 
69138 H#10E12 
69145 #10E13 
69168 #10E 30 
69170 #10E 32 
69087 #10DDF 
69152 #10E20 
69083 #10DDB 
69462 #10F56 
69488 #10F 70 
69517 #10F 8D 
69588 #1OFD4 
69412 #10F 24 


923 
1447 
687 
1427 
1444 
1434 
131? 
i 
1681 
2063 
11 
11 
2539 
11 
2570 
1271 
1266 
2587 
2462 
2503 
2911 
2583 
738 
660 
679 
680 
707 
711 
716 
724 
2241 
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1449 
1441 
1571 


2034 
2558 
662 


658 


1274 
1269 


2470 


733 
678 
664 
673 
720 
707 
697 
695 
1673 


1585 


84 
63 
81 
54 
7273 


T2ie 
2074 
2496 
2492 
2431 
2505 


2484 


2523 
2871 
2890 
2857 
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917 


2038 
2543 
1321 


1424 


715 


737 
740 
1587 


78 


65 
907 


24394 


2524 
2856 


2065 


2541 


1428 


1607 


2935 
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=LEXFND 
LOCKWD 
LXBF ++ 
MAINST 
MFWRN 
NODS10 
nOoDS2@ 
NODS1Z 
MOVED2 
MOVEUA 
NOved3 
MRKNEW 
MRKOLD 
=NSIZ++ 
=MSIZE 
=MSIZE+ 
MTHSTK 
Moveu3 
NOSCRL 
PAKR40 
PAKRS50O 
PAKR60 
PAKR?75 
PAKR80 
PAKROM 
PRMPTR 
PUTB25 
PUTB30 
PUTBUF 
=PUCONF 
R3<RST 
R<Rstk 
RANEND 
RAUBFR 
RDHOR1 
RFADJ+ 
RFNBFR 
RONC10 
RONC 20 
ROMC 30 
ROMC40 
RONC5O 
=ROMCHK 
RONCID 
ROMF 10 
=ROMFND 
RONTPT 


RS-1DS 
RST<R3 
RINSXM 
Rstk<R 
SIZE10 
SORT 

SORT 20 


Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 


69409 
194482 
69093 
193880 


66590 
66600 
66579 


69026 
69041 
66573 
66567 
66570 
193945 


67006 
67009 
67044 
6710 
67110 
66981 
193975 
692 36 
69292 
68423 
66063 
68066 


193970 
193920 


193915 
68370 
68379 
68392 
684 20 
68423 
69598 

30 70 
69619 
69679 
66613 


68058 


66576 
66479 
66507 
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Syribol 


HIOF 21 
#2F 7B2 
#IODES 
#2F 558 


HIO41E 
#10428 
#10413 


#10DA2 
#10DB1 
#1040D 
#10407 
#1040A 
#2F 599 


#105BE 
#105C1 
#105E4 
#1061C 
#10626 
#105A5 
#2F 587 
#10674 
HIOEAC 
#10847 
#1020F 
#109E2 


#2F 5B2 
#2F 580 


#2F57B 
#1IOBI2 
#10B1B 
#10828 
#10844 
#10B47 
HIOFDE 
HOOBFE 
#HIOFF3 
#1102F 
#10435 


#1093DA 


#10410 
#IO3AF 
#103CB 


' 1 t ' t ‘ ' 1 ’ 1 $ t t t (] t 


2830 
1 
2467 
11 
2553 
1127 
1131 
1123 
2101 
2060 
1781 
2282 
2324 
1085 
1083 
1084 
1 
1902 
2545 
1429 
1430 
1440 
1455 
1458 
1422 
11 
2541 
2554 
1975 
648 
1850 
1851 
11 
11 
2839 
2107 
11 
1956 
1969 
1963 
1973 
1974 
44 
12 
258 
3091 
1175 
1983 
2562 
1848 
2520 
1849 
1086 
972 
982 


2483 
1561 
2154 
1571 


1129 
1133 
1346 


1660 
1661 

72 
1746 


1613 
2021 


1425 
1460 
1435 
1439 
1443 
1388 
1925 
2534 
2550 
1625 
2599 

651 


1613 
1605 


1585 
1954 
1972 
1968 
1964 
1969 
2490 
3045 
3105 
2493 
1353 
198? 


2152 
1395 


396 
987 


2495 


1567 


1665 
1663 


1753 
1611 


1437 
1446 


2474 
1312 


1970 


1360 
1991 


2592 
1431 


1225 
990 


2943 


2099 


1674 
1669 


1869 


1652 


1358 
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2102 


1877 


1729 


1726 


1943 


1976 


3:42 an 
Page 67 


197? 
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SORT40 
SORTP2 
STNBF? 
TBLPT+ 
TBLPTR 


UNCF G8 
=WAITKY 
WHLTBL 
WIPOUT 
bASSGN 
bCHARS 
bECOND 
bFIB 

bLEX 

bSTART 
bSTNT 
coldst 
cesrud 
csri6 
ecMRon 
f LEX 

LFLENH 
LLXENT 
LLKFAD 
LLXID 
LLXTKR 
LSPDTB 
1SPDn 
nPTR1 

nPTR2 
nPTR25 
nPTR3 
oMRINT 
pCONFG 
xrnHd1s 


Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 


2306 


66535 
66477 
69063 
66555 
66552 


66381 
66352 
66644 


2052 
367 
2057 
2051 
3068 
2056 
2049 
67367 
66712 
66709 


57864 
5 
1 


5 
2 
4 
78 
1 
5 
2 
5 
6 


93 
251 
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Syribol 


#103E7 
#103AD 
#10DC7 
HIO3FB 
H103F8 


#1034D 
#10330 
#10454 


#00804 
#OOBFB 
#00809 
#00803 
#OOBFC 
#00808 
#00801 
#10727 
#10498 
#10495 


#O0E 208 
#00005 
#00008 
#00005 
#00002 
#00004 
#OOO4E 
#00001 
#00005 
#00002 
#00005 
#00006 
#0005D 
#HOOOFB 


Table 


991 
971 
2457 
1032 
1031 
1721 
843 
773 
1222 
2544 
12 
~ 12 
- 12 
: 12 
: 12 
- 12 
- 12 
- 1557 
1317 
1316 
2551 
12 
12 
12 
12 
12 
12 
12 
12 
1571 
1585 
1605 
1613 


' 4 , ! ‘ ‘ t 4 ‘ ' i 


’ 4 ’ ' ' ' v ' 


- 2522 


984 
1547 
2153 
2109 
1222 
1727 

734 

670 
1334 


2568 
2575 
2565 
2567 
2469 
2564 
2461 
1655 
1033 
1223 


2854 
2842 
2924 
2876 
2868 
2868 
2891 
2891 
1672 
1586 
1606 
1614 
2886 
2588 


1653 
2464 


1335 
1863 
739 


703 
1482 


2582 


2502 


2563 
163? 


2041 


2908 


1918 


1938 


1352 
1907 


725 
1542 


2566 


1713 
2111 
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1981 
1359 
1934 

774 


2310 


1955 


1543 
1942 


1508 


2062 


1983 


1551 
1975 


1521 
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1626 
1982 
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Input Paraneters 
Source file nare is MN&CNF:: NS 
Listing file nare is MN/CNF:TI:ML::-1 
Object file name 1s MNZCNF: TI: MS::-1 


111111 
0123456 789012345 
Initial flag settings are 
Errors 
None 
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Ver. 3.39/Rev. 26 Page 1 

1 * SSS ccc & FREFF 1]. 1 

2 & $ S$ €¢ C€ &&% F I. 

3 x S E & 8 F I Lt 

4 x SSS. oC & FFFF TI ot 

5 - S$ ¢ &&& F I ot 

6 x Ss $ C € & & F I t 

? Z $33 ccc 8% & F TTI Lttete 

8 x 

g k 
10 
14 TITLE File Utility & Systen Buffer Routines<831229. 1811> 
12 11053 ABS #11053 
13 ROSYNB TIZEQU: : MS 


14 RDSYMB SBZRAN: : MS 
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15 EJECT 
16 JI III TID ITT TT TDD TTI IIIT T ISI IIIS SOT ISI ODI III IIIS AISI IIIA 
17 JOT IIDC TI III I IT II ISTO IIT TAOS ITT ISI TAS 
18 xk 
19 ** Narie:(S) FIYPFH - Look Up File Type Given Type Nunber 
20 xk Narie: FTYPFD ~- Look Up File Type Given Type Nunber 
21 xk 
22 **k Category:  FILUTL 
23 xt 
24 ** Purpose: Searches the nainfrane and LEX File type tables for 
25 oa a given file type nuriber. 
26 a A pFTYPE poll is issued to search file type table in 
27 xe external LEX file if the mainfrane file type table 
28 an does not contain the file type. 
99 xR 
30 *k Entry: 
31 ak FTYPFH: 
32 ae A(A) = File type # (high nib = 0) 
33 ar FTYPFD: 
34 ae D1 pts to file type # 
35 xe 
36 AX Exit: 
37 aR D1 preserved 
38 ay RO = D1 entry state. 
39 an Carry set => C(A) and B(R) point to start of entry 
40 AX B(S)=position of file type# within 
44 ax entry (1 = first filetype, etc.) 
42 aK A(R) = File type nurber 
43 aX Carry clear => not found 
44 xk 
45 ** Calls: POLL, FTBSCH 
46 ak 
47 xt Uses: 
48 kk Exclusive: A(R), C, RO 
49 *k = - Inclusive: A(A),B(S),B(A),C, RO 
50 x 
51 KK Stk Lvls: 2 
52 xk 
53 JI IO ICUS ISIS ITI IIIS SIT IIT ATT 
54 JI II I IO ITI I IIIS II III IIT IIIS III IA 
55 . 
56 JOISTS ICI IOI TT III ITI TI 
5? JOU TEI IOI GIGI III III TI IIT ITOK 
58 ak 
54 *k Nane:(S) pFTYPE - Search for file type table entry 
60 xk 
61 ** Category: POLL 
62 xk 
63 ** Type: POLL 
64 a 
65 *% Purpose: 
66 ** Search file type table in LEX file for a given file type 
67 - nunber. 
6&8 a 


69 ** Should poll be "Handled" (return with XN=0)?: Yes 
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20 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
104 
102 
103 
104 
105 
106 
10? 
108 
109 
110 
114 
112 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
123 11053 DO 
124 11055 15B3 


xk 
ak 
ak 
xk 
kk 
x 


=F 
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Meaning of “Handling” Poll (what does code do if handled?): 
Returns with D1 pointing to the file type table entry 
that contains the file type. 


Entry conditions for handler (registers, ST, RAN, etc.): 
BLA} = Poll nuriber. 
HEX rode. 
P=0, 
A[A] = file type 


Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

KN=0. 

D1 pts to start of the file type entry in the table 

A(S) = Position of file type number uithin entry 

(1 = first file type, etc.) 
A[A] = As entry condition 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear 

HEX node. 

KM=1. 


Error exit conditions fron handler: 
Carry set. 
Hex node. 


Error can only happen when there is not enough nenory to 
do the poll at all. 
Available subroutine levels: 4 
What registers/RAM may be used 1f handled?: 
A-C, Di, P 
What registers/RAMN nay be used if not handled?: 
A-C, Di, P 
What registers/RAM nay be used if error exit (POLL only)?: 
A-C, D1, P 
History: 
Date Progranrer Modification 
04/20/83 SC Docurent 
SII IAI II TI III III II II II III III III ISIS SSSI IISSISISSI IIIS TAK 
FOI TIT I IID IAT I IIIT STII II II IOS ITI IIIT SI ISIS III ISIS SI ISIS IS SII 
TYPFD A=0 A 


R=DATI 4 
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125 
126 
12? 


128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
144 
142 
143 
144 
145 
146 
147 
148 
149 
150 
154 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
17? 
178 


11059 13? 
1105C 108 
1105F 1F0O 
000 
11066 7920 
1106A 4E1 
1106D 7A46 
11071 D2 
11073 137 
11076 DS 
11078 AC8 
1107B 7A00 
1107F 470 
11082 831 
11085 00 
11087 03 


11089 118 
1108C 135 
1108F 09 
11091 01 


11093 13? 
11096 DS 
11098 137 
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=FTYPFH CDIEX 
RO=C 
01=(5) 


GOSUB 
COC 
GOSUB 
CON(2) 
CDIEX 
B=C 
B=A 
GOSUB 
GOC 
?XM=0 
RTNYES 
les RTNCC 


FTYP10 C=RO 
D1=C 
C=8 
RTN 


=FTYPE 


FTBSCH 
FTYP10 
poll 
=pFTYPE 


A 
S 
FTYP10 
FTYPOS 


A 
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SAVE D1 IN RO 


SEARCH THE MAINFRAME TABLE 
FOUND THE ENTRY IN MAINFRAME TABLE 
POLL TO SEE IF ANYBODY KNOWS IT 


GET POINTER TO C(A) 
CoPY TO B(A) 
COPY POSITION TO B(S) 


SAY NOT FOUND IF CARRY SET 
ANYBODY HANDLES IT ? 

IF SO, SET CARRY AND RETURN 
CARRY CLEAR -> NOT FOUND 


RESTORE D1 FROM RO 


FOR IIIT TT IT TT TTT TIN 
JOR ROI TIO IOI OOO TT UOT TOI RTT TI 


ak 


* 
kk Category: 
ak 
** Purpose: 
ik 
*k Category: 
kh 


kk Nanie:(S) FIBSCH - 
* 


FILUTL 


FILUTL 


Search a File Type Table by Type Nunber 


Searches file type table by file type number. 


*k Entry: A(R) = file type to search for (high nib = 0) 
ne D1 points at start of table 

oh 

AX Exit: ACA) = entry state 

a Carry set => B(A) = pointer points to start of 
ai entr 

a B(S) = position of filetype # within 
ax entry 

AX Carry clear => not found 

ik 

** Uses: 


kk = Inclusive: B(S),B(A),C(S},C(R), 01 


ae 


x* Calls: 
AK Stk lvls: 0 


at 


None 


JORIS RRO IOICOOTTTTRIIOK 
ORR OOOO OOO IO IOIC 


x 


=FTIBSCH CDIEX 
B=C 
CDIEX 


A 


SAVE ENTRY ADDRESS IN 8(A) 
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179 11098 1577 C=DAT1 W 
180 1109F B66 C=C+1 8B 
181 110A2 456 GOC FASC25 
182 110A5 17F Di=D1+ 16 
183 110R8 RCI B=0 $ 
184 110AB D2 C=0 A 
185 110AD 941 FTSH20 *B=C § ALL TYPES IN THIS ENTRY CHECKED? 
186 11080 3E GOYES FIBSCH 
187 110B2 B45 B=B+1 § Increnent position counter 
188 110B5 15F3 C=DAT1 4 READ THE TYPE NUMBER 
189 110B9 173 D1i=D1+ 4 
190 110BC 8A6 ?AHC OA 
191 110BF EE GOYES FTSH20 
192 110C1 02 RTNSC IF FOUND, SET CARRY & RETURN 
193 $I III IIT II IIIT III IIIA III III II II ITS III III III SIS S IIIS IIIS ISIS: 
194 $I II DOT ISSO I IIIT IIS SI IS IO SOIT ISI OOS ISIS SII SOI SA 
195 ax 
196 - Narie:(S) FASCFD - Look Up File Type Given Type Nare 
197 
198 *k Category:  FILUTL 
199 x 
200 ** Purpose: Search the mainfrane and LEX file type tables for a 
201 aK given file type nunber. A pFASCH poll is issued to 
202 ** search the LEX file type table if the mainfrane 
203 ax file type table does not contain the file type. 
204 kk 
205 ** Entry: D1 points at the beginning of the file type nane 
206 ax which 1s up to five characters with trailing 
207 ax blanks. 
208 .* 
209 ak Exit: D1 past the given file type nare. 
210 tes P= 0 
211 ak Carry set => A(3-0) = file type number 
212 a Carry clear => File type not found. 
213 aK 
214 ** Calls: POLL, FILEP!, FASCH, 
215 am 
216 &x Uses: A,B,C,R3, $10 
217 he: 
218 *X Stk lvls: +3 
219 a 
220 $I III TOTO STII R TT IIIT IIT IS IIIT I IIIS ISSI ASIST SSIIS IIS 
224 JI I III IOI I TI TIA IIS TI II SII SISO III IOS III IIS IIS S OI IIIS SSSI IN 
x 
3 JI III OI I II II III TIO IB I III ITI III IIS I IOI III I ISIS III IIIS IK 
224 JI TI II II I ITI TI ITI I III IIR III II IOI I ISI III III IAD III III II ATI A 
225 ax 
226 a Nane:(S) pFASCH - Search for File Type by Nare 
227 . 
228 kx Category: POLL 
229 an 
2H *x Type: POLL 
231 ax 
232 ** Purpose: 


233 x Search file type table in LEX file for a given file 
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2x4 ax type nane. 
235 aX 
236 . Should poll be “Handled” (return with XN=0)?:Yes 
237 
238 ** Meaning of "Handling" Poll (what does code do if handled?): 
239 ax Returns the file type number for the unprotected forn 
240 ax of the file type. 
241 aK 
242 ** Entry conditions for handler (registers, ST, RAN, etc.): 
243 ka B[A] = Poll nunber. 
244 ak HEX rode. 
245 ax P=0. 
246 x A[9-O]= File type in ASCII, right justified with 
247 kx leading blanks(first character in A(B)). 
248 ax 
249 kK Nornal exit conditions from handler if handled (ST, RAN, 
250 ** registers, etc.): 
251 ax Carry clear 
252 ex HEX node. 
253 ates xN=0. 
254 ae A[3-0] = File type nunber 
255 xe 
256 kk Nornal exit conditions fron handler if not handled (ST, RAM, 
257 *x registers, etc. ): 
258 ae Carry clear 
259 maa: HEX node. 
260 we xMN=1, 
261 aig 
262 ** Error exit conditions from handler (POLL only): 
263 ae Carry set. 
264 ax HEX node. 
265 ad Error can only happen when there is not enough menory to 
266 ae do the poll at all. 
267 xe 
268 ** Available subroutine levels: 4 
269 ae 
270 xx What registers/RAM may be used if handled’: 
27) is A-C, Di, P 
272 xe 
273 ** What registers/RAM nay be used if not handled?: 
274 ax A-C, DI, P 
ero xa 
276 ** What registers/RAM may be used 1f error exit: 
ef? a A-C, D1, P 
278 aie 
279 Ae 
280 ** History: 
281 aa 
282 a Date Progratiner Modification 
283 RE: Vo se Sete. Geteewtetes oy Hooke boot beue eek sleet eee 
284 ke 04/20/83 = SC Docurient 
2 5 ae 
oS JOSIE IOC III II III IIIT III TIO TAIT 
287 FOI IO TOI OOOO OIG IOUT OI OOOO OIC IOI 


288 * 
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289 
290 
291 


292 
293 
294 


295 
296 
297 
298 
293 
0 
1 
R2 
H3 
H4 
5 
6 
7 
H8 
H%9 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 


110C3 
110C5 
110C8 


110CF 
11002 
11005 


1100C 
110E0 
11063 
110€6 
110ER 
110EC 
TIOEF 
110F2 


110F4 
110F? 
110FA 


T1OFC 
11OFF 
11102 
11105 
11108 
1110A 
1110C 
1110F 
11113 
11116 
11118 
1111B 


eF 
4 
8F00 
000 
13? 
10B 
1FOO 
000 
7010 
431 
AF4 
7105 
C2 
470 
831 
20 


118 
135 
01 


AFS 
14F 
B66 
540 
03 
29 
174 
1571 
911 
D1 
179 
D2 
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=FASCFD P= 15 
LCHEX 4 
GOSBVL =FILEP! READ TYPE NANE INTO A-REG 
CD1EX SAVE D1 IN R3 
R3=C 
D1=(5) =FTYPE POINTS TO START OF MAIN TABLE 
GOSUB FASCH SEARCH THE MAIN TABLE 
GOC FASC10 FOUND 
A=B W Put type back to A-reg 
GOSUB poll NOT FOUND, POLL RON 
CON(2) =pFASCH 
coc FASC10 SRY NOT FOUND IF CARRY SET 
*KN=0 ANYBODY HANDLE IT? (ADJUST CARRY) 
GOYES FASC10 
x 
FASC1IO C=R3 RESTORE D1 FROM R3 
Di=C 
RTN 


k 
FORO IO JOJO ITI I IOI OI OO OI III GIGI II OOO OOK 
FOTO RRO JO OURO OIRO JOIST OO OOO OOO tor 
ki 

xX Nane: 
ks 
kk 
ae 
x 
ak 
** Entry: A(9-O) = Type nane in ASCII (right justified, 

KR blank filled (first character in A(B)). 


FASCH - Search a File Type Table by Type Nane 


Category:  FILUTL 


Purpose: Search a file type table for a file type nane 


aK D1 pts at start of table 

Aa 

KK Exit: Carry set => A(3-0) = File type. 
mn Carry clear => Not found. 

kk 

xk Uses: A,B,C,01 

kk 


Kk Stk lvls: +0 
JI IO IO TO I TIT TIT I ITI T IIIT ITI IIIS ISI IITA 


FOI TOTO TOO TTT TOT TIT II 
x 


=FASCH B=A W 
FASC20 C=DAT1 B 

C=C+1 8B 

CONC FASC30 

RTNCC 


SAVE TYPE NAME IN B-REG 
END OF TABLE ? 
FASC25 


FASC 


P= g 
Di=Di+ 5 
C=DAT1 UP 
?B=C = OWP 
GOYES FASC40 
D1=D1+ 10 

C=0 A 


POINTS TO TYPE NAME OF THE ENTRY 


FOUND 
SKIP OVER THE TYPE NANE 
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42 
343 
344 
345 
346 
4? 
48 
349 
350 
351 
352 
353 
354 
355 


11110 15FO 
11121 C6 
11123 C6 
11125 133 
11128 CA 
14112R 131 
1112D 170 
111% 5EC 
11133 17A 
11136 1883 
1113A 20 
1113C 02 
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FASC40 


C=DAT1 1 
C=C+C A 
C=C+C A 
ADIEX 
A=A+C A 
D1=A 
01=D1+ 1 
GONC FASC20 
01=D1+ 11 
A=DAT1 4 
P= 0 
RTNSC 
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READ # OF TYPES 
MULTIPLY IT BY 4 


POINTS TO NEXT ENTRY 


(B8.E.T.) 
POINTS TO 1ST TYPE IN THIS ENTRY 
READ THE TYPE TO A 
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356 : STITLE Search channel # in Assign Table 
=. RISK III ITI I DI AISI ISI SIS IIIS II III III SI IIII III ISIS IS ISSO SSIS IISA TS. 
359 FRI III STATI DIDI OAI ITI IIIS SII IIIS IIIS IIIS IIIT III IAT I ISS IIIS ISIS: 
360 xk 
361 = Narie: GETARG - Get argunents fron progran line. 
362 * 
363 ** Category:  EXCUTL 
364 ah 
365 ** Purpose: Get one or tuo nuneric arguments fron a progran 
366 as line. 
367 ae 
368 ** Entry: DO points at the terninator preceds the argunent. 
369 ak (May be a comma token or end-of-line Pekan). 
370 aK 
371 aK Exit: R2(A) = 1st argunent(sero if no argunent found) 
372 R3(A) = 2nd argunent(zero if onle one argument) 
373 x 
374 ** Calls: EXPEX-, CHKEOL, POPARG 
375 a 
376 *k Uses: Everything except the STMTRO & STNTR1 
377 ax (expression execution is called) 
378 ak 
379 ** Stk lvls: +5 
380 o 
381 KI IK SII SII SSI I IIIS SIISIS IIIS III IIIS III IA ISIS I II IIT IIT II II STII AS 
382 SRI IRI IIT DI III III IIIT III IS III III IRI IS ISIS III II IIIS III III SIS IIMA 
383 _ 
384 1113E 8EOO =GETARG GOSUBL =CHKEOL CHECK IF AT END OF LINE 
00 
385 11144 504 GONC NOARG IF SO, NO ARGUMENT FOUND 
386 11147 161 DO=D0+ 2 
387 1114A 8E00 GOSUBL =EXPEX- 
00 
388 11150 8E00 GOSUBL =CHKEOL SEE IF AT EOL AFTER 1ST ARGUNENT 
00 
389 11156 582 GONC ONEARG IF SO, ONLY ONE ARGUMENT FOUND 
390 11159 161 DO=D0+ 2 
391 1115C 8E00 GOSUBL =EXPR 
00 
392 11162 7820 GOSUB POPARG 
393 11166 17F 01=D1+ 16 DROP THE STACK 
394 11169 AF2 GARGIO C=0 W 
395 1116C Dé C=A A 
396 1116E 108 R3=C R3= 2ND ARGUMENT 
397 11171 7910 GOSUB POPARG 
398 11175 AF2  GARGIO C=0 W 
399 11178 06 C=A A 
400 1117A 10A R2=C R2 = 1ST ARGUNENT 
401 11170 03 RTNCC 
402 1117F AFO  ONEARG A=0 W 
403 11182 56E GONC GARGIO 
404 11185 AFO NOARG A=0 W 
405 11188 103 R3=A 
406 11188 59E GONC  GARG30 
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407 x 
408 ORI IIIS ITI I III III ITI TSI ST IIT III SEI IIIS ISI I IIIS III ISS I III IITA IA 
409 JOO I I STI III III III OT II SII SIRI TT TIS IOI III III IIS IISA IA IK 
410 xR 
411 ** Nane: POPARG - Pop and Convert Argunent to Binary 
412 a 
413 ** Category:  EXCUTL 
414 aR 
415 ** Purpose: Pop a nuneric nunber off the math stack and convert 
416 AK it to binary 
417 xR 
418 ** Entry: D1 points at top of the wath stack. 
419 ah 
420 RS ENit: A(A) = Binary of the argunent. 
421 ak Error exit to error routine if argurient greater 
422 mK than 5 hex digits or negative nunber or complex 
423 ae nunber. 
424 ze 
425 *k Calls: POPIN, FLTDH 
426 a 
427 xx Uses: A, B, C, XM 
428 am 
429 Xk Stk lvls: +1 
430 ax 
431 aR 
432 JI I I III TI TIT IO TIT TT IT TTI OTST III II III III III II III ISI III IASI IK 
433 JOO OI III SII II TIE IIT TOIT I III STI IIIT III III III III III ISI ISI IIA 
434 1118E 8E00 =POPARG GOSUBL =POP1N 
00 
435 11194 04 SETHEX 
436 11196 4F0 GOC CNPLER 
437 11199 8E00 GOSUBL =fltdh 
00 
438 1119F 400 RTNC 
439 * NEGATIVE NUMBER OR HUGE NUMBER SAY "OUT OF RANGE" 
440 x 
441 111A2 6EA2 GOTO OQUTRNG 
442 
443 111AR6 8COO CMPLER GOLONG =RDATTY 
00 
444 
445 XCMPLER LC(2) =eDATTY 
446 * GOTO  ERREX 
44? x 
448 FORO OO OIRO OR OOO OOO II IGIIOI OI 
449 erecta etisetettestttsttetretsttctcctestectrettirtesticttetrcce. 
450 a 
491 *X Narie:(S) pSRECH - Position to Rec# of File u/Copycode 8 
452 aK 
453 ** Category: POLL 
454 as 
455 *X Type: POLL 
456 as 
457 x3 
458 *t Purpose: 
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459 x Set file pointer to a given record # of a file whose 
460 sia copy code is >= 8. 

461 aK 

462 ** Should poll be "Handled" (return with XN=0)?: Yes 

463 a 

464 *k Meaning of “Handling" Poll (what does code do if handled?): 
465 as Set the file pointer in FIB to a given record # in the 
466 a file. 

467 aR 

468 ** Entry conditions for handler (registers, ST, RAM, etc.): 
469 ae B[A} = Poll nunber. 

470 ak HEX node. 

471 aK P=0, 

472 RK Als] = copy code of the file 

473 ak A{4-0] = FIB entry address of the file 

474 aK STHTD1 = FIB entry address of the file 

475 R1 = Record # (first record of the file is record 0) 
476 & 

477 &k Normal exit conditions fron handler if handled (ST, RAN, 
478 *k registers, etc.): 

479 ax Carry clear. 

480 he HEX rode. 

481 aR KMN=0. 

482 = Following field in FIB of the file is updated: 

483 ak .Current position set to start of the given record. 
484 ak .# of bytes left in current is set to equal to record 
485 xx length. 

486 aK .If the file is in external device, the file 1/0 
487 . buffer should contain the current sector. 

488 

489 *k Normal exit conditions fron handler if not handled (ST, RAN, 
490 *k registers, etc.): 

491 xe Carry clear (POLL only). 

492 aK HEX ode. 

493 Ae XM=1, 

494 wa 

495 ** Error exit conditions fron handler (POLL only): 

496 ae Carry set. 

497 ak HEX mode. 

498 a 

499 *k Available subroutine levels: 

500 ax 

501 xx What registers/RAN nay be used if handled?: 

502 aK All CPU registers 

503 a Don’t use STNTDO & STNTD1 

504 ak 

505 ** What registers/RAN nay be used if not handled?: 

506 x All CPU registers 

507 ak Don’t use STMTDO, STNTD1, R14 

508 a 

509 xk What registers/RAN nay be used if error exit ?: 

510 a All CPU registers 

511 ak 

512 ** History: 


Si ai 
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514 ak Date Progranner Nodification 
515 WKk6 Sesscoscs? | jtcoeee eee eee Soe ee eS ee Ce Se 
516 kK 04/20/83 SC Docunent 
{ a 
ae JOO I ITT SI IIIA ITI III IO IIS SSSI SII ISIS ISIS SIA 
519 JI IOI TSI IAT TI ATI SISTA ISAT III IIIA SIS SS 
a 
ra JI III IIIT IO TOIT III ITS III I SSI ISI ISIS ISS ISI IA 
522 JEU OCCT IS IIIT III 
§23 ak 
524 ak Nane: GETREX# - Position Open File to Record 
525 Nare: SRECHA - Move file pointer to a given record 
526 
527 ** Category:  FILUTL 
528 ak 
529 *k Purpose: Move the file pointer to a given record # 
530 me (The current file pointer is stored in FIB) 
531 
532 ek Entry: 
533 k 
534 ek SRECHA: The record nunber is in A-Reg 
535 “is STMTD1(4-0) = FIB entry address of the file 
536 
537 kk SC GETREH: =This entry point is for RESTORE#, PRINTH, READH 
538 ax DO pts past the channel nurber 
539 ak A= Channel # 
540 ae 
541 *kK Exit: $9 = 0 If serial access 
542 an = 1 If Randon access 
543 an STMTOO = Current PC (past the record number) 
544 an The current position in the FIB will be updated 
545 xx Error exit on following conditions: 
546 ot 1. Record # does not exist 
547 a 2. File type unrecognized 
548 tk SRECHA: 
549 a DO of entry condition is saved in STHTDO 
550 tok 
551 ** Calls: EXPEX-, POPARG, FIBADR, POLL, A-MULT 
552 a 
553 R* Uses: 
554 ek OGETRE#: 
555 a Use all registers. 
556 ak Everything except STMTRO, STMTR1, STMTDO, STNTO1 
55? ak SRECHA: 
558 =~ A,B,C,D,R1,01,00, ST 0-4 
559 aR 
560 ** Stk Ivis: 
561 Ke SRECH, GETREH#: +5 
562 ae SRECHS, SRECHA: +2 
563 JGIUIUISISOIISL IO ISIS OI OTR TTT IAT TAT TAR 
564 POU TUSTCTOTCCTCCCCTCTTISTOCOCIUCTSTSSSNG CSC eeteteceesttttestttt 
565 - 
566 1/Obuf EQU 10 
567 Randon €EQU 9 


568 s 
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569 111AC 161 =RESTRE DO=D0+ 2 JUMP OVER THE \#\ 
570 111AF 7472 GOSUB GETCHH 
571 11183 7F0O GOSUB GETRE# 
572 11187 879 ?ST=1  Randort HAS RECORD # SPECIFIED ° 
573 111BR 80 GOYES RES#10 IF SO, DONE 
574 ® RECORD # NOT SPECIFIED IN THE RESTORE # STATEMENT, DEFAULT 
575 * 10 RECORD #0. 
576 & 
577 111BC DO A=0 A 
578 111BE 7030 GOSUB SRECHA 
579 & 
580 11102 6894 RESH1O GOTO CTE3XOO 
531 x 
582 k 
583 111C6 7D82 =GETRE# GOSUB FIBADR 
584 111CR 349 ST=0 = Randor ASSUNE IS A SERIAL PRINT OR READ 
585 111CD 148A R=DATO B 
586 11100 3100 LC(2) =tEOL 
587 11104 962 7A=C OB 
588 111D7 00 RTNYES 
589 11109 3100 LC(2) =tCONNA 
590 11100 966 7AHC OB 
531 111£0 00 RINYES 
592 111E&2 161 D0=D0+ 2 
593 a 
594 * 
595 111E5 8&00 GOSUBL =EXPEX- 
00 
596 111EB 7F9F GOSUB POPARG 
597 x 
598 111EF 859 ; ST=1 = Randon SET RANDON FLAG 
599 
600 111F2 101 SRECHA Ri=A SAVE RECORD # IN R1 
601 k 
602 111F5 71A2 GOSUB SAVEDO SAVE DO IN STMTDO 
603 111F9 1F69 01=(5) =STMNTD1 GET FIB ENTRY ADDRESS 
8F2 
604 11200 143 R=DAT1 A 
605 11203 131 D1=A 01 @ FIB OF THE FILE 
606 11206 179 D1i=D1+ (oCOPYb) READ THE FILE COPY CODE FROM FIB 
607 11209 1534 R=DAT1 S$ Q(S)= FILE COPY CODE 
608 11200 171 D1=D1+ (oDEVCb)-(oCOPYb) 
609 11210 147 C=DAT1 A C(O)= DEVICE TYPE OF THE FILE 
610 11213 &4A ST=0 = /Obuf 
611 11216 A0G C=C+C P SEE IF FILE IN EXTERNAL DEVICE 
612 11219 594 GONC  SRE#30 
613 1121C 85h ST=1  I/Obuf 
614 1121F 431 GOC SRE#30 
615 x 
616 * POLL FOR EXTERNAL FILE OR UNRECOGNIZED FILE TYPE 
617 * ENTRY: A(S)= FILE COPY CODE 
618 k A(A)= FIB ENTRY ADDRESS 
619 x STNTD1(4-0)}= FIB ENTRY ADDRESS 
620 x R1i= RECORD # 
k 


621 


EXIT: RETURN TO CALLING ROUTINE WITH: 
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622 x CURRENT POSITION IN FIB IS UPDATED. 
623 x IF FILE IS IN TAPE, MOVE THE TAPE TO MATCH THE 
624 x CURRENT POSITION. 
625 % 
626 11222 7594 SREXPL GOSUB poll 
627 11226 82 CON(2) =pSREC# 
628 11228 452 GOC SRE#35 ERROR 
629 1122B 831 ?XM=0 ANY BODY HANDLE IT ? 
6H 1122E 00 RINYES IF SO, RETURN 
631 11230 5D1 GONC SRE#35 SAY "Tllegal file type" 
632 * A = FIB ENTRY ADDRESS 
633 11233 B2 SRE#30 C=0 A 
634 11235 3151 LC(2) =oDBEGb 
635 11239 C2 C=A+C A 
636 1123B 135 01=C 
637 1123E 147 C=DAT1 A READ DATA START ADDRESS 
638 11241 D? D=C A D= DATA START ADDRESS 
639 11243 119 C=R1 
640 11246 ACO C=A S C(S) = COPY CODE 
641 11249 94C PAHO OS IS THIS A DATA FILE ? 
642 1124C 60 GOYES SREH40 
643 1124E 6022 SREH35 GOTO  BADTYP 
644 x 
645 11252 A46 = =SREH40 C=C+C S$ COPY CODE >= 8 ? 
646 11255 4CC GOC SRE#PL IF SO, POLL 
647 11258 A46 C=C+C S$ COPY CODE = 4 ? 
648 11258 447 GOC LIF 1R# IF SO, IS A LIF1 ASCII FILE 
649 1125E A46 SREH41 C=C+C S$ COPY CODE = 2 ? 
650 11261 4A4 GOC HP41R# IF SO, IS A HP-41 DATA FILE 
651 * THIS IS THE FIXED LENGTH DATA FILE 
652 * D1 @ DATA START OF FIB 
653 * C= RECORD # 
654 * D= DATA START ADDRESS 
655 11264 17A D1=D1+ (oRECHb)-(oDBEGb) 
656 11267 DO A=0 A 
657 11269 1583 A=DAT1 4 A= FILE LENGTH IN # OF RECORDS 
658 * 
659 11260 8B6 = =TITHIO ?(<A A RECORD # EXIST ? 
660 11270 FO GOYES TITH20 
661 11272 8AR 7C=0 6A WANT TO GOTO RECORD 0 ? 
662 11275 RO GOYES TITH2O 
663 ‘ 
664 11277 3100 =ENDFIL LC(2) =eEOFIL 
665 11278 6033 GOTO  ERREX 
666 - 
667 1127F 173 TITH20 D1=D1+ (oRECLb)-(oRECHb) 
668 11282 1583 A=DAT1 4 A=RECORD LENGTH IN BYTES 
669 11286 7€55 GOSUB  a-rult 
670 1128A D2 C=0 A 
671 1128C 15F3 C=DAT1 4 C= RECORD LENGTH IN BYTES 
672 11290 173 Di=D1+ (oCPOSb)-(oRECLb) 
673 11293 17B = TITH30 D1=D1+ (oRLENbD)-(oCPOSb) 
674 11296 145 DATI=C A WRITE BYTES LEFT IN CURRENT RECORD 
675 11299 7701 GOSUB STFPIR SET CURRENT POSITION 


676 x 
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677 
678 
679 


680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
6% 
691 
692 
693 
694 
695 
696 
697 
638 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
714 


712 
713 
714 
715 
716 
a1? 
718 
719 
720 
721 
722 
723 
724 
(25 
726 
72? 
728 
729 
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* Restore DO fron STMTDO 
k 


1129D 1B19 =RESTDO DO=(5) =STNTDO 


112R4 
112A? 
112AR 


112AC 
11 2AF 
112B2 
11285 
11288 


11288 
11280 
11 2BF 
11201 
11203 
112C6 
112C8 
112CB 
112CD 


11200 
11203 
11206 
11208 
112DR 
112DE 


112E4 
1127 
1129 
112EB 
112EE 
112F1 
112F4 
112F7 
112FA 
112FD 
11300 
11 We 
11304 
11306 
14309 
11300 
11 30F 


8F2 
146 
134 
03 


17E 
179 
AFO 
143 
81C 


C6 
C6 
C6 
DE 
8BE 
18 
1€5 
D2 
56C 


109 
86A 
81 
DO 
7600 
8E00 
0 
AF 
bg 
D? 
108 
17E 
179 
RF 2 
147 
8iE 
129 
DS 
DB 
D3 
134 
119 
887 
CO 


SDATA 
D1 @ 
C=R 
D= D 

HP4 1 R# 


H41#10 


TEXT 
D1 @ 
C=R 
D 
LIF 1 R# 


LIF #05 


LIF#O? 
LIF #10 


C=DATO A 

DO=C 

RTNCC 

FILE 

DATA START ADDRESS 
ECORD # 
ATA START 

01=01+ (oRECLb)-(oDBEGb) 

D1=D1+ (oDLENb)-(oRECLb) 

A=0 W 

A=DAT1 A A(A) = FILE DATA LENGTH IN NIBS 
ASRB A(R) = FILE DATA LENGTH IN BYTES 
C=C+C A 8 BYTES PER RECORD 

C=C+C A 

C=C+C A 

ACEX A C= FILE LENGTH, A= RECORD POSITION 
7A>=C A PAST END OF FILE YET ? 

GOYES ENDFIL 

01=D1- (oDLENb)-(oCPOSb) 

C=0 A 

GONC  TITH30 (B.E.7.) 
DATA FILE 

DATA STRRT OF FIB 
ECORD # 
= DATA START 

R1=C Ri= RECORD NUMBER 

?$T=0 I/Obuf 

GOYES LIF#OS 

A=0 A 

GOSUB STFPTR SET CURRENT POS TO START OF FILE 
GOSUBL =FNDF BF READ THE 1ST REC TO FILE I/O BUFR. 
C=0 W 

C=B A 

D=C A D(A)= 1/0 BUFR START ADDRESS 
RO=C 

D1=01+ (oRECLb)-(oDBEGb) 

01=01+ (oDLENb)-(oRECLb) 

C=0 W 

C=DAT1 A C(A) = FILE DATA LENGTH IN NIBS 
CSRB C(A) = FILE DATA LENGTH IN BYTES 
CRIEX Ri = FILE LENGTH IN BYTES 

B=C A B(A) = RECORD NUMBER 

C=D A 

D=0 A D= CURRENT POSITION (RELATIVE) 
DO=C 00 @ DATA START 

C=R1 C= FILE LENGTH 

7C>D OA PAST END OF FILE YET ? 

GOYES LIF#40 IF NOT, GOTO LIF#40 
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7% 11311 20 LIFHHO P= 0 
731 11313 0B C=D A 
732 11315 DA A=C A 
733 11317 60BF GOTO H41#10 
734 x 
735 1131B 8600 LIF#40 GOSUBL =RDLNAS READ STRING LENGTH TO A 
00 
736 11321 23 P= 3 A= RECORD LENGTH 
737 11323 B14 A=A+1 WP REACHED END OF FILE ? 
738 11326 4RE GOC LIF#30 
739 11329 CD B=B-1 A REACHED THE TARGET RECORD # ? 
740 1132B 45E GOC LIF #30 
741 1132E AIC A=A-1 WP 
742 11331 E7 D=D+1 A 
743 11333 £7 D=D+1 A 
744 11335 D2 C=0 A 
745 11337 £6 C=C+1 A 
746 11339 OE62 C=C&8A B 
747 11330 96A 7C=0 = =B RECORD LENGTH EVEN NUMBER ? 
748 11340 50 GOYES LIF#50 IF SO, GOTO LIF#S5O 
749 11342 B14 A=A+1 WP ADD ONE BYTE IF ODD NUMBER LENGTH 
750 11345 D6 LIF#50 C=A A 
751 11347 C3 D=D+C A UPDATE CURRENT POSITION 
752 11349 20 P= 0 TWO BYTES OF RECORD LENGTH 
753 1134B 86A ?ST=0 I/Obuf 
754 1134E CO GOYES LIF#60 
755 11350 8£00 GOSUBL =SKPBYT SKIP OVER THE RECORD 
v0 
756 11356 62BF GOTO =LIF#10 
757 x 
758 1135A C6 LIFH#6O0 C=C+C A RECORD LENGTH IN NIBBLES 
759 1135C 132 ADOEX 
760 1135F C2 C=AeC A 
761 11361 64AF GOTO LIF#O? 
762 RR 
763 x 
764 SI I ITD IT TELE DRK ALD T TE TTI IASI LAD A IIIT DD IISA IDI D AIK 
765 JOO III ISIE IGS IOI III II 
766 os 
76? *&k Nane:(S) REWIND - Rewind Open File 
768 as 
769 ** Category:  FILUTL 
770 6 
771 ** Purpose: Set the current position in the FIB to start of 
7?2 em of data ina file. 
773 aK 
774 ** Entry: 
775 AX A = FIB entry address of the file 
776 ae 
77? AX Exit: 
778 xx ACB) = FIB# of the file 
779 ax STMTD1 = FIB entry address of the file 
780 ax Carry set => successful 
781 ze Never returns if HP-IL error happens, exit to MFERR. 


782 


a 
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783 *% Calls: STFPIR 

784 kk 

785 *k Uses: A, B, C, D, D1, DO, $10, STNTD1, S4-0 

786 Ae 

787 ** Stk lvls: 1 - anternal file 

788 as 4 - external file 

789 JOO IOS TOSI IIS IOC IO I IAT TI 

790 JOU OCU IO OI IOI IIS IAI TAS 

791 x 

792 11365 1F69 =REWIND D1=(5) =STMTD1 SAVE FIB ENTRY ADDRESS IN STHTD1 
8F2 

793 1136C 141 DATI=zA A 

794 1136F 131 DI=A 

795 11372 171 D1=01+ (oF BFHb) 

796 11375 147 C=DAT1 A 

797 11378 DO A-O 3=—oAR 

798 1137A 84€A ST=0 =. 1 /Obuf ASSUME IS INTERNAL FILE 

799 1137D 938A *C=0)— XK 

800 11380 EO GOYES RWND1O 

801 11382 85A ST=1 1 /Obuf 

802 11385 17A D1=01+ (oF BEGb)-(oF BF#b) 

803 11388 175 D1=D1+ (oSHLNb)-(oFBEGb) 

84 1138B 14B A=DAT1 B A(B) = SUBHEADER LENGTH 

805 1138E 7210 RWND1O GOSUB STFPTR 

806 11392 1F69 Di=(5) =STMTD1 Fetch FIBH 
8F2 

807 11399 143 A=DAT1 A 

808 1139C 131 DI=A 

809 1139F 143 A=DAT1 A 

810 113AR2 02 : RTNSC 

ay JI II TIT TIS TIT TIRI IIIS I IIIS III STASI IIT III ISIS SII SII IAS 

813 JOO I TOS II TIT II III TI III III ITI IIO II I IIIS III II TAK 

814 xt 

815 **% Narie: STFPTR - Position Open File 

816 ** Narie: STFPT- - Set current file position 

817 aK 

818 *X Category:  FILUTL 

819 ak 

820 *t Purpose: Set the current position of an opened file to a 

821 aS given position 

822 ae 

823 kk Entry: STNTD1 = Contains the FIB entry address of the file. 

824 ae $10 = 1, if file in an external device 

825 mA 0, if file in RAN/ROM 

826 a ACA) = New file position in bytes 

827 at 

828 ** Exit: Carry clear => No error 

823 - Never returns if HP-Il error happens, exits to MFERR. 

830 

831 *% Calls: FPOLL(pWRCBF & pRDCBF ) 

832 *e 

833 xk Uses: A, B, C, D, DO, S4-0 

834 ak 


835 xK Stk lvls: +3 





Saturn Asserbler File Utility & Systen Buffer R Fri Dec 30, 1983 4:34 an 


Ver. 3.39/Rev. 2306 Search channel # in Assign Tab Page 18 
836 SII III IIIA IIIT IIIT I ASIII ISK I III II IIIT IIIS I III ISI ADI SII III IIS 
837 III SII TIKI IIT IIA TDI I TSI I IITA ID IIIS ID II II III III III III III ASTI IK 
838 x 
839 - 

840 JOO IOI III ITT TTI I IAI II II IIIS III SIT III ASIII IK 
844 JO I IIIT TTT TIE II TI TI III IIIS ITI III III IIT I SA 
842 xk 

843 **% Nane:(S) pROCBF - Read Current Sector Fron Nass Menory 

844 xx 

845 ** Category: POLL 

846 ae 

847 xk Type: FPOLL 

848 xk 

849 ** Purpose: 

850 ax Using the FIB, read the current sector of a file in 

851 ae the mass menory device into the I/0 buffer that is 

852 aX associated with the file. 

853 aK 

854 = There are total of 3 polls can be used to read/write a 

855 aK sector between a nass rienory device and I/0 buffer: 

856 ak 1. pRONBF - Write buffer out to current sector and read 
857 aS in next sector. If buffer content has not been 
858 x altered, just read in next sector. 

859 AR 2. pRDCBF - Read in current sector fron mass nenory device 
860 aR to the I/0 buffer. This poll does not care 

861 a about the content currently in the 1/0 buffer. 
862 on 3. pWRCBF - Write 1/0 buffer to current sector in the mass 
863 ae nenory device. 

864 xk 

865 aK 

866 ** Should poll be "Handled" (return with XM=0)?: Yes 

867 xk 

868 ** Meaning of “Handling” Poll (that does code do if handled?): 
869 AS Read the current sector fron the mass nenory device into 
870 an the I/0 buffer of the file. 

871 xR 

872 ** Entry conditions for handler (registers, ST, RAM, etc. ): 

873 aR B[A] = Poll nunber. 

874 o HEX rode. 

875 was P=0, 

876 o STMTD1 contains the FIB entry address of the file 

877 ax (SNAPBF contains A, D, DO and 01 to restore on exit) 

878 a 

879 xk Nornal exit conditions fron handler if handled (ST, RAN, 

880 ** registers, etc.): 

881 ae Carry clear 

882 as HEX node. 

883 a XN=0. 

884 ze File access nib in FIB is set to zero. 

885 aE R,D,D0,D1 restored to values fron SNAPBF. 

886 ae 

887 Re This poll handler must always call the routine SNAPRS to 
888 ae restore A,D,D0,D1 from the snap save RAN before return. 
889 an So if the polling routine calls the SNAPSV before 


890 ta issuing this poll, it can consider A,D,DO,01 will not 
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891 #h be changed by this poll handler. 
892 ae 
833 kk Nornal exit conditions fron handler if not handled (ST, RAN, 
894 %k registers, etc.): 
895 al HEX node. 
8396 aK KM=1. 
897 ak 
898 *k Error exit conditions fron handler (POLL only): 
899 ak Won’t return to calling routine if error occur, direct 
aX) < exit to BSERR routine. 
901 aE 
902 ** Available subroutine levels: 
903 ae 
904 ak 
905 ek What registers/RAM nay be used if handled?: 
906 ak A-D, DO, D1, P, ST[O-4] 
907 aK (B,C,P,ST[O-4] if SNAPSV was called) 
908 ak 
909 xk What registers/RAM may be used if not handled?: 
910 Rx B, C, DO 
911 ak (SNAPRS is not called) 
912 ak 
913 aX History: 
914 ak 
915 ak Date Progranner Modification 
916 $e Vieeeees ieteecessce eee eeet eee ace, ot see ses 
917 A 04/20/83 = SC Docunent 
1 * 
ie FI SI I I IDI TDI TIE I II III TSI IIIS IIIS IIIS SSS ISS IIIT SSA 
920 JIT IIA IIT III III III IIIT IIIS I IIIS III ISI IIIT IIIS ISIS A 
x 
ao) JO ISI IO IOI TI IIE IITA I IOS II SIO IIS I III III IIIT IIIA 
923 JOR II II TIA T III ISI IAT IIT IS IASI I IIIS IIIS IIIS AI ISIS TIA 
924 aK 
925 - Nare:(S) pWRCBF - Write 1/0 Buffer to Mass Merory Device 
926 
927 xx Category: POLL 
928 re 
929 ** Type: FPOLL 
930 ah 
931 ** Purpose: 
932 ak Using the FIB, write the file I/0 buffer to 
933 ae the sector it cane fron in a mass menory device. Buffer 
934 ak content, current position and record address are not 
935 - changed by this operation. 
936 ak 
$37 an There are total of 3 polls can be used to read/urite a 
938 ak sector between a nass nenory device and I/0 buffer: 
939 AX 1. pRONBF - Write buffer out to current sector and read 
940 nx in next sector. If buffer content has not been 
941 aK altered, just read in next sector. 
942 ne 2. pROCBF - Read in current sector fron mass nenory device 
943 ax to the I/0 buffer. This poll does not care 
944 a about the content currently in the I/0 buffer. 


945 ak 3. pWRCBF - Write 1/0 buffer to current sector in the mass 
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946 xx nenory device. 
94? aK 
948 kk 
949 *k Should poll be "Handled" (return with kM=0)?:Yes 
950 ak 
951 xk Meaning of "Handling" Poll (what does code do if handled?): 
952 ax Write the file I/0 buffer to the sector it cane fron in a 
953 ak Nass Nenory device. 
954 ah 
955 ** Entry conditions for handler (registers, ST, RAM, etc.): 
956 kk B[A] = Poll nuriber. 
957 kk HEX rode. 
958 RK P=0, 
959 ak STMTD1 contains the FIB entry address of the file 
960 - (SNAPBF contains A,01,D0 and D1 to restore on exit) 
961 x 
962 *k Nornal exit conditions fron handler if handled (ST, RAN, 
963 *k registers, etc.): 
964 ak Carry clear (POLL only). 
965 aK HEX node. 
966 aK KMN=0. 
967 ak File access nib in FIB is set to zero. 
968 ak A,D,00,D1 restored to value fron SANPBF. 
969 = 
970 ak This poll handler must always call the routine SNAPRS to 
971 ax restore A,D,D0,D1 fron the snap save RAM before return. 
972 as So if the polling routine calls the SNAPSV before 
973 ‘os issuing this poll, it can consider A,D,00,01 will not 
974 ae be changed by this poll handler. 
975 ak 
976 kk Norrial exit conditions fron handler if not handled (ST, RAN, 
977 *k registers, etc.): 
978 ak HEX rode. 
979 ae XN=1. 
380 ae 
931 ** Error exit conditions fron handler 
982 ste Won’t return to calling routine if error occurs, direct 
983 ey exit to BSERR routine. 
984 aK 
985 ** Available subroutine levels: 
986 wk 3 
98? xe 
988 xk What registers/RAN nay be used if handled?: 
989 = A-D, DO, D1, P, ST[0-4] 
990 ae (B,C.P,ST[0-4] if SNAPSV been called) 
9a} ak 
992 tk What registers/RAN nay be used if not handled?: 
993 a B, C, DO 
994 aa (SNAFRS 1s not called) 
995 at 
996 ** History: 
937 ne 
998 = Date Progranner Modification 
G99 Bo Be ow aw ~-Sacecete se, “tec seco ceo ec ee ee See eee 


1000 ek 04/20/83 SC Docunent 
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1001 aie 
1002 20 IO IIR SIT IIT II TIT IIIT TSI ISI ISIS III ISIS IAT IAI IIIT K 
1003 SIRI IID IIS IAIIS III III III III IIIS IID III III III III SI ISI IIIS SIS IS 
1004 x 
i 1005 x 
: 1006 f 
1007 113R4 C4 9 =STFPTR A=A+A A TURN BYTES INTO NIBBLES 
1008 113A6 D6 C=A A 
1009 113A8 D7 D=C A 
1010 113RR 8E00 GOSUBL =DO=FIB 
00 
1011 11380 D5 B=C 
1012 113B2 169 DO=D0+ (ocoP) 
1013 113B5 1564 C=DATO $ C(S)= COPY CODE 
1014 113B9 16€ DO=00+ (oDBEGb)-(oCOPYb)+4 
1015 113BC 16€ DO=D0+ (oCPOSb)-(oDBEGb)-4 DO @ CURRENT POSITION IN FIB 
1016 113BF 87h ?$T=1 1/Obuf 
1017 113C2 90 GOYES SFPT20 
1018 113C4 DB = SFPT10 C=0 A 
1019 113€6 144 DATO=C A WRITE NEW POSITION 
1020 113C9 03 = SFPT15 RTNCC 
1021 x 
1022 113C8 146 SFPT20 C=DATO A READ THE CURRENT POSITION 
1023 113CE 25 = 5 
1024 113D0 A80 A=0 P 
1025 11303 A82 C=0 P 
1026 113D6 20 = 0 
1027 11308 81E CSRB 
1028 113DB 8i1C ASRB 
1023 x 
103% 113DE REO A= B 
1031 113E1 AE2 C= B 
1032 113E4 8Re *A=C OA STILL IN THE SAME RECORD ? 
1033 113€7 DD GOYES SFPT10 IF $0, GOTO SFPT30 
1034 x 
1035 113E9 D9 C=B A 
1036 113EB 134 Do=C 
1037 113EE 16A DO=D0+ (oACCSb) 
1038 113F1 14€ C=DATO B 
1039 113F4 90A *C=0 =P ACCESS = READ ? 
1040 113F7 E0 GOYES SFPT40 IF SG, DON’T WRITE THE RECORD BACK 
1041 113F3 07 C=RSTK Save one level of RSTK 
1042 113FB 7AF6 GOSUB  fpoll+ SAVE A,D,DO,01 & FAST POLL 
1043 113FF Al CON(2) =pWRCBF WRITE CURRENT RECORD BACK FIRST 
1044 11401 D9 C=B A 
1045 11403 06 RSTK=C Restore one level of RSTK 
1046 * 
1047 11405 8£00 SFPT40 GOSUBL =DO=FIB 
00 
1048 1140B 16F DO=D0+ (oF BEGb)+3 
1049 1140E 16F DO=D0+ (oRECHb)- (oF BEGb)-3 
1050 11411 167 DO=00+ (ofPOSb)-(oRECHb) 
1051 11414 DB C=D A 
1052 11416 144 DATO=C A WRITE NEW POSITION 
1053 11419 07 C=RSTK Save one level of RSTK 
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1054 1141B 7AD6 


1055 1141F 81 
1056 11421 D9 
1057 11423 06 
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GOSUB fpoll+ FAST POLL 
CON(2) =pRDCBF READ IN THE CURRENT RECORD 
C=B A 
RSTK=C Restore one level of RSTK 
RTNCC 


1058 11425 03 


1053 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
107? 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 


1087 


1088 
1089 


1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 


1098 
1099 
1100 
1101 
1102 
4103 
4104 


1142? 
1142E 


11434 
11438 


1143F 
11442 
11444 
1144? 
1144A 
11440 
1144F 
11451 


8F0O 
000 
8E00 
00 
765D 
1FFb 
SF2 
149 
Be 
RoE 
8B6 
70 
36C 


8l00 
00 


k 

FOI ITI OTT TI TTT TE TTT 
FORO III OTT TTT TOO TITTIES 
ax 


&k Narie: (S$) GETCHR - Get Channel Nurber 
Re 


** Category:  EXCUTL 
ai 


** Purpose: Get the Given channel for a statenent 
ak 


kk Entry: 00 points at the channel number token. 
ik 


RK Exit: A(B) = Channel nunber in binary 

A DO past channel nunber 

x CHNHSV = Channel # 

a Error exit if channel # > 255 or <= 0 
a 

** Uses: All CPU registers, status. scratch RAN except 
ak All scratch RAM except STMTRO, STNTR1 
aK (Expression execution is called) 

kx 

** Calls: EXPR 

ae 


AK Sth lvls: +5 
JOIST III IDOI CII II IOI OE 


JOR IOI IIIS OT TOI TTI TI IIIT OOK 
x 


=GETCHA GOSBVL =DIFSTK 
=GETC#- GOSUBL =EXPR 


GOSUB POPARG 
D1=(5) =CHNASV 


DAT1=A 
C=0 
C=C-1 
PAC 
GOYES 
PAHO 
RTNYES 
OUTRNG GOLONG =ARGERR 


CHANNEL # HAS TO BE =< 256 
UTRNG 


noowwonwno 


x 

JOR OURO III IOI III I IOI GIO 
FORO III GOI III OCIS IOIOIEIGISO IO UII 
aK 


** Nane:(S) FIBADR - Find FIB entry address for a channel 


** Narie:(S) FIBAD- - Find FIB entry address for a channel 
kr 
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1105 ** Category:  FILUTL 

1106 ax 

110? o Purpose: Find the FIB entry address for a given channel # 

1108 a 

1103 ** Entry: A(B) = Channel # 

1119 xs 

1111 AX EXit: D1 &A = FIB entry address of the file 

1112 xk STMTD1 = FIB entry address of the file 

14113 x 

1114 ** Calls: FDOCHH, FFIB® 

1115 xe 

1116 ** Used: A,B,C,D1,RO 

1117 ae 

1118 *k Stk lvls: +2 

1119 ak 

1120 JIG III IO OIG ITI OT IIIT TTA 

1124 JOISTS III ICIS ICO OCI OS IS II STIS III TI III TIT 

1122 x 

1123 11457 136 =FIBADR CDOEX SAVE DO IN RO 

1124 1145A 108 RO=C 

1125 11450 AE8 B=-A oi 

1126 11460 7840 GOSUB FOCH# SEARCH THE CHNL # IN ASSIGN TABLE 

1127 11464 4&0 GOC FIBA1O CHANNEL # FOUND 

1128 11467 3100 =FHNFND LC(2) =eCHNL# 

1129 1146B 6041 GOTO ERREX 

113) 1146F 6541 BADTYP GOTO FTYPER 

1131 11473 968 FIBAIO 7A=0 8B CHANNEL # CLOSED ? 

1132 11476 1F GOYES FHNFND IF SO, SAY FILE # NOT FOUND 

1133 11478 8€17 =FIBAD- GOSUBL FFIBH FIND THE FIB ENTRY ADDRESS 
£0 

1134 1147E 48E GOC FHNFND IF CARRY SET, NOT FOUND 

1135 11481 133 ADIEX 

1136 11484 1863 DO=(5) =STNTD1 SAVE THE FIB ENTRY ADDR IN STNTD1 
8F2 

1137 1148B 140 DATO=R A 

1138 1148— 131 D1=A 

1139 11491 118 C=RO 

1140 11494 521 ; GONC § SAVDO1 (B.E.T.) 

ne JOGO IIIS UI IC I TO III III DIT TIRE TI IK 

1143 JI III III IAI TTI II TTI III TIER STITT III ITI ITI III I IAT III IIA 

1144 a 

1145 xx Nane: SAVEDO - Save DO in RAM at STMNTDO 

1146 ak 

114? x Category: GENUTL 

1148 kx 

1149 ** Purpose: Save DO in systen RAN "STNTDO" 

1150 RA 

1151 *k Entry: DO = Value to be saved 

1182 i 

1153 kk Exit: DO saved in STHTDO 

1154 aX 

1155 *x Calls: None 

1156 ae 

1157 kk Uses: C(A), STNTDO 
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1158 ae 
1159 ** Stk lvls: 0 
1160 ole 
1161 SII TI I I III III III IDIOT ITI II IIIT III SI IIS III SII STII III IK 
1162 JI III I ITI IIR IIT II ITT IATA I III SII III IIIS II ISI III ISI IK 
1163 : 
1164 11497 161 SAVDO+ DO=D0+ 2 
1165 1149A 136 =SAVEDO CDOEX 
1166 11490 1819 =SRVDO- DO=(5) =STMTDO 
8F2 
1167 114R4 144 DATO=C A 
1168 11487 134 SAVDO1 DO=C 
1169 114AA 03 CHANFD RTNCC 
k 
i JOGO TI TDI I TDI TIE TTA EIT IIIT III I ITI II III II IIIT ISI IT ITIL 
1172 JOO I TI TIT TK ITI IE TID TT IEEE IE TIT DIDI TT IR TI 
1173 Ke 
1174 ** Nane: FOCHH - Find a Channel Number in Assign Table 
1175 fe Nane: FDCHH- - Find a Channel Nurtber in Assign Table 
1176 ak 
1177 ** Category:  FILUTL 
1178 ax 
1179 ** Purpose: Find a channel nunber in the Assign Table 
1180 ak 
11814 ** Entry: 
1182 x 
1183 eA FOCH#: 
1184 ax B(B) = Channel # 
1185 a F DCHH-: 
1186 a% B(B) = Channel # 
118? aK ACA) = Assign Table buffer length 
1188 ax D1 Points past buffer head 
1189 i 
1190 kk Exit: Carry set => Channel # found 
1191 xR D1 Points at the channel nunber in the Assign Table 
1192 ax A(B) = 0 , If channel closed 
1193 xx = FIB # , If channel open 
1194 “x Carry clear => Assign Table or channel # not found 
1195 ** Calls: I/OFND 
1196 *k Used: A,C,D0,D1 
1197 ** Stk lvls: +1 
1198 a 
1193 JOO IO IIT TIT TOT IIT IT IIIT IIIT II 
1200 FOO OO IOI OO OOO IO UIOT ICICI ISI III IOI IO OI OTTO 
1201 x 
1202 114AC ?BF3 =FDOCH# GOSUB BUFASN Assign buffer 
1203 114BO 59F GONC  CHRNFD No table neans no file(error) 
1204 * ACA)=Buf Len, D1 points past buffer head 
1205 11483 1%) =FDCH¥- DO=A 
1206 - DO=D0+ 1 Need borrow at proper tine 
120? 114B6 13? CD1EX C=D1 
1208 114B9 C2 C=C+A A Calculate end of buffer 
1209 114BB 135 bi=C D1 points past buffer 
1210 114BE 184 FDOCH4G DG=D0- 5 Decrenent length 
1211 11401 48E COC CHANFE At end of table then not found 
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1212 114C€4 1C4 D1=D1- 5 Move pointer to next entry 
1213 114C€7 143 R=DAT1 A Read entry 
1214 114€A 968 7A=0) =O«B Is it call level tiarker? 
1215 114CD DD GOYES CHHNFD Yes, then file not open 
1216 114CF 964 7AHB OB Is this the right channel 
1217 11402 CE GOYES FDCH40 No, then loop back 
1218 114D4 328 7A=0 XS Direct entry? 
1219 11407 91 GOYES FDCH6O Yes, found entry 
1220 114D9 7310 GOSUB FDCH6O 
1221 114DD D8 B=A A Copy to B(B) for loop reentry 
1222 * Nou skip to end of call level 
1223 114DF 184  FDCH5O DO=P0- 5 Decrenent buffer length 
1224 - GOC internal error which “can’t happen" 
1225 114E2 1C4 D1=D1- § Move pointer 
1226 114E5 148 A=DAT1 B 
1227 114E8 96C PAHO OB Is this the call marker? 
1228 114€B 4F GOYES FDCHS5O No, then loop back for next entry 
1229 114ED 500 GONC FDCH40 (B.£.1.) Now continue search 
1230 ke 
1231 ae 
1232 114FO F4 FOCH6O ASR A 
1233 114F2 F4 ASR A 
1234 114F4 F4 ASR A A(B)=F IBA 
1235 114F6 02 RTNSC 
1236 x- 
1237 he 
1238 ‘ 
1239 RIKI II III IST IIIA I IDI ISI IS II IIIT I ISIS ID ITI III III IIIS ISI IIIS IIA 
1240 III IIS ISI IS II IIIS I II III STIS ITI III IID IIIS III ISI ISI IIT IITA I II IK 
1241 xk 
1242 Nane: FOFIL# - Find File Number in Assign Table 
1243 
1244 kk Category:  FILUTL 
1245 a 
1246 *&k Purpose: Find a file nunber in the assign table 
1247 ae 
1248 ** Entry: B(B) = File nunber. 
1249 a 
1250 *k Exit: Carry clear => File # not found 
1251 a Carry set => File # found: 
1252 ah D1 @ The file nuriber in the assign table. 
1253 a 
1254 ** Calls: I/OFND 
1255 aR 
1256 xk Uses: A,C,D0,D1 
1257 ae 
1258 *% Stk lvls: +1 
1259 JOS I III OO II IID IO IIIS OTA ITO TI III I SII IIIS II SAS 
1260 SII III III II III III IIIS STII III II IDI IID IS III IT III IIIS III I IIIS TIAA 
1261 x 
1262 114F8 7FA3 =FDFILH GOSUB BUFASN FINS THE ASSIGN TABLE 
1263 114FC 500 RTNNC IF NOT FOUND, RETURN CARRY CLEAR 
1264 114FF 130 DO=A DO= BUFFER LENGTH 
1265 11902 450 GOC FDF#20 (B.E.T.) 


1266 s 
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1267 11505 174 FDF#1O D1=D1+ 5 
1268 11508 184  FDF#20 DO=D0- 5 DECREMENT THE BUFFER LENGTH 
1263 1150B 463 GOC CHENFD IF CARRY, REACHED END OF BUFFER 
1270 1150E 143 R=DAT1 A 
1271 11511 968 7R=0) =—=B IS THIS A LEVEL MARK ? 
1272 11514 1F GOYES FDFRIO IF SO, SKIP OVER IT 
1273 11516 92C 7RHO XS INDIRECT ENTRY ? 
1274 11513 CE GOYES FDF#1O IF SO, SKIP OVER IT 
1275 1151B 710F GOSUB FDCH60 
1276 1151F 964 PRHB OBB IS THIS THE FILE # ? 
1277 11522 3E GOYES FDFH#10 IF NOT, NEXT 
1278 11524 172 01=D1+ 3 D1 @ FILE # 
1279 11527 02 RTNSC RETURN WITH CARRY SET 


1280 


Saturn Asseribler File Utility & Systen Buffer R Fri Dec 30, 1983 4:34 an 


Ver. 3.39/Rev. 26 Save File Info Page 27 
1281 STITLE Save File Info 
1282 & 
1283 JIU II II TID ISIS IIIT ISIS III IOS IST IOS A 
1284 JUICE TOT TTI IIIT IAT ITI A 
1285 ak 
1286 ** Narie: SVFSPC - Save File Specifier. 
1287 i 
1288 ** Category:  FILUTL 
1289 ae 
1290 ** Purpose: Save file specier fron FSPECx routine in STNTRO 
1291 ak and STMTR1 
1292 ak 
1293 &* Entry: Exit condition of FSPECx 
1294 ak 
1295 ek Exit: STNTRO = ist 8 chars of file nane 
1296 aK STMTR1(3-0) = Last tuo chars of file nane 
1297 ah STNTR1(4) = Input of D(S) 
1298 ms STMTR1(9-7) =External device address(input of D(X)) 
1299 & 
1300 ** Calls: None 
1301 ak 
1302 ** Uses €,01, STMTRO, STNTRI1 
1303 ak 
1304 ee Stk Ivis: 0 
1305 FIO IIT RT ITT ISI IIIT I IIIT TTI IIIS IIIS III IS SABI SAIS: 
1306 JO IOI ITI ID TTI TIO T IIT TT TIT TT TTT TT TTT TIT 
1307 * 


1308 11529 7B00 SVFSP+ GOSUB SVFSPC 
1309 11520 ACB EXTCHK C=D S 


1310 11530 B46 C=C+1 § 
1311 11533 A46 C=C+C § 
1312 11636 01 RIN 
1313 % 
1314 11538 1F17 SVFSPC D1=(5) =S-RO-0 
8F2 
1315 1153F 1517 DATI=A W 
1316 11543 17F D1=D1+ 16 
1317 11546 118 C=RO 
1318 11549 1503 DATI=C 4 
1319 1154D 173 D1i=D1+ 4 
1320 11550 AFB C=0 W 
1321 11553 1554 DATI=C $ 
1322 11557 172 D1=D1+ 3 
1323 1155A 1553 DAT1=C X 
1324 1155E 03 RTNCC 
1325 . 
1326 JOIST IIIT II ISI III III III III IDE IIIS IASI III II SSIS: 
1327 JO III KI TSI RTT I SIDI III ISOS III IIIS III III ISIS IIIS IIS 
1328 = 
1329 ** Narie: SVFTYP - Save File Type Table Info 
1330 a 
1331 ** Category:  FILUTL 
1332 aX 
1333 ** Purpose: 


1334 - Save file type, offset to data, create code, and copy 
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1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
134? 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 


1384 
1385 
1386 
138? 
1388 


11560 
11564 
11567 
1156A 
1156D 
11571 


11578 
1157B 
1157€ 
11581 
11584 


75FA 
503 
134 
16F 
15A3 
1BB8 
8F2 
140 
135 
14F 
163 
14¢ 


ar 
ax 
ak 
xx 
ax 
xx 
ak 
ak 
ak 
ak 
xk 
ak 
ak 


ak 


xk 
ax 
aK 
ak 
ak 
ak 
ak 
ak 
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code fron the File Type Table entry for the given file 


type. 


SVFSPC. 


Entry: 
ACA) 
p 


Exit: 


Info is 


File 


= 0 


Carry clear: 


saved in STMTR1 in coordination with 


type nunber (high nib = 0) 


STNTR1(13-10) = File type WITHOUT privacy/security 
STMTR1(6-5) = Offset to data 
STMTR1(15) = Copy code 
STMTR1(14) = Create code 
C(0) = Create code 
DO @ STNTR1(5) 
Carry set: 
C(3-0) = Error code 
Calls: FTYPF# 
Uses....... 
Exclusive: A(A), C(A),DO,D1, STNTR1 exit conditions 
Inclusive: A(A),B(S),B(A),C,RO,00,01, STMTR1 exit conditions 
Stk lvls: 3 
Algorithn: 


Find File Type Table entry (error if none) 

Get "vanilla" file type (no privacy, security) 
Save auay info 
Set up exit conditions 


History: 


07/13/82 
06/04/82 


Progranner Modification 


NZ 
FH 


Added “vanilla” file type feature 
Wrote. 


FORO OI OT TT TOK IK 
FOI OOO TOI TT TTT TO TTT TI 


=SVFTYP GOSUB FTYPFH 


GONC 
pO=C 
DO=DO+ 
A=DATO 
DO=(5) 


DATO=A 
01=C 

C=DAT1 
DO=D0+ 
DATO=C 


SVFT90 
16 

4 
=$-R1-2 


A 


B 
4 
B 


Find File Type Table entry 

Error if unrecognized type 

Start of entry 

First file type 

Read "vanilla" file type to A(A) 
Write file type 


Write create and copy code 
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1389 11587 172 

1390 11588 14B 

1391 1158D 188 

1392 1159 148 

1393 116593 03 

1394 11595 3300 SVFT90 
00 

1395 1159B 02 


Di=D1i+ 3 Wrate data offset 
A=DAT1 B : 

DO=DO- 9 

DATO=A B 

RTNCC 

LC(4) =eF TYPE 


RTNSC 
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1396 STITLE CREATE Execute 
1397 JO TO I III IK III ITO TOT III TIO TITS ST IST OT IS IOI IIIS ISOS IS IITA 
1398 JOO III III IIT II OSI ISOS SI SOS OSI OTIS SIS III ISIS SSS IIA. 
1399 ay 
1400 x Nane: (S$) CREATE - Statenent to Create Data File 
1401 aa 
1402 ** Category: STEXEC 
1403 ak 
1404 xX Purpose: 
1405 a The CREATE staterent creates files of type DATA, TEXT, 
1406 ak or SDATA. The syntax is: 
1407 RX 
1408 aK CREATE <file type> <file spec> , <size> , <# recs> 
1409 ae 
1410 ** Entry: 
1411 x P = 0 
1412 eA DO @ 4-nib file type in tokenized CREATE statenent. 
1413 ae (The file type is innediately folloned by file 
1414 a specification) 
1415 ae 
1416 aX Exit: 
1417 xy P = 0 
1418 xe To NXTSTM if successful 
1419 <> To BSERR if error 
1420 aX 
1421 aX Calis: FSPECx, SVFSP+, SNAPSV, EXTCHK, FINDF, SNAPRS, DO=PCA, 
1422 xm SVF TYP, CRIF- 
1423 ze 
1424 RP USES. cise s 
4425 &k Inclusive: A-D,RO-R4,D0,D1,S$11-S0,Statenent and Function 
1426 aa scratch RAM, SCRICH ran, SNAPBF 
1427 aX 
1428 Ae Sth lviss = 7 
1429 a 
1430 x* History: 
1431 ae 
1432 ae Date Progranner Modification 
1433 RR meen n ee cee e cern nn cere n re nnn ne rn nnn nen cere ner ec enero 
1434 xe sc Designed and coded 
1435 KK 41/18/83 FH Added docurientation 
1436 RR 
1437 JUICE IIO CCE TOT IS OST ISK 
1438 JOO ISI III OG III III IIIT STD ITI TIT 
x 
ie JUS IOI IO ISIS ISI IG II I TTI 
1441 JOOS IOI EIU ISI ISIE OI TTI 
1442 - 
1443 %* Nane:(S) pCREAT - Create File in External Device 
1444 a 
1445 ** Category: POLL 
1446 a 
1447 %* Type: POLL 
1448 xe 
1449 aS 
1450 *% Purpose: 
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1451 es Create a file in an external device 
1452 xn This poll handles files of all copy codes except 
1453 ex copy code 8. 
1454 ak 
1455 - Should poll be "Handled" (return with XM=0)?: Yes 
1456 x 
1457 ** Meaning of "Handling" Poll (what does code do if handled?): 
1458 ae Create a file in an external nass menory device 
1459 KK 
1460 ** Entry conditions for handler (registers, ST, RAM, etc.): 
1461 aK B[RA} = Poll nunber. 
1462 kk HEX riode. 
1463 a P=0, 
1464 an 
1465 ak D(X) = Device address 
1466 ak D(S) = Device type 
1467 a STMTRO = First 8 chars of the file nane 
1468 a STNTR1(3,0) = Last 2 chars of the file nane 
1469 ax STMTR1(6,5) = Offset to data (fron file type table) 
1470 KR STMTR1(9,7) = Device address 
1471 KK STMTR1(13,10) = File type 
1472 aR STMNTR1(14) = Create code (can not be 8) 
1473 KK 
1474 xx R2(A) = First parameter for CREATE: 
1475 RR wa nnn nen nnn nn nnn nnn en nn nnn ene nn een ee eee 
1476 ex Create Fornat Meaning of this paraneter 
1477 ak code Inplied 
1478 a aaa ae ae 
1479 ca 0 Executable Data length in nibs 
1480 xk 1 DATA(fix length) Nunber of records 
1481 xk 2 SDATA(41C data) Nunber of registers 
1482 ak 4 LIF1 type File length in bytes 
1483 Kk (vbl len record) 
1484 ak 
1485 a R3(A) = Second paraneter for CREATE: 
1486 ee 
1487 ae Create Fornat Meaning of this paraneter 
1488 am code Inplied 
1489 KR ee ren ne crew er rere ereree cert ee ree ee rece een ennnen- 
1490 ex 0 Executable (ignored) 
1491 ne 1 DATA(fix length) Record length in bytes 
1492 Kx 2 SDATA(41C data) (ignored) 
1493 ak 4 LIF1 type(vbl len) (ignored) 
1494 xx 
1495 ax 
1496 Kk Norrial exit conditions fron handler if handled (ST, RAN, 
1497 ** registers, etc.): 
1498 a Carry clear (POLL only). 
1499 xk HEX rode. 
1500 KX XN=0. 
1501 xe 
1502 ** Nornal exit conditions from handler if not handled (ST, RAN, 
1503 ** registers, etc.): 
1504 ae Carry clear (POLL only). 


1505 


xk 


HEX tiode. 
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1506 xx xM=1. 
1507 kx 
1508 ** Error exit conditions fron handler (POLL only): 
1509 ax Carry set. 
1510 ax HEX riode. 
15114 &K C{0-3] = Error nunber. 
1512 a 
1513 kk Available subroutine levels: 6 
1914 a 
1515 *k What registers/RAM nay be used if handled?: 
1516 a A-D, DO, D1, P ,RO-R4, SO-S11, SCRICH RAN 
1517 KK 
1518 *k What registers/RAN nay be used if not handled?: 
1519 KK A-D, DO, D1, P 
1520 kk 
1521 &k What registers/RAM nay be used if error exit (POLL only)?: 
1522 kk Anything 
1523 ar 
1524 A* NOTE: 
1525 wk No future changes to this interface should cause the 
1526 am handler to alter statenent scratch!!! 
1527 aK 
1528 *k History: 
1529 kk 
1530 oi Date Progranner Modification 
1531 RK ee nnn eee nnn n enn nn nnn nn nen nn nn enn eee 
1532 x 04/19/83 SC Docunent 
1533 ak 
1534 JORIS TOG OIC CTI TIT L 
1535 JOOS OOO EI OCI IO OC OI TOTTI TTI 
k 
ie JOU II OO IT TTI TRS TIS IT ISI III IDI IID ISI STOTT SAK 
1538 JOO ISI UII III OIC OCIA TK 
1539 an 
1540 k* Nane:(S) pCRT=8 - Create File u/Create Code = 8 
1541 ae 
1542 ** Category: POLL 
1543 ak 
1544 ** Type: POLL 
1545 aK 
1546 xR 
1547 ** Purpose: 
1548 am Create a file whose create code is 8. The file can be 
1549 =e in internal meriory or external mass nenory device. 
1550 an The poll handler riust handle all HPIL access. 
1554 KK 
1552 ** Should poll be “Handled (return with XM=0)?: Yes 
1553 ae 
1554 ** Meaning of "Handling" Poll (what does code do if handled?): 
1555 ae Create the file. 
1556 AX 
1557 ** Entry conditions for handler (registers, ST, RAN, etc.): 
1558 Sas B[A] = Poll nunber. 
1559 as HEX rode. 
1560 ak P=Q, 
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1561 a 
1562 aa D(X) = Device address 
1563 ue D(S) = Device type 
1564 an STMTRO = First 8 chars of the file nane 
1565 ek STNTR1(3,0)} = Last 2 chars of the file nane 
1566 an STNTR1(6,5) = Offset to data (fron file type table) 
1567 ae STNTR1(9,7) = Device address 
1568 a STMTR1(13,10) = File type 
1569 xk STMTR1(14) = Create code {can not be 8) 
1570 at 
1671 xR R2(A) = First paraneter for CREATE: 
1572 RR wn nn nnn nn nnn nnn nn nn enn enn nnn ne nnn nnn en ener renner ee 
1573 a Create Fornat Meaning of this parareter 
1574 an code Inplied 
1575 RR wenn wenn enn enn nen ene rene nen nnn renee e eee eee 
1576 aR 0 Executable Data length in nibs 
1577 xR 1 DATA( fix length) Nunber of records 
1578 an 2 SDATA(41C data) Nunber of registers 
1579 ah 4 LIF1 type File length in bytes 
1580 kn (vbl len record) 
1581 aR 
1582 aR R3(A) = Second paraneter for CREATE: 
1583 RR wen nn nn nnn ne nnn nn rn en nnn nn nn rn en nner eens 
1584 aR Create Fornat Meaning of this parameter 
1585 xx code Inplied 
1586 RR ewer wenn nner nen ene cnn nee nnn nnn nee ee ene ee 
1587 ax 0 Executable (ignored) 
1588 = 1 DATA(fix length) Record length in bytes 
1589 as 2 SORTR(41C data) (ignored) 
1590 =e 4 LIF1 type(vbl len) (ignored) 
1591 xx 
1592 ae 
1593 ** Norrial exit conditions fron handler if handled (ST, RAN, 
1594 kk registers, etc.): 
1595 xe Carry clear 
1596 ae HEX node. 
1597 aK XM=0. 
1598 ax 
1599 *k Normal exit conditions fron handler if not handled (ST, RAN, 
1600 ** registers, etc.): 
1601 *K Carry clear 
1602 x HEX rode. 
1603 xx XM=1, 
1604 ak 
1605 ** Error exit conditions fron handler (POLL only): 
1606 x Carry set. 
1607 aK HEX node. 
1608 x C{0-3] = Error nunber. 
1609 a 
1610 *k Available subroutine levels: 6 
1611 aK 
1612 xx What registers/RAN nay be used if handled?: 
1613 aR A-D, DO, D1, P ,RO-R4, ST, SCRTCH RAN 
1614 ak 


1615 xx What registers/RAN may be used if not handled?: 
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1616 aS A-D, BO, DI, P 
1617 a 
1618 ** What registers/RAN nay be used if error exit (POLL only)?: 
1619 ie Anything 
1620 a 
1621 x* NOTE: 
1622 x No future changes to this interface should cause the 
1623 xe poll handler to alter Statenent Scratch! 
1624 a 
1625 ** History: 
1626 xh 
1627 aK Date Progranner Modification 
1628 aa aaa aaa aaah tale 
1629 *k 04/19/83 SC Docunent 
1630 i 
1631 JI CTI IO IO ITO TI II TI II ITI TTI 
1632 SOOO IOI III OO TIT SII II IIIT RII SAT IIA 
1633 1159D 0000 REL(5) =CREADC 
0 
1634 115R2 0000 REL(5) =CREATP 
0 
1635 115A7 163 =CREATE DO=DO0+ 4 JUMP OVER THE FILE TYPE TOKEN 
1636 115AA 7232 GOSUB fspecx PROCESS THE FILE NAME 
1637 115RE 501 GONC CTE100 
1638 * 
1639 115B1 68A0 GOTO  CRTERR 
1640 x 
1641 11585 3100 =FTYPER LC(2) =eF TYPE 
1642 * 
1643 11589 8COO ERREX GOLONG =NfErr 
0 
1644 - 
1645 115BF 766F CTE100 GOSUB SVFSP+ SAVE THE FILE SPECIFIER FIRST 
1646 x 
1647 115C3 7778 GOSUB GETARG PROCESS THE ARGUMENTS 
1648 * 
1649 * Now check 1f the file exist yet 
1650 & 
1651 115C7 112 R=R2 
1652 115CA 11B C=R3 
1653 115CD AF? D=C W 
1654 11500 &F0O GOSBYVL =SNAPSV SAVE Re & R3 
000 
1655 . 
1656 1150? 1B17 DO=(5) =STMTRO 
8F2 
1657 115DE 152? A=DATO W A= FILE NANE 
1658 11562 16F DO=D0+ 16 
1659 115€5 163 DO=D0+ 4 
1660 115€8 1564 C=DATO $ 
1661 115EC AC? D=C S D(S) = DEVICE TYPE 
1662 115EF 162 DO=D0+ 3 
1663 115F2 1563 C=DRTO X 
1664 115F6 AB? b=C K D(X) = DEVICE ADDRESS 
1665 115F9 703F GOSUB  EXTCHK CHECK IF IS AN EXTERNAL DEVICE 
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1666 
1667 
1668 
1669 
1670 
1671 


1672 
1673 


1674 
1675 
1676 
1677 
1678 


1673 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
168? 
1688 
1689 
1690 


1691 
1692 
1693 
1694 
1695 
1696 
169? 
1698 
1699 
1700 
1701 


1702 
1703 
1704 
1705 
1706 
170? 
1708 
1709 
1710 
1714 
1712 
1713 
1714 
1715 


115FD 4FO 


11600 7£25 
11604 480 
11607 8C00 
00 

1160D 8E00 
00 

102 
AFB 
108 


11613 
11616 
11619 
1161C 8E00 
00 

167 
DO 


11622 
11625 
11627 15A3 
1162B 713F 
1162F 498 
11632 DS 

11634 900 
11637 60 


11633 6B7F 


1163D 1B58 
8F2 
1564 
AC? 
162 
146 
07 

7A20 
560 


11644 
11648 
1164B 
1164E 
11651 
11653 
11657 


1165A 6284 


1165E 8000 


00 
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GOC CTE110 IF SO, NO NEED TO CHECK DUPL. FILE 
k 
GOSUB findf 
GOC CTE110 FILE NOT FOUND IS OK 
x 
GOLONG =RNMERR IF FOUND, SAY FILE EXIST 
k 
CTE110 GOSUBL =Snaprs RESTORE R2 & R3 
R2=A 
C=) W 
R3=C 
k 
GOSUBL =D0=PCA NOW GO BACK TO SEE THE TYPE 
DO=D0+ 8 DO POINTS AT FILE TYPE TOKEN 
A=0 A 
A=DATO 4 
GOSUB SVFTYP 
GOC ERREX 
B=C A 
7BHO OOP IS IT A MAINFRAME FILE ? 
; GOYES CTE120 
GOTO FTYPER IF SO, FILE TYPE ERROR 
k 
CTE120 DO=(5) (=STMTR1)+4 
C=DATO S$ 
d=C S D(S) = DEVICE TYPE 
DO=D0+ 3 
C=DATO A 
D=C A D(B) = PORT NUMBER 
GOSUB CRIF- 
GONC CTE3O If no error, done 
k 
OPNERR UNRECOGNIZED FILE TYPE 


CRIERR GOTO 
& 
CTE300 GOLONG =NEXTst 


x 
x 


To NXTSTN 


FOI IOI TOO TT TTT TTI ITT RI IK 
FOOT III OTTO TOT TTI TTI K 


ak 
ak 
xk 
ak 
ak 
ax 
ak 
xk 


KK ENTRY: 
aK p = 0 


Nane: CRFSUB - 
Narie:(S) CRFSB-  - 


Category: FILUTL 


Create a File in Mainfrane 
Create a File in Mainfrane 


Purpose: Create a file in nainfrare 
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1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1734 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 


1746 
1747 
1748 
1749 
1750 
1751 
1782 
1753 
1754 
1755 
1756 
175? 
1758 
1759 
1760 
1761 
17be 
1763 
1764 
1765 


1766 
176? 
1768 


11664 119 
11667 135 
1166A 1817 
8F2 
11671 1567 
11675 1587 
11679 16F 
1167C 169 
1167F 17F 
11682 146 
11685 1503 
11689 174 
1168C 164 
1168F 14€ 
11692 15D0 
11696 17A 
11699 143 
14769C 174 
1169F D2 
116A1 03 


116A3 1F17 

8F2 
116RA 1537 
116RAE 100 
11681 17F 


xk 
xk 
ak 
ak 
ak 
kk 
ak 
ax 
ak 
xk 
ak 
ak 
xk 
ak 
ak 
ax 
xx 


x 
xk 
ak 
xk 
ak 
xk 
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STMTRO = FILE NANE 

STMTR1(4) = DEVICE TYPE 

STNTR1(8-7) = PORT # 

STNTRI(15) = FILE COPY CODE FROM FILE TYPE TABLE 
S-R1-0(13-10) = FILE TYPE 


R1 


ADDRESS OF FILE HEADER ALREADY CREATED BY 
CREATF. FILE NANE, COPY CODE, AND FILE 
TYPE WILL BE FILLED IN. 


EXIT: FILE HEADER ALL BEEN PROPERLY FILLED 
A 
C(A) 


D1 
DO 
R1 
Pp 


USES: 


** Calls: CREATF, 
k 


FILE CHRIN LENGTH 

0 

PAST THE FILE CHAIN LENGTH FIELD 
S-R1-3 (COPY CODE) 

ADDRESS OF FILE HEADER 

0 


nou D@Dn ay 


A-MULT 


Inclusive: A{A),C,00,D1 


Stk lvis: 0 


FOI OI IOI OI OIG ICT IIT III I ITI IIT K 
FO III II TT OT TI IIIT IK 


x 
=C 


x 


RFSB- C=R1 
D1=C 
DO=(5) 


C=DATO 
DAT1=C 
DO=D0+ 
DO=D0+ 
D1=D1+ 
C=DATO 
DAT1=C 
D1=D1+ 
DO=DO+ 
C=DATO 
BAT1=C 
Bi=D1+ 
A=DATI 
Di=D1+ 
C=0 
RTNCC 


D1 POINTS AT START OF HERDER 


=S-RO-0 

W WRITE FILE NAME 

W 

16 

10 DO POINTS AT SAVED FILE TYPE 

16 D1 PTS AT FILE TYPE IN FILE HEADER 
A 

4 WRITE FILE TYPE 

5 D1 PTS AT L. S. NIB OF FLAGS 

5 DO PTS AT SAVED COPY CODE 

B 

1 WRITE COPY CODE 

11 D1 POINTS FILE CHAIN LENGTH 

R 

5 D1 PTS PASSED FILE CHAIN LENGTH 
A 


FOTO RRR III 


x 


POLLFF D1=(5) =STNTRO 


A=DATI 
RO=R 


DI=D1+ 16 


W 
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1769 11684 1537 A=DATI W 

1770 116B8 101 R1=A 

1771 116BB 8C0O poll GOLONG =POLL 

00 

1772 % 

1773 . 

1774 JUG UGS CCITT III 

1775 $I ORI III TTI III I IIIT II II IOI ISI AI IO STE I 

1776 kk 

1777 &* Nane:(S) CRIF - Create File in MAIN, PORT, or HPIL 

1778 ie 

1779 *k Category:  FILUTL 

1780 ak 

1781 ** Purpose: 

1782 ax Create a file of arbitrary type in nenory or on an 

1783 ak external device. 

1784 ax 

1785 &k Entry: 

1786 aes A = First 8 chars of file nane 

1787 tk D(S) = FIB device code 

1788 ax D(A) = FIB device address: 

1789 + D(B) = Port# and Extender# for PORT 

17% ax D(X) = Device address for HPIL device 

1791 xk P = 0 

1792 ak RO = Last tuo chars of file nane if HPIL device 

1793 ax R1(A) = File type (high nib = 0) 

1794 ax R2(A) = First paraneter for create: 

1795 RR en ene nnn nnn n cern nent mene nnn e ee nn ne 

1796 ax Create Fornat Meaning of This 

1797 aX Code Inplied Paraneter - 

1798 RK eee eeeweee etme een nce weeennwmnn ce 
; 1799 ax 0 Standard Data length in nibs 

1800 ak 1 DATA Nunber of records (can 

1801 ae be 0 if not HPIL) 

1802 a 2 SDATA Nuriber of records (can 

1803 ax be 0 if not HPIL) 

1804 ax 4 Vbl Rec Nurber of bytes in file 

1805 ne 8 OEN Unknown; poll for len 

1806 am 

1807 ax R2(9:5)= Address of data in RAM/ROM to copy to the 

1808 am newly created file (none if zero) 

1809 xe 

1810 ax R3(R) = Second paraneter for create: 

1811 ee 

1812 7 Create Fornat Meaning of This 

1813 a Code Inplied Paraneter 

1814 RR te weer eee ener er enter nee ene ee ne 

1815 ax 0 Standard (Ignored) 

1816 aR 1 DATA Record length in bytes 

1817 kx (256 default) 

1818 kx 2 SDATA (Ignored; set to 8) 

1819 ax 4 Vol Rec (Ignored) 

1820 a 8 OEN Unknown; poll for len 

1821 ax 


1822 Kk Exit: 
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1823 A P 0 
1824 3K R2(R) File length in nibbles (chain length) 


1h o-> tho oe ow 


1825 a R3(A) Entry state (updated if default condition) 
1826 rs Carry set: 

1827 RK C(A) Error code: 

1828 = "Not Inplenented” 

1829 ae Carry clear: 

1830 ke D(S) = File device code 

1831 ax (X) = Device address 

1832 ax R1 = Address of file header if file in nenory 
1833 a% Di @ Start of data if file is in menory 

1834 es 

1835 ** Calls: SVFPSC , SVFTYP, POLL, A-NULT, CRETF+,CRFSB-, INI THF 
1836 AX 

1837 AX Uses. i.e. 

1838 kk Exclusive: A,B(S,A),C,D(S),D0,D1,  R1,R2 

1839 ** Inclusive: A-D, DO, D1, RO-R4, STNTRO, STMTRI, 
1840 aK SCRTCH, $11-S0 

1841 ax 

1842 ** Stk lvls: 6 - If file created on plug-in, else 5 

1843 ak 

1844 ** NOTE: 

1845 ak This routine can only create BASIC, TEXT, and 41C data 
1846 =* in nenory at the nonent. 

1847 kx 

1848 ** Algorithn: 

1849 x Save atiay file spec and file type info 

1850 ae Compute data length fron paraneters 

1851 a Conpute and add on subheader length 

1852 mm If device 1s not MAIN then 

1853 ai Error exit for now (not inplenented) 

1854 ae Create file header in nenory 

1855 xs Fill in nane, etc. 

1856 aK Initialize file according to create code 

1857 ia 

1858 ** History: 

1859 an 

1860 i Date Progratiner Modification 

1861 aa aaa aaa ahaa iSReSsoasse 
1862 kk 09/24/82 SL Add code to create and initialize 
1863 xx file in HP-IL device. 

1864 ra POLL to create OEM file and the 
1865 _ POLL handler has to do it all. 
1866 AR 07/21/82 NZ Modified entry condition locations 
1867 KR OP f/13/82 NZ Added field (R2(9:5)) far address 
1868 a of data to copy to the file after 
1869 kx creation; modified exit code to 
1870 zy use DO instead of D1 to get stated 
1871 ae exit conditions; changed R2 exit 
1872 cia conditions 

1873 e* 06/01/82 FH Wrote fron looking at code for 
1874 eX CREATE execute and CRBAS (create 
1875 A BASIC}. Needed for TRANSFORM. 
1876 xe 


1877 SOOO OO IO OI I IO OOO ok 
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1878 OIC II III OIC ITE 
1879 116C1 737£ =CRIF  GOSUB SVFSPC Save file info for create 
1880 116C5 111 A=R1 Fetch and save file type info 
1881 116C8 749€ GOSUB SVFTYP < 
1882 116CC 400 RTNC . and return if error 
1883 116CF DS B=C A Save create code 
1884 
1885 ; Conpute data length fron create paraneters if needed 
1886 
1887 116D1 112 CRIF- A=R2 Recall data len 
1888 11604 ADS B=B+B P Not Create Code 8 (Poll)? 
1889 11607 5CO GONC CRIFOS GOYES 
1890 116DA 7DDF GOSUB poll Poll for Create Code 8 (has to do 
1891 116DE 32 CON(2) =pCRT=8 . it all and initialize it) 
1892 116EO 6C60 GOTO = CRIF4&5 
1893 x 
1894 116£4 909 CRIFOS 7B=0 P CREATE CODE =0 ? 

1895 116E7 45 GOYES CRTIF40 IF SO , GOTO CRIF40 

1896 116€9 AOS B=B+B P LIF1 format? 

1897 116EC 4B3 GOC CRTIF30 GOYES 

1898 * 

1899 * The file type 1s either DATA or SDATA, 

1900 * no argument should be > 65,535 

1901 x 

192 116EF 118 C=R3 Fetch record length 

1903 116F2 24 P= 4 

194 116F4 90C AHO OOP 

1905 116F7 70 GOYES CRIF10 

1906 116F9 SE 7C#HO oP 

1907 116FC 20 GOYES CRIF1O 

1908 116FE 20 CRIF1O P= 0 

1909 11700 4F1 A COC CRiFer Carry set if argunent > 65,535 

1910 

1911 11703 AOS B=B+B  P Not 41C€ data file fornat? 

1912 11706 570 GONC CRIF20 GOYES 

1913 11709 De C=0 A Set rec len to 8 for 41C file 

1914 11708 #8 iC(1) 8 

1915 1170— 8AE CRTF20 *CHO A Rec len specified? 

1916 11711 50 GOYES CRIF25 

1917 11713 B26 C=C+1 XS Default is 256 (for DATA) 

1918 11716 108 CRIF25 R3=C % 

1919 11719 79C0 COSUB = a-nult Compute len in bytes 

1920 1171D 481 . GOC CRIF35 Branch if no overflow 

1921 

1922 11720 3300 CRIFer LC(4) =eNEN Error: "Not enough nen" 
00 

1923 11726 02 RTNSC 

1924 x 

1925 * Round the file size to even nunber of bytes for test file 

1926 x 

1927 11728 E4 CRIF3 A=At1 A 

1928 1172A 45F GOC CRiFer 

1929 1172D 81C ASRB 

1930 117% A74 A=A+A OW 

1931 11733 102 R2=A Update the size in R2 too 
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1932 x 
1933 11736 C4 CRTF35 A=A+A A Compute len in nibs 
1934 11738 47€ GOC CRIFer 
1935 x 
1936 1173B ACB CRIF4O C=D S 
1937 1173E B46 C=C+1 § TURN F INTO 0 
1938 11741 A46 C=C+C § 
1939 11744 581 GONC CRIFS5O NOT TO CREATE IN HP-IL DEVICE 
1940 11747 ?07F GOSUB poll 
1941 1174B ® CON(2) =pCREAT 
1942 1174D 400 CRTIF45 RTNC RETURN WITH CARRY SET IF ERROR 
1943 11750 831 2XKM=0 Handled? 
1944 11753 & GOYES CRIF46 
1945 11755 6F3E GOTO SVFT90 Error: "Illegal file type" 
1946 11759 6070 CRIF46 GOTO CRIF70 
194? x 
1948 x. 
1949 x 
1950 * Add on subheader and file header length 
1951 * 
1952 11750 11B =CRIF5O C=R3 
1953 11760 D5 B=C A B(A) = Record length 
1954 11762 1F68 01=(5) (=S-R1-0)+5 Fetch offset to data 

8F2 
1955 11769 D2 C=0 A 
1956 11768 14F C=DAT1 B , 
1957 1176— CA A=A+C A Add it in 
1958 x 
1959 ; Write updated (1e real) file length in nibbles in R2(A) 
1960 
1961 11770 11f C=R2 Preserve upper nibs of R2! 
1962 11773 D6 C=A A 
1963 11775 8E00 GOSUBL =Cslc5 

00 
1964 11778 D9 C=B A Save record length in R2 
1965 1177D 10A R2=C 
1966 - 
196? 11780 D2 C=0 A Clear high nibbles 
1968 11782 3102 LC(2) =oF LENh Add in rest of file header len 
1969 11786 C2 C=C+A A ‘ 
1970 a 
1971 * Now create the file 
1972 x 
1973 * 
1974 11788 8F0O GOSBVL =CRETF+ Create nainfrane file 

000 
1975 1178F 400 RTNC 
1976 11792 11A C=R2 Restore record length to R3 
1977 11795 108 R3=C 
1978 11798 8E00 GOSUBL =csrc5 Restore R2 

0 
1979 1179E 10A R2=C 
1980 * 
1981 * Initialize the file header 

k 


1982 
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1983 117A1 7FBE GOSUB CRFSB- Write nane, type, codes 
1984 117A5 180 DO=D0- 1 Fetch create code into B 
1985 m C=DATO P 5 
1986 x B=C A 
1987 117A8 1564 C=DATO $ ¥ 
1988 117AC ACS B=C S$ B(S) is create code 
1989 117AF 184 DO=DO- 5 Fetch file type into A 
1990 117B2 146 C=DATO A f 
1991 117B5 Fé CSR A ; 
1992 117B7 D5 B=C A B(A) 1s file type 
1993 x 
1994 ; BCA) is file type, B(S) is create code, A(A) 1s file chain len 
1995 
1996 117B9 183 DO=D0- 4 Fetch offset to data 
1997 117BC D2 C=0 A 
1998 117BE 14E C=DATO B C(A) is offset to data of file 
1999 11701 EA A=A-C A ACA) is data length of file 
2000 x 
2001 * Now initialize the subheader and data portions 
2002 x 
2003 11703 7620 GOSUB INITHF 
2004 11707 400 RTNC 
2005 x 
2006 * Set up successful return condition 
2007 x 
2008 117CA 1F58 CRIF70 D1=(5) (=S-R1-0)+4 Fetch device codes 
8F2 
2009 117D1 1574 C=DAT1 S$ . (FIB device code) 
2010 11705 172 01=D1+ 3 : 
2011 117D8 147 C=DAT1 A . (device address 
2012 117DB AF7 d=C W ; 
2013 117DE 03 RTNCC 
2014 ‘ 
2015 x 
2016 117EO 8C00 =fspecx GOLONG =FSPECx 
0 
2017 117E6 8D00 =a-nult GOVLNG =A-MULT 
000 
2018 x 
2019 JOIST II TI TIT OTIS IIIT IIIT II III I SII III IIIS IIIA 
2020 SII TIO ITI RTI IR TTT ITT III ATI SI III IIIT ITI III IAT I STIR II AAI IAN 
2021 Xx 
2022 ** Narie: INITMF - Initialize Memory File After Create 
2023 aK 
2024 *% Category:  FILUTL 
2025 aK 
2026 ** Purpose: 
2027 ae Initialize subheader and data portion of a file after 
2028 ae creation. Works only for menory files at the norient. 
2029 = 
2030 xk Entry: 
2031 xk A(R) = Data length of file in nibs 
2032 a B(A) = File type # (high nib = 0) 
2033 xR (S) = Create code for file 
2034 aa C(A) = Offset to data for file type 
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2035 xk D1 @ Past file chain length field in file header 
2036 ae R1 = Start of file header 
2037 ak R3 = Length in bytes of logical record (fixed data) 
2038 ak P = 0 
2039 aR 
2040 x* Exit: 

2041 aR D1 @ Start of data portion of file (at next header 
2042 xx in chain if no data portion) 

2043 ak R1 = Entry state 

2044 a Carry clear 

2045 ak 

2046 ** Calls: STUFF - 

2047 ak 

2048 A® Uses.....0. 

2049 *k Exclusive: A,B(A),C(A),00,D1,RO 

2050 kk Inclusive: A,B(A),C(A),DO,D1,RO 

2051 aK 

2052 ** Stk lvls: 1 

2053 ak 

2054 ** Algorithn: 

2055 aK Zero out subheader 

2056 a Case of CREATE CODE: 

2057 xk O (Standard): If BASIC then 

2058 ae Write EOL to subheader 

2059 aS 

2060 a 1 (DATA): Write # of records and record 
2061 a length to Impl Field 

2062 = Stuff data portion with -1 

2063 aa 

2064 aR 2 (41C Data): Stuff data portion with 0 

2065 as 

2066 ax 4 (LIF1 format): Stuff data portion with -1 

2067 aR 

2068 a 8 (Alien): Zero subheader and return 

2069 an Endcase 

2070 + Set up exit condition 

2071 ax 

2072 ** History: 

2073 *A 

2074 ae Date Progratiner Modification 

2075 RK nnn nn renee nner nner nner nnn re err rect tre cccce x 
2076 *R 07/22/82 NZ Modified entry conditions, type 1 
2077 i Modified initialization of type 1 
2078 Rk 07/21/82 NZ Added file type 8 handling 

2079 KK 07/13/82 NZ Fixed bug in fBASIC test: AHB= >CHB 
2080 *k 06/08/82 FH Designed and coded. 

2081 ze 

2082 FOROS IOISIISISIS IGOR I IO II II IK 
2083 JUHOSG IIIS UTI TIS ITAA I IK 
2084 x 

2085 * Clear subheader 

2086 * 


2087 117EB 100 
2088 117FO 137 
2089 117F3 1C4 


=INITNF RO=A Save away data length 
CDIEX Subhdr len = offset-length field 
D1=Di- =1FLENh 
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2090 
2091 
2092 
2093 
2094 
2095 


2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 


2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2133 
2140 
2141 
2142 


117F6 134 
117F9 137 


117FC 8FOO 
000 

11803 94D 

11806 01 


11808 3441 
2E0 
1180F 8A5 
11812 FO 
11814 310 
11818 1C1 
1181B 14D 
1181E 171 
11821 03 


11823 A45 
11826 4AF 
11829 137 
1182C 135 
1182F 128 
11832 A45 
11835 444 
11838 AFO 
1183B A4$ 
1183E 414 


11841 DA 

11843 81C 
11846 100 
11849 113 
1184C 163 
1184F 1583 
11853 183 
11856 23 

11858 AF2 
1185B R96 
1185E 110 


4:34 an 
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Do=C 
CDIEX 


Set DO @ Inp Fld while handy 
Set C to subheader length 


i 
* C[A] is subheader length, DO @ Implementation field 
i 


~~ ee 


I 
& 
a 
I 


Me OF OF Oe OF Oe 


GOSBVL =WIPOUT Clear subheader 


BHO OS 
GOYES INIT20 


Not Standard file fornat? 


Create Code 0: Standard File Fornat 
(data portion not initialized; 
only BASIC subheader gets special treatment) 
LC(5) =fBASIC 
CHB OR Not create BASIC file? 
GOYES INIT10 
LC(2) =tEOL Write EOL to end of subheader 
01=D1- 2 ; 
DAT1=C B . 
D1=D1+ 2 Restore output condition 
NIT1O RTNCC 
NIT2O0 B=B+B § Alien fornat? 
GOC INIT10 GOYES to exit 
CDIEX Save away data start pointer 
01=C : 
CROEX and recall data len 
B=B+B § Variable length fornat? 
COC INIT70 GOYES 
A=0 W 
B=B+B §$ 41C Register data fornat? 
GOC INIT?75 


Create Code 1: DATA File Fornat 
(Write out Paran1 and Paran2 to Inplenentation Field; 
initialize records) 
C{A} is NOW data length 
INIT30 A=C A 
ASRB Length of data in bytes 
RO=A Store length for nou 
A=R3 Nuriber of records 
DO=D0+ 4 Second paranreter=length in bytes 
DRTO=A 4 Write len of records 
DO=D0- 4 Back to # of records 
P= 3 
C=0 W High nibs are clear fron above 
C=R WP C is now record length in bytes 
A=RO Ris file length in bytes 
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2143 x 
2144 : Divide RA by C to find nunber of records 
2145 
2146 11861 8EO GOSUBL =IDIV Returns Quotient in A, Ren in B 
00 
2147 11867 20 P= 0 
2148 11869 1583 ; DATO=A 4 Write out the result! 
2149 
2150 * Now initialize the data area (D1 is @ data start) 
2151 k 
2152 1186D 133 ADIEX 
2153 11870 131 01=A Get data start to A[A] 
2154 11873 120 AROEX Data start to RO, length to A[A) 
2155 11876 C4 A=A+A A Convert back to nibs 
2156 11878 D6 C=A A 
2157 k. 
2158 & 
2159 * Create Code 2: 41C Data File Fornat 
2160 x 
2161 : Create Code 4:  LIF1 (Variable Length) Forriat 
2162 
2163 1187A AFO INIT70 A=0 W 
2164 1187D A7C A=A-1 W Fill with -1 
2165 11880 8E00 INIT75 GOSUBL =stuff Fill with -1 or 0 
00 
2166 a. 
2167 11886 118 C=RO Restore data start pointer 
2168 11889 135 D1=C 3 
2169 1188C 03 RTNCC 
say JO OI OIG III IO ICO OI IT 
2172 FOI IOI III ISI IOI II ICICI AK 
2173 ak 
2174 : Nare:(S) IOFSCR - I/0 Find for Available Scratch Buffer 
2175 
2176 ek Category: BUFUTL 
2177 ak 
2178 ** Purpose: 
2179 ak Returns available scratch buffer ID 
2180 ax 
2181 kk Entry: 
2182 ak P = 0 
2183 aK 
2184 wk Exit: 
2185 xe Pp = Q 
2186 ae Carry clear => Available Buffer ID in C(X) 
2187 a set => No available scratch buffers 
2188 ak C(X)=000 
2189 KR 
2190 *k Calls: 1/OFND 
2191 ak 
2192 RK Uses....... 
21953 ak A, CCA), D1 
2194 ae 


2195 


AK Stk lvis: 1 
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2196 kk 
2197 ak 
2198 ** Detail: 
2199 a Scratch buffer ID’s range fron EOO (bSCRIC) to FFF 
2200 kk 
2201 *k History: 
2202 ah 
2203 a Date Prograriner Modification 
2204 Pe Giiged . beeteectat ~Slecwensiie atunweaetedsateecemaats 
2205 tk 02/08/83 = S.W. Added docunentation 
2206 ak 
2207 JOS IIS ICU IIIT TORT 
2208 JOU OUI IOCIIOUI IO ISI COCO TOO OE 
2209 x 
2210 1188E 3200 =IOFSCR LC(3) =bSCRIC 
E 
2211 11893 7320 IOFSCS GOSUB I/OFND 
2212 11897 50 RTNNC Buffer not found? 
2213 1189A B36 C=C+1 Xx Try next ID# 
2214 11890 5S5F GONC IOFSCS5 Not yet reached FFF ? 
2215 118R0 01 RIN No unused scratch buffer ID’s 


2216 
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2217 STITLE I/O BUFFER UTILITY ROUTINES 
2218 JO IOI I III IIIA IIIT IIIT IIT TI TTI IT ITT IT IIIT ITT T NS 
2219 JO I IDI TIO TI SIS I II IIIT III III II III TI IIT TIT IIIT IIIT I TTI I 
2220 RX 
2221 ** Wane: (S) I/OFND - I/0 Buffer Find 
2222 ** Narie:(S) IOFNDO - I/0 Buffer Find 
2223 x 
2224 ** Category:  BUFUTL 
2225 ax 
2226 ** Purpose: Find the specified 1/0 buffer 
2227 aK 
2228 ax IOFNDO looks for the buffer ID specified in C(x). 
2229 Rx 
2230 ae I/OFND sets the high bit of the buffer ID 
2231 ax specified in C(X), then looks for that buffer. 
2232 ae (Buffer IDs with the high bit clear are those 
2233 a which will be deallocated at the next configura- 
2234 ax tion). 
2235 aK 
2236 *k Entry: C(X)= Buffer IDK 
2237 ak 
2238 KX Exit:  C(X)= Buffer ID# 
2239 ay Carry set=> Match found 
2240 aX D1 = points past buffer header 
2241 ee ACA) Buffer length field 
2242 - C(S)=#addresses to update in buffer 
2243 am Carry clr=> No natch 
2244 es 
2245 *k Calls: none 
2246 es 
2247 xk Uses: A, C(A), CCS), 01 
2248 aK 
2249 ** Stack lvls: 0 
2250 a 
2c51 ** Detail: Buffer length field in header reflects the anount 
2252 ae of available scratch space in that buffer, but is 
2253 a not the entire length of the buffer (eg doesn’t 
2254 x include 7? nibbles for the header) 
255 a 
2256 ** History: 
2257 aK 
2258 ae Date Progranner Modifications 
2259 RK manne ne eee e een te eee renee ee 
2260 RR 07/04/82 S.W. Added docunentation 
ecb 02/10/83 SLU. Added 1 nibble to header front 
262 * 03/10/83 SL. Save Leeway setting in B(S) 
2263 ek 03/14/83 =N.B Packed 3 nibs in I/OFN+ 
2264 at 
2065 ORO OJOS TOTO IOI ICO 
2266 JOSIE OUSIDE UII TOSI 
2c6? % 
2268 118A2 3230 =BUFFIB LC(3) =bFIB FIND FIB BUFFER 
& 
2269 118A7 6210 GOTO I/OFND 


2270 118AB 3240 =BUFASN LC(3) =bASSGN FIND ASSIGN BUFFER 
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2271 
2272 
2273 
2274 
2275 
2276 
227? 
2278 
2279 


2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2X0 
21 
2H2 
203 
24 
25 
2X6 
en? 
2H8 
2X39 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
231? 
2318 
2319 
2320 
2321 
2322 
2323 
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8 
11880 6900 GOTO § I/OFND 
k 
118B4 80FE I/OFN+ CPEX 14 C(14) for leeway check. 
118B8 20 P= 0 
* 
118BA OB =I/OFND CSTEX 
118BC 85B ST=1 11 
118BF OB CSTEX 
118C1 1F17 =IOFNDO D1=(5) =MAINEN START OF IG BUFFER AREA 
5F2 
118C8 143 A=DAT1 A 
118CB 131 DI=A 
118CE 6B10 GOTO IOQFNDS GOTO IOFNDS 
118D2 B3A  IOFND3 A=A-C xX 
11805 BBS A=-A x Clears carry only if A(X)=0. 
11808 BF4 ASR W SHIFT IN LENGTH 
118DB F4 ASR oA 
11800 F4 ASR A 
118DF 5E3 GONC RINSC} BUFFER FOUND! 
118E2 137 CD1EX 
118E5 C2 C=A+C A POINT TO NEXT BUFFER 
118E7 137 CD1EX 
118ER 1574 IOFNDS C=DAT1 S Read in #addresses 
118EE 170 01=D1+ 1 Step over, pt to ID 
118F1 1585 A=DAT1 6 READ HEADER 
118F5 175 D1=D1+ 6 POINT PAST HEADER 
118F8 93C PAHO OX NOT AT END OF BUFFER AREA? 
118FB 7D GOYES IOFND3 IF NOT, REPEAT IOFND3 
118FD 03 RTNCC RETURN CARRY CLEAR 
x 
JORIS II III IOC TI IIIT IIIT IS TTI I III III III IIA I IIIS IIL 
$I III III III ITI II IIS III SSI SSSI SII II SII ISI SS ISI III III III II SSA IA 
kK 
** Nane:(S) I/ORES - I/0 Buffer Restore 
xk 
** Category: BUFUTL 
Pe 
*k Purpose: Sets high bit of buffer ID to preserve buffer 
K 
*k Entry: C(X) IS BUF ID# 
kx 
ak Exit: CARRY SET=> BUFFER FOUND AND HIGH BIT OF IDH SET. 
ale D1 POINTS PAST HEADER. 
xk C(X) IS ID# WITH HIGH BIT SET. 
ks 
x CARRY CLR=> BUFFER NOT FOUND. 
ak 
*k Calls: 1/OFND 
kk 
** Uses: A, C, D1 
xx 
** Stack lvls: 1 
kk 
** History: 
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2324 a 
2325 xm Date Programmer Modifications 
2326 RR nnn nnn we eee nee ee nen nen nne-- 
2327 ae 07/04/82  S.W. Added docunentation 
a JOSIE OCC COC III III III TTI TIO 
2330 JOIST TT TOAD III III II II IIT IIE I IK 
2331 x 
2332 x 
2333 118FF OB =I/ORES CSTEX 
2334 11901 84B ST=0 11 EXPLICITLY CLR HIGH BIT 
2335 11904 OB CSTEX 
2336 11906 77BF GOSUB IOFNDO 
2337 1190A SFA GONC I/OFND MAYBE HIGH BIT ALREADY SET 
2338 * SET HIGH BIT 
2339 11900 1C3 D1=01- 4 POINT BACK TO ID HINIB 
2340 11910 OB CSTEX 
2341 11912 858 ST=1 11 
2342 11916 OB CSTEX 
2343 11917 1552 DAT1=C XS SET HIGH BIT IN HEADER ID 
2344 1191B 173 Di=D1+ 4 POINT PAST HEADER 
2345 1191E 02 RINSC) RINSC 
2346 x 
2347 JIG GO II III OCC TI IRIE II IID DOO TTI T III 
238 JOISTS IOI IIE COI III I IID III III IIIT 
2349 ie 
2350 **k Nane:(S) I/OCON - I/0 Buffer Contract Fron Buffer End 
2351 - Nane: IOCNDO - I/0 Buffer Contract Fron Buffer Middle 
2352 
2353 **k Category:  BUFUTL 
2354 RS 
2355 ** Purpose: 
2356 x Contract an I/0 buffer. 
2357 * 
2358 ak I/OCON contracts the buffer fron its end, losing data 
2359 tie stored at the end of the buffer. 
2360 Re 
2361 ae IOCNDO contracts a specified section of the buffer. 
2362 ae 
2363 *k Entry: 
2364 2 C(X) = Buffer nunber 
2365 a B(A) = Ariount to shrink existing buffer 
2366 ae A positive number - nat to exceed OOFFF 
236? aS 2 entry points: 
2368 ae 1) I/OCON - No additional requirerients 
2369 ae 2) IOCNDO - DO points to the beginning of the 
2370 ws block that 1s to be deleted. 
2371 ak 
2372 kk Exit: 
2373 RS Carry clear=> Buffer not found 
2374 xs set=> Buffer contracted specified anount 
2375 AS D1 points past buffer header 
2376 a DO points 1 nibble past front of header 
ear? Ke (at buffer ID) 
2378 aS P=0 
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2379 xk 

2380 *% Calls: I/OFND, IDLNSV, MOVEMU, PTRADJ 

2381 at 

2382 ek Uses....... 

2383 kk Exclusive: A-D, DO, D1 

2384 k*% Inclusive: A-D, DO, D1 

2385 a 

2386 *% Stk lvls: 3 

2387 aR 

2388 xt Detail: 

2389 a If amount to contract given in B(A) is greater than 

2390 kk the current buffer size, the buffer is collapsed. 

2391 an See I/OCOL 

2392 a 

2393 ** History: 

2394 ah 

2395 ak Date Progranner Modification 

2396 oS 

2397 Kk 07/04/82 = S.W. Added docunentation 

2398 ne 09/13/83 S.W. Modified doc. to show stk lvls=3 
t 

Sine JOO III UIC OOO TT ITT I 

2401 JOIST OGG OIC TTR TE 

2402 k 

2403 x 

2404 11920 DO = =I/0CON A=0 A 

2405 11922 130 DO=A FLAG DEFAULT SHRINK 

2406 11925 719F =IOCNDO GOSUB 1/OFND 

2407 11929 500 RTNNC 

2408 1192C OD CBEX A C(A)=ANT TO CON; B(X)=BUF ID 

2409 1192E B3E C=A-C XxX DESIRED BUFFER LENGTH 

2410 11931 454 GOC TONULL 

2411 11934 72F0 GOSUB IDLNSV SAVE BUF LEN & ID IN D 

2412 11938 £8 B=B-AR A PTR ADJUST OFFSET 

2413 1193A 137 CDIEX 

2414 1193D 06 RSTK=C SAVE BUFST 

2415 1193F 132 ADOEX DO=BUF LENGTH; A(A)=BGN DEST. 

2416 11942 131 D1=A 

2417 11945 8AC 7AHO OA BEGIN DEST SPECIFIED? 

2418 11948 11 GOYES IOCNIO 

2419 1194A 132 ADOEX A(A)=BUF LENGTH 

2420 1194D CA A=A+C A BUF END (DEFAULT BGN SOURCE) 

2421 1194F D6 C=A A 

2422 11951 C9 C=C+B A BGN DEST 

2423 11953 135 D1=C 

2424 11956 440 GOC IGCN20 (B.E.T.) 

2425 11359 EO IOCNIO A=A-B A BGN SOURCE 

2426 1195B 6410 IOCN20 GOTO IdSH20 SHRINK BUFFER 

2427 x 

2428 x 

2429 FOIA OCIIOOCIIO OGIO ITO TIO I TIA 

2430 JOO III COI CO ISO TIS 

2431 x 

2432 ** Narie:(S) I/OCOL - I/0 Buffer Collapse 


2433 


ax 
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2434 ** Category: BUFUTL 
2435 xR 
2436 xk Purpose: 
2437 & Collapses specified 1/0 Buffer - 
2438 an Leaves header intact, but shrinks length to zero 
2439 ak 
2440 xt Entry: 
2441 KK C(X) = Buffer ID# 
2442 ak 
2443 ** Exit: 
2444 oa Carry clear=> Buffer not found; Created u/zero length 
2445 AK set=> Buffer collapsed 
2446 an D1 past buffer header 
2447 xh P=0 
2448 aR DO 1 nibble past buffer header 
2449 aR {at buffer ID) 
2450 kk 
2451 ** Calls: I/OFND, MOVEMU, PTRADJ 
2452 ak 
2453 RPNUSES on o.5 o's 
2454 *k Inclusive: A-D, DO, Di 
2455 ak 
2456 ak Stk lvls: 2 
2467 ae 
2458 ** Detail: It is assuned that I/OCOL will only be called 
2459 ae on existing buffers; if the buffer doesn’t 
2460 an exist, 6 nibbles of user RAM will be utilized 
2461 ax for the header w/o the leeway neriory check. 
2462 i 
2463 ** History: 
2464 aK 
2465 aR Date Prograrnner Modification 
2466 RX gbedenee (Seaesesese: dtabseesose cnn essse ese tessa He essa 
2467 Kk 07/04/82 9 S.M. Added docunentation 
2468 aE 
2469 JOO UII OOO III I III III ITI IIS IAI IIH 
2470 FIO II OI ITI III ETI III TATA IIT ISIS AI III IIIS II ISIS SST SASSI 
x 
oe JI III ITO TI TIT AT ITI IIT IIIT III TTI IDI TOK 
2473 JI ITO IIIT I TTI IAI III IS I IIIT TI ITI II 
2474 x 
2475 ** Nane:(S) I/OALL - 1/0 Buffer Allocate 
2476 ** Nane:(S) I/OAL+ - I/O Buffer Allocate 
2477 at 
2478 *% Category:  BUFUTL 
2479 AP 
2480 ** Purpose: Allocates space for 1/0 buffer specified. 
2481 aA If it already exists, will expand or contract to 
2482 ae conform to size specified. If it doesn’t exist, 
2483 an will create it. 
2484 a 
2485 ** Entry: C(x)=1D# 
2486 an B(A)= Desired buffer size (not to exceed FFF) 
248? ae 
2488 ae I/OALL: Assunes P=0 
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2489 AK Guarantess Leeuay added in Men Check 
2490 a I/OAL+: Sets P=1, guarantess NO Leeway in Men Ck 
2491 
2492 Ak Exit: CARRY SET => BUFFER ALLOCATED 
2493 ah D1 points past buffer header 
2494 ak DO 1 nib past buffer header front 
2495 ak (at buffer ID) 

2496 aR P=0 

2497 aK B(A) = buf size if just created, 
2498 a else net change in size 
2499 ak C(6-0) contains buf header info: 
2500 ae C(O) addresses to update 
2501 aK C(1-3) Buf ID 

2502 ax C(4-6) Buf length 

2503 aK If Buffer already exists and expands 
2504 a to a larger size: 

2505 ak A=D1 (past buffer header) 

2506 aR D(A) points to point of expansion 
2507 RR Buffer expanded fron botton 
2508 ak 

2509 ax 

2510 Ak CLR => NO ROON 

2511 ak C(4) = Error Nunber (eMEN) 

2512 ax P=0 

2513 ak 

2514 o Calls: I/OFND, MOVEND, MENCL+, MOVEMU, IDLNSV 

2515 

2516 *k Uses: A, B, C, D, D1, DO, XM, SB 

2517 xs C(S) used to save Leeway setting for MENCL+ 

2518 as 

2519 ** Stack lvls: 3 if existing buffer decreases in size 

2520 ax 2 otherwise 

2521 ak 

2522 *k History: 

2523 aK 

2524 ae Date Programmer Modifications 

2525 RK merce nee emer ener eee e een renee 

2526 kk 07/04/82 = S.W Added docurentation 

2527 kK 09/12/82 J.P MENCL+ interface, entries 

2528 ek 10/12/82 9 S.W Elininated I/OAL1 & I/OAL2 

2529 ax entry points. Changed I/OALL 

2H ax entry point to ASSUME P clear 
2531 a 09/13/83 S.W. Modified stack level doc. 

ee JE III RI TOT IOI TIS IIIT III ISIS ISS II III ISIS II ISIS I III IIIA 
2534 FEI COI III IAT ISIS SIDI IIIT ISIS SSS IS IS IIIS I TA 
2535 x 


2536 1195F 137 
2537 11962 06 
2538 11964 C2 
2539 11966 134 
2540 11969 DA 
2541 1196B C9 
2542 1196D 135 
2543 11970 7011 


I 


I 


OSH10 CDIEX 
RSTK=C 
C=C+A 
DO=C 
A=C 
C=C+B 
D1=C 

OSH20 GOSUB 


DD 


ptradj 


BUFST 
PT TO BUF END (BGN SOURCE MOVENU) 


BEGIN SOURCE 

BGN DEST. (PROPOSED BUF END) 
BEGIN DEST. 

SHRINK BUFFER, adjust pointers 
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2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2520 
2571 
2572 


2573 
2574 
2575 
2576 
257? 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 


2587 
2588 
2589 
25% 
2591 
2592 
2593 
2534 
2595 
2596 


11974 565 


11977 D9 
11979 D1 = 
x 
1197B 21. = 
x 
1197D 733F = 
11981 DD 
11983 73A0 


11987 546 


1198A £8 
1198C 42D 


* EXPAND BUFFER 
x 


1198F 137 
11992 C2 
11994 134 
11997 E2 
11999 06 


ee & 


1199B 80DF 
1199F 8FOO 

000 
119R6 4D3 


* & we 


119A9 136 
119AC DA 
119ARE 7900 
119B2 184 
119B5 146 
119B8 135 
119BB E9 
119BD DE 
119BF 8FOO 
000 


x 
x 


119C6 133 
119€9 EO 
119CB 07 
119CD 135 
119D0 134 
119D3 186 
11906 Db 
11908 AFF 
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GONC 


IONULL C=B 
I/OCOL B=0 


T/OAL+ P= 


I/OALL GOSUB 
CBEX 
GOSUB 
C=B 
GONC 


B=B-A 
GOC 


IOEX24 CD1IEX 
C=C+A 
DO=C 
C=C-R 

IOEX25 RSTK=C 


IOEX40 


A 
A 


1 
1/OFN+ 
A 
TDLNSV 
A 
I/OCRE 


A 
IOSH10 


A 
A 


Page 52 
(8.E.T.) 


Copy Buffer ID 
Desired buffer length 


Set NO Leeway add in MENCHK 

Does CPEX 14 and Sets P=0 
SAVE BUF ID & LENGTH IN D 
BUF LENGTH 

BUFFER NOT FOUND 


ANT TO EXPAND/CONTRACT BUFFER 


Expand fron botton 
BGN SOURCE FOR MOVEND 


SAVE BUFST 


C(S) holds Leeway setting on entry 
MENCL+ expects P to tell "type" of MEMCHK 


P=C 
GOSBVL 


GOC 


15 
=MEMCL+ 


I/ORT+ 


Set P = Leeway setting 


Pop level off stk before rtn 


D1 @ AVMEMS on return from MENCL+ 


UPDRTE IOBFEN ---> RVMENS 


CDOEX 
A=C 
GOSUB 
DO=D0- 
C=DATO 
D1=C 
C=C-8 
ACEX 
GOSBVL 


D1=BGN DEST. 
ADIEX 
A=A-B 

IOEX40 C=RSTK 
b1=C 
K=C 
DO=D0- 
C=A 
CDEX 


A 
ptrad2 
5 
A 


it DoD 


MOVED2 


Save Begin Source 
Adjust IOBFEN-AVNENS 
Position at AVNEMNS 


End dest 

END SOURCE 

A=end source; C=bgn source 
EXPAND BUFFER 


(BGN SOURCE+OFFSET) 


A 


BGN SOURCE (PT OF EXPANSION) 
C(A)=BUF ST 
BUFST IN D1 


PT OF EXPANSION 
D(A) = PT OF EXPANSION 
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2597 119DB 156 DATO=C 7 C(0)=Haddresses;C(3-1)=Buf ID 
2598 119DF 160 DO=D0+ 1 Point to Buffer ID 
2599 119E2 02 RTNSC C(6-4)=Buf length 
2600 * 

2601 119E4 DS I/ORT+ B=C A Save error# 
2602 119E6 07 C=RSTK Clean up return stack 
2603 119E8 D9 C=8 A Restore error# 
2604 119EA 03 I/ORTN RINCC 
2605 z 
2606 119EC D2 I/OCRE C=0 A 
2607 119EE 307 LCHEX 7 Buf header length 
2608 119F1 C1 B=B+C A 
2609 & 
2610 119F3 1F67 D1=(5) =IOBFEN 1/0 Buffers End 
4 
2611 119FA 147 C=DAT1 A 
2612 119FD 134 DO=C 
2613 11A00 183 DO=D0- 4 PT AT 4 zero nibs (Bgn Source) 
2614 11A03 135 DI=C 
2615 11A06 172 DI=Di+ 3 Pt to where buf start will be 
2616 11A09 137 CDIEX 
2617 11ROC 5C8 GONC IQEX25 (B.E.T.) 
2618 & 
2619 , 
9620 $0 I I III IT III OTITIS TOS TTS I SSSI ASIII SII STI K 
2621 JI III I OT I IASI KI II ITI II IAT ITT ITI TTT ISIS II III II III III I IK 
2622 a 
2623 ** Wane: (S) I/OEXP - I/0 Buffer Expand 
2624 ** Nane:(S) I/OEX2 - 1/0 Buffer Expand 
2625 Re 
2626 *k Category:  BUFUTL 
2627 = 
2628 *k Purpose: 
2629 aA Expand I/0 buffer fron high nerory by the anount 
26% = specified. 
2631 x 
2632 a I/OEXP guarantees that the rierory check 1s done 
2633 aK including consideration for leeway. 
2634 a 
2635 ae I/OEX2 does the neriory check without regard to leeway. 
2636 A 
2637 xk Entry: 
2638 ax C(X}= Buffer ID# 
2639 ax B(A)= Ariount to expand buffer (in nibs) 
2640 es Not to exceed OOFFF 
2641 2 Entry points: 
2642 aK 1) I/OEXP - P=0 
2643 ax 2) I/OEX2 - No additional requirenents 
2644 ak 
2645 ReCERT CH 
2646 = Carry clear=> Buffer not found 
2647 * OR No roon 
2648 *t OR Buffer size requested too big 
2649 ae set=> Buffer expanded 


2650 


ax 


P=0 
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2651 xx D1 points past buffer header 
2652 ax DO points 1 nibble past buf header 
2653 ak (at buffer ID) 
2654 a ACR)=D(A)= Point of expansion 
2655 ae (Old buffer end for I/OEXP) 
2656 ae 
2657 ** Calle: I/OFND, IDLNSV, MENCL+, MOVEND 
2658 ak 
2659 ** Uses: A-D, 01, DO 
2660 ax C{S) saves Leeway setting for MENCL+ 
2661 ae 
2662 EP Sthe Tylse- 32 
2663 a 
2664 ** History: 
2665 ax 
2666 = Date Prograriner Modification 
2667 BK nnn e een nnn e errr ne nen nnn ne nnn nn nnn ere ne reer een e nn 
2668 k 07/04/82 = S.W. Added docurientation 
2669 AE. O9IT 2/82 > dR: Added Leeway Check entries 
; oe 
vc JOGO ISOS GUIS OOO TTS IIS 
2672 JO IIIS IOC GOGOIS SISO ISIS OISEIGISEI ICIS TCC TOI OAK 
2673 x 
2674 11AOF 21 =1/0EX2 P= 1 Guarantee NO leeway check 
2675 11A11 7F9E =1/OEXP GOSUB I/OFN+ Nake sure P=0 
2676 11815 500 RTNNC BUFFER NOT FOUND 
2677 11818 OD CBEX A C(A)=ANT TO EXP;B(X)=BUF ID 
2678 11A1AR A32 C=C+A x DESIRED BUFFER SIZE 
2679 11A1D 4CC GOC 1/ORTN 
2680 11920 7600 GOSUB IDLNSV SAVE BUF ID & LEN IN D 
2681 11024 £8 B=B-A A PTR ADJUST OFFSET 
2682 11826 686F GOTO  IOEK24 
2683 ‘ 
2684 JOIST IO I III II TIE I TTT OTT TOT IIIT III II IIIS IIIA II 
2685 JI ITO TI ISR IID III RTI TI TI TIT III TT III IIIS IIIT IS II IISA 
2686 ee 
2687 x* Narie: IDLNSV - Save Buffer ID and Buffer Length 
2688 ze 
2689 ** Category: LOCAL 
26%) a 
2691 ** Purpase: 
2692 ae Saves Buffer ID & Buffer length parameters in D(5-0) 
2693 a 
2694 Re-Entry! 
2695 a C(A) = Buffer length 
2696 me C(S) = Nurber of addresses 
2697 - B(X) = Buffer ID 
2698 ae C(14) = Merch paraneter (only for I/OEXP,I/OALL) 
2639 a 
2700 ae ERY: 
2701 a Carry preserved 
2702 as C(x) = Buffer ID 
2703 ‘ B(A) = Buffer Length 
2704 ke D(C} = Nurber of addresses to update (C(S) on entry) 
2705 os D(3-1) = Buffer IO 
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2706 am 0(6-4) = Buffer Length 
2707 mn C(S) = (C(14) on entry 
2708 aR 
2709 Ak Calls: none 
2710 aK 
2711 *k Uses... .... 
2712 kk Inclusive: B(A),C(A), C(S), DB 
2713 a 
2714 KK Stk lvls: 0 
2715 ax 
2716 ** History: 
2717 ak 
2718 xk Date Progranrier Modification 
2719 KR eee enn ee ee enn eee ne rn enn nen nn nnn nn nnn nner ene 
2720 Ak 07/04/82 S.W Added docunentation 
2721 KK 03/10/83 SW. Using B(S) to save Leeway Setting 
2722 Kk 03/14/83 NB Packed a byte. 
2723 ax 
2724 JIG III TOU ISTIC CT TTT TR 
9795, JOGO OI CUO OO TRE 
2726 x 
272? 1tA2A AFZ IDLNSV D=C WW READ IN BUFFER LENGTH 
2728 11A2D F3 OSL A 
2729 11AR2F F3 DSL | 
2730 11A31 BF3 DSL W MAKE ROOM FOR BUF IDA 
2731 11834 DD CBEX A B(A)=BUF LEN; C(X)=BUF ID 
2732 1136 AB? D=C x READ IN BUFFER ID 
2733 11A39 ACF CDEX § Read into D(S) the addresses, 
2734 a and C(S)= leeway check. 
2735 11A3C 813 DSLC Shift into low nibble 
2736 11A3F 01 RTN 
2737 x 
2738 x 
2739 JOG IOI OOO TO TOR TTT D I TTT IR 
2740 JOG III CIO OOOO IO TOR STI EI 
2741 a 
2742 ** Nane:(S) I/ODAL - 1/0 Buffer Deallocate 
2743 xx 
2744 ** Category:  BUFUTL 
2745 a 
2746 %* Purpose: Deallocates an I/0 Buffer 
2747 KK 
2748 *k Entry: C(X)=BUF ID# 
2749 xk 
2750 KK Exit: CARRY SET=> BUFFER DEALLOCATED 
2751 xx P=0 
2752 a CLR=> BUFFER NOT FOUND 
2753 a 
2754 kk Calls: I/OFND, MOVENU, PTRADJ 
2755 kk 
2756 xk Uses: A, B, C, D1, DO 
2757 a 
2758 xk Stack lvls: 2 
2759 a 
2760 *k History: 
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2761 kK 
2762 an Date Progranner Modifications 
2763 RK meee eres eee eer e ne tere n er nen nee 
2764 Kk 07/04/82 = S.W. Added docunentation. Modified 
2765 ee code to return with carry set if 
2766 KK buffer deallocated. 
2767 ak 
2768 JOR I II I IRI TTT ITT TITTIES TELAT III II TI III II III IASI III IK IIR 
2769 JOIST III IO III IO TTT TIO 
2770 ' 
2771 11841 7C7E =I/ODAL GOSUB IOFNDO SERRCH WITH UNADULTERATED ID 
2772 11R45 490 GOC IOQDAL2 GO IF FOUND 
2773 11R48 7E6E GOSUB 1/OFND SEARCH WITH HIBIT IF ID SET 
2774 11AR4C 500 RTNNC 
2775 * 
2776 11AR4F 1€6 IODAL2 01=D1- 7 PT TO HEADER START (BGN DEST) 
2777 11AS2 137 CDIEX 
2778 11A55 135 01=C BEGIN DEST. 
2779 11A58 DS B=C A a oe 
2780 11A5A 134 DO=C 
2781 11A5D 166 DO=D0+ 7 POINT PAST HEADER 
2782 11N60 136 CDOEX 
2783 1163 CA R=A+C A BUF END (BGN SOURCE) 
2784 11A65 E8 B=B-A A OFFSET (NEGATIVE) 
2785 11R67 7910 ‘ GOSUB ptrad) DELETE BUFFER, adjust pointers 
2786 
2787 11A6B 02 RTNSC 
2788 x 
2789 * Entry to expand 5 nibbles in Assign Table 
2790 : 
2791 11A6D 7A20 =EXPCHH GOSUB STPASG 
2792 11A71 7C9F GOSUB I/OEXP 
2793 11A75 500 RTNNC NOT ENOUGH ROON, CLEAR CARRY 
2794 11878 DB C=0 A 
2795 11A7R 135 01=C 
2796 11A7D 02 (=O 6A 
2797 11A7F 145 DAT1=C A ZERO THE NEW ENTRY 
2798 11A82 02 RTNSC SET CARRY, RETURN 
2799 x 
2800 11A84 8FOO ptrad) GOSBVL =MOVEUA 
000 
2801 11A8B 26 ptrad2 P= (CAVMEMS )-( IOBFEN))/5 
2802 11A8D 1B67 DO=(5) =IOBFEN 
5Fe 
2803 11794 8DOO GOVLNG =PTRAD2 
000 
2804 = 
2805 11A3B D2 =STPASG C=O A 
2806 11A9D 305 L601) <5 
280? 11ARO DS B=C A 
2808 11ARZ 3240 LC(3) =bASSGN 
8 
2809 11AA7 03 RTNCC 
2810 x 


2811 
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2812 STITLE OPEN file 
2813 KIKI KI ITI III ITI ID IIIS SIS SSS ISI IIS I III III III III III SII ISI ISS IAS 
2814 III III STAT OAT TIT IIT IIOIIO TIS I III IIIT SII II III IOS III IID IIIS TAI IOS 
2815 ae 
2816 **% Narie: OPNCHH - Open a Channel # in the Assign Table 
2817 kk 
2818 ** Category:  FILUTL 
2819 ak 
2820 *% Purpose: Open a channel nunber in the assign table. 
2821 <4 This routine will not open an entry in the FIB. 
2822 ak 
2823 kk Entry: 
2824 xx CHNHSV = CHANNEL # 
2825 ak 
2826 xk Exit: Carry set => successfully opened 
2827 ak D1 @ The channel # in the assign table 
2828 an Carry clear => Error, insufficient nenory 
2829 aX C(3-0) = Error code 
2830 aK 
2831 *X Calls: I/OFND, I/OALL, FOCHH, CLOSEF, EXPCH#, 
2832 ae 
2833 ** Uses: 
2834 xk = Inclusive: A,B,C,0,00,D1, ST0-4, 8 
2835 aa 
2836 ** Stk lvls: +4 
2837 ae 
2838 JI III I III ITI I IOS IIIS III III III IIA SII II ASI I III IIIS ITA AH 
2839 JK III III IIIT II TAT I TOI III EI III III III I II IIIS IIIA II ASIII ISIS IIIA 
2840 . 
2841 11AA9 7EFD =OPNCHH GOSUB BUFASN FIND ASSIGN TABLE 
2842 11AAD 481 GOC OPN120 TABLE FOUND 
2843 * ASSIGN TABLE NOT FOUND, CREATE A NEW ONE 
2844 11ABO 77EF GOSUB STPASG 
2845 11AB4 75CE GOSUB I/ORLL 
2846 11AB8 5AO GONC NOROON 
2847 11ABB D2 C=0 A 
2848 11ABD 145 DAT1=C A ZERO THE BUFFER 
2849 11ACO 48E coc OPNCH# START IT ALL OVER AGAIN 
2850 11AC3 795C NOROON GOSUB CRIFer LC(4) =eneEn 
2851 11AC7 03 RTNCC 
2852 * 01 POINTS PASSED BUFFER HEADER 
2853 * ACA) = BUFFER LENGTH ; 
2854 11AC9 7695 OPN120 GOSUB GTSVC# GET SAVED CHANNEL # TO B(B) 
2855 11ACD 7BD9 GOSUB = FDCH# SEARCH CHANNEL # IN ASSIGN TABLE 
2856 11AD1 571 GONC OPN150 CHNL # NOT FOUND, CREATE NEW ENTRY 
2857 11AD4 968 7A=0) «6B CHANNEL CLOSED ? 
2858 11AD7 02 GOYES OPN200 IF SO, O.K. 
2859 * CHANNEL OPENED, CLOSE IT FIRST 
2860 11ADS 172 Di=01+ 3 ZERO FIB # IN ASSIGN TABLE 
2861 11ADC D2 C=0 A 
2862 11ADE 14D DAT1=C B 
2863 11AE1 72A5 GOSUB CLOSEF 
2864 11AES 63CF GOTO GPNCHH START IT ALL OVER AGAIN 
2865 * ADD A NEW ENTRY TO ASSIGN TABLE 


2866 11ARE9 7O8F OPN150 GOSUB EXPCHH 
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2867 11RED 55D GONC NOROON 
2868 11AFO 7F65 GOSUB GTSVC# GET SAVED CHANNEL # TO C(B) 
2869 11AF4 14D DATi=C B WRITE CHANNEL # TO ASSIGN TABLE 
2870 * D1 POINTS TO NEW ENTRY ADDR IN ASSIGN TABLE 
2871 11AF? O02 OPN200 RTNSC 
2872 x 
2873 x 
2874 11AF9 8FOO fpoll+ GOSBYL =SNAPSV Save R,0,00, D1 
000 
2875 11800 8C00 GOLONG =FPOLL 
00 


23876 * 
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2877 STITLE Get Mew File Nunber 
2878 FIA TI RT TEE EER IIT ISI I TIRE IID IIIS IIS ISIS IIIIS ISI ISS SIS IIA 
2879 FIR TAIT II III III III IIIS ISAIISIISSISISIIIIIIIIIII IIIA 
2880 aK 
2881 ak Warie:(S) OPENF - Open File 
2882 a* Narie: OPENF- - Open File 
2883 ** Nare: OPENF* - Open File 
2884 ** Nane: OPNF+ - Open File 
2885 as 
2886 ** Category:  FILUTL 
2887 aa 
2888 ** Purpose: Open a new file in the FIB 
2889 ax 
28 &* Entry: 
2891 ae 6 All: =P = 0 
2892 aR 
2893 e OPENF: ODO points at file spec. in the BASIC staterent 
2894 
2895 ak OOPENF*: =A, OCS), D(A), RO set up as on exit fron FSPECx 
2856 ar R2 = 0 if R2/R3 device assignnent info not 
2837 aa present 
2898 ak Device assignnent info fron FSPECx. 


2899 ak R3 Device assignnent info from FSPECx unless 
2900 aR R2 = 0. 

2901 ak 

2902 : OPNF+: 01 points at start of file header in nenory 
2903 

2904 kk QPENF-: STMTRO & STMTR1 has the information as the entry 
2905 aX condition specified by the WRIFIB routin. 
2906 ak R2 = 0 if R2/R3 device assignnent info not 
2907 ae present 

2908 = Device assignnent info fron FSPECx. 

2909 ak R3 = Device assignment info from FSPECx unless 
2919 ak R2 = 0. 

2911 A 

2912 ak Exit: 

2913 ak P = 9 

2914 aX Carry set => Done successfully 

2315 Ax A(B) = FIBH of file 

2916 7 R1 = the new entry address in FIB 

2917 2s S10 = Set if file has 1/0 buffer 

2918 ie STMTD1 = FIB address of file 

2919 aR STMTRO, STMTR1 set to exit conditions of WRIFIB 
2920 ak The FIB entry filled with proper infornation 
2921 a Carry clear => Error 

2922 ak C(3-0) = Error code 

2923 ax File already opened 

2924 ak FIB full 

2925 ae Insufficient nenory 

2926 he Unrecognized file type 

2927 aK 

2928 xk Calls: FSPECx, POLL, FINDF, DATSTR, I/OFND 

2929 AP 

2930 xx Uses: 


2931 ** Inclusive: 8,8,C,D,00,D7,RO,R1, STMTRO, STATR1, S10 


Saturn Assenbler File Utility & System Buffer R Fri Dec 30, 1983 4:34 an 


Ver, 3.39/Rev. 2306 Get New File Nunber Page 60 

2932 Kk 

2933 Stk lvls: 6 at least (FSPECx takes 5, pFINDf requires 6) 

2934 

23.35 *k Note: This routine falls into WRIFIB to write the file 

2936 ae infornation 1n the FIB. 

2937 JOIST III III TIT II ST RIT TTIRII SIT IIT RITE II 

2938 JU II ITO OI TITRE IIIS IIIA II 
k 

ee JUS II III II TIT IIIA STITT TI TI IIT IIL T TT III IIIT IAT IATL TK 

9944 JIS II TOI ITT I TO TO ET IIIT IA KIA 

2942 wk 

2943 ** Narie:(S) pFINDF - Find External File 

2944 ak 

2945 ** Category: POLL 

2946 ak 

2947 ak Type: POLL 

2948 RK 

2949 ** Purpose: 

2950 ax Find a given file in a given mass nenory device 

2951 aK 

2962 xk Should poll be “Handled” (return with XN=0)?:Yes 

2953 KK 

2954 *k Meaning of "Handling" Poll (what does code do if handled?): 

2955 aK Return file information about the file. 

2956 RE 

2957 ** Entry conditions for handler (registers, ST, RAN, etc.): 

2958 kk BLA] = Poll nunber. 

2959 aR HEX riode. 

2960 aK P=0,. 

2961 aK RO = First 8 chars of file narie 

2962 ak R1 = Last 2 chars of file nanre 

2963 ae D(X) = Device address 

2964 AK D(S) = Device type 

2965 aK 

2966 aK 

2967 *k Norttal exit conditions fron handler if handled (ST, RAN, 

2968 *k registers, etc.): 

2969 x Carry clear 

2970 ak HEX rode. 

2971 an XM=0. 

2972 ak 

2973 aS RO(O,3) = Starting record # 

2974 ak RO(4,6) = Device address 

2975 ae RO(7,10)= 0000 

2976 ~ RO(11,14)= File type 

2977 aK RO(15) = 8 

2978 a R1i(0) = Entry # in the record containing directory 

2979 ae R1(1,4) = Record # of directory entry 

2980 aK R1i(5) = 0 

2981 ak R1(6,9) = # of sectors of file length 

2982 xR 

2983 ak 

2984 *k Nornal exit conditions from handler if not handled (ST, RAM, 

2935 *k registers, etc.): 


2986 a Carry clear 
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23987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
#01 
3002 
03 
3004 
3005 
3006 
3007 
3008 
X09 
#10 
O11 
3012 
3013 
3014 
15 
316 
017 
18 
3019 
320 
21 
22 
023 
W24 
025 
3026 
327 
W28 
29 
3030 
OH 
3032 
033 


OH 
3038 
O36 


3037 
3038 
339 


11806 76DC 
11BOAR 560 
11BOD 6337 


11B11 741A 
11B15 522 


11B18 7788 
11B1C 71 
11B1E 411 
11B21 7091 
11B25 834 
11B28 C2 


11B2A 30 
00 
11830 03 


11B32 8C00 
00 


11838 76FF 
11B3C 40E 


4:34 an 
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a 
ak 
ak 
ak 


HEX rode. 
xM=1. 


Error exit conditions fron handler: 
Carry set. 
HEX rode. 
C{0-3] = Error nunber. 


Available subroutine levels: 6 
What registers/RAM nay be used if handled?: 
R,B,C,0(15,5),01,RO,R1, P 


What registers/RAN nay be used if not handled?: 
A,B,C, D[15-5],D1,RO,R1,P 


What registers/RAM nay be used if error exit: 
A,B,C,0[15-5], P 

History: 

Modification 


ee we we we ee meee wee 


Docunent 


RK “sec seccn 


*x 04/20/83 SC 
x 


SO IOI IIIT TOTO TOT TT TIT TTT ITN 
SORT TTT TTT TTI IIIT IIS TTI IKI 
x 


=OPENF GOSUB 

GONC 
OPNERR GOTO 
* 


fspecx 
OPENF* 
bserr 
=OPENF* GOSUB SAVE FILE SPEC. INFORMATION 
GONC 


SVF SP+ 
OPNF 20 
k 


* FILE IS IN A HP-IL DEVICE 
x 


GOSUB POLLFF PUT FILE NAME TO R1 AND POLL 
CON(2) =pFINDF POLL TO FIND THE FILE 
GOC ERRTN ERROR OCCUR 
GOSUB OPNF+3 
?xN=0 
GOYES OPENF- FILE FOUND 
x 
OPNOFD LC(4) =eFnFND FILE NOT FOUND 
ERRTN RTNCC 
& 
=findf GOLONG =FINDF 
x 
OPNF2O0 GOSUB findf 
GOC OPNOFD 
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3040 x 
3041 11B3F 7EFO =OPNF+ GOSUB OPNF+1 
3042 11843 480 GOC OPNF25 
3043 11846 7B4A TYPER GOSUB SVFT90 LC(4) =eF TYPE 
3044 11B4A 03 RTNCC 
3045 11B4C 7241 OPNF25 GOSUB OPNF+2 
3046 11B50 6300 GOTO OPNF5O 
3047 * ENTRY POINT CALLED BY ASSIGN # 
3048 11854 =OPENF- 
3049 x 
3050 11B54 7R4D OPNF50 GOSUB BUFFIB FIND FIB 
3051 * D1 POINTS AT START OF FIB 
3052 * SEARCH THE FIB FIRST, CHECK THE DATA START ADDR IN ALL THE 
3053 * EXIST FIB ENTRY TO DETECT THE DUPLICATE FILE ENTRY. 
3054 11B58 133 RADIEX 
3055 11B5B D8 B=A a SAVE FIB START ADDR IN B 
3056 11B5)0 133 ADIEX 
3057 11B60 1B17 BO=(5) =STNTRO 
8F2 
3058 11B67 156 C=DATO 7? C(6-0) = FILE DATA START ADDR 
3059 11B6B 26 P= 6 
3060 11B6D 148 FODENT1 A=DAT1 B 
3061 11B70 968 7A=0 OB REACHED END OF FIB BUFFER ? 
3062 11B73 72 GOYES GF#H130 IF SO, OK TO OPEN THE FILE 
3063 11B75 17C D1=D1+ (oF BEGb)-(oFILAb) 
3064 11B78 177 D1=D1+ (oDBEGb)- (oF BEGb) 
3065 1187B 1586 A=DRT1 7 
3066 11B7F 912 A=C OUP 
3067 11B82 EO GOYES FILOPN 
3068 11B84 17E D1=D1+ (oRECLb)-(oDBEGb) 
3069 11B87 17F Di=D1+ (oRLENb)-(oRECLb) 
3070 11B8A 17A 01=D1+ (1FIB)-{oRLENb) 
3071 11B80 5FD GONC  FDENT1 (B.E.T.) 
3072 & 
3073 11890 20 FILOPN P= 0 
3074 11B92 3K0 LC(4) =eF OPEN 
00 
3075 11B98 03 RINCC 
3076 * SEARCH THE FIB AGAIN TO FIND THE FIRST UNUSED FILE # 
3077 11B9A 20 GFHI30 P= 0 
3078 11B9C D4 A=B A 
3079 11BSE 131 D1=A 
3080 11BA1 01 B=0 A 
3081 11BR3 D2 C=0 R 
3082 11BA5 31F3 LC(2)  =1F IB 
3083 11BA9 B65 GF#H150 B=B+1 B 
3084 11BAC 43€ GOC FILOPN BUFFER FULL, SAY "File Open" 
3085 11BRF 148 A=DATI B 
3086 11BB2 968 A=0—CO#B 
3087 11BB5 21 GOYES GF#HI70 REACHED END OF BUFFER 
3088 11BB? SEO "ADB OB FOUND AN UNUSED FILE # ? 
3089 11BBA DO GOYES GF#170 
3090 11BBC 133 ADIEX NOVE T NEXT ENTRY 
3091 11BBF CA A=A+C A 


3092 11BC1 131 D1=A 
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393 
3094 
3095 
3096 
309? 
3098 
3099 
3100 
3101 


3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 


3110 
3111 
3112 


3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 


3126 
312? 
3128 
3129 
31H 
3131 


3132 
3133 
3134 
3135 
3136 
313? 
3138 
3139 
3140 


3141 


11BC4 


118C7 
118CA 
11BCD 
11BD0 
11BD3 
11BD6 
11808 


11BDD 
11BE1 


11BE4 
11BE6 
11BER 


11BFO 
11BF3 


11BF9 
11BFD 
11 BFF 
11002 
11005 
11008 
11C0B 
11000 
11COF 
11C12 
11014 
11C1? 


11C10 
11020 
11C22 
11€25 
11C27 
11C2B 


11032 
11034 
1103? 
11C3A 
11C3D 


11041 
11048 


SAE 


133 
BFO 
BFO 
RE4 
101 
05 
3230 
8 
703E 
471 


D2 
31F3 
8£00 
0 
5F9 


8000 
00 


75AC 
D8 
119 
BF6 
BF6 
133 
CO 
DF 
134 
EB 
131 
8£00 
+9) 
136 
DS 
135 
De 
S1F3 
8FOO 
000 
D9 
195 
111 
149 
60B0 


1B87 
8F2 
AFB 
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CONC  GFHI50 


*D1 POINTS AT THE INSERT POINT 


GFH170 ADIEX 

ASL W 

ASL W 

A=B B 
R1=A 
B=C A 
LC(3)  =bFIB 


GOSUB I/OEXP 
GOC GF #180 
& 


* Try to see if menory low or 
k 


C=0 A 
LC(2)  =1FIB 
GOSUBL =chkspc 


CONC FILOPN 
x 


=nonen GOLONG =NONEN 


x 


GFH180 GOSUB BUFFIB 
B=A A 
C=R1 
CSR 
CSR 
ADIEX 
A=A+B 
CDEX 
ho=C 
C=C-D 
D1=A 
GOSUBL =NOved3 


ce 


a> DD 


CDOEX 

B=C A 

d1=C 

C=O A 

LC(2) =1FIB 
GOSBVL =WIPOUT 


C=B A 
01=C 
A=R1 
DATI=A B 


GOTO = WRIFIB 
x 


Page 63 
(BLE: 1.) 
SAVE INSERT POINT & FILE # IN R41 


CREATE A NEW ENTRY IN FIB 
Carry set if buffer 1s expanded 


too nany file opened 


If too many files, say "File Open" 


GOTO NEMERR 


FIND FIB START ADDR AGAIN 
B= BUFFER LENGTH 


C= NEW ENTRY ADDRESS 

R= BUFFER START ADDR 

A= BUFFER END ADDR 

C= OLD BUFR END ADDR, D=ENTRY ADDR 
DO= END SOURCE ADDR 

C= SOURCE SIZE 

D1= DEST END ADDR 

CREATE GAP FOR THE NEW ENTRY 


C= ENTRY START ADOR 


CLEAR THE BUFFER 


WRITE FILE # 10 FIB ENTRY 


* OPNF+1 SHOULD BE CALLED AS SUBROUTINE, 


* IF RETURN WITH CARRY CLEAR, 
OPNF+1 DO=(5) (=STMTRO)+7 


C=) W 


MEANS UNRECOGNIZED FILE TYPE. 
SAVE PORT # IN STNTRO(7-8) 
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3142 11C4B 14C DATO=C B 
3143 11C4E 167 DO=D0+ 8 SAVE DEVICE TYPE IN STMTRO(15) 
3144 11€51 1544 DATO=C §$ 
3145 11C55 133 AD1EX 
3146 11€58 131 D1I=A 
3147 11C5B 160 DO=D0+ 1 
3148 11C5E 140 : DATO=A A SAVE FILE START IN STMTR1 
3149 
3150 * COMPUTE DATA STRAT OF A FILE 
3151 x 
3152 11061 137 DATSTR CDIEX 
3153 11C64 D? D=C A 
3154 11C66 135 D1 =C 
3155 11069 17F D1=D1+ (oF TYPh) 
3156 11C6C 8E1E GOSUBL FTYPFD SEARCH TYPE TABLE 
3F 
3157 11072 500 RTNNC UNRECOGNIZED TYPE 
3158 11C75 135 D1=C D1 POINTS AT ENTRY IN TYPE TABLE 
3159 11078 172 01=01+ 3 D1 POINTS AT SUB-HEADER LENGTH 
3160 11C7B AF2 C=0 W 
3161 11C7E 14F C=DAT1 B 
3162 11C€81 C3 D=D+C A 
3163 11€83 3102 LC(2) =oFLENh 
3164 11087 CB C=C+D A 
3165 11C89 26 P= 6 
3166 11C8B ADE C=C-1 P 
3167 11C8E 20 P= 0 
3168 110% 02 RTNSC 
3169 x 
3170 11092 1817 OPNF+2 DO=(5) =STMTRO 
8F2 
3171 11099 15C6 DATO=C 7? SAVE DATA START IN STNTRO 
3172 11C9D 16A DO=D0+ 11 
3173 11CRO 1583 DATO=A 4 SAVE FILE TYPE IN STMTRO 
3174 11CA4 164 DO=D0+ 5 
3175 11CAR7 142 A=DATO A A = FILE START ADDRESS 
3176 11CRA D2 C=0 A 
317? 11CAC 3152 LC(2) =oINPLh 
3178 11CBO CA A=A+C A 
3179 11CB2 131 D1=A 
3180 11085 15F7 C=DAT1 8 
3181 11CB9 165 DO=D0+ 6 
3182 11CBC 150? DATO=C 8 SAVE RECH & REC. LENGTH IN STNTR1 
3183 11CC€O 02 RTNSC 
3184 x 
3185 11CC2 1817 OPNF+3 DO=(5) =STMTRO 
8Fe 
3186 11CC9 118 C=RO 
3187 11CCC 1547 DATO=C W SAVE DATA START TO RO 
3188 11CD0 16F PO=00+ 16 
3189 11CD3 119 C=R4 
3190 11CD6 15C5 DATO=C 6 SAVE FILE START TO R1 
3191 11CDA 1F93 D1=(5) (=SCRTCH)+56 
SF 2 
3192 11CE1 15F? C=DAT1 8 
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3193 11CE5 165 
3194 11CE8 15C7 
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DO=D0+ 6 SAVE # OF RECORDS & RECORD LENGTH 
DATO=C 8 TO STMTR1+6(8 NIBS) 
RTNCC 


3195 11CEC 03 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3226 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 


x 

ak 
ar 
ak 
a 
xx 
xx 
aK 
ak 
xx 
xx 
ak 
Kk 
xk 
xk 
ak 
xx 
ak 
a 
xx 
xx 
xk 
xk 
xx 
ax 
ax 
xk 
aK 
xx 
xx 
ax 
ax 
ak 
xk 
xx 
xk 
xk 
xx 
xR 
ax 
x 
xk 
ak 
xk 
xk 
ax 
xx 
xx 
ax 
a 
ak 
xx 


SKI II AI IDI IISA II IISIIIISI IIIS ISIS IIIS IIIS IS SII SISOS IS III IIIS IA 
IKI IIIS III IIS IDI III IIIS IIS IS IBIS III III ISIS III IIIS IIIS IISA 
Nane:(S) pDIDST - Poll for Device ID Storage 

Category: POLL 

Type: FPOLL 

Purpose: 


Handler for device ID storage (D1 @ destination point) 
Should poll be "Handled" (return with XM=0)?: Yes 


Meaning of "Handling" Poll (what does code do if handled?): 
Save the device ID in FIB for the file 


Entry conditions for handler (registers, ST, RAM, etc. ): 


B[A} = Poll nunber. 
HEX node. 
P=0. 


R2 contains C(W] from SETUP 
(R2(14] is the device code fron FILSPx) 


R3 contains the device ID/volune label 
Normal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX rode. 

xM=0. 


Nortial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

KN=1. 


Available subroutine levels: 4 


What registers/RAM may be used if handled?: 
A-D, DO, D1, P R2-R3 


What registers/RAN nay be used if not handled?: 


A-D, DO, D1, P, R2, R3 
History: 
Date Prograrner Modification 
04/20/83 SC Document 


SOIR RII TO OUI RII TI I IIT I IK 





aa 
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3248 
3249 
3250 
3251 
3262 
3253 
3254 
3255 
3256 
3267 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3296 
3296 
3297 
3298 
3299 
3HO 
3H1 
3H2 


FORO OOOO OO TOTO TIO III TOI I IK 
x 

FOO III IIT ITO OI IO OI IK 
FOO OO III TOOT IOI OT IIIT OO Tk 
ak 


*% Narie:(S) pDATLN - Conpute File Len u/Create Code = 8 
we 


** Category: POLL 
ae 


** Type: POLL 

as 

** Purpose: 

aK Conpute the file length of an external file whose 
an create code is 8. 

xx 


*& Should poll be "Handled" (return with XN=0)?: Yes 
ae 


xt Meaning of “Handling” Poll (what does code do if handled?): 


Ax Return the file length of the external file 

aK 

** Entry conditions for handler (registers, ST, RAN, etc.): 

aa B[A] = Poll nunber. 

KK HEX node. 

ae P=0,. 

a D[S] = copy code of the file, but already been shifted 
ah left once(top bit lost). 

ah The directory entery of the file 1s copied fron the mass 
a nenory into SCRTCH RAN (64 nibs) 

xk 


kk Norrial exit conditions fron handler if handled (ST, RAN, 
*k registers, etc.): 


ae Carry clear (POLL only). 

ax HEX node. 

aK XMN=0. 

xk ACA) = File length of the file in nibbles. 
xx 


** Normal exit conditions fron handler if not handled (ST, RAN, 
*t registers, etc.): 


eR Carry clear 

aa HEX node. 

a XM=1. 

ke 

** Error exit conditions fron handler (POLL only): 
xP Carry set. 

se HEX rode. 

aR C{0-3] = Error nunber. 

wK 

** Available subroutine levels: 6 

ax 

wi 

** What registers/RAM nay be used 1f handled”: 
a A-D, DO, P 

ah 


** What registers/RAM nay be used 1f not handled’: 
ae A-D, DO, DI, P 
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3303 At 
3304 ek What registers/RAM may be used if error exit (POLL only)?: 
3305 ae A-D, DO, DI, P 
3306 RR 
3307 aK 
3308 ** History: 
3309 ak 
3310 aK Date Progranner Modification 
3311 | 
3312 kK 04/20/83 = SC Docunent 
3313 aK 
3314 SII II ITT II IAI ITI TIS IIIT IAI IOI III IIIS ISS SSI IS IA 
3315 SII IT TIT ITI III IIIT IRI IIT SII ITE IOS IIIA SITS I IR 

1 * 

oe JOIST IIS ISI SII II III IIS IIIA II ISI IIIS ISIIN 
3318 SII TT III IIIT IS IOI I III IIS ISIS II III SI SIS IOS IIIA 
3319 3% 
3320 = Nane:(S) WRIFIB - Write File Infornation to FIB 
3321 
3322 *k Category:  FILUTL 
3323 ae 
3324 : Purpose: Write file information into File Infornation Buffer 
3325 a 
3326 kk Entry: 
3327 xs 01 @ Entry address of the file in FIB. FIBH has 
3328 xk already been written to the entry 
3329 ie R2 = 0 if R2/R3 device assignnent data are not 
3330 ax present (relevant only for exernal files) 
3331 xR OTHERWISE, device assignnent data fron FSPECx 


3332 x R3 Device assignnent data from FSPECx if R2 # 0 
3333 aK STHTRO(O-10)= File data start address 

3334 aR If file in RAM/ROM: 

3335 ak STMTRO(O-4) = Absolute data start address 
3336 xk STMTRO(5-6) = OF 

3337 ak STMTRO(7-10)= Don’t care 

3338 ak If file in port: 

3339 ak STMTRO( 7-8) = PORT # 

3340 ak If file in HP-IL device: 

3341 ak STMTRO(O-3) = Record # 

3342 ak STMTRO(4-10)= HP-IL address 

3343 aK STMTRO(11-14) = File type 

3344 ak STMTRO(15) = Device type 

3345 ak 0 - Mainfrane 

3346 ak 1 - Independent RAN 

334? ak 2 - ROM 

3348 ak 8 - HPIL 

3349 ae STMTR1(0-5) = File start address 

3350 aK If file in RAM/ROM, this is the absolute 

3351 ak address of the file headrer. 

3352 kk If file in HP-IL device, this is the record 
3353 * nunber and byte nunber of the LIF directory 
3354 aX entry address of the file. 

3355 am STNTR1(6-10) = File length in nibbles if the file 
3356 x copy code = 0. 


3357 ae STNTR1(6-9) = File length in # of records if the 
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3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 


3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 


3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 


3405 
3496 
3407 
3408 
3409 


11CEE 133 
11CF1 101 
11CF4 133 
ViCF? 1B17 
8F2 
TICFE 1567 
11002 16A 
11005 171 
11008 84A 
11D0B A46 
11DOE 542 


11011 85A 
11014 7F25 
11018 560 
11018 67AD 
11D1F 1BC7 
8F2 
11026 119 
11D29 135 
11D2C 171 
11D2F 1513 


11033 172 
11036 00 
11D38 15A3 
1103C 8&71 
3F 
11042 400 
11045 111 
11048 7943 
11D4C 69FD 
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a 
ak 
ak 
xk 
ak 


xk 


xk Stk lvls: 


EXIT: 


Uses: 
Inclusive: 


4:34 an 
Page 68 


Fri Dec 30, 1983 


file copy code = 1. 
STNTR1(10-13) = Record length in bytes if the file 
copy code = 1. 


Never returns if unrecorgnized file type 
R1 = FIB entry address 
Carry = Set if no error 


Calls: 


A,B,C,0,00,01,RO,R1,R2,R3 $10 
+5 


FOI III OTT TTR TI TTT RTT TOT ITI TTT TTI ITI K 
FOI IO TO TOO TT I TO 


x 
x 


=WRIFIB 


ADIEX SAVE ENTRY ADDRESS IN R41 
Ri=A 

ADIEX 

DO=(5) =STNTRO 


C=DATO W 

PO=D0+ 11 

D1=D1+ (oF BFHb)-(oF IL#b) 
ST=0 =: 1 /Obuf 

C=C+C S$ 

GONC WRTIF20 


* The file is in a HP-IL device, try to create an 1/0 buffer 
* for the file. 


x 


t 
WRTIF1O 


a 
WRIF2O 


WRIFER 
& 


ST=1 1 /Obuf 

GOSUB GETBUF 

GONC WRIF1O 

GOTO NOROON 

DO=(5) (=STMTRO)+11 

C=R1 

01=C 

D1=D1+ (oF BFHb)-(oFIL#b) 

DAT1I=A x 

01=01+ (oF TYPb)-(oFBFHb) 

A=0 A 

R=DATO 4 

GOSUBL FTYPFH SEARCH THE FILE TYPE IN TABLE 
GOC WRTF25 FILE TYPE FOUND IN TABLE 
R=R1 

GOSUB DELFIB 

GOTO ~=TYPER 


Saturn Assernbler 
Ver, 3.39/Rev. 2306 Get New File Nunber 


3410 11D50 DA WRTF25 A=C A 


File Utility & Systen Buffer R Fri Dec 30, 1983 4:34 an 


Page 69 
DO @ TABLE ENTRY 


3411 11052 132 ADOEX ; 
3412 11055 16F DO=D0+ 16 DO @ BASE FILE TYPE 
3413 11058 146 C=DATO A C = BASE FILE TYPE 
3414 11D5B 1503 DAT1=C 4 WRITE BASE FILE TYPE TO FIB 
3415 11D5F 180 DO=D0- 16-3 DO @ ENTRY DATA OFFSET 
3416 11D62 D2 C=0 A 
3417 11D64 14€ C=DATO B C(B) = DATA OFFSET 
3418 11067 D? D=C A D(A) = DATA OFFSET 
3419 11D69 ACI C=B S C(S) = TYPE COUNT 
3420 11D6C A4E C=C-1 § 
3421 11D6F 173 DI=D1+ (oPROTb)- (oF TYPb) 
3422 11072 1554 DATI=C $ WRITE PROTECT CODE 
3423 11076 181 DO=D0- 2 DO @ ENTRY COPY CODE 
3424 11079 14€ C=DATO B 
3425 1107C 170 D1=D1+ (oCOPYb)~(oPROTb) 
3426 11D7F 1550 DAT1=C P WRITE COPY CODE 
3427 11083 1574 C=DAT1 S 
3428 11087 AC? D=C S D(S) = COPY CODE 
3429 11D8A 171 D1=D1+ (oDEVCb)-(oCOPYb) 
34H 1108) 1H DO=A RESTORE DO TO STMTRO 
3431 11090 163 DO=D0+ 4 
3432 11093 14€ C=DATO B 
3433 11096 1550 DAT1=C P WRITE DEVICE TYPE 
3434 11D9A 170 Di=D1+ (oF BEGb)-(oDEVCb) 
3435 11D9D 160 DO=D0+ 1 
3436 11DA0 15A5 A=DATO 6 
3437 11DA4 1595 DAT1=A 6 WRITE FILE START 
3438 11DA8 D2 C= A 
3439 11DAAR 305 uc(1) 5 
3440 11DAD £3 D=D-C A DATA OFFSET - 5 
3441 11DAF AFB C= W C(S) = COPY CODE 
3442 110B2 A4E C=C-1 § 
3443 11DB5 A4E C=C-1 § 
3444 11088 5% GONC = =WRTF30 
JA45 * COPY CODE =1: SUBHERDER LENGTH=DRTR OFFSET - 13 NIBS 
3446 110BB 328F LC(3) 0-8 C(R) = FF8 
F 
3447 11000 CB C=C+D A SUBTRACT 8 FROM C, LEAVE C(XKS)=0 
3448 11DC2 81E WRIF3O CSRB TURN INTO BYTES 
3449 11DC5 175 D1i=D1+ (oSHLNb)- (oF BEGb) 
3450 11DC8 14D DAT1=C 8 WRTIE SUBHEADER LENGTH 
3451 11DCB 387A *$T=1 1/Obuf IS THIS AN EXTERNAL FILE ? 
3452 11DCE F1 GOYES WRTF40 IF SO, GOTO WRIF40 
3453 * GET THE PROTECT CODE AND COPY CODE FROM FILE HEADER 
3454 11000 D2 C=0 A 
3455 11DD2 3141 LC(2)  =oF LAGh 
3456 11DD6 C2 C=C+A A 
3457 110D8 134 DO=C 
3458 11DDB 14E C=DATO B 
3459 11DDE 136 COOEX 
W600 11DE1 118 C=RO GET ADDR SAVED IN RO PREVIOUSLY 
3461 11DE4 136 CDOEX 


3462 11DE7 163 


3463 11DER 14C DATO=C B 


DO=D0+ (oPROTb)-(oF TYPb) 
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3464 11DED 1817 WRIF40 DO=(5) =STMTRO 
8F2 
3465 11DF4 171 D1=D1+ (oDBEGb)-(oSHLNb) 
3466 11DF7 15€A C=DATO 11 
3467 11DFB 15DA DAT1=C 11 WRITE DATA START 
3468 11DFF 86A ?ST=0 = 1/Obuf INTERNAL FILE ? 
3469 11£02 31 GOYES WRTF42 IF SO, GOTO WRIF42 
3470 11E04 173 Di=Di+ 4 POLL TO WRITE DEVICE ASSIGN INFO 
3471 11EO7 7EEC GOSUB fpoll+ Save A,D,D0,01 & FAST POLL 
3472 11€0B AO CON(2) =pDIDST 
3473 x 
3474 11E0D 7000 GOSUB =Snaprs Restore A,D,DO,D1 fron snap save 
3475 k 
3476 11€11 1B17 WRIF41 DO=(5) =STNTRO 
8F2 
3477 11E18 1C3 Di=D1- 4 
3478 11£€1B8 17A WRIF42 Di=D1+ (oRECHb)-(oDBEGb) 
3479 11E1E 16F DO=D0+ 16 
3480 11E21 165 DO=D00+ 6 
3481 11E24 15€7 C=DATO 8 
3482 11€&28 1507 DAT1=C 8 WRITE # OF RECORDS&RECORD LENGTH 
3483 11E2C 170 D1=D1+ (oDLENb)-(oRECHb) 
3484 11£2F 87A ?ST=1 I/Obuf 
3485 11£32 60 GOYES WRTF45 
3486 11634 6780 GOTO WRTFSO 
3487 x 
3488 * File is in a HP-IL device 
3483 x 
3490 11638 17A = WRIF45 D1=D1+ (oF SIZb)-(oDLENb) 
3491 11E3B 1B22 DO=(5) (=SCRTCH)+33 READ FILE SIZE IN SECTORS FIRST 
SF2 
3492 11£42 142 A=DATO A 
3493 11€45 F4 ASR A 
3494 11647 164 DO=D0+ 5 
3495 11E4A 14A R=DATO B 
3496 11£4D 141 DAT1=R A 
3497 11£50 1CA Di=D1- (oF SIZb)-(oDLENb) 
3498 11653 94F 7DHO OS 
3499 11£56 FO GOYES DATLN2 
3500 * MAINFRAME FILE 
3501 11€58 1CD D1=D1- (oDLENb)-(oRECHb) D1 @ SAVED FILE LENGTH IN NIBS 
3502 11E5B 143 R=DAT1 A 
3503 11E5E 17D D1=D1+ (oDLENb)-(oRECKb) 
3504 11Eb1 6280 GOTO PATLIO (B.E.T.) 
3505 & 
3506 11665 A4? DATLN2 D=D+D §$ 
3507 11668 541 GONC  DATLN4 
3508 * FILE COPY CODE >= 8 
3509 11&6B 7C48 GOSUB poll 
3510 11E6F Re CON(2) =pDARTLN 
3511 11£71 470 GOC DTLNER 
3512 11674 831 ?XM=0 
3513 11E7? De GOYES DBATLIO 


3514 11E79 62DE DTLNER GOTO URIFER 
3515 x 
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3516 - 
3517 11£7D A4? DATLN4 D=D4D S$ 
3518 11680 590 GONC  DATLN6 
3519 * FILE COPY CODE = 4 (SIMILIAR TO LIF 1) 
3520 e 
3521 11€83 FO ASL oA 
3522 11£85 FO ASL OA 
3523 11E&87 4A5 GOC  DATLNS (B.E.T) 
3524 x 
3525 11E8A AA? = DATLNG D=D+D § 
3526 11€8D 583 GONC DATLN8 
3527 * FILE COPY CODE = 2 (HP41 DATA FILE) 
3528 11£90 1A93 DO=(4) (=SCRICH)+56 
OF 
3529 11E96 DO A=-O =O 
3530 11E98 148 A=DATO B 
3531 11€98 161 DO=D0+ 2 
3532 11E9E FO ASL OA 
3533 11ERO FO ASL OA 
3534 11EA2 148A A=DATO B A(A) = DATA LENGTH IN REGISTERS 
3535 11EAS C4 A=A+A A 
3536 11EA7 C4 A=R+A A 
3537 11EA9 C4 A=A+A A 
3538 11EAB 161 DO=D0+ 2 
3539 11ERE 14€ C=DATO B SEE IF THIS FILE SECURED 
3540 11EB1 90A 7c=0 =~ 
3541 11684 £2 GOYES DATLNS 
3542 11EB6 119 C=R1 
3543 11EB9 134 dOo=C 
3544 11EBC 168 DO=D0+ (oPROTb) 
3545 11EBF 31 uc(1) 1 
3546 11EC2 1540 DATO=C P 
3547 11£C6 581 GONC DATLNY 
3548 * FILE COPY CODE = 1 (FIX LENGTH DATA FILE) 
3549 11EC9 D2 DATLN8 C=O =A 
3550 11ECB DO A=O OA 
3551 11€CD 1CD 01=D1- (oDLENb)-(oREC#b) 
3552 11ED0 15F3 C=DAT1 4 = # OF RECORDS 
3553 11ED4 173 D1=D1+ 4 
3554 11ED?7 1583 R=DAT1 4 R= RECORD LENGTH 
3555 11EDB 179 01=D1+ (oDLENb)-(oRECLb) 
3556 11EDE 7409 GOSUB a-nult 
3557 s 
3558 11EE2 C4 DATLNS A=A+A A CONVERT BYTES TO NIBS 
3559 11EE4 D6 DATLIO C=A =A 
3560 11EE6 D3 D-0 oR DON’T SUBTRACT SUB. HRD. LEN 
3561 11EE8 6710 COTO  WRTF6O 
3562 * 
3563 * FILE IS IN RAN/RON 
3564 % 
3565 11EEC D2 WRTF50 C=O) =A 
3566 11EEE 3102 LC(2) =oF LENh 
3567 11EF2 CA A=A+C A 
3568 11EF4 130 DO=A DO @ FILE CHAIN LENGTH 
3569 11EF? 142 A=DATO A A =FILE CHAIN LENGTH 


Saturn Assenbler 


File Utility & System Buffer R Fri Dec 3, 1983 4:34 an 


Ver. 3.39/Rev. 2306 Get New File Nunber Page 72 
3570 11EFA 3150 tc(2) 5 
3571 11EFE EE C=A-C A 
3572 11F0O EB WRTF60 C=C-D A SUBTRACT SUBHDR LEN. FROM FILE LEN 
3573 14F02 145 DAT1=C A C(A) = FILE DATA LENGTH IN NIBS 
3574 11F05 1C9 01=D1- (oDLENb)-(oRECLb) 
3575 11F08 147 C=DAT1 A READ RECORD LENGTH 
3576 11FOB 17F 01=D1+ (oRLENb)-(oRECLb) 
3577 11FOE 145 DAT1=C A 
3578 11F11 1C8 01=D1- (oRLENb)-(oCPOSb) 
3579 11F14 AF2 C=0 W SET CURRENT POSITION TO FFFFF 
3580 11F17 1505 DAT1=C 6 
3581 11F1B CE C=C-1 A 
3582 11F1D 145 BAT1=C A 
3583 11F20 111 A=R1 
3584 11F23 8004 GOLONG REWIND REWIND THE FILE TO START OF DATA 
4F 
3585 % 
3586 JCI ICI III ICCC CI CII RI IKI ITT I TT TTT 
3587 FI TDR TR TET TE TT RT RT IK ISITE IIIT LIED I I ITD OTA II IISA STK 
3588 ** Nane: ASSIGN - ASSIGNH statement execution 
3589 am 
3590 *k Category: STEXEC 
3591 Kk 
3592 ** Purpose: Assign a channel number to a file. 
3593 aR 
3594 ** Entry: 
3595 Kk DO past the ASSIGNH token 
3596 a 
3597 *k Exit: 
3598 aK Exit to next staterent execution (NXTSTM) 
3599 ah 
3600 - Calls: GETCHH, POLL, OPENH, CLOSE#, GFIL#, WRIFIB 
* 
no JOU IO UICC COCO IIIT TI 
3603 JORIS OIC OCT TITS ITI III IDI III IK 
3604 k 
3605 11F29 0000 REL(5) =ASSNDC 
0 
3606 11F2E 0000 REL(5) =ASSNP 
0 
3607 11F33 8EEE =ASSIGN GOSUBL GETCHH GET CHHANNEL # AND SAVE IT 
4F 
3608 11F39 161 DO=DO+ 2 PASS THE tTOQ TOKEN 
3609 11F3C 14A A=DATO B 
3610 11F3F 3100 iC(2) =t* 
3611 11F43 966 "RHC OB 
3612 11F46 01 GOYES ASNOS5SO 
3613 * ASSIGN # TQ *: CLOSE THE CHANNEL 
3614 11F48 7711 ASNO2O GOSUB GTSVC# GET THE SAVED CHANNEL # TO B(B) 
3615 17F4C 7121 GOSUB = CLOSE# 
3616 11F50 8CCO ASNRIN GOLONG CTE300 
oF 
3617 * 
3618 11F56 7688 ASNOSO GOSUB fspecx 
3619 11F5A 504 GONC  ASNOEO 
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3620 x 
3621 : CHECK IF THE FILE SPEC. IS "*" OR "" IF ERROR RETURN 
3622 
3623 11F5D 867 *ST=0 7 STRING EXPR ? 
3624 11F60 87 GOYES bserri IF NOT, ERROR 
3625 11F62 8EOO GOSUBL =csrc5 SAVE THE ERROR NUMBER 
00 
3626 11F68 8E00 GOSUBL =D1=AVE D1 @ TOP OF STACK 
00 
3627 11F6E 171 Di=D1+ 2 
3628 11F71 143 A=DAT1 A 
3629 11F74 D8 B=A A 
3630 11F76 CD B=B-1 A NULL STRING ? 
3631 11F78 4FC GOC ASNO20 IF SO, GORO ASNO2O 
3632 11F7B 170 Di=Di+ 14 
3633 11F7E 31A2 LCASC = \*\ 
3634 11F82 143 A=DAT1 A 
3635 11F85 966 ARC OB 
3636 11F88 90 GOYES ASNOS55 
3637 11F8A CD B=B-1 A 
3638 11F8C CD B=B-1 R 
3639 11F8E 498 GOC ASNO20 
3640 11F91 8E0O ASNO55S GOSUBL =Cslc5 
00 
3641 11F97 6340 GOTO =bserri 
3642 x 
3643 11F9B 8E88 ASNO6O GOSUBL SVFSP+ SAVE FILE SPEC 
5F 
3644 11FA1 5D1 GONC ASN100 
3645 * POLL HP-IL ROM TO ASSIGN A CHANNEL # TO A FILE 
3646 * PROCESS # = pFINDF 
3647 x EXIT: 
3648 x 
3649 11FA4 8E9F GOSUBL POLLFF PUT FILE NAME TO R1 AND POLL 
6F 
3650 11FAR 71 CON(2) =pFINDF 
3651 11FAC 4E2 GOC bserr1 
3652 x 
3653 11FAF 831 ASNO7O ?XN=0 
3654 11FB2 50 GOYES ASN80 
3655 11FB4 522 GONC ASNerr 
3656 11FB7 7700 ASN8O GOSUB OPNF+3 WRITE DATA START & FILE START 
3657 11FBB 6870 GOTO ASN200 TO RO & Ri 
3658 * INTERNAL FILE 
3659 11FBF 7F6B ASN100 GOSUB findf 
3660 11FC3 505 3 GONC ASN120 FILE FOUND 
3661 
3662 x FILE NOT FOUND, LET’S CREATE IT AS A DATA FILE 
3663 x 
3664 11FC6 1858 DO=(5) (=STNTR1)+4 
8F2 
3665 11FCD 1564 C=DATO § 
3666 11FD1 B46 C=C+1 S$ TURN F INTO O 
3667 11FD4 4A0 GOC ASN110 ASSIGN TO MAINFRAME FILE ? 
3668 11F0? 7F4B ASNerr GOSUB OPNOFD 
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3669 
3670 
3671 
3672 


3673 
3674 
3675 
3676 
3677 


3678 
3679 
3680 


3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3683 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 


3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 


3712 
3713 
3714 
3715 
3716 


11F OB 


11FDF 
11FE2 


11FER 
T1FEE 
11FF1 
11FF5 
11FF3 


V1FFF 
12002 


12008 
1200A 
1200E 
12011 
12014 
12018 
12018 
1201E 
12021 
12025 
12028 
1202C 
12030 


12034 
12038 
1203C 
1203F 
12043 


12046 
1204RA 


12050 
12053 
12056 
12059 
1205C 
1205F 


12063 
1206A 


1206) 
1206F 


6562 


165 
350F 
OE11 
15C5 
AF2 
31D2 
AF3 
8FOO 
000 
480 


8EC5 
6F 

b2 

15D3 
173 
B26 
15D3 
AF 3 
114 

131 

7C1C 
4A0 
7A1B 
6412 
7E5C 


7B20 
7D6R 
SFE 
711B 
58E 


7910 
BECS 
4F 
172 
111 
130 
14E 
14D 
60FE 


1BF6 
9Fe 
14E 
D5 
01 
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bserr 
* 


ASN110 


ASNI20 


ASN1 30 


ASN150 
k 


ASN200 


ASN300 


x 
x 


=GTSVCH 


GOTO 


DO=D0+ 
LCHEX 


DATO=C 
C=0 
LC(2) 
D=0 
GOSBVL 
GOC 
GOSUBL 


C=0 


bserr 


6 
11EOFO 


6 
W 
(=oIMPLh)+8 
W 

=CREATF 
bserri 
CRFSB- 


A 


DATI=C 4 


01=D01+ 
C=C+1 
DAT1=C 
D=0 
A=R1 
D1=A 
GOSUB 
GOC 
GOSUB 
GOTO 
GOSUB 


GOSUB 
GOSUB 
GONC 
GOSUB 
GONC 


GOSUB 
GOSUBL 


01=D1+ 
A=R1 
DO=A 
C=DATO 
DAT1=C 
GOTO 


dO=(5) 
C=DATO 


B=C 
RTN 


4 
XS 
4 
W 


OPNF +1 
ASN150 
TYPER 
bserr 
OPNF+2 


GTSVC# 
OPNCHH 
ASN130 
OPENF - 
ASN1 30 


GTSVC# 
FDCHR 


3 

B 

B 
ASNRTN 
=CHNHSV 


B 
A 


Page 74 


COPY CODE, CREATE CODE & FILE TYPE 
SAVE IT IN $-R1-2(10-15) 


TRY TO CREATE THE FILE 


Carry set if unsuccessfully 


WRITE THE FILE HEADER 


Di= FILE HEADER ADDRESS 


GET SAVED CHANNEL # TO B(B) 
OPEN THE CHANNEL # 


GET SAVED CHANNEL # TO B(B) 
FIND THE CHANNEL # AGRIN 


DO POINTS AT FIB ENTRY 
C= FIB # 
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3717 STITLE CLOSE file 

3718 SII II RII IIT LTT TIT TRI ITI IARI III III III ISS ISS SSSI SSS 

3719 IIIT TTT RID ITIL TDL ISIIIIIIIS SSIS ISSSISSSISSS IIIS 

3720 ak 

3721 ** Narie: CLOSE# - Close File 

3722 *k Nane:(S) CLOSEF - Close File 

3723 aK 

3724 &* Category:  FILUTL 

3725 a 

3726 ** Purpose: Close file in File Information Buffer 

3727 ak 

3728 ek Entry: 

3729 ae CLOSE#: B(B) = Channel # of the file 

37H ak CLOSEF: A(B) = FIB # of the file 

3731 ak 

3732 RK Exit: 

3733 ak No error condition if the file not found 

3734 ax 

3735 ** Calls: FFIBH, POLL 

3736 aK 

3737 *k Uses: A,B,C,D0,01, STNTD1 

3738 aK 

3739 tk Stk lvls: 5 

3740 aK 

3741 kk NOTE: This progran FALLS INTO routine DELFIB 
ak 

a JE TTR RTI ATT IAD ID IIASA SIS I III II SSI SII I 

3744 JE ITO IAT TIS STII IO IIS IIIS IIIS I III IOS IIIS III IIA 

3745 * 

3746 12071 8E53 =CLOSE# GOSUBL FDCH# SEARCH CHANNEL # IN ASSIGN TABLE 

4F 

3747 12077 500 RTNNC IF NOT FOUND, DONE 

3748 1207A 968 7A=0)~ = OB CHANNEL CLOSED ? 

3749 12070 00 RTNYES IF SO, DONE 

3750 1207F D2 C=0 A 

3751 12081 172 D1=D1+ 3 

3752 12084 140 DAT1=C B CLOSE THE CHANNEL 

3753 x 

3754 12087 7462 =CLOSEF GOSUB FFIB# Find File# IN FIB 

3755 1208B 400 RTNC File# NOT FOUND, DONE 

3756 * 01 POINTS AT THE FILE ENTRY IN FIB 

3757 1208E 133 AD1EX SAVE FIB ENTRY ADDR IN A 

3758 12091 7271 GOSUB FLSHIO FLUSH FILE I/O BUFFER IF NEED TO 
x 

aes JURIST II ITI IS ISI ISI ISIS SISK 

3761 JIT IS IT TTT TOTTI ISI III II III SST TI IS SSSA SII ST. 

3762 = 

3763 *k Nane: DELFIB - Delete FIB Entry 

3764 aA 

3765 xk Category:  FILUTL 

3766 ak 

3767 xk Purpose: 

3768 at Delete an FIB entry for a file 

3769 ak 

3770 ax Entry: 
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3771 xk A(A) = Address of FIB entry to be deleted 
37 72 kk 
3773 ak Exit: 
3774 a Carry clear 
3775 ak 
3776 kk Calls: TOCNDO 
3777 ak 
3778 RK Uses... ..0, 
3779 *k Exclusive: C(A),8(A),D0, RO 
3780 kk Inclusive: As above, plus IQCNDO 
3781 ak 
3782 Xk Stk lvls: +4 
3783 ak 
3784 *k NOTE: 
3785 ak Routine CLOSEF FALLS INTO this routine! 
3786 ak 
3787 ** History: 
3788 ak 
3789 ae Date Progranner Modification 
37:30 KR ne nee ne nee nnn enn er nner nee en rr rr nner ene 
3791 ek 09/12/82 S.C. Designed and coded 
3792 ek 09/13/83 S.W. Changed doc. to reflect stk lvls=4 
ak 
oe, JO II II IOI OO I IOI ITO 
3795 JO IOI ISI IO ITI ITO ICO Ir 
3796 12095 130 =DELFIB DO=A Set DO to start of contraction 
3797 12098 100 RO=A SAVE PTR IN RO TO0 
3798 1209B 161 DO=D0+ (oF BFHb) 
3799 1209E 146 C=DATO A 
3800 120A1 93A ?C=0—X IS THERE AN I/O BUFFER ? 
3801 120A4 72 GOYES DELBF8 IF NOT, JUST DELETE THE FIB ENTRY 
3802 120A6 7799 GOSUB I/ODAL DEALLOCATE THE FILE I/0 BUFR 
3803 * IF THE ASSIGN TYPE OF THIS DEVICE IS 4, DELETE THE 1/0 BUFFER 
3804 * USED FOR STORING THE DEVICE ID 
3805 120AR 110 DELBFS A=RO 
3806 120AD 130 DO=A 
3807 120B0 16C DO=D0+ (oF BEGb) 
3808 120B3 16F DO=D0+ (oDBEGb)-(oF BEGb)+8 
3809 120B6 14A A=DATO B 
3810 120B9 304 LC(1) 4 
3811 120BC 906 7ARC OP 
3812 120BF CO GOYES DELBFS8 
3813 12001 160 DO=DO+ 1 
3814 12004 146 C=DATO A C(X) = I/0 BUFFER ID 
3815 12007 7679 GOSUB I/ODAL 
3816 1200B 110 DELBFS& A=RO 
3817 120CE 130 DO=A 
3818 12001 D2 C=0 a 
3819 12003 31F3 LC(2)  =1FIB 
3820 12007 DS B=C A 
3821 12009 323% LC(3) =bFIB 
8 f 
S82 120DE 7348 GOSUB IOCNDO 
3823 120E2 03 RTNCC 


3824 
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3825 $I ITI TTT IR TI IT TRI III IR II III IASI I IOI SSSI SII: 
3826 SII IIIT ITI OAD IIIA IIIS III ISIE III III IIIS II IIIA IIS 
3827 ae 
3828 ** Wane: (S) CLOSEA - Close All Open Files 
3829 ak 
3830 ** Category:  FILUTL 
3831 ak 
3832 c Purpose: Close all opening files and delete their entries 
3833 
3834 ** Entry: P= 0 
3835 Rk 
3836 tk Exit: P =O 
3837 ax 
3838 ** Calls: I/OFND, DELFIB, POLL( pWRCBF ) 

3839 ak 
3840 *k Uses: A-D, DO, D1, RO ,STMTD1 
3841 ae 
3842 ** Stk lvls: 5 
3843 ak 
3844 JI JOO OID CTI COC TOT ITS 
3845 JIC CIOS IOC IT I 
3846 B 
3847 120E4 8E8B =CLOSER GOSUBL BUFFIB 
7F 
3848 120EA 581 GONC DELASN 
3849 120ED 14F C=DAT1 B 
3850 120FO 96A 7C=0 «6B REACHED END OF FIB YET ? 
3851 120F3 00 RTNYES 
3852 120F5 133 ADIEX 
3853 120F8 7801 GOSUB FLSHIO 
3854 120FC 759F GOSUB DELFIB 
3855 12100 53E GONC CLOSEA 
3856 * DELETE THE ENTIRE ASSIGNMENT TABLE 
3857 12103 8E2A DELASN GOSUBL BUFASN 
7F 
3858 12109 500 RTNNC 
3859 1210C 6439 _TODAL) GOTO I/ODAL 
oa JUG IOI OOOO TOTO TOI IIIT IIA 
3862 JODO TITS I II TITAS IT II IOI OTT IIIS IIS IIIS I IAI IIIS 
3863 ae 
3864 ** Nane: DLFIBR - Delete All FIB Entries 
3865 ax 
3866 ** Category:  FILUTL 
3867 ak 
3868 ** Purpose: Delete all FIB entries but will not flush the 1/0 
3869 a buffer. 
3870 kk 
3871 ** Entry: P= 0 
3872 x 
3873 Rk Exits P=0 
3874 ak 
3875 *k Uses: A-D, DO, D1, RO 
3876 at 


3877 ** $tk Ivls: 5 
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3878 am 
3879 JOU III ISIC COIOO ICO III IO IOC III IK 
3880 JO III ITO TOI OOOO OO III TOC OT I ITI 
3881 x 
3882 12110 8EC8 =DLFIBA GOSUBL BUFFIB 
7F 
3883 12116 5CE GONC  DELASN 
3884 12119 14F C=DAT1 B 
3885 1211C 396A 7C=0 = «iB REACHED END OF FIB YET ? 
3886 1211F 4E GOYES DELASN 
3887 12121 133 RADIEX 
3888 12124 7D6F GOSUB DELFIB 
3889 12128 57E : GONC DLFIBA (BELT 
ey JORIS IIIS OIC ISOIIO IO IC IOC OI OTT IK 
3892 JO IDOI III OO OGIO GO ICO IO I ITOK 
3893 ax 
3894 Kk Wane: FIBON - Reset Devices, Buffers at Power On/Off 
3895 ** Nane:(S) FIBOFF - Reset Devices, Buffers at Poner On/Off 
3896 am 
3897 ** Category:  FILUTL 
3898 ae 
3899 ** Purpose: When HP-71 powers off, reset all external devices. 
3900 ak When HP-71 powers on, reclain all the I/O buffers. 
3901 ax 
3902 ** Entry: None 
3903 ak 
3904 ** Exit: P=0. 
3905 ak Hex node. 
3906 aK 
3907 &* Calls: I/OFND, I/ORES 
3908 ax 
3903 tk Uses: A,C, DO,D1, SO 
3910 ax 
3911 &* Stk lvls: 2 
3912 FOR IOI IO OOO OO IOI OI OOOO IOI IG OI IOI 
3913 JO IO IOI IIS IOUS ICIS OIG CTR OK 
3914 a 
3915 1212B 850 =FIBON ST=1 0O 
3916 1212E 6600 GOTO FIBO/F 
3917 12132 840 =FIBOFF ST=0 Q 
3918 k 
3919 12135 8E76 FIBO/F GOSUBL BUFFIB 
7F 
3920 1213B 133 ADIEX 
3921 1213E 1H DO=A 
3922 12141 14—  RCLN1IO C=DATO B 
3923 12144 96R 7C=0—o=B REACHED END OF FIB ? 
3924 12147 00 RTNYES 
3925 12149 161 DO=D0+ (oF BF#b) 
3926 1214C 146 C=DATO A 
3927 1214F 16A DO=DO+ (oFBEGb)- (oF BFHb) 
3928 12152 16B DO=D0+ (oDBEGb)- (oF BEGb) +4 
3923 12155 393A 7C=0 OK EXTERNAL FILE ? 
3930 12158 43 GOYES NXTFIL IF NOT, NEXT FILE 
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3931 1215A 870 *ST=1 0 POWER ON ? 
3932 1215) DO GOYES RCLN20 IF SO, RECLAIM THE 1/0 BUFFERS 
3933 1215F D2 (=O 860A 
3934 12161 CE C=C-1 A 
3935 12163 1543 DATO=C X 
33936 12167 442 GOC NXTFIL (B.E.T.) 
3937 1216A 8EF8 RCLM20 GOSUBL I/ORES 
7F 
3938 12170 162 DO=D0+ 3 
3939 12173 14A A=DATO B 
3940 12176 24 uC(4) 4 
3941 12179 96 "ARC OP 
3942 1217C DO GOYES RCLN30 
3943 1217E 146 C=DATO A 
3944 12181 F6 (SRA 
3945 12183 8667 GOSUBL I/ORES 
oF 
3946 12189 182  RCLN3IO DO=D0- 3 
3947 * 
3948 1218C 16E  NXTFIL DO=D0+ (ofPOSb)-(oDBEGb)-4 
3949 1218F 16B DO=D0+ (oRLENb)-(oCPOSb) 
3950 12192 16A DO=D0+ (1FIB)-(oRLENb) 
3951 12195 5BA GONC RCLNIO 
3952 * 
3953 JOU OTITIS IID I SSID II ITT II II III ITI II IAS 
3954 JOO II TI KT TIT TDI ISI III III III ATI II III SIS ISI ISI SII IIIT ISIN 
3955 xe 
3956 a Nane:(S) PUGFIB - Purge the FIB Entries of Purged Files 
3957 s 
3958 **k Category:  FILUTL 
3959 ae 
3960 ** Purpose: Purge the FIB entry of a purged file. 
3961 KS Delete an FIB entry whose "File Begin" address 
3962 ax is zero. 
3963 a 
3964 kx Entry: The "file Begin" of the purged file in FIB 
3965 Be should be already zeroed. 
3966 ie 
3967 ** Exit: The first FIB entries matching the condition is deleted 
3968 ae 
3969 ** Calls: FOFIL#, DELFIB, I/ODAL 
3970 ds 
3971 ** Uses: A-D,00,D1,RO 
3972 ae 
3973 *k Stk lvls: +4 
3974 JO I OT ITT ITO IIA IIT IO IDET IIT II SII ASTID IR 
3975 FO III ITT TT TIRE I TTI ATT ISK IIIT RII IAI III IIIS II SOK 
3976 * 
3977 12198 8640 =PUGFIB GOSUBL BUFFIB GET FIB BUFFER ADDRESS 
?F 
3978 : 
3979 1219E 14B PUFBIO A=DAT1 B 
3980 121A1 968 7A=0) OB 
3981 121A4 00 RTNYES 
3982 121A6 17C 01=01+ (oFBEGb) 
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3983 12189 147 C=DAT1 A 
3984 4121AC 1CC D1=D1- (oFBEGb) 
3985 121AF 8AA C=O) —R 
3986 121B2 11 GOYES CLSCH# 
3987? 121B4 17F D1=D1+ 16 
3988 121B7 17F Di=Di+ 16 
3989 121BA 17F 01=D1+ 16 
3990 121BD 17E D1=D1+ (1FIB)-48 PTS TO NEXT ENTRY 
3991 121C0 500 GONC PUFB1O 
3992 x 
3993 121C3 D8 CLSCHH B=A A B(B) = FIB # OF THIS FILE 
3994 121C5 137 COIEX 
3995 121C8 D7 p=C A D(A) = FIB ENTRY ADDRESS 
3996 121CA 8E82 GOSUBL FDFIL# FIND THE FILE # IN ASSIGN TABLE 
3F 

3997 12100 570 GONC PUFB20 IF NOT FOUND, DON’T CLEAR CHANNEL # 
3998 12103 © R=0 A ZERO THE FILE # OF THE CHANNEL # 
3993 12105 149 DATI=A B 
4000 12108 OF PUFB20 CDEX AA 
4001 1210A DA A=C A A(A) = FIB ENTRY ADDRESS 
4002 1210C 68BE GOTO ODELFIB NOW DELETE THE FIB ENTRY 

x 
ios JIGII II ITI TIO OIC IOC IIT TIE 
4005 JIG I II OIC ICO EGC TIE 
4006 xx Nane:  FLUSHA - Flush All File I/0 Buffers 
4007 ae 
408 *k Category:  FILUTL 
4009 ae 
4010 ** Purpose: Writes the content of all the file 1/0 buffers back 
4011 KK to the file if buffer content has been altered. 
4012 ak 
4013 Ax Entry: P = 0 
4014 x 
4015 KK Exit: P=0 
4016 ak 
4017 Kk Calls: I/OFND, DELFIB, IOCNDO, POLL(pWRCBF) 
4018 a 
4019 xk Uses: A-D, DO, STNTD1 
4020 a 
4021 xk Stk lvls: 3 
4022 xx 
4023 JISC OI III ISIS EIEIO IO II RR 
4024 JIG IIIS SISSIES IOI TOO TI 
4025 * 
4026 121£0 8ECB =FLUSHA GOSUBL BUFFIB 

6F 

402? 12166 500 RTNNC 
4028 121£9 133 ADITEX R= FILE ENTRY ADDRESS IN FIB 
4029 121E&C 131 FLHAIO D1=R 
4030 121EF 14F C=DAT1 B 
4031 121F2 396A C=O) = iB REACHED END OF FIB BUFFER ? 
4032 121F5 © RTNYES IF SO, DONE 
4033 121F? 7000 GOSUB FLSHIO FLUSH FILE 1/0 BUFFER IF NEED TO 
4034 121FB D2 FLHA20 C=0 A 
4035 121FD 31F3 LC(2) =1FIB JUMP OVER INTERNAL FILE 
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4036 12201 CA A=AtC A 
4037 12203 68EF GOTO FLHA1O LOOK AT NEXT FILE 
4038 x 
4039 x 
4040 JOISTS IIIS CII IIIT IOS I III III III TIS 
4041 JI OGIO I RII II ISI IST I III IAT IAA 
4042 ee 
4043 ** Narie: FLSHIO - Flush Out File 1/0 Buffer 
4044 ak 
4045 ** Category:  FILUTL 
4046 ae 
4047 ** Purpose: Flush file 1/0 buffer for a given file 
4048 a 
4049 kk Entry: A(A): Contains the FIB entry address of the file 
4050 ak 
4051 kk Exit: Carry set => The file is internal or the contents of 
4052 ar the file 1/0 buffer have not been altered. 
4053 ar Carry clear => The file I/0 buffer has been flushed. 
4054 ak If HP-IL error happen, exit to error routine. 
4055 a 
4056 ** Calls: POLL(pWRCBF) 
4057 aia 
4058 kk Uses: B,C,D0, STMTO1 
4059 at 
4060 *k Stk lvls: 4 
4061 ak 
4062 JI OI ICI II TIO TI TSI I III IIT I IITA 
4063 FRI III ITI IIIT III IS III IIT IIIT I IAI III IIIT III SSI IIIT SII III ISI IIK 
4064 a 
4065 12207 1B69 =FLSHIO DO=(5) =STMTD1 SAVE FIB ENTRY ADDR IN STNTD1 
8F2 
4066 1220E 140 DATO=A A 
4067 12211 130 DO=A 
4068 12214 161 DO=00+ (oF BFHb) 
4069 12217 146 C=DATO A 
4070 1221A 93A *c=0 =X TS THIS AN EXTERNAL FILE ? 
4071 12210 00 RTNYES IF NOT, RETURN CARRY SET 
4072 1221F 168 DO=D0+ (oACCSb)-( oF BFHb) 
4073 12222 14E C=DATO B 
4074 12225 390A 7C=0 =P ACCESS CODE = 0 ? 
4075 12228 00 RTNYES IF SO, RETURN CARRY SET 
4076 1222R 07 C=RSTK Save on elevel of RSTK 
4077 1222C 79C8 GOSUB fpoll+ Save A,D,00,01 & Fast Poll 
4078 12230 A1 CON(2) =pWRCBF 
4079 12232 D9 C=B OR 
4080 12234 06 RSTK=C Restore last RSTK 
4081 12236 831 =CHKRSP ?XN=0 HP-IL MODULE PLUG-IN ? 
4082 12239 A2 GOYES GTBF25 IF SO, RETURN CARRY CLEAR 
4083 1223B 3300 LC(4) =eDVCNF SRY DEVICE NOT FOUND 
00 
4084 12241 8C0O bserr GOLONG =BsErr ERROR EXIT 
00 
4085 - 
4086 . 


4087 FOI III III ITO TI TT III IT IIIT IK 





Saturn Asserbler 


File Utility & Systen Buffer R Fri Dec 30, 1983 4:34 an 


Ver. 3.39/Rev. 2306 CLOSE file Page 82 
4088 JO IO OTIC ISO OCT OT IT TK IK 
4089 kk 
4090 Kk Nave: GETBUF - Get I/0 Buffer for External File 
4091 ae 
4092 ** Category:  FILUTL 
4093 an 
4094 *% Purpose: Get an 1/0 buffer for an external file 
4095 ae 
4096 **k Entry: P =0 
4097 ax 
4098 kA Exit: Carry clear => found an unused buffer 
4039 wh A(x) = 1/0 buffer nunber 
4100 aR The I/0 buffer is created 
4101 xx Carry set => No available 1/0 buffer found 
4102 ax 
4103 kk Calls: IOFSCR, I/OALL 
4104 xx 
4105 xk Uses: A, B, C, D, DO, DI 
4106 xx 
4107 aX Stk lvls: 3 
4108 xx 
4109 *X Notes: Available 1/0 buffers are fron #EOO - HFFF 
4110 a total 512 buffers. 

4411 a 
4112 ** History: 
4113 xk 
4114 ae Date Progranner Modifications 
4115 RRO wee nnn ne ee nen enn eee nee e eee 
4116 2 02/09/83 S.W. Cut code by calling IOFSCR 

& 
dee JOTI OUI OGIO III TI TOT III ITI TAK 
4119 JOTI I DUE III OG IIT TTI IIIT IIIS ID TK 
4120 ax 
4121 12247 8E14 =GETBUF GOSUBL IOFSCR Look for available buffer 

6F 
4122 1224D 400 RTNC None available (not likely) 
4123 12250 D1 B=0 A 
4124 12252 B25 B=B+1 XS 
4125 12255 C5 B=B+B A SIZE OF 512 NIBBLES 
4126 12257 8E02 GOSUBL I/OALL ALLOCATE THE BUFFER 
7F 

4127? 1225D 570 GONC GITBF30 NOT ENOUGH TO ALLOCATE THE BUFFER 
4128 12260 142 A=DATO A A(X) = BUFFER ID 
4129 12263 03 GTBF25 RTNCC 
4130 12265 02 GTBF3IO RTNSC 

* 
ee ORR OOOO OI IO OO ICO IO GIGI OI IOI IOI TEI TIO Oi 
4133 FORO tO RO OO UII OO OI OI IOI GIGI HO 
4134 a 
4135 aX Narie: POPCHH - Pop Lowest Assign Table Channel Number 
4136 a 
413? *X Category:  FILUTL 
4138 ae 
4139 ** Purpose: Pop off the lowest level of channel # fron the 
4140 a Assign Table 
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414) is 
4142 *k Entry: None 
4143 as 
4144 RR Exit:  P=0. 
4145 at 
4146 2 Calls: FNDMRK, I/OFND, CLOSEF, I/OCON, I/ODAL 
4147 , 
4148 *k Used: Inclusive A-D, DO,D1, $3 
4149 a 
4150 kK Stk lvis: 4 
4151 JOIST III IIE ITI III ITT IT IIIT I ISI AIT IIIS IS 
4152 JI IS II SIA III IIT II ISI IID ISII III III SIIIIIIDIIISGIISIISISI IIIS IS 
4153 . 
4154 12267 7660 =POPCHH GOSUB FNDMRK 
4155 1226B 500 RTNNC ASSIG TABLE NOT FOUND 
4156 1226E 171 D1i=D1+ 2 
4157 12271 147 C=DAT1 A C(X) = LEVEL COUNT 
4158 12274 938 C=O X DUPLICATE LEVEL EXIST ? 
4159 12277 RO GOYES POPH10 IF NOT, POP THE ENTIRE LEVEL OFF 
4160 * LAST SUB-PROGRAN CALL PAST NO PARAMETER, SO ALL WE HAVE TO 00 
4161 * I$ TO DECRENENT THE LEVEL COUNT 
4162 12279 CE C=C-1 A 
4163 1227B 1553 DAT1=C X 
4164 1227F 03 RTNCC 
4165 * POP OFF ONE CHANNEL # AT A TINE 
4166 12281 8E42 POPH1O GOSUBL BUFASN 
6F 
4167 12287 137 CDIEX 
4168 1228A C2 C=A+C A 
4169 1228C 135 b1=C D1 PTS PAST END OF BUFFER 
4170 1228F 1€4 D1i=D1- 5 
4171 12292 147 C=DAT1 A READ LAST ENTRY 
4172 12295 843 ST=0 3 
4173 12298 396A C=O) «iB REACHED LEVEL MARK YET ? 
4174 12298 72 GOYES POPH30 IF $0, GOTO POPH30 
4175 1229D 853 ST=1 3 
4176 122A0 92E 7CHO XS IS THIS AN INDIRECT CHANNEL # ? 
4177 122A3 CO GOYES POPH20 IF SO, JUST POP OFF THE ENTRY 
4178 122A5 172 Di=D1+ 3 
4179 122A8 148 A=DAT1 B READ THE FIB # 
4180 122AB 7800 GOSUB CLOSEF CLOSE THE FILE 
4181 * CONTRACT THE BUFFER BY 5 NIBBLES 
4182 122AF 8E6E POPHZ2O0 GOSUBL STPASG 
?F 
4183 x 
4184 122B5 8656 POPH25 GOSUBL I/OCON 
6F 
4185 122BB 873 78T=1 3 
4186 122BE 3C GOYES POPH1O NOT REACHED LEVEL MARK YET 
4187 12200 03 = POPH27 RTNCC 
4188 122C2 8E3D POPR30 GOSUBL STPASG 
7F 
4189 12208 8A4 7RHB OA REACHED TOP OF TABLE ? 
4190 122CB AE GOYES POP#H2S IF NOT, POP OFF THE LEVEL MARKER 
4191 122CD 6E3E GOTO IODAL) DEALLOCATES THE ASSIGN TABLE 
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4192 x 
4193 & 
4194 JO I TI III TI IR II III ISI III II SII ISIS IS III SSI II III SITS 
4195 JT I I IIIT IE EIT ITT I I III IIIA ASAI I I IIIS IO ASIII 
4196 ae 
4197 : Narie: FNDNRK - Find Lowest Marker in Assign Table 
4198 
4199 kk Category:  FILUTL 
4200 ak 
4201 ** Purpose: Find the lowest level marker in the Assign table 
4202 ax 
4203 ** Entry: Nothing 
4204 ak 
4205 *k Exit: Carry set => Level narker found 
4206 ak D1 points at the level narker 
4207 ak C=DAT1 A 
4208 hk 
4203 *k Calls: I/OFND 
4210 ak 
4211 kk Used: A,C,D1 
4212 ak 
4213 ak Stk lvls: +1 
4214 JERI IOI IIT TO ITT ITI ITT TI TIS I IIIS IIIS IITA I 
4215 JOR IO ITT III ITI IIIS III III I IIIS II IIIT III III SII AIA 
4216 x 
4217 122D1 8E4D =FNDNRK GOSUBL BUFASN 
OF 
4218 12207 500 RTNNC ASSIGN TABLE NOT FOUND 
4219 122DA 137 CD1IEX 
4220 122DD CA A=R+C A 
4221 122DF 131 D1=A D1 POINTS PAST END OF BUFFER 
4222 122E2 1€4  FNDMK2 D1=D1- 5 
4223 122E5 147 C=DAT1 A 
4224 122E8 96E =FNDMK- ?CHO) OB 
4225 122EB 7F GOYES FNDMK2 NOT REACH LEVEL MARKER YET 
4226 122ED 02 == FNDMK3 RTNSC 
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4227 STITLE Fand File# in File Info Buffer 
4228 JOO OOOO IO OTC TIC ITT TI K 
4229 JOU OI IOI TIC ITT TIT IATA IIT 
42H a 
4231 xx Nane: FFIBH - Find File Nunber in FIB 
4232 ah 
4233 ** Category:  FILUTL 
4234 aa 
4235 ** Purpose: Find File Nunber in File Information Buffer 
4236 xe i 
4237 &* Entry: A(B) = File# 
4238 ae 
4239 eX Exit: 
4240 kn B = Filet 
4241 kk P=90 
4242 &k Carry Clear: 
4243 ax D1 @ File# in File Infornation Buffer 
4244 aK B = File# 
4245 ak Carry Set: 
4246 ae File# not found 
4247 ae 
4248 am 
4249 &k Calls: I/OFND 
4250 an 
4251 kk Uses: A,B,C,D1,P 
4252 aK 
4253 hx I/OFND uses A,C,01 
4254 tk Stk lvls: +1 
4255 ax 
4256 kk Detail: 6B <-- Filet 
4257 ax C <-- FIB ID 
4258 aK Find FIB Buffer (1/0FND) 
4259 ae If not found 
4260 KK RTNSC 
4261 aK Repeat until (File# = 00) 
4262 ak Read File# 
4263 ax If File# = Requested File# 
4264 a RTNCC 
4265 xX Skip to next file 
4266 ke 
4267 JOU OO TOI IOC I IOC OT TK 
4268 JOC TOC ITT TCT TTT TTS TT TT TST OTR 
4269 122EF D8 =FFIBH B=A A Save File# 
4270 122F1 20 P= 0 
4271 122F3 8E9A GOSUBL BUFFIB Find File Infornation Buffer 
oF 
4272 122F9 5S3F GONC = FNDIK3 Not found, return set carry 
4273 122FC D2 C=0 A 
4274 122FE 31F3 LC(2) =1FIB Length of Info per File# 
4275 12302 148  FIBHIO A=DAT1 B Read file# 
4276 12305 968 7A=0 iB End of buffer ? 
4277 12308 00 RTNYES 
4278 1230A 960 7A=BO#B File# equal ? 
4279 12300 3B GOYES POP#27 If so, return carry clear 


42380 1230F 133 FIBHZ20 ADIEX 
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4281 12312 CA A=A+C A Skip to next file# info 
4282 12314 133 ADIEX 
4283 12317 GAEF GOTO FIBHIO Continue 
4284 x 
4285 x 


4286 12318 END 
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A-MULT Ext - 2017 
ARGERR Ext - 1097 


ASNO20 Abs 73544 #11F48 - 3614 3631 3639 
ASNOSO Abs 73558 411F56 - 3618 3612 
ASNOSS Abs 73617 #11F91 - 3640 3636 
ASNO60 Abs 73627 H11F9B - 3643 3619 
ASNO?0 Abs 73647 H11FAF - 3653 
ASNI00 =Rbs 73663 H11FBF - 3659 3644 
ASN110 Abs 73695 H11FDF - 3671 3667 
ASN120 Abs 73761 #12021 - 3689 3660 
ASN130 Abs 73772 #1202C - 3692 3697 3699 
ASN150 Abs 73776 #12030 - 3693 3690 
ASN200 Abs 73780 #12034 - 3695 3657 
ASNHO Rbs 73798 #12046 - 3701 
ASN8O Abs 73655 #11FB7 - 3656 3654 
ASNRTN Abs 73552 #11F50 - 3616 3708 
ASNerr Abs 73687 H11FD7 - 3668 3655 
=ASSIGN Abs 73523 411F33 - 3607 


ASSNDC Ext - 3605 
ASSNP Ext - 3606 
AVMENS Abs 193940 #2F594 - 14 2801 


BADTYP Abs 70767 H1146F - 113% 643 
=BUFASN Abs 71851 #118AB - 2270 1202 1262 2841 3857 4166 4217 
=BUFFIB Abs 71842 #118A2 - 2268 W350 3114 3847 3882 3919 3977 4026 


4271 
BsErr Ext - 4084 
CHHNFD Abs 70826 #114AA - 1169 1203 1211 1215 1269 
CHKEOL Ext -~ 384 388 
=CHKRSP Abs 74294 #12236 - 4081 
CHNHSY Abs 194927 H2F96F - 14 1089 3711 
=CLOSEH Abs 73841 #12071 - 3746 3615 


=CLOSER Abs 73956 #120E4 - 3847 3855 

=CLOSEF Abs 73863 #12087 - 3754 2863 4180 
CLSCHH Abs 74179 #12103 - 3993 3986 
CHPLER Abs 70054 #111A6- 443 436 


CREADC Ext - 1633 
=CREATE Abs 71079 #115A7 - 1635 
CREATF Ext - 3677 
CREATP Ext - 1634 
CRETF+ Ext - 1974 


=CRFSB- Abs 71268 411664 - 1743 1983 3680 
CRTERR Abs 71258 #1165A - 1699 1639 

=CRIF Abs 71361 #11601 - 1879 
CRIF- Abs 71377 #116D1 - 1887 1696 
CRIFOS Abs 71396 H116E4 - 1894 1889 
CRIFIO Abs 71422 H116FE - 1908 1905 1907 
CRIF2O Abs 71438 #1170E - 1915 1912 
CRIF25 Abs 71446 #11716 - 1918 1916 
CRIF3O Abs 71464 #11728 - 1927 1897 
CRIF35 Abs 71478 #11736 - 1933 1920 
CRIF4O Abs 71483 #1173B - 1936 1895 
CRTIF45 Abs 71501 #1174D - 1942 1892 
CRIF46 Abs 71513 #11759 - 1946 1944 

=CRTIF50 Abs 71517 #1175D - 1952 1939 
CRIF70 Abs 71626 #1170R - 2008 1946 
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CRiFer Abs 71456 #11720 - 1922 199 1928 13934 2850 
CTE100 Abs 71103 #115BF - 1645 1637 

CTE110 Abs 71181 #1160D - 1673 1666 1669 

CTE120 Abs 71229 #1163D - 1690 1686 

CTEXO Abs 71262 #1165E - 1701 580 1697 3616 


Cslc5 Ext - 1963 3640 
DO=FIB Ext - 1010 104? 
DO=PCR Ext - 1678 
DI=AVE Ext - 3626 
DIFSTK Ext - 1086 


DATLIO Abs 73444 H11EE4 - 3559 3504 3513 
DATLN2 Abs 73317 HI1E65 - 3506 3499 . 
DATLNS Abs 73341 #11E7D - 3517 3507 
DATLN6 Abs 73354 H11E8A - 3525 3518 
DATLN8 Abs 73417 H11EC9 - 3549 3526 
DATLND Abs 73442 H11EE2 - 3558 3523 3641 3647 
DRTSTR Abs 72801 #11061 - 3152 
DELASN Abs 73987 #12103 - 3857 3848 3883 3886 
DELBF5 Abs 73898 #120AR - 3805 
DELBFS Abs 73931 #120CB - 3816 3801 3812 
=DELFIB Abs 73877 #12095 - 3796 3407 3854 3888 4002 
=DLFIBR Abs 74000 #12110 - 3882 3889 
DTLNER Abs 73337 #11E79 - 3514 3511 
=ENDFIL Abs 70263 #11277 - 664 698 
ERREX Abs 71097 #115B9 1643 665 1129 1683 


ERRTN Abs 72496 #11830 - 3034 328 
=EXPCHH Abs 72301 #11R6D - 2791 2866 
EXPEX- Ext - 387 595 
EXPR Ext ee 39 O87 
EXTCHK Abs 70957 #1152D - 1309 1665 


=FHNFND Abs 70759 #11467 - 1128 1132 1134 
FASC10 Abs 69876 H110F4 - 34 296 300 32 
FASC20 Abs 69887 H110FF - 331 349 
FASC25 Abs 69896 #11108 - 334 181 
FASC30 Abs 69898 #1110R - 335 333 
FASC40 Abs 69939 #11133 - 350 339 

=FASCFD Abs 69827 #11003 - 289 

=FASCH Abs 69884 #110FC - 330 295 

=FOCHH Abs 70828 #114AC - 1202 1126 2855 3702 3746 

=FDCHR- Abs 70835 #114B3 - 1205 
FOCH4O «Abs 70846 H114BE - 1210 1217 1229 
FOCH5O Abs 70879 #114DF - 1223 1228 
FOCH6O Abs 70896 #114FO - 1232 1219 1220 1275 
FOENT1 Abs 72557 #11B6D - 3060 Wt 
FOFHIO Abs 70917 #11505 - 1267 1272 1274 1277 
FOFH2O Abs 70920 #11508 - 1268 1265 

=FDFILH Abs 70904 #114F8 - 1262 3996 

=FFIBH Abs 74479 #122EF - 4269 1133 3754 
FIBHIO Abs 74498 #122 - 4275 4283 
FIBH2O Abs 74511 #129%0F - 4280 
FIBAIO Abs 70771 #11473 - 1131 1127 

=FIBAD- Abs 70776 #11478 - 1133 

=FIBADR Abs 70743 #11457 - 1123 583 
FIBO/F Abs 74037 #12135 - 3919 3916 

=FIBOFF Abs 74034 #12132 - 3917 
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=FIBON Abs 74027 #1212B - 3915 

FILEP! Ext - 291 

FILOPN Abs 72592 #11B90 - 373 67 W384 3110 

FINDF = Ext - 336 


FLHAIO «Abs 74220 H121EC - 4029 4037 

FLHAZO Abs 74235 #121FB - 4034 

=FLSHIO Abs 74247 #12207 - 4065 3758 3853 4033 
=FLUSHA Abs 74208 #121E0 - 4026 

FNDFBF Ext - 714 

=FNDNK- Abs 74472 #122E8 - 4224 

FNDNK2 Abs 74466 #122E2 - 4222 4225 


FNDAK3 Abs 74477 #122ED - 4226 4272 
=FNDNRK Abs 74449 #12201 - 4217 4154 
FPOLL Ext - 2875 
FSPECx Ext ~ 2016 


=FIBSCH Abs 69779 #11093 - 176 128 186 
FTSH2O Abs 69805 #110AD - 185 191 
FTYPOS Abs 69767 #11087 - 139 136 
FTYP1O Abs 69769 #11089 - 141 129 135 
FTYPE Ext - 127 294 

=FTYPER Abs 71093 #115B5 - 1641 1130 1688 

=FTYPF# Abs 69721 #11059 - 125 1378 3404 


=FTYPFD Abs 69715 #11053 123 3156 
GARG1O Abs 69993 #11169 394 = 403 
GARG3O Abs 70005 #11175 398 406 

=GETARG Abs 69950 #1113E 384 1647 


=GETBUF Abs 74311 #12247 - 4121 3391 


=GETCH- Abs 70702 #1142E 1087 
=GETCHH Abs 70695 #11427 1086 570 3607 
=GETREH# Abs 70086 #11106 583 571 


GFH13O Abs 72602 #11B9A - 3077 WH62 

GFH15O Abs 72617 #11BA9 - 383 393 

GFH170 Abs 72647 #11BC7 - 3095 387 389 

GFH180 Abs 72697 H11BF9 - 3114 3103 

CTBF25 Abs 74339 #12263 - 4129 4082 

GTBF30 Abs 74341 #12265 - 413% 4127 

=GTSVC# Abs 73827 #12063 - 3711 2854 2868 3614 3695 3701 
H41#10 Abs 70344 #112C8 - 699 733 

HP41R# Abs 70316 #112AC - 687 68 

=I/OAL+ Abs 72059 #1197B - 2549 

=I/OALL Abs 72061 #11970 - 2551 2845 4126 

=T/OCOL Abs 72057 #11979 - 2547 

=I/OCON Abs 71968 #11920 - 2404 4184 

I/OCRE Abs 72172 H119EC - 2606 2555 

=]/ODARL Abs 72257 #11R41 - 2771 3802 3815 3859 

=I1/OEX2 Abs 72207 HI11AOF - 2674 

=I/OEXP Abs 72209 #11A11 - 2675 2792 3102 

I/OFN+ Abs 71860 #118B4 - 2273 2551 2675 

=I/OFND Abs 71866 #118BA - 2276 2211 2269 2271 2337 2406 2773 


=I/ORES Abs 71935 #118FF - 2333 3937 3945 

I/ORT+ Abs 72164 #119E4 - 2601 2673 

I/ORTN Abs 72170 H119EAR - 2604 2679 

1/Obuf Abs 10 #O000R - 566 610 613 707 753 798 801 1016 
3384 3390 3451 3468 34384 

IDIV Ext - 2146 





Saturn Assenbler File Utility & Systen Buffer R Fri Dec 30, 1983 4:34 an 
Ver. 3.39/Rev. 2306 Synbol Table Page 90 


2727 2411 +2553 2680 
2111 2106 2115 


IDLNSV Abs 72234 #11AZA 
INITIO Abs 71713 #11821 
INIT2O Abs 71715 #11823 2114 «2097 

INIT30 Abs 71745 #11841 2132 

INIT70 Abs 71802 #1187A - 2163 2120 

INIT75 Abs 71808 #11880 - 2165 2123 

=INITNF Abs 71661 #117ED - 2087 2003 

IOBFEN Abs 193910 #2F576 - 14 2610 2801 2802 
IOCNIO Abs 72025 #11959 - 2425 2418 

IOCN20 Abs 72027 #1195B - 2426 2424 

=IOCNDO Abs 71973 #11925 - 2406 3822 

IODAL2 Abs 72271 HIIRAF - 2776 2772 

IODAL} Abs 73996 #1210C - 3859 4191 

IOEK24 Abs 72079 #1198F - 2562 2682 

IOEX25 Abs 72089 #11999 - 2566 2617 

IOEX40 Abs 72139 #119CB - 2591 2544 
=IOFNDO Abs 71873 #118C1 - 2279 2336 2771 
IOFND3 Abs 71890 #118D2 - 2283 2297 

IOFNDS Abs 71914 H118EA - 2292 2282 

IOFSCS Abs 71827 #11893 - 2211 2214 

=IOFSCR Abs 71822 #1188E - 2210 4121 

IONULL Abs 72055 #11977 - 2546 2410 

IOSH1O Abs 72031 H1195F - 2536 2558 


of vot 


IOSH20 Abs 72048 #11970 2543 2426 
LIFHOS Abs 70382 #1I2EE 716 «= 708 
LIFHO7 Abs 70406 #11306 725761 
LIFHIO Abs 70409 #11309 726 = 756 


LIFH30 Abs 70417 #11311 - 730 738 740 


LIFH40 Abs 70427 #1131B 735 = 728 
LIFH#5O Abs 70469 #11345 750-748 
LIFH60 Abs 70490 #1135A 758 = 754 


LIFIR# Abs 70352 #11200 - 706 648 


MRINEN Abs 193905 #2F571 - 14 2279 
MEMCL+ Ext - 2572 
MOVED2 Ext - 2586 
MOVEUR Ext - 2800 
NOved3 Ext - 3125 
MfErr Ext - 1643 
NEXTst Ext - 1701 
NOARG Abs 70021 #11185 - 404 385 
NOMEN = Ext - 3112 


NORODOM Abs 72387 H11AC3 - 2850 2846 2867 3393 
NXTFIL Abs 74124 #1218C€ - 3948 3930 3936 
ONEARG Abs 70015 H1117F - 402 389. 

=OPENF Abs 72454 #11B06 - 3017 

=QPENF* Abs 72465 #11B11 - 321 18 

=OPENF- Abs 72532 #11B54 - 3048 3031 3698 
OPN120 Abs 72393 #11AT9 - 2854 2842 

GPN150 Abs 72425 H11RES - 2866 2856 

OPN200 Abs 72439 H11AF? - 2871 2858 

=OPNCHH Abs 72361 H11AR9 - 2841 2849 2864 3696 
OPNERR Abs 72461 #11BOD - 3019 1699 

=QPNF+ Abs 72511 #11B3F - 3041 

OPNF+1 Abs 72769 #11041 - 3140 3041 3689 
OPNF+2 Abs 72850 #11092 - 3170 345 3693 
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OPNF +3 
OPNF 20 
OPNF 25 
OPNF 50 
OPNOF D 
OUTRNG 
POLL 

POLLFF 
POPH10 
POPH20 
POPH2S 
POPH27 
POP# 30 
POP1N 

=POPARG 
=POPCH# 
PTRAD2 
PUFB10 
PUFB20 
=PUGFIB 
RCLN10 
RCLMN20 
RCLN30 
RDATTY 
RDLNAS 
RES#10 
=RESTDO 
=RESTR# 
=REWIND 
RNNERR 
RTNSCj 
RUND 10 
Randon 
5-RO-0 
S-R1-0 
S-Rt-2 
SAVDO+ 
=SAVDO- 
SAVDO1 
=SAVEDO 
SCRTCH 
SFPT10 
SFPT15 
SFPT20 
SFPT40 
SKPBYT 
SNAP SV 
SRE# 30 
SRE#35 
SRER40 
SREH4 4 
SRE#PL 
SREC#A 
=STFPTR 
STATDO 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


26 Syribol Table 


72898 #11CC2 


72504 #11838: 


72524 #11B4C 
72532 #11854 
724% #11B2R 
70737 #11451 


71331 #116R3 - 


74363 #12281 
74415 #122AF 
74421 #12285 
74432 #12200 
74434 #12202 


70030 #1118E 
74343 #12267 


74142 #1219E 
74200 #12108 
74136 #12198 
74049 #12141 
74090 #1216R 
74121 #12189 


70082 #11102 
70301 #11290 
70060 #111AC 
70501 #11365 


71966 HI191E 
70542 #1138E 
9 #00009 
194673 #2F871 
194689 #2F831 
194699 #2F88B 
70807 #11497 
70813 #11490 
70823 #114A7 
70810 #11499A 
194817 #2F 901 
70596 #113C4 
70601 #113C9 
70603 #113CB 
70661 #11405 


70196 #11233 


# ¢ @ F § 1 


70222 H1124E - 


70226 #11252 
70238 #1125E 
70178 #11222 
70130 #111F2 
70564 #113R4 
194705 #2F891 


3185 
38 
3045 
3050 
33 
1097 
1771 
1765 
4166 
4182 
4184 
4187 
4188 

434 

434 
4154 
2803 
3979 


* 4000 


3977 
3922 
3937 
3946 
443 
735 
580 
679 
569 
792 
1671 
2345 
805 
567 
14 
14 
14 
1164 
1166 
1168 
1165 
14 
1018 
1020 
1022 
1047 
765 
1654 
633 
643 
645 
649 
626 
600 
1007 
14 


3029 
(22 
3042 
O46 
3039 

44) 


#26 
4159 
4177 
41%” 
4273 
4174 


392 


3991 
3997 


3951 
3932 
3942 


573 


3684 


2288 
800 
572 

1314 

1954 

1383 


1140 

602 
3191 
1033 


1017 
1040 


2874 
612 
628 
642 


646 
578 
675 
679 


3656 


3668 
1094 


3643 
4186 


397 


584 
1745 
2008 


3431 


614 
631 


710 
1166 
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596 


598 


3528 


805 
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STHTD1 Abs 194710 #2F896 - 14 603 792 806 1136 4065 
STMTRO Abs 194673 #2F871 - 14 1656 1765 3057 3140 3170 3185 3380 
3395 3464 3476 
STNTR1 Abs 194689 #2F881 - 14 1690 3664 


=STPASG Abs 72347 #11A9B - 2805 2791 2844 4182 41288 
SVFSP+ Abs 70953 #11529 - 1308 1645 321 3643 
SVFSPC Abs 70968 #11538 - 1314 1308 1879 
SVFT90 Abs 71061 #11595 - 1394 1379 1945 3043 

=SVFTYP Abs 71008 #11560 - 1378 1682 1881 
Snaprs Ext - 1673 3474 
TITH10 Abs 70253 #11260 - 659 
TITH20 Abs 70271 #1127F - 667 660 662 
TITH30 Abs 70291 #11293 - 673 701 
TYPER Abs 72518 411846 - 3043 3408 3691 
WIPOUT Ext - 2095 3131 
WRIF10 Abs 72991 #11D1F - 3395 3392 
WRIF20 Abs 73011 #11033 - 3401 3386 
WRIF25 Abs 73040 #11050 - 3410 3405 
WRIF30 Abs 73154 #11DC2 - 3448 3444 
WRIF40 Abs 73197 #11DED - 3464 3452 
WRTF41 Abs 73233 H11E11 - 3476 
WRIF42 Abs 73243 H11E1B - 3478 3469 
WRIF45 Abs 73272 #11E38 - 3490 3485 
WRIF5O Abs 73452 #11EEC - 3565 3486 
WRIFGO Abs 73472 #11FOO - 3572 3561 
WRIFER Abs 73036 #11D4C - 3408 3514 

sWRIFIB Abs 72942 HI1CEE - 3377 3136 

za-mult Abs 71654 #117E6 - 2017 669 1919 3556 
bASSGN Abs 2052 #00804 - 13. 2270 2808 
bFIB Abs 2051 #00803 - 13. 2268 3101 3821 
bSCRTC Abs 3584 HOOEOO - 13 2210 
bserr Abs 74305 #12241 - 4084 319 3669 3692 
bserr1 Abs 73691 #11FDB - 3669 3624 3641 3651 3678 


chkspe Ext - 3103 

csrcS Ext - 1978 3625 
eCHNLH Ext - 1128 
eDVCNF Ext - 4083 
eEOFIL Ext - 664 
eFOPEN Ext - 3074 
eFTYPE Ext - 1394 1641 
eFnFND Ext - 3033 

eMe—n Ext - 1922 
FBASIC Abs 57876 #0E214 - 13 2104 
=findf Abs 72498 #11B32 - 3036 1668 3038 3659 
fitdh Ext - 43? 


fpoll+ Abs 72441 #11AF9 - 2874 1042 1054 3471 4077 
=Fspecx Abs 71648 #117EO0 - 2016 1636 3017 3618 


1FIB Abs 63 HOOO3F - 13° 370 3082 «43108 3130 3819 3950 3990 
4035 4274 

1FLENh Abs 5 #00005 - 13 2089 

=snonern Abs 72691 #11BF3 - 3112 

oACCSb Abs 11 #0000B - 13. 1037 4072 

oCOPYb Abs 10 #OOOOR - 13. 606 608 1012 1014 3425 3429 

oCPOSb Abs 40 #00028 - 13 672 673 699 1015 1050 3578 3948 


3949 
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oDBEGb Abs 21 #00015 - 13 634 655 687 716 1014 1015 3064 
68 3465 3478 3808 3928 3948 

oDEVCb Abs 12 #OOO0C - 13. 608 3429 3434 

oDLENb Abs 46 #0002E - 13 688 699 717 3483 3490 3497 3501 
3503 3551 3555 3574 

oFBEGb Abs 13 #00000 - 13, 802 83 1048 1049 363 3064 3434 
3449 3807 3808 3927 3928 3982 3984 

oFBFH#b Abs 2 #00002 - 13. 795 802 3383 3398 3401 3798 3925 
3927 4068 4072 

oFIL#b Abs 0 #00000 - 13 63 3383 3398 

oFLAGh Abs 20 #00014 - 13 3455 

oFLENh Abs 32 #00020 - 13 1968 3163 3566 

oFSIZb Abs 57 #00039 - 13 3490 3497 

oFTYPh Abs 5 #00005 - 13. 3401 3421 3462 

oFTYPh Abs 16 #00010 - 13 3155 

oINPLh Abs 37 #00025 - 13. 3177 3675 

oPROTb Abs 9 #00009 - 13 3421 3425 3462 3544 

oRECHb Abs 32 #00020 - 13. 655 667 1049 1050 3478 3483 3501 
3503 3551 

oRECLb Abs 36 #00024 - 13. 667 672 687 688 716 717 68 
69 3555 3574 3576 

ORLENb Abs 52 #00034 - 13 673 369 370 3576 3578 3949 3950 

OSHLNb Abs 19 #00013 - 13. 803 3449 3465 

pCREAT Abs 9 #00009 - 13 1941 

pCRT=8 Abs 35 #00023 - 13 1891 

pDATLN Abs 42 #0002—A - 13° 3510 

pDIDST Abs 10 #HOOOOR - 13 3472 

pFASCH Abs 44 #0002C - 13. 299 

pFINDF Abs 23 #00017 - 13, #27 3650 

pFTYPE Abs 45 #0002D - 13) 431 

pROCBF Abs 24 #00018 - 13° 1055 

psREC# Abs 40 #00028 - 13. 627 

pURCBF Abs 26 HOOOTA - 13 1043 4078 


poll Abs = 71355 #116BB - 1771 130 298 626 1890 1940 3509 
ptrad2 Abs 72331 H11A8B - 2801 2580 
ptrad) Abs 72324 #1184 - 2800 2543 2785 


stuff Ext - 2165 
tk Ext - 3610 
tCOMNA Ext - 589 


tEOL Ext - 686 2107 
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Ver. 3.39/Rev. 2306 Statistics 

Input Paraneters 
Source file nane is SC&FIL::MS 
Listing file nane is SC/FIL: TI:ML::-1 
Object file nane is SCZFIL:TI:MS::-1 


111411 
012345678901 2345 
Initial flag settings are 
Errors 
None 
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1 k 

2 x J PPPP & PPPP o0000 L 

3 m JP P&& P PO OL 

4 x JP P &8& Pee Po) oi k 

5 A J PPPP & PPPP 0 OL 

6 x 2 Oe &&& P 0 ot 

? x J JP & & P 0 OL 

8 x JJJ_ P && & P 00000 LLLLL 
9 k 

10 TITLE POLL Routine <831212.1204> 


11 12318 ABS #1231B 


2 RDSYMB TIZEQU: : NS 
13 RDSYMB SBZRANM: : MS 
14 JO IES OUI OCI TOO ICO IC CTI TIT SITS SII IIA 
15 JOR OI TO IOI OI OI SII II TO II ITI TS IAT ATI S 
16 kk 
17 ** Nane:(S) POLL - Poll LEX Files with Process Nunber 
18 ** Nane:(S) POLLD+ - Poll LEX Files adjusting AVMEME in D(A) 
19 mk 
20 ** Category: POLL 
°4 ik 
22 *k Purpose: 
23 eis Poll All LEX Files for Special Processing 
24 ax Pass a Process #, and Paratieters to each LEX File 
25 tk 
26 ak POLLD+ entry used for routines needing to pass AVMENE 
27 ax in register D(A). This value is adjusted to 
28 Rk reflect the save area used by POLL. 
29 a Currently used by Parse and Deconpile. 
30 ak 
31 kk Entry: 
32 a POLLD+: Sets D(A) to what AVNENE will be during poll, 
33 a then falls through to POLL 
34 ae Used during Parse and Deconpile 
35 kk 
36 ae Exanple: 
37 aK 
38 oe GOSBYVL =AVS=D0 Set AVMENS @ DO 
33 a GOSBYL =POLL Issue Poll 
40 ae CON(2) =pDEVCp Device Parse Poll 
41 ae GOSBVL =D=AVHE Reset D(R) @ AVMENE 
42 ax GOC ErrRtn Error Return 
43 Kt *XN=0 
44 aS GOYES Handle Handled by LEX File 
45 ie ss Not handled 
46 xk 
4? ** POLL:  Process# @ Calling Routine Return Address 
48 aa Process# = CON(2) 
49 AR HEX Mode 
50 & 
51 xt Exanple: 
5 &k 
53 a GOSBVL =POLL Issue Poll 
54 +* CON(2) =pFILXQ File execute poll 
55 ae GOC ErrRtn Error Return 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
30 
91 
92 
93 
94 
95 
96 
37 
98 
39 
100 
104 
102 
103 
104 
105 
106 
107 
108 
109 
110 


a 
ak 
xk 
ak 
ax 
wh 
ak 
x 
xx 
ah 
xk 
ak 
ak 
xx 
ak 
xx 
xk 
xx 
xk 
xx 
ak 
xk 
ax 
ak 
xx 
an 
ak 
ax 
an 
xx 
ax 
xx 
ax 
xx 
xx 
ax 
xk 
xx 
xk 
xk 
ax 
xk 
xx 
xx 
xx 
xk 
ak 
ax 
xx 
xk 
ax 
ak 
ax 
xx 
ax 
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Exit: 


Page 2 


?xN=O0 
GOYES Handle Handled by LEX file 
wats Not handled 


Assunes: 

MTHSTK 1s active when called 
Any routine polling with active stack must update 
AVMENE to top of stack pointer 

Uses SNAPBF for tenporary storage of registers 

Uses SAVSTK to stack POLL inforration 

Moves neriory fron FORSTK --> AVMENE before Save 

Neriory check ufo LEEWAY for Poll Save Area 

Calling routine return address saved on GOSUB stack 
Will be updated if tenory noves during poll 


Entry to LEX File Poll Routine: 
Carry Clear to indicate Nornal Poll (see FPOLL) 
B(A) = Process# 
B(B) = Process # 
B(2-4) = 0 
A,D,00,D1 = Original Contents fron Calling Routine 
R registers, Status are untouched by POLL 
RO-R3, status cannot be destroyed while identifying 
Process#. 
3 levels of subroutine stack saved 
One more stack level available than routine issuing 
the Poll 


Carry set 

Insufficient Merory to Issue Poll OR 

Error return / "Sornething Funny" fron LEX File 

All registers & pointers preserved fron LEX File 
EXCEPT A,B 

A,C have the sane value on return 
The contents of € on return from LEX file are 
saved in A, then put back into C before return 
Allows LEX Files to return Error # in C(0-3) 


If not enough menory to save POLL info 
C(0-3) <-- eMEN 


A routine issuing POLL should check for CARRY 
If there was not enough neriory to issue the poll 
this exception should be noted/indicated. 


Carry clear 
Look @ XM to deternine if handled 
If xM=0 
Process has been handled by LEX File 
All regs & ptrs preserved fron LEX File 
EXCEPT B,C 
R is NOT destroyed 


If xM=1 
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111 
We 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
191 
152 
153 
154 
155 
156 
15? 
158 
159 
160 
161 
162 
163 
164 
165 


xk 
xx 
ak 
ak 
ak 
xx 
xk 
xx 
ax 
xk 
a 
ak 
ak 
xx 
ak 
xk 
xk 
ax 
a 
ak 
ak 
x 
xr 
xx 
ak 
xk 
ax 
xx 
ax 
ak 
xk 
ax 
ak 
ak 
ak 
xk 
ax 
ak 
ax 
xx 
ak 
xk 
xk 
an 
xk 
ax 
ax 
aX 
xk 
ak 
xk 
xk 
xk 
ax 
xk 
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Registers & pointers restored to Entry values 


EXCEPT B,C 
A is not destroyed 


A POLL responder must return with CARRY CLEAR 


if NOT error return or NOT handled 


A POLL responder nust return with CARRY SET 


if Error return 


C(O0-3) should hold the Error Nurber 
It will be saved in RA, then restored to C 


Take over handler 
The poll responder does not return to the POLL routine 
This 1s allowed by certain individual polls as 

indicated in their docunentation headers 

The handler MUST: 

GOSBVL =COLLAP to collapse POLL Save info 

GOSBVL =POPUPD to pop POLL issuer’s rtn address 


Calls: 


Uses: 


Exclusive: 
Inclusive: 


Stk lvls: 


Detail: 


lAp 
1Dp 
IDip 
=1DOp 
=1PQL#p 
=IRTN2p 
=IRTN3p 
=1BPOSp 


SALLOC, CRGJMP, FIRSAV, RESRTN, RESSVA, 


GLXPOL, SNAPSV, SNAPRS, MOVEU3, SNAPBF 


RSTK<R, PSHSTL, MEMCKL 


B,C,SNAPBF,P, SAVSTK, 2 levels in RSTKBF 
B,C,SNAPBF,P, SAVSTK, 2 levels in RSTKBF 
Preserves all levels 
POLL saves Calling Return Address on GOSUB 
stack so it will be updated if menory noves 
B(A) = Process# 
B(B) = Process# 
B(2-4) = 0 
Save Stack: 
Low Menory 
A 16 
D 16 
D1 5 
DO 5 
Poll Nuriber 5 
Rtn Level 2 5 
Rtn Level 3 5 
Relative Position in LEX Buffer 5 @ SAVSTK - 5 
High Neriory 
Length of Save Stack = 62 = 3E hex 


GOSUB Stach: 
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166 RX Sete ein rere eee 
16? xk GSBSTK -> [F| Rtn Addr 1 | 6 
168 aR |-------------- | 
169 RK 
170 ev Return Type = F indicate an Update Address 
171 
172 ak Original contents of A,D,D0,01 sent to each LEX File 
173 AK Carry clear, XM=0 on call to each LEX File 
174 xe R registers and status untouched 
175 ak 
176 ae 3 levels of subroutines saved 
177 ak Return Level 1 1s saved on GOSUB stack as update 
178 de address incase nenory roves during a Poll 
179 ax Return Level 2 and 3 are saved in SAVSTK area 
180 aK Information saved by POLL is stacked fron SRYSTK 
181 a toward LOW nenory. 
182 ex AVMEME is adjusted above saved infornation. 
183 ak AVMEME is readjusted when POLL returns 
184 nn This allows POLL to be called "recursively" 
185 
186 ak If "Error" Response fron LEX File (Carry Set) 
187 ak All registers & pointers left intact EXCEPT A,B 
188 ae A is used to save C during restore 
189 a A,C have the returned value of C when rtn to Caller 
190 aby C(0-3) <-- Error nunber 
191 xk 
192 ak If "normal" Response fron LEX File (XM=0) 
193 ak All registers & pointers left intact EXCEPT C,B 
194 ak C has the value of A on return 
195 ae 
196 ak If no LEX File respond (XN=1) 
197 aX Restore A,D,00,01 to entry values 
198 = RTNSXM to Calling Routine 
199 At C is NOT set to A 
200 xk 
201 aK If LEX File wishes Poll to continue to others 
202 kk Carry must be clear, XN=1 
203 ae If “non-original" contents of A,0,D0,D1 are 
204 ae to be sent to other LEX Files, the infornation 
205 . above SAVSTK can be altered by the LEX File 
206 
207 ** Algorithn: 
208 aR 
209 a Save A,D,00,D1,Rtn Lvl 1 temporary in SNAPBF (SNAPSV) 
210 a If not enough nenory to save info (SALLOC) 
211 ae Restore saved registers and pointers (SNAPRS ) 
212 ae Adjust return address past Process # 
213 ae C <--- Error Nuriber (eNEN) 
214 kk RTNSC 
215 ak Save Return Level 2 & 3 cus SALLOC uses 2 (0, D0) 
216 K Allocate SAVSTK area (SALLOC ) 
217 as Restore Rtn Lvl 3,2 to stack 
218 ak Nove temporary save info to SAVSTK (MOVEU3) 
219 a Read Return Level 1, read process# @ Rtn address 


220 ae Write process # over Return Level 1 location 
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221 ak Adjust Return Level 1 past Process #, saving in A(A) 
222 kk Save Rtn Levels 2,3 in SAVSTK 
223 kK Save 2 levels in RSTK Buffer (R<RSTK) 
224 ak Push Rtn Levell on GOSUB stack to be updated (PSHSTL) 
225 ae Make sure LEEWAY is NOT checked when pushing 
226 kK Restore Return Levels (RSTK<R) 
227 ak Initialize Relative Offset into LEX Buffer to 0 
228 kK 14: Get LEX File POLL address (GLXPOL) 
229 ak If LEX file POLL address (Carry Clear) 
230 aha Save updated Rel. Position into Buffer in SAVSTK 
231 kk Push LEX file jurip address on stack 
232 ax Restore registers, pointers, process# (RESSVA) 
233 aR Pop LEX file junp address 
234 aR Clear XM flag 
235 aK Gosub to LEX File Poll Routine (CRGINP ) 
236 aR Clear B(S) to save carry from LEX file return 
237 ae If Carry set (Error response fron LEX File) 

238 a Set A=C to preserve C during restore 

239 ak goto 2; 

240 aR If LEX File responded (XM=0) 

241 a Set B(S) = 1 

242 aK goto 2; 

243 aK else (No response) (XM=1) 

244 kk Restore Relative Position in LEX Buffer 

245 an goto 1; (Continue polling) 

246 ak 2: Save current A,D,D0,D1 in SNAPBF and 

247 ak Restore return lvls 2,3; Release SAVSTK (RESRIN) 
248 ak Restore current A,D,D0,01,Rtn Lvl 1 (SNAPRS) 
249 x Push Rtn Lvl 1 back on stack 

250 aK Set C=A 

251 ais Return indicating carry fron LEX File (B(S)) 

252 ak else 

253 ak (No nore LEX Files in LEXBUF) 

254 ak Restore A,0,00,01 fron SAYSTK (RESSVA) 
255 ak Save A->D1,Restore Rtn Lvls, Release SAVSTK (RESRTN) 
256 ak Restore A->D1,Rtn1 fron SNAPBF (SNAPRS) 
257 ak Push Rtn Lvl 1 back on stack 

258 an RTNSXM 

259 ak 

260 ** History: 

261 ak 

262 ae Date Progranner Modification 

263 $i lc Seo en’ ate adcen tela eee Sepa tes ates 
264 *k 07/13/82 IP Modified docunentation 

265 *k 10/14/82 IP No Leeway check when allocate Save Ar 
266 ek 10/14/82 = IP Rewrote to interface to SNAPBF 

267 ek 01/31/83 = IP After SALLOC, restore RSTK fron DO 
268 kk 02/05/83 JP Rewrote to save Rtn Addrs on GSBSTK 
269 Ak 02/05/83 IP Set XM=1 if Carry set/Error return 
270 kk 02/15/83 JP No Leeway Check when PSHSTK called 
271 ** 6903/01/83 JP Added 1POLra to D(A) in POLLD+ entry 
272 ~ *k 06/01/83 JP Added MENCHK of (1POLSY + IRTNADR) 
7 ae 

se JUGS OI ITI ISIS IIIS IEE IO EE IIR ITE 


275 FOO OI OUT TOIOI O TTT I I Ok 
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276 . 
277 * Not enough nenory to save info 
278 * Restore Registers, Pointers 


279 * Adjust Return address past Process# 
280 * Error return 
281 . 
282 1231B 7031 POLERR GOSUB Snaprs Restore registers, pointers 
283 1231F E6 C=C+1 A Nove past Process# 
284 12321 E6 C=C+1 A 
285 12323 06 RSTK=C 
286 12325 380 =RNEM LC(4) =eMEN Insufficient Menory 
00 
287 1232B 02 . RTNSC Set carry for Error Return 
288 
289 *® Set D(A) to new AVNENE 
29 : Subtract: Poll Save Area + Return Addr on GOSUB Stack 
291 
' 292 12320 D2 = =POLLD+ C=0 a 
293 1232F 20 P= 0 
294 12331 3144 LC(2)  (=1POLSV)+(1PO0Lra) 
295 12335 E3 D=0-C A 
296 x 
297 * Pop Return Level 1 
i 298 : Save A,D,D0,01,Rtn Level 1 in SNAPBF 
i 299 
300 12337 07 «= =POLL = C=RSTK Rtn Lvl 1 
301 12339 8F0O GOSBVL =SNAPSV Save A,D,D0,D1,Rtn Lvl 1 
000 
302 % 
303 * Check neriory ufo LEEWAY 
304 * Check for POLL save AND Calling return address on GOSUB stack 
305 : Avoids eMEM problem later mith PSHSTL 
6 
307 12340 20 P= 0 
38 12342 D2 C=0 A 
309 12344 3144 L€(2) (LPOLSV)+6 POLL save area + Rtn Addr on stk 
310 12348 21 P= 1 No LEEWAY check 
311 1234AR 8FOO GOSBVL =NENCKL Check nenory 
000 
312 12351 49C GOC POLERR Insufficient nenory 
313 : 
314 * P=0 fron MENCKL 
315 * Save Rtn Lvl 2 & 3 because SALLOC uses 2 
316 * Allocate Save Area 
317 * On return fron SALLOC 
318 * DO holds Return Level 3 
319 * No need to check carry fron SALLOC due to prior MENCKL call 
320 ® Restore Return Level 3,2 
321 & 
322 12354 07 C=RSTK Rtn Lvl 2 
323 12356 D? D=C A Save Rtn Lvl 2 
324 12358 67 C=RSTK Rtn Lvl 3 
325 1235A 134 DO=C DO preserved during SALLOC 
326 12350 D2 C=0 A P=0 fron MENCKL 
327 1235F 313 LC(2) 1POLSY Length of POLL Save Information 
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328 
329 


330 
331 
332 
333 
334 
335 
336 
Sof 
338 
339 
340 
341 
342 


343 
344 
345 


346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
36? 
368 
369 
370 
3?1 
aie 
373 
374 
375 
376 
377 
378 
379 


12363 21 
12365 8FOO 
000 
1236C 136 
1236F 06 
12371 DB 
12373 06 


12375 1BOF 
7F2 
1237C D2 
1237E 31F2 
12382 8£00 
00 


12388 104 
1238B 143 
1238E 1H” 
12391 D2 
12393 14€ 
12396 145 
12399 £4 
12398 £4 


12390 174 
123A0 0? 
123A2 145 
123A5 174 
123A8 07 
123AAR 145 
123AD 7FARO 


Fe ee Oe a ee Oe OF 


Oe ee Oe Oe OO 
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P= 1 No Leeway Check for Save allocation 
GOSBYL =SRLLOC Meriory 1s sufficient 
CDOEX Return Level 3 
RSTK=C Restore Rtn Lvl 3 
C=D A Return Level 2 
RSTK=C Restore Rtn Lvl 2 


Move tenp save infor (SNAPBF) to SAVSTK 
On exit from SALLOC: 
D1 @ Start of Destination = (SAVSTK) - LPOLSV 
Set: 
DO) 8=— @:« Start of Source SNAPBF 
C(A) = Block Length 47 nibs (SNAPBF length) 
DO=(5) =SNAPBF Start of Source 
C=0 A 
LCHEX 2F Length of SNAPBF (47 nibs) 
GOSUBL =Moveu3 Move A,D,00,01,Rtn1 to SAVSTK 


On exit fron NOVEU3: 
D1 @ End of Destination = Past Rtni address 
Read Poll# @ Return Level 1 
Write Poll# into Save Area, on top of Rtn1 address 
Adjust Rtn Addr 1 past Poll#, save in A 
Di=Di- LRTNip Position @ Rtn addr 1 
A=DAT1 A Read Rtn addr 1 
DO=A 
C=0 A 
C=DATO B Read Poll # @ Rtn addr 1 
DAT1=C A Write Poll# over Rtn1 address 
A=A+1t A 
A=A+1 A Adjust Rtn addr 1 past Poll# 


Save Rtn Level 2,3 in SAVSTK area 
Save 2 stack levels before PSHUPD call 
PSHUPD uses 3, POLL needs to save 4 (2 already saved) 
A(R) = Address to Push 
Push Rtn Addr 1 on GOSUB stack to be updated 
Restore 2 stack levels 
D1=D1+ 1LPOLHp Nove past Poll# 
C=RSTK 
DAT1=C A Save Rtn Level 2 
01=01+ IRTN2p Move past Rtn Level 2 
C=RSTK 
DAT1=C A Save Rtn Level 3 
GOSUB R<rstk Save 2 stack levels 


Duplicate PSHUPD code so LEEWAY 1s NOT checked 
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380 x 
381 12381 AC3 D=0 S Return type nibble 
382 123B4 A4F D=D-1 § Set=Update address 
383 123B7 D6 C=A A Save Return address 
384 123B9 06 RSTK=C on Hardware stack 
385 123BB 02 C=0 A 
386 123BD 306 LCHEX 6 # nibbles to open up 
387 12300 DS B=C A Save in B(A) 
388 123C2 22 P= 2 # pointers to adjust 
389 123C4 1B3A DO=(5) =GSBSTK Top of GOSUB stack 
5F2 
39% 123C€B 80FO CPEX 0 Set €(0)=# ptrs to adjust 
391 123CF 21 P= 1 Set NO LEEWAY check 
392 12301 8FOO GOSBVL =PSHSTL Push Rtn Lvl 1 with NO Leenay 
000 
393 12308 07 C=RSTK Restore Return address 
394 123DA ACB C=D S Restore Return type 
395 12300 812 CSLC Nove Return type to C(0) 
396 123€0 16D5 DAT1=C 6 Write Return type& addr to stack 
397 123E4 7180 GOSUB Rstk<«r Restore 2 stack levels 
398 x 
399 * Initialize Relative Position in LEX Buffer 
400 x 
401 123E8 D1 B=0 A Rel. Position in LEX Buffer 
402 x 
403 * Get LEX File POLL address 
404 & 
405 123EA 7480 POLLIO GOSUB GLXPOL Get LEX File POLL address 
406 123EE 4C4 GOC POLL40 No nore LEX Files 
407 x 
408 * Save Relative Position in LEX Buffer 
409 x 
410 123F1 7301 GOSUB FIRSAV Position to First iten in Save Area 
411 123F5 145 DATI=C A Relative Positon in LEX Buffer 
412 x 
413 * Push LEX File Junp (Poll) address on stack 
414 * Restore Poll3, A,D,00,D1 
415 x 
416 * NOTE: Making RESSVA a subroutine adds +12 cycles to this loop 
417 x 
418 x 
419 123F8 09 C=8 A LEX File junp address 
420 123FR 06 RSTK=C Save on stack 
421 123FC 7650 GOSUB RESSVA Restore Poll#,A,D,D0,D1 
422 12400 07 C=RSTK LEX File junp address 
423 x 
424 * Carry Clear fron SNAPR* 
425 * Clear XM flag 
426 * Gosub to ROM Poll Routine 
42? x 
428 12402 821 XN=0 Clear XM flag 
429 12405 8F00 GOSBVL =CRGJNP Gosub to Poll Routine 
00 
43 x 


431 * Clear B(S) to save carry 
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432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
45? 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
47? 
478 
479 
480 
481 
482 
483 
484 
485 


1240C 
1240F 


12412 
12415 
12418 


1241A 
1241E 
12421 
12423 


12426 
12429 
12420 
12431 
12433 
12436 
12439 


1243B 
1243F 
12443 
12447 
1244B 
12440 
1244F 


ACI 
461 


BAS 
831 


7ADO 
143 
D8 
56C 


AFA 
7070 
7E10 
06 

AF 6 
Aad 
01 


7980 
7310 
7360 
7400 
06 


8DO0 


Oe Oe 


ee ee 


ee OF me 


ee OF OH HO 


ee te te ee 
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If carry set 
Error Response fron ROM 
Set A=C€ to preserve C 
B=0 S Carry indicator 
GOC POLL20 Error response 
Increnent B(S) to indicate Carry Clear return 
ROM responded "nornally" 
B=B+1 S$ Indicate Carry Clear 
?XMN=0 Normal response fron LEX file ? 
GOYES POLL30 
Continue Poll 
Restore Relative Position in LEX Buffer 
go Read LEX Buffer 
GOSUB  FIRSAV Position to first item in Save Area 
A=DAT1 A Relative Position in LEX Buffer 
B=A A 
GONC POLLIO go Read LEX Buffer for next LEX Fil 


Response fron LEX File 


Save C in A if Error response fron Responder 

Save current @,D,0D0,D1 in SNAPBF 

Restore Rtn Lvl 3, Rtn Lvl 2 and write Rtn Lvl 1 to SNAPBF 
Release POLL save area 

Restore current A,0,D0,D1 

Nove Carry setting to B(S) 

Set C=A 

Return indicating carry fron LEX File 


POLL20 A=C W Save C in A aif Error response 
POLL3O GOSUB RESRIN Restore Rtn levels, Release save ar 
GOSUB Snaprs Restore current A,D,DO0,D1 
RSTK=C Rtn address of caller (Rtn Lvl 1) 
C=A W Set C=R on return 
B=B-1 $ Saved carry 
RTN Return indicating carry 


NO wore LEX Files 
Restore A,0,D0,D1 fron SAVE stack 
Save A,0,00,01,Rtn1 in SNAPBF, Restore Rtn2,3, Release Save 
Restore A,D,00,D1,Rtn1 fron SNAPBF 
Return to Calling Routine wath xM=1 
POLL4O GOSUB FIRSAV Position to first item in Save 
GOSUB RESSVR Restore R,0,00,01 on entry 
GOSUB RESRIN Restore Return Address, Release sav 
GOSUB Snaprs Restore A,0,00,01,Rtn1 fron SNAPBF 
RSTK=C Rtn address of caller 
=RTNSXM RTNSXM Set XM an Return 


=Snaprs GOVLNG =SNAPRS 


Restore fron SNAPBF 


Saturn Assenbler POLL Routine <831212.1204> Fri Dec 30, 1983 2:56 an 


Ver. 3.39/Rev. 2306 Page 10 
486 s 
487 * Restore A,D,D0,D1,Process# fron SAVSTK - 20 
488 * 01 @ SAVSTK - 5 
489 x 
490 12456 1CE RESSVA D01=D1- (1RTN3p)+(1RTN2p)+(1POLHp) 
431 12459 8D00 =snapr* GOVLNG =SNAPR* Restore 
000 
492 x 
493 * Save and Restore 2 stack levels in RSTKBF 
494 x 
495 12460 21 Rerstk P= 1 Save 2 Stack levels 
496 12462 8D00 =R<Rstk GOVLNG =R<RSTK 
000 
497 12469 21 Rstk<«r P= 1 Restore 2 Stack levels 


498 1246B 8D00 =Rstk<R GOVLNG =RSTK<R 
000 
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499 STITLE Get LEX File Poll Address 
500 FOI III IOI I IOI IIIT IK 
504 JOIST IOC ISO ISO ISI IIR 
502 kk 
503 xk Narie: GLXPOL - Get LEX File Poll Address 
504 xs 
505 ** Category: LOCAL 
506 aK 
507 ** Purpose: 
508 ax Get LEX File Poll Address 
509 xx 
510 ** Entry: 
511 a B(A) = Relative Offset into LEX Buffer 
512 xx 
513 x Exit: 
514 am Carry Clear 
515 xx C(A) = Updated Relative Offset into LEX Buffer 
516 ax B(A) = LEX File POLL address 
517 x 
518 as Carry set 
519 a No rore LEX Files in Buffer 
520 x (LEX ID = 0 --> @ Mainfrane LEX file) 
521 Kx 
522 *k Calls: LXFND 
523 xk 
524 AK Uses.....05 
525 kk Exclusive: ACA),B(R),C(A), P=0, DO, D1 
526 kk Inclusive: A(A),B(A),C(A),P=0,00,01 
527 ar 
528 AK Stl lvls: 1 
529 kk 
530 ** Detail: 
531 Sa Find LEX Buffer (LXFND) 
532 ak Add relative offset to buffer start 
533 aR Read LEX ID 
534 a If LEX ID=0 
535 xk RTNYES 
536 ak else 
537 x Read LEX File’s Main Table Address 
538 kk Read Relative POLL address 
539 a Compute Absolute POLL address 
540 a Update Relative position in Buffer 
541 ak RTNCC 
54°? xr 
543 **k History: 
544 xk 
i 545 xs Date Prograriner Modification 
546 PE atauiel “abt eareted cutie dudiianesudaheetec ee watmaeae de 
54? Kk 07/13/82 IP Modified docurientation 
548 a% 09/18/82 9 IP Renoved "=" sign fron nane 
549 xs 
550 FIO ROIS OO I OO II ORGS IOI OI Oe 
551 JOGO ISIS SII EIS IGLOS ISIS IGS OIG IOK 
552 12472 8FOO GLXPOL GOSBVL =LXFND Find table 


000 
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553 
554 
555 
556 
$57 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
$77 
578 
579 
5380 
581 
582 
$83 
584 


12479 137 
1247C C9 
1247E 135 


12481 14F 
12484 96R 
12487 00 


12489 175 
1248C 147 
1248F 134 
12492 184 
12495 146 
12498 132 
1249B C2 


1249D DD 
1249F 136 
124A2 16R 
124A5 136 
124A8 03 


ee Se 


* ee Se ee 
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POLL Routine <831212.1204> 
Get LEX File Poll Address 


Fri Dec 3, 1983 


C <-- LEX Buffer start 
Current Position in Buffer 


CDIEX 
C=C+B A 
D1=C 


Read LEX ID 
If Main Table ID 
Return Carry 


(00) 


Read LEX ID 
Main Table ID ? 


C=DAT1 B 
C20 «iB 
RTNYES 


Skip LEX ID and Token range 

Read LEX File’s MAIN Table Address 
Read Relative POLL Address 

Conpute Absolute POLL Address 


D1=01+ (LLKXID)+(1LXTKR) Skip LEX ID and Token Range 
C=DAT1 A LEX Id’s MAIN Table 

bO=C 

DO=D0- 5 Ptr to Relative POLL Addr 
C=DARTO A Relative POLL Address 

RDOEX Position in LEX File 

C=C+A A Rbsolute POLL Address 


Update and Save Relative Position in LEX Buffer 


CBEX A B <- POLL Addr, C <- Offset 

CDOEX 

DO=D0+ LLXENT Offset = Offset + Length of entry 
CDOEX 

RTNCC 
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585 STITLE Restore Sub Levels, Adjust AVMENE 
586 JOO I TO CIO CO TIT 
587 JO II TIO IIIT IS IIIT II III ITI III TIT TI IIIT TT IITA ITT A 
588 aK 
589 a Narie: RESRTIN - Restore Sub Lvls 2,3, release save area 
590 
591 ** Category: LOCAL 
592 aK 
§93 ** Purpose: 
594 ak Save Current A,0,00,D1 in SNAPBF 
595 ak Restore subroutine levels, preserving calling return addr 
596 RK Write Rtn Lvl 1 to SNAPBF 
597 aK Release Poll Save area 
598 aK 
599 ek Entry: 
600 ak 
601 ek Exit: 
602 ae Through SRLEAS 
603 aK 2 subroutine levels restored 
604 aK Rtn level 1 popped fron GOSUB stack and written to SAVSTK 
605 ak Save area released, AVMNENE updated 
606 RK Returns CC 
607 ak 
608 *k Calls: FIRSAV, SRLEAS, SNAPSV,R<RSTK,RSTK<R , POPUPD 
609 ak 
610 Rk Uses....... 
611 tk A,B(A),C(A), 00,01 
612 kK 
613 **E Stk lvls: 0 
614 RK 
615 xk Detal: 
616 ak 
617 ak SRLEAS uses A(A),B(A),C(A), DO, D1 
618 ak 
619 aK POLL Saved Information: 
620 a Low Menory 
621 ** Ap AR 16 @ SAVSTK-62 
622 xk 1Dp 0 16 | 
623 ** 1D1p Dt 5 | 
624 xk 1D0p DO 5 | 
625 aX POLED Poll# 5 v 
626 : ** IRTN2p Return Level 2 5 
627 ** LRTIN3p Return Level 3 5 
628 ** 1BPOSp Relative Positon in LEX Buffer 5 @ SAVSTK-5 
629 an High Nerory 
630 aK GOSUB Stack: 
631 KR © °C eek So rere oe, 
632 kK GSBSTK --> [FIRtn Addr 1 | 6 
633 RK, OS SF * te ee eee ee 
634 xt 
635 ** Algorithn: 
636 ak 
63? a Pop calling return address off stack 
638 ak Save A,D,D0,01,Calling Rtn address in SNAPBF (SNAPSV) 


639 ak Restore Rtn Level 2,3 fron SAVSTK 
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640 ax Save 2 subroutine levels in RSTKBF (R<RSTK) 
641 kn Pop Rtn Lvl 1 fron GOUSB stack (POPUPD) 
642 an Restore 2 subroutine levels fron RSTKBF (RSTK<R) 
643 ax Read Calling Return address fron SNAPBF +42 
644 ak Write Level 1 Return Address to SNAPBF 
645 x Restore calling return address to stack 
646 kk Release Save Area, adjust AVMENE (SRLEAS) 
647 kk 
648 ** History: 

649 tn 
650 xe Date Progranner Modification 
i 651 RR nee n nee enn e enn ene wenn nee eo eee o-oo ee == 
652 &k 10/14/82 JP Rewrote to interface to SNAPBF 
653 tk 02/05/83 JP Rewrote to interface to GOSUB stack 
654 kk 09/18/83 JP Renoved "=" fron routine nane 
ax 

oe JOIST ISCO IOI TTI 
657 JO OIG IO COICO TOI TTT 
658 124AAR 07 RESRTN C=RSTK Pop calling address off stack 
659 124AC 8FOO GOSBVL =SNAPSY¥ Save A,D,D1,D0 in SNAPBF 

000 
660 x 
661 * Restore Return Levels 2,3 fron SAVSTK 
662 a 
663 12483 7140 GOSUB FIRSAV Pos to ist iten of saved info 
664 12487 1C4 D1=D1- (1RTN3p) Move to Rtn Level 3 
665 124BA 147 C=DAT1 A 
666 124BD 06 RSTK=C Restore Rtn Level 3 
667 124BF 14 D1i=D1- (1RTN2p) Move to Rtn Level 2 
668 124C2 147 C=DAT1 A 
669 124C5 06 ; RSTK=C Restore Rtn Level 2 
670 
671 * Save 2 stack levels before POPUPD call 
672 * Pop Rtn Level 1 fron GOSUB stack 
673 * Restore 2 stack levels 
674 x 
675 124C?7 759F GOSUB R<rstk Save 2 stack levels 
676 124CB 8FOO GOSBVL =POPUPD Pop GOSUB stack 

600 
677 12402 739F GOSUB Rstk<r Restore 2 stack levels 
678 & 
679 * Read calling return address fron this RESRIN call 
680 * Set D1 @ Return address field (SNAPBF + 42 ) 
681 * Move Return Addr 1 to C(A) 
682 * Write Rtn Addr 1 to SNAPBF area 
683 : Push calling return address on stack 
684 
685 124D6 1FA1 D1=(5) (=SNAPBF) +42 

8F2 
686 124DD 143 A=DAT1 A Calling routine address 
687 12460 DB C=D A Return Rddr 1 
688 124E2 DE ACEX A A <-- Rtn Addr 1; C <-- Calling Rtn 
689 12464 141 DAT1=A A Write Rtn addr 1 to SNAPBF 
6% 124E7 06 RSTK=C Push Calling routine address on sta 


691 x 
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692 * Release POLL Save Area, Update AVMENE 
693 % 
694 124E9 20 P= 0 
695 124EB D2 C=0 A 
696 124ED 31£3 LC(2) 1POLSV Length of POLL Save Area 


697 124F1 8D00 
000 


GOVLNG =SRLEAS 
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698 STITLE BEGSAV - Begianing of Saved Inforriation 
699 JIU IIDC GIST IGE IT 
70 JOU IS III III IIIT ITO OR TOIT RT tk 
701 as 
202 ** Nane: FIRSAV - Position to First Iten in Save Area 
703 a 
704 ** Category: LOCAL 
705 aK 
706 ** Purpose: 
70? xk Position to First Iter of Saved POLL Infornation 
708 aK 
709 *k Entry: 
710 a 
711 KK Exit: 
712 am D1 @ Start of Save info - 1BPOSp 
713 ak @ Start of Relative offset into LEX Buffer Entry 
714 aR 
715 Kk Calls: None 
716 a 
717 RR Uses....... 
718 *k Exclusive: A,D1 
719 ** Inclusive: R,D1 
720 ane 
721 kk Stk lvls: 0 
722 aa 
723 ** Detail: 
724 - Saved infornation for POLL: Lou Nenory 
725 x 
726 xk 1A A 16 @ SAVSTK-62 
72? kk 1D 0 16 
728 &* 1DIp D1 5 | 
729 **k 1D0p DO 5 | 
730 xx 1POLHp Poll# 5 Vv 
731 ** TRIN2p Return Level 2 5 
732 *x TRIN3p Return Level 3 5 
733 ** 1BPOSp Relative Positon in LEX Buffer 5 @ SAVSTK 
734 on High Menory 
735 aK 
736 ** History: 
737 KK 
738 xk Date Progranner Modification 
739 PRs Beet eS eee eine nok Die ea eee ec as 
740 *k 07/13/82 IP Modified docunentation 
744 kk 10/14/82 JP Interface to SNAPBF, new save order 
742 Kk 02/05/83 JP Modified doc for new save infor 
743 kk 09/18/83 JP Renoved "=" fron routine nane 
kk 
ie JOO ISIC IDOO OOOO UIIIS OO OIG COO CC ET 
746 JIG IO IOU ISIC IO CI 


747 124F8 1FE9 FIRSAV D1=(5) =SAVSTK 


5F2 
748 124FF 143 
749 12502 134 
750 12505 1C4 
751 12508 01 


A=DAT1 A 

D1=A Start of saved infornation 
D1=D1- 1BPOSp Position to start of first entry 
RIN 
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752 STITLE Fast POLL 
753 JIU IU TOS ITI OCI III III SIO III II III 
754 JIS III III OI II IOI EI OTT IIT TI TT 
755 a 
756 - Nane:(S} FPOLL - Fast Poll all LEX files with Process # 
75? x 
758 ** Category: POLL 
759 ax 
760 ** Purpose: 
761 xR Poll LEX Files FAST, nothing is saved 
762 wx 
763 ** Entry: 
764 ak Process# @ Calling Routine Return Address 
765 a Process# = CON(2) 
766 ak 
767 a Exanple: 
768 ak 
769 a GOSBVL =FPOLL 
770 aK CON(2) =prNLP Main Loop Fast Poll 
771 ae 
vie ke At entry to LEX File POLL routine: 
773 ae Carry Set to indicate FAST Poll 
774 xm B(A) = Process# 
775 ak B(B) = Process# 
776 a B(2-4) = 0 
a? ak D(A) = Relative Position in LEX Buffer 
778 eH Must be preserved ALWAYS I111! 
779 a If the Poll Handler is responding 
780 am and handling the poll such that 
781 aK the Poll will stop: D nay be used. 
782 ak RO,R1,R2,R3 intact 
783 xA A LEX File nay not destroy RO-R3 while deternining uhe 
784 am to respond. Individual POLL routines rust be checke 
785 an register usage when responding. 
786 a 
28? ax Stack levels are 2 deeper than caller 
788 aR 
783 RA ESTs 
790 xe P=0 
794 ax Assuming no LEX File has set P 
792 ae XN=0 
793 ae Process has been handled by LEX File 
794 
795 a xM=1 
796 ¥X Na response to Poll 
797? a 
798 po If a LEX File wants the Poll to continue to others 
799 aR XM=1 on return 
800 as Registers needed to be passed to other LEX Files 
801 * Hust be preserved Hlitl 
802 kx 
803 . Typically a fast poll nust continue to ALL LEX files 
ay 
205 “ 


806 *k Calls: GLXPOL 
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807 xt 

808 kk Uses....... 

809 kk Exclusive: A(A),B(A),C(A),0(A), 00,01 

810 . Inclusive: A(A),B(A),CCA),DCA), DO, D1 

811 

812 ** D(A) cannot be destroyed by any LEX File 

813 xt RO-R3, status must renain intact while deternining if 

814 aR reponding to poll. 

815 ax 

816 KK Stk lvls: 2 

817 ak 

818 ** Algorithn: 

819 ak 

820 a Initialize Relative Offset to LEX Buffer to 0 

821 xk 1: Get LEX File Poll Address (GLXPOL) 

822 xk If LEX File Poll Address (Carry clear) 

823 a Save Relative position in LEX Buffer (D) 

824 aR Retrieve Process # 

825 ak Clear XM 

826 an Gosub to LEX File’s Poll routine w/ Carry set 

827 a If LEX file did not respond (xM=1) 

828 ah Restore relative position in LEX buffer 

829 x goto 1; 

830 xe else 

831 aK Adjust Return Address past Process# 

832 at RIN 

833 aR else ‘ 

834 a Adjust Return Address past Process# 

835 ah RTNSXN 

836 aR 

837 ** History: 

838 ak 

839 aS Date Progranner Modification 

840 Res. eedewse. . “aaaciea, WeeWadeousetoea sas. eee e ae 

841 ek 07/13/82 JP Modified docurnentation 

Re xk 06/09/82 JP Packed out CRGJMNP/set carry: FPOL40 
ak 

a JOO OI IIIS CICC ICUS OO ITOK 

845 IOI IID II IGG IO ICO IOC OC I TOOK 

846 1250AR Di = =FPOLL 8=0 A Rel. Position in LEX Buffer 

847 1250C 726F FPOL1O GOSUB GLXPOL Get LEX Poll Address 

848 12510 452 GOC FPOL20 No nore LEX Files 

849 12513 07 D=C A Save Rel. Position in Buffer 

850 x 

851 * Retrieve Process # 

852 x 

853 12515 07 C=RSTK Calling routine address 

854 12517 06 RSTK=C 

855 12519 135 d1=C Process# @ Return Address 

856 1251C 02 C=0 A 

857 1251E 14F C=DAT1 B Read Process# 

858 12521 DD BCEX A B <-- Process#, C <-- Poll Address 

859 x 

860 * Clear XM flag 


861 


* Gosub to LEX File Poll handler 
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862 
863 
864 
865 
866 
867 
868 
863 
870 
871 
872 
873 
874 
875 
376 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
894 
892 
833 
894 
895 
896 
897 
898 
899 
%O 
#1 
2 


12523 821 
12526 7€10 


1252R 831 
1252D 31 


1252F DB 
12531 D5 
12533 58D 


12536 0? 
12538 £6 
1253A E6 
1253C 06 
1253E 00 


12540 07 
12542 E6 
12544 E6 


12546 06 
12548 02 
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* Set carry in the process 
x 


XN=0 
GOSUB FPOL40 Gosub to Poll handler u/ Carry set 
x 
* If LEX File responded 
x Adjust Return address past Process# & Return 
x 
?XN=0 Response ? 
GOYES FPOLX® 
x 
* Retrieve Relative Position in LEX Buffer 
* go POLL next LEX File 
x 
C=D A Relative Pos in LEX Buffer 
B=C R Rel Position in LEX File 
GONC FPOL1O B.E.T. 


x 


* No nore LEX Files 

x Adjust Return address past Process # 

% RTNSXNM 

x 

FPOL20 C=RSTK Return Address @ Process# 

C=C+1 A 
C=C+1 A Position past Process# 
RSTK=C . 
RTNSKM 

x 

* LEX File Responed 

: Adjust Return address past Process # 


FPOL30 C=RSTK Return Address @ Process# 
C=C+1 A 
C=C+1 A 


Subroutine for junp to Poll handler 
Push Poll handler address on stack 
Set carry to indicate Fast Poll 


% 1 % ww 


FPOL40 RSTK=C 
RTNSC 
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CRGIMP Ext - 429 

FIRSAV Abs 75000 #124F8 - 747 410 450 479 663 
FPOL10 Abs 75020 #1250C - 847 878 

FPOL2O0 Abs 75062 #12536 - 884 848 

FPOL30 Abs 75072 #12540 - 893 871 

FPOL40 Abs 75078 #12546 - %1 865 

=FPOLL Abs 75018 #1250R - 846 

GLXPOL Abs 74866 #12472 - 552 405 847 


GSBSTK Abs 193955 #2F5A3 - 13-389 
LXFND = Ext - §82 
MEMCKL Ext - 311 
Moveu3 Ext - 345 
POLERR Abs 74523 412318 - 282 312 
=POLL Abs 74551 #12337 - 3X0 


POLL10 Abs 74730 #123EA - 405 453 
POLL20 Abs 74790 #12426 - 465 437 
POLL30 Abs 74793 #12429 - 466 444 
POLLA0 Abs 74811 #1243B - 479 406 
=POLLD+ Abs 74541 #1232D - 292 


POPUPD Ext - 676 
PSHSTL Ext - “992 
R<RSTK Ext - 496 
sR<Rstk Abs 74850 #12462 - 496 
R<rstk Abs 74848 #12460 495 376 675 
RESRTN Abs 74922 #124AA 658 466 481 
RESSVA Abs 74838 #12456 4% 421 480 


=RNEM Abs 74533 #12325 - 286 


RSTK<R Ext 498 
=RTNSXM Abs 74829 #1244) 484 
=Rsth<R Abs 74859 #12468 498 


Rstk<r Abs 74857 #12469 - 497 397 677 


SALLOC Ext - 329 

SAVSTK Abs 193950 H2F59E - 13. 747 

SNAPBF Abs 194544 #2F7FO - 13 342 «685 
SNAPR* Ext - 491 

SNAPRS Ext - 485 

SNAPSV Ext - 31 659 

SRLEAS Ext - 697 

=Snaprs Abs 74831 #1244F - 485 282 467 482 
enen Ext - 286 

1BPO0Sp Abs 5 #00005 - 12 750 

1LXENT Abs 11 #OOOOB - 12 582 

1LXID = Abs 2 #00002 - 12 570 

1LXTKR Abs 4 #00004 - 12 570 

1POLHp Abs 5 #00005 - 12 370 490 
IPOLSV Abs 62 HOOO3E - 12 294 39 327 696 
1POLra Abs 6 #00006 - 12 294 

IRTNip Abs § #00005 - 12 354 

1RTN2p Abs 5 #00005 - 12 373 49 667 
LRIN3p Abs 5 #00005 - 12 4% 664 


=snapr* Abs 74841 #12459 - 491 
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Input Paraneters 
Source file nane is JP&POL::MS 
Listing file nane is JP/POL: TI:ML::-1 
Object file nane is JPXPOL: TI:MS::-1 


111111 
0123456 789012345 
Initial flag settings are 
Errors 
None 
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12 STITLE Low-level routines 
13 SOIT TO IO IO ISU III OT IK 


*x Start of clock systen low-level tinekeeping routines. 
JIS I II III IIIT TS IIS SII STO II TIO IIT IIIA ISI IIT A II 


x 
SKI IIIA IIT ITI III III AIS SII ISIS ASIII III IIS ISIS I III III III IAS IIIA 
** The following storage is used in the internal clock 

** systen: 

i 


an narie size(nibs) function 

ik NXTIRQ tine of next sreq 

kx ALRM1 on tiner #1 

KX ALRN2 on tiner #2 

xx ALRN3 on tiner #3 

aR ALRM4 tineout 

ax ALRMS pause 

x ALRM6 external alarn 

x PNOALM bitnap of pending alarns 
aa TIMOFS tine error offset for AF use 
Ka TIMLST tine of last exact 

KK TIMLAF tine of last RF correction 
as TIMAF accuracy factor 

kt 

a All tines are stored in units of 1/512th seconds. 

kk 

kk 


** Software tinebase correction is used to compensate for 
** the estimated .005% inaccuracy of the crystal tinebase. 
** An accuracy factor (AF) specifies the accuracy of the 
clock, and 1s defined as: 

* 


a actual tine = tiner tine(1+1/AF) 

ak 

*k In other words, the accuracy factor tells how many 

** seconds should elapse before adding a second to clock 
** tine. A positive accuracy factor will correct a slow 


** clock, a negative AF will correct a fast clock. 
i 


ax 
Kx 


** The external alarn is for use by external modules 

** (such as pocket secretary or a controller) which nay 
xk wish to schedule events. The exact fornat of how each 
*k external nodule tiaintains its alarn stack is 

*k uninportant, as long as the following protocol is 

** observed: 

ok 

xx The nodule tray schedule an alarn if either: 

wx 1) Current external alarn is past due. 

ak 2) Current external alarn occurs after alarn 

a the code wishes to schedule. 

xx 


** When an external alarn cones due, the systen will 





Saturn Assenbler 
Ver. 3.39/Rev. 2306 


67 
68 
63 
70 
71 
72 
i 
74 
75 
76 
?? 
78 
79 
80 
31 
82 
83 
84 
85 
86 
87 
88 
89 
90 
SI 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
114 
fe 
113 
114 
115 
116 
WW? 
118 
119 
120 
121 
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** poll and reset the external alarn pending bit. Each 
** nodule capable of scheduling alarns should then 
** conpare the current tine to its alarn stack to 


** deternine if any of its alarms are pending. 
a 


FORO OI IIIT TTT IK 
x 

FORO TORI TO TT TTI 
FOR JO OI OO IO ITI 
Kk 


** Nane: GETTIN - Read Tine System’s Countdown Tiner 
re 

&* Category: LOCAL 

ka 

** Purpose: 

KK Read countdown tiner #2. 

kk 

** Entry: 

ae None. 

kk 

ERENCE 

ae Tiner value in A, with sign-extend to full word. 

ES Carry set if negative, else carry clear. 

ax P=5, 

&k 

** Calls: None. 

kk 

BP USES exci 

ak A,B,P 

kk 

kX Stk lvls: 0 

tk 

** Detail: 

RA 512 hz countdown tiner operates asynchrously of CPU 
= clock. It can decrenent at any tine, including during 
mS a read. The double-read algorithn assures that we 
Ex do not encounter situations such as follons: 

no Tiner = 120000, decrenents after CPU reads first 
aK three digits, yielding a reading of 11FQOO (since 
a CPU reads LSN to MSN). 

kk 

** Algorithn: 

a Read tiner -> B. 

wa Read tiner -> A. 

ye If AKB then Read tiner -> A. 

a B=A. 

a If bit 23 of B 1s set, then perforn sign extend on A 
ak fron 6-nibble quantity to full-word and RTNSC, else 
ae RINCC. 

ak 

x* History: 

* 

x Date Progranner Modification 

OR cease Vek e Sli eet ies he enn 


*k = 06/03/82 = NA Added docunentation 
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122 ig 

123 eceteetreetetttttttteteseetesttetttitretetisttseretitstetetrety 

124 JOIST I TIS TTT IOI III IOS II IIS IIIS IA 

125 12548 04 GETTIN SETHEX 

126 1254C 1B8F DO=(5) =TIMERZ Point to timer in disp driv. 

2E2 

127 12553 AFO R=0 W 

128 12556 15A5 A=DATO 6 Read timer 

129 1255A A398 B=A =P 

130 1255D 15A5 R=DATO 6 Read again. 

131 12561 25 P= 5 

132 12563 910 *R=B OUP Kerchunk anyuhere? 

133 12566 60 GOYES GETTM2 No. Reads are good. 

134 12568 1585 A=DATO 6 Yes. One nore read. 

135 1256C A88 GETIN2 B=A- OP 

136 1256F AOS B=B+B  P Negative? 

137 12572 500 RTNNC No 

138 12575 B98 A=-A WP Yes. perform sign-extend 

139 12578 BF8 A=-A OW 

140 1257B 02 RTNSC 

141 JI OCICS GOS OC III TI IIIT II IK 

142 JOS IIIS IO OGIO ITC TOIT IIIT 

143 aA 

144 . Nane: ALMSRV - Check For Pending Alarns 

145 

146 ** Category: TIME 

147 ak 

148 ** Purpose: 

149 aX Service clock systen when alarn becores pending. 

150 ie Build and return bitnap of pending alarns. 

151 

152 *® Entry: 

153 ak None. 

154 a 

155 eX Exit: 

156 AX Bitmap of pending alarns in status bits. 

157 ie SO = alarn 1 

158 xs S1 = alarn 2 

159 ae ds des 

160 aa S5 = alarn 6 

161 ax If SO, $1, 82 or S5 is set, $12 is also set to 

162 “t indicate an exception condition. 

163 ae Carry clear if clock was not tined out. 

164 xs Carry set if clock was tined out. 

165 aR If carry set, C{W]=current tine in 512ths. 

166 xx P=0. 

167 mR 

168 ** Calls: GETPND, GETTIN, S101, CMPT, RCO1. 

169 as 

170 RE USES. i's 5520's 

171 a A,B,C,D,D0,P,D1,S0-S11, SCRICH[0-31] (only 

172 a if carry set (clock was tined out)) 

173 zx 

174 RE Stk lvls: 2 


175 


ax 
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176 ** Algorithn: 
17? aK Read PNDALM; Set $12 if bits 0,1,2 or 5 set. 
178 ak Read tiner. Return if not negative. 
179 a Stash RO-R3 in SCRTCH. 
180 ssa Call CMPT (perforns update). 
181 ae Restore RO-R3. 
182 a 
183 x* History: 
184 os 
185 ae Date Progranner Modification 
186 Kk “eecbucda..  Moeckscsou. -eieesuedscse cues seiceteseode sec ee'e 
187 = 06/03/82 NM Added docunentation 
x 
ite JOTI IOI IIIS ISIS TCC COO IOI IIS SI TIT IR II 
190 JIT TOI III IIIS IE IIIT IIIT III IT ISIS III SATII 
191 1257D OB =ALNSRY CSTEX 
192 1257F 7AB4 GOSUB GETPND 
193 12583 7510 GOSUB SF12? 
194 12587 7FBF GOSUB GETTIN Tiner negative? 
195 1258B 20 P= 0 
196 1258D 500 RTNNC Return if not 
197 12590 7815 GOSUB $T01 Stash RO & R1. 
198 12594 7A10 GOSUB CPT Perforn update 
199 12598 6D25 GOTO =RCO1 Retrieve RO & Ri. 
200 JIGS II III SII IIIT IO TOI ISIS IIS STO IS 
1 JI IIA SI III III TI III TTI TIT IIT IIIS TI IT III II IIIS IIIB II IIA 
202 ke 
203 ** Nare: SF12? = - Conditionally Set Exception Flag 
204 xk 
205 ** Category: LOCAL 
206 kt 
207 xk Purpose: 
208 a Set S12 if a non-PAUSE, non-TIMEQUT alarn is pending. 
209 
210 eX Entry: 
211 KA C{B] contains PNDALM bitnap. 
212 a 
213 Ee ExV te 
214 ak Flag 12 set if bits 0-2 or bit 5 of C{B] is set. 
215 a P=0. 
216 aK ST[11-0] = C[X] on entry. 
17 at 
218 ** Calls: None. 
219 aie 
220 Kt Uses... .... 
221 a ST{O-11],P,C{0]. 
222 xe 
223 ** Stk lvls: 0 
224 a 
225 ** History: 
226 i 
227 gi! Date Prograriner Modification 
228 RX! eee eee! Jobber Sete ee ete lee woe toe See Soe e 
223 *% 10/01/82 NN Stripped out of other code 
ak 


230 











231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
2314 
282 
283 
284 
285 















































Saturn Assenbler 
Ver. 3.39/Rev. 236 Low-level routines Page 6 


1259C 0A 
1259E 20 
125A0 ROG 
125A3 90E 
125AR6 70 
125A8 865 
125RB 00 
125AD 85C 
12580 01 





xk 
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FOO IRI ORR RIT TT ITT IIIT DI ITI TIT IIEBK 


SI III II IRI IE IIE IIIA IIIT I III III III SII ISIS IIISS SIS IIIS IISA IIIA 
SFi2? ST=C Alarn flags to ST 
P= 0 
C=C+C P Shift off bit 3 
CHO) OP Rlarns 0-2 pending? 
GOYES $SF1271 Yes 
?$T=0 § No. Rlarn 5 pending? 
RINYES No. 
SF1271 ST=1— 12 Set sonething funny flag. 
JIT IO IAT III IIT I TID TSI T STS TITS SII IIO ISI II SSSSSISS SS SSIS: 
JOO ITI TIT TTT TR TR IIT IIII SITS SI SSS SSSI 
he 
kk Nane:(S) CNPT  - Return Current Tine 
a 
** Category: TIME 
kk 
** Purpose: 
aK Read current tine in 512ths since tine 0. 
ae 
ek Entry: 
x None. 
ah 
ak Exit: 
ah Current tine in C and R1 (HEX ticks). 
an (Tine represented as # of 512ths sec since midnight 
ak 1 Jan 0000). 
a RO = TIMER value corresponding to current tine. 
ne HEX rode. 
xR Carry clear. 
a P=0, 
ik 
**® Calls: GETTIN, GETIRQ, GETLAF, GETAF, IDIV, PUTLAF, 
ee CLKUPD (falls through). 
ak 
BR USCS oc scarccen 
ax A,B,C,0,P,RO,R1,D0,D1,S0-S11 
kh 
** Stk lvls: 1 
kh 
** Detail: 
ax Routine conputes current tine (NXTIRQ-TIMER) and places 
- value of TIMER corresponding to current tine in RO, 
a Then accuracy factor corrections are conputed and the 
ze code falls through to CLKUPD to perforn an update. 
ak 
*& Algorithn: 
aR Read TINER; save in RO. 
aK Read NXTIRQ; current tine = NXTIRQ-TINER; save in R1. 
ak Read TINLAF; compute #ticks since last AF correction 
ae (TIME-TIMLAF); stash in D. 
ak Compute (TINE-TIMNLAF)/abs(AF); quotient to A; 
ee renainder to B. 
ak 


Compute #ticks from old TIMLAF to new TIMLAF = 
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286 
287 
288 
289 
290 
291 
2392 
293 
294 
295 
296 
237 
298 
239 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
319 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
32? 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
333 
340 


125B2 
12586 
12589 
125BD 
125C0 


749F 
100 
77F3 
B72 
109 


125C3 
125C6 
125CA 
125CD 
125D0 
12503 
125D7 
12508 
125DE 50 
125EO A7E 
125E3 73F6 
125€7 B73 
125ER 860 
125ED 50 
125EF BF8 
125Fe 7RO4 
125F6 AZB 
125F9 A72 
125FC 7A14 
12600 113 
12603 A72 
12606 109 
12609 6680 


AFA 
7634 
B7A 
AF 6 
RF? 
73F3 
7032 
97E 
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aK (TIME-TIMLAF )-REMAINDER -> D. 

ak Negate A (quotient fror division) if AF is negative. 
ak (At this point, A=tine correction, D=#ticks fron old 
a TIMLAF to new TINLAF. } 

ae TINLAF = TIMLAF + A + D. 

aK TIME = TIME (fron R1) + A. Store TIME in R1. 

al Fall through to CLKUPD. 

ik 

*k History: 

ak 

a Date Progranner Modification 

te eet ates. “ssisu Sete soso wo cecaenn ketone ee toe 
xk = 06/07/82 NN Added docunentation 

ak 


FOR IOI OTT TTT TTT TIT 
FOR ROOT TO TT TOK 


=C(MPT GOSUB GETTIN Tiner (in 1/512 secs) to a 
RO=A Copy to rv. 
GOSUB GETIRQ Next interrupt tine toc 
C=C-A W Current tine in 1/512 secs 
R1=C 
* CODE FOR ACCURACY FACTOR CORRECTION STARTS HERE 
A=C W 
GOSUB GETLAF Tine of last AF correction toc 
A=A-C OW Ticks since last AF correction 
C=A W 
D=C W Save 
GOSUB GETAF AF toc 
GOSUB SOCNEG 
7CHOOUW RF exist? 
GOYES CMPT20 
C=C-1 WwW No, set to infinity (f’s) 
CNPT20 GOSUB idiv (ticks since tinlaf) /AF 
D=0-C WwW Ticks fron old to new tinlaf 
2ST=0 0 RF positive? 
GOYES CNPT30 Yes 
R=-A OW No, negate quotient 
CMPT30 GOSUB GETLAF 
C=C+D W Ticks to new tinlaf 
C=C+A W AF correction 
GOSUB PUTLAF 
C=R1 Current tine 
C=C+A W AF correction 
R1=C 
GOTO CLKUPD Store new tine 


* END OF ACCURACY FACTOR CORRECTION CODE 
JOOS ISIE GIES SIS IG ISOS OO TT TO TIT IK 


FORRES TIT IK 


ah 
** Nane: CHPTIN - Conpute Tine In Secs Since Tine 0 
x* Nare: TIMNRND - Truncate Tine To Seconds 

ak 

** Category: TIME 

ih 

kt 


Purpose: 
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341 ak Coripute current tine in seconds. 
342 x 
343 ** Entry: 
344 *&k = CHPTIN: None. 
345 tx SC TIMRND: C = tane in ticks (512ths sec). 
346 ae 
347 ak Exit: 
348 RA C = tine in secs (HEX). 
349 ax R1 = Tine in 512ths (HEX) (CMPTIM ONLY). 
350 ae RO = Tiner value corresponding to time (CMPTIM ONLY). 
351 x HEX node. 
352 cs Carry clear. 
353 ax 
354 kk Calls: CMPT. 
355 aR 
356 AA US OSs sce 
357 aK A,B,C,D,P,RO,R1,D0,D1,S0-S11 
358 aK 
359 ** Stk lvis: 2 
360 kk 
361 ** Algorithn: 
362 Bx CHPT. 
363 x SR 9 bits. 
364 ax 
365 ** History: 
366 as 
367 ad Date Progranter Modification 
368 Pe. derek eoceee eed alee ee eel 
369 an 06/07/82 NM Added docunentation 
JI II IIIS TIS TOSI SSI SII I III IIIT IH 
372 $ IIS III ATI IIS ITI SI SI TAI II IIT IIIS IIIS III ISI ISI ISIS II SI SSSI IIIS 


373 12600 71AF 
374 12611 BF 
375 12614 BF6 
376 12617 81E 
377 1261A 01 
378 

379 

380 

381 

382 

383 

384 

386 

386 

387 

388 

389 

3% 

331 

ace 

393 

394 

395 


=CMPTIN GOSUB CNPT Tine in 1/512 sec toc 
=TIMRND CSR W 

CSR W 

CSRB flust sr 93 bits. 

RIN 


JOO JOJO JI IOI TTI IT ITI 
FORT JOIOI OOTTTOTTO 
xx 


xx Wane: COMPRF - Compute Accuracy Factor 

ik 

*x Category: TIME 

ik 

xx Purpose: 

aA Corpute a new accuracy factor for EXACT function. 
Xx 

kk Entry: 

= Rt = Current tine. 

aK (Other inputs are in clock systen registers). 
- HEX node. 

ax 

AP EMEL: 

ae Carry clear: Illegal AF (< 10). 


ax Carry set: 
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396 ae A = AF (HEX), with sign extended to full word. 
397 ax 
398 *k Calls: GETLST, GETOFS, GETAF, MPY, IDIV, CHKAF (falls 
399 ax through). 

40 ak 
401 RE SUGES cca ag 
402 ax A,B,C,0,P,D1,S0 
403 ax 
404 eK Stk lvls: 1 
405 ae 
406 ** Detail: 
407 xe 
408 *x AF is nuriber of seconds to pass before adding or 
403 kk subtracting a second. 
410 ax 
411 *k ~~ Define: tr=real elapsed tine, 
412 KR ti=internal elapsed tine (’ticks’), 
413 aK 
414 xx Then the definition of accuracy factor is: 
415 ax tr=ti(1+1/AF). 
416 ai 
417 xx The accuracy factor is thus conputed as: 
418 Kx AF:=ti/(tr-ti). 
419 a 
420 xk fl value of AF=0 1s used to represent the case of 
421 xx AFFinfinity. 
422 <2 
423 ** Algorithn: 
424 a> 
425 xx Since 
426 x tr=currtine - tinlst 
42? *k and 
428 ak ti=(currtine-tinlst-tinofs)/(14+1/AF), 
429 ae 
4n kx the expression for the new accuracy factor is: 
431 A 
432 ae AF*(currtine-tinlst-tinofs) 
433 ke GR? 2 occ, sessenl ee sn eae coee 
434 ae currtine-tinlst+AF*tinofs 
435 aS 
436 as 
437 ax = (currtine-tinlst-titiofs)/tinofs 
438 a 
439 ax if AF=0. 
440 aK 
441 x* History: 
442 x 
443 es Date Programmer Modification 
444 Hie Soe, etwas eee ae eet oe 
445 AR 06/07/82 NM Added docunentation 
oe 
i JOIST I IIE TITRE TE ITD TOTTI IIT TIT ATI 
448 JORISOIO IOI IIIS UII ISIE IOI II GOO IO TR 


449 1261C 111 
450 1261F 7404 


COMPAF A=R1 Current tire 


GOSUB GETLST 
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451 12623 B7A A=R-C OW Currtine-tinlst 
452 12626 7063 GOSUB GETOFS 
453 1262A B7—A A=A-C W Currtine-tinlst-tinofs 
454 1262D AF? B=C W Hold tinofs 
455 126% 7693 GOSUB GETAF 
456 12634 97E CHO) OW AF =0? 
457 12637 & GOYES COMP10 No 
458 12639 AFB (=D W Yes, neu AF=a/c 
459 1263C 572 GONC  CONMP2O BE. 
460 1263F 7096 COMP10 GOSUB npy AF (currtine-tinlst-tinofs) 
461 12643 AFF (DEX UW Stash. retrieve tinofs 
462 12646 AFA A=C W 
463 12649 7073 GOSUB GETAF 
464 1264D 7F86 GOSUB  npy AF*tinofs 
465 12651 AFF CDEX WwW 
466 12654 AFA A=C Wu Position nunerator 
467 12657 7(C3 GOSUB GETLST 
468 1265B B73 D=D-C W AF*tinofs-tinist 
469 1265E 119 C=R1 
470 12661 A7B C=C+D W Currtine-timlst+AF*tinofs 
471 12664 397A CONP2O ?(=0 6 Denoninator=0? 
472 12667 93 GOYES CHKAZS Yes. result=0 (infinity) 
473 12669 840 ST=0 60 Mark result positive 
474 1266C 942 *A=C OS Nunerator & denor sane signs? 
475 1266F 80 GOYES CONP40 Yes 
476 12671 850 ST=1 0 No. result negative. 
477 12674 BFA C=-C wW Make terns sare sign 
478 12677 948 COMP40 ?A=0) = § Terns positive? 
479 1267A 80 GOYES CONPSO Yes 
480 1267C BF8 =-A OW No. negate both terns. 
481 1267F BFA C=-C wW 
482 12682 7456 COMP5O GOSUB idiv New AF. fall through to chkaf 
483 12686 978 7A=0) OW Coriputed AF way too Huch? 
484 12689 22 GOYES CHKA4O Yes. Will RINCC. 
485 FOI ITI III TID IID II IIIS III SII III SIOS IIIS I SI STII IIS TI III IIIS IAN. 
486 III IIA IIT IIIT ITI SII ITI IDI SI IIIT III ISS ISI IIIS SSSI ISIS ISOS III IA 
487 ak 
488 XX Nane:.  CHKAF - Check For Valid Accuracy Factor. 
489 me 
490 **k Category: TIME 
491 ax 
492 ** Purpose: 
493 a Check that accuracy factor lies in the range: 
494 ax B800000H <= AF <= 7FFFFFH. 
495 xe 
496 *k Entry: 
497 ne A = ABS(AF). 
498 RK SO=0 if AF positive, 1 if AF negative. 
439 eK 
500 RK Exit: 
501 wa Carry clear: ABS(AF)<10 and AF<>0 (invalid value). 
502 ae Carry set: 
503 ae A=AF in 2’s conplenent (sign extended to uhole 
504 mK word). 


505 x If AF>7FFFFF or AF<800000, returns AF=0. 
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506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
523 
530 
531 
532 
533 
534 
635 
536 
53? 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
Soe 
853 
554 
556 
556 
557 
558 
559 
560 


12688 
1268E 
1269 
12693 
12696 
12698 
12698 
1269E 
126R0 
126A3 
126R6 
126A8 
126AB 
126AD 
12680 
126B3 
126B6 
12089 
126BR 
126BE 


AF2 
25 
308 
870 
50 
RIE 
SFA 
50 
AFO 
978 
00 
AI? 
20 
9 
B72 
500 
860 
00 
BFS 
02 
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aK 
kk Calls: None. 
i 
REAUSES 5 vu ss 
** Exclusive: A,C,P 
x 
** Stk lvls: 0 
& 
** Algorithn: 
ak C=(if SO=O 7FFFFF else 800000) {nax abs AF}. 
ax AF < wax? Set AF=0 1f not {represents AF=infinity}. 
ar ABS(AF) < 10? RINCC if yes. 
xx If SO=1, negate AF. 
ak RTNSC. 
kK 
*k History: 
aK 
a Date Progranner Modification 
ce “coupe “Bateetemad. | aeecesit hes Saute eeu dnt 
kX 06/07/82 NN Added docunentation 
kk 


JOO IIT TO TOTO OU TOI I IO 
FOO IOI OTT TTI OO TO TOR TOTO 
ak 


** NOTE: Above code falls through 


ax 
CHKAF {C=0 W 
P= 5 
LCHEX 8 Max abs(AF) if neg 
*ST=1 0 AF neg? 
GOYES CHKAZO Yes 
C=C-1 WP No. max AF. 
CHKA2O ?A<=C W AF <=nax? 
GOYES CHKA30 Yes 
CHKA25 A=0 W No. use zero. 
CHKAX ?A=0 = OW 
RTNYES 
C=0 WP 
CHKA40 P= 0 Entry to RTNCC fron above 
LCHEX 9 Minirtun AF-1 
C=C-A W 
RTNNC Return if < waninurt 
?ST=0 0 Positive 
RTNYES Yes. done. 
A=-A OW No. negate. 
RTNSC 


OOO IORI OOO OI OGIO OOO III III 
FOOT TIO TOTO OI IOI OI III 
an 


** Nane: CLKUPD - Update Clock 
i 


** Category: TINE 
kk 


** Purpose: 
a Set systen clock to desired tine. 
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561 aR 
562 eA This routine 1s the heart of the tinekeeping systen. 
563 ee In addition to its obvious function of SETting a new 
564 ak tine, the code is used to perforn routine clock 
565 mh updates. 
566 ak 
567 at Entry: 
568 ae R1 has tine. 
569 a RO has value of 512hz countdown tiner corresponding 
570 ak to tine in R1. 
571 ak 
572 ae Exits 
573 ak P=0. 
574 ak Carry clear. 
575 ae R1 still has tine. 
576 aR RO has new value of 512hz countdown tiner corresponding 
577 aR to tine in R1. 
578 a 
579 *K Calls: GTFLAG, GETIRQ, GETPND, PUTPND, GETAF, NPY, 
580 ak IDIV, PUTIRQ 
581 ak 
582 AR USCS vos. 
583 ak A,B,C,D,D0,D1,P,RO,R1,S0-S11. 
584 ah 
585 *E Stk lvls: 1 
586 ak 
587 *® Detail: 
588 : Here is a brief surinary of the clock systems workings: 
589 . 
590 ne The softuare has available to it one 24-bit 512hz 
591 ak countdown tiner. For purposes of this discussion, a 
592 an "tick" is defined as 1/512 second. The range of this 
593 ae tiner (in 2’s conplenent arithmetic) is from 7FFFFFH 
594 ax to -800000H ticks, or in decinal, 8388607 to -8388608. 
595 a This corresponds roughly to a range of 4.55 hours to 
596 xe ~4.55 hours. The tiner generates a service request 
597 KR whenever it goes negative (high bit set). 
598 ae Since the tiner obviously cannot cover even a days 
599 ae worth of ticks, let alone 9999 years worth, the clock 
600 xR systen uses the tiner as an offset relative to a tine 
601 xa stored in RAN. That is, it schedules a wakeup tine 
602 ae (called NXTIRQ), sets the tiner to go negative (count 
603 a down through zero) at said tine, and then can coripute 
604 as the tine on denand sinply by conputing: 
605 xk 
606 aa TIME = NXTIRQ - (current tiner value). 
607 ak 
608 a It is the CLKUPD routine which does the scheduling. 
669 xs Calling CLKUPD says, in effect, "this is the current 
610 ue tine, schedule yourself to wake up." Assuring we are 
611 xe not in clock node* and no alarms have been scheduled, 
612 RS the routine sinply schedules a wakeup for four hours 
613 aE away. When that happens, we wake up and perforn 
614 xk another clock update. This goes on forever. 
615 a 
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616 a { * Clock node is a feature which allows lexfiles to 
617 xn inplenent a clock without having to reschedule an 
618 ax external alarn every second. It is set by setting 
619 xx the fICLOC syster flag and should be cleared when 
620 aR a clock mode is no longer desired. In clock rode, 
621 xn the clock update interval is to the next 1-second 
622 ak boundary, and the exception flag is set (to force 
623 ae a poll) whenever the clock systen is accessed } 
624 an 
625 ax If, however, any of the alarns (ALRM1-ALRM6) is set 
626 AE to go off less than 4 hours away, its tine 1s used as 
627 cs the tine-of-next-uakeup instead of 4 hours. 

628 aR 

629 at CLKUPD is executed whenever the tine is conputed 

630 aa (execution falls through from CMPT). It is also 

631 aR executed when the tine (tine-of-day or date) is 

632 i changed, although this occurs far less often. Rather 
633 a than sinply taking "this 1s the current tine" as input, 
634 a the routine takes "this 1s the current tine" and "this 
635 xe is what the tiner read when it was computed". That 
636 an May any execution tine taken after the tine conputation 
637 AR does not manifest itself as a tine error. This also 
638 xR serves to reduce the tine-critical code to just a feu 
639 he lines at the end of the CLKUPD routine. 

640 ah When CLKUPD is passed a current tine and tiner value, 
641 aK it figures out the tine-of-next-wakeup, stores that in 
642 aR NXTIRQ, and sets the tiner appropriately. 

643 xk 

644 ** Algorithn: 

645 he {Tine values use 12 nibbles. Sonmetines nibs 12-15 

646 si are used for other things. Registers specified 

647 ax without a subfield mean REG(O-11).} 

648 xR Get fFICLOC flag. 

649 ae C = 4 hours (expressed in ticks). 

650 a If we are not in clock mode, goto 1. 

651 x C = Tine to next second: 

652 ax (1 second) - [ (current tine) nod (1 second) ] . 

653 xk 4: {C now contains update interval if no alarns} 

654 xe A = current tine (R1). 

655 xx D = tine at update (A+C). 

656 aK B = current value of NXTIRQ. 

657 ** fa: Prepare to build bitmap in B[15-14] {bits 0-5 of that 
668 a byte}. 

659 a For DO = ALRM6 dounto ALRN1 do 

660 as begin 

661 = Read alarn tire. 

662 aR If alarn tine = 0 goto 3. 

663 a If alarm tine > current tine goto 2. 

664 a If alarn tine < current value of NXTIRQ goto 3. 
665 ax Mark bitnap for this alarm {alarn 1s pending}. 

666 ae Goto 3. 

667 a 2: If alarm tine > tine-of-next-update {D} goto 3. 
668 a D = alarm tine. 

669 a 3: 

670 = {D now contains the tine-of-next-wakeup, which is 
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671 ae either the update tine nentioned in "1:" above 
672 ak or the earliest alarn tine < 4 hours away.} 
673 Rx end 
674 ak Move bitnap to B[B]. 
675 k OR bitmap with PNDALM {new pending alarn bitnap}. 
676 an Save new bitnap in PNDALM and ST[B]. 
677 aK If alarns 0,1,2 or 5 are pending, set S12 {global 
678 + exception flag}. 
679 aes If NXTIRQ < end-of-tine then goto 4. 
680 ah If current tine < end-of-tine then D=end-of-tine; 
681 ak goto 4 {schedule wakeup for end-of-tine}. 
682 x current tine := current tine - end-of-tine. 
683 am D = D - end-of-tine. 
684 aK B=9., 
685 ah Wrap TIMLAF and TIMLST around end-of-tine. 
686 aK Goto fa. 
687 ak : {Beginning of accuracy factor correction code. If 
688 ax clock is running slow, we will want to schedule the 
689 ak alarn early so as not to miss it.} 
690 kx D=Tine until new NXTIRQ {D-A}. 
691 ak If AF<O {if clock is fast} then goto 5. 
632 ae D=D*AF/(AF+1) {compute reduced tine to NXTIRQ}. 
693 aK {End of AF code} 
694 ag : Add D to current tine {R1}, store in NXTIRQ. 
695 ak {D is the new value we want to store in the tiner. 
696 ak To compensate for any tine taken since the tine 
697 ax indicated in RO/R1, we will actually store the value 
638 ak [D-RO+(current tiner)] in the tiner. Since 
639 a Q <= update amount <= 4 hours and the tiner can 
700 ae represent up to 4.55 hours + and -, only the 
701 an following things can screw us up: 
702 ak (current tiner)-RO > .55 hours ... unlikely since 
703 ak current tiner should be < RO. 
704 an {current tiner)-RO < -4.55 hours ... how long did 
705 a processing take, anyway ?!? 
706 ak If RO-(current tiner) > D, an alarm cane due during 
70? as processing and the tirer will be negative. We'll 
708 =e catch it the next tire through. } 
709 ak C=0, CROEX {swap new tiner value with old tiner value}. 
710 ak D=D-C {amount to add to current tiner value}. 
711 ak Watch tiner until kerchunk {wait for full tick window}. 
712 ae Read tiner; add D; write tiner {and timer enable bits 
713 aK to control nibble}. 
714 xk Recall current tine {R1}. 
715 a Return. 
716 ae 
717 ** History: 
718 ae 
719 ies Date Progranner Modification 
720 ME | stterews Ss. eee bine: * pee bee eee eek Oot 
721 - 06/07/82 NM Added docurentation 
x 
he JE IOI TI TOT TIA I IOI IIIA. 
724 JOR III TOR TI TT TTT TIER EIR III TIT IID SD IIIA I SASSI L 


725 126C0 04 


CLKUPD SETHEX 
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726 
72? 
728 


729 
730 
734 
732 
733 
734 


735 
736 
73? 
738 
739 
740 
741 
742 
743 
744 
745 
746 


747 


748 
749 
750 
751 
752 
753 
754 
755 
756 
767 
758 
759 
760 
761 
762 
763 
704 
705 
766 
767 
768 
769 
7?0 
771 
. #22 
773 
774 
775 
776 


126C2 20 
126C4 3100 
126C8 8E00 
00 
126CE O€26 
126D2 7881 
126D6 BFe 
126D9 928 
126DC 81 
126DE 3310 
00 
126E4 111 
126E7 OF26 
126EB 302 
126EE B32 
126F1 850 
126F4 111 
126F7? A?2 
126FR AF? 
126FD 73B2 
12701 AFS 
12704 2D 
12706 3200 
2 
1270B 1855 
7F2 
12712 A92 
12715 15€B 
12719 391A 
1271C €1 
1271E 992 
12721 11 
12723 991 
12726 44 
12728 A92 
1272B OE73 
1272F SAO 
12732 997 
12735 §0 
1273? AY? 
1273R 188 
12730 81E 
12740 390A 
12743 FC 
12745 03 
1274? 72Fe 
1274B 811 
1274E 811 
12751 OE6D 
12755 ?0Fe 
12759 7F3E 
1275B 75R0 
12761 SF? 
12764 63 
12766 SF2 
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CLKUIO 


CLKUI5 


CLKUZO 


CLKU30 


CLKU4O 


p= 
LC(2) 
GOSUBL 


A=R8C 
GOSUB 
CSL 
7A=0 
GOYES 
LCHEX 


A=R1 
A=ABC 
LCHEX 
C=C-A 
ST=1 
A=R1 
C=C+A 
D=C 
GOSUB 
B=C 
p= 
LCHEX 


bO=(5) 


C=0 
C=DATO 
?C=0 
GOYES 
200A 
GOYES 
?C<B 
GOYES 
C=0 
B=B'IC 
GONC 
7C>D 
GOYES 
D=C 
DO=D0 - 
CSRB 
?C=0 
GOYES 
C=ST 
GOSUB 
BSLC 
BSLC 
C=C'B 
GOSUB 
GOSUB 
GOSUB 
Del 
GOYES 
PAC 


0 
=f 1CLOC 
=GTFLAG 


XS 
LC708 
W 

KS 
CLKU10 
0001 


GETIRQ 
W 

13 

200 


=ALRN6 


WP 

12 

WP 
CLKU40 
WP 
CLKU30 
WP 
CLKU40 
WP 

W 
CLKU40 
WP 
CLKU40 
WP 

12 


Pp 
CLKU20 


GETPND 


B 
PUTPND 
SFi2? 
LC9999 
W 
CLKUSS 
W 
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Get flag nib & mask for f1CLOC 


AND flag nibble and mask 
4 hours (in 1/512 secs) 


Clock node? 
No, use 4 hour update 
Yes, find tine to next second 


Current tine 
Fractional second 


Tire until next second 

Set exception flag to force poll 
Current tine (1/512 sec) 

Tine at update 

Hold for comparison 

Read in old irq (1/512 sec) 

Hold for comparison 

For pending alartt bitmap to be... 
built in Bt 15-14] 


Point at last alarn & go back 


Read in alarn 

Alarm tine = 0? 

Yes... ignore 

Alarn after current tine? 
Yes, consider for update 
No, alarn before oldirg? 
Yes, ignore 

No, 1S pending alarn 

Hark bitmap 

B.E.T. 

Rlarn before update? 

No, use update 

Yes, use alarn 

Prev alarn 

Shift bitmap bit 

Have we exhausted alarns? 
No 


Yes, read old pending bitnap 
Position new bitnap above it 


Or together for new pending alns 


Save in status register & SF12? 
C=TINE at end-of-tine 

New NXTIRQ < end-of-tine? 

Yes, no action 

Current tine < end-of-tine? 
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777 
778 
779 
780 
731 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
732 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 


818 
819 
820 
821 
822 
823 


824 
825 
826 
827 
828 
829 


12769 
12768 
1276E 
12771 
12774 
12777 
12778 
1277E 
12781 
12785 
12789 
1278C 
12790 
12793 
12797 
1279A 
1279A 
12790 


127R0 


E2 
B7A 
101 
B73 
AF 1 
AFA 
7282 
B72 
7592 
7E92 
B72 
72eR2 
111 
607F 
RF? 


AF6 
B73 


7622 


127A4 412 


127A7 
127AR 
127AC 
127AF 
127B2 
127B5 
12789 
127BC 
127C0 
12703 


12706 
127C9 
127CC 
12700 
127D3 
127D6 
127D9 


127E0 
127E2 
127E6 
127ER 
127ED 
127EF 


127F4 
127F8 
127FB 
127F F 
12802 


97—A 
C1 
AFR 
B76 
AFF 
7725 
AFB 
7A15 
AF6 
AF? 


119 
A7B 
7FE1 
AFB 
128 
B73 
1B8F 
2£2 
25 
1524 
1564 
942 
OF 
3200 
8 
15E5 
AiB 
15C? 
119 
20 


12804 03 
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GOYES CLKU54 

A=A-C WW 

R1=R 

D=D-C W 

B=0 W 

R=C W 
GET LAF 
W 


GOSUB 
C=C-A 
GOSUB = PUTLAF 
GOSUB GETLST 
C=C-A W 
GOSUB = PUTLST 
A=R1 
GOTO CLKUIS 
CLKUS4 D=C W 
CLKUSS 
C=A W 
D=0-C W 
* AF CORRECTION CODE 
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Yes. Wake up at end-of-tine. 
No. Wrap tine around 0. 
Store new tine. 

Wrap NXTIRQ around 0. 

Set old NXTIRQ to 0. 

Hold end-of-tine 


Wrap TIMLAF around 0 


Wrap TIMLST around 0 


Recall current tine 
Repeat scheduling process. 
NXTIRQ at end-of-tine 


Current tine 
Tine to nxtirg 


* WILL USE UPDATE OF TI=1/(1+1/AF)=AF*T/(AF+1) IF AF>0 


* ELSE NO CORRECTION 


GOSUB GETAF 
GOC CLKU60 
7C=0) OW 
GOYES CLKU60 
A=C W 
C=C+1 W 

CDEX W 
GOSUB npy 
C=0 W 
GOSUB idiyv 
C=A W 

D=C W 


* END OF AF CORRECTION CODE 
CLKU6O C=R1 

C=C+D W 

GOSUB PUTIRQ 

C=D W 

CROEX 

D=D-C W 

DO=(5) =TINER2 


CLKU70 


CLKU70 
LCHEX 800 


C=DATO 6 
C=C+D WP 
DATO=C 8 
C=R1 

P= 0 
RTNCC 


No correction if AF<0 
AF =0? 
Yes, no correction 


AF +4 
T 
RF Xt 


AF*t/ (RF +1) 


Current tine 
Tine at nextirg 


Tine until NXTIRQ 

Old tiner value 

Anount to update tiner 
Tiner to be updated 


Loop until kerchunk 
Set tiner enable bit 


Plenty of tine for update 


Update done. 
Recover current tine 
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8H JOO IOI II TOI TI OCCU OI ISO I IT TIT TIT IAT IK 

831 JOIST ICO IOI IIS ISOC TT IK 

832 wk 

833 kx Nane: LC9999_ - Load TIME At End-of-tire 

834 a 

835 ** Category: LOCAL 

836 ak 

837 *k Purpose: 

838 2 Load TIME corresponding to 24:00:00, 31 Dec 9999. 

839 x 

840 &X Entry: 

841 ae None. 

842 i 

843 kk Exit: 

844 a C=000092F 2D1 7B0000. 

845 ax P=4, 

846 ak Carry unaffected. 

847 ak 

848 ** Calls: None. 

843 aa 

850 kk Uses....... 

851 *k Exclusive: P,C. 

852 kk 

853 tk Stk lvls: 0 

854 kk 

855 ** History: 

856 ak 

857 x Date Prograriner Modification 

858 Be eae, ewes dadiaica ere te ete yt et 

859 Ak 06/10/82 NM Wrote 

860 ax 

861 JOO OI III ICI IGO GOO IT ITT I 

R62 JU DOO ISOS OI TTT 

863 12806 AF2 1€9999 C=0 W 

864 12809 24 P= 4 

865 12808 3787 LCHEX 92F2D17B C=000092F 201 7B0000 

1D2F 
29 

866 12815 01 RIN 

867 k_ 

868 te 

869 12817 840 SOCNEG ST=0 0 

870 1281A 500 RTNNC 

871 12810 850 ST=1 0 

872 12820 BFA C=-C WwW 

$73 12823 92 RTNSC 
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874 STITLE Low-level SET routines 
875 JOO TIT TI RI IIT TCE 
876 JOU OIC ICO OTT TT 
877 ak 
878 ** Nane: SETIME - Set And Nornal Adjust Routine 
879 ** Nane:(S) ADIN - Set And Norrnal Adjust Routine 
880 ae 
881 ** Category: TIME 
882 eR 
883 ** Purpose: 
884 ae Set new systen tine and keep track of error for 
885 ae accuracy factor computation. 
886 ah 
887 *k Entry: 
888 ak SETINE, ADIN: 
889 Kk Ri = Current time (Si2ths sec since year 0). 
890 ax RO = Timer value corresponding to current tine 
891 xx (fron CMPT). 
892 Kk R2 = New tine to set (512ths sec since year 0). 
893 am HEX node. 
394 hk 
895 xk Exit: 
896 aK Ri=New tine (R2 on entry). 
897 ak RO=New tiner value corresponding to tine. 
898 ak Carry clear. 
899 mk P=Q, 
900 &k 
1 ** Calls: CMPTE, GETOFS, PUTOFS, GETLST, PUTLST, GETLAF, 
902 mes PUTLAF, CLKUPD (falls through) 
903 ax 
904 RR OUSOG soe ast's 
%5 se A,B,C,D,P,D0,D1,RO,R1,S0-S11. 
a6 ik 
907 ** Stk lvls: 2 
908 xx 
909 ** Detail: 
310 i SETINE, ADJN are tio nanes for sane entry point. 
911 xk 
Siz x The adjustnent anount is rounded to the nearest 
913 mA half-hour. The difference between that and the 
914 ak adjustnent anount (which will be between -15 and +15 
915 xk Minutes) is considered the error adjustnent. The rest 
916 am of the adjustnent is considered a tine zone change, 
917 xx and 1s not added to TINOFS (tine error accurulator). 
918 an 
919 ** Algorithn: 
920 aK Q := Newtine - currenttine {total adjustnent anount}. 
921 ak Te := sign(Q)*{(abs(Q)+15) riod 30 - 15) {error 
922 Kk adjustment arount: between -15 and +15 minutes}. 
923 a TINLST := TIMLST + Q - Te {update TIMLST by non-error 
924 a amount}. 
925 x TIMLAF := TIMLAF + Q {update TIMLAF by adjustnent 
926 xk anount}. 
927 wed TIMOFS := TIMOFS + Te {update error accuriulator by 


928 a error anount}. 
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$29 am Fall through to CLKUPD. 
930 i 
931 ** History: 
932 RK 
933 ax Date Progranner Modification 
934 oe. Geateie. Ueeeseeoee, SSSD4rseesc. no 3-4 sys cataatensenes 
935 , 06/08/82 NM Rdded docunentation 
937 JORIS IIS ITI III TI ETT TIT TOTTI IIIT STN 
938 JOIICI IIIS IO IO III II II III II TCO TET TIT 
939 12825 =SETINE 
940 12825 112 =ADIN A=R2 New tine 
941 12828 119 C=R1 Currenttine 
942 1282B 101 Ri =A Save for clkupd 
943 1282E B7E C=A-C Wl Q 
944 12831 AF? D=C W 
945 12834 501 GONC SETIO Go if Q positive 
946 12837 BFA C=-C UW 
947 1283A 7630 GOSUB CMPTE Compute Te 
948 1283E BFS B=-B W 
949 12841 6700 GOTO SET20 
950 12845 7B20 SET10 GOSUB CMPTE 
951 12849 7031 SET20 GOSUB GETOFS Get error offset 
952 1284D A79 C=C+B OW Update 
953 12850 7551 GOSUB PUTOFS 
954 12854 7FC1 SET30 GOSUB GETLST 
955 12858 A7B C=C+D W 
956 1285B 879 C=C-B W 
957 1285E 7001 GOSUB  PUTLST Update tinlst 
958 12862 7A91 GOSUB GETLAF 
959 12866 A7B C=C+D W 
960 12869 7DA1 GOSUB PUTLAF Update tinlaf 
961 1286D 85C ST=1 12 Set Exception to force poll 
962 12870 6F4E CLKUPD Update clock 
963 JOIST TIT TOC TIT TI 
964 OIRO OOO IOI IOI OOO OI OI ITOK 
965 ae 
966 ** Nane: CMPTE - Conpute Error Part Of Tine Adjust 
967 ae 
968 ** Category: LOCAL 
969 Ax 
970 **x Purpose: 
971 ‘ Compute error correction conponent of tine adjustnent. 
972 ae 
973 ** Entry: 
974 aA C = abs(adjustnent arount). 
975 a HEX rode. 
976 aS 
977 Ter ERI tS 
978 ak B = Te/Sign(Q) (Te and Q explained in ADIN header). 
979 abs 
980 ** Calls: IDIV 
981 ae 
382 AM SBS cee Vic 
983 ae A,B,C,P 
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984 xk 
985 KK Stk lvls: 1 
986 aK 
987 ** Algorithn: 
988 ae B := (abs(C)+15) nod ® - 15. 
989 ak 
990 xk History: 
991 an 
992 aR Date Progranner Modification 
993 KE Coe dewes =  eedsbascewe. _Geeecestesoon see cence eee cle eb 
994 xk = 06/08/82 = NM Added docunentation 
wk 
a SOI IO ICO IO TT TR TET TT TT TE 
997 JO IOI UO IO TOC TOO TK 


998 12874 AFA 
999 12877 7310 
1000 1287B A7A 
1001 1287E A76 
1002 12881 7554 
1003 12885 7500 
1004 12889 B71 
1005 1288C 01 
1006 

1007 

1008 

1009 

1010 

1014 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 


C 


MPTE A=C 
GOSUB 
A=A+C 
C=C+C 
GOSUB 
GOSUB 
B=B-C 
RTN 


W 

L708 15 minutes 

W 

W 3X ninutes 

idiv (abs(q)+15) nod 30 in b 
LC708 15 minutes 

W 


FORTIS TTT TOT K 
FOR JOT OT TTI TT ITT TK 


ak 
xk 
xk 
xk 


xk 
xx 
xk 
ak 
ar 


Narie: LC708 - Load A Constant 
Category: LOCAL 
Purpose: 


Set C=0000000000070800, which is 15 tinutes worth of 
ticks (tick=1/512th sec). 


Entry: 
None. 


Exit: 


Stk lvls: 


History: 


10/14/82 


None. 


P,C. 
0 


Progratiner Modification 


Nit Wrote. 


FOI TTI ITO TOT I OR TIT IK 
FOROS TTITOTTITIOTIK 
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1039 1288E AF2 
1040 12891 22 
1041 12893 3280 
? 
1042 12898 03 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1065 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1063 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
108? 
1088 
1089 
1090 
1091 
1092 
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LC708 C=0 W 
P= 2 
LCHEX 708 
RTNCC 
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FORO III ITO ITI TI IOI TI 
SE SSS C8 2.5.5.5.9.95.0.5.5.5 0,6,9,0,5.5,.5,5,.9.0,.9.0,9,0,0,5,5,.0,0,0,9 2.2,0,5,0,0,0. 0.0, 0,0.0,5,0,0,0,0,0,0.0,0,5,5.1 
xx 


*& Narie:(S) ADJA - Absolute Tine Adjust Routine 
aa 

** Category: TINE 

xk 


** Purpose: 
x 


x Set new systen tine without tinebase accuracy 

ak correction. The entire adjustnent anount 1s considered 
a a tine zone change... none of it is an accuracy 

a adjustrent. 

ae 

xk Entry: 

xx R1 = Current time (ticks since year 0). 


a RO = Tiner value corresponding to current tine 
ak (stored when CMPT was done) (ticks). 


ax R2 = New tine to set (ticks since year 0). 

xe HEX trode. 

ke 

AR EMEC: 

ae R1=New tine (R2 on entry). 

AS RO=New tiner value corresponding to tine. 

aX P=0. 

x Carry clear. 

ae 

** Calls: GETLST, PUTLST, GETLAF, PUTLAF, CLKUPD (falls 
a through) 

kk 

BX USES i vacee 

ae A,B,C,D,P,D0,D1,RO,R1,S0-S11. 

ae 

xk Stk lvls: 1 

te 

** Algorithn: 

ia Q := Newtine - currenttine {total adjustment anount}. 
wx Te := 0 {error adjustment amount = 0}. 

a TIMLST := TIMLST + Q - Te {update TIMLST by non-error 
x anount}. 

we TIMNLAF := TIMLAF + Q {update TINLAF by adjustnent 

is ariount}. 

a TIMOFS := TIMOFS + Te {update error accumulator by 
aK error anount}. 

at Fall through to CLKUPD. 

ae 

** History: 

aa 

ae Date Progranner Modification 

RS week ~“miceaeneieea. corso eteidares wate ee ee a oe ae he oe 


tk = 06/08/82 NM Added docunentation 
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1093 a 
1094 JUG IIIS ICI OS ET TOI ITOK 
~ 1995 JOIST IT CTT TOR 
1096 1289A 112 =ADJA A=R2 
1097 1289D 119 C=R1 
1098 128A0 101 Ri=A 
1099 128A3 B7E C=A-C W Conpute q 
1100 128A6 AF? D=C W 
1101 128A9 AF 1 B=0 W Te=0 
1102 128AC 67AF GOTO SETH 
1103 JOU II OTT TTT TK 
1104 JI III SII II TIT IAT TTT TST TT TTT TIS IAI III I IIIS SSS SOS SSSI IIS 
1105 ak 
1106 ** Nane:(S) EXACT - Compute New Accuracy Factor. 
1107 RK 
1108 ** Category: TIME 
1109 ak 
1110 xk Purpose: 
1111 ak Inform tine systen that tine currently contained is 
1112 ax exact. 
1113 kk 
1114 hk The first tine EXACT is called after a coldstart or 
1115 aK a RESET CLOCK, the exact flag is clear. 
1116 - This routine will sinply set it, note the current tine 
111? ax and start a new adjustnent period. 
1118 - Each subsequent call will note the elapsed tine since 
1119 ak the last call and the corrections which have been 
1120 ak applied since the last call. Fron this an accuracy 
1121 Ax factor 1s conputed. 
1122 xe 
1123 ak Entry: 
1124 ak None. 
1125 ax 
1126 AK Exit: 
W2? ax A new adjustnent period has been started. 
1128 an Carry set: Reasonable accuracy factor computed. 
1129 ak Carry clear: Illegal accuracy factor conputed. 
1130 ae 
1134 *X Calls: CMPT, GTFLAG, COMPAF, PUTAF, PUTOFS 
1132 ak PUTLST. 
1133 ax 
1134 RE USES ace ad 
1135 ax A,B,C,D,P,00,D1,RO,R1,S0-S11. 
1136 a 
1137 ek Stk lvls: 2 
1138 = 
1139 ** Algorithn: 
1140 ak If exact=true then 
1141 ae conpute AF 
1142 a if AF valid then store AF. 
1143 xx TIMLST: =TIMLAF:=currenttine {start of neu adjustnent 
1144 ak period}. 
1145 a TIMOFS: =0. 
1146 ee EXACT: =true. 
1147 ak return with carry clear if: 
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1148 
1149 
1150 
1154 
1152 
1153 
1154 
1155 
1156 
115? 
1158 
1159 
1160 
1161 
1162 
1163 


1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
{172 
1143 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
118? 
1188 
1189 
11.90 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1204 


128B0 7EFC 
128B4 3100 
128B8 8E00 
00 
128BE AR8 
128C1 0E21 
128C5 92D 
128C8 DO 
128CA OE2E 
128CE 1502 
128D2 561 
128D5 7340 
12809 480 
1280C 7300 
128EO 02 
128E2 AFG 
128E5 7A01 
128E9 79B0 
128ED 119 
128FO 7E31 
128F4 6521 


xk 
ak 
ak 
ak 
ak 
xx 
ak 
ak 
ak 
ak 
ak 


Clock Systen <831228.1028> 
Ver. 3.39/Rev. 2306 Low-level SET routines 


exact was false 
exact was true, 
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computed AF is valid. 


return with carry set if: 


exact was true, 


History: 


06/08/82 


NM 


computed AF was invalid. 


Nodification 


Added docunentation 


JOR IOI IO TTT TT TO TOTO ITI ST TEI 
FOI OI ITT ITI IIIT IO I I III TIT I IIIT AK 


=EXACT GOSUB CHPT 


E 


E 
E 


LC(2) 
GOSUBL 


B=A 
B=B&C 
*BHO 
GOYES 
R=RIC 
DATO=A 
GONC 
KACIO GOSUB 
GOC 
GOSUB 
RTNSC 
XAC20 C=R 
GOSUB 
KAC30 GOSUB 
C=R1 
GOSUB 
GOTO 


=F 1EXAC 
=GTFLAG 


KS 
XS 
XS 
EXAC10 
KS 
KS 
EXAC30 
COMPAF 
EXAC20 
EXAC30 


W 
PUTAF 
PUTOFO 


PUTLST 
PUT LAF 


Get flag nib & mask for FLEXAC 


AND flag nibble with mask 
EXACT flag set? 

Yes 

No, set it. 

Write out new flag nibble 

New adjustnent period. B.E.T. 
Corpute accuracy factor 

Go if reasonable 

Unreasonable. new adj. period. 


Store new AF 
Reset tinofs 
Current tine 
Reset tine of last exact 
Reset tine of last AF ad 


(AGRI ska AKA AAA dS 
UII IOI IIIT IIIT ITI TTT TTT TT IO 


ax 
ak 
xk 
ak 
xk 


ax 
ak 
xk 
xk 
ak 
ak 
ak 


Narie: RESETC - 


Category: 


Purpose: 


TIME 


Clear AF And Exact Flag. 


Clear exact flag and set AF = 0. 


Entry: 
None. 


Exit: 
P=0. 


Carry clear. 
flEXAC has been cleared. 


( TINAF ) 


Calls: 


= 000000. 


PUTAF, SFLAGC (falls through). 
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1202 RA USCS so teas 
1203 ax A,B,C,D,00,01,P. 
1204 ae 
1205 RX Stk lvls: 2 
1206 KK 
1207 ** Algorithn: 
1208 a Clear systen exact flag. 
1209 ae AF := 0. 
1210 ae 
1211 ** History: 
1212 ae 
1213 nx Date Progranner Modification 
1214 RK een neem enn nnn nnn nen nen nnn nnn nnn een ee eee eee eee 
1215 . 06/08/82 = NM Added docunentation 
1 

a 10 IOI OTIC TOO OOS IOS SI TIA IA ISI IM 
1218 $3] SSSI OS OT OS SOS SSO ITS II IIIA 
1219 128F8 =RESETC 
1220 128F8 04 SETHEX 
1221 128FA AF2 C=0 W 
1222 128FD 72FO GOSUB PUTAF Clear accuracy factor 
1223 12901 20 P= 0 
1224 12903 3100 LC(2) =f 1EXAC 
1225 12907 8(00 GOLONG =SFLAGC Clear EXACT flag 
1226 "7 $I IOS IOI OTTO TO SIO SSI ISOS SIS SS IIA 
1227 JIT IIIT III I III II IIIA TOT II TOT III SI SIO IIS IIS IS IIS ISI STII 
1228 x 
1229 ** Wane: (S) SETALM - Set Absolute Alarn Tine 

; 12% =e 

1231 *X Category: TIME 
1232 aA 
1233 ** Purpose: 
1234 a Set detonation tine for any of alarns 1-6. 
1235 aR 
1236 &* Entry: 
1237 ak Alarn tine in A[11-0] (ticks since 1 Jan 0000). 
1238 kx Alarn#-1 (0-5) in C[O]. 
1239 a 
1240 aX Exit: 
1241 xe Through CNPT. 
1242 ae Carry clear. 
1243 ak P=0. 
1244 ke R1 = Current tine (512ths sec since year 0) 
1245 se RO = tiner value corresponding to current tine. 
1246 a 
1247 tk Calls: GETPND, PUTPND, CMPT (falls through). 
1248 a 
1249 ER USES ccs 
1250 aX A,B,C,D,P,D0,01,S0-S11,RO,R1. 
1251 a 
1252 ** $tk lvls: 2 
1253 ax 
1254 ** Algorithn: 


1255 ax Write alarn tine to proper RAM location (ALRM1-ALRNG). 
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1256 ak Clear proper bit (0-5) 1n PNDALN. 
1257 RX Fall through to CPT. 
1258 aX 
1259 ** History: 
1260 x 
1261 ax Date Progranner Modification 
1262 RX www enn tec ee rere terrence ren reece ne ene ene n nnn ene 
1263 xx 06/09/82 NM Added docunentation 
ae 
ee SUIS III III III ISO I I TTR IR EE 
1266 JEDIT III IIIT IIS IO IU TO TIT 
1267 12900 04 =SETALM SETHEX 
1268 1290F 7F30 GOSUB PUTALN Store this alarn 
1269 12913 GESC GOTO 38 CNPT Read tine and update 
1270 JORIS TOT TT RTT TOK 
1271 JOS OCI COG ICO CO TOR 
1272 zx 
1273 ** Nane:(S) SETALR - Set Alarn Relative To Current Tine 
1274 ak 
1275 ** Category: TINE 
1276 a 
1277 ** Purpose: 
1278 x Set alarn tine relative to current tine. 
1279 a 
1280 ** Entry: 
1281 x A{11-0] = Interval (512ths sec) 
1282 ak C(O] = Alarn#-1 
1283 am 
1284 EX EMit! 
1285 x Through CLKUPD. 
1286 as Carry clear. 
1287 ak P=0, 
1288 ae R1 = current tine (5i2ths sec since year 0). 
1289 ae RO = tiner value corresponding to current tine. 
12% ax 
294 ** ‘Calls: CMPT, SETALN (falls through). 
1292 ae 
1293 RA Uses....... 
1294 am A,B,C,D,P,00,01,RO,R1,R3, SO-S11. 
1295 te 
1296 ** Stk lvls: 2 
1297 aS 
1298 ** Algorithn: 
1299 aR Add interval to current tine. 
1300 RA Wrap around end-of-tine. 
1301 + Write out new alarn tine to appropriate slot. 
1302 as Update clock. 
1303 ee 
1304 RX History: 
1305 a 
1306 as Date Progranner Modification 
1307 RR wee en nnn renee nnn ne ren nen nnn nnn nnn nnn een nee 
1308 06/09/82 NN Added docunentation 
1309 = 


1310 


SOIR ROOT OI TOI II OIG tor 
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1311 este see tte tests test eset tessetettetetettteteetttetetectesite tte’ 
1312 12917 816 =SETALR CSRC Alarn# to C{S] 

1313 1291A ACA A=C $ 
1314 1291D 103 R3=A Save alarm information 
1315 12920 7E8C COSUB = CMPT Coripute current tine 
1316 12924 113 A=R3 Recall alarn information 
1317 12927 2€ P= 14 
1318 12929 AIA A=R+C WP Corpute alarn tine 
1319 1292C ACE ACEX § 
1320 1292F AC? SETAIO D=C S Stash alarri# 
1321 12932 70DE GOSUB LC9999 Load end-of-tine 
1322 12936 70A3 GOSUB idiv Compute MOD. 
1323 1293A AF4 A=B W (alarn tine) nod (end-of-tine) 
1324 1293D 97C 7AHO OW New alarn tine=0? 
1325 12940 40 GOYES SETA2O No 
1326 12942 £4 A=R+1 A Intentional change so not ignore 
1327 12944 ACB SETA2 C=) $ Recover alarn# 
1328 12947 812 CSLC Alarn#-1 to C[0] 
1329 1294A 7400 GOSUB PUTALN Set alarn 
1330 1294E 617D GOTO  CLKUPD Update tine systen 
1331 JORIS EOI SIO ISOC CTO ITE 
1332 JIG III IOC IS OTITIS OTIS TT TTA SIAL 
1333 kx 
1334 a Nane: PUTALM - Store Alarn In Requested Alarn# 
1335 
1336 *k Category: TINE 
1337 ae 
1338 ** Purpose: 
1339 ax Store alarn in slot for requested alarrn#. Also clear 
1340 a pending alarn bit for requested alarnt#. 
1341 2 
1342 xx Entry: 
1343 KK C(O] = Alarn#-1. 
1344 a A[ 11-0] = Alarn tine to store. 
1345 xe 
1346 ak Exit: 
134? x Carry clear: New alarn tine has been stored for 
1348 ae requested alarn#. Pending alarn bit has been 
1349 ak cleared. 
1350 ze Carry set: Requested illegal alarn#. 
1351 ax P=0, 
1362 = 
1353 kk Calls: GETPND, PUTPND. 
1354 ax 
1355 M® US6Si5 5 acc 
1356 ae B[AJ,C(A},P,01. 
1357 aS 
1358 AX Stk lvls: 1 
1359 a 
1360 *k History: 
1361 xx 
1362 xk Date Progranner Modification 
1363 ee 
1364 xk 07/15/82 NM Extracted fron other routines 
ae 


1365 


Saturn Assenbler 


1366 
1367 
1368 
1369 
1370 
1371 


1372 
1373 
1374 
1375 
1376 
137? 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 


12952 
12954 
12956 
12958 


1295F 
12962 
12965 
12968 
1296A 
1296D 
1296F 
12973 
12976 
12978 
1297 
12980 
12982 
12986 


20 
D1 
2.) 
1F91 
7F2 
ROE 
4Co 
17B 
CS 
54F 
02 
3102 
9E4 
00 
1598 
7080 
FD 
OEFS 
62C0 
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SOI IIT TIO TTI TTT TIE 
FOI TIC OTT OTTO TOTO TT TTT 


=PUTALN 


PUTRIO 


PUTA20 


P= 0 
B=0 A 
B=B+1 A 
01=(5) =ALRMN1 


C=C-1 P 

GOC PUTA2O 
D1=01+ 12 
B=B+B A 

GONC PUTAIO 
RTNSC 

LCHEX 20 
BoC OB 
RTNYES 

DATI=A 12 
GOSUB GETPND 
B=-B-1 A 
C=C&B OA 

GOTO  PUTPND 


For locating this alarm bit 


Loop to locate desired alarn 
Go if found 

Point to next alarm 
Shift bit for bitnap 
B.E.T. if alarn#<8 
Return if illegal alarri# 
Max allowable alarn bit 
Legal alarn #? 

No 

Write out alarn tine 

Get PNDALN bitnap 

Zero bit for this alarn 
Clear pending bit 
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1386 STITLE Store and Recall routines 
1387 FOR ROR IO ROJO TOIT TO ITT IO 
1388 IIT III IRI RI III II III SSIS ISI IID SID IIIS IIIT ISIS III IIIA IIT I SII III IN 
1389 ae 
1390 ** Narie: GETOFS - Read TIMOFS Fron RAM 
1391 le 
1392 4% Category: LOCAL 
1393 aR 
1394 ** Purpose: 
1395 aR Read TINOFS fron RAN. 
1396 ak 
1397 at Entry: 
1398 ak HEX node. 
1399 aR 
1400 Rk Exit: 
1404 ah C = (TINOFS). 
1402 xR P=11. 
1403 aK Carry set iff quantity negative. 
1404 aK 
1405 ** Calls: None. 
1406 RE 
1407 ak Uses....... 
1408 ak C,P,01 
1409 x 
1410 Xt Stk lvls: 0 
1411 kk 
1412 ** Detail: 
1413 ak TIMOFS = Accunulated error anount for AF computation 
1414 ae (48-bit 2’s-conplenent integer, 
1415 ay range = [ -8710.53 , 8710.53 ] years). 
1416 ae 
1417 ** History: 
1418 a 
1419 xt Date Progranmer Modification 
1420 RK wane nnn eee e ener n teen ne nnn ne ne nnn nnn nnn nnn nnn nee n ne 
1421 *% 06/09/82 NN Added docunentation 
xk 
i FORO TOI TUTTO TOTO OR TOTO 
1424 JO III II TI TTT TT II TIT OI TTT IIIT ITI IOS IIIT I IIT III IAT I IK 
1425 1298A 1F36 GETOFS D1=(5) =TINOFS 


7F2 
1426 12991 AF2 
142? 12994 15FB 
1428 12998 80DB 
1429 1299C 80FF 
1430 129RO0 2B 
1431 129A2 6FHX 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 


C=0 W 
=DAT1 12 
P=C 11 
CPEX 15 
P= 11 
GOTO  GETAIO Else do sign extend 


FOI ITO ITO TUTTI IO TOOK 
FOUR IO RII RII IOI IO II 
xk 


xk Narie: PUTOFS - Store TINOFS Into RAN 
aa 


*% Category: LOCAL 
te 


*k Purpose: 
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1440 ak Store neu value of (TIMNOFS) -- error accunulator. 
1441 xk 
1442 ak Entry: 
1443 ak C = new value. 
1444 xx 
1445 xX Exit: 
1446 aa Value has been stored in (TINOFS). 
1447 aR Carry clear. 
1448 ax 
1449 *k Calls: None. 
1450 ae 
1451 aK Uses....... 
1452 x . D1. 
1453 ak 
1454 xk Stk lvls: 0 
1455 ak 
1456 ** Detail: 
1457 as Inverse of GETOFS. 
1458 x 
1459 ** History: 
1460 an 
1461 ae Date Progranner Modification 
1462 oS 
1463 . 06/09/82 NM Added docunentation 
* 
face JOIOI II IO OIG IOI IOI SOTO OI IO I IR 
1466 JOIST III GIS OIG ITO ICU OCI III 
1467 129R6 AF2 PUTOFO C=0 W 
1468 129A9 1F36 PUTOFS D1=(5) =TIMOFS 
7F2 

1469 129B0 6070 GOTO PUTLI2 
1470 JOO III III SOIC IIIS ITI TOTO IO TI 
1471 JOIUII III III III I ICO III 
1472 ta 
1473 ** Narie: GETIRQ - Read NXTIRQ Fron RAN. 
1474 xx 
1475 ** Category: LOCAL 
1476 ak 
1477 *% Purpose: 
1478 Kx Read NXTIRQ from RAN. 
1479 an NXTIRQ 1s the tine of next wakeup (512ths sec). 
1480 ais (48-bit unsigned integer. Range=[ 0 , 17421] years). 
1481 xk 
1482 ** Entry: 
1483 xx HEX node. 
1484 xs 
1485 AS burt: 
1486 aK C = (NXTIRQ). 
148? xe P=11. 
1488 ak 
1489 *% Calls: None. 
1490 kk 
1491 kk Uses....... 
1492 xe C,P,01. 

Kk 


1493 
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1494 ke Stk lvls: 0 
1495 aK 
1496 ** History: 
1497 aR 
1498 ak Date Progranner Modification 
1499 Ee ee ee as 
1500 *k 06/09/82 NM Added docunentation 
tk 
io JOO UO IK 
1503 JOISTS SOOO ISO IIIT TTT TE 
1504 12984 1FDO GETIRQ D1=(5) =NXTIRQ 
7F2 

1505 123BB 6B40 GOTO GETLI2 
1506 XO UICC OOK 
1507 JU OCICS OOK 
1508 aR 
1509 xk Narie: PUTIRQ - Wrate NXTIRQ To RAN. 
1510 ak 
1511 ** Category: LOCAL 
1512 ak 
1513 ** Purpose: 
1514 aK Write new value of (NXTIRQ). 
1515 aR 
1516 *k Entry: 
151? aR C[11-0] = new value. 
1518 ak 
1519 aK Exit: 
1520 aK Value has been written to (NXTIRQ). 
1521 lg Carry clear. 
1522 ak 
1523 ak Calls: None. 
1524 an 
1525 RK Uses....ees 
1526 ak D1. 
1527 aK 
1§28 RK Stk lvls: 0 
1529 ak 
1530 ** History: 
1531 ak 
1532 tk “Date Progranrier Modification 
1533 RR nnn nnn nnn nee ne ne nn nn nn nnn nnn nnn enn nen nn nnn nee 
1534 kk 06/09/82 NM Added docunentation 

3 kk 
ae JOO GO IOC IOK 
1537 JU IOI COCO OR ETE 
1538 129BF 1FDO PUTIRQ D1=(5) =NXTIRQ 

7F2 

1539 129C6 6A50 GOTO PUTLI2 
1540 JU III I OOOO IO OI IK 
1541 JOGO IO CO TIT 
1542 ak 
1543 ** Narie: GETAF - Read Adjustment Factor Fron RAN 
1544 ak 
1545 


1546 


** Category: LOCAL 
ak 
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1547 ** Purpose: 
1548 RR Read AF fron RAN. 
1549 ak 
1550 &* Entry: 
1551 BK HEX mode. 
1552 aE 
1553 AX Exit: 
1554 x C = (TIMAF), sign extended to full word. 
1555 an Carry set iff negative. 
1556 ax 
1557 ** Calls: None. 
1558 x 
1559 RE SBS i ieee 
1560 aK D1,C 
1561 ak 
1562 *k Stk lvls: 0 
1563 ak 
1564 al 
1565 ** Detail: 
1566 ak Adjustment factor = Hticks to wait before adding a tick 
1567 A (24-bit 2’s conplenent integer). 
1568 aK Positive AF corrects a slow clock; 
1569 AS Negative AF corrects a fast clock. 
1570 AK 
1571 kk History: 
1572 xe 
1573 aR Date Progranner Modification 
1574 AR: deeccnse. “meensasens >) So ssiyshsd tees teen neeacdyeeesenee 
1575 *x 06/10/82 NM Added Docunentation 

ch 
ae JO OT TTI IT IIIS III III IAI IDI II II SII III III IIA 
1578 JOIST IIIS TI III III IOS ISI III IIIS III III III II IN 
1579 129CA 1F78 GETAF 01=(5) =TIMAF 

7F2 

1580 12901 AF2 C=0 W 
1581 12904 15F5 C=DATi 6 Accuracy factor (secs/sec) 
1582 12908 8005 P=C 5 
1583 129DC 80FF CPEX 15 Copy sign nib to nib 15 
1584 129E0 25 P= 5 
1585 129E2 A46 =60GETAIO C=C+C S 
1586 129E5 AC2 C=0 S 
158? 129£E8 500 GETA20 RTNNC Hibit clear inplies positive 
1588 129EB B3A C=-C WP Perforn sign extend 
1589 129EE BFA C=-C Ww 
1590 129F1 02 RTNSC 
1591 FRITS OI OO OI OOO OOOO OI RIOT 
1592 FOI ROI OOO IOI IOI I OIG IOI ICI 
1593 et 
1594 *% Nane: PUTAF - Store Adjustnent Factor Into RAN 
1595 ak 
1596 ** Category: LOCAL 
1597 = 
1598 ** Purpose: 
1599 am Store AF into RAN. 

ae 


1600 
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1601 ek Entry: 
1602 a C(5-0) = AF. 
1603 ak 
1604 ERS EXIT: 
1605 ae Carry unaffected 
1606 ae 
1607 ** Calls: None. 
1608 aS 
1609 ** Uses....... 
1610 x D1. 
1611 aK 
1612 ** Stk lvls: 0 
1613 i 
1614 *X History: 
1615 kK 
1616 kk Date Progranner Nodification 
1617 BK anne enna meee nee tee eee ne een eee een ee nen nee 
1618 *& 06/10/82 NM Added docunentation 

kk 
ae $0 IOI UII GUO UOC CO OCI SIT III 
1621 JG IIIS OG IEICE II IIT 
1622 129F3 1F78 PUTAF Di=(5) =TIMAF 

7F2 
1623 129FA 1505 DAT1=C 6 
1624 129FE 01 RTN 
1625 JI IIIA OSI ISIS TI IOS IO TIS SII TIA TS 
1626 $I III IOI I ITO III I IIIS III III SAI IH 
1627 xm 
1628 ** Narie: GETLAF - Read TIMNLAF From RAN 
1629 an 
1630 ** Category: LOCAL 
1631 ox 
1632 ** Purpose: 
1633 xe Read TINLAF fron RAM. 
4 1634 is TIMLAF is the tine of last AF adjustnent 

1635 x (48-bit integer, usually unsigned). 
1636 x 
1637 ** Entry: 
1638 - HEX node. 
1639 Sx 
1640 AX ER its 
1641 ae C = (TINLAF). 
1642 *% P=11. 
1643 se 
1644 kk Calls: None. 
1645 ae 
1646 BPNSOS i oe cnc 
1647 aX D1,P,C. 
1648 ae 
1649 *k Stk lvls: 0 
1650 ax 
1651 ** History: 
1652 + 
1653 ae Date Prograriner Modification 


1654 Ae Swetiwod. Sagtediteem: Spo teas tevlgts weccete Saute eeceeeas 
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1665 xx 06/10/82 NI Added docunentation 
x 
i SK ITI III ITI III IID I SII IS III I IIIS III ISIS II ISIS ISI IS SIS SIS SSSI SI IK 
1658 III IIT III II III III ATI IIT III III SOIT IIIS III III II IIIS IIS III II IIIA 
1659 12A00 1FB7 GETLAF D1=(5) =TIMLAF 
7F2 
1660 * 
1661 * Following 1s the cornmon code for the GET routines for 
1662 * retrieving TIMLAF, TIMLST, NXTIRQ. All of these are 48-bit 
1663 : unsigned quantities which can range from 0 to 92F2DI7AFFFF. 
1664 
1665 * Because of the peculiarities of adjustment factors, it 1s 
1666 * possible for TIMLAF actually to be slightly negative under 
1667 * certain circunstances. This code perforns a sign extend 
1668 : only if the high nibble of the requested quantity if F. 
1669 
1670 12RO? AF2 GETLI2 C=0 W 
1671 12ROA 15FB C=DAT1 12 
1672 12ROE 2B P= 11 
1673 12A10 B06 C=C+1 P 
1674 12A13 AOE C=C-1 P Set carry if C[11]=F 
1675 12A16 61DF GOTO GETA20 Do conditional sign extend 
1676 JUSSI SIU IIIT ISI ITO ICI TOT TIT TTI II IH 
1677 JOIGI III OIG TOSS GOOG ITO TOT IE TTT ITI TIS 
1678 ax 
1679 &* Nane: PUTLAF - Store TIMLAF In RAN 
1680 as 
1681 *k Category: LOCAL 
1682 a 
1683 ** Purpose: 
1684 at Store TIMLAF in RAN. 
1685 xe 
1686 ** Entry: 
1687 ae C[11-0] = new value to store. 
1688 bs 
1689 RE EMIL: 
1690 xx Value has been stored in TIMLAF. 
1691 ax Carry clear. 
1692 oe 
1693 ** Calls: None. 
1694 a 
1695 APUG OS iu ikts 
1696 Rx D1. 
169? a 
1698 ** Stk lvls: 0 
1699 aa 
1700 ** History: 
1701 + 
1702 ah Date Progranner Modification 
1703 aaa aaa aaa acta otal! 
1704 ek 06/11/82 NM Added docunentation 
1705 a 
1706 JOO IE ITU OO III I OI IT TIT TAT IIIT 
170? FORT OOIOO I O OIOI I OIOT 


1708 12A1A 1FB? PUTLAF D1=(5) =TIMLAF 
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7F2 

1709 12A21 15DB PUTLI2 DATI=C 12 
1710 12A25 03 RT NCC 
4711 JODO UII OI TO TIT 
1712 JO III ISOO IOI ICU TTT RTE ITE 
1713 wk 
1714 kk Nane: GETLST - Read TIMLST Fron RAN 
1715 a 
1716 ** Category: LOCAL 
1717 a 
1718 ** Purpose: 
1719 aa Read (TINLST) fron RAN. 
1720 ax (TIMLST) is tane of last exact. 
1724 ak 
1722 ** Entry: 
1723 ak None. 
1724 aK 
1725 KK Exit: 
1726 KK C=(TIMLST). 
1727 Kx P=41. 
1728 KK 
1729 kk Calls: None. 
17H” a 
1731 KK Uses....... 
1732 Kx 01,P,C. 
1733 Kx 
1734 ** Stk lvls: 0 
1735 ax 
1736 **k History: 
1737 xx 
1738 = Date Progranner Modification 
1739 ooo 
1740 Kk 06/11/82 NM Added docunentation 

ak 
rap JOGO IGG IO GIO CIO I CIC OO TOT 
1743 JOO IOI OIG OI I OGIO TOT 
1744 12A27 1FF6 GETLST 01=(5) =TINLST 

7F2 

1745 12A2E 68DF GOTO GETLI2 
1746 JORG IIIS OO GSCI IOC CII IIE 
1747 JOU UO TOI II ITO II IIT ITI ITE TIT 
1748 KR 
1749 kx Nane: PUTLST - Store TINLST In RAN 
1750 Kx 
1751 ** Category: LOCAL 
1752 aa 
1753 ** Purpose: 
1754 ak Store TIMLST into RAM. 
1755 xe 
1756 **k Entry: 
175? kk C = new value to store. 
1758 & 
1759 Ke Exits 
1760 xx Value has been stored in TINLST. 

ak 


1764 
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1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
17277 


1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
128? 
1788 
1789 
179% 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
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x* Calls: None. 

kk 

AMUSES 34h gates 

ax D1, 

kk 

** Stk lvis: 0 

ka 

** History: 

kk 

kx Date Progranner Modification 

BA eieestos, eecoeeses: imeetecosse oh eons 

*K 06/11/82 NM Added docunentation 

ik 

JOIST OOO IOI OG III SE TIE 

JORIS IOI ISI OGIO IIT IR 
12A32 1FF6 PUTLST D1=(5) =TIMLST 

7F2 

12A39 67EF GOTO PUTLI2 

JOS TOI OI III IIIT RT ITI TE 

JOC OI TTC ITT TTT IE 

kk 

** Nane: GETPND - Read PNDALN Fron RAN 

kk 

**k Category: LOCAL 

ke 

** Purpose: 

ae Read PNDALN fron RAN, 

Ka 

** Entry: 

eee None. 

tok 

Be EMAILS 

ae C[B) = (PNOALN). 

A Carry Clear. 

re 

** Calls: None. 

ka 

BE USGS cae saais 

as D1,C(B]. 

xk 

** Stk lvls: 0 

&k 

** Detail: 

ae PNDALMN 1s bitmap af pending alarns: 

nt Bit 0: Rlarn #1--On tinert#1 

x Bit 1: Alarn #2--On tiner#2 

a Bit 2: Alarn #3--On tiner#3 

as Bit 3: Alarn #4--Tineout 

7 Bit 4: Alarn #5--Pause 

me Bit 5: Alarn #6--External alarn 

as 

** History: 

wk 

xx Date Progranner Modification 

PR cede Rae. Odie oN Nein aos oe tee oe 
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1816 *k 06/11/82 NM Added docunentation 
1817 xk 
1818 JOU OOOO III COI GIOTIT OIC I T TT 
1819 JI TITIOI OOS IEICE TIE 
1820 12A3D 1F16 GETPND D1=(5) =PNDALN 
7F2 
1821 12R44 14F C=DAT1 B 
1822 12R47 03 RTNCC 


1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 12A49 1F16 
7F2 

1856 12A50 14D 

186? 12A53 03 


OOO JOJO OOO UO OT IO 
FOO III IO OOOO OE TOTO 
ax 


** Narie: PUTPND - Wrate PNDALM To RAN 


xk 
*% Category:  GENUTL 

kk 

** Purpose: 

xe Write PNDALN to RAN. 

xi 

ak Entry: 

aa C{[B] = nen value to store. 

at 

ae Exit: 

ak (PNDALM) = C[B] on entry. 

ae Carry Clear. 

xk 

kk Calls: None. 

&k 

BE USES. vice. vs 

xk D1. 

ak 

** Stk lvls: 0 

kk 

** History: 

xk 

xk Date Progranner Modification 
Be etwas? Geese eek? Seema aie ue ewe eee ae 
xk 06/11/82 = NM Added docunentation 

xk 


FORO UIT TOTTI IT ITO TIT III IK 
FORO IOI OTT TTT TI TI IC 


=PUTPND 01=(5) =PNDALN 


DATI=C B 
RTNCC 
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1858 STITLE Non-TINE utilities 
1859 12A55 8000 =FLOATA GOVLNG =FLOAT 
1860 “ JOIST ISI OOOO OC TOTO IOI ICTR TT 
1861 JESS SOIC ICO OCI ISOS IGS TIO 
1862 xx 
1863 xx Narie: STDOD1 - Stash DO And D1 In R4. 
1864 a 
1865 ** Category: LOCAL 
1866 ax 
1867 ** Purpose: 
1868 a Save DO and D1 in R4. 
1869 aa 
1870 x* Entry: 
1871 xk None. 
1872 a 
1873 eX Exit: 
1874 as Carry clear. 
1875 aK DO, D1 preserved. 
1876 a R4(9-5]=D1. 
1877 xx R4[14-10]=D0. 
1878 ax 
1879 ** Calls: None. 
1880 xx 
1881 KK Uses.....e. 
1882 ax A,R4. 
1883 ak 
1884 *K Stk lvls: 0 
1885 we 
1886 ** History: 
1887 Ka 
1888 KA Date Progranner Modification 
1889 RR nn nee n ne nnn enn ne ene n nnn nn nn nen nn nnn een nee eee eee 
1890 . 06/11/82 NM Added docunentation 
eas JOO UII OI TOI IGG ISIGISOCISISIGIS ICICI TTT 
1893 JOO II IOI IOUS IOC COGIC CCI IT 
1894 12A5C 132 STDOD1 ADOEX 
1895 12A5F BFO ASL W 
1896 12A62 BFO ASL WW 
1897 12R65 BFO ASL WW 
1898 12AR68 BFO ASL W 
1899 12A6B BFO ASL W 
190 12A6E 133 ADIEX 
1901 12AR71 BFO ASL W 
1%2 12874 BFO ASL W 
1903 12A77 BFO ASL W 
1904 12A7R BFO ASL a) 
1905 12A7D BFO ASL W 
19b 12A80 104 R4=A Stash DO,D1. Fall through... 
1907 SOI OGIO IIS ISI I TILT IK 
1908 FORO RRR OOo OO OOOO OOOO OO OIG OIC I 
1909 at 
1910 ** Narie: RCDOD1 - Restore DO And 01 


1911 


ak 
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1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
193? 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
194? 
1948 
1949 
1950 
1951 
1962 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 


12A83 114 
12A86 BF4 
12A89 BF4 
12A8C BFA 
12A8F BF4 
12R92 BF4 
12R95 133 
12A98 BF4 
12A9B BF4 
12A9E BF4 
12RA1 BF4 
12RR4 BF4 
12AR7 132 
12AAA 03 
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** Category: LOCAL 
ak 
** Purpose: 
x Restore DO and D1 from R4. 
ae 
xk Entry: 
A R4[14-10] = previous DO stored by STDOD1. 
ak R4[9-5] = previous 01 stored by STDOD1. 
ak 
AK Exits 
ax DO = R4[14-10]. 
ak D1 = R4[9-5]. 
a Carry clear. 
a 
** Calls: None. 
a 
RE USES sinensis 
ak A, DO, D1 
ak 
** Stk lvls: 0 
he 
** History: 
aa 
ae Date Progranner Modification 
PRR Ape ee ale ean thee tar eee a ere 
xe 06/11/82 NM Added docunentation 
ih 


FORO TOO OTTO TT TTT TOK 
FO SJR OO TOTTI TOTO TT TOIT TT TIT 
x 


* NOTE: Above code falls into this 
k 


RCDOD1 A=R4 
ASR 
ASR 
ASR 
ASR 
ASR 
ADIEX 
ASR 
ASR 
ASR 
ASR 
ASR 
ADOEX 


TNCC 
JUICES IIGOO ITC I TTT IO TT TTT TK 


FORTIS ITI TOTTI TT TTI RR ITI IN 
ak 
ax 
ak 
xk 
ak 
xk 
kk 


rceeee 


Scereext 


Nane: $101 - Save Scratch Regs In RAN 


Category:  SAVUTL 


Purpose: 
Save RO,R1 in RAN. 
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1967 ak 
1968 ek Entry: 
1969 Ax None. 
1970 ak 
1971 ak Exit: 
1972 a SCRICH[O-15] = RO. 
1973 x SCRICH[16-31] = R1. 
1974 el Carry clear. 
1975 ae 
1976 **k Calls: None. 
1977 a 
1978 PRO USOSy 5 204% 
1979 ak DO,A, SCRICH[O-31). 
1980 ae 
1981 *E Stk lvls: 0 
1982 aK 
1983 *k History: 
1984 ae 
1985 “* Date Progranner Modification 
1986 RK nae n ene wenn nnn nee re nnn enn nen nn enn renner nner een ee 
198? . 06/11/82 NM Added docunentation 
fase JIU IO III IGICO RIGO OCC ECO CIO ICI I I RK 
1990 JU TOTTI IIS OI SI SII AIA 
1991 12AAC 1B10 =STO1 DO=(5) =SCRICH 
SF 2 
1992 12AB3 110 A=RO 
1993 12AB6 1507 DATO=A W 
1994 12ABR 16F DO=DO+ 16 
1995 12ABD 111 A=R1 
1996 12ACO 1507 DATO=A W 
1997 12AC4 03 
1998 JI II IIIA IIIS III IIIT IISISSI ISS IIIIIIS ISS ISIS ISISSI SII IIA 
1999 JI I III IK IIIS IIIS IIIT ISIS SSS SI III III IIS IIIS III III ISI III III IIA 
2000 ka 
2001 ** Narie: RCO1 - Recall Scratch Regs From RAN 
2002 ax 
2003 ** Category:  SAVUTL 
2004 ak 
2005 ** Purpose: 
2006 a Restore RO,R1 from RAM. 
2007 ak 
2008 k* Entry: 
2009 x SCRTCH[O-31] contain RO, R1 saved by S101. 
2010 a None. 
2014 ak 
2012 AX EMILY: 
2013 Ae RO,R1 restored to values in SCRTCH. 
2014 aX P=, 
2015 Carry set. 
2016 a 
2017 ** Calls: None. 
2018 a 
2019 A USES occ evs 
2020 a DO,A,RO,R1,P. 


Saturn Assenbler Clock Systen <831228.1028> Fri Dec 30, 1983 3:51 an 


Ver. 3.39/Rev. 2306 Non-TIME utilities Page 40 
2021 ak 
2022 EX Stk lvls: 0 
2023 aes 
2024 ** History: 
2025 a 
2026 i Date Progranner Modification 
2027 Bk nee n eee nnn enn e ere pene ne nnn nn nn nn nn ne nn nner ene 
2028 ek 06/11/82 NN Added docunentation 
2029 sia 
20% JI IIS IIIT TI II OSS I IIIS SIS ISTO OT ISIS SIS SII III IOS IIIT IAA 
2031 SIRI II III ISI DI III ITI III IIIS III ITT ISOS IOI IT IOS IIS IOS ISIS IIS. 
2032 12AC6 1B10 =RCO1 DO0=(5) =SCRICH 
9F2 
2033 12ACD 1527 A=DATO W 
2034 12AD1 100 RO=A 
2035 12AD4 16F DO=D0+ 16 
2036 12AD7 1527 A=DATO W 
2037 12ADB 101 Ri=A 
2038 12ADE 20 P= 0 
2039 12AEO 02 RTNSC 
2040 JOU IOI OCCT TI TTI IOS IIT ISI T SII TTAK 
2041 JUGS OCICS GIGI ICI TTT II 
2042 ak 
2043 *k Wane: (S) RJUST - Unfloat A Floating-Point Number 
2044 ax 
2045 ** Category: CONVRT 
2046 ax 
2047 ** Purpose: 
2048 x% Unfloat a 12-digit forn floating-point number. 
2049 ak 
2050 *k Entry: 
2051 ae 12-digit floating-point nunber in A 
2052 kx (sign ignored). 
2053 aK 
2054 aX Exit: 
2055 aa Error exit (Inv Arg) if NaN passed. 
2056 Re A{W] = Right- justified decimal integer version of 
2057 aR argurent. 
2058 xx Carry set: Arg was infinity; result=1E16 - 1. 
2059 ak Carry clear: Arg was finite; arg >= 1£16 returned 
2060 a as 1£16 - 1. 
2061 aK DEC node. 
2062 ax P=0, 
2063 a 
2064 ** Calls: None. 
2065 xm 
2066 EE USCS cick esis 
2067 ax A,C,P. 
2068 ax 
2069 ** Stk lvls: 0 
2070 ak 
2071 xx Detail: 
2072 aa Input: 0123000000000002 Output: 00000000000001 23 
2073 a Input: 0123500000000002 Output: 00000000000001 24 


2074 as Input: 0123456789870007 Output: 000000001 2345679 
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2075 aX Input: 0987000000000398 Dutput: 0000000000000000 
2076 a Input: 0987000000000050 Output: 9999999999999999 
2077 
2078 ** History: 

2079 aE 
2080 xx Date Progranner Modification 
2081 REO Seco seca eek etscies 9 ter ceeen elec cece seco eee ess 
2082 &k 06/18/82 NN Added docurientation 
2083 aX 
2084 JIS I III TIT II ITI III III IDI IRI IIIT III III II SII II III II ISAS III II IK 
2085 JOTI TO IIIT I IIR IIIT III II III IIIS IIIT III I IIIS IST TSAI III IA 
2086 12RE2 OS = =RIUST SETDEC 
2087 12RE4 20 P= 0 
2088 12RE6 3200 LCHEX FOO 
F 
2089 12AEB 926 PAHC = XS Inf or nan? 
2090 12AEE 31 GOYES RJUSO?7 No 
2091 12AFO 968 7A=0 OB Yes, inf? 
2092 12AF3 60 GOYES RJUSOS Yes 
2093 12AF5 6052 GOTO TIMERR No. NAN. 
2094 12AF9 AFO RJUSOS A=0 W 
2095 12AFC A7C A=A-1 W Return nines 
2096 12AFF 02 RTNSC And carry set 
2097 12801 3251 RJUSO? LCHEX 515 
5 
2098 12B06 SAE PA>=C XS Exponent negative? 
2099 12809 43 GOYES RJUSZR Yes. return zero. 
2100 12B0B AR2 C=0 XS 
2101 12B0E B32 C=C-A xX 15-exp 
2102 12B11 403 GOC RIUS39 Go 1f overflow 
2103 12B14 ABO A=0 x Clear exponent field 
2104 12B17 BFO ASL W Position nantissa for loop 
2105 12B1A A3E C=C-1 X Mantissa already justified? 
2106 12B1D 401 COC RJUS30 Yes. 
2107 12820 814 RJUSIO ASRC Loop to right-justify mantissa 
2108 12B23 A3E C=C-1 x Right- justified? 
2109 12B26 480 GOC RJUS20 Yes 
2110 12B29 ACO A=0 S No. Get rid of old LSN. 
2111 12B2C 5S3F GONC  RJUS1O BLE. T. 
2112 12B2F A44 = RIUS20 A=AHA S Round LSN. 
2113 12B32 ACO A=0 S Get rid of it. 
2114 12835 50 RTNNC Return if no round up. 
2115 12B38 B74 A=A+1 W Round up RA. 
2116 12B3B 03 RJUS3O RTINCC 
211? x 
2118 12B3D AFO RJUSZR A=0 W 
2119 12840 03 RTNCC 
2120 x 
2121 12B42 AFO RIJUSI9 A=0 W 
2122 12B45 A?7C A=A-1 Ww Return all 9’s 
2123 12848 03 RINCC 
2124 FOR IO IOI OI OOOO OOOO OIG IGT RO 
2125 ORO ROO RIOR RRR JOUR III tk 
2126 


2127 %* Ware: TRUNCC - Truncate 15-digit Result 
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2128 ia 

2129 *k Category:  MTHUTL 

210 is 

2131 ** Purpose: 

2132 ax Truncate a 15-digit nunber into a 12-digit nunber. 

2133 ae No rounding. 

2134 AK 

2135 ** Entry: 

2136 ae 15-forn in A/B. 

2137 ER: DEC rode. 

2138 ah 

2139 Ete 

2140 ae C = 12-forn result. 

2141 ax = 0 if underflow. 

2142 ae = INF if overflow. 

2143 aK DEC node. 

2144 aK P=0, 

2145 KK Carry clear. 

2146 aK 

2147 ** Calls: None. 

2148 ale 

2149 A¥ SOS ince 

2150 ks A,C,P. 

2151 ax 

2152 *K Stk lvls: 0 

2153 = 

2154 ** Algorithn: 

2155 aha If abs(A[A]) <= 499 then C=A W; C=B MN; RTNCC 

2156 aK If 499 < A[A] < 49999 then C=x000000000000F 00 

2157 x (uhere x=A[S]); RINCC 

2158 a C=O W; RTNCC 

2159 7 

2160 kk History: 

2161 ax 

2162 ie Date Progranrer Modification 

2163 a tata ata atatatahateteteetattatetatateteteeeaatanatatel 

2164 xk 05/26/82 = NN Did 

2165 x 

2166 JOIST II II OK ITI TIT IIE IIIT TIT ITT TTA 

2167 PSST eCt ett ettettetetcttetestttresetettttestttteteettersettteces’ 

2168 12B4A 20 =TRUNCC P= 0 

2169 12B4C 3499 LCHEX 00499 
400 

2170 12B53 8BA *Ac=C A 0<=exponent<=499? 

2171 12B56 Bi GOYES TRUN2O Yes 

2172 12B58 FA C=-C A 

2173 12B5A 8BE *A>=C A O>exponent>=-499? 

2174 12B5D 41 GOYES TRUN2O Yes 

2175 12B5F AF2 C-O) OU 

2176 12B62 C4 R=A+A A 

2177 12B64 4A0 GOC TRUN10 Res=0 1f exponent negative 

2178 12B67 3200 LCHEX FOO Res=inf if exponent positive 
F 

2179 12B6C ACE C=A S Copy sign 

2180 12B6F 03 TRUNIO RTNCC 
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2181 12B71 AF6 
2182 12874 RDS 
2183 12B77 03 
2184 

2185 

2186 

2187 

2188 

2189 

21% 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2214 

222 

2213 

2214 

2215 

2216 

2217 

2218 

2219 12B79 AFA 
2220 12B7C AF2 
2221 12B7F 24 
2222 12B81 323A 


é 
2223 12B86 AF? 
2cc4 12B89 01 
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TRUN2O C=A W 
C=8 N 
RTNCC 


FOOT TO ITI TTT IIR TT TI IK 
FORO IIT TO TOTTI 
xx 


kk Nane: ACLC24 - A=C; €,D=24 Hrs In 512ths 

ka 

*k Category: LOCAL 

&k 

** Purpose: 

aK Copy C to A. Set C,D = constant for 24 hours in 
am 512ths. 

kx 

xk Entry: 

KK None. 

kk 

kX Exit: 

xx A=C on entry. 

kx C, D=2A30000. 

kx P=4, 

Kx Carry unaffected. 

kk 

** Calls: None. 

ok 

Kk Uses... .055 

xs A,C,D,P 

ak 

*k Stk lvls: 0 

ak 

** History: 

ks 

xk Date Progranner Nodification 
Oe (cee ee See + ae eee eee lea ea tial 
x 10/04/82 = NM Wrote 

kk 


FOO ITO TOTO OO 
FORO III OOOO III IOI OI OI TI 


ACLE24 A=C W 


C=O 
| 
LCHEX 283 
DC OM 
RTN 
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2225 STITLE BASIC routines 
2996 JIS IOI TIS ISTO TI IAT I TIT ITI RI IT 
2227 FOI RIT IOI JIT OT II JOO 
2228 aK 
2229 x* Narie: TIME - TINE Function Execute. 
2230 aR 
2231 ** Category: FNEXEC 
2232 aR 
2233 *% Purpose: 
2234 x Execute BASIC TIME function. 
2235 aK 
2236 *® Entry: 
2237 x DO = PC (BASIC progran counter). 
2238 ah D1 = Mathstack pointer. 
2239 ak Junped on TIME token. 
2240 aa 
2241 ak Exit: 
2242 ak Through FNRTN1. 
2243 ak 
2244 ** Calls: STDOD1, CMPT, ACLC24, IDIV, HEXDEC, FLOATA, 
2245 ak DV2-12, CLRFRC, TRUNCC, RCDOD1. 
2246 ak 
2247 ® Stk Lyls: 3 
2248 a 
2249 ** Detail: 
2250 ak Result 1s floating-point Hsecs since nidnight rounded 
2251 xe to hundredths of a second. 
2252 i) 
2253 ** Algorithn: 
2254 kk Read tine (CMPT). 
2255 ak Extract tine-of-day in 512ths. 
2256 an Nake result floating-point decinal. 
2257 xe Divide by 5.12. 
2258 xa Truncate to integer. 
2259 ae Divide by 100.0. 
2260 me FNRTN1 exit. 
2261 ak 
2262 ** History: 
2263 x 
2264 kk Date Prograrmer Modification 
2265 RX mewec ene ewer eres eet nent enc n enews nnn en nme ncen ann 
2266 = 06/11/82 = NN Added docunentation 
once JIS III IOI I IIIT IT ITT III IIT ITI III III III IIIS SII OAK 
2269 JIS II OI TOI TI TI II TOTTI TI ISI III III IIIS III IIIS SI IAL 
2270 12B8B 00 NIBHEX 00 No paraneters 
2271 12B8D 7BCE =TIME  GOSUB STDOD1 Stash data pointers 
2272 12891 7D1A GOSUB CNPT Tine in 1/512 secs 
2273 12B95 70EF GOSUB ACLC24 A=C; C,D=24 hours 
2274 12899 7031 GOSUB idiv 
2275 12B9D 7B41 GOSUB HEXDEC To decinal 
2276 12BA1 AFA A=C W 
2277 12BA4 7DRE GOSUB FLOATA Make a floating point 
2278 12BA8 AF2 C=0 W 
2279 12BAB 2C P= 12 
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2280 12BAD 3221 
2281 12BB2 8600 
2282 12BB8 8EOO 


2283 12BBE 788F 
2284 12BC2 A3E 


5 
00 
00 
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LCHEX 512 C=5.12 
GOSUBL =DV2-12 Tine*100 
GOSUBL =CLRFRC Truncate 
GOSUB TRUNCC Cut to 12-digit forn 
C=C-1 xX 
C=C-1 xX Tine 


2285 12BC5 A3E 


2286 12BC8 77BE TINE1O0 GOSUB RCDOD1 


2287 12BCC 8000 


2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2X0 
21 
22 
23 
24 
2905 
26 
27 
28 
29 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
Pe a 
2323 
2324 
2325 
2326 
2327 
2328 
2329 


2330 


00 


ak 
ar 
ax 
ak 
xk 
ax 
ak 
ak 
xk 
ak 
xx 
xk 
ax 
xx 
a 
ak 
xx 
xx 
ak 
ak 
ak 
ax 
xk 
ak 
x 
ak 
ak 
ak 
ax 
xx 
a 
ak 
xk 
ak 
xk 
ak 
aK 
ak 
a 
x 
a 
an 
wt 


GOLONG =FNRTN1 


FORO IO OTIC TT OL 
FOR OI ITO OO IO 


Nate: DATE - DATE Function Execute. 
Category: FNEXEC 
Purpose: 


Execute BASIC DATE function. 


PC. 
Nathstack pointer. 
Junped on DATE token. 


COC 
—_ 
“woot 


Exit: 
Through FNRTN1. 


Calls: STDOD1, CMPTIN, TODT, DAY2JD, FLORTA, RCDOD1. 
Stk Lyls: 3 


Detail: 
Result 1s floating-point integer of the forn YYODD, 
uhere YY = lower 2 digits of year and 
DDD = day# in year (1 - 365 or 366). 


Algorithn: 
Get tine (CMPT). 
Extract day# (TOOT). 
Convert day# to Julian date (DAY2JD). 
Build BCD string of YYDDD (YY is 2 lower digits of yr). 
Float string (FLOATA). 


Exit through FNRIN1. 
History: 
Date Progranner Modification 
06/11/82 NN Added documentation = 


FOOT I III CTO IGT QUOI TOIT. 
SOI TOO JOO ITO OO IOI ISIG SITIOS II OK 
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2331 
2332 
2333 
2334 
2335 
2336 


2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 


128D2 00 


12BD4 748— =DATE 


12BD8 713A 
12BDC 7946 
12BEO AF6 
12BE3 8EE1 
80 
12BE9 FO 
12BEB FO 
12BED FO 
12BEF ABR 
12BF2 7FSE 
12BF6 AFG 
12BF9 GECF 
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Fri Dec ®, 1983 


NIBHEX 00 
GOSUB STDOD1 
GOSUB CMPTIN 


No paraneters 


GOSUB TODT 

C=A W 

GOSUBL DAY2ID Get julian date 
ASL A 

ASL A 

ASL A Shift year 

A=C xX Day-of-year 
GOSUB FLOATA Convert to fp 
C=A W 

GOTO TINE10 


SOOO TORI III TT TTT TTT ITI ITI IK 
SOOO IO TOO TOTO TT TT ITT TTI SIN 


aK 
ak 
ak 
ak 
ax 
kk 
ak 
ak 
aK 
ak 
ak 
ak 
ak 
kk 
xk 
xx 
ak 
ax 
ak 
ak 
ak 
ak 
ax 
ak 
ak 
xk 
xk 
ak 
xk 
ak 
xk 
ak 
ak 
ak 
kx 
xx 
ak 
ak 
xx 


Narie: TIMES - TIMES Function Execute. 
Category: FNEXEC 
Purpose: 


Execute BASIC TIME$ function. 


Entry: 
DO 


D1 Mathstack pointer. 
Jurped on TINE$ token. 


Exit: 
Through EXPR. 


Calls: STD001, CMPTIN, TODT, SECHNS, COLNIZ, RCDODI, 
STRHOR. 

Stk Lyls: 3 

Detail: 


Result is string of format "HH: AM:SS". 


Rigorithn: 
Get tine (CMPTIN). 
Extract tine-of-day (TODT). 
Convert to H,N,S (SECHNS). 
Convert to ASCII and insert colons. 
Write string to math stack. 
Write 8-char string descriptor to math stack. 
Return through EXPR. 


History: 
Date Progranner Modification 
06/11/82 NM Added docunentation 
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2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 


2399 
2400 
2401 
2402 


2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
24 35 
2436 
2437 


12BFD 00 

12BFF 795E 
12C03 760A 
1200? 7E16 
12COB 7346 
12COF 7E40 
12C13 7C6E 
12017 AFS 
12C1A D2 

12C1C 20 


12C1E 3101 — 


12022 8E00 
00 
12028 AF4 
12€2B 1517 
12CerF 1CF 
12032 8C00 
00 


ak 
ak 


=T 


T 


ak 
xk 
xx 
ak 
xk 
ax 
ak 
ak 
ak 
ax 
ak 
ak 
xk 
ak 
ax 
ak 
x 
kk 
xk 
xk 
xk 
ak 
ak 
ak 
ax 
ae 
xx 
kx 
ak 
ak 
ak 
a 
Kk 
ak 
ae 
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JIKTO IK IO II III IIIS III ISTO II ITI ISI II IIIT III TISAI IIT IIS ITI I II AK 
JOO CITI III OO COI TOGO II TI TIT TTI 
NIBHEX 00 No parareters 
IME$ GOSUB STDOD1 Stash datapointers 
GOSUB CMPTIN 
GOSUB TOOT 
GOSUB SECHNMS To hours, mins, secs. 
GOSUB COLNIZ Colon-1ze & ascii-ize 
In$20 GOSUB RCDOD1 Restore datapointers 
B=C W Hold result 
C=0 A 
P= 0 
LCHEX 10 C=00010 


GOSUBL =STRHOR Roon for this result? 


A=B W Yes, Fetch result. 
DAT1=A W Write out string. 
D1=D1- 16 Point back to top of stack. 


GOLONG =EXPR 


FOO IOI III IOI OI ITO TO II TTT TTT IK 
FOO ROI III TI IO TT TT TI 


DATE$ Function Execute. 


Narie: DATES - 


Category: FNEXEC 
Purpose: 
Execute BASIC DATE$ function. 


PC. 
Mathstack pointer. 
Junped on DATES token. 


“wow 


Exit: 
Through EXPR. 


Calls: STDOD1, CNPTIN, TODT, DAYYND, COLNIZ 


Stk Lvls: 3 


Detail: 
Result is string of form "YY/MM/DD". 


Algorithn: 
Get tine (CMPTIN). 
Extract day# (TODT). 
Convert to ¥,4,D (DAYYMD). 
Turn inte ASCII, insert calons (COLNIZ). 
Convert colons into slashes. 
Put result and string descriptor on stack. 
Exit through EXPR. 


History: 
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2438 aK 
2439 ax Date Progranner Modification 
2440 a an ln a FP a ye 
2441 kk 06/11/82 NM Added docunentation 
2442 ae 
2443 FOI IOI JO OOO TI 
2444 FOI ORR JOO OTTO TO TOTTI TT TTT I IOIIOK 
2445 12038 00 NIBHEX 00 
2446 12C3A 7E1E =DATE$S GOSUB STDOD1 Stash datapointers 
2447 12C3E 7BC9 GOSUB  CMPTIN 
2448 12042 7365 GOSUB TODT 
2449 12046 AF6 C=A W Extract day# 
2450 12049 7856 GOSUB = DAYYND To year, Honth, day 
2451 12C4D 7010 GOSUB COLNIZ Colon-ize and ascii-ize 
2452 12C51 2A P= 10 
2453 12(53 31F2 LCHEX 2F Turn ":" into "/" 
2454 12057 24 P= 4 
2455 12059 31F2 LCHEX 2F Ditto 
2456 12C5D 65BF GOTO = ©TIN$20 
2457 FOR ROIO UOIOIIIOITTTO UOTTOIIOK 
2458 FORO ORI ROOT TI OTK 
2459 aK 
2460 . Nane: COLNIZ - Colon-ize And ASCII-ize BCD String 
2461 : 
2462 ** Category: LOCAL 
2463 i 
2464 ** Purpose: 
2465 Ee Create output strings for TINE$, DATE$. Given BCD 
2466 ies digits, converts then to ASCII and inserts ":"s. 
2467 x 
2468 ** Entry: 
2469 i A[B]=AA. (BCD digits) 
2470 ae B[B]=BB. 
2471 eA D[BJ=DD. 
2472 aK 
2473 RX Exit: 
2474 as C = "RA: BB:DD". 
2475 a P=0, 
2476 a Carry set. 
2477 xe 
2478 ** Calls: YNDH10. 
2479 a 
2480 RX USCS wcrc: 
2481 aR C,P. 
2482 a 
2483 ae Stk Ivlst. 1 
2484 Ex 
2485 ** Algorithn: 
2486 % Arrange digits in proper order, with A representing 
2487 ae a 
2488 ax Space out digits to every other digit (C[0],[2], ... 
2489 ne {14}). 
249 e Insert 3’s in odd-nunbered digits (turns digits into 
2491 7 ASCII, turns "A"’s into ":"’s. 
x 


2492 
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2493 *k History: 
2494 ds 
2495 ax Date Prograrnmer Modification 
2496 RK nee nee orn nnn rere rn nen ner rres 
2497 tk 06/11/82 NM Added docunentation 
2498 ae 
2499 JOSIE ICO IOI IIIT ITO STITT I TIS I IIR 
2500) JOIST OOO I ICI TTT III TISAI ITI TITS IIIA ITI I 
2501 12C61 7594 COLNIZ GOSUB YNDH10 C=AABBDD 
2502 12C65 BF2 CSL W 
2503 12C68 BF2 CSL W C=AABBDDOO 
2504 12C6B 25 P= 5 
2505 12C6D B96 CSR WP 
2506 12C70 30A LCHEX A C=AAR: BBDDO 
2507 12C73 22 P= 2 
2508 12075 B96 CSR WP 
2509 12078 30R LCHEX A C=AA: BB: OD 
2510 12C7B 28 P= 8 Prepare to expand into string 
2511 12C7D 303 COLN1O LCHEX 3 Turn nunber in to character 
2512 12080 OD P=P-14 
2513 12082 8% ?P= 0 Done? 
2514 12085 00 RINYES Yes 
2515 12087 BF2 CSL W No, take roon for next iteration 
2516 12C8A B96 CSR WP 
2517 12C8D SFE ONC COLNIO Seed 
2618 JORIS III OIC TI TIE ITO IIIS TAT T IAT IS III 
2619 JOIST ISI I II III SITS SII ISOS TI III IO TI ITT TIS IIH 
2520 kk 
2521 ** Narie: SETTIN - SETTINE Statenent Execute. 
2522 ae 
2523 ** Category:  STEXEC 
2524 ak 
2625 ** Purpose: 
2526 x Execute BASIC SETTIME connand. 
2527 x 
2528 &k Entry: 
2529 a DO = PC. 
2530 a Junped on SETTINE token. 
2531 ax 
2532 xP ERTte 
2533 a Through NXTSTM. 
2534 ax Error exits: 
2535 2 =eIVARG 1f parameter >= 24 hours or < 0. 
2536 aA =eIVARG if string paraneter illegal fornat or nuneric 
253? x paraneter complex. 
2538 = 
2539 ** Detail: 
2540 ey SETTIME <nuneric parn>|<string parn> 
2541 . <nuneric parn> = secs since midnight 
2542 = <string parn> = "HH: NM: SS". 
2543 eA 
2544 ** Algorithn: 
2545 a EXPEXC. 
2546 = Extract tine-of-day fron input (DECTIM). 
254? er Check range. 
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2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 


2562 


2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
esr 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 


2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 


2593 
2594 


120% 
12095 


0000 
0 
0000 
0 
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ae Get day#. 
nn Create tine fron day# and tine-of-day. 
a Set tine. 
= Exit. 
kk 
** History: 
ak 
xk Date Progranner Modification 
PAC. ete - ater cee. * cee eS cone ee beeches 


ek 06/15/82 


ax 


li 


Rdded docunentation 


FOR JOO OI III OI TTT TTR 
FOR OOOO RR ORI IOI I TOE 


12C9A 7AS0 =SETTIN 


12C9E 
12CR2 
12CA5 
12CR8 
12CAA 
12CAD 
12CAF 
12CB3 
12CB6 
12CB8 
12CBB 
12CBE 
1ecc2 
12CC5 
12CC9 
12CCC 
12CCF 
12C02 
12C06 


12CDA 
12CEO 
12CE6 
12CEC 
12CF2 
12CF8 


7201 
406 
97A 
70 
871 
R6 
76CE 
SFE 
16 
102 
114 
7810 
AFB 
7710 
112 
A72 
108 


SETI10 


k 
idiv 
npy 
DECHEX 
HEXDEC 
argsta 

=@xpexc 


x 


REL(5S) 
REL(5) 


GOSUB 
COSUB 
COC 

7C=0 
GOYES 
*ST=4 
GOYES 
GOSUB 
PA >=C 
GOYES 
R2=A 
A=R4 

GOSUB 
C=D 

GOSUB 
R=R2 
C=A+C 
R2=C 
GOSUB 
GOTO 


GOLONG 
GOLONG 
GOLONG 
GOLONG 
GOLONG 
GOLONG 


=FIXDC 
=CLKPRS 


expexc 
DECTIN 
ADJAA1 
W 

SETI10 
1 

ADIAR2 
ACLE24 
W 

ADJAR2 


ldiv 
W 
Hpy 
W 


SETINE 
STMEND 


=IDIV 
=MPY 
=DCHKW 
=HXDCW 
=ARGSTA 
=EXPEXC 


Get tine from input 
Go if error 

Arg = 0? 

Yes. Don’t check for negative. 
Negative? 

Yes. Out of range. 
A=C; C,0=24 hours 
Tine>=24 hours? 

Yes. error. 

Save new tine-of-day 
Get current tine 

Day# in a 

Midnight of day# inc 
Get new tine-of-day 
New tine 


Set new tine 


JOR I RIOR RTI IO IIT III ITI SITS ITS IKI IIIT III ISITE IIIA 
FORO ROJO RRR TOI I ITI 


xk 


xk Nane: 


ADJARA - 


RADJABS Staterient Execute. 
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2595 ae 
2596 **k Category: STEXEC 
2597 xR 
2598 ** Purpose: 
2599 Kx Execute BASIC ADJABS cornmand. Perforrs an absolute 
2600 xx adjust (no accuracy correction) on systen clock. 
2601 ak 
2602 xk Entry: 
2603 aK DX) = PC. 
2604 xm Juriped on ADJABS token. 
2605 aK 
2606 ek Exit: 
2607 aK Through NXTSTM. 
2608 kx =eIVARG if conplex nuneric parn or bad fornat string 
2609 wm parr. 
2610 xx =eIVARG if abs(arg) >= 100 hours. 
2611 kk 
2612 ** Detail: 
2613 kk ADJABS <nuneric paraneter>|<string paraneter> 
2614 Ke <nuneric paraneter> is # seconds to adjust (+ or -) 
2615 ze <string parn> is of form “HH: AM:SS" or "-HH: MN: SS". 
2616 ik 
2617 ** Algorithm: 
2618 aK EXPEXC. 
2619 ax Decode tine fron input. 
2620 xn Error if correction >= 100 hours + or -. 
2621 xR Add or subtract to/fron current tine based on sign. 
2622 aR Perforn adjust (ADJA). 
2623 ax Exit. 
2624 ak 
2625 ** History: 
2626 ae 
2627 kk Date Progranner Modification 
2628 aaa aaa taitaatetaata tattle ateeceteeeatatatatataieiataeiaaanel 
2629 *& 06/15/82 NM Added docunentation 
2630 ae 
2631 JORIS III IIIT I IOS IO IIE TI AE 
2632 JOU TOO IOI IEICE 
2633 12CFE 0000 REL(S) =FIXDC 
0 
2634 12003 0000 REL(5) =CLKPRS 
0 
2635 12008 7CEF =ADIAAR GOSUB expexc 
2636 12D0C 7451 GOSUB DECTIN Decode tine fron input 
263? 12D10 453 ADIJAAI COC TIMERR 
2638 12013 7730 GOSUB ADSUBT Add or subtract correction 
2639 12017 462 ADJAA GOC TIMERR 
2640 12D1A 7C7B GOSUB ADJA Reply 
2641 12DIE 67A0 GOTO STNEND 
2642 JOU III IO IESE GUO OI TTI IE 
2643 FOI OOO RIO IO OO IO IOI 
2644 at 
2645 ** Nane: ADJNNN - ADJUST Staternent Execute. 
2646 a 
2647 ** Category:  STEXEC 
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2648 ia 

2649 xk Purpose: 

2650 se Execute BASIC ADJUST command. 

2651 aR 

2652 ** Entry: 

2653 an DO = PC. 

2654 ae Jurnped on ADJUST token. 

2655 ae 

2656 RR ERit: 

2657 4A Through NXTSTM. 

2658 aK Error exits: 

2659 ak =eIVARG if complex nuneric parn or bad fornat string 

2660 aR parn. 

2661 xn =eIVARG if abs(arg) >= 100 hours. 

2662 ak 

2663 ** Detail: 

2664 aR ADJUST <nuneric paraneter>|<string paraneter> 

2665 a <numeric paraneter> is # seconds to adjust (+ or -) 

2666 ak <string parn> is of forn "HH: AM:SS" or "-HH: MM: SS". 

2667 ak Perforns a nornal adjust (With accuracy correction) 

2668 aR on systen clock. 

2669 ais: 

2670 ** Algorithn: 

2671 ak EXPEXC. 

2672 ak Decode tine fron input. 

2673 -* Add or subtract to/from current tine based on sign. 

2674 Ae Error if correction >= 100 hours + or -. 

2675 a Perforn adjust (ADIN). 

2676 ax Exit. 

2677 aR 

2678 ** History: 

2679 a 

2680 ak Date Progratiner Modification 

2681 RR ww nnn ne eww ewer ee teen emn nme renee een nce nee e nen eee eee 

2682 xx 06/15/82 NM Added docunentation 

2683 = 

2684 RIKI II III IID IT IDI II IIIT ISIS IIIT III III III ISIS ISAT IIIS IISA III IA 

2685 SII KIKI AI IIIT IIT IS IDI ISI ASIII ISI III III II II III III ITI ISI III IAT IIH 

2686 12022 0000 REL(5) =FIXDC 

0 
2687 12027 0000 REL(5) =CLKPRS 
0 

2688 12D2C 78CF =ADINNN GOSUB expexc 

2689 12030 7031 GOSUB DECTIN 

2690 12034 411 GOC TIMERR 

2691 12037 7310 GOSUB ADSUBT 

2692 12D03B 4A0 GOC TIMERR 

2693 12D3E 73ER GOSUB ADJN 

2694 12042 6380 GOTO  STMEND 

2695 JOTI IIT ISI TIT TIT TT TTI TITAS IIIS IIIT III III I IIT I III IIR TAI IAS 

2696 *X TIMERR: Error exit with =eIVARG. 

2697 IK II IIIT IIIT IIIS III ISIS II III II III IE III IIIT III I III III ITI TAI ITA 

2698 12046 20 TIMERR P= 0 

2699 12048 8C00 =Invarg GOLONG =ARGERR 


ve 
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2700 JIC III IOS TOI RIT TTT IK 

2701 JUICE OK RTT 

2702 xx 

2703 ** Narie: ADSUBT - Add Or Subtract Tine Correction 

2704 kx 

2705 ** Category: LOCAL 

2706 a 

2707 ** Purpose: 

2708 an Add or subtract correction to current tine based on 

2709 aS +/- flag. Used to apply correction being requested 

2710 aa in ADJUST and ADJABS statenents. 

27i1 x 

2712 aK Entry: 

2713 ax Output of DECTIM (assuring no error): 

2714 ax C = ABS(Correction ariount) (HEX ticks). 

2715 a R1 = Current tine. 

2716 ax RO =Tiner value in RO (not used here). 

2717 ah SO = 0 for positive correction, 

2718 = 1 for negative correction. 

2719 a 

2720 aK Exit: 

2721 aK Carry set: correction >= 100 hours (failure). 

2722 a Carry clear: R2 = corrected tine. 

2723 ae (ready to call ADJA or ADIN). 

2724 ae 

2725 x Calls: LC9999, 

2726 aK 

2727 Kk Uses......- 

2728 aa A,C,P,R2. 

2729 x 

2730 AK Stk lvls: 1 

2731 aK 

2732 ** Algorithn: 

2733 - Compare to 100 hours. RINC if too big. 

2734 ae If SO = 1 then add to current tire; else subtract fron 

2735 ak current tine. 

2736 xe Result to R2. 

2737 aE Return. 

2738 aR 

2733 ** History: 

2740 a 

2741 aR Date Prograriner Modification 

2742 ae 

2743 ae 06/15/82 NIM Added docunentation 

9 rs 

aie SIR IORROTO ROR TO TOO OI ROO GIO ot 

2746 OO ROJO oto OOOO BOI IOI oO GIO IO IOI HO oir 

2747 12D4E AFAR ADSUBT A=C W 

2748 12051 AF2 C=0 W 

2749 12054 23 P= 3 

2750 12056 338C LCHEX AFC8 100 hours (halfway to an... 

FA 

2751 1205C SFE 7A>=C OW instrunent rating) 

2752 12D5F 00 RTNYES Go if arg too big 

2753 12061 119 C=R1 Current tine 
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2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
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12064 A7A A=C+A W Add correction 
12067 861 ?ST=0 1 Positive correction? 
12D6A EO GOYES ADSUB1 Yes 
12D6C BF8 A=-A OW A=-(correctiont+tine) 
12D6F AA A=A+C Wl R=-correction 
12D72 AZA A=A+C OW A=tine-correction 
12075 471 GOC ADSUB3 Corrected tine is valid (>=0) 
12D78 7A8A ADSUB1 GOSUB 1C9999 End-of-tinme 
12D7C 5D0 GONC ADSUB2 Go 1f negative correction 
12D7F SF2 7AKC OW Tine < end-of-tine? 
12082 BO GOYES ADSUB3 Yes. Corrected tine 1s valid. 
12084 B7R A=A-C OW No. Wrap around end-of-tinre 
12087 B7A A=A-C W Corpensate for following add 
12D8R A7R ADSUB2 A=A+C W Wrap neg correction around zero 
12D8D 102 ADSUB3 R2=A 
12090 03 RTNCC 
SII I ITI SII ITT II ITI IIS IIS ISI SST IIIS ISS III III STS SSSI IIIS III IK 
JORIS IOI III OTS TTT ISIS AT SSI SSS ITH 
ke 
. Natte: SETDAT - SETDATE Statenent Execute 
x 
- Category: STEXEC 
* 
** Purpose: 
a Execute BASIC SETDATE connand. 
AX Entry: 
ax DO = PC. 
4 Junped on SETDATE token. 
aX Exit: 
ah Through NXTSTM. 
hs Error exit: 
ae =eIVARG if illegal date, complex arg, or bad fornat 
ne string arg. 
kh 
** Detail: 
a SETDATE <nuneric parn>|<string parn> . 
ae <nuneric parn> is Julian date of fornat: 
ak YYDDD or YYYYDDD. 
ax <string parn> is date of fornat: 
ak "¥¥/NM/DD" or "YYYY/MN/DD". 
ak 
** Algorithn: 
aR EXPEXC. 
aK Decode date string from input (DECDAT). 
7 Convert date to tine-at-nidnight-of-date (multiply by 
ak 24 hours worth of ticks). 
ak Extract tine-of-day fron current tine. 
a Conbine tine-of-day with tine-at-nidnight-of-date for 
aX new tite. 
7 Perforn absolute adjust. 
is Exit. 
kk 
kx History: 
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2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 


2817 


2818 
2819 
2820 
28214 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
28 30 


2831 
2832 
2833 
28 34 
2835 
28 36 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2854 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 


12092 0000 
0 
12097 0000 
0 
12D9C 785F 
12DAO 7222 
12DA4 41A 
12DA7 7ECD 
12DAB 713F 
12DAF AFF 
12DB2 111 
120B5 712F 
12DB9 AFB 
12DBC A793 
12DBF 10A 
12bC2 740A 
12DC6 8000 
00 


ak 
xk 
ak 
xx 
ak 
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Nodification 


Added docunentation 


Nit 


FORO I III II TOO ITT OTT TI 
FOI RII TOO OTTO TTT TK 


=SETDAT 


=STMEND GOLONG 


REL(5) 
REL(5) 


GOSUB 
GOSUB 
GOC 
GOSUB 
GOSUB 
CDEX 
R=R1 
GOSUB 
C=0 
C=B+C 
R2=C 
GOSUB 


=FIXDC 

=CLKPRS 

expexc 

DECDAT Get day# from input 

TINERR 

ACLE24 A=C; C,0=24 hours 

py Midnight of neu date 

W Swap mith 24 hr constant 
Current tine 

idiv Extract tine-of-day 

W 

W Add to date 

ADJA Perforn abs adjust 

=NEXTst To NXTSTM 


SOR IO TOTTI TTI IO 
FORO OTTO TOO ITO I 


xk 
xk 
ak 
ak 
kk 


Nane: EXACTT - EXACT Staternent Execute 
Category: STEXEC 
Purpose: 
Execute BASIC EXACT command. 
Entry: 
DO = PC. 
Junped on EXACT token. 
Exit: 
Through NXTSTH. 
Error exit: 
=eAF if EXACT results in illegal accuracy factor. 
Detail: 
EXACT. 
Begins a new adjustnent period. If exact has been 
executed before, attenpts to conpute an adjustnent 
factor based on corrections applied since last exact. 
If adjustnent factor is legal (>10 or <-10), stores in 
proper place in RAM, else gives error message and does 
not change AF. 


Algorithn: 
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i 2861 aK Call EXACT. 
2862 BS Exit. 
2863 ax 
2864 ** History: 
2865 ak 
2866 ae Date Progranner Modification 
2867 BR wenn nen eee n nnn n ee re nn enn ne ree ne oe renee een nee ee 
2868 kk 06/15/82 NN Added docunentation 
2869 KX 
2870 SUIT OOOO TOC OTITIS I OTITIS III 
2871 $I III OI OI III IIIS SSI TI ISI IIS IIS IIS IIIT I IOS SII I IIIA 
2872 12DCC 0000 REL(S) =STOPDC 
0 
2873 12DD1 0000 REL(S) =RTNCC 
0 
2874 12DD6 760A =EXACTT GOSUB EXACT 
2875 12DDA SBE GONC  STMEND Go if successful 
2876 12D0D 20 BADAF P= 0 
2877 12DDF 3100 LC(2) =eAF 
2878 12DE3 8C00 GOLONG =MfErr 
, 2879 me JOO IDOI IIIS III OCC IOC TOSS III I I IOI 
2880 JU] OO IO IO TICS IS IIIT TO IIS TOSI IO IIIS EI III IIIA 
2881 ak 
2882 ** Nare: AF - Return AF To Result Stack 
2883 a 
2884 *% Category: FNEXEC 
2885 ax 
2886 ** Purpose: 
2887 sas Execute BASIC AF function. 
2888 ae 
2889 &k Entry: 
28% ax DO = PC. 
2891 a D1 = Mathstack pointer. 
2892 ae Jumped on AF token. 
2893 kk 
2894 RX Exit: 
2895 ~ Through FNRTN1. 
2896 Bx Error exit: 
2897 aK eIVARG if request illegal AF. 
2898 ai 
2899 kk Calls: CHKAF, DECHEX, FLOATA, GETAF, HEXDEC, PUTAF, 
2900 7 PUTLAF, PUTLST, PUTOFO, RJUST, SOCNEG, STDOD1, 
2901 ke argsta, cnpt. 
2902 i 
2903 ** Detail: 
2904 kx AF[ (new AF )} 
2905 ak Stores new AF if paraneter supplied. 
2906 Ae 
2907 ** History: 
2908 ak 
2909 r* Date Progranner Modification 
2910 RK mewn ere comer renee reer r ner crn nen rrr cence rccnrtee 
2911 ek 06/11/82 NM Added docurientation 


2912 x 12/16/82 NM Incorporated SETAF into AF 
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2913 aK 
2914 III III II III IIIS III III III II II IASI III IIIS IIA II III II SSSI IIIT IISA 
2915 SRI I IIIA III III III IAI III III III IIIS III III IIIS IIIT III SIS IS TIS I IN 
2916 12DE9 801 NIBHEX 801 0 or 1 paraneters 
2917 12DEC 394A = =AF 7t=0 = $ Paraneter supplied? 
2918 12DEF F4 GOYES AFOS No. Return current AF. 
2919 12DF1 7DFE GOSUB argsta Pop neu AF 
2920 12DF5 17F D1=D1+ 16 Inc stk ptr past it 
2921 12DF8 840 ST=0 60 Positive 
2922 12DFB8 948 *A2O SS Positive? 
2923 12DFE 50 GOYES SETF10 No 
2924 12E00 850 ST=1 0 Negative 
2925 12E03 7BDC SETF10 GOSUB RJUST Denornalize 
2926 12E07 AF6 C=A W 
2927 12EOR 78DE GOSUB DECHEX To HEX 
2928 12EOE 7978 GOSUB CHKAF Check AF 
2929 12E12 SAC GONC  BADAF Go if illegal 
2930 12E15 102 R2=A Save new AF 
2931 12E18 704C GOSUB STDOD1 Stash datapointers 
2932 12E1C 7233 GOSUB script Compute currtine with old AF 
2933 12£20 76FB GOSUB PUTLAF Last AF adjustnent tine=currtine 
2934 12624 7AOC GOSUB PUTLST Tine of last exact=currtine 
2935 12E28 7A7B GOSUB PUTOFO Clear error accuriulator 
2936 12E2C 7A9B GOSUB GETAF Get old AF & set cry if neg 
2937 12E30 12A CR2EX Retrieve neu AF 
2938 12E33 7CBB GOSUB PUTAF Store new AF 
2939 12E37 11fA C=R2 Get old AF 
2940 12E3R 6B00 GOTO AFO? CRY still intact fron GETAF 
2941 12E3E 7AIC =AFOS GOSUB STDOD1 Stash datapointers 
2942 12642 7488 GOSUB GETAF 
2943 12E46 7009 AFO? GOSUB SOCNEG Set SO & C by CRY 
2944 12E4A 7E9E GOSUB HEXDEC Decinal AF 
2945 12E4E AFA A=C W 
2946 12E51 700 GOSUB FLORTR FP 
2947 12E55 AF6 C=A W 
2948 12E58 860 ?ST=0 0 Is AF positive? 
2949 12E5B 50 GOYES AF20 Yes 
2950 12E5D A4E C=C+1 oS No, sign = 9 
2951 12E60 676D AF20 GOTO TIME10 
2952 SOO IO OOO IOI OI III IIE OI IOI III 
2953 FRI III TI I IIIA III II IDI SITS IS III II III II III IAI III II ATI SI 
2954 ae 
2955 ** Narie: DECTIN - Decode Tine Fron Input 
2956 xe 
2987 ** Category: LOCAL 
2958 am 
2959 ** Purpase: 
2960 a Decode tine string passed to SETTINE, ADJUST, ADJABS. 
2961 re 
2962 EX ERLE 
2963 sa DO = PC. 
2964 AK D1 = Mathstack pointer. 
2965 ‘* Input expression for conmand has already been evaluated 
2966 ‘ and is on the nathstack (string or nuneric). 


2967 
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2968 xk Exit: 
2969 ax Carry set: Failed to decode input. 
2970 A Carry clear: C = argurient in 5i2ths. 
2971 ax SO=0 if numeric input 
2972 ade 1 if string 
2973 ae $1=0 if positive 
2974 kk 1 if negative 
2975 an If input was string (S0=1) 
2976 xx $2=0 1f no sign was given (inplicit positive) 
2977 ae 1 if sign was given (positive or negative). 
2978 ak 
2979 *® Calis: GETDIG, HMSSEC, MP2-12, RCDOD1, RIUST, STDOD1, 
2380 aK TDPARS, TRUNCC, argsta, crpt. 
2981 aa 
2982 Ak Uses....... 
2983 ak A,B,C,D,P,D0,01,RO,R1,S0-S11. 
2984 ax 
2985 Ak Stk lvls: 2 
2986 ak 
2987 ** Detail: 
2988 aK Used to parse input string/nuneric expression for 
2989 aR SETTINE, ADJUST, ADJABS. 
29% ak 
2991 **k Algorithn: 
2992 xk Stash DO and D1; CNPT; Restore DO and D1. 
2993 xx If result is string; goto 1. 
2994 ak Fetch numeric result fron stack. 
2995 ak Multiply by 512.0 (convert to ticks). 
2996 kk $O=0 (nurieric input). 
2997 ak S1=0 if positive, 1 if negative. 
2998 aK Unfloat abs(result); convert to HEX. 
2999 ak RTNCC. 
3000 ax ae ee 
3001 ak Extract data from input string (TDPARS). 
3002 am Extract 3 digit strings fron result (GETDIG). 
3003 wk Convert H, NM, S to seconds (HMSSEC). 
3004 AS Convert to ticks. 
3005 a RTNCC. 
3006 xx 
3007 ** History: 
3008 kK 
3009 a Date Progranner Modification 
3010 KK mewn n ene meee ner cece een nner ene nnn ener nnn ere e rene 
11 Kk 06/15/82 NM Added docunentation 
3012 ax 
3013 JOE III III TOIT IIIT OT EE IT 
3014 TST ECCT CTC TIC TTC CTTS TICE SO SCT CSS TSC TEST CCCCSE CCST ICTS TST C TT eS 
3015 12664 74FB DECTIN GOSUB STDOD1 Stash DO,D1 
3016 12E68 76E2 GOSUB cript Conpute tine 
3017 12E6C 731C GOSUB RCDOD1 Recall 00,01 
3018 12&70 1534 A=DAT1 S$ Read first nib at stack 
3019 12674 B44 A=A+1 § String? 
3020 12E77 483 GOC PRSTIN Yes. 
3021 12E7A 747E GOSUB argsta No. Pop u/exception chking. 
3022 12E7E 2C P= 12 
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3023 
3024 


3025 


3026 
302? 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
303? 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
306? 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
75 


12E80 
12E83 


12E8A 


12E® 
12E93 
12E96 
12E99 
12E9B 
12E9E 
12ER2 
12ER5 
12ER9 
12ERC 
12EB0 
12EB4 
12EB8 
12EBB 
12EBD 
12EC1 
12EC4 
12EC? 
12EC9 
12ECD 
12EDO 
12ED3 
12ED5 
12ED8 
12EDC 
12EDF 
12EE2 
12EE6 
12EE9 
12EEC 
12EEF 


AF2 
421 
502 
8E00 
0 
840 
841 
948 
50 
851 
78AC 
AFA 
793C 
RF6 
693E 
31A3 
793% 
400 
22 
7ACO 
400 
RAF? 
22 
7EBO 
400 
AFS 
22 
B04 
7FRO 
400 
AFA 
7£83 
BF2 
BF 
R76 
03 


Clock Systen «831228. 1028> 
BASIC routines 


C=0 W 

LCHEX 20512 

GOSUBL =NP2-12 

ST=0 60 

ST=0 1 

7A=0 Ss 

GOYES OECTIO 

ST=1 1 
DECTIO GOSUB TRUNCC 

A=C W 

GOSUB RJUST 

C=A W 

GOTO  DECHEX 
PRSTIN LCASC \:\ 

GOSUB TOPARS 

RTNC 

P= 2 

GOSUB GETDIG 

RTNC 

D=C W 

P= 2 

GOSUB GETDIG 

RTNC 

B=C W 

P= 2 

A=A+1 PP 

GOSUB GETDIG 

RTNC 

A=C W 

GOSUB HMSSEC 

CSL W 

CSL W 

C=C+C W 

RTNCC 
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C=512.0 
Convert to 512ths 


Nuneric input 
Positive 

Result positive? 
Yes 


No. tark negative 


Unfloat result 
Abs(result) 1n HEX 
Tine separator 

Pull data fron string 
Return if fail 

Get seconds 

Return if fail 

Hold in D 


Get ninutes 


Expect "E" here 
Get hours 


Convert to secs 


5i2ths 


FORO III III TK 
FORO I IOI IO OI III TO IT TOIT ICT TOOT TOTTI 


we 


Extract Nunbers Fron Input String 


Extract nunbers fron input string passed to SETTINE, 


D1 points at string descriptor in result stack (ready 


kk Nane: TDPARS - 

kk 

** Category: LOCAL 

ak 

** Purpose: 

a 

aK ADJUST, ADJABS and SETDATE. 
xk 

** Entry: 

ah 

a for POP1S). 

ae C({B] = Separator Character. 
kk 

ek Exit: 

ak Carry set: Failure (bad format). 
kk 


Carry clear: 


3:51 an 
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3076 a A contains BCD digits with "F"s in place of 

77 aK separators and "E" preceding first digit. 

3078 a Example: 

3079 aR Input: "12:34:56" Output: OOOOQOOE12F 34F 56 
80 ae (with separator = ":"), 

3081 ak Input: "1982/06/18" Output: OOOOOE1982FO6F 18 
3082 ah (with separator = "/"), 

3083 ak Input: "12:34.56" RTNSC (failure) 

O84 aR (with separator = ":"). 

85 ae 

86 AX Calls: POP1S, DRANGE. 

87 ae 

3088 RE USES. cos ces 

3089 ak A,8,C,0,01 

3090 ak 

3091 XA Stk lvls: 1 

3092 a 

3093 ** Detail: 

3094 kk Routine is called fron DECTIN and DECDAT if input 

#95 AE is a string. 

396 ax 

97 *% History: 

H98 x 

099 ae Date Progranner Modification 

3100 RK name n ene ween renee none nnn nn nn nn nn nen ne ne nee enn n ne 
3101 a 06/18/82 = NA Added docurentation 

aes III III RI III II IIIT III I III III IIIS IIS II SII III SSS ISII IIS ISIS II SIS 
3104 II III KI III RTI DDI III L I IT IAT TIT IIT III IIT ISIS SSI ITI II AIA 
3105 12EF1 AE?  TDPARS D=C B Save separator 


3106 12EF4 8E00 GOSUBL =POP1S Pop string 
00 

3107 12EFA 137 CDIEX 

3108 12EFD C2 C=A+C A 

3109 12EFF 13? CDIEX Point at start of string 

3110 12F02 20 P= 0 

3111 12F04 3441 LC(5) 2*10 Maxinun allowable result length 
000 

3112 12FOB 8B6 7ADC OR Result too long? 

3113 12FOE 00 RTNYES Yes. failure. 

3114 12F10 850 ST=1 0 Result is string 

3115 12F13 841 ST=0 1 Result is positive 

3116 12F16 842 ST=0 2 No sign given 

3117 12F19 81C RSRB #bytes in result 

3118 12F1C D8 B=A A Byte counter 

3119 12F1E AFO A=0 W Roon for result 

3120 12F21 A2C R=A-1 XS 

3121 12F24 A2C A=A-1 XS Mark start of string with "e" 

3122 12F2? 1C1 D1=D1- 2 Point at first char 

3123 12F2A CD B=B-1 A 

3124 12F2C 400 RTNC Failure 1f null 

3125 12F2F 148 A=DAT1 B Read in first character 

3126 12F32 3102 LCASC  \ \ 

3127 12F36 962 *A=C OB First char=blank? 

3128 12F39 91 GOYES TDPA2O Yes. positive, no sign given 
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3123 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
313? 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 


3148 
3149 
3150 
3151 
3152 
31563 
3154 
3155 
3156 
3157 
3168 
3169 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 


12F3B 
12F3F 
12F42 
12F44 
12F4? 
12F4A 
12Fac 
12F4F 
12F52 
12F55 
12F5?7 
12F5R 
12F5D 
12F60 
12F63 
12F65 
12F68 
12F6B 
12F6F 


12F76 
12F79 
12F?7C 
12F?F 
12F83 
12F86 
12F89 


3182 
962 
DO 
30D 
366 
31 
854 
852 
1C1 
cD 
4B2 
14B 
AEB 
966 
CO 
REO 
ROC 
6010 
8FOO 
000 
400 
BEO 
BFO 
62DF 
BF4 
BF4 
03 
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LCASC  \+\ 

*A=C OB 

GOYES TDPAIO 

LCHEX D 

ARC OB 

GOYES TDPA30 

ST=1 
TDPAIO ST=1 2 
TDPA2O D1=D1- 2 

B=B-1 A 

GOC TDPREO 

A=DAT1 B 
TDPA30 C=D B 

7ARC OB 

GOYES TDPR40 

A=0 B 

A=R-1 B 

GOTO TDPASO 
TDPA40 GOSBVL =DRANGE 

RTNC 

ASL B 
TDPASO ASL W 

GOTO  TDPAR2O 
TDPR6O ASR W 

ASR W 

RTNCC 
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First char="+t"? 
Yes. positive, sign given 


First char="-" 

No. must be nunber. 
Negative 

Sign given 

Start of loop 


Go if done 

Read next char 
Separator 

Is this separator? 
No 


Yes. mark with f. 


Check for character = digit. 


Shift in digit or "f" 


Position result 


FOO III IIIT IO TOO TO OTTO TOI 
FOO OI TT TT TOT 


kk 
** Nane: GETDIG - 
aK 

A* Category: LOCAL 
xx 

*k Purpose: 


xk 
xx 
ak 
ak 
xk 
ax 
aK 
xk 
xh 
ak 
xk 
xk 
ak 
a 
ak 
xk 
xk 
ak 
ax 
ak 


Entry: 


HEX node. 


Exit: 


Calls: None. 


Extract Digits From TDPARS Output 


Extract fields (those things separated by field 
separators) fron the BCD string created by TDPARS. 


A contains output fron TDPARS. 
P points at separator above lowest field in fA 
(field to be extracted). 


Carry set: failure (P not pointing at field separator 
or there 1s a non-BCD digit in field). 

Carry clear: C=result (number pulled fron A). 

Field has been SR’d out of A. 
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3183 *k Stk lvls: 0 

3184 aK 

3185 **% Detail: 

3186 KE Field separator is a HEX F. 

3187 ak 

3188 ** History: 

3189 an 

319 aa Date Progranner Modification 

3191 RK nnn en en wenn nen n een nnn rn en nnn ern nnn ne errr ene enn ene 

3192 . 06/28/82 NM Added docunentation 

1 

a JOIST OCT TOTTI TTT IIIS IST IITT AI IIIA 

3195 JI IOS IIIT TTT TITS ISIE II IIT IIIS SS SSS SSSI 

3196 12F8B 80FF GETDIG CPEX 15 Save p 

3197 12F8F 80DF P=C 15 

3198 12F93 BO4 A=A+1 P Pointing at separator? 

3199 12F96 5D2 GONC GETDFL No. error. 

3200 12F99 05 SETDEC 

3201 12F9B R92 C=0 WP 

3202 12F9E ATE C=C-1 WP 9’s 

3203 12FA1 04 SETHEX 

3204 12FA3 0D GETD10 P=P-1 Point at next digit 

3205 12FA5 4A0 GOC GETD20 

3206 12FR8 986 7ADC OP Legal bed digit? 

3207 12FAB 00 RTNYES No. failure. 

3208 12FAD SSF GONC GETDIO B.E.T. 

3209 12FBO 80DF GETD20 P=C 15 Retrieve pointer 

3210 12FB4 AF2 C=0 W 

3211 12FB? A96 C=A WP Copy nuriber 

3212 12FBA BF4 GETD30 ASR W Shift off nunber 

3213 12FBD OD P=P-1 

3214 12FBF SAF GONC GETD30 

3215 12FC2 03 RTNCC 

3216 12FC4 02 GETDFL RTNSC 

3217 JIS OTITIS OTT ITI II ISIS SI IIIT SSSI SOI IIIA ISIS ISA 

3218 JORIS OO OTTO III ITI DTT I IIIA ISI I IIIT ISIS IIIA 

3219 7 

3220 ** Nane: DECDAT - Decode Date Fron Input Nun/string 

3221 Zs 

3222 *k Category: LOCAL 

3223 a 

3224 kk Purpose: 

3225 aR Decode date input to SETDATE. 

3226 ae 

322? ak Entry: 

3228 ax DO = PC. 

3229 kk D1 = Mathstack pointer. 

3230 ak Expression has been executed (result on mathstack). 

3231 Ee 

3232 RR EWAt! 

3233 a Tine in R41, 

3234 ae Tiner value in RO. 

3235 x Carry set: failure (bad format or date). 

3236 a% Carry clear: C contains day# (HEX days since day 0). 
kk 


3237 
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3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
326? 
3268 
3269 
3270 


3271 
3272 
3273 
3274 
3275 
3276 
3277 
32 78 


3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 


3289 


12FC6 729A 
12FCA 7481 
12FCE 718A 
12FD2 1534 
12FD6 B44 
12FD9 4B5 
12FDC 7210 
12FEO 3260 
0 
12FES 3B6 
12FE8 00 
12FEA 94C 
12FED 00 
12FEF 7FER 
12FF3 RFI 
12FF6 RBS 
12FF9 8E0O 
00 
12FFF 7DRO 
1303 96C 
106 40 
108 22 
THOR 303 
10D O02 
1311 AOE 
1314 D2 
1H16 20 
1318 3256 
3 
1Wid 640 
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+k Calls: ASRW3, DAYYND, GETDIG, JD2DAY, RANGYR, RCDOD1, 
a RJUST, STDOD1, TOPARS, YMDDAY, YMDH20, argsta, 
ne cpt. 

aa 

AP USES ic sc Sex 

kk Exclusive: A,B,C,D,P,00,01,RO,R1,S0-S11. 

ak 

kK Stk lvls: 2 

ak 

** Detail: 

ze Nuneric input is interpreted as Julian date YYDDD or 
th YYYYDDD. 

xx String input is "YY/NM/DD" or "YYYY/NM/DD". 

ak If year on nurieric input is <100 or string input is 
aR given as YY (2-digits only), year is transforred 
a into the range [1960 .. 2059]. 

kk 

kk History: 

ak 

xx Date Progranner Modification 

RE Beseritn.  saicethaduce Smpotecees ssa ae ee 
xk 06/18/82 NM Added docunentation 


xk 


SO RII III III TOI OO TT TT ITN 
JOIST IO IO TTT OT OTTO TI II II III 


DECDAT GOSUB 
GOSUB 
GOSUB 
A=DATI 
R=A+14 
GOC 
GOSUB 
LCHEX 


7AOC 
RTNYES 
PAHO 
RTNYES 
GOSUB 
B=0 
B=A 
GOSUBL 


GOSUB 
RHO 
GOYES 
p= 
DECD1IO LCHEX 
C=R&C 
C=C-1 
C=0 
p= 
LCHEX 


GONC 


STDOD1 
cript 
RCDOD1 
5 

S 
PRSDAT 
argsta 
006 


x 
5 


RIJUST 
W 

x 
=ASRW3 


RANGYR 
8 
DECD10 
9 


wWwoOopDvu Dw. 


DECDZ2O 


Stash pointers 

Corpute tine 

Restore pointers 

Read low nibble at stack 
String? 

Yes. 

No. Pop with exception chking. 
Is julian date 


Exponent too large? 
Yes... failure 
Positive? 

No, error. 
Denornalize 


Copy day-in-year 

Correct year 

Year divisible by 100? 

No. check for div by 4. 
Yes. check for div by 400. 


Look at lower 2 bits 
Carry set if divisible 


Go if non-leap year 
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3290 
3291 
3292 
3233 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3901 
32 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3323 
3330 
3331 
3332 
3333 
3334 
3338 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 


120 £6 
1%22 961 
13025 00 
1X27 939 
1302R 00 
1302C ABI 
13%02F 7703 
1X33 03 
135 31F2 
13039 74B8E 
13%03D 400 
1H40 872 
1343 00 
13045 22 
147 204F 
134B 400 
1H4E AF? 
13051 22 
13053 743F 
1305? 400 
1305R AFS 
1305) 24 
1305F 90C 
1H62 91 
164 22 
13066 B04 
169 7E1F 
16D 400 
13070 AFA 
1373 7930 
1377 6010 
1307B B04 
1H7E 7 HF 
13082 40 
13085 AFA 
13088 7180 
13%8C 108A 
THBF 7172 
1393 108 
1X96 7B92 
13039A 04 
1309C AF6 
1309F 7R60 
130R3 112 
1HOR6 976 
130R9 00 
130AB 116 
1HORE 03 


Clock System <831228.1028> 


DECD20 


PRSDAT 


PRSD10 


PRSD20 


C=C+1 
7B>C 
RTNYES 
*B=0 
RTNYES 
C=B 
GOSUB 
RTNCC 
LCASC 
GOSUB 
RTNC 
ST=1 
RTNYES 
p= 
GOSUB 
RTNC 
D=C 

p= 
GOSUB 
RTNC 
B=C 

p= 
PAHO 
GOYES 
p= 
A=R+1 
GOSUB 
RTNC 
R=C 
GOSUB 
GOTO 
R=A+1 
GOSUB 
RINC 
A=C 
GOSUB 
R2=C 
GOSUB 
R3=C 
GOSUB 
SETHEX 
C=A 
GOSUB 
A=R2 
RAC 
RINYES 
C=R3 
RINCC 


A 
x 


x 


x 
JD2DRY 


\A\ 
TDPARS 


2 


2 
GETDIG 


OnLr 


ETDIG 


RSD10 


VM VVUVFE 


GETDIG 
W 
RANGYR 
PRSD2O 
p 
GETDIG 


W 
YMBH20 


YMDDAY 
DAYYND 


W 
YMDH20 


W 
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C=366. 

Day-of-year legal? 
No 
Maybe. 
Yes. 
No. 
Get day# 

Done 

Date separator 

Pull data fron string 


=0? 
Error. 


Was a sign indicated? 
Yes. failure. 


Get day 


Get nonth 


This should be either "e" or "0" 
0? 

No. "e". 

Yes. look for 2-digit year. 
Should becone "f" 

Extract year 


Correct year 


Get year 


Pack date into C. 
Stash 

Get day# 

Save 

Back into date 


Squeeze into register 
Get original input 
Sane? 

No. 


Yes. Date is legal. 


OIRO RJ RX OTTO TOTTI TI I IOC 
SOIR RJOIITTTTT IO 


ak 


Kk Nane: 


ak 


RANGYR - 


** Category: 
x 


LOCAL 


Check Range Of Year 
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3345 ** Purpose: 
3346 ax Convert 2-digit year to a standard range. 
3347 ax 
3348 FA Entry 
3349 ax Year in A[W] (BCD). 
3350 a 
3351 BR ERAT: 
3352 aX If year > 2 digits, year in A and C. 
3353 ae Else (calling lower 2 digits YY), A contains: 
3354 x 19YY if YY >= 60, 
3355 aK 20YY if YY < 60. 
3356 ae P=0, 
3357 ae 
3358 ’X Calls: None. 
3359 ax 
3360 AEUSES 54 sais 
3361 x A,C,P. 
3362 x 
3363 ** §$tk lvls: 0 
3364 ax 
3365 xk History: 
3366 aK 
3367 x Date Prograriner Nodification 
3368 RK mer en ne eee r errr en cree mene n nr renner nena ene cenneecenee 
3369 2 06/18/82 = NM Added docurentation 
7 
ee JOTI OCI III III III TI III IIIT III 
3372 JIT TOI TIS III III II SIT ISI II II III II IOI III III IASI I IIIA 
3373 130B0 AF2 RANGYR C=0 W 
3374 130B3 AEG C=A B Copy yy 
3375 13%B6 972 *A=C OW Year=yy? 
3376 130B9 70 GOYES RANGIO Yes 
3377 130BB AF6 C=A W 
3378 130BE 01 RIN 
3379 13000 20 RANG1O P= 0 
3380 13X02 3X6 LCHEX 1960 
91 
3381 130C8 SEE 7A>=C B Yy<60? 
3382 130CB 80 GOYES RANG2O No. use 19yy. 
3383 13000 3X0 LCHEX 2000 Yes. use 20yy. 
02 
3384 13003 RE RANG2O C=A B 
3385 13006 AFA A=C W 
3386 13009 01 RIN 
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3387 
3388 
3389 
33” 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
341? 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
342? 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 1300B 7370 
3438 130DF 8EC2 
5F 
3439 130E5 7041 
3440 130E9 108 
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STITLE Tine systen utilities 
SIRI SIDI SIT IT RII III I IIIS SI ISIS STII IS SIS IS IIS IIIS IIS III III ASAIN 


FORO JOR TOIT OT TORT TI TT TOR 
xm 


** Nane:(S) YMDHMNS - Return Tine And Date 
**k Name:(S) YMDHO1 - Convert Tine To YYNMDD And HHNMSS 
kk 


xk Category: TIME 
kk 


** Purpose: 
AX YMDHNS: Return current tine and date in fornat conpatible 


ak with file header tine/date field. 

kk -YMDHO1: Convert passed tine (seconds since year 0) into 
KR tine/date forrat compatible with file header 

ax tine/date field. 

kk 

** Entry: 


kx -YHDHNS: None. 
kx -YMDHO1: C(WJ=Tine (seconds since nidnight, 1 Jan 0000). 


MACEMATS 

xx C = OOOOYYNMDDHHNNSS. (year,no,day, hrs, nin, sec) 
xx A[B] = HH (sane as HH in C). 

aK B[B] = NM (sane as MM -- minutes in C). 

xm D[B] = SS (sane as SS in C). 

ae HEX rode. 

aK Carry clear. 

kx 

** Calls: CMPT, TIMRND, TODT, DAYYND, SECHNS. 
wk 

RX Uses....... 

kx A,B,C,D,P,D0,D1,RO,R1,S0-S11. 

kK 

kK S$tk lvls: 2 

tok 

** Algorithn: 

ae Get current tire. 

ae Compute day#, tine-of-day. 

re Compute YYNMDD from day#. 

a Compute HHNMSS fron tine-of-day. 

ais Fornat into YYMMDDHHNNSS. 

aK 

** History: 

tok 

x Date Progranner Modification 
Oe ees eee! lide te eet crc, aoe yeas aan 
xx 60/11/82 NN Added docunentation 

aa 


OOO OIC TTT TIE IT TT TIA 
FOR TOI TOIT TTT IT TTI TITS TTI III K 


=YADHNS GOSUB  cript Compute tine 
GOSUBL TINRND This saves a subroutine level 
=YNDHO1 GOSUB TODT To day# and tine-of-day 


RO=C Save tine-of-day 
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3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
34493 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3467 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
347? 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
348? 
3488 
3489 
34% 
3431 
3492 
3493 
3494 
3495 


130EC 
130EF 
130F3 
130F6 
130FA 
130FD 
13100 
13103 
13107 
13108 
1310D 
13110 
13113 
13116 
13119 
1311 
1311F 


2306 


AFG 
7242 
AF2 
7010 
BF2 
BF2 
128 
7841 
118 
AEG 
BF2 
BF2 
RES 
BF 
BF2 
AEB 
03 
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C=A W 
GOSUB DAYYND Get year,nonth, day 
C=0 W 
GOSUB YMDH10 Fornat into yyrindd 
CSL. 
(SL OW Yyrindd0o 
CROEX Swap with tine-of-day 
GOSUB = SECHNS 
C=RO Result will be yynnddhhrnss 
YADHIO C=A B 
YMDH20 CSL OW 
(SLOW 
C=B B 
CSL OW 
(StL 
(=D B 
RTNCC 


FOR IDI IOI ITI ITO TOI OR TOIT 
FOI IIIT TIO OO TIT OI TTI II 
xx 


** Nane: INITCL - Initialize Clock Systen 
xk 


*k Category: CONFIG 
tk 


** Purpose: 

ae Initialize clock systen at coldstart. 

a Zeroes out clock systen RAN, sets tine to 000000000000. 
ik 

AX Entry: 

x None. 

tok 

ROEM: 

ae Through CHNPT. 

A Carry clear. 

sie P=0, 

a 

** Calls: CNPT (falls through). 

ak 

AP USC b ei sua 

‘ A,B,C,D,P,00,D1,RO,R1,S0-S11. 

dk 

** Stk lvls: 1 

ek 

** Algorithn: 

a Zero out clock systen RAM. 

cas Set tiner to 0. 

ais Fall through to CMPT for nornal update. 

ae 

** History: 

ke 

** Date Progranrier Nodification 
HG Seisos weteaeueks eter ese cleo emote tn’ 
** 06/11/82 NM Added docunentation 

ak 


FORO IOI OI TOI TO Ok 
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3496 JO TIO IIT OSS SO ISOS II III TI IE TT 
3497 13121 1FDO =INITCL D1=(5) =NXTIRQ 

7F2 
3438 13128 20 P= 0 
3499 1312R D2 C=0 A 
340 1312C 3108 LC(2) (TIMAF)+6-(NXTIRQ) Size of clock RAN 
3501 13130 8E&00 GOSUBL =WIPOUT Clear out clock RAN 
00 
382 13136 1B8F DO=(5) =TIMER2 
2E2 
3503 1313D 27 P= ? 
3504 1313F AF2 C=0 W 
3505 13142 308 LCHEX 8 
3506 13145 15€7 DATO=C 8 Clear out and enable tiner 
3507 13149 A7E C=C-1 W Now write FFFFFF to tiner. 
3508 1314C 8&00 GOSUBL =WRTTMR Write to tiner. 
00 
3509 13152 8CE5 crpt  GOLONG CNPT Update 
3510 a JO III UIOISI III CIO CCCI OI 
3511 JOO III IIIS SISSIES COGIC GI OK III ITOK 
3512 Kk 
3513 AX Narie:(S) SETTMO - Set Systen Tineout 
3514 ak 
3515 ** Category: TIME 
3516 xe 
3517 ** Purpose: 
3518 a Set 10-minute systen tireout, 
3519 ae 
3520 *k Entry: 
3521 ae None. 
3522 a 
3523 RX Exit: 
3524 ax Carry set. 
3525 RK HEX node. 
3526 ae 10-minute timeout alarn has been scheduled. 
3527 aE 
3528 *® Calls: S101, SFLAG?, SETALR, SETALN, RCO1. 
3529 an 
3530 RK: USES i ee P cas 
3531 ak A,B,C,D,P,00,D1, SCRICH[O-31], SCREXO. 
3532 ae 
3533 Ae Stk lvls: 3 
3534 a 
3535 ** Detail: 
3536 oe Typically used to schedule autonatic power-doun. 
3537 ae Also used to schedule tineout during "Align" message in 
3538 a card reader. 
3539 ax If =f1CTON (continuous on) flag is set, the timeout 
3540 ae is disabled (never cories Ne: 
3541 a 
3542 ** Algorithn: 
3543 oe Stash scratch regs. 
3544 ae If f1ICTON set, set ALRM4 = 0 (SETALMN) 


3545 x else set ALRM4 = current tine + 10 minutes (SETALR). 
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3546 
3547 
3548 
3549 
3550 
3551 
3652 
3553 
3554 
3555 
3556 
3557 
3558 
3559 


3560 
3561 
3562 


356 3 
3564 
3565 
3566 
3567 
3568 
3569 
3570 


3571 
3572 
3573 
3574 
3575 


3576 
37? 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3$85 
3586 
358? 
3588 
3589 
3690 
3691 
3532 
S539 
3594 
J095 
3596 


13158 04 
1315A 7E49 
1315E 1814 
9F 2 
13165 09 
13167 144 
1316A 8E24 
4F 
13170 20 
13172 3100 
13176 7000 
1317R AFO 
1317D 421 
13180 111 
13183 AF2 
13186 3400 
0B4 
1318D A7A 
13190 2F 
13192 303 
13195 7460 
13199 1814 
9F2 
131A0 146 
131A3 OA 
131A5 6029 
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xx Clock update (CMPT). 
KK Restore scratch regs. 
ke 


** History: 
ar 


a Date 
KX Jose eos eae 


x 06/11/82 


ak 


Prograriner Modification 


Nt 


Rdded docurientation 


FOO RII IOI ICI IO OOOO III IK 
FORO IO III III III ICICI IO III ITO IK 


=SETTMNO SETHEX 


GOSUB 
DO=(5 


C=ST 


) 


DATO=C 


GOSUBL 


p= 
LC(2) 
GOSuB 
R=0 
GOC 
A=R1 
C=0 
LCHEX 


A=R+C 
STM100 P= 
LCHEX 
GOSUB 
DO=(5 


) 


$TO1 
=SCREXO 


A 
CHPT 


0 
=f1CTON 
=SF LAG? 
W 
STM100 


W 
48000 


W 

15 

3 
setald 
=SCREXO 


C=DATO A 


ST=C 
GOTO 


RCO1 


Save scratch regs 
Save scratch regs 


Stash status bits 
Compute current tine 


Continuous on? 


Go if continuous on 


Tine of alarn 


Alarn nuriber 


Restore status bits 
Restore scratch regs 


FOR FORO TOTO OOO TIO TO OO TOTO I OK 
FORO IOI OOOO TIO OI OI OOO OOOO I TOI IO 


aR 
*x Nare: ACTINR - Activate On-tiner 

kt 

** Category: TIME 

Jot 

** Purpose: 

an Schedule an on-tiner alarn. 

xk 

Ak Entry: 

aK C{[O] = Tiner # (tiner# = 1, 2 or 3). 
a A[W] = Tine interval (HEX 512ths). 
th 

PeERTt: 

kx Through SETALR. 

at 

*k Calls: SETALR (falls through). 
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3597 ak 
3598 ak Uses....... 
3599 aR A,8,C,D,00,01,RO,R1,R3,S0-S14 
3600 ak 
3601 *E Stk lvls: 2 
3602 at 
3603 ** Detail: 
3604 aR Schedules alarn# (on-tiner# - 1) for (tine interval) 
3605 ak from current tine. 
3606 aK 
3607 *k Algorithn: 
3608 aK C=C-1 B 
3609 AR goto SETALR 
3610 ak 
3611 *k History: 
3612 RR 
3613 a& Date Prograrner Modification 
3614 Bh ween tenet nne bento eee een cen eee n seen enanene 
3615 kk 05/25/82 NN Added docunentation 
kk 
ae JU OI IO OK 
3618 JOIST OI IIS COGIC TOOK 
3619 13189 AGE =ACTTNR C=C-1 B Alarn# (0-2) 
3620 131AC 8C96 setalr GOLONG SETALR 
3621 “ JES OI ITO OCC CC OK 
3622 JIG II IOI GCI IO OCI ITOK 
3623 ak 
3624 ** Narie: RCTTM1 - Reactivate On-tiner Alarn 
3625 ak 
3626 xk Category: TIME 
3627 a 
3628 ** Purpose: 
3629 aR Reschedule on-tiner alarn. 
3630 ah 
3631 ak Entry: 
3632 aK C{S] = Tiner &#. 
3633 ak A[11-0] = Interval. 
3634 ak 
3635 aX Exit: 
36 36 ak Through SETALM. 
3637 ae Carry clear. 
3638 aK P=0, 
3639 aK R3(SJ=tiner#-1. 
3640 ae 
3641 ** Calls: CMPT, IDIV, SETALM (falls through). 
3642 kk 
3643 Rk Uses... ..06 
3644 ak A,B,C,0,P,D0,01,RO,R1,R3,S0-S11. 
3645 aK 
3646 ** Stk lvls: 2 
3647 wh 
3648 *k Detail: 
3649 ak Schedules alarn n*(interval) after last alarn tine, 
3650 ae uhere n is the smallest positive integer for which 
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3651 
3652 
3653 
3654 
3655 
3656 
365? 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3663 
36 70 
3671 
3672 


3673 
3674 
3675 
36 76 
3677 
36 78 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
369 


3691 
3692 
3693 
36.94 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 


131B2 
131B5 
131B8 
131BB 
131BF 
131C2 


131C9 
131CC 
131CF 
131D2 
13105 
13108 
13108 
131DF 
131E2 
13164 
131E? 
131ER 
131EE 
131F 1 
131F4 
131F? 
131FA 
131FD 


A4E 
ACA 
103 
739F 
RFR 
1FDO 
7F2 
11B 
1?B 
A4E 
SSF 
AF5 
AF2 
1SFB 
B7A 
2B 
A99 
RF? 
7CER 
AFB 
B73 
111 
A7A 
118 
8C03 
7F 
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ae n*(interval}+(last alarn tine) is after current tine. 
ak 
xk Algorithn: 

a A = (Current tine) - (Last alarn tine). 

ak C = -(A nod (interval)) + interval {tine to next 
ak alarn}. 

aR Set alarn to (Current tine) + C. 

ak 

*k History: 

kk 

ak Date Progranner Modification 

Pie Cece eet eee Ue elinn odes mente aoe eeuewnes 
kK 05/27/82 NM Wrote, etc, 

ak 


FOI OOOO IIT TOIT TTI TTI 
FOTO IIT IK 


=RCTTN1 C=C-1 § 
A=C $ 
R3=A 
GOSUB) cnpt 
A=C W 
D1=(5) (=ALRM1)-12 


C=R3 
RCTT10 Di=D1+ 12 
C=C-1 § 
GONC = RCTT10 
B=C 
C=0 
C=DAT1 12 
A=A-C Ww 
11 
WP 


cre 


x 


UB idiv 
W 
W 


t 
o 


“un uu cMmuu tt 


DRBrOvIvIV7nOeow 


a>awDororoqovoonwv 
—_ 


' 
»D 
+ 
co 
= 


C=R3 
setalO GOLONG SETA1O 


Convert tiner# to alarn# 


Stash alarn# and interval 
Compute current tine 
Hold tine 


Fetch interval 
Loop to point at selected alarm 


Stash interval 


Read last alarn tine 
Current tine - last alarn tine 


Lower 12 digits of interval 
Hold 
Divide by interval 


Tine to next alarn 
Tine 

Tine of next alarn 
Alarn# in C{S} 

Set the alarn 


FOR OUI III OT OI TI TOTO 
JOO TOO TOI ITT OOOO OO IOI TORI TSI IK 


ak 


ak Nane: SEC2TK - Convert Seconds To Ticks (512ths) 


** Category: TIME 


** Purpose: 


ak Convert floating-point #seconds to # 512ths (tine 
ae systen’s smallest unit of neasurenent. 


Ae ENtCy: 


- A = 12-digit floating-point # secs. 
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3704 ak 
3705 ex Exit: 
3706 a A,B,C = Hex ticks. If # ticks >= 1£16, result is 
3707 ax chopped to 1£16-1. 
3708 ak HEX node. 
3709 ak P=0, 
3710 BA Carry clear. 
3711 ak 
3712 &k Calls: MP2-12, TRUNCC, RJUST, DCHXW. 
3713 aK 
3714 FE NGOS ic we 
3715 *k Exclusive: A,B,C,D,P. 
3716 ak 
3717 ** Stk lvls: 1 
3718 * 
3719 ** Detail: 
3720 ax Because of DECnode RJUST, maxinun result 1s HEX 
3721 ak equivalent of 1&16-1. 
3722 x 
3723 ** Algorithn: 
3724 aK Multiply arg by 512.0. 
3725 ax Truncate to 12-digit form (TRUNCC). 
3726 ax Unfloat (RJUST). 
3727 a Convert to HEX. 
3728 ak 
3729 xk History: 
37H am 
3731 a Date Progranner Modification 
3732 aaa atthe atetateeiaietatatetataatl 
3733 ie 06/18/82 NM Added docunentation 
a JIG IID IOI III III TOC STITT ATE 
3736 JUS IOI TOISAS ISIC IIIS IO TOC OC IIIT 
3737 13203 05 =SEC2TK SETDEC 
3738 13205 AF2 C=0 WW 
3739 13208 2C P= 12 
3740 1320A 3421 LCHEX 20512 C=512.0 
502 
3741 13211 8£00 GOSUBL =NP2-12 Tine in 512ths 
09 
3742 13217 7F29 GOSUB TRUNCC To ¢ 
3743 1321B AFA A=C W 
3744 1321E 70C8 GOSUB = RJUST Convert to integer 
3745 13222 AF6 C=A W 


3746 13225 60CA GOTO  DECHEX To HEX 
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3747 STITLE Tine and Date conversion 
& 
ot JO IO OCI III ISO SOTTO IIIT SI III 
3750 JOIST II IOI OI ICT IIIS IT III III 
3751 ax 
3752 kk Nane: (S$) TOOT - Tine To Tine-of-day And Day# 
3753 aa 
3754 ** Category: TIME 
3755 Ae 
3756 *k Purpose: 
3757 ae Convert fron tine (since 0000) to day# (since day 0) 
3758 ax and tine-of-day (since midnight). 
3759 xx 
3760 &® Entry: 
3761 kk C = Tine (HEX seconds). 
3762 ak Hex rode. 
3763 ax 
3764 eX Exit: 
3765 ax B,C = Tine-of-day (HEX seconds). 
3766 aK A = Day# (HEX days since day 0). 
3767 ax Hex node. 
3768 a P=15. 
3769 ae Carry set. 
3770 ax 
3771 *k Calls: IDIV (falls through) 
3772 ax 
3773 BX USCS. .eccs: 
3774 ae A,B,C,P 
3775 ax 
3776 ** Stk lvls: 0 
3777 xe 
3778 ** Detail: 
3779 ** The following terns are used in this and the following 
3780 xx docurientation: 
3781 am 
3782 xk tine: time in seconds since midnight 1 jan 0000 
3783 xX tine-of-day: seconds since midnight. 
3784 kx day#: day# relative to 1 jan 0000 
3785 x* —h,m,s: hours, minutes, seconds. 
3786 xx od,m,y: day, month, year. 
3787 a 
3788 ** Date routines are valid fron 1 jan 0000 to 
789 Re 31 dec 9999, 
37% ** Assumptions being nade in the date routines are: 
3791 a year<=9999 
3792 aX nonth<=12 
ao 3793 ax day<=31 (this is intentionally violated for JD2DAY) 
3794 ois day#< = 3652424 
3795 .s THIS MEANS THAT HIGHER-ORDER DIGITS ARE ZEROES! ! 
3796 a 
3797 ** Algorithri: 
3798 % Day#=Time div 15180H. 
3799 - Tine-of-day=Tine nod 15180H. 
3800 aoe 
3801 t* History: 
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3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 13229 AFA 

3810 1322C AF2 

3811 1322F 21 

3812 13231 3381 
51 

3813 13237 62AR 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

383? 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 13238 AF? 

3853 1323E AF2 

3854 13241 21 

3855 13243 3381 
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ka 
ae Date Prograriner Modification 
Rk eeeetees. Seta! | Ae eke nee nS kate ore cet 
kk 05/24/82 NM Added docunentation 
ks 


FORO IOI OTT COTO TTT II 
FORO IOI JOTI IO IIT TTT 


=TODT A=C W Tine to C 
C=0 W 
p= 1 
LCHEX 1518 #secs/day (divisor) 
GOTO idiv 


JOIST IO TI ITT TOS ESI I IIIA IIIT III ID II IIT II III IAS IK 
JOU I III STII III III IIIT IIIT TIA III II III SII IIIS IA 
ak 

** Nane: 
ey 
kok 
tk 
ok 
ko 


FROMDT - Tine-of-day And Date To Tine 


Category: TIME 


Purpose: 
Convert fron tine-of-day (secs since nidnight) and 


ata day# (days since day 0) to tine (secs since tine 0). 
ik 

k* Entry: 

a A = Day# (HEX days since day 0). 

ae C = Tine-of-day (HEX seconds). 

x Hex mode. 

ok 

AR ERI: 

KR C = Tine (HEX seconds since tine 0). 

ae Hex mode. 

ak 

** Calls: PY. 

ik 

PA USCS sie aires 

as A,B,C,D,P. 

aK 

kX Stk lvls: 1 

kK 

** Algorithn: 

a Tine=Day# * 15180H + tine-of-day. 

tok 

** History: 

ak 

x Date Progranner Modification 
PR tebe eeebo ee 6 aaa eee le eee oueamect fon 
kk 05/24/82 NN Added docunentation 

k 


FORO TROIS TIT TO TI TE IK 
FORO ISO IOI IIIT TIT III 


=FROMDT D=C W Copy tineofday to d 
C=0 W 
P= 1 
LCHEX 1518 Secs/day 
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3856 13249 739A 
385? 1324D R7B 
3858 13250 01 


3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
388? 
3888 
3889 
38% 
3891 
3892 
3893 
3894 
3895 
3896 
389? 
3898 
3899 
3900 
31 
3W2 
3% 3 
3%4 
3905 
396 
3H)? 
398 
3909 


13252 
13256 
132593 
1325D 
13260 
13264 
13266 
13268 


769A 
RFA 
7800 
AF? 
7400 


03 
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GOSUB  onpy 
C=C+D W 
RTN 


Result toc 


FOI TOO I TTI TK 
FOR ROJO IOI TO ITO TT TOK 


ik 
dk 
tok 
a* Ca 
Ae 
** Pu 
tok 
ik 
kK 
RAE 
ik 
tok 
ssa 2 
tok 
kk 
kk 
1k 
tm 
tok 
dk 


xx Ca 
As 


xx 
wk 


ax St 
ak 


+e A) 
a 
xx 
xk 
xk 
wk 
xx 
xx 


Na 


Hi 
x 

aa 
ae 


ne: (S) SECHMS 
tegory: TIME 


rpose: 


- Convert Secs To Hours, Mins, Secs 


Convert tine in seconds (expressed in HEX) to 
hours, tiinutes and seconds (expressed in DEC). 


try: 


C{W} = Tine- 


it: 


of-day (HEX seconds). 


A[W] = Hours (BCD integer). 
B[W],C(W] = Minutes (BCD integer). 
D[W] = Seconds (BCD integer). 


HEX triode. 


Carry clear. 


P=15, 


lls: HEXDEC, IDIV. 


k lvls: : 


gorithn: 


Convert to decinal. 
Divide by 60; renainder=secs. 
Divide quotient by 60; remainder = rinutes, 


quotient = 


story: 


hours. 


Date Prograrnner Modification 


06/27/82 = NM 


Added docunentation 


FO OI OOO IIOIOIIO IOI IOI OOOO IOI ROI: 
IORI ROR IOI IOI OIG OI IIIT 


=SECHNS GOSUB HEXDEC 


DY6O 


A=C W 
GOSUB = DVé0 
D=C W 
GOSUB DV60 
SE THEX 
RINCC 

P= 1 


Decinal seconds to c 


R=rninutes, b=seconds 
Renainder (secs) to d 
A=hours, b=ninutes 
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3910 1326A AF2 C=0 W 
3911 1326D 306 LCHEX 6 
3912 13270 696A GOTO idiv Divide by 60 
3913 JIU II ITO ITI IIT TIT TII DIT IIIT TTT 
3914 JOTI TI ITO IO TC IIT ATT DAT IT ITI TT TAK 
3915 ax 
3916 **k Narie:(S) HMSSEC - Hours, Mins, Secs To Seconds. 
3917 xe 
3918 *% Category: TIME 
3919 ax 
3320 ** Purpose: 
3921 x Convert from hours, ninutes, secs (DEC) to seconds 
3922 xn (HEX). 
3923 x 
3924 ak Entry: 
3925 aR A(W}] = Hours (BCD integer). 
3926 an B{[W] = Minutes (BCD integer). 
3927 ak D{[W] = Seconds (BCD integer). 
3928 at 
3929 ae Exit: 
3930 an A,B,C = Seconds since midnight (HEX). 
3931 aa HEX triode. 
3932 ae P=0, 
3933 = Carry clear. 
3934 xk 
3935 kk Calls: MP60, IDIV. 
3936 aR 
3937 KK Uses....... 
3938 ak A,B,C,D,P. 
3939 xk 
3940 ** Stk Ivls: 1 
3941 ax 
3942 ** Algorithn: 
3943 an Compute ((hrs * 60) + mins) * 60 + secs. 
3944 a Convert to HEX. 
3945 aK 
3946 ** History: 
3947 a 
3948 ses Date Progranner Modification 
3949 EX ceawnecee jebetcectese,. sence ccciecscccéwencueSscaonecccece 
3950 kk 95/27/82 NM Added docunentation 
xk 
Sep JOISTS OCI OCIS ITT T IE 
3953 JOO IO IIS OCI OIC OIC TOC RTT TI 
3954 13274 05 =HNSSEC SETDEC 
3955 13276 7110 GOSUB NP6O Hours*60 
33956 1327A A70 A=A+B OW 
3957 1327D 7A00 GOSUB MP6 (hr*60 + nin)*60 
3958 13281 AFG C=A W 
3959 13284 A7B C=C+D W Hr*3600+tnin*60+sec 
3960 13287 6E5A GOTO DECHEX To HEX 
3961 JOO IO OIG CCCI IO TRIE 
3962 JO III IOI IOC TOC TIT IE TK 
3963 a 
3964 ** Narie: MP6O - Multiply A By 60 
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3965 ax 
3966 ** Category: LOCAL 
3967 ak 
3968 ** Purpose: 
3969 ER Multiply A by 60. 
3970 aR 
3971 *k Entry: 
3972 a A = BCD integer. 
3973 ak DEC node. 
3974 ak 
3975 RAE MIA: 
3376 aa A = input * 60. 
397? ak DEC node. 
3978 a 
3979 xk Calls: None. 
3980 ak 
3981 RE USCS pias 3 
3982 aa A,C. 
3983 i 
3984 ** Stk lvls: 0 
3985 aS 
3986 ** History: 
3987 ae 
3988 a Date Progranner Modification 
3989 AR ‘eeeerses: Secerwegeas! Betas ease se eee nie Ceaee eee 
3999 si 05/27/82 NM Added docurientation 
x 

oa JOIST TI TI III IT ITI IIIA IIIS SII SIA ATK IA 
3993 JI IIS I III III III III IIIT III ORT IDI IIIA IIT IOS III III III IS II IIIS ATI IA 
3994 1328B R74 «= NP6O)=— A=AHA OW aka 
3995 1328E AF6 C=A W 
3996 13291 A74 A=A+A OW Ara 
3997 13294 A7A A=A+C W 6*a ina 
3998 13297 BFO ASL soW 60%a 
3939 1329A 01 RIN 
4000 % 
4001 etesteeteetestsettrtstttttttetettcttctttettstttitesttetts tte tt! 
4002 JOTI III III III III III III ITO IIIS II IAI ATK 
4003 eR 
4004 **® Nane: N36 - Multiply Argunent By 30.6 
4005 ae 
4006 ** Category: LOCAL 
4007 ne 
4008 ** Purpose: 
4003 x Conpute 30.6*B for time computations. 
4010 ae 
4011 aX Entry: 
4012 ae B = argurent (BCD number). 

— 4013 - DEC node. 
4014 a 
4015 AL ERG 
4016 a C = argument * 30.6 (BCD number). 
4017 a DEC mode. 
4018 ae P unaffected. 

wh 


4019 
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4020 ** Calls: None. 
4021 aK 
4022 AX US@S:. cs sas 
4023 aK B,C. 
4024 a 
4025 ** Stk lvls: 0 
4026 ae 
4027 ** History: 
4028 a 
4029 aK Date Progranner Modification 
4030 KX. Goecetehs “Deiéecceces Sires bocce cdc t occce sees ceece 
4031 ak 05/27/82 NM Added docunentation 
4032 ak 
4033 JUS COCUIOIIOS CCCI OT SRT ITS 
4034 JOIST III TO TIT SII III I III IIIS ISI II ISIS III SIS SAS: 
4035 1329C AF9 M306 8 C=B W 
4036 1329F C6 C=C+C A 
4037 132A1 C9 C=B+C A 3*b 
4038 132A3 D5 B=C A 
4039 132A5 C5 B=B+B A 6*b 
4040 132A7 FS BSR A Int(.6*b) 
4041 132A9 Fe CSL A 30*b 
4042 132AB C9 C=B+C A Int(30.6*b) 
4043 132AD 01 
4044 JE III TTI TES IIIT TITAS IIIS ISS SI SIA 
4045 FI III II IIIT SITES IIIS I ITI SSSI IIIS SSIS SII ISIS IS SITS 
4046 ak 
4047 xk Narie: SUN3 - Compute Day# Of Start Of Year 
4048 ak 
4049 kk Category: LOCAL 
4050 ak 
4051 xk Purpose: 
4052 ae Conpute day# of start of year for various date 
4053 aK calculations. 
4054 ak 
4055 AS ENt Cy: 
4056 wk A = Year (BCD nunber). 
4057 at: DEC node. 
4058 a 
4059 RA EMITS 
4060 as C = Result (day# since day 0). 
4061 “ig P=0, 
4062 ak Carry clear. 
4063 ax DEC node. 
4064 aK 
4065 *k Calls: None. 
4066 ak 
4067 Rk Uses....... 
4068 ak B,C,P. 
4069 BF 
4070 *k Stk lvls: 0 
4071 ak 
4072 *k Detail: 
4073 a A is untouched. 
4074 ne Argurient > 9999 is interpreted as -1. 
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4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4033 
4084 
4035 
4086 
403? 
4088 
4089 
4090 
4091 
4092 
4033 
4094 


4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
410? 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
411? 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
412? 
4128 


132AF AF2 
132B2 23 
132B4 AS96 
132B7 20 
132B9 972 
132BC DO 
132BE 3366 
30 
132C4 BFA 
132C7 03 
132C9 C2 
132CB: C2 
132CD AFS 
132D0 C5 
132D2 BF 
132D5 A?3 
132D8 BF2 
132DB A793 
132DE B72 
132E1 A? 
132E4 A7S 
132E7 A78 
132ER BFS 
132ED FS 
132EF A79 
132F2 FS 
132F4 FS 
132F6 R79 
132F9 D8 
132FB FS 
132FD FS 
132FF B79 
13302 03 
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aa SUM3(-1)=-366 (10’s conplerent). 


ah 
** Algorithn: 


ae SUN3(Y)=INT(¥*365.25)-INT(¥/100)+INT(¥/400) 


a 
** History: 
a 


RK. wees ces 


Rk 05/27/82 
ik 


NM 


Modification 


Rdded docurientation 


SOR III IO ITI TO TOTTI TIT TT ITI III KITT IK 
JOR III OI TOOT GTO TOIT IOI TST TI III 


SUN3 = C=0 
p= 
C=R 
p= 
?R=C 
GOYES 
LCHEX 


C=-C 
RTNCC 
SUN310 C=C+R 
C=C+A 
B=C 
B=B+B 
CSL 
C=B+C 
CSL 
C=B+C 
C=C-A 
B=B+B 
B=B+B 
B=B+R 
BSR 
BSR 
C=B+C 
BSR 
BSR 
C=B+C 
B=A 
BSR 
BSR 
C=C-8 
RTNCC 


W 

3 

WP 

0 

W 
SUN310 
0366 


W 


KScCDwIVDeDwDeDrereeeerTrerEererewmewryw 


Copy lower 4 digits of y 


¥<=9999 
Yes 


Return -366 


3*A 


6*A 
30*A 
36*A 
360*A 
366*A 
365*A 
12*R 
24*A 
25*A 


Int(A/4) 


Int(A/400) 


Int(A/100) 
C=SUN3(A) 


FOI OOOO ICO OI OIG III IG OIC II 
ORI IOI III OO OOOO ICID IOI UI OOO: 


ak 


4k Nanie:(S) YMDDAY - 


** Category: 


** Purpose: 


TIME 


Convert Year,nonth,day To Day# 


ae Convert date to absolute day#. 


Saturn Asseribler Clock Systen <831228.1028> Fri Dec 30, 1983 3:51 an 


Ver. 3.39/Rev. 2306 Tine and Date conversion Page 80 
4129 ** 
41 ** Entry: 
4131 a = Year (BCD nunber). 
4132 +* B = Month (BCD nunber). 
4133 ax D = Day (BCD number). 
4134 ax 
4135 a* Exit: 
4136 ax A,B,C = Day# since day 0 (HEX). 
4137 aK HEX node. 
4138 A P=0, 
4139 an Carry clear. 
4140 kh 
4141 &k Calls: N306, SUN3, DECHEX (falls through) 
4142 ax 
4143 BE USES bs csseeace 
4144 ah A,B,C,D,P 
4145 Rk 
4146 RK Stk lvls: 1 
4147 ak 
4148 ** Detail: 
4149 ax Day# 1s expressed relative to 1 January 0000. 
4150 4% 
4151 tk Algorithm: 
4152 am 
4153 *k Define the following conditionally depending on 
4154 *x the value of MONTH: 
4155 ae 
4156 ak If MONTH < 3 then let NM = MONTH + 13 
4157 ax and let Y = YEAR - 1. 
4158 oe If MONTH >= 3 then let M = MONTH + 1 
4159 7 and let Y = YEAR. 
4160 ax 
4161 xX Also define the following functions: 
4162 xe 
4163 eX SUNI(Y) = int(Y * 365.25) - int(Y / 100) + int(Y / 400) 
4164 aK = -366 if Y=-1 
4165 x M306(M) = int(N * 30.6001) 
4166 ae 
4167 ** Mapping DATE to DAY NUMBER: 
4168 am 
4169 ** DAYHCMONTH, DAY, YERR) = SUN3(Y) + M306(MN) + DAY - 63 
4170 a* 
4171 ae 
4172 ** History: 
4173 a 
4174 Ee Date Progranrer Modification 
4175 RK wwe n ne cence wren terre nner een r nent er nner e eee nnnee 
4176 kk 05/27/82 = NN Added docunentation 
kk 
hi JE II GIGS IO TOT TOSI IC ITT I III 
4179 JU IOI IO III IDI I OI III II III SI IIIT IIT II II SAIS A 
4180 13304 05 =YMDDAY SETDEC 
4181 13306 £5 B=B+1 A Nonth+1 
4182 13308 20 P= 0 


4183 1330A D2 C=0 A 
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4184 1330C 304 LCHEX 4 
4185 1330F 9E9 7B>=C 8B Month+1 >= 4? 
4186 13312 AO GOYES YNDD1O Yes, y=year, m=nonthtl 
4187 13314 CC A=A-1 A No, y=year-1 
4188 13316 3121 LCHEX 12 
4189 1331A C1 B=B+C A N=nonth+13 
4190 1331C 7C7F YMDD10 GOSUB 306 N306(M) to c 
4191 13320 C3 D=D+C A Add to day 
4192 13322 D2 C=0 A 
4193 13324 3136 LCHEX 63 
4194 13328 £3 D=D-C A Subtract 63 
4195 1332A 718F GOSUB SUN3 SUN3(Y) to c 
4196 1332E A7B C=C+D W SUN3(Y¥)+M306(M)+day-63 
4197 13331 6489 GOTO DECHEX 
4198 JO OO SITIO IIIT II ITO II III IIIT IATA K I 
4199 JIS IO IO IIIS ISO OI III ITI T I TIS III I IAI III 
4200 ax 
4201 ** Nane:(S) DAYYND - Day# To Year, Month, Day 
4202 ak 
4203 ** Category: TIME 
4204 x 
4205 ** Purpose: 
4206 aK Convert fron absolute day# to date. 
4207 ax 
4208 ek Entry: 
4209 ae C = Day# since day 0 (HEX). 
4210 ax 
4211 RA Exit: 
4212 a A = Year (BCD nunber). 
4213 ak B = Month (BCD nunber). 
4214 a D = Day (BCD number). 
4215 x 
4216 - Calls: HEXDEC, ESTYO, SUM3, CHKYO, IDIV, M306, ASLW4 
4217 x 
4218 EF USCS eae 7es 
4219 an A,B,C,0,P 
4220 ah 
4221 ** Sth lvls: 1 
4222 xe 
4223 ** Algorithn: 
4224 x 
4225 ** Define the following conditionally depending on 
4226 %* the value of MONTH: 
422? ¥e 
4228 aX If MONTH < 3 then let M = MONTH + 13 
4229 xe and let Y = YEAR - 1. 
42h =x If MONTH >= 3 then let M = MONTH + 1 
42H ae and let Y = YEAR. 
4232 RK 
4233 ** Also define the following functions: 
4234 i 
4235 KK SUNBCY) = ant€Y * 365.25) - ant(¥Y / 100) + ant(Y / 400) 
4236 cae = -366 if Y=-1 
423? ek M306(N) = ant(N * 3.6001) 


4238 


kk 
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4239 ** Mapping DAY NUMBER to DATE: 
4240 aK 
4241 ** Calculate the value of YO as follous: 
4242 ax 
4243 aR YO = int( [(DAYH + 63) - 121.5] / 365.2425) 
4244 xx This 18 an approxination of the correct year. 
9245 am 
4246 ** # Nou calculate M® as follous: 
4247 ax Mm = int( [(DRY# + 63) - SUM3(YO)] / 30.6001) 
4248 xk Tf this [ is less than 4 then the year was one too 
4249 kk high; therefore let YO = YO - 1 and recalculate 
4250 xk using the new YO (ie YO := YO - 1; GO 10 #). 
4251 Kx 
4252 *k Once a value for MO greater than or equal to 4 is 
4253 xk ~~ obtained, the values of MONTH, DAY, and YEAR are 
4254 xk calculated as follous: 
4255 ae DAY = [(DAYH# + 63) - SUN3(YO)] - N306(MO). 
4256 kn If M™ >=14 then MONTH = M® - 13 and YEAR = YO + 1. 
4257 ax If ™® < 14 then MONTH = © - 1 and YEAR = YO. 
4258 ax 
4259 *k 360-day calendar is not done in this code. Here is how to 
4260 ** do it: 
4261 ae 
4262 **k For 360 day calendar, the nunber of days between tuo 
4263 4k dates is calculated as follons: 
4264 a 
4265 ax Let M1 = nonth of first date 
4266 aK Let D1 = day of nonth of first date 
4267 a Let Y1 = year of first date 
4268 xn Let M2 = month of second date 
4269 ax Let D2 = day of nonth of second date 
4270 a Let Y2 = year of second date 
4271 ae 
4272 *k Now make the following adjustnents: 
4273 aK If D1 >= 30 then 
4274 a begin 
4275 a D1 := W; 
4276 xx if D2 = 31 then D2 := 
4277 ak end; 
4278 *k Now conpute: 
4279 ax Delta-days = (¥2-¥1)*360 + (M2-M1)*3% + (D2-D1) 
4280 a 
4281 ** History: 
4282 am 
4283 me Date Prograriner Modification 
4284 RR nen e nee ene n wren ne enn n en een nnn ener enn seen cree rene 
4285 kk 06/27/82 NM Added docunentation 
4286 ax 
4287 JO I TOOT III OI II TI I ITI IIIA ITI IIIT IIS 
4288 JOO OCICS ISI OCC OCT TOTTI IIT 
4289 13335 73B9 =DAYYND GOSUB HEXDEC Convert day# to DEC 
4290 13339 7£60 GOSUB ESTYO Estinate yO 
4291 13330 7E6F DAYY10 GOSUB SUN3 SUN3(YO) to c 
4292 13341 7A% GOSUB CHKYO Check if yO is correct 


4293 13345 57F 


GONC DAYY10 YO was increnented. try again. 
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4294 
4295 
4296 
4237 
4238 
4299 
430 
41 
4He 
4H3 
4H%4 


4H5 


4306 
4x? 
4H8 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
431? 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4326 
4326 
432? 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4¥e 
4343 
4344 
4345 
4346 


13348 
1334C 
1334F 
13352 
13355 
13357 
1335A 
1335C 
1335F 
13361 
13364 


1336C 


13372 
13376 
13379 
13370 
13380 
13383 
13386 
13388 
1338B 
13380 
133% 
13392 
13395 
13398 
1339B 
1339F 
133A2 
133A4 
133R6 
133R9 


3136 
R79 
AF? 
AFE 
2B 
BF3 
oc 
SAF 
Dd? 
AF 2 
3510 
0603 
8£00 
0.0) 
7469 
AF8 
fF IF 
AF8 
AFA 
AF 2 
D8 
RFE 
2B 
BF? 
oc 
SAF 
B73 
R6D 
3121 
SED 
00 
£4 
B61 
Of 


Clock Systen <831228.1028> Fri Dec 3, 1983 3:51 an 


Tire and Date conversion Page 83 
LCHEX 63 Prepare to conpute 0 
C=B+C  W Day#+63-SUN3( YO) ==q 
D=C W Save q ind 
ACEX WwW Position q for divide 
P= 11 

DAYYSO DSL W Loop to sl q 5 tines 
P=P+4 
GONC § DAYY30 
D=C R Stash year 
C=0 W 
LCHEX 306001 WH . 6001 *10000 
GOSUBL =ASLW4 Q*10000 
GOSUB idiv A/30. 6001="0 
B=A W 
GOSUB 306 
B=A W mM 
A=C W N306(M) 
C=0 W 
C=D A Recover yO 
ACEX W YO to A, M306(MO) to C 
P= 11 
DAYY4O DSR W Loop to recover q 
P=P+] 
GONC DAYY4O 
D=D-C W Day 
B=B-1 B Mm-1 
LCHEX 12 
*B<=C 8B m<14? 
RTNYES Yes, we are done 
A=A+1 A No, increnent yO for year 
B=B-C B Month=n0-13 
RIN 


FUORI TOTO TTT TIT IIT IT TIT IK 
ORR IO III OOOO IIIT TOOT TOTTI TTI TOTTI 
xx 


** Nane: ESTYO - Estinate Year Fron Day# 
ae 


** Category: LOCAL 
as 


** Purpose: 

ax Estirniate year for use in day to date calculations. 
+ 

WE ERLCY: 

can C = Day# (DEC nunber since day 0). 

ax DEC rode. 

AR 

** Exit: 

as D = € on input. 

ae ALA] = Estinate of YO (transforned year). 
ae DEC node. 

ak 

** Calls: IDIV 


ae 
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4347 
4348 
4349 
4350 
4351 
4352 
4363 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 


4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 


4384 


133RB AF7 
133AE RFA 
133861 BFO 
13384 AF2 
133B7 20 
133B9 3258 
§ 
133BE B?A 
133C1 570 
133C4 AFO 
133C7 01 
133C9 BFO 
133CC BFO 
133CF BFO 
133D2 3652 
4256 


3 
1330B 6EF8 
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Fri Dec 30, 1983 


Value returned nust be checked for validity in the 


This was done to 


Nodification 


7 calling routine by calling CHKYO. 
x save subroutine stack usage. 

as 

** Algorithn: 

aA A=(day#+63-121.5). 

ak If A<O, then A=0; RIN. 

as A=A/365.2425; RIN. 

ak 

** History: 

ah 

a Date Progranner 

WAS Btesae: , erase 

xx 05/28/82 NM Added docunentation 
ak 


IIT OTIC TOTO TOC TT TOT TT TOE 
FORO TOTO TOIT TO TTR IIT K 


ESTYO D=C W 
A=C W 
ASL W 
C=0 W 
P= 0 
LCHEX 585 
A=A-C OW 
GONC ESTYOA 
A=0 W 
RTN 

ESTYOR ASL W 
ASL W 
ASL W 


LCHEX 3652425 


GOTO idiv 


Save day# 
Day# * 10 


(121.5-63)*10 
(day#+63-121.5)*10 


Go if no underflow 
Else use year=0 


(day#+63-121.5)*10000 
365. 2425*10000 


Conpute estinate of year yO 


4385 JOSIE IIIS III OCI OTIC T OST II ISI T IH 
4386 JI SII IIIT III IIIS IOS IIS IOS I IIIT II IIT TSK 
4387 xk 

4388 ** Name: CHKYO - Check Year Estimate For Validity 

4383 ah 

4390 ** Category: LOCAL 

4391 aR 

4392 xt Purpose: 

4393 a Check year estinate for validity in day-date 

4394 a conputations. 

4395 aE 

4396 4e Entry: 

4397 xx D0 = Day# (BCD number). 

4398 xx ALA] = YO (estinate nade in ESTYO). 
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4399 aR C = SUN3(YO). 
4400 aR DEC mode. 
4401 aR 
4402 xe Exit: 
4403 xx CARRY SET: Result mas valid. 
4404 RK YO in A, Day# in D. 
4405 aX CARRY CLEAR: Result was invalid. 
4406 x YO-1 in A, Day# in OD. 
4407 ak P=0, 
4408 xk B=SUN3( YO). 
4409 a C=0000000000000059. 
4410 ak 
4411 ** Calls: none. 
4412 aK 
4413 RE USS os ean 
4414 ak A,B,C,P 
4415 kk 
4416 *E Stk lvls: 0 
4417 aR 
4418 *k NOTE: 
4419 xk YO is considered in A[A], not A[W]. This doesn’t 
4420 kx natter except when YO=-1, 1n which case A returns the 
4421 a value 0000000000099999, not 9999999999999999, 
4422 = 
4423 ** Detail: 
4424 ax Used by calling routine in conjunction with ESTYO and 
4425 x SUN3 to estinate year in day to date corputations. 
4426 A Code was broken up this way to save subroutine levels. 
4427 aR 
4428 xk Algorithn: 
4429 a If DAYH-SUN3(YO) <= 59, result is valid; RTNSC. 
4430 aR Else A=A-1 W; RTNCC. 
4431 xk 
4432 *® History: 
4433 x 
4434 * Date Progranner Modification 
4435 RR wenn ween rn te ene enn nee nn ne nnn nen ene n nee nen ene 
4436 eK 05/28/82 = NM Added docurentation 
4437 a 
4438 JAI IOI III I CEO ECO IOC TI TIE 
4434 JOOS ITO COI OCIS OT OC TT IT 
4440 1330F BFA CHKYO (C=-C W 
4441 133E2 A7B C=C+0 W Day#-SUN3( YO) 
4442 133£5 AFS B=C W Hold for compare 
4443 133E8 AF2 C=0 W 
: 4444 133EB 20 P= 0 
are 4445 133€D 3195 LCHEX 59 
4446 133F1 9F1 *Boc OW Day#-SUN3(YO)<=59? 
4447 133F4 0 RTNYES No. we have valid yO. 
4448 133F6 CC A=A-1 A Yes, decrenent year 
4449 133F8 03 RTNCC And try again 
4450 ORI JOO IOI OOO OO OI OIG IOI It 
4451 FOUR JOO oO IS OO OOO I OI tok 
4452 ae 
4453 ** Narie: JD2DAY - Convert Julian Date To DAY# 
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4454 ak 
4455 *k Category: TIME 
4456 ae 
4457 *k Purpose: 
4458 ak Convert Julian date to DAY#. Used by SETDATE. 
4459 ak 
4460 ** Entry: 
4461 aK ACH) = Year (BCD number). 
4462 as C = Day-of-year (BCD number). 
4463 ak 
4464 RX Exit: 
4465 ah C = DAY# (HEX). 
4466 ak HEX tiode. 
4467 ak 
4468 tk Calls: YMDDAY. 
4469 ax 
4470 ae Uses....... 
4471 ak A,B,C,0,P 
4472 aR 
4473 Ae Sth Iylss° 1 
4474 ak 
4475 k* Algorithn: 
4476 ak B=1; D=day-of-year; YHDODAY. 
4477 ak (fool YMDDAY into Jan [day-of-year] YEAR. For exanple, 
4478 aR day-of-year 144 = Jan 144 YEAR.) 
4479 ah 
4480 kk History: 
4431 aK 
4482 a Date Prograrnmer Modification 
4483 BK www meen teeter weee cen none rene c en ren ne en enn n nen 
4484 RK 5/28/82 NM Added docunentation 
4485 ae 
4486 JIS IOO IOI IOI TOG CIOS II TE TIT IS 
4487 JIS ITO III IO TI TI TOTO TIS ISI II IIIS IOS SI II IIS IS: 
4488 133FA AF? JDB2DAY D=C W Will use day# in january 
4489 133FD AF B=0 W 
4490 13400 Bod B=B+1 8B Indicate january 
4491 13403 600F GOTO YMDDAY 
4492 FEI IOI IO TI ITT SRI TOT ITT III III ISI IAT II SII III IOS IIIT IIA 
4493 JOR IO I IIIT SII III III IIIT ITS S IIT TIT IRIS IAT IIIA III 
4494 ak 
4495 *k Nane:(S) DAY2ID - Day# To Julian Date 
4496 ee 
4497 *k Category: TINE 
4498 a 
4499 *k Purpose: 
4500 ak Convert day# (since 1 Jan 0000) to Julian date (year 
4501 ak and day-in-year) 
4502 ar 
4503 kk Entry: 
4504 aK C{W] = Day# (HEX days since day 0). 
4505 - 
4506 AX Exit: 
4507 aK ATW] = Year (BCD nunber). 


4508 xk B,C = Day-of-year (BCD number). 
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4509 ak DEC mode. 
4510 aK 
4511 *k Calls: HEXDEC, ESTYO, SUN3, CHKYO. 
4512 ae 
4513 ek Uses....... 
4514 ak A,B,C,D,P. 
4515 ak 
4516 ek Stk lvls: 1 
4517 ak 
4518 ** Algorithn: 
4519 ak Convert day# to DEC. 
4520 ae Estimate YO. 
4521 4k 1: Compute SUN3(YO). 
4522 ak CHKYO; if too high, decrement and goto 1. 
4523 aK If SUN3(YO) <= 365 then goto 2. 
4524 ak Day-in-year = SUMN3(YO)-365. 
4525 ae Year = YO+1. 
4526 ak RIN. 
4527 ek 62: If year divisible by 100 then point at digit 2, 
4528 aK else point at digit 0. 
4529 ae If selected digit divisible by 4 then 
4530 aK day-in-year=SUN3(YO)+1 
4531 aK else 
4532 ef day-in-year=SUN3(Y0O). 
4533 ak Year = YO, 
4534 ak RIN. 
4535 oa 
4536 xk History: 
4537 at 
4538 a Date Prograriner Modification 
4539 RR meen n ne eee ener ee nnn nnn nnn nn ne nnn nn ene nnn een ee 
4540 ek 06/03/82 NM Added docunentation 
4541 ak 
4542 JET IIIT SITIES II TIS IIIT IIIT STS: 
4543 JI II III IIIS OOO II TOO TTI ITA 
4544 13407 71€8 =DAY2JD GOSUB HEXDEC Convert day# to DEC 
4545 13408 7C9F GOSUB ESTYO Estinate yO 
4546 1340F 7C9E DAY210 GOSUB SUN3 
4547 13413 78CF GOSUB CHKYO YO correct? 
4548 13417 57F GONC DAY210 No, try again 
4549 1341A 3256 LCHEX 365 
3 
4550 1341F SBD *B<=C Xx 1 jan or later? 
4551 13422 BO GOYES DAY220 No 
45562 13424 €1 B=B-C A Yes 
4553 13426 AFS C=B W This 1s day-1in-year 
4554 13429 £4 A=A+1 A This 18 year 
4555 1342B 01 RIN 
4656 1342D 20 DAY220 P= 0 Mar 1 or later, check for leap 
4557 134eF 96C 7AHO OB Year divisible by 100? 
4558 13432 40 GOYES DAY230 No, check for div 4 
4553 13434 22 P= 2 Yes, check for div 400 
4560 13436 303 BAY230 LCHEX 3 
4561 13439 O£02 C=A&C  P 
4562 1343D 90E CHO) OP Is this leap year? 
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4563 13440 40 GOYES DAY240 No 
4564 13442 £5 B=B+1 A Yes, add 1 to day-in-year 
4565 13444 AF9 DAY240 C=B W 
4566 13447 01 RTN 


4567 13449 END 





ACLO24 
=ACTTNR 
=ADJA 

ADJAR1 

ADJAAZ 
=ADJAARA 
=ADIN 
=RADINNN 

RDSUBA 

ADSUB2 

ADSUB3 

ADSUBT 
=AF 

AFOS 

AFO? 

AF 20 
=ALNSRV 

ALRIM1 

ALRM6 

ARGERR 

ARGSTA 

ASLWA 

ASRW3 

BADAF 

CHKA20 

CHKA2S 

CHKA30 

CHKA40 

CHKAF 

CHKYO 

CLEPRS 

CLKUIO 

CLKUIS 

CLKU20 

CLKUZO 

CLKU40 

CLKUS4 

CLKUSS 

CLKLI60 

CLKU70 

CLKUPD 

CLRFRC 
=CNPT 


CNPT 20 
CAPT 
CNPTE 

=CNPTIN 
COLNIO 
COLNIZ 
CONF 10 
COMF 20 
CONP4O 
COMP 50 
COMPARF 





Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 


Saturn Assenbler 
Ver, 3.39/Rev. 


2306 


76665 
78249 
759H 
77072 
77079 
77064 
75813 
7710 
77176 
77194 
77197 
77134 
77292 
77374 
77382 
77408 
75133 
194329 
194389 


7727? 
75419 
75424 
75427 
75435 
75403 
78815 


75508 
75524 
75538 
75570 
75578 
75671 
756 74 
75718 
75750 
75456 


75186 


76235 
75250 
75892 
7§27? 
76925 
76837 
75327 
75364 
75383 
75394 
75292 
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Syribol 


#12879 
#131A9 
#1289A 
#12D10 
#12017 
#12008 
#12825 
#12D2C 
#12078 
#12D8A 
#12D8D 
#12D4E 
#12DEC 
#12E3E 
#12E46 
#12E60 
#1257D 
#2F 719 
#2F 755 


#12000 
#12698 
#126R0 
#126R3 
#126AB 
#12688 
#1330F 


#126F4 
#12704 
#12712 
#12732 
#1273A 
#12797 
#1279A 
#12706 
#127E6 
#126(0 


#125Be 


#12563 
#125F2 
#12874 
#12600 
#1eC?7D 
#12(61 
#1263F 
#12664 
#12677 
#12680 
#12610 


Table 


- 2219 
- 3619 
- 1096 
- 263? 
- 2639 
- 2635 
- 940 
- 2688 
=e 2064 
- 276? 
- 2768 
- 2747 
~ 2917 
- 2944 
- 2943 
= 2951 
- 194 
= 11 
= 4 
- 2699 
- 2588 
- 4305 
- 3278 
- 2876 
538 
540 
541 
544 
532 
4440 
2562 
740 
745 
748 
759 
762 
794 
792 
811 
- 820 
- 25 
- 2282 


3562 
- 318 
323 
998 
373 
2511 
2501 
460 
471 
- 478 
- 482 
- 449 


4 ‘ 1 4 ' , t ' 


t t 4 ’ ’ 


2273 


2640 
2565 
2569 


2693 


2756 
2762 
2760 
2638 


2918 
2340 
2949 


1371 
747 


2929 
536 
472 
§39 
484 

2928 

4292 

2634 
733 
790 
765 
753 
751 
77? 
775 
799 
822 
330 


198 


316 
3214 
94? 
2333 
2517 
2392 
45? 
459 
475 
479 
1171 


2570 
2829 
2572 


2764 
2691 


3672 


4547 
2687 


755 


801 
962 
373 


950 
2389 


2451 


2821 


2817 


758 


1330 
1161 


2447 
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=DATE 
=DATES 
DAY210 
DAY220 
DAY230 
DAY 240 
=DRY2ID 
DRYY10 
DAY Y30 
DRYY40 
=DRYYND 
DCHXW 
DECD1IO 
DECD20 
DECDAT 
DECHEX 
DECT10 
DECTIN 
DRANGE 
D¥2-12 
DVE0 
ESTYO 
ESTYOA 
EXAC10 
EXAC20 
EXAC30 
=EXACT 
=EXACTT 
EXPEXC 
EXPR 
FIXDC 
FLOAT 
=FLOATA 
FNRTN 
=FROMDT 
GETAIO 
GETA2O 
GE TAF 
GETD10 
GETD20 
GETDIO 
GETDFL 
GETDIG 
GETIRQ 
GETLI2 
GET LAF 
GETLST 
GETOFS 
GETPND 
GETTIN 
GETTN2 
GIF LAG 
HEXDEC 
=HASSEC 
HXDCW 


Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ros 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Ext 
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76756 
76858 
78863 
78893 
7892 
78916 
78855 
78653 
78679 
78733 
78645 


77834 
77858 
77766 
7708 
77470 
77412 


78440 
78763 
78793 
75989 
76002 
76009 
76982 
77270 


76373 


78395 
76258 
76264 
76234 
77731 
77744 
77754 
77764 
7720? 
76212 
76295 
76288 
76327 
76170 
76349 
75082 
75116 


77036 
78452 
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#1 2BD4 
#12C3A 
#1 340F 
#13420 
#13436 
#13444 
#13407 
#13330 
#13357 
#13380 
#13335 


#1 300R 
#13022 
#12FC6 
#12CE6 
#1 2E9E 
#12664 


#13268 


#133AB - 


#13309 
#12805 
#128E2 
#12869 
#128B0 
#12006 


#12A55 


#13238 
#129E2 
#129E8 
#129CA 
#12FA3 
#1 2FBO 
#12FBA 
#12FC4 
#12F8B 
#129B4 
#12707 
#1 2R00 
#12A27 
#1298A 
#12A3D 
#1254A 
#1256C 


#12CEC 
#13274 


' yo Ff 8 ' 


2332 
2446 
4546 
4556 
4560 
4565 
4544 
4291 
4299 
4315 
4289 
2586 
3283 
3291 
3263 
2586 
3031 
3015 
3147 
2281 
399 
4370 
4380 
1171 
1175 
1177 
1161 
2874 
2589 
2402 
2561 
1859 
1859 
2287 
3852 
1585 
158? 
1579 
3204 
3209 
3212 
3216 
3196 
1504 
1670 
1659 
1744 
1425 
1820 

125 

135 

728 
2587 
3954 
2587 


4548 
4551 
4558 
4563 
2336 
4293 
4301 
4317 
2450 


3281 
3289 
2819 
2927 
023 
2564 


3904 
429 
4377 
1167 
1172 
1120 
2874 


2633 
2277 


1431 
1675 

313 
3208 
3205 
3214 
3199 
240 


1505 
309 
450 
452 
192 
194 
133 

1163 

2275 

52 


3329 


35 


2636 


396 
4545 


1173 


2686 
2341 


455 


3044 
743 
1745 
323 
467 
951 
767 
302 


2944 


3442 
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3746 3960 4197 


2689 


2816 
2946 


463 


249 
783 
786 

1382 


3902 


798 


3304 


958 
954 


4289 


2936 2942 


3308 3316 3322 


4544 
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IOIV 
=INITCL 
=Invarg 

JD2DRY 

LC 708 

LC9999 

N306 

MP2-12 

NP60 

NPY 

NfErr 

NEXTst 

NXTIRQ 

PNDALM 

POP1S 

PRSD1O 

PRSD20 

PRSDAT 

PRSTIN 

PUTAIO 

PUTA2O 

PUT AF 
=PUTALN 

PUTIRQ 

PUTLI2 

PUT LAF 

PUTLST 

PUTOFO 

PUTOFS 
=PUTPND 

RANG10O 

RANGZO 

RANGYR 
=RCO1 

RCDOD1 

RCTT10O 
=RCTTM1 
=RESETC 

RJUSOS 

RJUSO? 

RJUS10 

RJUS20 

RIUS3O 

RJUS99 
=RIUST 

RJUSZR 

RTNCC 

SOCNEG 

SCREXO 

SCRTCH 
=SEC2TK 
=SECHMS 

SET1O 

SET20 

SET 


Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Rbs 
Ext 
Ext 
EXt 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Robs 
Abs 
Abs 
Abs 
Abs 
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78113 
77128 
78842 
75918 
75782 
78492 


78475 


19431? 
194401 


7794? 
77960 
77877 
77488 
7612? 
76143 
76275 
76114 
76223 
76321 
76314 
76338 
76198 
76201 
76361 
78016 
78035 
78000 
76486 
76419 
78284 
78258 
76024 
76537 
76645 
76576 
76591 
76603 
76610 
76514 
76605 


78799 
194881 
1943817 

78339 

78418 

75846 

75849 

75860 
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413121 - 
#12048 - 
#133FA - 
#1288E - 
#12806 - 
#1329C - 


#1328B - 


#2F70D - 
#2F761 - 


#1307B - 
#13088 - 
#13035 - 
#12EBO - 
H1295F - 
#1296F - 
#129F3 - 
#12952 - 
#129BF - 
H12A21 - 
#12A1R - 
#12A32 - 
#129A6 - 
#129A9 - 
#12R49 - 
#13000 - 
#130D3 - 
#130B0 - 
W12ACo - 
#12A83 - 
#131CC - 
#131B2 - 
#128F3 - 
H12AF9 - 
#12801 - 
#12820 - 
H1CBCF - 
#12B3B - 
#12842 - 
HI CRE? - 
#12830 - 


#12817 - 
#2F941 - 
H2F9O1 - 
#13203 - 
#13250 - 
#12845 - 
#12849 - 
#12854 - 


2584 
3437 
2699 
4438 
1033 
863 
4035 
3025 
3994 
2585 
2878 
28H 
11 
1 
3106 
3321 
3325 
3298 
3036 
1372 
1378 
1622 
1368 
1538 
1709 
1208 
1777 
1467 
1468 
1855 
Jord 
3384 
3373 
2032 
1944 
3674 
3667 
1219 
2094 
2097 
2107 
eile 
2116 
2121 
2086 
2118 
2873 
869 
11 
14 
3737 
392 
350 
951 
954 


3296 
7H 
773 

419 

3741 

3355 


1504 
1820 


3313 
3320 
3268 
#20 
1376 
1373 
1176 
1268 

813 
1469 

326 

788 
77 

953 

771 
3376 
3382 
3279 

199 
2286 
3676 


2092 
2090 
2111 
2109 
2106 
2102 
2925 
2039 


314 
3559 
1394 


2391 
945 
949 

1102 


.1028>. 


999 
1321 
4308 


3357 


1538 
1855 


1222 
1329 


1539 
785 
957 

2935 


1385 
3313 


3578 
2393 


333 


2943 
3675 
2032 


3448 


1003 
2761 


3497 


2938 


1778 
960 
1179 


3017 


3275 
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1180 
2934 


3265 


3744 


2933 
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SETA1O Abs 76079 #1292F - 1320 3690 

SETACO Abs 76100 #12944 - 1327 1325 

=SETALN Abs 76045 #1290D - 1267 

=SETALR Abs 76055 #12917 - 1312 3620 

=SETDAT Abs 77212 #12D9C - 2818 

SETFIO Abs 77315 #12E03 - 2925 2923 

SETI10 Abs 76975 #12CAF - 2570 2567 

=SETIME Abs 75813 #12825 - 939 2581 

=SETTIN Abs 76954 #12C9A - 2563 

=SETINO Abs 78168 #13158 - 3557 

SF12?, Abs = 75164 #12590 - 233 193 772 

SF1271 Abs 75181 #125AD - 240 237 

SFLAG? Ext - 3565 

SFLAGC Ext = 1225 

=$TO1 Abs 76460 H12AAC - 1991 197 3558 

STD0D1 Abs 76380 #12A5C - 1894 2271 2332 2388 2446 2931 2941 W15 
3263 

STM100 Abs 78224 #13190 - 3572 3567 

=STMEND Abs 77254 #12006 - 2830 2582 2641 2694 2875 


STOPDC Ext - 2872 

STRHDR Ext - 2398 

SUN3 Abs 78511 #I3ZAF - 4088 4195 4291 4546 
SUN310 Abs 78537 #13209 - 4097 4093 

TOPR1O0 ~Abs 77647 #12F4F - 3136 3131 

TDPA2O Abs 77650 #12F52 - 3137 3128 3151 
TDPA30 Abs 77661 #12F5D - 3141 3134 

TOPA4O Abs 77679 #12FEF - 3147 3143 

TDPA50 Abs 77692 #12F70 - 3150 3146 

TDPR6O0 Abs 77699 #12F83 - 3152 3139 

TDPARS Abs 77553 H12EF1 - 3105 3037 3299 
TIM$20 Abs 76819 #12013 - 2393 2456 

TIMAF Abs 194439 #2F787 - 11. 1579 1622 3500 
=TIME Ros = 76685 #12B8D - 2271 

=TIME$ Abs 76799 #12BFF - 2388 


TIME1O Abs 76744 #12BC8 2286 42343 «2951 


TIMER2 Abs 189176 H2EZF8 - 11 126 =—-817 = 3802 

TIMERR Abs 77126 #12046 - 2698 2093 2637 2639 269% 2692 2820 
TIMLAF Abs 194427 #2F77B - 11 1659 1708 

TIMLST Abs 194415 #2F76F - 11 1744 «1777 

TIMOFS Abs 194403 #2F763 - 11. 1425 «1468 


=TIMRND Abs 75281 #12611 - 374 3438 

=TODT Abs 78377 #13229 - 3809 2334 2390 2448 3439 
TRUNIO Abs 76655 #12B6F - 2180 2177 

TRUNCO Abs 76657 #12B71 - 2181 2171 2174 

=TRUNCC Abs 76618 #12B4A - 2168 2283 W31 3742 


WIPOUT Ext - 3501 
WRTTMR Ext - 3508 
YNDDIO Abs 78620 #13310 - 4190 4186 


=YMDDAY Abs 78596 #13304 4180 3327 4491 


=YMDHO1 Abs 78053 #130E5 - 3439 

YNDH1O =Abs 78090 #1310R - 3450 2501 3444 

YMDH2O Rbs 78093 #13100 - 3451 3325 3332 

=YMDHNS Abs 78043 #130DB - 3437 

argsta Abs 77042 #12CF2 - 2588 2919 321 3269 

cript Abs 78162 #13152 - 3509 2932 3016 3264 3437 3670 
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eRF 
=expexc 
fF1CLOC 
fFICTON 
FLEXAC 
idiv 


npy 
setalO 
setalr 


Ext 
Abs 
Ext 
Ext 
Ext 
Abs 


Abs 
Abs 
Abs 


77048 #12CF8 


77018 #12CDA 


77024 #12CEO 
78333 #131FD 
78252 #131AC 


Table 


2877 
2589 

72? 
3564 
1162 
2584 
2825 
2585 
369 
3620 


2563 


1224 
318 
3684 
460 
3574 
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2635 


4R2 
3813 
464 


2688 


807 
3912 
805 


Fri Dec 30, 


2818 


1002 1322 
4W6 4334 
2577 «2822 


1983 3:51 an 
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2274 «2575 
3856 


Saturn Assenbler Clock System <831228.1028> Fri Dec 30, 1983 3:51 an 
Ver. 3.39/Rev. 206 Statistics Page 94 


Input Paraneters 
Source file nane is MAN&TN: NS 
Listing file nane 1s MN/TM: TI: ML::-1 
Object file name is MNZTN:TI:MS::-1 


1411111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 TITLE Flags, Traps, and Modes<831216.1456> 
2 13449 ABS #13449 
3 x 
4 * ppPpP non & FFFFF OL GGG 
5 x Pp P MMMM 8&8 F L G G 
6 * Pp PHAN && F L G 
7 * PPPP HAN & FFFF OL G GGG 
8 x? nh NM &8&8& F L G 6G 
9 * ?P h nN & & F L G 6G 
10 x ?P ho MN 8&& F LLLLL 666 
11 % 
12 FOOT III OO TOI TO OTTO 
13 JOOS OI IOI IOI III OSI IOS IOS TOT ISS TOIT II TIS III K 
14. hk 
15 ** Nane: SFLAG - User Set Flags 
16 kx 
17 %* Category: STEXEC 
18 a 
19 ** Purpose: 
20 aK ALL: sets all user flags (0 to 63) 
21 ax MATH: sets all IEEE exception flags (-4 to -8) 
22 x otherwise: sets the flag(s) specified by the rounded 
23 ak value(s) of a flag number list. 
24 es in all cases, the annunciators are updated. 
26 tk 
26 &k Entry: 
27 ax DO -- progran counter, points to keyword or beginning 
28 aes of flag nunber list 
29 ae HEXMODE 
x” ax 
Kh ex Exit: 
32 RX appropriate flags set 
33 a all annunciators updated 
34 ax 
35 ** Calls: expex-,FLALL,FLMATH, FLGNB?, FLGS/C, RNDAHX, UPDANN, 
36 aX exits through NXTSTM 
37 ha 
38 AS USRS ceria 
39 xX Exclusive of expex-: 
40 Re CPU: A,B(S,A),C(5-0),D(A),P, SB, XN, D0, D1, sSTAT 
41 ak RAN: ANNAD1-4,F LGREG, SYSFLG 
42 a 
43 * Stk lvls:  ALL/MATH: 2 
44 XA flag # list: max(4,1+EXPEX-) 
45 x 
46 *x NOTE: 
47 =x Flag nunbers must be in the range [-32,63]. 
48 ax 
49 ** History: 
50 1k 
51 ee Date Progranner Modification 
52 Rho Sewacatia: Ghatemtis cee gee eee Nei oh ate 
53 kk 06/11/82 PN Docunented routine 
54 kk 08/06/82 PN Updated annunc. after each flag 
55 *k 01/05/83 Pn Revised docurentation 
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56 aX 
57 JOR III ITI I III ITI ITI I IIIS IIIS IIIT IASI IIT TI III IIIS IIS IIIS IIIT K 
58 JI III TI IIT TI IIE III II IIIT II III II IIT III II IIS ISI I III ASIA 
59 13449 0000 REL(S) =SFLGDC (sane as FIXDC) 
0 
60 1344E 0000 REL(5) =SFLGP 
0 
61 13453 7380 =SFLAG GOSUB FLALL test for ALL token 
62 13457 431 Coc SFLAGO 
63 1345A A7C A=A-1 W ALL token: set all user flags 
64 13450 1507 anxtsW DATO=A W 
65 13461 148 anxtsB DATO=A B 
66 13464 7901 GOSUB UPDANN update annunciators 
67 13468 506 GONC = nxtstn B.E.T. 
68 1346B 7380 SFLAGO GOSUB FLMATH test for MATH token 
69 1346F 400 GOC SFLAGZ 
70 13472 318F LCHEX F8 MATH token: set flags -4 to -8 
71 13476 OE6E A=A'C B 
72 1347A 56E GONC anxtsB Stet. 
73 13470 7962 SFLAG2 GOSUB expex- flag nunber list 
74 13481 850 ST=1 =sSTAT 
75 13484 6020 GOTO = XFLAG3 
76 JU TOT I III III TI ITT TOT AT OSI STII ISS ISI IIIS III IA 
77 FOI IR TOO IO III OI III ITT AID II IIIT II II IO TISAI IIS IO IA 
78 tk 
79 ** Narie: CFLAG - User clear flags 
80 tk 
81 ** Category: STEXEC 
82 ak 
83 ** Purpose: 
84 gies Clears the flag(s) specified by a keyword or a flag 
85 a nuriber list. See SFLAG docunentation for nore 
86 xs information. 
87 ax 
88 JU OI III III IIIT III TIO TIT II II III II III ISI III SI IIIT TA 
89 JI IT I I III IDI SII III TOIT ISO TI III IIIS IIIS ISIS III IIIS ISI I III IK 
® 13488 0000 REL(5) =SFLGDC 
0 
91 1348D 0000 REL(S) =SFLGP 
0 
2 13492 7440 =CFLAG GOSUB FLALL test for ALL token 
93 13496 56 GONC = anxtsW ALL token: clear all user flags 
94 13499 7550 GOSUB  FLMATH test for MATH token 
95 1349D 400 GOC CFLAG2 
96 134AD 3170 LCHEX 0? MATH token: clear flags -4 to -8 
97 134A4 OF66 A=ASC B 
98 134A8 588 GONC anxtsB B.E.T. 
99 134AB 7B32 CFLAG2 GOSUB expex- flag nbr list 
100 134AF 840 ST=0 — -=sSTAT 
101 134B2 7512 XFLAG3 GOSUB RNDAHK pop, test, round and convert to hex 
102 134B6 7202 GOSUB FLGNB? get flag 1f nor in range, else err 
103 134BR 7061 GOSUB  FLGS/C set/clear flag for sSTAT=1,0 
104 134BE 17F D1i=D1+ 16 set/clearing each flag 
105 134C1 133 ADIEX 


106 134C4 131 D1=A 
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107 134C7 1B00 00=(5) =FORSTK 
000 

108 134CE 146 C=DATO A 
109 134D1 882 7AcC OA nore argunents? 
110 13404 ED GOYES XFLAG3 
111 13406 6000 nxtstn GOTO =STMEND To NXTSTN 
112 JORIS OT IT OTTO TTT RTT TTT IK 
113 FORO ITO OI TOOT TI OO 
114 ak 
115 ** Nane: FLALL - Tests for ALL token 
116 a 
117 ** Category: LOCAL 
118 ax 
119 xX Purpose: 
120 ak Tests for ALL token. 
121 an 
122 ** Entry: 
123 &k P = 0 
124 ak DO --- Program counter 
125 aw 
126 ak Exits 
127 ax P = 0 
128 xR Carry=set: no natch 
129 ah DO unchanged 
1% ah Carry=clear: natch 
131 ae DO points to FLGREG 
132 ak A=0 
133 aK 
134 ** Calls: nothing 
135 ax 
136 AS USGS. 2 iness 
137 kk Inclusive: A,C(B),DO 
138 ax 
139 ** Stk lvls: 0 
140 ak 
141 xk History: 
142 xx 
143 *k Date Progranrier Nodification 
144 RAS (ococeeSe: | keteceessee! ~~ eee cheese esac Lee cence eee se 
145 kK 08/23/82 Pn Docunented routine 
146 Kk 01/05/83 PM Reviewed docunentation 

ks 
ae FORO RRO JI OI TO TIO 
149 FOO RII OO TOI OE 
150 134DA 14A FLALL A=DATO B get token 
151 134BD0 3100 LC(2) =tALL load ALL token 
152 134E1 966 7AHC OB 
153 134E4 0 RTNYES Carry set: no Hatch 
154 13466 1800 DO=(5) =FLGREG 

000 

155 134ED AFO A=-O OW 
156 134FO 01 carry clear: match 
157 JOSIE UI IIIS TSO II OTT 
158 FOO ORO RIO OO ICT ITO IOI 


oe 


xx 
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160 
161 
162 
163 
164 
165 
166 
16? 
168 
169 
170 
171 
172 
173 
174 
175 
176 
17? 
178 
179 
180 
181 
182 
183 
184 
185 
186 
18? 
188 
189 
190 
194 
192 
193 
194 
195 
196 
197 


198 
199 
200 
201 


202 
203 
204 
205 
206 
20? 
208 
209 
210 
211 
212 


134F2 15A5 
134F6 3500 
0000 
134FE 25 
13500 916 
13503 00 
13505 1B00 
000 
1350€ 148 
1350F 20 
13511 01 
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AX Nane: FLMATH - Tests for MATH token 
ax 


** Category: LOCAL 

x 

** Purpose: 

ax Tests for MATH token. 

kK 

** Entry: 

ae p a 

aK DO --- Progran counter 

ak 

ke Exit: 

x Carry=set: no natch 

ar DO unchanged 

ax P=5 

ak Carry=clear: match 

ak DO points to SYSFLG 
xx P=0 

ax ACB) contains flags -1 thru -8 
kk 


** Calls: nothing 

ek 

KK Uses....... 

&*k Inclusive: A(5-0),C(5-0),P, D0 
kk 


** Stk lvls: 0 
ka 

&* History: 

kk 

xk Date Progranner Nodification 

Pie te laices ea eels eed i deol tt og eet oath et as 
Re 08/23/82 PM Docunented routine 


kk 01/05/83 PM Reviewed docunentation 
kk 


FOR UII OITIOOI TOOTOOO OI 
FORO III OI TOI III OI TOT TTI TK 


FLMATH R=DATO 6 get token 
LC(6) =tMATH load MATH token 
P= § 
7RHC = OP 
RTNYES carry set: no natch 
DO=(5) =SYSFLG 
A=DATO B 
P= 0 
RTN carry Clear: match 


FOU IIT ROO III FOI IOI I GIGI IO 
IIIT ROR RTO ROR IIIT I IIGI UII OOOO 
aK 


4% Nane: FLAG - User’s flag function 
* 


** Category: FNEXEC 
ke 


** Purpose: 


Saturn Assenbler Flags, Traps, and Modes<831216 Fri Dec 30, 1983 3:59 an 


Ver. 3.39/Rev. 2306 Page 5 
213 aK Returns flag value of specified flag. If an 
214 a optional new flag value 1s included, sets the 
215 a flag to that new value and returns the previous 
216 a flag value. 
217 kt 
218 ** Entry: 
219 ae flag # on top of nath stack 
220 aK HEXMODE 
221 ak 
222 ARES Ys 
223 ak value on top of nath stack 
224 a optionally, flag set to neu value 
225 ae 
226 ** Calls: FLGRG?, FLGUP?, PARNCT, POP1N+, RNDAHX 
227 aR exits through BABBAJ 
228 aK 
229 BE USES. scxtaty 
230 xk Exclusive of uRES12: CPU: A,B,C,0(S,A),P, 00,01, SB, XM, sSTAT 
231 ak RAN: ANNAD1-4, FLGREG, SYSFLG 
232 ak unless fatal error 
233 = 
234 *® Stk lvls:  nax(4, 2+uRES12) 
235 ey 
236 ** History: 
237 ak 
238 ax Date Progranner Modification 
239 RX Setsltste sess cicla-. - Sas seoscseo cele cee Sooo oco SS 
240 Re 06/11/82 PA Docunented routine 
241 vi 01/05/83 PM Revised docunentation 
x 
as SII II IDI IIIT III IIIT III IOS IIIS ST ISIS III III IIS II I ISI III ITI AIT IAA 
244 JI III SII II II TI IAT TI IIIT I III III IIIT III SI IIIA SII SII ISIS ISIAH 
245 13513 8812 NIBHEX 8812 
246 1351? 7140 =FLAG GOSUB PARNCT set sSTAT according to # parns 
247 13518 4C1 GOC NOFVAL 
248 1351E 8E0 GOSUBL =POP1N+ pop new value, test for data 
00 
2439 13624 413 GOC cnflct type, signaling NaN 
250 13527 17F D1=D1+ 16 
251 1352A AC3 D=0 = § save new value in D(S) 
252 1352D ACO A=0 5 
253 13530 978 7A=0 OW 
254 13533 50 GOYES NOFYAL 
255 13535 B47 D=D+1 S$ nonzero: use 1 
256 13538 7F81 NOFVAL GOSUB RNDAHX pop, test, round, convert flag # 
257 1353C 7471 GOSUB FLGRG? get flag if nbr in range, else err 
258 13540 OF 26 A=R8C XS perforn logical "AND" operation 
259 13544 ADO A=0 n clear mantissa 
260 13547 FO ASL =A shift into A(N). A(M)=0 iff flg cl 
261 13549 79D0 GOSUB FLGUP? update flag, annunciators? 
262 1354D BD8 A=-A ON if flg was clr, cy=clr, else =set 
263 13550 8C00 GOLONG =BRBBAJ determine result, push on stack 


00 
264 13556 8C00 =cnflct GOLONG =CNFLCT 
00 
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265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
30 
01 
He 
3 
304 
5 
Xo 
7? 
H8 
3 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 


1355C 840 
1355F A4E 
13562 A4E 
13565 400 
13568 850 
1356B 01 
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FOO III OI TIT OT TTT K 
FOO IOI III IIIT TO OTT TI II ITN 
ak 


** Narie: PARNCT - Saves paraneter count in sSTRT 
xk 

*% Category: LOCAL 

xk 

** Purpose: 

ae Status bit sSTAT set according to C(S) 

ax 

*t Entry: 

ak C(S) 

xR HE XMODE 

ae 

AX Exit: 

ae sSTAT = 0 if C(S)=1 

7 1 otherwise 

xk 

** Calls: nothing 

aK 

AR UseS..neees 

x* Inclusive: C(S),sSTAT 

ae 

** Stk lvls: 0 

xa 

** History: 

i 

+ Date Progranner Modification 
ME -eSemetis “eakeketeas Ieee ete ede ee Sa 
kk 01/05/83 PM Docunented routine 

ak 


FOI III IOI IOI IOI TOI TOTO TIT II IIT IDI IK 
FOI IIIT OTTO TO TOI IOUT TO IIIT II 


PARNCT ST=0 =sSTAT 


C=C-1 §$ 
C=C-1 § 

RTNC 

ST=1 -=sSTAT 


XIII IOI I II CITI III OI OC TTI T TAS 
SII II II IO II TIT I RII ITT IT II IIIT I SII III IT IOS IT III I TITS T III III SIA 
kt 

** Nane:(S) UPDANN - Update Annunciator 

** Narie: UPDANX - Update Annunciator 


at 
** Category:  DSPUTL 

wk 

*X Purpose: 

= Updates annunciators corresponding to user and systen 
= flags. 

at 

*X Entry: 

ne user and systen flags 

ae HEXMODE 

aX 
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320 
321 
322 
323 
324 
325 
326 
32? 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 


347 
348 
349 


350 
351 


352 
353 
354 
365 


356 
357 
358 
353 
360 
361 


362 
363 
364 


365 
366 
367 
368 


1356D 1502 
13571 20 
13573 1800 
000 
1357A 146 
1357D DS 
1357F 34€7 
1€7 
13586 7EX 
1358A 100 
00 
13590 7EX 
13594 F6 
13696 F5 
13598 1ROO 
00 
1359E 72H 
135A2 FS 
135A4 CS 
135A6 C5 
136A8 C5 
135AR 1A00 
00 
135B0 7E10 
135B4 F6 
135B6 1A0O 
00 
135BC 14A 
135BF R88 
135C2 ROS 
135€5 309 
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aR Exit? 
ak appropriate annunciator(s) turned on/off 
ak Carry=Clear 
tk P=0 
AK HEXMODE 
ie 
** Calls: DBLUP , SNGLUP , UPDAN1 
ah 
ex Uses....... 


kk Inclusive: CPU: A(B),B(A),C(A),00,P 


** Stk lvls: 
ah 

*k History: 
kk 

ak Date 
| eee 
ak 06/11/82 
kK 10/04/82 


ak 01/05/83 
ih 


RAN: ANNAD1-4 


1 


Programner 
PA 
PA 
PA 


Nodification 
Docunented routine 
Changed for annunciator revision 
Revised docunentation 


FOOT TT OTTO TOTO TO OTT TIT 
FOTO OOO TTT IK 


=UPDANK DATO=A 
=UPDANN P= 
bo=(5) 


C=DATO 
B=C 
LCHEX 


GOSUB 
do=(4) 


GOSUB 
CSR 
BSR 
bo=(4) 


GOSUB 
BSR 
B=B+B 
B=B+B 
B=B+B 
DO=(4) 


GOSUB 
CSR 
bo=(4) 


A=DATO 
B=A 
B=B+B 
LCHEX 


KS 


0 


(=FLGREG)-2 


A 
A 
7EI7E 


UPDAN 
=ANNAD4 


DBLUP 

A 

A 
(=ANNADZ ) +1 


SNGLUP 


npDpDDwD 


RNNAD3 
DBLUP 


A 
(=FLGREG)-14 


B 
P 
P 
9 


read sone flags 
save flags in B(A) 
nasks for following calls 


AC annunciator 


ALARN, PRGN, SUSP, CALC annunciators 


BAT annunciator 


shift user flags left 3 bits 


user flags 0-4 


read systen set/test/clear flags 


shift flags left one bit 
USER, RAD annunciators 
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369 135C8 1AOO UPDAN1 DO=(4) (=ANNAD1)+1 


370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
383 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
40? 
408 
409 
410 
411 
412 
413 
414 
415 
416 
41? 
418 
419 
420 
421 


4°22 


00 
135CE 6700 


136D2 21 
135D4 Fo 
13506 1621 
135DR OE16 
135DE BSE 
135E1 O£15 
TI5E5 OETE 
135E9 1501 


22 135ED 20 


GOTO  SNGLP+ 
FI IIIS III I IIIT IIA ITI III TI IIIS ISIS II IIIS IIISIISI SII SII ISIS ISS IIA 
JI III STII IID II SI III IIIS IT IIIS II IIIS II IIIS III I SII IIIS TTI IIIS IK 
ak 
** Narie: DBLUP = - Turn annunc. on/off 
** Narie: SNGLUP - Turn annunc. on/off 
xk Narie: SNGLP+ - Turn annunc. on/off 
ak 
*k Category: LOCAL 
ak 
** Purpose: 
wh Turns annunciator(s) off/on according to whether 
ax corresponding flag(s) 1s cleared/set. 
ak 
*& Entry(SNGLP+): 
xs B(WP) - contains flags of interest 
ae C(WP) - 1’s conplenent of flag nask 
i P ---- points to position used by A,B,C 
ie DO --- points to nibble containing annunciator 
aK HEXMODE 
ih 
AR ERATE 
ak annunciator turned off/on 
ak Carry=Clear 
as P=0 
ax HEXNODE 
ak 
x* Calls: nothing 
ak 
BR USESi a ceiiers 
x* Inclusive: A(WP),C(A),DATO,P,SB 
ak 
*k Stk lvls: 0 
ik 
** History: 
ak 
ae Date Progranner Modification 
Mie, Avdetiee,, tetieisuce Wie Aeeeeuee ee ese eee eee LS 
Rk 06/14/82 Pr Docunented routine 
RK 11/12/82 dy Packed as per M.B.’s suggestions 
ae 01/05/83 Pr Revised docurentation 
ak 
JO IOI III ISI CIEE COICO TOS IIIT I ITI II 
JOC ISIS IOUS IO OTTO TTI III IATA IIIS IA 
DBLUP P= 1 
SNGLUP CSR A 
SNGLP+ A=DATO WP 
A=R8C WP turn annunc. off 
C=-C-1 WP 
C=C8B WP 
A=R'C WP turn annun. on if flag set 
DATO=R WP 
P= 0 
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423 135EF 03 RTWCC return with carry clear 
424 $I III III OS STOTT SII IIIS I TTS TI ST SS ITI SOT I III IIIA 
425 20 OTIS II SISO SOTO SII TOS SIS IOS ISS III SI TAIN 
426 ax 
427 ** Nane:(S) SFLAGS - Sets systen flag 
428 ne 
429 ** Category:  GENUTL 
4% tk 
431 ** Purpose: 
432 Re Sets a systen flag and updates annunciators 
433 Ax 
4% tk Entry: 
435 ak C(B) -- hex flag nunber (e.g. load FF for -1) 
436 ak HEXMODE 
437 ak P=0 
438 a 
439 xx Exit: 
4 440 ax specified flag set 
: 441 ak any corresponding annunciator turned on 
442 ax Carry=Clear 
443 -* D(A) - Set to DO 
444 ak HEXMODE 
445 ak P=0 
446 ax 
447 kk Calls: GTF LAG, UPDANX 
448 ax 
449 ae USCS se iaues 
450 *k Inclusive: CPU: A(A),B(A),C(15,5-0),D(A),P 
451 aK RAM: ANNAD1-4, SYSFLG 
452 Ae 
453 ** Stk lvls: 2 
454 ax 
455 ** History: 
456 a 
457 ae Date Progranner Modification 
458 RK wows yatoossoses whose ciclo leet te asec 
453 kk 06/11/82 PN Docunented routine 
460 kK 04/11/83 PM Revised docurtentation 
kk 
ab JO IIIT IOI ISO OSI OOS II III 
463 30 III II III III II IOS IIIS SII ITI SI OT ITO SI II SI IIIS I SII III ISIN 


464 135F1 D9 SFLG*B C=B A 
465 135F3 89 =SFLAG* ?P= 0 


466 135F6 BO GOYES SFLAGC 

467 135F8 20 P= 0 

468 135FA 7060 =SFLAGS GOSUB GTFLAG Set flag 

469 135FE 5E3 GONC SYSFLS B.E.T. 

470 JOC OOOO ISO IO IO II IOK 
471 OIC CII COO TO TOK 
472 ae 

473 ** Nane:(S) SFLAGC - Clears systen flag 

474 ax 

475 k* Category:  GENUTL 

476 ak 


477 xk Purpose: 
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478 
479 
480 
431 
482 
483 
484 
485 
486 
437 
488 
489 
49 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
51? 
518 
519 
520 
521 
B22 
523 
524 
525 
526 
52? 
528 
529 
5H 
531 
532 


13601 7950 
13605 5E2 


ax 
xk 
ak 
ax 
xx 
kx 
kk 
xk 
xx 
xx 
aa 
ax 
ax 
ak 
a 
xx 
kx 
aK 
a* 
ax 
ax 
ax 
am 
ak 
ax 
ax 
aa 
ax 
aK 
ax 
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Cleares a systen flag and updates annunciators 


Entry: 


Exit: 


C(B) -- hex flag nunber (e.g. load FF for -1) 
HEXMODE 
P=0 


specified flag cleared 
any corresponding annunciator turned on 
Carry=Clear 


D(A) - Set to 
HEXNODE 
P=0 
Calls: GTFLAG, UPDANX 
Uses....... 


Inclusive: CPU: A(A),B(A),C(15,5-0),D(R),P 


RAN: ANNAD1-4, SYSFLG 
Stk lvls: 2 
History: 
Date Programmer Modification 
og/i1/82 PN Documented routine 
04/11/83 PM Revised docunentation 


JORIS III IOI III III OTIC TO TT III I IOK 
OR JOIIRO UO UII OO IIIT III OI TTTOTOIIO 


=SFLAGC GOSUB GTFLAG Clear flag 


GONC = SYSFLC BOE 


FORO ORI IOI OI OI IOI 
JOR OOOO OI COICO IORI III COI IOI IOI OK 


xk 


XX Narie:(S) SFLAGT - Toggles systen flag 


xr 


** Category:  GENUTL 


ax 
xk 
ak 
aR 
xe 
xx 
xr 
aK 
a 
ax 
xk 
ak 
ax 
xk 
at 


Purpose: 


Toggles a systen flag and updates annunciators 


Entry: 


Exit: 


C(B) -- hex flag number (e.g. load FF for -1) 
HE XMODE 
P=0 


specified flag toggled 

any corresponding annunciator turned on 
Carry=Set 1f flag previously set 
Carry=Clear if flag previously cleared 
D(A) - Set to & 
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§33 
534 
535 
536 
537 
538 
533 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
582 
553 
554 
565 
556 
557 
558 
559 
560 
561 
562 
563 
564 
$65 
566 
567 
$68 
569 
$70 
571 
572 
573 
574 
$75 
576 
57? 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 


13608 7250 
1360C ARB 
1360F OE21 
13613 929 
13616 72 
13618 7810 
1361C 02 
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xk HE XMODE 
ak P=0 
kK 
*k Calls: GTFLAG, SYSF LC, UPDANX 
a 
** Uses....... 
**k Inclusive: CPU: A(R),B(A),C(15,5-0),D(A),P 
xk RAM: ANNAD1-4 
aX 
kK Stk lvls: 3 
kk 
** History: 
kk 
ax Date Progranner Modification 
Ree, cheat (hee Ve aa oS or Boa fd 
Kk 06/11/82 PM Docunented routine 
Kk 04/11/83 Pr Revised docunentation 
ak 


FOI TOI OI OT TI TOT TAT I 
FOI IO IOI OT OOK 


=SFLAGT GOSUB GTFLAG Toggle flag 
B=A KS 
B=B&C XS 
7B=0 XS flag previously clear? 
GOYES SYSFLS yes: set flag, RTINCC 
GOSUB SYSFLC no: clear flag, RTNSC 
RTNSC 


JOR UI UII IIT OOOO TTT TO TTT ITO TT TTT 
FORO TOI TOI TO TOO TTT TTT TT TIT 
ak 


** Nane: FLGS/C - Local flag utilities 
** Nane: FLGUP? - Local flag utilities 


ak 
** Category: LOCAL 

aK 

** Purpose: 

ak FLGS/C: sets/clears flag according to whether sSTAT=1/0 
en FLGUP?: updates flag iff sSTAT=1 
ak 

xk Entry: 

ae sSTAT 

sa D(S) -- new flag value for FLGUP? 
xk SYSFLS,SYSFLC inputs 

tok 

ee Exits 

aE flag updated as appropriate 

kk 

** Calls: UPDANX 

i 

RX USES cc 25) 

xk Inclusive: CPU: A(X),B(A),C(A),DO,P 

ae RAN: ANNAD1-4,F LGREG, SYSFLG 
ak 

XX Stk lvls: 2 

1k 
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588 
589 
590 
591 
592 
593 
594 
595 
596 
59? 
598 
59S 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
633 
640 
641 
642 


1361E 870 
13621 C1 
13623 501 
13626 860 
13629 Ct 
1362B 1522 
1362F 94F 
13632 BO 
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*k History: 
tok 


aR Date Progranner Modification 

Re Ae Vee: eae ee er tenement 
kk 01/05/83 Pr Revised docunentation 

&k 


FOR IOI ITO II OTT OT ITT 
FORO TTT TI TORT TTS ORI 


FLGS/C ?ST=1  =sSTAT 

GOYES SYSFLS 

GONC 3 SYSFLC B.E.T. 
FLGUP? ?ST=0 =sSTAT 

GOYES DO=D 

A=DATO XS 

7DHO 8S 


GOYES SYSFLS 
JIG OI TI I ITI TTI I TTI III ITI TIO III IIIT IITA ISSA TSK 


JOO IOI UII IIIT CGI TOI OCCT IIH 
xk 

** Nane: SYSFLC - Systen flag utilities 

** Nane: SYSFLS - Systen flag utilities 


ka 
** Category: LOCAL 

ne 

** Purpose: 

mr Respectively clears or sets bit in A(XS) masked by 
se C(XS), copies resulting A(XS) nibble into RAN nibble 
ak painted to by DO, updates annunciators, and restores 
KX PC saved in D(A). 

ka 

kk Entry: 

a A(XS) - contains bit to be cleared or set 

AK C(XS) - task isolating desired bit 

aK DCR) -- old DO value 

aK (0 ---- points to RAN destination nibble 

sa HE XMNODE 

ak 

AR EMIT: 

xe flag cleared or set 

Ax annunciators updated 

ae DO -- restored 

= carry=clear 

ws P=0 

ak HE XNODE 

tt 

** Calls: UPDANX 

kk 

ME USES 26 a4 

** Inclusive: CPU: A(X),B(A),C(A),DO,P 

aa RAN: ANNAD1-4,F LGREG, SYSFLG 

t 

** Stk lvls: 2 

tk 

** History: 

o* 
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643 7 Date Progranner Modification 
644 $a: JJotccerd. «<deboombace. pebsvseecacaewecevca sangessoceeeone 
645 ak 06/23/82 PM Docunented routine 
646 *K 01/14/83 PA Revised docunentation 
647 ar 
648 JOO DOI SII IIIS IIT TTT III 
649 JOU UIUC OUI TOIT K 
650 13634 BRE SYSFLC C=-C-1 XS clear flag 
651 13637 OE€26 A=R&C XS 
652 1363B D6 C=A A falls through next line unchanged 
653 1363D OE2E SYSFLS A=A'C XS set flag 
654 13641 782F GOSUB UPDANX update annunciators 
655 13645 DB DO=D = C=D A restore PC 
656 13647 134 Do=C 
657 13648 03) «o=rtnec = RINCC 
658 FIO I IIIT STITT II IIT IIT IS SI OT IO I III TIS IAAI. 
659 JOO UO OIE CIO IDI IIIT 
660 xk 
661 ** Narie:(S) SFLAG? - Tests systen flag 
662 aR 
663 ** Category:  GENUTL 
664 aK 
665 ** Purpose: 
666 Ee Tests a systen flag 
667 aK 
668 ** Entry: 
669 xt C(B) -- hex flag nunber (e.9. load FF for -1) 
670 aR HE XNODE 
671 xk P=0 
672 xk 
673 *® Exit: 
674 a Carry=Set if flag set 
675 xx Carry=Clear if flag clear 
676 ra D(A) - Set to DO 
677 aR HEXMODE 
678 a P=0 
679 aa 
680 ** Calls: GTFLAG 
681 aR 
682 xk Uses....... 
683 kk Inclusive: A(R),C(15,5-0) , D(A) 
684 ak 
685 *K Stk lvls: 1 
686 ak 
687 ** History: 
688 = 
689 am Date Progranner Modification 
690 AR Suet, “Goer seles” Bevleeeueteoe eas eee t eet eee 
691 xk 06/11/82 PN Docunented routine 
632 xk 04/11/83 PM Revised docunentation 
ak 
aa JOIST IO TIT OI I TIT ITI III II AIT TAK 
§95 JOO II TOI TO OG II ICO IIIT I III SII III 
696 1364C 7E0O =SFLAG? GOSUB GTFLAG Test flag 


697 13650 OF26 A=R&C XS 
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698 
699 
700 
701 
02 
703 
704 
705 
706 
707 
708 
709 
710 
711 
12 
713 
714 
715 
716 
17 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
73? 
738 
739 
740 
741 
742 
743 
744 
745 
746 
74? 
748 
749 


750 
751 


13654 DB 
13656 134 
13653 BR8 
1365C 01 


1365E DO 
13660 CC 
13662 AER 
13665 8A8 
13668 20 
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C=) A restore DO 
po=C 
A=-A = XS carry set/clear as AHO or =0 
RIN 


FIO III IO IIT OTTO TIT OOO SITIO 
FRI TIO IOI ITT TIT TOTO TR TIT ITI IN 
ak 


xk Narie:(S) GIFLAG - Gets RAM nib and flag mask 
aa 


** Category:  GENUTL 


ak 
** Purpose: 

xR Gets nibble and mask for SYSTEM flag specified 

ae by hex flag # 

ka 

**X Entry: 

aA C(B) -- hex flag number 

xt HEXMODE 

aR P=0 

as 

aA Exit: 

ar ACXS) - appropriate nibble fron flag register 

ae C(XS) - mask: 1 bit on at position of flag 

ae D(A) -- previous content of DO 

ae DO ---- points at appropriate nibble in flag register 
aK carry=clear 

xk P=0 

Rk HE XMODE 

xe 

** Calls: nothing 

ae 

BP USES. sieieas 

** Inclusive: A(A),C(15,5-0),D(A), D0 

kA 

** Stk lvls: 0 

ke 

** History: 

he 

ai Date Progranner Modification 

PEO edivekier eedsecaeke “Guth betes) eee ecm Sas es 
Kk 06/14/82 Pit Docunented routine 

RK ANF 17 £52 PM Rerioved canversion ovfl. tests 
Ke 04/11/83 PN Revised docurentation 

xx 


OI ROO IOI CIO IID TO TOI 
SOOO OI II IIIT OOOO TOOT IO IOI IOO III IK 


=GTFLAG R=0 A 


A=A-1 A 
A=C B 
NEGFLG ?A=0 =A clear carry for negative flag nbr 


GOYES POSFLG 


1366A 3400 POSFLG LC(5) (=FLGREG)-1 load flag register address 


000 
13671 136 
13674 D? 


CDOEX 
b=C A 
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752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 


772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
732 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 


13676 470 
13679 18F 
1367C FC 
1367E D2 
13680 31F3 
13684 886 
13687 D5 
13689 C4 
1368B D6 
1368D C6 
1368F 80F1 
13693 136 
13696 809 
13699 136 
1369C 1522 
136AO C6 
136A2 C6 
136A4 8001 
136A8 OD 
136AR 3384 
21 
136B0 20 
136B2 03 
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GOC RNGCHK if argunent positive, goto rmngchk 
DO=D0- 16 switch te second bank 
A=-R-1 A negate, adjust negative flag nbr 
RNGCHK C=0 A 
LCHEX 3F load OOO3F in C(A) 
"AOC OR argument out of range? 
GOYES ARGOR if so, goto argerr 
A=A+R A 
C=A A 
C=C+C A 
CPEX 1 (P=0 here) 
CDOEX 
C+P+1 
CDOEX 
A=DATO XS read test nibble 
C=C+C A determine nask load position 
C=C+C A 
P=C 1 
P=P-4 
LCHEX 1248 load mask (nay use C(S)) 
P= 0 
rtncc2 RTNCC return 


FOI TTT TIT OT TOTO TOOT TIC 
FORO RII OTT TT TO TR K 
an 


** Narie: FLGRG? - Local flag utilities 
ax Name: FLGNB? - Local flag utilities 


ke 
x* Category: LOCAL 

ki 

*k Purpose: 

a Gets user or systen flag info. 

ak 

ek Entry: 

as ACA) --- hex flag nunber 

ae Carry=set if user flag 

* =clear if systen flag 

xe sSTAT -- negative flag # range test? (FLORG?) 
tk HEXMODE 

ie 

SAERLtS 

RR GTFLAG exits 

ak 

** Calls: nothing 

ak 

RR USCS. 5o4n-<8 

** Inclusive: A(A),C(5-0), D(A), DO 

kk 

kK Stk lvls: 0 

tk 

** History: 

ik 

xk Date Progranner Modification 
RN Sb ceease- Oe tkeen sesso. - eee soese eee ln st tee eos toe eee 
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806 
80? 
808 
809 
810 
814 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
82? 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
84? 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 


13684 458 
136B7 860 
136BA BA 
136BC 4DA 


136BF 31FD 
136C3 9E6 
136C6 F9 
136C8 5B4 
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kK 01/05/83 PM Docunented routine 
kk 


FOI III OI IIIT III OI TTI II 
FOR OI OO JI IOI OO TI: 


FLGRG? GOC POSFLG 

?$T=0 =sSTAT 

GOYES NEGFLG 

FLGNB? GOC POSFLG 
test for neg flag nor in range 


LCHEX ODF load (set/clear bound) - 1 
"AC OB flag nbr within range? 
GOYES NEGFLG yes: get flag 
GONC ARGOR no: arg" out-of “ran e 
JO III I III ITSO RIG TIT TO TOTTORI 


FOO IIIT TTT OTT IIIT RI II 
ak 


** Narie:(S) RNDARHX - Pops, tests, rounds,converts dec to hex 
ak 

*k Category:  MTHUTL 

ak 

xk Purpose: 

sla Pops, tests, rounds, and converts a real nunber 
x to hex integer. 

ak 

AE ENtEY: 

ia nunber to be rounded and converted on top of 
ax Hath stack 

ak 

Fe ERAT! 

ak A(R) -- rounded hex integer 

xs Carry=Clear: negative integer 

is Carry=Set: nonnegative integer (incl -0) 
ar fatal error if array or complex type, or NaN 
ak HE XMODE 

an KM=0 

ak P=0 

ah 

** Calls: ARGST- , DCHXF 

ak 

RE MS OSs 528 t's 


kk Inclusive: A,B(S,A),C(A),0(A),P,SB,xMN unless fatal error 
kk 


*K Stk Ivis: 3 


hk 
*& NOTE: 

ax Input Fatal Error Message 
at 

a array "eDATTY" 

Be conplex "eDATTY" 

aR NaN "eIVARG" 

ak conversion overflow "eTVARG" 

tk 

** History: 

aK 


Date Progranner Modification 
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861 OF ersketels, “Seteueaels,) eseeasheccesevuias mara co aus 
862 *K 06/11/82 PH Docunented routine 
863 kk 08/11/82 Prt Redefined fatal error exits 
864 tk 12/17/82 PM Fatal error for convers. ovfl. 

865 ** 02/25/83 PA Renoved unnecessary GOC 
866 aK 
867 JIS TIO IOS OIS ORO SITS IT ISA II TIT TI II 
B68 JU OI SII IO SOT ISS ITS IIS IIS I IS IOI I SISOS I III IT IT 
869 136CB 8E00 =RNDAHX GOSUBL =ARGST- pop, test argument 
00 
870 13601 8E00 GOSUBL =DCHXF rounds, converts to hex integer 
00 
871 13607 400 RTNC return with carry set if positive 
872 136DR 8A8 ?A=O) OAR treat 0 as positive 
873 136DD 00 RTNYES 
874 136DF 831 ?XM=0 negative and in-range? 
875 136E2 OD GOYES rtncc2 yes: return with carry clear 
876 13664 8COO ARGOR GOLONG =IVAERR no: invalid argurient error 
00 
877 JIS IO III TO SIO SOIT TSO OST I SSI SOS SS SI III 
878 136EA 8C0O =expex- GOLONG =EXPEX- collapses nath stack 
00 
879 20 IOI IOI OCIS IOS TITS I IOS I TTA RII IIIA 
880 201 OI OO SII OI TOSI SOT I SSIS SIS SSIS IIS IIIS OS II SSSI I IIA 
881 ax 
882 ** Wane: TRAP - User’s Trap Function 
883 ak 
884 ** Category: FNEXEC 
885 ax 
886 ** Purpose: 
887 4% Returns the value of the trap specified by the 
888 ax IEEE exception flag number. If an optional trap 
889 aS value is included, sets trap to that value and 
890 a returns the previous value. 
891 ax 
892 ** Entry: 
893 kx argunent(s) on top of math stack 
894 a C(S) -- argument count 
895 aR HEXMODE 
896 ae 
897 ak Exit: 
898 am value on top of math stack 
899 = 
300 ** Calls: PARMCT , RNDAHX 
901 xe exits through FNRTN4 
902 ax 
903 kK Uses....... 
904 x Inclusive: CPU: A,B(S,A),C,0(A),P,RO,D1,sSTAT, SB, XN 
905 aK RAN: TRPREG 
906 ak unless fatal error 
907 xx 
908 XK Stk lvls: 4 
909 ah 
910 kx History: 


911 a 
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912 xx Date Prograrmer Modification 
943 $0 Veistotad- . therestaae. ascestcandSias sa ccw vedo eo 
914 RK 06/11/82 Ph Docunented routine 
915 kX 02/25/83 PN Added conditional jumps for sign 
&k 
ay JOKE II III II II IIIA II TI ITI IIIT IIIT III IIIT IIS AISI SII IIH 
918 JOS IIIT IT III III IAI II II II SITIOS IASI III IOS III ISIS I ISI II II IIIA 
919 136FO 8812 NIBHEX 8812 
920 136F4 746E =TRAP GOSUB PARNCT set sSTAT according to # partis 
921 136F8 461 GOC NOTVAL 
922 136FB 7CCF GOSUB RNDAHK pop, test, round and convert 
923 136FF 54E GONC ARGOR error if negative or out-of-range 
924 13702 17F Di=Di+ 16 trap value to hex 
925 13705 10 RO=A RO(A):=new trap value 
926 13708 F4 ASR A 
927 1370A 8AC RHO OAR 
928 13700 7D GOYES ARGOR error 1f value <O or >F 
929 1370F 78BF NOTVAL GOSUB RNDAHX pop, test, round and convert to hex 
930 13713 40D GOC RARGOR error if positive (have FFFFF for 
931 13716 D2 C=0 A out-of -range) 
932 13718 CE C=C-1 A 
933 1371R 3100 LC(2) =f lIVL load IVL flag nurnber 
934 1371E EA A=A-C A 
935 13720 43C GOC ARGOR error 1f flag # <IVL or >=0 
336 13723 304 LCHEX 4 nunber of exceptions - 1 
937 13726 936 "ADC OP 
938 13729 BB GOYES ARGOR error if flag # >INX 
939 1372B 3400 LC(5) (=TRPREG)+4 
00 
940 13732 E2 C=C-A RA 
941 13734 136 CDOEX DO points to trap nibble 
942 13737 D7 d=C A D(A) has previous DO value 
943 13739 AFO A=0 W 
944 1373C 2E P= 14 
945 1373E 1520 A=DATO P 
946 13742 30A LCHEX A 
947 13745 982 Ax OP value<A? 
948 13748 EO GOYES TRAP 
949 1374A BOAR A=A-C P 
950 1374D BD4 ASR nN 
951 13750 B04 A=A+1 =P 
952 13753 Bed A=A+1 B * increnent exponent 
953 13756 860 =TRAP1 *ST=0 =sSTAT 
954 13753 90 GOYES TRPEND 
955 1375B 118 C=RO put new trap value 
956 1375E 150 DATO=C 14 
95? 13762 DB TRPEND C=D A restore 1) 
958 13764 134 M=C 
959 13767 AF C=A W 
960 1376A 8C00 GOLONG =FNRTN4 
S61 we FORO JO ROI OOO OO OGIO II IOI 
862 JOGO II OO III III III OK 
963 =e 


364 t% Nane: DEFALT - Default statenent 
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965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 


1010 


1011 
1012 
1013 
1014 


1015 
1016 


13770 
13775 


13778 
13?77D 
13784 
13784 


1378B 
1378E 


0000 
0000 


148 
3100 
RES 
3411 
111 
960 
81 
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ak 
** Category:  STEXEC 

tok 

** Purpose: 

ws Sets arithnetic trap values according to a keyword: 
ss ON, OFF, or EXTEND. 

ak 

** Entry: 

a DO -- program counter, points to keyword 

as P=0 

aa HE XMODE 

xk 

RA EMItS 

a trap values set 

ae P=0 

ko HE XMODE 

tok 

** Calls: nothing 

a exits through NXTSTM 

dk 

BEMSES cad 5 ay 

** “Inclusive: CPU: A(B),B(B),C(A), DO 

th RAM: TRPREG 

kok 

kK Stk Ivis: 0 

kk 

** Detail: 

aR keyword trap values (INX, UNF, OVF,DVZ,IVL) 
kk 

as OFF 10000 

as ON 11111 

ais EXTEND 22221 

1k 

a 

** History: 

tok 

xx Date Progranner Modification 

WES cot cieee” eee SG r ela ai ee beet 
Kk 06/11/82 PN Docunented routine 

KK 07/30/82 PN Reversed neaning of trap values 0,2 
kk 01/05/83 PM Revised docunentation 


a 


FOO JOO TTT TIT TTT 
FORO ROI TO ITI TO TI III TT ITT ITI IIT KITT IIIT ITT TIT IIIT I IK 


REL(S) =DEFADC 


=DEFALT 


REL(S) =DEFAP 


R=DATO B get token 

LC(2) =tON load ON token 

B=C B x 

LCHEX 11111 trap values for ON 
*A=B OB 

GOYES DEFOUT 
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1017 
1018 
1019 


1020 
1021 
1022 
1023 
1024 


1025 
1626 
1027 
1028 
1029 
1930 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1086 
106? 
1088 
1069 
1060 
1061 
1062 
1063 
1064 
1065 


137% 
13794 
13797 


1379D 
13790 
137R2 
137R4 
137R6 


137RD 
137B0 


- 2306 


3100 
AES 
3322 
22 
964 
60 
D2 
£6 
1B00 
000 


144 
652D 


1066 137B4 0000 


0 


1067 137B9 O000 


0 
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LC(2) = tOFF load OFF token 
B=C B x 
LCHEX 2222 trap values for EXTEND 


7AHB OB not OFF? 
GOYES DEFOUT 
C=0 A trap values for OFF 
C=C+1 A 
DEFOUT DO=(5) =TRPREG 


DATO=C A 


GOTO 30 nxtstr 
JOTI IID OU OO IDI TI GOT TOTTI SISA IIT AIK 


FORO IIIT TTT TO TOT TT 
ak 


x Nane: OPTION - Select base, angle, or round node 
es 

** Category:  STEXEC 

*K 

** Purpose: 

oi Sets BASE, ANGLE, or ROUND node 

ik 

** Entry: 

ax DO -- points to OPTION keyword token 

kx P=0 

es HE XNODE 

tok 

RACERITS 

BS BASE, ANGLE, or ROUND node set 

® HE XNODE 

i. 

k* Calls: expex-, RNDAHX, SFLAG*, SF LG*B 

= exits through NXTSTN 

tok 

PR USES scakein’s 

** Exclusive of EXPEX-: CPU: A,B(A),C,D(A),P,D0, SB, xn 
th RAN: ANNAD1, SYSF LG 

tok 

** Stk lvls: BASE: nax(4, 1+EXPEXC) 

ae ANGLE, ROUND: 3 

oe 

** History: 

kt 

** Date Progranter Modification 
RA J eSemee ce! -sieeee sas Le eee eee See oe ee ae 
** 06/14/82 Pn Docunented routine 

** 10/19/82 Pr Added ROUND node 

** 01/05/83 Pr Revised docunentation 
aK 


FRO RIO IOUT OOO ITO IOI 
SOROS IGII OOOO I III 


REL(5) =OPTDC 
REL(5) =QPTP 
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1068 137BE 1527 =OPTION A=DATO W Option statenent execution 
1069 137C2 AFG C=A W 
1070 137C5 3100 LC(2) =tBASE 
1071 137C9 962 7A=C OB BASE? 

1072 137CC 07 GOYES OPBAS If so, goto OPBAS 
1073 137CE 3500 LC(6) =tRNGLE 
0000 
1074 13706 372 7A=C OW ANGLE? 
1075 137D9 05 GOYES OPANGL If so, goto OPANGL 
1076 1370B 165 DO=D0+ 6 ROUND node: skip over token 
1077 137DE 15A5 A=DATO 6 
1078 137E2 3100 LC(2) =fLINFR 
1079 137€6 DS B=C A 
1080 137E8 3500 LC(6) =tPOS 
0000 
1081 137FO 972 7A=C OW 
1082 137F3 92 GOYES OPINFR 
1083 137F5 3500 LC(6) =tZERO 
0000 
1084 137FD 972 7A=C OW 
1085 13800 11 GOYES OZEROR 
1086 13802 3500 LC(6) =tNEG 
0000 
1087 1380A 976 ABC OW 
1088 13800 11 GOYES ONEARR 
1089 1380F 21 P= 1 round to -inf 
1090 13811 7CDD OZEROR GOSUB SFLG*B round to zero 
1091 13815 3100 LC(2) =f1NEGR 
1092 13819 5F5 GONC = snxtst B.E.T. 
1093 * 
1094 1381C 21 OPINFR P= 1 round to +inf 
1095 1381E 7FCD ONEARR GOSUB SFLG*B round to nearest 
1096 13822 3100 LC(2) =f 1NEGR 
1097 13826 545 GONC = cnxtst B.E.T. 
1098 13829 165  OPANGL DO=D0+ 6 ANGLE node: skip over token 
1099 1382C 15A1 A=DATO 2 read next token 
1100 13830 3100 LC(2) =tDEGRE 
1101 13834 962 7A=C OBB DEGREE? 
1102 13837 C2 GOYES DEGREE 
1103 13833 583 GONC RADIAN 
1104 1383C 161 OPBAS D0=D0+ 2 BASE node: skip over token 
1105 1383F 77AE GOSUB expex- Evaluate expression 
1106 13843 748E GOSUB RNDAHX pop, test, round, convert base 
1107 13847 3100 LC(2) =f iBASE load BRSE flag # 
1108 1384B CC A=A-1 A base=0? 
1109 1384D 4D2 GOC cnxtst yes: clear BASE flag 
1110 13850 CC A=A-1 A base=1? 
1111 13852 462 GOC snxtst yes: set BASE flag 
1112 13855 6E8E GOTO ARGOR base#O or 1: fatal error 
1113 FI IIIT IIIT III ITI III III III IIIS SI ITI IS TI TI IIT III ISI ISI TIS 
1114 $I III I IIIT III II IIS IIT III III ISI III I III II II II ISIS IST IST ISI IS 
1115 ak 
1116 ** Nare: DEGREE - Sets degrees node 
1117 x 


1118 *® Category: STEXEC 





me | 
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1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
113? 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
114? 
1148 
1149 


1180 


1151 
1182 
1163 
1154 
1165 
1156 
115? 
1168 
1189 
1160 
116) 
1162 
a 1163 
1164 
1165 
1166 
1167 
1168 
1163 
1170 
1171 


13853 0000 
0 


1385€ 0000 
0 

13863 3100 

13867 6310 
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ks 
** Purpose: 
ax Sets ANGLE node to DEGREES (short statenent forn of 
ae OPTION ANGLE DEGREES) 
ae 
** Entry: 
ax P=0 
aR HEXNODE 
aK 
KX Exit: 
aR ANGLE node set to DEGREES 
ah 
kk Calls: SF LAG* 
ee exits through NXTSTN 
ak 
KX Uses....... 
xk Inclusive: CPU: A(A),B(A),C(5-0),D(A),P, DO 
ak RAM: ANNAD1, SYSFLG 
xt 
RE Stk lvls: 3 
ak 
** History: 
xk 
ae Date Prograriner Modification 
SE keer etes iskepboges eco ett, cei eee Stet 
Kk 06/14/82 PM Docunented routine 
kk 01/05/83 PM Revised Docuriention 
xk 


FOI OI IOI ICI OOO IIIT OI OTTO IOI OK 
FOO ITI TOTO TIT TO TIO 


REL(5) =STOPDC 
REL(S) =RTNCC 


=DEGREE LC(2) =f 1RAD select RAD flag 


GOTO 3=cnxtst clear it 
JOR I IIC IDG ICTS OIG IIIS IE 


FOOT IO OIG ITO TIO TOIT IOI 
ak 


xk Narie: RADIAN - Sets radians node 
ak 

** Category: STEXEC 

ae 

4% Purpose: 

wk Sets ANGLE node to RADIANS (short statenent forn of 
as OPTION ANGLE RADIANS) 

*k 

Be Entry: 

x P=0 

xk HE XMODE 

at 

Re Exit: 

ak ANGLE node set 

ze 

** Calls: SF LAG* 
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1172 
1173 
1174 
1175 
1176 
117? 
1128 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 


1190 


1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1e1?7 
1218 
1219 
1220 
1221 
1222 
1223 
1224 


13868 0000 
0) 
13870 0000 
0 
13875 3100 
13879 21 
1387B 7470 
1387F 665C 


ak 
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exits through NXTSTM 


Inclusive: CPU: A(A),B(A),C(5-0),D(A),D0,P 


Stk 


lvls: 


History: 


06/14/82 
01/05/83 


FORO RTI TOO ITO TO ITT II 
FOOT TOOT OTTO TR TTT TTT TK 


REL(5) 
REL(5) 


=RADIAN LC(2) 
snxtst P= 
cnxtst GOSUB 


O10 


RAN: ANNAD1, SYSFLG 


3 

Progranner Modification 
Pn Docunented routine 
PA Revised docunentation 


=STOPDC 

=RTNCC 

=f LRAD select RAD flag 

1 set flag 

SF LAG* clear flag 

nxtstn Junp to next statenent 


JOJO JOO ITO TIO IOI TI TIT II OK 
FORO JOO RIOT TT TD IT 


ak 
ak 
ak 
ak 
ak 
xk 
ak 
ak 
xk 
ak 
ak 
xk 
ax 
ak 
xk 
xk 
ak 
xx 
ak 
kk 
aK 
ax 
xk 
xx 
xk 
ak 
ak 
aK 


Narie: INX - Flag Nane Functions 

Narie: UNF - Flag Nane Functions 

Nare: OVF - Flag Nane Functions 

Nane: DVZ - Flag Nane Functions 

Nanie: IVt - Flag Nane Functions 

Category: FNEXEC 

Purpose: 
Return, respectively, the inexact, underflow, overfloun, 
divide-by-zero, and invalid operation systen flag 
nurbers. 

Entry: 
Carry=clear 

Exit: 
flag nunber pushed onto math stack 

Calls: exits through FNRTN4 

USES eens 

Inclusive: C,P 
Stk lvls: 0 


History: 
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1225 
1226 
122? 
1228 
1229 
1230 
1234 
1232 
1233 
1234 
1235 
1236 
123? 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 


1252 


13883 00 
13885 24 
13887 581 
1388A 00 
1388C 25 
1388E 541 
13891 00 
13893 26 
13895 500 
13898 00 
1389A 27 
1389C 560 
1389F 00 
138A1 28 
138A3 AF2 
138A6 OS 
138A8 BCE 
138AB 80FE 
138AF 8000 
00 
138B5 
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Xk Date Progranner 
UR ice dee. - Jeti eset 
tk 06/10/82 Prt 
tx 01/05/83 Pr 


ak 
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Page 24 


Fri Dec 30, 1983 


Modification 
Docunented routine 
Revised docunentation 


FORO URI OI TT TT TO IK 
FOI III OO TOI OGIO CO I TTT Or 


NIBHEX 00 
=INK P= 4 

GONC LOADNB 

NIBHEX 00 
=UNF P= 5 

GONC  LOADNB 

NIBHEX 00 
=OVF P= 6 

GONC LOADNB 

NIBHEX 00 
=DVZ P= i 

GONC LORDNB 

NIBHEX 00 
=IVL P= 8 
LOADNB C=0 W 

SETDEC 

C=-C-1 § 

CPEX 14 


GOLONG =FNRIN1 
END 


inexact result (-4) 
B.E.T. 


underflow (-5) 
B.E.T. 


overflow (-6) 
B.E.T. 


divide by zero (-7) 
B.E.T. 


invalid operation (-8) 
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ANNADI Ext - 369 

ANNAD2 Ext - 355 

ANNAD3 Ext - 361 

ANNADS Ext - 351 

RRGOR Abs 79588 #13664 - 876 758 818 923 928 3% 935 938 

1112 

ARGST- Ext - 869 

BABBAJ Ext - 263 

sCFLAG Abs 78994 #13492 - 92 

CFLAG2 Abs 79019 #134AB - 99 95 

CNFLCT Ext - 264 


DO=D Abs 79429 #13645 - 655 600 
DBLUP Abs) = =79314 #13502 414 352 = 362 


DCHXF = Ext - 870 

DEFADC Ext - 1009 

=DEFALT Abs 79738 #1377A - 1011 

DEFAP = Ext - 1010 

DEFOUT Abs 79782 #137R6 - 1024 1016 1021 
=DEGREE Abs 79971 #13863 - 1151 1102 

=DVZ Abs 80026 #1389A - 1243 

EXPEX- Ext - 878 


=F LAG Abs 79127 #13517 - 246 
; FLALL Abs 79066 #13408 150 61 92 
i FLGNB? Abs 79548 #136BC - 813 102 
154 46 364 749 


FLGREG Ext 


FLGRG? Abs 79540 #13684 - 810 257 
FLGS/C Abs 7939 #1361E - 596 103 
FLGUP? Abs 79398 #13626 - 599 261 
FLNATH Abs 79090 H134F2 - 196 68 94 
FNRTNT Ext - 1251 

FNRTN4 Ext - 960 

FORSTK Ext af 107 


=GTFLAG Abs 79454 #1365E - 744 468 510 553 696 
=INX Abs 80005 #13885 - 1234 

IVAERR Ext - 876 
=IVL Abs 80033 #138R1 - 1246 

LOADNB Abs 80035 #138A3 - 1247 1235 1238 1241 1244 
NEGFLG Abs 79461 #13665 - 747 812 817 

NOFVAL Abs 79160 #13538 - 256 247 254 

NOTVAL Abs 79631 #1370F - 929 921 

ONERRR Abs 79902 HI381E - 1095 1088 

OPANGL Abs 79913 #13829 - 1098 1075 

OPBAS Abs 79932 #1383C - 1104 1072 

OPINFR Abs 79900 #1381C - 1094 1082 


OPTDC =Ext - 1066 
=OPTION Abs 79806 #137BE - 1068 
OPTP Ext - 1067 


=OVF Abs 80019 #13893 - 1240 

OZEROR Abs 79889 #13811 - 1090 1085 

PARNCT Abs 79196 #1355C - 298 246 920 

POPIN+ Ext - 248 

POSFLG Abs 79466 #13668 - 749 748 810 813 

=RADIAN Abs 79989 413875 - 1191 1103 

=RNDAHK Abs 79563 #136(B - 869 101 256 9322 929 1106 
RNGCHK Abs 79486 #1367E - 755 782 





Saturn Asseribler 
Ver. 3.39/Rev. 2306 


RTNCC 
=SFLAG 
=SFLAG* 

SF LAGO 

SFLAG2 
=SFLAG? 
=SFLAGC 
=SFLAGS 
=SFLAGT 

SFLG*B 

SFLGDC 

SFLGP 

SNGLP+ 

SNGLUP 

STMEND 

STOPDC 

SYSF LC 

SYSF LG 

SYSFLS 
=TRAP 

TRAP 1 

TRPEND 

TRPREG 
=UNF 

UPDAN1 
=UPDANN 
=UPDANX 

XFLAG3 

anxtsB 

anxtsll 
cnflct 
cnxtst 
=expex- 

f 1BASE 

f LINFR 

flIVL 

f INEGR 

f LRAD 

nxtstr 
=rtnec 

rtnec2 
sSTAT 
snxtst 

TALL 

tANGLE 

tBRSE 
tDEGRE 
tMATH 
tNEG 
tOFF 
tON 
tPOS 
tZERO 


Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


78931 
7934? 
78955 
78973 
794 36 
79361 
79354 
79368 
79345 


79318 
79316 


79412 


79421 
79604 
79702 
79714 


80012 
79304 
79217 
79213 
79026 
78945 
78941 
79190 
79995 
79594 


79062 
79434 
79538 


19993 
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#13453 
#135F3 
#1346B 
#13470 
#1364C 
#13601 
#135FA 
#13608 
#135F 1 


#13506 
#13504 


#13634 


#13630 
#136F4 
#13756 
#13762 


#1388C 
#13508 
#13571 
#1356D 
#134B2 
#13461 
#13450 
#13556 
#13878 
#136EA 


#13406 
#1364A 
#136B2 


#13879 


1150 
61 
465 
68 
73 
636 
510 
468 
553 
464 
59 
60 
416 
415 
111 
1149 
650 
201 
653 
920 
953 
957 
939 
1237 
369 
345 
344 
101 
65 
64 
264 
1193 
878 
1107 
1078 
933 
1091 
1151 
111 
657 
773 
74 
1192 
151 
1073 
1070 
1100 
197 
1086 
101? 
1012 
1080 
1083 


1190 


1193 
62 
63 


466 


1090 
30 
91 

370 
356 


1189 
511 


463 


948 
954 
1024 


350 
66 
654 
75 
72 
33 
249 
109? 
73 


1096 
1191 
67 


875 
100 
1092 


1095 


558 
557 


110 
98 


1109 
93 


1026 


298 
1111 


598 
597 


1162 
1105 


1194 


We 


Fri Dec 30, 1983 


603 


$96 


599 


811 
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953 
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Input Paraneters 
Source file nane is PM&FLG: AS 
Listing file nane is PA/FLG: TI:ML::-1 
Object file nane is PMZFLG: TI: MS::-1 


411111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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Store & Retrieve Data - PRINT# 4:28 arn 
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1 x SSS ccecsi8H: DDDD A TITTT 

2 e §$ S$ C C€ &&% DD AA T 

3 x S C && DDA A T 

4 A SSS. C é DbDA A T 

5 ’ SE &&& D BD AARAR T 

6 * Ss $ €¢ C€ & & DoDA A T 

7 ; SSS ccc 8& & DDDD A A T 

; ‘ 
10 
1 x 
12 TITLE Store & Retrieve Data - PRINTH/READH<831216.1958> 
13 138B5 ABS = #138B5 
14 RDSYMB TIZEQU: : MS 
15 RDSYNB SBZRAN: : MS 
- FOI IRR JU OO 
18 x 
19 x Local Status Syribol Definitions 

x 

FOR JOR TO JI ITT TT TTT OK 
22 Notnun EQU 0 Data item on math stack is not a nunber. 
23 Array €QU 1 Data iten on math stack is an array vector. 
24 String EQU 2 is a string. 
25 Criplex EQU 3 // is a conplex nunber. 
26 Return EQU 4 Do a return after expanding the file. 
ct Error €QU 5 Error had been happen. 
28 Odd EQU 6 The string length in the TEXT file is odd. 
29 Done EQU 6 Done with entire string. 
30 Check EQU 7? Only check the array vector on stack 
31 Uptistk EQU ? UPdate math stack pointer. 
32 Fresh EQU 8 Doing on the 1st elerient of an array. 
33 Randon EQU 9 Randon access. 
34 I/Obuf EQU 10 The file 1s in a mass nerory device. 
35 Iran EQU 11 The file is in Independent RAN. 
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36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
4? 
48 
49 
50 
54 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
6? 
68 
69 
70 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
8? 
88 
89 
30 


138B5 118 
138B8 134 
138BB De 
138BD 303 
138C0 8B9 
138C3 E1 
138C5 879 
13808 00 
138CA CD 
138CC€ 4R0 
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FORO III II OT OTTO TTT TT ITOK 
FORO IOI TOTO 
ak 


** Narie:(S) WSTRFX - Write a String to a DATA File 
aK 


xk Category:  FILUTL 


ka 
** Purpose: Write a string to the fixed length data file 
aX If the file 1s in an external mass nenory device, 
ah data will be written to its 1/0 buffer first. When 
ai the I/0 buffer is full or the file is closed, the 
AR content of the I/0 buffer will be written back to 
a the file. 
ka 
** Entry: A = string length in bytes 
a B = # of bytes left in current record 
wo RO(A)= Current file pointer 
ak RO(15,14)=Current byte ptr in file I/0 buffer 
aR R1= record length in bytes 
xk D1 @ past the string ( String is stored backward) 
ah STNTD1 Contains FIB entry address 
KR S9 = 0 1f serial access 
a = 1 if randon access 
Ae S10 = 0 if internal file 
ak = 1 if external file(write file 1/0 buffer) 
a It is assured that there 1s enough room left in the 
ax file. 
xe If the string is too long to fit into the current 
a record and it is a serial access, the string will be 
. broken down into smaller logical units. 
x 
AX Exit: Carry set => Random access crossing record boundary 
a Carry clear => Done successfully 
4x RO(15,14) & RO(R) will be maintained 
ke 
** Calls: DO+2WR, WRBYTC 
ak 
** Uses: A,B,C,D0,RO, ST[4-0] 
kk 
*X Stk lvls: 1 1f internal file 
x 4 if external file (when flush file buffer) 


FOI IOI IIIT TEI IT ET IOI GEO IC IOIE 
FORO TOIT OI OI TO IOI OOOO 
x 


=WUSTRFX C=RO 
po=C DO @ CURRENT FILE POINTER 
C=0 A ; 
LC(1) 3 
7B>=C A CAN HEADER FIT IN CURRENT RECORD? 
GOYES WSTF10 IF SO, GOTO WSTRIO 
?ST=1 Randon 
RTNYES 
WSTFOS B=B-1 A 
GOC WSTFOS 
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91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
413 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
128 
126 
12? 
128 
129 
130 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 


138CF 73A1 
13803 66FF 


13807 119 
138DR DS 
138DC D2 
138DE 303 
138E1 £1 
138E3 846 
138E6 31FD 
138EA 8BC 
138ED BO 
138EF 879 
138F2 00 
138F4 31FC 
138F8 7771 
138FC REG 
138FF 7071 
1393 D6 
13905 F6 
13907 BB6 
1390A 7561 
139E EO 
13910 5% 
13913 CO 
13915 D8 
13917 856 
1391A CD 
1391C 401 
1391F 1C1 
13922 14F 
13925 7A41 
13929 60FF 
1392D 8A8 
13930 32 
13932 876 
13935 1 
13937 119 
1393A 05 
1393C D2 
1393E 303 
13941 £1 
13943 31F6 
13947 8BC 
1394A ER 
1394C 31F? 
13950 57A 
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GOSUB 
GOTO 
a 


WSTFOS C=R1 
B=C 
C=0 
LC(1) 
WSTF10 B=B-C 
ST=0 
LC(2) 
?B>=A 
GOYES 
7ST=1 
RTNYES 
LC(2) 
WSTF30 GOSUB 
C=A 
GOSUB 
C=A 
CSR 
CSR 
GOSUB 
A=A-B 
GONC 
A=A+B 
B=A 
ST=1 
WSTF40 B=B-1 
Goc 
01=D1- 
C=DATI 
GOSUB 
GOTO 
WSTF50 ?7A=0 
GOYES 
?ST=1 
GOYES 
C=R1 
B=C 
C=0 
LC(1) 
B=B-C 
LC(2) 
?A<=B 
GOYES 
LC(2) 
GONC 


DO+2UR 
WSTFOS 


=fS0S 
WRBYTC 
B 
WRBYTC 
A 

A 

x 
WRBYTC 
A 
WSTF40 
A 

A 

Done 

A 
WSTF5O 
2 

8 
WRBYTC 
WSTF40 
A 

WSTF 70 
Done 
WSTF 70 


FEOS 


DuipDwwDnpD 


WSTF30 
=f MOS 
WSTF30 


4:28 ari 
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Fri Dec WK, 1983 


B= RECORD LENGTH IN BYTES 


B=BYTES AVAILABLE IN CURRENT REC. 


ASSUME FIT CURRENT RECORD 

CAN WHOLE STRING FIT CURRENT REC.? 
IF SO, GOTO WRITE STRING LENGTH 
RANDON ACCESS ? 

IF SO, RETURN WITH CARRY SET 
HEADER SAY START OF STRING ONLY 
WRITE FIRST BYTE OF STRING HERDER 


WRITE 1ST BYTE OF STRING LENGTH 


C(B)= 2ND BYTE OF STRING LENGTH 
R= REMAIN STRING LENGTH + 3 


DECREMENT BYTE COUNTER 
IF CARRY, DONE WITH ONE RECORD 


(B.E.T.) 
ALL DONE ? 
YES, JUST FIT INTO ONE RECORD 


C= BYTES AVAILABLE IN CURRENT REC. 
END OF STRING HEADER 

REMAIN STRING FIT IN ONE RECORD ? 
IF SO, WRITE END OF STRING HEADER 
MIDDLE OF STRING HEADER 

(BE. 1.) 


SOO IIOI OTT IGU OO II TTT TIK 


ak 


xk Bug fixing 8/4/83 after TIZRNS 

** In random access PRINT #, if the last string in a record fill 
*k up to the last byte of the record, an end of record nark will 
** still be written to the beginning of the next record. 


xk 


FOI TT TOT TIT IC 
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146 
14? 
148 
149 
150 
151 
162 
153 
154 
155 
156 
15? 
158 
159 
160 
161 
162 
163 
164 
165 
166 
16? 
168 
169 
170 
171 
172 
173 
174 
175 
176 
17? 
178 
179 
180 
181 
182 
183 
184 
185 
186 
18? 
188 
189 
190 
191 
192 
193 
194 
195 
196 
19? 
198 
199 
200 


13953 7013 
13957 451 
1395A 8AF 
1395D 40 
1395F 03 
13961 31FE 
13965 7RO01 
13969 7F91 
1396D 03 


Store 


x 
RWSTF 70 
& 


x 
x 
x 
RAKKKKK 
x 


WSTF 70 


WSTF80 
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GOSUB UPCPOS 

?ST=0 = 1/Obuf Old code looks like this. block 

GOYES WSTF8&O 

7D=0 =A 


GOYES WSTF90 


JO III OUT TO TO TO TE 
GOSUB UPCPOS 

GOC WSTF90 No EGR if randon & end of record 
*DHO OA Reached end of file yet ? 

GOYES WSTF80 If not, write EOR 

RTNCC ak*kPack here...could save 2 nibs** 
LC(2) =FfEOR 


GOSUB WRBYTC 
GOSUB BACK1B 


WSTF90 RTNCC 
x 


JI III 
J III 
ae 
** Nane 
ah 
i 


* Cate 
ak 


JOR III IO OTIC III I IK 
FOI IO III IOI OTT TTT 


:(S) WRISTR - Write a string to an open TEXT file 
gory:  FILUTL 


xk Purpose: 


mK Write a string on stack to an open TEXT fale. 

ak 

ak The string Will be written out as: 

ak +-------- $---------------------------- t----+ 

ae | Length | String | Pad| 

ak t-------- $---------------------------- +----+ 

xe 2 bytes n bytes 1 bytes 

ak 

aK The pad 1s not included in the length and it will be 
a there only if the string length is an odd nunber. 
ak 

ek Entry: 

an Di @ string length(2 nibs past the string header on 
ak rath Pack. 

ax RO = Current file pointer 

aS S6 =1 If length odd 

a STNTD1 = Entry address in FIB 

ax It is assured that there 1s enough roon left in the 
xm file to store the string. 

ak 

MECERT NS 


1%: RO(A) will be updated 


ak T 
ah C 
kk 

t* Call 
re 

ak Uses 
aK Inc 


he string 1S popped and the AVMENE is update. 
urrent position in FIB will he updated too. 


st DROPST,WRBYTC, UPCPOS, WRIEOF , BACK2B, SETURT 


eee eeve 


lusive: A,B,C,00,D1,ST[4-0] 22? 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
2e7 
228 
229 
2H 
231 
232 
233 
2x4 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


1396F 
13373 
13976 
13979 
13978 
1397E 
13981 
13383 
13985 
13988 
1398C 
1398E 
13992 
13995 
13998 


7A54 
131 
SiE 
D7 
110 
1” 
DR 
F6 
BB6 
77£0 
D6 
71E0 
1C1 
14F 
cc 


1399A 4A0 


1399D 
139A1 
139A5 
139A8 
139AA 
139RE 
139B2 
139B6 
139BA 
139BE 


72D0 
GOFF 
866 
60 
75CO 
75B2 
75RO 
71R0 
7C(41 
7631 


139C2 03 
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kk 
** Stk lvls: 
am Internal file: 2 
aK External file: 4 
te 
** History: 
te 
x Date Progranner Modification 
Kk Wsctececs, <oGenteovecy <sedleccenec lo cscseeeeecelecoce se ecece 
ae SC Wrote 


ee 11/05/83 BS 
x 


TOIT TO OOK 
FOOT JOUR OTT OR TIT TTT RTT ETT ITT TI K 
x 


eWRTSTR GOSUB DROPST 


Updated documentation 


SET D1 PTS TO END OF STRING 


=WRSTR* Di=A STRING IS WRITTEN BACKWARD 
CSRB C= LENGTH IN BYTES 
D=C a D= STRING LENGTH IN BYTES 
R=RO 
DO=A DO @ CURRENT FILE POINTER 
A=C A 
CSR A 
CSR x 
GOSUB WRBYTC WRITE MS BYTE OF STRING LENGTH 
C=R R 
GOSUB WRBYTC WRITE LS BYTE OF STRING LENGTH 
WSTR20 Di=D1- 2 
C=DAT1 B 
A=A-1 A 
GOC WSTR3O ALL DONE 
GOSUB WRBYTC 
GOTO WSTR20 (B.E.T.) 
WSTR3O 7ST=0 Odd 
GOYES WSTR40 LENGTH EVEN 
GOSUB WRBYTC PUT IN PAD 
WSTR40 GOSUB UPCPOS 
GOSUB WRTIEOF WRITE EOF MARK 
GOSUB WRTIEQF 
GOSUB BACK2B SEE IF CROSS END OF BUFFER 
GOSUB SETURT SET ACCESS MODE TO WRITE 
RTNCC i kkPack here...could save 2 nibs*** 


x 

FORO IRI III IIIT IO OI TTT TION 
FORO UII TOO IIIT TOOT ITI FTE 
kx 


*k Wane: (S) WRINUN - Write a Nunber to DATA or SDATA file. 
kx 


** Category:  FILUTL 

x 

xX Purpose: Write a nunber fron nath stack to a file of type 
es DATA or SDATA. 

xx 


** A number will always be written out as a real(8 bytes): 
ax 
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256 xX High Low 
267 BR. sete Sie le teas hoe ater at Se a alta eee el 
258 te | MO, MT] M2,M3] 4,5] M67] M8,n9/M10,m11| EO,MS| E1,£2| 

BAS. eS Ae ee ke eeu Scan ee eh eee ine oat cee mi es 
5e5 “ 
261 ** Entry: A= the number (internal forr) 
262 a $10 = 0 if the file is in nenory. 
263 ax = 11f the file is in an ext. mass menory device. 
264 am DO @ Current file pointer 
265 ax If the file is in nmenory, DO is directly pointing 
266 ax at the file. 
267 ae If the file is in an external mass nenory device, 
268 ax DO 1s pointing at the I/0 buffer of the file and 
269 kk RO(15,14) = Byte pointer of the file I/0 buffer 
270 wx D1 @ Top of stack 
271 ek Exit: D1 will drop 16(01=D1-16) and stored to MTHSTK 
272 ax DO Past the nunber 
273 am 
274 ** Used: A,B,C,D0,D1 
275 ax 
276 ** Detail: The nurber will be formatted and written on the nath 
277 ax stack first, and then it will be written out to the 
278 ax file or I/0 buffer one byte at a tine. If is written 
279 oh to an 1/0 buffer, when the buffer gets full, this 
280 ze routine will POLL the HP-IL ROM to dunp the buffer to 
281 ze the device and read in the next buffer. 

tok 
se ests Ctseseetttctseceeceeetetrstersetsttcettsttetettttecttettes 
284 JUG COIS OI III ICO OI OOOO CCC ICO CO TOK 
285 x 
286 139C4 149 =WRINUN DATI=A B WRITE THE NUMBER BACK TO STACK 1ST 
287 139C7 171 D1=D1+ 2 
288 139CA 1514 DATI=A S$ 
289 139CE 170 D1i=Di+ 1 
2® 13901 1512 DAT1=A XS 
291 13905 170 D1=Di+ 4 
292 139B8 1515 DATI=A 1 
293 13900 1C3 Di=D1- 4 
294 s 
295 139DF 307 LC(1) 7 
296 139E2 816 CSRC 
e97 139E5 ACR A=C S A(S) = 7, LOOP COUNTER 
298 139E8 7180 WRINIO GOSUB WRBYTD 
299 139EC AR4C A=A-1 § 
300 139EF 58F GONC WRINIO 
301 139F2 7FF3 GOSUB UPNTHS 
32 139F6 6072 GOTO UPCPOS 
303 - 
304 : 
305 JOSIE IO COI IOI IIIT IGE OUI 
306 LS SES SSS SCES SSCS SSS SS SES CSS SSC CES COSSSSSSCESCES SES SESSSSES CES CSS CCES 
307 te 
308 ** Nane: SKPBYT - Skip a Number of Bytes in an Opened File. 
303 a 


310 ** Category:  FILUTL 
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311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
364 
305 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 


139FA CC 
139FC 400 
139FF 7F20 
13R03 66FF 
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re 
** Purpose: Skip a given nunber of bytes in an opened file 
she The file can be in RAM/RON or in an external device 
kk 
** Entry: DO @ current position of the file. 
a (Absolute addr if file in RAN/RON) 
wx (Rbsolute addr @ the file 1/0 buffer for ext. file) 
xm A = # of bytes to skip 
KK $10 = 1 1f the file 1s in an external device 
aR = 0 if the file is in RAM/RON 
ax RO(15,14) = Current position in the file i/o buffer 
xx if is an external file 
as STNTD1 contains the FIB entry address 
XK Exit: 00 @ 1st byte after skipping 
ha 
&* Calls: 00+2, POLL(pRDNBF) 
kk 
** Uses: A,C DO, ST[4-0] 
kx 


KK Stk lvls: +3 
JORIS IT TTT TT III III TOSS ITI ISIS AI IAI IIIT IAS: 


FOI OI JO OT TITTIES TK 
x 


=SKPBYT A=A-1 A 


RTNC 
GOSUB DO+2RD 
GOTO  SKPBYT 


x 
FRI SRI IDE I SII II SIDI III III IIS ISSI SII IIIISSI SIS SIS SII SSIS IIIS S ISS: 
JOR IIS III TIT III IIIA III III IIIS ISIS IIIT III ISS SII SII ISS SIS IAI IK 
kK 

** Nane:(S) RDLNAS - Read String Length from a TEXT File. 

XX Nane:  -RDLNFX - Read String Length fron a DATA File. 

Pe 


** Category:  FILUTL 


kk 
** Purpose: RDLNAS - Read string length fron a LIF1 file 

ax RDLNFX - Read string length fron the fixed length 
ne file. 

ae 

** Entry: DO @ current file pointer, absolute addr if file 

xk in RAM/ROM, absolute address in file I/O buffer 
kx if file is in external device. 

kk RO(15,14) = current position in file 1/0 buffer if 
a file is in external device. 

ae STMTD1 contains FIB entry address 

KK Exit: ACA) = The tuo bytes read fron the file 

ae DO @ past the tuo length bytes 

ak The file pointer in the FIB is not updated. However, 
kk if the string length 1s read fron the I/0 buffer, 

ee there 1s a possibility that the I/0 bufffer is 

xk overflowed and the next sector 1s read into the 1/0 
ae buffer. In this case, if want to back up the DO by 
a tuo bytes, call the routine BACK2B. 

kx 
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366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
39? 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
4le 
413 
414 
415 
416 
417 
418 
419 
420 


13A07 
13R09 
13A0D 
13A10 
13A13 
13A17 
13A1A 
13R1D 


13AIF 
13A21 
13A25 
13A2? 
13A23 
13A2D 


DO 
7220 
814 
814 
7810 
810 
810 
03 


7A00 
FO 
FO 
7200 
03 
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** Calls: RDBYTA 
kK 


*k Uses: A, C, DO 
kk 


KK Stk lvls: +3 

JOO II ODIIGU TIO ITO IIT TTI IIIT IK 
JOO III TO TIT TIO TI TID I TTI IIT IIIT ITI IIR IA 
x 


=RDLNFX A=0 A 
GOSUB RDBYTA READ IN LS BYTE FIRST 
ASRC 
ASRC 
GOSUB RDBYTA READ IN MS BYTE NEXT 
ASLC 
ASLC 
RTNCC 
x 
=RDLNAS A=0 A 
GOSUB RDBYTA 
ASL A 
ASL A 
GOSUB RDBYTA 
RTNCC 


x 

JOIST IIS IOI CS IO IIS TOIT I SIDI III II IID EI 
JOO ISI II IOI ITT IIIS TOS ISIS III ITI IIS IIIT III IIIT ASI 
ae 

** Nane:(S) RDBYTA - Read Byte Fron an Opened File Into A 

**k Nane:(S) DO+#2RD - Move file pointer&check buffer overflow 
Kk 


** Category:  FILUTL 
ik 


**X Purpose: Read a byte fron an file into A-reg. 
ae Reading a byte fron menory can be easily done by one 


Km instruction "A=DATO B". But if the byte is read fron 
aK an 1/0 buffer, then the possibility of overflowing 
ex the 1/0 buffer should be considered. This routine 
ae takes care of this problen automatically. 

kk 

** Entry: DO @ current file pointer(abs.addr. if file im RAN 
wx or ROM, absolute addr @ file 1/0 buffer if file an 
aX external device) 

ax RO(15,14) = Current byte position in the file 1/0 

a buffer if the file is in external device 
a STMTD1 contains FIB entry address 

ax S10 = 0 1f fale is in RAM or RON. 

7 = 11f file is in an external mass nenory device. 
kk 

** Exit: A(B) = The byte 

DO past the byte. 

ak RO(15,14] 1s updated. 

a Current position in FIB will be updated if need to 

*k read in next sector fron the external file. 

+ 
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421 **k Calls: DO+2RD, POLL(pRDNBF) 
422 ss 
423 ** Uses: 
424 xt =~ Internal file: Nothin 
425 ak External file: a(14.5), B(15,5), C, DO, RO, ST[4-0] 
426 a 
427 ** Stk lvis: 
428 xk Internal file: 0 
429 *k ~~ External file: 3 
4% kk 
431 FIO OOO ICT ISIS IIS II SISOS IIS I III IO TAT TAT 
432 JI III DOI IOS SOO SOS SSIS ISTO III ISIS III I IO III 
433 x 
434 x 
435 a 
436 SOI II TOTTI II IIIT TI TI II III IOS IIT IRI IOI ISI I IIIS I ITI ITI STS: 
437 JOIST OSORIO OSC SOS IO CIS SII TIE 
438 ax 
439 ** Narie:(S) pRONBF - Write Current Sector, Read Next Sector 
440 xk 
441 ** Category: POLL 
442 xk 
443 ** Type: FPOLL 
444 ae 
445 ** Purpose: 
446 ak Using the FIB, write current file 1/0 buffer to 
447 aR where it cane fron in a nass nenory device, and read in 
448 ak next sector to the file I/0 buffer. 
449 ak 
450 ax There are total of 3 polls can be used to read/write a 
451 ae sector betueen a nass nenory device and I/O buffer: 
452 RK 1. pRONBF - Writes buffer out to current sector and read 
453 ak in next sector. If buffer content has not 
454 aR been altered, just read in next sector. 
455 ne 2. pROCBF - Reads in current sector from rass menory 
456 RR device to the 1/0 buffer. This poll does 
457 ak not care about the content currently in the 
458 ae I/0 buffer. 
459 ae 3. pWRCBF - Writes I/0 buffer to current sector in the 
460 xR Nass Nenory device. 
461 ne 
462 ae 
463 *X Should poll be "Handled" (return with XM=0)?: Yes 
464 aK 
465 ** Meaning of "Handling" Poll (uhat does code do if handled?): 
466 aK As specified above. 
467 =e 
468 *k Entry conditions for handler (registers, ST, RAM, etc. ): 
469 xx B{[A] = Poll nunber. 
470 * HEX rode. 
471 ak P=0. 
472 a STMTD1 contains the FIB entry address of the file 
473 ae 
474 *k Norral exit conditions from handler if handled (ST, RAN, 


475 xk registers, etc.): 
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476 
47? 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
Sko 
514 
515 
516 
517 
518 
$19 
520 
521 

éc 
§23 
524 
525 

26 
527 
528 
529 
530 


13R2F 
13A32 
13A35 


148 
161 
86A 


13A38 00 


13A3A 
13A3B 
1 3R40 
13A43 
13A46 
13R49 
13A4C 


118 
812 
Ble 
B66 
564 
AFS 
108 


13R4F 07 


13A51 
13A55 
1357 


7360 
91 
6070 


xk 
xk 
ak 
ax 
ak 
xx 
ak 
ak 
xk 
ak 
ax 
xk 
ak 
aK 
xk 
xk 
xk 
ar 
xk 
xk 
ax 
xx 
xk 
xk 
a 
xx 
xx 
ax 
xx 
ak 
ak 
a 
xk 
Kk 
ak 
ak 
ax 
aK 
* 


=R 
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Carry clear. 

HEX node. 

XM=0. 

Current position in FIB 1s set to start of next sector. 
File access nib in FIB is set to zero. 


This poll handler always call the routine SNAPRS to 
restore A,D,DO,D1 from the snap save RAN before return. 
So 1f the polling routine calls the SNAPSY before issuing 
this poll, 1t can consider A,D,DO,D1 will not be change 

by this poll handler. 


Norrial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

KM=1. 


Error exit conditions fron handler: 
Won’t return to calling routine if error occur, direct 
exit to BSERR routine. 

Available subroutine levels: 3 


What registers/RAN may be used if handled?: 


A-D, DO, D1, P, ST[0-4] 
(B,C,P,ST[O-4] 1f SNAPSY been called) 
What registers/RAN nay be used if not handled?: 
C, 
History: 
Date Progranner Modification 
04/20/83 SC Docunent 


FORO OTITIS ITOK 
FOI IIIT TOO TITIAN 


DBYTR A=DATO B 


=DO+2RD DO=D0+ 2 


DO 


x 


?ST=0 1/Obuf 

RTNYES 

C=RO 

CSLC 

CSLC 

C=C+1 8B REACHED END OF BUFFER YET ? 

GONC =RESTRO IF NOT, PUT BYTE COUNT BACK TO RO 
+2RX C=B W SAVE B IN RO 

RO=C 

C=RSTK Save one level of RSTK 

GOSUB fpoll+ 

CON(2) =pRDNBF 

GOTO RSREGS 
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531 
532 
533 
534 
§35 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
§52 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 


13A5B 31FF 
13A5F 6310 


13A63 110 
13A66 130 
13A639 6900 


13R6D 14F 
13R70 171 
13A73 14C 
13A76 161 
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i 
FRI RII ER ISI STII ITI IIT ID IIIT SII SII ISI III ISI IIIS III ISI IIS. 
JO IOI IT TIT RITA TOA IIIT IID III II III I III III ISIS II ISS IIIA 
ak 

** Nane:(S) WRBYTC - Write Byte to an Opened File Fron C 

** Nane: WRBYTD - Write a Byte to an Opened File 

at 


** Category:  FILUTL 


ak 
** Purpose: Write a byte to a file in RAN/ROM or to a file 1/0 
x buffer if the file is in external device 

ae 

** Entry: DO @ current file pointer(absolute addr if file in 
a RAN/ROM, absolute @ file I/O buffer if file is in 
ak external device. 

kk RO(15,14) = Current byte position in file I/0 buffer 
ak if the file is in an external device. 

a $10 = 0 if the file is an internal file 

ak 1 if the file is an external file 

ax 

xk WRBYTC: C(B) = The byte to urite 

xx WRBYTD: D1 @ The byte to urite to the byte to be written 
kk 

** Exit: DO past the source byte. 

a For an external file: 

ak RO(15,14) will be updated. 

ak If overflow the I/O buffer, current buffer will be 
ak written back to the file, next sector will be read 
aX into the I/0 buffer, current position in FIB will be 
aR updated. 

a 

Xk WRBYTD: D1 past the byte 

kk 

** Calls: DO+2WR, POLL(pRDNBF ) 

kk 

** Uses: 


kk sInternal file: 01 

kk External file: A(14,5), B(15,5), C, DO, RO,ST[4-0] 
ak 

xk Stk lvls: 

kk sdInternal file: 0 


xk External file: 3 if have to flush the I/0 buffer. 
JOIST I IOC IO IOI IO I TO TO TT TTT 


FOI TOIT TI TO TIT I III TTI III IIS III IIT ITI I IK 


WRIEOF LC(2) =fEOF 
GOTO WRBYTC 
x 
WRTARK R=RO 
DO=A 
GOTO = WRBYTC 
& 
=WRBYTD C=DAT1 B 
D1=D1+ 2 
=WRBYTC DATO=C B 
DO+2WR DO=DO+ 2 
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586 
587 
588 
589 
590 
591 
592 
593 
594 
§95 
596 
BO? 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 


611 


612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 


13R79 86A 
13A7C 00 

13R7E 118 
13A81 812 
13884 812 
1308? B66 
13A8A 4D0 
13R8D 816 
13A90 816 
13093 108 
13096 03 


13A98 AF 
13A9B 108 
13A9E 07 
13RRO 7410 
13AAR4 914 
13AR6 136 
13AA39 06 
13AAB 7940 
13AAF 07 
13AB1 134 
13AB4 6F10 


13AB8 8FOO 
000 

13ABF 8COO 
00 
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*ST=0 = 1/Obuf 

RTNYES 

C=RO 

CSLC 

CSLC 

C=C+1 8B 

GOC DO+2WX 
RESTRO CSRC 

CSRC 

RO=C 

RTNCC 


DO+2WX 


"1 ow 
= 


C= 
RO=C 
C=RSTK 
GOSUB fpoll+ 
CON(2) =pRDNBF 
CDOEX 
RSTK=C 
GOSUB 
C=RSTK 
DO=C 
GOTO 


SETURT 


RSREGS 
& 


fpoll+ GOSBYL =SNAPSV 
=fpoll GOLONG =FPOLL 


x 
k 
x 


4:28 an 
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Fri Dec 30, 1983 


1/0 BUFFER FULL 


Save B in RO 


Save one level of RSTK 


SET ACCESS CODE = 1 


Save registers and 1 level of RSTK 


FAST POLL 


JOTI IIIT TOT TOTO OTTO TT TTT TI II TIT 
FORO IOI III IOI TTR IIIT IIIT TI I ITO IIIT 


xk 


kk Nare:(S) DO=FIB - Set 00,C(A) to value at STNTDI1 
kk 


*k Category:  PTRUTL 

kk 

*k Purpose: 

ae Set DO,C(R) to the value stored in STNTD1 
ak 

** Entry: 

kk 

ak Exit: 

kx PO,C(A) = (STNTD1) 
kk 

Rk Calls: None 

ak 

Ak Uses....... 


*k Inclusive: DO,C(A) 


ae 


kk Stk lvis: 0 
ae 


** History: 
at 
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639 aA Date Prograrner Modification 
640 Peco e. - Eee ad 9 alee ve eee ela alate te 
641 te 11/06/83 BS Added docunentation 
642 ak 
643 $I TO ITI IOI I IOS IIIS IIIT IS III II I ISS I IISII SIS IS IIIS IS. 
644 $I III IIT II ITI OTIS IOI I IIIS III SO SI ISIS SSIS IIS SI IIS SST SII I TS. 
645 13AC5 1869 =DO=FIB DO=(5) =STMTD1 
8F2 
646 13ACC 146 C=DATO A 
647 13ACF 134 DO=C DO = FIB ENTRY ADDRESS 
648 13AD2 03 RTNCC 
649 . 
650 TORII JOO J OOO JI OOO 
651 JOIST IR IIIT TITS ESI III III II IIS II ISI III SII SSS STII SIN. 
652 aK 
653 ** Nane: RSREGS - Restore Registers 
654 ak 
655 tk Category:  FILUTL 
656 aK 
657 ** Purpose: This routine is called after returning fron three 
658 ee polls: pRDCBF, pRONBF, pWRCBF. 
659 oie These three poll will not preserve B. So the B 
660 ae register is saved in RO before polling and is 
661 3 restored by this routine. 
662 ax This routine also sets and RO{A] points to start 
663 ax of the O/I buffer, sets the byte count 1n RO[15,14] 
664 am to zero. 
665 ** Entry: RO= Saved B register. 
666 ar B(A) = Routine return address 
667 a 
668 *k Exit: Return to the address contained in B(A) on entry 
663 a B = RO on entry 
670 ak DO = RO[A] pointe at start of the file 1/0 buffer 
671 ak RO(15,14) = 00 
672 ax 
673 ** Calls: None 
674 kx 
675 ** Uses: B,C,DO,RO 
676 RK 
677 ** Stk lvls: 1 
678 $I IIT II II II IIT IIIT III IIT ITO SIDI III IIIS ISI I SSO IISA IIIA 
679 FR IK FTI RIK RIKKI KI KKK III III III II IDI III IKI IASI SRI III IST SSI IIIT TIAN 
680 : 
681 13AD4 D9 RSREGS C=B A 
682 13AD6 06 RSTK=C 
683 * 
684 13AD8 136 CDOEX 
685 13ADB DS B=C A 
686 13ADD AF2 C=0 W 
687 13REO 3200 LC(3) 512 SET DO BACK TO START OF BUFR 
2 
688 13AE5 E1 B=B-C A 
689 13AE? DD CBEX A 
690 13RES 134 DO=C 


691 13REC 128 CROEX 
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692 


693 13AF2 8C00 


694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
ae? 
728 
729 
7H 
731 
732 
733 
734 
735 
736 
73? 
738 
739 
740 
741 
742 
743 
744 
745 


13AEF AFS 
00 


13AF8 79CF 
13AFC 16A 
13AFF 301 
13802 1540 
13806 03 
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B=C W 
GOLONG =CHKRSP SEE IF HPIL MODULE THERE 


x 

FORGO IIIT ITO III ITO III TIS 
FOI JO ITO TOI IIIT TOI II TI 
ax 


** Nare: SETWRT - Set Write Access Nib in File’s FIB entry 
ak 


** Category:  FILUTL 

ke 

** Purpose: Set the access nibble to 1 in the file’s FIB entry 
kk to indicate the content of a file I/0 buffer has 

ak been altered. 

am The access nibble 1s used when: 

ax 1. Need to read in the next sector fron the fale. 

ax 2. Close the file. 

ax If this nibble is 1, the I/0 buffer need to be written 
a back to the file first. 


ak Every tine a new sector 1s read into the 1/0 buffer, this 
ae nibble is zeroed. 

ae 

** Entry: STMTD1 = FIB entry address of the file 

ae P=090 

tk 

eK Exits P= 0 

ax 

** Calls: DO=FIB 

bk 


tk Uses: C(A), D0 
tok 


RK Stk lvls: 1 
JOO IOI I IOI IO IOI OC I IO OK 


FORO OI III OT OI OT TITIITEK 
k 


=SETURT GOSUB DO=FIB 
DO=D0+ (oACCSb) 


LC(4) 1 
DRATO=C P 
RTNCC 


x 

JOO III IO IO II III 
FOI I III ICO IOI’ IOI OOO II III OK 
ak 


** Nane:(S) BACKIB - Back up the File Pointer by 1 Byte 
** Nane:(S) BACK2B - Back up the File Pointer by 2 Bytes 
** Wane: (S) BACK3B - Back up the File Pointer by 3 Bytes 
xt 


** Category:  FILUTL 
a 


** Purpose: Sets the current position field of the file’s FIB 
* 


» back the specified nunber of bytes. If the new 

an position falls in the previous sector, it 1s read 
aS into the file’s I/0 buffer. 

ae 
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746 
747 
748 
749 
750 
751 
752 
7§3 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
78? 
788 
789 
790 
791 
792 
733 
794 
795 
796 
tat 
798 
799 
800 


13B08 OC 
13B0A OC 
13B0C OC 


13B0E 87A 
13B11 60 
13B13 20 
13B15 02 


13817 118 
13B1A 812 
13B1D 812 
13B20 AGE 
13B23 4CO 
13826 OD 

13828 890 
13B2B 00 

1382D 52F 


13BH 20 


13B32 7F8F 
13B36 02 
13838 3182 
13B3C 132 
13B3F C2 
13841 134 
13B44 146 
13B47 81E 
13B4R 816 
13B4D 816 
13B50 CE 
13B52 812 
13B55 312 


Store & Retrieve Data - PRINT# 


*k Entry: P= 
ak RO(15,14) = Current byte pointer in the buffer 


ak 
ak 
ak 
ax 
ax 
ak 


AK Exit: 


x 


Kk Calls: 


xx 


*k Uses: 


a 


0 
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RO(4,0) = Current absolute address in the buffer 


$10 = 0 - Internal file 
1 - External file 
STNTD1 contains file FIB address 


P= 


A,B, 


&* Stk lvls: 


Kx 


0 


POLL(pRDCBF ) 


C,D0,P 


0 - internal file 
4 - external file (if has to back up) 


FOI OOOO TOIT TO TT TTT TTT 
FOI OTTO TOTO TT TT TTI IT TR II ITT IST IM 


x 


=BACK3B 
=BACK2B 
=BACKIB 
k 


CKST10 


* 
CKBPOS 


CKBF10 


x 
BRC KUP 
& 


P=P +4 
P=P+4 
P=P+] 


*ST=1 
GOYES 
p= 

RTNSC 


C=RO 
CSLC 
CSLC 
C=C-1 
GOC 
P=P-4 
*P= 


RTNYES 


GONC 
p= 


* HAS TO NOVE 
x 


GOSUB 
C=0 

LC (2) 
ADOEX 
C=C+A 
bO=C 


1/Obuf 
CKBPOS 
0 


B 
BACKUP 


0 
CKBF10 
0 


THE CURRENT POSITION BACKWARD 1 SECTOR 


DO=FIB 
A 
=oCPOSb 


A 


C=DATO A 


CSRB 
CSRC 
CSRC 
C=C-1 
CSLC 
CSLC 


A 
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801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
813 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
331 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
863 
854 
855 


13858 
13B5A 
13B5D 
13B5F 
13863 
13B65 
13B67 
13B69 


13B6B 
13B6E 
13871 


13B75 
13B?? 
13B7A 
13B7D 
13B7F 
13B83 


13B85 
13B88 
13B8A 
13880 
13B8F 
13892 


C6 
144 
07 
755F 
81 
DS 
06 
03 


110 
130 
7ARE 


23 
B14 
5RO 
20 
778F 
02 


AIC 
DI 
A398 
20 
1 
OE05 
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C=C+C A 
DATO=C A 
C=RSTK Save one level of RSTK in SNAPE 


GOSUB fpoll+ 
CON(2) =pRDCBF 
C=B A 
RSTK=C 


RTNCC 
k 


* 
FOI III IOI IOI TTT TIO 
FOI OI OI IOI IIT 
xx 


kk Nane: REDREC - Read one Record fron the TEXT File 
ak 


*k Category:  FILUTL 


&k 
**k Purpose: Read in the next record in the TEXT file and put 
A 1t on top of stack 

ak 

*k Entry: D1 @ Top of stack 

xx RO(4,0) = File pointer (@ string length) 

xk R(15,14) = Byte pointer in buffer if external file 
aK $10 = 1 - If read fron 1/0 buffer 

a“ © - If read fron RAN7ROM 

ak 

KX Exit: If carry set => reached end of file 

aK D1 @ Top of stack 

an RO = RAN address past the string 

BY Current positoin in the FIB has been updated 

Kk Uses: A,B,C,00,D1 

ik 

** Stk lvls: 1 if file is in RAM or RON. 

*% 5 if file is in external device. 


FORO IOI III III OIC TTI 
FORO III ICICI ITO COO TOOT TTR 
x 


=REDREC R=RO 
DO=R 
: COSUB = RDLNAS READ STRING LENGTH 
P= 3 
R=A+1 WP 
GONC = RREC2O 
P= 0 
GOSUB BACK2B 


RTNSC 
a 


* 


RREC20 


4 
— 


WP 


Dnpon»n 
D> 


WP B(A) = RECORD LENGTH 


Orn wma Dp 
— 
— 


tf mM Hore Ww oft 


pe 
oO 
~~” 
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856 13896 90A 7C=0 =P LENGTH EVEN ? 
857 13899 50 GOYES RREC25 
858 13B9B 856 ST=1 Odd 
859 x 
860 13B9E 09 = RREC25 C=B-) OAK 
861 13BA0 C6 C=C+C A C= RECORD LENGTH IN NIBS 
862 13BA2 1CF D1=D1- 16 
863 13BA5 133 ADIEX 
864 13BA8 EA A=A-C A 
865 13BAA 7B02 GOSUB STKSPC 
866 13BAE 4C0 COC RREC3O 
867 13BB1 07 C=RSTK POP OFF RETURN ADDRESS 
868 13BB3 735F GOSUB BACK2B NEED TO READ BACK PREVIOUS RECORD? 
869 13BB7 60C2 GOTO §= prt185 NOT ENOUGH ROOM ON STACK 
870 * GENERATES THE STRING HEADER ON STACK 
871 13BBB 31FO RREC30 LCHEX OF 
872 13BBF 14D DATI=C B 
873 138C2 171 D1=D1+ 2 
874 13BC5 AF2 to) =O 
875 13BC8 D9 (=B OA 
876 13BCA C6 C=C+C A 
877 13BCC 15DD DAT1=C 14 WRITE STRING LENGTH 
878 13BD0 17D D1=D1+ 14 
879 13BD3 133 ADIEX 
880 13806 CA A=A+C A 
881 138D8 131 D1=A 01 @ PAST THE STRING 
882 13BDB D4 A=B OAR 
883 13BDD CC RREC40 A=A-1 A 
884 13BDF 431 GOC RREC5O 
885 13BE2 14€ C=DATO B 
886 13BE5 11 D1=D1- 2 
887 13BE8 14D DAT1=C B 
888 13BEB 734E GOSUB DO+2RD 
889 13BEF 6DEF GOTO  RREC40 
890 13BF3 1CF RREC5O D1=D1- 16 D1 @ TOP OF STACK 
891 13BF6 866 ?S$T=0 Odd 
8392 13BF9 60 GOYES RREC6O 
893 13BFB 733€ GOSUB DO+2RD 
894 13BFF 6760 RREC60 GOTO UPCPOS 
x 
See JO IOI III ISO II III II IIIT II III I III ISI IIIT III TAS 
397 III III ODI III II II II IIIT III II II III III SITS III III SIS III OSI I SIT IISA SS: 
898 aX 
899 &* Narie: REDNUM - Read 8-Byte Nunber Fron File 
900 = 
901 ** Category:  FILUTL 
%2 aR 
903 we Purpose: Read a nunber (8 bytes) from DATA or SDATA file. 
904 
905 *% Entry: RO = Current file pointer 
96 a D(A) = # of bytes to end of file 
907 aK D1 @ top of the math stack where the number will be 
908 a stored (D1 to 01+15 should be free). 
99 xs $10 = 0 if file 1s in RAM or RON 


hon 


910 os 


1 af file is in external mass menory device. 
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911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 


13003 
13(06 


13009 
13C0B 


13C0E 
13010 
13013 


13C17 
13C1A 
13C1D 
13€20 
13C€23 
13€26 
13C29 
13C2D 


43031 
13034 
1303? 
133A 
13C3E 
1341 
1345 
1348 
13C4C 
13C4F 
1353 
13(56 
1358 


110 
130 


4 
308 


£3 
560 
6603 


A8A 
AOC 
431 
14€ 
140 
171 
750E 
6CEF 


1CF 
14B 
174 
1534 
120 
1532 
170 
1535 
1€3 
1517 
948 
11 
2F 
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an RO(15,14) = byte pointer in I/0 buffer 
ak 
** Exit: D1 unchanged and is pointing at the nunber. 
aK C(A)= 8 
RR If reached end of file, will exit to EOFIL 
ak If the sign of the number is not 0 or 3, mill exit 
ae to IIFERR ("Data Type"). 


ak 
*k Used: A,C,D0 

aK 

JIS ODI IIT I III II II TI III IIIA I III III ISITIID IIIT SAI SAK 
SII SOIR II SII III IIIT IO III III IIIS ID III III IIS IIIT I IAI IIS SSS IIS 
x 

=REDNUN A=RO 


DO=A 
FO RIO IO OOO IOI 


* Pack here could save 1 nibble 
x 

* RDNUMO GOSUB LDC=8 

k 


RDNUIO C=0 A 
LC(1) 8 


* End of possible packing 
SII KID IS IIS IIIS TI IR II STI TIS SAIS II IISA 


x 


D=D-C A 
GONC RDNUN1 
GOTO EOFIL 
: READ THE 8 BYTES FROM FILE AND WRITE IT TO STACK FIRST 
RDNUN1 A=C P A(O) = 8 
RONUN2 A=A-1 P 
GOC RONUNS 
C=DATO B READ A BYTE FROM FILE, 
DAT1=C B WRITE A BYTE TO STACK 
D1i=D1+ 2 


GOSUB DO+2RD 
GOTO RDNUN2 
x 


* READ THE NUMBER FROM STACK AND REFORM IT. 
x 


RDNUNS D1=D1- 16 
A=DAT1 B 
Di=Di+ 2 
R=DAT1 S$ 
D1i=D1+ 1 
A=DAT1 XS 
D1=D01+ 1 
A=DAT1 Nh 
Di=D1- 4 
DATI=A W WRITE THE NUMBER BACK TO STACK 
7A=0 = S SIGN =0 ? 
GOYES UPCPOS 
P= 15 
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966 
967 
968 
969 
970 
971 
972 
$73 
974 
975 
976 
977 
978 
979 
380 
$81 
982 
983 
984 
985 
936 
987 
988 
989 
9% 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
100? 
1008 
1009 
1010 
10114 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 


13€5A 309 
13C€5D 20 
13C5F 942 
13C62 50 
13C€64 855 


13€67 118 
13C6A 136 
13C6D 108 
13070 715€ 
13€74 169 
13077 1564 
13C7B 16R 
13C7E 146 
13081 16€ 
13084 163 
13087 110 
13C8A 87A 
13C8D BO 

13C8F EA 


x 
a 
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ic(1) 9 SIGN = 9 ? 
P= 0 

7A=C OS 

GOYES UPCPOS 

ST=1— Error 


KEKKK AKER ARK KAKA KKK RAK KIER RAK KR KKK KIKI REIKI KR AERKAAA RK EAK 
FO IORI TIO IO RII 


ax 
ak 
ak 


Nane:(S) UPCPOS - Update FIB Current Position 


** Category:  FILUTL 


ak 
kk 
xk 
ak 
ak 
ax 
as 
xk 
ak 
kk 
xk 
kk 
xx 
xk 
xk 
ak 
xx 
xk 
xk 


Purpose: Update current position in FIB 


Entry: DO = Current file pointer or buffer pointer 


Exit: 


RO(15,14)= Byte pointer in buffer if external file 
R1(R) = Record length if fixed length data file 

$9 = 1 for IRAN 

$10 = 0/1 for internal/external file 

$11 = 0/1 for serial/randon access 

STNTD1 = Entry address in FIB 


Update current position in FIB 
The DO on entry is saved in RO(4,0) 
If is DATA file (copy code = 1): 
Carry set => The file pointer is at the beginnin 
of a record and the randon access flag is set isa). 
A(R) = Nunber of bytes left in current record. 
B(A) = Byte position in current record. 


** Calls: IDIV 


xk 


kk Used: 


ax 
xk 
xk 


A,B,C,D0,RO,P (B is used only for DATA file) 


Stk lvls: 1 


FOTO JO OTT TIT FTO TTT TTI IIT IK 
FORO TI TOO TT RR TI TI I TTT DT RIK 


x 


=UPCPOS C=RO 


CDOEX 

RO=C 

GOSUB DO=FIB 
DO=D0+ (of OPYb) 
C=DATO §$ READ COPY CODE TO C(S) 

DO=D0+ (oDBEGb)-(oCOPYb) 

C=DATO A C(A) = DATA BEGIN 

DO=D0+ (oRECLb)-(oDBEGb) 

DO=D0+ (oCPOSb)-(oRECLb) 

R=RO 

?ST=1 1 /Obuf 

GOYES UCP010 

A=A-C A OFFSET FROM DATA BEGIN IN NIBBLES 
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1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1023 
1030 
1034 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1033 
1040 
1041 
1042 
1043 
1044 
1045 


1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
105? 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 


13€91 140 
13€94 6810 


13098 146 
13C9B 81€ 
13C9E 810 
13C€A1 810 
13CA4 RE6 
13CA7 R76 
13CAR 144 


13CAD ASE 
13CBO AGE 
13CB3 4A0 
13CB6 118 
13€B9 134 
13CBC 03 


13CBE AF2 
13€C1 111 
13€C4 D6 
13CC6 AFO 
13C€C9 142 
13€CC 81C 
13CCF 8£00 
00 
13€D5 20 
13CD7 114 
13CDA 8A9 
13CDD 40 
13CDF £0 
13CE1 168 
13CE4 140 
13CE7 118 
13CER 134 
13CED 119 
13CFO 8A6 
13CF3 70 
13CF5 879 
13CF8 00 
13CFR O03 


13CFC 869 
13CFF BF 
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DATO=R R 
GOTO UCPO20 NOT FIXED LENGTH DATA FILE 
* EXTERNAL FILE 
UCPO10 C=DATO A C= CURRENT POSITION 
CSRB CURRENT POSITION IB BYTES 
ASLC 
ASLC A(O,1)= BYTE POSITION IN BUFFER 
C=A B 
C=C+C W C= CURRENT POSITION IN NIBBLES 
DATO=C A 
k 
UCPO20 C=C-1 $ SEE IF IS FIXED LENGTH DATA FILE 
C=C-1 §$ C= RECORD LENGTH 
GOC UCPO25 
C=RO 
po=C 
RTNCC 
* FIX LENGTH DATA FILE 
UCPO25 C=0 W 
R=R1 
C=A A 
A=90 W 
R=DATO A 
ASRB CURRENT POSITION IN BYTES 
GOSUBL =IDIV 
P= 0 
A=R1 A ACA) = RECORD LENGTH 
?7B=0 =A *kPack here...could save 5 nibs*** 
GOYES UCP030 
A=A-B A # OF BYTE TO END OF RECORD 
UCPO30 DO=D0+ (oRLENb)-(oCPOSb) 
DATO=A A 
C=RO *kPack here...could save 2 nibs*** 
DO=C RESTORE DO 
C=R1 
7CHA OR AT BEGINNING OF NEXT RECORD ? 
GOYES UCP040 IF NOT, RETURN WITH CARRY CLEAR 
?$T=1 Randon RANDOM ACCESS ? 
RTNYES IF SO, RETURN WITH CARRY SET 


UCPO40 RTNCC 
* 


FOI III RISO IOI OK 


* EORCHK - IN RANDOM ACCESS, IF A DATA ITEN IS ENDED AT THE LAST 


x 


ee ee Oe ee 


ENTRY: 

EXIT: 

USES: 
EGRCHK 


BYTE OF A RECORD, IJ IS HARD TO DETECT THE NEXT DATA 


ITEM, IF ANY, THAT IS CROSSING THE RECORD BOUNDARY. 
THIS ROUTINE IS JUST FOR THIS PURPOSE. 
(STMTD1) CONTAINS FIB ENTRY ADDRESS OF THE FILE 
R1(A) = RECORD SIZE 
CARRY SET IF THE NEXT DATA ITEM IS CROSSING RECORD 
BOUNDARY. 
ACA), C(C), DO, D1 
?57T=0 = Randon 
GOYES UCP040 RETURN AND CLEAR CARRY 
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i 1075 13D01 1B69 DO=(5) =STNTD1 
: 8F2 
1076 13008 142 R=DATO A 
1077 13D0B 3443 LC(5) (oRLENb) *k*Pack here...could save 1 nib** 
000 
1078 13012 CA AFA+C A 
1079 13014 10 DO=A 
1080 13017 142 A=DATO A 
1081 13D1A 119 C=R1 
1082 13D1D 8A2 7A=C OA 
1083 13D20 40 GOYES EORC20 *kPack here...could save 2 nibs*** 
1084 13022 03 RTNCC 
1085 * NOW THE FILE POINTER IS AT BEGINNING OF A RECORD 
1086 * SEE IF THE PRINT LIST JUST EXHAUSTED 
1087 13024 841 EORC20 ST=O0 Array 
1088 13D27 848 ST=0 Fresh 
1089 13D2A 7401 GOSUB CHKDON 
1090 13D2E 483 GOC EOLCHK 
1091 & 
1092 13D31 8&5D GOSUBL STKVCT 
90 
1093 13D37 861 *ST=0 «Array 
1094 13D3A 90 GOYES EORC30 
1095 13D3C 8AA C20 «=A 
1096 13D3F 82 GOYES E0LCHK 
1097 13041 02 RINSC 
1098 13043 8600 EORCX GOSUBL =POPNTH 
00 
1099 13D49 133 ADIEX 
1100 13D4C 1FE9 D1=(5) =FORSTK 
5F2 
4401 13053 147 C=DAT1 A 
1102 13056 8A2 7A=C OA 
1103 13D59 EO GOYES EOLCHK 
1104 13D5B 131 Di=A 
1105 13D5E 8E3E GOSUBL STKV15 
30 
1106 13064 400 RTNC 
110? x 
1108 JOG IOI IOI OCIS OO TTI II III I TK 
1109 JIT I IIIT TI IIT SI TIS I ISIS III IIT OT II ISIS IIIS II II IIIT IAI ON 
1110 *X Narie:(S) CHKEOL - Check if at End of Statenent 
1411 = 
1112 ** Category: EXCUTL 
1113 oe 
1114 *x Purpose: When processing the PRINT or READ list, check 
4115 x to see if just past the last variable on the 
1116 7 list. 
1117 ae 
1118 ** Entry: DO = Progran counter 
1119 ax 
1120 ** Exit: Carry set => Not at end of statement yet. 
1121 on Carry clear => PC is at end of the statenent 
1122 ae 


1123 kk Uses: ACB), C(B) 
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1124 
1125 
1126 
112? 
1128 
1129 


11% 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 


1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 


13D67 8E00 
00 


13060 148A 
13070 3100 
13074 962 
1307? 00 
13073 Be6 
13D7C 962 
13D7F 00 
13081 03 


13083 7A64 
13087 7610 
13088 8E€5A 
80 
13091 ACB 
13094 A46 
13097 400 
1309A 948A 
13090 00 
13D9F 03 
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ka 
AK Stk lvls : 0 

JOO UT OIG TO TI I IT IIIS TI TIT II ITI ITI IIT III TIT ISS 
JU II I TOI TI II ITO ITI TI III III TIT III IOI ITT AT IIIT AIK 
ae 


EOLCHK GOSUBL =RESTDO 


x 


=CHKEOL R=DATO B 
LC(2) =tCONNA 
7A=C OB 
RTNYES 
C=C+1 8B 
*A=C OB 
RTNYES 
RTNCC 


C(B) = tSEMIC 


x 
FORT ROI III IO OT IIT TI TTI 


* IF MAINFRAME FILE AND COPY CODE<8, RETURN WITH CARRY CLEAR 
CHKCOD GOSUB savedO 

GOSUB NMFLG=0 

GOSUBL GTPTRS 


C= 5 

C=C+C $§ IF COPY CODE >= 8, POLL 
RTNC 

i Os 

RTNYES 


RTNCC 
x 


JOTI IOI II TOT IT III IOI 
FOI IOI IIIT OTTO TOOT III TO IOI 
xa 


** Narne: (5) MFLG=0 - Clear MLFFLG nibble 
&* Nane: MFLG=X% - Set MLFFLG nibble 
a* 


** Category: GENUTL 
a 


x* Purpose: 

a MFLG=0: Clear MLFFLG nibble 
ae MFLG=X: Set MLFFLG nibble 
re 

xX Entry: 

an MFLG=K: C(P) is value to be stored at NLFFLG 
tk 

kA Exit: 

xx MFLG=0: C€(A)=0 

= (MLFFLG) = Specified value 
ax 

** Calls: None 

xe 

BR NGOS: Seeks 


** Inclusive: D1,(MLFFLG), and MFLG=0 entry also uses C(A) 
x 


Stk lvls: 0 
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1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 13DA1 02 

1187 13DA3 1FO? 

8F2 

1188 13DAR 1550 
1189 13DRE 01 

119 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 


13DB0 
13083 
13086 
13DB9 


1€2 
1CF 
133 
1F43 
5F2 
147 
E2 
131 
01 


1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 


13DC0 
130C3 
130C5 
13DC8 
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ax 
** History: 
kk 
aA Date Progranner Modification 
WA ete ee Gia thee hs ee fee ae aa 
kk 11/06/83 BS Added docurnentation 
kk 


JOU OJ IRI TOR TO ITT III II BTID I 
FOI IOUT ITT OR TTT 


=MFLG=0 C=0 A Clear user fen sticky nibble. 
=MFLG=X 01=(5) =MLFFLG 


DAT1=C P 


RIN 
x 


FOR JO IO IO TIKI OORT IT I TOK 
FOO ISI TOI OTTO TO TOTO TOO TI I 
xK 


** Nane: CHKSTK - Check Free Space on Nath Stack 

** Name: STK16? - Check Free Space on Nath Stack for 16 Nibs 
** Nane: STK19? - Check Free Space on Math Stack for 19 Nibs 
tk 

** Category:  SAVSTK 

ah 

** Purpose: Check if still room left in the math stack 

xx 

*k Entry: 01 pts current top of stack 

xR 

*k Exit: A= D1 

at Carry set => 0.K. 


mA Carry clear => D1 ran into AVMENS 
xk 

** Calls: none 

kk 

kk Uses: A(A), CCA) 

ae D1 by STK16? and STK19? 

ka 


x* Stk lvls: 0 
SOI OI TOT TO I TIT OT TOT III II TAIT 


JIT COC TCO IO III III AIL II IIIT IIIT IIIA IIA S 
& 

=STK19? 
=STK16? 
=CHKSTK 
STKSPC 


b1=D1- 3 
Di=D1- 16 
ADIEX 

Di=(5) =RAVNENS 


A Di= NEW STACK POINTER 


CARRY SET - OK 
x 


FOO TORI IIIT TIT TTI IK 
x 


* ENTRY: D1 @ STRING LENGTH(2 NIBS PAST STRING HEADER) 
x 
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1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 


1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 


1265 
1266 
1267 
1268 
1269 
1270 


1271 
1272 


1273 
12? 

1275 
1276 
127? 
1278 
1279 
1280 


130A 


130C0 
13000 
13DD3 
13006 
13DD9 


13DD8 


13DE2 
13DE5 
13DE8 


13DEA 
13DED 
13DFO 
13DF3 
13DF5 
13DF8 


13DFC 


13E03 
13E06 
13E09 
13E0B 
1300 
13E11 


13E18 
13E18 


1361 
13€25 
13E27 
13E2A 


13E2C 
13E2C 


171 


RF 2 
147 
17D 
133 
CA 


1F99 
5F2 
141 
131 
03 


171 
17F 
17F 
04 
133 
62EF 


1B07 
8F2 
14E 
390A 
81 
D2 
1540 
1FF6 
SF2 
14B 
8E00 


7707 
08 
858 
03 


800 
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* EXIT: C=STRING LENGTH IN NIBBLES 
s D1 @ END OF STRING ON STACK 
* 


DROPO? D1=D1+ 2 
k 


DROPST C=0 W 
C=DAT1 A C=STRING LENGTH 
Di=D1+ 14 
ADIEX 
A=A+C A A @ PAST STRING ON STACK 
x 


DIUPNT 01=(5) =NTHSTK 


DATI=A A 
DI=A 
RTNCC 

k 

x 

* 


UPMH34 Di=D1+ 2 
DI=D1+ 16 

UPNH16 D1=D1+ 16 
SE THEX 

UPHTHS ADIEX 


GOTO = D1IUPNT 
x 


OI IO III UII IO II UII TOIT TOI III 
FORO UII IOI ITI ITI IIIT 
kk 


** Nane: DIzMST+ - Set 01 to Math Stack Pointer 


aK and clear all status bits, set S8 
ak 


FORO RII TI OOOO TOTO OTTO I ITI 
FOTO UI JOU IO OO ITO TI TIO TOIT OK 
x 


CKNFLG DO=(5) =MLFFLG 


C=DATO B 

7C=0)—?P 

GOYES DIMST+ 
C=0 A 
DATO=C P 
D1=(5) =CHNHSV 


A=DAT1 B 
GOSUBL =F IBADR 


=DINST+ GOSUB Dinstk 
CLRST 
ST=1 Fresh 


RTNCC 
* 


* 
=P011)j 
poll GOQLONG =POLL 
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00 
1281 x 
4282 III RII II ISI I SII SSIIIISSIISSSS ISI IIIS IIIA IIS ISIS II SSI SIS IOS ASSIS IS: 
1283 * Name: CHKDON - Check if done with one variable 
1284 * Purpose : When executing the READ# or PRINTH statenent, if 
1285 * the next iten on the list 1s an array variable, its dope 
1286 * vector will be saved on the nath stach and the value of 
1287 * next elenent will be recalled to on top of the dope vector. 
1288 * Then when we done with one data iten, we pop the math stack 
1289 * and check what 1s left on the nath stack. If the math stack 
1290 * pointer is matching the FOR stack point, we know we done with 
1291 * one variable or expression on the list. If the dope vector 
1292 * is still left on the stack, we know we are working with an 
1293 * array. So we will decrenent the elenent counter and point to 
1294 ; next elenent in the array if the count is zero yet. 
1295 
1296 * Entry: AVNEME and FORSTK 
1297 x 
1298 * EXIT: CARRY SET => DONE WITH ONE ITEN 
1299 x CARRY CLEAR => NOT DONE YET 
130 x 
1301 13E32 1FE9 =CHKDON D1=(5) =FORSTK 
5F2 
1H2 13639 147 C=DAT1 A 
133 13€3C 1C4 D1=D1- § 
1X4 13E3F 143 A=DAT1 A 
1305 13642 131 D1=A 
1X6 13645 8A2 *A=C OA 
1307 13648 00 RTNYES 
1308 13E4A 01 RTN 
109 * 
1310 s 
1311 FRI ISIS III III ISITIIIS SSIS III III II III III IIIIII ISI IIS III ISI ITM 
1312 IRI III III III TIT TOIT IIIT IIIT I SII III ITI ISII ISI III ISI IIIS IIA III IM 
1313 xx 
1314 xk Narie: NXTVAR - Get next Variable from READ list 
1315 && Narie:(S) NXTVA- - Get next Variable fron READ list 
1316 as 
1317 Kk Category:  EXCUTL 
1318 a 
1319 *% Purpose: Get the next variable fron the READ list, the 
1320 ae variable will be created if it does not yet exist. 
1321 = 
1322 ** Entry: DO @ the next variable token 
1323 oA 
1324 kk Exit: The updated DO (past the variable) saved in STMTDO 
1325 RE MTHSTK is set to current top of stack. 
1326 ah The variable value or its dope vector is on top of 
1327 aR Hath stack. 
1328 =e DEST has been called ( DEST will save all the 
1329 &K infornation in STMTRO & STNTR1 that need to assign a 
1330 aa value fron math stack to the variable). 
1331 ax 
1332 ** Calls: EXPEX- 


1333 a 
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1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 


1342 


1343 
1344 


1345 
1346 
134? 
1348 
1349 
1350 


1351 
1352 
1353 


1354 
1355 
1356 
1367 
1368 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
136? 
1368 
1369 


1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 


13E4C 8E0O 
00 
13£52 8&00 
00 
1358 7593 
13E5C 8E00 
00 
13£62 D2 
13€64 B56 
13€67 8B9 
13E6A 00 
13€6C AFS 
13E6F 8£00 
00 
1375 560 
13€?78 6355 
13£7C 1B08 
8F2 
13E83 1544 
13E87 908 
13E8A 00 
13E8C B04 
13E8F AG4 
13£92 96C 
13€95 11 
13E9? AF2 
13E9A AOE 
13£9D 22 
13E9F 80FD 
13ER3 411 
13€A6 DS 
13EA8 134 
13EAB 1567 
13ERF 8E00 
00 
13EB5 1557 
13EB9 02 
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*k Uses: All CPU registers, scratch RAM and status. 
ke 


ee Stk Ivls: 5 

a 

JO II III III ITT I IDI II IIIT DIDI III IAI II IIIS III ATI IA 
JI GOI IO II I I III TOTO IOI IG IR ITT TK 
x 


=NXTVAR GOSUBL =SVTRC SAVE PC FOR TRACE 
GOSUBL =EXPEX- 


=NXTVA- GOSUB savedd 
GOSUBL =DEST 


C=0 A 
C=C+1 4M 
7B>=C A 
RTNYES 

C=B W 
GOSUBL =NEWVAR CREATE THE VARIABLE FIRST 


VARIABLE EXIST ? 


GONC NXTV10 
prti85 GOTO PRT185 SAY "NO ROOM" 
NXTV10 DO=(5) =S-RO-3 


DATO=C S$ WRITE VARIABLE TYPE 
7A=0 OP SIMPLE NUMERIC VARIABLE ? 
RTNYES IF SO, RETURN 
A=A+1 P 
RA=A+A B 
7AHO OB A(B) = F8 OR FO ? 
GOYES NXTV¥20 IF NOT, GOTO NXT¥20 
C=0 W PUT FO00000000000200 ON STACK 
C=C-1 P 
P= ra 
CPEX 13 
GOC NXTV30 (B.E.T.) 
NXT¥2O C=B R WRITE ARRAY ADDRESS TO STACK 
DO=C 
C=DATO W 
GOSUBL =RECADR 
NXTV3O DAT1=C W 


RTNSC 
x 


ORI OO OT OTT OTTO OOO TOIT 
SOOO OOS III IOI TOTO EO 
ak 


ak Narie: READH - READH statenent execute 
ak 


*% Category: STEXEC 

xk 

** Purpase: Read in values fron file and store to variables. 
= This code works for file both in RAM and in rass 
ae menory device in HPIL. 
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1383 xk Only works for file type TEXT, SDATA, DATA, will 
1384 ak poll for unrecognized. 

1385 aS 

1386 ** Entry: DO points past the READ# token 

1387 aK 

1388 te Exit: Exit to NXTSTMA 

1389 aR 

1390 ** Detail: 

1391 ak 

1392 ak 1, Find the channel # and its FIB entry address, save the 

1393 ax FIB entry address in STNTD1. 

1394 tk 2, If record # is specified, set file pointer points to that 

1395 aK record. 

1396 ak 63. Call expression execution to recall the next variable in 

1397 ak the list. If the variable is not exist yet, create it. 

1398 *k 4, Call the routine DEST to save the destination address in 

1399 ae the STHTRO & STMTR1. 

1400 Ak 65. If the variable is a simple variable, set the NTHSTK to 

1401 we equal to the FORSTK. 

1402 xx 6. If the variable 1s an array variable, nodify the dope 

1403 aK vector and put 1t on top of the FORSTK and set the MTHSTK 

1404 = to point to it. The modified dope vector contains the # 

1405 RK of the elerents in the array and the address of the next 

1406 aK e;enent. 

1407 kk 67, Read next data iten fron the file and update the file 

1408 ak pointer. 

1409 xk 8. Put the value on to the nath stack and set the MTHSTK to 

1410 a point to it. Call STORE to assign the value to the 

1411 ae variable or array elenent. 

1412 ** 9, Drop the stack pointer and set the MTHSTK to pass the 

1413 xe data iten on the stack. 

1414 *k 10. If the updated MIHSTK = FORSTK, we know we just done with 

1415 ax a sinple variable. Then go to see if the variable 

1416 ae exhausted Yet, else continue. 

1417 *k 41, If the updated MTHSTK # FORSTK, last data item was 

1418 Rx assigned to an array elenent. Decrenent the elenent count 

1419 ax in the array dope vector and update the next elenent 

1420 bes address. If the elenent count drops to zero, done with 

1421 a the array, else continue to next elenent. 

1422 x 

1423 SEI ITI ITI AISI AIS IS III ISS STII ISIS I SIS SSSI AIA 

1424 JI TR RII TID IIT ISI SSS SSSI ISI IIS ISI SS SS SSIS SIS SSSI SS. 
& 

ae JI IOI II IIT TORII III ISIS IS SIS I SI III ISIS SSSI SSSIS SIS SSSI STS: 

1427 JOR JOO IIIT IOS IIT III IIIS SII IIT II IIIA ISI IO SI IIS 

1428 ax 

1429 kk Nane:(S) pREADH - READH on File of Copycode = 8 

1430 aA 

1431 ** Category: POLL 

1432 ae 

1433 *k Type: POLL 

1434 a4 

1435 ae 

1436 ** Purpose: 


1437 ae Execution of READ # statenent when the copy code of the 
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1438 ak file is 8. 
1439 ak 
1440 ** Should poll be "Handled" (return with XM=0)7: Yes 
1441 ak 
1442 ** Heaning of "Handling" Poll (what does code do if handled?): 
1443 ax Complete the execution of READ # statenent. 
1444 ak 
1445 ** Entry conditions for handler (registers, ST, RAM, etc.): 
1446 ak B[A) = Poll nunber. 
1447 ak HEX node. 
1448 ak 
1449 ale D[S] = Copy code of the file. 
1450 ae D(A) = # of bytes to end of file 
1451 aK RO(A)= Current position (absolute address) 
1452 aK RO(15:14) = Relative position in buffer if external 
1453 ax R1 == Record length in bytes 
1454 a CHNHSV = Channel # specified in the statennt. 
1455 ak STNTD1 = FIB entry address of the file. 
1456 aK (All the file related infornation can be found in the 
1457 aK FIB entry of the file) 
1458 *a STHTDO = Progran counter points at the sennicolon of the 
1459 a statenent. 
1460 ak S9 = 0 1f serial access (record # not specified) 
1461 aK = 1 If randon access 
1462 aK $10 = 0 if fale is in nmainfratre RAN/ROM 
1463 ak = 1 if file is in external mass nenory deivce 
1464 ae $11 = 0 if file 1s not in Independent RAN 
1465 aR = 1.1f file is in Independent RAN 
1466 ak 
1467 ak At the tine when this poll is issued, the READH 
1468 oy already process the channel nuriber and the record nunber 
1469 Bs -if specified. 
1470 aX If the record number has been specified, the pSREC# poll 
1471 ae should been issued earlier so the file pointer (in the 
1472 zs FIB) should already pointing at the start of the record. 
1473 Ak 
1474 ** Nornal exit conditions fron handler if handled (ST, RAN, 
1475 *k registers, etc. ): 
1476 ae If the poll is handled, the handler should handle the 
147? ax statenent completely. So the handler should directly 
1478 ax exit to NXTSTM. The handler doesn’t need to worry 
1479 ak about the nath stack used by the POLL routine, it will 
1480 lg be taken cared by the run loop. 
1431 aK 
1482 ** Normal exit conditions from handler if not handled (ST, RAN, 
1483 ** registers, etc.): 
1484 tes Carry clear. 
1485 a HEX node. 
1486 ae KM=1. 
1487 a 
1488 ** Error exit conditions fron handler: 
1489 1 Carry set. 
1490 ae HEX riode. 
1491 ae C{[0-3] = Error nunber. 


1492 " 
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1493 *% Available subroutine levels: 6 
1494 aR . 
1495 kX Uhat registers/RAM nay be used if handled?: 
1496 ae All CPU registers, scratch RAM, $11-0 
1497 ak 
1498 ** What registers/RAM nay be used if not handled?: 
1493 aK A, C DO, D1 
1500 ak 
1501 xx What registers/RAN nay be used if error exit ?: 
1502 ae All CPU registers, scratch RAN, $11-0 
1503 &% 
1504 **® History: 
1505 a 
1506 a Date Progranner Modification 
1507 $k -owsous, “aaiescatae: vasuetendsebececasecooutue seers 
1508 xk 04/20/83 SC Docunent 
1509 xe 
1510 JOG IO IIT IIIS ITI IIIT III III SSSI ISS IIT SISTA 
1511 $0 OO COSTCO TIO OI III TSI IS 
x 
fe JO IOI CO ICISIIOUIOIII OCC TTL 
1514 JIG III UO III TOSI SOI SSS TTI IIS TSO TS RTI 
1515 ak 
1516 ** Wane:(S) pEOFIL - Poll at End-of-File 
1517 ax 
1518 ** Category: POLL 
1519 ae 
1520 ** Type: FPOLL 
1521 ae 
1522 ** Purpose: 
1523 aX When end of file has been reached in a READ # statenent, 
1524 am poll to give a LEX file a chance to act before the READH 
1525 a staterient would otherwise exit to error. 
1526 aK One possible thing an LEX file can do is to inplenent 
1527 aA the "ON EOF GOTO/GOSUB <label>" nechanisn. 
1528 = 
1529 ** Should poll be "Handled" (return with XM=0)?:Yes 
1530 as 
1531 ** Meaning of “Handling” Poll (what does code do if handled?): 
1532 em The end-of-file error has been intercepted. 
1533 a 
1534 ** Entry conditions for handler (registers, ST, RAN, etc.): 
1535 7 Carry set. 
1536 = B[A} = Poll nunber. 
1537 a HEX node. 
1538 = P=0, 
1539 ae STNTD1 contains the FIB entry address of the file. 
1540 ax The file pointer in FIB is pointing at : 
1541 ax TEXT file : End-of-file nark (FFF. 
1542 ae SOATA file: Past the last data item of the file. 
1543 x DATA file : Pointing at an end-of-file mark or past the 
1544 ae end of the file. 
1545 ae 
1546 *k Nornal exit conditions fron handler if handled (ST, RAN, 


1547 ** registers, etc.): 
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1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
155? 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 


1584 


1585 
1586 
158? 
1588 
1589 
1590 
1594 
1592 
1593 
1594 
1595 
1596 
1597 
1698 
1599 
1600 


13€BB 
13EBE 


13€C4 


13ECA 
TSECE 
13ED1 
13EDS 
13ED? 
13EDB 
13EDF 
13EE2 


13EE6 
13EE9 
13E€ED 
13EF 4 


161 
8E0O 
00 
8E00 
00 


7 5BE 
5C0 
775F 
72 
6503 
788E 
460 
61A4 


161 

7F OF 
7 BOF 
6C0G 
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ae If handle, the handler should never return to the polling 
x routine. If it ever returns to the polling routine, an 
ae "End of File" sill be generated. 
aX This poll is just provide a hook for an LEX file 
> to intercept the end-of-file error. The possible thing 
wa an LEX file can do to answer this poll is to inplenent 


4x a "ON EOF GOTO/GOSUB <label>" type of trap. 


** Nornal exit conditions fron handler if not handled: 


kx HEX rode. 
a P= 0 
ak 


** Error exit conditions fron handler (POLL only): 
xe HEX node. 


ax P=0 

ke 

** Available subroutine levels: 6 

ae 

*k What registers/RAN nay be used if handled?: 

ax All CPU registers, scratch RAN, ST11-0. 

te 

*k What registers/RAM may be used if not handled?: 
Sas All CPU registers, scratch RAN, ST11-0. 

ke 

** History: 

ee 

aK Date Progranner Modification 
PR: Ve. eee Big te ile ete ee ies ee 
** 04/20/83 SC Docunent 

ax 


JORIS TOI IO IIIT IOI OI TI OTTO TOTTI 
SOO III IO OOO TOUT ITO IG IOI IOI OOO TOI II IOK 
x 
x 


=READH DO=D0+ 2 
GOSUBL =GETCHR GET CHANNEL # 


GOSUBL =GETRE# GET RECORD # 
* CHANNEL # IS SAVED IN CHNASV 
* 


GOSUB CHKCOD 
GONC RED150 
GOSUB poll 

CON(2) =pREADH 
GOTO PRT100 

RED150 GOSUB EOLCHK 

GOC RED200 
GOTO PRT140 


RED200 DO=D0+ 2 
GOSUB NXTVAR 
GOSUB CKNFLG SEE IF USER FCN BEEN CALLED 
GOTO RED236 
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1601 13EF5 733F RED230 GOSUB CHKDON 
1602 13EF9 41— RED235 GOC RED150 


1603 13EFC 08 CLRST 

1604 13EFE 8€80 RED236 GOSUBL STKVCT 
80 

1605 13F04 56D GONC = ©RED150 

1606 13F07 7827 GOSUB GTPTRS 

1607 13FOB 8AF *DHO OA 

1608 13F0E 60 GOYES RED238 

1609 13F10 63D0 GOTO 3 EOFIL 

1610 13F14 AG? = RED238 D=D4D § 

1611 13F1? Aa? D=D+D § 

1612 13F1R 560 GONC RED240 

1613 13F1D 6CBO GOTO REDASC 

1614 13F21 AA? = RED240 D=D+D = §S 

1615 13F24 460 Coc RED41C 

1616 13F27 6431 GOTO  REDFIX 

1617 : 

1618 * HP-41C DATA FILE 

1619 » 

1620 13F2B 870 = =RED41C ?ST=1 Notnun 

1621 13F2E 83 GOYES R41C30 


1622 13FX 7FCC R41C10 GOSUB REDNUN 
1623 13F34 865 R41C15 *ST=0 Error 


1624 13F37 6 GOYES REDSTO 
1625 13F39 6DE4 badtyp GOTO BADTYP 
1626 x 
1627 : ASSIGN THE VALUE TO VARIABLE 
1628 
1629 13F30 7BB6 REDSTO GOSUB Dinstk D1 @ MTHSTK 
1630 13F41 1537 R41C25 R=DAT1 W READ THE STACK 10 A 
1631 13F45 8&0 GOSUBL =STORE 
00 
1632 13F4B 875 *ST=1 Error 
1633 13F4E 41 GOYES RA41CER 
1634 13F50 78A6 R41C26 GOSUB Dinstk 
1635 13F54 8&0 GOSUBL =POPNTH 
00 
1636 13F5A 779E GOSUB UPNTHS 
163? 13F5E 669F GOTO  RED230 
1638 * 
1639 13F62 6501 R41CER GOTO  RFXERR 
1640 * 
1641 13F66 871 R41C% *ST=1 Array 
1642 13F69 F3 GOYES R41C50 
1643 13F6B 872 *$T=1 String 
1644 13F6E 81 GOYES R41C40 
1645 x 
1646 * COMPLEX NUMBER 
1647 * 
1648 13F70 171 41035 DI=D1+ 2 
1649 13F73 7C8C GOSUB REDNUN 
1650 13F77 17F Di=D1+ 16 
1651 13F7R 758C GOSUB = REONUN 


1652 13F7E 875 *ST=1 Error 
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1653 
1654 
1655 
1656 
1667 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 


1666 
1667 
1668 
1669 
1670 
1671 


1672 
1673 
1674 
1675 
1676 
167? 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
168? 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1202 
1703 


1204 


13F 81 
13F 83 


13F 86 
13F 89 
13F 8D 
13F 90 
13F 94 
13F97 
13F 9A 
13F9C 


13FR2 
13FA5 


13F A8 


13F AE 
13FB1 
13FB3 
13F B6 
13FB9 
13F BD 
13F CO 
13FC4 
13FC7 
13FC9 
13FCD 
13F01 
13F D4 
13F D6 


13FDA 
13F 0D 
13F DF 
13FE3 
13FE? 
13FER 
13FEE 


13F FO 
13FF4 


13FFA 


88 
598 


171 
704E 
1CF 
7F6C 
17F 
865 
F9 
8EAS 
CO 
845 
589 


8ER3 
80 
863 
80 
1CF 
1C1 
76FD 
460 
6B04 
872 
9C 
782E 
77B2 
873 
C3 
695F 


870 
04 
7D0E 
748B 
21 
710A 
52 


3100 
8000 
OO 

3451 


x 
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GOYES badtyp 
GONC REDSTO 


* SIMPLE STRING 
& 


R41 040 


R41045 


01=D1+ 2 
GOSUB DROPST 
01=D1- 16 
GOSUB REDNUN 
D1=D1+ 16 
?$T=0 «Error 
GOYES badtyp 
GOSUBL N-STR 


ST=0 
GONC 
x 


* NUMERIC OR STRING ARRAY 
x 


R41C50 GOSUBL 


?$T=0 
GOYES 
D1=D1- 
D1=01- 
GOSUB 
GOC 
GOTO 
*ST=1 
GOYES 
GOSUB 
GOSUB 
*ST=1 
GOYES 
GOTO 


R41C55 


R41C60 


a 


Error 
R41C25 


NXTRDR 


Criplex 
R41C55 
16 

2 
STK16? 
R41C60 
PRT185 
String 
R41C45 
UPNTHS 
LDEO 
Criplex 
R41C35 
R41010 


FOI II III 
* READING A TEXT FILE 


REDASC ?ST=1 
GOYES 
GOSUB 
RASCIO GOSUB 
GONC 
=EOFIL GOSUB 
CON(2) 


Notnun 
RASC 30 
UPNH16 
REDREC 

RASC20 
fpoll 

=pEOFIL 


4:28 an 
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D1 @ STRING LENGTH 
D1 & STACK POINTER PAST THE STRING 


(B.E.T.) 


GET NEXT ELEMENT ADDRESS 


INSUFFICIENT MEMORY 


ASSUME IS COMPLEX NUMBER 


DROP 16 NIBS OF MTHSTK 
READ THE NEXT RECORD FROM FILE 


* End of file poll is fast poll. If is handled, 
% don’t ever cone back here. 
back here i111] be consided as not been handled. 


* If ever cone 
ba 


x 


EQFILX LC(2) 
ERREX GOLONG 


RASC20 LC(5) 


=eEOFIL 
2Mftrr 


=STORIN 
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041 

1705 14001 06 RSTK=C 

1706 14003 3400 LC(5) =STORE 
000 

1707 1400A 06 RSTK=C 

1708 x 

1709 1400C 850 ST=1 =ValSub 

1710 1400F 8C00 GOLONG =VALOO 
00 

1711 * 

1712 14015 73ED =STORTN GOSUB CKMFLG 

1713 14019 663F GOTO R41C26 

1714 x 

1715 1401D 871 RASC3O 7ST=1 Array 

1716 14020 82 GOYES RASC5O 

1717 14022 872 *ST=1 0 String 

1718 14025 01 GOYES RASC40 

1719 * COMPLEX NUNBER 

1720 14027 7FBD GOSUB UPMH34 

1721 1402B 7C3B RASC35 GOSUB REDREC READ A RECORD FROM FILE 

1722 1402F 4AB GOC EOFIL 

1723 14032 57C GONC RASC20 

1724 k 

1725 * SIMPLE STRING 

1726 - 


1727 14035 719D RASC40 GOSUB DROPOZ 
1728 14039 7E2B RASC45 GOSUB REDREC 


1729 1403D 4CA GOC EOFIL 

1730 14040 71BD GOSUB UPMTHS 

1731 14044 6CFE GOTO R41C25 

1732 * NUMERIC/STRING ARRAY 

1733 14048 8EAI RASC5O GOSUBL NXTADR **kPack here...could save 2 nibs*** 
70 

1734 x 

1735 1404E 873 ?ST=1 Crplex 

1736 14051 AD GOYES RASC35 

1737 14053 872 *ST=1 String 

1738 14056 3E GOYES RASC45 

1739 14058 6A8F GOTO RASC1O 

1740 ae 

1744 xX DATA FILE 

1742 xe 

1743 1405C 870 REDFIX ?7ST=1 Notnun 

1744 1405F 23 GOYES RFX200 

1745 * SIMPLE NUMERIC VARIABLE 

1746 14061 7291 RFXO040 GOSUB DATBEG 

1747 14065 59 GONC  RFX050 

1748 x 

1749 14068 11B RFXERR C=R3 

1750 1406B 688F GOTO  ERREX 

1751 x 

1752 1406F 30A RFKO5O LCHEX A 

1753 14072 982 RFKI0O0 ?7A<C P NEXT ITEM A NUMBER ? 

1754 14075 60 GOYES RFX120 


1755 14077 6FR3 RFX110 GOTO BADTYP 
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1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777? 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
179? 
1798 
1799 
1800 
1804 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 


14078 
1407F 
14082 
14086 
14089 
1408) 


14091 
14094 
14096 
14099 


14098 
1409F 
140R2 
140A5 
140R8 
140RA 
140AD 
140B1 


140B4 
140B6 


14089 
140BB 
140BE 


140C2 
140C5 
1400? 
140CB 
140CE 
14001 
140D5 
140D8 
14000 
140DF 
140E2 
140E4 


140E8 
140EC 
140EF 
140F 1 
140F4 
140F 6 


7488 
5D0 
7E9C 
560 
6794 
6F RE 


871 
Re 
872 
92 


7851 
48C 
30A 
938E 
FC 
171 
7258 
1?F 


9 
c 


308 


E1 
558A 
6AFO 


17B 
be 

15F3 
108 
19 
78FC 
858 
7B11 
580 
878 
68 

6F BO 


31FC 
902 
DO 
878 
38 
20 
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RFX120 


GOSUB REDNUN 
GONC = =RFK125 
GOSUB EORC20 
GONC = =RFK125 
GOTO RECERR 


RFX125 GOTO REDSTO 
k 


RF X200 


?3T=1 Array 

GOYES RFK220 
*ST=1 String 
GOYES RFX250 


* COMPLEX NUMBER 


RFX210 


GOSUB DATBEG 
GOC RFXERR 
LCHEX A 
PA>=C P 
GOYES RFXK110 
01=01+ 2 
GOSUB REDNUN 
D1=D1+ 16 


Page 34 
READ THE NUMBER TO STACK 


IS NEXT ITEM A NUMBER ? 
IF NOT, BAD TYPE 


JOTI IIIT ITI TIT I 
* Pack here could save 1 nibble 
x 


x 


* End of possible packin 
JO ITI OI III III ITI T IK 


GOSUB LDC=8 


C=0 A 
Lc(1) 8 


B=B-C A 
GONC  RFXO40 


RFX220 GOTO  RFXARY 
x 


* SIMPLE STRING 
x 


a 


RF X250 


RF X260 
RF R270 


RF X280 


RF X290 


B1=D1+ 12 

C=0 A 
C=DAT1 4 

R3=C 

Di=Di- 10 
GOSUB DROPST 
ST=1 Fresh 
GOSUB DATBEG 
GONC  RFX280 
?ST=1 Fresh 
GOYES RFXERR 
GOTO  RFX390 


LCHEX CF 
7R=C OP 
GOYES RFXK310 
?ST=1 Fresh 
GOYES RFX110 
P= 0 


Deioiiiintketie 
B= BYTES LEFT IN CUR. RECORD 


(8.6. Ts) 
D1 @ MAX. STRING LENGTH 


SAVE MAX. LENGTH IN R3 
D1@ STRING LENGTH IN NIBS 


SKIP TO NEXT DATA ITEM BEGIN 


(Changed from GOC RFX300 8/29/83) 


IS NEXT ITEM A STRING ? 


(Changed from ST=1 Error 8/29/83) 
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1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
184? 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 


140F8 60A0 
140FC 878 
140FF 70 

14101 SEE 
14104 DE 

14106 7829 
1410R 79F8 
1410E 118 
14111 8BR 
14114 EO 

14116 7EE9 
1411A 3100 
1411E 650E 


14122 D2 
14124 33 
14127 E1 
14129 846 
1412C 880 
1412F 70 
14131 856 
14134 D8 


14136 C9 
14138 £3 
1413A 5RO0 
1413D 77C9 
14141 68AE 


14145 137 
14148 06 
1414A 816 
1414D CE 
1414F 812 
14152 AFA 
14155 £0 
14157 EO 
14159 7C5C 
1415D 07 
1415F 135 
14162 4R0 
14165 7F99 


14169 6262 
1416D 848 
14170 CD 
14172 431 
14175 14f 
14178 1014 
1417B 149 
1417E 70B8 
14182 6DEF 


14186 7DDA 
1418A 876 


x 


x 


x 
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RFX310 


RFX320 


STROVF 


RFX330 


RFX340 


RF X350 


RFX355 
RF X360 
RFX370 


RFX380 


GOTO 

?ST=1 
GOYES 
PAo=C 
GOYES 
GOSUB 
GOSUB 
C=R3 

PAc=C 
GOYES 
GOSUB 
LC(2) 
GOTO 


C=0 
LC(1) 
B=B-C 
ST=0 
°B<A 
GOYES 
ST=1 - 
B=A 


C=C+B 
D=D-C 
GONC 
GOSUB 
GOTO 


CDIEX 
RSTK=C 
CSRC 
C=C-1 
CSLC 
A=C 
A=R-B 
A=R-B 
GOSUB 
C=RSTK 
D1=C 
GOC 
GOSUB 


GOTO 
ST=0 
B=B-1 
coc 
A=DATO 
D1=01- 
DAT1=A 
GOSUB 
GOTO 


GOSUB 
7ST=1 


RFX382 
Fresh 
RFK320 
B 

RF X290 
DO+2RD 
RDLNFX 


A 
RFX330 
BACK3B 
=eSTROV 
ERREX 


A 

3 

A 

Bone 

A 

RF X340 
Done 

A 


A 
A 
RF K350 
BACK 3B 
EQFIL 


RF X360 
BACK3B 


PRT185 
Fresh 
A 
RFX380 
B 

2 

B 
DO+2RD 
RFX370 


UPCPOS 
Done 


4:28 ani 
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Fri Dec ®, 1983 


POINTS TO STRING LENGTH 
READ STRING LENGTH 
C= MAX. STRING LENGTH 


SAY STRING OVER FLOW 


TEST IF THIS IS LAST PART OF 
THE STRING 

B= #OF BYTES IN CURRENT RECORD 
CAN BE USED TO STORE DATA 

CAN REST OF STR. IN THIS RECORD? 


IF SO, SET DONE FLAG 
B= # OF DATA BYTE IN THIS RECORD 


C= # OF BYTES TO PAST THIS TINE 
SEE IF PAST END OF FILE 


SAVE CURRENT STACK POINTER 
16 NIBBLES FOR STRING HEADER 


MAKE SURE STILL ROOM ON STACK 


MOVE THE STRING TO STACK 
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1866 1418) 71 GOYES RFX390 
186? 1418F 119 C=R1 
1868 14192 D5 B=C A B= RECORD LENGTH 
1869 14194 869 ?ST=0 Randon SERIAL ACCESS ? 
1870 14197 390 GOYES RFX385 
1871 14199 7080 RFX382 GOSUB DATBER 
1872 14190 460 GOC RFX390 (B.E.T.) 
1873 141AO 673F RFX385 GOTO RFX270 
1874 ‘ 
1875 * DONE WITH READING THE STRING FROM FILE TO STACK 
1876 * NOW COMPUTE TOTAL STRING LENGTH ON STACK 
187? * 
1878 141A4 8648 RFX390 GOSUBL STRHED 
AO 
1879 141AR 7E4B GOSUB EORCHK 
1880 141AE 560 GONC RFX395 
1881 141B1 7570 GOSUB DATBER 
1882 14185 678D RFX395 GOTO REDSTO 
1883 x 
1884 * NUMERIC/ STRING ARRAY 
1885 x 
1886 141B9 7B26 RFXARY GOSUB NXTADR 
1887 141BD 862 ?$T=0 String 
1888 141C0 60 GOYES RFxK420 
1889 141C2 621F GOTO RFK260 
1890 14106 863 =RFX420 ?7ST=0 Crplex 
1891 14109 80 GOYES RFX430 
1892 141CB 1CF D1=Di- 16 
1893 141CE 11 D1=D1- 2 
1894 14101 7EDB RFX430 GOSUB STK16? 
1895 14105 5714 GONC RFX440 
1896 14108 791C GOSUB UPNTHS 
1897 141DC 863 ?ST=0 = Crplex 
1898 141DF AO GOYES RFX435 
1899 141£1 73 GOSUB LDEO 
1900 141£5 65BE GOTO = RFK210 
1901 141E9 677E RFX435 GOTO RFXO40 
1902 a 
1903 141ED 6ED1 RFX440 GOTO PRT185 
1904 & 
1905 - 
1906 141F1 8000 savedO GOLONG =SAVEDO 
00 
1907 x 
1908 JUSSI IIR IEICE OO ITO TTI RTI TT 
1909 FORO ROR IORI IO IGOR IGOR OOOO: 
1910 re 
1911 ** Nanie: DRTBEG - Detect End of Record of DATA File 
1912 an 
1913 ** Category:  FILUTL 
1914 am 
1915 ** Purpose: Detect end of record in a DATA file 
1916 a 
191? ** Entry: RO(A) = Address of next byte to read 


1918 ae D = # of bytes to end of file 
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1919 ae $9 = 0/1 for serial/random access 
1920 aE B = # of bytes left in current record. 
1921 aX Exit: 
1922 ‘* Carry clear => No error 
1923 kk DO @ Next data byte to read 
1924 ax Carry set => Reached end of file or end of record 
1925 aX in randon access. 
1926 ax C(3-0) & R3 = Error nunber 
1927 ax S6=1 
1928 ** Uses A, C, DO 
1929 SOR JOIOIITITO TT OTTTTOI TTT OOK 
19% OIC I OOOO TO TOTO TOO 
1931 x 
1932 141F7 110 DATBEG A=RO 
1933 141FA 10 DO=A 
1934 141FD 148 ODATBOS A=DATO B 
1935 14200 31FF LC(2) =fEOF 
1936 14204 966 RHC OB 
1937 14207 31 GOYES DATB20 
1938 14209 869 ?$T=0 Randon 
1939 1420C 62 GOYES DATB30 


1940 1420E 3100 DATB10 LC(2) =eEOFIL 
1941 14212 10B DATB15 R3=C 


1942 14215 855 ST=1— Error 

1943 14218 02 RTNSC 

1944 . 

1945 1421A 31FE DATB20 LC(2) =fEOR 

1946 1421E 962 *R=C OB REACHED END OF RECORD ? 

1947 14221 40 GOYES DATB25 IF SO, SEE IF RANDON ACCESS 

1948 14223 03 RTNCC 

1949 

1950 - 

1951 14225 869 DATB25 ?ST=0 Randon SERIAL ACCESS ? 

1952 14228 AO ; GOYES DATB3O IF SO, SEE IF MORE THAN 8 BYTES LEF 
1953 

1954 1422A 3100 DATBER LC(2) =eRECOR 

1955 1422E 63EF GOTO DATBIS 

1956 . 

1957 * In serial access if the file pointer is pointing at an EOF or E 
1958 * and is at beginning of a record, give "End of File" error. 
1959 * If not at beginning of a record, skip to look at next record. 
1960 . 

1961 14232 119 DATB3O C=R1 

1962 14235 8B9 *B>=C AR At the beginning of the record ? 
1963 14238 6D GOYES DATB10 If so, say "End of File" 

1964 1423A D9 C=B A C= BYTES LEFT IN CUR. RECORD 
1965 1423C £3 D=D-C A D= BYTES TO END OF FILE 

1966 1423E 4FC GOC DATB10 

1967 14241 8AB 7D=0 =A 

1968 14244 AC GOYES DRTB10 

1969 . 

1970 14246 D4 A=B A A(A) = # of bytes left in current 
1971 x record. 

1972 14248 CC DATB55 A=A-1 A 

1973 1424A 4C0 GOC DATB60 
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1974 1424D 8EFD GOSUBL DO+2RD 
7F 
1975 14253 64FF GOTO DATBSS 
1976 m 
1977 14257 118 DATB6O C=RO 
1978 1425 136 CDOEX 
1979 1425D 108 RO=C 
1980 14260 111 A=R1 
1981 14263 08 B=A A B= RECORD LENGTH 
1982 14265 619F ; GOTO DATBEG START IT OVER AGAIN 
1983 
1984 AE 
1985 14269 FXSPH 
1986 14269 E3 I a 
1987 1426B 112 A=R2 
1988 1426E D8 B-A oA 
1989 14270 01 RTN 
1990 x 
1991 14272 D2 Loc=8 C= A 
1992 14274 308 LC(1) 8 
1993 14277 01 RTN 
1994 
1995 * 
1996 14279 0 CON(1) =FIXSPC xX* THERE IS 12 NIBBLES HERE *** 
1997 1427A BSS. 12-14 
1998 : 
1999 


200) 14285 1€1 LDEO- DI=D1- 2 
2001 14288 31EO LDEO  LCHEX O€ 


2002 1428C 14D DAT1=C B 

2003 1428F 03 RTNCC 

2004 & 

2005 . 

2006 JOIST IIT TO TTT IIIS II TTI II IAT IS ITT I III IM 
2007 JI IOI IT ISI III III ITI TI TTI IIIT ISAT IIIT IIIS ISS SSSA ISK 
2008 ** Narie: PRINTH - PRINTH Statenent Execute 

2009 4% 

2010 ** Category: STEXEC 

2011 ie 

2012 ** Purpose: Write data to data file. 

2013 ae The code here works for file bath in RAM or nass 
2014 x nenory device. But will only work uith type TEXT, 
2015 xt SDATA and DATA files. It will poll for unrecognized 
2016 an file type. 

el? aad 

2018 ** Entry: DO points past the PRINTH token 

2019 a* 

2020 &* Exit: Exit to NXTSTM 

2021 RX 

2022 ** Detail: 

2023 ¥* | PRINTH only works with an opened file. When a file is 
2024 ae opened, an entry in FIB 1s created. The FIB keep track all 
2025 ae inforriation relate to that file, such as file type, file 
2026 gi is a menory resident file or external file, current file 


2007 at pointer. 
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2028 ae 
2029 x . If the file is in an external device, there should be an 
20H” *k ——- 1/0 buffer containing the current sector of the file. The 
2031 aR PRINT# urites data direct to the I/0 buffer. When the last 
2032 aS byte of the buffer is filled, the PRINT# will poll the 
2033 ah HPIL ROM to write the I/0 buffer back to the file and read 
2034 ae the next sector into the I/0 buffer. 
2035 es 
2036 kk 6, If the file copy code is 8, the PRINT# will issue a poll 
2037 xe to see if there is any LEX file want to handle it. The LEX 
2038 ax file is supposed to take over the PRINTH statenent fron 
2039 ae there. 
2040 *k = But the PRINT# execution will do the following things 
2041 ax before pulling for copy code 8 file : 
2042 *k = 1, Get the channel nunber and find the FIB entry address 
2043 aa of the file. The FIB entry address is stored in STNTD!. 
2044 aa 2. Get the record number, if specified, and set the file 
2045 aK pointer to the start of the specified record. Since the 
2046 kx nainfrane code doesn’t know how to search a record in 
2047 xn the copy code 8 file, a poll (pSREC#) will be issued 
2048 ae for that purpose. 
2049 JOSIE IDI III OI TI TOTO TOSS ITAA 
2050 JI IIT OTIS I ISSO SI SSIS IS ISIS ISS SSSI SSISIISSSS SISA: 

x 

ae JOR OT II RII DI IIIS IOS ISIS IIIS ISIS SII ISS SSSI II SII IIS SII SIA 
2053 JORIS II IDI III LIA IIIIIIISIASISISSIIIS IIIS IIS SSIS ISI II SIS IIIS SISA 
2054 xs 
2055 ** Nane:(S) pPRINH - PRINTH on File of Copycode = 8 
2056 a 
2057 ** Category: POLL 
2058 a% 
2059 xx Type: POLL 
2060 _ 
2061 ax 
2062 ** Purpose: 
2063 ns Execution of PRINT # statement when the copy code of the 
2064 a file is 8. 
2065 xe 
2066 **& Should poll be “Handled” (return with XM=0)?: Yes 
2067 xk 
2068 *k Meaning of "Handling" Poll (what does code do if handled?): 
2069 ax Complete the execution of PRINT # statenent. 
2070 a 
2071 **k Entry conditions for handler (registers, ST, RAM, etc.): 
2072 aK BLA] = Poll nunber. 
2073 as HEX node. 
2074 ax P=0, 
2075 xx 
2076 a D[S] = Copy code of the file. 
2077 aK D(A) = # of bytes to end of file 
2078 ak RO(A)= Current position (absolute address) 
2079 kk RO(15:14) = Relative position in buffer if external 
2080 ae Ri == Record length 1n bytes 
2081 ae CHNHSV = Channel # specified in the statennt. 
2082 ss STNTD1 = FIB entry address of the file. 
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2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
210? 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
212e 
2123 
2124 
2126 
2126 
ele? 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 


xx 
xx 
ax 
KK 
xx 
xx 
ax 
xx 
xk 
am 
an 
xk 
ak 
xx 
ax 
ae 
xx 
xk 
Kx 
ak 
xx 
xx 
ax 
xx 
ax 
xk 
ak 
wk 
xx 
x 
aK 
wk 
wk 
kk 
ax 
xx 
ak 
xx 
wx 
x 
ax 
Kx 
kk 
ak 
a 
aR 
x 
xt 
ae 


ak 
xk 
xt 
ke 
xt 
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(All the file related infornation can be found in the 
FIB entry of the file) 
STMTDO = Progra counter points at the senmicolon of the 
statenent. 


$9 = 0 if serial access (record # not specified) 
= 1 If randon access 
$10 = 0 if file is in mainfrane RAM/RON 
= 11f file is in external nass nenory deivce 
S11 = 0 if file is not in Independent RAN 
= 1 1f file is in Independent RAN 


At the tine when this poll is issued, the READH 

already process the channel nunber and the record nunber 
-1f specified. 

If the record nunber has been specified, the pSRECH poll 
should been issued earlier so the file pointer(in the 
FIB) should already pointing at the start of the record. 


Norrial exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 
If handled, the handler should complete the PRINT# 
staternent and directly exit to NXTSTN. The rath stack 
will be cleared by the run loop autonatically. 


Nortial exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

Carry clear. 

HEX rode. 

XN=1. 


Error exit conditions fron handler: 
Carry set. 
HEX rode. 
C{O-3] = Error number. 


Rvarlable subroutine levels: 6 


What registers/RAM nay be used if handled?: 
All CPU registers, scratch RAM, ST11-0 


What registers/RAM nay be used 1f not handled’: 
B,C, 0, M1 


What registers/RAM may be used 1f error exit ?: 
All CPU registers, scratch RAM, ST11-0 
History: 
Date Programmer Modification 
04/20/83 SC Docunent 
FORO TI IJO RR JOUR III OIL 


FOR OTIS IO IOI TOI 
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2138 - 
2139 14291 161 =PRINTH DO=D0+ 2 
2140 14294 8E00 GOSUBL =GETCH# GET CHANNEL # 
0 
2141 1429A 8E00 GOSUBL =GETRE# GET RECORD # 
00 
2142 * CHANNEL # IS SAVED IN CHNHSV 
2143 . 
2144 142A0 7FDA GOSUB CHKCOD SEE WHAT IS THE FILE TYPE 
2145 142R4 512 GONC PRT110 
2146 - 
2147 142A? 718B PRIPOL GOSUB poll 
2148 142AB 62 CON(2) =pPRINH 
2149 142AD 590 = PRT100 GONC = PRT105 
2150 x 
2151 * Unknoun data type handler cones back with error 
2152 * 
2153 142B0 8000 =BsErr GOVLNG =BSERR Display the lex file error nessage 
000 
2154 x 
2155 142B7 831 PRT105 ?XN=0 
2156 142BA 80 GOYES PRT106 HAS BEEN HANDLED 


2157 142BC 8COO ftyper GOLONG =FTYPER 
00 
2158 142C2 61C0 PRT106 GOTO PRT140 
x 


2159 

2160 14206 8E9F PRT110 GOSUBL DO=FIB 
vf 

2161 142CC 168 DO=00+ (oPROTb) 

2162 142CF 1520 R=DATO P 

2163 142D3 301 LC(4) 1 

2164 142D6 OE06 A=ARC  P 

2165 142DA 908 7A=0 OP FILE PROTECTED ? 

2166 142DD 90 GOYES PRT120 IF NOT, GO TO PRT120 

2167 142DF 3100 LC(2) =eFPROT 

2168 142E3 591 GONC PRTERR (B.E.T..) 

2169 . 

2170 142E6 816 =PRT120 CSRC 

2171 * PRINT # CAN ONLY PRINT TO MAINFRAME RAN/IRAN AND EXTERNAL FILE 

2172 142E9 949 ?B=0 = S 

2173 142EC 51 GOYES PRT121 0 IS RAM 

2174 142EE 941 7B=C = S 

2175 142F1 01 GOYES PRT121 1 IS IRAN 

2176 142F3 A45 B=B+B § 

2177 142F6 4A0 GOC PRT121 8 IS EXTERNAL FILE 

2178 142F9 3100 LC(2) =eFACCS 

2179 142FD 66FC PRIERR GOTO  ERREX 

2180 14301 8E1F PRT121 GOSUBL SETURT SET ACCESS MODE TO WRITE 
7F 

2181 14307 7C5A GOSUB EOLCHK 

2182 1430B 560 GONC = PRT123 AT END OF FILE 

2183 1430E 63C0 GOTO  PRT200 NOT AT END OF LINE YET 

2184 * Here is the PRINT # statenent with no print list 

2185 * If the file is LIF ASCII file, write an end of file mark(FFFF). 


2186 * If the file is the fixed length data file: 
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2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2137 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 


2208 


2209 
2210 
eet 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
222 
ce2e 
2223 
eed 
ecco 
2e2b 
eee 

e228 


2229 
2230 
e231 
2ese 
2233 


2234 
2235 


14312 
14316 
14319 
1431C 
1431E 
14320 
14323 
14326 


14323 
14320 
14330 
14334 
14337 
14339 
1433D 


14343 
14343 


1434D 
14350 


14353 
14356 
14358 


1435C 
1435E 
14362 
14365 
14368 
1436A 


14 36E 
14372 


14378 


1437E 


14384 
14384 
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x Write end 

x Write end 

x 
7023 ~PRT123 GOSUB 
845 $T=0 
854 ST=1 
D2 C=0 
E6 C=C+1 
AGF D=D-1 
A4F D=0-1 
562 GONC 

k 

* DATA FILE 

k 
7B37_  PRT124 GOSUB 
443 GOC 
31FF LC(2) 
869 ?$T=0 
60 GOYES 
31FE LC(2) 
8EO2 PRT125 GOSUBL 
7F 
8E3C GOSUBL 
7F 
6670 GOTO 
A4F = PRT130 D=D-1 
433 GOC 

k 

: TEXT FILE 
869 ?§T=0 
60 GOYES 
636F GOTO 

x 
C6 PRT131 C=C+C 
7607 GOSUB 
5BO = PRT135 GONC 
86A ?8T=0 
46 GOYES 
658C GOTO 

x 
31FF PRT136 LC(2) 
SEBE GOSUBL 
6F 
8EDD GOSUBL 
6F 
8E68 GOSUBL 
7F 

k 

=NXtstri 
8COO =PRT140 GOLONG 
00 


x 
x 
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of data mark(EF) if is a randon print 
of file mark(FF) if is a serial print 


GTPTRS 
Error 
Return 


GETSPC SEE IF STILL ROOM IN FILE 
PRT135 IF NOT, ERROR 

=f EOF 

Rando SERIAL ACCESS ? 

PRT125 

=fEOR 

WRIMRK 


BACK1B 
PRT180 


S 
PRT140 


Randon Only allow serial access 
PRT131 
ftyper 


A C(A) = 2 

GETSPC GET SPACE FOR 2 BYTES 
PRT136 

1/Obuf 

PRT185 

EOFILX 


=f EOF 
WRTARK 


WRTEQF 
BACK2B 


=NEXTst To NXTSTA 
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2236 1438A 7909 PRT150 GOSUB EOLCHK 


2237 
22 38 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 


1438E 434 


14391 71R2 
14395 A4F 
14398 AR4F 
14398 542 
1439E 854 
143A1 D2 
143A3 £6 
143A5 8AF 
143A8 70 


143AR 87A 
143AD 31 


143AF 


143AF 869 
143B2 RO 
143B4 8A? 
143B7 90 
14389 849 
1436C 


143BC 6CO6F 


143C0 865 
14303 1C 
143C5 118 


Coc PRT 200 


CURRENT POSITION 


PRT170 ?ST=1  Randon 
GOYES PRT180 


ee ee 


PRT170 GOSUB GTPTRS 
D=D-1 § 
D=D-1 § 
GONC PRT180 
ST=1 Return 
C=0 A 
C=C+1 A 
7DHO OA 
GOYES PRT175 


DONE WITH PRINT STATENENT 
IF THIS IS A SERIES PRINT, WRITE AN END OF FILE MARK TO THE 
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Bug fix by NZ on 8/18/83 to fix the bug that does not rewrite 
the end-of-file nark following a randon print to the last 
record in the file (the old E0F nark) 


The modified code checks if this is a Randon PRINT which 

exactly filled the LAST logical record in the file. If it is, 
then an End-of-File nark needs to be uritten here, even though 
it will be in the next record, to make sure that DATA files in 


RAM always have an EOF. (NZ) 


(Rerioved by NZ) 
(Renoved by NZ) 


If NOT THE FIXED LENGTH FILE 
DON’T WRITE EOF 


AT END OF FILE ? 
IF NOT, WRITE IT 


* Don’t write end of file nark if reached end of an external 


* file. 


?ST=1 1 /Obuf 
GOYES PRT180 
x 


PRT175 
x 


* New lines to fix bug (See connents above) 
x 


?ST=0 Randon 
GOYES PRT178 


CHD OA 
GOYES PRT180 
ST=0 = Randon 


PRT178 

x 

* End of bug fix code 
x 


GOTO PRT124 
k 
PRT180 ?ST=0 Error 
GOYES PRT140 
C=R3 


Is this a randon print? 

No...skip this fix code 

Exactly 1 byte left in file? 
No...don’t write anything 

Fake PRT124 to write EOF, not EOR 


WRITE EOF 
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2231 
2292 


2293 
2294 
2295 


2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
23t2 
2313 
2314 
ea5 
2316 
2317 
2318 
2319 
2320 
2321 
232e 
2323 
2324 
2325 
2326 
23e7 
2328 
2329 
2330 
2334 
2332 
2333 


2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 


14308 
143€C 


143D2 
14305 


14308 
143DF 
143E3 
143E6 
143E8 
143EC 
143EF 
143F 3 


143F7 
143FB 
143FE 


14402 
14404 
14408 
1440B 
1440F 
14412 


14415 


14418 
1441B 
1441E 


14422 
14425 
1442? 


14420 
1442F 


6B2C 
8000 
00 


161 
8EOO 
00 
721E 
31F8 
966 
90 
31F0 
140 
790A 
6010 


773A 
560 
6B8F 


08 
7403 
55F 
7722 
RA? 
R47 


4E6 


A4? 
460 
62E0 


862 
80 
8000 
00 


D2 
308 
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GOTO ERREX 
PRT185 GOLONG =NONEN 


x 


PRT200 DO=D0+ 2 
GOSUBL =EXPEX- GET THE NEXT PRINT LIST TO STACK 


GOSUB saved SAVE DO IN STMTDO 
LCHEX 8F CHANGE 8F TO OF 
ARC OB 
GOYES PRT201 
LCHEX OF 
DAT1=C B 

PRT201 GOSUB CKNFLG 

; GOTO PRT215 

LOOPBK GOSUB CHKDON 
GONC = PRT210 

NXTLST GOTO =PRT150 

& 


PRT210 CLRST 
PRT215 GOSUB STKVCT 

GONC = NXTLST 
PRT220 GOSUB GTPTRS 

D=D+D § 

D=D+D 
JOSIE IO 
: Pack by NZ on 8/18/83...saves 4 nibbles 


CHECK DATA TYPE ON THE STACK 
GET POINTERS OF THE FILE FROM FIB 


GOC ASCIIF This 1s an ASCII file 
k 
* GONC PRT230 
m GOTO 8 ASCIIF IS A ASCII FILE 
k 


* End of pack by NZ 
JIT IID T IT II IAI ATI IIIT IT TI II 
PRT230 D=D+D S$ 
GOC HP41DT 
GOTO FIXLEN HP-71 FIXED LENGTH FILE 
Peete eseteteetessert ts: 


* SORTA FILE 
k 


HP41DT 7ST=0 String STRING ? 
GOYES H41D10 DON’T DO STRING ON HP-41C FILE 
BRDTYP GOLONG =RDATTY SAY "DATA TYPE” 


x 
FORO BORO TORR OO RR 


* Pach here could save 1 nibble 
k GOSUB =LDC=8 
k 
H41D10 C=0 A 
LC(1) 8 


* End of possible packing 


rN SS ss URS sre 
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2343 SII IIR IRI III I OT TIA IIA 
2344 14432 870 ?$T=1  Notnuri 
2345 14435 C2 GOYES 41040 NOT A NUMBER 
2346 * WRITE A SIMPLE NUMBER TO HP-41C DATA FILE 
2347 14437 7026 GOSUB GETSPC MAKE SURE THERE IS ENOUGH ROOM 
2348 14438 511 GONC 41020 ENOUGH ROON 
2349 1443 855 EOFERX ST=1 Error 
2350 14441 3100 LC(2) =eEOFIL 
2351 14445 86A ?ST=0 = 1/Obuf Internal file ? 
2352 14448 13 : GOYES NOSPC If so, say "Insufficient Menory" 
2353 
2354 14448 523 GONC NOSPC2 
2355 * 
2356 14440 110 H41D20 A=RO 
2357 14450 1H DO=A DO @ CURRENT FILE POINTER 
2358 14453 1537 A=DAT1 W 
2359 14457 8£76 GOSUBL WRTNUN 
oF 
2360 1445) 699F GOTO  LOOPBK 
2361 x 
2362 14461 871 H41D40 ?ST=1 Array 
2363 14464 CO GOYES 41050 
2364 a 
2365 * MUST BE A COMPLEX NUMBER 
2366 : 
2367 14466 171 D1=D1+ 2 Step over the £0 
2368 14469 7889 H41045 GOSUB UPNTHS 
2369 1446) 549 GONC  PRT210 (B.E.T.) 
2370 , 
2371 * NUMERIC ARRAY 
2372 * 
2373 14470 7834 H41D50 GOSUB NXTELM 
2374 14474 865 ?$T=0 Error 
2375 14477 B8 GOYES PRT210 
2376 , 


2377 14479 3100 NOSPC LC(2) =eNEN 
2378 14470 10B NOSPC2 R3=C 


2379 14480 601F GOTO PRT170 

2380 JR III III II TRI IIIT IIIT. 

2381 ® TEXT FILE 

2382 * 

2383 14484 869 ASCIIF ?ST=0 Randon . Only allow serial print to text file 

2384 14487 60 GOYES ASCSEC 

2385 14489 623E GOTO 8 ftyper Say “Invalid File Type" 

2386 x 

2387 1448D 870 =ASCSEC ?ST=1  Notnun 

2388 14490 CO GOYES ASC100 

2389 * SIMPLE NUMBER ON STACK 

2390 14492 8E00 ASCNSO GOSUBL =STR$SB CONVERT THE NUMBER TO ASCII 
00 

2391 14498 60DF GOTO = =H41D45 UPDATE MATH STACK POINTER 

2392 1449C 871 ASCIOO ?ST=1 Array 

2393 1449F 81 GOYES ASARRY 

2394 144A1 862 ?$T=0 String 


2395 144A4 EE GOYES ASCN5O MUST BE RA SIMPLE COMPLEX NUMBER 
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2396 x 
2397 * SIMPLE STRING ON STACK 
2398 x 
2399 144A6 7A95 ASCSTR GOSUB STRSPC SEE IF THERE IS ROOM IN THE FILE 
2400 144AA 439 ASC230 GOL EQFERX 
2401 144AD 8ECB GOSUBL WRTSTR WRITE THE STRING TO FILE 
af 
2402 144B3 634F GOTO LOOPBK SEE IF DONE WITH ONE ITEN 
2403 x 
2404 * NUMERIC OR STRING ARRAY 
2405 x 
2406 144B7 872 ASARRY ?ST=1 String 
2407 144BA 71 GOYES STRARY 
2408 & 
2409 * NUMERIC ARRAY 
2410 & 
2411 144BC 7CE3 GOSUB NXTELM 
2412 144€0 875 ?8T=1 Error ENOUGH ROOM ON STACK ? 
2413 144€3 68 GOYES NOSPC 
2414 144C5 863 7ST=0 Crplex 
2415 144€8 AC GOYES ASCN5O 
2416 144CA 77BD GOSUB LDEQ- 
2417 144CE 53C GONC ASCNS5O CONVERT THE NUMBER TO ASCII 
2418 * STRING ARRAY 
2419 14401 857 STRARY ST=1 Check 
2420 14404 7403 GOSUB NXTELM 
2421 14408 7475 GOSUB STSPC- SEE IF STILL ROOM IN FILE 
2422 144DC 400 ASC240 GOL ASC2% NOT ENOUGH ROOM 
2423 144DF 847 ST=0 = Check 
2424 144E2 7603 GOSUB NXTELN 
2425 144E6 AF2 C=0 W 
2426 14469 1563 C=DRTO 4 C= STRING LENGTH 
2427 144ED 163 DO=D0+ 4 
2428 144F0 C6 C=C+C A STRING LENGTH IN NIBBLES 
2429 144F2 132 ADOEX 
2430 144F5 CA A=A+C A 
2431 144F?7 8&6? GOSUBL WRSTR* WRITE THE STRING TO FILE 
4F 
2432 144FD 69FE GOTG  LOOPBK ‘ 
2433 KR RIR RAK RER RK 
2434 * HP-71 DATA FILE 
2435 x 
2436 14501 860 FIXLEN ?ST=0 Notnur 
2437 14504 60 GOYES FIX100 
2438 14506 6380 GOTO FIX300 
2439 * B(A) = # OF BYTES LEFT IN CURRENT RECORD( THESE BYTES MAY NOT 
2440 k EXIST IN THE FILE YET) 
2441 RAK RERRARRER RRA ERR AER RE RARER IRR RIK 
2442 * Pack here could save 1 nibble 
2443 & 
2444 % FIX100 GOSUB LDC=8 
2445 7 
2446 1450A D2 FIX100 C=0 A B= BYTES LEFT IN CURRENT RECORD 
2447 1450C 308 iC(1) 8 
x 


2448 
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2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
247? 
2478 


2479 
2480 
2481 
2482 
2483 


2484 
2485 


2486 


2487 
2488 
2489 


2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 


1450F 
14512 


14514 
14517 
14519 
1451C 
1451F 
14521 
14525 


14529 
1482B 
1452E 
145% 
14532 
14536 
14539 
1453C 
1453F 
14543 
14546 
14548 
14548 
1454D 
1454F 
14551 
14554 


1455A 
1455E 
14561 
14565 


14568 
1456E 


14574 
1457A 
1457E 


14584 
1458? 


1458A 
1458D 
1458F 
14592 


* End of possible packin 
IIS ISI III IID TI RITA II IK 


889 
91 


873 
AO 
111 
8BE 
AO 
3100 RECERR 
6ECR 
& 
C3 FIK105 
87AR = FIX110 
40 
£6 
7235 FIX115 
45R FIX118 
110 
130 
7F2D 
889 
Bi 
111 
oC 
E1 
cb FIX125 
4FO 
8EC1 
oF 
CAF F 
k 


47D FIX140 
1537 FIX145 
BE95 

4F 

421 

BEDE 

3F 

8EE7 

SF 

6C7E FIK150 

x 


8EOR = FIX160 

7F 

SSF sFIX163 

499 FIX165 
x 


* NOT A 
* 
871 FIX300 
21 
872 
61 
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7B>=C A 
GOYES FIxX110 


?ST=1 
GOYES 
A=R1 

*Ar=C A 

GOYES FIX105 
LC(2) =eRECOR 
GOTO  ERREX 


Randon 
RECERR 


C=C+B A 
?ST=1 1/Obuf 
GOYES FIX115 
C=C+1 A 
GOSUB GETSPC 
GOC ASC240 
A=RO 

DO=A 

COSUB LDC=8 
7B>=C A 
GOYES FIX145 
A=R1 

ABEX A 
B=B-C A 
A=A-1 A 

GOC FIK145 
GOSUBL DO+2WR 


GOTO 
GOC FIX118 


A=DAT1 W 
GOSUBL WRTNUN 


FIX125 


GOC FIX160 
GOSUBL WSTF80 


GOSUBL SETWRT 
GOTO LOOPBK 
GOSUBL EORC20 


GONC FIX150 
COC RECERR 


SIMPLE NUMBER 


2ST=1 
GOYES 
*ST=1 
GOYES 


Array 

FIXARY 
String 
FIXSTR 
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pss 


More than 8 bytes left in record? 
Yes...we only need 8 (continue) 


IS THIS A RANDOM ACCESS ? 


ACA) = RECORD LENGTH 
RECORD LENGTH >= 8 ? 


SAY REACHED END OF RECORD 


TOTAL # OF BYTES NEEDED 
EXTERNAL FILE ? 


INTERNAL FILE NEED ONE MORE BYTE 
SEE IF STILL ROOM AVAILABLE ? 
IF NOT, ERROR OUT 


DO @ CURRENT FILE PTR 

C(A) = 00008 

Can this fit in current record? 
Yes...go urite the number 

A= RECORD LENGTH 

A=# OF BYTES LEFT IN CURRENT REC. 
B=# OF BYTES LEFT IN NEXT RECORD 
SKIP OVER CURRENT RECORD 


SEE IF ENOUGH ROON 

NOT ENOUGH ROOM TO EXPAND 
READ THE NUMBER AGAIN 
WRITE THE NUMBER TO FILE 
WRITE END OF RECORD MARK 


PUT BACK TO WRITE MODE 


UPDATE CURRENT POSITION IN FIB 


we 
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2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 


2524 
2525 
2526 


2527 
2528 
2529 
2530 
2531 


2532 
2533 
2534 
2535 
2536 
253? 
2538 
2539 
2540 
2541 
e54e 
2543 
2544 
2546 
2546 
2547 


2548 
2549 


14594 
14597 
1459B 


1459F 
145A2 


145A4 


145R8 
145RB 
145AE 
14581 
14584 
14588 
14588 


14501 
145¢4 
145C7 


145CD 


14500 


14506 


145DA 
14500 
145€1 
145E5 
1458 
145EB 
145€F 
145Fe 
145F4 
145F8 


145FC 


171 
7R58 
666E 


872 
83 


6BCE 


171 
AFO 
143 
8iC 
7A24 
45A 
8ECO 
8F 
AFA 
8iC 
8E8E 


438 


8E62 
7F 


6DAF 


85? 
7BC2 
7DF 3 
420 
84? 
70B2 
131 


15A3 
bECF 


8C00 
00 
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* COMPLEX NUMBER, JUST TREAT IT AS TWO NUMBER 
x 


Di=D1+ 2 
GOSUB UPNTHS 
GOTO PRT210 
x 
FIXARY ?ST=1 String 
GOYES FXSTAR 


* NUMERIC ARRAY 
x 
GOTO #41050 


x 
* SIMPLE STRING 


Step over the EO 


GET NEXT ELEMENT OF ARRAY 


* B(A) = # OF BYTES LEFT IN CURRENT RECORD 
* 0 = # OF BYTES TO END OF FILE 
k 


D1 @ TOP OF STACK 
FIXSTR D1=D1+ 2 


A=0 W 
R=DAT1 A 
ASRB 


GOSUB FXSTSP 
FIX350 COC FIX140 


GOSUBL DROPST 
A=C W 
ASRB 


FIX360 GOSUBL WSTRFX 


GOC FIX165 


* UPDATE CURRENT POSITION AND 
k 
GOSUBL EORCHK 


x 


GOTO =FIX163 
x 
* STRING ARRAY 
FXSTAR ST=1 Check 
GOSUB NXTELN 
FXSAIO GOSUB FXSTSP 
GO FIX350 
ST=0 = Check 
GOSUB NXTELN 
D1=A 
A=0 A 
R=DATO 4 
GOTO FIX360 
% 


=Dinnsth GOLONG =DINSTK 


x 
t 


R= STRING LENGTH IN NIBBLES 
A= STRING LENGTH IN BYTES 
COMPUTE TOTAL SPACE NEEDED 
NOT ENOUGH ROON 

POINTS TQ END OF STRING 


A= STRING LENGTH IN BYTES 
WRITE STRING 10 FILE 


CHECK CROSSING END OF RECORD 


Check if end of record (carry=end) 


COMPUTE SPACE NEEDED IN FILE 
NOT ENOUGH ROOM 


D1 @ PAST THE STRING 
A= STRING LENGTH IN BYTES 
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2550 
2551 
2552 
2553 
2554 
2555 
2556 
255/ 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 


2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 


2589 
2590 
2591 


2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 


14602 8EDB 
4F 
14608 161 
1460B 1563 
1460F 93A 
14612 00 
14614 85A 
14617 133 
1461A D8 
14610 8E00 
00 
14622 4A0 
14625 07 
14627 8000 
00 


14620 D4 
1462F 133 
14632 D8 
14634 03 
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KKK KKK AKAIKE RAKE KEKE KE RIKER IRE AAA ERI II KIS KAIR RETIREE KALE 
KKK KKK KKEREKAKAKKAKEREKAE EE ARE RE K AKIRA KAI KAR IIIT IALK 
at 


** Nane:  FNDFBF - Find File 1/0 Buffer 

xs 

** Category:  FILUTL 

kt 

**% Purpose: When open an external file to FIB, an I/0 buffer 1s 
ak allocated to contain one sector of the file. The 

ah I/0 buffer number is stored in the FIB entry of the 
ak file. 

ae This routine will find that 1/0 buffer by given the 
aR FIB entry address of the file. 

aK 

** Entry: STMTD1 contains the FIB entry address of the file 

kt 

** Exit: B(A) = file 1/0 buffer start address 

aK S10 = 1 if external file 

te = 0 if internal file 

aR Error exit to error routine if file 1/0 buffer not 

aR found. 

tt 

** Calls: I/OFND 

ae 

** Uses: A, B(A), C, DO, S10 

ak 

*X Stk lvls: 


FIO II ISTO IO TOT TTT TTI TIS OI SIT ATIK 
FORO ITO TO TTT TOTO TOOT TTT TT TTT TTT TOC 
x 


=FNDFBF GOSUBL DO=FIB 


DO=D0+ (oF BFHb) 
C=DATO X 

*C=0) x 
RTNYES 

ST=1 1 /Obuf 
ADIEX 

B=A AR 
GOSUBL =1/OFND 


IS THIS AN INTERNAL FILE ? 
IF SO, RETURN 


SAVE D1 IN B(A) 


GOC FOF BF 1 
C=RSTK 
GOLONG =FHNFND 


BUFFER NOT FOUND 


x 


FOFBF1 A=B A 
ADIEX 
8=A A 
RTNCC 


RESTORE D1 FROM B(A) 
B(A) = BUFFER START ADDRESS 


x 
x 
FIO RRO OOOO TTI TOTO ICI TI I 
FORO RIO ITO I OTT ITO TI TO IK 
aK 
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2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2613 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 


2646 
2647 
2648 
2649 


2650 
2651 
c652 
2653 
2654 


14636 
149639 
1463C 


14643 
14646 
14643 
1464C 


14652 
14655 
14658 
1465B 
1465E 


137 
136 
1F97 
oFe 
147 
135 
175 
8E00 


849 
84h 
84B 
14B 
3100 
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*X Nane:(S) GIPTRS - Get File Pointers fron FIB 
*k Narne:(S) GIPTRX - Get File Pointers fron FIB 
xk 


*% Category:  FILUTL 

ar 

** Purpose: Get all the file & FIB pointers into CPU registers 
xx 


** Entry: STNTD1(4-0) = Entry address in FIB 
xk GTPTRX: Should clear $9 & $10 on entry 


ax 

** Exit: D(S) = Copy code of the file 

ak D(A) = # of bytes to end of file 

- B(S) = Device type 

ae B(R) = # of bytes left in current record 

a RO(A)= Current position (absolute address) 

ax RO(15:14) = Relative position in buffer if external 
ah R1 = Record length in bytes 

ak $9 = 0 1f serial acces 

ak = 1 if randon access 

aK S10 = 0 1f mainfrane RAM/ROM file 

ta = 11f 1s an external file 

aa S11 = 1 af Independent RAN 

xx = 0 if not IRAN 

ak 

ak GTPTRX: 

ak The difference between the tuo entry points is that in 
ae order to determine whether it 1s a serial or randori 
RX access. 

- The GIPTRS entry u1ll go back to the beginning of the 
an staternent to check if the record number 1s specified, 
ah But the GIPTRX entry ill not do so, therefore the S9 
ci will not be changed by the GIPTRX entry. : 

ke 

** Calls: I/OFND 

xk 

kK Stk Ivls: 2 

xx 


xk Used A,B,C,D,D0, S9-11 
JIG IO GIIDSIDIOGI IOI ITI IO UIC IT TI 


FOO III III OTTO ITO IT TIO TTI OK 
‘ 5 


=GTPTRS CDIEX SAVE D1 IN DO 
CDOEX 
D1=(5) =PCADOR 


C=DAT1 
b1=C 

Di=B1+ 
GOSUBL 


uO DD 


EXPSKP 


ST=0 = Randon 
ST=0 =: 1 /Obuf 
ST=0 = Iran 
A=DAT1 B 

LC(2) =tSEMIC 
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2655 14662 962 7A=C OB 
2656 14665 50 GOYES GTPTRO 
2657 14667 859 ST=1— Randon 
2658 x 
2659 14668 136 GTPTRO CDOEX RESTORE 01 FROM DO 
2660 1466D 137 CD1EX 
2661 14670 7E8F =CTPTRX GOSUB FNDFBF FIND FILE BUFFER IF EXTERNAL FILE 
2662 14674 167 DO=D0+ (oCOPYb)-(oF BFHb) 
2663 14677 1564 C=DATO S$ 
2664 1467B AC7 D=C S$ D(S)= COPY CODE 
2665 1467E 161 DO=D0+ (oDEVCb)-(oCOPYb) 
2666 14681 1564 C=DATO S$ 
2667 14685 ACS B=C Ss B(S)= DEVICE TYPE 
2668 14688 A4E C=C-1 § TEST IF IS IRAM 
2669 14688 A4E C=C-1 § 
2670 1468E 550 GONC NOTIRNM 
2671 14691 858 ST=1— Iran 
2672 14694 168 NOTIRM DO=D0+ (oDBEGb)-(oDEVCb) 
2673 14697 146 C=DATO A 
2674 14698 D7 D=C A D(A)= DATA START ADDR (ABS) 
2675 1469C 16E DO=D0+ (oRECLb)-(oDBEGb) 
2676 1469F D2 C=0 A 
2677 146A1 15€3 C=DATO 4 
2678 146AS 109 R1=C Ri= RECORD LENGTH 
2679 146A8 163 DO=D0+ (oCPOSb)-(oRECib) 
2680 146AB 86A ?ST=0 = 1/Obuf EXTERNAL FILE ? 
2681 146RE D2 GOYES GTPTR2 IF NOT, GOTO GTPTR2 
2682 14680 AFO A=0 W 
2683 14683 1523 A=DATO X 
2684 146B7 32EF LC(3) 510 C(x) = OCT. 776 
1 
2685 146BC 0636 A=R8C xX A(X) = REL.CUR.POS. IN BUFFER 
2686 146CO D6 C=R A C(A) = REL.NIB.POS IN BUFFER 
2687 146C2 81C RASRB A(B) = REL. BYTE POS. IN BUFFER 
2688 146€5 814 ASRC 
2689 146C€8 814 RASRC A(15:14) = REL. BYTE POS. IN BUFR 
2690 146CB DA A=C a 
2691 146CD CO R=A+B OR A(A)= CURRT POS IN BUFFER (ABS) 
2692 146CF 100 RO=A RO(15:14)=CURT POS IN BUFR (REL) 
2693 14602 142 R=DATO A ACA) = CURR.POS IN NIBS 
2694 14605 D8 B=A A B(R) = CURRENT POSITION(NIBS) 
2695 14607 6D00 GOTO GTPTR3 
2696 k RO(A)= CURT POS IN BUFR (ABS) 
2697 1460B 146 GTPTR2 C=DATO A 
2698 146DE DS AQ B(A)= CURRENT POSITION IN NIBS 
26399 146E0 CB +D A C= CURRENT POSITION (ABSOLUTE) 


C= 
B= 
C= 
2700 146E2 108 RO=C 

2701 14665 165 GTPTR3 DO=D0+ (oDLENb)-(oCPOSb) 
2702 146E8 AF2 C= W 

2703 146EB 146 C= 
2704 146£E £9 C= 
2705 146FO 411 GO 
2706 146F3 81E CS 
2707 146F6 D? D= 
2708 146F8 165 DO 


A 
GTPTR4 


D= # OF BYTES TO EOF 


t 

C 

0 

DATO A 
C 

C 

R 

t A 

=D0+ (oRLENb)-(oDLENb) 
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2709 146FB 146 C=DATO A 
2710 146FE DS B=C A B = # OF BYES LEFT IN CUR. RECORD 
2711 14700 03 RTNCC 
2712 a 
2713 14702 8C6E GTPTR4 GOLONG EOFIL **Pack here...could save 2 nibs** 
8F 
2714 a 
2715 JO OI ITO STIR IIIT IIIS ISS ATSI ISI SS ISII IIIS IG ISIS IIS 
2716 JIS III OTITIS ITI III IITA S OS ITI IIIT IM 
2717 ak 
2718 ** Narie:(S) STKVCT - Process Array Dope Vector 
2719 ak 
2720 ** Category:  EXCUTL 
2721 ak 
2722 ** Purpose: Process an array dope vector on math stack. When 
2723 ak printing or reading an array to or fron a data file, 
2724 RR it 1s done one elenent at a tine. The array dope vector 
2725 aX Will renain on the stack until done, so it can be used 
2726 ak to keep track of the next elenent addr and nunber of 
2727 ak elerents left to be done. 
2728 aK The dope vector on the wath stack will contain : 
2729 = Nibs Meaning 
2730 RK wwe nnn nnn nnn nn ne nen nen nn nnn nen nnn nnn nnn ee 
2731 RE 1 Variable type. A-Int, B-Short, C-Real.... 
2732 ak 1 Dimensions. (1 or 2} 
2733 ax 2 Option base. 
2734 ae 3-6 Naxinun string length if is string variable 
2735 ae 7-10 Nuriber of elerents left to be done. 
2736 ak 11-15 Next elenent address. 
2737 a 
2738 *k Entry: 01 @ stack pointer 
2739 xR If S&8 =1, rewite dope vector 
2740 ae EXIT: 
2741 ax Following status bit will be set properly : 
2742 RK Notnun(SO) - Not sinple real 
2743 me Array (S1) - Nuneric or String array 
2744 em String(S2) - String or string vector 
2745 ae Cruplex(S$3) - Complex nunber or Conplex array 
2746 abs If 1s an array elenent(S1=1): 
2747 ak Carry clear => All elenents done 
2748 ak 
2749 a STACK(10-7)= Nurber of elerents left 
2750 a STACK(6-3) = String max. length in bytes 
2751 a STACK(15-11)= Next elenent address 
2782 *k Used: A,C,00,01 
2753 ORR ROR OI IOI IO IOI OOO TIO IOI OIC 
2754 FOO ROO ROJO II OOOO 
2755 * 
2756 14708 7OFE =STKVC+ GOSUB Dtnstk 
2757 1470C 1637 =STKVCT R=DAT1 W READ THE STACK 
2758 14710 30R LCHEX A 
2759 14713 982 PAcC OP SIMPLE REAL ON STACK ? 
2760 14716 00 RTNYES IF SO, JUST RETURN 
2761 14718 850 ST=1 0 Notnuri 
2762 1471B 852 ST=1 String ASSUME IS STRING 
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2763 
2764 
2765 
2766 
2767 
2768 
2769 
2720 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 


2785 
2786 
2787 
2788 
2789 
27% 
2791 
2792 
2793 
2794 


2795 
2796 
2797 
2798 
2799 
2800 
2801 


2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 


2810 
2811 
2812 
2813 


1471E WE 
14721 986 
14724 01 
14726 842 
14729 ROE 
1472C 982 
1472F 50 
14731 853 
14734 REG 
14737 BE6 
1473A 90A 
1473D 00 
1473F 851 
14742 878 
14745 21 
14747 176 
1474A D2 
1474C 15F3 
14750 8AE 
14753 00 
14755 03 
14757 1BCD 
6F2 
1475€ AO 
14761 5F3 


14764 AF2 
14767 1564 
1476B 30A 
1476E A46 
14771 440 
14774 E6 
14776 1BAB 
8F2 
14770 1822 
14781 A2C 
14784 421 
1478? A2C 
1478A 4C0 
1478D DA 
1478F 8£00 
00 
14795 Dé 
14797 176 
1479A 1508 
1479E 521 


147A1 872 
147A4 92 
147A6 8FOO 
000 
147AD 1593 


147B1 173 
147B4 147 
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STKV10 


STKV15 


NEWITH 


STKV20 


STKV25 


STKV40 


STKV45 
* 


STKV50 


LCHEX E 

7AOC OP 
GOYES STKV10 
ST=0 = String 
C=C-1 P 

7AcC OP 
GOYES STKV10 
ST=1  Crplex 
C=A B 

CSR B 

7C=0 =? 
RTNYES 

ST=1 Array 
*ST=1 Fresh 
GOYES NEWITN 
Di=D1+ 7 

C=0 A 
C=DAT1 4 

CHO) 8O*—A 
RTNYES 

RTNCC 


DO=(5) (=SYSFLG)+3 


C=C+C P 
GONC  STKV40 


* NONEXIST ARRAY 


C=0 W 
C=DATO S$ 

LC(1) 10 
C=C+C § 

GOC STK¥20 
C=C+1 A 
00=(5) =F-R1-3 


R=DATO XS 
A=A-1 XS 

GOC STKV25 
A=A-1 XS 

GOC STKV¥25 
A=C A 
GOSUBL =A-MULT 


C=A A 
D1=D1i+ 7 
DATI=C 9 
GONC STKV5O 


?ST=1 String 
GOYES STKV60 
GOSBVL =ARYELN 
DAT1=A 4 


Di=D1+ 4 
C=DAT1 A 
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IF A(O) = F, IS A STRING 


C(O) = D 


IF A(O)=E OR D, IS COMPLEX 


NOT AN ARRAY 


READ ELEMENT COUNT 
COUNT # O ? 


IF COUNT = 0 ,CLEAR CARRY 


C(S) = OPTION BASE 
OPTION BASE = 1 ? 
11 ELEMENTS IF OPTION BRSE 0 


A(XS) = SUBSCRIPT COUNT 


SUBSCRIPT COUNT = 2 


WRITE ELEMENT NUMBER 


COMPUTE # OF ELEMENTS 
WRITE # OF ELEMENTS 


Di @ ARRAY ADDRESS 
C = ARRAY START ADDRESS 
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2814 
2815 


2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
280 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 


147B7 1B17 
8F2 
147BE 144 
147C1 16F 
14704 D2 
147C6 CE 
147C8 144 
147CB 02 


147CD 147 
147D0 176 
14703 1583 
147D? OB 
147D9 878 
1470C 20 
147DE OB 
147E0 4CC 
147E3 E4 
147E5 57C 


x 


k 
$ 


S$ 


x 
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DO=(5) =S-RO-0 
DATO=C A WRITE ARRAY ADDRESS TO S-RO-0 
DO=D0+ 16 INITIALIZE THE REG # FOR TRACE 
C=0 A 
C=C-1 A INITIALIZE TO FFFFF 
DATO=C A 
RTNSC 

TKV¥60 C=DAT1 A C(XS) = OPTION BASE 
D1i=D1+ 7 
A=DAT1 4 
CSTEX S8= OPTION BASE OF THIS VECTOR 
?ST=1 8 *kPack here...could save 3 nibs** 
GOYES STKV70 KKAK(CSRB, C=C+C B)**** 

TKV70 CSTEX 
GOC STKV45 IF SO, ELEMENT NUMBER IS RIGHT 
A=A+1 A 
GONC = STKV45 (Bb ete) 


FORO OITA OOOOH 
FOO JO IOI IG III TIO III A 


a 
at 
ae 
ax 
xx 
ak 
x 
ak 
kk 
ax 
xk 
xx 
xx 
ax 
xk 
ae 
xk 
xx 
ax 
xk 
xe 
KR 
ax 
ak 
aR 
aR 
a 


Narie: (S) 
Category: 
Purpose: 


Entry: 


NXTADR - Get Address of Next Array Elenent 
EXCUTL 
Get the address of next elenent of an array 


NTHSTK pts at the array dope vector(top of stack) 
S8 = 1 If to get the address of the first elenent 


Exit: 


Used ALC, 


Stk lvls: 


When the dope vector 1s first tine recalled to 
the math stack, the address field already 
point to the next elerient address. Set $8 will 
it been roved to next element address. 


Carry clear: 


D1 @ Top of stack 


S-RO-3 = Data type: 0O- real, 1-short, 2-integer 
E- conplex, F- short complex, D-STRING 
S-RO-O = next elerent address 


If 1s a string vector: 

R3 = Max. string length 

S-R1-1 = Max. string length 

DO,D1, STMTRO, STMTR1, R3 (if string vector) 


1 


JORIS IO IG IIIS IO 
SRR OOOO OOOO OI OIE OTOL 


x 


2866 147£8 72AO =NXTADR GOSUB NXTECK 


2867 


V47EC 1593 


DAT1 


=A 4 UPDATE ELEMENT COUNT 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 


2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 


2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 


2894 
2895 
2896 
2897 


2898 
2899 
2900 
2901 
22 


293 
2904 


2905 
296 
27 
298 
29 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2317 


147F0 
147F3 
147F6 
147F8 
147FB 
147FD 
14801 
14804 


1480B 
1480E 
14811 
14814 
14817 
14819 
14818 
14810 
1481F 
14822 
14825 
14827 
1482B 
1482E 
148% 
14834 
14837 
1483A 


14840 
14843 
14846 
14848 


1484F 
14851 
14854 
14858 
1485A 


14861 
14863 


1486A 
1486E 
14871 
14874 


14876 
14879 
14870 
1487E 
14881 
14384 
14887 
14889 


810 
1€3 
D2 
862 
5A 
15F3 
10B 
1B17 
8F2 
142 
16F 
164 
144 
£6 
£6 
C6 
CA 
18F 
AF2 
2 
80FA 
A7E 
D2 
15CA 
184 
5E3 
FEFO 
12 
HF 
B02 
DR 
34A3 
841 
C2 
134 
1824 
D6 
8FOO 
000 
20 
1B08 
8F2 
1504 
18E 
142 
CR 


iC2 
878 
50 

140 
16F 
146 
£6 

144 
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=DATCOD 


NXTAIO 


NXT R20 


NXT AO 


ASLC 
b1=D1- 
c=0 
ST =0 
GOYES 
C=DATI 
R3=C 
b0=(5) 


R=DARTO 
DO=D0+ 
DO=D0+ 
DATO=C 
C=C+1 
C=C+1 
C=C4C 
A=A+C 
DO=D0- 
C=0 

p= 
CPEX 
C=C-1 
C=0 
DATO=C 
00 =D0- 
GONC 
NIBHEX 


LCHEX 
C=C-A 
R=C 

Lc(§) 


C=A+C 
DO=C 
A=DATO 
C=A 
GOSBYL 


p= 
bo=(5) 


DATO=A 
bO=D0- 
R=DATO 
R=A+C 


01=D1- 
?ST=1 
GOYES 
DATO=A 
DO=D0+ 
C=DATO 
C=C+1 
DATO=C 


W 
4 
A 
String 
NXTA10 
4 


=S-RO-0 


6 


Oo 


A 
1 
5 
R 
A 
A 
A 
A 
1 
W 


14 
10 
W 
A 
11 
5 


NXTR2O0 
FEFO12 


F 
P 
A 
=DATCOD 


S 
A 
=DATLEN 


0 
=$-RO-3 


Page 55 
A(O) = DATA TYPE 


C = MAX. STRING LNEGTH 
SAVE MAX. LENGTH IN R3 
A = DESTINATION ADDRESS 
DO @ S-Ri-1 


WRITE MAX. LENGTH TO S-R1-1 
ADD HEADER LENGTH(2 BYTES) 


A= NEXT ELEMENT ADDRESS 
DO @ S-RO-1 


C(10,0) = DFFFFFOOOOO 


DO @ S-RO-0 
(B.E.T.) 


A(A)=0-4 FOR F-A 


READ THE DATA CODE 


DO @ S-RO-0 
A = DESTINATION ADDRESS 
A = NEXT ELEMENT ADDRESS 


Di @ TOP OF STACK 


WRITE NEXT ELEMENT ADDRESS 
DO @ S-R1-0 
INCREASE REG # FOR TRACE 
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2918 1488C 03 RTNCC 
2919 x 
2920 JOTI SII CII III III ITO II II II III TI II III II TTT TI TT 
2971 JI SOCIO IG IIIS III CTO TIT I 
2922 ** Nane:(S) NXTELN - Get Next Array Elenent 
2923 BX 
2924 ** Category: EXCUTL 
2925 ae 
2926 ** Purpose: Get next array elenent 
2927 ax While printing or reading an array, the array 
2928 ax vector on the stack 1s used to keep track of next 
23929 ax element address and # of elenents left. This 
2930 aR routine will get the next element and update the 
2931 ax vector information. 
2332 ax 
2933 kk Entry: 
2934 a The dope vector on the math stack will contain : 
2935 xk —Nibs Meaning 
2936 KR awn n ree ne ene nn nn nnn nn nn en nn nnn nn en nen nee nee 
2937 Ae OO Variable type. A-Int, B-Short, C-Real, D-S.Conplex 
2938 xr E- Conplex, F- String 
2939 a 1 Ditiensions. (1 or 2) 
2940 ek 2 Option base. 
2941 LL Naxinun string length if this is string variable 
2942 a 7-10 Nuriber of elenents left to be done. 
2943 xe 11-15 Next elenent address. 
2944 - 
2945 kk 
2946 ** Exit: Carry set => All done, there is no next elenent 
2947 ax Carry clear => Not done yet, there are nore elenents. 
2948 aad $5 = 1 1f no room on math stack to recall the value 
2949 ae of next elenent. 
2950 xe If numeric array: 
2951 aA B = Next elenent 
2952 xx The elerent count and next elenent address will 
2953 aK be updated in the array dope vector on nath 
2954 am stack. 
2955 ax If still roon on stack, the elenent will be 
2956 ue written to the stack on top of the array dope 
2957 a vector and the MTHSTK will be updated 
2958 ae If is a complex array: 
2959 xa B = Imaginary part 
2960 +e B = Real part 
2961 aa The tuo nunber will be written to stack too 
2962 xs If string: DO @ string start 
2963 sy A= Address past the string elenent 
2964 a C= String length in nibs + 4 
2965 = 
2966 ** Note: 
296? es The data type, such as real, string or complex, should 
2968 i still be indicated by S2 and $3: 
2369 7 S2 = 1 - String 
2970 a $3 = 1 - Conplex 
2971 ak 


2972 *k Used: A,B,C 
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2973 xk 
2974 aK Stk Ivls: 1 
2975 JOIST UCSC ISO IOI TIO TT TI TOT 
2976 JOU IOI TIT OT ITT 
2977 x 
2978 1488E 1F99 NXTECK D1=(5) =MTHSTK 
5F2 
2979 14895 143 A=DAT1 A 
2980 14898 131 Di=A 
2981 14898 1534 A=DAT1 S 
2982 1489F 176 D1=01+ 7 
2983 148A2 DO A=0 A 
2984 148A4 1583 A=DAT1 4 A= # OF ELEMENTS LEFT 
2985 148A8 CC A=A-1 A ALL DONE WITH THE ARRAY ? 
2986 148AA 01 RTN 
2987 148AC 7EDF =NXTELN GOSUB NXTECK kkPack here...could save 3 nibs** 
2988 148B0 867 ?ST=0 Check 
2989 148B3 81 GOYES NXTEOS 
2990 * If just for checking, return with A(A)= next elerient length 
2991 * Check can only be used by string 
2992 148B5 173 D1i=D1+ 4 
2993 148B8 143 A=DAT1 A 
2994 148BB 8A8 7A=0 =O 
2995 148BE BO GOYES NXTEO2 
2996 148C0 131 D1=A D1 @ NEXT STRING ELENENT ADDRESS 
2997 148C3 DO A=0 A 
2998 148C5 1583 A=DAT1 4 A= NEXT ELEMENT LENGTH 
2999 14809 03 NXTEO2? RTNCC 
3000 148CB 1593 NXTEOS DATI=A 4 UPDATE ELEMENT COUNT 
3001 148CF 810 ASLO W A(O) = DATA TYPE 
WO2 148D2 D2 C=0 A 
3003 14804 862 ?$T=0 String 
3004 148D7 34 GOYES NXTE20 
3005 148D9 1C3 01=D1- 4 
X06 148DC 15F3 C=DAT1 4 C= STRING MAX. LENGTH 
3007 148E0 177 D1=D1+ 8 
3008 148E3 143 A=DAT1 A A=NEXT ELEMENT ADDRESS 
3009 148E6 8AC ?RHO OA ARRAY EXIST ? 
3010 148E9 01 GOYES NXTE12 IF $0, GOTO NXTE12 
3011 148EB 137 CD1EX FAKE THE STRING ADDRESS 
3012 148EE 135 01=C 
3013 148F1 134 DO=C MAKE STRING POINTS TO EMPTY VECTOR 
3014 148F4 D2 C=0 A 
3015 148F6 5E1 GONC NXTE15 (B.E.T.) 
3016 148F3 130 NXTE12 DO=A 
3017 148FC £6 C=C+1 A ADD TWO BYTES OF STRING LENGTH 
3018 148FE E6 C=C+1 A 
3019 14900 C6 C=C+C A BECOME NIBBLES 
3020 14902 C2 C=AtC A POINTS TO NEXT ELEMENT 
3021 14904 145 DAT1=C A 
322 14907 D2 C=0 A 
3023 14909 15E3 C=DATO 4 C= STRING LENGTH 
3024 1490D £6 C=C+1 A 
3025 1490F E6 C=C+1 A 
3026 14911 C6 C=C+€ A 
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27 
3028 
3029 
3030 
3031 
3032 


3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
HA? 
3043 
3044 
3045 
3046 
3047 
3048 
H43 
3050 
3051 
3052 
3063 
3054 
3055 
3056 
3057 
3058 
3059 
3060 


3061 
3062 
3063 
3064 
3065 
3066 


3067 
3068 
3069 
3070 


3071 
3072 
3073 
3074 
3075 
3076 
307? 


14913 
14915 
14918 
1491R 
1491D 
14920 


14327 
14929 
1492C 
1492F 
14932 
14334 
14937 
1493A 
1433D 
14940 
14942 
14945 
14948 
1494R 
1494E 
14951 


14953 
149565 
14958 
1495C 
1435F 
14961 
14964 
14967 
1496A 
1496D 
14970 


14976 
14979 
1497C 
1497F 
14981 
14984 


1498A 
14980 
14990 
14994 


1499A 
14390 
1499F 
149Re 
149R6 
143A9 
143AC 


CA 
1CA 
03 
30F 
BO2 
8FOO 
000 
20 
173 
143 
8AC 
BO 
iCA 
RF 2 
564 
130 
CA 
144 
1CA 
DA 
3101 
9EE 
85 


29 
189 
1567 
A92 
20 
AO4 
4A3 
AFAR 
AFF 
AFE 
8E00 
00 
RFE 
AF? 
RFE 
20 
AF5 
8E92 
4F 
5FO 
AFS 
1557 
8CF5 
4F 
855 
03 
16F 
1563 
5AD 
9E6 
30 
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NXTE15 
NXTE2O 


NXTE25 


=RC LNUM 


A=AtC A 
D1=D1- 11 
RTNCC 

LCHEX F 

C=C-A P 
GOSBVL =DATLEN 


P= 0 
D1=Di+ 4 
A=DAT1 A 

AHO OR 
GOYES NXTE25 
Di=D1- 11 

C=0 W 

GONC  NXTE40 
DO=A 

A=A+C A 
DAT1=A A 
D1=D1- 11 

A=C A 
LCHEX 10 
?A>=C B 
GOYES NXTREL 


* INTEGER OR SHORT 


NXTE30 


NXTE40 


upriths 
NXTNOR 
NXTSHT 


NXTREL 


P= 9 
DO=D0- 10 
C=DATO W 

C=0 WP 

P= 0 
A=A+A PP 

GOC NXTSHT 
A=C W 

COEX W 
ACEX W 
GOSUBL =READIN 
ACEX WwW 

D=C W 

ACEX W 

P= 9 

B=C W 
GOSUBL STK16? 
GONC NXTNOR 
C=B W 
DATI=C W 
GOLONG UPMTHS 
ST=1— Error 
RTNCC 

DO=D0+ 16 
C=DATO X 

GONC NXTE40 
7AoC OB 


GOYES NXTE6O 


Page 58 
A @ PAST STRING 


C(O)= 0-5 FOR F-A 


A= NEXT ELEMENT ADDRESS 
ARRAY EXIST ? 
IF $0, GOTO NXTE2S 


UPDATE NEXT ELEMENT ADDRESS 


REAL OR COMPLEX ? 


SAVE D IN A TEMP. 


RESTORE D FROM A 


(BE. 1s) 
COMPLEX NUMBER ? 
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H78 
079 
3080 
K 02-3) 
H82 
83 
H84 
85 
X86 
8? 
88 
089 
3090 
H91 
X92 
393 
94 
95 
H36 
9? 
H38 
#99 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
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149RE 1567 NXTES5O C=DATO W 
GONC NXTE4O (B.E.T.) 
NXTE6O LCHEX 12 
ST=1 Crplex Set conplex flag again 
"AoC iB COMPLEX REAL ? 
GOYES NXTE?O 
ASRB 
GOSUB NXTE30 
DO=D0+ 3 
A=0 A 
A=A-1 A A(O)= F 
GOTO NXTEX GET THE REAL PART(B.E.T.) 
XTE70 C=DATO W 
GOSUB NXTE40 
DO=D0+ 16 
GOTO NXTES5O 


14382 SEC 
149B5 3121 
143B9 853 
149BC 9E6 
149BF 41 

149C1 81C 
14904 7B8F 
1498 162 
1480B BO 

149CD CC 

149CF 638F 
14903 1567 
149D7 76AF 
14908 16F 
149DE 6FCF 


N 


x 
a 


FOR IIT TT TTT TAIT TTI IIT IIT IDI ITI TTDI IN 
ORI RJT JOO OTTO TOTO 


ik 
Nane: FXSTSP - Get Space to Store String in a DATA file 
** Purpose: The record length in the DATA file is fixed, so 
a if the string length is longer than the record 

a length, the string be stored in multiple records. 
ak This routine will conpute the total nunber of 

ak bytes to store the entire string in the file. 

2 Serial access is assuned by this routine. 

*x Entry: B= # of bytes left in current record 

ak D= # of bytes left in current file 

x A= String length in bytes 

ak If the file need to be expanded, the S4 will 

RX determine uhere the routine should return to 

ae after expanding the file: 

ax S4 = 1 - Return to the calling routine. 

_ $4 = 0 - Exit to the main loop of PRINTH code 

ak (PRT220). 

ak 

*k Exit: Carry set => Not enough roon to expand current file 
x Carry clear => Current file has enough roon 

ay C= Total # of bytes needed 

ax D= # of bytes left in the file afterward 

ah 

ax If the current file doesn’t have enough roon to store 
ba the string, but the file is in RAM, this routine will 
ak fall into the GETSPC routine in an attempt to expand 
ak the file. 

ah 

** Uses: A,C,D,R2,D1 

ik 

*® Stk lvls: 3 


FORO JT JOO RII II IIR TOOK 
FOI RIO OI II JI I 
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3133 & 
3134 149E2 102  FXSTSP R2=A SAVE A IN R2 TEMP. 
3135 149E5 D2 C=0 A 
3136 149E7 303 LC(1) 3 
3137 149EA 111 A=R1 A= RECORD LENGTH 
3138 149ED 8B6 TALC OA RECORD LENGTH > 3 
3139 149FO 60 GOYES FXSP10 
3140 149F2 6E2B FXSPOS GOTO RECERR SAY "RECORD ERROR" 
3141 149F6 D4 FXSP10 A=B A 
3142 149F8 122 ARZEX SAVE B IN R2 
3143 149FB 8BD ?B<=C A CURRENT RECORD TRAIL < 4 ? 
3144 149FE 21 GOYES FXSP20 IF SO, SKIP OVER TO NEXT RECORD 
3145 14AOO C2 C=A+C A C= STRING LENGTH +3 
3146 14A02 8B9 ?Bo=C A WHOLE STRING FIT IN CURRENT RECORD? 
3147 14A05 D2 GOYES FXSP70 IF SO, BYTE COUNT= STRING LEN +3 
3148 14907 E9 C=C(-B R 
3149 14A09 DA A=C A A= RENAIN STRING LEN FOR NEXT RECORD 
3150 14AOB D2 C=0 A 
3151 14ROD 303 LC(1) 3 
3152 14A10 FXSP20 
3153 IK III ISI ASIII IA IID II IIT I SSIS A 
3154 * Bug fix by NZ on 8/18/83... 
3155 x 
3156 * This fixes the problen of random PRINT# to a file with a 
315? * string which would require the file to be expanded (bug is 
3158 * that the fileIS expanded before the check for record overflow, 
3159 : leaving sone uninitialized records at the end of the file) 
3160 
3161 * One pack was made to balance 2 of these 5 nibbles...see about 
3162 * 40 lines above this point (end of routine moved to TI&FX3 for 
3163 * rest). 
3164 x 
3165 14A10 879 ?ST=1  Randor Is this a randon print? 
3166 14A13 FD GOYES FXSPO5 Yes, error (exceed current rec) 
3167 
3168 * End of bug fix by NZ 
3169 STII III IAT III IIIT D I TIT III ITE 
3170 14A15 CA A=A+C A A= REMAIN STRING LENGTH + 3 
3171 14A17 119  FXSP30 C=R1 
3172 14A1A DD BCEX A C= BYTES COUNT 
3173 14A1C EO FXSP40 A=A-B A 
3174 14A1E 4D0 GO FXSP50 
3175 14A21 £4 A=R+1 A 
3176 14AC3 E4 R=A+1 A 
3177 14A25 E4 A=A+1 A 
3178 14R2? C9 C=C+B A 
3179 14A29 S2F GONC FXSP40 (BEts) 
3180 14A2C CO FXSP5O A=A+B A 
3181 14A2E CA A=A+C A 
3182 14830 De C=A A 
3183 14932 87A =FXSP70 ?ST=1 1/Obuf 
3184 14835 40 GOYES FXSP80 
3185 14837 £6 C=C+1 A Internal file need one more byte 
3186 14A39 8B? FXSP8O *7D<C A 
3187 14A3C 33 GOYES GETS10 
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3188 


: 3189 14A40 6828 


3190 
3131 
3192 
3193 
3194 
3195 
3196 
3137 
3198 
3199 
3200 
} 3201 
5 3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
i 3212 
i 3213 
: 3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
32H 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 


T4A3E D6 


14R44 171 
14A47 AFO 
14A4A 143 
14A4D 81C 


14A50 301 
14A53 OF02 
14A5?7 390A 
14A5A 70 
14ASC 856 
14A5F E4 
14A61 D2 
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C=A A 

GOTO  FXSP90 Restore B(A) fron R2 
. , 
JOU UII OUI TOI TTT TS ID 
JOGO IIIS OTS OIOIE 


** Nane: STRSPC - Get Space to Store String in TEXT file. 
ik 


*X Purpose: Check if there 1s enough roon left in the TEXT 


am file for appending a new string. If not, try to 
a expand the file. 

*k Entry: D1 @ top of the stack pointing at the string 

ax D(A) = # of bytes left in the current file 

ax STMTD1 = FIB entry address of the file 

ak If the file need to be expanded, the $4 will 

‘ deternine where the routine should return to 

ze after expanding the file: 

ax S4 = 1 - Return to the calling routine. 

aK $4 = 0 - Exit to the main loop of PRINT# code 

ak (PRT220). 

ex Exit: 

ae Carry set => not enough roon to expand 

ao Carry clear => enough room or been expanded 

an If the current file doesn’t have enough roon to store 
ze the string, but the file is in RAN, this routine will 
a fall into the GETSPC routine in an attenpt to expand 
am the file. 

tk 

** Used: A, C - if no need to expand the file 

xe A,B,C,D,D0,D1,RO - if need to expand the file 


JOIST TIO IIIS IIIT TIT ITIT IIASA ITOK 
FIO OOO OT III IIIT TI IIIT IIIT ASIII OT IA 
& 
=STRSPC Di=D1+ 2 

R=0 W 

R=DAT1 A READ THE STRING LENGTH 

STRING LENGTH IN BYTES 

JE TOTO RR TIE 


* Pack here...could save 1 nibble 
t 


XSTSPC- C=0 A 


C=C+1 A 
x 
STSPC- LC(1) 1 
C=A&C  P 
C=O =~P STRING LENGTH EVEN 
GOYES STRS10 
ST=1 Odd 
A=A+1 A STRING LENGTH ODD 
STRS10 C=0 A STRING LENGTH + HEADER(2) 
x 
SSTRS10 STRING LENGTH + HEADER(2) 
x 


* End of possible pack 
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3243 
3244 14A63 304 
3245 14A66 C2 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
e78 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
328? 
288 
3289 
3290 
3291 
3292 
3293 1468 8B? 
3294 14R6B 40 
3235 14AeD 03 
3296 14AbF 87A 
3297 14A72 00 
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JO TOI III III 


LC(1) 4 +EOF MARK(2) 
C=A+C A C=TOTAL SPACE IN FILE 


x 

FOI JI IIT OTK 
JO IOI IO OI OTTO ITO TT III RII TEN 
ax 


** Nane: GETSPC - Make Space in File for Write 
ae 


** Category:  FILUTL 


oe 
** Purpose: Find out if there is enough roon left in the 

ee current file for a urite. If there is not enough 
am roon left, try to expand the file. 

aK 

kk Entry: D(A) = # of bytes left in current file 

ak C(R) = # of bytes required 

ak STNTD1 = Entry address in FIB 

ak If the file need to be expanded, S4 will be used to 
es detertiine where the routine should return to after 
aK the file has been expanded: 

ax S4.= 1 - Return to calling routine. 

ak = 0 - Exit to the nain loop of PRINT# code 

ae (PRT220). 

ax 

xk Exit: Carry clear => There is enough roon left in the file 
Re Carry set => Not enough room to expand the file 

ei If file has been expanded and S4=0, exit to PRT220 
a If the current file doesn’t have enough roon to store 

ak the string, but the file is im RAM, this routine will 

a try to expand the file. 

ak If the expansion is successful, the S4 will be used 

x to deterrine where this routine should return to. 

is If the S4 = 0, this routine will exit to PRI220 

id directly. 

x The reason for not returning to calling routine is that 
a2 after expanding file, most of the information kept in the 
a CPU registers are lost, such as data type, file pointer, 
ak record size, etc. So directly exit to PRT220 mill cause 
ae the whole process of printing next data iten to the file 
ae starting over again. 

i 

** Uses: Nothing, if still room left 

a A,B8,0,0,00,D1,RO,R1,R3,S2 If need to expand the file 
ak 


ek Stk lvls : 3 
KERRI RRR RIO RRR ROTOR RRO RRO TORTOISE SOO SIO 


JORDI OOOO OOOO IGOR OO OI CICIEI OGIO OIE OOO IOI IO OR 
x 


=GETSPC *D<C =A 
GOYES GETS10 
RTNCC 
GETS10 *ST=1 1/Obuf 
RTNYES NO EXPANSION OF EXTERNAL FILE 
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3298 
3299 
30 
31 
3HW2 
3H3 
34 


395 
IH6 


3H? 
3H8 
3H3 
3310 
3311 
3312 
3313 
3314 


3315 
3316 
3317 


3318 
3319 
3320 


3321 
3322 


3323 
3324 
3325 
3326 
332? 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 


3340 
3341 
3He2 
3343 


3344 


14A74 
14A76 
14A78 
14A7B 
14A2D 
14A80 
14A82 


14A89 
14A8C 


14R93 
14A96 
14A98 
14A9C 
14ASE 
14AA1 
14AR4 
14AR7 


14ARE 
14AB1 
14AB4 


14ABB 
14ABD 
14RBF 


14AC6 
14AC9 


14ACF 
14AD2 
14AD4 
14AD6 
14AD8 
14ADA 
14ADD 
14REO 
14AE2 
14AES 


14AE? 
14REA 
14AFO 
14AF3 
14AF5 
14AF? 


14AFE 


EB 
C6 
AF 1 
DS 
86B 
Aé 
1F18 
8F2 
145 
1F69 
8F2 
143 
D2 
31C4 
CA 
131 
147 
RE? 
8FOO 
000 
400 
13? 
8FOO 
000 
£6 
£6 
1F68 
8F2 
145 
8E00 
00 
143 
DE 
D? 
DE 
E2 
1€4 
143 
D8 
8B6 
00 


591 


x 
x 
x 
x 


x 
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DBEeoDD 


=>) Iran 
GOYES GETS12 
D1=(5) =S-R1-0 


D1=(5) =STMTD4 


oDBEGb) +7 


Oo 
tt 
oO 
D-——~ DD 


oS 
"i 
oO 
"op 


ROMF - 


GOSBVL =EOFLC+ 


ao 
u 
ao 
+ 
_— 
uDD 


S-R1-1 


3S 
x» 
na 
ce 
wil 
co 
i =) 
— 
~” 
— 
az 
o 
= 


o 
1 
oO 
' 
xD 
auowrurnpaDwowrTwDTDD 


b(A) 
BCA) 
S-R1- 


# OF NIBS NEEDED 


GONC = GETS15 


8EOO §=GETS12 GOSUBL =chkspc 


00 
400 
D6 
0? 
1F68 
8F2 
145 
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C= EXTRA NIBBLES REQUIRED 


MAINFRAME RAN ? 
IF $0, GOTO GETS20 
SAVE # OF NIBS REQUIRED IN S-R1-0 


R= FIB ENTRY ADDRESS 
OFFSET TO PORT # 


D(B) = PORT # 
FIND THE PORT HAS THE IRAN 


NOT FOUND, SOMETHING WRONG ! 


C= FILE CHAIN START ADDRESS 
LOOK FOR END OF FILE CHAIN 


PAST THE 00 BYTE 

SAVE CHRIN END IN S-R1-1 
COMPUTE LAST ADDR OF THE PORT 
A= CHAIN END ADDR 

STORE CHAIN END TO D(A) 

C= # OF NIBS AVAILABLE 

A= # OF NIBS NEEDED 


ENOUGH ROOM TO EXPAND ? 
IF NOT, RETURN WITH CARRY SET 


= END OF FILE CHAIN ADDRESS( EQUIV. AVNENS) 
1 CONTRINS CHAIN END ADDR 


(B.E.T.) 


NO ROOM TO EXPAND, RETURN CARRY SET 


D= AVMENS 
SAVE CUT OFF POINTER IN S-R1-1 
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3345 


3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
336? 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 


337? 
3378 
3379 


3380 
3381 
3382 


3383 
3384 


3385 
3386 
338? 
3388 
3389 
33% 
3391 
3392 


14B01 


14B08 
14B0B 
14B0E 
14B11 
14B15 
14B18 
14B1B 
14B1E 
14B21 
14B24 
14B27 
14B29 
14B2B 
14B2E 
14831 
14B34 
14B37 
14B3A 
14B3C 
14B3F 
14B42 
14B45 
14B4? 
14B43 
14B46 
14B4D 
14850 
14B52 
14B54 
14B5? 
14B59 


14B5F 
14B62 
14865 
14B6C 
14873 
14B?A 


14B81 
14B84 


14B8B 
14B8E 
14B91 
14B94 


14897 
14B9A 


1F69 
8F2 
143 
131 
173 
1534 
172 
143 
130 
16F 
16F 
142 
D6 
CO 
140 
177 
17A 
17D 
143 
C0 
141 
132 
101 
CA 
DB 
E2 
OF 
134 
DA 
CO 
131 
DF 
8£00 
00 
132 
100 
1F68 
8F2 
8F0O 
000 
1B19 
8Fe 
8FOO 
000 
164 
8FOO 
000 
111 
AAC 
AAT 
505 


130 
AF 2 
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GETS15 D1=(5) 


A=DAT1 
DI=A 
01=D1+ 
A=DAT1 
01=D1+ 
A=DAT1 
DO=A 
DO=D0+ 
DO=D0+ 
A=DATO 
C=A 
A=A+B 
DATO=A 
01=D1+ 
01=D1+ 
Di=D1+ 
A=DAT1 
A=A+B 
DATI=A 
ADOEX 
R1=A 
A=A+C 
C=D 
C=C-A 
CDEX 
DO=C 
A=C 
A=A+B 
D1=A 
CDEX 
GOSUBL 


ADOEX 
RO=A 
D1=(5) 
GOSBVL 
dO=(5) 
COSBVL 


DO=DO+ 
GOSBVL 


=STMTD1 
A 


(oCOPYb) 
S 
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D1 @ FIB ENTRY ADDRESS 
A(S) = COPY CODE 


(oF BEGb)-(oCOPYb) 
A 


(oF TYPh) 
(oF LENh)-(oF TYPh) 
A 


awvwD 


DO @ FILE HEADER START 


A= CURRENT FILE CHAIN LENGTH 
C= 

A= NEW FILE CHAIN LENGTH 
UPDATE FILE CHAIN LENGTH 


( oDBEGb )- (oF BEGb) 
(oRECHb)-( oDBEGb ) 


(oDLENb)-(oREC# 
A 


A 
A 


awvDw 


»>»D 


A 
=MOVED3 


=S-R1-1 
=RFAD+] 
=STNTDO 
=RFUPD+ 
5 

=RFUPD+ 


S 
S 
GETS50 


b) 
UPDATE FILE DATA LENGTH IN FIB 


SAVE COPY CODE & FILE CHAIN ADDR. 
A @ CURRENT FILE END 

C= AVNENS 

C= SIZE OF ia TO MOVE 

D= / 

DO @ END SOURCE ADDR (AVMENS) 


D1 @ END DEST ADDR(AVMENS+EXPAND 
SIZE) 


OLD END OF FILE ADDRESS 


»> 
ul 


ADJUST POINTERS 
ADJUST ENTRY ADDRESS IN FIB 


* RECOMPUTE # OF RECORDS IN THIS FILE FOR THE 


* FIXED LENGTH DATA FILE 


DO=R 
C=0 


W 


(KX) @ FILE CHAIN OF FILE HEADER 


Saturn Assenbler Store & Retrieve Data - PRINTH# Fri Dec W, 1983 4:28 an 


Ver. 3.39/Rev. 26 Page 65 
3393 14890 3D LC(1) 13 
3394 14BAO AFO A=0 W 
3395 14BA3 142 A=DATO A A= FILE CHAIN LENGTH IN NIBS 
3396 14BA6 EA R=A-C A 
3397 14BA8 168 DO=D0+ 9 DO @ RECORD LENGTH 
3398 14BAB 15E3 C=DATO 4 
3399 14BAF C6 C=C+C A C= RECORD LENGTH IN NIBS 
3400 14BB1 8&00 GOSUBL =IDIV 
00 
3401 14BB7 20 P= 0 
3402 14BB9 8A9 7B=0 =A 
3403 14BBC 40 GOYES GETS40 
3404 14BBE £4 A=A+1 A 
3405 14BC0 D8 GETS40 B=A A 
3406 14BC2 183 DO=D0- 4 
3407 14BC5 1583 DATO=A 4 
3408 * UPDATE # OF RECORDS IN FIB 
3409 14809 1869 DO=(5) =STNTD1 
8F2 
3410 148D0 142 A=DATO A 
3411 14BD3 3402 LC(S) (oREC#b) kkPack here...could save 1 nib**** 
000 
3412 14BDA CA A=A+C A 
3413 14BD0C 130 DO=A 
3414 14BDF 09 C=B A 
3415 14BE1 15C3 DATO=C 4 
3416 * 
3417 14BE5 731A GETS5O GOSUB Dinstk 
3418 14BE9 1537 A=DAT1 W 
3419 14BED 864 7§T=0 Return 
3420 14BFO 40 GOYES GETS60 
3421 14BF2 03 RTNCC 
3422 14BF4 07 GETS60 C=RSTK POP OFF THE RETUR ADDESSS 
3423 FOI IO IO TO II ITT TK 
3424 * Pack here...could save 2 nibbles 
3425 * 
3426 x GOTO  PRT220 
3427 x 
3428 14BF6 8C31 GOLONG PRT220 
8F 
3429 x 
3430 * End of possible pack 
3431 JI III TOC OT TIO IK 
3432 x 
3433 * N-STR: CONVERT HP41C REGISTER INTO HP-71 STRING 
3434 x 
3435 * ENTRY: D1 PAST THE NUMBER ON STACK 
3436 x 
3437 * EXIT: STRING DATA ON STACK 
3438 * D1 @ STRING HEADER 
3439 x 
3440 * USES: C(A), A, DO, D1 
3441 x 


3442 14BFC 137 =0N-STR CDIEX 
3443 14BFF 134 DO=C 





Fa 
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3444 
3445 
3446 
3447 
3448 
34493 
3450 
3451 
3452 
3453 
3454 
3465 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
348? 
3488 
3489 
3490 


3491 
3492 
3493 
3494 
3495 
3496 
349? 


14f02 135 
14(05 181 
14€08 2B 
14COR OC 
14C0C 490 
14COF 7A50 
14013 46F 


14€16 180 
1419 1560 
14C1D Fe 

14CiF 182 
14€22 1560 
14026 7940 
14C2R 7FH%O 


14C2E 1899 
5Fe 
14(35 AFO 
14038 142 
14038 137 
1403E 136 
14(41 EA 
14043 AFS 
14(46 8676 
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D1=C 

DO=D0- 

p= 
N-ST10 P=P+1 

COC N-ST20 

GOSUB R&SKP+ 

GOC N-ST10 (B.E.T.) 


SKIP OVER SIGN AND MO 
1 4 BYTES IN MANTISSA 


~~ N 


x 
N-ST20 DO=D0- 
C=DATO 
CSL 
DO=D0- 
C=DATO 
GOSUB R&SKP- 
N-ST30 GOSUB R&SKP+ 
* 


vWD 


x 
SII III IIIT IOI TO TOTTI OI II 
FOI IO TOOT OOOO TOI 
xk 


** Narie:(S) STRHED - Generate String Head on Stack 
xs 


** Category:  EXCUTL 


Pe. 
** Purpose: Generates string header on stack 

ka 

** Entry: 

Re The string data is sitting on top of NTHSTK 

aR D1 @ top of the string 

ax (MTHSTK) @ end of the string (beyond last character) 
ek 


®t Exit: String header will be written on top of the string. 
= D1 @ string header. 


er (NTHSTK) @ string header. 

xe If not enough nenory to generate the header(16 nibs), 
ak it will direct exit to MFERR error routine. 

ka 


** Calls: STK16? 
ax 


xk Uses: A,B,C(A),D0,01 
xk 


kk Stk lvls: +1 

xk 

OOOO TOR OIRO ROO FOTO RIO TO IOI OOO ORO OOO TOI ORI oe 
JOSIE IIT ISIE IC IIS EIGER k 
x 


=STRHED DO=(5) =NTHSTK 


A=0 W 
A=DATO A 
CDIEX 

=STHD1IO D1=C D1 @ TOP OF STACK 
A=A-C A R= STRING KENGTH 
B=A W 
GOSUBL STK16? 


Saturn Assenbler Store & Retrieve Data - PRINTH Fri Dec 30, 1983 4:28 an 
Ver. 3.39/Rev. 206 Page 67 
1F 
3498 14C4C 480 GOC STHD20 
3499 14C4F 8CB7 GOLONG PRT185 
7F 
3500 14(55 31FO STHD20 LCHEX OF 
3501 14€59 14D DAT1=C B 
3502 14C5C 171 D1=D1+ 2 
3503 14CSF AF4 A=8 WW 
3504 14C62 159) DATI=A 14 
3505 1466 1C1 01=D1- 2 
3506 14(€69 6A2D GOTO = upnths 
3507 a 
3508 a 
3509 14€6D 181 R&SKP+ DO=D0- 2 
3510 14€70 14€ C=DATO B 
3511 14€73 96AR R&SKP- ?C=0~ 8B 
3512 14€76 00 RTNYES 
3513 14078 1C1 01=D1- 2 
3514 14€7B 140 DATI=C B 
3515 14C7E 02 RTNSC 
3516 x 
3517 14C€80 END 
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A-NULT 
ARYE LM 
RSARRY 
ASC100 
ASC230 
ASC240 
ASCIIF 
ASCN5O 
ASCSEC 
ASCSTR 
AVAENMS 
Array 


=BACK1B 
=BACK2B 
=BACK 3B 
BACKUP 
BADTYP 
BSERR 
=BsErr 
CHKCOD 
=CHKDON 
=CHKEOL 
CHKRSP 
=CHKSTK 
CHNH SY 
CKBF 10 
CKBPOS 
CKNF LG 
CKST10 
Check 
Criplex 


=P0+2RD 

DO+2RX 
DO+?UR 
DO+2 WX 
=DO=F IB 
=DINST+ 
DINSTK 
DIUPNT 
=Dins tk 
DATBOS 
DATB10 
DATB15 
DATB20 
DATB?S 
DATB30 
DATB55 
DATBHO 
DATBEG 
DATBER 
=PATCOD 
DATLEN 
DEST 


Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Ros 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 


83127 
83100 
83114 
83164 
8H76 
8390 
83085 
83110 
193940 
1 


80652 
80650 
80648 
80688 
82983 


82608 
81283 
81458 
81261 


81334 
194927 
80672 
80663 
81404 
80654 
? 

3 


804 34 
80457 
80502 
805 36 
80581 
81441 


81371 
83452 
82429 
82446 
82450 
82458 
82463 
82482 
82504 
82519 
82423 
82474 
84026 
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#144B7 


#14490 - 


#144AR 
#14400 
#14484 
#14492 
#1448) 
#144R6 
#2F594 
#00001 


#13B0C 
#13B0R 
#13B08 
#13B30 
#14427 


#142B0 
#13083 
#13E32 
#13060 


#13DB6 
#2F 96F 
#13B20 
#13817 
#HISDFC 
#13B0E 


#00007 - 
#00003 - 


#13A32 
#13A49 
#13A76 
#13A98 
#13AC5 
#13E21 


#13DDB 
#145FC 
#141FD 
#1420E 
#14212 
#14218 
#1422 

#14232 
#147048 
#14257 
H141F? 
#1422A 
#1483A 


2801 
2809 
2406 
2392 
2400 
2422 
2383 
2390 
2387 
2999 
15 
23 
2495 
767 
766 
765 
784 
2333 
2153 
2153 
1142 
1301 
1131 
693 
1219 
15 
77? 
774 
1264 
769 
30 
25 
3081 
516 
524 
585 
598 
645 
1273 
254? 
1241 
2547 
1934 
1940 
1941 
1946 
1951 
1961 
1972 
1977 
1932 
1954 
2893 
2902 
1344 


2393 
2388 
2422 
2467 
2318 
2395 
2384 


1220 
1087 
2775 
161 
240 
1821 
778 
1625 


1587 
1083 


1270 
782 
720 

1598 


2419 
1672 


336 


31 
592 
726 

1267 


1253 
herd 


1963 
1955 
A937 
1947 
1939 
1975 
1973 
1746 
1871 
2897 
3032 


2415 


1093 
2208 

846 
1837 
1755 


2144 
1601 


1712 


2423 
1683 


888 
2478 
788 


1629 


1966 


1952 


1768 
1881 


2417 


1641 


868 
1852 


2305 


202 


2536 
1735 


833 


1010 


1634 
1968 


1799 
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1715 


22H 


2540 
1890 


948 


2160 


2756 


1982 
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1763 2362 2392 


2988 


1897 2414 2770 


1816 


2580 


341? 


1861 


1974 
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DROPO2 Abs 81354 #13DCA 
DROPST Abs 81357 #13DCD 
Done Abs 6 #00006 


1233 1727 
1235 216 1659 1797 2523 
29. 99) 117) 126 «1828 «61831 = 1865 


EOFERX Abs 83006 #1443E 2349 2400 

=EOFIL Abs 81898 #13FEA 1694 = 939 1609 1722 1723 1838 2713 
EQFILKX Abs 81904 #13FFO 1702 2225 

EQFLC+ Ext 3317 


1129 1090 1096 1103 1692 2181 2236 
1087 1083 1758 2489 

1098 1094 

1073 1879 2531 

1703 1750 1823 2179 2291 2460 


EOLCHK Abs 81255 #13067 
EORE20 Abs 81188 #13024 
EQRC3O Abs 81219 #13043 
EORCHK Abs 81148 #13CFC 
ERREX Abs 81908 #13FF4 


' t ' 4 t ‘ ' ‘ 


EXPEX- Ext - 1342 2295 
EXPSKP Ext - 2649 
Error Abs 5 #00005 - 27. «970 «1623 1632 1652 1663 1666 1942 
2191 2288 2349 2374 2412 371 
FHNFND Ext - 2691 
F-R1-3 Abs 194746 #2F3BR - 15 2794 
FOFBF1 Abs 83501 41462D - 2593 2589 
FIBROR Ext ete 
FIX100 Abs 83210 HI450A - 2446 2437 
FIX105 Abs 83241 #14529 - 2462 2458 
FIX110 Abs 83243 41452B - 2463 2452 
FIX115 Abs 83250 #14532 - 2466 2464 
FIX118 Abs 83254 #14536 - 2467 2481 
FIXt25 Abs 83279 H1454F - 2476 2479 
FIX140 Abs 83294 #1455E - 2481 2522 
FIX145 Abs 83297 #14561 - 2482 2472 2477 
FIXtSO Abs 83322 #1457A - 2487 2490 
FIXt60 Abs 83326 #1457E - 2489 2484 
FIX163 Abs 83332 #14584 - 2490 2533 
FIX165 Abs 83335 #14587 - 2491 252? 
FIX300 Abs 83338 #1458A - 2495 2438 
FIX350 Abs 83384 #145B8 - 2522 2539 
FIX360 Abs 83399 #145(? - 2526 2545 
FIXARY Abs 83359 #1459F - 2506 2496 


FIXLEN Abs 83201 #14501 - 2436 2327 
FIXSPC Ext - 1996 

FIXSTR Abs 83368 #145A8 - 2517 2498 
=FNDFBF Abs 83458 #14602 - 2580 2661 


FORSTK Abs 193950 H2F59E - 168 1100 1301 
FPOLL = Ext - 611 
FIYPER Ext - 2157 


FXSAIO Abs 83425 #145E1 - 2538 
FXSPOS fibs 84466 #149F2 - 3140 3166 
FXSP10 Abs 84470 #149F6 - 3141 3139 
FXSP20 Abs 84496 H14A10 - 3152 3144 
FXSP30 Abs 84503 #14A17 - 3171 
FXSP4O0 Abs 84508 HI4RIC - 3173 3179 
FXSPSO Abs 84524 HI4A2C - 3180 3174 
FXSP70 Abs 84530 H14A32 - 3183 3147 
FXSP80 Abs 84537 H14R39 - 3186 3184 
FXSP9O Abs 82537 #14269 - 1985 3189 
FXSTAR Abs 83418 #145DA - 2536 2507 
FXSTSP Abs 84450 #149E2 - 3134 2521 2538 
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Fresh Abs 8 #OO008 - 32 1088 1275 1798 1801 1808 1812 1855 
2776 «2911 
GETCHH Ext - 1583 2140 
GETRE# Ext - 1584 2141 


GETS1O Abs 84591 HI4ABF - 3296 3187 3294 

GETS12 Abs 84714 HI4RER - 3339 3303 

GETS1IS Abs 84737 #14B01 - 3345 3337 

GETS40 Abs 84928 HI4BCO - 3405 3403 

GETS5O Abs 84965 HI4BE5 - 3417 3388 

GETS60 Abs 84980 HI4BF4 - 3422 3420 

=GETSPC Abs 84584 #14A68 - 3293 2201 2221 2347 2466 
GIPTRO Abs 83562 #1466A - 2659 2656 

GIPTR2 Abs 83675 H146DB - 2697 2681 

GIPTR3 Abs 83685 #146E5 - 2701 2695 

GYPTR4 Abs 83714 #14702 - 2713 2705 

=GIPTRS Abs 83510 #14636 - 2643 1144 1606 219 2258 2312 
=GIPERX Abs 83568 #14670 - 2661 

H44B10 Abs 82989 #1442D - 2339 2332 

H41D20 Abs 83021 #14440 - 2356 2348 

H41D40 Abs 83041 #14461 - 2362 2345 

H41D45 Abs 83049 #14469 - 2368 2391 

H41D50 Abs 83056 #14470 - 2373 2363 2511 

HP41DT Abs 82978 #14422 - 2331 2326 


I/OFND Ext - 2588 

T/Obuf Abs 10 #OOOOR - 34 5517 5586 = 769) 1018 «2223 2270 «2351 
2463 2585 2651 2680 3183 3296 

IDIV Ext 1045 3400 

Tran Abs 11 #0000B 35 2652 2671 32 


LDEO Abs 82568 #14288 2001 1682 1899 
LDEQ- Abs 82565 #14285 2000 2416 
LOOPBK Abs 82935 #143F7 - 2305 2360 2402 2432 2487 
LSTADR Ext - 3322 
sMFLG=0 Abs 81313 #13DA1 - 1186 1143 
sMFLG=X Abs 81315 H13DA3 - 1187 


LDC=8 Abs 82546 #14272 - 1991 2470 


NLFFLG Abs 194672 #2F870 - 15 118? 1264 
NOVEDS Ext — - 3376 

NTHSTK Abs 193945 #2F599 - 15 1241 2978 3490 
MfErr Ext - 1703 


N-ST10 Abs 85002 #14(OR - 3447 3450 
N-ST20 Abs 85014 #14016 - 3452 3448 
N-ST30 Abs 85034 #14(2A - 3458 

N-STR Abs 84988 HI4BFC - 3442 1665 
NEWITH Abs 83799 #14757 - 2784 2777 


NEWAR Ext - 1350 
NEXTst Ext * 2239 
NOMEN Ext =~, code 


NOSPC Abs 83065 #14479 - 2377? 2352 2413 
NOSPC2 Abs 83069 #1447D - 2378 2354 

NOTIRM Abs 83604 #14694 - 2672 2670 

NXTAIO Abs 84032 #14840 - 2894 2872 

NXTR20 Abs 84086 #14876 - 2910 2892 

NXTA3D Abs 84097 #14881 - 2914 2912 

=NXTADR Abs 83944 #147E8 - 2866 1671 1733 1886 
NXTEO? Abs 84169 #14809 - 2999 2995 





Saturn Assenbler Store & Retrieve Data - PRINTH# Fri Dec ®, 1983 4:28 an 
Ver. 3.39/Rev. 2306 Syribol Table Page 71 


NXTEOS Abs 84171 #148CB - 3000 2989 

NXTE12 Abs 84217 #148F9 - 316 10 

NXTE1S Abs 84245 #14915 - 3028 W15 

NXTE2O0 Abs 84250 #1491A - 3H WO04 

NXTE25 Abs 84285 #1493D - 341 %37 

NXTE3O Abs 84307 #14953 - 3050 385 W89 

NXTE4O Abs 84353 #14981 - 3065 R40 W75 H79 WI 
NXTESO Abs 84398 HI49RE - 3078 3093 

NXTE6O Abs 84405 #149B5 - 3080 3077 

NXTE70 Abs 84435 #14903 - 3081 383 

NXTECK Abs 84110 #1488E - 2978 2866 2987 

=NXTELM Abs 84140 #148AC - 2987 2373 2411 2420 2424 2537 2541 

NXTLST Abs 82942 HI43FE - 2307 2311 

NXTNOR Abs 84378 #1499AR - 3071 6? 

NXTREL Abs 84393 #149A9 - 3076 348 

NXTSHT Abs 84383 #1499F - 3073 3056 

NXTV1O Abs 81532 #13€7C - 1353 1351 

NXTV20 Abs 81574 #13ER6 - 1366 1360 

NXTV30 Abs 81589 #13EB5 - 1370 1365 

=NXTVA- Abs 81496 #13658 - 1343 


=NXTVAR Abs 81484 H13E4C - 1341 1597 
=NXtstn Abs 82820 414384 - 2232 
Notnun Abs 0 #00000 - 22 1620 1689 1743 2344 2387 2436 2761 
Odd Abs 6 #00006 - 28 «234 «6858 = 891-3236 
PCRDOR Abs 194169 #2F679 - 15 2645 
POLL Ext - 1280 
POPNTH Ext - 1098 1635 
=P011)) Abs 81452 H13E2C - 1279 
=PRINTH Abs 82577 #14291 - 2139 
PRT100 Abs 82605 #142AD - 2149 1591 
PRT105 Abs 82615 #142B7 - 2155 2149 
PRT106 Abs 82626 #14202 - 2158 2156 
PRT110 Abs 82630 #14206 - 2160 2145 


PRT120 Rbs 82662 H142E6 - 2170 2166 

PRT121 Abs 82689 #143901 - 2180 2173 2175 2177 
PRT123 Abs 82706 #14312 - 21% 2182 

PRT124 Abs 82729 #14329 - 2201 2286 

PRT125 Abs 82749 #1433D - 2207 2205 

PRT130 Abs 82765 H1434D - 2211 2197 

PRT131 Abs 82780 #1435C - 2220 2217 

PRT135 Abs 82786 #14362 - 2222 2202 

PRT136 Abs 82798 #1436E - 2227 2222 

PRT140 Abs 82820 #14384 - 2233 1594 2158 2212 2289 
PRT150 Abs 82826 #1438A - 2236 2307 

PRT170 Abs 82833 #14391 - 2258 2379 

PRT175 Abs 82863 #I43AF - 2273 2266 

PRT178 Abs 82876 H143BC - 2282 2278 

PRT180 Abs 82880 #143C0 - 2288 2209 2261 2271 2280 
PRT185 Abs 82892 #143CC - 2292 1352 1678 1854 1903 2224 3499 
PRT200 Abs 82898 #14302 - 2294 2183 2237 

PRT201 Abs 82927 H143EF - 2302 2299 

PRT210 Rbs 82946 #14402 - 2309 236 2369 2375 2504 
PRT215 Abs 82948 #14404 - 2310 2303 

PRT220 Abs 82955 #1440B - 2312 3428 

PRT230 Abs 82968 #14418 - 2325 
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PRIERR Abs 82685 #142FD - 2179 2168 
PRTPOL Abs 82599 #142A7 - 2147 
R&SKP+ Abs 85101 #14C6D - 3509 3449 3458 
R&SKP- Abs 85107 #14€73 - 3511 3457 
R41C10 Abs 81712 #13F30 - 1622 1685 
R41C15 Abs 81716 #13F34 - 1623 
R41C25 Abs 81729 #13F41 - 1630 1667 1731 
R41C26 Abs 81744 #13F50 - 1634 1713 
R41030 Abs 81766 #13F66 - 1641 1621 
R41C35 Abs 81776 #13F70 - 1648 1684 
R41C40 Abs 81798 H13F86 - 1658 1644 
R41C45 Abs 81808 #13F90 - 1661 1680 
R41050 Abs 81832 HI13FA8 - 1671 1642 
R41055 Abs 81849 #13FB9 - 1676 1673 
R41C60 Abs 81860 #13FC4 - 1679 1677 
R41CER Abs 81762 #13F62 - 1639 1633 
RASC1O Abs 81891 #13FE3 - 1692 1739 
RASC20 Abs 81914 HIBFFA - 1704 1693 1723 
RASC3O Abs 81949 #1401D - 1715 16% 
RASC35 Abs 81963 #1402B - 1721 1736 
RASC40 Abs 81973 #14035 - 1727 1718 
RASC45 Abs 81977 #14039 - 1728 1738 
RASC50 Abs 81992 #14048 - 1733 1716 
=RCLNUN Abs 84296 #14948 - 3045 
RDATTY Ext #2333 
=RDBYTA Abs 80431 #13A2F - 515 375 378 384 387 
=RDLNAS Abs 80415 HI3RIF - 383 840 
=RDLNFX Abs 80391 #13R07 - 374 1817 
RDNUNO Abs 80905 #13009 - 931 
RDNUNT Abs 80919 H13C17 - 942 938 
RDNUN2 Abs 80922 #13C1A - 343 949 
RDNUNS Abs 80945 #13031 - 953 944 
=READH Abs 81595 #13EBB - 1582 
READIN Ext - 3060 
RECADR Ext - 1369 
RECERR Abs 83233 #14521 - 2459 1760 2455 2491 3140 
RED150 Abs 81627 #13EDB - 1592 1588 1602 1605 
RED200 Abs 81638 H13EE6 - 1596 1593 
RED230 Abs 81653 #13EF5 - 1601 163? 
RED235 Abs 81657 HI3EF9 - 1602 
REG236 Abs 81662 HIGEFE - 1604 1599 
REB238 Abs 81684 #13F14 - 1610 1608 
RED240 Abs 8169? #13F21 - 1614 1612 
RED41C Abs 81707 #13F2B - 1620 1615 
REDASC Abs 81882 #13FDR - 1689 1613 
REDFIX Abs 82012 H1405C - 1743 1616 
=REDNUM Abs 80899 #13003 - 924 1622 1649 1651 1661 1756 1774 
=REBREC Abs 80747 #13BEB - 838 1692 1721 1728 
REOSTO Abs 81725 #13F30'- 1629 1624 1654 1761 1882 


RESTO Ext = 4729 
RESTRO Abs 80525 #13A8D - 593 523 
RFAD+I Ext - 3380 
RFUPD+ Ext ~ 3382 3384 


RFKO40 Abs 82017 #14061 - 1746 1787 1901 
RFXO50 Abs 82031 #1406F - 1752 1747 
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RF X100 
RFX110 
RF K120 
RFX125 
RF X200 
RFX210 
RF X220 
RF X250 
RF X260 
RF X270 
RF X280 
RF X290 
RF X310 
RF X320 
RF X330 
RFX340 
RF X350 
RF X355 
RF X360 
RF X370 
RF X380 
RFX382 
RF X385 
RF X390 
RFX395 
RF X420 
RF X430 
RF X435 
RF X440 
RF XARY 
RF XERR 
ROMF- 

RREC20 
RREC25 
RREC30 
RREC40 
RREC5O 
RREC60 
RSREGS 
Randor 


Return 
$-RO0-0 
$-RO-3 
$-R1-0 
S-R1-1 
SAYEDO 
=SETWRT 
=SKPBYT 
SNAPSY 
=STHD1O 
STHD20 
=STK16? 
=STK19? 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
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82034 #14072 
82039 #14077 
82043 #14078 
82061 #14080 
82065 #14091 
82075 #14098 
82110 #140BE 
82114 #14002 
82133 #140D5 
82136 #14008 
82152 #140E8 
82161 #140F 1 
82172 #140FC 
82182 #14106 
82210 #14122 
82230 #14136 
82245 #14145 
82281 #14169 
82285 #14160 
82288 #14170 
82310 #14186 
82329 #14199 
82336 #141A0 
82340 #141A4 
82357 #141B5 
82374 #14106 
82385 #14101 
82409 #141£9 
82413 #141ED 
82361 #14189 
82024 #14068 


80773 #13885 
80798 #13B9E 
80827 #13BBB 
80861 #13BD0 
80883 #13BF3 
80895 #13BFF 
80596 #13AD4 

39 #00009 


4 #00004 
194673 #2F871 


Table 


194688 #2F880 - 


194689 #2F831 
194694 #2F886 


80632 #13AF8 
80378 #139FA 


85054 #14C3E 
85077 #14(55 
81331 #13083 
81328 #13DB0 


1753 
1755 
1756 
1761 
1763 
1768 
1788 
1792 
1798 
1799 
1805 
1808 
1812 
1816 
1825 
1834 
1840 
1854 
1855 
1856 
1864 
1871 
1873 
1878 
1882 
18% 
1894 
1901 
1903 
1886 
1749 
3314 
850 
860 
871 
883 
890 
894 
681 
33 
2204 
3165 
26 
15 
15 
16 
16 
1906 
726 
334 
610 
3494 
3500 
1218 
1217 


1772 
1754 
1757 
1744 
1900 
1764 
1766 
1889 
1873 
1800 
1815 
1807 
1813 
1820 
1830 
1836 


1851 
1862 
1857 
1811 
1870 
1803 
1880 
1888 
1894 
1898 
1895 
1788 
1639 


844 
857 
866 
883 
884 
892 
529 


2216 


2192 
2815 
1383 
3304 
3320 


241 
337 


3498 
1676 


1809 
1759 


1866 


1769 


608 

103 
2277 
2262 
2875 
2904 
3343 


605 


1894 


Store & Retrieve Data - PRINT# 
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1802 


1058 
2281 


3419 


3379 
2180 


3066 


Fri Dec 30, 1983 4:28 an 


1073 
2383 


2486 


3497 
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1869 1938 1951 
2454 2650 2657 
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STKSPC 
STKV1O 
STKV15 
STKV20 
STKV25 
STKY40 
STKV45 
STKY5O 
STKV60 
STK¥70 
=STKVC+ 
=STKVCT 
STNTDO 
STNTD1 
STORE 

=STORTN 
STRSSB 
STRARY 
=STRHED 
=STROVF 
STRS10 
=STRSPC 
STSPC - 
SV TRC 

SYSFLG 
String 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 


UCP010 
UCPNZO 
UCPO25 
UCP 030 
UCP040 
=UPCPOS 
UPMH1 6 
UPMH34 
UPMTHS 


Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 


UpMstk 

VALOO 

ValSub 
=WRBYTC 


Abs 
Ext 
Ext 
Abs 


=WRBYTD 
=WRSTR* 
WRTEOF 
WRTARK 
WRINIO 
=WRTNUM 
=WRTSTR 
WSTFOS 
WSTFOS 
WSTF1O 
WSTF30 
USTF40 


Abs 
Abs 
Abs 
Ribs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
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81337 #13DB9 
83764 #14734 
83783 #14747 
83830 #14776 
83863 #14797 
83873 #147A1 
83885 #147AD 
83889 #14781 
83917 #147CD 
83934 #147DE 
83720 #14708 
83724 #14700 
194705 #2F891 
194710 #2F896 


81941 #14015 


83153 #14401 
85038 #14C2E 
82202 #1411R 
84577 #14R61 
84548 #14A44 
84560 #14A50 


194265 #2F6D9 
2 #00002 


81048 #13098 
81069 #13CAD 
81086 #13CBE 
81121 #13CE1 
81146 #13CFR 
80999 #13067 
81392 #13DFO 
81386 #13DEA 
81397 #13DF5 


? #00007 


80499 #13A73 


80493 #13A6D 
80243 #13973 
80475 #13A5B 
80483 #13Ab3 
80360 #139E8 
80324 #13904 
80239 #1396F 
80074 #138CA 
80087 #138D7 
80097 #13851 
80120 #138F8 
80154 #1391A 


1220 
2771 
2778 
2794 
2803 
2807 
2810 
2812 
2823 
2829 
2756 
e¢57 
15 
15 
1631 
1712 
2390 
2419 
349 
1822 
3238 
3222 
3232 
1341 
15 
24 
2394 
3003 
1024 
1032 
1039 
1051 
1060 
1007 
1250 
1248 
1252 
3070 
31 
1710 
1709 
584 
232 
582 
eV? 
575 
578 
298 
286 
216 
89 
94 
98 
106 
118 


865 
2765 
1105 
2792 
2797 
2786 
2830 
2805 
2808 
2828 


1092 
3381 

645 
1706 
1704 


2407 
1878 


3235 
2399 
2421 


2784 
1643 
2406 


1013 
1022 
1034 
1049 
1057 

154 
1691 
1720 

301 


106 
236 
298 
2431 
238 
2207 
300 
2359 
2401 
92 
9% 
86 
102 
114 


1848 
2769 


2799 
2832 


1604 
1075 


1679 
2497 


1074 
237 


1636 


108 


576 


239 


2228 
2483 


135 
123 
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3306 3345 309 


1717 
2506 


302 


1681 


112 
580 


137 


173? 
2762 


894 


1730 


1765 
2766 


964 


1896 


160 


1887 
2807 


969 


2368 


225 
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2331 
2871 


1864 


2503 


227 
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WSTF 50 
WSTF 70 
WSTF 80 
WSTF 90 
WSTR20 
WSTR3O 
WSTR40 
=WSTRFX 
badtyp 
chkspc 
eEOFIL 
eFACCS 
eF PROT 
eNen 
eRECOR 
eSTROV 
fROS 

f EOF 
fEOR 
FEOS 
fMOS 
fS0S 
=fpoll 
fpoll+ 
ftyper 
oACCSb 
oCOPYb 
ofPOSb 
oDBEGb 
oDEVCb 
oDLENb 
oF BEGb 
oF BF Hb 
oF LENh 
oF TYPh 
oPROTb 
oREC#b 
oREC Lb 
oRLENb 
pEOFIL 
pPRIN# 
pRDC BF 
pRONBF 
pREAD# 
poll 
prt1ss 
savedd 
tCONMA 
tSENIC 
upnths 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Ext 
Ext 
Abs 


80173 #1392D 
80211 #13953 
80225 #13961 
80237 #1396D 
80274 #13992 
80293 #139A5 
80302 #139RE 
80053 #138B5 
81721 #13F 39 


223 #OOODF 
255 HOOOFF 
239 HOOOEF 
111 #OOO6F 
127 #OOO7F 
207 #OOOCF 
80575 #13ABF 
80568 #13AB8 
82620 #142BC 
11 #00008 

10 #OOOOR 

40 #00028 

21 #00015 

12 #OOO0C 

46 #0O002E 
13 #00000 

2 #00002 

32 #00020 

16 #00010 

9 #00009 

32 #00020 


Table 


36 #00024 - 


52 #00034 
37 #00025 
38 #00026 
24 #00018 
25 #00019 
39 #00027 
81452 #13E2C 
81528 #1378 
82417 #141F 1 


84372 #14994 


124 
154 
159 
162 
228 
234 
237 
81 
1625 
3339 
1702 
2178 
2167 
2377 
1954 
1822 
14 
14 
14 
14 
14 
14 
611 
610 
2157 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
1280 
1352 
1906 
1132 
2654 
3070 


119 
125 
157 
155 
233 
231 
235 
2526 
1653 


1940 


2459 


100 
575 
159 
133 
136 
105 
1694 
527 
2218 
727 
1011 
7% 
1013 
2665 
2701 
3350 
2581 
3354 
3363 
2161 
3360 
1015 
1051 
1695 
2148 
805 
528 
1690 
1589 
869 
1142 


3506 


127 
2485 


1664 
2350 


1935 
1945 


601 
2385 


1013 
1016 
1015 
2672 
2708 
3359 
2662 


3354 
3361 


1016 
1077 


602 
2147 
1343 
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2203 
2206 


2662 
1051 
2672 


3361 


3411 
2675 
2708 


2296 


Fri Dec , 1983 


2227 


2665 
2679 
2675 


2679 


3348 3350 
2701 
3309 3359 
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3360 
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Input Paraneters 
Source file nane is SC&DAT::MS 
Listing file nare is SC/DAT: TI:ML::-1 
Object file name is SCZADAT:TI:NS::-1 


141111 
012345678901 2345 
Initial flag settings are 
Errors 
None 
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1 x mn MN N & EEEEE ODDD 
2 k in nm N N 8&8 E DoD 
3 x nam NN N && E DO 
4 k nin NNN & EEEE D 6D 
5 x NM eM WN NN &8&8& E DOD 
6 k nm AN N & 8&8 E dD D 
7 x nM on N WN 8&& EEEEE DDDD 
8 k 
9 TITLE Character Editor <831213.1314> 
10 14C80 ABS #14C80 
| k 
12 Insert EQU 7 
13 BitsOK EQU 1 


14 FTMOUT EQU 3 
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15 
16 
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STITLE CHEDIT 


1? 14C8 8125 RCURON NIBHEX B125B1E3FF Replace cursor, Cursor on 


18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
0 
1 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


58 
59 
60 
61 
62 
63 
64 
65 
66 


BIE3 
FF 


14C8A 
14C8A 1B00 
000 
14091 D2 
14C€33 15CO 
14C97 01 


x 
FORT TOT OTT TTT TOT I IIH 
FORO RIO JOU OI OT ITI IN 
a 


** Nane:(S) NOSCRL - Request No-display-scrolling 
Kx 


** Category:  DSPUTL 


kk 
** Purpose: 

aR Request that nain loop bypass scrolling of current 

gs display contents. 

Pe 

** Entry: 

xs None. 

*k 

PAE RIT: 

- C{A}=0,. 

ax DO=NEEDSC. 

kk 

k* Calls: None. 

xk 

RX USES. ...005 

ne CA], DO 

aK 

** Stk lvls: 0 

xk 

** Detail: 

aK Clears (NEEDSC). This prevents nain loop fron calling 
ze SCRLLR so user can stare at display. 

Kk 

** History 

ak 

an Date Programmer Modification 

Bhs Soe Sees . soe ereee ce eee eae Deena 
xe 40/31/83 NM Added docunentation 

+k 


FOI III OTT ITT TOO OL 
FOI IOI TO GTI IIT IIIT TIT 


=NOSCRL 
CHEDEX DO=(5) =NEEDSC 


C=0 A 
DATO=C 1 Don’t need to scroll 


FOI II TT TOTTI TO I TI 
©.9.2.9.2.0,2.5.9.0,.9,9.2.9,9.9.¢.5:9,5.9.0.9.5.9,0,0.0,5,0,5,0.0,9,5,5,5,9,0,5,6,.0,0,0,9,9,0,5.0,0,.0,.9,0,5,9,0.0.0,5.5 
ak 


Xk Nane:(S) CHEDIT - Character Editor 
tok 


**k Category:  KEYUTL 
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67 ak 

68 ** Purpose: 

69 fe Accepts keyboard input and edits line in display. 
70 

71 *k Entry: 

72 ak P=0, Hextiode 

73 xx 

74 ak Exit: 

75 aK P=0 

76 ak If carry set then A(A)=Function code. 

7? a If carry clear then CHEDIT was terminated by an 

78 ax lnnediate execute key. R3(A)=Definition length. 
79 ak D1 points to first char of definition. 

80 ks 

8 kk 

82 ** Calls: CHEDEX, CHROUT, DSPCHA, DSPCHR, DSPCL?, DSPSPC, 
83 ae KEYRD, TBLIMC, WRITOS, WRITE, bf2dsp. 

84 &k 

85 kk Uses: 

86 ee A,B,C,D,P,00,01,RO,R3, ST, DEFADR, USRSTA,32 nibs at 
87 k SCRICH. 

88 xk 

89 ** Stk Ivls: 6 

90 ak 

91 ** Detail: 

92 + This subroutine irplenents a character editor which 
93 ak accepts keyboard input and edits display as needed 
94 ae until a key is entered which is not meaningful in 
95 &x character edit node. The keycode of the terninator 
96 a is returned in the Rf register. The following keys 
97 ee are tertiinators: 

98 ak 

99 ak ACA) Key# Function 

100 xe 13 -- 38 -- EndLine 

101 a 14 -- 43 -- Attention 

102 x 15 -- 46 -- RUN key 
103 ak 16 --112 -- CONTinue key 
104 Kk 17 --102 -- SST key 
105 ae 18 -- $0 -- Cursor up 
106 ax 19 -- 51 -- Cursor doun 

107 x 20 --162 -- Cursor to top 

108 a 21 --163 -- Cursor to botton 

103 ae 22 --155 -- g Attention 

110 ne 23 --111 -- CALC mode key 

14 ae 24 -- 99 -- OFF key 
We xe 25 --164 -- g EndLine (Cnd Stack) 

113 a. 

114 as Although these keycodes map to the sane values as 
115 ee certain control keys (ctrl-M through ctri-¥), hitting 
116 he the CTRL sequence followed by a key will NOT be 

11? ae Interpreted as one of these terminators mith the 
118 ae exception of CTRL-M. They will sinply be put into the 
119 x display as funny-looking characters. 

120 a 


121 ** History: 
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122 AX 
123 ae Date Progranner Modification 
124 tA eotcestes: SSeueuteee.. wbkigcceeecuece toes. ce okceneuee 
125 ak 06/23/82 BS Updated docunentation 
126 xe 11/05/82 NM Reurote 
127 a 
128 FORO JIT JOT TO OTTO TTT IIT. 
129 ORT JOJO RRO TOI TO TOTO OI TOTO 
130 14€99 1FO8 =CHEDIT D1=(5) RCURON 
C41 
131 14CRO 7295 GOSUB bf2dsp Turn on replace cursor 
132 14CA4 8FOO GOSBVL =DSPCL? 
000 
133 14CAB 7261 CHEDOO GOSUB KEYRD Read a key 
134 14CAF 1B00 DO=(5) =DEFADR 
000 
135 14CB6 157 C=DATO 8 Read key definition 
136 14CBA OA ST=C Key type to $:11-8 
137 14CBC 108 R3=C Definition length to R3(B] 
138 14CBF BF6 CSR W 
139 14(C2 BF6 CSR W 
140 14C€C5 816 CSRC Key type to C[S] 
141 14CC8 135 D1=C Text address to 01 
142 14CCB 86B 7ST=0 11 Lex iten? 
143 14CCE 92 GOYES CHEDSO No 
144 14CDO 86A ?ST=0 «10 Yes. Leading space? 
145 14(D3 60 GOYES CHEDIO No 
146 14CD5 7601 GOSUB DSPSPC Yes, output space 
147 14CD9 7100 CHEDIO GOSUB WRITE Write text. Won’t contain CR. 
148 14CDD 869 *$T=0 9 Trailing space? 
149 14CEO 60 GOYES CHED30 No. 
150 14CE2 79FO GOSUB DSPSPC Yes. OQutput space. 
151 14CE6 868 CHED3O 7ST=0 8 Paren needed? 
152 14CE9 2C GOYES CHEDOO No. 
153 14CEB 3182 LCASC \(\ Yes 
154 14CEF 70FO GOSUB DSPCHR 
155 14CF3 67BF CHED40 GOTO CHEDOO Back for nore keys. 
156 14CF? 868 CHED5O 7ST=0 8 CTRL character? 
157 14CFA 52 GOYES CHED6O No. 
158 14CFC D2 C=0 A Yes. 
159 14CFE 108 R3=C Zero character counter 
160 14001 148 A=DAT1 B Read char 
161 14004 3104 LC(2) 64 
162 14D08 EA A=A-C A Convert to CTRL char. 
163 14D0A 7580 GOSUB WRITOS Write it. 
164 14D0E 44E GOC CHED40 Go if not CR. 
165 14011 De RTNCR C=0 A Terminate CHEDIT with CR. 
166 14013 3100 LC(2) 13 
167 14017 DA A=C A 
168 14019 7D6F CHEDE} GOSUB CHEDEX 
169 14D1D 62 RTNSC 
170 14D1F 94A CHED6O 7(=0) =6§ ASCII? 
171 14022 F2 GOYES CHED70 Yes. 
172 14024 86A ?$T=0 10 No. This is UDK. Type 4,67 


173 14027 At GOYES UDK; No. 
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174 
175 
176 
17? 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 


193 
194 
195 


196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
et? 


218 
219 
220 
2c 
222 
223 
224 
22c5 


14029 
14DeC 
14D2E 
14031 
14033 
14036 
14038 
14D3A 
14D3D 
14041 
14045 
14048 
14D4B 
14D4D 
14051 
14054 
14058 
14058 
1405) 


14064 
14066 
14068 


1406F 
14072 
14075 
14078 
14078 
14D7E 
14081 
14084 
14D8? 
14D8A 
14D8D 
14080 
14091 
14094 
14096 
14D9A 


14D9E 
14DA1 
14DA4 
14DA? 
140AA 


14DB1 
14DB4 
14DB? 
14DBA 
14DBD 
140C0 
14003 
14DC7 


869 
1 

118 
DO 

AER 
c4 

E4 

103 
6C4F 
7950 
5BC 
86A 
6C 

6D5F 
14B 
310 
SEE 
23 

34BA 
C41 

06 

D6 

8F OO 
000 
£05 
000 
OE4 
000 
AF4 
164 
654 
364 
844 
034 


3102 
9E2 
58 
7400 
601F 


118 
AGE 
400 
108 
1B00 
000 
146 
138 
14B 
14 
137 
144 
310 
962 
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CHEDIT 


UDK; 


CHED70 


TBST 


TBEN 
CHED80 


WRITE 


WRITOS 


?§$T=0 
GOYES 
C=R3 
A=0 
A=C 
A=A+A 
A=R+1 
R3=A 
GOTO 
GOSUB 
GONC 
?$T=0 
GOYES 
GOTO 
A=DAT1 
LC(2) 
PAd=C 
GOYES 
LC(5) 


RSTK=C 
C=A 


CHEDEX 

WRITE 

RTNCR 

10 

RTNCR 

CHEDOO 

B 

((TBEN)-( TBST) ) 
B 


CHED80 
CHEDOO 


A 


GOSBVL =TBLUNC 


REL(3) 


-CHAR 


CON(3) 0 


REL(3) 


IN/REP 


CON(3) 0 


REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 


LC(2) 
AKC 
GOYES 
GOSUB 
GOTO 


C=R3 
C=C-1 
RTNC 
R3=C 
DO=(5) 


C=DATO 
D1=C 
A=DAT1 
B1=01+ 
CDIEX 
DATO=C 
LC(2) 
?A=C 


~LINE 

CURSFL 
CURSFR 
BCKSPC 
CURSRL 
CURSRR 


32 
B 
CHEDE j 
WRITE 
CHEDOO 


(=DEFADR ) +3 
A 
B 


9 
c 


A 
10 
B 
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Yes. Type 6? 
No. 
Yes. Get length. 


Text len in bytes. 
Text len + 1 in nibs. 


Exit CHEDIT with carry clear. 
Write UDK, 

Go 1f encountered CR. 
Terninating (type 4)? 
Yes. 

Back for nore. 

Fetch ASCII char 

{3 

Special function? 

No. 

Yes, 


Load RIN addr. 
And do special function 


-char 

LC toggle (done in KEYRD) 
In/Rep toggle 

User node toggle (KEYRD) 
-line 

Cursor far left 

Cursor far right 
Backspace 

Cursor left 

Cursor right 


WOnNHOLDPwnrn—-o 


Is this a terminating keycode? 
Yes. 

No. Write out char. 

Back for nore. 


Decrenent character counter. 
RTNSC if done. 
Point at character 


Read character. 


Update pointer in DEFADR 
LF? 


3:4? an 
Page 6 
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226 140CAR 4D GOYES WRITE Yes; ignore. 

227 140CC 31D LC(2) 13 No. 

228 14000 962 7AzC OB CR? 

229 14003 AO GOYES WRIT10 Yes, RINCC. 

230 14005 7(00 GOSUB CHROUT No. Write character. 
231 14009 64CF GOTO WRITE 

232 14000 03 WRIT1O RTNCC 

233 a 

234 140DF 3102 ODSPSPC LCASC \ \ 

235 14DE3 DA DSPCHR A=C 


236 14DE5 1B00 
000 
237 14DEC 146 
238 14DEF 108 
239 14DF2 8FOO 


000 
240 140F9 1B00 
000 


CHROUT 


A 
DO=(5) =ESCSTA 
C=DATO A 
RO=C 
GOSBVL =DSPCHA 


DO=(5) =ESCSTA 


Hold (ESCSTA), (FIRSTC), (CURSOR) 
Write character. 


241 14€00 142 A=DATO A Read new (ESCSTA), etc. 
242 14€03 118 C=RO Get old (ESCSTA), etc. 
243 14£06 8R6 RRC OR Anything changed? 

244 14609 00 RTNYES Yes, on to next char. 


245 14E0B 8000 
00 


GOLONG =CHIRP 


No, chirp first 
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246 STITLE hey cea routine 
247 JO IO II TIS II ITI OTS III IIS III ISOS OSI II IIS III III IIIS TS 
248 JU IOI IOS ITT IIS STII SOS SII TT IIS III III II SOS I SITS IK 
249 aK 
250 ** Name: (S) KEYRD - Read A Key 
251 kk 
252 *k Category: KEYUTL 
253 ak 
254 *k Purpose: 
255 a Read a key and return a pointer to its expanded value. 
256 
257 aX Entry: 
258 AK HEX node. 
259 aK fFIRPTD and last position in keybuffer contain 
260 inforration necessary for repeating keys to work. 
261 
262 kK Exit: 
263 ak P=0, 
264 a DEFADR contains pointer to expanded value: 
265 ax DEFADR: Length of string in bytes. 
266 ak DEFADR+2: Key type: 
267 ae 0 = Single ASCII character. Includes 
268 ak control characters 0-31, which 
269 ak should usually cause sone action 
270 aK in the editor calling KEYRD. 
271 ak 
272 ae 1 = ASCII control character. Must 
273 ax subtract #40 fron the 1-byte def- 
274 ak inition we are pointing to. These 
275 ak characters should be interpreted as 
276 ak text, and should not cause any 
277 ak special action in the editor. 
278 ae 
279 a 2 = User-defined key; Terminating. 
280 as 
281 ak 4 = User-defined key; Non-terninating. 
282 xr 
283 ae 6 = User-defined key; Non-displaying. 
284 7 
285 ae 8-F = LEX entry with lower 3 bits as 
286 a follous: 
287 aK bit 0: Parenthesis needed. 
288 a bit 1: Trailing space needed. 
289 me bit 2: Leading space needed. 
2% os (spaces & paren not included in 
254 ne string length field) 
292 ae 
293 DEFADR+3: Address of text. 
294 ak 
295 *k Calls: ALMSRV, ASLWS, BLDDSP, CSLW3, FINDA), FLIPO, 
256 aE FLIPCS, FPOLL, GETDEF, KEYTYP, MTADDR, POPBUF, 
297 at RPTKY, SETTING, SFlagl, SLEEP, Sflag?, VWFC-2, 
238 at WIPOUT, cksreq, range, sflagt, usrsta. 
299 x 


300 At Uses... i... 
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i w1 £% A,B,C, D,P,D0,01,R3,USRSTA (for holding ST), 
2 fi DEFADR (for definition), 32 nibs at SCRICH. 

303 

4 ** Stk Ivis: 5 

305 te 

306 ** Algorithn: 

7 *x KEYRD: Build display. 

8 te KEYR50: Perforn WIKY fastpoll. 

309 ax If handled then goto KEYR69. 

310 aK Check for repeating keys (RPTKY). 

311 aK If ue have a repeating key then goto KEYR72. 
312 &k Build display. 

313 ae Set 10-minute tineout (SETTNO). 

314 kx KEYR60: Go to light sleep (SLEEP). 

315 a If key in buffer then goto KEYR70. 

316 ax If 10-minute tineout not expired then goto KEYR60 
317 ak else return OFF-key definition. 

318 kk KEYR69: Set up registers after poll. 

319 ak Goto KEYR?72. 

320 xx — KEYR70: Pop key# from buffer. 

321 xk KEYR72: Put key# and logical keycode in RO. 

322 ae Perforn KYDF fastpoll. 

323 ak If handled then if S0=0 (not-returning-def inition) 
324 ae then goto KEYR50 else return. 

325 xe If VIEW flag is clear then goto KEYR75. 

326 a Clear VIEW flag. 

327 ay Get key definition; if none then goto VIEWUN. 
328 a Write definition to LCD. 

329 ae Goto VIEW. 

3H kx VIEWUN: Write "Unassigned" to LCD. 

331 ak Loop until keys up (VWFC-2). 

332 a Goto KEYRSO. 

333 xk KEYR75: If CTRL flag clear then goto KEYR80. 

334 % If keycode not in CTRL’ able range then goto 
335 ax KEYR80. 

336 - Return CTRL key definition. 

337 kx KEYR80: If USRX flag clear then goto KEYR90. 

338 am Clear USRX flag. 

339 - Toggle USER flag (carry reflects old state). 
340 RE Goto KEY100. 

341 %X  KEYR9O: Carry := USER flag. 

342 kx KEY100: If carry clear (not USER) then goto KEY110. 
343 2 Fetch key redefinition. If non-existent then 
344 ax goto KEY110. 

345 x Return redefined key definition. 

346 kk OKEY110: RSTK=KEY120 (return address in case we do 
347 e internal processing). 

348 ae {start of internal processing junp table} 
349 aa If keycode = LC key then goto LOWERC. 

350 ah If keycode = USER key then goto USERK. 

351 ze If keycode = CTRL key then goto CTRL. 

352 am If keycode = VIEW key then goto VIEWK. 

353 Re If keycode = tenp-user key then goto USERX. 
354 ax If keycode = Last-err key then goto lerrn. 


355 a {end of internal processing junp table}. 
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356 RX Pop RSTK. 
357 aK If keycode in range of typing aids then goto 
358 aK NENTOK. 
359 XK If LC flag set then flip case if appropriate 
360 ax (FLIPCS). 
361 ak {ue have a sinple 1-char definition} 
362 ce Look up key definition in KEYCOD table and return 
363 ax definition. 
364 xx KEY120: {we have finished internal processing} 
365 aK If keybuffer empty then zero out last entry in 
366 aK keybuffer to disable repeating key. 
367 ak Goto KEYRSO. 
368 xx  NEWTOK: Find typing aid definition (MTADDR). 
369 ae . Return definition. 
370 x 
371 ** History: 
372 xx 
373 Ae Date Programmer Modification 
374 Pe ute, ee soeeaeet eae ee ee a ee eel 
375 ek 11/02/82 9 NM Began to write. 
376 a 
377 JOIST OO IIS OCIGUIGOI ICO ITC EI I TIOK 
378 JOIST ISOC IGG ITSO GIGI UIC IGGL ITOK 
379 14£11 8FOO =KEYRD GOSBYVL =BLDDSP Build display & store user status 
000 
380 14618 8E00 KEYR50 GOSUBL =FPOLL Poll on entry to KEYRD 
00 
381 14E1E 00 CON(2) =pNTKY 
382 14£20 831 ?XN=0 Handled? 
383 14E23 05 GOYES KEYR69 Yes, key# is in RO[B). 
384 14E25 07 C=RSTK 
385 14E27 108 R3=C Save a level 
386 14E2A 7084 GOSUB RPTKY Check for repeating keys. 
387 14E2E 118 C=R3 
388 14£31 06 RSTK=C Restore a level 
389 14£33 445 GOC KEYR?2 Rebuild definition if rpt. 
3% 14636 7F91 GOSUB usrsta Recall user’s status for BLDDSP 
391 14E3A &FOO GOSBVL =BLDDSP Rebuild display 
0” 
392 14641 8£00 GOSUBL =SETTNO Set 10-ninute timeout 
00 
393 14£47 &FOO KEYR60 GOSBVL =SLEEP Wait for key 
000 
394 14E4E SF GONC KEYR?0 Go if key already in buffer 
395 14651 7481 GOSUB usrsta Recall user’s status for CKSREQ 
396 14655 7882 GOSUB cksreg Check what woke us. 
397 14659 8E00 GOSUBL =RLNSRV Now check if tined out 
00 
398 14E5F 863 ?ST=0 fF ITMOUT Tined out? 
399 14E62 5E GOYES KEYR60 No, back to sleep. 
400 14664 3100 LC(2) =kHOFF Yes, return ASCII OFF key 
401 14£68 60C1 GOTO C=k# 
402 14€6C 860 KEYR68 ?ST=0 0 Here if pkYDF was handled. 
403 14E6F 3A GOYES KEYRS5O Shauld we return to caller? No. 


404 14£71 01 RTN Yes. Defn pointer in DEFADR. 
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405 
406 
407 
408 
409 


410 
411 
412 


413 
414 
415 
416 


417 
418 
419 


420 
421 
422 
423 
424 
425 
426 
427 
428 
429 


430 
431 
432 


433 
434 
435 
436 


43? 
438 


439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 


14€73 
14E76 
14E78 
14E7B 
14E 7E 


14E85 
14E88 
14E8A 


14E91 
14£93 
14£95 
14E98 


14E9E 
14ER1 
14EA4 


14ERR 
14EAC 
14ERF 
14E81 
14E85 
14EB9 
14EBC 
14ECO 
14EC4 
14EC8 


14ECF 
14E01 
14ED5 


14EDB 
14EDF 
14EE2 
14EE6 


14EED 
14EFO 


14EF? 
14EFR 
14EFC 
14EFE 
14FOO 
14FO2 
14FO5 
14F08 
14FOB 
14FOE 
14F 11 
14F 14 


110 
D1 
AES 
4Co 
8FOO KEYR70 
000 

429 

D4 KEYR?72 
3400 

000 

C3 

ee) 

134 

8£00 

00 

148 

100 

8£00 

00 

00 

831 

D8 

3100 

2052 

460 

6980 

3100 VIEW 
7742 

1FOO 

000 

4 

31€2 

8£00 

00 

74R2 

543 

7F22 

1B00 

000 

14C 

34B2 

000 

8BR 

40 

DA 

CC VIEW2O 
CC 

4B3 

161 

14F 

171 

14C 

5CE 


KEYR69 


A=RO 
B=0 
B=A 
GOC 
GOSBVL 


GOC 
A=B 
iC (5) 


C=C+B 
C=C+B 
bo=C 
GOSUBL 


A=DATO 
RO=A 
GOSUBL 


CON(2) 
7XM=0 
GOYES 
LC (2) 
COSUB 
GOC 
GOTO 
LC (2) 
GOSUB 
b1=(5) 


C=0 
LC (2) 
GOSUBL 


GOSUB 
GONC 
COSUB 
Do=(5) 


DATO=C 
LC (5) 


GONC 


A 

B 
KEYR72 
=POPBUF 


KEYR50 
A 
=KEYCOD 


A 
A 
=RASLU5 
B 
=FPOLL 
=pKYDF 


KEYR68 

=f VIEW 

Sf lag? 

VIEW 

KEYR?75 

=f VIEW 

SF lagCl 
(=FUNCRO )-2 


A 
44 
=WIPOUT 


GETDEF 
VIEWUN 
KEYTYP 
(=FUNCRO)-2 


B 
21%2+41 


A 
VIEW2O 


VIEW20 


1BO0 VIEWUN DO=(5) (=FUNCRO)-2 
000 
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Here if pWIKY was handled. 


B.E.T. 
Pop key from buffer 


Go if no key 
Key# 


Calculate table entry address 
Key# to A[9-5] 


Read keycode fron table 
Save keycode & key# in RO 


Poll before processing key 
Handled? 
Yes. 


Is VIEW needed? 
Yes. 

No, process key. 
Yes, then view key 
Turn off VIEW flag 


Not redefined; show “Unassigned” 


Write out def type indicator 


Def len>21 chars? 

No, then okay 

Yes, then linit it to 21 chars 
Decrenent length count 


Rt end of text? Yes, then exit 


(B.E.T.) 
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451 


452 
453 
454 


455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 


466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
48? 
488 
489 
490 
49) 


492 
493 
494 
496 
496 
497 


14F 1B 


14F 2D 
14F31 
14F34 


14F 3A 
14F 3E 
14F42 


14F46 
14F4A 
14F4E 
14F51 
14F55 
14F59 
14F5C 


14F 62 
14F 66 
14F69 
14F 6D 
14F 6F 
14F 73 
14F 27 
14F 7B 
14F7E 
14F 82 
14F 86 
14F8A 
14F8E 
14F 92 
14F 96 
14F 9A 
14F 9D 
14FA1 
14F R4 
14FR? 
14FRB 
14F RE 
14F Bt 
14FB3 
14F Be 
14FB9 


14F BF 
14FCe 
14FC5 
14FC8 
14FCB 
14FCE 


3F65 
£616 
3737 
3676 
E6 

1547 
16F 

3356 
46 

15C3 
7EF 4 
65DE 


3100 
7BB1 
542 
3100 
7681 
110 
3304 
ro 
7091 
4CO 
7A42 
21 
6980 
3100 
7£81 
561 
3100 
7981 
3100 
79B2 
6B00 
3100 
7F61 
554 
72E1 
5E3 
171 
1633 
B24 
R24 
D6 
1?e 
137 
8E00 
00 
ARe 
1C4 
133 
8iC 
REG 


x 
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VIEWS 


KEYR?5 


KEYR80 


KEYR9O 
KEY100 


LCASC §=\ngissanU\ 


DATO=C 
DO=D0+ 
LCASC 


DATO=C 
GOSUB 
COTO 


LC (2) 
GOSUB 
CONC 

LC (2) 
GOSUB 
A=RO 

LCASC 


GOSUB 
GOc 
GOSUB 
p= 
GOTO 
LC (2) 
GOSUB 
GONC 
LC (2) 
COSUB 
LC (2) 
GOSUB 
GOTO 
LC (2) 
GOSUB 
GONC 
GOSUB 
GONC 
Di=Di+ 
A=DAT1 
A=A+1 
R=A+A 
C=A 
01=01+ 
COIEX 
GOSUBL 


{=A 
D1 =B1 - 
ADIEX 
ASRB 
(=A 


1FOO KEYDON D1=(5) 


000 


W 
16 
\de\ 


4 
VWFC-2 
KEYR50 


=f CTRL 
Sf lag? 
KEYR80 
=f1CTRL 
SF lagl 


\_&\ 


range 
KEYR80 
FLIPO 

1 

C=K# 

=f LUSRX 
Sf lag? 
KEYR90 
=f LUSRX 
SF lagl 
=f 1USER 
sflagt 
KEY100 
=f LUSER 
Sf lag? 
KEY110 
GE TDEF 
KEY110 
2 

X 

XS 

XS 

A 

3 


=CSLW3 


w” 


B 
=DEFRDR 
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View key 


Control key hit? 

No. 

Yes. 

Clear it. 

Fetch keycode 

In range of CTRL’ able keys? 


No, process nornally. 

Yes, fetch key# to C(B]. 
Indicate this is CTRL key. 
CTRL result u/key# in C. 
Tenporary USER flag set? 


No. Process normally. 
Yes. 
Clear tenporary USER. 


Toggle USER. 
Carry reflects old state. 
USER set? 


No. Process nornally. 

Yes. Look for definition. 

Go if no definition. 

Point to length field. 

Read length & keytype. 

Convert keytype for KEYRD output. 


Point to text of key defn. 
Addr to C, len to 01[B]. 
C[?-3]=Addr of text 


C{2]=heytype (2,4, or 6). 
Subtract length of record hdr. 


Divide by 2 for bytes 
C[1-0]=definition length. 
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498 14FDS 1507 


DATI=C 8 


499 14FD9 8000 =usrsta GOVLNG =USRSTA 


000 


500 14FEO 3464 KEY110 LC(5) KEY120 


051 
501 14FE7 06 
502 14FE9 110 
503 14FEC 8£00 

00 
504 14FF2 00 
505 14FF4 F42 
506 14FF7 00 
507 14FF9 452 
508 14FFC 00 
509 14FFE 782 
510 15001 00 
511 15003 (92 
512 15006 00 
513 15008 582 
514 1500B 00 
515 1500D 3E0 
516 15010 00 
517 15012 07 
518 15014 31€7 
519 15018 9E6 
§20 1501B 25 
521 1501D 3100 
522 15021 74E0 
523 15025 7F61 
§24 15029 DO 
525 15028 AER 
526 1502E 80FF 
§27 15032 20 
528 15034 3400 

000 
523 1503B C2 
530 1503D C2 
531 1503F 812 
532 15042 BF2 
533 15045 BF2 
534 15048 E6 
535 1504A 638F 


RSTK=C 
A=RO 
GOSUBL =FINDA) 


CON(2) =kcLC 
REL(3) LOWERC 
CON(2) =kcUSER 
REL(3) USERK 
CON(2) =kcCTRL 
REL(3) CTRL 
CON(2) =kcVIEW 
REL(3) VIEWK 
CON(2) =kcUSEX 
REL(3) USERX 
CON(2) =kcLERR 
REL(3) lerrn 
CON(2) 0 
C=RSTK 

LCHEX 7E 

7AC OB 

GOYES NENTOK 
LC(2) =f iLC 
GOSUB Sflag? 
GOSUB FLIPCS 


A=0 A 
A=C B 
CPEX 15 
P= 0 
LC(5) =KEYCOD 
C=A+C A 
C=R4C A 
CSLC 

CSL W 
CSL W 
C=C+1 A 


GOTO KEYDON 


536 1504E 1B00 KEY120 DO=(5) =KEYPTR 


000 
537 15055 D2 
538 15057 1562 
539 1505B 92E 
540 1505E BO 
541 15060 1ROO 

00 
542 15066 14C 


C=0 A 
C=DATO XS 
CHO | XS 


GOYES KEY130 


DO=(4) (=KEYBUF )+2*14 


DATO=C B 


543 15069 6EAD KEY130 GOTO KEYR5O 

544 1506D 8FOO NEWTOK GOSBVL =MTADDR 
000 

545 15074 DO 


A=0 A 


Write out to RAM 
Restore user’s status 


RTN addr for special processing 
Fetch keycode 


Lowercase node 

User node 

CTRL key 

VIEW key 

Tenp user node toggle 

Last error nessage display 
No special processing 
Typing aid? 

Yes 

No. LC trode set? 


Flip case if carry set. 


A[A]=key# 
Key type to C[S) 


Index into keycode table. 


C{?-3]J=addr, C(2]=type 
C{1-OJ=length = 01 

Write out to DEFADR. 

Rtn here fron internal key proc. 


Zero C[B] 

Read keybuffer count 
Keybuffer enpty? 

No. 


Yes. Disable repeating. 
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546 
547 
548 
543 
550 
551 
552 
654 
554 
G55 
556 
657 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 


569 
570 
571 
572 
Sid 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 


584 
585 


586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 


15076 
1507A 
1507D 
15081 
15083 
15086 
15089 
15088 
1508E 
15091 
15094 
15097 
1509R 
15090 
150A0 
150A3 
150A5 
150A8 
150RB 
150AE 
15081 
150B3 
150B6 


150BD 
150BF 
15002 
150C4 
150C? 
150CA 
150CD 
1S50CF 
15001 
15005 
150D? 
150DA 
15000 


150E1 
150E? 
{S0EE 
150F4 
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1533 A=DAT1 
1?7 D1=D1i+ 
1574 C=DAT1 
08 CLRST 
85B ST=1 
94E ?C#O 
50 GOYES 
85A ST=1 
859 = NEWTOS ST=1 
B46 C=C+1 
512 GONC 
849 ST=0 
1€4 D1i=D1- 
147 C=DAT1 
133 ADIEX 
CA A=A4C 
133 ADIEX 
1C4 D1=D1- 
14F C=DATI1 
90—A ?C=0 
50 GOYES 
858 ST=1 
3400 NEWTIO LC(5) 
000 
C2 C=C+A 
135 Di=C 
E6 C=C+1 
BF2 CSL 
BF2 CSL 
BF2 CSL 
09 C=ST 
DO A=0 
15B0 A=DATI 
£4 A=R+1 
8iC ASRB 
A86 C=A 
bOFE GOTO 

x 
8EOO cksreq GOSUBL 
00 
8FOO GOSBVL 
000 
8E00 GOSUBL 
00 
01 RIN 


x 
8 
S 


11 

$ 
NEWTOS 
10 

9 

S 
NEWT10 


ENT10 


# OO = UMN » DM©o 


LXTXTT 


rcrrereenyp » 


ma>-D 


P 
KEYDON 


=savlvl 
=CKSREQ 


=rstlvl 


Page 13 
Offset fron LXTXTT to text 
Point at characterization nib 


Indicate this 1s typing aid 
Begin BASIC? 

Yes, no space before. 

Indicate leading space needed. 
Indicate trailing space needed. 


Go if not function 
Trailing space not needed 


Read execution addr offset 
Point at execution addr 
Point at parn count 

Min # parns > 0? 

No 

Yes, indicate paren needed 
Address of text 

Point at actual text 

Text addr to C[?7-3] 

Key type to C[2] 

Read textlen-1 


Textlen in bytes 
C{1-OJ=text length 


This cannot be packed out!!! 


SOTO JO OUI III II III III ITO TOIT 
FOR ITO TIS TO OI OI II OTT IOIE 


aa 
ak 
ak 
ax 
ak 
a 
x 
at 


Narie:(S) pWTKY = - 


Category: 


Type: 


Purpose: 


POLL 
FPOLL 


Poll When Waiting For Key 
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597 Re Allow LEXFILE to circunvent waiting for and fetching 
598 ae ket# in KEYRD. 

599 ae 

600 ** Should poll be "Handled" (return with XM=0)?: 

601 ae Yes, if LEXFILE uishes to “press” a key. 

602 ak 

603 *k Meaning of “Handling” Poll (what does code do if handled’): 
604 aR Lexfile is "press"ing a key. If poll is handled, 

605 aK KEYRD goes on to process key returned by this poll. 
606 aX 

607 ak If poll is not handled, KEYRD will look for repeating 
608 a keys. Seeing none, KEYRD will pop the next key# fron 
609 ak the keybuffer or, if buffer is empty, wait until a key 
610 ak is hit and then process it. 

611 aK 

612 *k Entry conditions for handler (registers, ST, RAM, etc.): 
613 ak Carry set. 

614 aK B[A] = Poll nunber. 

615 ak HEX node. 

616 ak P=0, 

617 ak 

618 tk Nornal exit conditions fron handler if handled (ST, RAN, 
619 *k registers, etc.): 

620 ak HEX node. 

621 ak KN=0. 

622 - RO[B] contains key# (physical keycode). 

623 

624 xk Normal exit conditions fron handler if not handled (ST, RAN, 
625 *k registers, etc.): 

626 ak HEX node. 

627 aA KM=1. 

628 ax 

629 &* Available subroutine levels: 

630 ak 

631 aK 

632 ** NOTE: 

633 . We are just entering KEYRD when this poll occurs. 

634 

635 aR This is the tine to press a key. The tine to provide 
636 a a definition for a pressed key is the pKYDF poll. 

637 k 

638 *k What registers/RAN nay be used if handled?: 

639 aK A-D, DO, D1, P, RO, R3. 

640 ak SCRTICH RAN. 

641 AX 

642 kk What registers/RAN nay be used if not handled?: 

643 kk A-C, D[15-5} BO, D1, P, RO, R3. 

644 aK SCRICH RAN. 

645 a 

646 *k Special nenory/pointer considerations (are pointers funny?): 
647 ak May be in CALC node. 

648 ak 

649 *k Envisioned application(s): 

650 a External keyboard controller or renote keyboard. 

651 ae The poll handler nay take over waiting for a key to 
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Ver. 3.39/Rev. 26 Key-reading routine Page 15 
652 ak go down if appropriate. 
653 ax 
654 *k History: 
655 aR 
656 Be Date Progranner Modification 
657 Oe eeeee ces Get Bees Ce ee emer ee 
658 . 05/19/83 = NM Added docunentation 
oa JU IIIOIO TOI I TO TA TIO TSAI IIIS IIIS ASIII SI ISI ITN 
661 Jo OOO OIC TOC OCC TOTTI I IIIT 
662 JUICE OCC COC TOR OCCT TOCA SK 
663 JORIS OOO OCI GOI OCCU OCCT TOR TIT IR 
664 ak 
665 kk Wane:(S) pKYDF - Poll To Define Key 
666 ak 
667 *k Category: POLL 
668 aR 
669 xk Type: FPOLL 
670 ak 
671 xk Purpose: 
672 = Allow LEXFILE to define action/definition of a key. 
673 
674 ** Should poll be “Handled” (return with XM=0)?: 
675 xx Yes, if you want to define or act on the key. 
676 ah 
677 *k Meaning of "Handling" Poll (shat does code do if handled’): 
678 ak LEXFILE is either defining or otherwise acting on key. 
679 aK Defining (returning with SO=1) means that the LEXFILE 
6380 a: 1s returning a definition to whornever called KEYRD 
681 aK (CHEDIT, CALC node editor, or whoever). 
682 A Acting on (returning with SO=0) means that the LEXFILE 
683 mA is using the key in sone way (such as toggling a 
684 sia flag or ignoring) and KEYRD should not return a 
685 ak definition to the caller, but should instead get the 
686 ae next key to process. 
687 ak 
688 kk Entry conditions for handler (registers, ST, RAM, etc.): 
689 7 Carry set. 
690 ak B[A] = Poll number. 
691 #% HEX node. 
692 ak P=0, 
693 x RO[A]=keycode (fron keycode rap), 
694 ae RO[9-S]=key# (physical heycode). 
695 xs 
696 *k Normal exit conditions fron handler if handled (ST, RAN, 
697 ** registers, etc.): 
698 a HEX rode. 
699 aR XM=0, 
700 <> If handled but not returning a definition (“acting on" 
701 a a key): S0=0. 
702 xe If returning a definition: 
703 a S0=1, 
704 a Definition pointer in DEFADR (in RAM) as follous: 
705 A DEFADR: Length of string in bytes (2 nibs). 
706 i DEFADR+2: Key type (1 nib). 
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Ver. 3.39/Rev. 2306 Key-reading routine Page 16 
707 ate 0 = Single ASCII character. Includes 
708 ax control chars 0-31, which nay cause 
709 aA sone action by caller. 

710 he 1 = ASCII control char + #40. This is 
711 ak a character in the range 0-31 which 
712 ak is to be interpreted strictly as a 
713 ak character, not as special action keys 
714 ae (cursor-right, etc.). To return 
715 ak char #01, DEFADR should point at #41 
716 ae byte, etc. 
717 af 2 = User defined key--terninating. 
718 Xx 4 = User defined key--non-terninating. 
719 ak 6 = User defined key--intied execute. 
720 &k 8-F = LEX table entry, with lower 3 bits 
721 ak as follows: 
722 xe 0: Parentheses needed. 
723 aK 1: Trailing space needed. 
724 aX 2: Leading space needed. 
725 ae DEFADR+3: Address of text. 
726 ak 
727 ** Nornal exit conditions from handler if not handled (ST, RAN, 
728 ** registers, etc.): 
729 ax HEX node. 
7H ak xN=1, 
731 Rx 
732 *x Available subroutine levels: 
733 aig 
734 aK 
735 *k What registers/RAM nay be used if handled?: 
736 xx A-D, DO, D1, P, RO, R3. 
737 ax SCRTICH RAN. 
738 aX 
739 ** Uhat registers/RAMN nay be used if not handled?: 
740 RK A-C, D[15-5] DO, D1, P, R3. 
741 ak SCRTCH RAM. 
742 7 
743 *X Special nenory/pointer considerations (are pointers funny’): 
744 ax May be in CALC node. 
745 as 
746 ** Envisioned application(s): 
747 $e Redefine keyboard. 
748 ¥R 
749 as One interesting application: Stuff funny key# in 
750 aX keybuffer (perhaps at pSREQ) and define it here. 
751 rx 
752 ** History: 
753 <x 
754 aX Date Progranner Modification 
755 PF. eweceeds © ekacecceve . weuiosdede terse one tee ee ieee. 
756 ee 05/19/83 NM Added docunentation 
x 
ace FOO IIR III OTTO I TIO TI IOI 
759 JOIST IIT SI I TOK 
760 x 


761 150F6 8D00 lerrn GOVLNG =LERRM 
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000 
762 150FD 3316 =aRANGE LCASC \za\ 
763 15103 8000 range GOLONG =RANGE 
764 15109 3000 =Sflag? GOLONG =SFLAG? 
765 1510F sco =SFlagl GOLONG =SFLAGC 


766 . 
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767 STITLE KEYTYP 
768 JI IO TCI OEIC CTT SA 
769 SIS IIIS SII AISI IIIS II ISIPIISISS SII SII II IIS IIS III IS III IIIA IIS SIAL 
770 ake 
774 Nane: KEYTYP - Key Definition Type (ASCII Forn) 
772 & 
773 ** Category: KEYUTL 
774 aR 
775 ** Purpose: 
776 . Returns an ASCII letter indicating key definition type 
777 
778 ** Entry: 
779 ax HEX rode. 
780 x C(A)=Entire definition length 
781 ak D1 points at definition entry 
782 ak 
783 KK Exit: 
784 aK = 0 
785 i i Carry set 
786 ne C(B)=\ \ if terminating key definition 
787 xx \;\ af non-terninating key definition 
788 aR \:\ af anmediate execute key definition 
789 aR A(S}=Key definition type (O=tern, 1=non-tern, 2=in. ex) 
790 KR A(A)=Actual key definition length+1 (nibs) 
791 aR D1 points at key definition. 
792 ze 
793 ** Calls: None 
794 an 
795 AR VSES.c cays 
796 am A,C,D1,P 
797 ak 
798 kK Stk lvls: 0 
799 aR 
800 *k Detail: 
801 a Thais subroutine should be called following a KEYFND. 
802 am It does 3 good things: 
803 ak 1 ~- Finds ASCII definition type 
804 Km 2 -- Noves D1 to point at actual definition 
805 7 3 -- Subtracts 4 fron definition length which 
806 an leaves it one greater than the nurber of 
807 ae nibbles in the actual definition. This 
808 a nunber can then be double-decrenented until 
809 a end of definition and will carry on second 
810 ax decrerient of pair. 
811 &k 
812 ** History: 
813 ke 
814 ze Date Progranner Modification 
815 $e sepieecbs “eee csas Musee tseia ceeset tweens pubes 
816 kk 07/06/82 BS Added documentation 
817 Ak 11/03/82 NM Added nagic LC 
re 
He JORIS IIIT OCI IIIT TR RK 
320 FRI IR IIR I SIDI I IDI I TTS III I TDR IIIT TI I ASIII IIIT ISS SSI SIS IIS TM 


821 15115 CE =KEYTYP C=C-1 A 
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822 
823 
824 
825 
826 
827 
828 
829 
8H 
831 
832 


833 
834 


15117 
15119 
15118 
16110 
15120 
15124 
15127 
1512A 
15120 
151% 
15134 


1513C 
1513€ 


CE 
CE 
CE 
173 
1574 
AFR 
170 
R46 
BCA 
80DF 
3502 
B3A3 
20 
02 
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=KYTYP4 


>a ii: i) ( 
co — 4 ak eh ek 
+ > + 
oS —"“- Yon ENS DDD 


mT VOOvovrwDomVdTOonron 
o- 9” 


C7 UR mm 


DME OMUHNOOVHOOO 


ow 
oo 
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Get actual string length+1 
C[S]=key definition type 
Hold in A 

Increnent past def type 


0-20, 1->€, 2->C 
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835 STITLE View a buffer 
8336 JIU ISOS SISO TIS COI TOSI SRT II TITS: 
837 JOIUIOI IO OI J OI SSIS IOI TIS TOIT OI TTI TI ITO IIIA SIAN 
838 an 
839 os Nane:(S) VIEWD1 - View A Buffer While Keys Down 
840 & 
841 **& Category: ODSPUTL 
842 ak 
843 ** Purpose: 
844 ar This entry point takes a 22 character buffer pointed to 
845 ae by D1 and builds a bit pattern in display inside 
846 aR the WINDOW setting. This display is held until all 
847 ak keys are up. 
848 xk 
849 ** Entry: 
850 aR P=0 
851 ale D1 points at a 22 character buffer. 
852 aR 
853 aK Exit: 
854 ak P = 0 
855 ak 
856 ** Calls: BLOBIT 
857 ak 
858 kk Uses....... 
859 aR A,B,C,0,00,D1 
860 xk 
861 RE Stk lvls: 2 
862 ak 
863 ** Detail: 
864 a This routine looks at the current WINDOW settings 
865 a to set up the first character position and the nunber 
866 KR of characters to be displayed. Since this may be 
867 ax {and usually is) 22 characters, the buffer to be viened 
868 mR should be at least 22 characters. It should be padded 
869 AS with either blanks or nulls to prevent unwanted " junk" 
870 xk at the end of the display. 
871 xR 
872 xk History: 
873 xk 
874 xx Date Progranner Modification 
875 ARS 2SScuieG, wieeeseuoos,. lnsttodeascecs soos see Soe ee oe 
876 si 07/15/82 BS Updated docurentation 
x 
a JOO SOCIO II OI TO ITI II TOR TTT IIIT ITI ISI ISAT OAS 
879 JIS III IIIT TOI III OC ITO TI TTT OTT 
880 15140 1FOO VWFC-2 D1=(5) (=FUNCRO)-2 
000 
881 15147 1800 =VIEWD1 DO=(5) =WINDLN Prepare to build bit pattern 
000 
882 1514E 14€ C=DATO B 
883 15151 816 CSRC 
884 15154 816 CSRC Put length in C(14,15) 
885 15157 1900 DO=(2) =WINDST 
886 1515B D2 C=0 A 
887 1515D 14€ C=DATO B Read starting position 








Saturn Assenbler 


Character Editor <831213.1314> Fri Dec 30, 1983 3:47 an 


Ver. 3.39/Rev. 2306 View a buffer 


888 15160 AF? 
883 15163 137 
890 15166 8FOO 
000 
891 15160 8FOO 
000 
892 15174 841 
893 15177 OB 
894 15179 1543 


D=C W 
CD1EX 
GOSBVL =BLDBIT 


GOSBVL =RCLSTA 


ST=0 = Bi tsOK 
CSTEX 
DATO=C X 


895 1517D 8000 =waatky GOLONG =WAITKY 


00 
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Set up D for BLDBIT 
C(A)=Start of buffer 


Display is not exactly right 


Wait for all keys up 
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896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 15183 3100 
947 15187 7E7F 
948 15188 7900 
949 1518F D5 
950 15191 8D00 
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STITLE GETDEF 


IIIS IT IIIA I TITIES I III ISS ISI IIIS I IIIS IS SI IISISI ISI IIISSSI SIE IIIS. 
JI SIT III DIET III IIIT ISI I IIIS SISOS IS IIIISIIIIISSSI ISI IIIS. 
ae 

*k Nane: 
ah 
is 
ak 
ak 
ax 
kk 
&K 
kk 
ak 
tk 
aa 
ak 
ae 
ak prs 

ak B(A) = Keycode 

ae Carry clear ==> Key not redefined 

xe set ==> Key redefinition found 

ak D1 points to defn record in keyfile 
as C(A)=Entire entry length 


ae DO points to file header end 
ah 


ax 
ax 
xk 
xk 
ak 
ax 
kk 
ak 
xk 
xk 
ak 
xx 
xx 
ax 
ar 
ak 
ak 
aK 
ax 
RN choo -— -sboeeeee tis 
** 07/15/82 BS 

a 

ORI OO TOO 
FOO ROJO IOI IOI TTR TT RK 


GETDEF - Check Upper/Lower Case, Get Key Def 


Category: KEYUTL 

Purpose: 
Checks for keys being case toggled before looking up 
key definition. 


SFLAG?, CONVLC, CONVUC, KEYFND 


A,B,C,D,00,D1,S6,38,R3 
Stk lvls: 2 


Algorithn: 
If fllC(ie Lower case node) then 
If Character 1s upper case letter 
then add 56*2 to key number (convert to LC) 
else if character is lower case letter 
then subtract 56*2 from key nunber (convert to 
uC). 
Call KEYFND to find key definition(if any) 


History: 
Modification 


Added docunentation 


GETDEF LC(2) =F1LC 
GOSUB Sflag? Lower case node? 
GOSUB FLIPCS Flip case if carry set 
B=C A Read converted key# 
=keyfnd GOVLNG =KEYFND 
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951 
952 
953 
954 
955 
956 


957 
958 
359 
960 
361 
962 
363 


964 
965 


000 


15198 5€1 
1519B 3107 
1519F DS 
151A1 110 
151A4 8FOO 
000 
151AB SD0 
151AE F9 
151B0 794F 
151B4 540 
151B? D1 
151B9 118 
151BC 8E00 
00 
151C2 AGS 
151C5 01 


x 
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FLIPCS 


FLIPO 
FLIPCX 


GONC FLIPO 
LC(2) 112 
B=C A 

A=RO 

GOSBVL =ARANGE 
GONC FLIPCX 
B=-B A 
GOSUB aRANGE 
GONC FLIPCX 
B=0 A 

C=RO 

GOSUBL =CSRW5 
C=B8+C B 

RTN 
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Not in lowercase node. 

Get keycode 

Uppercase? 

Yes, will add 112 to key# 
Lowercase? 

Yes, will add -112 to key# 
No. will add 0. 


Retrieve key# 


Flip case as necessary. 
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966 STITLE Cursor right and left 
967 151C7 3134 =CURSRR LCASC \C\ 
968 151CB 62R0 GOTO escseq 
969 , 


970 151CF 3144 CURSRL LCASC \D\ 
971 151D3 6A90 GOTO escseq 
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972 STITLE Cursor far right 
973 JI I I SII II III III ITI SSIS SIS IOS ISS ISI IIS II ISOS SAS IST S. 
974 JOO OIG OO CCC TOSI TOO IS TI IIT K 
975 ie 
976 ** Wane: (S) CURSFR - Move Cursor To Far Right 
977 ae 
978 ** Category: DSPUTL 
979 ax 
980 ** Purpose: 
981 ak Send CURSOR FAR RIGHT to display. 
982 a; 
983 kk Entry: 
984 Rx P=0 
985 ax HEX node. 
986 aR 
987 RX Exit: 
988 ax P=0 
989 x Carry clear 
990 ax 
991 ** Calls: ESCSEQ (falls through) 
992 ae 
993 EX USGS 3 cha cys 
994 ax A,B,C,D,00,01. 
995 ae 
996 ** Stk lvis: 4 
997 ax 
998 ** History: 
999 ae 
1000 ns Date Programmer Modification 
1001 Ak SoeSeecs, « eluiteSesiee «eee le bens cece cea Secesc ees es cote 
1002 &k 07/15/82 = BS Added docunentation 
1003 a 
1004 JO IO I I III IO III III ITO OTITIS ITT 
1005 JI IO III TITAS SI I IIIT ISI IASI I ISS SOI ISS 


1006 1$1D? 3130 =CURSFR LCHEX 03 
1007 151DB 6290 GOTO escseq 
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1008 STITLE Cursor far left 
1009 SOROS TOI OTT TORO I 
1010 FORO IIIB KJOS OOOO OO 
1011 aa 
1012 ** Nane:(S) CURSFL - Move Cursor To Far Left 
1013 KK 
1014 ** Category: DSPUTL 
1015 a 
1016 ** Purpose: 
1017 RX Send CURSOR FAR LEFT to display. 
1018 aR 
1019 ** Entry: 
1020 kk P=0 
1021 ax 
1022 aX Exit: 
1023 aa P=0 
1024 ae Carry clear 
1025 ak 
1026 ** Calls: ESCSEQ (falls through) 
1027 ak 
1028 AK Uses.....e. 
1029 ah A,B,C,0,D0,D1. 
100 kk 
1031 ** Stk lvls: 4 
1032 ak 
1033 ** History: 
1034 ae 
1035 kk Date Progranner Modification 
1036 RK mewn eee teen nner cece ere nnn nn nnn none nnn een eee ene 
1037 kk 07/15/82 BS Added docunentation 
1038 Kk 41/04/82 NM Packed a little. 
1039 xk 12/09/82 NM Packed a lot. 
1040 aK 
1041 FRI II IR IIT III III ISIS I SSI SSS III III ISISSSSISISISI ISIS IIIS ISS IS 
1042 SOI IOI II IOI RII III SIS SSIS SII ISISI IIS SIS SSI SSIS III IIS IIS SSSI S 


1043 151DF 3140 
1044 151E3 6A80 


=CURSFL LCHEX 04 
GOTO escseq 
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1045 STITLE Backspace 
1046 JCI IO III IC III III IIIT TI TI TIT I E 
1047 JOIST OI TOI II ITO IIS I II II TOI TTT TI TT 
1048 KK 
1049 ** Nane: BCKSPC - Inplenent Backspace 
1050 a 
1051 ** Category: LOCAL 
1052 aR 
1053 ** Purpose: 
1054 tal Inplenent backspace in CHEDIT. 
1055 aK 
1056 xk Entry: 
105? kk P=0, 
1058 ak 
1053 KX Exits 
1060 kk P=0, 
1061 a 
1062 : Calls: DSPCHC, RCLSTA, DO=CUR, BF2DSP (falls through) 
1063 x 
1064 EM US86 y fc:husn 
1065 ax A,B,C,0,D0, D1. 
1066 ae 
1067 *k Stk lvls: 3 
1068 ak 
1069 ** Detail: 
1070 xk If insert node, backspace = control-h, delete char. 
1071 ae If replace node and cursor is at null, 
1072 ue backspace = control-h, delete char 
1073 ax Else 
1074 kx backspace = control-h, space, control-h. 
1075 - 
1076 ** History: 
1077 ae 
1078 a Date Progranmner Modification 
1079 KK ener nee ene nnn n ene ee nnn nee nore ne ee 2 eee 
1080 kk 11/04/82 NM Rewrote slightly 
ik 

He FOO JOR JO ORO III CII COO IIT OOO 
1083 FORO ROI OOO II CTO COI ITO OI OOO IOI TOTO I OI ro 
1084 151E7 1FOO BCKSPC 01=(5) =CURSOR 

000 
1085 151EE 14F C=DAT1 B 
1086 151F1 108 RO=C 
108? 151F4 3180 il(2) 8 Backspace 
1088 151F8 8FOO GOSBYL =DSPCHC Send backspace to display 

000 
1089 151FF 1FOO D1=(5) =CURSOR 

000 
109) 15206 148 A=DAT1 B Re-read (CURSOR) 
1091 15209 118 {=RO0 Recall last value 
1092 15200 962 *A=C OB Did backspace rove cursor? 
1093 1520F © RTNYES No, then return 
1094 15211 8F00 GOSBVL =RCLSTA Read dicolay status 

000 
1095 15218 877 ?S$T=1 Insert Are we in insert node? 
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1096 
1097 


1098 
1099 
1100 
1104 
1102 


1103 


1104 
1105 


1521B 26 
1521D 8F00 
000 
15224 161 
15227 14€ 
1522A 396A 
1522D 05 
1S22F 1FD3 
251 
15236 8000 =bf2dsp 


000 
x 


1523D 0280 BCKSTR 
FF 


GOYES -CHAR 
GOSBVL =DO=CUR 


DO=D0+ 2 
C=DATO B 

*C=0) iB 
GOYES -CHAR 
D1=(5) BCKSTR 


GOVLNG =BF2DSP 


NIBHEX O280FF 
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Yes, do delete char. 
No. 


Point to char after cursor, 
Null? 
Yes, do -char. 


Replace node backspace string 


Send string to display 


Space, Backspace 





Saturn Asserbler Character Editor <831213.1314> Fri Dec 30, 1983 3:47 ar 


Ver. 3.39/Rev. 2306 Lowercase toggle Page 29 
1106 STITLE Lowercase toggle 
1107 JI IOS III TOT ISI TIT TIT SIT IIT TI ISAT III III I ITT IT III ITI SIO ITA SI IIH 
1108 JOI IO III IIIT II TIT II TTI II III III OTIS SITS IITA 
1109 aK 
1110 - Narie: LOWERC - Toggle Lower Case Mode 
1111 7 
1112 ** Category:  KEYUTL 
1113 ak 
1114 ** Purpose: 
1115 a Toggles lower case node flag and annunciator. 
1116 xh 
1117 ** Entry: 
1118 aR P = 0 
1119 x 
1120 xk Exit: 
1121 aR P = 0 
1122 ak 
1123 *k Calls: SFLAGT (falls through) 
1124 ae 
1125 AR USC Si seks 
1126 ak ACA), BCA), CCW), DCA) 
1127 ar 
1128 ** Stk lvls: 2 
1129 wn 
1130 ** History: 
1131 eA 
1132 ae Date Progranner Modification 
1133 aaa aaa aaa ata eal 
1134 a 07/16/82 BS Updated docunentation 
ae JI OI OITA IOI TOI III III ITI II III TI ITI III IAT ATH 
1137 JIU III COI IIIT III III TOSI II ITI ITI I III ISI IIT OIN 


1138 15243 3100 =LOWERC LC(2) =f1LC 
1139 15247 8000 sflagt GOLONG =SFLAGT 
00 
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1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
4151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 


Character Editor <831213.1314> Fri Dec ®, 1983 3:47 an 
Ver. 3.39/Rev. 26 User node toggle Page 


STITLE User node toggle 
ORI IO OTR 


FOI TOTO OR TI 


F003 RSI JOO TOT TTT TORT TTT TIT TIT TT IK 


Kx 


xk 
kk 
Kk 
ak 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
ak 
ak 


Nane: USERK - User Node Toggle 
Category: KEYUTL 
Purpose: 

Toggles user mode flag and annunciator 
Entry: 

HEX node. 

P = 0 
Exit: 

P = 0 
Calls SF LAGT 
USOSsi a sees 

ACA), B(A),C(W), D(A) 
Stk lvls: 2 
Date Progranner Modification 

07/16/82 BS Updated docurientation 


FO III TOTO TTI TI TTS III 
SOR RIORIIO IOTT OTT TIIIO 


1171 1524D 3100 =USERK LC(2) 


1172 15251 65FF 


GOTO 


=f LUSER 
sf lagt 
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1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1214 
{212 
1213 


1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 


15255 8F0O 
000 
1525C 867 
1525F 20 
15261 OA 
15263 31£€4 
15267 460 
1526A 3125 
1526E 
1526E 8DOO 
000 
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STITLE Insert/Replace toggle 
III II IIIA SI III II SII IS SIS SS SSSSIT TI III III IIIT ISO I SIS I III IISA I IK 


FO OOO ITO TOTO TOT TTT TTT TOK 
xk 


** Nane: IN/REP - Insert/Replace Toggle 


ih 
*k Category:  KEYUTL 

a 

** Purpose: 

ax Toggles insert/replace node by sending appropriate 
ak escape sequence to display. 

ak 

xk Entry: 

ak P = 0 

ih 

AX Exit: 

ak P = 0 

aa 

** Calls: ESCSEQ 

hk 

B® USCS cdvsews 

x* Exclusive: A(A),C(A), DO 

xk Inclusive: A(H),B(W),C(H),0(W), DO, D1 

ih 

* Stk lvls: 4 

ak 

**k Detail: 

aS Reads display status and sends an ESQ R to display 
ak if display was in insert node and an ESQ Q if display 
ae Mas in replace node. 

ah 

** History: 

ak 

ae Date Progranner Modification 

thi Rinteteet. Betcseccea® - gceweesiiiwieue cess setae 
** 07/16/82 = BS Added docunentation 

te 06/02/83 ~=BS Reurote for Mtn. Corp. 

ae 


FOI IOI IOI ITT TO TI TIT TT II I TIT ITIT 
FOI IU TTI TT TIT TTI IK 


=IN/REP GOSBVL =RCLSTA 


?ST=0 «Insert Set carry if not in insert node 
GOYES I/R10 

I/R10) -ST=C 
LCRSC \N\ Escape N = Insert node (u/ wrap) 
GOC I/R20 
LCASC \R\ Escape R = Replace node 


1/R20 
escseq GOVLNG =ESCSEQ 
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1222 STITLE Delete through EOL 
1223 $39 JO TIO TTI I IOI IOS TOTS IOI ISS ISS SISA SITS 
1224 $0] IOUS TTT 
1225 aK 
1226 ** Wane: (S) -LINE - Delete Through End Of Line 
1227 ak 
1228 kk Category: KEYUTL 
1229 tk 
12H” %* Purpose: 
1231 - Send an ESC K to display to delete through end of line 
1232 
1233 kk Entry: 
1234 a P = 0 
1235 a 
1236 BK Exit: 
1237 ak P = 9 
1238 ak 
1239 ** Calls: ESCSEQ 
1240 aK 
1241 ** Uses....... 
1242 ** Exclusive: C(B) 
1243 *k Inclusive: A(H),B(N),C(W), OCW), DO, D1 
1244 ak 
1245 ** Stk Ivis: 4 
1246 ak 
1247 tx History: 
1248 Ae 
1249 ated Date Progranner Modification 
1250 PR Eee ee pak ee ee ema toa 
1251 ee 07/16/82 BS Added docunentation 
* 
oes JUSTO III IIS OI ISTO SSS TOI IIIT ATTN 
1254 JUSTO II III TTR IIIS IIS III IIIS TOTTI TTI II STII A 


1255 15275 3184 
1256 15279 64FF 


=-LINE LCASC \K\ Escape K = Delete through eol 
escseq 


GOTO 
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1257 STITLE Delete Character 
1258 SUI I ICI ICO TSOTSI STOTT IK 
4259 JOO IOS ISIC I COCO TCO ISO I SIT I IKK 
1260 ax 
1261 ** Wane: -CHAR - Delete Char Key 
1262 XK 
1263 *& Category: KEYUTL 
1264 Kx 
1265 *k Purpose: 
1266 a Sends an ESC P to display to delete a character. 
1267 ax Builds display to reflect nodified buffer. 
1268 ae 
1269 ** Entry: 
1270 _k P = 0 
1271 ak 
1272 ER EMITS 
1273 ax P = 0 
1274 x 
1275 ** Calls: ESCSEQ 
1276 ax 
1277 ** Uses. ...... 
1278 ** Exclusive: C(B) 
1279 tk Inclusive: R3,A,B,C,D,D0,D1 
1280 a 
1281 ** Stk lvls: 4 
1282 ax 
1283 ** History: 
1284 ax 
1285 a Date Prograriner Nodification 
1286 BX mmm mene creer enn wt eee een ene n memes err ee nn cccnee= 
1287 tk 07/16/82 BS Added docunentation 
dk 
i JIT IO SO TT ITI I SITIO II ITE II IIIT OAT TAIT TTI TTI 
1290 JO IOI IOI IIIT I III I TIT TOT IIS IASI ISIS AS SIT IIIS 


1291 1527D 31F4 =-CHAR LCASC \0\ 


1292 15281 6CEF 


GOTO 


Escape 0 = Delete char (u/ wrap) 
escseq 
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1293 STITLE CTRL flag set 
1294 JOR RII III III IIIT IIS IIIT II SSIS I III III OS TOSI IRIS TI ISIS SS SSSA I A 
4295 JOO III TO CIO IIS TOS IIIS IT TOI IASI ID SIAR 
1296 aR 
1297 ** Nane: CTRL - Sets Control Flag 
1298 KK 
1299 ** Category: KEYUTL 
100 kk 
101 ** Purpose: 
1HK2 ak Sets control flag (fICTRL) so next key will be 
103 ak CTRL’d. 
14 am 
105 ** Entry: 
106 ax HEX node. 
107 ah P = 0 
108 ak 
1X9 ak Exit: 
1310 x P = 0 
1341 an 
1312 ** Calls: SF LAGS 
1313 a 
1314 ek Uses....... 
1315 ak ACA), BCA), CCW), OCA) 
1316 aa 
1317 ** Stk lvls: 2 
1318 ne 
1319 ** History: 
1320 ais 
1321 Ax Date Progranner Modification 
1322 RK men meen teen nee penn nr nen n ener rn re nner nnn cern eee 
1323 07/16/82 BS Added docunentation 
k 
36 JUS II IOI ISIS OS TIO SSI IOS ITI IASI IOS IASI 
1326 JID I TI ISOS II I I IOS I TOIT IOI IOS ISI IOI ISS IIIT I IOS IO ITI IK 


1327 15285 3100 
1328 15289 6FOO 


=CIRL LC(2) =Ff1CTRL Set control flag 
GOTO SFlag$ 
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1329 STITLE Single-key user node set 
1330 JOO II IOI III III IOI III IOI IIT 
1331 FOI II III IOI ICICI III ITO IIIT II 
1332 a 
1333 ** Nane: USERX - Set Single Key User Mode 
1334 ig 
1335 *k Category:  KEYUTL 
1336 xx 
1337 kk Purpose: 
1338 ak Sets single key user node by setting single key user 
1339 ak flag and toggling USER flag and annunciator. 
1340 KR 
1341 kk Entry: 
1342 ak P = 0 
1343 ak 
1344 ak Exit: 
1345 kx Pp == 9 
1346 ak 
1347 ** Calls: SF LAGS, SFLAGT 
1348 ax 
1349 *k UseS....... 
1350 Kx ACR), B(A), CCW), D(A) 
1351 ak 
1352 ** Stk lvls: 4 
1353 aK 
1354 ** History: 
1355 gig 
1356 - Date Progranner Modification 
1357 RK nw anne nnn nnn n nnn enn nnn nnn nnn ne eee nen nee eee ee 
1358 . 07/16/82 BS Added docunentation 
ae FOTO TOI IOI IOI TOTTI I TIN 
1361 FOR IO RTO OI II TOTO IIIT OT OTTO TTT 


1362 1528) 3100 
1363 15291 72BF 
1364 15295 3100 
1365 15299 800 
00 


=USERX LC(2) =f 1USER 


GOSUB sflagt Toggle USER riode flag 
LC(2) =f LUSRX 
SFlagS GOLONG =SFLAGS Set single key user flag 
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1366 STITLE View flag set 
1367 JOTI OTIS OTS O SOS SII AS SS SIS III IIIS ISAS 
1368 JO OI II I III BIS IASI SI II III IS ISIS SISOS SI ISOSI SSIS IA 
1369 a 
1370 x* Narie: VIEWK - View Key 
1371 xk 
1372 *% Category:  KEYUTL 
1373 ah 
1374 ** Purpose: 
1375 aS Sets view flag to enable viewing next keystroke 
1376 ak 
1377 xk Entry: 
1378 ae P = 0 
1379 aa HEX node. 
1380 ak 
1381 ak Exit: 
1382 xk P = 0 
1383 aR 
1384 ** Calls: SFLAGS (falls through) 
1385 aR 
1386 kk Uses....... 
1387 ar ACA), BCA), CCW), OCA) 
1388 RE 
1389 ** Stk lvls: 2 
1390 sa 
1391 ** History: 
1392 a 
1393 ae Date Progranner Modification 
4394 Th Basen, “Epes gies <, Be see auretansaeseeemetess okeaee 
1395 ; 07/16/82 = BS Added docunentation 
k 
tee JIG IOI OI TOO IO IOI IIIS III IS III IIIS ISI IIA 
1398 JI III ITI II IIIT O SII IOI ISIS ISI IIIS IOI IIIA S TOSI OSS ISIS II IIS ISI SIA 


1399 1529F 3100 =VIEWK LC(2) =fIVIEW 
GOTO SFlagS Set VIEW flag 


1400 152A3 65FF 
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1401 STITLE Convert to uppercase 
1402 JO II OOO OI IIIS III TIT TII IIIT IIIT IIIT III TI IAT 
1403 JOGO I I COICO IOI TOC OCI GOI ICO IIIT TK 
1404 ax 
1405 ** Narie:(S) CONVUC - Convert To Upper Case 
1406 ** Nane:(S) CNVUCR - Convert To Upper Case 
1407 a 
1408 *k Category: CONVRT 
1409 xk 
1410 ** Purpose: 
1411 aK Convert char in A(B) to upper case if lower case 
1412 ak Read a byte into a first if CNVUCR entry point used. 
1413 ax 
1414 xk Entry: 
1415 xk A(B) = Character to be converted 
1416 aK P = 0 
1417 Kk HEX node. 
1418 aR 
1419 Ke Exit: 
1420 xe Carry set 1f no conversion required 
1421 an A(B)=converted letter, not changed if carry set at 
1422 xx exit. 
1423 ak P = 0 
1424 x 
1425 ** Calls: Range 
1426 “ee 
1427 eS USES ie Oe hex 
1428 *k Exclusive: €(3-0},A(B) 
1429 *k Inclusive: C(R),A(B) 
1430 ae 
1431 Xe Stk lvls: 1 
1432 aR 
1433 ** History: 
1434 ak 
1435 a Date Prograriner Modification 
1436 RR new w ene meee rene rere e rnc cnc n new nner reece ncenne 
1437 kx 07/16/82 BS Updated docunentation 
ax 
pts JOO II DOI IIIS CGI GOES IK 
1440 JOOS III III IEIOO IEC CO TOC IIR 
1441 152A7 14B =CNVUCR A=DAT1 B Read a byte 
1942 152AA 7F4E =CONVUC GOSUB aRANGE Lowercase? 
1443 152AE 400 RINC No. 
1444 152B1 3102 LCHEX 20 
1445 152B5 BoA A=A-C B 
1446 152B8 03 RTNCC 
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1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1453 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

148? 

1488 

1489 

1490 

1491 

1492 

1493 

1494 162BA 

1495 152BA 3100 

1496 152BE 774E 

1497 152C2 3572 
0007 

1498 152CA 460 

1499 152CD 31FD 
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STITLE RPTKY 


SII IIT ITT TTT III III II III SSS SII ISS SSIS IIIS IIS ISI IIS. 
SII III SIRI III III IID III IIIS II IIIS III II ISIS I SII ISIS SI ISIS AI IA 
bh 

** Nane:(S) RPTKY - Check For Repeating Keys 

io 

** Category:  KEYUTL 

ak 

xk Purpose: 

a Check for repeating keys. 

ak 

** Entry: 

ae P=Q, 

a HEX node. 

ak The last position of the keybuffer contains the key# 

a to look for. 

ak Systen flag FIRPTD indicates whether the key has begun 
ak repeating yet. 

ak User status bits have been saved into DSPSTA. 

ke 

RR SEXUC! 

aK Carry clear if: Key cones up before repeat interval. 

¥% Keybuffer non-enpty. 

aE No key in last position of keybuffer. 
ak Carry set indicates that a repeat should be done. 

aK Key# is in B[A]. 

ax Flag f1RPTD = 1 iff carry set. 

ak P=0. 

ae TIMER has been reset to .5 sec. 

ae User status bits have NOT been restored to ST. 

kh 

&* Calls: CKSREQ, DEBNCE, IDIVA, TMRRST, WRITM1, Sflag?, 
ss SFlagC, SFlagS, usrsta. 

a 

BP USES sai, ce as 

a A,B,C,D,P,D0,01, ST 

ok 

*X Stk lvls: 3 

ak 

*k History: 

ak 

= Date Progranner Modification 

OR. ahaa Vetenmanece- xnsetousews cesar ec cetenneeewsaees 
ek 11/04/82 = NM Wrote. 

kk 

JE II I OT IIIT IIT II III II IT ISI I IST II IIIS SIS ITS IIS SSSI IIA 
FOI IIIT OO 
=RPTKY 


LC(2) =F 1RPTD 


GOSUB Sflag? Has key already repeated? 
LCHEX 700027 Short repeat interval. 
GOC RPTK1O Go if yes. 

LCHEX DF Long repeat interval. 


1500 152D1 76B0 RPTK1O GOSUB WRITM1 Load tiner u/rpt interval 
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1501 
1502 
1503 
1504 


1505 


1506 
150? 
1508 
1509 
1510 
1514 


1512 
1513 


1614 
1515 
1516 
151? 
1518 
1519 
1520 
1§21 
1522 
1523 
1624 
1525 
1526 
1527 
1528 
1529 
1530 


1531 


1532 
1533 
1534 
1635 
1536 
153? 


. 1538 
1539 
140 
1541 
1642 
1543 
1544 
1545 
1546 
1547 
1548 


15205 
15209 
152DD 
152DF 


152E6 


152ED 
152EF 
152F2 
152F4 
152F6 
152FR 


15300 
152 


15309 
1530B 
1530E 
15312 
15315 
15319 
1531C 
1831F 
15322 
1§326 
15329 
1532C 
15330 
15334 
15337 
1533A 
1533E 


15345 


1534C 
15350 
15353 
15356 
15358 
1535C 


15363 
15367 
1536R 
1536C 
1536F 
15371 
15374 
15376 
1537A 
153?D 
1537F 


3100 
7CBF 
28 
8FOO 
000 
1FOO 
000 
DO 
148 
cc 
b2 
310 
8E00 
00 
20 
3400 
000 
ES 
135 
1572 
303 
OE06 
AOC 
490 
A26 
66FF 
A26 
441 
3100 
7BDD 
AF2 
B26 
6050 
1B00 
000 
1FOO 
000 
1520 
307 
902 
02 
78DF 
1B00 
000 
1532 
92C 
cu 
14R 
D1 
RES 
Q2 
1532 
92C 
FA 
765 
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RPTK20 


RPTK30 


RPTK40 
RPTKCC 
TMRRST 


RPTK45 


RPTK4? 


LC(2) 
GOSUB 


LC(2) 
GOSUB 
C=0 
C=C+1 
GOTO 
DO=(5) 


D1=(5) 


A=DATO 
LCHEX 
*A=C 
GOYES 
GOSUB 
DO=(5) 


A=DATI 
?ARO 
GOYES 
A=DATO 
B=0 
B=A 
RTNSC 
R=DAT1 
*RHO 
GOYES 
GOSUB 


=f 1RPTD 
SF lagS 
8 

=DEBNCE 


(=KEYBUF )+2*14 


A 

B 

A 

A 

14 
=IDIVA 


=KCOLO 


RPTK4S 

=f 1RPTD 

SF lagl 

W 

XS 

WRITM1 
(=TIMER1 )+5 


=KEYPTR 
P 

7 

P 
RPTK4? 


TMRRST 
( =KEYBUF )+2*14 


XS 

KS 
RPTKCC 
B 

A 

B 


KS 
XS 
RPTKCC 
usrsta 


Page 39 


Indicate key has repeated 
For debounce tine 
Scan keyboard 


Read key# 
Key#-1 


Col# to B, row to A 


Point at desired colunn 
Read colunn nibble 


Row# rod 4 (unshifts key) 
Loop to shift row bit to C:11 


Shift off row bit 

Go if key is stall donn 
Here to RTNCC 

No nore repeat 

Here to reset tiner 
C=000100 

Set .5 sec delay 


Tiner hinib. 


Tined out? 
No. 
Set tiner to .5 sec 


Buffer still enpty? 
No. 
Yes. This will get right key. 


Key# to B[R] 


Look at keybuffer. 

Enipty? 

No. RTNCC. 

Recall user’s status for CKSREQ 


Saturn Assenbler 
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1549 15383 7A5D GOSUB cksreq Check SREQs and go again. 
1550 15387 655F GOTO  RPTK20 
1551 JUGS SOIC IOC OTITIS SAIN 
1552 JU TI SIO TAI IIIS SIS I III IIIS IDI SATIS 
1553 ak 
1554 tk Narie: WRITMR - Write A Value To A Tiner 
1555 tk Nane: WRTTM1 - Write A Value To A Tiner 
1556 xx 
1557 ** Category: GENUTL 
1558 x 
1559 &* Purpose: 
1560 ax Write a value to a display driver tiner. Handles 
1561 *% possibility that tiner kerchunks. WRITNR urites to 
1562 ak any tiner, WRTTM1 writes to TIMER1. 
1563 a 
1564 ** Entry: 
1565 xk WRTTMR: DO points at tiner. 
1566 tk BOTH: Value to write in C{0-5]. 
1567 Re 
1568 kk Exit: 
1569 ax P=0. 
1570 sa Carry clear. 
1571 ax 
1572 xX Calls: None. 
1573 x 
1574 *k Uses....... 
1575 x A[O-5], DO (WRTTM1 only). 
1576 AK 
1577 *k Stk lvls: 0 
1578 AR 
1579 ** History: 
1580 EA 
1581 ax Date Progranner Modification 
1582 aaa aaa aaa ata attatatettetataietatatate 
1583 tk 01/25/83 NM Created. 
1584 am 
1585 JI IO IOI III OR TIO TIT II I IIIS IIIS I IAS 
1586 JU IO TIO III ISI TIS TOT IIA SIO IIIS IIT IIIS SSI IS 
1587 15388 1B00 =WRITM1 DO=(5) =TINER1 
000 
1588 16392 25 =WRTTMR P= 5 
1589 15394 15C5 DATO=C 6 Write out tiner value. 
1590 15398 15A5 A=DATO 6 Read back. 
1591 1539C 912 7A=C OP Match? 
1592 1539F 60 GOYES WRITMX Yes, done. 
1593 153A1 15C5 DATO=C 6 No. Write again. 
1594 153A5 20 WRITNX P= 0 Done. 
1595 153A7 03 RTNCC 
1596 153A9 END 
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=-CHAR Abs 86653 #1527D - 1291 196 1096 1101 

=-LINE Abs 86645 #15275 - 1255 200 

ALMSRV Ext o S397 

ARANGE Ext - - 956 

ASLWS = Ext - 416 


BCKSPC Abs 86503 HISIE7 - 1084 203 
BCKSTR Abs 86589 #1523D - 1105 1102 


BF2DSP Ext - 1103 
BLDBIT Ext - 890 
BLDDSP Ext e aioe 391 
BitsOK Abs 1 #00001 - 13. 892 


C=K# Abs 86057 #15029 - 524 401 470 
CHEDOO Abs 85163 H14CAB - 133 152 155 187 192 211 
CHEDIO Abs 85209 #14009 - 147 145 


CHED3O Abs 85222 #14CE6 - 151 149 
CHED40 Abs 85235 #14CF3 - 165 164 
CHEDSO Abs 85239 #14CF7 - 156 143 
CHED60 Abs 85279 #14D1F - 170 167 
CHED70 Abs 85329 #14051 - 188 171 


CHED80 Abs 85389 #14D8D - 207 191 
CHEDEX Abs 85130 #14C8A - 57 = 168 = 182 
CHEDE) Abs 85273 #14019 - 168 209 
=CHEDIT Abs 85145 #14099 - 130 


CHIRP = Ext - 245 
CHROUT Abs 85477 #14DE5 - 236 230 
CKSREQ Ext - 584 
=CNVUCR Abs 86695 #152A7 - 1441 
=CONVUC Abs 86698 H152AR - 1442 
CSLW3 Ext - 491 
CSRW5 = Ext - 963 
=CTRL Abs 86661 #15285 - 1327 509 


=CURSFL Abs 86495 #151DF - 1043 201 
=CURSFR Abs 86487 #15107 - 1006 202 
CURSOR Ext - 1084 1089 
CURSRL Abs 86479 #151(F - 970 204 
=CURSRR Abs 86471 #151C7 - 967 205 


DO=CUR Ext - 1097 

DEBNCE Ext - 1504 

DEFADR Ext - 134 217 497 
DSPCHA Ext eae 

DSPCHC Ext - 1088 

DSPCHR Abs 85475 #14DE3 - 235 154 
PSPOL? CERT =. 132 

DSPSPC Abs 85471 #140DF - 234 146 150 
ESCSEQ Ext - 1221 

ESCSTA Ext - 236 240 
FINDA) Ext =. G03 


FLIPO Abs 86455 #15187 - 961 468 9682 
FLIPCS Abs 86424 #15198 - 952 523 948 
FLIPCX Abs 86457 415189 - 962 9357 9360 

FPOLL Ext - 380 419 

FUNCRO Ext - 429 436 450 880 
GETDEF Abs 86403 #15183 - 946 433 482 

T/R10 Abs) = 86625 #15261 - 1216 1215 

T/R20 Abs 86638 HIS26E - 1220 1218 
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IDIVA Ext - 1514 

=IN/REP Abs 86613 #15255 - 1213 198 
Insert Abs 7 #00007 - 12 1095 1214 
KCOLO =—Ext - 1613 


KEY100 Abs 85914 #14F9A 481 478 
KEY110 Abs 85984 #14FEO - 500 481 483 
KEY120 Abs 86094 #1504E - 536 500 
KEY130 Abs 86121 #15069 - 543 540 


KEYBUF Ext - 641 1505 1537 

KEYCOD Ext - 412 528 

KEYDON Abs 85966 #14FCE - 497 535 581 

KEYFND Ext - 950 

KEYPTR Ext - 536 1531 

KEYRSO Abs 85528 #14E18 - 380 403 410 457 543 
KEYR60 Abs 85575 #14647 - 393 399 

KEYR68 Abs 85612 #I4E6C - 402 422 

KEYR69 Abs 85619 #14E73 - 405 383 


KEYR70 Abs 85630 #14E7E - 409 394 
KEYR72 Abs 85640 #14688 
KEYR?5 Abs 85830 #14F46 - 459 426 
KEYR8O Abs 85875 #14F73 - 471 461 467 
KEYR9O Abs 85906 #14F92 - 479 473 
=KEYRD Abs 85521 #14E11 
=KEYTYP Abs 86293 #15115 - 821 435 


408 


' 
> 
—_ 
—_ 
ww 
oo 
wo 


' 
i, 
~ 
wo 
—_ 
w 
w 


=KYTYP1 Abs 86314 #1512A - 829 
LERRN = Ext - 761 
=LOWERC Abs 86595 #15243 - 1138 505 
LXTXTT Ext - 68 
MTADDR Ext - 644 
NEEDSC Ext = oF 
NEWTOS Abs 86158 #1508E - 554 552 
NEWT10 Abs 86198 #150B6 - 568 556 566 
NEWTOK Abs 86125 #1506D - 544 520 
=NOSCRL Abs 85130 #14C8R - 56 
POPBUF Ext - 409 
RANGE Ext - 763 
RCLSTA Ext - 891 1094 1213 
RCURON Abs 85120 #14C80 - 17 1% 


RPTK1O Abs 86737 #152D1 - 1800 1498 
RPTK2O0 Abs 86749 #152DD - 1503 1550 
RPTK30 Abs 86809 #15319 - 1519 1522 
RPTK&4O Abs 86822 #15326 - 1523 1520 
RPTK45 Abs 86846 #1533E - 18% 1524 
RPTK47 Abs 86902 #15376 - 1545 1535 
RPTKCC Abs 86828 #1532C 1540 1647 
=RPTKY Abs 86714 #152BA - 1494 386 

RTNCR Abs 85265 #14011 - 165 184 186 


4 
_ 
nn 
ia) 
nn 


SETTHO Ext - 392 
SFLAG? Ext - 764 
SFLAGC Ext - 765 
SFLAGS Ext - 1365 
SFLAGT Ext Sixl39 


=SFlagC Abs 86287 HISIOF - 765 428 463 475 1526 
SFlagS Abs 86681 #15299 - 1365 1328 1400 1502 
SLEEP = Ext a dod 
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=Sf lag? 
TBEN 
TBLINC 
TBST 
TIMER 
TARRST 
UDK; 
=USERK 
=USERX 
USRSTA 
VIEW 
VIEW20 
VIEW30 
=VIEWD4 
=VIEWK 
VIEWUN 
VWFC-2 
WATTKY 
WINDLN 
WINDST 
WIPOUT 
WRITOS 
WRITIO 
WRITE 
=WRTTM1 
=WRTTHR 
WRT TMX 
=aRANGE 
=bf2dsp 
cksreq 
escseq 
FTMOUT 
FICTRL 
FLLC 
f1RPTD 
f LUSER 
Ff LUSRX 
fIVIEW 
kHOFF 
kcCTRL 
ke LE 
kcLERR 
kcUSER 
kcUSEX 
keVIEW 
=keyfnd 
lerrn 
pK YDF 
plTKY 
range 
rstlvl 
savlvl 
sflagt 
usrsta 
sWaitky 


Abs 
Abs 
Ext 
Rbs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ris 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Rbs 
Abs 


2306 


86281 
85389 


85359 


86836 
85313 
86605 
86669 


85696 
85758 
85822 
86343 
86687 
85780 
86336 


85443 
85469 
85406 
86923 
86930 
86949 
86269 
86582 
86241 
86638 


86417 
86262 


86275 


86599 
85977 
86397 
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#15109 
#1408D 


#1 406F 


#15334 
#14041 
#15240 
#1528D 


#14ECO 
#14EFE 
H14F3E 
#15147 
#1529F 
H14F14 
#15140 


#14003 
#14D00D 
#1409E 
#1538B 
#15392 
#153A5 
#150FD 
#15236 
#1 50E 1 
#1526E 
#0000 3 


#15191 
#150F 6 


#15103 


#15247 
#14FD9 
#151702 


764 
206 
19§ 
196 
15H 
152? 
183 
1174 
1362 
499 
427 
442 
456 
881 
1399 
450 
880 
895 
881 
385 
432 
224 
232 
213 
1587 
1588 
1594 
762 
1103 
583 
1221 
14 
453 
521 
1495 
476 
471 
423 
400 
508 
504 
$14 
506 
512 
510 
350 
761 
420 
384 
763 
585 
583 
1139 
499 
895 


424 
189 


189 
158? 
1536 

173 

507 

513 


425 
440 
444 


511 
434 
456 


163 
229 
14? 
1500 


1592 
959 
131 
396 
968 
398 
462 
946 

1501 
479 
474 
42? 


515 


466 


47? 
330 


460 


175 


449 


183 
16929 


1442 


1549 
971 


132? 
1138 
1525 
1171 
1364 
1399 


TW?2 
395 


472 


210 


1007 


1362 


1363 
1548 


480 


226 


1044 


$22 


231 


1256 
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Input Paraneters 
Source file nane 1s MN&ED: MS 
Listing file nane is AN/ED: TI: ML::-1 
Object file nane is MNZED:TI:MS::-1 


414111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 TITLE Zero File - End of chain 
2 00000 00 NIBHEX 00 
3 00002 END 


Saturn Asseribler Zero File - End of chain 
Ver. 3.39/Rev. 2X06 Statistics 


Input Paraneters 
Source file name is JP&ZER::MS 
Listing file nane is JP/ZER:TI:ML::-1 
Object file nawe is JPAZER:TI:MS::-1 


114111 
0123456 789012345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler Neus 


Fri Dec 30, 1983 3:18 an 
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1 k TITTT III & RRRR EEEEE VY 
2 k T I &&8 R RE V+ 
3 x T I 8&8 R RE YoY 
4 x T I & RRRR-~ EEEE VV 
5 x T I &&8& RR E VV 
6 k T I & & RR E ¥ 
7 x T III 8g& & R R_ EEEEE v 
8 
9 TITLE HP-71 Revision Nunber 


10 00000 24 NIBASC \B\ 
11 00002 END 





Saturn Assenbler HP-71 Revision Nunber 
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Input Paraneters 
Source file nane 1s TI8&REV: : MS 
Listing file name is TI/REV: TI: ML: :-1 
Object file nane 1s TIZREV: TI: NS: :-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 


Fri Dec ®, 1983 5:20 an 
Page 2 
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1 
2 
3 
4 
5 
6 
7 
8 
9 


10 153AD 
11 153AD 


ROM 3 Fix Module 


TITTT III & 
& 
& F 
é F 
&&& F 
& F 

F 


FFFFF x 
& OF x 
& 


& 
8% & 


met et et 


I 
I 
I 
I 
III 
TITLE RON 3 Fix Module 


ABS #153AD 
END 


Fri Dec ®, 1983 


X 333 
xX 3 3 


5:20 an 
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Input Paraneters 

Source file nane is TI&FX3::NS 

Listing file nane is TI/FX3:TI:ML::-1 


Object file nane is TIZFX3: TI:MS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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Wow aH oO & w Pr — 


19 
11 
12 
13 
14 
15 
16 
1? 
18 
19 
20 
21 
22 
23 
24 
25 
26 


2? 


29 
30 
31 
32 
cz 


35 
36 
37 
38 
39 
40 
4 
42 
43 
44 
45 
46 
4? 
48 
49 


51 
52 
53 
54 
55 


1551F 


we Oe OF > OF OF OF 
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A BBBB & ccc OL ccc 

AA B B && Beet. Cc. £ 
A AB B && C L C 
A A BBBB & C L C 
ARAAR B BB & K&S C L C 
A AB B& & C CL Ee 
A A BBBB & & CCC LLLLL CCC 


TITLE CALC Mode <831228.1215> 
ABS #1551F 


RDSYNB SBZTAB: = MS 


FOTO TOIT TIO ITO TIT IT IIIT 


ak 
xx 
xk 
xk 
ax 
xk 
ak 
ax 
aK 
ak 
xk 
xk 
xk 
xk 
kk 
ak 
ak 
xx 
xk 
ax 
ak 
xk 
aR 
xk 
xx 
x 
xk 
aK 
ak 
ak 
ae 
ae 
kx 
&k 
ae 
ak 
xx 
xk 
ae 
xt 


CALC MODE STATE TABLE 


The following state nachine approxinates the operation of 
the HP-71 CALC Mode. 


STATE O:OPERAND EXPECTED 


+ NOP. 
BLANK 
- TOKEN EQL TOP(RSTACK) 
NOT THEN 
RSTACK 
ELSE 


TOKEN->RSTACK. 


FUNCTION LPAREN 
THEN 
MAXARG 
THEN 
BEGIN 
TOKEN->RSTACK; 
"(C"~ RSTACK; 
RUN INSERT(")"); 
LEXPTR+2->LEXPTR; 
INDEX COMMA FROM MINARG TO 2 BY -1: 
RUN INSERT(",") 
END 
ELSE 
RUN ERROR 
ELSE 
MINARG 
THEN 
RUN ERROR 
ELSE 
BEGIN 
TOKEN->RSTACK; 
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56 £* 1->STATE 
j 57 ak END. 
: 58 kk 
59 xx 
60 ak NUMBER NUMBER- >NSTACK; 
61 ay OR 1->STATE. 
62 ae VARIABLE 
63 ke 
64 ak ( LPAREN~>RSTRCK; 
65 aa RUN INSERT(RPAREN). 
66 ax 
67 ak 
68 ax ; CURCHAR( CONNA) 
63 ak THEN 
70 ak BEGIN 
71 ae CONNA->RSTACK; 
72 ay RESULTREGISTER->NSTACK 
73 ae END 
74 ak ELSE 
75 ax CURCHAR(RPAREN) 
76 x THEN 
77 aK BEGIN 
78 aA RUN INSERT(COMMA); 
79 es COMNA- >RSTACK; 
80 ze RESULTREGISTER->NSTACK 
81 x END 
82 a ELSE 
83 Re RUN ERROR. 
84 ax 
85 ax 
86 ae ) CURCHAR( COMMA) 
87 ax THEN 
88 xe BEGIN 
89 ae COMMA->RSTACK; 
90 ae RESULTREGISTER- >NSTACK 
91 ax END 
92 ae ELSE 
93 ute CURCHAR( RPAREN ) 
94 an THEN 
95 ae BEGIN 
96 a RPAREN- >RSTACK; 
97 xe ; RESULTREGISTER->NSTACK; 
98 aX 1->STATE 
99 xx END 
100 ak ELSE 
101 Rx RUN ERROR. 
102 ak 
103 ae 
104 ax ALL OTHER INPUTS ARE ERRORS. RUN ERROR. 
105 ae 
106 
107 as STATE 1: OPERATOR EXPECTED 
108 Me 
109 a EOL RUN EXPR; 


110 eX NSTACK- >RESULTREGISTER; 








Saturn Asseribler 
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111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 
129 
1W 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 
146 
14? 
148 
149 
150 
151 
182 


165 


xx 
xx 
xx 
ak 
xx 
ax 
ax 
ax 
aK 
ax 
xx 
xx 
xx 
ax 
xx 
xx 
xx 
xx 
ak 
ak 
xk 
xx 
ax 
ax 
ax 
ax 
aK 
ax 
ax 
ak 
ax 
ax 
Kx 
xx 
xx 
a* 
ax 
ak 
xx 
ax 
aK 
xx 
aK 
aR 
KK 
a 
ax 
ae 
KK 
Kk 
ax 
ax 
kx 
ae 
ak 
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ASSIGNMENT 
THEN 
BEGIN 
RSTACK; 
RUN EXPR; 
RUN DEST; 
RESULTREGISTER->NSTACK; 
RUN STORE 
END; 
STOP. 


7 REPERT 
PRECEDENCE (PLUS, TOP(RSTACK )) 
THEN 
PLUS->RSTACK EXIT 
ELSE 
RUN OPERATE; 
MINUS->RSTRCK; 
Q->STATE. 


BINARY REPEAT 
OPERATOR PRECEDENCE ( TOKEN, TOP(RSTACK) ) 
THEN 
TOKEN->RSTACK EXIT 
ELSE 
RUN OPERATE; 
O->STATE. 


’ CURCHAR(COMNA) 
THEN 
BEGIN 
RUN EXPR; 
CONMA->RSTACK 
END 
ELSE 
CURCHAR(RPAREN ) 
THEN 
BEGIN 
RUN EXPR; 
RUN INSERT (COMMA); 
COMMA- >RSTACK 
END 
ELSE 
RUN ERROR; 
O->STATE. 


) CURCHAR (COMMA ) 
THEN 
BEGIN 
RUN EXPR; 
CONNA->RSTACK; 
O->STATE 
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166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
183 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 


ae 
xk 
ak 
ak 
an 
ax 
ar 
an 
ak 
ak 
ak 
kk 
xx 
a 
a 
xk 
ah 
ak 
xk 
ak 
xk 
a 
ak 
ak 
ak 
ax 
xx 
ax 
a 
xk 
an 
x 
xk 
ak 
xk 
xk 
xx 
xx 
ae 
xk 
aK 
xx 
xx 
wx 
ak 
ax 
xk 
xx 
xk 
ak 
xx 
ax 
kk 
ak 
xk 
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END 
ELSE 
CURCHAR( RPAREN ) 
THEN 
BEGIN 
RUN EXPR; 
RPRREN->RSTACK 
END 
ELSE 
RUN ERROR. 


ALL OTHER INPUTS ARE ERRORS. RUN ERROR. 


STATE 2: BLANK LAST ENTRY 


BLANK TOP(RSTACK) EQL COMMA 
OR TOP(RSTACK) EQL LPAREN 
THEN 
RUN ERROR 
ELSE 
BEGIN 
PRECEDENCE (LIMIT, TOP(RSTACK)) 
THEN 
TOP(RSTACK )->LIMIT; 
RUN OPERATE 
END. 


: PRECEDENCE (PLUS, LIMIT) 
THEN 
BEGIN 
RUN ERROR; 
RUN ADVANCE 
END 
ELSE 
1->STRTE. 


BINARY PRECEDENCE (TOKEN, LIMIT) 
OPERATOR THEN 
BEGIN 
RUN ERROR; 
RUN ADVANCE 
END 
ELSE 
1->STATE. 


, 1->STATE. 

) 

EOL 

ALL OTHER INPUTS ARE ERRORS. RUN ERROR. 


4 
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221 xx CALC «MODE DECOMPILE 
222 aK 
223 ae RUN DUMPBACK; 
224 wk STATE EQL 2 
225 AK THEN 
226 kn RUN DISPLAYNUMBER; 
227 an REPEAT 
228 xk BEGIN 
229 Kk REPERT 
230 ia TOP(RSTACK) EQL EOL 
231 ae THEN 
232 a EXIT REPEAT REPEAT 
233 xx ELSE 
234 ax TOP(RSTACK) IN FUNCTIONSET 
235 ak THEN 
236 xx RUN DISPLAYOPERATOR 
237 ak ELSE 
238 ax BEGIN 
239 an RUN DISPLAYOPERATOR; 
240 am EXIT REPEAT 
241 am END; 
242 ak RUN DISPLAYNUNBER 
243 KK END. 
244 a 


245 FOO III IO TOI IOI OT IIIT TOT TI OTK 
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246 
247 JO IO OOO RTT 
248 an 
249 a STATUS BIT ASSIGNMENTS 
250 x 
251 JOJO III OO OE DDT TK 
252 
253 BEGIN EQU 0 1=>CHECK FOR BEGIN BASIC TOKEN 
254 STRING EQU 1 1=>STRING 
255 ARG EQU 2 1=>ARGUMENT LIST PRESENT 
256 NOP EQU 3 1=>SIGN CHARACTER IS NOT OPERATOR 
257 DSTATE EQU 4 DECOMPILE STATE 
258 RSTATE EQU 5 REDUCTION STATE 
259 LOCAL EQU 6 1=>NON-NULL LOCAL EXPRESSION 
260 ASSIGN EQU 7 1=>ASSIGNMENT STATEMENT 
261 BASIC EQU 8 1=>NON-ASSIGNNENT STATEMENT 
262 SNAG EQU 9 1=>£0L IS NOP 
263 PAREN €EQU 10 1=>STRICT PARENTHESIS MATCHING 
264 VAR EQU 1 1= VARIABLE 
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265 
266 JOO OU OO II STI III II IIT I IIIS II IATA IK 
267 FIO IIIT II TIT TT TOTTI AI II III III ISIS III IIS III SITS IS IIIA IK 
268 aK 
269 = Narie: STKEND - Locate End Of Connand STACK 
270 x 
271 ** Category: LOCAL 
272 ak 
273 ** Purpose: 
274 a To locate the end of the Command Stack. 
275 aR 
276 ** Entry: 
277 ah HEXMODE 
278 ak 
279 ae Exit: 
280 a ACA) = Address of end of Command Stack 
281 ae Carry Clear 
282 aR 
283 ** Calls: Nothing 
284 ae 
285 Kk Uses....... DO, CCS), CCA), ACA) 
286 = 
287 kk Stk lvls: 0 
288 ax 
289 xt History: 
290 7 
231 a Date Programmer Modification 
292 ME Je cesoe)!..isebenieeae:. Yoebiecbscecotetececente cece eee eaew a 
293 - 06/09/83 SA Added docunentation 

x 
sae JIU I III III TOTO T IT SIS III ITI IK 
996 SRI II III IIT ID DIDI TTT OAT OAD III ISISI IIIS III IIIS ISI IIS IIA 
297 1551F 1B00 =STKEND DO=(5) =MAXCND 

000 
298 15526 1564 C=DATO S$ 
299 1552A 1AOO DO=(4) =CLCBFR 
00 

WO 15530 142 A=DATO A 
#1 15533 D2 C=0 A 
#2 16535 132 SE10 ADOEX 
#3 16538 1563 C=DATO xX 
%4 1553C 165 DO=00+ 6 
5 1553F 132 ADOEX 
36 15542 CA A=A+C A 
RH? 16544 A4E C=C-1 § 
8 15547 5DE GONC SE10 
39 1554A 03 RTNCC 
310 FORO ROJO JOO ORO OOO tO 
311 JOGO UII ISI IIIS CIO TOIT IAT IIA 
312 a 
313 *k Nane: SYSTEM - InitializE CALC MODE 
314 ae 
315 4% Category: LOCAL 
316 a 


3? ** Purpose: 
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318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 


343 
344 
345 


346 
347 


348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
353 
360 
361 
362 
363 
364 
365 
366 
367 


1554C 04 

1554E 896 
80 

15554 8F0O 
000 


1555B 8F0O 
000 
15562 8FOO 
000 


15569 310 
1556D 8E00 
00 
15573 7EB3 
15577 74AF 
1557B 131 
1557E 670 
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RR To initialize CALC Mode. 
ak 
&* Entry: 
aK None 
kk 
RK Exit: 
aK See NEWSTM 
kK 
xk Calls: CRLFOF, CLRXDS, DSPRST, SFLAGS, CLOCFR, STKEND, 
ak NENSTM 
kk 
tk Uses....... Everything 


RK Stk lvls: 9 xxxxxxx 


** History: 
ak 


ak Date Programmer Modification 


RX eeceseee Sovebedca 


xk 06/09/83 SA 
ik 


Added docunentation 


SOIT IR TITTIES TI IT 
FOI IO OOOO TST T ITT TT TTT TTR 


=SYSTEM SETHEX 
GOSUBL KILLKY 


GOSBVL =CRLFOF 
GOSBVL =CLRXDS 
GOSBVL =DSPRST 


LC(2) =Ff1CALC 
GOSUBL =SFLAGS 


GOSUB clecfr 
GOSUB STKEND 
D1=A 

GOTO NEWSTN 


KILL KEY VECTOR 

TURN OFF CURSOR 

DISABLE EXTERNAL DISPLAY 
RESET DISPLAY 


SET CALC FLAG 


INITIALIZE DISPLAY PRRANETERS 
FIND END OF COMMAND STACK 


GOTO NEWSTM 


FOR OUI OO ROTI TTI IT 
ORI UOT TOT TT TIT 


ak 


&* Nane: PSHSTM - 


kk Nane: NEWSTN  - 
kk 


Push Statenent On Crd Stack, INIT CALC 
InitiALIZE CALC 


*k Category: LOCAL 

kk 

** Purpose: 

ak PSHSTNM: 

aK Pushes statenent on connand stack, initializes CALC 
ak NEWSTM: 

ak Initializes CALC 

*k Entry: 

kk p = 0 
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368 
369 
370 
3714 
372 
373 
374 
376 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
3386 


38? 


388 
383 


390 
391 
392 
393 


394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
40? 


408 
409 
410 
411 
412 
413 
414 
415 
416 
417 


15582 7760 
15586 3410 
000 
1558D 1B00 
000 
15594 144 
15597 3300 
oD 
1559D 145 
155A0 172 
156A3 133 
155R6 1F0O 
000 
155AD 141 
155B0 174 
16583 141 
15586 £4 
155B8 £4 
155BA 174 
155BD 141 
155CO 1000 
165C4 143 
155C7 1C4 
165CA 141 
155CD 133 
15500 103 
155D3 3311 
OF 
15509 1503 
15500 133 
155EO 1C4 
15563 141 
155E6 08 


15568 854 
155EB 03 
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RK Exit: 
ae p 
kk 


*k Calls: 
kk 


&k Uses....... 
kk 


aX Stk lvls: 
ak 
** History: 
as 


ak Date 
rt 


*k 06/09/83 
ak 


= 0 
STKCND 


Fri Dec 30, 1983 2:29 an 
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A, B, C, D, P, DO, D1 


2 for PSHSTM, O for NEWSTN 


Progranner 


SA 


Nodification 


Rdded docurientation 


JOU ROI IIIT IT TTT TE RTT TK 
FORO II TOT ITO TT TOT TIO 


=PSHSTM GOSUB 
=NEWSTM LCHEX 


bo=(5) 


DATO=C 
LCHEX 


DAT1=C 
01=01+ 
ADIEX 

D1=(5) 


DAT1=A 
B1=D1+ 
DAT1=A 
A=A+1 

R=A+1 

D1=D01+ 
DAT1=A 
D1=(2) 
R=DATI 
D1=D01- 
DAT1=A 
ADIEX 

B1=D1- 
LC(4) 


DAT1=C 
ADIEX 
D1=01- 
DAT1=A 
CLRST 
a ST=1 
ST=1 
RTNCC 


STKCND 
00001 


=$-R1-2 


A 
DOOO 
A 
3 


=RFNBFR 


FORSTK 


SBP Dr DMNDDDMOD 


4 


(tEOL)*#100+811 


4 


5 
A 


BEGIN 
DSTATE 


PUSH STATEMENT ON COMMAND STACK 


INITIALIZE STATEMENT LENGTH, 
CONTEXT LIMIT, & SST COUNT 


INITIALIZE NEW STATEMENT 


INITIALIZE RFNBFR 
INITIALIZE RAWBFR 


INITIALIZE CLCSTK 
READ FORSTK 
INITIALIZE MTHSTK 


INITIALIZE RYNENS 
INITIALIZE STRTUS 


RETURN CRRRY CLEAR 


FOR IID OR OI IIIS SO UCI TO ITO Ik 
FRI ORO RII FIO OO IOI ok 
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418 
418 
420 
421 
422 
423 
424 
425 
426 
427 
428 
‘ 429 
‘ 4n 
431 
432 
433 
"i 434 
i 435 
§ 436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 


447 
448 
449 


450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 


466 
467 
468 
469 


155ED 1F0O 
000 
155F4 1534 
155F8 AC8 
155FB 1E00 
00 
15601 7£62 
15605 CF 
15607 C7 
15609 D6 
1560B 134 
1560E DF 
15610 1553 
15614 E6 
15616 £6 
15618 E6 
1561A 1543 
1561E DS 
15620 816 
18623 1(4 
15626 14B 
15629 3400 
000 
15630 962 
15633 50 
15635 ACI 
15638 174 


ae 
kx 
aa 
ak 
ak 
ak 
aa 
an 
a 
ak 
ax 
an 
ak 
ak 
ak 
ak 
ak 
ak 
a 
ax 
ax 
ar 


xx 
ae 
ak 


CALC Node <831228.1215> 


Nane:(S) STKCHD - 


Category: 


Purpose: 
Pushes 


Entry: 
Pp 


Exit: 
rs) 


Calls: 


Stk lvls: 


History: 


06/09/83 


2:29 an 
Page 10 


Fri Dec ®, 1983 


Pushes Statenent On Conrand STACK 


GENUTL 


statenent on connand stack. 


= 0 
ORGNIO, STREQL, MOVEU3 
A, B, C, D, P, DO, D1 
1 


Modification 


we ee wm ww www we ee we et em ee ee ee ewe wee ee 


Added docunentation 


Progratner 


wee ewww eee 


SA 


SOI I TT TTT TTT TI TT ITI STITT N 
FOO ITO IOI TID IT II ITT I 


=STKCND D1=(5) =MAXCND 


PSO5 


A=DATI 
B=A 
DI=(4) 


GOSUB 
D=D-1 
D=D+D 
C=A 
DO=C 
CDEX 
DAT1=C 
C=C+1 
C=C+1 
C=C+1 
DATO=C 
B=C 
CSRC 
D1=01- 
A=DATI 
LCHEX 


?A=C 
GOYES 
B=0 
D1=D1+ 


S READ COMMAND STACK DEPTH 

Ss 

=RAWBFR 

ORGNIO COUNT CHARACTERS IN LINE 

A 

A CONVERT BYTES TO NIBBLES 

A 

A 

K WRITE LENGTH TO START OF LINE 
A 

A 

A 

x WRITE LENGTH TO END OF LINE 
A 

5 

B READ LAST CHARACTER OF LAST LINE 
00000 

B ENDLINE? 

PSO5 IF SO, GOTO PSO 

S SET STACK COUNTER TO ZERO 

5 
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470 15638 
471 1563F 
472 15641 
473 15644 
474 15648 
475 15648 
476 15640 
477 15650 
478 15653 


479 15659 
480 15658 
481 1565E 
482 15660 
483 15663 
484 15665 
485 15668 
486 15668 
487 1566E 
488 15670 
489 15673 
49) 15675 
491 15673 
492 1567C 
493 1567F 
494 15681 
495 15684 
496 15687 
497 1568A 
498 1568E 
439 15691 
500 15693 
501 18695 
502 15698 
503 15698 
504 1569E 
505 156A1 
506 156A3 
507 156A5 


508 
509 
510 
514 
S12 
513 
514 
515 
516 
517 
518 
519 
520 
521 


Oo 
woe 


2306 


80DF 
oD 
1€2 
1573 
935 
13 
A3D 
BBS 
8E00 
00 
D2 
5E2 
E5 
400 
CD 
BB1 
ABS 
809 
DF PS20 
134 
DF 
1523 
RBS 
133 
ER 
133 
AAD 
59B 
1673 PS40 
133 

C2 

22 

809 

134 

162 

131 

DF 

EB 


PS10 


PS30 


B=B-1 
BSL 
C=B 
C+P+1 
CDEX 
DO=C 
CDEX 
A=DATO 
B=A 
ADIEX 
A=A-C 
ADT EX 
B=B-1 
GONC 
C=DAT1 
ADIEX 
C=A+C 
p= 
C+P+1 
DO=C 
DO=D0+ 
DI=A 
CDEX 
C=C-D 
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_ 
mn 


nx xX Ox KW 
8 


STREQL 


R 
PS40 


A 


PS20 
A 
x 
x 


A 
A 
x 
x 
A 
S 


PS10 
x 


A 
2 
3 


A 
A 


8COO =MNoveu3 GOLONG =MOVEU3 


00 


2:29 an 
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Fri Dec 30, 1983 


SET POINTER FOR STRING COMPARISON 


READ PREVIOUS STATEMENT LENGTH 
EQUAL TO NEW STATEMENT LENGTH? 
IF NOT, GOTO PS30 


COMPARE STRINGS 


IF EQUAL, GOTO PS40 
COMPUTE REMAINING LENGTH TO START 


RESET DO TO START OF NEW STNT 


RESET NEW STATEMENT LENGTH 
COMPUTE ADDR OF HIGHER STACK ELT 
STACK TRAVERSED? 

IF NOT, REPEAT PS10 


COMPUTE ADDR OF LOWER STACK ELT 


COMPUTE LENGTH OF STACK ELEMENT 
DELETE STACK ELEMENT 


JORIS III OOOO OO IOI III IOI OK 
JOO I OIC IOI IGT II I IOI IK 


ae 


ae 


XR Nane: 


KEYCHR - 


** Category: 


ak 


** Purpose: 
Gets next character in key definition, supplies EOL or 
left parenthesis if necessary. 


x 
xk 
ak 


®* Entry: 


xe 
ah 


RK Exit: 


P 


LOCAL 


Gets Next Char Of Key DefinITION 
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523 
524 
525 
526 
527 
528 
523 
530 
531 
532 
533 
534 
§35 
536 
537 
538 
539 
540 
541 
542 
$43 


544 
545 
$46 
547 
548 
549 
550 
551 
552 
5§3 
554 
555 
566 
567 
558 
5$9 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 


156AB 


156B2 
156B6 
156B9 
156BC 
156BF 
156C2 
156C5 
156C8 
156CA 
156CD 
15600 
15603 
15606 


15608 
15608 
156DE 
156E2 
156E5 
156E8 
156EB 
156EF 
156F2 
156F5 
156F9 
156FC 
156FE 
16701 


1703 
15706 
15709 
1570D 
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Page 12 
xx P = 0 
RE Modifies DEFADR: decrenents length field, increnents 
aa address. 
Ka Carry Set => A(B) = Next character in key definition. 
x Carry Clear=>Key definition exhausted. 
kk 
** Calls 
ah 
RX Uses....... A, C, DO 


ak 


Kk Stk lvls: 0 
a 


** History: 

ak 

Ax Date Progranner 
PR Vu ece de iceatemca 
xx 06/09/83 SA 

kk 


Modification 


Added docunentation 


FOR RII TOTTI OORT I ITT TTT IK 
FORT OTT RT TTT TT RIO 


1B00 KEYCHR DO=(5) =DEFADR 
000 

1523 A=DATO XK 

REC A=A-1 B 

4E1 GOC ENDDEF 
148 DATO=A B 

162 DO=D0+ 3 

146 C=DATO A 

136 CDOEX 

DO A=0 A 

14A A=DATO B 

161 DO=D0+ 2 

136 CDOEX 

144 DATO=C A 

02 RTNSC 

84A =ENDDEF ST=0 PAREN 
AB2 C=0 K 
1543 DATO=C X 

R24 A=A+A XS 
501 GONC END30 
A24 A=A+A XS 
3102 tcrsc \ \ 
R24 A=A+HA XS 
490 GOC END20 
3182 LCASC = \(\ 
A24 —END1O «=R=AHA XS 

DO END20 A=O A 

AEA A=C B 

01 RTN 

R24 END3O) = AERHR CXS 
490 GoC END40 
31D0 LCHEX OD 
6BEF GOTO ENDIO 


READ DEFINITION INFORMATION 
STRING EXHAUSTED? 

IF $0, GOTO ENDDEF 

STORE BYTES REMAINING 


READ DEFINITION ADDRESS 


READ NEXT CHARACTER 


STORE ADDRESS 
RETURN CARRY SET 


SET TERMINAL STATUS 
LEX TABLE ENTRY? 
IF NOT, GOTO ENDH 


LOAD BLANK 

REQUIRED? 

IF $0, GOTO END2O 
LOAD LEFT PARENTHESIS 
REQUIRED? 


IF SO, SET CARRY & RETURN 


NONTERMINATING USERKEY? 
IF $0, GOTO END40 

LORD CARRIAGE RETURN 
GOTO END10 
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57? 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
§94 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 


625 
626 
627 
628 
629 


16711 


15713 
15716 
1571A 
15710 
1S71F 
19723 
15726 


1§72D 
157 
15734 


1573A 
1573D 


03 


506 
31A1 
SEZ 
06 
7212 
AES 
1B00 
OO 
AB2 
1540 
{ROO 
OO 
142 
131 
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END40 RTNCC RETURN CARRY CLEAR 
JOIST IO ITO IIIT ITT T ITI TIT OTT T IT IK 


JORIS III III III III DI II TIS IIT ISI III IIIS IIIT IIIT IIIT I III IIIS IAS 
re 
xk Nane: BUFFER - Insert CHAR AT RAWBFR 


ak 

*k Category: LOCAL 

kk 

** Purpose: 

& Insert char at RAWBFR, or junp to CALC Edit Routines. 
kx 

*k Entry: 

a P = 0 

xx A(B) = Character to be inserted or jumped on. 

ax Carry Clear => Jurip into Cormand Stack because of 

ak unrecoverable error. 

ok 

ae Exit: 

aa p = 0 

& x Carry Set => B(B) = Character inserted at RAWBFR, which 
ak hay have been roved. 

aK Carry Clear => Something Strange happened. Please note 
as that, of those CALC Edit Routines which return, most do 
a so ulth Carry Clear. See CALC for nore infornation. 

i 

xk Calls: CLCCFR, ERRMSG, HASH2 (and the whole CALC Edit 
ae systen), MEMBER, INSRT1 

&k 

*k Uses....... Everything 

ak 

** Stk lvls: 6 

ik 

*k History: 

aK 

xk Date Progranner Modification 

$e: cso, (Bees? cece oeomtece Sot oe Stecet ate sous 
*k 06/09/83 SA Added documentation 

ax 


FOR OI III TOI IO OI II TO IOI 
FORK UI ICO UO OOOO TTI IOI 


BUFFER GONC FORCE IF CARRY CLEAR, GOTO FORCE 
LCHEX 1A 
7AcC OB CONTROL CHARACTER? 
GOYES CTRL IF SO, GOTO CTRL 
GOSUB clecfr RESET DISPLAY PARAMETERS 
B=A 8 MOVE INPUT CHARACTER 10 B 
DO=(5) (=S-R1-2)+4 
C=0 P 
DATO=C P KILL SST COUNT 
DO=(4) =RANBFR 
A=DRTO A 
01=A 
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630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 


654 


655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 


666 
667 


668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 


16740 148 
15743 3192 
15747 965 
1574R 04 
1574C 962 
1574F 01 
15751 87A 
15754 61 
15756 31C2 
1575A 966 
1575D DO 
1S75F 171 
15762 137 
15765 144 
15768 02 


1576R 03 


1576C 3100 
15770 77C1 
15774 3100 
15778 DO 
15778 REA 
1877D 3400 
000 
15784 8C00 
00 


1578A 31C2 
1578E 965 
15791 01 
15793 962 
15796 9C 
15798 3192 
1579C 966 
1579F BC 
157A1 RE4 
157A4 3006 
F5D5 
B504 
B3R3 
15784 20 
157B6 8E0O 
00 
157BC 580 
157BF 31B7 
15703 9E2 
157C6 90 
187C8 3112 
187CC AES 
157CF 71H 
15703 489 
15706 145 
157D9 02 
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BF R30 


BFR55 
BF REO 
FORCE 


CTRL 


BF R40 


BF R50 


BFRS1 
BFR52 


R=DAT1 B 
LCASC \)\ 
7BaC OB 
GOYES BFR40 
*A=C OB 
GOYES BFR 
?ST=1 PAREN 
GOYES BFRS55 
LCASC \,\ 
7AHC OB 
GOYES BFR55 
D1=B1+ 2 
CD1EX 

DATO=C A 
RTNSC 
RITNCC 
LC(2)  =eL2LNG 
GOSUB ERRMSG 
LC(2) =kcBOT 
A=0 ) 

A=C 
Le(5) 


GOLONG =HASH2 


B 
=CLCET1 


LCASC 
7BRC 
GOYES 
7AzC 
GOYES 
LCASC 
PARC 
GOYES 
A=B 
LCRSC 


\,\ 

B 
BFRSO 
B 


BFRH# 
\)\ 
B 


BFRSS 
B 
\@(]_\ 


P= 13 
GOSUBL =NEMBER 


BFRS1 
\{\ 
B 


BFRS2 
Bee 
B 


GOSUB INSRT1 
GOC BFR6O 
DATI=C A 
RTNSC 


GONC 
LCASC 
AKC 
GOYES 
LCASC 
B=C 
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RERD CHARACTER AT RANBFR 


RIGHT PARENTHESIS GIVEN? 

IF NOT, GOTO BFRAO 

RIGHT PARENTHESIS EXPECTED? 

IF $0, GOTO BFR3 

STRICT PARENTHESIS MATCHING ON? 
IF SO, GOTO BFRSS 


COMMA EXPECTED? 

IF NOT, GOTO BFRSS 
ADVANCE RAWBFR 
RETURN CARRY SET 


RETURN CARRY CLEAR 


FORCE EDIT 


JUMP TO EDIT FUNCTION 


COMMA GIVEN? 

IF NOT, GOTO BFR5O 
COMMA EXPECTED? 

IF SO, GOTO BFRX 


RIGHT PARENTHESIS EXPECTED? 
IF NOT, GOTO BFRS5 


TRANSLATE ILLEGAL CHARACTERS TO ! 


INSERT CHARACTER AT RAWBFR 

IF INSERTION FAILS, GOTO BFREO 
UPDATE RAWBFR 

RETURN CARRY SET 


FO IOI OU OIRO IIT 
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679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
638 
699 
700 
701 
02 
703 
204 
705 
706 
707 
708 
709 
710 
711 
ete 
713 
714 
115 
716 
71? 
718 
719 
720 
721 
22 
723 
724 
725 

26 
72? 
728 
729 
730 
731 
732 
733 


157DB 31E5 
157DF 961 
1S7E2 00 
157E4 31F2 
157E8 961 
157EB 00 
157ED 3132 
157F1 961 
157F4 BO 
157F6 31E2 
1S7FA 9E5 
157FD 00 
TS7FF 03 


xx 
a 
xk 
xk 
xk 
ak 
xk 
ak 
xk 
wk 
ax 
ak 
xk 
ax 
a 
ak 
x 
ax 
xx 
Kx 
ax 
xk 
ak 
ak 
ak 
xx 
ak 
xk 
xx 
aa 
xk 
ax 
ak 
ak 
ak 
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SIO IO IIIS III IIT III II III III IIIT IIIS IIIS IS ASIII SIS SI SIS 
Narie: ACTIVE - Check Need For CALC ReduCTION 
Category: LOCAL 
Purpose: 

Determine whether to activate CALC Mode Reduction 

Engine. 
Entry: 

P = 0 

B(B) = Character to perforn activation test on. 


Active characters are ~, /, and anything less than 


ASCII period. 
Exit: 

P = 0 

Carry Set => Active character. 
Calls: 
Uses....... B(B), C(B) 
Stk lvls: 90 
History: 

Date Prograrner Modification 

06/09/83 SA Added docunentation 
07/08/83 SA Deleted # from activation set 


FOI III III II ICICI ITOK 


JO UII OI TOG IOC III K 
ACTIVE LCASC \*\ 
*B=C iB INVOLUTION OPERATOR? 
RTNYES IF SO, RETURN CARRY SET 
LCASC \/\ 
*B=C =oiB DIVISION OPERATOR? 
RTNYES IF SO, RETURN CARRY SET 
LCASC \#\ 
*B=C iB NOTEQUAL OPERATOR? 
GOYES ACTV1O IF SO, RETURN CARRY CLEAR 
LCASC = \.\ 
*BcC OB OTHER ACTIVATION CHARACTER? 
RTNYES IF SQ, RETURN CARRY SET 
CTV1O RINCC RETURN CARRY CLEAR 


A 


aK 
xk 
ae 
xk 
xx 
xk 
aR 


FORO IRIE OI IOI IO IO IOI 
SO RIO RO IDO UO OOOO OI UII OO RIOT II I Ik 


Nane: INSRTO - Insert A CharacTER AT RANBFR 
Narie: INSRT1 - Insert A CharacTER AT RAWBFR 


Category: LOCAL 
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734 
735 
736 
737 
738 
733 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 


767 
768 


769 
770 
771 
772 
773 
774 
775 


776 
77? 
778 
779 
780 
781 
782 
783 
784 
785 


15801 AES 
16804 3406 
000 
15808 RE? 
1580E 1FOO 
000 
15815 14F 
15818 Bob 
15818 9E7 
1581E 00 
15820 REF 
15823 R66 
15826 1B00 
000 
15820 142 
15830 EE 
15832 18E 
15835 142 
15838 £4 
1583A £4 
1583C E2 
1583E 400 
15841 AEB 
15844 14D 


CALC Mode <831228.1215> 


kk 


** Purpose: 
te 

ah 
ak Entry: 
ih p 


Exit: 
ak Pp 


D1 
C(A 
B(B 


Calls: 


Stk lvls 
History: 


ak 
ak 
ax 
ak 


06/10/8 


) 
) 


3 


2:29 ari 
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Fri Dec , 1983 


Insert character at RAWBFR 


= 0 


For INSRTO, character in C(B) 
For INSRT1, character in B(B) 


= 0 


Carry Set => Insufficient Memory or Line Too Long. 
Carry Clear => 


RAWBFR 
New value for RAWBFR, if it needs noving. 
Character inserted. 


wot ot 


MOVED1 
A, B, C, D, P, DO, D1 
1 


Modification 


ew meme wm wm eee mew em me ee Ke MO Oe meee 


Added docunentation 


Progranner 


we we wee wee 


FORO OOO TT TT TTT TTT TTT TT TE TT 
FORO IOI TO TITS TI ITT ITT TT ITT TTI TTT RITE IK 


INSRTO B=C 
INSRT1 LCH 


D=C 
Di= 


C=D 
C=C 
70> 
RTN 


Dit it H wou 


EX 


(5) 


AT 
+4 
D 
YES 


B SAVE CHARACTER IN B 

00060 LOAD COMPARISON VALUE 

B 

=S$-R1-2 

B READ CURRENT LENGTH 

B INCREMENT LENGTH 

B TOO LONG? 
IF SO, RETURN CARRY SET 

B 

B 

=AVMEMS 

A READ AVMENS 

A 

15 

A READ CLCSTK 

A 

A 

A TOO LITTLE FREE SPACE? 
IF SO, RETURN CARRY SET 

B 

B UPDATE STATEMENT LENGTH COUNT 
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786 15847 140 DATO=A A UPDATE CLCSTK 
78? 1584A 184 DO=D0- 5 
788 1584D 131 D1=A 
789 15850 CC A=A-1 A 
790 15852 CC A=A-1 A 
791 15854 8E00 GOSUBL =NOVED1 OPEN RAW BUFFER 
00 
792 15858 AE4 A=B B 
793 15850 148 DATO=A B INSERT NEW CHARACTER 
794 15860 137 CDO1EX PREPARE FOR RAWBFR UPDATE 
795 15863 1F0O D1=(5) =RAWBFR 
000 
796 1586A 03 RTNCC RETURN CARRY CLEAR 
797 JO III I OI ICO IOI TIO OC COO TOR EK 
798 FOI III OO IO IO IOC ISO IIT TTI TOK 
799 aK 
800 xk Nane: ORIGIN - Find Start Of Crd Stk ELEMENT, CNTCHR 
801 kk Wane: CNTICHR - Count Characters In ELEMENT 
802 aK 
803 ** Category: LOCAL 
804 ak 
805 ** Purpose: 
806 ak Locate start of current Conmand Stack elerent; count 
807 aK characters in the elenent. 
808 aK 
809 *k Entry: 
819 RK P = 0 
811 aK For ORIGIN, backscan starts at RFNBFR. 
812 - For ORGN1O, backscan starts at pointer pointed at by 
813 x D1, 
814 - For CNICHR, backscan starts at pointer in A(A). 
815 & 
816 aK Exit: 
817 ak Pp = 0 
818 aK 01 @ Start of current Corinand Stack elenent. 
819 ak D(B) = Nunber of characters + 1 
820 ak 
821 aK 
822 aK 
823 Rk Calls: 
824 SS 
825 aK Uses....... A, C, D, D1 
826 aK 
827 kk Stk Ivls: 0 
828 ak 
829 *k History: 
830 ae 
831 a Nate Progranner Modification 
832 Re tes at. Gate en paella es el ee Bi ee te aS 
$33 ** 6966/10/83 SA Added docunentation 
3 aR 
ee ORO OO UO OO OO ISO OI OO IOI III IOI 
836 JOIST I III II UO I TORTI 


837 1586C 1F0O =ORIGIN D1=(5) =RFNBFR 
000 : 
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838 15873 143  ORGN10 A=DRT1 A 
839 15876 131 =CNTCHR Di=A 
840 15879 D3 D=0 A 
841 15878 B67? BACKUP D=D+1 8B 
842 1587E 11 Di=D1- 2 
843 15881 14F C=DAT1 B 
844 15884 96E CHO) —O#B 
845 15887 4F GOYES BACKUP 
846 15889 1C0 Di=Di- 1 
847 1588C 03 RINCC 
848 $2 JOJO OR TOTO 
849 SOIT JO JI OO OIE 
85 xx 
851 ** Nane: CALC - Entry Point FoR CALC MODE 
852 ak 
853 ** Category: SYSTEM 
854 tk 
855 %* Purpose: 
856 ak This is CALC Mode. 
857 ak 
858 **® Entry: 
859 ak NONE 
860 he 
861 ak Exit: 
862 ak NONE 
863 ne 
864 ** Calls: Everything in ABCLC, ABBLD, ABED 
865 sta 
866 tk Uses....... Everything 
867 kk 
868 kK Stk lvls: 7 
869 as 
870 ** History: 
871 RK 
872 aS Date Progranner Modification 
873 RS (2eceeses. Vbcetsdesoes . Reve ccett ose chee oe elt 
874 tk 06/10/83 = SA Added docunentation 
£x 

10 III IOI TOS ISO TIO SII IIIS ISIE 
877 JUSSI OIC OIG IIIT TOO SII II IIR SE I SI 
878 1588E 7ABC =CALC GOSUB SYSTEM CREATE CALC MODE SYSTEM 
879 15892 8F0O GOSBVL =TNOFF? CHECK TURNOFF FLAG 

000 
880 15899 3400 LC(5)  =kc OFF 

000 
881 158A0 DA A=C A 
882 158A2 461 GOC EDITOR 
883 158A5 8E0O OSPLAY GOSUBL =BUILD DECOMPILE REDUCED EXPRESSION 

00 
884 158AB 7A4O NXTKEY GOSUB CLCKEY WAIT FOR KEY, FIND KEY DEFINITION 
885 158AF 55F GONC DSPLAY IF ILLEGAL KEY, REPEAT DSPLAY 
886 158B2 75FD =NXTCHR GOSUB KEYCHR GET NEXT CHAR IN KEY DEFINITION 
887 158B6 SEE GONC DSPLAY IF DEFN EXHAUSTED, REPEAT DISPLAY 
888 15889 765E EDITOR GOSUB BUFFER PLACE CHARACTER IN BUFFER 
889 158BD 54F GONC  NXTCHR IF BUFFER ERROR, REPEAT NXTCHR 
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890 
891 
892 
893 
894 
895 
896 
897 
898 
899 


900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
91? 
918 
319 
920 
921 
922 
923 
924 
925 
926 
927 
928 
923 
39% 
931 
932 
933 
934 
935 
936 
937 
938 
939 


940 


941 


158C0 
158C4 
15807 
158CB 
158CF 
158D2 
15806 
158D9 7FE4 
15800 SBD 
158E0 8E0O 
00 
1S8E6 7890 
158ER 60CF 


771F 
5DE 
7CRO 
2060 
59E 
7334 
58D 


IS8EE 21 
158FO OD 
158F2 84D 
158F5 63CF 


158F9 8E00 
00 

158FF 8E00 
00 

15905 8002 


=C 


ax 
ak 
ax 
ak 
ax 
aX 
xx 
ax 
xk 
ax 
xx 
ax 
ak 
ax 
ak 
xx 
xk 
ak 
ak 
ax 
ak 
xx 
aK 
xk 
ka 
as 
ak 
ak 
xx 
kk 
ar 
xk 


C 
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GOSUB ACTIVE ACTIVATION CHARACTER? 
GONC NXTCHR IF NOT, REPEAT NXTCHR 
GOSUB REDUCE REDUCE EXPRESSION 
GOSUB ERRMSG DISPLAY MESSAGE IF NECESSARY 
GONC EDITOR IF ARG COUNT ERROR, FORCE EDIT 
GOSUB SYNTAX CHECK FOR, DESTROY SYNTAX ERROR 
GONC  NXTCHR IF EXPR INCOMPLETE, REPEAT NXTCHR 
GOSUB RESULT STORE RESULT OR PROCESS STATEMENT 
GONC EDITOR IF ILLEGAL STATEMENT, FORCE EDIT 
GOSUBL =FINAL DISPLAY FINAL RESULT 
GOSUB =PSHSTN DELETE OLDEST STMT, CLEAR STACKS 
GOTO  NXTKEY REPEAT NXTKEY 

LCERR P= 1 
P=P-1 CLEAR CARRY 
ST=0 13 CLEAR PROGRAM RUNNING FLAG 
GOTO EDITOR GOTO EDITOR 


FOI OI IIIT OI I ITT TTT TTT TTT OK 
FOTO OOOO I JO III 


Nane: CLOKEY - Find Key Def And ValidatE TYPE 
Category: LOCAL 
Purpose: 

Find key definition, validate key type 
Entry: 

P = 0 
Exit: 

P = 0 

Sets up DEFADR. 

Carry Set => Key type OK. 
Calls: KEYRD, ATNCLR, ERRMSG, CLCCFR 
Uses....... Everything 
Stk lvls: xxxxxxx 
History: 

Date Progranner Modification 

06/13/83 SA Added docunentation 


OURO JOR JOIO OI OTITIS OI GOI III OOO 
FOI SIO ROTO RTO II ICO IGT OIC 


LOKEY GOSUBL =KEYRD GET KEY VECTOR 


GOSUBL =atnelr CLERR ATTN FLAG 


P= 


om 
ce 
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942 


943 
944 
945 
946 
947 
948 
949 
950 
951 
962 
953 


954 
955 
956 
957 
968 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
983 
990 
991 


15909 3FFF 
FFFF 
FF10 
1111 
OF 
1591B 20 
1591D 94A 
15920 DO 
15922 BAG 
15925 400 
15928 85A 
1592B 02 


1592D 3100 

15931 7600 

15335 8C00 
00 


1593B 96A 
1593E 00 
16940 109 
15943 7106 
15947 111 
1594A D2 
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LCHEX FO111101FFFFFFFF 

P= 0 

720 $ ILLEGAL KEY TYPE? 

GOYES KEYERR IF SO, GOTO KEYERR 

C=C+1 S$ USER-DEFINED KEY? 

RTNC IF NOT, RETURN CARRY SET 

ST=1 PAREN DENOTE STRICT PAREN MATCHING 

RTNSC RETURN CARRY SET 
KEYERR LC(2) =eILKEY 

GOSUB ERRMSG DISPLAY ILLEGAL KEY MESSAGE 
clecfr GOLONG =CLCCFR RESET DISPLAY, RETURN CARRY CLEAR 


SOR JRO IIIT TIT TIS IIIT IIT I IN 
FORO III TO TORT TT III IIIT II TIT IIT 
xx 


xk Nane: ERRMSG - Send Error Or Warninc IN CALC MODE 
kk 


** Category: LOCAL 
kh 


** Purpose: 
x 


ee Send Error or Warning Message in CALC Mode 


xk Entry: 
ak C(B) 
KK Exit: 


ae P = 0 
ae Carry Clear => Line Too Long or Paraneter Misnatch 


0 
Error Nunber (Zero causes innediate return) 


won 


** Calls: STAKUP, STAKDN, MFWRN, WARITKY 
AR USCS cmos Everything 

AK Stk lvls: xxxxxxx 

be History: 


xk Date Progranner Modification 
PR res? Re, 8 le RAN Nae ae eet Areas 


xk 06/13/83 = SA Added docunentation 

kk 

JOO OIG OOO OTT IT TE TIO 
JOGO OO IU TTI TT TTR 


=ERRMSG ?(=0 =6B 
RTNYES 
R1=C 
GOSUB STAKUP 
R=R1 
C=0 A 
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992 
993 
994 


995 

996 

997 

998 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
10142 
1013 
1014 
1015 
1016 
101? 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 


1042 
1043 


1594C 
1594F 
15951 


15958 
1595C 
15960 
15963 
15967 
1596A 
1596C 
15970 
15973 
15975 


15977 
1597E 


AEG 
28 
8FO0 
000 
7000 
7516 
111 
3100 
962 
BO 
3100 
966 
00 
03 


1B00 
000 
6E00 


1044 15982 D2 
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{=A B 
P= 8 
GOSBVL =MFWRN 


GOSUB =Waitky 
GOSUB STAKDN 
A=R1 

LC(2) =eL2LNnG 
7A=C OB 

GOYES EN10 
LC(2) =ePRMIS 
oAHC OB 
RTNYES 


ENO ~—soRTNCC 
FOTO TI II IIR TIT ITI I I IIIA TI IIIS III IIIS IIIS IIIS IITA IISA IIL 


OIRO RIOR OO TOIT 
xk 


** Nane:(S) REDUCE - Parse And Execute Partial ExpresSIONS 
kk 


** Category:  MTHUTL 

kk 

kk Purpose: 

a Parse and execute partial expressions in calc mode. 
kx 

kk Entry: 

ax P = 0 

kx 

AX EME 

xs P = 0 

ka 

*k Calls: NTOKEN, RANGE, MEMBER, PUSH, BLDCON, NRNCON, 
< STAKUP, STAKDN, FNARG, ARYARG, ARGLNT, PUSH11, 
ae INSRTO, ORIGIN, SKPARG, PARPRP, COMPIL, ARGCNT, 
ais PRCONC, CLCEXP, CLCBTS, STKBAK 

ka 


BE SOS id ies Everything 
ak 


AX Stk Ivls: 6 
kk 


** History: 
ae 


xx Date Programmer Modification 

Mies eoeceten keke, See ate ca lote eee ok eo eee 
xk 06/13/83 SA Added docunentation 

*k 08/03/83 SA Static fix to Bug 9597. 

a Packable BSS 3 created belon 

xk label S0-30. 


ax 
FOI JO ROU IGOR OIG OO ICI IOI 
FORO ROR ROI IOI 


=REDUCE DO=(5) =RFNBFR INITIALIZE 
GOTO = START GOTO START 
HERE C=0 A 
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1045 
1046 
1047 


1048 
1049 


1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 


1067 
1068 
1069 
1070 
1071 


1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 


1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 


15984 02 


15986 1B00 
000 
1598D 142 
15990 1AO0 
00 
15996 146 
15999 DS 
15998 184 
1599E 3102 
159R2 6900 
159R6 171 
159A9 133 
159AC 140 
159AF 888 
159B2 0D 
159B4 133 
15987 148 
159BR 962 
159BD 9E 


CYCLE 
START 


BLANK 
BFRIST 


x 
x 


159BF 8FOO 
000 

199C6 310F 

159CA 966 

159CD 50 

159CF 171 

159D2 3400 SAVRFN 
000 

15909 137 

1590C 145 

1590F D2 

159E1 873 

153E4 00 

159E6 871 

159E9 44 

159EB 875 

159EE 54 

159FO 3178 STATEO 

159F4 962 

159F? F8 


159F9 3318 SO-10 
28 
1S9FF 7F35 
15A03 433 
15A06 REB 
15AO9 7294 
15AOD 134 
15A10 161 
15A13 14A 
15A16 3108 
1SR1A 962 


CALC Mode <831228.1215> 


RTNSC 
DO=(5) =STMTD1 


R=DATO A 
DO=(4) =RAWBFR 


TST 


DATO=A A 

7A>=B A 
GOYES HERE 
ADIEX 

A=DAT1 B 

*A=C OB 
GOYES BLANK 
?$T=1 BEGIN 
GOYES STMT 
GOSBVL =NTOKEN 


LC(2)  =tEOL 
RHC OB 
GOYES SAVRFN 
D1=D1i+ 2 
LC(5) =STNTD1 


CDIEX 
DATI=C A 
C=0 A 
?ST=1 
RTNYES 
?ST=1 
GOYES 
?ST=1 
GOYES 
LC(2) 
AC OB 
GOYES 


LCHEX 


GOSUB 
COC 

B=A B 
GOSUB 
DO=C 

DO=D0+ 2 
A=DATO B 
iC(2) = 
eA=C OB 
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READ RFNBFR 


READ RAWBFR 


GOTO BFRIST 
INCREMENT RFNBFR 


UPDATE RFNBFR 
RFNBFR = RAWBFR ? 
IF SO, RETURN CARRY SET 


READ NEXT CHARACTER 

BLANK? 

IF SO, REPEAT BLANK 

SEARCH FOR BEGIN BASIC TOKEN? 
IF SO, GOTO STAT 

GET FIRST TOKEN IN RAW BUFFER 


ENDLINE TOKEN? 
IF NOT, GOTO SAVRFN 


SAVE RFNBFR AS MOVED BY NXTTKN 


FALSE LIVE CHARACTER? 

IF SO, RETURN CARRY SET 
STRING LEXENE? 

IF SO, GOTO SO-15 

STATE 1, OPERATOR EXPECTED? 
IF SO, GOTO STATE1 


UNARY PLUS? 
IF SO, REPEAT CYCLE 


UNARY MINUS OR LOGIGAL NOT? 
IF NOT, GOTO S0-26 


READ TOP OF PASSIVE STACK 
INVOLUTION OPERATOR? 
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1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1106 
1106 
1107 


1108 
1109 


1110 
1111 
1112 
1113 
1114 
1115 
1116 
114? 
1118 
1119 
1120 
1121 
1122 
1123 
1124 


1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
113? 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 


15A1D 01 

15R1F AE4 
15A22 7894 
15A26 854 
15A29 6C5F 
15A2D 3100 
15A31 02 

15A33 6851 
1583? 
15A3A 
15A3D 


ACO 
ACI 
3592 
1FOF 
15R45 25 
15A47 8E00 
00 
15R4D 4F3 
15A50 876 
15A53 62 
15A55 3192 
15R59 966 
15A5C 80 
15ASE 855 
15A61 856 
15964 31F?7 
15A68 AES 
15R6B AEC 
{SAGE 7554 
15A72 RE4 
15875 6591 
15A79 1B00 
000 
146 
164 
144 
63AF 


15880 
1583 
15A86 
15A89 


15A8D 
15A91 
15A94 
15A98 
15R9C 
15ARAO 
15AA4 


78E? 
4c} 

70B4 
731? 
7AB3 
7104 
$44 


15AA? 6870 
15RAB 000 


15ARE 317 
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GOYES 
A=B 
GOSUB 
ST=1 
GOTO 
LC(2) 
RTNSC 


S0-15 


S1-LNK GOTO 


S0-20 A=0 
B=0 
LCHEX 


P= 
GOSUBL 


GOC 
?S$T=1 
GOYES 
LCASC 
PARC 
GOYES 
ST=1 
ST=1 
LC(2) 
B=C 
ABEX 
GOSUB 
A=B 
GOTO 
00=(5) 


C=DATO 
DO=D0+ 
DATO=C 
GOTO 


30-21 


S0-22 


GOSUB 
GOC 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
ST=0 
KAMARA KER KKK KK 
* ST=1 
* Sat 
k GOTO 
FOR Rk 
GOTO 
CON(3) 


KAKAKARRIK KARR 


SO-50-LC(2) 


S0-15 

B 
PUSH11 
DSTATE 
CYCLE 
=eILCNT 


STATE 
S 
S 
FOF129 


5 
=NEMBER 


S0-30 
LOCAL 
$0-22 
\)\ 

B 


S0-21 
RSTATE 
LOCAL 
=tRES 

B 

B 

PUSH 

B 

$1-00 
=RFNBFR 


A 
5 
A 
SO-15 


=BLDCON 
$0-50 
STAKUP 
NRNCON 
PSHNUM 
STAKDN 
DSTATE 


RSTATE 
LOCAL 
CYCLE 
B9597 
=FIXSPC 


=tFN 
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IF SO, GOTO S0-15 
PUSH NEW OPERATOR 
REPEAT CYCLE 
CONTEXT ERROR 
RETURN CARRY SET 


SHORT JUMP LINKAGE 


RIGHT PAREN, CONNA, OR ENDLINE? 


IF NOT, GOTO SO-30 
NON-NULL LOCAL EXPRESSION? 
IF SO, GOTO S0-22 


BUGFIX 9597 ON 830803 -SA 


PUSH RESULT TOKEN 
GOTO $1-0 


BACK UP RAWBFR TO RFNBFR 
GOTO SO-15 


CONSTANT? IF SO, FLOAT 

ELSE GOTO S0-50 
MOVE OPERATOR STK TO ACTIVE POSN 
TIDY UP CONSTANT 
PUSH NUMBER ON OPERAND STACK 
MOVE OPERTR STK TO PASSIVE POS’N 


BUGFIX 9597 ON 830803 -SA 
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1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 


1167 
1168 
1169 


1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
118? 
1188 
1189 
1190 
1191 


1192 
1193 
1194 
1195 
1196 
1197 
1198 


15AB2 966 
15AB5 51 
15AB7 7535 
15ABB 4F4 
15ABE 3100 
15AC2 02 
15AC4 3100 
15AC8 02 
15ACR 86B 
15ACD FO 
TSACF 862 
15AD2 74 
15RD4 7BC4 
15AD8 6A50 


15ADC 3182 
15AEO 962 
15AE3 C6 


15AES 33R6 
3B 


15AEB 7354 
1SAEF 440 
15AF2 3308 
bg 
15AF8 7644 
T5AFC 570 
15AFF D9 
15801 134 
15804 181 
15807 70A3 
1580B 872 
15BOE C1 
15B10 3100 
15B14 94D 
15B17 00 
15819 7AR3 
15810 854 
15B20 855 
15623 856 
15B26 6FSE 


15B2A 3100 
15B2E 948 
15B31 00 
15B33 7093 
15B37 1F0O 
000 
15B3E 147 
15841 £6 
15B43 E6 
15B45 145 
15848 3182 
15B4C REA 
15B4F ACY 


CALC 


ROURN 
$0-52 


S0-70 


S0-73 
B9597 


S0-74 


$0-75 


50-76 


Mode <831228.1215> 


PARC 
GOYES 
GOSUB 
GOC 
LC(2) 
RTNSC 
LC(2) 
RTNSC 
?S$T=0 
GOYES 
?S$T=0 
GOYES 
GOSUB 
GOTO 


LCASC 
*A=C 
GOYES 


LCHEX 


GOSUB 
GOoc 
LCHEX 


GOSUB 
GONC 
C=B 
DO=C 
DO=D0- 
GOSUB 
?ST=1 
GOYES 
LC(2) 
?BHO 
RTNYES 
GOSUB 
ST=1 
ST=1 
ST=1 
GOTO 


LC(2) 
?R=0 
RTNYES 
GOSUB 
b1=(5) 


C=DAT1 
C=C+1 
C=C+1 
DAT1=C 
LCASC 
A=C 
C=B 


B 

$0-52 
FNARG 
$0-72 
=eFNNTF 


=eROWRN 


VAR 
50-60 
ARG 
$0-73 
ARYARG 
S0-75 


\C 

B 
S0-76 
B36A 


Range j 
ROWRN 
8080 


Range) 
ROURN 
A 


2 
ARGLAT 
ARG 
S0~74 
=eNSPAR 
$ 


PUSH 
DSTATE 
RSTATE 
LOCAL 
CYCLE 


=eI LPAR 
S 


PUSH 
=STMTD1 


A 
A 
A 
A 
\C\ 
B 
S 
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USER-DEFINED FUNCTION? 

IF NOT, GOTO S0-52 

GET FUNCTION ARGUAENT COUNT 
IF FUNCTION FOUND, GOTO S0-72 
FN NOT FOUND 

RETURN CARRY SET 

OPERAND EXPECTED 

RETURN CARRY SET 

VARTABLE? 

IF NOT, GOTO SO-60 

SIMPLE VARIABLE? 

IF $0, GOTO S0-73 

GET ARRAY ARGUMENT COUNT 
GOTO S0-75 


LEFT PARENTHESIS? 


IF SO, GOTO SO-76 


FUNCTION? 
IF NOT, GOTO ROWRN 


ARITHMETIC OPERATOR? 
IF SO, GOTO ROWRN 


READ ARGCOUNT LIMITS 
ARGUMENT LIST PRESENT? 
IF SO, GOTO S0-74 


ARGUMENT LIST REQUIRED? 
IF SO, RETURN CARRY SET 
PUSH FUNCTION TOKEN ON STACK 


STRATE 1, OPERATOR EXPECTED 
NON-NULL LOCAL EXPRESSION 
REPEAT CYCLE 


ZERO ARGUMENT FUNCTION? 
IF SO, RETURN CARRY SET 
PUSH FUNCTION TOKEN 


MOVE LEXPOINTER PAST PARENTHESIS 
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1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 


1219 
1220 
1221 
1222 
1223 


1224 
1225 
1226 
1227 
1228 


1229 
1230 
1231 
1232 
1233 


1234 
1236 
1236 
123? 
12 38 
1239 


1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 


15B52 7863 
15B56 3192 
15B5A 94E 
15B85D DO 
15B5F 7E9C 
15863 461 
15866 31C2 
15B6A A4E 
15B6D 51F 
15870 854 
15B73 846 
15876 6FOE 
15B7R 189 
15B7D 17A 
15B80 147 
15B83 144 
15B86 3100 
15B8A 02 
15B8C 32A8 
2 
15891 936 
15894 7? 
15B96 877 
15899 27 
1589B 1B00 
000 
15BR2 146 
158A5 135 
15BA8 DO 
15BAR 15B3 
15BRE 3411 
OFO 
15BB5 8A2 
15BB8 84 
15BBA 7EAC 
15BBE 172 
15BC1 8FOO 
000 
15BC8 868 
15BCB 83 
15BCD 862 
15BD0 60 
15BD2 7764 
15BD6 3400 
000 
15BDD 137 
15BEO 143 
15BE3 8A6 
15BE6 D1 
15BE8 3103 
15BEC AEA 
15BEF 7BC2 
15BF3 854 
15BF6 845 


CALC 


$0-77 


$0-78 


S0-79 


STATE 


ROP 10 


Mode <831228.1215> 


GOSUB 
LCASC 
?CHO 
GOYES 
GOSUB 
GOC 
LCASC 
C=C-1 
GONC 
ST=1 
ST=0 
GOTO 
DO=D0- 
01=D1+ 
C=DAT1 
DATO=C 
LC(2) 
RTNSC 


LCHEX 


7AHC 
GOYES 
?$T=1 
GOYES 
bO=(5) 


C=DATO 
D1=C 
A=0 
A=DATI 
LCHEX 


*A=C 
GOYES 
GOSUB 
D1=D1+ 
GOSBVL 


*$T=0 
GOYES 
*ST=0 
GOYES 
GOSUB 
LC(5) 


CDIEX 
R=DATI 
PARC 
GOYES 
LCASC 
A=C 
GOSUB 
ST=1 
ST=0 


PUSH11 
\)\ 

S 
S0-78 
INSRTO 
$0-79 
\,\ 

§ 
S0-77 
DSTATE 
LOCAL 
CYCLE 
10 

11 

A 


A 
=eL2LNG 


28A 


x 

$1-00 
ASSIGN 
$1-0 
=AVNENS 


A 


A 
4 
OFO11 


A 
NOTROP 
ORIGIN 
3 
=NTOKEN 


VAR 
NOTROP 
ARG 

ROP 10 
SKPARG 
=RFNBFR 


A 

A 
NOTROP 
\=\ 

B 
PUSH11 
DSTATE 
RSTATE 
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PUSH LEFT PARENTHESIS 
LORD RIGHT PARENTHESIS 


INSERT CHARACTER 

IF INSERTION FAILS, GOTO S0-79 
LOAD COMMA 

INSERTION REQUIRED? 

IF SO, REPEAT S0-77 


NEW LOCAL EXPRESSION 
REPEAT CYCLE 


READ UPDATED RFNBFR 
WRITE TO RFNBFR 
LINE TOO LONG 
RETURN CARRY SET 


EQUALITY OPERATOR? 

IF NOT, GOTO S1-00 

ASNANT OPERATOR ALREADY FOUND? 
IF SO, GOTO $1-00 


HAS DESTINATION BEEN EVALUATED? 
IF 30, GOTO NOTROP 


GET FIRST TOKEN ON LINE 


VARIABLE? 

IF NOT, GOTO NOTAOP 
ARRAY? 

IF NOT, GOTO ROP10 

SKIP ARGUMENT LIST 


"=" AT CURRENT RFNBFR? 
IF NOT, GOTO NOTROP 


PUSH ASSIGNMENT OPERATOR 
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1249 
1250 
1251 
1252 


1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 


1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
129 


1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 


15BF9 846 
158FC 857 
15BFF 668D 
1503 32h8 


2 
1§CO8 ABR 
15COB 3198 
1SCOF 962 
1612 23 
1514 301 
15€17 962 
15C1A A2 
15C1C 310F 
15€20 962 
1§€23 £4 
16C25 3192 
15C€29 962 
16C2C 54 
1SC2E 3128 
15C32 966 
15C35 91 
15C37 851 
15C3A 307 
15C3D A&A 
18C40 6D20 


15C44 68ED 


1648 3100 
15C4C 02 
15C4E 358 
D8 
7REZ 
551 


16C54 
15C€58 
15C5B 311F 
1SCSF 966 
15C62 GE 
16C64 31C2 
15C68 AEA 
15C6B 846 
15C6E 845 
15C71 ABS 
15C74 1800 
000 
15C7B 148A 
1SC7E 968 
15C81 FO 
18(83 7863 
1§C87 501 
15C8A REO 
15C8D 148 
16C90 7454 
16€94 6310 
15C€98 855 


CALC Mode <831228.1215> 


NOTROP 


31-00 


$1-05 
RIWRN 


$1-10 


31-20 
$1-21 


31-22 
31-23 


ST=0 
ST=1 
GOTO 
LCHEX 


A=C 
LC(2) 
*R=C 
GOYES 
LC(1) 
PA=C 
GOYES 
LC(2) 
?A=C 
GOYES 
LC(2) 
?A=C 
GOYES 
LC(2) 
PARC 
GOYES 
ST=1 
LC(1) 
A=C 
GOTO 


GOTO 


LC(2) 
RTNSC 


LCHEX 


GOSUB 
GONC 
LC(2) 
RAC 
GOYES 
LCASC 
A=C 
ST=0 
ST=0 
B=A 
DO=(5) 


R=DATO 
?A=0 
GOYES 
GOSUB 
GONC 
A=0 
DATO=A 
GOSUB 
GOTO 
ST=1 


LOCAL 
ASSIGN 
CYCLE 
28R 


x 
=t& 

B 
$1-05 
=tNOT 
B 
$1-05 
=tEOL 
B 
$1-21 
VA 

B 


$1-21 
=t- 

B 
$1-10 
STRING 
=t¢ 


P 

$1-20 
S0-15 
=eR1WRN 


8D80 


Range) 
$1-20 
=tCONNA 
B 

RIWRN 
\5\ 

B 

LOCAL 
RSTATE 


XK 
(=S-R1-2)+2 


B 

B 
S1-22 
PRCDNC 
$1-23 
B 

B 
PARPRP 
S1-26 
RSTATE 
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REPEAT CYCLE 
REGENERATE EQUALITY OPERATOR 


CONCRTENATOR? 
IF SO, GOTO $1-05 


LOGICAL NOT? 
IF 30, GOTO S$1-05 


END OF LINE? 
IF $0, GOTO S$1-21 


RIGHT PARENTHESIS? 
IF SO, GOTO $1-21 


MINUS (AS IN SUBTRACT)? 
IF NOT, GOTO S$1-10 
RECORD MINUS 


CREATE PLUS TOKEN 
GOTO $1-20 


ARITHMETIC OPERATOR? 
IF SO, GOTO $1-20 


COMMA? 
IF NOT, GOTO RIWRN 
DECOMPILE USES ASCII COMNA 


NEW LOCAL EXPRESSION 
STATE 0, OPERAND EXPECTED 


READ CONTEXT LIMIT 
NULL? 

IF SO, GOTO $1-22 
CONTEXT ERROR? 

IF SO, RETURN CARRY SET 


NULLIFY CONTEXT LIMIT 
PREPARE FOR PARSING 
GOTO $1-26 
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1301 15C9B 3100 LC(2) =ePRCER PRECEDENCE ERROR 
1302 15C9F 02 RINSC RETURN CARRY SET 
1303 15CA1 ACB S1-25 C=D S 
1304 15CA4 7254 GOSUB  COMPIL COMPILE TOKEN 
1305 15CA8 7B84 S1-26 GOSUB ARGCNT VERIFY FUNCTION ARGUMENT COUNT 
1306 15CAC 3100 LC(2) =ePRNIS 
1307 15CBO AC? D=C S 
1308 15€B3 400 RTNC IF NOT OK, RETURN CARRY SET 
1309 15CB6 7583 GOSUB = PRCDNC NEW OPERATOR OF LOWER PRECEDENCE? 
1310 15CBA 46E GOC $1-25 IF SO, REPEAT S1-25 
1311 15CBD 185 DO=D0- 6 
1312 15CCO 3311 LC(4) ( tRELOP)*#100+#11 
AB 
1313 15C€C6 F1 BSL A 
1314 15CC8 F1 BSL A 
1315 15CCA AES B=C B 
1316 15CCD DD BCEX A 
1317 15CCF 23 P= 3 
1318 15CD1 915 7BHC OW RELOP? 
1319 15CD4 70 GOYES $1-2? IF NOT, GOTO S1-27 
1320 15CD6 180 DO=D0- 1 
1321 15CD9 24 P= 4 
1322 18CDB 1541 S$1-27 DATO=C WP PUSH NEW OPERTR ON PASSIVE STACK 
1323 15CDF 20 P= 0 
1324 15CE1 861 ?$T=0 STRING CHANGESIGN REQUIRED? 
1325 15CE4 FO GOYES $1-28 IF NOT, GOTO S1-28 
1326 15CE6 3311 LC(4)  (t-) *#100+811 
28 
1327 15CEC 183 DO=D0- 4 
4328 15CEF 15C3 DATO=C 4 PUSH CHANGESIGN OPERATOR 
1329 15CF3 7505 S1-28 GOSUB CLCEXP EXECUTE ACTIVE OPERATORS 
1330 15CF7 7006 GOSUB CLCBTS RESTORE STATUS BITS 
1331 15CFB 161 DO=D0+ 2 
1332 15CFE 7662 GOSUB STKBAK MOVE UNUSED OPRTRS TO PASSIVE STK 
1333 15D02 854 ST=1 DSTATE 
1334 15005 608C GOTO CYCLE REPEAT CYCLE 
1335 JX III OID I IIIT I SI SSI 
1336 FOI IOI TOOT TOTO I III IIT 
1337 on 
1338 ** Nane: SYNTAX - Purge Characters In CALC Syntax ERROR 
1339 am 
1340 ** Category: LOCAL 
1341 ae 
1342 *% Purpose: 
1343 ae Purge characters involved in CALC Mode syntax error. 
1344 a 
1345 kx Entry: 
1346 ae P = 0 
134? a 
1348 AE EMITS 
1349 a P = 0 
1350 Carry Set => Statement conplete. 
1351 a.m 
1352 ** Calls: CLCCFR, MOVEU1 


1353 ue 
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1354 FE USGS 05 050 A, B, C, DB, P, DO, D1 
1355 a 
1356 ** Stk lvls: 1 
1357 wh 
1358 ** History: 
1353 aR 
1360 tk “Date Progranner Modification 
1361 KR men nen ne teen meen en nen nn nen nnn nen nn rn ne en nner n ee 
1362 06/13/83 SA Added docunentation 
ae JOGO III IOS TOT ITI TI ITA IOI IL 
1365 JOU OIC TOSI ISIS III ISI TIS IO ISAT SSA 
1366 15009 782C =SYNTAX GOSUB clccfr 
1367 15D0D 1AOO DO=(4) =RFNBFR 
0 
1368 15013 146 C=DATO A READ RFNBFR 
1369 15016 164 DO=D0+ 5 
1370 15D19 142 R=DATO A READ RAWBFR 
1371 15D1C 86 7AHC OA LEFT RAWBUFFER CONSUMED? 
1372 1SDIF £0 GOYES SNTX10 IF NOT, GOTO SNTX10 
1373 15021 164 DO=D0+ 5 
1374 15024 146 C=DATO A READ CLCSTK 
1375 15027 EA A=A-C A RIGHT RAWBUFFER CONSUMED? 
1376 15029 CC A=A-1 Ai IF SO, SET CARRY 
1377 15D2B 01 RTN RETURN 
1378 15D2D 06 SNTX10 RSTK=C SAVE RFNBFR 
1379 15D2F 131 D1=A EXAMINE END OF LEFT RAWBUFFER 
1380 15D32 3192 LCASC \)\ 
1381 15036 AEA A=C =i 
1382 15D39 31C2 LCASC \,\ 
1383 15D3D AES B=C =B 
1384 15D40 31D0 LCHEX OD 
1385 15D44 RE? D=C B 
1386 15047 1€1 SNTX15 01=D1- 2 BACK UP 
1387 15D4A 14F C=DAT1 B READ CHARACTER 
1388 15D4D 3962 *A=C) iB RIGHT PARENTHESIS? 
1389 15D50 7F GOYES SNTX15 IF SO, REPEAT SNTK15 
1390 15D52 961 *B=C iB COMMA? 
1391 15D55 2F GOYES SNTX15 IF SO, REPERT SNTX15 
1392 15057 963 7C=D ==B EOL? 
1393 15D5A DE GOYES SNTX15 IF SO, REPEAT SNTX15 
1394 15D5C 171 D1=D1+ 2 
1395 15D5F 133 AD1EX LERVE RIGHT RAWBFR IN A 
1396 15D62 07 C=RSTK RECALL RFNBFR 
1397 15D64 863 ?$T=0 NOP INCOMPLETE EXPONENT? 
1398 15067 25 GOYES SNTX40 IF NOT, GOTO SNTX40 
1399 15D69 135 Di=C 
1400 15D6C 31B2 LCASC = \+\ 
1401 15D70 RES B=C B 
1402 15D73 31D2 LCASC = \-\ 
1403 15D77 RE? D=C B 
1404 15D7A 171 SNTK20 01=D1+ 2 INCREMENT TEXT POINTER 
1405 15D7D 14F C=DAT1 B READ CHARACTER 
1406 15D80 961 7B=C ==B PLUS SIGN? 
1407 15D83 51 GOYES SNTX30 IF $0, GOTO SNTXX 
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1408 15D85 967 CHD = =o«BB MINUS SIGN? 
1409 15D88 2F GOYES SNTX20 IF NOT, REPEAT SNTX20 
1410 15D8A 171 D1=D1+ 2 INCREMENT TEXT POINTER 
1411 1508D 14F C=DAT1 B READ CHARACTER 
1412 15090 967 7c#D OB MINUS SIGN? 
1413 15093 50 GOYES SNTX30 IF NOT, GOTO SNTX30 
1414 15D95 1C1 Di=D1- 2 DECRENENT TEXT POINTER 
1415 15098 137 SNTX30 CDIEX LEAVE LEFT RAWBFR IN C 
1416 15D9B 144 SNTX35 DATO=C A UPDATE RAWBFR 
1417 15D9E 135 01=C 
1418 15DA1 164 DO=D0+ 5 
1419 15DA4 800 GOSUBL -=MOVEU1 DELETE GARBAGE 
00 
1420 15DAA 137 CDIEX 
1421 1SDAD 1FOO D1=(5) =CLCSTK 
000 
1422 15DB4 145 DAT1=C A UPDATE CLCSTK 
1423 15DB7 03 RTNCC 
1424 15DB9 7EDF SNTX40 GOSUB SNTX35 
1425 JORIS IIIS ISIC III IIIT 
1426 JIG UII ICIS ISCO OOOO I SII 
1427 ak 
1428 ** Nane: KILLKY - Zeros MenORY AT DEFADR 
1429 am 
1430 ** Category:  KEYUTL 
1431 ak 
1432 ** Purpose: 
1433 xx Blitzes length and type fields of DEFADR. 
1434 a 
1435 *k Entry: 
1436 ae NONE 
1437 wk 
1438 AK Exit: 
1439 aR C(A) = 0 
1440 xx 
1444 ** Calls: 
1442 xe 
1443 Kk Uses.....0. C(A), D1 
1444 aK 
1445 Kk Stk lvls: 0 
1446 xk 
144? ** History: 
1448 ae 
1449 es Date Progranner Modification 
1450 RP Se, at, Beate e Reece ee ae ee ere ats 
1451 *k 66/13/83 SA Added docunentation 
a ks 
ae ORO RI IOI ORR RRO ORR RRO to ott oto 
1454 JIS IUD IO ISI III IO ISIS IIIS IGS IG UII 
1455 15DBD 1FOO =KILLKY D1=(5) =DEFADR 
000 
1456 15004 D2 C=0 A 
145? 150C@ 1553 DATI=C X KILL REMAINDER OF KEY DEFINITION 
1458 150CA 03 RTNCC RETURN CARRY CLEAR 


1459 KEKE KAKA ARE HRI AMER RAE RRA ERR ER ER AR EAHA ER ERR ER RARER KR ER EEK RAR KE AE 
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1460 JOC GUIS TOGO OCCT TSOTSI IARI IITA STII 
1461 a 
1462 ** Nare: RESULT - Store Result In RESREG & DestinATION 
1463 ak 
1464 4% Category: LOCAL 
1465 ah 
1466 ** Purpose: 

1467 ax Store result in RESREG, compute destination address (if 
1468 ae there 1s one), and store result there. 
1469 a 
1470 ak Entry: 
1471 ak P = 0 
1472 ak 
1473 Rk Exit: 
1474 aK P = 0 
1475 aR Carry Clear => Illegal destination. 
1476 RR 
1477 aK Calls: DINSTK, POP1N, PARPRP, ARGCNT, COMPIL, CLCEXP, 
1478 ak DEST, CLCBTS, RESTOR, STORE, STRKDN, ERRMSG 
1479 aE 
1480 aX Uses....... Everything 
1481 ak 
1482 xk Stk lvls: 6 
1483 aR 
1484 xk History: 
1485 at 
1486 te Date Progranner Modification 
1487 aaa aaa aaa aati 
1488 06/13/83 = SA Added docunentation 
x 

Lae JOISTS COTS TT SIT IIIS IIIT IIA 
1494 JI SOI III TOI ITO TIO STII OTTO SI IOI IAT TS ITI IIIT SIAL A 
1492 15D(C 8EOO RESULT GOSUBL =DINSTK 

00 
1493 x *ST=1— BASIC NON-COMNPUTE STATEMENT? 
1494 x GOYES BSCCHK IF SO, GOTO BSCCHK 
1495 15002 1B00 DO=(5) =RESREG 

000 
1496 15009 8FOO GOSBVL =POP1N POP RESULT 

000 
1497 1S5DEO 561 GONC RSLT1O IF REAL, GOTO RSLT10 
1498 15DE3 31£0 LCHEX OE WRITE COMPLEX SIGNATURE 
1499 15DE7 14C DATO=C B 
1500 1SDEA 161 DO=D0+ 2 
1501 15DED 118 C=RO 
1502 15DFO 1547 DATO=C W WRITE IMAGINARY PART TO RESULT 
1503 15DF4 16F DO=D0+ 16 
1504 15DF7 1507 RSLT1O DATO=A W WRITE REAL PART TO RESULT 
1505 15DFB 04 SETHEX 
1506 15DFD 867 ASNCHK ?ST=0 ASSIGN ASSIGNMENT STATEMENT? 
1507 15E00 00 RTNYES IF NOT, RETURN CARRY SET 
1508 15602 17F D1=D1+ 16 
1509 15E05 3400 LC(S) =MTHSTK 

000 


1510 15€0C 13? CDIEX 
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1511 
1512 
1513 
1514 
1515 
1616 
151? 
1518 


1519 
1520 
1521 


1522 
1523 
1524 
1625 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1642 
1543 
1544 
1545 
1546 
1547 
1548 


1549 


1550 
1581 
1662 


1553 
1554 
1585 
1556 
155? 
1558 
1569 
1560 


15EOF 145 
15E12 72D2 
15E16 16? 
15E19 7A13 
15E1D 442 
15€20 76D2 
15E24 74A4 
15£28 8E00 
00 
15E2E 7604 
15E32 7410 
15€36 8E00 
00 
{5€3C 7531 
15E40 02 


15E42 3100 
15E46 64FA 


15E4R 1FOO 
000 

15E51 8FOO 
000 

15€58 04 


15E5R 1B00 
000 
15E61 146 
15£64 135 
15667 441 
15E6A 1CF 
15E6D 1517 
15€71 137 
15E74 144 
15€77 135 
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DRT1=C A 
GOSUB PARPRP 
DO=00+ 8 
GOSUB ARGCNT 
GOC B0Z0 
GOSUB COMPIL 
GOSUB CLCEXP 
GOSUBL =DEST 


GOSUB CLCBTS 
GOSUB RESTOR 
GOSUBL =STORE 


GOSUB STAKDN 
RTNSC 


BOZO = =LC(2) =ePRNIS 
GOTO ERRMSG 


X*BSCCHK GOSUB C=ANS 
DO=C 
DO=00+ 10 
A=BATO B 
LC(2) =tRDIAN 
C=C-A B 
GOC CLCDSP 
C=C-1 8 
LC(2) =f LRAD 
GOC CLCRAD 
GOSBVL =SFLAGC 
GOTO RESTOR 
CLCRAD GOSUBL =SFLAGS 
GOTO RESTOR 


CLCDSP DO=DO+ 4 
C=DATO B 
GOSBVL =SETFNT 
GOSBYL =SETDGT 


ee a 
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DELETE MATH STACK 


COMPLETE DESTINATION PARSE 
VERIFY ARGUNENT COUNT 

IF ERROR, GOTO 8020 

COMPILE TOKEN 

COMPUTE DESTINATION ADDRESS 
SAVE DESTINATION ADDRESS 


STORE RESULT IN DESTINATION 


RETURN CARRY SET 


RETURN CARRY CLEAR 


READ STATEMENT TOKEN 


DISPLAY FORMAT STATEMENT? 
IF SO, GOTO CLCDSP 
SET RADIANS NODE? 


IF SO, GOTO CLCRAD 

SET DEGREES MODE 

RESTORE PREVIOUS RESULT & RETURN 
SET RADIANS MODE 

RESTORE PREVIOUS RESULT & RETURN 


FUORI OI I IOI TOTTI OI OT. 


RESTOR D1=(5) =RESREG 
GOSBVL =POP1N 
SETHEX 


FOO IOI ITT IT IIIT 


PSHNUM DO=(5) =MTHSTK 


C=DATO A 

b1=C 

GOC PUSH-Z 
Di=D1- 16 
DATI=A W 

NEWNTH CDIEX 

DATO=C A 
D1=C 


LOCATE OPERAND STACK 


PUSH REAL NUMBER ON GPERAND STACK 
UPDATE OPERAND STACK POINTER 
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1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 


1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1692 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1619 
1611 
1612 
1613 
1614 


157A 02 
15E7C 1CF 
15E7F 1517 
15E83 110 
15€86 1CF 
15€89 1517 
15€8D 31€0 
15691 1C4 
15694 140 
15—97 1537 
15698 65DF 
15E9F 1B00 
000 
15ER6 146 
15EAS 01 


15EAB 1524 
15EAF AC8 
15EB2 160 
15EBS 1524 
15€B9 160 
15EBC 01 


15EBE ACO 
15—C1 B44 
15€C4 AC8 
15EC7 70H 
15€CB 70DF 
15ECF FA 
15ED1 309 
15€D4 FA 
15ED6 136 
15ED9 1501 
15EDD 20 
15EDF 180 
15EE2 1504 
15EE6 ACC 
15EE9 180 
15EEC 1504 
15EFO ACC 
15EF3 136 
15EF6 144 


2:29 ar 
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RTNSC RETURN CARRY SET 
PUSH-Z D1=D1- 16 

DATI=A W PUSH REAL PART GN OPERAND STACK 

A=RO 

DI=D1- 16 

DATI=R W PUSH IMAG PART ON OPERAND STACK 

LCHEX OE 

DI=D1- 2 | 

DATI=C B PUSH COMPLEX STACK SIGNATURE 

A=DATI W 

GOTO NEWNTH GOTO NEWNTH 


IORI TTI DIT TIAL IIIT IIIT IIL ISI IIIA IISA ISIS III SISISSSSA III SIS. 
C=ANS DO=(5) =AVAMENS 


C=DATO A 


KIRK IK IKK KKK KRISTI BIKE SOO TTT RII IO IIR TIO 


ARGLNT A=DATO S READ MINARGCOUNT 
B=A S$ 
BO=D0+ 1 
A=DATO S$ READ MAXARGCOUNT 
DO=D0+ 1 
RTN RETURN 


BI III KI III IIIS II SISII SSIS IDI SSISISIS SSIS ISISIISSSSIS IIS ISIS ISIS SA 
*NONCMP LCHEX D4D3 


: GOSUBL =RANGE DEGREES OR RADIANS? 

: GONC NCHP10 IF SO, GOTO NCNP10 

LCHEX OFOCO1EF 

x GOSBVL =XRANGE STD, FIX, SCI, OR ENG 

. RTNC IF NOT, RETURN CARRY SET 
ANCMP1O ST=0 BEGIN 

s ST=1 BASIC 

x GOSUB PUSH PUSH TOKEN 

. LcASC \ \ 

- A=C B PUSH BLANK 


JO II TIT IIII III IAT ITI IIIT III II ISI STS SSI SII ISIS SII SI IK 
PUSH11 A=0 S 


A=A+1 § 
B=A S 
PUSH GOSUB TKNLEN DETERMINE TOKEN LENGTH 
GOSUB C=ANS READ ADDR OF PASSIVE OPERATOR STK 
C=-C A 
C+P+1 COMPUTE NEW PASSIVE STACK POINTER 
C=-C Ai 
CDOEX 
DATO=A WP WRITE OPERATOR TO STACK 
P= 0 
DO=D0- 1 
DATO=A S$ WRITE MAXARGCOUNT TO STACK 
ABEX § 
DO=D0- 1 
DRTO=A S WRITE MINARGCOUNT TO STACK 
ABEX § 
CDOEX 
DATO=C A SAVE NEW PASSIVE STACK POINTER 
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1615 15EF9 03 RTNCC RETURN CARRY CLEAR 
1616 JOO ICICI IO IOI OIC COO CT II 
1617 15EFB 33C7 TKNLEN LCHEX 7D7C 
07 
1618 15FO1 70% GOSUB Rangej FN OR ARRAY TOKEN? 
1619 15FOS 3406 LCHEX 06960 
960 
1620 15FOC 4D0 GOC TKNLN3 IF NOT, GOTO TKNLN3 
1621 15FOF 23 TKNLN1 P= 3 SET FOR 2-BYTE TOKEN 
1622 15F11 906 7ARC OP ALPHADIGIT INDICATOR PRESENT? 
1623 15F14 00 RTNYES IF NOT, RETURN 
1624 15F16 25 TKNLN2 P= 5 SET FOR 3-BYTE TOKEN 
1625 15F18 02 RTNSC RETURN 
1626 15F1R 7420 TKNLN3 GOSUB Range) ALPHADIGIT VARIABLE? 
1627 15F1E SOF GONC  TKNLNI IF SO, GOTO TKNLN1 
1628 15F21 3138 LC(2)  =tXFN 
1629 15F25 962 *A=C OB XROM FUNCTION? 
1630 15F¢8 EE GOYES TKNLN2 IF SO, GOTO TKNLN2 
1631 15F2AR 31FE LC(2) =tXWORD 
1632 15F2E 962 7A=C OB XROM KEYWORD? 
1633 15F31 5E GOYES TKNLN2 IF SO, GOTO TKNLN2 
1634 15F33 31A8 LC(2) =tRELOP 
1635 15F37 21 P= 1 SET FOR 1-BYTE TOKEN 
1636 15F39 966 RHC OB RELOP? 
1637 15F3C 00 RTNYES IF NOT, RETURN CARRY SET 
1638 15F3E 22 P= 2 SET FOR 3-NIBBLE TOKEN 
1639 15F40 02 RTNSC RETURN 
1640 JUG OO OI IEC OOO UICC OTTO 
1641 15F42 8C00 =Rangej GOLONG =RANGE 
00 
1642 JOO IOI TO TI TO TTI 
1643 15F48 1800 =STAKUP DO=(5) =CLCSTK MOVE OPERTR STK TO ACTIVE POS’N 
000 
1644 15F4F 142 A=DATO A 
1645 15F52 131 Di=A 
1646 15F55 16€ BO=D0+ 15 
1647 15F58 142 A=DATO A 
1648 15F5B8 164 DO=DO+ 5 
1649 15F5E 8E00 STKUP1 GOSUBL =NOVEU1 
00 
1650 15F64 6F20 GOTO NEWANS GOTO NEWANS 
1651 SOI II IU III CIT I 
1652 15F68 132 =STKBAK ADOEX MOVE UNUSED GPRTRS TO PASSIVE STK 
1653 15F6B 703F GOSUB C=ANS 
1654 15F6F DE RCEX A 
1655 15F71 6C10 GOTO  STKDN1 GOTO STKON1 
1656 
1657 15F75 1B0O =STAKDN DO=(5) =NTHSTK MOVE OPRTR STACK TO PASSIVE POS’N 
000 
1658 15F7C 142 R=DATO A 
1659 15F7F 131 b1=A 
16b0 15F82 184 DO=D0- 5 
1661 15F&5 142 A=DATO A 
1662 15F88 18E DO=DO- 15 


1663 15F8B 146 C=DATO A 
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1664 15F8E 8E00 STKDNI GOSUBL =NOVED2 
00 
1665 15794 137 NEWANS CD1EX 


1666 15F97 1F0O D1=(5) =AVNENS UPDATE AV MEMORY START POINTER 
000 
1667 15F9E 145 DAT1=C A 
1668 15FA1 03 RTNCC RETURN 
: 1669 RAKKKAKEKKAKAKKREREEKEA KIJIJI OOO TOK 
1670 15FA3 131 ARYARG DI=A SAVE TOKEN IN 01 
1671 15FR6 1800 DO=(5) =FUNCRO 
000 
1672 15FAD 1585 DATO=A 6 WRITE WANE TO UNUSED MENORY 
1673 15FB1 161 DO=D0+ 2 
1674 15FB4 8E00 GOSUBL =ADDRSS DETERMINE POINTER ADDRESS 
00 
: 1675 15FBA 133 ADIEX RESTORE TOKEN 
i 1676 15FBD 442 GOC = ARY10 IF VAR NONEXISTENT, GOTO ARY10 
1677 15FCO 31A1 LCHEX 1A 
1678 15FC4 AE7 D=C =i 
1679 15FC7 14€ C=DATO B READ TYPE & DIMENSION INFORMATION 
1680 15FCA 983 7D OP SIMPLE REAL VARIABLE? 
{ 1681 15FCD 51 GOYES ARY10 IF SO, GOTO ARY10 
4 1682 15FCF 963 7<D iB SIMPLE NON-REAL VARIABLE? 
1683 15FD2 01 GOYES ARY10 IF SO, GOTO ARY10 
1684 15FD4 BEG cskR PLACE ARGUMENT COUNT 
1685 15FD7 816 CSRC 
1686 15FDA ACA AC OS 
1687 15FDD ACS Bet Ss S$ 
1688 15FEO 03 RTNCC RETURN CARRY CLEAR 
1689 15FE2 ACO ARYIO AO S CREATE [1,2] ARGUMENT COUNT 
1690 15FE5 B44 A=A+1 S$ 
1691 15FE8 AC8 B-R SS 
1692 15FEB B44 A=AH1 S 
1693 15FEE 03 RTNCC RETURN CARRY CLEAR 
1694 RARER KKK KAR KEK KEK ARERR IO IO SIO TT TOK 
1695 15FFO 1B00 FNARG DO=(5) =FUNCRO 
000 
1696 15FF7 1585 DATO=A 6 
1697 15FFB 161 DO=Dd+ 2 
1698 15FFE ARO A=0 = XS 
1699 16001 14A A=DATO B 
1700 16004 3306 LCHEX 6960 
96 
1701 1600A 743F GOSUB Range j 
1702 1600E 411 -  GOC  FNARGI 
1703 16011 BEO ASL «iB 
1704 16014 BBO ASL =X 
1705 16017 B24 A=A+1 XS 
1706 1601A 161 DO=D0+ 2 
1707 1601D 14A A=DATO B 
1708 16020 101 FNARGI RI=A 
1709 16023 8E00 GOSUBL =FNDFCN FIND USER-DEFINED FUNCTION 
00 
1710 16029 1524 A=DATO S$ 
1711 1602D AC8 B=R~—sS 
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1712 16030 1800 DO=(5) =FUNCRO 
ow 
1713 16037 15A5 A=DRTO 6 
1714 1603B 01 RTN 
1715 JOTI II IIIT OI IIIT II TI IDI III IIS III III II ITI SSI SII I SSIS 
1716 1603D 3100 SKPARG LCHEX OD 
1717 16041 AES B=C B 
1718 16044 D3 D=0 A INITIALIZE 
1719 16046 CF SKP10 D=D-1 A DECREMENT PARENTHESIS COUNT 
1720 16048 171 SKP20 DI=D1+ 2 INCREMENT TEXT POINTER 
1721 1604B 148 R=DAT1 B READ NEXT CHARACTER 
1722 1604E 960 ?R=B OB EOL? 
1723 16051 00 RINYES IF SO, RETURN CARRY SET 
1724 16053 3182 LCASC \C\ 
1725 16057 962 *A=C OB LEFT PARENTHESIS? 
1726 1605A CE GOYES SKP10 IF SO, REPERT SKP10 
1727 1605C £6 C=C+1 A 
1728 16005E 966 7ARC OB RIGHT PARENTHESIS? 
1729 16061 7E GOYES SKP20 IF NOT, REPEAT SKP20 
1730 16063 E7 D=0+1 A INCREMENT PARENTHESIS COUNT 
1731 16065 52E GONC  SKP20 IF NOT OUT, REPEAT SkP20 
1732 16068 8D00 GOVLNG =GNXCR+ SKIP TO NON-BLK & RETURN CRY SET 
1733 on JO IO IOC I IO TOO TOT ITT TTT TOR TT 
1734 1606F 370F PRCDNC LCHEX 3D2C28F0 
82C2 
03 
1735 16079 27 P= @ SPACE, ASNMNT OPERATOR, COMMA, 
1736 1607B 8E0O GOSUBL =MEMBER LEFT PAREN, OR EOL FROM STACK? 
00 
1737 16081 50 RTNNC IF SO, RETURN CARRY CLEAR 
1738 16084 310F LC(2)  =tEOL 
1739 16088 961 7B=C =«B NEW EOL? 
1740 1608B 00 RTNYES IF SO, RETURN CARRY SET 
1741 1608D 3192 LCASC \)\ 
1742 16091 361 *B=-C «6B NEW RIGHT PARENTHESIS? 
1743 16094 00 RTNYES IF SQ, RETURN CARRY SET 
1744 16096 31C2 LCASC =\,\ 
1745 1609RA 361 *B=C oB NEW COMMA? 
1746 1609D 00 RINYES IF SQ, RETURN CARRY SET 
1747 1609F 3308 LCHEX &D80 
D8 
1748 160A5 799E GOSUB Range) ARITHMETIC OPERATOR? 
1749 160AR9 400 RINC TF NOT, RETURN CARRY SET 
1750 160RC AES C=B B 
1751 160RF 8000 P=C 6 
1752 160B3 3F7? LCHEX 6666555432211877 
8112 
2345 
5566 
66 
1753 160C5 RA? D=C XS 
1754 160C8 RE6 C= B 
1755 160CB 8000 P=C 0 
1756 160CF 3F88 LCHEX 7777666543322988 
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1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1763 
1770 
1771 
1772 
1773 
1774 
1778 
1776 
1777 


1778 
1779 


1780 
1784 
1782 
1783 
1784 
1785 
1786 
178? 
1788 
1789 
17% 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 


160E1 
16084 
160E6 


160E8 
160EC 
160EF 
160F2 
160F5 
160F8 


160FA 
160FE 
16101 
16104 
16107 
16108 
1610E 
16111 
16114 
16116 


1611E 
16120 


16126 
16129 
1612C 
1612E 
16132 
16135 


16137 
16138 
1613E 
16142 
16146 
16149 
1614B 
1614F 
16152 
16155 
16158 
1615B 
1615E 
16160 
16163 
16167 
16168 
1616E 
16170 


$223 
3456 
6677 
77 
B23 
20 
01 


73BD 
18E 
142 
134 
131 
01 


7DFD 
136 
809 
134 
1514 
137 
809 
135 
20 
35D? 
C738 
25 
8E00 
00 
570 
940 
0 
1554 
170 
02 


ACZ 
7060 
1$A5 
3192 
966 
C2 
3182 
B46 
400 
163 
14A 
966 
1F 
161 
7440 
15A5 
9C2 
” 
301 
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P= 0 
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IF NEW OPERTR NOT HIGHER, SET CRY 


JOR ROJO OUI SOR JORIS IK 


=PARPRP 


GOSUB C=ANS 
DO=D0- 15 
A=DATO A 
dO=C 

D1=A 

RTN 


INITIALIZE FOR PARSE 


SII IKI TI IO TIT I TI AT I SIT IIIOI TAI III ISII SII III ISI ISISII IA 
=COMPIL GOSUB TKNLEN 


CAP L10 


COOEX 

C+P+1 

bo=C 

DAT1=A WP 
CD1EX 

C+P +1 

01=C 

P= 0 
LCHEX B37C7D 


P= 5 


GOSUBL =MENBER 


GONC CMPLIO 
7A=B OS 
RTNYES 

DATI=C § 
01=D1+ 1 


DELETE TOKEN FROM PRSSIVE STACK 


APPEND 10 ACTIVE STACK 


XFN, USER-DEF FUNCTION, OR ARRAY? 


IF $0, GOTO CHPL1O 

UNIQUE ARGUMENT COUNT? 

IF SQ, RETURN CARRY SET 

APPEND PARM COUNT TO ACTIVE STACK 


RETURN CARRY SET 


FORO III OTT ITT TT ITI TIT IIT I IK 


=ARGCHT 


ARG10 


ARG20 


(=o = § 
GOSUB ARGLNT 
A=DATO 6 
LCASC =\)\ 
"ARC OB 
GOYES ARG30 
LCASC \C\ 
C=C+1 §$ 

RTNC 

DO=D0+ 4 
R=DATO B 

7AHC OB 
GOYES ARG1O 
DO=D0+ 2 
GOSUB ARGLNT 
R=DATO 6 

Aco OS 
GOYES ARG4O 
Bol OS 


INITIALIZE ACTUAL ARGUMENT COUNT 
POP ARGCOUNT LIMITS 
READ TOKEN 


RIGHT PARENTHESIS FROM STACK? 
IF NOT, RETURN CARRY CLEAR 


INCREMENT PARAMETER COUNT 
IF MORE THAN 15, RETURN CARRY SET 


READ TOKEN FROM STACK 
LEFT PARENTHESIS? 
IF NOT, REPEAT ARG1IO 


POP ARGCOUNT LIMITS 

READ TOKEN 

ARGUMENT COUNT TOO LARGE? 
IF SO, GOTO ARG4O 
ARGUMENT COUNT TOO SMALL? 
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1806 
1807 
1808 


1809 
1810 


1811 
1812 


1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
183? 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
184? 
1848 
1843 
1850 
1851 
1852 
1853 
1854 
1856 
1856 


16173 00 
16175 93 
16177 370F 
8202 
D3 
27 
8EO0 
00 
5FO 
3308 
D8 
7CAD 
400 
RAE 
7BCF 
400 
31A? 
14D 
171 
03 


16181 
16183 


16189 
1618C 


16192 
16196 
16199 
1619C 
161R0 
161A3 
161A? 
161AA 
161AD 
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RTNYES 
RTNCC 
LCHEX 


ARG 30 
ARGAO 


p= 


COSUBL 


GONC 
LCHEX 


GOSUB 
RTNC 
C=C-1 
GOSUB 
RTNC 
LC(2) 
DAT1=C 
D1=D1+ 
RTNCC 


ARGSO 


FOI IOI TOI OI IIIT OO TOI 
FO OI IO IOI OO ICICI OOO IIIT OR Ok 


ax 


**k Nane:(S) NRMCON - 


ax 
wk 
ax 
ax 
xk 


Category: 


Purpose: 


Entry: 


Exit: 
re A 


Calls: 


Stk Ivis: 


History: 


Ae 11/01/83 


12/16/83 


A-D,M, 


3D2C28F0 
? 
=MENBER 


ARGSO 
8D80 


Range } 


S 
ARG2O 


=tCNPLX 


B 
2 


NTHUTL 
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If SO, RETURN CARRY SET 
RETURN CARRY CLEAR 
IMPLICIT COMPLEX DETECTION 


DELIMITER? 

IF SO, GOTO ARGSO 
OPERATOR? 

IF NOT, RETURN CARRY SET 
DECRENENT ACTUAL ARGCOUNT 
ACTUAL ARGCOUNT OK? 

IF NOT, RETURN CARRY SET 
COMPILE COMPLEX TOKEN 


RETURN CARRY CLEAR 


Convert BLDOCON Constant into Usable Forn 


Converts a 12-digit constant built by BLDCON into a 
nice normalized nurber taking into account overflow and 
underflow with appropriate trap settings. 


Exit conditions of BLDCON. 


= 12-digit normalized nunber. 


SFLAGS, MFWRNQ 


D1, RO,P 
3 


Progranner 
SA 
NM 
FH 


Wrote 
Attenpted to docurient 
Added nore docurientation, changed 


XMN=0 iff number ok (no overflow or underflow) 
Nay generate warning message if XM=1. 


Modification 
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1857 a nane fron GRONK to NRMCON, nade 
1858 ak a supported entry point 
1859 ak 
1860 JIU IIS IIT TOT SIT K 
1861 SOIC OS TOS SO TI IIIS IIT III IST I TOAST IOI A II SAA 
1862 161AF AF4 =NRNCON A=B W 
1863 161B2 831 ?XN=0 BIG OR SMALL? 

1864 161B5 74 GOYES NRMCNO IF NOT, GOTO NRMCNO 
1865 161B7 1FOO D1=(5) =OVFNIB 
000 
1866 161BE 3101 LC(2) =tBIG 
1867 161C2 966 AWC OB BIG TOKEN? 
1868 161C5 66 GOYES NRHCN3 IF NOT, GOTO NRACN3 
1869 161C7 1574 C=DAT1 S$ READ OVERFLOW NIBBLE 
1870 161CB ACS B=C Ss 
1871 161CE 3100 LC(2)  =eOVFLW 
1872 16102 R4D B=B-1 § CROAK? 
1873 16105 482 GOC NRMCN1 IF SO, GOTO NRNCN1 
1874 16108 3100 LC(2)  =flOVF 
1875 161DC 8E00 GOSUBL =SFLAGS SET OVERFLOW FLAG 
00 
1876 161E2 3300 LC(4) =eQVFLW 
00 
1877 161E8 28 P= g 
1878 161EA 949 7B=0) oS CURSE? 
1879 161ED 92 GOYES NRNCN2 IF SO, GOTO NRNCN2 
1880 161EF 8FOO GOSBVL =MFURNQ SWEAR AT USER ANYWAY 
000 
1881 161F6 AFO A=0 W CONSTRUCT INFINITY 
1882 161F9 A2C A=A-1 XS 
1883 161FC 03 NRNCNO RTNCC RETURN CARRY CLEAR 
1884 
1885 161FE 1£00 WNRNCN1 D1=(4) =STNTD1 
0 
1886 16204 143 A=DAT1 A 
1887 16207 1E00 D1=(4) =RFNBFR 
wo 
1888 16200 141 DAT1=A A 
1889 16210 8C00 nferr GOLONG =MfErr BYE BYE! 
00 
1890 
1891 16216 8FOO NRMNCN2 GOSBVL =MFWRNQ SWEAR AT USER 
000 
1892 1621D 8F00 GOSBVL =BIG+ CONSTRUCT MAXREAL 
000 
1893 16224 AFA A=C W 
1894 16227 04 SETHEX 
1895 16229 03 RTNCC RETURN CARRY CLEAR 
1896 
18397 1622B 1CO NRNCN3 D1=D1- 1 
1898 1622E 1574 C=DAT1 S$ READ UNDERFLOW NIBBLE 
1899 16232 ACS B=C S 
1900 16235 3100 LC(2)  =eUNFLW 
1901 16239 A4D B=B-1 § CRORK? 
192 1623C 41C GOC NRMCN1 IF SO, GOTO NRNCN1 
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193 1623F 
1904 16242 
1905 16246 


1%6 1624C 


190? 16252 
198 16254 
1%3 16257 
1910 16259 


1911 16260 
1912 16263 


1913 16268 
1914 1626B 
1915 

1916 1626D 


1917 16274 
1918 16277 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
192? 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
194? 
1948 
1949 
1950 
1951 
1982 


101 
3100 
8E00 
00 
3300 
00 
28 
949 
61 
8FO0 
000 
111 
3210 
5 
ABR 
03 


8FOO 
000 
AFO 
03 
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R1=A 
LC(2) =f UNF 
GOSUBL =SFLAGS SET UNDERF LOW FLAG 
LC(4) =eUNFLW 
P= 8 
7B=0) § CURSE? 
GOYES NRNCN4 IF SO, GOTO NRMCN4 
GOSBVL =MNFWRNQ SWEAR AT USER ANYWAY 
A=R1 RETURN DENORMALIZED NUMBER 
LCHEX 501 
A=C x 
RTNCC RETURN CARRY CLEAR 
NRACN4 GOSBYL =MFURNQ SWEAR AT USER 
A=0 W RETURN ZERO 
RTNCC RETURN CARRY CLEAR 


FOI JOTI II IOI ITT OTR IK 


* Dutput is in B-reg., B(S) does not indicate the sign of the 
* nunber. 

* XM = 0 at exit if the number is not over/under flow. 

x 


FOI IOI TOI OTIC ICI SOI OO ITI TOIT TIO IT TOT OK 
FIG III OO OOOO OO TO IOI IC 
ak 


kX Narne:(S) BLDOCON - Build A Constant For CalC MODE 
aa 


** Category:  MTHUTL 
rs 


** Purpose: 

xe Build a constant for calc node. 

ak 

*X Entry: 

a> Exit conditions of NUMSCN. 

ah 

AS ERE: 

a If XM = 0: (no Overflow or Underf lou) 

x B = Normalized unsigned 12-digit nunber. 
aK If XM = 1: (Overflow or Underflow occurred) 

aa B(B) = Token indicating overflow (=tBIG) or 
x underflow (=tSMALL). 

xh 

** Calls: None. 

ah 

BY USES Sac Sate 

a A,B,C, XM. 


xk 


xk Sth lvls: 1 
Ax 


*® History: 
KR 
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1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 


1963 
1964 
1965 
1966 
1967 
1968 
19693 
1970 
1971 
1972 
1973 
1974 
1975 
1976 


1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1391 
1992 
1993 
1994 
1995 


1996 
1997 
1938 
1999 
2000 
2001 
2002 
2003 
2004 


16279 821 
1627C 8E00 
00 
16282 451 
16285 AFI 
16288 A88 
1628B 815 
1628E BFS 
162391 03 


16293 ABS 
16296 00 
16298 33 
1629A 11 
1629C 01 
1629E 23 
162RO0 8E00 
00 

162A6 5CE 
162A9 968 
162AC 00 
162AE 311 
162B2 SEE 
162B5 00 
162B7 AOA 
162BR 6600 
162BE BD1 
162C1 ROC 
162C4 S9F 
162C7 ACI 
162CA 03 


162CC 310F 
162D0 14D 
162D3 171 
16206 132 
16209 1B00 
000 
162E0 7APC 
162E4 1C4 
162E7 145 
162EA 1C4 
162ED 145 
162FO 1C4 
162F3 143 
162F6 132 
162F9 8EOO 
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Page 40 
xk Date Progranner Modification 
RUS deseoute, “esececee. Septessusucecncae ceedceee Gadaces 
ae SA Wrote 
x* 11/01/83 NN Attenpted to docunent 
ee 12/16/83 FH Added nore docurnentation 


ak 
FOI JO JOT JOT TIT II TRI I IID I IN 
KKEREKKRKKAKKAKKER KAKA R ARERR AERA AIRE REAR IAK IITA 


=BLDCON XM=0 

GOSUBL =DRANGE QNE-DIGIT CONSTANT? 

GOC BC20 IF NOT, GOTO BC20 

B=0 W CONSTRUCT FLORTINGPOINT NUMBER 

B=A P 

BSRC 

BSR hi 

RTNCC RETURN CARRY CLEAR 
BC10 =—s: B=! x SAVE PRIMARY TOKEN 

RTNSXN RETURN CARRY CLEAR, XM SET 
BC20 NIBHEX 33 

CON(2) =tSMALL 

CON(2) =tBIG 

P= 3 

GOSUBL =NENBER BIG OR SMALL? 

GONC B10 IF SO, GOTO BC10 

7A=0) OB 

RTNYES 

LCHEX 1E 

7A>=C OB MULTIDIGIT CONSTANT? 

RTNYES IF NOT, RETURN CARRY SET 

A=A+C  P FORTUITOUS EVENT 

GOTO B40 GOTO BC40 
BCH —OBSL q NORMALIZE MANTISSA 
BC40.A=A-1 P 

GONC BCH 

B=0 S CLEAR SIGN 

RTNCC RETURN CARRY CLEAR 
JUICE TORT ITT AK 
=CLCEXP LC(2) =tEOL 

DATI=C B APPEND EXECUTION TERMINATOR 

D1i=D1+ 2 

ADOEX 

DO=(5) =NTHSTK 

GOSUB STKUP1 MOVE PASSIVE OPERATORS 

D1=D1- 5 

DAT1=C A INITIALIZE UNUSED POINTERS 

D1=D1- 5 

DATI=C A 

D1=D1- § 

A=DAT1 A 

RDOEX INSTALL PC 


GOSUBL =GETST GET EXPRESSION STATUS BITS 
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00 

2005 162FF 131 D1=A INSTALL SP 

2006 16302 8(00 =Expr GOLONG =EXPR EXECUTE EXPRESSION & RETURN 
00 

2007 JI ITI OTE OO TT 

2008 16308 30A =CLCBTS LCHEX A 

2009 1630B 982 *AcC OP REAL NUMBER ON STACK? 

2010 1630E BO GOYES CBITS1 IF SO, GOTO CBITS1 

2011 16310 31E0 LCHEX O€ 

2012 16314 966 RHC OB COMPLEX NUMBER? 

2013 16317 FO GOYES CBITS2 IF NOT, GOTO CBITS2 

2014 16319 8FOO CBITS1 GOSBVL =NOPRGN TURN OFF PROGRAM ANNUNCIATOR 
000 

2015 16320 8COO =rstst GOLONG =RSTST RESTORE STATUS BITS 
00 

2016 

2017 16326 8C0O CBITS2 GOLONG =RDATTY 
00 


2018 
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ACTIVE 
ACTV10 
ADDRSS 
ROP 10 
ARG 
ARG10 
ARG2O 
ARGH 
RRG40 
ARGSO 
=ARGCNT 
ARGLAT 
ARY10 
ARYARG 
ASNCHK 
ASSIGN 
AVES 
B9597 
BACKUP 


BFR51 
BFRS2 
BFR55 
BFREO 
BFRTST 
BIG+ 
BLANK 
=BLDCON 
8070 
BUFFER 
BUILD 
C=ANS 
=CALC 
CBITS1 
CBITS2 
CLCBFR 
=CLCBTS 
CLCCFR 
=CLCERR 
CLCET1 
=CLCEXP 
CLOKEY 
CLESTK 
CLRKDS 
CNPL1O 
=CNTCHR 
=COMPIL 


Abs 
Abs 
Ext 
Abs 
fibs 
Abs 


88027 #1570B 
88063 #157FF 


89046 #15806 

2 #00002 
90447 #1614F 
90475 #1616B 
90485 #16175 
90487 #16177 
90521 #16199 
90423 #16137 
89771 #15EAB 
90082 #15FE2 
90019 #15FR3 
89597 #15DFD 

7 #00007 


88864 #15B20 
88187 #1587B 

8 #00008 
90771 #16293 
90776 #16298 
90814 #162BE 
90817 #16201 

0 #00000 
87903 #1575F 
87946 #1578A 
87969 #157A1 
88008 #1578 
88015 #157CF 
87914 #1576A 
87916 #1576C 
88492 #159AC 


88486 #159R6 
9745 #16279 
89666 #15E42 
87827 #15713 


89759 #15E9F 
88206 #1588E 
9905 #16319 
9918 #16326 


9888 #16303 
88302 HIS8EE 
9828 #162(C 
88313 #158F9 


9414 #1612E 
88182 #15876 
90362 #160FA 








Table 


- 
- 
- 
- 
- 
- 
- 
- 
- 
- 


714 

726 
1674 
1239 

255 
1794 
1803 
1807 
1808 
1815 
1787 
1577 
1689 
1670 
1506 

260 





890 
722 


1237 
1187 
1799 
1816 
1792 
1804 
1814 
105 
1175 
1676 
1159 


1221 
1223 
1142 

845 


1977 
1963 
1987 
1984 


635 
633 
658 
668 
671 
637 
675 
1054 


1063 
1130 
1515 

888 


1089 
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1176 


1514 
1788 
1681 


1250 
1573 


660 


640 


1600 


1236 


1801 
1683 


1506 
1666 


663 


1653 


Fri Dec 3, 1883 


1761 


2:29 an 
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CRLFOF Ext - 343 
CTRL Abs 87933 #15770 - 653 621 
CYCLE Abs 88454 #15986 - 1047 1083 1099 1185 1210 1251 1334 


DINSTK Ext - 1492 

DEFADR Ext - 543 1455 

DEST Ext = V518 

DRANGE Ext - 1962 

DSPLAY Abs 88229 #158A5 - 883 885 887 

DSPRST Ext - 345 

DSTATE Abs 4 #00004 - 257 414 1098 «61136 «1182 1208 1247 1333 


EDITOR Abs 88249 #158B9 - 888 882 894 898 306 
ENIO Abs 88437 #15975 - 1004 1000 
END10 Abs 87801 #IS6FS - 568 576 
END2O0 Abs 87804 #156FC - 569 566 
END30 «Abs 87811 #15703 - 573 562 
END40) «Abs =: 887825 #15711 - 578 574 
ENDDEF Abs 87768 #156D8 - 558 546 
=ERRMSG Abs 88379 #1593B - 986 649 893 952 1526 


EXPR Ext - 2006 
=Expr Abs %882 #16302 - 2006 
FINAL Ext - 899 
FIXSPC Ext - 1143 


FNARG Abs 90096 #ISFFO - 1695 1149 
FNARG] Abs 90144 #16020 - 1708 1702 


FNDFCN Ext - 1709 

FORCE Abs 87924 #15774 - 650 618 
FORSTK Ext - 401 

FUNCRO Ext - 1671 1695 1712 
GETST = Ext - 2004 

GNXCR+ Ext - 1732 

HASH2 = Ext - 654 


HERE Abs 88450 #15982 1044 1059 
INSRTO Abs 88065 #15801 - 765 1203 
INSRT1 Abs 88068 #15804 - 766 674 
KEYCHR Abs 87723 #156AB - 543 886 
KEYERR Abs 88365 #15920 - 951 9345 


KEYRD = Ext - 939 

=KILLKY Abs 89533 #15DBD - 1455 342 

LOCAL Abs 6 #00006 - 259 1111 1117 1184 1209 1249 1287 
MAXCND Ext - 297 446 

MEMBER Ext - 667 1109 1736 1779 1810 1976 
MFWRN Ext - 994 

MFWRNQ Ext - 1880 1891 1910 1916 

NOVED1 Ext - 794 

MOVEDS Ext - 1664 

NOVEUT Ext - 1419 1649 

MOVEU3 Ext - §07 

MTHSTK Ext - 1509 1552 1657 1995 

Nf€rr Ext - 1889 


=Moveu3 Abs 87717 #156A5 - 507 

NEWAMS Abs 90004 #15F94 - 1665 1650 
NEWMTH Abs 89713 #15671 - 1558 1671 
=NEWSTM Abs 87430 #15586 - 386 351 

NOP Abs 3 #00003 - 256 1075 1397 
NOPRGM Ext - 2014 
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NOTROP 
NRICNO 
NRACNI 
NRACN2 
NRACN3 
NRACN4 
=NRMCON 
NTOKEN 
=NXTCHR 
NXTKEY 
ORGNIO 
=ORIGIN 
OVFNIB 
PAREN 
=PARPRP 
POPIN 
PRCDNC 
PSO5 
PS10 
PS$20 
PS30 
PS40 
PSHNUN 
=PSHSTN 
PUSH 
PUSH-2 
PUSH 1 
ROWRN 
RIWRN 
RANGE 
RAWBFR 
RDATTY 
=REDUCE 
RESREG 
RESTOR 
RESULT 
RFNBFR 
RSLT10 
RSTATE 
RSTST 
=Range J 


S-R1-2 
50-10 
30-15 


t i 1 


t 


1 
NI SFSVSSRIS 


SESSSSESES 


‘ 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Robs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Rbs 
Ext 
Abs 
Abs 
Ext 
Abs 


Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 


2306 


89091 
%620 
622 
90646 
90667 
9 733 
90543 


88242 
88235 
88179 
88172 


10 
%) 344 


223 
87608 
87617 
87662 
87676 
87690 
896% 
87426 
89799 
89724 
897% 
88772 
83160 


88439 


89674 
89548 


89591 
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#15003 
H161FC 
WIGIFE 
#16216 
#1622B 
#1626D 
#161AF 


#15862 
#158AB 
#15873 
#1586C 


ROOOOA 
#160E8 


#1 606F 
#15638 
#15641 
#1566E 
#1567C 
#1568A 
#15E5A 
#15582 
#15EC7 
#15€7C 
#1 5€BE 
#15AC4 
#15048 


#15977 


#15€4A 
#150CC 


#150F 7 


5 #00005 


89922 


88569 
88621 
88631 
88676 
88697 
88717 
88750 
88778 
88796 
88805 
88831 
88843 


#15F42 


#159F9 
#15R2D 
#15937 
#15964 
#15879 
#15A8D 
#1 SARE 
#15ACA 
#15ADC 
#15AE5 
#1 SAF F 
#15B0B 


re be t § F § & & & Fo  F 8 


- 


~- 


1252 
1883 
1885 
1891 
1897 
1916 
1862 
1066 

886 

884 

838 

837 
1865 

263 
1761 
1496 
1734 

469 

472 

487 

492 

497 
1582 

385 
1599 
1562 
1596 
1163 
1276 
1641 

449 
2017 
1041 
1495 
1548 
1492 

333 
1504 

258 
2015 
1641 
1748 

387 
1085 
1100 
1105 
1118 
1124 
11% 
1146 
1155 
1162 
1166 
1172 
1176 


12H 
1864 
1873 
1879 
1868 
1909 
1133 
1233 

883 

901 

450 
1231 


558 
1298 
1549 
1294 
467 
496 
482 
475 
480 
1134 
900 
1121 
1955 
1097 
1168 
1284 


627 


892 
1548 
1520 

897 

837 
1497 
1073 


1086 
1813 
624 


1078 
1087 
1115 
1112 
1110 
1131 
1148 
1156 


1150 


1235 
1902 


891 


636 
1512 


1309 


1181 
1199 
1171 


795 


1041 
1116 
1167 

768 
1095 


1243 


896 


948 


11% 
1246 


1049 


1124 
1183 
1170 
12% 
1128 
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1239 
1248 
1280 


1274 


1367 1887 
1288 1300 
1618 1626 
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S0-73 Abs 88857 #15819 - 1181 1158 

S0-74 Abs 88874 #15B2A - 1187 1177 

S0-75 Abs 88883 #15B33 - 11% 1160 

S0-76 Abs 88911 #15B4F - 1198 1164 

SO0-77 Abs 88927 HIS5SBSF - 1203 1207 

SO-78 Abs 88938 #15B6A - 1206 1202 

S0-79 Abs 88954 #15B7A - 1211 1204 

S1-00 Abs 89099 #15(OB - 1254 1123 1220 1222 

51-05 Abs 89156 #15044 - 1274 1256 1259 

S1-10 Abs 89166 #15(4E - 1279 1268 

31-20 Abs 89198 #15(6E - 1288 1272 1281 

St-21 Abs 89201 #15C71 - 1289 1262 1265 

S1-22 Abs 89232 #15€90 - 1298 1293 

S1-23. Abs 89240 #15098 - 1300 1295 

31-25 Abs 89249 #15CA1 - 1303 1310 

S1-26 Abs 89256 #15CA8 - 1305 1299 

Si-2?7 Abs 89307 #15CDB - 1322 1319 

S1-28 Abs 89331 #15CF3 - 1329 1325 

Si-LNK Abs 88627 #15A33 - 1103 1080 

SAVRFN Abs 88530 #159D2 - 1071 1069 

SE10 Abs 87349 #15535 - W2 308 

SFLAGS Ext - 347 1875 1905 

SKP10 Abs 90182 #16046 - 1719 1726 

SKP20 «Abs 90184 #16048 - 1720 1729 1731 

SKPARG Abs 90173 #1603D - 1716 1238 

SNAG Abs 9 #00009 - =. 262 

SNTX10 Abs 89389 #15020 - 1378 1372 

SNTX15 Abs 89415 #15047 - 1386 1389 1391 1393 

SNTK2O Abs 89466 #1507A - 1404 1409 

SNTX30 Abs 89496 #15098 - 1415 1407 1413 

SNTX35 Abs 89499 #15D9B - 1416 1424 

SNTX40 Abs 89529 #150B9 - 1424 1398 
=STAKDN Abs 89973 #15F75 - 1657 996 1135 1522 
=STAKUP Abs 89928 H15F48 - 1643 989 1132 


START Abs 88461 #1598D - 1048 1042 

STATEO Abs 88560 #159FO - 1081 

STATE? Abs 88972 #15B8C - 1218 1103 
=STKBAK Abs 89960 H15F68 - 1652 1332 


=STKCND Abs 87533 H155ED - 446 385 
STKDN1 Abs 89998 H15F8E - 1664 1655 
=STKEND Abs 87327 H1551F - 297 349 
STKUP1 Abs 89950 #15F5E - 1649 1996 


STMTD1 Ext - 1047 1071 1191 1885 
STORE Ext - 1521 
STREQL Ext - 478 
STRING Abs 1 #00001 - 254 1077 1269) «1324 


=SYNTAX Abs 89353 #15009 - 1366 895 

=SYSTEM Abs 87372 #15540 - 341 878 
TKNLEN Abs 89851 #15EFB - 1617 1599 1768 
TKNLNT Abs 89871 #ISFOF - 1621 1627 
TKNLNe Abs 89878 #15F16 - 1624 1630 1633 
TKNLN3 Abs 89882 #15F1A - 1626 1620 
TNGFF? Ext - 879 

VAR Abs 11 #0000B - 264 «1155 ) 1234 
atnclr Ext -  9a0 
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clecfr Abs 88373 #15935 - 953 348 622 1366 
eFNNtF Ext - 1151 
eILCNT Ext - 1100 
eILKEY Ext - 951 
eILPAR Ext - 1187 
eL2iNG Ext - 648 998 1215 
eMSPAR Ext - 1178 
eOVFLW Ext - 1871 1876 
ePRCER Ext - 15801 
ePRMIS Ext - 1001 186 1525 
eROWRN Ext - 1153 
eRIWRN Ext - 1276 
eUNFLW Ext - 180 1906 
FICALC Ext - 346 
flOVF = Ext - 1874 
flUNF = Ext - 1904 
kcBOT = Ext - 650 
kcOFF = Ext - 880 
nferr Abs 90640 #16210 - 1889 

=rstst Abs 9912 #16320 - 2015 
té Abs 137 #00089 - 12 1254 
t+ Abs 135 #00087 - 12 1081 1270 
t- Abs 130 #00082 - 12 1266 1326 
tBIG Abs 16 #00010 - 12 1866 1974 
tCMPLX Abs 122 #OOO7—A - 12 1818 
tCOMMA Abs 241 HOOOF1 - 12 1282 
tEOL Abs 240 HOOOFO - 12 407 1067 1260 1738 1991 
tFN Abs 124 #0007C - 12 1146 
tNOT Abs 129 #00081 - 12 1257 
tRELOP Abs 138 #0008A - 12 1312 1634 
tRES Abs 127 HOOO7F - 12 1118 
tSMALL Abs 17 #00011 - 12 1973 
tXFN Abs 179 #000B3 - 12 1628 
tXWORD Abs 239 HOOOEF - 12 1631 
* Abs 128 #00080 - 12 1093 


Waitky Ext 
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Input Parameters 
Source file nane 1s RAB&CLO:: MS 
Listing file nane is AB/CLC:TI:ML::-1 
Object file nane is ABZCLO: TI:NS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1632C 


Po S| ws or mr os ss ess oer 
DWWOVINHNMN SW - COW OWT Bw PN — 


21 

22 

23 

24 

25 

26 

2? 16333 72000 

28 16337 BEO 
00 

29 16330 8£00 
00 

30 16343 8FOO 
000 

31 1634A 81C 

32 1634D ADO 

33 16350 8FOO 
000 

34 16357 8FOO 
000 

35 1635E 8FOO 
000 

36 16365 6000 

3? 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


48 
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Page 1 
x A BBBB & BBBB. OL DDDD 
x AA B B && B BL DD 
k A AB B && B BL DD 
x A AR BBBB & BBBB OL DD 
z ARAAR B B &&& B BL DOD 
x A AB B& & B BL DD 
x A A BBBB 8& & BBBB LLLLL DDDD 
TITLE CALC Mode Decompiler <831212.1509> 
ABS #1632C 

aS STATUS BIT ASSIGNMENTS 

BEGIN EQU 0 BEGIN BASIC TOKEN 
STRING EQU 1 STRING LEXENE 
ARG EQU 2 ARGUMENTS PRESENT 
NOP EQU 3 FALSE REDUCTION CALL 
DSTATE EQU 4 DECOMPILE STATE 
RSTATE EQU 5 REDUCTION STATE 
LOCAL EQU 6 LOCAL EXPRESSION STATE 
ASSIGN EQU 7 ASSIGNMENT STATEMENT 
BASIC EQU 8 BASIC STATEMENT 
SNAG = EQU 9 EOL IS NOP 
SCR EQU 10 SCRATCH 

VAR EQU 11 VARIABLE 


FO II II III TOIT I TOOT OU TTT TOTO I IO 


GOSUB 
GOSUBL 


GOSUBL 
GOSBVL 
ASRB 
A=0 
GOSBYL 
GOSBYL 
GOSBVL 


GOTO 


1632C 8FOO =FINAL GOSBVL =DSPRST 
000 


=STAKUP 
=DIMSTK 


=STR$SB 
=REVPOP 
q 

=DSPCNA 
=CRLF OF 
=SCRLLR 
=STAKDN 


FOI IO IIIT OTTO III OOOO TTT TIC 


XFINAL GOSUB 
DO=(4) 
LCHEX 
DATO=C 
DO=(4) 
LCASC 
GOSUB 
GOSUB 
RDOEX 
GOTO 


x 
x 
x 
x 
x 
x 
x 
x 
x 


BLDPRP 
(=DSPSTA)+3 
SF4ROOCO 

g 

=DSPBFE 

\ \ 

DSPCHR 
OSPNUM 


TURN CURSOR OFF 


DISPLAY RESULT 
FILL 


FOOTIE RIOT 
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i 49 16369 1B00 BLDPRP DO=(5) =AVNENS SAVE AVMEMS POINTER 
é 000 
5 16370 142 R=DATO A 
51 16373 18€ DO=D0- 15 
S2 16376 146 C=DATO A 
53 16379 135 D1=C 
54 1637C 141 DAT1=R A 
55 1637F 01 RIN 
56 SOOO I TIT TST IT IT ITI TIT ITI ITS I IIIT I IT TI IH 
57 16381 74EF =BUILD GOSUB BLDPRP SAVE AVMENS POINTER 
58 16385 184 DO=00- 5 
59 16388 146 C=DATO A 
60 1638B AFI B=0 W 
61 1638E D5 B=C a 
62 16390 135 01=C 
63 16333 184 DO=D0- 5 
64 16396 146 C=DATO A 
65 16399 E1 B=B-C A COMPUTE LENGTH OF LEFT RAWBUFFER 
66 16398 81D BSRB 
67 1639E 3100 LCHEX 0D 
68 163A2 AEA R=C B 
69 163A5 14F C=DAT1 B 
70 163A8 1B00 BLDOS 00=(5) =DSPBFE 
000 
71 163AF 966 7RHC OB DISPLAY FIRST CHARACTER OF RIGHT 
72 16382 01 GOYES BLD20 RAWBUFFER 
73 16384 3102 LCASC \ \ 
74 163B8 6900 GOTO BLD2O 
75 163BC 1C€1 BLDIO Di=DI- 2 
76 163BF 14F C=DAT1 B 
77 163C2 7E42 BLD2O GOSUB DSPCHR DISPLAY LEFT RAWBUFFER 
78 163C6 A6D B=B-1 8B 
79 163C9 S2F GONC BLD10 
8 163CC 874 ?3T=1 DSTATE DECOMPILE OPERATOR FIRST? 
81 163CF 71 GOYES BLD40 IF 30, GOTO BLD40 
: 82 16301 6010 GOTO BLD30 GOTO BLD3O 
; 83 163D5 3400 BLD25 LC(5) =AVNENS 
4 000 
84 163DC 137 CDIEX 
85 163DF 145 DAT1=C A 
86 163E2 7571 BLD3O0 GOSUB DSPNUN DISPLAY OPERAND 
87 163E6 7682 BLDAO GOSUB RTINSXN : 
88 163EA 1F00 D1=(5) =AVNENS 
000 
89 163F1 147 C=DRT1 A 
30 163F4 135 D1=C 
91 163F7 7A9D GOSUB DSPOP DISPLAY OPERATOR 
92 163FB 49D GOC BLD25 IF LINE NOT COMPLETE, REPEAT BLD25 
93 163FE 3400 LC€(5) =MTHSTK 
000 
94 16405 137 CDIEX 
95 16408 145 DAT1=C A RESTORE MTHSTK POINTER 
96 16408 1000 D1=(2) =CLCSTK 
97 1640F 143 A=DAT1 A 


98 16412 132 RDOEX 
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99 
100 
101 
102 


103 
104 
105 


106 
107 


108 
109 
110 
111 
112 
113 
114 
115 
116 
WW? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 
129 
1H” 
131 
132 
133 
134 
135 
136 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 


16415 
16418 
1641B 
1641E 


16425 
16428 
1642A 


16431 
16434 


1643A 


1643C 
1643F 
16442 
16446 
16449 
16448 
1644F 


16453 
16456 
1645A 
1645D 
1645F 
16462 


16466 
16469 
16460 
1646E 
16471 
16474 
16476 
16479 
1647C 
1647E 
16481 


16488 


1648C 
1648F 
16491 
16495 
16498 
16498 
16490 
164A1 
1644 
164R8 
164RB 
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Page 3 
146 C=DATO A 
17E D1=D1+ 15 
145 DAT1=C A RESTORE AVMENS POINTER 
3400 FILL LC(S) =OSPBFS 
000 
135 D1=C 
EAR A=A-C A 
8FOO GOSBVL =BLANKC 
000 
AFE ACEX W 
8COO =stuff GOLONG =STUFF BLANK FILL 
ou JOO TI II III IIIT III IISA III II TI OTIS II II OD IIIS II IIIT TK 
03 THERE RINCC RETURN CARRY CLEAR 
821 TRICK1 XM=0 
14A A=DATO B 
3102 LCASC \-\ 
962 *A=C OB 
C4 GOYES DSPOP 
31B2 LCASC \+\ 
6F 30 GOTO WRTOP1 
14QA  TRICK2 A=BATO B 
31D2 LCASC \-\ 
966 RHC OB 
23 GOYES WRTOP1 
161 DO=D0+ 2 
6230 GOTO DSPOP 
300 OPRTR LC(1) =t+ 
902 *A=C OP 
OD GOYES TRICK 
300 LC(1)  =t- 
902 7A=C OP 
FD GOYES TRICK2 
300 LC(1) =tRELOP 
906 eRHC OP 
50 GOYES YECCH 
170 Di=01+ 4 
8FOO §=YECCH GOSBVL =ARITH 
000 
6800 GOTO WRTOPe 
821  WRIQPO XM=0 RECORO TERMINAL CONDITION 
e1 WRTQP1 P= 1 
7181 WRTIOP2 GOSUB DSPSTR WRITE TO DISPLAY BUFFER 
831 DSPOP ?xN=0 FINISHED WITH OPERATORS? 
00 RTNYES IF SO, RETURN CARRY SET 
171 Di=D1+ 2 
1533 A=BAT1 X 
171 D1=D1+ 2 
3100 LC(2)  =tEOL 
962 "A=C OB FINISHED WITH LINE? 
F8 GOYES THERE IF SO, GOTO THERE 
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150 
161 
182 
153 


154 
155 


156 
157 
158 
159 
160 


161 
162 
163 


164 
165 
166 
167 
168 
169 
170 
171 
172 


173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 


187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 


164AD 
164B1 
16484 
164B6 


164BE 
1640 


164C6 
164(9 
164CD 
164D0 
164D2 


16408 
16400 
164DF 


164E5 
164E9 
164EC 
164FO 
164F3 
164F5 
164F8 
164FB 
164FD 


16504 
16508 
1650B 
1650E 
16511 
16515 
16518 
16518 
1651F 
16523 
16526 
16523 
16520 
16531 


16537 
16539 


1653D 
1653F 
16542 
16545 
16548 
1654A 
1654) 
1654F 
16551 


31C2 
962 
8D 
3582 
D302 
25 
8E00 
© 
58C 
3192 
962 
CB 
38 
D8 
7000 
598 
3314 
36 
7000 
513 
3100 
962 
22 
0 
962 
82 
8FOO 
000 
80DF 
119 
135 
AF 6 
6F 7F 
148 
171 
7E10 
617F 
14B 
171 
7010 
75E0 
3364 
£4 
23 
675F 


ra 
6 
AEE 
906 
v0) 
03 
F2 
Fe 
14F 
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ucASC \,\ 
7A=C OB 

GOYES WRTOPO 
icAsC = YC \ 


P= 5 
GOSUBL =NENBER 


GONC WRTOP1 
LCASC \)\ 
"A= OB 
GOYES WRTOPO 
LCHEX 8D80 


GOSUB =Rangej 
GONC OPRTR 
LCHEX 6941 


GOSUB =Range} 
CONC VBL 
LC(2}  =tARRAY 
*A=C OBB 

GOYES ARRAY 
LC(1) =tFN 
*A=C OB 

GOYES FN 
GOSBVL =GTEXT 


15 
1 
C 


OoovTuveo su 
oo Di wo 


1 

= W 

OTO WRTOP2 

ARRAY A=DAT1 B 
D1=D1+ 2 

VBL GOSUB VBLDC 
GOTO WRTOP2 

FN A=DAT1 B 
01=01+ 2 
GOSUB YBLDC 
GOSUB DSPSTR 
LCASC = \NF\ 


P= 3 
GOTO WRTOP2 


Page 


(cn . tee OR “ uN? 
IF SO, REPEAT WRIOP1 
RIGHT PARENTHESIS? 
IF SO, REPEAT WRTOPO 


ARITHMETIC OPERATOR? 
IF SO, GOTO OPRTR 


VARIABLE? 
IF $0, GOTO VBL 


ARRAY? 
IF SO, GOTO ARRAY 


USER-DEFINED FUNCTION 
IF SO, GOTO FN 
GET TEXT FOR TOKEN 


RESTORE 01 AFTER GTEXT 
REPEAT WRIOP2 


REPEAT WRTOP2 


REPEAT WRTOP2 


FOI OTT TOIT TUT TTT IOK 


VBLDC P= 1 
LCHEX 6 
ACEX 8B 
ARC OP 
RTNYES 
LCHEX 3 
CSL A 
CSL A 
C=DAT1 B 


ALPHADIGIT VARIABLE? 

IF NOT, RETURN CARRY SET 
CONVERT TO ASCIT DIGIT 
SHIFT LEFT 


READ NEXT CHARACTER 
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199 
200 
201 
202 
203 


204 
205 
206 
207 
208 


209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
ee 
223 
224 
225 
226 
ce? 
228 
229 
230 
231 
232 
233 


234 
235 
236 
237 


238 
239 
240 
241 
24e 


243 
244 
245 


247 
248 


16554 
16557 
16559 


16558 


16562 
16565 
1656? 
1656R 
1656D 


16574 
16577 
16578 
1657E 
16582 
16586 
1658A 
1658) 
16591 
16595 


16599 
16590 
165R0 
165A3 
165A7 
165RA 
165AC 
165AF 
16581 
165B4 
165B6 
165BA 
165BE 
16500 


16507 
165CA 
165(0 
165CF 


16506 
16508 
16508 
165DE 
165E0 


165E6 
165E8 
165EB 
165EE 
165FO 
165Fe 


171 
23 
02 


3400 
000 
136 
Dd? 
146 
135 
8F00 
000 
542 
70E0 
120 
7230 
31€2 
7A80 
120 
7F 20 
3182 
6E 70 


7EBO 
14E 
AE? 
31E5 
967 
61 
948 
1 
85A 
D8 
3192 
7650 
D4 
1FOO 
000 
147 
135 
D? 
3450 
000 
C3 
14? 
135 
06 
8EOO 
© 
07 
133 
134 
DE 
ER 
810 
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D1=D1+ 2 
P= 3 
RTNSC RETURN CARRY SET 
FOR III IIR IKI III II TTII IIIS IAI STII IIS IIS III I III ISI ST ILI ISIS I III II 


DSPNUN LC(5) =MTHSTK 


CDOEX 

D=C A 

C=DATO A 

b1=C 

GOSBVL =POP1N POP NUNBER FROM MATH STACK 


GONC REAL IF REAL, GOTO REAL 
GOSUB SETUP INITIALIZE POINTERS 
AROEX 

GOSUB = RP-NUN DISPLAY IMAGINARY PART 
LCASC \,\ 

GOSUB DSPCHR DISPLAY "," 

AROEX 

GOSUB  FNTNUN DISPLAY REAL PART 
LCASC \C\ 

GOTO DSPCHR DISPLAY "(" AND RETURN 


REAL GOSUB SETUP INITIALIZE POINTERS 
C=DATO B 
dD=C Ooi 

LCASC \*\ 

7DHC OB PARENTHESES POSSIBLY REQUIRED? 
GOYES FNTNUN IF NOT, GOTO FMTNUN 
A=0 = S PARENTHESES NECESSARY? 

GOYES FMTNUN IF NOT, GOTO FMTNUN 
ST=1 SCR 

RP-NUN B=A =A 
LCASC \)\ 

GOSUB DSPCHR DISPLAY RIGHT PARENTHESIS 
A=B OA 
FNTNUMN D1=(5) =CLCSTK 


C=DAT1 A 
Di=C 

D=C A 
LCHEX 00005 


D=C+D 
C=DAT1 
D1 =C 

RSTK=C 
GOSUBL =CLESTR 


DwD 


C=RSTK 

ADIEX 

Di=A QUESTIONABLE, INVESTIGATE 
ACEX A 

A=A-C A 

ASRB 
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249 165F5 RES B=A 8 
250 165F8 ABD B=B-1 8B 
251 165FB 14F FNT20 C=DAT1 B 
252 165FE 7210 GOSUB OSPCHR 
253 16602 171 D1=D1+ 2 
254 16605 AGD B=B-1 8B 
255 16608 52F GONC FNT20 
256 16608 86A ?$T=0 SCR LEFT PARENTHESIS REQUIRED? 
257 1660E 00 RTNYES IF NOT, RETURN 
258 16610 3182 LCASC 
259 SIO RICO IIIT STR TAI AIH 
260 16614 21 DSPCHR P= 1 
261 16616 136 DSPSTR CDOEX 
262 16619 DA A=C A 
263 16618 D7 b=C A 
264 1661D 136 CDOEX 
265 16620 1A DO=(4) =DSPBFS 
00 
266 16626 136 CDOEX 
267 16629 E3 D=D-C A 
268 16628 D2 C=0 A 
269 1662D 809 C+P+1 
270 16630 9E7 70>0 ~B 
271 16633 FO GOYES DSP20 
272 16635 EE DSP10 C=A-C A 
273 16637 136 CDOEX 
274 1663A 1541 DATO=C WP 
275 1663E 20 = 0 
276 16640 02 RTNSC 
277 16642 DB DSP20 C=D A 
278 16644 8000 P=C 0 
279 16648 OD P=P-1 
280 1664A SAE GONC DSP10 
281 16640 130 BFRFUL DO=A 
282 16650 20 P= 0 
283 16652 31£7 LCASC \\ 
284 16656 14C DATO=C B 
285 16659 02 
286 JOO IO IO ITO OC TIITO TTI IAT ARIAS 
287 1665B 04 SETUP SETHEX 
288 1665) 17F Di=D1+ 16 
289 16660 137 CDIEX 
290 16663 144 DATO=C A 
291 16666 DB C=) A 
292 16668 134 po=C 
293 1666B 84A ST=0 = SCR 
294 1666E 01 


TN 
FO III TOO TITS IIIT IIT IITI TTI LIST II STI IIIT ISI SII SIS 
16670 00 = RTNSXM) =-RTNSXM 
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ARG 
ARITH 
ARRAY 
ASSIGN 
AVMENS 
BASIC 
BEGIN 
BFRFUL 
BLANKC 
BLDOS 
BLD10 
BLD2O 
BLD25 
BLD XO 
BLD40 
BLDPRP 
=BUILD 
CLCSTK 
CLCSTR 
CRLFOF 
DINSTK 
DSP10 
DSP20 
DSPBFE 
DSPBFS 
DSPCHR 
DSPCNA 
DSPNUM 
DSPOP 
DSPRST 
DSPSTR 
DSTATE 
FILL 
=FINAL 
FMT20 
FMTNUM 
FN 
GTEXT 
LOCAL 
MEMBER 
NTHSTK 
NOP 
OPRIR 
POPIN 
REAL 
REVPOP 
RP-NUM 
RSTATE 
RTNSKM 
Range } 
SCR 
SCRLLR 
SETUP 
SNAG 
STAKDN 


Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Rbs 
Abs 
Abs 
Ext 
Rbs 
Ext 
Abs 
Abs 
Ext 


2 #00002 


914713 #16515 
7 #00007 


8 #00008 
0 #00000 
91725 #1664) 


91048 #163A8 
91068 #163BC 
91074 #16302 
91093 #163D5 
91106 #163E2 
91110 #163E6 
90985 #16369 
91009 #16381 


91701 #16635 
91714 #16642 


91668 #16614 


91483 #16558 
91285 #16495 


91670 #16616 

4 #00004 
91166 #1641E 
90924 #16320 
91643 H165FB 
91584 #165C0 
9142? #16523 


6 #00006 
3 #00003 
91238 #16466 
91545 #16599 
91572 #16584 
5 #OOO05 
91760 #16670 
10 ROOOOR 


91739 #16658 
3 #00003 


' ! ' ' ' t ' of ! 1 ! 


15 
136 
178 

20 

49 

21 

13 
281 
105 

70 

75 

7? 

83 

86 

87 

49 

5? 

96 
242 

34 

28 
272 
277 

70 
102 
260 

33 
203 
142 

26 
261 

17 
102 

26 
251 
233 
182 
172 

19 
155 

93 

16 
126 
208 
220 

H” 
229 

18 
296 
161 

e5 

35 
28? 

22 

36 


168 
83 


79 
72 
92 
82 
81 
5? 


233 


280 
271 


265 
7? 


86 
91 


141 
80 


255 
216 
174 


203 
162 


212 


88 


74 


214 


115 
185 


225 


256 
220 
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218 


124 


227 


293 
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231 


252 
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Page 
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STAKUP 
STRESB 
STRING 
STUFF 
THERE 
TRICK1 
TRICK2 
VAR 
VBL 
VBLDC 
WRTOPO 
WRIOP1 
WRTOP2 
YECCH 
=stuff 
t+ 
t- 
tARRAY 
tEOL 
tFN 
tRELOP 


Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


1 #00001 


91194 #1643A 
91196 #1643C 
91219 #16453 

11 #00008 
91419 #1651B 
91453 #16530 
81276 416480 
91279 #1648F 
91281 #16491 
91265 #16481 
91188 #16434 


Table 


e7 

29 

14 
107 
109 
111 
113 

24 
180 
19% 
133 
140 
141 
136 
10? 
126 
129 
166 
147 
169 
132 


149 
128 
131 


165 
180 
152 
117 
137 
134 


184 
159 
122 
177 
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156 
181 
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188 
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Input Paraneters 
Source file nane is AB&BLD: = NS 
Listing file nane is AB/BLD:TI:ML::-1 
Object file nane is ABSBLD:TI:MS::-1 


111111 
0123456 789012345 
Initial flag settings are 
Errors 
None 


Saturn Asseribler Neus 
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10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


16672 


16672 
16676 
1667A~A 
1667E 
16682 
16686 
1668A 
1668E 
16692 
16696 
1669A 
1669E 
166A2 
166A6 
166AR 
166RE 
166B2 
166B6 
166BA 
166BE 
166C2 
166C6 
166CA 
166CE 
166f2 
16606 


0300 
OHO 
030 
0H0 
6770 
6350 
6C80 
6752 
6B90 
6FRO 
0300 
OWO 
OHO 
6381 
6F40 
69CO 
67714 
61CO 
6B43 
OHO 
6BCe 
6F33 
6F 20 
6871 
6810 
6Fe3 
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A 


Me Oe OM Oe Oe 
> 
»> 


A A 


BBBB& 
B B &8& 
B B && 
BBBB 8 
B B && 
B B & 


E 
BBBB ss 8& & «EEEEE DDDD 


EEE 
E 


Page 1 


EEEEE ODDD 


D 
D 
D 
D 


ovucTccTo 7 


D 


TITLE CALC Mode Editor <831212.1510> 


ABS 


RDSYNB SBZRAN: NS 
BA STATUS BIT ASSIGNMENTS 


BEGIN EQU 
STRING EQU 
ARG EQU 
NOP EQU 
DSTATE EQU 
RSTATE EQU 
LOCAL EQU 
ASSIGN EQU 
BASIC EQU 
SNAG = EQU 
PAREN EQU 


VAR EQU 
ik 


#16672 


— S| HNWNHAM PWNS 


_-o 


BEGIN BASIC TOKEN 
STRING LEXENE 
ARGUMENTS PRESENT 
FALSE REDUCTION CALL 
DECOMPILE STATE 
REDUCTION STATE 
LOCAL EXPRESSION STATE 
ASSIGNMENT STATEMENT 
BASIC STATEMENT 

EOL IS NOP 
PARENTHESIS MATCHING 
VARIABLE 


JOO OI IOI OI III GIO 


ak 


=CLCET1 NIBHEX 0300 
NIBHEX 0300 
NIBHEX 0300 
NIBHEX 0300 
GOTO CLCRTN 
GOTO = CLCCFL 
GOTO CLCCFR 
GOTO CLCBKS 
GOTO CLCCL 
GOTO CLCCR 
NIBHEX 0300 
NIBHEX 0300 
NIBHEX 0300 
GOTO CLCEOL 
GOTO CLCRTN 
GOTO 8 CLCESST 
GOTO CLCEOL 
GOTO = CLESST 
GOTO CLCCB 
NIBHEX 0300 
GOTO CLCCT 
GOTO CLCCB 
GOTO CLCRIN 
GOTO CLCOUT 
GOTO CLCOFF 
GOTO CLCCB 


-CHR - NONSENSE, RTNCC 

Ic - NONSENSE, RETURN CARRY CLEAR 
1/R - NONSENSE, RTNCC 

USER - NONSENSE 

-LINE - CLEAR LINE & RETURN 

gx - CURSOR FAR LEFT 

g> - CURSOR FAR RIGHT 

BKSPC - BACKSPACE 

< - CURSOR LEFT 

> - CURSOR RIGHT 

CTRL - NONSENSE, RTNCC 

VIEW - NONSENSE 

gO - NONSENSE 

EOL - END LINE 

ATTN ~ CLEAR LINE & RETURN 

RUN - PFI OPERATION OUT OF ORDER 
CONT - END LINE 

SST - PERFORM OPERTN QUT OF GRDER 
UP - UPDATE STACK & EDIT NEW LINE 
DOWN - NONSENSE, RTNCC 

TOP - UPDATE STK, EDIT OLDEST LN 

BOTTOM - UPDATE STK, EDIT NEW LN 

ATTN - CLEAR LINE & RETURN 

CALC - EXIT CALC MODE 

GFF - TURN HP-71 OFF 

gEOL - UPDATE STK, EDIT NEW LINE 
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56 

57 166DR 7AA1 CLCCFL GOSUB CHRONE 

58 166DE AE4 AB OB 

59 166E1 1AC? D0=(4) =FIRSTC 
af 

60 166E7 6B60 GOTO CRSTAT 

61 

62 166EB 7000 CLCOFF GOSUB =STAKUP SET MEMORY FOR SHUTDOWN 

63 166EF 8FOO GOSBVL =DSLEEP YOU ARE GETTING SLEEPY... 
000 

64 166F6 7000 GOSUB =STAKDN PREPARE FOR WORK 

65 166FA 8E00 CLCATN GOSUBL =ORIGIN TRASH YESTERDAY'S WORK 
00 

66 16700 7482 GOSUB neustn 

67 16704 8E00 GOSUBL =atnclr CLEAR ATTENTION FLAG 
% 

68 1670A 8FOO GOSBVL =CLRXDS DISABLE EXERNAL DISPLAY 
000 

69 16711 E00 GOSUBL =KILLKY KILL REMAINDER OF KEY DEFINITION 
0 

70 16717 1887 =CLCCFR DO=(5) (=DSPSTA)+3 
4F2 

71 1671E 3708 LCHEX 5F4A0080 
oon4 
F5 

72 16728 15C7 DATO=C 8 

73 1672 03 RTNCC RETURN CARRY CLEAR 

74 

75 1672E 7651 CLCCL GOSUB CHRONE 

76 16732 1BC7 DO=(5) =FIRSTC 
aF2 

7? 16739 14A R=DATO B 

78 1673 AGC R=A-1 B 

79 1673F 9E8 7A>=B B 

80 16742 11 GOYES CRSTAT 

81 16744 03 RTNCC 

82 

83 16746 1BC7 CLCCR DO=(5) =FIRSTC 
aF2 

84 1674) 14f R=DATO B 

85 16750 B64 A=AtT B 

86 16753 31A4 CRSTAT LCHEX 4A 

87 16757 SEE Ar=C B 

88 1675A DB GOYES CLCCFR 

89 1675C 148 DATO=A B 

90 1675F 161 DO=D0+ 2 

91 16762 148 DATO=A B 

92 16765 185 DO=D0- 6 

93 16768 330C LCHEX 0000 
00 

94 1676E 15C3 DATO=C 4 

95 16772 03 —-RTNCE -RTNCC 

96 16774 6192 CBLNK GOTO CLCCB 

97 

98 16778 8E00 CLCSST GOSUBL =REDUCE UPDATE EXPRESSION 
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99 


100 
101 


102 
103 
104 
105 
106 
107 
108 
109 
110 
111 


112 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
123 


124 
125 


126 
127 
128 
123 
130 


131 
132 
133 
134 
135 
136 
13? 
138 
139 


146 
141 
142 


143 


1677E 


16784 
16787 


1678D 
167% 
16792 
16796 
1679A 
1679E 
167A1 
167A4 
167A? 
167AR 


167B1 
16784 
16787 
167BA 
167BD 
16700 
16702 
167C5 
167C9 
167CD 
16700 
167D3 


16 ?7DF 
16761 


167E7 
167ER 
167ED 
167F1 
167F4 


167FB 
167FF 
16802 
16805 
16809 
1680C 
16810 
16814 
16817 


16810 
16821 
16824 


00 

8E0O §=SSTO5 
00 
SFE 
8E00 
00 
865 
2E 
7000 
3100 
6C10 
161 
14D 
174 
132 
1BD8 
8F2 
14C 
130 
161 
14A 
962 
ED 
181 
7000 
3100 
40B 
181 
390F 
8202 
D302 
29 
8E00 
00 
542 
161 
7000 
136 
1BF8 
8F2 
1522 
B24 
181 
1503 
134 
2000 
7000 
161 
8EO0 
00 
76FE 
844 
8000 
00 


SST10 


SST 20 


SST 30 
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GOSUBL 


GONC 
GOSUBL 


?ST=0 
GOYES 
GOSUB 
LC (2) 
GOTO 
DO=D00+ 
DAT1=C 
01=D1+ 
ADOEX 
DO=(5) 


DATO=C 
DO=A 

DO=D0+ 
A=DATO 
*R=C 

GOYES 
DO=D0- 
COSUB 
LC (2) 
GOC 

DO=D0- 
LCHEX 


p= 
GOSUBL 


GONC 
DO=D0+ 
GOSUB 
CDOEX 
dO=(5) 


R=DRTO 
A=R+1 
DO=00- 
DATO=A 
po=C 
GOSUB 
GOSUB 
DO=D0+ 
GOSUBL 


GOSUB 
ST=0 
COLONG 


=ERRMSG 


CBLNK 
=SYNTAX 


RSTATE 
RTNCC 
=PARPRP 
=t- 
SST20 

2 

B 

2 


(=S-R1-2)+2 
B 


2 
B 
B 
SST10 

2 

=ARGCNT 
=ePRNIS 
SSTO5 

2 
203D2C28F0 


9 
=MENBER 


SSTH 
2 
=COMPIL 


(=S-R1-2)+4 


KS 
KS 


2 
x 
=CLCEXP 
=CLEBTS 


a 
ce 


=STKBAK 


CLCCFR 
DSTATE 
=NXTCHR 
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ON ERROR, FORCE EDIT 
CHECK SYNTAX 


OPERATOR EXPECTED? 

IF NOT, RETURN CARRY CLEAR 
PREPARE FOR PARSING 

GOTO SST2 


DELETE TOKEN FROM PASSIVE STACK 
APPEND TOKEN TO ACTIVE STACK 


RECORD TOKEN AS CONTEXT LIMIT 


EXAMINE STACK 

CHANGE SIGN? 

IF SO, REPEAT SST10 
VERIFY ARGUMENT COUNT 


IF ERROR, FORCE EDIT 


ASNNNT, COMMA, LEFT PARENTHESIS, 
SPACE, OR ENDLINE ON STACK? 


IF $0, GOTO SST30 
COMPILE TOKEN 


INCREMENT SST COUNT 
RECORD TOKEN AS CONTEXT LINIT 
EXECUTE FUNCTION 


DECOMPILE GPERAND FIRST 
GOTO NXTCHR 
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144 
145 


146 
147 
148 
149 
150 
151 
182 
153 


154 
155 


156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 


167 
168 


169 
170 


171 
122 
173 
174 
175 
176 
177 
178 
179 
180 
181 


182 
183 


184 
185 
186 
18? 
188 


1682A 79EE CLCEOL GOSUB 


1682E 1858 
5F2 
16835 146 
16838 184 
1683B 144 
1683E 3100 
16842 AES 
16845 02 


16847 8E00 
00 


1684D 133 
16850 1F67 
5F2 
16857 2A 
16859 174 
1685C 141 
1685F OC 
16861 57F 
16864 179 
16867 143 
1686A 1C4 
1686D 141 
16870 3100 
16874 8E00 


00 
1687A 8FOO 
000 


16881 8D00 
000 


16888 1BE? 
4F2 
1688F AE1 
16892 A6D 
16895 3102 
16899 161 
1689C B65 
1689F 14A 
168A2 362 
168A5 4F 
168A? 03 


168R9 8E0O 
00 

168AF 8FOO 
000 


16886 1BB7 

5F2 
168BD 142 
16800 130 
168C3 182 
168C6 1563 
168CA 93E 
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CLCOUT 


CALC10 


CHRONE 


CHR10 


RENTRY 
ENTRY 


CLCCFR 
DO=(5) =CLCSTK 


C=DATO A 
DO=D0- 5 
DATO=C A 
LCHEX 0 
B=C B 
RTNSC 


2° 


GOSUBL =ORIGIN 


ADIEX 
Di=(5) =CLCBFR 


P= 10 
Di=D1+ 5 
DATI=A A 

P=P+1 

GONC CALCIO 
D1=D1+ 10 
R=DAT1 A 
D1=D1- 5 
DATI=R A 

LC(2) =f 1 CALC 
GOSUBL =SFLAGC 


GOSBVL =DSPRST 
GOVLNG =CONFMN 


DO=(5) (=DSPBFS)-2 


AC OB 

GOYES CHR10 
RTNCC 

GOSUBL =PSHSTN 
GOSBYL =DSPRST 


DO=(5) =RFNBFR 
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DESTROY CALC SYSTEM 


JUMP TO BASIC SYSTEM 


FIND FIRST CHARACTER IN DECOMPILE 


PUSH COMMAND STACK 


READ RFNBFR 


AT STATEMENT HEADER? 
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183 
190 
191 
192 


193 
194 
135 
196 
197 
198 
199 


200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 


212 
213 


214 
215 


216 
217 
218 
219 
220 


221 
222 
223 
224 
2c5 
226 
227 
228 


229 
230 
231 
232 


233 
234 


168CD 
168CF 
168D2 
168D5 


168DB 
168DE 
168E2 
168E4 


168E6 
168ER 


168F0 
168F3 
168F6 
168F9 
168FC 
168FE 
16900 
1692 
16904 
169? 
169A 
169D 


16913 
16916 


16910 
16920 


16926 
16329 
1692C 
1692F 
16931 


1693? 
1633R 
1693C 
1693F 
16942 
16944 
1694? 
1694A 


16951 
16957 
1695E 
16962 


16966 
1696A 


CB 
132 
102 
1A87 
4F 
AF2 
15C7 
08 
01 


7D2E 
1AB7 
oF 
142 
164 
146 
8A2 
53 
DA 
CE 
cE 
144 
135 
164 
8£00 
00 
137 
1B58 
5F2 
144 
1AB8 
8F 
14€ 
AGE 
14C 
03 
8E00 
00 
ROF 
DB 
A36 
133 
D8 
130 
162 
1FO8 
4F2 
8E00 
00 
1BF8 
8Fe 
1564 
3100 
6C00 
14D 


CALC Node Editor <831212.1510> Fri Dec 30, 1983 2:32 an 


GOYES 
RDOEX 
R2=A 
b0=(4) 


C=0 
DATO=C 
CLRST 
RIN 


CLCBKS GOSUB 
DO=(4) 


A=DATO 
0O=D0+ 
C=DATO 


DECLEN 00=(4) 


BSTRTN RTNCC 
HROWAY GOSUBL 


C=DATO 

LC(2) 

GOTO 
GROWL DATI=C 


RENTRY 
(=DSPSTA)+3 


W 
8 


CLCCFR 
=RFNBFR 


RDWAY 


Hoon amvDvriawvwvonD 


MOVEUI 


=CLCSTK 
A 
=S-R1-2 
B 
B 
B 
=CNTCHR 
B 
A 
x 
A 


3 
=DSPBFS 


=MOVEU3 
(=S-R1-2) +4 
$ 

=kcSST 


SNARL 
B 


Page 5 
IF NOT, REPEAT RENTRY 
STORE COMMAND STACK POINTER 


SET DISPLAY STATUS 
RETURN 


READ RFNBFR 


READ RAWBFR 
RFNBFR = RAWBFR? 
IF SO, GOTO HRDWAY 


UPDATE RAWBFR 


DELETE CHARACTER 


UPDATE CLCSTK 


DECREMENT LENGTH COUNT 


RETURN CARRY CLEAR 
COUNT CHARACTERS IN BUFFER 


SAVE ADDRESS OF START OF BUFFER 


MOVE BUFFER TO DISPLAY BUFFER 


READ SST COUNT 


GOTO SARL 
APPEND SST CHAR TO DISPLAY BUFFER 
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235 
236 
237 
238 
239 
240 
241 
242 
243 
244 


245 
246 
247 


248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 


263 
264 
265 
266 
267 
268 
269 
270 
271 
272 


274 
275 
276 
277 


278 


279 
280 
281 
282 
283 


1696D 171 
16970 B67? 
16973 A4E 
16976 53F 
16979 R6F 
1697C 426 
1697F 7960 
16983 04 
16985 131 
16988 8C00 
00 


1698E 7DIF 
16992 1B67 

5F2 
16999 142 
1699C 6290 


169RO 112 
169A3 10 
169A6 D2 
169A8 1563 
169AC 165 
169AF 132 
169B2 CA 
169B4 19% 
169B7 1563 
169BB 93€ 
169BE A7 
169CO 1808 
4F2 
169C7 14C 
169CA 08 


169CC 854 
169CF 85A 
16902 714D 
16906 165 
16909 D3 
1690B B67 
169DE 161 
169E1 14€ 
169E4 96E 
169E7 4F 
169E9 ROF 
169EC 1876 
SF2 
169F3 3700 
0084 


Fe 
169FD AEB 
16A00 157 
16R04 03 


16A06 75RE 
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SNARL 


neustn 


CLECT 


CLCCD A=R2 


DATO=C 
CLRST 
ST=1 
ST=1 
ST=1 
GOSUB 
DO=D0+ 
D=0 
D=B+1 
DO=D0+ 
C=DATO 
CHO 
GOYES 
D=D-1 
0O=(5) 


LC(8) 


CLCEDX 
& 


EXIT10 


PHNYKY 


c=) 
DATO=C 
RTNCC 


CLCCB GOSUB 


GROWL 

B 
BSTRIN 
PHNYKY 
A 
=NEMSTN 
ENTRY 
=CLCBFR 


A 
MOVE1 


x D> nx D 


MOVE2 
=DSPBFS 


XIT10 
DEFADR 
(DSPBFS)*4096 


ENTRY 
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INCREMENT CHARACTER COUNT 
DONE APPENDING SST’s? 

IF NOT, REPEAT GROWL 
UNCOUNT LAST CHARACTER 

TF NULL BUFFER, RTWCC 

SET UP PHONY KEY ASSIGNMENT 


PREPARE FOR NEW STATENENT 
INITIALIZE EDIT 

READ CLCBFR 

GOTO MOVE 

RECALL COMMAND STACK POINTER 
READ LENGTH OF STATEMENT 
COMPUTE START OF NEXT STATEMENT 
READ LENGTH OF NEXT STATEMENT 


AT END OF COMMAND STACK? 
IF NOT, GOTO NOVE2 


INITIALIZE CALC MODE STATE 


SET DISPLAY PARAMETERS 


DETERMINE LEN OF DISPLAY BUFFER 


SET UP PHONY KEY ASSIGNMENT 


RETURN CARRY CLEAR 
INITIALIZE EDIT 
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284 


285 
286 
287 
288 
289 
290 
291 
2392 
293 
294 
295 
296 
297 
298 
293 
300 
301 
2 


303 
304 
305 
306 


307 


308 
309 


310 


314 
312 


313 


314 
315 
316 
31? 
318 
319 
320 
3214 
322 
323 
324 
325 
326 
327 


16AOR 1867 CLCCU 0O=(5) =CLCBFR 


5F2 
16A11 142 R=DATO A 
16A14 D8 B=A R 
16A16 112 A=R2 
16A19 8AO *A=B OR 
16A1C 34 GOYES MOVE1 
16R1E 130 DO=R 
16A21 182 DO=D0- 3 
16A24 D2 C=0 A 
16R26 1563 C=DATO X 
16A2A 132 ADOEX 
16A2D ER A=R-C A 
16A2F 130 MOVE! D0=A 
16A32 D2 C=0 A 
16A34 1563 C=DATO X 
16A38 162 MOVE2 DO=D0+ 3 
16A3B 102 R2=A 
16R3E D? D=C A 
16A40 1FC7 D1=(5) =FIRSTC 
4F2 
16R47 DO A=0 A 
16R49 141 DAT1=A A 
16A4C 173 DI=D1+ 4 
16A4F 8E00 GOSUBL =MOVEU3 
00 
16AS5 3480 LCHEX 000D8 
000 
16A5SC EB C=C-D A 
16ASE 8E00 GOSUBL =WIPOUT 
00 
16A64 8E0O CLCED GOSUBL =CHEDIT 
00 
16R6A 59F GONC CLCED 
16R6D 3464 LC(5) 
A641 
16R74 8C00 GOLONG =HASH2 
00 
16A7A GF4F =CLCET2 GOTO CLCEDX 
T6R7E 6B7C GOTO CLCATN 
16RA82 674F GOTO CLCEDX 
16A86 634F GOTO § CLCEDX 
16R8A 6F SF GOTO CLCEDX 
16A8E 6B7F GOTO 8 CLCCU 
16A92 6DOF GOTO §=6CLCCD 
16A96 67FE GOTO = CLCCT 
16R9A 6B6F cord = CLCCB 
T6ASE GBSC GOTO CLCATN 
16AR2 64AD GOTO  CLCOUT 
16RR6 644C GOTO  CLCOFF 
16RAR OFAC GOTO = CLCATN 
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READ CLCBFR 


RECALL COMMAND STACK POINTER 
POINTERS EQUAL? 
IF SO, GOTO MOVE 


READ LENGTH OF PREVIOUS STATEMENT 
COMPUTE START OF PREV STATEMENT 


READ LENGTH OF STATEMENT 
STORE COMMAND STACK POINTER 


RESET CURSOR 
COPY EDIT LINE TO DISPLAY BUFFER 


CLEAR END OF DISPLAY BUFFER 


IGNORE IMMEDIATE EXECUTE KEY 


JUMP TO NEXT FUNCTION 


EOL - EXECUTE EDITED TEXT & RIN 
ATTN - CLEAR LINE & RETURN 

RUN - EXECUTE EDITED TEXT & RIN 
CONT - EXECUTE EDITED TEXT & RIN 
SST - EXECUTE EDITED TEXT & RIN 
UP - CURSOR UP IF POSSIBLE 

DOWN - CURSOR DOWN IF POSSIBLE 
TOP - CURSOR TO TOP OF CAD STK 
BOTTOM - CURSOR TO BOT OF STACK 
gON - CLEAR LINE & RETURN 

CALC - EXIT CALC MODE 

OFF - TURN HP-71 OFF 

gEOL - CLEAR LINE & RETURN 
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ARG Abs 2 #00002 17 

ARGCNT Ext 119 

ASSIGN Abs 7 #00007 22 

BASIC Abs & #00008 23 

BEGIN bs 0 #00000 15 

BSTIRTIN Abs 92463 #1692F 219 =240 
CALCIO Abs 92249 #16859 157 160 

CBLNK Abs 92020 #16774 96 100 
CHEDIT Ext. 310 

CHR10 Abs 92313 #16899 174 178 
CHRONE Abs 92296 #16888 170 = §? 7§ 


65 34 = 44 52. 316 «6324 = 327 
12 155 247 284 


CLCATN Abs 91898 #166FA 
CLCBFR Abs 193910 #2F576 


CLCBKS Abs 92390 #168E6 198 37 

CLCBTS Ext 137 

CLCCB Abs 92678 #16A06 283 48 51 55 96 323 
CLCCD Abs 92576 #169R0 251 321 

CLOCFL Abs 91866 #166DR 57 36 

=CLCCFR Abs 91927 #16717 70 36 88 140 144 198 268 
CLCCL §=Abs 91950 #1672E 75 38 

CLCCR Abs 91974 #16746 83 39 

CLCCT Abs 92558 #1698E 246 50 322 

CLCCU Abs 92682 #16ROR 284 = 320 

CLCED Abs 92772 #16A64 310 9311 


264 «315 «317318 319 
144 4346 


CLCEDX Abs 92618 #169CA 
CLCEOL Abs 92202 #1682A 


' ' ' ' ' ‘ ' ' ‘ ! ' ‘ 1 ' 4 1 ‘ t ' t ' ' % ‘ ' ' ' ' ' 1 ' ' ‘ ‘ ' t ' v ' , ' ' ' , ‘ ‘ ' ' ' ' t t ' 4 ' 


=CLCET1 Abs 91762 #16672 
=CLCET2 Abs 92794 #16A7A 315 312 
CLCEXP Ext 136 

CLCOFF Abs 91883 #166EB 62 54 326 
CLCQUT Abs 92231 #16847 153 53 325 
CLESST Abs 92024 #16778 98 45 4 
CLOSTK Abs 193925 #2F585 12 145 213 
CLRXDS Ext 68 

CNTICHR Ext 220 

COMPIL Ext 128 

CONFAIN Ext 168 

CRSTAT Abs 91987 #16753 86 60 80 
DECLEN Abs 92448 #16920 215 

DEFADR Abs 194919 #2F967 12. 27? 
DSLEEP Ext 63 

DSPBFS Abs 193664 #2F480 12 170 228 262 278 
DSPRST Ext 167 = 182 
DSPSTA Abs 193653 #2F475 12 70-192 
DSTATE Abs 4 #00004 19 141 266 
ENTRY Abs 92335 #168AF 182 246) =—.283 
ERRMSG Ext 99 

EXITIO Abs 92635 #169DB 271278 
FIRSTC Abs 193660 #2F47C 12 og 76 83-2 
GROWL Abs 92522 #1696R 234 «= 238 

HASH2 = Ext 313 

HRDWAY Abs 92465 #16931 220-204 
KILLKY Ext 69 

LOCAL Abs 6 #00006 21 

MEMBER Ext 125 
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MOVET Abs 92719 #I6A2F 296 §=6249° = 289 
MOVE2 Abs 92728 H16RA38 - 299 261 


MOVEUT Ext = ets 

MOVEU3 Ext - 229 WH6 
NEWSTM Ext - 244 

NOP Abs 3 #00003 - 18 

NXTCHR Ext - 142 

ORIGIN Ext - 65 153 

PAREN Abs 10 #OOOOR - 25 267 
PARPRP Ext - 104 

PHNYKY Abs 92652 #169EC - 277 241 
PSHSTM Ext - 184 

REDUCE Ext - 98 

RENTRY Abs 92329 #168A9 - 181 189 
RFNBFR Abs 193915 #2F57B - 12 183 199 
RSTATE Abs 5 #00005 - 20 «102 ' 
RINCC Abs 92018 #16772 - 95 = 103 
S-R1-2 Abs 194699 #2F88B - 12 111 130 215 230 
SFLAGC Ext - 166 

SNAG Abs 9 #00009 - 24 

SNARL Abs 92531 #16973 - 237 89233 

SSTO5 Abs 9205 #1677E - 99 121 


SST10 Abs) =: 92062 #1679E - 107 117 
SST20 Abs 92087 #16787 - 114 106 
SST30 Abs =: 92172 #16800 - 136 © §=6126 


STAKDN Ext - 64 
STAKUP Ext - 62 
STKBAK Ext - 139 
STRING Abs 1 #00001 - 16 
SYNTAX Ext 7 101 
VAR Abs 11 #0O000B - 26 
WIPOUT Ext - 309 
atnclr Ext - 67 
ePRNIS Ext - 120 
FICALC Ext - 165 
keSST —s Ext - 232 


neustn Abs 92552 #16988 - 244 66 
t- Ext - 105 
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Input Paraneters 
Source file nane is ABSED:: MS 
Listing file nane 1s AB/ED: TI: ML::-1 
Object file nane 1s ABZED:TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assembler News 


satum Assenbler TRANSFORM Execution <831212.12 Fri Dec 3, 1983 2:44 an 


Ver. 3.39/Rev. 26 Page 1 

x FFFFF H H & TITTT FFFFF MOM 
x F H H &&% T F AN nM 
x F H H &8& T F nan 
x FFFF HHHHH & T FFFF OM AR 
7 F H H &&8& T F hon 
. F H H & & T F hoon 
. F H H 8&8 T E Aon 
x 


1 
2 
3 
4 
5 
6 
? 
8 
g 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

3? 

38 

39 

40 

44 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


TITLE TRANSFORM Execution <831212.1203> 
16RRE RBS #1 6ARE 

RDSYMB TIZEQU: MS 

ROSYNB SBZRAN: MS 


200200 SCI ROJO JO OUI IOI 
FOI ITO ITI TITS DIT ITD 


ak 
** Nane: TRSFMX - Execute TRANSFORM Statenent 

kh 

*% Category: STEXEC 

kh 

*®& Purpose: Execute TRANSFORM Statenent 

ae 

*X Entry: TRANSFORM Token Found 

an Pp = 0 

ae 0 @ Token immediately following TRANSFORM token 
kt 

aK Exit: To NXTSTM if no Execution Errors 

ar To BSERR if errors: 

ee Illegal Filenane 

ie Illegal Transforn 

xt 

xk Calls: MEMCHE, ALINFO, SKPTKN, RLINFO, DEFFIL, BSERR, NXTSTN, 
ak FSPECx, SVINFO, TRSFN- 

kk 

kk Uses: 


** Exclusive: €,D0,01,S3(sDEST) 
** Inclusive: All CPU registers, $11-S0, all STMT, FUNC 


xs and SCRTCH RAM, TRFNBF, SNAPBF, RSTKBF 

kt 

xX Algorithn: 

kk 

** 0.0 Reserve stack nenory for filenanes 

aR Initialize status to "Source" 

** 61.0 Try to skip INTO 

aK If successful, then 

ah If at "Source" then [source defaulted] 
aE Back up over INTO token 

an Source file <-- current file & device 
ak Go to 2.2 

x Else [at file type] 

xe Read and save away dest file type 

ak If at end of line then [destination defaulted] 
ak Dest file <-- source file & device 
xk Go to 2.2 

an Else 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 


67 


68 
63 
70 
71 
72 
73 


74 
75 
76 
7? 
78 
73 
80 
81 


83 
84 


85 


86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
o? 
98 
99 
100 
101 


102 
103 
104 
105 


TOARE 0000 
0 

16AB3 0000 
0 


16AB8 8FOO 
000 
16ABF 445 


16AC2 843 


16AC5 
16AC8 


RF2 
35FE 
10E2 
AFS 
15E5 
975 
De 
863 
B3 
165 


16ADO 
16AD3 
16AD? 
16ADA 
16RDC 
1 6RDF 
1ORE1 


16RE4 
1ORES 
1OREB 


15E3 
163 
1F1D 
8F2 
15D3 
817 
310F 
D5 


1OAF2 
16AF6 
16AFS 
16AFD 
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xx 2.0 Parse file nane (exit if error) 
xk 2,2 Save file info on stack 

xx If at "Source" then Goto 1.0 

ae Call Transforn utility 

at 


FOI III TI TO ITT TTT ITT TT TTI IT II IIIT ITI TTI IIT III 
FTO TTT IOI TOT OOOO 
x 


* Parse/deconpile addresses 
x 


REL(S) =TRSFND Transform Deconpile pointer 


REL(S) =TRSFMP Transforn Parse pointer 


x 


* Reserve stack nenory for filenanes 
* Initialize status to "Source" 
k 


=TRSFMX GOSBVL =ALINFO Allocate stack area for file info 
GOC bserr 5 
ST=0 ==sDEST Status: "Source" 

x 

* Try to skip INTO 

* If successful, then 

x If at "Source" then [source defaulted] 

x Back up over INTO token 

x Source file <-- current file & device 

x Go to 2.2 

x 

TFX100 C=0 WW Look for INTO token 

LC(6) =tINTO : 
B=C W 
C=DATO 6 ‘ 
BHC OW File nane instead? 
GOYES TFX200 
*S$T=0  =sDEST Were we looking for source file? 
GOYES TFX225 . If so, fall in current file 
DO=D0+ 6 Skip INTO 

x 

* Else [at file type] 

. Read and save away dest file type 

* If at end of line then [destination defaulted] 

x Dest file <-- source file & device 

x 


TFX120 C=DATO 4 
DO=D0+ 4 
Di=(5) /DFTYP 


Read dest type leaving A&D alone 


. and save aliay 


DAT1=C 4 : 

DSRC Set D(S) back to device code 
LCHEX FO Test for EOL leaving A&D alone 
B=C A . 
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106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 


11? 
118 
119 
120 


121 
122 


123 
124 
125 


126 
12? 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
14? 
148 


149 
150 
1514 
152 
153 
154 


16AFF 14€ 
16802 SED 
16B05 D2 


16B07 8E00 
00 
1680D 561 


16B10 7761 
16B14 8C00 
00 


16B1R 8FOO 
000 
16821 501 


16824 8F00 
000 
16B2B 3100 
16B2F 40E 
16832 7976 
16836 873 
16B39 80 
16B3B 853 
16B3E 568 


16841 70% 
16B45 7285 
16849 108 
16B4C 590 
16B4F 8FOO 
000 
16856 876 
16859 01 
16B5B 116 
16B5E 394A 
16861 FO 
16B63 8COO 
00 


*» + we we Oe 


k 


x 


x 


3 0 0 0 OF OF OF OF OF OF 0G 


C=DATO 
7C>=8 
GOYES 
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EOL token? 
. (save source file info as dest) 


Fetch file nane (exit if error) 


Save file info on stack 


If at "Source" then 


Set "Dest" status 
Go to 1.0 


TFX200 GOSUBL 


GONC 


TFX220 GOSUB 
bserr GOLONG 


TFX225 GOSBVL 


GONC 


TFX230 GOSBVL 


LC(2) 
GOC 


TFX240 GOSUB 


*ST=1 
GOYES 
ST=1 
GONC 


=f specx 
TFX2H 


TFURLI 
=BsErr 


=DEFFIL 
TFK240 
=F LDEVX 


zeF SPEC 
TFX220 
svinf+ 
=sDEST 
TFXWO 
=sDEST 
TFX100 


Transforn file 
If error, then issue error nessage but return to here 
If “Transforned current file" then 

Go to END ALL (collapse all stacks, close all files) 


Else 


If error, then 
MFERRS (Wind up at RUN loop) 


Go to 
Else 
Go to 


TFX300 GOSUB 


GOSUB 
R3=C 
GONC 
GOSBYL 


TFX320 ?ST=1 


GOYES 
C=R3 
*C=0 
GOYES 
GOLONG 


Fetch file nane 
Branch if OK 


Release save stack area 
Error exit 


Fetch default (current) file 


Make device code explicit 


Load “Invalid File Spec" 

Branch if inexplicit dest port 

Save away file nane, shifted device 
Were we at dest? 


Set "Dest" status 
B.E.T. 


NXTSTM (Process next statenent) 


TRSFN+ 
CRRYSV 


TFX320 
=MFERR* 


=sPRGCF 
endall 


8 
riferrs 
=NXtstni 


Transforn file 
Save carry 


If no error 
Issue error nessage, but return 


Transforned current running file? 


Recall error flag 

Error? 

If so, continue to run loop 
Go to next statenent 
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155 16869 8D00 endall GOVLNG =ENDALL Deallocate stacks 
000 

156 16870 8000 =nferrs GOVLNG =NFERRS Continue MFERR exit 
000 

157 x 

158 x 

159 &™ SR 1025-6 

160 x 

161 * Bug fix for TRANSFORM copy fron TAPE to RAN 

162 x 

163 16877 AS? = TF L400 D=C WP 

164 16B7A 20 P= 0 

165 16B7C 6536 GOTO §=svinfo 

166 16B80 0 CON(1) =FIXSPC 

167 a 


168 
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169 TRSFMu STITLE Transforn Utility Routine 
170 JI OOOO ITO TTR TTT 
171 KAKA KRAKEKREKKREKEAKE ARE IR KAKI RII IOI OOO TT TIO 
172 ak 
173 *X Wane: (S) TRSFMu - Transforn Utility Routine 
174 ax 
175 ** Category:  EXCUTL 
176 aa 

} 177 *x Purpose: 

fl 178 aK Transforn a file using source/dest file info on Save 
179 kh Stack. 
180 ae 
181 &* Entry: 
182 aK P = Q 
183 RX /DFTYP = Destination file type 
184 k Save stack info set up by SVINFO as by COPYX or TRSFMX 
185 ak 
186 tk Exit: 
187 aR P = 0 
188 ax C(1-0) = Transformation option 
189 ae C(6-2) = Dest file creation first paraneter 
19 an C(11-7) = Dest file creation second paraneter 
191 ke Save Stack info cleared fron Save Stack 
192 a Carry clear: 
193 kk Transforn completed successfully 
194 &k Carry set: 
195 ax C(3-0) = Error code. “Syntax" if all errors were 
196 x recoverable. 
197 ak 
198 tk Calls: FILFIL, EXPDEV, RDINFD/S, SVINFO, OPENF*, FINDFS, CRTF, 
199 aK RAN/OM, MENCHE, POLL, PRGFI#, LOCFI+,RPLLIN, 
200 ak WRITNB, and a host of local utilities 
201 ax 
202 kK Uses....... 
203 %* Inclusive: All CPU registers, statenent and function scratch, 
204 ax TRFMBF, $11-SO 
205 ak 
206 . Stk lvls: 6 (RSTKBF: 1 plus any used by handlers) 
207 

208 ** Detail: 

209 £2 waste 

: 210 an 
211 tk Status Used: 
212 PE. eee a 
213 kx 
214 kk Val Phase Nare Meaning 
215 PES ie pate eu ectn® sande atte teeta yaaa seed a ste Na a Sag 
216 te (0) (1) sEXTDV Source or destination is on HPIL device. 
217 kx 
218 ek (0) ( 2.) sTFREQ If set, a transform is required. Other- 
219 a wise it is a trivial case (file is already 
220 + desired type). 
221 ak 
222 ** (1) (1) sUNDEF Indicates both file nanes are undefined. 


223 a 
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224 ex (1) (3,4) sTFERR If set, a fatal error has occurred sone- 
225 ak where in the transform. User will be 
226 kx notafied at end. 

227 ae 

228 tk (2) (1) sCARD Indicates a card device on source or dest. 
229 ae 

2H” kk (2) (3,4) sTFWNG If set, a recoverable error has occurred 
231 aX during the transforn. This will becone 
232 na a fatal error after the transforn is 

233 ae) conplete. 

234 ak 

235 xx (3) (all) sDEST If set, we are accessing the destination 
236 am file info on the save stack. 

237 ax 

238 ** (4) (all) sREADI Used by RDINFO 

239 a . 

240 kx (5) (234) sTFINP If set, transforn is in place. Else, the 
241 ax source and dest files are distinct. 

242 a 

243 ** (6) ( 3.) sTFINV If set, we are doing an inverse transforn. 
244 aX A nonrecoverable error at this point will 
245 ze cause the file to be purged. 

246 kx 

247 tk (7) (all) sEOF If set, an EOF has been read on input 

248 + operation. 

249 am 

250 ex (8) ( 3.) sTFEND If set, the last line has been transforned. 
251 km Must be used because sEQOF can be set BEFORE 
252 ax the EOF 1s transforned. 

253 ak 

254 ek (9) (234) sDRYRN If set, transform results are not written 
255 a to dest, but used to calculate required 
256 ak size of dest file. 

257 ae 

258 ** (10)(all) sI/OBF If set, last referenced opened file is 
259 ax external. 

260 ax 

261 tk —§(11)(234) sPRGOCF If set, the transforned file was current 
262 ae file or was referenced on the stack (e.g., 
263 Ax CALLer of current file) 

264 ax 

265 ** Algorithn: 

266 aces Save return address 

267 ae Initialize FIB storage and status to zero 

268 aX Fill in massing file names (e.g., : TAPE INTO TEXT A) 
269 Ax If either filenane undefined, then error exit 

270 ax Expand destination device code 

27 ae If dest device not specific, then error exit 

ore ae Open source file (exit if error) 

273 ae Save away source FIBH 

274 a Build expanded source device code 

275 os Save away source file type 

276 am Clear status 

cee ae If source device = dest device 


278 ae If source nane = dest nare 
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279 a Set “Transforn IN PLACE” 
280 aa Store source FIBM as dest FIBH 
281 ah If file 1s secure, then 
282 ah Error exit 
283 KK If dest device is HPIL then 
284 ak If "Transform IN PLACE" then 
285 aK Error exit 
286 an Else 
287 KR If dest device 1s not RAM 
288 a Error exit 
289 KR Find transforn handler 
290 aK If no handler, then 
291 ak If transforn required, then 
292 KK Error exit 
293 ax Else 
294 ak If transforn “In place", then 
295 KR Return 
296 a Else 
297 ak Copy file to destination using COPYu 
298 KK If "Transform IN PLACE" then 
299 ax If there is no inverse transforn then 
HO = Error exit "Illegal Transforn" 
1 aK Release file info, clear sDRYRN 
H2 aR If file is current file then 
3 an Close it out and open new workfile 
4 aR Else 
w5 kk If dest file is external then 
6 ak Set "Dry Run” 
7? ak Else 
8 a Search for dest file 
9 aR If file found, then 
310 ax Error exit "File exists" 
311 ak Else 
312 aK Create dest file 
313 a Open dest file 
314 ak Store away dest file FIBH 
315 ax Release file info 
316 aK Initialize counts: NUMLINES, DESTLEN 
317 ak Save away true AVMENE 
318 kk 63.1 Set up default output buffer 
319 KK Save status 
320 ak Verify nininal menory requirenent 
321 ak Call Transforn routine 
322 aR Restore status 
323 ak If Error, then 
324 ax If recoverable, then 
325 ax Issue warning nessage 
326 ak Set "Warning" status 
32? aK If no error, then 
328 ax If "Dry Run" then 
329 re Adjust destination length counter 
330 KK If at EOF then 
331 AR Create dest file 
332 as Open dest file 


333 a Store away dest FIB # 
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334 aK Clear “Dry run" status 
335 aK Rewind source file 
336 KK Go to 3.1 [go to next line] 
337 ak Else 
338 am Read dest FIB 
339 KK If transform NOT IN PLACE, then 
340 ak Set old line length to zero for insertion 
341 ae Call WRITNB to copy output buffer to dest file 
342 a If fatal error, then 
343 ak Go to 3.5 
344 Kk Else 
345 KK Go to 3.1 {go to next line} 
346 KR Else {error} 
347 ax If recoverable error, then 
348 xx If in "Dry run" then 
349 ax Go to code sequence to process line 
350 Kk Else 
351 = Set error flag 
352 km Save error code 
353 aR If in "Dry run" then 
354 kk Go to 4.0 
355 aR If nenerr, substitute "Transforn Failed" nessage 
356 a Issue warning nessage 
35? ax If recovereble error, then 
358 le Set warning flag 
359 ak Go to code sequence to process line 
360 xk Else {It’s an unrecoverable error] 
361 xk If INVERSE transfornation, then 
362 ae Save "Transforn failed" error nassage 
363 xk Go to 3.9 
364 ae Else 
365 ae If transform IN PLACE, then 
366 ae Set "Inverse Transforn" status 
367 kk Rewind source file 
368 ae Set up inverse transfor address 
369 ak Go to 3.1 
370 *k 3.7 Collapse input, output buffer 
371 aA If Dry Run then 
372 ae Fetch Source FIB 
373 a* Else 
374 xx Fetch Dest FIB 
375 a If NOT inverse transfornation, then 
376 ae Truncate file te current position 
37? as Rewind file, save status 
378 am Call Chain Handler on file 
379 xk Call TFUSVE to hold error code, restore status 
380 = If Dry Run, then 
381 ax Play 1t again, San 
382 aX If error, then 
383 ak Set error code 
384 AE 3.9 Purge destination file 
385 ** 4.0 Restore return address 
386 = Read source FIB# 
387 aa If source FIBH not zero then 


388 ae If transforn IN PLACE then 
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389 xh Add file type and copy code to header 
3% aK Close source FIB 
391 a Read dest FIB# 
392 ah If dest FIBW not zero then 
393 ah Close dest file 
394 aR If not “Fatal error" status, then 
395 ae If not "Warning" status, then 
396 ak Exit successfully 
397 aa Else 
398 ak Set "Syntax" error code 
399 ah Issue error code message 
400 aR Exit with error condition 
401 ak 
402 ak 
403 ** History: 
404 ak 
405 aR Date Progranner Modification 
406 RK -eheces es. « Secbecechs. .2hbecSeoc eS ee cess eee cae Secs ee 
407 kK 06/20/82 FH Split off from TRSFMX code 
408 xx 
409 KEKE IRIS RIOR IOI TOIT 
410 RII TIO IORI IO SOOO FOO OR OO 
411 
412 Moh rial ccra Weipstig origiaea aig LG Bix Woe ate oe Pare awa Samia we Hawes rs 
413 x Equate Local Symbols ‘ 
414 Dn Pe CEN aaa R OLE SCORES RETARD SAS OHELET ERS ARES de Blais ia:8le 3 ee 
415 
416 ak 
417 - TRFNBF space used by TRANSFORM Utility 
418 x 
419 x (The following groupings imply required adjacency) 
420 * 
421 x -- Size --- Contents 
422 /ERRCD EQU ( TRFNBF )+0 4 Error code 
423 /SFIBR  EQU ( TRFMBF )+4 2 Source FIB# 
424 /DFIBH EQU ( TRFMBF )+6 2 Dest FIBH 
425 /SFTYP = EQU ( TRENBF }+8 4 Source file type 
426 /DFTYP EQU ( TRFMBF )+12 4 Dest file type 
427 /COPYC EQU ( TRFMBF )+16 1 Dest file copy code 
428 
429 {STAT EQU (TRFMBF )+17 4 Statuses during Xforn 
43% 
431 /DLEN EQU ( TRFMBF +21 5 Dest file len (DESTLEN) 
432 /NUMLN EQU ( TREMBF )+26 5 Line count (NUMLINES) 
433 /LINE# EQU ( TRFMBF ) +31 5 Line # 
434 
435 /OPTN EQU ( TRFMBF ) +36 2 Transforn Option 
436 /PARN1 EQU ( TRFEMBF +38 5 File Create Paraneter 1 
437 /PARM2 EQU (TRFEMBF )+43 5 File Create Paraneter 2 
438 
439 /UNLEN EQU ( TREMBF )+48 5 Input line length 
440 /FLAG €EQU ( TRFENBF )+53 7 Free for use by handler 
441 
442 


443 





rus 
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444 * Equate Status Synbols (See Detail above) 
445 * 
446 sTFREQ EQU 0 
447 *SEXTDV EQU 0 
448 sTFERR EQU 1 
449 XsUNDEF EQU 1 
450 sTFWNG EQU 2 
451 *sCARD EQU 2 
452 XsDEST EQU 3 
453 *sREADI EQU 4 
454 sTFINP EQU 5 
455 sTFINV EQU 6 
456 *sEOF  EQU 7 
45? sTFEND EQU 8 
458 sDRYRN EQU 3 
459 =sI/OBF EQU 10 
460 sPRGCF £QU 11 NOTE: Can’t be S2-S9 (used by COPYu) 
461 * 
462 
463 
464 
465 JOO OIE IO OI IO IOI TK 
466 x x 
467 x PHASE I x 
468 a x 
469 : Initialize, verify legal devices and nares, open source : 
470 
471 x x 
472 JIG IIIS ISIE OOOO OT OT TOI TK 
473 
474 x 
475 ** Save return address 
476 ** Initialize FIB storage and status to zero 
477 ** Fill in missing file nanes (e.g., : TAPE INTO TEXT A) 
478 kk Tf either filenane undefined, then error exit 
479 xk Expand destination device code 
480 xk If dest device not specific, then error exit 
481 x 
482 16B81 AF2 =TRSFM+ C=0 W Set options to zero 
483 16B84 1F9E =TRSFMu 01=(5) /OPIN Preset file create options 
8F2 
484 16B8B 1508 DAT1=C (/PARNZ)-(/OPTN)+5 . 
485 16B8F AFO A=0 W 
486 16B92 1D5C D1i=(2) /ERRCO Zero out local storage for FIBH’s, 
487 16B96 1598 DAT1=A (/SFTYP)-(/ERRCD)+4 . error code, source type ONLY 
488 16B9A 1DRD D1=(2) /OLEN Zero out dest file len, line count 
489 16B9E 159€ DATI=A (/LINE#)-(/DLEN)+5 . and line nunber 
490 16BA2 7CE6 GOSUB =R<rstk Save away calling address 
491 16BRA6 8FOO GOSBVL =PSHUPD Clain roon for tfr hdlr address 
000 
492 16BAD 8FO0 GOSBVL =FILFIL Fill in any missing file nares 
000 
493 16BB4 872 ?ST=1 =sCARD CARD or PCRD? 
494 16BB7 70 GOYES TFUER2 
495 16BB9 861 ?ST=0 =sUNDEF File nanes defined? 
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496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 


512 
513 
514 
515 
516 
51? 
518 
519 
520 
521 
522 
523 


§24 
§25 
526 
52? 
$28 
529 
530 
531 
532 
533 
534 
535 
536 
$37 
538 
§39 
540 
541 
542 
543 
544 
545 
546 
547 
548 


16BBC 41 


16BBE 20 
16BCO 3300 
00 
16806 08 
16BC8 7824 
16BCC 6843 


16BD0 77E3 
16BD4 51F 
168D7 1B9C 
8F2 
16BDE 148 
16BE1 7836 
16BE5 D4 
16BE? 131 
16BER 174 
16BED 143 
16BFO 19DC 
16BF4 1583 
16BF8 7287 
16BFC 49C 
16BFF 813 
16CO02 0B 
16C04 10A 
16CO7 7E66 
16COB 11A 
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2322020 JOJO ISTO ITI ITT TIT I TK 


* Mw He Oe Oe Ow 


Error Interlude 


TFUERR sets sERR and stores the error code, 
then junps to TFU400 to close the files. 


occur before sTFINP and sDRYRN have been given 


& 
& 
* 
k 
k 
TFUER*® serves the sane purpose for errors that & 
& 
heaningful values. 

& 

k 


KK KAKA KARE KAA K AKER KI KK KARE RAE KKK KEKE AER RAK RIERA RAIERARERER 


TFUER2 P= 0 
LC(4) =eFSPEC 


TFUER® CLRST 


"Illegal Filespec" 
Clear sPRGCF, sTFINP 


TFUERR GOSUB TFUSEC Store error code 
GOTO TFU4OO 
x 
ah Open source file (exit 1f error) 
aa Save away source FIB# 
ola Build expanded source device code 
ak Save away source file type 
* 
TFUOZ2O GOSUB TFUOPS Open source file 
GONC TFUER* Error if file not found 
00=(5) /SFIBH 
DATO=A B 
GOSUB  LOCFIL Locate file header 
A=B A Fetch sre file type fron FIB 
D1=A : 
D1=D1+ oF TYPb 
A=DAT1 A ‘ 
DO=(2) /SFTYP . and save auay 
DATO=A 4 i 
GOSUB = ?PRFIL Check for privacy 
GOC TFUER* 
DSLC Save shifted src device in R2 
C=0 A 
R2=C i 
GOSUB rdinfs Read source file info 
C=R2 Update explicit source device 
xX 
k 
&* SR 1026-6 
k 
* Bug fix for TRANSFORM copy from TAPE to RAN 
* = Code was: 
k 
k D=C A 
. GOSUB svinfo 
k 
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543 16COE 23 P= 3 
550 16C10 736F GOSUB TFUO40 


551 ae 
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552 
553 SIRI I IRI IIIT IAI IIIT IA IDI IS IISA IIIS SS IA IIIS ISIS IIA III IIS IAS STAN 
554 & x 
555 & PHASE II x 
556 t x 
557 x —_ Deternane kind of transforn, find handler, set status : 
x 
a JO III III OI TT TAT ITI ITI IIIT OTITIS ISI III IAIN 
560 
561 & 
562 * Source and destination filenanes and devices are defined! 
563 : See if transform is in place (filenames and devices equal) 
564 
565 & 
566 an Clear status 
567 x If source device = dest device 
568 ax If source nane = dest nane 
563 aK Set "Transform IN PLACE" 
570 ae Store source FIB# as dest FIBH 
571 aR If file is secure, then 
572 ak Error exit 
573 & 
574 16€14 08 CLRST Clear status 
575 16C16 AF8 B=A W Save src file nane 
576 16€19 110 A=RO : 
577 16C1C 101 R1=A : 
578 16C1F 7056 GOSUB rdinfd Read destination device 
579 16€23 B06 C=C+1 P Check for unspecified device 
580 16€26 4F2 GOC TFUIOO . and deduce “In Place" if so 
581 16€29 974 RAB OW Dest nane # src nane? 
582 16C2C 24 GOYES TFU120 
583 16C2E 110 R=RO 
584 16€31 119 C=R1 
585 16C34 ER A=A-C A 
586 16C36 FO ASL A 
587 16C38 8AC eAHO OR Dest narne # src nane? 
588 16C3B 33 GOYES TFU120 
589 16C3D 11A C=R2 Recall src device 
590 16(40 EB C=C-D A Conpare lower 4 nibs of device code 
591 16€42 F2 CSL A : 
592 16C44 8AA 7C=0 OA Src device = dest device? 
593 16€47 FO GOYES TFU100 . . then it’s in place 
594 16C49 817 DSRC Check for explicit port 
595 16C4C 8F0O GOSBVL =FLDEYX . 
000 
596 16C53 5A1 GONC TFU120 . and deduce "Out of Place" if so 
597 16C56 855 TFUIO0 ST=1 = sTFINP Set "Transform IN PLACE" 
598 16€59 704 GOSUB TFURDS Read source FIBH 
599 16C5D 171 Di=Di+ (/DFIBH)-(/SFIBR) Store as dest FIBH 
600 16C60 148 DAT1=A B 
601 16C63 7685 GOSUB LOCFIL Locate file 
602 1667 7517 GOSUB ?PRFI+ Check if file secure 
603 16C6B 401 GOC “FUERR . and error out if so 
604 x 
605 * Now decide if requested transforn is possible 
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606 & 

607 ax If dest device is HPIL then 

608 Sas If "Transform IN PLACE" then 

609 aK Error exit 

610 ax Else 

611 ae If dest device is not RAN 

612 an Error exit 

613 & 

614 16C6E 7206 TFUI20 GOSUB) rdinfx Dest device HPIL? 

615 16C72 ROG C=C+C P ; 

616 16€75 471 GOC TFU140 . branch if yes 

617 16€78 AOF D=D-1  P Dest 18 : MAIN? 

618 16C7B 411 GOC TFU140 . GOYES 

619 16C7E SOB 7D=0 OP Dest 1s independent RAN? 

620 16€81 CO GOYES TFU140 . error if not 

os JO III I IIE 

623 * Error Interlude * 

624 JOTI IDIOT IGE 

625 16C83 330 TFUER3 LC(4) =eFACCS Error: “Illegal Access" 
00 

626 16€89 6E3F “FUERR GOTO  TFUERR 

627 JOO IO TTR 

628 

629 x 

6H ek Find transforn handler 

631 *k If no handler, then 

632 a If transform required, then 

633 ax Error exit 

634 an Else 

635 x* If transforn "In place", then 

636 ax Return 

637 am Else 

638 ae Copy file to destination using COPYu 

639 & 

640 16€8D 7503 TFU140 GOSUB TFUDTP Read dest file type into A 

641 16C91 DA A=C A ‘ 

642 16€93 103 Di=D1- (/DFTYP)-(/SFTYP) Read src file type into C 

643 16096 15F3 C=DAT1 4 ; 

644 16C9R 7193 GOSUB TFHDLR 

645 16C9E 593 GONC =TFU200 Branch if handler found 

646 16CA1 860 ?ST=0  sTFREQ Transform NOT required? 

647 16CA4 CO GOYES TFU180 

ae TOKAI JOO SOI tot 

650 * Error Interlude * 

651 RAKAKR ARK R EE ARK KARE ERE KE 

652 16CA6 3300 TFUERS LC(4) =elLTFN "Tllegal transforn” 
00 

653 16CAC oCDF GOTO “FUERR 

654 SO Jo oto kootodot 

655 : 

656 16CBO 7605 TFU180 GOSUB Rstk<«r Restore return address 

657 16CB4 &FO0 GOSBVL =POPUPD Release roon for tfm hdlr address 


000 
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658 16CBB 75C2 GOSUB TFUCLS Close source file 
659 16CBF 875 ?ST=1 sTFINP Transforn in place? 
660 16C€(2 9% GOYES TFUI90 
661 16€C4 800 GOVLNG =COPYu What we have here 1s just a copy... 
000 
662 
663 JOO II ICT OTT TE 
664 x 
665 * TFURLI - Release Save Stack Area 
666 x 
667 x Exit: 
668 a C((A) = Entry state 
669 x Carry clear 
670 * 
671 * Uses: D(R) plus RLINFO 
672 x 
673 16CCB TFU190 What we have here is a No-op 
674 16CCB D? TFURLI D=C A Save C(A) 
675 16CCD 8FOO GOSBVL =RLINFO Release stack area 
000 
676 16CD4 0B C=0 a Recall C(A) 
677 16CD6 03 RTNCC 
678 
679 & 
680 kk Of "Transforn IN PLACE" then 
681 xe If there is no inverse transforn then 
682 aR Error exit “Illegal Transforn" 
683 xm Release file info, clear sDRYRN 
684 a If file is current file then 
685 o Close it out and open new workfile 
686 
687 16CD8 75F2 TFU200 GOSUB TFURHA Set 01 @ hdlr address storage 
688 16CDC 145 DATI=C A Store hdlr addr on GOSUB stack 
689 16CDF 1F50 01=(5) /COPYC Store dest copy code 
8F2 
690 16CE6 1554 DATI=C S$ . 
691 16CEA 875 7ST#O sTFINP Transform IN PLACE? 
692 16CED 60 GOYES TFU210 
693 16CEF 61AR0 GOTO TFU260 
694 16CF3 7AB6 TFUZIO GOSUB TFURIA Read inverse address 
695 16CF7 4EA GOC TFUER4 Error if no inverse handler 
696 16CFA 7894 GOSUB TFUSFH Find source file header 
697 16CFE 87A ?ST=1 sI/06F External file? 
698 16D01 28 GOYES TFUER3 . “Invalid Access" if so 
699 16003 7395 GOSUB DO=/B+ Save file header address in S-R1-1 
700 16007 144 DATO=C A : 
701 TORII IIIT TORR ROTO 
202 x ENTER STATUS-SAVED ARER x 
703 SOOO OO 
704 16D0R 7672 GOSUB TFUCLS Close source file, save status 
705 16D0E 7A85 GOSUB DO=/BX DO = File header address 
706 16D12 130 DO=A 3 
70? 16015 7065 GOSUB rdinfs Find source file nane 
708 16019 AF8 B=A W Cortpare with upper case 
709 16D1C 8FOO GOSBVL =CVUCH y 
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710 
711 
712 
713 


7414 
715 
716 
717 


718 
719 
720 
721 
ide 


723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 


734 
735 
736 
737 
738 


739 
740 
741 
742 
743 
744 
745 
746 
74? 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 


16D23 
16D26 
16D28 
16D2C 


16033 
16036 
16D3A 
16D3D 


16D44 
16D47 
16D43 
16D4C 
16D4E 


16055 


16D58 


16D5C 
16D5F 


16D62 
16D66 
16069 


16070 
16D 74 
16D78 
16D7C 
16D7F 


16086 
16D89 


16D80 


000 
970 
41 
7684 
8F00 
000 
5B7 
1507 
132 
8FOO 
000 
8A6 
92 
87D 
CO 
8F 00 
000 
501 
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TFUZ20 


x 
x 


PA=B OWN 

GOYES TFU220 
GOSUB svinfo 
GOSBVL =FILEF 


GONC TFUERS 
DATO=A W 
ADOEX 
GOSBVL =D1=CRS 
RHC OR 

GOYES TFU250 
*ST=1 13 
GOYES TFU230 
GOSBVL =ZERPGN 


GONC TFU24O 


7095 TFU2H GCOSUB TFUSTR 


FOI IO TTT TTT TIT TT II 


84D 
85B 


72C5 
85A 
8FOO 
000 
7825 
7063 
7F 32 
$83 
1FSC 
8F2 
149 
7F55 


6480 


FOI TORII OO ITO TIT I ION 


TFUZ4 


TFU2SO 


ST=0 13 
ST=1 — sPRGCF 


GOSUB TFUSTS 
ST=1 10 
GOSBVL =EDITWF 


GOSUB DO=/BX 
GOSUB DE-REF 
GOSUB TFUOPS 
GONC TFUER6 


2:44 an 
Page 16 


Fri Dec 3, 1983 


File name upper case? 


Resave upper case nane 
Already a file by that nane? 


. (error if so) 
Renane file to uppercase 
Check for current file 


and branch if NOT 
Branch if progran running 


Zero out progran addresses if fron 


. keyboard, else leave status to 
. go to NXTSTM (BET) 


Restore status for now 


Clear program running flag 

Set oucgey Current Running File" 
III III STA AIIM 

Save status 

Set flag for no collapse & nocat 
Set up neu workfile 


Recall file address 

Renove file fron nenory references 
Re-open file 

Exit if error 


01=(5) /SFIBH Save FIBH 
DATI=A B : 
GOSUB = TFUSTR Restore status 

FORO JOR OT TOTO RII TO IOI IOI IO 


s LEAVE STATUS-SAVED AREA x 
JOGO III TC TOT OK 


“FU480 GOTO  TFU300 

k 

kk Else 

ax If dest file 1s external then 
oe Set “Dry Run” 

aA Else 

xt Search for dest file 

as If file found, then 

ah Error exit "File exists" 
Kk Else 

a Create dest file 

+ Open dest file 

aS Store away dest file FIBH 
a Release file info 
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759 16091 7BE4 TFU260 GOSUB rdinfd Read dest file info 
760 16095 ACG C=C+C P Not HPIL? 
761 16098 580 GONC TFU270 . GOYES 
762 16098 859 ST=1 — sDRYRN Start dry run 
763 16D9E 4EE GOC “FU480 T 
764 SII IIIT IIIS IAT ITI ISI IIIIISSISI II III IIIS SS ISS ISI SSI SN: 
765 x ENTER STATUS-SAVED ARER x 
766 III III IIIT IDI ITT IIIT I IIIT IOS IAI IT IAI ISIS IIIS II IIIS SS: 
767 16D0R1 7385 TFU270 GOSUB TFUSTS Save status 
768 16DA5 8FOO GOSBVL =FINDFS 
000 
769 16DAC 481 GOC TFUZ80 Branch if file not found 
770 
71 SIO RTO IIT ITI 
772 * Error Interlude * 
773 $I IIT IIIT TRI TT DIT 
774 16DAF 3300 TFUERS LC(4) =eFEXST Error exit “File exists" 
00 
775 16085 D7? TFUER6 D=C A Save error code 
776 16DB7 7135 GOSUB TFUSTR Restore status 
777 16DBB DB C=D A Restore error code 
778 16DBD 6ROE ““UERR GOTO  TFUERR 
779 FIO TIT 
780 
781 16001 849  TFU435 ST=0  sDRYRN End dry run (entered fron below) 
782 16004 7065 GOSUB TFUSTS Save status 
783 16008 7484 TFU280 GOSUB rdinfd Fetch dest file info 
784 16D0CC 817 DSRC . into A, RO, and D 
785 16DCF 73C1 GOSUB TFUDTP Fetch dest file type 
786 16DD3 109 R1=C . into R1 
787 16006 AF2 C=0 W 
788 16009 1DBE D1=(2) /PARM Fetch ist file parameter (len) 
789 16D0D 147 C=DAT1 A a 
79) 16DEO 108A R2=C . into R2 
791 16DE3 174 D1=01+ (/PARN2)-(/PARN1) Fetch 2nd file paraneter 
792 16DE6 147 C=DAT1 A . into R3 
793 16DE9 10B R3=C i 
794 16DEC 8E00 GOSUBL =CRIF Create file 
00 
795 16DF2 42C GOC TFUER6 
796 16DF5 853 ST=1 =sDEST Open dest file 
797 16DF8 721 GOSUB TFUOPN 
798 16DFC D8 B=A A Save FIBH 
799 16DFE 7202 GOSUB TFUSVE Restore status 
800 FA II TIT SO SII TI IIA STII IIIS II IOS IIIIISIIIIIIIISISIS 
801 - LEAVE STATUS-SAVED AREA - 
802 FOO JOJO RJ JIT IOI 
83 16£02 460 GOC TFU290 If no error 
804 16£05 6A01 GOTO  TFU385 Purge dest file, finish up 
805 16£09 1DBC TFU290 D1=(2) /DFIBH Store auay dest FIB#H 
806 16E0D D4 A=B A : 
807 16E0F 149 DAT1=A B 
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808 

809 JOTI III OITA 

810 x x 

311 x PHASE III x 

812 x x 

813 x Transforn file line by line, calling handler each tirie < 

1 x 

a JOIST OOOO IOI GIGI TOK 

816 

817 * 

818 xk - Initialize counts: NUMLINES, DESTLEN 

819 *k Save away true AVNENE 

820 x 

821 16612 AFO TFU300 A=0 W Initialize counters and Line#: 

822 16£15 1FAD D1=(5) /DLEN . DESTLEN = NUMLINES = LINE# = 0 
8F2 

823 16E1C 159E DATI=A (/LINEH)-( /DLEN)+5 

824 16E20 848 ST=0 — sTFEND Set "In progress" status *< REMOVE 

825 x 

826 *% 3.1 Set up default output buffer 

827 at Save status 

828 a Verify mininal renory requirenent 

829 kk Call Transform routine 

830 a Restore status 

831 x 

832 16€23 1BFD TFU310 DO=(5) /NUMLN Increnent nunber of lines 
8F2 

833 16E2A 142 A=DATO A 

834 16&2D E4 A=A+1 A : 

835 16E2F 866 ?$T=0 sTFINV . NOT in inverse transforriation? 

836 16£32 BO GOYES TFU315 

837 16€&34 CC A=A-1 A . Decrenent 

838 16€36 CC A=A-1 A = 

839 16E€38 8A8 7A=0 006A . No nore lines to de-transforn? 

840 16€3B D3 GOYES tfu370 : 

841 16630 140 TFU315 DATO=A A . Store new line count 

842 16E40 878 ?S8T=1  sTFEND Last line transforned? 

843 16€43 53 GOYES tfu370 

844 16645 7B42 GOSUB TFLINE Transforn line 

845 JO IIE II TO OI OOO II II IIE 

846 x ENTER STATUS-SAVED AREA & 

847 JORIS EO IOI UG ICIS ITE 

848 16649 7781 GOSUB TFUSVE Save error, restore status 

849 JOIST TOU I OO IRE 

850 * LEAVE STATUS-SAVED AREA x 

851 JOISTS IOI III TIE 

852 

853 x 

854 ax If Error, then 

855 ak If recoverable, then 

856 x Issue warning nessage 

857 a Set “Warning” status 

858 aR If no error, then 

859 aS If "Dry Run" then 

860 a Adjust destination length counter 
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861 RK If at EOF then 
862 ak Create dest file 
863 aK Open dest file 
864 ak Store away dest FIB # 
865 ax Clear "Dry run" status 
866 ah Rewind source file 
867 ah Go to 3.1 [go to next line] 
868 * 
869 16640 500 GONC TFU320 Branch 1f NO error 
870 16£50 852 ST=1 — sTFWNG Set warning flag 
871 1653 94A *c=0) = § Unrecoverable error? 
872 16E56 84 GOYES TFU350 
873 16€58 5AS GONC TFU360 BET - issue warning nessage 
874 16E5B 869 TFU320 ?ST=0 sDRYRN DRY RUN NOT in progress? 
875 16E5E E1 GOYES TFU33% 
876 16£60 7204 GOSUB oblcnp Conpute output line length 
877 16E64 1FAD 01=(5) /DLEN Adjust DESTLEN 
8F2 
878 16E6B 147 C=DAT1 A 
879 16E6E C2 C=A+C RA 
880 16£70 145 DATI=C A ; 
881 16E73 868 ?ST=0 sTFEND NOT EOF? 
882 16£76 DR GOYES TFU310 : 
883 1678 6260 ,tfus70 GOTO TFU370 Prepare to play it again, San 
884 
885 ak Else 
886 ae Read dest FIB 
887 aR If transforn NOT IN PLACE, then 
888 a Set old line length to zero for insertion 
889 aR Call WRITNB to copy output buffer to dest file 
890 aa If error, then 
891 aR Go to 3.5 
892 ak Else 
893 ae Go to 3.1 
894 x 
895 16E7C 7561 TFU330 GOSUB TFURLL Read line length into R3 
896 16E80 7292 GOSUB TFURD+ Read dest FIBH, set C(A)=0 
897 16€84 875 ?ST=1  sTFINP Transform IN PLACE? 
898 16£87 50 GOYES TFU340 
899 16689 108 R3=C Set up for insertion 
900 16E8C 7894 TFU340 GOSUB TFUSTS Save status 
901 SOIR RISO JOR TOI JOT 
902 : ENTER STATUS SAVED AREA x 
003 II II II IIA IIIT II III STATISTI IIIS IIS IS IIA ISS ISIS SII IS. 
904 16690 7796 GOSUB WRITNB Write line to file 
905 16E94 847 ST=0 — sEOF Clear possible EOF after urite 
906 16697 7961 GOSUB TFUSVE Save error, restore status 
907 FORO ROTO TOK 
908 A LEAVE STATUS SAVED AREA : 
909 FRIIS IKI II ASIII III DI TTA TIL ITI IIIS KI IIIS IIIA IIIS IA 
910 16E9B 578 ve GONC TFU310 If not fatal error, continue 
911 
912 kk 6Tf error, then 
913 RX If recoverable error, then 


914 ae If in "Dry run" then 
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915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 


932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
$44 
945 
946 
94? 
948 
949 
350 
951 
962 
953 
954 
355 
356 
957 
968 
$53 
960 
361 
362 
963 
364 
965 
966 
967 
968 


16E9E 
16EA1 
16ER5 
16ER8 
16EAA 


16EBO 
16EB3 
16EB? 
16EBR 


16EBC 
1 6EBF 
16EC1 
16EC4 
16EC6 
16EC9 
T6ECC 
16EDO 
16ED4 
16ED7 


842 
7F41 
879 
07 
3300 
00 
108 
71F3 
872 
1A 


876 
55 
865 
06 
856 
848 
7904 
7DFO 
145 
6B4F 
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Go to code sequence to process line 


If nenerr, substitute "Transforn Failed" nessage 


Go to code sequence to process line 


Clear warning flag 
Save error code, set sTFERR 
If "Dry run" 


Display "Transform Failed" 


Issue warning nessage 
Recoverable error? 


IS THE "BAD NEWS" SECTION OF CODE 


If INVERSE transforriation, then 
Save "Transforn failed" error nassage 


If transform IN PLACE, then 
Set “Inverse Transforr" status 


Set up inverse transforn address 


Inverse transform? 
Transform NOT IN PLACE? 


Set "Inverse Transforn" status 
Set "In Progress" status 

Rewind source file, read inv tfr 
Store as transforn hdlr address 


Collapse input, output buffer 


ak 
xk Else 
ak Set error flag 
ak Save error code 
aR If in "Dry run" then 
a Go to 4.0 
kk 
ak Issue warning nessage 
kk If recovereble error, then 
aK Set uarning flag 
ak 
ak 
TFU350 ST=0  sTFHNG 
GOSUB TFUSEC 
?ST=1 = sDRYRN 
GOYES TFU400 
LC(4) =elTFFLD 
RO=C 
TFU360 GOSUB TFUWRN 
?ST=1  sTFWNG 
GOYES TFU320 
aK 
kk 
tk THIS 
ek 
ak 
aK Else [It’s an unrecoverable error] 
kK 
&k 
ae Go to 3.9 
xe Else 
kk 
ak 
ak Rewind source file 
kk 
Pe Go to 3.1 
ak 
?$T=1 sTFINV 
GOYES TFU390 
?ST=0  sTFINP 
GOYES TFU390 
ST=1 sTFINV 
ST=0 sTFEND 
GOSUB TFURWS 
GOSUB TFURHA 
DAT1=C A 
GOTG TFU310 
x 
ae Else 
ae FF 
ak If Dry Run then 
kk 


ae 
at 


Fetch Source FIB 


Else 


Fetch Dest FIB 
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969 Rx If NOT inverse transformation, then 
370 aX Truncate file to current position 
971 aK Rewind file, save status 
972 ak Call Chain Handler on file 
973 ax Call TFUSVE to hold error code, restore status 
974 ee If Dry Run, then 
975 ax Play it again, San 

ji 976 ak If error, then 
977 ax Set error code 

978 Be 3.9 Purge destination file 
979 & 
980 16EDB 7442 TFU370 GOSUB TFURDC Read src FIB, collapse buffers 
981 16EDF 879 ?$T=1  sDRYRN Dry Run? 
982 16EE2 FO GOYES TFU380 
383 16EE4 7032 GOSUB TFURDD Fetch dest FIB into A and R4 
984 16EE8 876 ?ST=1 sTFINW Inverse transforn just conpleted? 
985 16EEB 60 GOYES TFU380 
986 16EED 7FD4 GOSUB TRCFI# Truncate file 
987 16EF1 78A4 TFU380 GOSUB TFURWD Rewind file, read inv tfnm addr 
988 16EF5 1(9 Di=D1- 10 Read chain handler address 
989 16EF8 7FB4 GOSUB RRADD : 
99% 16EFC 7701 GOSUB GOSUBI Call finish-up routine 
991 16FOO 7001 GOSUB TFUSVE Restore status preserving error 
992 16F04 480 GOC TFU385 If error 
9393 16FO7 869 ?ST#1 — sDRYRN NOT Dry Run? 
994 16FOR £0 GOYES TFU400 
995 16FOC 64BE GOTO = TFU435 Play it again, San 
396 16F10 70E0 _ Fe385 GOSUB TFUSEC Set fatal error code 
997 
938 * I wean, this Transforn REALLY failed... 
399 & 


1000 16F14 7B24 TFU390 GOSUB TFUPGD Purge source/dest file 
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1001 EJECT 
1002 JO III I OOOO IOGIISIGIOISOCISO CII CT IT IOK 
1003 x x 
1004 x PHASE IY¥ x 
1005 x & 
1006 : Close files, release resources, set up exit condiitons : 
ee JIGS II OCIGUGIOUGIGUIOI ISOC ICO TO TI OR 
1009 
1010 x 
1011 kx 4.0 Restore return address 
1012 ae Read source FIBH 
1013 an If source FIBH not zero then 
1014 ax If transforn IN PLACE then 
1015 ak Add file type and copy code to header 
1016 ak Close source FIB 
1017 ax Read dest FIB# 
1018 am If dest FIBA not zero then 
4019 kx Close dest file 
1020 x 
1021 16F18 7E63 TFUA00 GOSUB Rstk<«r Restore return address 
1022 16F1C 8F0O GOSBYL =POPUPD Release hdlr address storage 
000 
1023 16F23 74AD GOSUB TFURLI Release save stack info 
1024 16F27 7FF1 GOSUB TFURDS Read source FIBH 
1025 16F2B 968 ?A=0)—o=B No FIBR? 
1026 16F2E 03 GOYES TFU440 
1027 16F30 865 ?ST=0 =sTFINP Transform NOT in place? 
1028 16F33 72 GOYES TFU420 
1029 16F35 871 ?8T=1 sTFERR Fatal error condition? 
1030 16F38 62 GOYES TFU440 
1031 16F3A 7C52 GOSUB LOCFHD Set DO to file type in file header 
1032 16F3E 16F DO=D0+ =oF TYPh : 
1033 16F41 7150 GOSUB TFUDTP Set C to dest data type 
1034 16F45 15(3 DATO=C 4 Update file type 
1035 16F49 173 Di=D1+ (/COPYC)-(/DFTYP) Update file copycode 
1036 16F4C 148 A=DAT1 B : 
1037 16F4F 164 DO=D0+ (oF LAGH)-(oFTYPh)+1 . 
1038 16F52 1580 DATO=A 1 ‘ 
1039 16F56 6700 GOTO  TFU440 
1040 16F5R 7R20 TFU420 GOSUB  TFUCLF Close file, preserve status 
1041 16F5E 7481 TFU440 GOSUB TFURD+ Read dest FIBH, set C(A) = 0 
1042 16F62 14D DAT1=C B Zero out FIBH 
1043 16F65 [60 PAHO OB Dest FIBH present? 
1044 16F68 2F GOYES TFU420 . Go clase it 
1045 x 
1046 as If not "Fatal error” status, then 
1047 ee If not "Warning" status, then 
1048 ae Exit successfully 
1049 tk Else 
1050 a Set "Syntax" error code 
1051 a> Issue error code nessage 
1052 ae Exit with error condition 
1053 e 


1054 16F6A 1D5C Di=(2) /ERRCO Read error code 





Saturn Assenbler TRANSFORM Execution <831212.12 Fri Dec 3, 1983 2:44 ar 


Ver. 3.39/Rev. 2306 Transforn Utility Routine Page 23 
1055 16F6E 15F3 C=DAT1 4 ‘ 
1056 16F72 871 *ST=1 sTFERR Return fatal error? 
1057 16F75 00 RTNYES 
1058 16F77 3300 LC(4) =eSYNTX Load default error code 
00 
1059 16F7D 872 *ST=1 sTFWNG Warning status? 
1060 16F80 OO RTNYES 


1061 16F82 03 RTNCC 
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1062 STITLE Miscellaneous Support Routines 
1063 JOIST COIS IOI TOIT COG EO RTI IK 
1064 x 
1065 ; TFUCLS, TFUCLF - Close (Source) File Preserving Status 
1066 
1067 * Entry: 
1068 : ACB) = FIBH (TFUCLF only; Source FIB used for TFUCLS) 
1069 
1070 * Exit: Status preserved 
1071 x 
1072 16F84 72A1 TFUCLS GOSUB TFURDS Read source FIB 
1073 16F88 7€93 TFUCLF GOSUB TFUSTS Save status 
1074 16F8C 8E00 GOSUBL =CLOSEF Close file 
00 
1075 16F92 6953 GOTO  TFUSTR Restore status 
ioe JOU ISIS IOC CO TI TE 
1078 & 
10793 * TFUDTP, TFUDT- - Fetch (Dest) File Type 
1080 x 
1081 * Entry: 
1082 x TFUDTP: None 
1083 . TFUDT-: D1 @ File type save area 
1084 
1085 * Exit: 
1086 * D1 @ File type save area 
1087 x C(A) = Fale type, zero filled 
1088 * Carry preserved 
1089 x 
1090 * Uses: D1, C(A) 
1091 x 
1092 16F96 1F1D TFUDTP 01=(5) /DFTYP 
8F2 
1093 16F9D De TFUDT- C=O A 
1094 16F9F 15F3 C=DAT1 4 
1095 16FA3 01 
1096 JIS I UII ITE OUI ICO ITC III II TTT TTA 
1097 x 
1098 * Nanie: TFUEOF, TFUCCK - Check for EOF or Error 
1099 x 
1100 * Category: LOCAL 
1101 x 
1102 * Purpose: 
1103 x TFUEOF locates the file and falls into TFUCCK. 
1104 7 TFUCCK returns to its callers caller af error (carry 
1105 * set) or if sEOF set (carry clear, C(A) 1s returned = 0). 
1106 x 
110? Entry: 
1108 x TFUEOF : 
1109 a R4(14-13) = FIBA 
1110 * TFUCCK: 
4111 * C(A) = Error code if error set. 
1142 : Carry = Set if error. 
14113 , sEQF = Set if last operation was not perforred due to 
1114 x EOF. This 1s a successful return condition. 
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1115 x 
1116 * Exit: TO CALLER’S CALLER if sEOF or Carry set on entry: 
1117 * Carry set: Error 
1118 x C(A) = Error code 
1119 k Carry clear: sEOF set on entry 
1120 x C(A) = 90 
1121 x OTHERWISE RETURN TO CALLER: 
1122 x C(A) = Entry state 
1123 x sEOF = Clear 
1124 x Carry = Clear 
1125 x 
1126 * Calls: None. 
1127 * 
1128 * Uses....... 
1129 * Inclusive: B(A),C(A)(TFUCCK); LOCFIW usage (TFUEOF) 
1130 x 
1131 * Stk lvls: 0 
1132 . 
1133 JOOS OCISOI EC OTT ITI IT TOT TK 
1134 16FA5 7072 TFUEOF GOSUB LOCFI# 
1135 16FA9 490 ~==TFUCCK GOC TFUE20 If error 
1136 16FAC 867 ?ST=0 =sEOF Return if no EOF 
1137 16FRF 34 GOYES TFURcc 
1138 16FB1 02 C=0 A Zero C(A) for null line 
1139 16FB3 05 TFUE2O B=C R 
1140 16FB5 07 C=RSTK Return to caller’s caller 
1141 16FB7 D9 C=B A . 
1142 16FB9 01 RIN 
aa JOIST OT IIIB ITI OTR TI TORTI 
1145 x 
1146 * Nane: TFUOPN, TFUOPS - Open File Fron Saved Info 
1147 x 
1148 * Category: LOCAL 
1149 x 
1150 * Purpose: 
1151 . Open source file fron SAVSTK info. TFUOPS opens the 
1182 x source file; TFUOPN opens source or destination. 
1153 x 
1154 * Entry: 
1155 x P = 0 
1156 x SAVSTK info contains source/dest file nanes. 
115? x sDEST = Set iff source file is to be open (TFUOPN only) 
1158 x 
1159 * Exit: 
1160 * P = 0 
1161 - Carry set: Successful open 
1162 x A(B) = FIBA 
1163 * Carry clear: Open failed 
1164 x C(3-0) = Error code 
1165 x 
1166 * Calls: OPENF*, RDINFO 
1167 x 
1168 * Uses....... 
1169 * Inclusive: All CPU registers, Statenent, Function scratch 
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1170 x 
1171 e Stk ivls:. ? 
1172 
1173 x 
4174 IK ISI IDI II TI III III III TTA IAI III III IIIT III I III I IIT III III ISI IOS 
1175 
1176 16FBB 843 TFUOPS ST=0 =sDEST 
1177 16FBE 71C2 TFUOPN GOSUB rdinfo Read file info 
1178 16FC2 817 DSRC Set up device info 
1179 16FCS AF2 C=0 W Zero out external file entry conds 
1180 16FC8 108A R2=C 
1181 16FCB 800 GOLONG =OPENF* 
00 
1182 
1183 JOIST III IIA I IO II TIN 
1184 - 
1185 * TFURHA - Read Transform Handler Address 
1186 x 
1187 * Entry: 
1188 x None. 
1189 x 
1190 x Exit: 
1191 x D4 @ Top address on GOSUB stack, which is assumed 
1192 m to be transform handler address. 
1193 x ACA) = Transforn handler address 
1194 x 
1195 * Uses ACA), D1 
1196 “ 
1197 16FD1 1F3A TFURHA D1=(5) =GSBSTK Fetch start of GOSUB stack 
5F2 
1198 16FD8 143 A=DAT1 A : 
1199 16F0B £4 A=A+1 A Space over type nib 
1200 16FDD 131 D1=A Read address 
1201 16FEO 143 R=DAT1 A ‘ 
1202 16FE3 01 RTN 
1203 
4204 JOO III III IIIT III III I III III IIIS II II II SOIT SII SSIS TN 
1205 ‘ 
1206 * TFURLL - Read Line Length into R3 
1207 x 
1208 * Entry: 
1209 * /LNLEN = Laine length 
1210 * 
1211 a ENat? 
1212 . C(A) = Lane length 
1213 - R3 = Line length 
1214 % Carry clear 
1215 * 
1216 * Uses: D1, C(A), R3 
121? A 
1218 - 
1219 16FE5 1F5F TFURLL 01=(5) /LNLEN 
8F2 
1220 16FEC 147 C=DAT1 A 
1221 16FEF 108 R3=C 
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1222 16FF2 03 TFURcc RTNCC 
ok JITTER RIT TTI TTT 
1225 
1226 : TFUSEC - Store error code in /ERRCD, set error flag 
1227 
1228 * Entry: 
1229 k C(3-0) = Error code 
12H z 
1231 * Exit: 
1232 & C(3-0) = Error code 
1233 x Carry = Entry state 
1234 x sTFERR = Set 
1235 k 
1236 16FF4 1F5C TFUSEC D1=(5) /ERRCD Store error code 
8F2 
1237 16FFB 1503 DAT1=C 4 : 
1238 16FFF 851 ST=1 — sTFERR Set error flag 
1239 17002 01 RIN Return with carry preserved 
1240 
1241 
1242 UII IIIS SIO IO IIE 
1243 k 
1244 : TFUSVE - Save error setting in RO, restore status 
1245 
1246 *% Entry: 
1247 & P = 0 
1248 * Carry: Set if error 
1249 & C(3-0) = Error code if error 
1250 x sEOQF = Set if eof 
1251 a /STAT = Prior status 
1252 & 
1253 ® Exit! 
1254 k P = 0 
1255 x Carry = Entry state 
1256 x C(S) = F if carry set on entry, else 0 
1257 x C(A) = Error code 
1258 x RO(S) = 0 if carry set on entry, else 1 
1259 & ROCA) = Error code 
1260 & D1 = {STAT 
1261 & Status = Prior status 
1262 & sTFEND = Set if sEOF set on entry, else prior setting 
1263 & 
1264 17004 F2 TFUSVE CSL A Isolate error code in C(R) 
1265 17006 F6 CSR AR : 
1266 17008 108 RO=C Save error codes if any 
1267 1700B 7CBO GOSUB CARYSV Save carry 
1268 1700F 3208 LC(3) 27(sEOF) Merge sEQF status with old status 
0 
1269 17014 1F6D D1=(5) /STAT 
8F2 
1270 1701B 7DE2 GOSUB =STATR+ ‘ 
1271 1701F 867 ?ST=0 = =sEOF Was the EOF NOT transforned? 
1272 17022 50 GOYES TFUSV1 
1273 17024 858 ST=1 — sTFEND Set "End" status 
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1274 17027 A4E ~=TFUSV1 C=C-1 § Reset carry 
1275 1702AR 118 C=RO Recall error return 
1276 1702D 01 RTN 


1277 
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1278 TFHDLR STITLE Find Transforn Handler 
1279 JOISTS RIT IS IIS SSIS SISOS ISS IIS II SII SII ISIS SII III IIS 
1280 JU OASIS III TT TD TTT 
1281 ak 
1282 ** Wane: (S) TFHOLR - Find Transforn Handler 
1283 RA 
1284 &k Category:  FILUTL 
1285 aK 
1286 *k Purpose: 
1287 aK Find the address of a transforn handler capable of 
1288 Re reading and transforning lines of the source type into 
1289 a lines of the destination file type. 
1290 x 
1291 &* Entry: 
1292 &K P = 0 
1293 aa A(A) = Destination file type 
1294 am C(A) = Source file type 
1295 ax $5 = Set if transfornation is IN PLACE (sTFINP) 
1296 RK 
1297 aX Exit: 
1298 ak P = 0 
1299 ah $5 = Preserved (sTFINP) 
1300 x Carry clear: [Transform handler found} 
101 an SO = Set if transforn requires a handler (sTFREQ) 
12 ax C(A) = Destination file copy code 
1303 ax C(S) = Transform handler address 
1304 a Carry set: 
1305 aK Indicates that a transforn handler NOT found, or that 
1306 ax the source and destination file types are the sane 
1307 aA and no LEX file declared that a handler was needed 
1308 ae (in this case, SO will be clear; transforn can be 
1309 a handled by COPY or by doing nothing if IN PLACE). 
1310 
1311 k* Calls: FPOLL 
1312 a 
1313 ** Uses....... 
1314 *k Inclusive: A,B,C, RO, DO, D1 
1315 ax 
1316 *k Stk lvis: 5 
1317 ax 
1318 ** History: 
1319 aR . 
1320 ax Date Progranner Modification 
1321 BK nena n ne eee eee ene e ee en ee ee eee nnn nen nee ene eneeee 
1322 2 04/01/83 FH Derived fron in-line code 
JESUS OTC TTT EST IR 
1325 JOS IOI OOO OTIS ISI IIIS ISI II IIIS AI I IIIA 

& 

ay JESSIE UGS OCICS IC TOTS 
1328 JOIST OCICS ISIC CCCI ITA TK IST 
1329 aX 
13% *k Nane:(S) pTRFMx - Poll for TRANSFORM Execution 
1331 a 
1332 kx Category: POLL 
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1333 ax 
1334 ** Type: FPOLL 
1335 RK 
1336 ax 
1337 *k Purpose: 
1338 ak Ask for an address to call for line-by-line transforna- 
1339 ax tion, and a similar address to call for line-by-line 
1340 aK inverse transformation should that become necessary. 
1341 Re The interface for these routines is defined in the 
1342 ae Detail below. 
1343 kk r 
1344 ** Should poll be "Handled" (return with XN=0)?: 
1345 ae Yes. 
1346 ae 
1347 ** Heaning of "Handling" Poll (what does code do if handled?): 
1348 ak The required information is present in the registers. 
1349 a 
1350 ** Entry conditions for handler (registers, ST, RAN, etc.): 
1351 aK ROCA) = Source file type 
1352 ak R1i(A) = Destination file type 
1353 aK SO = Set if dest type # source type, neans 


1354 am that a transforn IS required (sTFREQ) 


1355 ah $5 = Set if transforn is in place (sTFINP) 

1356 aX /OPTN = TRANSFORM option set by extended TRANSFORM 
1357 wk parse (or zero 1f mainfrane parse), as in: 
1358 ae TRANSFORM F INTO DATA FF,R 

1359 ax uhere R means randon I/0 records (no overlap) 
1360 ax See detail below for address of /OPTN 

1361 ae /PARMI, 

1362 ak /PARN2 = TRANSFORM destination file create paraneters 
1363 x set by extended TRANSFORM parse (or zero if 
1364 ak Nainfrane parse), as in: 

1365 ak TRANSFORM F INTO DATA FF,R, 50,128 

1366 ak where /PARM1 = 50 = nunber of records, 

1367 ax /PARM2 = 128 = record size 

1368 ae See detail below for addresses of /PARM1 and 
1369 ae /PARM2 

1370 ae P = 0 

1371 am Carry = Set on entry 

1372 ax B[R} = Poll nunber 

1373 ae HEX node 

1374 KR 

1375 kk Wornal exit conditions from handler if handled (ST, RAM, 
1376 ** registers, etc.): 

1377 ak RO(A) = Address of handler routine which can read 

1378 a® one line in from source and transforn it. 
1379 es See Detail below for handler interface. 

1380 ae ** & nibbles before this address is stored the 
1381 ke relative address of handler routine which can 
1382 am read one line in from source and transforn it 
1383 ie in the INVERSE direction; 0 if none exists. 
1384 KX Interface 1s sane as that of a normal handler 
1385 ke routine. See Detail for handler interface. 
1386 ae ** 10 nibbles before this address 1s stored 


1387 A the relative address of a routine which will 
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1388 ae finish the fully transforred destination file 
1389 a* before it is closed (e.9., to chain a BASIC 
139 BR file in RAM before leaving it); 0 if no such 
1391 aa routine is needed. See Detail below for the 
1392 aA finish-up routine interface. 

1393 aK RO(S) = Copy code of destination file type 
1394 aK $5 = Entry condition (sTFINP) 
1395 aK x = 1 if transforn handler routines must be called 
1396 ax to perforn transformation (even though source 
1397 ak and dest file types may be the sane) 
1398 ae = 0 if no transform handler routines need to be 
1399 a called (source file and dest file type must 
1400 a be the sane) 
1401 an HEX node 
1402 aR XH = 0 
1403 ak 
1404 **k Normal exit conditions fron handler if not handled (ST, RAN, 
1405 ** registers, etc.): 
1406 x Entry conditions preserved 
1407 aK HEX trode 
1408 ak xn = 4 
1409 ais 
1410 **% Available subroutine levels: 
1411 ak 
1412 x 
1413 x* What registers/RAM nay be used if handled?: 
1414 aR A-D, DO, D1, P, RO, R1, R2, SO 
1415 aR 
1416 ** What registers/RAN may be used if not handled?: 
1417 xk A-C, D[15-5} DO, D1, P, R2 
1418 ae 
1419 ak 
1420 ** Special nenory/pointer considerations (are pointers funny?): 
1421 ax No. 
1422 ax 
1423 ** Envisioned application(s): 
1424 ae Conversion betueen OEM file types and TEXT(LIF1) for 
1425 xx purposes of listing and interchange. 
1426 ae 
1427 ** History: 
1428 an 
1429 xk Date Progranner Modification 
143% PR eres. Be were te Coleaiinnsetenat eee cusa wee euee 
1431 Kk 95/27/83 FH Added new docunentation header. 
kk 
ee FORO I IIIT IIIT ISIS IS SSIS ISIS IIS ISIS ISIS SII STII SSSI SIS 
1434 ale 
1435 ** DETAIL: 
1436 ak 
1437 a INTERFACE TO TRANSFORM HANDLER ROUTINE 
1438 KR wa ee nen n nen nnn nn nn cnn nn nn nen een n nen ne 
1439 aR 
1440 ** Purpose: 
1444 ze Read line fron source file, transforn it into destination 


1442 a type and leave it in output buffer. No messages should 
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1443 a be directly issued by this routine. 
1444 1 
1445 ** Entry: 
1446 xx R4(15,14) = Source FIBH 
1447 RS Input, output buffers collapsed to SYSEN 
1448 ak At least 150 bytes + LEEWAY available renory guaranteed 
1449 ak /LINE# = 0 or previously returned BCD line # 
1450 aR /SFIBR = Source FIBH 
1451 ae /OPTN = Option fron extended TRANSFORM statenent 
1452 xx execution; 0 if from nornal TRANSFORM 
1453 kx /PARM1,/PARN2 = Destination file create paraneters fron 
1454 ax extended TRANSFORM staterent execution; 
1455 ak 0 if from normal TRANSFORM 
1456 KK P = 0 
1457 ax 
1458 ** Exit: 
1459 RK QUTBS @ Start of transforried line. If original line 
1460 ak Has copied into available nenory start, QUTBS 
1461 xx nay point irinediately after the original line. 
1462 wx Must be collapsed to /SYSEN if fatal error. 
1463 xx AVMENS @ End of transforned line unless fatal error. 
1464 ak Must be collapsed to /SYSEN if fatal error. 
1465 xx $7 1 iff end of file found on source file (sEOF) 


“won 


1466 Ke /LNLEN Full length in nibs of input line. Unneeded 
1467 Ka if fatal error. 

1468 Kx /LINE# = BCD line nuriber of current line. Used in 
1469 ak reporting error nessages. If sequential 
1470 aK line nurtber 1s to be used, set to 0. 

1471 KK P = 

1472 aS Carry clear: Successful transfornation 

1473 ax Carry set: Error occurred 

1474 a ((3-0) = Error code 

1475 aK C(S) = 0 if error mas fatal (unrecoverable). 

1476 ak # O if error was recoverable. 

1477 a 

1478 ** Allowed to use....... 

1479 ak All CPU registers, SO-S11, S13, Statement and Function 
1480 Hk scratch RAN, SNAPBF, RSTKBF, /LNLEN, /LINEH, /FLAG, 
1481 wk INBS, OUTBS, AVMENS 

1482 wk 

1483 kK Stk lvls: 6 (max) 

1484 ax 

1485 JOISTS TOI SISII ISIS IEICE GIO IIT Tt 
1486 ax 

148? a INTERFACE TO TRANSFORM HANDLER FINISH-UP ROUTINE 

1488 am 

1489 ** Purpose: 

1490 am To finish up the destination BASIC file after all TEXT 
1491 a lines have been transforned into BASIC. There are 
1492 aR several cases to be dealt mith: 

1493 ¥m 

1494 Ze End of a Dry Run (always out-of-place transforn): 

1495 a If the destination file 1s on an external mediun, a 
1496 a first pass or “dry run" 1s conducted without creating 


1497 a the dest file, in order to detertiine its necessary data 
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1498 ae size. This routine calculates the needed paraneters 
1499 a to create the file (see CRIF utility), and stores then 
1500 ae in /PARM1 and /PARNZ. 

191 aa 

1502 ha End of a Normal Run, Qut-of-Place Transforn: 

1503 a If the destination file type requires a subheader or 
1504 al Inplenentation field, it must be properly initialized 
1505 aA since CRIF stored a default value in it when the file 
1506 aR was created (see CRIF utility). For example, if the 
1507 a destination is a BASIC file, hex value OOOOQOOOOOOF 
1508 ak nust be written to the header to indicate that the link 
1509 aR chain heads have not been conputed for this file (file 
1510 ae has not been “chained"). If the file is in menory, the 
1511 RK the proper link chain heads are conputed and written to 
1512 aR the subheader. File data, such as links between sub- 
1513 Ne prograns in BASIC files, nay need to be updated. 

1514 

1515 aR End of a Normal Run, In-Place Transforn: 

1516 ak If the source file type had a subheader or Inplenenta- 
1517 ak tion field, it must be removed. If the destination 
1518 aR file type requires a subheader or Inplerientation field, 
1519 an it must be inserted after the file header and set to 
1520 ak the proper value. File data, such as links between 
1521 a subprograns in BASIC files, may need to be updated. 
1522 

1523 oa End of an Inverse Transfornation (Riluays In-Place): 

1524 a If the source file type had a subheader or Inplenenta- 
1525 a tion field, it it is still there but nay need to be 
1526 ne updated to reflect the new state. File data, such as 
1527 ah links between subprograns in BASIC files, tay need 

1528 as to be updated. 

1529 xk 

1530 ** Entry: 

1531 ax Output buffer collapsed (QUTBS, AVNENS point to SYSEN) 
1532 &% R4(15-14) = FIBH of destination file. Each line of the 
1533 a source file (including EOF) has been read, 
1534 ax transforned, and written to the dest file. 
1535 = The End of Data field in the FIB is set to 
1536 ae this new end of file and, if the dest file 
1537 a is in menory, any excess nibs beyond the 
1538 a end of file have been renoved fron the 
1533 as file chain. File is now rewound. 

1540 xe $5 = 1 iff transformation is in place (sTFINP) 
1541 aA S6 = 1 iff at end of inverse transforriation 

1542 = (sTFINV) 

1543 ae $3 = 1 iff at end of dry run (sDRYRN) 

1544 ae P = 0 

1545 = 

1546 ak Exit 

1547 at P = 0 

1548 a Carry clear: 

1549 ak No error 

1550 a Carry set: 

1551 ae C(3-0) = Error code (will be treated as fatal error, 
1552 aE with no possibility of recovering dest file) 
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1553 
1554 
1555 
1556 
1657 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1678 
1579 
1580 
1581 
1582 
1583 
1584 
1685 
1586 
1587 
1588 
1589 
1690 
1531 
1592 
1593 
1694 
1596 
1596 
1597 
1598 
1599 
1600 
1601 
1602 


1603 
1604 
1605 
1606 


1702F 850 
17032 8A6 
17035 50 
1703? 840 
1703A 108 
1703D 101 


17040 8E00 
00 
17046 C3 
17048 118 
1704B 831 
1704E F3 


xk 
ax 


TRANSFORM 


Inclusiv 


Stk lvls: 
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e: May use any CPU register, S10 
6 (nax) 


FOR JOO TTT TTT ITT III III IN 


ax 
ak 
ak 
ax 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
ax 
a 
xk 
xx 
xk 
ak 
a 
xx 
xs 
xx 
a 
ax 
ax 
xk 


TRF 


moe 


/ERRCD 
/SFIB# 
/OF IBH 
/SFTYP 
/DFTYP 
/COPYC 
/STAT 

/DLEN 

/NUNLN 


/LINEX 
/OPTN 
/PARM1 
/PARN2 
/LNLEN 
/FLAG 


% Where 
and 
TRANSF 


MBF FIELDS USED BY TRANSFORM ROUTINES 
TRFENBF Set by 
Offset Size User* Contents 
0 4 Error code 
4 2 Source FIBR 
6 2 Dest FIBH 
8 4 Source file type 
12 4 Dest file type 
16 1 Dest file copy code 
17 4 Statuses during Xforn 
21 5 Dest file len tDESTLEN) 
26 5 Line count (NUMLINES) 
31 5 H Line # 
36 2 x Transforn Option 
38 5 x File Create Paraneter 1 
43 5 x File Create Paraneter 2 
48 5 H Input line length 
53 7 H Free for use by handler 


"H’ indicates the field is set by the handler, 
*X’ indicates the field is set by the extended 
ORN execution routine 


FORO II II IOI IOI ITO TOO 
FOI ICO IIIT OI TIO TOI TOTOTTO ITIIIOK 


=TFHDLR ST=1 =sTFREQ Presune transforn required 
CHA OA Source type # Dest type? 
GOYES TFHD20 
ST=0  sTFREQ Status: "Transform NOT required" 
TFHDZ20 RO=C Save source , dest types RO,R1 
R1=A ; 
x 
* Poll for Transform handler address 
* Tf NOT handled then 
s Test for nainfrane types 
% If no match, then error exit 
* 
GOSUBL =FPOLL Fast poll for TRANSFORM handler 
CON(2) =pTRFMx 
C=RO Recall hdlr address or src type 
?RN=0 Handled? 
GOYES TFHDEO 
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1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 


1618 
1619 
1620 


1621 
1622 
1623 
1624 
1625 


1626 
162? 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 


17050 111 
17053 D5 
17055 AF2 
17058 880 
1705B 70 
1705D B46 
12060 OC 
17062 E6 
17064 8AS 
17067 00 
17069 3341 
2E 
1706F 86 
17072 00 
17074 3400 
671 
1707B 94A 
1707E FO 
17080 A46 
17083 R46 
17086 34E7 
871 
1708D 860 
17090 00 
17092 03 
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TFHD40 


TFHD6O 


A=R1 
B=C 
C=0 
2B«<A 
GOYES 
C=C+1 
ABEX 
C=C+1 
BHC 
RINYES 
LC(4) 


SBDBIYVADED 
=x 


=fBRSIC 


ARC OR 
RTNYES 
LC(5) 


"C20 § 
GOYES TFHDSO 
C=C+C § 
C=C+€ § 
LC(S) B->TxT 


?ST=0 
RTNYES 
RTNCC 


TXT->B 


sTFREQ 
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A(A) = Dest file type 

B(A) = Src file type 

Set "TEXT to BASIC" copy code 
Source < dest ? 

Clear "BASIC to TEXT" copy code 


Reverse order, B(A) = lesser type 
Lou type not TEXT? 


High type not BASIC? 


Load TEXT->BASIC address 
Are we TEXT to BASIC? 
Set copy code = 4 

Load BASIC->TEXT address 


Set carry if handler not required 


FOTO RIO RII TOO JOO RR IT IK 


Exit 


Exit 


se ee Oe 


TFLINE - 


Entry: 
P 


Entry: 
DO @ /NUMLN 
Transforn handler address 


/TFUAD = 


"STAT = 
/SFIBH = 


Read and Transforn Line by Calling Handler 


Entry status (not restored) 
Source file FIBH 


Rlso see Transforn handler exit conditions 


= 0 


R4(15-14) = FIBH 


TRANSFORM HANDLER INTERFACE: 


(INBS) = (QUTBS) = (AVMENS) 

100 nibs of nenory are available PLUS leeway 
during an inverse transfornation 

300 nibs of memory are available PLUS leeway 
during a nornal transfornation 


P = 0 
sEOQF = 
Carry clear: 
/LNLEN = 


Set if input line read was the end of file 


Length of input line 
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1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 


1674 


1675 
1676 
167? 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1683 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1639 
1700 
1701 
1702 
1703 


17094 7092 
17098 7780 
1709C D2 
1709E 3146 
170R2 876 
170A5 70 
120A? 32C2 
1 
120AC 8F00 
000 
170B3 AC2 
170B6 400 
170B9 164 
170BC DO 
170BE 140 
170€1 7COF 
1705 D6 


1700? 06 
17009 01 
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x /LINE# = 5 digit BCD line number of input line 

x or, if 0, the current line count will 

x be used (this is used for TFM warnings) 

- Output buffer contains output line 

x Carry set: 

k C(3-0) = Error code 

: C(S) = 0 if non-recoverable error, else #0 

TFLINE GOSUB TFUSTS Save status 
GOSUB TFURDC Read src FIB, collapse buffers 
C=0 A 
LC(2) 100 Load wen margin for inverse tfn 
?ST=1  sTFINV In inverse transfornation? 
GOYES TFLI20 
LC(3) 30 Load up nornal tf nen margin 


TFLI20 GOSBVL =MENCKL Not enough nenory? 


C=0 S é 

RTNC . return if not 

DO=DO+ (/LINEH)-(/NUNLN) Zero out line nunber 
A=0 AQ A 

DATO=A A g 

GOSUB TFURHA Read handler address 

C=A AR Call routine 


JORIS ITI TO TOK 
* NOTE: FALLS INTO CODE BELOW * 
SOI III OTK 
JG III DO TOC II IO IOC UCI CI OK 
ke 
xk Nane: 
ak 
** Purpose: 
ak Given an address, junp to it with carry preserved. 
kk 
** Entry: 
ak C(A) = 
ak 
ae Eat? 
ah 
JU III EIEIO OO I 
JOIST IOI I IT TRIO 
+ NOTE: FALLEN INTO FROM ABOVE * 
TORII ROTOR 
GOSUBI RSTK=C Push address onto stack 

RTN Go to 1t with carry preserved 


GOSUBI - Indirect GOSUB Utility 


Address to junp to 


To specified address 
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1704 CARYSV STITLE Save Carry in C(S) 
1705 JI IIIS ITT ITI ISI IOS II SIS SSI SII II III IIIS IIS 
1706 KA KKRKAAK KER III III RRR IRA IIR RIO OOO TTI TOK 
1707 ak 
1708 t* Narie: CARYSV - Save Carry in C(S) 
1709 x 
1710 ** Category:  GENUTL 
1711 aK 
1712 ** Purpose: 
1713 ax Save current setting of carry bit in C(S). Carry can 
1714 ax then be restored by: (C=C-1 § 
1715 ak 
1716 ** Entry: 
1717 aK None 
1718 RK 
1719 ** Exit: 
1720 ia Carry = Entry state 
1721 am C(S) = 0 if carry is set 
1722 = = 1 if carry is clear 
1723 kx C(A) = QO if carry clear, else entry state 
1724 ak 
1725 ** Calls: None 
1726 ak 
1727 B® USO vc 55ss 
1728 *k Inclusive: C(S) 
1729 ax 
17% ** Stk lvls: 0 
1731 a 
1732 *x History: 
1733 ae 
17% =e Date Progratiner Modification 
1738 BK ewcwwwee ewe mre erence rem ce seer en wenn cewenenecercanerce 
1736 kk 10/11/82 FH Designed and coded. 
xx 
Pac $3 II III IIS IO TOI TIT III III ISI I ISI III III III ISI IIIS SIS SIS SSIS. 
1739 SII I III IIIS IOI I III II IIIT IIIA ISIS IIT I II IIIS IIIS SII II ISIS IS. 


1740 170CB AC2 
1741 170CE 400 
1742 17001 B46 
1743 170D4 D2 
1744 17006 03 


=CARYSV C=0 S Set C(S) 
RTNC Return if carry set 
C=C+1 § Increnent C(S) 
C=0 A Clear C(A) 
RTNCC 
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1745 
1746 
1747 
1748 
1749 
1750 
1751 
1782 
1753 
1754 
1755 
1756 
175? 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1722 
1773 
1774 
1775 
1776 
177? 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 


> 4 70ED 


17008 D8 
170BA 8FO0O 
000 
CE 
108 
1F67 
8Fe 
145 
E1 
8FOO 
000 


170E4 
170E3 
170E6 


170FO 
170F2 


5 170F9 8C00 


00 


2:44 an 
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DE-REF STITLE Rerove File Fron Menory References 
20 OI TOC IT IIIT OS II III IIIS III I IITA ITI I IIS IITA 


JO II III III III I IOS AT ISIS IIT III III IIIT III I II IIIS SII IIS TI K 
ak 

** Name: 

tk 

** Category: 
oe 

** Purpose: 

x Zero all pointers in I/0 Buffers or GOSUB or FOR/NEXT 
Rx stacks which point to the specified file. Technique 


DE-REF - Renove File Fron Menory References 


FILUTL 


oa used is to call RFADJ with sinulated purge of all but 
ae the last nib of the file (full file cannot be used or 
ak else pointers to the next file, such as CURRST, mill 
ae get adjusted incorrectly). 

a 

** Entry: 

ar P = 0 

Kx A(A) = Address of file header of file 

kx 

RK EKit: 

ax P = QO 

am A(R) = Address of file header of file 

7 Carry = Clear 

ix 

tk Calls: FILSK+, RFAD-I, PUGFIB 

ae 

RK Uses. ...... 

*k Exclusive: ACA), BCA), C(A), D1, RO, S-RO-1 

*k Inclusive: A-D,DO,D1,RO,R1 

kk 

ek Stk lvls: 4 

ka 

** History: 

ae 

aA Date Progranner Nodif ication 

oh, (ote ee. eke. aeeew ores eset eeee 
kk 09/27/82 FH Inplenented check for current file 
Kk 03/12/83 FH Revised to use sinulated purge 

ke 


FOI III TOI TOT TI OO OI 
FOO JU ITO TI IO IK 


=DE-REF B=A R B = DEST = file header address 
GOSBVL =FILSK+ Cornpute C(R) = addr of next file 
C=C-1 A Conpute EOF-1 = last nib of file 
RO=C RO = BEGIN SOURCE = last nib 
Di=(5) =S-RO-1 Save pointer to "End of Chain" 
DAT1=C A Save E0F-1 as End of Chain 
B=B-C A B = OFFSET = DEST - SOURCE 
GOSBVL =RFAD-I Adjust references 
GOLONG =PUGFIB Purge FIB if file was open 
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1796 EOFCHK STITLE Check for EOF on File 
1797 JOSIE CIO I TRE 
1798 SOOO J IIIOI OR TOO TODO TOE 
1799 es 
1800 xx Nane: EQFCHK - Check for EOF on File 
1801 ae 
1802 ** Category:  FILUTL 
1803 ax 
1804 ** Purpose: 
1805 a Check if FIB’s current position >= length of file. 
1806 ak 
1807 ** Entry: 
188 xx STNTD1 = Address of FIB entry 
1809 aR 
1810 ae Exit: 
1811 aK P = 0 
1812 ks D1 @ Data Len field of FIB 
1813 tal STMTD1 = Address of FIB entry 
1814 ax ACA) = Contents of FIB Data Len field 
1815 x C(A) = Contents of FIB Curr Pos field 
1816 a $7 = Set iff Curr Pos >= Data Len (sEOF) 
1817 ak Carry = Set iff Curr Pos >= Data Len 
1818 aa 
1819 ** Calls: None. 
1820 aa 
1821 ** Uses....... 
1822 *k Inclusive: A(A),C(A),D1,P,S7(sEOF) 
1823 ak 
1824 * kk Stk lvls: 1 
1825 aR 
1826 *k History: 
1827 a 
1828 xx Date Progranner Modification 
1829 RR nnn wn wee cme e meee nn ee en nn reer ern e errr enn c en ener eene 
1830 - 03/08/83 FH Designed and coded. 
x 
ees JOIGIGISOCISI IOUT IIS CCC TOTO II III IIS III IIIS IIIS 
1833 JOIISIGICIO ISIC ICO TIO TTA IIIS II IIIS IIIA LL 
1834 170FF 74FO =EOFCHK GOSUB D1@CPS Read curr pos field into C 
1835 17103 175 D1=D1+ (oDLEND)-(oCPOSb) Read data len into A 
1836 17106 143 A=DAT1 A : 
1837 17109 857 ST=1 = sEOF Presune EOF 
1838 1710C 8BA A<=C A . At EOF? 
1839 1710F RTNYES ‘ 
1840 17111 847 ST=0 = = sEQF Flag no EOF 
1841 17114 03 RTNCC 
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1842 FIBHSV STITLE Save File FIB # in R4 
1843 SGI II DOO III SOG IC ISOIGOICO IU ISG IOC ITOK IR 
1844 JOG ISI II OIC TOO I OC IO TO OT 
1845 ax 
1846 kk Nane: FIBHSV - Store/Recall File FIB # in R4 
1847 *k Nane: FIBHRS - Store/Recall File FIB # in R4 
1848 kK 
1849 ** Category:  FILUTL 
1850 KR 
1851 ** Purpose: 
1852 aK Save and recall file FIBH into/fron R4(15-14). 
1853 KK 
1854 ** Entry: 
1855 xk FIBHSV: 
1856 Sas A(B) = FIBH 
1857 KK FIBHRS: 
1858 KK R4(15-14) = FIB# 
1859 aX 
1860 KX Exit: 
1861 a ACB) = FIB# 
1862 KK R4(15-14) = FIB# 
1863 a Carry preserved 
1864 kk 
1865 *& Calls: None 
1866 Ke 
1867 KK Uses... 
1868 *k Inclusive: R4 (FIBHSY only), A (FIBARS only) 
1869 Kk 
1870 *k Stk lvis: 0 
1871 ax 
1872 *k History: 
1873 a 
1874 mee Date Progranner Modification 
1875 RK nen nen ne neem neem re nn nen nn een nn ee ne ene e eee 
1876 _ 09/29/82 FH Designed and coded 
1 x 
fae JO III OI II COT UE IGE 
1879 JOIST ISI III II IGS IGU IAC IG ISO I TE 
1 
ee JOIST IIS EIST UCIOG OCIS 
1882 
1883 * TFURDS, TFURDD, TFURD+ - Read Source/Dest FIBH 
1884 x 
1885 * Entry: 
1886 x None 
188? a 
1888 * Exit: 
1889 x R4(15-14) = FIBA 
1890 x ACB) = Source FIBR (TFURDS) 
1891 x = Pest FIBH (TFURDD, TFURD+) 
1892 x D1 @ /SFIBH (TFURDS) 
1893 x (TFURDD, TFURD+ } 
1894 * C(A) = O (TFURD+) 
1895 x 
1896 * Uses 
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1897 x A(B),D1,R4, CCR) (TFURD+) 

1898 x 

1899 17116 D2 TFURD+ C=0 A 

1900 17118 1FBC TFURDD 01=(5) /DFIBA 
8F2 

1901 1711F 6110 GOTO  TFURD- 

1%2 x 

1903 17123 8FOO TFURDC GOSBVL =BBCOLL Collapse input, output buffers 
000 

1904 a 

1905 17128 1F9C TFURDS D1=(5) /SFIB# Set up Source FIB read 
8F2 

196 17131 148  TFURD- A=DAT1 B Read FIBH 

1907 x 

1908 17134 814 =FIBHSV ASRC Store FIBH 

1909 17137 814 ASRC ; 

1910 1713A 104 R4=A : 

1911 17130 114 =FIBRRS A=R4 Restore FIB# 

1912 17140 810 ASLC . 

1913 17143 810 ASLC 

1914 17146 01 RIN 
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1915 HEXASC STITLE Hexadecinal to Ascii Conversion 
1916 JOIST IOI OI OO ICO OO OE TOTO 
1917 JO I OI ISIS OCIS OC CO TIT IK 
1918 x 
1919 *& Nane:(S) HEXASC - Convert Hexadecinal to Ascii 
1920 xR 
1921 ** Category: CONVRT 
1922 xx 
1923 ** Purpose: Converts specified number of hex digits to ASCII 
1924 an and returns the string (backwards) in A(W), B(W) 
1925 ak 
1926 ** Entry: 
192? wk A(W) = Hex digits 
1928 ak C(S) = #nibs-1 to convert; rust be 7 or less 
1929 ax P = 0 
1930 aR 
1931 Xx Exit: 
1932 ax ACW) = Converted string (high digit in low nenory) 
1933 ak B(W) = Converted string (high digit in low tenory) 
1934 ak C(S) = F 
1935 ak Pp = 0 
1936 = Carry = Set 
1937 ak 
1938 **k Calls: none 
1939 ak 
1940 xk Stack lvls: 0 
1941 ak 
1942 **k Uses: A, B, C(S), C(B) 
1943 ax 
1944 ** History: 
1945 ax 
1946 RA Date Progranner Modification 
1947 PE Geeks. nebeseuiae nese Ae alecaaeeepebowss 
1948 Kk 07/04/82 SH Added docunentation 
kh 
ek JOIST IOI GOI OGIO IOI ISO GIES ITOK 
1951 JOO IDOI II TOC III CCC III OOK 
1952 - 
1953 17148 BF1 =HEXASC BSL W 
1954 1714B BF1 BSL W 
1955 1714E R88 B=A P 
1956 17151 BF4 RSR W 
1957 17154 308A LCHEX A 
1958 1715? 989 ?B>=C P 
1959 1715A 90 GOYES HXASC3 
1960 1715C 3103 LCHEX 30 
1961 17160 560 GONC =RXRASCS (B.E.T.) 
1962 7 
1963 17163 3173 HXASC3 LCHEX 3? 
1964 17167 Abl HXASCS B=B+C B 
1965 1716A AGE C=C-1 §$ 
1966 1716D SAD GONC —-HEXASC 
1367 x 
1968 17170 AF4 A=B W 
1969 17173 01 RIN 
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1970 LIFONB STITLE Convert LIF1 Byte Count to Nibs 
1971 SI TORII SIR III RT IIIS III IIS IIIS III SII III IIIS IIS III SSIS IIIS SS. 
1972 JIU IO IIS IIIS IIIS III IIS SII III IIS III ISIS ISIS SI IIIS SIRI SIS. 
1973 ak 
1974 ** Narie: LIF>NB - Convert Byte Count to Nibs 
1975 aK 
1976 tk Category:  FILUTL 
1977 aK 
1978 *k Purpose: 
1979 ia Takes the byte count fron the header of a line fron 
1980 ak a TEXT (LIF type 1) file and converts it into the true 
1981 ak nunber of nibs occupied by the renainder of the line. 
1982 ak The trick is that if the byte count is odd, and extra 
1983 ak byte of padding is added to the line. 
1984 an 
1985 &k Entry: 
1986 ak A(3-0) = Byte count fron line header as a 16-bit value 
1987 hk (note: the 4-nib value read fron the file 
1988 ak be byte reversed using SWPBYT beforehand). 
1989 ak 
19% RX Exit: 
1991 an C(A) = Corresponding nibble count 
1992 ak Carry clear: (Byte length was EVEN) 
1993 ak $8 = Clear (sO00D) 
1994 ah Carry set: (Byte length was ODD) 
1995 ae $8 = Set (s00D) 
1996 ak 
1997 ek Calls: None. 
1998 er 
1999 RR Uses... 2.245 
2000 *k Inclusive: C(A), $8(sO0D) 
2001 ak 
2002 tk Stk lvls: 0 
2003 ak 
2004 &k History: 
2005 aK 
2006 as Date Progranner Modification 
2007 te (SECCSS. waeeouaawes: Nauetvacsqececeuvectceressdsaeemes 
2008 Rk 09/21 /82 FH Designed and coded 
2009 ak 
2010 JUROR IT II TI IT IIS IS SSIS III III ISI SII IOSD IS ASSISTS IS IS 
2014 $I III IO IRI ITI IIT III IIIISISI SII I III IST ISI III IIS SI SISI SSIS. 
2012 ee 
2013 * 
2014 * sO0DD must be greater than 4 because the HPIL ROM destroys S4 
2015 * thru SO. $8 1s OK for sODD because sODD is only used for 
2016 * READING a file, and HPIL I/0 doesn’t change S8 except while 
2017 * WRITING a file to tape. -NZ 
2018 x 
2019 
2020 sODD EQU 8 (Modified by NZ on 8/16/83-was 4) 
2021 aia 
2022 
202317175 D6 =-=LIF>NB C=A A Set C(A) to bytes+1 
2024 17177 E6 C=C+1 A - 
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2025 17179 Fe CSL AR 
2026 1717B F6 CSR R : 
2027 1717D C6 C=C+C A Convert to nibs 
2028 1717F OB CSTEX Set oddness status 
2029 17181 861 ?$T=0 1 . set carry if odd bytes 
2030 17184 50 GOYES LIF>20 
2031 17186 841 ST=0 1 Subtract extra byte 
2032 17189 OB LIF>20 CSTEX 
2033 1718B 858 ST=1 —- sODD Return status if odd 
2034 1718E 400 RTNC 
2035 17191 848 $T=0 ~=sO0DD Else return even status 
2036 17194 03 RTNCC 
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2037 LOCFHD STITLE Locate File Header Given FIB# 
2038 JOIST TOO ICC OTTO 
2039 KKKEKKKKKEKKEKRIARK AEE RIK IOI JO RIO TTT TT TIT 
2040 ak 
2041 &* Narie: LOCFHD - Locate File Header Given FI6# 
2042 ak Nane: LOCFH* - Locate File Header Given FIB Address 
2043 ** Nane: LOCFH- - Locate File Header Given FIB Address 
2044 hr 
2045 ** Category:  FILUTL 
2046 kk 
2047 ** Purpose: 
2048 ax Locates file header given FIBW of nenory file 
2049 he 
2050 ** Entry: 
2051 ak LOCFHD: 
2052 kn R4(15-14) = File # in FIB 
2053 ak LOCFH*: 
2054 ke B(A) = FIB address 
2055 aK LOCFH-: 
2056 ak A(A) = FIB address 
2057 ak 
2058 Rk Exit: 
2059 ae A(R) = File header address 
2000 ak B(R) = FIB address 
2061 aK DO = File header address 
2062 kh R4(15-14) = File # in FIB 
2063 = Carry = Clear 
2064 am P = 0 (set by LOCFHD only) 
2065 ae 
2066 tk Calls: LOCFIL (LOCFHD only) 
2067 a 
2068 kk Uses. ...... 
2069 tk Exclusive: A(A), DI 
2070 tk Inclusive: LOCFHD: @,B,C,0,01,P 
2071 ak LOCFH*: ACA), D1 
2072 ak LOCFH-: ACA), D1 
2073 ak 
2074 ** Stk lvls: 3 (LOCFHD), 0 (LOCFH*, LOCFH-) 
2075 aK 
2076 xX History: 
2077 ae 
2078 ns Date Prograrner Modification 
2079 KX: “cccdsceces “Mtsdecsiewa!  “adcddducubccddjocsewaccccseseessesees 
2080 &x 09/29/82 FH Designed and coded 
ik 
on JOU OOOO I OTTO TI IT TIT TIK 
2083 KK KRISTI RI IOUS OI ITT TTT TT 
2084 17196 709F TFUSFH GOSUB TFURDS Read source FIB 
2085 1719R 7B70 =LOCFHD GOSUB LOCFI# Locate file FI8 
2086 1719E D4 =LOCFH* A=B A Position at file header field 
2087 17190 131 LOCFH- DI=A : 
2088 171A3 17C D1=D1+ =oF BEGb ‘ 
2089 171A6 15B5 R=DAT1 =lFBEGb Read file begin/header address 
2090 171AAR 130 DO=A . into WO 


20391 171AD O03 RTNCC 
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2092 LOCFIL STITLE Locate File With FIB 
2093 JOO I OCCT TIO TOTO SIT IIIT ISI II IIA 
2094 JI IO IO OI OCIS SOS OS TOSCO SOOO TS SII IK 
2095 ax 
2096 ** Name: (S) LOCFIL - Locate File With FIB 
2097 x* Narie: LOCFIH - Locate File With FIB 
2098 RK 
2099 ** Category:  FILUTL 
21% ax 
2101 ** Purpose: 
2102 ax Find FIB for file given file nunber and return position 
2103 AX infornation,. 
2104 aK 
2105 ** Entry: 
2106 ax LOCFIL: 
2107 ak A(B) = FIB file number (LOCFI+ will return it in R4) 
2108 ax LOCFI#: 
2109 ax R4(15,14) = FIB file nunber 
2110 x 
2111 ek Exit: 
2112 ax P = Q 
2113 ak R4(15,14) = FIB file nunber (LOCFI+, LOCFI# only) 
2114 kK Carry clear: FIB entry found 
2115 ax A(x-0) = "Data Begin" field of FIB entry 
2116 ae (S) = Pratection nibble fron FIB 
2117 ax B(A) = Address of FIB entry 
2118 ax C(A) = "Current Position" field of FIB entry 
2119 ae B(S) = Device code 
2120 x (A) = D(X) = Dev addr if external device, rest 0 
2121 ax = 0(B) = Port id if port, rest 0 
2122 x = 0 if MAIN 
2123 ax D1 @ “Current Position" field of FIB entry 
2124 a S$? = Set if current position is at EOF (sEQF) 
2125 a $10 = Set if external device (sI/OBF) 
2126 as STMTD1 = Address of File FIB 
2127 = Carry set: Error encountered 
2128 ae C(3-0) = eFnFND if FIB entry not found 
2129 ae = eNtIMP if external device 
21H ae 
2131 ** Calls: FFIBR 
2132 ax 
2133 eX Uses. ii... 
2134 *k Inclusive: A,B,C,0,D1,P,S7(sEOF),S10(sI/OBF ) 
2135 am 
2136 *K Sth lvis: 2 
213? ae 
2138 ** History: 
2139 ae 
2140 Am Date Progranner Modification 
2141 a ae 
2142 kk 06/07/82 FH Designed and coded 
2143 a 
2144 ECCS SUCUCeSOCSTIECCUCCUCCSSCSSCSCSCECSTUCESCUCTCTCCLESSCTCSeTe 
2146 FOI ROO IOI OI IOI IO OO IG OI IIE ICI ORIG IOI 


2146 171AF 813 


$ 


vinf+ DSLC Shift device info inte D(A) 
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2147 171B2 8BD0O svinfo GOVLNG =SVINFO 
000 


2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 


2174 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2173 
2180 
2181 
2182 
2183 


2184 
2185 


2186 
2187 
2188 


2189 


17189 
171BC 
171BE 
1711 
171C5 
171C8 
171CB 
171CF 
171D2 
171D5 
171D8 
17108 
1710D 
171E0 
171E3 
171€6 
171E9 
1771EC 
171FO 


171F3 ? 


171F7 


171FE 
17201 
17204 
17207 
1720R 
1720E 
7211 
17214 
17217 


17219 
17210 


17223 
17226 


17220 
1720 
17233 


17239 


131 = LOCFO5 
D8 
178 
1534 
172 
AF2 
1574 
AC? 
17F 
84A 
94A = LOC F110 
51 
14F 
A47 
5(0 
85A 
1C2 
1573 
AF? ~=—s LOC F20 
80F 
t 
1F69 DI@CPS 
8F2 
143 
131 
17F 
174 
15BA 
17F 
172 
147 
03 zreehee 


702F =LOCFI# 
& 

8EO0 =LOCFIL 

00 


133 
1F69 
8F2 
141 
588 
3300 
00 
02 


D1=A 
B=A 
D1=D1+ 
R=DAT1 
01=01+ 
C=0 
C=DAT1 
d=C 
D1=D1+ 
ST=0 
7C=0 
GOYES 
C=DAT1 
D=D+D 
GONC 
ST=1 
01=01- 
C=DAT1 
0=C 
GOSUB 


01=(5) 


A=DAT1 
D1=R 
01=D1+ 
01=01+ 
A=DAT1 
D1=D1+ 
Di=D1+ 
C=DAT1 
RTNCC 


GOSUB 
GOSUBL 


AD1EX 
b1=(5) 


DATI=A 
CONC 
iC (4) 


RTNSC 


A Save FIB address in B 
=oPROTb Read protection nibble 
S$ 2 
(oDEVCb)-(oPROTb) Read device code 
W , 
S ‘ 
S . and copy into D for now 
(oDBEGb)-(oDEVCb)+7? Move to data begin fields 
$1/06F Presurie not external device 
S MAIN? 
LOCF 20 
B Read port address 
S$ NOT External device? 
LOCF20 GOYES 
sI/OBF Flag external device 
3 Read device address 
x : 
W Transfer into D 
EOFCHK Flag EOF 
=STNTD1 Position to FIB entry 
A 
16 Read data begin 
(oDBEGb)-16 : 
=1DBEGb : 
16 Read current position 
(oCfPOSb)-( oDBEGb)-16 
A 
FIBHRS Restore FIB# fron R4 
=FFIBH Find file 
Save pointer to FIB entry 
=STNTD1 k 
A 
LOCFOS 
=eFnFND Return if file FIB not found 
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2190 OVERCK STITLE Check if Read or Write Overflons File 

2194 JOGO OOOO I TO TOT I TTT 

2192 JOIST OGIO OO IC TTT IT 

2193 a 

2194 a Nane: OVERCK - Check if Read or Write Overflous File 

2195 

2196 ** Category:  FILUTL 

2197 aK 

2198 ** Purpose: 

2199 aK Check if read or write overflous file. 

2200 xx 

2201 xk Entry: 

2202 ak STNTD1 = Address if FIB entry 

2203 KK ACA) = Nunber of nibs to read or write 

2204 KK $10 = 0 if internal file 

2205 kk 

2206 kk Exit: 

2207 ak B(AR) = Nunber of nibs to read or write 

2208 ax D1 @ Data length field of FIB 

2209 KK R3 = Nurber of nibs to read or write 

2210 ak RO = Abs and relative curr pos fron GTIPTRX 

2211 ak STMTD1 = Address if FIB entry 

222 Carry clear: 

2213 ax C(A) = Contents of current position of FIB 

2214 kh Carry set: 

2215 Kx C(3-0) = Error code: eEOFIL 

2216 xm 

2217 ** Calls: EOFCHK 

2218 KK 

2219 ak Uses... .... 

2220 **k Inclusive: A,B,C,00,01,P,RO,R3,S7,S10,511 

2221 aK 

2222 ** Stk lvls: 2 

2223 ak 

2224 *k History: 

2225 ak 

2226 a Date Progranner Modification 

ee? RK een eee e ene n nen n- eee ene +22 oo eo + -- 2 

2228 Kk 03/08/83 FH Designed and coded. 

2229 xk 

2930 JIS OIG TIIG IOI IO I II TT TI TTR 

2034 OI ISIE IIIS IOC IGE II IGT IT TK 

2e3e 1723B 103 =OVERCK R3=A Save nib count 

2233 1723E 8E00 GOSUBL =GTPTRX Set RO to abs, relative addresses 
00 

2234 17244 113 A=R3 B(A) = Nib count 

2235 17247 08 B=A R ‘ 

2236 17249 72BE GOSUB EOFCHK Get curr pos, data len, update sEOF 

eed? 17240 £0 A=R-B A Reduce data len by nib count 

223% 1724F 470 GOC Eeofil Branch if underflow 

2239 17252 BBE 7C<=R OA If no overflow, return carry clear 

2240 17255 2C GOYES LOCFec 

2241 17257 3300 Eeofil LO(4) =eEOFIL Prenature EOF 
+0) 

2242 17250 02 RTNSC 


2:44 ar 
Page 439 
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Fri Dec 3, 1983 


2243 STITLE Transfer Junps 

2244 BIR III III III III I IIR IIIA II III IIS IISISI IIIT III ISIS SIS ISIS ISI II IIS. 
2245 . 

2246 * Transfer Junps 

2247 x 

2248 JI IOI IIIT III IIIS III ISII SI SSIS III IIS SSISIISIISIISIISISI SSA 
2249 


2250 1725F 8D00 =dO=obs GOVLNG =D0=0BS 


000 
2251 17266 8D00 oblcnp GOVLNG =OBLCNP 


000 
2252 17260 8D00 obprd GOVLNG =OBPRD 
000 


2253 17274 865 = rdinfx ?ST=0 sTFINP Read dest info: src if in-place 
2254 17277 % GOYES rdinfd 
2255 17279 843 =rdinfs ST=0 =sDEST 
2256 1727C 6600 GOTO rdinfo 
2257 17280 853 rdinfd ST=1 =sDEST 
2258 17283 8000 rdinfo GOVLNG =RDINFO 
000 
2259 1728A 20 Rstk<r P= 0 Restore only one address 
2260 1728C 8C00 =rstk<r GOLONG =Rstk<R 
0 
2261 17292 20 R<rstk P= 0 Save only one address 
2262 17294 8CO0 =r<rstk GOLONG =R<Rstk 
00 
2263 
2264 1729A DE DO=/B+ ACEX A 
2265 1729C 1868 DO=/BX DO=(5) =S-R1-1 
8F2 
2266 172A3 142 A=DATO A 
2267 172A6 01 RIN 


2268 
2269 
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2270 STATRS STITLE Restore Status 
2274 JO II III ITO TT IIIT IIS III III ASIII III III IOI IIIT III IIT ISI ISS: 
2272 SIT OST ITI IIIT TOIT OTIS SOTA II IIIT IS IOS ISSO ISI II SSSI SITS IA 
2273 x 
2274 *x Nane:(S) STATRS - Restore Status 
2275 x Narie: STATR+ - Restore Status 
2276 ah 
2277 *% Category:  SAVUTL 
2278 AS 
2279 **k Purpose: 
2280 an Restore status flags S11 - SO and $13 fron area saved 
2281 ak by STATSV. STATR+ rierges specified bits fron current 
2282 ak status setting with restored $11 - SO. 
2283 aX 
2284 ak Entry: 
2285 ak D1 @ Save area written by STATSV 
2286 ay STATR+: 
2287 ak C(x) = Bits corresponding to status flags to be pre- 
2288 ax served fron current status setting during 
2289 ak restore. 
2290 = 
2291 RK Exit: 
2292 ak $13, S11 - SO restored (merged u/input bits if STRTR+) 
2293 XR C(X) = Old S11 - SO 
2294 ae Carry clear 
2295 aK 
2296 ** Calls: STATR+ calls STATRS which has no calls 
2297 aK 
2298 *K Uses....... 
2299 *k Inclusive: C(A), S13, S11-SO, A(R) for STATR+ only 
2300 ak 
201 KK Stk lvls: © (STRTRS), 1 (STATR+) 
2H2 x 
2H3 ** History: 
2H4 a 
2305 ae Date Programmer Modification 
26 Fi ctheteGe. Raherenust tele sccediot ewe stewte ec eter te 
2H? kk 06/15/82 FH Designed and coded. 
28 =e 
299 JI IIIT TIT II III TIS ITI III IAA 
2310 JI II II TOIT ITD II SIDI ITT TTT I TREE IIT I ITI IIIA III IT IAI II IIIT IAN 
1 
aa JUG IOI ICIS ISIS IOI TOOTISII CITI IOI IIT TT 
2313 * 
2314 *  TFUWRN 
2315 * 
2316 * Entry: 
2317 a RO = Error code 
2318 : 
2319 172A8 7070 TFUWRN GOSUB  TFUSTS Save status 
2320 JQ IITA Io I UII TEI SII ITI I TI TE 
2321 - ENTER STATUS-SAVED AREA = 
2322 JU OIE IT ISI TOI ISOS UI IIR TOR 
e323 172AC 840 ST=0 13 Fake out MFWRN 
2324 172AF 118 C=RO Recall error code 
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2325 172B2 8E00 
00 


2326 172B8 1D4E 
2327 172BC 147 
2328 172BF 2B 
2329 172C1 8ARE 
2330 17204 BO 
2331 172C6 1DFD 
2332 172CA 147 
2333 172CD 2F 
2334 172CF 108 
2335 172D2 80FE 
2336 172D6 2D 
2337 172D8 304 
2338 172DB 20 
2339 172DD 3300 
00 
2340 172E3 2E 
2341 172E5 8FOO 


000 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 172EC 1F 6D 


8F2 
2350 
2351 172F3 147 
2352 172F6 08 
2353 172F8 816 
2354 172FB AZE 
2355 172FE 812 
2356 17301 85D 
2357 17304 500 
2358 17X07 84D 
2359 173%0A 03 
2360 
2361 1730C DA 
2362 1730E 71EF 
2363 17312 OEF2 
2364 17316 OB 
2365 17318 FC 
2366 1731 OEF6 
2367 1731E OB 
2368 17320 OEFA 
2369 17324 OB 
2370 17326 03 
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TFUN20 


GOSUBL =CSLC5 
D1=(2) =/LINE# 


C=DAT1 A 
P= #B 
*cHO OR 


GOYES TFUW20 
01=(2) /NUMLN 


C=DAT1 A 

P= HF 

R2=C 

CPEX 14 

P= 13 
LC(1) 5-1 

P= 0 

LC(4) =eTFWRN 
p= 


#E 
GOSBVL =NFURNQ 


Fri Dec ©, 1983 2:44 an 


Page 51 
Position to secondary insertion 
Line # to prinary insertion 


; straight bed output 
Line # really there? 


Supply line count instead 
. hex to dec 
Save insertion in R2 
Insert format specification 
Specify 5 digits 
Load Transforn warning hdr 


Issue warning 


FOR JOO ITT TTT 


* FALL INTO FOLLOWING CODE TO LEAVE STATUS-SAVED ARER * 
III III IIR III III I III III III ITIIIIISIIIIIII ISIE I IS IIT III IIA 


ak 


* Wane: 
& 


TFUSTR 


x 
=STRTRS 


STATcc 
k 
=STATR+ 


TFUSTR - 
D1=(5) /STAT 


C=DAT1 A 
CSTEX 
CSRC 
C=C-1 XS 
CSLC 

ST=1 13 
RTNNC 
ST=0 13 
RTNCC 


A=C 
GOSUB 
C=AaC 
CSTEX 
R=-R-1 A 
A=R8C A 
CSTEX 
C=A'C A 
CSTEX 
RTNCC 


Restore Status Fron TRFMBF Area 


Read save area 
Restore $11 - SO 
Test old $13 (set if €(3) = 1) 


Presune $13 set 


Clear $13 

Save nerge bits 

Recall status 

Pick out preservation bits 
Pick out restoration bits 
Merge 


Merge bits 
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2371 STATSV STITLE Save Status 
2372 JUS IDI OO IDO IO ISO IIT II IO 
2373 JO IO IO OU OIG TOC OK 
2374 xx 
2375 *k Nare:(S) STATSV - Save Status $13, $11 - SO 
2376 kk 
2377 ak Category: SAVUTL 
2378 ae 
2379 ** Purpose: 
2380 - Save status flags S13, S11 - SO in designated spot. 
2381 
2382 ** Entry: 
2383 ak D1 @ Start of 4-nib save area 
2384 aK 
2385 KK Exit: 
2386 a Save area uritten (see detail below) 
2387 kK Carry clear 
2388 kk 
2389 kk Calls: None 
2390 xk 
2391 kK Uses....... 
2332 xk Exclusive: C(R) 
2393 kk Inclusive: C(A) 
2394 RK 
2395 kK Stk lvls: 0 
2396 aK 
2397 *k Detail: 
2398 ak Save area: Nibs Contents 
2399 kK mere ene 
2400 aK 2-0 Status $11 - SO 
2401 , ak 3 0 is $13 clear, 1 if set 
2402 A 
2403 ** History: 
2404 ak 
2405 an Date Progranrer Modification 
2406 RKO wn nnn nee nnn en nnn ren nnn nn nen enn ne en enn ene nen e renee 
2407 kK 06/15/82 FH Designed and coded. 
2408 a 
2409 FOR OOJOOI OOOO IOI I ROTO OI IOI ICI UII OI ICICI II IOI 
2410 FORO ORR JOO OI OI IO 
2411 17328 1F6D TFUSTS 0D1=(5) /STAT 
8F2 
2412 1732F D2 = ==STRTSV C=0 A Save $13 
2413 17331 86D ?8T=0 13 : 
2414 17334 50 GOYES STAT4O : 7 
2415 17336 B26 C=C+1 XS : 
2416 17339 Fe STAT4O CSL A Position $13 nib 
2417 17338 09 C=ST Save S11 - SO 
2418 17330 1503 DAT1i=C 4 Write to save area 


2419 17341 03 RTNCC 
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2420 PURGEF STITLE Purge Internal or External File 
2421 SII IR III III IASI TI IA ID ISI III III IS IIIS SIS SITS IIIS ISIS SIS IIIT IK 
2422 SII ORI ATE TOT IIIT TI II IAI IIIA IS SI ISI I SII IIS SII ISIN 
2423 ak 
2424 ** Wane:(S) PURGEF - Purge Internal or External File 
2425 a 
2426 ** Category:  FILUTL 
2427 aK 
2428 ** Purpose: 
2429 ae Purge file given its FSPECx information. 
24H an 
2431 ak Entry: 
2432 ak P 0 
2433 ak ACW) First 8 chars of file nane. 


243% ak RO(3-0)= Last 2 chars of file nane. 
2435 ax D(S) Device code 
2436 = D(3-0) Secondary device info 
2437 ax 
2438 ak Exit: 
2439 ax P = 0 
2440 ak File purged. If file not found, error ignored. 
2441 ak 
2442 &* Calls: 
2443 ak FINOF, PRGFNF, POLL 
2444 ke 
2445 PRONG OR 3 ae 
2446 ** Inclusive: A-D,00,D1,P,RO,R1,S-RO-0, S-RO-1,57, S88 
2447 ak If purging current file: also R2,R3,S9,S10,S811,S7-S0 
2448 ax wow Be LEM : also R2,R3,S9 
2449 ax 
4 2450 ek Stk lvls: 6 
4 2451 as 
2452 ** History: 
2453 Be 
2454 a Date Programmer Modification 
2455 aaa aaa aaa aaa aaa ata 
2456 && 06/07/82 FH Designed and coded 
2457 - 06/09/83 FH Expanded to include external files 
aes JSS III IS IO III III III IIIT II III IIIT III IIIS IIIS IIIA III ISIN 
2460 SII IIR IO TTT IIT IDI TIT II IIIS III III II ITI IIIS I IIIS IIIT IIA 
2461 17343 71EF TFUPGD GOSUB TFUSTS  . Save status 
2462 17347 792F GOSUB rdinfx Recall source/dest file info 
2463 1734B 817 DSRC i 
2464 1734E R06 C=C+C P 
2465 17351 7400 GOSUB PURGEF 
2466 17355 GEAC GOTO TFUSVE Restore status, preserve error sq 
2467 
2468 17359 ACB =PURGEF C=D Ss Test for external file 
2469 1735C A46 C=C+C S$ ‘ 
2470 1735F 441 GOC PURG20 : 
2471 17362 8E0O GOSUBL =findf Find file 
00 
2472 17368 D2 C=0 A . and clear out with null error 


2473 1736R 400 RTNC . if not there 
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2474 1736) 8000 GOVLNG =PRGFNF Purge file 
000 
2475 - 
2476 17374 8E00 PURG20 GOSUBL =POLL Poll to purge external file 
00 
2477 1737A 01 CON(2) =pPURGE 


2478 1737C 01 RTN 
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2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
206 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 


2522 
2523 
2524 


1737E OC 
17380 OC 
17382 S8OFF 
17386 20 
17388 O€42 
1738€ 3300 
00 
17392 SAE 
17395 00 
17397 03 
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?PRFIL STITLE Check Protection 
JOR II III IIIT TOTTI TOT TIT TTI ITT 


JORG ITO ITO TI TI TIO SII OAT IID II III IASI IAI I IIIA 
ah 

** Nane:(S) ?7PRFIL - Check File Protection 

xk Nane:(S) ?PRFI+ - Check File Protection 


ik 
** Category: FILUTL 

kk 

** Purpose: 

a Checks file protection nib returned by LOCFIL for 
me privacy (?PRFIL) or security (?PRFI+). 

kk 

** Entry: 

a p = 0 

an A(S) = Protection nibble 

kk 

AK Exit: 

aa p = 0 

x Carry set: . 

wx ((3-0) = File protection error code (eFPROT). 

ok 

** Calls: None. 

kk 

KX Uses.....5. 

**k Inclusive: C(S), €(3-0) 

ak 

** Stk lvls: 0 

kk 

** History: 

xk 

xk Date Progranner Modification 

ER ceclcsce, “weeieek! ecu eeosatle ec eecue tweed ace ecesan 
RK 08/24/82 FH Designed and coded 

kk 


FOI OORT STITT IT IRI 
FOI TOTO IO TTT ITT TIT I TTI TD ITI ITI IIIT ITT 


=?PRFIL P=P+1 Set P=2 for privacy 

=?PRFI+ P=P+1 Set P=1 for security 
CPEX 15 Position nask 
P= 0 ‘ 
C=AaC SS Test protection bits 
LC(4) =eF PROT Load error code 
7C#0— oS Protection bits set? 
RTNYES 

?PRFcc RTNCC Return no error 
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2525 RRADD STITLE Read Relocatable Address 
2526 JOIST TTT OT TTT II III SAI IA 
2627 JOISIO IO IOC OC CITT II TOTO TTI SI IAN 
2528 ax 
2529 ** Nane: RRADD = - Read Relative Address Fron Table 
2530 xx 
2531 ** Category:  GENUTL 
2532 xk 
2533 ** Purpose: 
2534 as Read relative address and conputes its absolute value. 
2535 
2536 ** Entry: 
2537 ax 01 @ Table entry (5 nibs) 
2538 a 
2539 aX Exit: 
2540 ak D1 @ After table entry 
2541 kk C(A) = Absolute address if nonzero table entry 
2542 ak = 0 if table entry was zero 
2543 xn Carry = Clear if nonzero table entry 
2544 x = Set if table entry was zero 
2545 xx 
2546 ** Calls: None 
2547 KK 
2548 MR TG OG Gy oi sinus 
2549 *k Inclusive: ACA), C(A), D1 
2550 ak 
2551 ** Stk lvls: None 
2552 x 
2653 FOI I OCI TIT TE TRISTE TER TIT DI ITI OORT TI TIT TS 
2554 JOGO I IT SII III TA TTT ITI TIT II II IIIT O SIA IIIT IIA 
Sree JOSIE DTD I TET ITI K ITT S I IO TTI SI IASI SII SS 
2557 x 
2558 ; TFURWD, TFURWS - Remind (Source) File, Read Inverse Tfn Add 
2559 
2560 * Entry: 
2561 % RFURWS: 
2562 a None: 
2563 * RFURWD: 
2564 x R4(15-14) = FIBR 
2565 x 
2566 * Exit: 
2567 x D1 = Transforn handler address 
2568 * C(A) = Inverse tfn handler address 
2569 * Carry = Set if no inverse tfn address 
2570 A 
2571 17399 ?7B8D TFURWS GOSUB TFURDS Read source FIB# 
2572 17390 778F TFURWD GOSUB TFUSTS Save status 
2573 123A1 747E GOSUB LOCFI# Locate file 
2574 173R5 D4 A=B A Position FIB entry address 
2575 173A7 8E00 GOSUBL =REWIND Rewind file 
00 
2576 173AD 7B3F GOSUB TFUSTR Restore status 
2577 


2578 


FORO OORT ETO 


saturn Assenbler 


TRANSFORM Execution <831212.12 Fri Dec 30, 1983 2:44 an 


Ver. 3.39/Rev. 286 Read Relocatable Address Page 57 
2579 * WOTE: FALL INTO FOLLOWING CODE * 
2580 SEIU OOOO TIT 
ot JOO III COO OI TO TORT TTT ATT I 
2583 & 
2584 : TFURIA - Read Inverse Transforn Handler Address 
2585 
2586 * Entry: 
2587 x None. 
2588 x 
2589 x Exit: 
2590 x D1 = Transform handler address 
2591 a Carry clear: [Inverse transform address present] 
2592 x C(A) = Absolute address of inverse transforn handler 
2593 & Carry set: [Inverse transform address NOT present] 
2594 x C(A) = 0 
2595 * 
2596 * Uses: 
2597 x ACA), C(A), D1 
2598 x 
2599 JO III OO TT TOTO 
2600 * NOTE: FALLEN INTO FROM ABOVE a 
2601 JOT TOK 
2602 17381 7C1C TFURIAR GOSUB TFURHA Fetch transforn address 
2603 173B5 131 D1=A Fetch inverse address 
2604 173B8 1C4 Di=01- 5 ‘ 
2605 SIO TC TOT TT 
2606 * NOTE: FALLEN INTO FROM ABOVE & 
2607 JOO UII I TOIT TO TI 
2608 173BB 147 =RRADD C=DAT1 A Read address 
2609 173BE 133 ADIEX Fetch entry address 
2610 17301 131 01=A ‘ 
2611 17304 174 Di=D1+ § Bunp entry address ptr 
2612 173C7 8AA 7C=0)— OA Zero address? 
2613 173CA 00 RTNYES 
2614 173CC C2 C=C+A A Conpute absolute address 
2615 173CE 03 RTNCC 
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2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2693 
2654 
2655 
2656 
2657 
2658 
2659 


2660 
2661 
2662 
2663 


17300 754E 
17304 400 
17307 175 
1730AR 145 
17300 87A 
173E0 00 
1732 CA 
173E4 DC 
173E6 76BD 
173ER 8F0O 
000 
173F1 DA 
173F3 E8 
173F5 136 
173F8 8000 
000 


2:44 an 
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TRCFIH# STITLE Truncate File 
JOO II IOI OEIC III ICICI GIOIO IIIS TOOT TOI 


FOO IO IIIT TTT TTT 
a 


xk Narie: TRCFI# - Truncate File at Current Position 
ak 

&* Category:  FILUTL 

we 


** Purpose: 
a“ Sets end of data to current position and, for intemal 


ak files, collapses out any trailing portion of the fale. 
ae 

*k Entry: 

aK R4(15-14) = File # in FIB. 

ak 

RK Exit: 

ak P = 0 

ae 

a* Calls: LOCFI#, LOCFH-, FILSK+, MVNEN+ 

xk 

Re Uses....... 

** Inclusive: A-D,DO,01,RO-R2,P,S10,S7, SCRICH(4-0) 

ak 

** Stk lvls: 3 

aK 

*% History: 

rf 

an Date Progranner Modification 
AX cGacwald. » ~ aateeuawan : “meeeal Sew ecwocwe uc bencceeoecsesaes 
*k 09/29/82 FH Designed and coded. 

ak 03/16/83 FH Conbined with closef code. 
ws 


FOI UII ICO ITI OTT TOIT TT TTI IOI III IO. 
FOI IO OOO TT OR III 


=TRCFI# GOSUB LOCFI# Locate file 
RTNC ‘ 
D1=D1+ (oDLENb)-(oCPOSb) Set end of data to current pos 
DAT1=C A ; 
7ST=1 sI/OBF Return if external file 
RTNYES 
A=A+C A B = DEST = abs curr position 
ABEX A . and A = FIB addr 
GOSUB LOCFH- DO = File header address 
GOSBVL =FILSK+ R = SOURCE = Eof 
A=C A ; 
B=B-A A B = OFFSET = DEST - SOURCE 
CDOEX C = HEADER 
GOVLNG =MVNEN+ Nove nerory 
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2664 RDBAS STITLE Read Line Fron Basic File 
2665 III II III II TI ITT STITT I IS ISI IIS ITI IIIS II IIIS SSSI SSIS SI IIS AIA 
2666 JOIST TORTS TDI IIIS ISIS ISSI SIS IIIS SSI III SSSS: 
2667 ak 
2668 ** Narie:(S) RDBAS - Read Line Fron Basic File 
2669 ak 
2670 *k Category:  FILUTL 
2671 an 
2672 &k Purpose: 
2673 ae Read a line fron a BASIC file given the file’s FIB. 
2674 aK For nenory files, FIB is spaced past line but no data 
2675 aa is copied to output buffer. For external files, line 
2676 aK read is copied to output buffer. 
2677 a 
2678 *k Entry: 
2679 aR R4(15-14) = File FIB# 
2680 ak QUTBS @ Start of output buffer 
2681 aK (AVNENS) = (OUTBS) 
2682 aR 
2683 ak Exit: 
2684 aK P = 0 
2685 ak Carry clear: Line read 
2686 ak $7 = Set if file uas positioned at EOF at operation 
2687 aR start, hence no data read (sEOF) 
2688 ah C(A) = Full len (nibs) of line in file counting line 
2689 cia header. Zero if S7(sEOF) set 
26% a R3 = Pointer to start of data read (in file or in 
2691 aa output buffer) unless S7(sEOF) set. 
2692 ak Carry set: 
2693 ae C(3-0) = Error code: 
2694 a 
2695 a Calls: READNB, RECNIB, TFUEOF, EQLSN7, FIBUPD, LOCFI# 
2696 
2697 KX Uses....... 
2698 ne Inclusive: A-D,DO,D1,RO-R3, STATR1, STATD1, $11-S9,S7, $6, $4-90 
2699 x 
2700 RE Stk lvls: 5 
2701 a 
2702 ** History: 
2703 ak 
2704 - Date Progranner Modification 
2705 a a aaa aa aaa eae 
2706 . 12/15/82 FH Designed and coded. 
. II IIIT IIIA IIIT IIIT DT DT ITT TI TTDI TITAS I IIIA IIS ISS AIS SSIS SSSI IIA IS 
2709 JUICE CCCI OCIS TIS TOT IIIA 
2710 173FF 72AB =RDBAS GOSUB TFUEOF Locate file, return if error or EOF 
2711 17403 1817 DO=(5) =STMTRO Save current position 
8F2 
2712 1740A 144 DATO=C A F 
2713 17400 C2 C=C+A A R3 = Abs start 
2714 1740F 108 R3=C . 
2715 17412 134 DO=C Space beyond line nunber 
2716 17415 87A ?ST=1 sI/OBF External file? 


2717 17418 73 GOYES RDBR40 
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2718 
2719 
2720 


2721 
2722 
2723 
2724 
2725 
2726 
272? 
2728 
2729 
2730 
2731 


2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 


1741A 
17410 
17421 


17428 
1742B 
1742E 
17431 
17433 
17436 


1743A 
1743E 


17445 
17448 
1744A 
1744D 


1744F 
17453 
17456 
1745A 
1745D 
17461 
17463 
17466 
1746R 
1746D 
1746F 
17472 
17476 
17478 
1747D 
1747F 
17483 
17486 
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161 DO=D0+ 
3100 LC(2) 
8FOO GOSBYL 
000 
161 DO=D0+ 
132 ADOEX 
118 C=R3 
EA A=R-C 
859 ST=1 
7FRO : GOSUB 
; Update FIB, 
7BDD RDBAZO GOSUB 
1F17 D1=(5) 
8F2 
143 A=DATI 
E2 C=C-A 
847 ST=0 
03 RDBAcc RTNCC 
7CBO =RDBA40 GOSUB 
400 RTNC 
7780 RDBAGO GOSUB 
4 RTNC 
7052 GOSUB 
D2 C=0 
RE6 C=A 
7ERO GOSUB 
400 RTNC 
b2 C= 
302 LCHEX 
7842 GOSUB 
3100 LC (2) 
966 ?RHC 
9D GOYES 
7COD GOSUB 
10B R3=C 
538 GONC 


2 
=tEOL 
=EOLSN? 


2 
A 


sREAD 
FIBUPD 


Page 60 
. Minus 2 for EOLSCN 
Space to end of line 
Space over EOL token 


Set A = len 


Update FIB currpos 


return line length 


LOCFI# 
=STMTRO 


A 
A 
sEOF 


READNA 
READN2 


RECNIB 
A 
B 
RERDNB 


A 

2 
RECAL- 
=tEOL 
B 
RDBAGO 
dO=obs 


RDBR2O 


Locate file 
Recall previous position 


Return length 


Read line nunber 


Read offset 


. into C 
Read line segnent 


Recall last byte 


Not EOL token? 


Set R3 = QUTBS 


BET: Coripute & return line length 
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2755 RDTEXT STITLE Read Line Fron Text File 
2756 JU SII OOOO OIC COCO TOC IS ISIS OOK 
2757 RKAEK KEK RAK KKERERER EKKO RIO JO OOOO OTTO 
2758 ae 
2753 ** Nane:(S) RDTEXT - Read Line From Text File 
2760 aK 
2761 ** Category:  FILUTL 
2762 Be 
2763 ** Purpose: 
2764 Rx Read a line fron a text file into the output buffer 
2765 RX given the file’s FIB. The line’s length header or 
2766 ak EOF nark are not copied into the output buffer. 
2767 aK 
2768 *® Entry: 
2769 ak R(15-14) = File FIB# 
2770 ak OUTBS @ Start of output buffer 
2771 aK AVNENS @ (OUTBS) 
2772 ak 
2773 Rk Exit: 
2774 RK P = 0 
2775 ak QUTBS @ Start of output buffer. 
2776 ax AVMENS @ After last nib read. 
2777 RK Carry clear: Line read 
2778 ak S$? = Set if file positioned at EOF. (sEOF) 
2779 ae C(A) = Full len (nibs) of line in file counting line 
2780 ax header. Zero if no EOF marker at end of file. 
2781 ak Carry set: 
2782 ae C(3-0) = Error code: 
2783 ax 
2784 . Calls: TFUEOF, READNB, RECNIB, SWPBYT, LIF>NB, OBPRD 
2785 
2786 ** Uses. ...... 
2787 *k Inclusive: A-D,DO,01,RO-R3,P,S11-S9,S7,S6,S4-S0 
2788 les 
2789 ** Stk lvls: 5 plus 1 RSTKBF level 
279 ax 
2751 ** History: 
2792 aX 
2793 ae Date Progranner Modification 
2794 O20) cigcteem. “scence. eodeoicuan asscsoesascekeen eee 
2795 ek 06/12/82 FH Designed and coded. 
2796 RX 09/21/82 FH . Revised to fix byte reversal in 
2797 ax line header 
2798 ak 
2799 JOIST ISIS OOOO SITS IS IT ITD 
2800 JOISTS ISO IC IS IAI IE 
2801 17489 781B =RDTEXT GOSUB TFUEOF Return if EOF or missing FIB 
2802 1748) 7£70 GOSUB READN4 Read line header to A 
2803 17491 40 RTNC . 
2804 17494 7622 GOSUB RECNIB : 
2805 17498 145 DAT1=C A . (restore old av men start) 
2806 17439B 857 ST=1- =sEOF Preset EOF conditions 
2807 1749E D2 C=0 A ; 
2808 174A0 23 P= 3 Test for FFFF 
2809 174A2 D8 B=A A ; 
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2810 174A4 B15 B=B+1 WP : 
2811 174A7 442 GOC RDTE20 . and exit 1f found 
2812 174AR 7675 GOSUB SWPBYT Reriove byte reversal 
2813 174AE 73€C GOSUB LIF >NB Convert to true nib line length 
2814 174B2 7260 GOSUB READNB Read line 
2815 174B6 400 RTNC . 
2816 17489 70BD GOSUB obprd Set DI@AVS 
2817 174BD 118 C=R3 Set C = Nib count read 
2818 174C0 868 ?$T=0 =sODD NO oddness? 
2819 174C3 90 GOYES RDTE20 
2820 174C5 CC A=A-1 AA Reduce AVNENS by one byte 
2821 174C7 CC A=A-1 A : 
2822 174C9 141 DAT1=A A : 
2823 174CC 23 RDTE20 P= 4-1 Add nibs for line header 
2824 174CE 809 C+P+1 i 
2825 174D1 20 = 0 Return 
2826 174D3 03 RTNCC 
2827 x 
2828 17405 0 CON(1) =FIXSPC 
2829 17406 BSS 20-1 


2830 * 
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2831 READNB STITLE Read/Write Line Fron/To File 
2832 2013 IIIT OT IO OT TIT 
2833 JI OTIS IOI O SIS III III IIIS IIIS I III III ISOS III IIIA 
2834 a 
2835 ** Nane:(S) RERDNB - Read/Write Nibs To/Fron File 
2836 a Nane:(S) WRITNB - Read/Write Nibs To/Fron File 
2837 x 
2838 ** Category:  FILUTL 
2839 aK 
2840 ** Purpose: 
2841 an Write a line to a file given its FIB file number. File 
2842 aR Nay reside in nenory or on external device. File will 
2843 ax be positioned to start of previous line before the line 
2844 ak is uritten. 
2845 ak 
2846 *k Entry: 
2847 a R4(15-14) = Number of file in FIB 
2848 aK C(A) #Nibs to read if reading 


2849 a R3(A) Length of previous line in nibs if writing 
2850 Kx into nenory 

2851 ae Output buffer contains line to write if writing 

2852 xe 

2853 a® Exit: 

2854 aR P = 0 

2855 ak R4(15-14) = FIBM 

2856 x Carry set: 

2857 ak C((A) = Error code: 

2858 aA Insufficient Nerory, etc. 

2859 a End of file (file is not altered) 

2860 ie Carry clear: 

2861 ax R3 = Nibs read or written, or offset if writing to 
2862 ae nenory. 

2863 us S$? = Set iff file at EOF after operation (sEOF) 
2864 ak FIB spaced past line in file 

2865 kk Output buffer collapsed if writing 

2866 ** Calls: NIBLIO 

2867 ak 

2868 BR USCS ics vty 

2869 xx Inclusive: A-D,RO-R3,D0,D1,P, STMTR1,STNTD1 

2870 Hk $11-S9,S8(WRITNB only),$7,56,$4-S0 

2871 aR 

2872 ** Stk lvls: 4 plus 1 RSTKBF level 

2873 RR 

2874 ** NOTE: 

2875 . NO CHECK IS MADE whether the file is protected or in ROM. 
2876 . 

2877 ** Algorithn: 

2878 aK 

2879 ** History: 

2880 an 

2881 =* Date Progranner Modification 

2882 KR ee meeeee 2 n-------- Meee eee ne ee eee een --ee = +e 
2883 ak 06/15/82 FH Designed and coded. 

2884 a 


2885 FOR ROR JOO TT TTI OK 
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2886 
2887 
2888 
2889 
28%) 
2891 
2892 
2893 
2894 
2895 
2836 
2897 
2898 
2899 
2K) 
201 
202 
2%3 
294 
295 
296 
297 
2908 
299 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
23930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 


174E9 
174EC 
174FO 
174F3 
174F5 
174F8 
174FB 
174FD 
17500 
17502 
17505 
17508 
17508 
17500 


1? 50F 
1751) 
17513 
17515 


17518 
17518 
1751E 
17522 
17525 
17528 


17528 
1752E 
17532 


102 
792D 
W12 
C2 
145 
879 
21 
87A 


175 
147 
C2 
145 
03 


22 
oc 
2 
803 


859 
103 
7AD4 
400 
136 
5(0 


849 
743D 
101 
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Page 64 


SOIT IIIT TTT 


sODDST 
sOO0DEN 
sREAD 


/NSTAT 
ch 


ee ee ee Oe Oe Oe 


FIBUPD 


FIBUcc 
x 


READN4 
READNE 
READUP 


x 
=READNB 


=WRITNB 


Note: 
external files; use UPCPOS and STFPTR instead. 


EQU 
EQU 
£QU 


EQU 


Entry: 


ACR) 


R4(15-14) = FIBH 


6 
? 
9 


S-R1-2 


"Odd nibble start" flag 
"Qdd nibble end" flag 
“Reading” flag 


NIBLIO status storage 


FIBUPD - Update FIB currpos, and dlen (only if write) 


= Offset to current position 


Does NOT read in corresponding sector for 


R2=A 
GOSUB 
A=R2 
C=C+A 
DATI=C 
ST=1 
GOYES 
?ST=1 
GOYES 
D1=D1+ 
C=DAT1 
C=C+A 
DAT1=C 
RTNCC 


p= 
P=P+1 
C=0 
C+P+1 


ST=1 
R1=C 
GOSUB 
RTNC 
CDOEX 
GONC 


ST=0 
GOSUB 
R1i=A 


LOCFI# 


A 

A 
sREAD 
FIBUcc 
s1/0BF 
FIBUcc 


Locate file 
Update current position 
READing? 


External file? 


(oDLENb)-(oCPOSb) 


A 
A 
A 


sREAD 
OBRPND 


NIBLIO 


sREAD 
oblcnp 


Update Data Len 


Read 4 nibs 
Read 2 nibs 
Set up entry condition for READNB 


Save away nib count in R1 


Set C = Buffer start = old (AVMEMS) 
BET 


C 
R1 


(OUTBS) 
Nib count 


OJ OU JI OOOO OI IOI IO IOI OOOO Ook 
FOUR OOO IOI IIIS OO UII III 


xn 


** Nane: 


a 


NIBLIO - 


** Category: 


LOCAL 


Read/Write Nibbles To/Fron File 
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2941 ae 
2942 xk Purpose: Perforn nibble-oriented read/urites on opened file 
2943 At in menory or external device. 
2944 ae 
2945 ae Entry: 
2946 ae C(A) = Buffer start (OUTBS if writing; old AVMEMS if 
2947 al reading) 
2948 ak R4(15-14) = FIBH 
2949 ak R1 = Nib count 
2950 ak $3 = Set iff READNB (sREAD) 
2951 = R3(AR) = Previous line length in nibs iff WRITNB 
2952 ak 
2953 aK Exit: 
2954 as R3(A) = Nib count read/uritten, or offset if nenory 
2955 ak urite 
2956 ak R4(15-14) = FIBA 
2957 aR 
2958 ak 
2959 kk Algorithn: 
2960 ak Save FIBH 
2961 ak If READing, then 
2962 as Set R2 to source start = (AVMENS) 
2963 ak Open enough room at avnmens for nibs to be read 
2964 ak If menerr, return error 
2965 el Else 
2966 7 Set R2 to target start = (OUTBS) 
2967 ax Set D(A) to nib count = (AVMENS)-(OUTBS) 
2968 %R 
2969 = 
2970 III I ARI TD TTT ITED TIT D ET ET ITE TR TT IDI DTI IIS SSS SII ITA 
2974 III RII IIS IST ITI ITI I III ITI TITAS IIIT IDI IIIA III III IIS SSIS SII SIS 
2972 & 
2973 ak If nib count is 0, then return 
2974 ak Fetch abs current position, updating sI/OBF 
2975 ax Locate file 
2976 a If uriting into nenory, then 
2977 ak Replace line 
2978 ak Update FIB 
2979 ie Return 
2980 x 
2981 17535 7360 NIBLIO GOSUB D0=/BX Save buffer start 
2982 17539 144 DATO=C A ~ in S-R1-1 
2983 1753C 108A R2=C . and R2 
2984 1753F 7F4D GOSUB R<rstk Save return address 
2985 17543 7200 GOSUB LOCFI# Locate file 
2986 17547 4A2 GOC RSTKR- Error if FIB not found 
2987 1754A C2 C=A+C A C = abs curr pos for nen file 
2988 1754C 111 R=R1 Recall nib count 
2989 1754F 879 ?ST=1 — sREAD Not writing? 
2990 17552 A3 GOYES NIBL40 
2991 17554 87A ?ST=1 sI/OBF External file? 
2992 17557 F2 GOYES NIBL35 
2993 17559 714C GOSUB LOCFH* Fetch file header address 
2994 1755D DE ACEX A A = CURR POS, C = FILE HEADER 


2995 1755F 8FOO GOSBYVL =RPLLIN Replace nibs in file 
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000 

2996 17566 4B0 GOoc RSTKR- 

2997 17569 113 NIBL3O R=R3 Recall nib count/offset 

2998 1756C 797F GOSUB FIBUPD Update FIB 

2999 x 

3000 17570 21 RSTKR+ P= 1 Set up for carry clear 

301 17572 OD RSTKR~- P=P-1 Set or clear carry 

3002 17574 735B RSTKRT GOSUB CARYSV Save carry 

3003 17578 AFF CDEX WwW Save any error code 

3004 1757B 7B0D GOSUB Rstk<r Restore return address 

3005 1757F DF CDEX A Restore error code 

3006 17581 AGF D=D-1 § Restore carry 

3007 17584 01 RTN 

3008 x 

3009 oe If nothing to read/urite, then return 

H10 xx If current position >= EOF, then return error 

3011 eA If READing from mnenory, then 

312 Rk MOVE*N the data into target buffer 

3013 Ae Update FIB 

3014 ae Return 

3015 x 

3016 17586 8E00 NIBL35 GOSUBL =SETWRT Set urite access on buffer 
00 

3017 1758C 8A8 NIBL40 7A=0) =A Nothing to read/write? 

3018 1758F 1E GOYES RSTKR+ 

3019 17591 76AC ; GOSUB OVERCK Check for overflow, set up RO, R3: 

#20 

21 - RO(15-14) = relative byte offset 

H22 * in current sector if ext file 

3023 x RO(A) = abs curr pos address 

324 x R3(A) = nib count 

25 x 

3026 17595 4CD GOC RSTKR- Return if error 

27 17598 87A ?ST=1— sI/08F Not reading fron nenory? 

3028 1759B FO GOYES NIBL5O 

3029 1759D 110 A=RO A = SOURCE 

3030 175A0 171A C=R2 C = TARGET = (OUTBS) 

3031 175A3 7011 GOSUB rnove*n Nove data into output buffer 

3032 175A? 51C GONC NIBL30 BET: Update FIB 

3033 - 

3034 BE Set R1 to FIB’s Record lewngth field for UPCPOS later 

335 a If current position 1s odd, then 

36 a Set "Qdd start" flag 

303? a Open up 1 extra nib at buffer start 

3038 ae Return error if werierr 

39 x 

340 175AA 109 = NIBLSO D1I=D1- (oDLENb)-(oRECLb) Set R1 = Record len (needed 

3041 175AD 143 A=DAT1 A . DATA files only) for use 

3042 17580 101 R1=A . by UPCPOS later 

3043 175B3 75EC GOSUB DO=/BX A = SOURCE = BUFFER START 

3044 175B? 822 SB=0 Test for odd nibble curr pos 

3045 175BA 846 ST=0 = sODDST . Clear "Qdd start" flag 

3046 175BD 81E CSRB ‘ 

3047 175CO 832 ?SB=0 Was current position even? 

3048 175C3 01 GOYES NIBLS5S 
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49 
050 
51 
52 
53 
54 
355 
56 
257 
058 
159 
He0 
61 
62 
063 
64 
65 
Wo6 
6? 
H68 
69 
070 
071 
072 
073 
74 
75 
76 
X77 
078 
079 
80 
381 
W82 
N83 
H84 
3085 
36 
8? 
88 
89 
HH 
31 
H92 
0393 
94 
395 
96 
97 


398 
099 
3100 
3101 
3102 


175C5 856 
175C8 B2 
175CR £6 
175CC 7780 
175D0 41A 


175D3 131 
175D6 110 
175D9 130 
175DC 113 
175DF AFI 
175E2 08 
175E4 866 
175E7 01 
175E9 E5 
175EB 879 
1?75EE 90 
175FO 14A 
175F3 1590 
175F? 847 
175FA 822 
175FD 81D 
17600 832 
17603 50 
17605 857 


17608 879 
1760B F1 
1760D 580 


17610 8E00 
00 
17616 CD 
17618 S7F 
1761B 431 


1761E 8£00 
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x 

ak 
ak 
ak 
an 
at 
aK 
ax 
ak 
ak 
x 


NIBL5S 


NIBL57 


x 
ak 
ax 
x 


*NIBL60 
& 


x 
x 


NIBL6O 


x 
NIBL64 
NIBL65 


k 
NIBL66 


ST=1— sODDST 
C=0 A 
C=C+1 A 
GOSUB OBEDIT 
GOC RSTKR- 


2:44 an 
Page 67 


Fri Dec 3, 1983 


Set "Odd start" flag 
C=1 


Open up extra nib at buffer st 
Return if error 


Fetch source and destination pointers 
If current position is odd, then 
Increnent working nib count 


If writing, then 


Read nib fron abs curr pos-1 into av nen st 


Clear “Odd end" flag 


Compute working number of whole bytes to read or urite 
If odd working nib count, then 


Set "Odd end" flag 


R 

=O sODDST 
YES NIBLS?7 
B=B+1 A 
sREAD 
NIBL57 
A=DATO B 
DAT1=A 1 

ST=0 sODDEN 
SB=0 
BSRB 

?SB=0 
GOYES NIBL6O 
ST=1— sODDEN 


R 
0 W 
A 
T 


D1 @ buffer start 
DO @ abs curr pos (byte resolution) 


Set B = working nib count 


Not odd start? 


Increnent working nib count 
Reading? (then ignore extra nib) 


Copy odd nib fron 1/0 buff to dest 


Clear "Odd end" flag 
Conpute whole working bytes 


Not odd end? 


Set “Odd end" flag 


Save status fron HPIL routines 
Read/urite working number of whole bytes 


GOSUB DRO1EX 
01=(5) /NSTAT 
GOSUB STATSV 
GOSUB DROIEX 


sREAD 
NIBL67 
NIBL65 


*ST=1 
GOYES 
GONC 


GOSUBL =WRBYTD 
B=B-1 A 

GONC NIBL64 

GOC NIBL68 


GOSUBL =RDBYTA 


Save DO, D1 
Save status fron HPIL pot shots 


Restore Dh, 01 
Reading? 

BET 

WRITE A BYTE 
Subtract byte 
Loop if nore 


BET (Last whole byte written) 
READ A BYTE 
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3103 
3104 
3105 
3106 
3107 
3108 
3109 
3119 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 


3131 
3132 
3133 
3134 
3135 
31 36 
3137 
31 38 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 


00 
17624 149 
17627 171 
1762AR CO 
1762C SIF 


NIBL67 


x 
ak 
ak 
x 


ANTBLOS 


x 
x 


1762F 867 
17632 81 

17634 869 
17637 CO 

17639 148 
1763C 15% 
17640 590 
17643 148 
17646 1580 
1764A 848 


NIBL68 


NIBL69 
NIBL70 


te Oe OF OF 


1764D 8£00 
00 


17653 867 
17656 AO 
17658 DO 
1765A £4 
1765C 798E 
17660 866 
17663 01 


NIBL9O 


NOTE: 
and assunes $10, S11 


TRANSFORM Execution <831212.12 
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DATI=A B 
D1=Di+ 2 
B=B-1 A 
GONC NIBL66 


Restore status 
Read/urite odd nib if 


GOSUB 
01=(5) 
GOSUB 
GOSUB 


DROTEX 
/NSTAT 
STRTRS 
DROVEX 


?ST=0 
GOYES 
?$T=0 =sREAD 
GOYES NIBL69 
A=DATO B 
DAT1=A 1 

GONC NIBL70 
A=DAT1 B 
DRTO=A 1 

ST=0 11 


sODDEN 
NIBL?70 


UPCPOS requires R1 = 


GOSUBL =UPCPOS 


?S$T=0 =sODDEN 
GOYES NIBL9O 
A=0 A 

A=A+1 A 

GOSUB FIBUPD 
*ST=0 = sODDST 
GOYES NIBL35 
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Write to buffer 
Subtract byte 
Loop if nore 
needed 


Save DO, D1 
Restore status 


Restore O, 01 

Not odd end? 

Writing? 

Read final nib fron I/O buff 
Write final nib to output buffer 
BET 

Read final nibble fron output buff 
Write final nib to 1/0 buffer 

Set up for UPCPOS 


rec len for fixed length data file 


Finish updating current pos 

Not odd end? 

Increnent current position 1 nib 
note: nodifies S7 


Not "Odd Start"? 
Return 


kk Renove extra nibble fron start of buffer 
k 


17665 733C 
17669 06 
1766B E4 
1766D Ee 
1766F 7410 


17673 6CFE NIBL95 


x 


17677 0 
17678 


GOSUB DO=/BX 
C=A A 
A=A+1 A 
C=C-A A 
GOSUB OBEDIT 
GOTO RSTKR+ 


=FIXSPC 
16-1 


CON(1) 
BSS 


AR = Buffer start + 1 


Ce -4 
Renove nibble 
Return (no error possible) 
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3152 OBEDIT STITLE Edit Output Buffer 
3153 20) OO IOUS IIIS OI TSO ORT I TTI A TTI I 
3184 FORTIS JOO JO TIT OTST TT TK 
3155 a 
3156 ** Nane:(S) OBEDIT - Edit Output Buffer 
3157 x 
3158 ** Category:  FILUTL 
3159 ax 
3160 ** Purpose: 
3161 RK Move the trailing portion of the output buffer, between 
3162 5m a specified address and (AVMENS), up or down by a given 
3163 ak offset. Update AVMENS and perforn nenory check when 
3164 a offset is positive. 
3165 ax 
3166 &*® Entry: 
3167 a A(A) = Start of block to move (SOURCE). 
3168 ax C(A) = Offset of move (DEST - SOURCE). If positive, 
3169 am menory check will be perforned. 
3170 aK P = 01f leeway is desired should a menory check 
3171 aK be perforned. 
3172 tk Exit: 
3173 ak P = 0 
3174 ak Carry clear: 
3175 ak A(A) = Start of block to move (SOURCE). 
3176 as B(A) = Length of block noved (old (AVMEMS)-SOURCE). 
3177 x C(A) = DESTination of nove (new start of block). 
3178 ax (AVMENS) updated, now old (AVNENS) + offset. 
3179 ak Carry set: 
3180 . C(3-0) = eMEM error code (Insufficient nenory) 
3181 
3182 ** Calls: MENCL+, MOVE*N 
3183 ae 
3184 ek Uses....... 
3185 *x Exclusive: A(R), BCA), CCA), D1, P 
3186 kx Inclusive: A(A), BCA), CCA), DO, D1, P 
3187 ak 
3188 ** Stk lvls: 1 
3189 om 
31% kX History: 
3191 ae 
3192 xx Date Progranner Modification 
3193 BK enn nnn nner en en nnn nnn nn nnn re nnn nnn nner 
3194 ek 09/21/82 FH Designed and coded. 
ae 
aie: SII TI III IID III ITS IIIT SI III SII ISIS ISIS IIIS II II IASI III II IASI. 
3197 OOOO JOT TOTTI TTT TT TTT 
3198 17687 DS =OBEDIT B=C A B = offset 
3199 17689 C2 C=A+C A C = destination 
3200 17688 8BE *C<=A A Contraction? 
3201 1768E 21 GOYES OBED20 
3202 17690 1H DO=A Save source 
3203 17693 8F0O GOSBVL =NENCL+ Check nenory 
000 
3204 1769A 400 RTNC 
3205 1769D 132 ADOEX Recall source 
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3206 176A0 1F49 OBED20 D1=(5) =AVMENS Update AYMENS 
5F2 
3207 17687 147 C=DAT1 A 
3208 176AR C9 C=C+B A (neu av ner start) 
3209 176AC 145 DATi=C A ‘ 
3210 176AF DD CBEX fA B = LEN 
3211 17681 £1 B=B-C A (old av nen start) 
3212 176B3 E8 B=B-A A (old av nen start) - (source) 
3213 17685 C2 C=C+A A C = DEST = offset + SOURCE 
3214 176B7 8D00 nove*n GOVLNG =NOVE*N Go do it 


000 
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3215 RECNIB STITLE Recall Into A Reg the Nibs Read 
3216 JOIST ICO TOG OCICS OR 
3217 FORO RIOR OJOS JOIIOI OO OR SIO IUD ITO TT TTT 
3218 os 
3219 ** Nane: RECNIB - Recall Into A Reg the Nibs Read 
3220 ** Nane: RECAL- - Recall Into A Reg the Nibs Read 
3221 ak 
3222 *& Category:  FILUTL 
3223 wis 
3224 ** Purpose: 
3225 RK Reads into the A register the last n nibs of the 
3226 a output buffer, where n = min(R3,16). R3 contains 
3227 ae the nunber of nibs READNB appended to the output 
3228 aA buffer. For RECAL-, the R3 value is in C(A). 
3229 ak 
32H *k Entry: 
3231 xn RECNIB: 
3232 aA R3(A) = Number of nibs READNB has appended to the 
3233 ax output buffer. 
3234 ak RECAL-: 
3235 a C((R) = Number of nibs READNB has appended to the 
3236 =e output buffer. 
3237 ak 
3238 EX -ERIte 
3239 ax A = Up to last 16 nibs of data read 
3240 a C(A) = Address of old av nen start 
3241 ak dO = Address of old av nen start 
3242 aK Carry = Clear. 
3243 ao 
3244 ** Calls: DI@AVS 
3245 ae 
3246 *k Uses....... 
3247 *k Inclusive: A,C(A),DO,D1 
3248 7 
3243 ** Stk lvls: 1 
3250 a 
3251 JIS SIT II III IIIA ITI III IO TOSI ISI I III ID ITI DIDI II II IIT ISS IIIS ISIS 
3252 JIS TIT III IIT OT III IIIS III III IIIS IIIS IIIS IAT IIE IN 


3253 176BE 118 
3254 176C1 8F0O 
000 
3255 176C8 EE 
3256 176CA 134 
3257 176CD 1527 
3258 176D1 03 


RECNIB C=R3 Recall #nibs 
RECAL- GOSBVL =D1@AVS Set D1 = AVMENS, A=(AVMENS) 
C=A-C A Back up before av ren st 
do=C DO @ new av nen start 
R=DATO W Read data after new end of buffer 
RTNCC 
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3259 TXT->B STITLE Transform TEXT to BASIC 
3260 JOISIGO IG IOI IGOR GOOG TOO III TTT IIIT 
3261 JOSICIG IIIS ISO III TOO TOT I I IIIS III TTI II IIT 
3262 ax 
3263 *k Nane: TXT->B - Transforn TEXT to BASIC 
3264 ax 
3265 ** Category: LOCAL 
3266 ae 
3267 ** Purpose: 
3268 xx Read line fron source TEXT file, transform into BASIC, 
3269 kx leave it in output buffer. No messages are directly 
3270 a issued by this routine except parse warnings (Overflow 
3271 ak or Underflow with IEEE wath setting 2) which are 
3272 aa beyond its control (issued by parse routines). 
3273 ah 
3274 *k Entry: 
3275 aK R4(15,14) = Source FIB# 
3276 ax Input, output buffers collapsed to SYSEN 
3277 aK At least 150 bytes + LEEWAY available menory guaranteed 
3278 a /LINE# = 0 or previously returned BCD line # 
3279 ke /SFIBA = Source FIBH 
3280 ak {OPIN = Option fron extended TRANSFORM staterent 
3281 xx execution; 0 if frort normal TRANSFORM 
3282 aK /PARM1,/PARN2 = Destination file create parameters fron 
3283 aK extended TRANSFORM staterient execution; 
3284 ak 0 af fron norrial TRANSFORM 
3285 xk P = 0 
3286 EX 
3287 *k Exit: 
3288 xn OUTBS @ Start of transformed line. If original line 
3289 ae Mas copied into available nenory start, OUTBS 
32% ae Nay point itmnediately after the original line. 
3291 ae Must be collapsed to /SYSEN if fatal error. 
3292 xx AVMENS @ End of transforned line unless fatal error. 
3293 ae Must be collapsed to /SYSEN if fatal error. 
3294 a S?7 1 iff end of file found on source file (sEOF) 


! oat 


3295 a /LNLEN Full length in nibs of input line. Unneeded 
3296 ak if fatal error. 

3297 aK /LINE# = BCD line nuriber of current line. Used in 
3298 a reporting error messages. If sequential 
3299 kk line nuriber 1s to be used, set to 0. 

3300 wk P = Q 

331 a Carry clear: Successful transfornation 

3H2 os Carry set: Error occurred 

3303 ax C(3-0) = Error code 

3304 ak C(S) = O1f error was fatal (unrecoverable). 

3X5 at # 0 if error was recoverable. 

3W6 ax 

3307 tk Uses. ioc... 

3X8 a All CPU registers, SO-S11, $13, Statenent and Function 
3309 ze scratch RAM, SNAPBF, RSTKBF, /LNLEN, /LINEH, /FLAG, 
3310 wk INBS, OUTBS, AVMENS 

3311 ae 

3312 ** Stk lvls: 6 


3313 = 
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3314 ** Algorithn: 

3315 ah Read text line into input/output buffer 

3316 A Append endline 

3317 als Save input line length in /LNLEN 

3318 ah Skip over input buffer 

3319 ak Parse 

3320 an Fetch line# fron parsed string, save in R1 

3321 ae If no error, then 

3322 ae Save line # in /LINE# 

3323 a Update AVMEMS fron DO 

3324 aR Collapse input buffer 

3325 xR Recall line length fron /LNLEN, store in R2 

3326 as If line was truncated, go to 6.0 

3327 ak Conpute length of output buffer into R3 

3328 ak Return CC 

3329 ae If fatal error (no line #) then 

3330 ak Return SC 

3331 *k 6.0 Save error code 

3332 as Save line # in /LINE# 

3333 aa Collapse output buffer 

3334 an Make input buffer output buffer 

3335 aa Blow open 14-nib hole at buffer start 

3336 a Move line# into first 4 

3337 aR Conpute line length, store in next 2 

3338 ax Write \! ? \ tag into last 8 

3339 aa Change Endline to EOL token 

330 a4 Compute length of output buffer into R3 

3341 ak Recall line length fron /LNLEN, store in R2 

3342 a Recall error code 

3343 aa Return SC 

3344 aK 

335 ** History: 

3346 ak 

3347 xe Date Progranner Modification 

3348 RAO OweSossse, -sSeesesoek: (coSceacncteoseeseusssocesset Secs 

3349 ** 06/12/82 FH Designed and coded. 

3350 ah 

3351 III II IIIT IOS IAI II IIT IIIS ISS SSSI II SSS SOSS SOS SI OSI I ISS SS SSI IIA 

3352 JI ITO I III IIS IIS III IIIT IIIT SS ISS IOI ISSO S SISOS SITS ISSTS SASSI SA 

3353 17603 E210 REL(S) TXTCHB Finish-up routine (Chain file) 
0 

3354 17608 6A10 REL(5) B->TXT Inverse routine 
0 

3355 x 

3356 * Call RDTEXT to read line from source file 

3357 * Save away full input line len 

3358 x 

3359 176DD 78AD =TXT->B GOSUB RDTEXT Read input line 

3360 176E1 7803 GOSUB TFUSLL Save line length, set C(S) = 0 

3361 176E5 70C8 GOSUB  TFUCCK Return if fatal error or EOF 

3362 17669 7C62 GOSUB LNOVF? Test for line too long 

3363 176ED 570 GONC TXT-20 . branch if NO 

3364 176FO CO A=A+B A . if YES, reset AVMENS 

3365 176F2 141 DATI=A A . to truncate line 


3366 176F5 1FAF TXT-20 Di=(5) /FLAG Store "Truncated Line" flag 
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8F2 
3367 176FC 1554 DATI=C S$ 
3368 x 
3369 * Add Endline to line 
3370 * Skip over input buffer 
3371 x 
3372 17700 31D0 LCHEX OD Append EOL 
3373 17704 DA A=C A : 
3374 17706 7D41 GOSUB WTAVN2 ‘ 
3375 1770A 400 RTNC Return if fatal error 
3376 17700 143 A=DAT1 A Skip over input buffer by setting 
3377 17710 1C4 D1=D1- (AVMENS)-(OUTBS) . 
3378 17713 141 DATI=R A . QUTBS to AVNENS 
3379 x 
3380 x Set up parameters for LINE PARSE call 
3381 : Call LNPEXT 
3382 . Clear EOF status 
3383 - 
3384 17716 DO A=0 A Zero out AUTINC 
3385 17718 1FBC 01=(5) =AUTINC : 
6F2 
3386 1771F 1593 DATI=R 4 ; 
3387 17723 7B6B GOSUB R<rstk Hide ny return address fron parse 
ee SII IIIA IA STI IOS III III ISIS III I ISIS II II III IIIT III III SSSI II SATII A 
3390 ‘ 
3391 * Parse the line. Interface is: 
3392 7 
3393 * Entry: 
3394 : INBS) -> Start of input line 
3395 . OUTBS -> Start of available nenory, destination for 
3336 * parsed line 
3397 x 
3398 x Exit 
3399 , OUTBS -> Start of parsed line 
3400 x AVNENS -> End of parsed line 
3401 * 35 = 0 1f no line nurnber 
3402 x = 1 if line number present 
3403 x Carry clear: 
3404 - Successful parse (missing line nunber not allowed) 
3405 - Carry set: 
3406 - Mer error in parse 
340? * ((3-0) = Error code 
3408 * 
34903 ORR OIRO IOI OO II ITO OOOO 
3410 17727 8FOO GOSBVL =LNPEXT Parse line 
000 
3411 1772E 7999 GOSUB = CARYSV Save carry 
3412 17732 BRE CHO | OR Error code supplied* 
3413 17735 60 GOYES TXT-40 
3414 17737 310 LC(2) =eSYNTX Supply default 
3415 1773B 10A8 =TXT-40 R2=C Save carry, error code in R2 
3416 1773E 84? ST=0 = SEOF Clear EOF status 
3417 17741 754B GOSUB  Rstk<r Recall return address 
3418 17745 11R C=Re Line nunber missing? 
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3419 
420 
421 
422 
23 
24 


425 
426 


42? 
3428 
429 
4H 
431 
3432 
433 
Ax 
3435 
436 
3437 
438 


439 


3440 
3441 
3442 
3443 
44 
3445 
3446 
44? 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
458 
3459 
3460 
3461 
462 
463 
464 
3465 
3466 
3467 
3468 
469 


17748 AC2 
1774B 865 
1774E 00 
17750 7182 
17754 101 
17757 1FAF 
8F2 
1775E 14B 
17761 3300 
00 
17767 90C 
1776A BO 
1776C 118A 
1776F A4E 
17772 500 


* » he we 


17775 10R = TXT-60 
17778 8F 
000 
1777F 1Bé6C 
6F2 
17786 142 
17783 1C9 
1778C 141 


0 Se Fe ee Oe 


1778F 131 
17792 ?C72 
17796 148 
12799 3102 
1779D 966 
177A 50 
177R2 171 
177A5 76BA TXT-80 
177A3 168 
177AC 133 
177AF 136 
177B2 E2 
177B4 7FCE 
177B8 AC2 
177BB 400 
177BE 7D9A 
177C2 1114 
177C5 1583 
177C9 799A 
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C=0 S 
*$T=0 5 
RTNYES 

GOSUB TFUUD+ 
R1=A 

D1=(5) /FLAG 


R=DAT1 B 
LC(4) =el2LNG 


AHO OP 
GOYES TXT-60 
C=R2 

C=C-1 § 
RTNNC 


Collapse output buffer 
Add EOL token 
Reinstate input ouffer as output buffer 


R2=C 
GOSBVL =OBCOLL 


DO=(5) =INBS 
A=DATO A 
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Update line nunber 
. and save in R1 
Check "line too long" flag 


. and branch if set 
Return if no error 


Save updated error code 
Collapse output buffer 


Set (QUTBS) to (INBS) 


D1=D1- 5+(AVMENS)-(OUTBS) 


DATI=A A 


D1=A 

GOSUB SKIPLN 
A=DAT1 B 
LCASC \ \ 
"ARC OB 
GOYES TXT-80 
D1=D1+ 2 
GOSUB dO=obs 
DO=D0+ 12 
ADIEX 

CDOEX 

C=C-A A 
GOSUB OBEDIT 
C=0 S 

RTNC 

GOSUB dO=obs 
A=R1 

DATO=A 4 
GOSUB oblcrip 


Reriove ASCII line # and any trailing blanks 

Blow open hole for tokenized line #, length, and tag 
Write line # 
Conpute length, save in R3, urite to output buffer 
Write tag 
Recall input length, write to R2 


D1 = start of line 
Skip line nunber 
Skip following blank if any 


Not blank? 
DO = DEST = line start + 12 
A = SOURCE of nove = after linet 
C = OFFSET = DEST - SOURCE 


Rertove ASCII line # 


D0 at line start 
Recall and write line # 


Conpute line length 
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3470 177CD Be C=0 A Subtract 4 for line# 
3471 177CF 304 LCHEX 4 ; 
3472 177D2 EA A=R-C A - 
3473 17704 163 DO=D0+ 4 Write length offset 
3474 17707 148 DATO=A B ‘ 
3475 177DA 3500 LC(6) \ 7\%256+(=t!) Write tag \ %<t!o\ 

0000 

3476 177E2 161 DO=D0+ 2 
3477 177E5 15C5 DATO=C 6 ‘ 
3478 177E9 310 LC(2)  =tEOL Add EOL token 
3479 177ED DA A=C A : 
3480 177EF 7460 GOSUB WTAVN2 : 
3481 177F3 400 RTNC . and return if fatal error 
3482 * 
3483 * Return error condition 
3484 k 
3485 177F6 11A C=R2 Recall error code 
3486 177F9 AC2 C=0 S Set nonfatal status 
3487 177FC B46 C=C+1 §$ . 
3488 177FF 02 RTNSC Return 
ae JOR IO UI OCT TTT IIIT TTI TTI III EIST TISAI IAI 
3491 JG IOI UID OO ITI II TIO ITI TTI III IIIT TT ISA ISK 
344392 aK 
3493 xk Nanie: TXTCHB - Chain BASIC Dest File After TRANSFORM 
3494 kk 
3495 ** Category: LOCAL 
496 an 
3497 ** Purpose: 
3498 ak To finish up the destination BASIC file after all TEXT 
3499 ah lines have been transforned into BASIC. There are 
3500 an several cases to be dealt with: 
3501 aK 
3502 ax End of a Dry Run (always out-of-place transforr): 
3503 aK If the destination file is on an external rediun, a 
3504 xe first pass or "dry run" is conducted without creating 
3505 am the dest file, in order to determine its necessary data 
3506 BK size. This routine calculates the needed paraneters 
3507 aX to create the file (see CRIF utility), and stores then 
3508 ak in /PARM1 and /PARM2. 
3509 ak 
3510 ak End of a Normal Run, Out-of-Place Transforn: 
3511 aK If the destination file type requires a subheader or 
3512 * Inplenentation field, 1t must be properly initialized 
3513 ax since CRIF stored a default value in it when the file 
3514 xs was created (see CRIF utility). For example, if the 
3515 ae destination 1s a BASIC file, hex value QOOOQQQOQOO0F 
3516 ae nust be written to the header to indicate that the link 
3517 ak chain heads have not been conputed for this file (file 
3518 = has not been "chained"). If the file is in menory, the 
3519 - the proper link chain heads are conputed and written to 
3520 x the subheader. File data, such as links between sub- 
3521 ae prograns in BASIC files, nay need to be updated. 
3522 x 
3523 a End of a Nornal Run, In-Place Transforn: 
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3524 ak If the source file type had a subheader or Inplenenta- 
3525 aK tion field, it must be renoved. If the destination 
3526 aX file type requires a subheader or Inplenentation field, 
3527 x it must be inserted after the file header and set to 
3528 ak the proper value. File data, such as links betueen 
3529 af subprograns in BASIC files, may need to be updated. 
35H 
3531 aK End of an Inverse Transformation (Always In-Place): 

3532 ae If the source file type had a subheader or Inplenenta- 
3533 a tion field, 1t it is still there but may need to be 
354 ak updated to reflect the new state. File data, such as 
3535 ak links between subprograns in BASIC files, may need 
3536 aK to be updated. 

3537 ax 

i 3538 ** Entry: 

‘ 3539 ak Output buffer collapsed (QUTBS, AVMENS point to SYSEN) 
3540 an R4(15-14) = FIBH of destination file. Each line of the 
3541 kk source file (including EOF) has been read, 
3542 aa transforned, and written to the dest file. 
3543 a The End of Data field in the FIB is set to 
3544 ak this new end of file and, if the dest file 
3545 £k 1s in memory, any excess nibs beyond the 
3546 ak end of file have been renoved fron the 
3547 ax file chain. File is now rewound. 

3548 ak $5 = 1 iff transformation is in place (sTFINP) 
3549 ax S6 = 1 iff at end of inverse transfornation 
3550 ae (sTFINV) 

3551 ak $9 = 1 iff at end of dry run (sDRYRN) 

3552 ae P = 0 

3553 ae 

3554 Rk Exit: 

3555 ak P = 0 

3556 - Carry clear: 

3557 ax No error 

3558 RX Carry set: 

3559 ke C(3-0) = Error code (will be treated as fatal error, 
3560 ri with no possibility of recovering dest file) 
3561 x 

3562 *x Calls: WTAVWP, RPLSBH, LOCFHD, CHAIN- 

3563 ak 

3564 ** Uses. ...... 

3565 xx Inclusive: May use any CPU register, S10 

3566 ze 

3567 kK Stk lvls: 6 (max) 

3568 am 

3569 ** Algorithn: 

3570 x If Dry Run, then 

3571 ax Read file size in /DLEN 

3572 ay Store file size in /PARM 

3573 Rx Else 

3574 aX If Inverse Transforn or Out-of-place Transforn, then 
3575 ae Rewrite "Unchained" value to existing subheader 
3576 ae Else 

3577 ax Insert new subheader with "Unchained" value 


3578 ax Call CHAIN- to chain file links 
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3579 ax 
3580 JI OI I TIO II IIIT IIIS ITI I IIIT I IS TTI IOI IIS IIIS IISA III IN 
3581 JOIST IO TOI TIT ITS IIIA TIO II IIIS IIIT II SII IS IIS TIKI IN 
3582 x 
3583 * Insert new subheader 
3584 x 
3585 17801 869 TXTCHB ?STH1 sDRYRN NOT Dry Run? 
3586 17804 81 GOYES TXTC20 
3587 m 
3588 17806 1FAD SETLEN Di=(5) /DLEN Read length 
8F2 
3589 1780D AFO A=0 W 
3590 17810 143 A=DAT1 A ‘ 
3591 17813 1DBE D1i=(2) /PARM Store into /PARM 
3592 17817 141 DAT1=A A ; 
3593 1781A 03 RTNCC 
3594 : 
3595 1781C 2B TXIC20 P= 12-1 Set A(11-0) = #F00000000000 
3596 1781E AFO A=0 W : 
3597 17821 ROC R=A-1 P : 
3598 17824 D2 C=0 A Set up insert unless inverse tfr 
3599 17826 866 ?8T=0 sTFINV . NOT inverse Xforn conpleted? 
3600 17829 50 GOYES TXTC40 ‘ 
3601 1782B 809 C+P+1 
3602 1782E 10B TXTC40 R3=C j 
3603 17831 7420 GOSUB WTAVUP Write to ouput buffer 
3604 17835 400 RINC ; 
3605 % 
3606 * NOTE: For out-of-place rienory Xforn, RPLSBH always REPLACES 
3607 x the old subheader with the new one 
3608 * 
3609 17838 7F51 GOSUB  RPLSBH Insert/replace subheader 
3610 1783C 400 RTNC 
3611 1783F 27759 GOSUB LOCFHD Locate file header 
3612 17843 87A ?8T=1 =sI/0BF External file? 
3613 17846 90 GOYES TXTCce 
3614 17848 8FOO GOSBYL =CHAIN- Chain file 


000 
3615 1784F 03 TXTCce RINCC 
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3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
360 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 


17851 
17853 
17855 
17857 
17859 
1785C 
1785E 
17861 
17865 
17868 
1786B 
1786E 
17872 


TRANSFORM Execution ¢831212.12 
Ver. 3.39/Rev. 2306 Urite AC WP) to Avnen Start 


2:44 an 
Page 79 


Fri Dec ®, 1983 


WIAVWP STITLE Write ACHP) to Avnen Start 
SO IU OOO COICO ORO IK 


x 


+ UTAVUP - 

* 

* Entry: 

k p 2 

x ACWP) = 

x 

x Exit: 

& DO @ 

x 01 = 

x C($) = 

x 

; Uses: P,D1,D0 
DO WIAVFF A=0 A 
CC A=A-1 A 
22 WTAVNG P= 2 
oc WIAVN2 P=P+1 
100 WTAVWP RO=A 
D2 C=0 A 
809 C+P41 
7794 GOSUB OBAPND 
AC2 C=0 S 
400 RTNC 
110 R=RO 
1507 DATO=A W 
03 WTAVce RTNCC 


Write A(WP) to Avnen Start, Update AVNENS 


# nibs to write - 1 
Data to write 


0 

Data to write 
Old av nen start 
AVMENS 

0 


»C(A),A, BCA), RO 


Set up urite of FFFF 


Set P=4-1 

. Set P=2-1 
Save data 
C = nibs 


Blow open space at end of buffer 
Set C(S) to zero for return 
Return if menerr 

Recall data 

Write data 
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3647 B->TXT STITLE Transforn BASIC to TEXT 
3648 JOSS IGS ICI ICOIISIIS OCC IOC OTIS II IIIT IT TIT IIIT 
3649 JOIGICISUII IDOI IT ITO I I III III III III I STIS 
3650 aX 
3651 ** Nane: B->TXT - Transforn BASIC to TEXT 
3652 XK 
3653 *k Category: LOCAL 
3654 ax 
3655 ** Purpose: 
3656 KK Read line fron source BASIC file, transforn into TEXT, 
3657 Kk leave it 1n output buffer. No messages are directly 
3658 am issued by this routine. 
3659 ak 
3660 *k Entry: 
3661 am R4(15,14) = Source FIBH 
3662 ak Input, output buffers collapsed to SYSEN 
3663 ax At least 150 bytes + LEEWAY available nenory guaranteed 
3664 Kk /LINE# = © or previously returned BCD line # 
3665 a {SFIBH = Source FIB# 
3666 ze {OPIN = Ignored 
3667 ax /PARN1, /PARN2 = Ignored 
3668 ak P = 0 
3669 a 
3670 ax Exit: 
3671 a OUTBS @ Start of transformed line. If original line 
3672 kk was copied into available nenory start, OUTBS 
3673 aK Nay point irimediately after the original line. 
3674 aK Must be collapsed to /SYSEN if fatal error. 
3675 ax AVMENS @ End of transformed line unless fatal error. 
3676 xk Nust be collapsed to /SYSEN if fatal error. 
3677 a $? = 1 aiff end of file found on source file (sEOF) 
3678 xs /LNLEN = Full length in nibs of input line. Unneeded 
3679 aK if fatal error. 
3680 ze /LINE# = BCD line nurber of current line. Used in 
3681 aR reporting error messages. If sequential 
3682 ae line number is to be used, set to 0. 
3683 a P = 0 
3684 aK Carry clear: Successful transformation 
3685 x Carry set: Error occurred 
3686 ax C(3-0) = Error code 
3687 xk C(S) = O aif error was fatal (unrecoverable). 
3688 7 # 0 1f error was recoverable. 
3689 = 
36% ** Calls: LDSST1, STATSV, STATRS, TFURSF 
3691 ax 
3692 ** Uses: 
3693 pas All CPU registers, SO-S11, $13, Statement and Function 
3694 whe scratch RAM, SNAPBF, RSTKBF, /LNLEN, /LINEH, /FLAG, 
3695 am INBS, QUTBS, AVMENS 
3696 se 
3697 ** Stk Ivis: 6 
3698 = 
3699 ** Algorithn: 
3700 ss Space OUTBS out 4 nibs for line length header 


3701 et Save max input buf len in R1: min(256 bytes, av nen) 
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3702 aX Save status 
3703 ax Locate file 
3704 eR If external file, then 
3705 ak Error exit: not inplenented 
3706 aR Calculate current position of file sonehou 
3707 aE If EOF then 
3708 aR Set EOF flag 
3709 aE Inp buff len = 0 
3710 ak Output buff len = 0 
3711 ax Return carry clear 
3712 aK Set INBS to current position 
3713 aR Calculate and save input line len 
3714 ak Set up paraneters for Deconpile 
3715 aK Call Deconpile 
3716 aA Recall input len, rove to R2 
3717 aR Save len of line read in R3 
3718 aR Compare line begin with [! ? ] tag 
3719 ah If equal, then 
3720 ak Move OQUTBS out 8 nibs 
3721 aR Reduce count in R3 by 8 
3722 ah Recall line len in nibs 
3723 a Convert to bytes 
3724 aR Store at start of OQUTBS 
3725 ak Add 4 nibs to total for output buffer len 
3726 ak Store in R3 
3727 at Return with no error 
3728 ax 
3729 ** History: 
37% xk 
3731 Date Progranrer Modification 
3732 BK ween meee renee terre n rn rene nen cen mene een en econ een 
3733 -. 06/14/82 FH Designed and coded. 
ae JO III ITI SOI IIIT IIIT ITI OI II SSSI SSIS SSO S IOI IIIS IS SSIS SIS 
3736 HHA KKK KAKA RARER KAKA K KAA RIKKI KIKI IARI KKK KAA KAKA EK IR KATE 
3737 17874 4010 REL(5) B->CHT Finish-up routine 
0 
3738 17879 46EF REL(5) TXT->B Inverse routine 
F 
3739 . 
3740 * Read input line 
3741 * Save input line length 
3742 : If EOF then write FFFF to output buffer, return 
3743 
3744 1787E 7D7B =B->TXT GOSUB RDBAS Read input line 
3745 17882 7761 GOSUB TFUSLL Save line length, set C(S)=0 
3746 17886 400 RTNC Return if fatal error 
3747 17889 877 ?ST=1 =sEOF EOF? 
3748 1788C 5C GOYES WTAVFF If so, write EOF 
3749 x 
3750 * Space OUTBS, AVMENS out 4 beyond current av men start 
3751 x (possible without mencheck since RDBRS chacks leeway) 
3752 * Set INBS to current position 
3753 x 
3754 * Set up parameters for Deconpile 
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3755 * Call Deconpile 
3756 * Clear EOF flag 
3757 x 
3758 1788E 78D9 GOSUB obprd Space output buffer beyond line hdr 
3759 17892 D2 - C=0 A é 
3760 17894 304 iC(1) 4 
3761 17897 C2 C=C+A A ; 
3762 17899 145 DATI=C A . (update AVMEMS) 
3763 1789C 1C4 D1=D1- (AVMENS)-(QUTBS) . 
3764 1789F 145 DAT1=C A . (update OUTBS) 
3765 178AR2 118 C=R3 Set D1, DO to start of line 
3766 178A5 135 D1i=C . and set D1 to input pointer 
3767 178A8 134 DO=C ; 
3768 178AB 7C21 GOSUB = TFUUDL Update line nurber 
Ha JOO III OTA IIIT III IIIS IIIT IRI OS TI SII II ISI IIA 
3771 x 
3772 x Decorpile Line -- Interface is: 
3773 * 
3774 * Entry: 
3775 x D1 -> Start of input line 
3776 x 
3777 x Exit: 
3778 x OUTBS -> Start of deconpiled line 
3779 x AVMENS -> End of deconpiled line 
3780 x Carry clear: 
3781 . Successful deconpile (missing line number allowed) 
3782 : Carry set: 
3783 * Men error in decompile 
3784 x C(3-0) = Error code 
3785 x $5 = 0 
3786 : 
3787 FOI IIT TT TTT TTT TOG TT 
3788 178AF 8FOO GOSBVL =LDCEXT Decorpile line 
000 
3789 178B6 847 ST=0 — sEOF Clear EOF flag 
3790 178B9 AC2 C=0 $ Flag fatal error 
3791 178BC 400 RTNC 
3792 * 
3793 * Update AVMENS, check for "! 7" tag 
3794 * 
3795 - 
3796 1?8BF 7RAI GOSUB obprd Update AVNENS to DO 
3797 178C3 132 ADOEX s 
3798 178C6 141 DATI=A A s 
3799 178C9 135 D1=C D1 @ start of line in output buff 
3800 178CC 7241 GOSUB SKIPLN Skip line nunber 
3801 178B0 100 RO=A . and save in RO 
3802 178D3 AFO A=0 W Read next 5 chars 
3803 17806 1589 A=DAT1 5%*2 : 
3804 178DA AF2 C=0 W Load tag ( set C(S)=0 for below ) 
3805 178DD 3902 LCASC \ 7! \ ; 
1202 
F302 
3806 17869 976 PRHC OW NOT equal? 
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3807 178EC 50 
3808 178EE 177 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
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GOYES B->T70 


D1=D1+ 4%2 Space beyond \? !' \ to renove it 


3816 
381? 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
380 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 


178F1 133 
178F4 7769 
178F8 E2 
178FR 137 
178FD 177 
17900 137 
17903 708D 
17907 400 
1790A 23 
1790C 80FF 
17910 110 
17913 7138 
17917 7449 
1791B 1587 


1791F AFO 
17922 7049 
17926 81C 
17929 7848 
1782D 511 
17930 101 
17933 DO 
17935 7E1F 
17939 400 
1793C 111 
1793F 71E0 
17943 1C4 
17946 147 
17949 137 
1794C 1C3 
1794F 1593 
17953 13? 
17956 145 


k 
* Set SOURCE to blank after line # 
* Set DEST to 5th character position of line 
* Compute OFFSET 
* Edit output buffer 
% Read input line # 
* Convert to 4 decinal ascii chars u/ leading zeroes 
: Write to start of output buffer 
B->T70 ADIEX A = SOURCE 
GOSUB dO=obs C = OFFSET = (OQUTBS) + 8 - SOURCE 
C=C-R A ‘ 
CDIEX 
D1=D1+ 8 
CDIEX ; 
GOSUB OBEDIT Edit output buffer 
RTNC Return fatal error if carry set 
P= 4-1 Set digit count for conversion 
CPEX 15 . and restore P=0 
A=RO Recall] line nunber 
GOSUB HEXASC Convert with leading zeroes 
GOSUB d0=obs Write to output buffer 
DATO=A 8 ‘ 


x 
* Compute output line length in bytes 
: Store at start of line, update OUTBS 
A=0 W A = line data length in bytes 
GOSUB oblcnp ‘ 
ASRB i 
GOSUB LIF >NB Test if we have an odd # of bytes 
GONC B->T80 . and junp if NOT odd 
R1=R Save away #bytes in Ri 
A=0 A Write 00 at end of avail nenory 
GOSUB WTAVN2 : 
RTNC . and error out if nen err 
A=R1 Recall # bytes 
B->T80 GOSUB SWPBYT Reverse bytes for line header 
D1=01- eee (OUTBS) Set OUTBS back to true start 
C=DAT1 A 
CDIEX 
D1i=D1- 4 : 
DAT1=R 4 . write line header 
CDIEX ; 
DATI=C A . update OUTBS 


FOR ROT TTT TK 


* 
x NOTE: 
* 


x 


FALLS INTO FOLLOWING CODE x 
k 


KKK KK RK KI IK III KIKI KIKI IKK KIKI IR II RK RII KK 


FORO IO TO TTT TT TT TITTIES 
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3862 
3863 
3864 
3865 
3866 
386? 
3868 
3863 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
387? 
3878 
3879 
3880 
3831 
3882 
3833 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3836 
3897 
38398 
3899 
3900 
3901 
3902 
3903 
3904 


3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 


17959 AF2 
1795C 310F 
17960 DS 
17962 7009 
17966 DE 
17968 8B9 
1796B 86 
1796D B46 
17970 3300 
00 
17976 02 
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ik 
xk Nane: LNOVF? - Truncate ASCII Line 
ah 
** Purpose: 
RK Test if line in output buffer is longer than 120 chars. 
ik 
** Entry: 
aK P = 0 
ak 
AE Exit: 
ak Pp = O 
xx ACA) = Avail nen start 
aK B(R) = Char limit in nibs ( = 120%2) 
¥ Carry clear: 
ak E(S). = 
kk Carry set: 
ak C(s):, = 74 
aK C(3-0) = Error code: eL2LNG 
ah 
**® Calls: oblcrip 
ak 
ARCUSES occas 
kk Inclusive: A(A), BCA), C, D1 
ok 
** Stk lvls: 2 
ak 


FOI TTT TTT TTT TIT TIT I TIT I I 


FORO TTT TI RII 
x x 


* NOTE: THIS CODE FALLEN INTO FROM ABOVE * 
* i 


FOI 


LNOVF? C=0 W Load linat 
LC(2).. 120%2 ; 
B=C A Compute line length 
GOSUB oblcnp ‘ 
ACEX A : 
°C<=B A Not too long? 
GOYES RPLSce . rtnee 
C=C+1 § Set flag 
LC(4) =eL2LnG 
RTNSC 


OIG OIC OIG IE IOI IO 
JORIS IOI I IOI 
ak 
ae 
ak 
ax 
kx 
kk 
xk 


Narie: B->CHT - Finish TEXT File After Xforn fron BASIC 


Category: LOCAL 


Purpose: 
To finish up the destination TEXT file after all BASIC 
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3916 ak lines have been transforred into TEXT. There are 

i 3917 ak several cases to be dealt with: 

3918 aX 
3919 £K End of a Dry Run (always out-of-place transforn): 
3920 ax If the destination file 1s on an external mediun, a 
3921 ax first pass or “dry run" 1s conducted without creating 
3922 ae the dest file, in order to deternine its necessary data 
3923 ax size. This routine calculates the needed paraneters 
3924 ae to create the file (see CRIF utility), and stores then 
3925 hw in /PARM1 and /PARN2. 

, 3926 ae 

i 3927 km End of a Normal Run, Out-of-Place Transforn: 
3928 ax If the destination file type requires a subheader or 
3929 ak Inplenentation field, it must be properly initialized 
3330 ak since CRIF stored a default value in it when the file 
3931 ae was created (see CRIF utility). Since a TEXT file 
3932 am has no subheader or inplenentation field (in menory), 
3933 ak this case is trivial. 
393% an 
3935 ae End of a Normal Run, In-Place Transforn: 
3936 a If the source file type had a subheader or Inplenenta- 
3937 ax tion field, 1t must be renoved. If the destination 
3938 tk file type requires a subheader or Inplenentation field, 
3939 ak it must be inserted after the file header and set to 
3940 ak the proper value. File data, such as links betueen 
3941 aR subprograns in BASIC files, nay need to be updated. 
3942 ae In the case of BASIC to TEXT, the source file’s sub- 
3943 ax header nust be renoved. 
3944 ak 
3945 ae End of an Inverse Transformation (Always In-Place): 
3946 ak If the source file type had a subheader or Inplenenta- 
3947 ak tion field, it it is still there but may need to be 
3948 am updated to reflect the new state. File data, such as 
3949 BX links between subprograns in BASIC files, may need 
3950 ak to be updated (this is true for BASIC to TEXT inverted 
3951 kx back to BASIC). 
3952 ax 
3953 ** Entry: 
3954 kx Output buffer collapsed (QUTBS, AVMENS point to SYSEN) 
3955 ax R4(15-14) = FIBH of destination file. Each line of the 
3956 ax source file (including EOF) has been read, 
3957 a transforned, and written to the dest file. 
3958 ax The End of Data field in the FIB is set to 
3959 Sas this new end of file and, if the dest file 
3960 BS is in memory, any excess nibs beyond the 
3961 ak end of file have been renoved fron the 
3962 an file chain. File is now rewound. 
3963 ak $5 = 1 iff transformation is in place (sTFINP) 
3964 kx 36 = 1 iff at end of inverse transfornation 
3965 ak (sTFINV) 
3966 aK $3 = 1 iff at end of dry run (sDRYRN) 
3967 ak P = 0 
3968 ak 
3969 &* Exit: 


3970 . P = 0 
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3971 ax Carry clear: 
3972 ak No error 
3973 aK Carry set: 
3374 KH C(3-0) = Error code (will be treated as fatal error, 
3975 x with no possibility of recovering dest file) 
3976 ax 
3977 ** Calls: RPLSBH, SETLEN 
3978 RK 
3979 ek Uses.....5- 
3980 ** Inclusive: May use any CPU register, S10 
3981 ak 
3982 ke Stk lvis: 6 (ax) 
3983 gia 
3984 ** Algorithn: 
3985 aX If Dry Run, then 
3986 ak Read file size in /DLEN 
3987 a Convert size to bytes 
3988 kx Store file size in /PARM 
3989 am Else 
39% x If Transforn Out-of-place or Inverse Transforn, then 
3991 ae Return OK 
3992 ke Else {In-place Transforn} 
3993 ax Delete old BASIC subheader 
3994 x 
3995 JOIST OOO IOC IIIT TTT ISIS 
3996 JORIS OIE OCI I CT SIS I TIO 
3997 
3998 * 
3999 17978 869 B->CHT ?STH1 sDRYRN NOT Dry Run? 
4000 1797B EO GOYES B->C20 
4001 1797D 758E GOSUB SETLEN Set file length into A 
4002 17981 81C ASRB Convert len to bytes 
4003 17984 141 DAT1=A A Store in /PARM1 for create 
4004 17987 03 RTNCC 
4005 x 
4006 17989 865 B->C20 ?ST=0 sTFINP Transform NOT in place? 
4007 1798C 74 GOYES RPLScc RINCC 
4008 1798E 876 *ST=1 sTFINV Inverse tansforn? 
4009 17991 24 GOYES RPLScc RTNCC 
4010 17993 De C=0 A Delete subheader 
4011 17995 300 LC(1) (oF LSTr)- (oSUBLn) 
4012 17998 108 R3=C 
4013 x JOIST III OI OIE ICE 
4014 x - x 
4015 - * NOTE: FALL INTO FOLLOWING CODE * 
4016 * % . 
x SOIREE 


4017 
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4018 RPLSBH STITLE Replace Subheader 
4019 
4020 
4021 & JUS IO ISOS SS SATO SOS SSIS AI 
4022 x * * 
4023 k * NOTE: THIS IS FALLEN INTO FROM ABOVE * 
4024 x & * 
4025 & JU GIO I TOSI OA STASI AISA III IIIS AS: 
4026 
4027 
4028 FO ROI OJO ITO TOT TT OOK 
4029 FOR RIOR IOI JOO OOOO Oe 
403 A 
4031 ** Nane:(S) RPLSBH - Replace Nenory File Subheader 
4032 x 
4033 ** Category:  FILUTL 
4034 eK 
4035 ** Purpose: 
4036 xs Replaces the subheader of a nenory file with the data 
4037 a stored in the output buffer. For external files, urite 
4038 aR the output buffer data to the subheader area of the 
4039 ak file. Does NOT update the subheader length field of 
4040 ak the FIB, but for menory files it updates the Data Begin 
4041 ak field. If out-of-place transforn in nenory file, it 
4042 ae replaces the old subheaderunconditionally with the new 
4043 ots subheader in output buffer. 
4044 kk 
4045 ** Entry: 
4046 ak R4(15-14) = FIB# of dest file; file rewound. 
4047 abe R3(A) = Length of old subheader 
4048 ak P = 0 
4049 ae $5 = 1 iff In-place Transform (sTFINP) 
4050 re Output buffer contains neu subheader 
4051 ak 
4052 Kk Exit: 
4053 ak P = 0 
4054 ak R4(15-14) = File FIB# 
4055 ee Carry set: 
4056 ax ((3-0) = Error code; insufficient nenory 
4057 a 
4058 ** Calls: LOCFIL, RPLLI*, FIBRRS 
4059 he 
4060 ** Uses....... 
4061 ** Inclusive: A,B,C,D(S),D(7-0),RO,R1,R2,R3,00,D1 
4062 xx 
4063 RK Stk lvls: 4 
4064 a 
4065 ** NOTE: 
4066 ak File is ASSUMED to reside in nenory (internal file). 
4067 kk 
4068 ar 
4069 ** Algorithn: 
4070 ax Adjust FIB pointers to make old subheader appear to be 
4071 a first line 
4072 ax Replace this line with new subheader 
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4073 ae Adjust FIB pointers beyond new subheader again 
4074 aK 
4075 ** History: 
4076 aK 
4077 xk Date Progranner Modification 
4078 a aa a aaa aaa atte 
4079 kk 10/04/82 FH Designed and coded 
4080 ne 
4081 JOISTS III ISIOC II II II ISIS TS TI TOSS III IR IIA: 
4082 JOIST UI ICO ICIS IO IT IIIS TIS I IIIS I III IIIT 
4083 1799B 7878 =RPLSBH GOSUB LOCFI# Locate file 
4084 1799F D2 C=0 R Set external file to subheader 
4085 179A1 145 DATI=C A ; 
4086 179R4 875 *ST=1 0 sTFINP Transformation in place? 
4087 179A7 EO GOYES RPLS20 : 
4088 179A9 87A ?S$T=1 =sI/OBF External file? 
4089 179AC 90 GOYES RPLS20 
4090 179RE 7488 GOSUB oblcnp Compute new subheader length 
4091 179B2 103 R3=A . and use that as prev len 
4092 17985 727B RPLS20 GOSUB WRITNB Write/replace subheader 
4093 179B9 400 RTNC : 
4094 179BC 7958 GOSUB LOCFI# Locate file 
4095 179C0 87A ?ST=1 =sI/OBF Return OK if external 
4096 179C3 01 GOYES = RPLScc 
4097 179(5 118 C=R3 Recall offset 
4098 179C8 CA A=A+C A Update data start 
4099 179CA 1CF DI=D1- 16 ‘ 
4100 179CD 1C2 D1=D1- (oCPOSb)-(oDBEGb)-16 
4101 17900 141 DAT1=A A 
4102 17903 03 RPLScc RTNCC 
ta JIS III II TIO III I III I IIIA III III OAT I III ISI III IIIA 
4105 * 
4106 * TFUUDL,TFUUD+ - Update Line Nurber 
4107 * 
4108 * Entry: 
4109 - TFUUDL: 
4110 x ne @ BCD line # 
4111 x TFUUD+: 
4112 x (QUTBS) @ BCD line # 
4113 - 
4114 * Exit: 
4115 & /LINEH = line # 
4116 ? Carry preserved 
4117 x 
4118 * Uses: DO, A(R), C(R) (TFUUD+ only) 
4119 * 
4120 17905 8648 TFUUD+ GOSUBL dO=obs DO @ line # 
8F 
4121 179D0B DO TFUUDL A=0 A Read line # 
4122 17900 15A3 A=DATO 4 : 
4123 179E1 1B4E DO=(5) /LINE# Store line # 
8F2 
4124 179E8 140 DATO=A A 
4125 179EB 01 RIN 
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4126 

4127 SII ISI ISAT I III IIT III SIS IIIS IIA IIS TIS III IS ISI ISIS ISI ISIS SSS SS 

4128 x 

4129 * TFUSLL - Store Line Length 

4130 x 

4131 * Entry: 

4132 a C(A) = Line length 

4133 x 

4134 * Exit: 

4135 a DO @ /LNLEN 

4136 A C(A) = Line length 

4137 x C($) = 0 

4138 x Carry preserved 

4139 x 

4140 * Uses: 00, C(S) 

4141 k 

4142 179ED 1B5F TFUSLL DO=(5) /LNLEN Store line length 
8F2 

4143 179F4 144 DATO=C A 

4144 179F7 AC2 C=0 Ss 

4145 179FA 01 RIN 

4146 

4147 

4148 Rak 

4149 x 

4150 * Nane: OBAPND 

4151 x 

4152 * Entry: 

4153 & C(A) = #nibs to write 

4154 : 

4155 * Exit: 

4156 * P = 0 

4157 . DO @ Old av nen start 

4158 x A(R) = New av nen st 

4159 x D1 = AVMENS 

4160 x 

4161 179FC 20 OBAPND P= 0 Check nenory with leeuay 

4162 179FE 8FOO GOSBVL =NEMCKL 
000 

4163 17905 400 RTNC 

4164 17AO8 130 DO=A DO = Av nen st 

4165 17A0B CO A=A+B A Update AVMENS 

4166 17R0D 141 DAT1=A A ‘ 

4167 17810 03 RTNCC 
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4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 


4199 17A12 1B17 


8F2 


4200 17A19 D3 
4201 17A1B CF 


4202 17A1D 8D00 


000 
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SKIPLN STITLE Skip Line Nurber 
JI IOI I IO III ISI II IIS I III IIIT SI STIS IIIT I IIIT II SSI III IIIT ITN 


FOO OI IO TTT TI OT TO TIO TOK 
ak 


** Nane: SKIPLN - Skip Line Nunber 


xk 

xX Category: PARUTL 

xk 

** Purpose: 

a Skips a line number inan ASCII line. Leading blanks, 
ak if present, are also skipped. Scan also stops on EOL. 
xR 

z® Entry: 

aR 01 @ Next character position in line 
kK 

ae Exit: 

a Carry = Clear if line nutber found 

aK D1 @ New character position in line 
xx A(3-0) = Line nunber if carry clear 

xk P = 0 

ar 

xk Calls: LINHP 

xx 

BP USCS cc vio. sats 

*X Inclusive: A-D,RO, STMTRO 

xa 

*X Stk lvls: 3 

ak 


FOI OI OOO OTTO OT TOTTI TIO 
FOI IIIT IO TOTO TOTO TUTTO TTI TI TT III IK 


SKIPLN DO=(5) =S-RO-0 Set up fake output buffer 
D=0 A Set up fake end of output buff 
D=D-1 A ; 
GOVLNG =LIN#P Parse out line nunber 
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4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

42n 

4231 

4232 

4233 

4234 

4235 17824 D6 
4236 17A26 FO 
4237 17828 FO 
4238 17A2A F6 
4239 17A2C F6 
4240 17A2E REA 
4241 17831 03 
4242 

4243 

4244 

4245 1733 


SHPBYT STITLE Swap Bytes 
Pe T ESS SPECS SOS SES CCSESES ESS ESSE SSE SE SCSS TOSSES ESESSS ES ESE SCS ES SON 


FOI TOI OI TOTTI TTT TOT TOE 
ak 


** Warie:(S) SWPBYT - Swap Bytes 


aa 
a* Category:  FILUTL 

th 

** Purpose: 

ae Reverses A(3-2) and A(1-0). 

te 

ak Entry: 

aR A(3-0) = 2 bytes to be reversed 

kh 

aK Exit: 

k A(3-0) = Reversed bytes 

re 

4% Calls: None 

kk 

AR Uses.....0. 

tk Inclusive: A(A),C(A) 

ae 

AK Stk lvls: 0 

ke 

*k History: 

ae 

a Date Progranner Modification 
PR etek ee, sheets Solel et ease er at Spe are al 
ak 09/21/82 FH Designed and coded 

ah 


OIRO TOTO TTT TTT TIT ITT ITI ISSIR IK 
FRITS SIO JO TORTI TTI SII IT IDI IIIA 


=SUPBYT C=A Fetch low byte into high position 
ASL ; 
ASL 
CSR 
CSR 
A=C 
SWPBcc RINCC 


Put high byte lou 


owmwwnwmD DD 


x 
x 


END 
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/COPYC 
/OFIB# 
/OFTYP 
/DLEN 
/ERRCD 
/FLAG 
/LINE# 
/UNLEN 
{NSTAT 
{NUMLN 
/OPTN 
/PARM1 
{PARN2 
/SFIBA 
/SFTYP 
{STAT 
=?PRFI+ 
=?PRFIL 
?PRFec 
ALINFO 
AUTINC 
AVNENS 
B->C20 
B->CHT 
B->T70 
B->T80 
=B->TXT 
BBCOLL 
BsErr 
=CARYSYV 
CHAIN- 
CLOSEF 
COPYu 
CRIF 
CSLC5 
C¥UCW 
DO=/B+ 
DO= /BX 
DO=0BS 
D1=CRS 
DIG@AVS 
DI@CPS 
=DE-REF 
DEFFIL 
EDITUF 
ENDALL 
=EOFCHK 
EOLSN? 
Eeofil 
FFIBH 
=FIBHRS 
=FIBASV 
FIBUPD 
FIBUcc 
FILEF 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 


194773 #2F8D5 
194763 #2F8CB 
194769 #2F8D1 
194778 #2F8DA 
194757 #2F8C5 
194810 #2F8FA 
194788 #2F8E4 
194805 #2F8F5 
194699 #2F838B 
194783 #2F 8DF 
194793 #2F8E9 
194795 #2F8EB 
194800 #2F8FO 
194761 #2F8C9 
194765 #2F8CD 
194774 #2F8D6 
95104 #17380 
95102 #1737E 
95127 #17397 


194251 #2F6CB 
193940 #2F594 
96649 #17989 
96632 #17978 
96497 #178F1 
96575 #1793F 
96382 41787E 


94411 #170CB 


94874 #1729A 
94876 #17290 


94711 #171F? 
94424 #17008 


94463 #1 70FF 
94807 #17257 


94525 #17130 
94516 #17134 
95465 #174E9 
95501 #17500 


Table 


(#44 


4oe@ € § @§ t § t 4 


42? 
424 
426 
431 
422 
440 
433 
439 
2892 
432 
435 
436 
437 
423 
425 
429 
2517 
2516 
2524 
ita 
12 
12 
4006 
3993 
3818 
3846 
3744 
1903 
120 
1740 
3614 
1074 
661 
794 
2325 
709 
2264 
2265 
2250 
717 
3254 
2170 
1787 
122 
733 
155 
1834 
2720 
224) 
2183 
1911 
1908 
2904 
291? 
713 


689 
599 
104 
489 
487 
3366 
489 
1219 


832 
484 
788 
484 
523 
487 
1269 
602 
532 


3385 
3206 
4000 
373? 
380? 
3840 
1625 


145 


639 


705 


1834 
733 


2168 


2181 


2726 
2910 


1035 
805 
642 
823 
486 

3424 
823 

4142 


1677 
483 
791 
794 
599 
530 

2349 


3377 


3354 


1267 


734 


2236 


2998 
2912 
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10 
1035 

488 
1054 


1677 


2331 
3591 


738 
642 
2411 


3441 


2981 


3135 
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1092 
822 
1236 


2326 


1905 


3763 


3411 


3043 


877 3688 


4123 


3847 


3141 
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=LOCFHD Abs 94618 #1719A 
=LOCFI# Abs 94745 #17219 


2085 1031 3611 
2181 1134 2085 2573 2650 27% 2905 23985 


Ver. 3.39/Rev. 2306 Syribol Table Page 93 
FILFIL Ext - 492 
FILSK+ Ext - 1788 2659 
FINDFS Ext - 768 
FIXSPC Ext - 166 2828 3149 
FLDEVX Ext - 125 595 
FPOLL = Ext - 1602 
GOSUBI Abs 94407 #17007 - 1701 990 
GSBSTK Abs 193955 #2F5A3 - 12 1197 
GIPTRX Ext - 2233 
sHEXASC Abs 94536 #17148 - 1953 1966 3829 
HXASC3 Abs 94563 #17163 - 1963 1959 
HXASC5 Abs 94567 #17167 - 1964 1961 
INBS = Abs 194246 #2F6C6 - 12 3439 
LOCEXT Ext - 3788 
LIF>20 Abs 94601 #17189 - 2032 2030 
=LIFNB Abs 94581 #17175 - 2023 2813 3839 
LINHP = Ext - 4202 
LNOVF? Abs 96601 #17959 - 3896 3362 
LNPEXT Ext - 3410 
LOCFOS Abs 94649 #17189 - 2149 2187 
LOCFIO Abs 94680 #17108 - 2159 
LOCF20 Abs 94704 #171FO - 2167 2160 2163 
=LOCFH* Abs 94622 #1719E - 2086 2993 
LOCFH- Abs 94624 #17180 - 2087 2658 


4083 4094 
=LOCFIL Abs 94749 #17210 2183 «5525 OT 
LOCFce Abs 94743 #17217 2179 2240 
MEMCKL Ext 1674 4162 
MEMCL+ Ext 3203 
MFERR*® Ext 148 
MFERRS Ext 156 
MFURNQ Ext 2341 
MOVE*H Ext 3214 
MVMEN+ «Ext 2663 
NIBL3O Abs 95593 #17569 2997 W32 
NIBL35 Abs 95622 #17586 W16 2992 
NIBL40 Abs 95628 #1758C 17 =2990 
NIBL50 Abs 95658 #175AA 40 28 
NIBL55 Abs 95699 #17503 


NIBL5? Abs 95735 #175F7 078 H72 H75 


NIBL6EO Abs 95752 #17608 H93 3082 
NIBL64 Abs 95760 #17610 97 =H99 
NIBL65 Abs 95766 #17616 98 #95 
NIBL66 Abs 95774 #1761E 3102 3106 
NIBL67 Abs 95786 #1762A 3105 H94 
NIBL68 Abs 95791 #1762F 3116 3100 
NIBL69 Abs 95811 #17643 3123 3119 
NIBL70 Abs 95818 #1764A 3125 3117 +3122 
NIBL9O Abs 95840 #17660 3136 3132 
NIBL95 Robs 95859 #17673 3146 63137 
NIBLIO Abs 95541 #17535 2981 2929 
NXtstn Ext 154 


$ 
& 
% 
co 


4161 2926 3641 


OBRPND Abs 96764 #179FC 
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OBCOLL Ext - 3438 
OBED20 Abs 95904 #176A0 - 3206 3201 
=<QOBEDIT flbs 95879 #17687 - 3198 3052 3145 3463 3824 
OBLCNP Ext - 2251 
OBPRD Ext - 2252 
OPENF* Ext - 1181 
OUTIBS Abs 193935 #2F58F - 12 3377? 3441 3763 3847 
sOVERCK Abs 94779 #1723B - 2232 3019 
POLL Ext - 2476 
POPUPD Ext - 657 1022 
PRGOFNF Ext - 2474 
PSHUPD Ext - 494 
PUGFIB Ext - 1795 


PURG20 Abs 95092 #17374 - 2476 2470 

=PURGEF Abs 95065 #17359 - 2468 2465 

R<Rstk Ext - 2262 

R<rstk Abs 94866 #17292 - 2261 490 2984 3387 
RDBA2ZO Abs 95290 #1743A - 2730 2754 

RDBA40 Abs 95311 #1744F - 2737 2717 

RDBR60 Abs 95318 #17456 - 2739 2751 

SRDBAS Abs 95231 H173FF - 2710 3744 

ROBAcc Rbs 95309 #1744D - 2735 


RDBYTA Ext - 3102 

RDINFO Ext 2258 

ROTE2ZO Abs 95436 #174(C 2823 2811 2819 
=ROTEXT Abs 95369 #17489 2801 3359 
READN2 Abs 95505 #17511 2920 2739 


READN4 Abs 965503 HI1750F - 2919 2737 2802 
=READNB Abs 95512 #17518 - 2924 2744 2814 


READWP Abs 95507 #17513 2921 

RECAL- Abs 95937 #1761 3254 2748 
RECNIB Abs 95934 #176BE 3253 2741 2804 
REWIND Ext 2575 

RFAD-T Ext - 1794 

RLINFO Ext - 675 

RPLLIN Ext = (2995 


RPLS20 Abs 96693 #17985 - 4092 4087 4089 

=RPLSBH Abs 96667 #1799B - 4083 3609 

RPLScc Abs 96723 #17903 - 4102 3902 4007 4009 4096 
=RRADD Abs 95163 #173BB - 2608 989 

RSTKR+ Abs 95600 #17570 - 300 W118 3146 

RSTKR- Abs 95602 #17572 - X01 2986 2996 W26 W53 
RSTKRT Abs 95604 817574 - 3002 


Rstk<R Ext - 2260 

Rstk<r Abs 94858 #1728R - 2259 656 1021 04 3417 
S-RO-O Abs 194673 H2F871 - 12 4199 

S-RO-1 Abs 194678 #2F876 - te 1791 

S-R1-1 Abs 194694 #2F 886 - 12 2265 

S-R1-2 Abs 194699 #2F38B - 12 2892 

SETLEN Abs 96262 #17806 - 3588 4001 

SETWRT Ext - 3016 


SKIPLN Abs 96786 H17A12 - 4199 3452 3800 
STAT40 Abs 95033 #17339 - 2416 2414 
=STATR+ Abs 94988 #17300 - 2361 1270 
SSTATRS Abs 94963 #172F3 - 2351 2362 
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=STRTSV 
STATce 
STMTO1 
STMTRO 
SVINFO 
=SUPBYT 
SWPBcc 
TFHD20 
TFHD40 
TFHDGO 
=TFHDLR 
TFLI20 
TFLINE 
TFUO20 
TFUO40 
TFU100 
TFUI20 
TFU140 
TFU180 
TFU190 
TFU200 
TFU210 
TFU220 
TFU230 
TFU240 
TFU2SO 
TFU260 
TFU270 
TFU280 
TFU2% 
TFUXOO 
TFU310 
TFU315 
TFU320 
TFU33 
TFU340 
TFU350 
TFU360 
TFU370 
TFU380 
TFU385 
TFU390 
TFU400 
TFU420 
TFU435 
TFU440 
TFUCCK 
TFUCLF 
TFUCLS 
TFUDT- 
TFUDTP 
TFUE20 
TFUEOF 
TFUER* 
TFUERZ 


Rbs 
Abs 
Abs 
Abs 
Ext 
Robs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


95023 
94986 
194710 
194673 


36804 
96817 
94266 
9436 
94349 
94255 
$4 380 
94356 
93136 
93047 
93270 
93294 
93325 
93360 
93387 
93400 
93427 
93498 
93528 
93542 
93582 
93585 
93601 
93640 
93705 
93714 
93731 
9375? 
9378? 
93820 
93836 
93854 
$3875 
93915 
9393? 
93968 
93972 
93976 
94042 
$3633 
94046 
94121 
94088 
94084 
94109 
94102 
94131 
94117 
93126 
93118 
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Table 


Symbol 


#1 732F 
#1730A 
#2F896 
#2F871 


#1 7A24 
#17831 
#1 703A 
#17062 
#1 708D 
#1 702F 
#1 70RC 
#1 7094 
#1 6BD0 
#16877 
#16(56 
#16C6E 
#16C8D 
#16CBO 
#16CCB 
#16CD8 
#16CF3 
#1603A 
#16058 
#16066 
#16D70 
#16091 
#160A1 
#16008 
#16609 
#16812 
#16E23 
#16E£3D 
#16E5B 
#16E7C 
#1 6E8C 
#1 6£9E 
#16€B3 
#16EDB 
#16EF 1 
#16F10 
#16F14 
#16F18 
#16F5A 
#16001 
#16F5E 
#16FAS 
#16F88 
#1 6F84 
#16F9D 
#1 6F96 
#16FB3 
#16FA5 
#1 6BC6 
#1 68BE 


obo ' 1 ' ' bt @ #€ @ © #€ § &€ f 4 ' ! ( 4 ' i) ' ' 9§ ( #@ t © © @ t € 6 ' 'o4 ' 1 t ¢ 


2412 
2359 
12 
12 
2147 
4235 
4241 
1594 
1614 
1626 
1590 
1674 
1667 
521 
163 
597 
614 
640 
656 
673 
687 
694 
716 
726 
732 
734 
7$3 
767 
783 
805 
821 
832 
841 
874 
895 
300 
927 
933 
980 
987 
996 
1000 
1021 
1040 
781 
1041 
1135 
1073 
1072 
1093 
1092 
1139 
114 
512 
510 


640 
1135 
2710 

522 

494 


2185 
2731 


3846 


1622 


593 
588 
618 


910 
935 


985 
992 
955 
1044 


1030 


704 
785 


2801 
533 


596 
620 


961 


994 


1039 


1033 
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TFUER3 Abs 93315 #16083 - 625 698 

TFUER4 Abs 93350 #16(AG6 - 652 695 

TFUERS Abs 93615 #16DAF - 774 714 

TFUER6 Abs 93621 #16DB5 - 775 737 795 

TFUERR Abs 93128 #16808 - 513 626 778 

TFUOPN Abs 94142 H16FBE - 1177 797 

TFUOPS Abs 94139 #16FBB - 1176 521 736 

TFUPGD Abs 95043 #17343 - 2461 1000 

TFURD+ Abs 94486 #17116 - 1899 896 1041 

TFURD- Abs 94513 #17131 - 196 1901 

TFURDC Abs 94499 #17123 - 193 980 1668 

TFURDD Abs 94488 #17118 - 1900 983 

TFURDS Abs 94506 #1712A - 1905 598 1024 1072 2084 2571 

TFURHA Abs 94161 #16FD1 - 1197 687 959 1680 2602 

TFURIA Abs 95153 #173B1 - 2602 694 

TFURLI Abs 93387 #16(CB - 674 119 1023 

TFURLL Abs 94181 H16FES - 1219 895 

TFURWD Abs 95133 #1739D - 2572 987 

TFURWS Abs 95129 #17399 - 2571 958 

TFURcc Abs 94194 RIOFF2 - 1222 1137 

TFUSEC Abs 94196 #16FF4 - 1236 513 928 996 

TFUSFH Abs 94614 #17196 - 2084 696 

TFUSLL Abs 96749 #179ED - 4142 3360 3745 

TFUSTR Abs 94956 #172EC - 2349 726 740 776 1075 2576 

TFUSTS Abs 95016 #17328 - 2411 731 767 782 90 1073 1667 2319 

2461 2572 

TFUSV1 Abs 94247 #17027 - 1274 1272 

TFUSVE Abs 94212 #17004 - 1264 799 848 906 9391 2466 

TFUUD+ Abs 96725 #17905 - 4120 3422 

TFUUDL Abs 96731 #179DB - 4121 3768 

TFUW2O Abs 94927 H172CF - 2334 233 

TFUWRN Abs 94888 #172A8 - 2319 933 

TFX100 Abs 92869 #16AC5 - os 4 

TFX120 Abs 92900 #16RE4 - 99 

TFX200 Abs 92935 #16807 - 116 83 

TFX220 Abs 92944 416810 - 119 127 

TFX225 Abs 92954 H16BIA - = 122 91 

TFX230 Abs 92964 #16B24 - 125 117 

TFX240 Abs 92978 #16832 - 128 108 123 

TFXXO Abs 92993 #16841 - 144 130 

TFX320 Rbs 93014 #16856 - 149° 14? 
=TRCFIH Abs 95184 #17300 - 2650 386 

TRFMBF Abs 194757 #2F8C5 - fe 422 423 424 425 426 427 429 

431 432 433° 435 «69436 «643? = 439 440 

=TRSFM+ Abs 93057 #16B81 - 482 144 


TRSFND Ext = 66 
TRSFAP Ext 2 67 
=TRSFAX Abs 92856 #16RBS - 73 


=TRSFMu Rbs 93060 ¥16B84 - 483 
TXT-20 Abs 95989 #176F5 - 3366 3363 
TXT-40 Abs 96059 #1773B - 3415 3413 
TXT-60 Abs 96117 #17775 - 3437 3428 
TXT-80 Abs 96165 #177A5 - 3458 3456 
=TXT->B Abs 95965 #1760D - 3359 1620 3738 
TRIC20 Abs 96284 #17810 - 3595 3586 
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2251 876 =2932 3469 3837 3899 4090 
2252 2816 3758 3796 


oblcnp Abs 94822 #17266 
obprd Abs 94829 #1726D 


pPURGE Abs 16 #00010 11. 2477 
pTRFMx Abs 60 #00030 11 1603 
zrerstk Abs 94868 #17294 2262 


2257, 578 «6759 = 783 2254 
2258 1177 2256 


rdinfd Abs 94848 #17280 
rdinfo Abs 94851 #17283 
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TXTC40 Abs 962 #1782E - 3602 3600 

TXTCHB Abs 96257 #17801 - 3585 3353 

TXTCcc Abs 96335 #1784F - 3615 3613 

UPCPOS Ext = 9490 

WRBYTD Ext - 397 

=WRITNB Abs 95531 #1752B - 2931 %4 4092 

WIAVFF Abs 96337 #17851 - 3634 3748 

WTAVN2 Abs 96343 #17857 - 3637 3374 3480 3843 
WTAVN4 Abs 96341 #17855 - 3636 

WTAVWP Abs 96345 #17859 - 3638 3603 

WTAVcc Abs 96370 #17872 - 3646 

ZERPGN Ext - 722 

“FU48O Abs 93581 #16D8D - 744 763 

“FUERR Abs 93321 #16089 - 626 603 653 

“UERR Abs 93629 #16DBD - 778 

bserr Abs 92948 #16814 - 120 74 

=dO=obs Abs 94815 #1725F - 2250 2752 3458 3466 3819 3830 4120 
eEQFIL Ext - 2241 

eFACCS Ext - 625 

eFEXST Ext - 774 

eFPROT Ext - 2521 

eFSPEC Ext - 126 511 

eFnFND Ext - 2188 

eILTIFM Ext - 652 

eL2LNG Ext - 326 3904 

eSYNTX Ext - 1058 3414 

eTFFLD Ext - 931 

eTFWRN Ext - 2339 

endall Abs 93033 #16869 - 155 150 

fBASIC Abs 57876 #0E214 - 11 161? 

findf Ext - 2471 

fspecx Ext - 116 

1DBEGb Abs 11 #00008 - 11. 2175 

1FBEGb Abs 6 #00006 - 11 2089 

=nferrs Abs 93040 #16870 - 156 153 

nove*n Abs 95927 #17687 - 3214 %31 

oCPOSb Abs 40 #00028 - 11. 1835 2177 2652 2913 4100 
oDBEGb Abs 21 #00015 - 41 2157 2174 2177 4100 
oDEVCb Abs 12 #OOOOT - 11. 2153 2157 

oDLENb Abs 46 #OO0ZE - 11. 1835 2652 2913 %40 
oFBEGb Abs 13 #0000D - 11 2088 

oF LAGh Abs 20 #00014 - 11. 1037 

oF LSTr Abs 49 #00031 - 11 4011 

oF TYPb Abs 5 #00005 - 11. 528 

oF TYPh Abs 16 #00010 - 11. 1032 1037 

oPROTb Abs 9 #00009 - 11 2151 2153 

oRECLb Abs 36 #00024 - 11 3040 

OSUBLn Abs 37 #00025 - 11 4011 
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rdinfs Abs 94841 #17279 - 2255 537 707 
rdinfx Abs 94836 #17274 - 2253 614 2462 
=rstkcr Abs 94860 #1728C - 2260 


sCARD Abs 2 #00002 - 11 493 

sDEST Abs 3 #00003 - 11 75 9 129 131 796 1176 2255 
2257 

sDRYRN Abs 9 #00009 - 458 762 781 874 929 981 993 3585 
3939 

sEOF Abs ? #00007 - 11 905 1136 1268 1271 1837 1840 2734 
2806 3416 3747 3789 

=sI1/OBF Abs 10 HOOOOR - 459 697 2158 2164 2654 2716 2911 2391 
3027 3612 4088 4095 

sODD Abs 8 #00008 - 2020 2033 2035 2818 

sODDEN Abs 7 #00007 - 2889 3078 383 3116 3131 

sODDST Abs 6 #00006 - 2888 #45 #49 W271 3136 

sPRGCF Abs 11 #OOOOB - 460 149 729 

sREAD Abs 9 #00009 - 289%) 2725 2909 2924 2931 29839 #674 W93 
3118 

sTFEND Abs 8 #00008 - 457 824 842 «6881 = 987-1273 

sTFERR Abs 1 #00001 - 448 1029 1056 1238 

sTFINP Abs 5 #00005 - 454 597 659 691 897 954 1027 2253 
4006 4086 

sTFINY Abs 6 #00006 - «9455 «6835 «= 962. 956 = 9841671 «63899 4008 

sTFREQ Abs 0 #00000 - 446 «= 646 «1590 ~1593 1626 

sTFUNG Abs 2 #00002 - 450 870 927 9M 1059 

sUNDEF Abs 1 #00001 - 11 495 


svinf+ Abs 94639 #171AF - 2146 128 
svinfo Abs 94642 #171B2 - 2147 165 712 


t! Ext a 33475 
tEOL Ext - 2719 2749 3478 
tINTO Abs 3015151 #EOTEF - 11 85 


tfu370 Abs 93816 #16E78 - 883 840 843 
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Input Paraneters 
Source file nane is FH&TFN:: AS 
Listing file nane is FH/TFM: TI: ML: :-1 
Object file nane is FHZTFA:TI:NS::-1 


141111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 a h RN NWN & FFFFF RRRR = PPPP 
2 x Mmm Mn NON && OF R RP P 
3 . MAM NN ON &S&) OF R RP P 
4 z NAM NNN S FFFF RRRR = PPPP 
5 t mM RM N NN &8&8& F RR P 
6 & nh NN WN 8&8 & F R R P 
7 * nh nh N N 8&8 F R RP 
‘ 8 x 
' 9 TITLE FREE/CLAIM PORT <831212.1205> 
10 17A33 ABS = #1733 
11 RDSYMB TIZEQU: : MS 
12 JU OST TOTES ITT TTT TTT IIR 
13 SII TRI III IIIT IDI IDI ID ID III III IIIISISISS ISIS III SIIISSSIA ISIS IIIS. 
14 a 
15 sf Nane: FRPORT - FREE PORT Execute 
16 
17 ** Category: STEXEC 
18 ax 
19 *% Purpose: 
20 : Turn systen RAM into independent RAM. 
21 x 
22 ** Entry: 
23 ax DO = PC. 
24 - Junped on FREE token (PORT not tokenized). 
25 
26 AX Exit: 
2? ax Through NXTSTM if no error. 
28 Rx =eDVCNF if port.dev is not systen RAN. 
29 on =eMEN if insufficient merory. 
x aK 
31 *k Calls: CNFFND, CONFS3, FINDWF, FNDDEV, MEMCKL, MOVEDS, 
32 ax MOVEU3, PDEV+, WIPOUT. 
33 kk 
¥ ** NOTE: 
35 RA Will not execute if amount of available memory is less 
36 ax than (module size + leeway). 
37 ax 
38 ** Detail: 
39 ak FREE PORT (P.DD). 
40 tk 
41 ** Algorithn: 
42 a Search RAM table for requested port-device; eDVCNF if 
43 EX not found. 
44 aK Perforn menory check with leeway + (if workfile does 
45 aA not exist then of LSTr else 0). eMEN if not enough 
46 aX nenory to perforn FREEPORT. 
47 = Write zero to size nibble of configuration table entry 
48 am for this device. This inforns the configuration 
49 kK code that the device was intentionally rerioved and 
50 ae nachine should not coldstart. 
51 RR If start-of-module >= (AVMENS) then goto 1. 
52 - Source=(AVMENS); Dest=(AVNENS)+nodsize; nibs to nove= 
53 ax (AVMENS)-(start-of-nodule); MOVED3 (rove to higher 
54 aK nenory). Goto 2. 


55 ek 61; If end-of-nodule <= (AVMENE) then goto 2. 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 


73 
74 


7§ 
76 
77 


78 
79 
80 
81 
82 
83 
84 
88 
86 
8? 
88 


89 
% 
91 
92 
93 
94 


95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 


17A33 


17A38 
17A38 


17A3F 
17A414 
17A45 


17A4B 
17A4E 
17A52 
17A55 
17A53 
17ASC 
17ASE 
1?7A61 
17R64 
17R6? 
17A6R 


1771 
17873 
17076 
1?A7A 
17A70 
17A7F 


17A86 
17A89 
17A8D 
17R90 
17893 
17R36 
17R9A 
17A9C 
17ASF 
17RA4 
17AR4 


0000 
0 


8F0O 
000 
20 
AIFF 
8E0O 
00 
400 
68D0 
RBS 
7621 
102 
D4 
100 
171 
13? 
109 
8FOO 
000 
D2 
560 
S13 
110 
Ce 
SFOO 
000 
560 
6031 
119 
134 
AC2 
1544 
D6 
110 
D8 
112 
SBE 
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ax Source=(AVMNENE); Dest=(AVMENE)-nodsize; #nibs to nove= 
ax (end-of-nodule)-(AVMENE); MOVEU3 (nove to lower 
aK nenory. 
kk 2: Write IRAN ID (B3DDDDDE) to start of nodule. 

a Zero out rest of nodule. 

ax Reconfigure systen (call CONFS3). 

RK Exit through NXTSTM. 

ax 

** History: 

kx 

aK Date Programmer Modification 

BES ei cete, Boe col eser,) eastatewce eae sae tee cues ace nees 
xk 06/28/82 NM Added docunentation 

he 


OI I IO OTT TT TTT TIT MN 
FOI III III UT TTT TT RTT TTI OK 


REL(5) =FREEp 


=FRPORT 
GOSBVL =PDEV+ Extract port,dev# fron arg 
P= 0 
LCHEX FF 
GOSUBL =CNFFND Look for RANtable 
GOC FRPO20 Go if found 
GOTO  SYSERR Systen error 
FRPO20 B=A x Hold size in B 
GOSUB FNDDEV Find this pdev# in table 
R2=A Stash nodule address 
A=B A 
RO=A Stash nodule size 
D1=D1+ 2 Point at size nibble 
CDIEX Retrieve pointer to size nibble 
R1=C Stash for later 
GOSBVL =FINDWF Look for workfile 
C=0 A 
GONC 3 YESHWF It exists 
LC(2)  =oF LSTr Doesn’t exist. Must ensure room. 
YESHWF A=RO 
C=A+€ A 
GOSBVL =NENCKL AVMEN check u/LEEWAY 
GONC = =FRPO?70 Go if sufficient nerory 
GOTO = INSMEN Insufficient menory 
FRPO?70 C=R1 Retrieve ptr to size nibble 
DO=C Point at size nib for this entry 
C=0 S$ 
BDATO=C $ Write 0 for orderly renoval 
C=A A AVNENS 
A=RO 
B=R A Retrieve rodule size 
A=RZ Address of nodule start. 
*Ar=C A Nod starts before AVNENS? 
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106 17AR7 81 GOYES FRP120 No 
107 17AR9 134 po=C Yes, source 
108 17AAC C9 C=C+B A Add module size for... 
109 17ARE 135 d1=C Destination 
110 17AB1 £9 C=C-B A AVNENS 
111 17AB3 E2 C=C-A A Sub nodstart for #nibs to nove 
112 17ABS 8E00 GOSUBL =NOVED3 Move down (to higher address) 
00 
113 17RBB 61% GOTO MODINT Initialize nodule at DO 
114 17ABF 1E0O FRP120 01=(4) =AVNENME 
oO 
115 17ACS 147 C=DAT1 A AVENE 
116 17AC8 130 DO=A Hold nodule start addr 
117 17ACB CO A=A+B OA End of nodule address 
118 17ACD 8BA *A<=C OA Nodule ends before AVMENE? 
119 17AD0 01 GOYES MODINT Yes, ready to initialize 
120 17AD2 134 bo=C Source 
121 17AD5 E9 C=C-B A Subtract module size for... 
122 17AD7 135 01=C Destination 
123 17ADA £0 A=A-B A Module starting address 
124 17ADC 100 RO=A Hold 
125 17ADF EE C=A-C A nibbles to nove 
126 17RE1 8&00 GOSUBL =MOVEU3 Move up (to lower address) 
© 
127 17RE7 110 A=RO Retrieve start addr of nodule 
128 17AER 130 DO=—A Stash in DO 
129 17AED 20 P= 0 Ready to initialize nodule 
130 17AEF AF2 C=0 W 
131 17AF2 37B3 LCHEX EDDDDD3B IRAN id word 
DDDD 
DE 
132 17AFC 1547 DATO=C W Initialize IRAN 
133 17800 D9 C=B A 
134 17B02 137 CD1EX 
135 17805 1CF D1=D1- 16 Modsize - 16 
136 17B08 136 CDOEX 
137 17B0B 137 CO1EX 
138 17B0E 17F Di=D1+ 16 Mod addr + 16 
139 17B11 8EOO FRPEND GOSUBL =WIPOUT Clear out nodule 
00 
140 17B17 840 ST=0 0 Setup for powerup configure 
141 17B1R 853 ST=1 3 Force nenory-changed config. 
142 17B1D 8£&00 GOSUBL =CONFS3 Do configuration. 
oO 
143 17B23 6000 : GOTO  =READ95 GOTO NXTSTN 
144 
145 17B27 8D00 =SYSERR GOVLNG =CORUPT 
000 
146 x 
147 JODO III COT TIE 
148 JOO III OO ITO TOTTI TTT TTT TH 
149 KK 
150 xk Nane: NASSAU - CLAIM PORT Execute 
151 KK 


152 *k Category: STEXEC 
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153 
154 
155 
156 
15? 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
17? 
178 
179 
180 
181 
182 
183 
184 
185 
186 
18? 
188 
189 


190 
191 


192 
193 
194 


195 
196 
19? 
198 
199 
200 
201 
203 
204 


17B2E 


17B33 
17833 


17B3A 
17B3C 
17B40 


17B46 
17B49 
17B4B 
17 BAF 
17B51 
17B54 
17B56 
17B5R 
17B5C 
17B5E 


8F00 


SEF 
8E00 


50E 
dC 
7030 
25 
9 


6760 
9 
p? 
1X” 
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1k 
** Purpose: 
- Nake an independent RAM a systen RAN. 
ak 
*k Entry: 
oe DO = PC. 
ak Jurped on CLAIM token (PORT not tokenized). 
kk 
FA Exits 
aS Through NXTSTA. 
ee =eDVCNF if requested port.dev is not an IRAN. 
tok 
** Calls: CLMPRO, CNFFND, FNDDEV, PDEV+, CONFS3, WIPOUT. 
tk 
ak 
«x NOTE: 
ae, Does not execute if any secured files exist in the 
al IRAN’s file chain. 
aK 
** Detail: 
a CLAIN PORT (P.0D). 
kk 
** Algorithn: 
am Look for entry in ROM table, eDVCNF if not found. 
ae Check filechain for secure files; eFPROT if any. 
ax Clear nodule, including IRAN ID. 
me Reconfigure systen. 
ek 
** History: 
ik 
xx Date Progranner Modification 
Deicke as + Cave e eth. ae Seek te ena Autre 


** 06/28/82 NM 
ax 


Added docunentation 


FORO OI TOTTTOTIII TIT IDII I K 
FOI GIO IJ OIIOIIOIOIOIIIIICI TOO CTT ITO OTT OTR 


REL(S) =CLAINp 
=NASSAU 

COSBVL =PDEV+ 

P= 0 

LCHEX FE 

GOSUBL =CNFFND 

GONC = SYSERR 

ABEX A 

GOSUB  FNDDEV 

P= 5 

7B=0 =P 

GOYES NASS2O 

GOTO  NOTRAN 
NASS2O0 C=B R 

D=C A 

DO=A 


Get port-device information 


Ron buffer id 
Find it 


Suap buffersize with pdev 
Returned...device nust exist 
Is it RAN? 

Yes 


No, error! 


Stash nodule size 
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205 17861 131 DI=A 
206 17864 177 Di=D1+ 8 Point at 1st file in chain 
207 17B67 137 CD1EX 
208 17B6R 20 P= 0 
209 17B6C 8FO0 GOSBVL =CLHPRO Check for secure files 
000 
210 17873 136 CDOEX There are none 
211 17876 135 01=C Restore pointer to nodule 
212 17B79 DB C=D A Module size 
213 17878 659F GOTO FRPEND Beconfagure systen 
214 JIU TOSI SII T I RITE TTT TRIE 
215 JOSIE I 
216 aK 
217 - Nane: FNDDEV - Find Port, Dev Requested In Cnf Tbl 
218 
219 ** Category: LOCAL 
220 ak 
221 ** Purpose: 
222 ve Locate a port/device in a configuration table. 
223 
224 xk Entry: 
225 ax D1 points at first table entry. 
226 aR B[X]=length of table. 
227 ] D[B)=pdev looking for (port in D0[1], dev in D[0])). 
228 
229 aK Exit: 
230 aS =eDVCNF if not found. 
231 aR Else B[A}=device size (chipsize * chipcount), 
232 xk A[A]=address, 
233 ak B[5]=device type. 
234 x D1 points at nibble 1 of table entry found. 
235 ah P=0, 
236 ak 
237 x* Calls: MSIZE+ (falls through). 
238 a 
239 RR Uses... sees 
240 aE A,B,C,D1,P. 
241 aR 
242 Kk Stk lvls: 1 
243 ak 
244 ** History: 
245 ak 
246 ak Date Progranner Modification 
247 RE sebseces,.” .cecdeocecote |. Losekt ee sccce soe tee cesses te ook 
248 ae 06/28/82 NM Added docunentation 
a JOGOS IOISOIOIC TTI CTS ISI II III TTT 
254 JI ISI UT IIIT TITS IT III ISI IIT I ISIS IIS OTIS TT SSIS ITI III III: 
252 1787F 20 FNDDEV P= 0 
253 17881 1C8 Di=Di- 9 
254 17884 179 ~=FNDDIO D1=Di+ 10 
255 17B87 32A0 LCHEX O0A Size of one entry 
0 
256 17B8C B31 B=B-C xX Any nore entries? 


257 17B8F 4E2 Coc NODEV No. dev rqst’d not exist 





Saturn Assenbler 


Ver. 3.39/Rev. 2306 


258 
259 
260 
261 
262 
263 
264 
265 
266 
267 


268 
269 
270 
271 
272 
273 
274 
275 
276 
277 


278 
279 


17B92 14F FNDD3O C=DAT1 B 


17B95 9E7 
17B98 62 
17B9A 9E3 
17B9D 7£ 
17B9F 15F? 
17BA3 AFS 
17BR6 BFS 
17BA3 AE 
17BAC 8E00 
00 
17BB2 FO 
17BB4 FO 
178B6 DC 
17BB8 01 ! 


17BBA 6000 INSNEN 
& 


17BBE NOTRAN 
17BBE 20 NODEV 
17BCO 8DO0 
000 
& 


1?7BC? 


7050 
GOYES 
?C<D 
GOYES 
C=DAT1 
B=C 
BSR 
B=0 
GOSUBL 


ASL 
ASL 
ABEX 
RTN 
GOTO 


p= 
GOVLNG 


END 


B 
NODEV 
B 
FNDD1O 


uoOr=E OO 


MSIZE+ 


>on» 


=MENER j 


0 
=DVCNFE 
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At higher pdev in table? 
Yes, no such device. 

At lower pdevy in table? 
Yes, look sone nore 

Read table entry. 

Addr and devtype to B 


Clear garbage in address 
$ize/100H to A 


Size in A 
Size to B, Address to A 


GOTO MENERR 
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AVNENE 
CLAINp 
CLMPRO 
CNFFND 
CONFS3 
CORUPT 
DVCNFE 
FINDUF 
FNDD10 
FNDD30 
FNDDEV 
FREEp 
FRPO70 
FRP120 
FRPEND 
FRPOQ20 
=FRPORT 
INSMEN 
MENCKL 
NENER j 
MODINT 
MOVED3 
MOVEU3 
NSIZE+ 
NASS20 
=NASSAU 
NODEV 
NOTRAN 
PDEV+ 
READS5 
=SYSERR 
WIPOUT 
YESHWF 
oF LSTr 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Rbs 
Abs 


97156 #17884 
97170 #17892 
97151 #17B7F 


96909 #17A8D 
96359 #17ABF 
97041 #17B11 
96850 #17A52 
96824 #17A38 
97210 #17BBR 


97005 #17RED 


97114 #17B5A 
97075 #17B33 
97214 #17BBE 
97214 #17BBE 


97063 #17827 


96890 #17A7—R 
439 #00031 


Table 


- 
- 
- 
- 
- 
- 


114 
189 
209 

77 
142 
145 
277 

88 
254 
258 
252 

72 

97 
114 
139 

80 

73 
273 

94 
273 
129 
112 
126 
267 
202 
190 
276 
275 

74 
143 
145 
139 

92 

11 


194 


262 


95 
106 
213 

78 


113 


257 
191 
79 


91 
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197 


119 


260 


195 


Fri Dec ®, 1983 


3:49 an 
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Input Paraneters 
Source file nane is MN&FRP::MS 
Listing file nane is MN/FRP:TI:ML::-1 
Object file nane is MNZFRP:TI:NS::-1 


1411111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 x SSS. BBBB & RRRR =DDDD 

2 x S$ S$ B B&& R R OD D 

3 x S B B&& RR R OD D 

4 * SSS. BBBB& RRRR DD 

5 a SB B &&& RR DD 

6 4 S S$ B B& & RR DOD 

? x SSS. BBBB 8&8 & RR ODDDD 

8 * 

3 TITLE READ Statenent Execute <831216.1605> 

10 17BC7 ABS #17BC7 

1 JO I III SIT TI IIT III III I IOI III IIIT IO III III IIIA ITH 
12 JOO IIIS IIIA III IIIS IIT AIT II TIT IIIT IIIT 
13 aK 

14 ** Nane: READ - READ Statenent Execute 

15 ik 

16 ** Category: STEXEC 

17 xx 

18 *k Purpose: 

19 ae Inplerients READ statenent 

20 a 

21 tk Entry 

22 ak DO points past READ token 

23 x P = 0 

24 ax 

25 ARE TTS 

26 a Exits through NXTSTN 

27 ax 

28 ** Calls: TKSCN+ , STKCHR, STKCH+ , NXTSTN 

29 ax 

3% ** Detail: 

31 as Checks if first byte is a # token and jumps into 

32 a READH routine if it is. Otherwise, for each 

33 aA variable in READ list, the destination address and 
34 a type are determined. The next data iten seached for 
35 i as follows. If DATPTR = 0 then it is set initialized 
36 x to PRGNST. If the byte pointed to by DATPTR is not 
3? gs a conna token then TOKSCN is used to find the next 
38 = DATA statenent in the program. If none is found then 
33 am a "No data" error is generated. Otherwise, 
40 ae the data 1s parsed according to the data type of the 
41 am destination. 
42 ik 
43 an Expression parse will be called on the data strean. 
44 aR If a valid expression of matching type (string/nun- 
45 ax eric) 1s found and the next token 1s either a conna 
46 aX of an EOL then the expression 1s moved onto stack 
4? Ae and evaluated. If the destination 1s string and 
48 ay either an invalid or nureric expression is found 
49 .* or if the expression is not followed by a connma or 
50 ax EOL then the pointer is backed up to the start of 
51 x the data field and the data iten is parsed as 

52 ae an ungucted string. 

a Ae Refore giving control to expression execute DATPIR 
54 *% rust be updated to point to either the corna 

55 aa following the data or at an EOL. 
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56 kk 
5? kk History: 
58 kk 
59 xk Date Progranner Modification 
6 HRS ice ee eee shee Rh eo 
61 Kk 10/25/83 B.S. Updated docunentation 
62 an 
63 FORO OOO TRI JOI TOOT TTT TTT TTT TK 
64 FORO JOO RIOR IO RR II JU BO IO TOE 
65 InvalE EQU 0 Status bit definition 
66 NunExp EQU 3 Status bit definition 
67 StrReq EQU 5 Status bit definition 
68 SOI RJR FOOT OK 
69 JOIST TOOT IIIT ITI TTI TIS IIT III SIS IIASA K 
70 ak 
74 *k Nane:(S) RDATTY - Report "Data Type" error 
72 Pe 
73 ** Category: SYSTEM 
74 kk 
75 ** Purpose: 
76 ae To report "Data Type" as an execution error. 
7 ah 
78 ** Entry: 
79 a $1320 if progran not running (i.e., keyboard 
80 ak execution error) 
81 kk $13=1 if running progran 
82 Ra No other necessary conditions. 
33 kk 
84 kk Exit: 
85 > Exits to BASIC nain loop (ERRRTN) 
86 
8? ** Calls: MFERR 
88 xx 
89 RE USCS sca wes BASIC nain loop can use anything 
90 i 
91 *X Stk lvls: BASIC nain loop can use anything 
92 ks 
93 ** NOTE: 
94 os RDATTY sets P=0 to selec the following error options: 
95 Rx ~- not a parse error 
96 RX -- store ERRN (and ERRL if S13=1) 
97 a -- display "ERR:" (or ERR L<#>:") 
98 kk 
99 ** Detail: 
100 ae =RDATTY P= 0 
101 aS LC(2) =eDATTY 
102 a GOLONG =MFERR 
103 ax 
104 xk History: 
105 - 
106 aes Date Progranner Modification 
107 PE ovessas, melucucesos Lessa econ ee ee eee 
108 Kk 11/09/83 AB Docunentation 
109 ae 


1190 FOI ITT ITT TUT TTT TTI TOT ITI IIIT TTR 
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111 
112 


113 


114 
115 
116 
117 
118 
119 


120 
121 
122 
123 
124 


125 
126 
127 


128 
129 


130 
131 
132 
133 
134 
135 
136 
137 


138 
139 
140 
141 
142 


143 
144 
145 


146 
147 
148 
149 


150 
151 
1$2 
193 
154 


17BC7 
17BCC 


17801 
17601 
17BD4 
17BD8 
17BDB 
17B0D 


17BE3 
17BE6 
17BES 


17BFO 
17BF3 
17BF6 


17BFC 
17002 


17C08 
17COB 
17COE 
17010 
17013 
17013 
17C16 
17018 


17C1E 


17022 
17026 


17C2D 
170H 
1?C32 


17038 
17038 
17C3E 
17040 


17046 
17049 
17C4C 
1?7C4F 
L7S3 


0000 
0 
0000 
0 


14A 
3132 
966 


8000 


136 
108 
8FOO 


118 
134 
8£00 


8E00 
8EOO 


845 
862 


855 


861 
C0 
8E00 


6700 


7000 
1B00 


146 
0? 
1RO0 


14b 
SAE 


1800 


146 
134 
148 
312 
962 
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=READ 


READOO 


RERDO3 


RERDOS 


READ)? 
READOS 


READIO 


REL(5) =READDC 
REL(S) =READP 


A=DATO B 
Lc(2) \#\ 
AWC OB 
GOYES READOO 
GOLONG =READ# 


CDOEX 
RO=C 
GOSBVL =PRSCKB 


C=RO 
ho=C 
GOSUBL =NXTVAR 


GOSUBL =DINST+ 
GOSUBL =STKVCT 


ST=0 = StrReq 
*ST=0 2 

GOYES READOS 
ST=1 — StrReq 


ST=0 1 
GOYES READO? 
GOSUBL =NXTADR 


GOTO = READOS 


GOSUB =collap 
DO=(5) =PRGNEN 


C=DATO A 
D=C A 
DO=(4) =DATPTR 
C=DATO A 

THO OAR 

GOYES READIO 
DO=(4) =PRGNST 


C=DATO A 
DO=C 
A=DATO B 
LCASC =\,\ 
*A=C OB 


Is it a # token 
No, then do READ 
Yes, the handle READH statenent 


Save DO 
Set up progran scope pointers 


Restore DO 


Is it an array? 
No, then collapse stack 
Yes, then set up for first elerent 


Collapse NTHSTK to FORSTK 


Copy PRGNEN to D(A) 


Read DATPTR 

Is DATPTR=0? 

No, then okay 

Yes, then use PRGMST 


Read token 
ASCII conna 
At conna? 
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155 
156 
167 
158 
169 
160 
161 


162 
163 
164 
165 
166 
167 
168 


169 
170 


171 
172 
173 


174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 


192 
193 
194 
195 
196 


197 
198 


199 
200 
201 
202 


17C56 F1 
17C58 3100 
1?7C5C 161 
17C5F 90C 
1762 50 
17064 163 
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17067 8FOO READIS 


000 
17C6E 3100 
17072 595 
17075 161 
17078 132 
17C7B 102 
17C7E 131 
17081 8FOO 
000 
17088 103 
17C8B 8FOO 
000 
17092 D8 
1794 133 
17€9? 8E00 
00 
17C9D 109 
17CRO 131 
17CR3 D4 
17CA5 3100 
17CR9 962 
17CAC DO 
17CAE 300 
17CB1 966 
17CB4 95 
17CB6 173 
17CB9 1C1 
17CBC 875 
17CBF 95 
17(C1 860 
1?7C€C4 EO 
17(C6 20 
17C€C8 3100 
17CCC 8C00 
00 


17€D2 863 
17C05 1F 

17CD? 8FOO 
000 
137 
1FOO 
000 
17CE8 145 
17CEB 119 
17CEE 135 
17CF1 8E00 


17CDE 
17CE1 


x 
x 


READ2O 


READ30 


READ40 
RDATTY 
HFERR j 
READ45 
READSO 


GOYES READ20 
LC(2) =tDATR 
DO=D0+ 2 
7AHO OP 
GOYES READIS 
DO=D0+ 4 
GOSBVL =TKSCN4 


LC(2) =eNOQDAT 
GONC NFERR} 
DO=D0+ 2 

ADOEX 

R2=A 

D1=A 

GOSBYVL =DO=AVS 


R3=A 
GOSBVL =EXPPAR 


B=A A 
ADIEX 
GOSUBL =D1=AVE 


R1=C 

D1=A 

A=B A 

LC(2) =tCOnnA 
7A=C OB 

GOYES READXO 
LC(1) 9 =tEOL 
"RAC OB 

GOYES READSS 
D1=D1+ 4 
01=D1- 2 

?S3T=1  StrReq 
GOYES REARDES 
?ST=0 Inval€ 
GOYES RERD4S 
P= 0 

LC(2) =eDATTY 
GOLONG =NfErr 


?ST=0 = NunExp 
GOYES RDATTY 
GOSBVL =OUT1TK 
CDIEX 

D1=(5) =DATPTR 
DAT1=C A 

C=R1 

D1=C 

GOSUBL =AVMNOV 


4:27 an 
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Yes, then data follous 

No, then find next DATA 

Nove past EOL or @ 

Is it an EOL? 

No, then don’t need to skip line # 
Skip over line # 

Find next data staternent 


Error: Wo data 
No DATA found? Then error 
Move ptr to start of data 


Save start of data field 
01=Start of data field 
DO=(AVNENS) 


R3 contains (AVMENS) 
Parse expression 


Save first token not used in expr 


Get first token not used in expr 


Is it a conna? 
Yes, then okay 


Is it an EOL? 

No, then expr wasn’t really valid 
Point at real EQL token + 2 

Point at corna or EOL 

String data required? 


Valid expression? 
Yes, then skip 


Data Type error 


Nuneric expression found? 
No, then data type error 
Qutput either corima or EOL token 


Save updated data pointer 

Recall (AVMENE) 

D1 points at end of av nem 

Nove buffer onto stack before AVMEN 
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203 
204 
205 
206 


207 


208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
223 
230 
231 
232 
233 
234 
235 
236 
237 
238 


239 
240 
241 
242 


243 


244 
246 
246 
247 
248 
243 
250 
251 


1?7CF? 
1?CFA 
17CFD 
17000 


17007 


17D0D 
17D10 
17013 
17D15 


17018 
17D1B 
17D1D 
17D20 
17023 
17026 
17029 
17d2C 
1702E 
17034 
17035 
17038 
1703A 
17030 
17041 
17044 
17D46 
17D48 
17D4C 


17D4F 
17052 


17059 
17D5C 
17D5F 
1?D63 


17069 


1?D6F 
1?7D73 
17076 


17079 
1?d7C 
17D7F 


00 
137 
135 
134 
3497 
071 
8000 
00 


850 
865 
EA 

570 


863 
CB 
11A 
134 
119 
135 
11B 
Db? 
14A 
31C2 
962 
71 
161 
31D0 
962 
BO 
Db 
7000 
51E 


136 
1B00 
000 
144 
850 
7000 
8E00 
00 
8E00 
00 
7000 
137 
580 


161 
136 


x 
x 


x 
x 


x 
x 


* 
* 
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READSS 
READEO 


READES 
READ70 


READ?5 


READS2 


RERD9O 


CD1EX 
D1=C 
DO=C 
LC(5) 


GOLONG 


ST=1 
?S8T=0 
GOYES 
GONC 


?S$T=0 
GOYES 
C=R2 
DO=C 


GOSUB 
GONC 


CDOEX 
DO=(5) 


DATO=C 
ST=4 
GOSUB 
GOSUBL 


GOSUBL 
GOSUB 


CDIEX 
GONC 


DO=D0+ 
CDGEX 


READ9O 
=EX-STC 


InvalE 
StrReq 
READ40 
READ70 


NunExp 
READ5O 


=STKCHR 
READ?5 


=DATPTR 
A 

0 

=ADHEAD 
=D1STOR 
=D1=AVE 
=popnth 


READS1 


2 


8EQO READS1 GOSUBL =AVE=C 


Page 5 


Move buffer start to C(A) 

Copy buffer start back to D1 (stack 
Copy buffer start to DO (PC) 

Return to READS after EXPR and STO 


Call EXPR and STORE then rtn to C(A 


Expression wasn’t really valid 
Is a string required? 

No, then data type error 
(B.E.T.) Skip 


Nuneric expression found? 

No, then valid string nust have bee 
Recall start of data string 

% points to start of string 
Recall (AVMENE) 

Di is stack pointer 

Recall (AVMENS) 
D(A)=(AVMENS) (for STKCHR) 

Read a byte 

ASCII conria separates data itens 
Is it a CR? 

Yes, then exit loop 

Move data pointer to next char 
CR terminates line 

Is it a conna? 

Yes, then exit loop 

Copy byte to C(B) for output 
Output char to stack 

(B.E.1.) Loop back 


C(A)=Moved data pointer 


Wrate out updated data pointer 
Want ADHEAD to return 

Add string header to stack 
Store string at destination 


Pop STOREd string fron stack 
Put pointer in C(A) 
(8:£.1.) 


Skip past expression terminator 
Put pointer in C(A) 
Reset MTHSTK 
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262 


253 
254 
255 


256 
257 
258 
259 
260 


261 
262 
263 
264 
265 
266 
267 
268 
269 


270 


00 
17085 8&00 

00 
1708B 411 
17D8E 08 
17090 8E00 

00 
17096 560 
17099 6E6E 


1709D 8E00 
00 
17DA3 14A 
17DA6 161 
17DA9 3100 
17DAD 966 
17DB0 60 
170B2 603E 


170B6 8C00 
17D0BC 


x 
x 
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READ94 


READSS 


GOSUBL 


GOCc 
CLRST 
GOSUBL 


GONC 
GOTO 


GOSUBL 


A=DATO 
DO=D0+ 
LC(2) 
RAC 
GOYES 
GOTO 


GOLONG 
END 


=CHKDON 
READS4 
=STKVCT 
READ94 
READO3 
=RESTDO 


B 
2 
=tCONNA 
B 
RERDS5 
READOO 


=NXtstn 


Page 


Check if doing an array 


No, then do next var 
Yes, then... 
... Check if done with array 


Yes, then do next var 
Loop back to read another iten. 


Read byte at progran counter 
Nove pointer past possible conna to 


Is it a corna token? 


No, then done with READ stmt execut 
Yes, then loop back for next read 


Continue with next statenent 
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ADHEAD 
AVE=C 
AVANOV 
CHKDON 
DO=AVS 
DI=AVE 
DINST+ 
DiSTOR 
DATPTR 
EX-STC 
EXPPAR 
Inval£ 
=MFERRJ 
Nf€rr 
NXTADR 
NXTVAR 
NXtstn 
NunExp 
OUT1TK 
PRGMEN 
PRGMST 
PRSCKB 
=RDATTY 
=READ 

READ# 
READOO 
READO3 
READOS 
READO? 
READOS 
READ10 
READ15 
READ20 
READ 30 
READ4O 
READ4S 
READSO 
READSS 
REABOHO 
READGS 
READ 70 
READ ?5 
READS2 
READIO 
READS1 
READS4 
=READSS 
READDC 
READP 
RESTDO 
STKCHR 
STKVCT 
StrReq 
TKSCN4 
collap 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ros 
Ext 
Ext 


0 #00000 
97484 #17CCC 


3 #00003 


97478 #17C(C6 


97233 #17BD1 


97251 #17BE3 
97288 #17(08 
97299 #17013 
97314 #17022 


97318 #17026 . 


97353 #17049 
97383 #17C67 
97397 #17075 
97465 #17CB9 


Table 


 ' € £ 8 4 


97473 #17CC1 - 


97490 #17CD2 
97495 #17CD?7 
97543 #17D0D 
97552 #17D10 
97560 #17018 
97565 #17010 
97582 #17D2E 
97615 #17D4F 
97657 #17079 
97663 #17D7F 
97693 #17D9D 
97718 #17DB6 


5 #00005 


241 
251 
202 
252 
168 
173 
128 
242 
145 
207 
170 

65 
191 
194 
137 
12? 
269 

66 
196 
142 
143 
124 
189 
114 
119 
122 
130 
134 
141 
142 
191 
161 
164 
184 
187 
194 
196 
210 
211 
216 
218 
224 
23? 
249 
251 
260 
269 
ite 
143 
260 
e3d 
129 

67 
161 
141 


243 
198 


187 
163 


194 


195 


118 
257 
132 
136 
138 
148 
159 
155 
473 
212 
188 
217 
182 


186 
213 
234 
227 
206 
246 
253 
265 


255 
130 


238 


210 


216 


266 


231 


256 


133 
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211 
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? 
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eDATTY Ext - 19% 
eNODAT Ext - 162 
popnth Ext - 244 
tCOMNA Ext - 177 263 
tDATA =Ext - 156 


tEOL Ext 


180 
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Input Paraneters 
Source file nane is SB&RD::NS 
Listing file narne is SB/RD:TI:ML::-1 
Object file nane 1s SBARD: TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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WONTON AW = 


10 1?7DBC 
14 
12 
13 
14 
15 
16 
1? 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
23 
30 
31 
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x SSS. BBBB. & III 
x S$ S$ B B && I 
x S B B && I 
z SSS. BBBB& I 
* $B B &&& I 
* S$ S$ B B & & I 
: SSS. BBBB. 8& &:=sCMTII 


4:21 an 
Page 1 


Fri Dec 30, 1983 


60000 
6 68 
6 68 
0 68 
0 0 
0 60 
00000 


TITLE I/0 Execution Routines <831228.1849> 


ABS #17DBC 
RDSYMB TIZEQU: 3 MS 


FOR IOI ROT TTI 


Status Bit Definitions x 
JORIS IO OI OIC SIT TTT 


x 


Return 
Blanks 
Invale 
String 
NuntExp 
NoCur 
InhEOL 
S/NF lg 
x The 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
following are offsets 


MPww-O-o 


x to specified field 
oHNDLR EQU 1 

oPOSIT EQU 6 

oEOLLN EQU 14 


oEOLC1 EQU 12 


Return vs GOLONG EXPR 
Leading/Trailing spaces required 
Invalid expression (parse) 
String expression (parse) 
Nuneric expression (parse) 
Display flag NoCur 

Need to inhibit ENDLINE string 
String or Nunber on stack flag 
fron STMTRO to get 


Handler address (5 nib field) 
POS/WIDTH address (5 nib field) 
Length of EOL string 

(1 nib field) 
First char of EOL string 

(0..6 nib field) 


Saturn Assenbler 1/0 Execution Routines <831228 Fri Dec 30, 1983 4:21 an 


Ver. 3.39/Rev. 2306 SENDEL - Send end line to devi Page 2 
32 STITLE SENDEL - Send end line to device 
33 FI TU TIO TIO IRCCS STATS IST SI ATI IK 
34 FOI IIR JOO JOR SOI DIO TOT TOG 
35 at 
36 ** Nane:(S) SENDEL - Send EndLline to Device via Handler 
37 xk 
38 ** Category:  EXCUTL 
39 ae 
40 *% Purpose: 
41 kh Transmit an "EndLine" to a device by calling the 
42 eh the appropriate handler routine. 
43 ae Updates colurnn count by the nunber of characters 
44 ee in buffer. 
45 ak 
46 ak Entry: 
47 ak Statement scratch set up by CKINFO 
48 ae 
49 xk Exit: 
50 kk P=0 
51 aR 
52 xt Calls: Device handler specified in statenent scratch 
53 xk 
54 RX Uses....... 
55 aX Exclusive: A(W), C(A), BCA), D1 
56 *k Inclusive: ACW), B(W), CCW), DCW), D1, P, RI(W), R2(A) 
57 ed Dees not use DO, Status. 
58 xx 
59 * Stk lvls: 3 
60 ak 
61 ** Note: DO NOT USE DO OR STATUS BITS!!!! 
62 kk 
63 ** Detail: 
64 aa This routine calls the Part 2 handler by entering 
65 ax the SENDIT code. 
66 xk 
67 ** History: 
68 kk 
69 ae Date Progranner Modification 
70 RRS ects: eee igee “ost wrecite cele ee ees 
71 xk 6806/25/82 B.S. Updated docunentation 
72 kk 
73 JOIST IO TICES OC OOO TT ITT 
74 JOGO III SOTA TS ISIS T SITS SSIS SSI ISI ISS ISA IK 
75 17DBC 874 =CRLFCK ?ST=1 InhEOL CR/LF required? 
76 17DBF 00 RTNYES No, then return 
77: 170C1 1FOO =SENDEL D1=(5) (=STNTRO)+oE0LLN 
000 
78 170C8 AFO A=0 W 
79 17DCB 1580 A=DAT1 1 Read length 
80 % 
81 17DCF 81C ASRB (NZ) Convert to bytes 
82 & 
83 17DD2 170 D1=Di+ 1 Skip length 
84 17005 137 CD1EX 


85 17008 D7 D=C R D(A)=Start of buffer 
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86 17DDA 7323 GOSUB D1@POS 
87 17DDE 02 C=0 A 


88 17DEO 532 GONC SEND30 B.€.1, 
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Ver. 3.39/Rev. 2306 SENDIT - Send buffer to device Page 4 

89 STITLE SENDIT - Send buffer to device 

90 JU OOO DSU RE 

94 JU IOI DIET 

92 kk 

93 *% Narie:(S} SENDIT - Send Buffer to Device via Handler 

94 : Nane:(S) SEND20 - Send Buffer to Device via Handler 

95 

96 *k Category:  EXCUTL 

97 kx 

98 ** Purpose: 

99 ak Transmit a buffer of 8-bit ASCII characters to a 
100 ak device by calling the appropriate handler routine. 
101 ak Updates colunn count by the nunber of characters 
102 ak in buffer. 

103 ae 

104 a Entry: 

105 a Statenent scratch set up by CKINFO 

106 ak SENDIT: 

107 aR D1 points to first byte of buffer 

108 RK Buffer end is at (AVNEME) 

109 ak SEND20: 

110 ak D(A) point to first byt of buffer 

111 a A(A) is length of buffer (in bytes) 

112 x 

113 Rk Exit 

114 ae P=0 

115 ak 

116 ** Calls: Di@POS, 

117 Device handler specified in statenent scratch 
118 x 

119 aX Uses....... 

120 ek Exclusive: A(W), C(R), D(A), D1 

121 kk Inclusive: A(W), B(W), C(W), DCW), D1, P, R1I(W), R2(A) 
122 ak Does not use DO, Status. 

123 ae 

124 Ak Stk lvls: <4 

125 ae 

126 = Mate: DO NOT CHANGE DO OR STATUS BITS! !!! 

127 

128 ** Detail: 

129 ak For the I0 handler, the following are the entry 
1® ak conditions: 

131 ak D(R)=Starting address of buffer, 

132 ak A(A)=Length of buffer(in bytes). 

133 al 

134 a The handler nay use any CPU registers 

135 xe except DO, RO and the status bits. 

136 Ae 

137 - The handler has 3 stack levels (RSTK) available. 
138 

139 kk History: 

140 am 

141 ae Date Programmer Modi fication 

142 REY ooh). (OSes 06 eee eee eee eee toe 
143 RR 06/25/82 «B.S. Updated docunentation 
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144 ak 
145 JI SIU te IIR IIIT IIIT IIIT III IIS IIIT IIIT III I IOI IT IIT IAS 
146 II II II III IIIS III I ISL IIIT IDI D TDL DTT I DTI II AISI IS ISI IOI SIS S SSS STS 
147 FOI IIT TT TDD TT TTI TT TIT IIIT TTI I TI 
148 SII IIT II III IIIS IDL TTI TEE EE DDD DE DTI TT IIIT TTT TOT TTT TIT 
149 aia 
150 . Nane: xPART2 - POLL handler for part 2 of output 
151 
152 *k Category: POLL 
153 aK 
154 *k Purpose: 
155 a Send character(s) to the current output device 
156 
157 ek Entry: 
158 ae P=0, HEXNODE 
159 a D(R)=Start address of buffer 
160 xk A(A)=Length of bufer (in bytes) 
161 ak 
162 Re Exit: 
163 RK P=0, HEXMODE 
164 — D1 points past last character sent (next output char) 
165 
166 RK Uses... ..6. 
167 *k Inclusive: A, B, C, 0, 01, FUNCDO, FUNCD1, FUNCRO, FUNCR1 
168 ak Does NOT alter DO, Status bits 
169 ak 
170 xk Stk lvls: <4 
171 aR 
172 ** NOTE: 
173 Rk DO NOT ALTER DO OR STATUS BITS!!!! 
174 an 
175 xk History: 
176 a 
177 aX Date Progranner Modification 
178 RK: Cseksetwan.. “ainecstachwe) . cod Steet ce esse ce cess ooe loos 
179 ae 11/17/82 NZ Added docurientation 
180 . 01/27/83 NB. Docunented exit conditions 
= FORO IIIT I IOI IOI TOOT IOI TTT I TIO 
183 FTI IOI III TT TTT TTI TT TTT REI IIIA I ISS SISS IASI IIIS 
184 17DE3 137 =SENDIT CDIEX 
185 17DE6 1FOO D1=(5) =SAVSTK Point to buffer pointer 
000 
186 17DED AFO A=0 W Zero out upper nibbles 
187 1?7DFO 143 A=DAT1 A Read in buf start addr 
188 
189 * C=Start addr A=End addr 
190 170F3 D? SEND10 D=C R Copy start addr to D 
191 17DF5 ER A=A-C A Calc len of buffer in nibs 
192 170F7 81C ASRB Divide by 2 (Len in bytes) 
193 * 
194 17DFA 7303 =SEND20 GOSUB D1@POS Point to position 
195 17DFE 14F C=DAT1 B Read in position 
196 17&01 A62 C=C+AR 8B Add buf len to position 
197 17604 14D SEND3O DATI=C B Write out new position 
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198 17E0? 1F00 D1i=(5) (=STMTRO)+oHNDLR Point to 1/0 handler addr 
000 
193 17EOE 147 C=DAT1 A Read in handler addr 
200 17E11 06 RSTK=C Push it on stack 


201 17E13 03 RINCC Call 1/0 handler 
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202 STITLE SENDWD - Send width sized chunks 
203 JIGS OUTS II III IR I IOS I II IIIS IIT N 
204 JOO OIE TOSI IO TOSI I III AI IN 
205 XK 
206 ** Nane:(S) SENDNWD - Send Out Width-Sized Chunks to Device 
207 = Nane:(S) SNDWD+ - Send Out Width-Sized Chunks to Device 
208 ‘ 
209 ** Category:  DSPUTL 
210 ax 
211 ** Purpose: 
212 ax Send out width-sized chunks to display/printer device. 
213 7 
214 ** Entry: 
215 as STMTRO must have been set up correctly by CKINFO 
216 aa Status bit InhEOL (4): 
217 x Q= send out initial CR-LF if buffer won’t fit in 
218 first width-sized chunk 
219 aK (only if position .ne. 0) 
220 as 1= start sending out buffer immediately, regardless 
221 aK if the buffer won’t fit on the first line. 
222 ax SENOWD: 
223 ax A(A)= Hcharacters (#bytes) in output buffer. 
224 ae D1 points to output buffer. 
225 ax SENDW+: 
226 ax B(A)= character (#bytes) in output buffer. 
eer aR C(A) points to output buffer. 
228 re 
229 AR EKITS 
230 aX P = 0 
231 ax Carry set 
232 ~ A(A) = 0 
233 a 
234 ** Calls: CSLWP9, CSRNP9, SENDEL, SEND20, DI@POS, B2C95, 
235 ae CSLUP, CSRWP 
236 ne 
237 ek Uses....... 
238 *x Exclusive: ACA), BA), C(W), DCA), P, 01, R2 
239 kk Inclusive: ACW), B(W), CCW), DCW), P, D1, R1, R2 
240 aX Does not change DO, Status 
24i ak 
242 RK Stk vis: 4 
243 pare 
244 xx NOTE: 
245 a DO NOT CHANGE DO OR STATUS BITS!!! 
246 gi 
247 ** Detail: 
248 oe 168 14131211109 8 ? 6 5 43 21 0 
249 x4 R2 usage: {#chars in bfr | entry D1 | | 
250 aX 
251 ** History: 
252 eK 
253 ae Date Programmer Modification 
264 th wel. “SEES aie” eeu at ae heat et Moa Se 
255 * 08/26/82 N.B. Wrote routine. 


256 te 
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257 IIS III ASIII II IIS IIIS IS ISII IIS ISI IISSISS IIIS II SII IIS SSSI SSIS SIS 
258 III III IRI III IIIT III II III SII III SII SSSI SSIS I ISIS ISS ISS SIS S SAI 
259 17£15 8A8 =SENDWD 7A=0) =A Any tore chars? 

260 17E18 00 RTNYES No. 
261 17E1A D8 B=A R Counter to B. 
262 17E1C 137 CD1EX Save Di= buffer pointer 
263 17E1F 0D? =SNDWD+ D=C A in OD. 
264 17E21 7C02 GOSUB D1@POS D1 points to print posn. 
265 17E25 171 Di=D1+ 2 To width. 
266 17E28 DO A=0 A 
267 17E2A 148 A=DAT1 B A(A)= disp/print width. 
268 17E2D 968 7A=0 OB Zero width? 
269 17EH 35 GOYES SNDW19 Yes. Send out entire buffer. 
270 17E32 SEA *A<=C B Position already past width? 
271 17E35 71 GOYES SNDWO9 Yes. Send EOL. 
272 17E37 EA A=A-C A W-P = chars to fill width. 
273 17E39 888 *A>=B OR Enough chars to fill width? 
274 17E3C 74 GOYES SNDW19 Yes. Exhaust chars in buffer. 
275 17E3E £8 B=B8-A A Too many. 
276 chars in bfr after send. 
277 17E40 874 7$T=1 InhEOl Chars left after send. Fresh EOL? 
278 17E43 93 GOYES SNDW17 No. 
279 17E45 396A 720 )~«=6B At position zero already? 
280 17E48 43 GOYES SNDW17 Yes. No extra EOL. 
281 17E4A C8 : B=B+A A Restore B=total chars in buffer. 
282 
283 17E4C 7640 SNDIWS GOSUB 82C95 C(9-5)=#chrs remaining in buffer. 
284 17E50 DB C=D A D1 to C(A). 
285 17E52 2€ P= 14 #chars to C(14-10), 
286 17E54 8F00 GOSBVL =CSLUP D1 to (9-5). 
000 
287 17E5B 10A R2=C Store all in R2. 
288 17ESE 7F5F GOSUB SENDEL Send EOL. 
289 17E62 11A C=R2 Restore chars, D1. 
2%) 17E65 2E P= 14 
291 17E67 8F0O GOSBVL =CSRWP 
000 
292 17E6E 135 D1=C D1 restored, points to buffer. 
293 17E71 8E00 SNDW11 GOSUBL =CSRW9j 
oO 
294 17E77 DA A=C A #chars renaining in buffer to A. 
295 17E79 5B9 ‘ GONC SENDWD (BET) Send out next chunk. 
296 
297 x 
298 17E7C 7610 SNDWI7 GOSUB 82C95 C(9-5)=#chars remaining in bfr. 
299 17E80 570 : GONC = SNDH21 (BET) Send out width-sized chunk. 
x0 
1 17E83 SNDWI19 Send out all renaining chars. 
2 17E83 D4 A=B aR A(R)= Hchars left in buffer. 
3 17685 AF2 C=O W "No chars left". 
34 17E88 108 SNDW21 R2=C Store chars left in R2(9-5). 
5 17E8B 7B6F GOSUB SEND20 Send to device. 
36 17E8F 11A C=R2 fchars left to C(9-5) 
30? 17E92 GEDF GOTO SNDW11 To C(A) and send out remaining. 


8 
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39 17E96 D9 B2C95 C=B A Store B(R) 
310 17£98 8000 CSLWP9 GOLONG =CSLW9j in C(9-5). 


00 
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311 STITLE DPART2 - DISP I0 handler 
312 FOOT ROR RIO TOE OK 
313 FOI TOOT TD 
314 ae 
315 ** Narie:(S) DPART2 - I0 Handler For Built-In Display 
316 a 
317 *& Category:  EXCUTL 
318 aR . 
319 ** Purpose: 
320 xx Sends output to display devices at execution tine 
321 aR 
322 ** Entry: 
323 a P = 0 
324 ah D(A)=Start address of buffer 
325 aR A(A)=Length of bufer (in bytes) 
326 xt 
327 ak Exit: 
328 ak P = 0 
329 ak D1 points past last char sent (to next output char) 
330 ak 
331 ** Calls: CSRUPS, DSPCHA, CK" ON" 
332 a 
333 aX Uses....... 
334 xk Exclusive: R1(W), R2(A), ACW), C(W), D1 
335 ~ Inclusive: R1(W), R2(A), ACW), BCW), CCW), DCW), B41 
336 - 
337 ** Stk lvls: 3 
338 ae 
339 ** Detail: 
340 an 1914131211109 8 765432190 
1 xk —SOR1sousage: | entry DO | buffer D1 | 
42 xk 
343 xk = OR2 susage: | | | counter #chr{ 
344 = 
345 ** History: 
6 = 
347 xx Date Progranner Nodification 
348 BS. eceeeie. wancuececua  sadlse tee suceeseseuee aos oee soe 
449 *X 10/19/82 B.S. Updated docunentation 
350 *X 01/27/83 NB. Docunented exit conditons 
351 7 
352 SORORITIES 
353 KI ISI III IIIT II IIIS IIIT ITT ITS II IIS ISIS SSSI SIS IS IIIS SSSI SII IS 
354 17E9E R500 REL(5) =DPART3 Address of part 3 of I/0 Handler 
0 
355 x 
356 17EA3 D8 =DPART2 B=A A Preserve upper nibbles 
357 17EAS 112 A=R2 of R2. 
358 17EA8 D4 A=B OA 
359 17ERA 136 CDOEX Save DO. 
360 17EAD 77EF GOSUB CSLUPS Dh) to C(9-5). 
361 17EB1 DB C=D A Output buffer address. 
362 17EB3 135 D1=C D1 points to output buffer. 
363 17EB6 CC DPRT21 A=A-1 A Count #buffer chars. 


364 17EB8 443 GOC DPRT25 





‘me 
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365 
366 
367 
368 
369 
370 
371 


372 
373 
374 


375 
376 
377 
378 
379 
380 


381 
382 
383 


17EBB 102 
17EBE 148 
V7EC1 1714 
17EC4 137 
17EC? 86C 
17ECR CO 
17ECC 8FOO 
000 
17E03 591 
17ED6 109 
17ED9 8FOO 
000 
17EEO 119 
17EE3 135 
17EE6 112 


17EE9 6CCF 
x 
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R2=R 

A=DAT1 B 
D1=Di+ 2 
CDIEX 

?$T=0 «=Except 
GOYES DPRT23 
GOSBVL =CK"ON" 


GONC DPRT25 


DPRT23 R1=C 


GOSBVL =DSPCHA 


C=R1 
D1=C 
A=R2 
GOTO = DPRT21 


17EED 8E00 DPRT25 GOSUBL =CSRN9) 


00 
17EF3 134 
17EF6 03 


DO=C 
RTNCC 
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Save counter in R2(A). 

Read character. 

To next char. 

Save D1 in C. 

Has attention key been pressed? 
No. Display character. 

Maybe. Check "ON" key. 


NC= Attn key hit. 
D1 to R41. 
Output character. 


Restore D1 

to point to output buffer. 
Counter to A. 
Next character. 


Restore DO fron R1(9-5). 
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384 
335 JIS III TOT TOT IIT IIIT IO TO SOS II IIIS IIIT IS: 
386 FOO IO ITT TTT TOIr 
387 aK 
388 ** Wane:(S) DPART3 - Finish up DISP line 
389 ax 
390 ** Category:  EXCUTL 
391 aE 
332 ** Purpose: 
393 ak Puts finishing touches on a DISP statenent line, 
394 ak specifically, causing the display to be built and 
395 ax the line to be scrolled if necessary. 
396 a 
397 ** Entry: 
398 ak P = 0 
399 aR InhEOL(ST4) set if CR/LF has not just been sent to 
400 aR display 
401 aR 
402 ee Exit: 
403 ak P = 0 
404 aR 
405 ** Calls: DOSCRL 
406 ak 
407 ak Uses....... 
408 4k Inclusive: A,B,C,0,00,01 
409 xe 
410 ** Stk lvls: 5 
411 aK 
412 ** History: 
413 ak 
414 ea Date Progranner Modification 
415 RK .cedeetat, teccedctca- \cseccceceseccole lcs oc eec See bocoeso 
416 - 11/01/83 B.S. Added docunentation 
x 
ae JI II III SII IIR III IO SII II ISSIISS ISI SSSI IIS ISSSIS IIIS ISIS III IA 
419 JI III I II II IIIS II III SSI SSS II III IIIS SSI IIIT TIS S SSI IIIS ISN. 
420 17EF8 =DPART3 
421 17EF8 864 ?$T=0 InhEOL Display already built by CR/LF? 
422 17EFB 00 RINYES Yes, then just return 
423 17EFD 8000 GOVLNG =DOSCRL Scroll display 


000 
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424 STITLE PRINT Execution 
425 FORO III III TOOT TOO r 
426 JOIST ISITE IIIT STIS IIIS SITII IST III III ISS SI SII IA 
427 RK 
428 ** Nane: PRINT - PRINT statenent execution 
429 ak 
4H *k Category:  STEXEC 
431 ak 
432 *k Purpose: 
433 a Inplenents PRINT statenent 
434 kK 
435 ak Entry: 
436 ak DO points past statenent token 
437 ak 
438 RX Exit: 
439 ak Exits through NXTSTM 
440 aR 
441 ** Algorithn: 
442 ak Sets STNTRO(O) to PRINT statenent type 
443 ak Junps to PRINT* 
444 kh 
445 ** History: 
446 aR 
447 ak Date Progranner Modification 
448 RX” rPioesoas | Va deeei ee > “cece coacaecessscc th SU eee 
449 ee 10/18/83 B.S. Updated Docunentation 
450 ii 
451 FOR RII IOI UII OOO Or 
452 JE IOC IGS COO TTI I TIS SII IIIS II 
453 17F04 0000 REL(5) =PRNTOC 
0 
454 17F09 0000 REL(5) =PRIP 
0 
455 17FOE 14A =PRINT A=DATO B 
456 17F11 20 P= 0 
45? 17F13 3132 LCASC \A\ 
458 17F17 962 7A=C OB 
459 17F1A 90 GOYES PRINT. 
460 17FIC 31F1 LC(2)  (PRINTt)*16+#F 
461 17F20 561 GONC  PRINT* B.E.T. 
462 17F23 8C00 PRINT. GOLONG =PRINTH 


00 
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463 STITLE DISP statenent execution 
464 SII ITI IIIA IS IIIT IIT I IDS IIA II SII SII IIS ISIS III IIIT III STII ISIS ISK 
465 JU III IO TIO ITO ITI TOK 
466 ae 
467 ** Nane: DISP - DISP statenent execute 
468 ae 
469 ** Category: STEXEC 
470 ax 
471 ** Purpose: 
472 am Inplenents DISP statenent execute 
473 ae 
474 &* Entry: 
475 Rk DO points past statement token 
476 ax 
477 &*& Exits 
478 ak Exits through NXTSTN 
479 Rx 
480 ** Algorithn: 
431 a Sets STMTRO(O) to DISP statenent type 
482 az Falls to PRINT* 
483 ae 
484 ** History: 
485 oa 
486 ax Date Programmer Modification 
487 ME eee edieuees, .tactosee ue tea en acetate 
488 : 10/18/83 B.S. Added Docunentation 
ae 2 III OI IIIT IIR III IIIT III I III III III III SIS II TSI SSI IIIS SST SSIS. 
494 JU TOI III IIT IIT III III IIS II II SII IAI IN 
492 17F29 0000 REL(5) =DISPDC 
0 
493 17F2E 0000 REL(5) =DISPP 
0 
494 17F33 31FO =DISP LC(2) (DISPt)*16+#F Code for DISP staterent 
495 * Nou fall through to PRINT* 
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496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
S23 
524 
525 
526 


17F 3? 
17F 38 
17F3E 
1?7F4e 
17F45 
17F 4? 


17F4D 


17F 54 
17F5? 
17F 58 


17F 62 
17F 64 
1?7F a? 
1?7F 69 
17F eC 
1?7FbE 
1?F 4 


70F5 
14h 
3100 
366 
FO 
&C00 
0 


8D00 
000 


844 
72FF 
&FOO 
000 
00 
310 
00 
D410 
00 
030 
00 
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FOI ITO IT IOUT IOI OI 
FORT OI IOI III OT OTT OTTO 


ak 


kK Nane: (S$) PRINT* - 


ax 


** Category:  STEXEC 
ax 


** Purpose: 


PRINT class statenent execution 


ee Inplenents PRINT class statement execution. This 
ae includes DISP and PRINT. 

ak 

** Entry: 

kk P = 0 

am C(O) = PRINT class statement class nuriber 
ak © --> DISP 

ax 1 --> PRINT 

ak 2 --> QUTPUT 

am 3 --> PLOT 

aa 

ak Exit: 

x Exits through NXTSTM 

xx 


** History: 
x 


xx Date Prograrmer 
Ph. dase cag, Mipasoaen ut 


aK 11/01/83 B.S. 
ax 


Modification 


a ee a we ee ewe we ee 


Added docunentation 


JOTI ITI IOI III CTI OIC OIG IOI IO III IO IOK 
JOU I IOI IU IO III II IIIT ITT TIO TOTO ITI OK 


=PRINT* GOSUB CKINF+ 
A=DATO B 
LC(2) =tUSING 
RAC OB 
GOYES DISPOS 
GOLONG =USING 


Re 
kl 
=collap GOVLNG =COLLAP 


DISPOS5 ST=0 = InhEOL 
DISP1O0 GOSUB =collap 
GOSBVL =FINDDO 


CON(2) =tSENIC 
REL(3) DISP15 
CON(2) =tCOMNA 
REL(3) DISP30 
CON(2) =tTAB 
REL(3) TABOO 
CON(2) Oo 


Initialize Staternent Scratch 
Read next byte 


Is it a USING token? 


No, then continue 
Yes, then junp to USING 


Allow CR/LF 

Collapse expression stack 
Seriicolon 

Corina 

TAB 


Otherwise 
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548 
BAY 
550 
551 
562 
553 
554 
555 
556 


557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
$73 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 


595 


596 
59? 
598 
599 


17F 73 


17F 77 
17F 7A 
17F 7D 


17F 80 


17F 86 
17F 86 
17F 8A 
17F8C 
17F 90 
17F 92 
17F 95 
17F 97 
17F 93 


17F 9C 
17F OF 
17FA2 
17FR4 
17FR? 
17FAA 
17F AC 


17F RE 
17FB2 
17F B6 
17FBA 
17F BC 
17F BF 
17FC3 


17FC? 
17FCB 


17F CF 
17FD2 
17F D5 


17F DB 


1?7FE2 
17FES 
17FE8 
17FEA 


6611 


854 
161 
59D 


8C00 
00 


7771 


3151 
D5 
3B4 
70 
C1 
58F 


171 
14F 
CE 
470 
3E1 
D1 
EO 


7896 
3102 
7R45 
£4 
59F 
702E 
63BF 


76FD 
6BAF 


136 
10B 
3300 
8F00 


11B 
134 


6420 


1/0 Execution Routines <831228 Fri Dec 30, 1983 4:21 ani 


GOTO 


x 


DISP15 ST=1 
DISP20 DO=D0+ 
GONE 


GOSUB 
A=C 
LC (2) 
B=C 
CHNAIO 7B>A 
GOYES 
B=B+C 
GONC 
on 
xe 


DISP50 


InhEOt 
2 
DISP10 


MEMER; GOLONG =nonen 


DI@POS 
A 

21 

A 

A 
CMMAZO 
A 
CMNAIO 
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Inhibit CR/LF 
Move progran counter 
(B.E.T.) 


GOTO MENMERR 


Copy position to A 


Past position yet? 

Yes, then exit loop 

No, then add another 21 
(B.E.T.) 


* B now points at beginning of next print field 


CAMA 01=D1+ 
C=DAT1 
C=C-1 
GOC 
7B>C 
GOYES 

CHNAXM A=A-B 


GOSUB 
LCASC 
CHNASO GOSUB 
A=A+1 
GONC 
GOSUB 


GOTO 
ke 


ke 


CHMAGO GOSUB 
GOTO 


xe 
x 


TABWRN COOEX 
R3=C 
LC (4) 


GOSBVL 


C=R3 
DO=C 
A=0 

GOTO 


2 
B 
A 
CMMAZO 
B 
CHMAGO 
A 


GETAVN 
\ \ 
STKCHR 
A 
CHNASO 
SENDIT 
DISP15 


SENDEL 
DISP15 


=eIVTAB 
=MFWRQ8 


TRB1O 


Read width 

Width~1 

Skip if width=inf 

Is print-field-start > width? 
Yes, then send Endline 

Position - print-field-start = 
negative number of blanks needed 
D1=AVE, D=AVNS 

ASCIT blank 


Increnent neg count 
Loop back until done 
Send blanks to device 
Finish up 


Send EOL. 
Next iten. 


Save PC 


Give warning(Beep, errl, delay) 


Restore PC to BO 
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600 
601 
602 
603 
604 


605 
606 
60? 
608 


609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 

2 
623 
624 
625 
626 
62? 
628 
629 
630 
631 
632 
633 


634 


635 
636 


63? 
638 
639 
640 
641 


643 
644 
645, 
646 
647 
648 
649 


17FEE 
17FF1 
1?F FS 


17FFC 
17F FF 
18002 
18004 


1800A 
1800C 
1800F 
18012 
18016 
1801A 
1801D 
1801F 
18022 
18025 
18028 
1802A 
18020 
180% 
18032 
18034 


1803? 
18039 
1803C 
1803F 
18041 
18044 
18048 


1804F 


18056 
1805A 


18061 
18063 
18065 
18068 
1806B 
18060 
18070 
18073 
18075 
18079 


180?D 


161 
7335 
8FOO 
000 
420 
94C 
dC 
8E00 
00 
ce 
42C 
100 
7025 
77E0 
110 
DS 
171 
14F 
96E 
50 
B26 
8B2 
70 
ER 
58F 


EO 
100 
5B0 
CO 
100 
797D 
8FOO 
000 
1FOO 
000 
155? 
3400 
000 
07 
d2 
#8 
110 
EA 
4FO 
100 
DA 
7180 
60EF 


CA 
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xe 
x 


TABOO 


TAB10 


TAB20 


TRB 30 


TRB40 


TAB50 


TABOO 


DO=D0+ 
GOSUB 
GOSBVL 


COC 
7AHO 
GOYES 
GOSUBL 


R=A-1 
GOC 
RO=A 
GOSUB 
GOSUB 
A=RO 
B=C 
01=D1+ 
C=DAT1 
?CHO 
GOYES 
C=C +1 
AKC 


A=A+C 


2 
EXPEXj 
=POP1N 


TABWRN 
S 

TABWRN 
=FLTDH 


A 
TABWRN 


CKINFO 
D1@POS 


many 


TAB30 
TAB20 


R 


TAB40 
A 


SENDEL 
=BLANKC 


=FUNCRO 


W 
=FUNCRO 


opmDwD 


A 
TRB6O 


A 


SEND2O 
TRBSO 


A 
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Move pointer past TAB token 
Evaluate expression 
Pop tab value fron stack 


Give warning 1f conplex 

Is 1t >=0? (Tenporary....) 
Yes, then give warning 
Convert to hex 


Convert to option base zero 
Give warning if it was zero 
Save tab value 


Point at display position 
Recall TAB position 


Point at width 

Read width 

Is width infinity? 

No, then skip 

Use width=256 

Is TAB>Width? 

No, then continue 

Do nod Width reduction 
(B.E.T.) 


Subtract current position 


Skip if it will fit on curr line 


Yes, then send EndLline first 
C=8 spaces 


D=Start address 


More than & spaces left? 
No, then send last spaces 
# of reraining spaces 
A(R}=8 


Undo subtraction 
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650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
68? 
688 


689 
690 


691 
632 
693 
694 
695 
696 
697 
698 
693 
700 
701 
202 
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1807F 7770 GOSUB SEND20 Send last spaces 
18083 844 DISP1) ST=0 InhEOL Allow CR/LF 
18086 6ODE GOTO §=©DISP10 Temporary do nothing **** 
ae 
ae 
1808A 310F DISP5O LCHEX FO 
1808E 9E2 7A<C OB Is it @, eol, else, ! token? 
18091 92 GOYES DISP80 No, then it must be an expr 
18093 752D GOSUB CRLFCK 
FOTO OT TTT TOT 
FOO JOO RII JOT OT 
xk 
** Ware:(S) PART3  - Finishes up a PRINT class statenent 
ak 
** Category:  STEXEC 
xt 
** Purpose: 
sa This is the 3rd part of PRINT class statenents. It 
ah calls the appropriate routine to finish up the current 
aR line. 
ae 
a* Entry: 
ae P = 0 
ss STMTRO set up by CKINFO 
ki 
** Exit: 
ae Exits through NXTSTA 
kk 
** Calls: xPART3 
aR 
** History: 
ax 
a Date Progranner Modification 
Die itetewae Gioceerias, tacbsn eens et eons Coe ee 
xx 11/09/83 «B.S. Added docunentation 
aX 
JIS II III III SII II STII III III ISIS SII II II III IOS IIS TSI IIS IAI IIIS 
FORO JOR RJR OI JOTI ITT TK 
18097 3400 =PART3 LC(5) =NXTSTM 


000 
1809E 06 RSTK=C 
180A 1F OO 
000 
180A? 7DAS GOSUB 01=@D1 
180AB 1€4 D1=Di- 5 
180RE 147 C=DAT1 A 
180B1 133 ADIEX 
180B4 C2 C=C+A A 
180B6 06 RSTK=C 
180B8 03 RTNCC 
ke 
x 


180BA 7R64 DISP8O GOSUB EXPEX) 


Push address of NXTSTM on stack 


D1=(5) (=STMTRO)+oHNDLR 


Di=handler address 
Move back 4 nibbles 
Read in end handler offset 


Add offset to base to get handler 
address 
Push end handler address on stack 
Junp to end handler, 
then rtn to NXTSTN 


Evaluate expression 
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703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 


716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
lee 
728 


729 
730 
731 
732 
733 
734 


180BE 
180C2 
180C5 
180C8 
180CB 
180CE 


180D0 
180D3 
18007 
180DA 
180DD 
180E1 


180E? 
180ER 


180ED 
180FO 
180F3 
180F 6 
180F9 
180FD 


18101 


18108 
18108 
1810E 
18110 
18113 


7084 
148 
BO4 
Ae4 
968 
31 


136 

7E 

134 

851 

7B60 

8E0O §=DISP9O 
00 

844 

171 


AFO 
143 
81C 
17D 
7810 
695E 


ae 
xe 
x 


1FOO = D1@POS 
000 
147 
135 
D2 
14F 


03 
‘k 


GOSUB 
A=DAT1 
R=A+1 
A=A+A 
?A=0 
GOYES 


CDOEX 
GOSUB 
DO=C 
ST=14 
GOSUB 
GOSUBL 


ST=0 
01=D1+ 


A=0 
A=DAT1 
ASRB 
Di=D1+ 
GOSUB 
GOTO 


CKINFO 
B 
P 
B 
B 
DISP90 


PUTRES 
Blanks 
STRERT 
=REV$ 


InhEGL 
2 


\ 
A 
14 


SENDWD 
DISP10 
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Verify info okay 
Re-read stack header 


Check for FO or F8& 
Is it a string? 
Yes, then okay 


Save DO in C 

Put expr in result register. 
Restore DO 

Want leading and trailing blanks 
No, then convert it to one 
Reverse chars in string 


Allow CR/LF 
Skip FO (string head) 


#nibbles in string expr. 

#chars in string. 

Skip to text. 

Send out 1n width-sized chunks. 
Continue processing statenent 


D1=(5) (=STMTRO)+oPOSIT 


C=DAT1 
Di=C 
C=0 
C=DAT1 
RTNCC 


A 


A 
B 
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735 STITLE PUTRES - Store into RES register 
736 JOISTS CTC ITS TO SOI IAS IS IAN 
737 JI III OO TOO IOS TOSSA SSSI IIIS IIS IS ISIS IIIS SI ISIS IS 
738 ak 
739 ic Narie:(S) PUTRES - Put Nuneric Result Into RES 
740 
741 ** Category:  EXCUTL 
742 KR 
743 a Purpose: Put nuneric expression in RES register. 
744 
745 *k Entry: D1 points to start of nuneric expression on stack 
746 ak (or any desired location). 
747 aK 
748 aX Exit: Carry clear: real. Carry set: complex. 
749 kk D1= same value as entry. 
750 ae P=0. Sets HEX node. 
751 a 
752 ak 
753 *X Calls: POPIN 
754 aK 
755 tk Uses: P, ACW), B(O), BO 
756 ak RO if conplex. 
757 ax 
758 ** Stk lvls: 1 
759 ak 
760 ** Algorithn: 
761 ax Call POP1N (express purpose of checking numeric arg) 
762 ax Set DO= RESREG 
763 ak If conplex, read 34 nibbles fron the Math stack to 
764 = put in the RES register. 
765 xe If real, simply write A(W) into the RES register. 
766 ae Returns D1 to original value. 
767 ak 
768 *X History: 
769 es 
770 es Date Progranner Modification 
771 KK? Jcoueeees  “slresieioens. -stecdsceccdcccsactsolcusacti cece 
772 . 08/26/82 =so«.B. Wrote routine 
te IIIT SII K IAI IA II III III IS IIS III III ISI ISIS IIIS ISIS IOI III ISIS IK 
775 JI III OO II ITO OST TOTTI SIS SII III IIT OS III IIIS ISIS SIS TS 
776 18115 8FOO =PUTRES GOSBVL =POP1N Check argurent for nuneric. 
000 
777 1811C 04 SETHEX POPIN nay have left DEC node. 
778 1811E 1B00 0O0=(5) =RESREG Point to RES register. 
000 
779 18125 501 GONC  PUTRES NC= real. 
780 18128 16F DO=D0+ 16 Conplex. Move DO to riddle 
781 1812B 161 DO=D0+ 2 of RES register. 
782 1812E 2E P= 14 Counter. 
783 x 
784 18130 1507 PUTRE3 DATO=A W Put real part into RES. 
785 18134 1C8 D1=D1- 9 Move partially into 
786 18137 188 DO=D0- 9 lnaginary part. 
78? 1813A 1537 A=DAT1 W 
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788 1813E OC P=P+1 Count twice. 
789 18140 5FE GONC  PUTRE3 
790 x Carry set on loop exit. 
791 18143 1507 PUTRES DATO=A W 
792 18147 01 RIN (Preserve carry!) 


793 k Carry Set: cornplex. Clear: real. 
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794 STITLE STRSSB - Convert nunber to string 
795 22 TI TIO TIT IIT IIT TIA I IIIS 
796 20 III III IIIS ITO I TOIT IOI TSS IIIT IS 
797 tk 
798 ** Wane: (S) STRSSB - Convert Number to String 
799 - Narie:(S) STRSOO - Convert Number to String(Generic) 
800 
801 ** Category: CONVRT 
802 ax 

803 ** Purpose: 

804 ae Pops a number off stack and pushes a string on stack 
805 aK containing ASCII representation in current display 
806 x setting. 

807 xk STR$SB is a subroutine which returns a string without 
808 -* leading and trailing blanks surrounding the nunber. 
809 ak STR$OO 1s a generic routine which will either return 
810 ak uhen done or jump to EXPR. It may or may not output 
811 kh leading and trailing blanks. 
812 ai 
‘ 813 *k Entry: 
814 x P = 0 
815 BK D1 points to top of stack 
816 &x : 
817 ak STRSOO: 
818 ax Return (SO) set iff return is desired 
819 ak otherwise junps to EXPR uhen done. 
820 ax Blanks (S1) set iff leading and trailing blanks 
821 ax are desired. 
822 . 
823 eX Exit: 
824 x P = 0 
825 ia D1 points to string 
826 ae Exits to MEMERR if menory overflows 
827 ax 
828 &* Calls: POP1N, FATNUM, STKCHR, NAN?, FNTPRP, ADHERD, D=AVINS, 
829 aS DSFORN 
830 ax 
$31 RR OUSES 5 i1vs 
832 **k Exclusive: D1,S0,51,C(A), D(A) 
833 kk Inclusive: A,B,C,D(A),SO,RO,R1,R2 
834 tok 
835 ** Stk lvls: 2 
836 ax 
837 ** Detail: 
838 ax Pops an numeric iten off expression stack and 
839 xx checks the current display fornat. 
840 = Standard fornat: If the nunber can be represented 
841 ae without losing accuracy in 12 digits plus 
842 a optionally a decinal point it will be, else 
843 = scientific notation will be used and all 
844 x significant digits will be shoun. 
845 ak 
846 ax FIX n: Display n places past the decinal point 
847 Ee with rounding. If result is longer than 


848 aX 13 digits, defaults to SCI n. 
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849 ax 
850 ax SCI n: Display n+1 significant digits in 
851 aR scientific notation with rounding. 
852 ax (1. <= mantissa <= 9.999999...) 
853 a 
854 a ENG n: Display n+1 significant digits in 
855 ae engineering notation with rounding. 
856 Kx (1. <= mantissa <= 999.9999...; 
357 ax exponent divisible by 3) 
858 gi 
859 ** History: 
860 ax 
861 he Date Prograttner Modification 
862 Th fiscesece Gosecerune). ‘Dhieceeeeecceeeuseewaes seeeaeessosed 
863 ** 07/20/82 B.S. Updated docunentation 
864 kk 
865 JIS III TIO II OO TS II SIO IIIS TI SIS II II IIIS STI III ITI A 
866 JO II TO III I IIS III II TITS IOS SII SITS OS IIS TSS TS SSI II IITA 
867 18149 841 =STR$SB ST=0 Blanks Lead/trailing blanks suppressed 
868 1814C 850 STR$RT ST=1 = Return Return to caller 
869 1814F 6C00 GOTO STREOO 
870 R 
871 a. 
872 18153 8 NIBHEX 8 Argunent rust be nuneric 
873 18154 11 NIBHEX 11 Argurent count range 
874 18156 840 =STR$ ST=0 Return Jurp to EXPR when done 
875 18159 841 ST=0 Blanks Not display forn 
876 1815C 7335 =STR$O0 GOSUB d=avns D(A)=(AVNEMS ) 
877 18160 8F0O GOSBVL =POPIN Check for nunber atop stack 
000 
878 18167 04 SETHEX Done with POPIN 
879 18169 4E1 GOC STRSCP Handle complex nunber 
880 1816C 7170 GOSUB  FNTPRP Prepare for fornatting 
881 18170 7870 GOSUB NAN? Is it a NaN? 
882 18174 470 GOC STR$.5 Yes, then don’t check sign 
883 1817? 94C PAHO OS Is number negative? 
884 1817A 60 GOYES STR$01 No, don’t put out leading space 
885 1817C 7180 STR$.5 GOSUB DSFORN Output leading blank if required 
886 18180 7A8O = STR$01 GOSUB FNTNUN Fornat nurber 
887 18184 6E20 GOTO  STR$30 Finish up 
888 a 
889 Re 
890 18188 7550 STRS$CP GOSUB FMTPRP Prepare for fornatting 
$91 1818C 7170 GOSUB DSFORN Qutput leading blank 1f required 
892 18190 3182 LCASE ACY 
$93 18194 7063 GOSUB STKCHR Output left parenthesis 
894 18198 7270 GOSUB FATNUN Fornat real part 
$95 1819C 312 LCASC =\,\ 
836 181A0 7063 GOSUB STKCHR Output corina 
897 181A4 110 R=RO Recall imaginary part 
898 181A? 7360 GOSUB  FMTNUM Fornat imaginary part 
899 181AB 3192 LCASC =\)\ 
900 181AF 7153 GOSUB STKCHR Qutput right parenthesis 
9601 181B3 7A40 = STR$30 GOSUB DSFORM Output trailing blank if required 


92 * Now fall into ADHEAD 
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903 STITLE ADHEAD - Add string header to stack 
904 SOIC II IOI TTI RL 
905 FOI TOI ITI OT TOTO TTT TTI TO OTT 
oO6 xk 
907 ** Nane:(S) ADHEAD - Add String Header 
908 xs 
309 ** Category: MTHSTK 
910 ak 
911 *k Purpose: 
912 ak Adds string header to string on stack 
913 aK 
914 ** Entry: 
915 xx R1(A)=Start of stack aten(hi nen) 
916 an Di=End of stack iten(low ner) 
917 aa % set iff RIN desired (junps to EXPR otherwise 
918 ak D(A)=(AVMENS ) 
919 aR P=Q 
920 aK 
921 KX Exit: 
922 ae D1 points at string header on stack 
923 x 
924 ** Calls: STKCH+ 
925 a 
926 aK Uses....... 
927 Kk Exclusive: A(A),C(W),D4 
928 ** Inclusive: ACA), C(W),D1 
929 xk 
930 *K Stk lvls: 0 
931 ax 
932 ** Detail: 
933 ae Ri should have been used to store stack pointer 
934 os before putting string on stack. As the string 
935 a uas added to stack, D1 should have been decrenented 
936 ak to keep it pointed at the last char of string. 
937 aX This routine can then be used to tack on the string 
938 aR header (FO11111000000000) where 11111 is the length 
939 x of the string. 
940 ak 
941 *k History: 
942 kk 
943 xk Date Progranner Modification 
944 RX -seecesss, Sbcecesese:. . eee ciuce eco cee ose cece sect sew eens 
945 Kk 07/20/82 B.S. Updated docunentation 
946 kk 
947 FOR JOJO OOOO 
948 JORIS TASS TTI GO III TIO TT 
949 181B7 119 =RDHEAD C=R1 
950 181BA 133 ADIEX 
951 181BD 131 D1=A Copy D1 to A 
952 181(0 E2 C=C-A A Calculate string length 
953 181C2 BF2 CSL OW 
954 18105 BF2 CSL W Nake roon for string identifier 
965 18108 HF LCHEX F String identifier 
956 181CB 1CF STR$40 D1=D1- 16 
957 181CE 7533 GOSUB STKCH+ Check if enough roon 
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958 
959 
960 
961 


962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 


181D2 
18106 
18109 
181D8 


18161 
181E4 
181E? 
181EA 
181ED 


181 EF 
181F1 
181F4 
181F? 


181FA 
181FD 
T81FF 


18201 
18204 
18206 
1820A 


15D6 
870 

00 

8C00 EXPR} 
00 


x. 
x 


17F = -FATPRP 
137 

135 

109 

01 


B24 
A2C 


96C 
00 
03 


we 
x 


861 = DSFORN 
+) 

3102 

69F2 
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DAT1=C 7? 
7S$T=1 Return 
RTNYES 

GOLONG =Expr 


Di=D1+ 16 
CD1EX 

D1 =C 

R1=C 

RTN 


SE THEX 
A=At1 XS 
A=A-1 XS 
RTNNC 


RHO OB 
RTNYES 
RTNCC 


?$T=0 Blanks 
RTNYES 

LCASC \ \ 
GOTO  STKCHR 


4:21 an 
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Write out string header 
Is a return requested? 
Yes, then return 

No, then go to EXPR 


Save begin of string 


Return with carry clear 
1f not NAN or INF 
Is it a NAN? 
Yes, then return with carry set 
No, then return with carry clear 


Blank required? 
No, then return 
Yes, then add one 
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987 STITLE CLCSTR - Turn Nuriber into ASCII 
988 JIG III OUI CISCO OO II SII TIT I IK 
989 FOO IOI TOTO TOTO TTT TT TTT TTT RTI 
990 at 
991 xt Narie: CLCOSTR - Turn Number into ASCII 
992 RR 
993 ** Category:  DSPUTL 
994 ae 
995 *% Purpose: 
996 ah Turn a 12-digit floating-point nunber into its ASCII 
99? ak representation for display purposes and place on 
998 aE stack. 
999 ak 
1000 AX Entry: 
1001 ak A=Nunber to be displayed. 
12 ak Di=stack pointer. 
1003 x Ri[A] points to top-of-stack before we started writing 
1004 aR to it (may include leading space before CLCSTR’s 
1005 ak output). 
1006 ak D[AJ=(AVMENS). 
1007 aR 
1008 ae Exit: 
1009 ak P=0, 
1010 ka D1 = New stack pointer 
1011 ah 
1912 kk Calls: STKCHR , NAN? 
1013 ak 
1014 ae Uses....... 
1015 aR A,B,C,0[15-13],D1,P 
1016 ak 
1017 Ae Stk lvls: 1 
1018 ak 
1019 ** RAlgorithn: 
1020 aR A -> R2. 
1021 ah If A=NAN, write "NaN" to stack and RIN. 
1022 ae If A negative, write "-", 
1923 xk If A=INF, write "Inf" and RIN. 
1024 as Read display flags; clear upper 2 bits of DSPFMT nib. 
1025 ig If Fix, Sci, or Eng, goto FXSCEN. 
1026 xe Dope up phony fix or sci display based on the 
1027 a following: 
1028 a Define Q=#sig digits - 1. 
1029 ak If exp>0 then 
1030 a if exp>11, display as SCI Q, 
1031 aR else if Q-exp >= 0 display as FIX (Q-exp), 
1032 ak else display as FIX 0. 
1033 aK Else if Q-exp > 12 display as SCI Q. 
1034 ae else display as FIX (Q-exp). 
1035 ae If displaying as FIX (sonething), goto FXSCEN with 
1036 ae upper bit set in dspfrt (dspfnt = 9), 
1037 = Else goto FXSCEN with dspfnt = 2. 
1038 ak 
1039 *k History: 
1040 eR 


1041 ie Date Prograrner Modification 
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1042 AM. ieaweese* giddesooes wScineetsaeeceeseceeeeseese tees 
1043 KK 10/28/82 NM Rewrote. 

1044 ae 
1045 IK II IOI II I III II IIIT I IOS II IRIS IDI IIS IIIS ISIS TIO IIS IIIS IS IIIS TN 
1046 SII ISIS III III III III III III IIS IS IIS ISSO SSSI IOTS II SIS SIS II IIS IIIS 
1047 1820E =CLCSTR 
1048 1820E 04 FMTNUM SETHEX 
1043 18210 102 R2=A Save nurber being fornatted in R2 
1050 18213 78DF GOSUB NAN? Is it a NAN? 
1051 18217 AF2 C=0 W 
1052 1821A 5B1 GONC STR$O5 No, then continue 
1053 1821D 3564 LCASC = \NaN\ Output "NaN" 
16E4 
1054 18225 7BD2 STKLST GOSUB STKCHR 
1055 18229 BF6 CSR W 
1056 1822C BF6é CSR W 
1057 1822F 8AE ?7C#0) OA 
1058 18232 3F GOYES STKLST 
1059 18234 01 RIN 
1060 a 
1061 x. 
1062 18236 948 STR&OS 7A=0) § Is sign positive? 
1063 18239 AO GOYES STR$10 Yes, then skip 
1064 1823B 31D2 LCASC \-\ 
1065 1823F 71C2 GOSUB STKCHR Dutput minus sign 
1066 18243 B24  STR$10 A=A+1 XS 
1067 18246 A2C A=A-1 XS Set carry if INF 
1068 18249 3594 LCASC = \fnI\ 
E666 
1069 18251 43D GOC STKLST If INF, output "Inf" to stack 
1070 - 
1071 - 
1072 18254 133 ADIEX 
1073 18257 1FOO 01=(5) =DSPFNT 
000 
1074 1825E 14F C=DAT1 B Read display fornat & dgt 
1075 18261 OB CSTEX 
1076 18263 842 ST=0 2 Clear upper 2 bits of dspfrt 
1077 18266 843 ST=0 3 
1078 18269 OB CSTEX 
1079 18268 133 ADIEX 
1080 1826E 112 A=R2 Fetch nunber 
1081 18271 90E *CHO) OP Standard fornat? 
1082 18274 16 GOYES STDF30 No. Fix, Sci or Eng. 
1083 18276 95C AHO ON Nunber=0? 
1084 18279 RO GOYES FNDSOS No. 
1085 1827B 3103 LCASC \O\ Yes. Display as "0". 
1086 1827F 6482 GOTO  STKCHR 
108? 18283 05 FNDSOS SETDEC 
1088 18285 3221 LCHEX 012 
0 
1089 1828A DS B=C A 
1090 1828C 22 P= 2 Find LSD. Start at botton. 
1091 1828E OC FNDS10 P=P+1 
1092 18290 CD B=B-1 A 
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1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1104 
1102 
1103 


1104 
1105 
1106 


110? 
1108 
1109 
1110 
141141 
1112 
1113 
1114 
1115 
1116 
4117 
1118 


1119 
1120 
W241 
1122 
1123 


18292 908 
18295 SF 
18297 OC 
18299 80FF 
18290 04 
1829F BCE 
182A2 05 
182A4 20 
182R6 B38 
182A9 581 
182AC 320 
5 
182B1 9B6 
182B4 42 
182B6 3211 
0 
182BB 9B6 
182BE 42 
182C0 D1 
18202 2F 
182C4 OC 
18206 A3D 
18209 SAF 
182CC 80F1 
182D0 20 
182D2 309 
182D5 441 
182D8 3221 
0 
182DD 9B0 
182E0 2E 
182E2 812 
182E5 Fe 
182E7 302 
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STDF10 
STDF20 


STDF 30 
NEGEXP 


SCIN j 


7A=0 
GOYES 
P=P+1 
CPEX 
SETHEX 
C=-C-1 
SETDEC 
pz 
B=B-A 
GONC 
LCHEX 


TAC 
GOYES 
LCHEX 


PAC 
GOYES 
B=0 
p= 
P=P+1 
B=B-1 
GONC 
CPEX 
P= 
LCHEX 
GOC 
LCHEX 


?B<=C 
GOYES 
CSLC 
CSL 
LCHEX 


P 


FNDS10 
1§ 
S 


0 

x 
STDF10 
500 


x 
NEGEXP 
011 


x 
SCINj 
A 

15 


x 

STDF 20 
1 

0 

9 
FXSCEN 
O12 


x 
STDF10 


A 
2 
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Is this digit zero? 
Yes, look at next one. 
No. 


C{S]=B[X]=# sig digits - 1. 


#Sig dig - exponent 
BI \<dspdgt (af not carry) 
Why did we carry? 


Exponent negative? 
Yes. Process it. 
No. 


Exponent > 117 

Yes, sci notation 

No, nust be FIX 0 

B[X] = dspdgt 

Loop to convert to HEX 


Dope up FIX display 
B.E.T. 


FIX >127 
No. Display FIX. 
Display SCI. Q to C(O]. 


Display SCI Q. Fall through. 
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1124 STITLE FXSCEN - Output in FIX, SCI or ENG 
1125 JE OO IT TO TOIT OTITIS IA IIIT III IAI SISA S 
1126 JETT SITE IAT I IIIS I SII ISIS SIS ISI III ISS ISS 
1127 aS 
1128 *k Nane: FXSCEN - Output nurber in fix/sci/eng frt 
1129 *K 
1130 ** Category: LOCAL 
1131 ak 
1132 *k Purpose: 
1133 ak Part of CLCSTR used to output nunber in FIX, SCI or ENG 
1134 AK fornat. 
1135 ak 
1136 ** Entry: 
1137 nS Nunber to be displayed in A. 
1138 aK Mantissa sign has already been written to string. 
1139 ak R1[R] points to beginning of string in stack (used to 
1140 ak nake string header later). 
1141 aK DLA}=(AVHENS}. 
1142 ee D1 points to current top of stack. 
1143 ae C[B) = display flags: 
1144 ak Bits 0-1: 1=fix, 2=sci, 3=eng. 
1145 = Bit 3: 1 if FIX display called fron std fnt code 
1146 a (Causes 0 before dp to be suppressed if 
1147 aS exponent negative and dp to be suppressed 
1148 gel if no fractional part. This bit should only 
1149 ak be set only if number is displayed in FIX 
1150 aK fornat. } 
1151 a Bits 4-7: Display setting (0-12). 
1152 ak P=0, 
1153 : 
1154 ax Exit: 
1155 ae Carry set. 
1156 ae Nantissa, exponent sign and exponent written to string 
1157 Ax on stack. 
1158 RR D1 points to current top-of-stack. 
1159 ak Ri[A] unchanged. 
1160 ak P=, 
1161 ak 
1162 ** Calls: STKCHR. 
1163 Rk 
1164 BE USES fcc Seiad 
1165 aR A,B,C, 0[15-13],D1,P 
1166 ae 
1167 RK Stk Ivis: 1 
1168 xP 
1169 ** Detail: 
1170 wo Converts nunber to "display format", after which 
1171 ae TOASCI outputs characters to stack. Display fornat 
1172 cs looks as follows: 
1173 ae Mantissa 1s in B: 
1174 a* B[14] through first "F" are digits. 
1175 aK B[O] 1s DP posiation...there are B[O]+1 digits 
1176 ak before the DP. B[O]=F reans DP is not written 
1177 ae or (during TOASCI looping) has already been 


1178 ak written. 
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1179 
1180 
1181 
1182 
1183 
1184 
1185 


1/0 Execution Routines <831228 Fri Dec 30, 1983 4:21 an 

Ver. 3.39/Rev. 2306 FXSCEN - Output in FIX, SCI or Page 

ax Exponent 1s in A: 

&k A[S] is sign: O for "+", 1 for "-", 

as A[14] through first "F" are digits. 

ak A=FFFFFFFFFFFFFFFF means no exponent. 

a 

** History: 

an 

kk Date Progrannmer Modification 


1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 
1195 
. 1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 


182EA 04 
182EC BF3 
182EF BF3 
182F2 BF3 
182F5 AE? 
182F8 21 
182FR 30C 
182FD S8F 
18300 50 
18302 A87 
18305 AF1 
18308 ADC 
1830B ARG 
1830E ACO 
18311 05 
18313 A26 
18316 550 
18319 B44 
1831C AEB 
1831F OB 
18321 871 
18324 60 
18326 61(0 
1832AR OB 
1832C 04 
1832E 21 
18330 300 
18333 BOB 
18336 8001 
1833A 05 
1833C AF2 
1833F A99 
18342 A71 
18345 949 
18348 £0 
1834A BFS 
1834) B34 
18350 550 
18353 ACO 


&& 10/21/82 
tx 


i es 


NA 


ww ww mw ew Be eee we ew mew em ewe we ewe 


Added docunentation 


OI IIIT IOUT Or 
TORII ROJO UO TIO TK 


ke 


%- Note that above code falls through to here 


FRSCEN SETHEX 
DSL 
DSL 
DSL 
D=C 
p= 
tC(1) 
2D<=C 
GOYES 
D=C 
FXSC10 B=0 
ABEX 
C=R 
A=0 
SETDEC 
C=C+C 
GONC 
R=A+1 
DSPN20 C=D 
CSTEX 
?ST=1 
GOYES 
GOTO 
SCI CSTEX 
SCIO3 SETHEX 
p= 
LCHEX 
C=C-D 
P=C 
SETDEC 
C=0 
C=B 
B=C+8 
2B=0 
GOYES 
BSR 
R=A+1 
GONC 
A=0 


— 


XSC10 


Vea Vo eS we eS Ss 


x 
” 


DSPM20 


SCI 
FIX 


= DO— 


CIO05 


C105 


YAYrxXrevnnrxrez 


Hold DSPFLG byte 


Maxinun display setting. 
Setting legal? 

Yes. 

No. Use 12. 


Split exponent and mantissa 
To hold exponent sign 


Exponent negative? 
No 
Mark exponent sign negative 


Dspflg to ST 
Sci/Eng? 

Yes 

No. Fix. 

Restore original ST 


Lopping position 


Do rounding 
Rounding overf lou? 
No 


Yes. sr mantissa. 


Increnent exponent 
Exponent now positive? 
Yes, change sign 
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1234 18356 A91 = SCIOS B=0 WP Lop 
1235 18359 04 SETHEX 
1236 1835B A1D B=B-1 WP Trailing f’s 
1237 1835E 20 P= 0 
1238 18360 R81 B=0 P Zero for DP position 
1239 18363 05 SETDEC 
1240 18365 948 "AZO OS Exponent positive? 
1241 18368 FO GOYES SCI10 Yes 
1242 1836A BBS A=-A xX Negate exponent 
1243 1836) 3299 LCHEX 499 
4 
1244 18372 932 PA=C OX Exponent=-499? 
1245 18375 AS GOYES SCI20 Yes. Display SCI (not ENG) 
1246 18377 REB SCI1IO C=D B 
1247 1837A OB CSTEX 
1248 1837C 870 ?ST=1 0 Sci or Eng? 
1249 1837F 20 GOYES SCI15 Carry set if Eng 
1250 18381 08 SCIi5 CSTEX 
1251 18383 584 GONC SCI20 
1252 18386 3200 LCHEX 300 
3 
1253 1838B AB? D=C x 
1254 1838E D6 C=A A Prepare for tod loop 
1255 18390 B3B ENGIO C=C-D xX Loop to conpute exp nod 3 
1256 18393 5CF GONC = ENG1O 
1257 18396 A3B C=C+D xX 
1258 18399 BB? DSR x Shift divisor 
1259 1839C 93F OHO OX Done? 
1260 1839F 1F GOYES €ENG10 No 
1261 183A1 93A 70-0 OK Exponent divisible by 3? 
1262 183A4 B2 GOYES SCI20 Yes 
1263 183A6 A85 B=C P No. new dp position. 
1264 183A9 ER R=A-C A New exponent 
1265 183RB 948 "AZO OS Exponent positive? 
1266 183RE RO GOYES ENG20 Yes 
1267 183B0 303 LCHEX 3 
1268 183B3 CR A=A+C A New exponent 
1269 183B5 BOD B=(-B P New dp position 
1270 183B8 04 ENG2O SETHEX 
1271 183BA 300 LCHEX 0D 
é72 183BD BO9 C=(-B P 
1273 183C0 80D0 P=C 0 Point at digit just below dp 
1274 18304 OC ENG30 P=P+1 
1275 183C6 BOS B=B+1 P Need zeroes to reach dp* 
1276 18309 4AF GOC ENG30 Yes 
127? 183CC AOD B=B-1 P Done inserting zeroes 
1278 183CF 04 SCI2O SETHEX 
1279 183D1 £4 A=A+1 A Hex increnent of exp 
1280 183D3 2E P= 14 
1281 18305 B90 SCI30 ASL WP Loop to align exp u/sign 
1282 183D8 908 R20 OP Aligned? 
1283 183DB AF GOYES SCI30 No 
1284 183DD AIC A=A-1 WP Yes. restore exp & put F’s 
1285 183E0 6F90 GOTO = TOASCI 


1286 183E4 674F FSCI GOTO SCI03 
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1287 183E8 840 FIX ST=0 (0 Clear so doesn’t appear eng 
1288 183EB OB CSTEX 
1289 183ED AE? D=C B 
12% 183FO 80D1 P=C 1 
1291 183F4 D6 C=A A Exponent 
1292 183F6 £6 FIX10 (C=C+1 A Add dec(dspsetting)+1 to exp 
1293 183F8 OD P=P-1 
1294 183FA SBF NC -FIX10 
1295 183FD A26 C=C+C XS Result negative? 

1296 18400 43E GOC FSCI Yes. display in sci. 

1297 18403 OD FIX20 P=P-1 Loop to find rounding digit 

1298 18405 891 ?P= 1 Overflow display? 

1299 18408 63 GOYES FSCI? Yes. May need SCI display. 

1300 1840A ASE C=C-1 XxX No 

1301 1840D 55F GONC FIXK20 

1X2 18410 AF2 C=0 W 

13 18413 959 7B=0 «OM Nantissa=0? 

1W4 18416 93 GOYES FIX35 Yes. Don’t round. 

1305 18418 A99 C=B WP 

136 1841B A79 C=C+B W 

1307 1841E A92 C=0 WP Perforn rounding 

138 18421 937A C= W Nuriber rounds to zero? 

1309 18424 OC GOYES FSCI Yes, display in SCI. 

1310 18426 94A 7050 Rounding overflow? 

1311 18429 62 GOYES FIX35 No 

1312 1842B BF6 CSR W Yes. sr mantissa. 

1313 1842E B34 A=A+1 Xx And increnent exponent. 

1314 18431 550 GONC = FIX2? Exponent nent positive? 

1315 18434 ACO A=0 S Yes. 

1316 18437 OD FIX27 P=P-1 Move lopping pointer 

1317 18439 881 PH 1 Too nany digits nou? 

1318 1843C 31 GOYES FIX35 No. 

1319 1843E 20 FSCI? P= 0 Can’t display full FIX. 

1320 18440 3211 LCHEX 011 Perhaps we can ignore trig 0’s. 
0 

1321 18445 22 = 2 For lopping 

1322 18447 9B6 ADC X Exponent>11? 

1323 1844A AY GOYES FSCI Yes. MUST display SCI. 

1324 1844C AFS C=B W No. Will knock off tring 0’s. 

1325 1844F AFS FIX35 B=C W Copy new mantissa 

1326 18452 948 7A=0 = S Exponent negative? 

1327 18455 DO GOYES FIX55 No. 

1328 18457 BFS FIX40 BSR Loop to shift in leading 0’s 

1329 18458 OD P=P-1 And nove lopping pointer. 

1330 1845C B34 A=A+1 x Increrient exponent. 

1331 1845F 57F GONC FIX40 Go if need nore zeros. 

1332 18462 04 FIX55 SETHEX 

1333 18464 AID B=B-1 WP Trailing F’s 

1334 18467 20 P= 0 

1335 18469 A88 B=A P Lonib of exponent 

1336 1846C BE4 ASR B Hinib of exponent 

1337 1846F 908 7A=0 =P Hinib=0? 

1338 18472 80 GOYES FIxX60 Yes 

1339 18474 WA LCHEX A No. =1 

1340 18477 AO1 B=B+C  P DP position. 
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1341 1847A AFO FIX60 A=0 W 
1342 1847D A?C A=RA-1 W F’s for exponent 
19¥A3 18480 20 TORSCI P= 0 Encode in ascil 
1344 18482 A84 A=B P Dp pointer to a 
1345 18485 AO7 D=D+D P Set carry if STD-fixed frit 
1346 18488 BF? DSR W 
1347 18488 BF7 DSR W 
1348 1848— BF? DSR W Restore avreris 
1349 18491 BF1 BSL W Position first digit for output 
1350 18494 5F1 GONC =  TORS1O Go if not STD-fixed 
1351 18497 949 7B=0) — § Leading zero? 
1352 1849A D2 GOYES TORS17 Yes. ODP is next. 
1353 1849C WE LCHEX E 
1354 1849F B02 C=C-A P 
1355 184A2 80D0 P=C 0 Point at digit past DP. 
1356 184RA6 WF LCHEX F 
1357 18489 905 BHC OP Blank? 
1358 184AC 60 GOYES TORSOS No. 
1353 184AE DO A=0 A 
1360 18480 CC A=A-1 A Suppress DP. 
1361 184B2 20 TOASOS P= 0 
1362 18484 ACS TOAS1O C=B S Get current digit 
1363 184B7 B45 B=B+1  $§ Done with mantissa? 
1364 184BR 4F1 GOC TORS20 Yes 
1365 184BD #3 LCHEX 3 No. 
1366 184(O 812 CSLC Create ascii digit 
136? 184€3 7030 TOASIS GOSUB STKCHR Qutput digit 
1368 184C7 BF1 TOASI7 BSL W Shift in next digit 
1369 184CR AOC A=A-1  P At dp? 
1370 184CD 56E GONC TOAS1O No 
1371 184D0 31£2 LCASC \.\ Yes 
1372 18404 BFS BSR W So won’t sl extra digit 
1373 184D7 4BE GOC TORS15 Bet 
1374 184DR B44 TORS20 A=At1 S$ Any exponent? 
1375 184DD 400 RTNC No 
1376 184E0 3154 LCASC §=\E\ Yes 
1377 184E4 7C10 GOSUB =STKCHR Write “E" 
1378 184E8 AAC A=A-1 § 
1379 184EB 948 7A=0 8 Exponent sign positive? 
1380 184EE AO GOYES TOAS3O Yes 
1381 184FO 31D2 LCASC = \-\ 
1382 184F4 7(00 GOSUB STKCHR No, write out sign 
1383 184F8 AF& TOAS30 B=A W Put exponent where mantissa was 
1384 184FB AFO A=0 W 
1385 184FE A?C A=A-1 WW F’s far exponent 
1386 18501 45C Got TORS1? Write out exponent. B.E.T. 
138? ae 


1388 
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1389 STITLE STKCHR - Add character to stack 
1390 SII II II IIIT IIIS SII IIS OSS SO IOS SIS SSI I IIIS IIS IIIS ISSO SSAA IIA 
1391 JOO TOI TITAS TO TTS OOS IOS ITO IOI IO TT 
1392 aK 
1393 ** Nare:(S) STKCHR - Add a Character to a Stack Iten 
1394 ** Narie: STKCH+ - Add a Character to a Stack Iten 
1395 ae 
1396 *% Category:  MTHUTL 
1397 x 
1398 ** Purpose: 
1399 aA Decrenents stack pointer, checking av men to be sure 
1400 ak enough room exists. Character C(B) is then written 
1401 ak to menory. STKCH+ 1s sane except doesn’t nove stack 
1402 ae pointer first. 
1403 RS 
1404 kk Entry: 
1405 ats C(B)=Character to be appended to stack 
1406 ak D(A)=(AVMENS ) 
1407 aR D1 points to stack 
1408 wk 
1409 at Exit: 
1410 aa Exits to MFERR with eNEN error if not enough roon 
1411 ak D1 points to new stack character 
1412 aR Carry clear. 
1413 ah 
1414 ** Calls: None 
1415 aA 
1416 Rk Uses....... 
1417 *% Inclusive: D1 
1418 ae 
1419 ** Stk lvls: 0 
1420 = 
1421 &k History: 
1422 a 
1423 ae Date Prograriner Modification 
1424 RK ann wen ewww een ee ene ere nnn nnn nen nnn nen nnn nen eee ne 
1425 xk 07/20/82 «B.S. Updated docunentation 
kX 
ae JRO IO III II III III TIT IIS IIIT IIIT III IIIS IOS I SII SIO III IOS IISA S A. 
4428 JOO IOI I II SITIO TOSI ISIS IIS STIS TOSI ITS IIIS IIA AS: 


1429 18504 1€1 =STKCHR 01=01- 2 
1430 18507 137 =STKCH+ CD1EX 


1431 1850A 8B3 7C<D OA 

1432 1850D 71 GOYES STKC10 

1433 1850F 137 CDIEX 

1434 18512 14D DAT1=C B 

1435 18515 03 RTNCC 

1436 x. : 

1437 xe 

1438 *  (C(A) is added to A(A). This is then subtracted fron 
1439 x (AVMEME) and if this is past (AVMENS) then junps to 
1440 x MEMERR else returns 


1441 18517 CA CHKNEN A=A+C A 
1442 18519 7031 GOSUB GETAVN D1=AVE, D=AVNS 
1443 18510 E2 C=C€-R A 
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1444 1851F 8BF 
1445 18522 00 
1446 18524 6B5A 
1447 

1448 

1449 18528 8000 


00 
1450 1852E 8C00 

00 
1451 


*C>=D A 
RTNYES 


STKC10 GOTO MEMER) 
x 


k. 
=EXPEX} GOLONG =expexc 


=popnth GOLONG =POPNTH 
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1452 STITLE CKINFO - Set up device info 
1453 JOO OIC TOK 
1454 JOU OOOO RTT TOOK 
1455 ae 
1456 KK Nane:(S) CKINFO - Check Handler Infornation 
1457 : Nane:(S) CKINF- - Specify DISP Stnt & Set Handler Info 
1458 
1459 ** Category:  EXCUTL 
1460 a 
1461 ** Purpose: 
1462 ak Guarantees that info in STMTRO,STMTR1 is correct for 
1463 ah the statenent that is being executed. 
1464 ak 
1465 &® Entry: 
1466 KR P=0, HEXMODE 
1467 ak 
1468 RK Exit: 
1469 ak P=0,Carry clear 
1470 RR 
1471 Rk Calls: POLL 
1472 aK 
1473 ak Uses....... 
1474 kk Exclusive: A, C 
1475 Aa Inclusive: A,B8,C,0,FUNCDO, FUNCD1, FUNCRO, FUNCR1, STMTRO 
1476 
1477 kK Stk lvls: <4 
1478 aK 
1479 ** NOTE: 
1480 . Function RAM 1s NOT preserved through CKINFO!!! 
1481 x 
1482 ae If MLFFLG is not clear, MLFFLG,STMTRO and STMTR1 are 
1483 ae updated 
1484 ak 
1485 Ak Detail: 
1486 ak RAM utilization: 
1487 RRO ween enn nee ---- 
1488 ak Pos/Width EOLLEN (Nunber of nibs) 
1489 ak | | 
1490 ak Handler | | Char¥1 
1491 ak | | | | 
1492 ak Staterent| | | | Char#2 
1493 = Type| lt | 
1494 kk 1 | | If [| Char#3 
1495 Rk OMLFFLG { | | fio tol 
1496 aK ttl | | | | | Reserved for polled 
1497 aK vvy Vv vv vVWwoy handlers 
1498 RNS ° (Scobeecktede tee Secteecsl oes Stelewe dete ncck eee 
14993 RR 144] 5 | 5S [1f2 42 I2 | 14 | 
1500 Re eels Are a pa 
1501 kk ss ot 
1502 Kk | | 
1503 aK STHTRO STMTR1 
1504 a 
1505 ak If MLFFLG is clear then routine returns quickly 
1506 ak otherwise a handler address and other infornation 
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1507 aR is set up to transfer information to the device 
1508 aK which 1S appropriate for the statenent. The states 
1509 aR are coded as follous: 
1510 a 
1511 x MLFFLG 0 --> Inforration okay 
1512 x F --> Infornation not reliable 
1513 ax 
1514 a Statenent type © --> DISP 
1515 ti 1 --> PRINT 
1516 a 2-F --> POLL for setup 
1517 be 2 --> OUTPUT 
1518 alas 3 --> PLOT 
1519 ae 4-F --> Reserved 
1520 a 
1521 ** History: 
1522 xx 
1523 xk Date Progranner Modification 
1524 KK nee ene nna e eee ee teen nn nn nnn ene e nee eee nnn ene nn nee ene 
1525 ke 11/09/82 NZ. Updated docurentation 
ka 
iS JUICER 
1528 JUICES ICCC COC COT IK 
1529 JE UGS OCICS OT CCR ITI K 
1530 JUG IOUS OO OTK 
1531 ak 
1532 *k Nane:(S) pPRTIS - PRINTER IS handler poll 
1533 an 
1534 *k Category: POLL 
1535 iy 
1536 ** Type: POLL 
1537 7 
1538 ** Purpose: 
1539 ae Set up for the PRINT statenent and return the address 
1540 ak of a handler for the print itens. 
1541 ak 
1542 *k Should poll be "Handled" (return with XM=0)?: 
1543 ae YES 
1544 ak 
1545 *k Meaning of "Handling" Poll (what does code do if handled?): 
1546 Bx A handler for the PRINT staterent has been provided and 
1547 &k its address returned. 
1548 ae 
1549 ** Entry conditions for handler (registers, ST, RAN, etc.): 
1550 Carry clear 
1551 a B[A] = Poll nuriber. 
1552 a HEX rode. 
1553 a P=0, 
1554 = 
1555 4* Norrial exit conditions from handler if handled (ST, RAH, 
1556 ** registers, etc.): 
1597 a Carry clear 
1558 ax A(A) 1s the address of the PRINT handler 
1559 i HEX rode. 
1560 ae KM=0, 


1561 aK 
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1562 ** Nornal exit conditions fron handler if not handled (ST, RAM, 
1563 ** registers, etc.): 

1564 x Carry clear (POLL only). 

1565 * HEX node. 

1566 AK xM=1. 

1567 ax 

1568 ** Error exit conditions fron handler (POLL only): 

1569 RK Not applicable 

1570 am 

1571 ** Available subroutine levels: 

1572 Rx 4 

1573 is 

1574 *k NOTE: 

1575 ak This poll is issued in the CKINFO routine which is in 
1576 a the process of setting up statenent scratch to handle 
1577 aK a PRINT/PLIST statenents output. 

1578 aR 

1579 ** What registers/RAM may be used if handled?: 

1580 ae Must not alter D1 or any status bits or any R registers 
1581 xs Function scratch 1s available 

1582 xx 

1583 ** What registers/RAM may be used if not handled?: 

1584 tas A-D, DO, Di, P 

1585 ak 

1586 xk What registers/RAN nay be used if error exit (POLL only)?: 
1587 aK Not applicable 

1588 a% 

1589 ** Special nenory/pointer considerations (are pointers funny?): 
1590 ¥* Normal nenory configuration 

1591 a 

1592 %* Envisioned application(s): 

1593 ak Extend PRINT/PLIST commands to handle unknown 

1594 a destination devices (specifically HPIL devices) 

1595 ial 

1596 ** History: 

1597 ak 

1598 Rx Date Prograriner Modification 

1599 aaa aa aa aaa alae iaattatataatel 
1600 eK 41/09/82 NZ. Added docunentation 

1601 as 10/17/83 B.S. Updated docunentation 

a FRI IIR II TIT IIIA IIS II TITS SIS ISS I IS III II SSS STI II ISIS STS III ISIS IN 
1604 JI III III OT III III IIS III IIIS IIIIIS SOT IIS SIS IS SI ISIS IIS 
1605 JI IOI IO III ITI OST IIIS SITS IIIT II ISI SI SII III SIS ISI IIS SSI IA 
1606 SI IRA ISI II IDI I III III IOS III III III ITI ISI I III IIIS II SII I IIIS SS ISIS: 
1607 ax 

1608 . Nane:(S) pPRICL - PRINT class statenent handler poll 

1609 

1610 ** Category: POLL 

1611 ak 

1612 ** Type: POLL 

1613 on 

1614 ** Purpose: 

1615 2% Set up a handler for a statenent type not recognized 


1616 ae by the nainfrane. 
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1617 aK 
1618 *k Should poll be "Handled" (return with XM=0)?: 
1613 ak Yes 
1620 RK 
1621 ** Heaning of "Handling" Poll (what does code do if handled?): 
1622 x The statenent type has been recognized and statenent 
1623 ax scratch has been set up in accordance mith CKINFO 
1624 a specifications for the specified type of statement. 
1625 xe 
1626 ** Entry conditions for handler (registers, ST, RAN, etc.): 
1627 ae Carry clear 
1628 kx B[A) = Poll number. 
1629 ax HEX mode. 
16% ae First nib of STMTRO is statenent type 
1631 wok P=0, 
1632 AK 
1633 ** Nornal exit conditions fron handler if handled (ST, RAN, 
1634 *x registers, etc. ): 
1635 ae Carry clear 
1636 ax HEX node. 
1637 ak XN=0, 
1638 . STMTRO,STMNTR1 set according to CKINFO specifications 
1639 x 
1640 kk Nornal exit conditions fron handler if not handled (ST, RAN, 
1641 ** registers, etc. ): 
1642 ae Carry clear 
1643 gig HEX node. 
1644 oe xXM=1, 
1645 a 
1646 ** Error exit conditions from handler (POLL only): 
1647 xe Not applicable 
1648 a 
1649 ** Available subroutine levels: 
1650 am 4 
1651 aii 
1652 x* NOTE: 
1653 ‘ Function scratch 1s available 
1654 ax SCRTCH, SNAPBF, TRFMBF, LDCSPC 
1655 ae 
1656 xx What registers/RAM may be used 1f handled?: 
1657 x Statenent scratch should be set by poll handler 
1658 aa A-D, DO, P 
1659 x 
1660 %* What registers/RAM may be used if not handled?: 
1661 a A-D, DO, D1, P 
1662 e 
1663 ** What registers/RAN may be used 1f error exit?: 
1664 oe Not applicable 
1665 os 
1666 ** Special nenory/pointer considerations (are pointers funny’): 
166? ai No special canciderations 
1668 ex 
1669 ** Envisioned application(s): 
1670 on Allows adding new keywords in the sane class as DISP 


1671 a and PRINT. 
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1672 
1673 
1674 
1676 
1676 
167? 
1678 
1679 
1680 
1681 
1682 
1683 


1684 
1685 
1686 
1687 


1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 


1697 


1698 
1699 


1700 


1701 
1702 
1703 
1704 
12705 
1706 
1707 
1208 
1709 
1710 
1711 
1712 
1713 


1714 
1715 
1716 
171? 


1718 


18534 
18538 


1853F 
18542 
18545 
18547 


1854E 
18551 
18554 
18556 
18559 
1855) 
18560 
18563 
18565 


1856A 


1856F 
18572 


18579 
18580 
18584 


18587 
1858A 
1858C 
1858F 


18591 
18594 
18597 


18590 
1859F 
185AR2 
185A4 


185AB 
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kk 

** History: 

kh 

aa Date Progranmner 
PR) cece: eee sete 
ak 11/09/82 NZ. 

*k 10/18/83 B.S. 


xk 
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Modification 


Added docunentation 
Updated docurientation 


FOTO ROO OTTO TTT IK 
FOI TOTO IOI OI TTT IK 


31FO 
1FOO 
000 
14D 
136 
06 
1B00 
000 
14E 
90A 
63 
BBE 
1542 
ROE 
503 
J CKINO3 
0000 

0 

4DOA 

0 

AFA 

343A 

E71 

1B00 CKINOS 
000 

1588 


=CKINF- 
CKINF+ 


=CKINFO 


184 


144 
07 CKIN1O 
134 


03 
Kk 


x 


ROE  CKIN2O 
513 

8E00 

00 

FO 

831 

BO 

343A 

E74 

DA 


LC (2) 
D1=(5) =MLFFLG 
DATI=C 6B 
CDOEX 
RSTK=C 
DO=(5) =MLFFLG 
C=DATO B 

*c=0) =P 

GOYES CKINIO 
CSR x 
DATO=C XS 
C=C-1 P 

GONC CKIN20 
NIBHEX 39 
CON(5) =DPOS 


NIBHEX 4D0A0 

C W 

(5) =DPART2 
DO=(5) (=STNTRO)+6 
DATO=A 12 

DO=DO- 5 


DATO=C A 
C=RSTK 
bo=C 
RTNCC 


C=C-1 P 
GONC CKIN3O 
GOSUBL =POLL 


CON(2) 
?XM=O 
GOYES 
LC (5) 


=pPRTIS 


CKIN25 
=DPART2 


A=C A 


(DISPt)*16+#F 


Save DO on RSTK 


Read Multiline Function FLlaG 
Is everything okay? 
Yes, then return 
Get statenent type 
Clear Multiline Function Flag 
DISP statenent? 
No, look for other stnt types 
LC (10) 

DPOS/WIDTH pointer 


EOL string = CR/LF (length=2) 


Nove to A 


Point to POS/WIDTH pointer 


Write POS/WIDTH address and 
EQL string 

Move pointer back to 
Fornat/Handler address 


Pop off original DO 
Restore DO 
Return with carry clear 


PRINT statenent? 
No, then continue search 
Poll all ROMS for PRINT handler 


Process nunber for POLL 
Was poll handled? 

Yes, then okay 

No, then use DPART2 
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1719 *Handler now in ACA) 

1720 185AD 1B00 CKIN25 DO=(5) (=EOLLEN)-5 Position to read into A[15-5]} 
000 

1721 185B4 15EB C=DATO 12 

1722 185B8 3400 LC(5) =PPOS Print position/width address 
000 

1723 185BF AFE ACEX WwW 

1724 185C2 66BF GOTO  CKINOS Set info into nenory 

1725 x. 

1726 185C6 CKINX 

1727 * At this point all known statenent types have been handled. 

1728 * We now do a poll to see if any other type of statenent of 

1729 * printer staternent class called this routine and would like a 

17% * chance to set up a handler. 

1731 185C6 800 GOSUBL =POLL 
00 

1732 185CC £0 CON(2) =pPRTCL Print Class statenent poll 

1733 185CE 831 ?XN=0 

1734 18501 98 GOYES CKIN1O Return fron CKINFO...handled 

1735 * Not handled...default to DISP statenent 

1736 18503 5F8 GONC = CKINO3 

1737 x. 


1738 


xe 
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1739 STITLE DSP$0O - DISPS$ function 
1740 SII I IIIT TIT RTI II ISITE I III ISOS SI IID II ASS ISIS IIIS ISI IS: 
1741 SOIT ITT TOT TTT TTT TT TT IK 
1742 Ae 
1743 ne Nane:(S) DSP$00 - Create String of Readable Characters 
1744 
1745 ** Category:  DSPUTL 
1746 ak 
1747 *% Purpose: 
1748 sig Adds a string to stack containing all readable chars 
1749 = in display buffer. 
1750 ae 
1751 ** Entry: 
1782 ak P = 0 
1783 ak D1 points to top of stack 
1754 aR SO set inplies append CR and RIN when done. 
1755 a SO clear implies no CR on end and jurp to EXPR when 
1756 aK done. 
1757 ak 
1758 RX Exit: 
1759 as P = 0 
1760 ak D1 points to new string on top of stack 
1761 ae If Return(SO) set then CR will have been appended 
1762 ak Exits to EXPR if SO clear. 
1763 ae 
1764 ** Calls: STKCHR , ADHEAD 
1765 als 
1766 BP USCS ia sieve 
1767 *k Exclusive: R1,01,A(A),8(W),C(14-0), D(A) 
1768 ** Inclusive: R1,D1,A(A), BCH), CCW), DCA) 
1769 a 
1770 ** Stk lvls: 3 
1771 aK 
1772 ** Detail: 
1773 aR Exanines display buffer and copys all "unprotected" 
1774 RA characters into a string on the tath stack. If SO 
1775 ak is set then a CR is appended following the last char 
1776 a in the string. fA standard string header is attached 
1777 me with D1 pointing to it. If SO is clear then the 
1778 aS routine will jump to EXPR to continue expression 
1779 Re execute instead of returning. 
1780 re 
1781 ** History: 
1782 a 
1783 EA Date Progranner Modification 
1784 RR wwe wenn cee n wenn meen enn n nnn n nnn nn nner nee ncrcescens 
1785 a 07/20/82 B.S. Updated docunentation 
ieee SII III III I IIIS SI STIS ITI SST IS SSIS III II ISIS IIS I IIIS ISIS II IIS IIS IA 
1788 SII II ITI TT TDR TTI TT TIT RTE LITA I TSI III IAI AISI SI IIIA SISA AN 
1789 18506 00 NIBHEX 00 
1790 18508 840 =DSP$ ST=0 Return Don’t return when done 
1791 185DB 136 =DSP$00 CDOEX 
1792 185DE 06 RSTK=C Save 0 
1793 185€0 133 ADIEX 
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1794 
1795 
1796 
1797 


1798 
1799 


1800 
1801 
1802 


1803 
1804 


1805 
1806 
180? 
1808 
1809 
1810 
1811 
1842 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
182? 
1828 
1829 


185E3 131 D1=A 

185E6 76A0 GOSUB d=avs+ 

185EAR 1B00 DO=(5) (=DSPNSK)+12 
000 

185F1 1565 C=DATO A 

185F5 1AOO DO=(4) =DSPBFS 
00 

185FB 7A20 GOSUB DSP$30 

185FF 461 coc DSP$10 

18602 1RO0 DO=(4) =DSPMSK 
00 

18608 1565 C=DATO A 

1860C 1AOO DO=(4) (=DSPBFS)+2*48 
00 

18612 7310 GOSUB DSP$30 

18616 860 DSP$10 ?7ST=0 Return 

18619 AO GOYES DSP$20 

1861B 3100 LCHEX OD 

1861F 71EE GOSUB STKCHR 

18623 07 DSP$20 C=RSTK 

18625 6360 GOTO = BF2530 

18629 31F2 DSP$30 LC(2) 47 

1862D AF5 B=C W 

18630 14—  DSP$40 C=DATO B 

18633 161 DO=D0+ 2 

18636 396A 7C=0) «iB 

18639 00 RTNYES 

1863B A55 B=B+B A 

1863E 460 COC DSP$50 

18641 7FBE GOSUB STKCHR 

18645 A6D DSP$5O B=B-1 B 

18648 57€ GONC § DSP$40 

1864B 03 RTNCC 
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4:21 an 
Page 43 


Fri Dec 30, 1983 


Copy stack pointer to C 

Save stack ptr in Ri 
D(A)=(AVMNENS ) 

Point to dsply nask (1st 48 bits) 


Read in 48 bits 
Start of display buffer 


Process first 48 characters 
If null found then finish up 
Point to dsply nask(2nd 48 bits) 


Read in 48 bits 
Point to second half of display 


Process second 48 characters 


Carriage return 
Append CR 


Append string header 


Copy bitnask to B(M) 
Count to B(B) 
Read a byte 
Skip past that byte 
Is it a null byte? 
Yes, then return innediately 
Check for readable/unreadable 
Skip output if unreadable 
Stack character 
Decrenent count 
Loop back until done 
Clear carry indicates 
nornial termination 
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1830 STITLE GETAVN - Get (AVNENE), (AVMEavail nen ptrs 
1831 JOU OS SII TT TTT TST TITS TTT IT 
1832 JOIST ITI TTDI III III I III III IIIS III TI III SSIS IIIS. 
1833 a 
1834 ** Nane:(S) GETAVM - Get Available nenory linits 
1835 ae 
1836 ** Category:  PTRUTL 
1837 ta 
1838 *x Purpose: 
1839 Reads (AVMENE) into C & D1 and (AVMENS) into D(A) 
1849 
1841 ak Entry: 
1842 a 
1843 ak Exit: 
1844 RK D(A) = (RVMENS) 
1845 ak C(A),01 = (AVNENE) 
1846 ak 
1847 *k Calls: D=AVNS 
1848 ah 
1849 ek Uses....... 
1850 ** Inclusive: C(A),B(A), D1 
1851 ak 
1852 *k Stk lvls: 1 
1853 ak 
1854 ** History: 
1855 se 
1856 ax Date Progranner Modification 
1857 BR ewe n ween wwe e eee cence ncn enema nme ewe n nn nn cee nnennee 
1858 ap 10/18/83 B.S. Updated docunentation 
‘oan JORIS UICC SOT TTS IIIS ISS I ISI STS 
1861 JOIST TTT TTT TT 
1862 JOO II TIS TIO III STS IT ISIS IIA ISS ISIS IISSS ISI SIS IISS SIS: 
1863 FOI OO I IASI TTI TAIT IIIS ISIS IIS II III IIIS ISN. 
1864 aK 
1865 *k Nane:(S) DI=AVE - Set D1 to (AVNENE) 
1866 am 
1867 ** Category:  PTRUTL 
1868 AK 
1869 ** Purpose: 
1870 aR Reads (AVMENE) into D1 (and C(A)) 
1871 a 
1872 ae Eritry: 
1873 = 
1874 Rk Exit: 
1875 aS D1,C(A) = (AVNENE) 
1876 ak 
1877 aX Calls: None 
1878 a 
1879 RK Uses....... 
1880 &k Inclusive: C(A),D1 
1881 ak 
1882 ** Stk lvls: 0 
1883 x 


1884 ** History: 
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1885 ae 
1886 ses Date Progranrer Modification 
1887 RK nnn mene ee mene ern tren n ere erent een errno nn ns ence 
1888 ek 10/18/83 B.S. Added Docunentation 
1889 a 
1890 J IIS III TI IIA ISI IT III IIR IITA I ITI II III SS SSSI IS IIIS 


1891 

1892 1864D 7240 

1893 18651 1F0O 
000 

1894 18658 147 

1895 1865B 135 

1896 1865E 03 

189? 

1898 


FOR ITO TI TTT TR TTT TTI 


=GETAVM GOSUB d=avrs 
=D1=AVE D1=(5) =RVMENE 


D1=@D1 C=DAT1 A 
D1=C 
RTNCC 
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1899 STITLE BF2STK - Buffer to stack 
1900 JUS II IOI ISOS OTITIS TTT IT STIS SST TSI 
1901 $US IO OI III SOTO IIS OTT SII IA 
1902 ax 
1903 &* Warie:(S) BF2STK - Buffer To Stack 
1904 &* Nane: BF2ST+ - Buffer To Stack 
1905 Rx 
1906 kx Category: MTHSTK 
1907 ak 
1908 ** Purpose: 
1909 ax Pushes a string buffer onto math stack 
1910 aK 
1911 ek Entry: 
1912 k P = 
1913 ax SO = 0 ---> GOTO EXPR when done (don’t return) 
1914 x SO = 1 ---> Return when done 
1915 ak BF2ST+ pre-clears SO causing a GOTO EXPR when done 
1916 aK D1 points to stack 
1917 a DO should be PC if SO clear for proper function rtn 
1918 ax C(R) should point to buffer which is a string of 
1919 ak bytes terminated by a FF byte. 
1920 :™ 
: 1921 tk Exit: 
1922 af P = 0 
1923 aK D1 reflects new stack pointer 
1924 aX DO unchanged 
1925 - 
1926 ** Calls: STKCHR , ADHEAD, D=AVMS 
192? ax 
1928 RE S06 sic ccc: 
1929 ** Inclusive: A(A),B(A),C(A),D(A),R1, DO, D1 
19% ae 
1931 * Stk lvls: 14 
1932 aX 
1933 ** Detail: 
1934 ies Buffer is terninated by an FF byte. 
1935 es Pushes a buffer onto stack a character at a tine 
1936 x* and junps to MEMERR if nenory overflows. The result 
1937 &k is a string iten on stack with proper header set up. 
1938 ty If SO is clear the routine assunes that a function 
1939 a 1s ending returns directly to EXPR to continue 
1940 a expression evaluation. 
1941 x 
1942 *X History: 
1943 aX 
1944 BR Date Progranmer Modification 
1945 RE p2oee ete Bee Secsteen Soe e ae soke chee eee cee eee ee cele 
1946 Rk 10/19/82 B.S. Updated docurentation 
1947 a 
1948 JU IOI ITO ISI TOOTS OST IIIS TIS I II IK 
1949 JO IOI ICO IOI ICIS CCCI CII TOT TI IR IIR I 
1950 18660 840 =BF2ST+ ST=0 Return Don’t return (goto EXPR) 
1951 18663 136 =BF2STK CDOEX 
1952 18666 DS B=C A Save DO 


1953 18668 133 RDIEX 
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1954 1866B 7120 GOSUB d=avs+ Save stack start 
1955 D(A)=(AVNENS) for STKCHR 
1956 1866F 131 DI=R Restore stack pointer 
1957 18672 14A8  BF2S10 A=DATO B Read character 
1958 18675 Dé C=A A Make a copy 
1959 18677 B64 A=A+1 B Is it an FF byte? 
1960 1867A 4C0 GOC BF2S20 Yes, then done 
1961 1867D 738E GOSUB STKCHR No, put char on stack 
1962 18681 161 DO=D0+ 2 Move to next character 
1963 18684 SDE GONC BF2S10 (B.E<T..) 
1964 1868? D9 BF2S20 C=B A 
1965 18689 134 BF2S30 DO=C Restore DO 
1966 1868C 6A2B adhead GOTO ADHEAD Put string header on stack 
1967 and finish up 
1968 a 
1969 ae 


1970 18690 101 d=avs+ R1I=A 
1971 18693 8C0O0 d=avrs GOLONG =D=AVMS 
00 
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1972 STITLE INPUT - Statenent execution 
1973 FI IIIS III IIE LIRA I TTI IDAISTDII IDI IIIS IOS III STI SS SOS SI SSSI SSS SIS. 
1974 FOOT ISO JOU TT TTT TOTTI TTI TIO 
1975 ax 
1976 ** Nane: INPUT - INPUT statenent execution 
1977 ae 
1978 **k Category: STEXEC 
1979 aK 
1980 ** Purpose: 
1981 an Inplenents INPUT statenent 
1982 aR 
1983 ** Entry: 
1984 we (PCADDR) points to statenent length 
1985 ak 
1986 Ak Exit: 
1987 ae Exits through NXTSTN 
1988 aR 
1989 ** Algorithn: 
1990 ax INPUT: 
1991 xR If pronpt not specified then use default prompt 
1992 ae Else if default input not specified then uses null 
1993 = string for default input 
1994 ak Send prompt to display followed by default input and 
1995 a position cursor to start of default input. 
1996 xk INPO4S: 
1997 xe Initialize command stack pointer 
1998 - If ATTN key has been pressed then 
1999 ak go to INPSTP 
2000 a Collapse nath stack 
2001 ak Call Character Editor (CHEDIT) 
2002 ax If irmediate execute key terninated CHEDIT then 
2003 ns go to IEXKEY 
2004 ar Jurp to handle terminating key 
2005 a ATTN --> INPATN 
2006 aR CONT --> INPEND 
2007 ae uP --> INPUP 
2008 aK DOWN --> INPDUN 
2009 xx TOP --> INPTOP 
2010 as BOTTOM --> INPTOP 
2011 xk CMDS --> INPBOT 
2012 xx OFF --> INPOFF 
2013 = otherwise ... 
2014 AS Send cursor far right, CR/LF to display 
2015 xm Edit input line into connand stack 
2016 ae Check if enough available nenory 
2017 ah Move input text onto rath stack 
2018 a Initialize buffer pointer and length fields on stack 
2019 wk Update (AVNEME) to protect this information on stack 
2020 KX Skip proript and default input (if any) and point to 
2021 a variable list in statenent 
2022 ax If this is really a LINPUT statenent then 
2023 am Jurp to continue processing that statenent 
2024 ak Save start of variable nane pointer for TRACE 
2025 x Evaluate destination expression 


2026 x Deternine if destination is string or numeric 
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2027 ax Store destination address 
2028 xx Save prograr counter 
2029 kk Pop destination iten off stack 
2030 RK Point to buffer 
2031 ak Call expression parser 
2032 ax If numeric destination then 
2033 KR goto NINP10 
2034 ax SINP10: 
2035 7 If expression parsed was nuneric then 
2036 aK goto Un"dSt 
2037 ak If expression wasn’t followed by a corima or eol then 
2038 ax goto Un'"dSt 
2039 ak SINP20: 
2040 aa Compile an expression terminator byte 
2041 KK Restore pointer to cornma or EOL 
2042 xx Update input strearn pointer 
2043 ax Nove code buffer onto nath stack 
2044 xk Point expression PC and stack pointer to interface 
2045 ax of code and available nenory 
2046 ak Call expression execute and store result in 
2047 RS destination variable 
2048 x Pop value off math stack 
2049 ax Skip down stack to find input string pointer 
2050 aS Nove buffer pointer past corina or CR 
2051 *k — SINP40: 
2052 es Read next progran byte 
2053 zh If this byte 1s a corna then 
2054 she if not just past corna then 
2055 7 give error "Too feu inputs" 
2056 aR go to INP310 
2057 AR else loop back for next variable 
2058 Me else 
2059 Kx if not at end of input strean then 
2060 aK give error "Too many inputs" 
2061 we go to INP310 
2062 ae else done with statenent 
2063 ak 
2064 kk NINP10: 
2065 ax If valid nuneric expression found and 
2066 xh it 1s followed by corina or CR then 
2067 a go to SINP20 
2068 ax Give error "Numeric Input" 
2069 aK Goto INP310 
2070 ak 
2071 am Un"dSt: 
2072 ax Get limits of available renory 
2073 xk Calculate current position in buffer 
2074 sae Skip leading blanks in unquoted string 
2075 oF Output characters until comma or CR found 
2076 es Erase any trailing blanks 
2077 - Append a string header to string on stack 
2078 ae Store string into variable 
2079 ax Pop string off stack 
2080 ie Go to SINP46 


2081 RS 
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2082 ae INP310: 
2083 a Display error message and repronpt 
2084 aa go to INPO45 
2085 aA 
2086 *k History: 
2087 kk 
2088 aE Date Progranner Modification 
2089 RR womens eww er erews cee m een rec erence mes mwn meen ene cer nee 
2090 e 10/18/83 B.S. Updated Docunentation 
ee FIO UTI OO 
2093 JOIST III I OOS OS IOS TTI IIIS SSS IS IIIS SSSOS SI SAS IAN 
2094 18699 0000 REL(5) =INPTDC Deconpile address 
0 
2095 1869E 0000 REL(5) =INPUTP Parse address 
0 
2096 186A3 =INPUT 
2097 186A3 7974 GOSUB STMTST Point to start of pronpt(if any) 
2098 186R7 133 ADIEX 
2099 186AA 130 DO=A Move pointer to DO 
2100 186AD 103 R3=A Save possible prorpt start 
2101 186B0 5SF3 GONC INPO20 
2102 186B3 161 INPO10 DO=D04+ 2 
2103 18686 14A R=DATO B Read next byte 
2104 186B9 366 ARC OB Is it closing quote? 
2105 186BC 7F GOYES INPO10 No, then loop back 
2106 186BE 161 DO=D0+ 2 Skip closing quote 
2107 186C1 14A A=DATO B Read next byte 
2108 186C4 3100 LC(2) =tSENIC 
2109 186C8 962 *A=C OB Is it a setiicolon? 
2110 186CB 92 GOYES INPOX Yes, then use null default input 
2111 186CD 775€ GOSUB EXPEX) Evaluate default input expression 
2112 186D1 8FOO GOSBVL =REVPOP Call REV$ and POP1S 
000 
2113 186D8 1C€2 D1=D1- 3 
2114 186DB £4 A=A+1 A 
2115 186DD £4 A=A+1 A Add 2 to length to sinulate 
2116 CR on end 
2117 186DF 1513 DAT1=A X Create a pseudo buffer 
2118 186£3 172 Di=Di+ 3 
2119 186E6 137 CDIEX Copy buffer pointer to C 
2120 186E9 7213 GOSUB GPRMPT Get pronpt 
2121 186ED 400 GOC INPO40 (B.E.T.) Save buffer ptr in INBS 
2122 x- 
2123 ke 
2124 186FO 7£13 INPO2O GOSUB GDEFPR Get default pronpt 
2125 186F4 3402 INPO30 LC(5) =ZERBUF 
B81 
2126 186FB 7F13 INPO40 GOSUB REPRON Repronpt for input 
2127 186FF 8FOO INPO45 GOSBVL =CNDIST Initialize cornnand stack pointer 
000 
2128 18706 8FOO INPOSO GOSBVL =CK"ON" Has RTTN been pressed? 
000 
2129 18700 460 GOC INPO70 No, then okay 
2130 18710 6BE3 GOTG INPSTP Yes, then halt statenent 





Saturn Asserbler 


2131 
2132 
2133 
2134 


2135 
2136 
2137 
2138 
2139 
2140 


2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 


2160 
2161 
2162 
2163 
2164 
2165 
2166 


2167 
2168 


2169 
2170 
2171 
clive 


2173 


2174 
2175 
2176 
2177 
2178 
2179 


18714 7538 INPO7O GOSUB 


18718 8E00 
00 

1871E 460 

18721 6F34 


18725 
18725 8E00 
00 
1872B 00 
1872D F83 
18730 00 
18732 BD3 
18735 00 
18737 C53 
1873A 00 
1873C D063 
1873F 00 
18741 273 
18744 00 
18746 923 
18749 00 
1874B 423 
1874E 00 
18750 9F3 
18753 00 
18755 712 
18759 8FOO 
000 


18760 D2 
18762 303 
18765 7EAD 
18769 D6 
1876B 8E76 
40 
18771 3260 
0 
18776 1563 
1877A 734 
1877E 7E93 
18782 5B0 
18785 8EOO 
00 
1878B 171 
1878E 


1878E 3100 
18732 965 
18735 60 
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x. 
x 


x 
x 


INPO8O 


* DO Points past text in buffer. 


INP150 


INP200 


collap 
GOSUBL =CHEDIT 


GOC INPO80 
GOTO  INPIEX 


GOSUBL =FINDA j 


CON(2) =kcATIN 
REL(3) INPATN 
CON(2) =kcCONT 
REL(3) INPEND 
CON(2) =kcUP 
REL(3) INPUP 
CON(2) =kcDOWN 
REL(3) INPDUN 
CON(2) =kcTOP 
REL(3) INPTOP 
CON(2) =kcBOT 
REL(3) INPBOT 
CON(2) =kcLAST 
REL(3) INPBOT 
CON(2) =kcOFF 
REL(3) INPOFF 
CON(2) 0 

GOSUB FINLIN 
GOSBVL =NAKEBF 


C=0 A 
uC(1) 3 
GOSUB = CHKNEN 
C=A A 
GOSUBL noved3 


iC(3) 6 


DATI=C X 

GOSUB AVE=D1 
GOSUB STNTST 
GONC INP200 
GOSUBL =EXPSKP 


D1i=D1+ 2 
LC(2)  =tLINPT 


BRC OB 
GOYES INP205 
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Collapse math stack 
Let user input line 


Skip if not IEX key 


Attention 

CONTinue key 

Cursor up key 

Cursor doun key 

Cursor top key 

Cursor botton key 
Command stack key 

(Sane as cursor botton) 


Off key (or 10 minute tineout) 


Otherwise 


A(R)=Len+3 


Need 3 nore nibbles 


C(A)=Length to nove 
Copy buffer onto stack 


(including length) 
Point to first byte of buffer 


Current buffer position is 6 
Update AVMENE to D1 pointer 
Check for a user supplied pronpt 
Not found then don’t skip it 
Skip expression 


Skip senicolon 
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2180 
2181 
2182 
2183 
2184 
2185 


2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 


2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 


18797 6454 


18798 

1879B 137 

1879E 8FO 
000 


187A5 7F 2D 


187A9 ACY 
187AC 855 
187AF 80DF 
187B3 89C 
187B6 AO 
187B8 89D 
187BB 50 
187BD 845 
187C0 20 
18702 7074 
187C6 136 
18709 1B00 
000 
187D0 144 
18703 775D 
18707 7412 
187DB 7900 
1870F 875 
187E2 03 
187E4 6AEO 
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ke 
INP205 


INP210 


* Now 


S/N710 


GOTO 


CDIEX 


LINPT+ 


GOSBVL =SETTRC 


GOSUB 


C=B 
ST=1 
P=C 
?Pp= 
GOYES 
?Ps 
GOYES 
ST=0 
p= 
GOSUB 
CDOEX 
00=(5) 


DATO=C 
GOSUB 
GOSUB 
GOSUB 
*ST=1 
GOYES 
GOTO 


EXPEX) 


=STHTDO 


A 

popnth 
GETPOS 
EXCPAR 
S/NFlg 
SINP10 
NINP10 
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Save start of dest for TRACE 


Execute expression 


test 1f string or nuneric 
S 


Is it a C? 


Is it a D0? 


Store desination address 


Save progran PC 
Get rid of iten 
Point A(A) into buffer, set carry 


Is it string? 
Yes, then parse as string 
No, then parse as nuneric 
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2209 EJECT 
2210 JE SII III III III III I IIIS IS IRIS ISS III IIIS SISTA 
9211 JOIST III STII IT III IIT IIIS IIIS S ISI III II IST IS 
2212 ae 
2213 ** Narie:(S) EXCPAR - Execution Tine Expression Parse 
2214 aE 
2215 *k Category:  EXCUTL 
2216 aX 
2217 *k Purpose: 
2218 aR Parses an expression in the constraints of an 
2219 ak executing statenent. 
2220 ak 
2221 *k Entry: 
2222 ae Carry clear: D1 contains pointer to input strean 
2223 &k Carry set: A(A) contains pointer to input strean 
2224 ah The pointer to the input strean 1s also used as 
2225 aK a starting point for the parse stack. 
2226 aK (AVMNENS) is start of output buffer 
2227 ae P = 0 
2228 = 
2229 4% Exit: 
2230 ak P = 0 
2231 an (AVMENE) = D1 on entry 
2232 ak See exit conditions for EXPPAR 
2233 aK 
2234 *k Calls: AVE=D1, EXPP10 
2235 aA 
22 36 RR USOSi 5 vials 
2237 ** Exclusive: C,00,01,R3, (AVMENE) 
2238 kk Inclusive: A,8,C,0,00,D1,R0,R1,R3 
2239 xe 
2240 tk Stk lvls: 3 
2241 ak 
2242 ** History: 
2243 at 
2244 oe Date Progranner Modification 
2245 RK enn mn ee cme e cree eer c see ce erence w rere ecerene 
2246 ke 41/01/83 «B.S. Added docunentation 
2247 Ae 
2248 JOR III I TL ILI SIE III III IIIT IS III ISIS ISI III ISIS SS 
2249 SII IT IT IIT TITS III III III TIT ITS SII III III RIA I IK 
2250 187E8 1B00 =EXCPAR DO=(5) =AVMEMS 
000 
2251 187EF 146 C=DATO A Get start of buffer pointer 
2252 187F2 134 DO=C Init output pointer 
2253 187F5 108 R3=C Save (AVMENS) in R3 
2254 187F8 7CB3 GOSUB AVE=D1 D1, AVMEME=(D1) 
2255 187FC D? D=C A D(R)=Expr parse stack pointer 
2256 187FE 550 GONC EXCP10 Parse at A(R) or DI 
2257 18801 131 D1=A Start parsing at A(A) 
2258 18804 847 EXCP10 ST=0 7? Not parsing left hand side of "=" 
2259 18807 8DO0 GOVLNG =EXPP10 Parse expression 
000 
2260 - 


2261 
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2262 1880£ 6851 Un"dSt GOTO  UN"DST 
2263 a= 
2264 a. 
2265 18812 873 SINP10 ?ST=1 NunExp Valid String expression found? 
2266 18815 9F GOYES Un'"dSt No, then parse as unquoted string 
2267 18817 3100 LC(2) =tCOnnA 
2268 1881B 962 7A=C OB Is a conna next? 
2269 1881E AO GOYES SINP2O Yes, then okay 
2270 18820 300 LC(4)  =tEOL 
2271 18823 966 7RAC OB Is it at EOL? 
2272 18826 8E GOYES Un"dSt No, then parse as unquoted string 
2273 18828 8FOO SINP20 GOSBVL =OUT1TK Output terninator byte 
00% 
2274 1882F 8FOO GOSBVL =RESPTR Restore pointer to "," or EOL 
000 
2275 k A(R)=RESPTR value 
2276 18836 771E GOSUB D1=AVE 
2277 1883A EA A=A-C A Calculate updated pointer 
2278 1883C 1513 DAT1=A X Write out updated pointer 
2279 18840 7683 GOSUB = AVMNOV Move buffer onto stack 
2280 18844 137 CDIEX 
2281 18847 134 DO=C Code starts here too 
: 2282 1884A 135 Di=C Start stack pointer here 
‘ 2283 18840 1C4 D1=D1- 5 Start stack pointer here 
2284 18850 111 A=R1 Recall code length 
2285 18853 141 DAT1=A A Length of code to pop off later 
2286 & The following "fancy GOSUB" 1s needed to keep the PC in 
2287 x STMTDO properly maintained throughout possible user 
2288 E defined function execution 
2289 18856 34(6 LC(5) =SINP30 Return to SINPX after... 
881 
22% 1885) 06 =EX-STC RSTK=C 
2291 1885F 3400 LC(S5) =STORE 
000 
2292 18866 06 RSTK=C ... returning to STORE after... 
2293 18868 6279 EXPR}1 GOTO EXPRj ...doing EXPR (evaluate expr) 
2294 Be 
2295 Ke 
2296 1886C 7EBC =SINP30 GOSUB popnth Pop value off stack 
2297 18870 143 A=DAT1 A 
2298 18873 137 CDIEX 
2299 18876 C2 C=C+A A 
2300 18878 134 DO=C 
2301 18878 164 DO=D0+ 5 Skip DO input buffer 
2302 1887E DO A=0 A 
2303 18880 1523 A=DATO X Read input pointer 
2304 18884 £4 A=A+1 A 
2305 18886 E4 A=A+1 A 
236 18888 1503 DATO=A X Nove buffer ptr past conna or CR 
2307 1888C 136 CDOEX 
2308 1888F CA A=A+C A Calculate current position 
2309 18891 1B00 SINP40 DO=(5) =AVNENE 
000 
2310 18898 144 DATO=C A Set AVMENE back to buffer pointer 


2311 18898 131 Di=A D1 points into buffer 
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2312 1889E 1C1 Di=D1- 2 Nove D1 back to corina or CR 
2313 188A1 1A00 DO=(4) =STNTDO 

00 
2314 188A7 146 C=DATO A Read progran PC 
2315 188AA 134 DO=C DO= progran PC 
2316 188AD 14f A=DATO B Read in progran byte 
2317 188B0 161 DO=D0+ 2 Skip past progran byte 
2318 188B3 3100 LC(2)  =tCOMNA Conna token 
2319 188B7 966 PARC OB Is there a corna token next? 
2320 188BA 35 GOYES INP300 No, then nust be at end 
2321 * Now need to find a corira in input line 
2322 188BC 148 A=DAT1 B 
2323 188BF 31C2 LCASC \,\ 
2324 188C3 966 RAC OB Corina next char? 
2325 188C6 E2 GOYES ER:CONM No, then error 
2326 188C8 136 CDOEX Move progran pointer to C(A) 
2327 188CB 62DE GOTO INP210 Loop back for next variable 
2328 a 
2329 oe 
2330 188CF 870 NINP1O ?ST=1 InvalE Valid expression found? 
2331 188D2 B2 GOYES ER:NUM No, then error 
2332 18804 863 ?S8T=0 = NunExp Nurieric expression found? 
2333 188D7 62 GOYES €R:NUM No, then error 
2334 188D9 3100 LC(2) =tCOMMA Corina token 
2335 188DD 962 *A=C OB Is 1t a corna token? 
2336 188E0 RO GOYES NINP2O Yes, then okay 
2337 188E2 30 LC(1) =tEOL EOL token 
2338 188E5 966 RHC OB Is it an EOL token? 
2339 188E8 51 GOYES ER:NUN No, then error 
2340 188EAR 6D3F pines GOTO SINP2O Fall anto string input code 
2341 - 
2342 es 
2343 188EE 8000 =inexit GOLONG =NXtstn 
00 
2344 t. 
2345 
2346 188F4 3300 ER:COM LC(4) -=elO0FI Too Few Inputs error 
00 
2347 188FA 442 GOC INP310 (B.E.T.) 
2348 Rm 
2349 h 
2350 188FD 8FOO ER:NUM GOSBVL =RESPTR Back up input pointer 
000 
2351 18904 330 LC(4) =eNUMIN Nureric input error 
00 
2352 1890A 541 GONC INP310 (B.E.T.) 
2353 
2354 - 
2355 a 
2356 18900 14B INP300 A=DAT1 B Read next char in input line 
2357 18910 31D0 LCHEX OD Carriage return 
2358 18914 962 *A=C OB Is it a carriage return? 
2359 18917 7D GOYES ainexit Yes, done with INPUT statenent 
2360 18919 3300 LC(4) =eTQ0nI 


00 
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2361 
2362 


2363 
2364 
2365 
2366 
2367 
2368 


2369 
2370 
2371 
2372 
2373 


2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 


2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 


2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 


1891F 
18922 


189293 
1892C 
1892F 
18932 
18935 
18938 


1893E 
18941 
18945 
18948 
18948 


18952 
18954 
18957 
1895A 
18950 


1895F 
18966 


1896A 


1896E 
18972 
18975 
18978 


18978 


18982 
18985 
18988 
18988 
1898E 
18990 
18993 
18996 
18999 
18990 
189A0 
189A2 
189A6 
189A9 
189AB 
189AD 
189B1 


109 
1800 
000 
142 
133 
175 
102 
133 
1ROO 
00 
140 
7BD41 
137 
490 
3451 
B81 
DA 
11A 
135 
119 
2A 


8FOO 
000 
6890 


7FOC 


7070 
131 
134 
109 


8F00 
000 
136 
137 
136 
137 
DS 
135 
14A 
161 
3102 
962 
D1 
3100 
962 
41 
D6 
7358 
3102 


* 
x 
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INP 310 


INP 320 


UN" DST 


UN" DIO 


UN" B20 


R1=C 
bo=(5) 


R=DATO 
ADIEX 
01=D1¢ 
R2=A 
ADIEX 
DO=(4) 


DATO=A 
GOSUB 

CD1IEX 

Coc 

LC (5) 


R=C 
C=R2 
b1=C 
C=R1 
p= 


GOSBVL 
GOTO 


GOSUB 


GOSUB 
DI=A 
bo=C 
R1=C 


GOSBVL 


CDOEX 
CD1EX 
CDOEX 
CD1EX 
B=C 
bi=C 
A=DATO 
DO=D0+ 
LCASC 
*R=C 
GOYES 
LCHEX 
7A=C 
GOYES 
C=A 
GOSUB 
LCASC 


=AVNEME 
A 
6 


=INBS 


A 
STATST 


INP320 
=DEFPRM 


A 


=MFERR* 
INPO45 


GETAVK 
GETPOS 


=GNXTCR 


nwo wD 


\,\ 

B 
UN"D30 
oD 

B 
UN"'D30 
A 
STKCHR 
ae 
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Save error nuri 


Advance ptr to start of buffer 
Save pointer into buffer 


Point INBS to start of buffer 
Check for user supplied pronpt 
C(A)=Pronpt string address 

Is this a prompt? Yes, then okay 
No, then use default prompt 


Copy prompt address to A(A) 


D1 points into buffer 
C(A)=Error nunber 
Parse error 

Store ERRN 

No ERRN disp 

ON ERROR 

Repronpt for input 


D(A)=(AVMENS) = (for STKCHR) 
01=(AVNENE) 

A(A)=Ptr into buf, C(R)=(AVMENE) 
DO points into buffer 


Start of output string 
(for ADKEAD) 
Skip leading blanks 


Save address of last output byte 


Read next byte 
Skip past byte 


Is it a cotina? 
Yes, then exit loop 


Is it a CR? 

Yes, then exit loop 
C(B)=Char to add to stack 
Add char to stack 
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2411 18985 966 7AHC OB Is it a blank? 
2412 189B8 3D GOYES UN"D10 No, then reneriber address 
2413 189BR 580 GONC = UN"D20 (B.E.T.) Yes, then just continue 
2414 - 
2415 x 
2416 189BD 136 UN"D3 CDOEX C(A)=Points past corna or CR 
2417 18900 1B00 DO=(5) =AVMENE 
000 
2418 189C7 142 A=DATO A 
2419 189CA 130 DO=A =A 
2420 189CD E2 C=C-A A 
2421 189CF 1543 DATO=C X Update buffer pointer 
2422 18903 D9 C=8 A Recall last non-blank char addr 
2423 18905 135 d1=C Di=last nonblank 
2424 18908 850 ST=1 Return Return fron ADHEAD 
2425 18908 ?DAC GOSUB adhead Append string header 
2426 189DF 7601 GOSUB DiISTOR Store this string into variable 
2427 189E3 7748 GOSUB popnth Pop string off stack 
2428 189E7 7400 GOSUB GETPOS Set ACR) to point into buffer 
2429 189EB 65AE GOTO  SINP40 Pretend string exprress has been 
2430 executed 
2431 a 
2432 i 
2433 * RETURNS WITH AC(A)=Pointer into buffer. C(A),01=(AVMENE) 
2434 189EF DO GETPOS A=0 A 
2435 189F1 1533 A=DAT1 X 
2436 189F5 137 CD1EX 
2437 189F8 CA A=A+C A 
2438 189FA 135 Di =C 
2439 189FD 02 RTNSC 
2440 k- 
2441 K- 
2442 189FF 10B GPRMPT R3=C R3=buffer pointer 
2443 18A02 7A11 GOSUB STMTST 
2444 18R06 137 CD1EX C(A)=Pronpt pointer 
2445 (if supplied by user) 
2446 18A09 128 CR3EX C(A)=buffer pointer 
2447 R3=Pronpt pointer 
2448 18ROC 400 RTNC Return 1f user supplied pronpt 
2449 18ROF 128 CR3EX 
2450 18R12 3451 GDEFPR LC(5) =DEFPRM 
B81 
2451 18A19 128 CR3EX 
2452 18AIC O01 RTN 
2453 
2454 x. 
2455 OO FORT RRO OI IO IO OOOO IG IR IOI 
2456 FOO OOOO TORII III RO IOI I 
2457 = 
2458 ** Nane:(S) REPROM - Repronpt for input 
2459 AS 
2460 ** Category:  EXCUTL 
2461 ** 
2462 ** Purpose: 
2463 ns Sends buffer to display following prompt and positions 
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2464 aR cursor to start of line. 

2465 ak 

2466 ak Entry: 

2467 ah C(A) = Pointer to buffer to be displayed 

2468 ae R3(A) = Pointer to quoted string that is pronpt 

2469 ak 

2470 ae Exit: 

2471 aK Exits via DONNA 

2472 a 

2473 ** Calls: DONNA 

2474 ak 

2475 ER USES... ces 

2476 ** Inclusive: A,B,C,0,D0,D1,R3 

2477 ah 

2478 ** Stk lvls: 4 

2479 aR 

2480 ** History: 

2481 aR 

2482 ae Date Progranner Modification 

2483 BR meen enn e nen ee nee e penne on nen enn nnn enn nner e een 

2484 ek 11/01/83 B.S. Added docunentation 

2485 aK 

2486 JOO III OO TGC TIO SI III STITT IITA 

2487 FOI TORII TT Or 

2488 18A1E 1FOO =REPROM D1=(5) =INBS 
000 

2489 18A25 145 DATI=C A Save buffer pointer in INBS 

2490 18A28 11B C=R3 

2491 18A2B AFO A=O OW 

2492 18A2E DA A=C A 

2493 18A3 103 R3=A Position cursor at begin of 

2494 default input 

2495 x Note: R3(S) nust=0 for call to DONNA! 

2496 18R33 8DO0 GOVLNG =DONNA Send pronpt and default input to 
000 

2497 display 


2498 os 
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2499 EJECT 
2600 I III III I ITI I TTI III I TTS ISIS ITI ISI III ISIS IIIS SIS IS III IIS ITS IK 
2501 JORIS IIT TTI II RTOS II IIIT IIA IIA III ISI IT ISH 
2502 ae 
2503 ** Nane:(S) FINLIN - Finish line in display/video 
2504 RK 
2505 ** Category:  DSPUTL 
2506 ak 
2507 ** Purpose: 
2508 ze Finishes line in display and video by tioving the 
2509 AX cursor to the far right then sending CR/LF wath 
2510 ax no delay. 
2511 ae 
2512 kk Entry: 
2513 aK P = 0 
2514 xk 
2515 ** Exit: 
2516 xk Carry clear 
2517 a P = 0 
2518 ak 
2519 xk Calls: CURSFR, CRLF OF 
2520 ak 
2521 RA USES. oe 2 ees 
2522 *k Inclusive: A(W),B(W),C(W), DCW), D0,D1,ST(11-0) 
2523 ae 
2524 ** Stk lvls: 4 
2525 Be 
2526 ** Algorithn: 
2527 a Unprotect last display buffer character 
2528 ne (This 1s needed to guarantee that even if the entire 
2529 ae display line is protected the cursor can be moved 
2530 a past the last character on the video rionitor line 
2531 aK which will allow a CR/LF sent to the nonitor to 
2532 AX position the cursor past the last video line of 
2533 an this display line.) 
2534 aR Send cursor far right. 
2535 me Restore protection bit of last character. 
2536 aA Send replace cursor, CR/LF with no delay. 
2537 = Return with carry clear. 
2538 a 
2539 ** History: 
2540 xk 
2541 Ee Date Prograrner Modification 
2542 a2” Geioce, “araucectus Betseeoece cues seuet os eesuae ee ees 
2543 xe 11/01/83 B.S. Added docunentation 
2544 = 
2545 OO RIO OOO ROI III IIE 
2546 PeCe UT eCT eC Tt seteeeteteertesettecsestttttetitttrtetertttte tees t. 
2547 18A3A 1800 =FINLIN DO=(5) =DSPMSK 
000 
2548 18A41 14E C=DATO B 
2549 18A44 OA ST=C 
2550 18R46 840 ST=0 0 Unprotect last display buf char 
2551 18R49 OB CSTEX 
2552 18A4B 140 DATO=C B 


Saturn Assenbler 


Ver, 3.39/Rev. 2306 INPUT - Statenent execution 


2553 
2554 


2555 
2556 
2557 


2558 
2559 
2560 
2561 


2562 
2563 
2564 


2565 
2566 


2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
25392 
2593 
2594 
2595 
2596 
2597 
2598 


2599 
2600 


18R4E 8E00 
00 

18A54 1A00 
00 


18A5A 09 
18ASC 14C 
18A5F 8FOO 
000 
18A66 03 


18R68 8D00 
000 


18AGF 8FOO 

000 
18A76 70CF 
18A7A 8FOO 

000 
18A81 172 
18A84 137 


1888? 747F 
18A8B 7F 8F 
18A8F 667C 


18A93 71DF 
18A97 BO4 
18A9R 4B) 
18A9D 986 
18AAO 6D 

18AR2 1590 
18RR6 SFC 


18ARS 7BBF 
18AAD CC 
18ARF 6DEF 


18AB3 71BF 
18AB? DR 
18AB9 S8E 


18ABC 7191 
18RCO 7088 
18AC4 850 
18AC? 701B 
18ACB 8FOO 
000 
18AD2 3102 
18AD6 DS 


x 
x 


x 
k 


x 
x 


x 
x 


x 
* 


x 
x 
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cndini 


INPBOT 
INPB10 


INPUP 


INPU1O 
INPU2O 


INPDWN 


INPTOP 


INPRTN 


GOSUBL 
bO=(4) 


C=ST 
DATO=C 
GOSBVL 


RTNCC 


GOV LNG 


GOSBVL 


GOSUB 
GOSBVL 


D1=01+4+ 
CDIEX 


GOSUB 
GOSUB 
GOTO 


GOSUB 
A=A+1 
GOC 
PAC 
GOYES 
DRT1=A 
GONC 


GOSUB 
A=R-1 
GOTO 


GOSUB 
A=C 
GONC 


GOSUB 
GOSUB 
ST=1 
GOSUB 
GOSBVL 


LC(2) 
B=C 


=CURSFR 
=DSPMSK 


B 
=CRLFOF 


=CMDINI 


=CNDIST 


FINLIN 
=CMDFND 


3 


GPRMPT 
REPROM 
INPO5O 


cndini 
p 
INPB10 
P 
INPB10 
1 
INPB10 


cndini 
A 
INPU10 


cndini 
R 
INPU2O 


atnclr 
BD1=AVE 
Return 
DSP$OO 
=POP1S 


\\ 
A 
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Cursor off,Rep cur,CRLF no delay 


Finish current line 
Find buffer 


C points to start of buffer 


Get pronpt 
Repronpt for input 
Redo INPUT statenent 


Read current and max cornand 
Increnent connand nurber 
Watch for overflow (do a NOP) 
Greater than nax conmand? 
Yes, then don’t change it 
Change connand nunber 
(B.E.T.) 


Read current and wax connand 


Read current and max cortnand 


Set conrand nunber to max 
(B.E.T.) 


Clear attention flag 


Return fron DSP$00 
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2601 18AD8 CC INPA10 A=A-1 A 
2602 18ADA CC A=A-1 A Subtract 2(CR is ignored) 
2603 18ADC 8A8 7A=0 =A Is 1t a null buffer? 
2604 18ADF D1 GOYES INPSTP Yes, then abort INPUT statenent 
2605 18AE1 171 Di=D1+ 2 
2606 18ARE4 14F C=DAT1 B 
2607 18RE7 961 *B=C =«=B 
2608 18AEA EE GOYES INPA1O 
2609 18AEC 8EOO GOSUBL =CURSFL Move cursor to far left 

00 
2610 18AF2 8E00 GOSUBL =-LINE Clear remainder of line 

00 
2611 18AF8 6BIC GOTO INPO?70 Redo INPUT statenent 
2612 a. 
2613 a 
2614 18AFC 7A3F INPSTP GOSUB FINLIN 
2615 18800 8E00 GOSUBL =NOSCRL 

00 
2616 18806 85E ST=1 _=NoCont 
2617 18B09 6A40 GOTO INPO10 
2618 a 
2619 x. 
2620 18BOD 792F =INPEND GOSUB FINLIN 
2621 18811 6C0D : GOTO = inexit 
2622 r- 
2623 x 
2624 18B15 22F3 =DEFPRM NIBASC \"? "\ Default pronpt 

0222 
2625 x. 
2626 SOI IOI II IC IO OTTO TT II TTI TIT III ITI IIT 
2627 JOO ITI OT COI OOO I III ITI ITT IK 
2628 aK 
2629 ** Nane:(S) ZERBUF - Looks Like a Zero Length Buffer 
26 30 ak 
2631 *% Category: STEXEC 
2632 aA 
2633 ** Purpose: 
2634 a This looks like a zero length buffer. 
2635 aK 
2636 ** Entry: 
2637 ak Do not enter 
2638 ak 
2639 ** History: 
2640 ak 
2641 aX Date Progranner Modification 
2642 RR nn nee nH nnn en nen ne ren nn ne en nee enn nen eee nen eee 
2643 xx 41/09/83 B.S. Added docunentation 
2644 ak 
2645 JOO OI EIS IIIS ISI IG IIS EG TT TIE 
2646 JUG IG ISO EI IG UII GORI ITT IK 
2647 a 
2648 1881) 000 CON(3) 0 
2649 18820 =ZERBUF 
2650 *- 

rk 


2651 
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2652 STITLE STMTST - Get start of statenent 
2653 RI IRR ISI IIIA II IIIT TTI SISA SI ITI I ISI IIIS ISIS IIIS ASOT SI SII II II SS ITA. 
2654 RIKI II II III III II II ITI III III IIISI SSIS IID IIIS IIIS SS SGI IIS III SII SIS. 
2655 ah 
2656 ** Nare: STMTST - Get address of start of statenent 
2657 aA 
2658 *% Category:  EXCUTL 
2659 AX 
2660 &* Purpose: 
2661 Bx Calculates address of start of statenent by looking at 
2662 ax PCADDR. 
2663 x 
2664 &% Entry: 
2665 x P = 0 
2666 aR 
2667 &% Exit: 
2668 ae P = 0 
2669 aK B(B) = Statenent token 
2670 aK A(B) = Byte following statenent token 
2671 aK D1 points past statenent token or past zero byte 
2672 kk if it follous statenent token 
2673 ak Carry set iff byte following statenent token is zero 
2674 ad 
2675 ** Calls: D1=@D1 
2676 = 
2677 BE USCS. sis 0is se 
2678 xx Inclusive: A(B),B(A),C(A), D1 
2679 x 
2680 ** Stk lvls: 1 
2681 2 
2682 *k History: 
2683 ax 
2684 ak Date Progranner Modification 
2685 aaa a elaine tetetaiaatatatatetatateetatatatatatatatal 
2686 ex 10/18/83 B.S. Added Docunentation 
2687 aX 
2688 201 SOO SI II III OIO ST SIO SO IIIT ISI SI III III OI ISIS II ISAK 
2689 JO] IS SI III TIS ISIS IIIS TOSI SOS I IIIS III III SIS III IIIA 
2690 18B20 1FOO =STHTST 01=(5) =PCADDR 
000 
2691 18827 7D2B GOSUB 01=@)1 
2692 18B2B 171 Di=DI+ 2 Skip staterent length 
2693 18B2E 148 A=DAT1 B Read staterient token 
26394 18831 D8 B=A A Save statenent token in B 
2695 18833 171 D1I=D1+ 2 Point at staterent start 
2696 18B36 148 A=DAT1 B Read possible zero byte 
2697 18B39 171 D1=Di+ 2 Point at passible opening quote 
2698 18B3C 14F C=DAT1 B Read possible opening quote 
2699 18B3F 968 "A=O—OB Is there a user-pronpt? 
2700 18B42 00 RTNYES Yes, then return with carry set 
2701 18844 1C1 D1=Di- 2 No, then nove pointer back 
2702 18847 03 RTNCC Return with carry set 


2703 
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2704 
2705 JO IOI IIIS ISSO TO CIOS OT TOTS III ISI ISI I ISIS ITH 
2706 JU IO IO OT IIIS IOS IO TIS STIS TTS STII IIIS IIS ISOS I ISTH 
2707 Re 
2708 ** Nane:(S) INPOFF - Restart statenent after DSLEEP 
2709 ax 
2710 ** Category:  EXCUTL 
2711 ak 
2712 ** Purpose: 
2713 aS Allows a statenent to set itself to be restarted 
2714 ak if continue 1s pressed, then turns off machine. 
2715 ae ATTN key mill send nachine back to BASIC interpreter 
2716 aK which will suspend execution. 
2717 i 
2718 ** Entry: 
2719 ak P = 9 
2720 ax 
2721 ek Exit: 
2722 =e Exits through MFERRS 
2723 ak 
2724 tk Calls: FINLIN, DSLEEP, NFER42, MFERRS 
2725 a 
2726 kK Stk lvls: 6 
2727 RX 
2728 ** History: 
2723 ax 
27H ae Date Progratiner Modification 
2731 RK meee w ene cece erent cece rec c recor n mere t ence crn e re nece= 
2732 ek 11/01/83 B.S. Added docurientation 
2733 AX 
2734 JU UII OO III ISTO TIT I I SII K 
2735 FORO RII JOTI TOT OT OT TOTTI 
2736 18849 7DEE =INPOFF GOSUB FINLIN Finish display line 
2737 18B4D 8F0O GOSBVL =DSLEEP Go to sleep 
000 
2738 18B54 8FOO =INPO10 GOSBVL =NFER42 Reset CONT information 
000 
2739 18B5B 8£00 GOLONG =nferrs 
00 


2740 
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2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2743 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 


2762 
2763 
2764 
2765 
2766 
2767 


18861 
18864 
18B67 
18B6B 
18B6E 
18B70 


18873 
18877 
18B7A 


18B7D 
18B80 
18B83 
18B86 
18B88 
18B8C 
18B8F 


18B95 
18B98 
18B9C 
18B9F 
18BA2 
18BA5 


x 
* 


137 
103 
7FCE 
113 

D2 

x7 

x 

70R9 
135 
129 


134 
172 
118 
£6 
15D2 
172 
8E00 
00 
1C1 
31D0 
14D 
119 
135 
6BCB 
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EJECT 


R1=C 

GOSUB FINLIN 
A=R3 

(=0 A 
iC(1) 7? 


GOSUB = CHKNEN 
d1=C 
CRIEX 


DO=C 

01=01+ 3 

C=R3 

C=C+1 A 
DAT1=C 3 
01=01+ 3 
GOSUBL =MNOVEU3 


DI=D1- 2 
LCHEX OD 
DAT1=C B 

C=R1 

d1=C 

GOTO INP1S0 
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Fri Dec ®, 1983 


A(R) =R3(3)=Definition length + 1 nibbles 
D1 points at first character of definition 
INPIEX CDIEX 


Save pointer to first char of def 
Finish line 
Recall def len + 1 


Need 7 nore nibbles 
Have 1,need 8 total (6+2 for CR) 


Ri saves buffer ptr ptr 

C=Start of def 

DO points to start of def 

Point D1 at length field (3 nibs) 


Calculate length counting CR 
Write out length 

Di=Start of destination 

Move key def onto stack 


Point where CR needs to go 


Write out CR 

Recall where buffer ptr goes 
D1 points to buffer ptr 
Rejoin norrial code 


Saturn Assenbler 


I/O Execution Routines <831228 Fri Dec ®, 1983 4:21 an 


Ver. 3.39/Rev. 2306 D1STOR Page 65 
2768 STITLE D1STOR 
2769 JOIST I SITIO TIS ITI TIS OT ISI ISIS II IIIT ISISS IIIS OSS OSS SS ISS: 
2770 JOU ITO IIIS I SII III II III ISI IIIS IIIS SI SSSI SSIS I ISI SS AN 
2771 a 
2772 ** Nane: DISTOR - Update AVMEME and STORE into variable 
2773 am 
2774 ** Category: EXCUTL 
2775 am 
2776 ** Purpose: 
2777 ak Updates (AVMENE) to D1, reads A(W) fron top of stack 
2778 ak and calls STORE to store into variable determined 
2779 kx previously by DEST routine. 
2780 ak 
2781 xk Entry: 
2782 xe 01 points to top of math stack 
2783 ax Statement scratch contains info saved by DEST 
2784 aK 
2785 aK Exit: 
2786 ah P = 0 
2787 aK 
2788 *k Calls: AVE=D1, STORE 
2789 aR 
270 KK Uses... .50. 
2791 ** Inclusive: Sane as STORE 
2792 : 
2793 *k Stk lvls: Sane as STORE 
2794 ks 
2795 ** History: 
2796 a 
2797 ak Date Progranner Modification 
2798 6 a aan a a a a a 
2799 *k 10/18/83 B.S. Updated docunentation 
2800 tk 
2801 JOS ICIS IIIS OC IOI OT ETI TT TE EER ER 
2802 JOU UII II IIS IIIS OGIO III ITI TITS TIA TIM 
2803 18BR9 7800 =DISTOR GOSUB AVE=D1 
2804 18BAD 1537 A=DAT1 W Read top of stack 
2805 18BB1 8D00 store GOVLNG =STORE 
000 

2806 x 

x. 


2807 
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2808 STITLE AVE=D1 - Set stack pointer 
2809 SSRI RIO RRO IO JOJO RI IOI 
2810 ORI RIOT UOT OI 
2811 ah 
2812 *% Narie:(S) AVE=D1 - Update AVMENME Fron D1 or C 
2813 ** Nane:(S) AVE=C - Update AVMENE Fron 01 or C 
2814 ah 
2815 *% Category:  PTRUTL 
2816 as 
2817 ** Purpose: 
2818 ax Update AVMENE pointer to the value in D1 or C 
2819 a 
2820 *k Entry: 
2821 aR AVE=D1 : D1 


= new value for AYMEME 
2822 aR AVE=C : C(A) = 


new value for RVMENE 
2823 xx 
2824 RX Exit: 
2825 xx C(A)=D1= Value stored into AVNENE 
2826 x 
2827 *% Calls: None 
2828 xx 
2829 ke Uses....... 
2830 xk Inclusive: C(A) 
2831 an 
2832 ** Stk lvls: 0 
2833 an 
2834 xk History: 
2835 an 
2836 aR Date Progranner Modification 
2837 aX i i ah i ae ei ia, Doe tis Seca aces pk Ga ss tak ace no cu Soe mp bsnl ad itd ne 
2838 fa 10/12/82 B.S. Added docunentation 
oo JOG IOI OOO IOI TR TT 
2841 SOIC IOI OCI OIG IOC ITI IIT TIT TTTR 


2842 18BB8 137 =RAVE=D1 CDIEX 
2843 18BBB 1FOO =AVE=C 01=(5) =AVMENE 


000 
2844 18BC2 145 DATI=C A 
2845 18805 135 D1=C 
2846 18BC8 01 RTN Leave carry unchanged 
2847 Rs 


2848 x 
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2849 STITLE AVMNOV - Move buffer to stack 
2850 XIII IAI ISAT II IDI IIIT III ITT I SSRI III IIIS III IID IIS ISI ITI III SITS IA 
2351 III II III IT II III IIIT IIT TIO IIIT II SII IIIS SI IIIS IIA III III III SII I IK 
2852 aE 
2853 ** Narie: AVNNOV - Move Menory Fron AVNEMS To Before Dt 
2854 eK 
2855 ** Category: MTHSTK 
2856 aK 
2857 xk Purpose: 
2858 ae Moves wenory between AVMENS and DO to before D1, 
2859 a that 1s, onto the math stack. 
2860 xk 
2861 kk Entry: 
2862 a DO=end of source 
2863 xk Di=end of destination 
2864 ak R3=(AVNENS) 
2865 xR 
2866 xk Exit: 
2867 ak P=0 
2868 a R1=Length of buffer noved 
2869 ia 
2870 ** Calls: MOVED3, R1 
2871 a 
2872 FR SUSES cc kae 
2873 ** Inclusive: See MOVED3 
2874 ae 
2875 ** Stk lvls: 0 
2876 ss 
2877 ** History: 
2878 2S 
2879 ae Date Prograriner Modification 
2880 Rh eee m ee cee ew errs tener ewe ener nnn ene tere erro nena 
2881 ek 8610/10/82 «B.S. Updated docurentation 
2882 am 
2883 JIT IIIS TIARA I I III III IIA IIIS IK 
2884 JO I III IASI III IIIT TT ITI III IIIS ISI III III III IIS SII IIA 
2885 18BCR 132 =RVMNOV RDOEX R=End of output buffer 
2886 18BCD 118 C=R3 
288? 18BD0 130 DO=A DO=end of source (output buffer) 
2888 18BD3 EE C=A-C A C(A)=Length of buffer 
2889 18BD5 109 R1=C Save length 
2890 . D1=End of destination 
2891 18BD8 8CO0O noved3 GOLONG =MOVED3 Move buffer to top of stack 
00 
2892 ae 
* 


2893 
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2894 
2895 
2836 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 


2931 


2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2343 
2944 
2945 


18BDE 0000 
0 

18BE3 0000 
0 


18BE8 6ABA 


18BEC 137 
18BEF 108 
18BF2 775A 
18BF6 AF2 
18BF9 170 
18BFC 147 
18BFF 31FO 
18(03 1CA 
18006 7DF8 
18COR 1557 
18COE 8E00 
00 
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Fri Dec , 1983 


STITLE LINPUT - Statenent execution 


KK KAKK A KKK RAKEKK KAR KARE RR EK IKI III KER KI IKI OR III RR RIO 
FOTO TTT TTT TK 


ah 
*% Nanie: LINPUT - LINPUT statenent execution 

ah 

** Category: STEXEC 

ah 

** Purpose: 

RR Inplenents LINPUT statenent 

ah 

ae Entry: 

ah (PCADDR) points to line length before LINPUT statenent 
th 

RX Exit: 

a Exits through NXTSTM 

xk 

** Algorithn: 

he Junps to INPUT statenent 

th 

ak INPUT staternent junps back to LINPT+ after prompting 
ak and getting response fron user. 

an Takes input string, adds a string header, reverses 
ae it to get nornal stack iten 

= Evaluates destination address 

ae Stores input string into destination address 

ak Exits statenent through NXTSTN 

ak 

** History: 

ak 

ge Date Programmer Modification 

BR ete oies “tbe aeseive SaeeaactlecGccecteceteaccsncecec ses 
xk 10/18/83 B.S. Added docunentation 

ah 


FOI IR JOTI TI IIS IOI TITS TL 
KKK KKK IKI KARA IR IKK RII IIR KIKI KAI IIE IR III III RI IIT II 


=LINPUT 
a 


ae 


LINPT+ 


REL(S) =INPTDC 


REL(5) =LINPTP 

GOTO INPUT 

CDIEX 

RO=C Save start of dest expr 
GOSUB GETAVN DI=AVE, D=AVMS 

C=0 Wd Clear C(6,5) 

D1=D1+ 1 Point 2 nibs before 3 nib length 
C=DAT1 A Read buffer length 

LCHEX OF String tag 

Di=Di- 11 

GOSUB STKCH+ Check for avail nen 
DATI=C W Write out complete header 
GOSUBL =REV$ Reverse string 
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2946 


2947 
2948 
2949 
2950 
2951 


2952 
2953 
2954 
2955 
2956 


18€14 8EO 
00 


18C1R 171 
18C1D 850 
18€20 786A 
18024 118 
18C27 8FO0O 
000 
18C2E 763C 
18032 7C00 
18036 74F8 
18C3A 7B6F 
18C3E 6FAC 
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GOSUBL =XXHEAD 


D1=D1+ 2 


ST=1 
GOSUB 
C=RO 


GOSBVL =SETTRC 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOTO 


0 


adhead 


EXPR}1 
DEST+ 

popnth 
DISTOR 
inexit 


Page 69 
Rerove string header 


Throw away CR on end 
Return fron ADHEAD 

Put string header back on 
Recall start of dest expr 
Set TRACE pointer 


Get destination address 
Store destination 

Pop dest to expose string 
Store string 

Now done with statenent 
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2957 
2958 SSRI ITS RTI IAI IASI IIIS II AD II II II SII ISIS IIIS IS ISI SSIS SII SSS SS 


2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2377 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 18042 133 

2990 18C45 131 

2991 18C€48 7000 

2992 18C4C 131 

2993 18C4F 01 

2994 

2995 

2996 18C51 8D00 
000 


2997 18€58 


TORII ORT RJO I OJORIJO I TOIOT I TITIIITRIEITT IN 
ak 


** Wane: DEST+ - Preserves 01 during DEST call 
th 


** Category:  EXCUTL 

ak 

** Purpose: 

an Calls DEST but preserves D1 by saving it in A(A) 
ax 

** Entry: 

aS Sane as DEST 

aK 

AR ERIC: 

a Sane as DEST except D1 preserved 
i 


** Calls: DEST 

he 

tk Uses....... 

** Inclusive: Sane as DEST except A(A) destroyed 
ax 


&K Stk lvls: 1 
ae 


*k History: 
pe 


xe Date Progranner Modification 

ck. Gace lien, Maticueie, wabueetuoctneckspehencaseeseweneees 
xx 40/18/83 B.S. Added docunentation 

ax 


JOO IOI TOOT ETI IT ID TTT IT IIIT ITI I IN 
SOJT IIT OJ TTT TITER 


=DEST+ ADIEX 
DI=A 
GOSUB =dest 
Di=R 
RIN 


k 
zatnclr GOVLNG =ATNCLR 


END 
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-~LINE Ext - 2610 

=ADHEAD Abs 98743 #18187 - 949 1966 

RINCLR Ext - 2996 


=AVE=C = Abs = 101307 #18BBB - 2843 

sAVE=D1 Abs 101304 #18BB8 - 2842 2170 2254 2803 
AVMENE Ext - 1893 2309 2362 2417 2843 
AVMENS Ext - 2250 

sAVAMOV Abs 101322 #18BCA - 2885 2279 

B2095 Abs 97942 HI7E96 - 309° 283 86298 
BF2S10 Abs 99954 #18672 - 1957 1963 

BF2S20 Abs 99975 #18687 - 1964 1960 

BF2S30 Abs 99977 #18689 - 1965 1811 

=BF2ST+ Abs 99936 #18660 - 1950 

=BF2STK Abs 99939 #18663 - 1951 


BLANKC Ext - 633 

Blanks Abs 1 #00001 - 17, 713° 867?) 875981 
CHEDIT Ext - 2134 

CHKNEMR Abs 99607 #18517 - 1441 2164 2751 

CK"ON" Ext - 371 2128 


CKINO3 Abs 99683 #18563 - 1695 1736 
CKINOS Abs 99705 #18579 - 1700 1724 
CKINIO Abs 99722 #1858A - 1706 1690 1734 
CKIN20 Abs 99729 #18591 - 1711 1694 
CKIN2S Abs 99757 #185AD - 1720 1716 
CKIN3O Abs 99782 #1856 - 1726 1712 
CKINF+ Abs 99640 #18538 - 1683 527 
=CKINF- Abs 99636 418534 - 1682 

=CKINFO Abs 99650 #18542 - 1685 612 703 


SCLCSTR Abs 98830 #1820E 104? 
CMDIST Ext - 2127 2564 
CMHDFND Ext - 2566 
CMDINI Ext - 2561 


CMHAIO Abs 98194 H17F92 - 564 56? 
CNMAZO Abs 98204 RI7F9C - 571 389565 
CNNAIO Abs 98220 HI7FAC - 577 574 
CNHASO Abs 98230 BHI7FBE - 581 = 583 
CMMA60 Abs 98247 HI7FC7 - 588 576 


COLLAP Ext - §35 
CRLFCK Abs 97724 H17DBC - 75 658 
CRLFOF Ext - 2557 
CSLU9) Ext - 310 
CSLUP Ext - 286 
CSLUP9 Abs 97944 H17E98 - 310 360 
CSRW9} Ext - 293 380 
CSRUP Ext - 291 
CURSFL Ext - 2609 
CURSFR Ext - 2553 


D1=@D1 Abs 99928 #18658 - 1894 691 2691 

=DI=AVE Abs 99921 #18651 - 1893 2276 2595 

DI@POS Abs 98561 #18101 - 728 86 194 264 560 613 
=DISTOR Abs 101289 #18BA9 - 2803 2426 2955 

D=AVNS Ext ~ 1971 

=DEFPRN Abs 101141 #18B15 - 2624 2373 2450 

=DEST+ Abs 101442 #18042 - 2989 2197 2953 

=DISP Abs 98099 #17F33 - 494 
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DISPOS Abs 98132 #17F54 
DISP10 Abs 98135 #17F57 
DISP15 Abs 98167 #17F77 


538 531 
539 553 652 724 
551 542 585 589 


DISP1) Abs 98435 #18083 - 651 
DISP20 Abs 98170 #17F7AR - 552 
DISP30 Abs 98182 #17F86 - 559 544 
DISP50 Abs 98442 #1808A - 655 548 
DISP80 Abs 98490 #180BR - 702 657 
DISP9O Abs 98529 #180E1 - 715 708 
DISPDC Ext - 492 
DISPP Ext - 493 
DISPt Abs 0 #00000 - 11. 494 1682 
DONNA Ext - 2496 
DOSCRL Ext - 423 

=DPART2 Abs 97955 #17EA3 - 356 1699 1717 

=DPART3 Abs 98040 H17EF8 - 420 354 
DPOS Ext - 1696 
DPRT21 Abs 97974 #17EB6- 363 378 
DPRT23 Abs 98006 H17ED6 - 373 370 
DPRT25 Abs 98029 HI7EED - 380 364 372 
DSFORM Abs 98817 #18201 981 885 891 991 
DSLEEP Ext 2737 

=DSP$ Abs 99800 #18508 1790 

=DSP$0O Abs 99803 4185DB 1781 2597 
DSP$10 Abs 99862 #18616 1806 1801 
DSP$20 Abs 99875 #18623 1810 1807 
DSP$30 Abs 99881 #18629 1814 1800 1805 
DSP$40 Abs 99888 #18630 1817 1825 
DSP$50 Abs 99909 #18645 1824 1822 
DSPBFS Ext 1793 1804 
DSPCHA Ext 374 
DSPFMT Ext 1073 
DSPN20 Abs 99100 #1831C 1213 1211 
DSPNSK Ext 1797 1802 2547 2554 


ENG10 Abs 99216 #18390 1255 1256 1260 


rot bt t ft t bor t § tf t § tf fF t £ & § # t F F FF b t FF tb F | 


ENG2O Abs 99256 #18368 1270 1266 
ENG Abs 99268 #18304 1274 1276 
EOLLEN Ext 1720 
ER:COM Abs 100596 #188F4 2346 «2325 
ER:NUM Abs 100605 8#188FD - 2350 2331 2333 2339 
=EX-STC Abs 100445 #1885D 22% 
EXCP10 Abs 100356 #18804 2258 2256 
=EXCPAR Abs 100328 #187E8 2250 2203 
=EXPEK}) Abs 99624 #18528 1449 603 «=702 «2111 «2186 
EXPP10 Ext 2259 
EXPR) Abs 98779 #181DB 961 2293 
EXPR}1 Abs 100456 #18868 2293 2952 
EXPSKP Ext 2173 
Except Abs 12 #OO0OC 11 369 
Expr Ext 961 
FINDA) Ext 2140 
FINDDO Ext 540 


=FINLIN Rbs 100922 #18A3R - 2547 2158 2565 2614 2620 2736 2746 
FIX Abs 99304 #18368 - 1287 1217 
FIXI0) «=Abs 99318 #183F6 - 1292 1294 
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FIX20 Abs 99331 #18403 - 1297 1301 
FIX2? Abs 99383 #18437 - 1316 1314 
FIX35 Abs 99407 #1844F - 1325 1304 1311 1318 
FIX4 Abs 99415 #18457 - 1328 1331 
FIXS5S Abs 99426 #18462 - 1332 132? 
FIX60 Abs 99450 #1847A - 1341 1338 
FLTDH = Ext 608 
FATNUN Rbs 98830 #1820E - 1048 886 894 898 
FATPRP Abs 98785 #181E1 - 964 880 890 
FNDSOS Abs 98947 #18283 - 1087 1084 
FNDS1O Abs 98958 #1828E - 1091 1094 
FSCI Abs 99300 #183E4 - 1286 1296 1309 1323 
FSCI? Abs 99390 #1843E - 1319 1299 
FUNCRO Ext - 634 636 
FXSC1O Abs 99077 #18305 - 1205 1203 
FXSCEN Abs 99050 #182EA - 1195 1117 
GDEFPR Abs 100882 #18A12 - 2450 2124 
=GETAVN Abs 99917 H1864D - 1892 579 1442 2386 2937 
GETPOS Abs 100847 #189EF - 2434 2202 2388 2428 


GNXTCR Ext = 2393 
GPRNPT Abs 100863 #189FF - 2442 2120 2570 
INBS Ext - 2368 2488 


INPOIO Abs 100019 #18683 - 2102 2105 
INPOZO Abs 100080 H186FO - 2124 2101 
INPO30 Abs 100084 #186F4 - 2125 2110 
INPO4O0, Abs 100091 #186FB - 2126 2121 
INPO45 Abs 100095 H186FF - 2127 2383 
INPOSO Abs 100102 #18706 - 2128 2572 
INPO?O Abs 100116 #18714 - 2133 2129 2611 
INPO8O Abs 100133 #18725 - 2139 2135 
INP150 Abs 100209 #18771 - 2168 2767 
INP200 Abs 100238 #1878E - 2175 2172 
INP205 Abs 100251 #1879B - 2183 2179 
INP210 Abs 100254 #1879E - 2185 2327 
INP30O Abs 100621 #1890D - 2356 2320 
INP310 Abs 100639 #1891F - 2361 2347 2352 
INP320 Abs 100690 #18952 - 2374 2372 
INPA1O =Abs 101080 #18AD8 - 2601 2608 
INPATN Abs 101052 H18ABC - 2594 2142 
INPB10 Abs 100982 #18A76 - 2565 2577 2579 2581 
INPBOT Abs 100975 #18A6F - 2564 2152 2154 
INPDWN Abs 101033 #18AA9 - 2584 2148 
=INPEND Abs 101133 #18B0D - 2620 2144 
INPIEX Abs 101217 418861 - 2744 2136 
=INPO1O Abs 101204 #18854 - 2738 2617 
=INPOFF Abs 101193 #18849 - 2736 2156 
INPSTP Abs 101116 18AFC - 2614 2130 2604 
INPTOC Ext - 2094 2930 
INPTOP Abs 101043 #18AB3 - 2589 2150 
INPUIO Abs 101021 #18A9D - 2578 2586 
INPU2ZO Abs 101026 #18AA2 - 2580 2591 
INPUP) Abs 101011 #18A93 - 2575 2146 
=INPUT Abs 100003 #186A3 - 2096 2932 
INPUTP Ext - 2095 
InhEOL Abs 4 #00004 - 22 75 277) «6421 538551651716 
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InvalE 
LINPT + 
LINPTP 
=LINPUT 
MAKEBF 
sHEMER ) 
HFER42 
MF ERR* 
MF WROQS 
ALFFLG 
MOVED 
MOVEU3 
MAN? 
NEGEXP 
NINP1O 
NINP2O 
NOSCRL 
NXTSTN 
NXtstr 
NoCont 
NoCur 
NuniExp 
QUTITK 
=PRRT3 
PCADDR 
POLL 
POPIN 
POP1S 
POPNTH 
PPOS 
=PRINT 
PRINT# 
=PRINT* 
PRINT. 
PRINTt 
PRNIDC 
PRTP 
PUTRE3 
PUTRES 
=PUTRES 
=REPRON 
RESPTR 
RESREG 
REVS 
REVPOP 
Return 


S/N710 
S/NFlg 
SAVSTK 
SCI 
SC103 
SCIO5 
SCI10 
SCI15 


Abs 
Ros 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Rbs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 


Rbs 
Abs 
Ext 
Robs 
Abs 
Abs 
Abs 
Abs 


0 #00000 
101356 #18BEC 


101352 #18BE8 
98176 #17F 380 


98799 H181EF 
99032 #182D8 
100559 #188CF 
100586 #188ER 


14 #OOOOE 
3 #00003 
3 #00003 


98455 #18097 


98062 #17FOE 


98103 #17F 37 
98083 #17F 23 
1 #00001 


98608 #18130 
98627 #18143 
98581 #18115 
100894 #18A1E 


0 #00000 


100288 #187C0 
5 #00005 


99114 #1832A 
99116 #1832C 
99158 #18356 
99191 #18377 
99201 #18381 


Table 


PO Os Ps i Oc Os i | 


'# botpopobop tt 


18 
2935 
2931 
2932 
2159 

556 
2738 
2382 

595 
1683 
2891 
2761 

971 
1118 
23H 
2340 
2615 

688 
2343 

11 

21 

20 
2273 

688 
2690 
1713 

604 


2330 
2180 


1446 


1687 


831 
1105 
2206 
2336 


2616 
2265 


1731 
776 


461 
459 
460 


789 
779 
711 
2126 
2350 


2945 
868 


2192 
2189 


1216 
1286 
1229 
1241 
1249 
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1050 


2332 


877 


2571 


874 959 1790 1806 1950 2424 


2194 
2195 2204 


1232 
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SCI20 

SCIHX 

SCIN) 

SENDIO 
=SEND20 
SEND30 
=SENDEL 
=SENDIT 
=SENDWD 
SETTRC 
SINP10 
SINP2O 
=SINP3O 
SINP40 
SNDW9 
SNDW11 
SNDW1 7? 
SNDW19 
SNDW21 
=SNDWD+ 
STDF10 
STDF20 
STDF30 
STKC1O 
=STKCH+ 
=STKCHR 


STKLST 
STMTDO 
STMTRO 
=STNTST 
STORE 
=STRS 
STR$.5 
=S$TRSOO 
STR#O1 
STRHOS 
STR$10 
STR$30 
STR#40 
STRSCP 
STRERT 
=STR$SB 
String 
TRBOO 
TRB10 
TAB2O 
TREX 
TRB40 
TRBSO 
TABEO 
TABWRN 
TORSOS 
TORS10 
TOAS15 


Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Rbs 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 


99279 #183CF 
99285 #183D5 
9942 #182E2 
97779 #17DF3 
97786 #17DFA 
97796 #17E04 


Table 


97729 #17DC1 - 


97763 #17DE3 
97813 #17E15 


100370 #18812 
100392 #18828 
100460 #1886C 
100497 #18891 
97868 #17E4C 
97905 #17E71 
97916 #17E?C 
97923 #17E83 
97928 #17E88 
97823 HI7E1F 
99010 #18202 
99012 #182C4 
99029 #182D5 
99620 #18524 


99591 #18507 - 


99588 #18504 
98853 #18225 


101152 #18B20 


98646 #18156 
98684 #18170 
98652 #18150 
98688 #18180 
98870 #18236 
98883 #18243 
98739 #181B3 
98763 #181CB 
98696 #18188 
98636 #18140 
98633 #18149 

1 #00001 
98286 HI7FEE 
98319 #1800F 
98349 #1802) 
98359 #18037 
98376 #18048 
93394 #1805A 
98429 #180 7D 
98255 #17FCF 
99506 #184B2 
99508 #18484 
99523 #18403 


1278 
1281 
1121 
190 
194 
197 
77 
184 
259 
2185 
2265 
2273 
2296 
2309 
283 
293 
298 
301 
304 
263 
1110 
1114 
1117 
1446 
1430 
1429 
1086 
1054 
2199 
7? 
2690 
2291 
874 
885 
876 
886 
1062 
1066 
901 
956 
890 
868 
867 
19 
602 
611 
21 
627 
633 
636 
649 
592 
1361 
1362 
1367 


1245 
1283 
1108 


305 
88 
288 
584 
295 
2951 
2205 
2269 
2289 
2429 
271 
7 
278 
269 
299 


1102 
1113 
1082 
1432 

957 

581 
1367 
1058 
2313 

198 
2097 
2805 


882 
869 
884 
1052 
1063 
887 


879 
714 


546 
599 
619 

ee 
629 
646 


9 
c 


605 
1358 
1350 
1373 


1251 


645 
588 
723 


2340 


280 
274 


1120 


2943 

893 
Vaz? 
1069 


690 
2171 


624 


607 
1370 
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1262 


650 
632 


896 
1382 


728 
2370 


610 
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900 
1809 


1700 
2443 


984 
1823 


1054 
1961 
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1065 
2409 
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TOAS17 
TOAS20 
TORS 30 
TOASCI 
UN'D10 
UN"D20 
UN"D 30 
UN"DST 
USING 
Un'"dSt 
KXHEAD 
=ZERBUF 
adhead 
=atnclr 
crdini 
=collap 
d=aviis 
d=avs+ 
dest 
eIVTAB 
eNUMNIN 
eTOOFT 
eTOOn! 
expexc 
=)nexit 
kcATIN 
kcBOT 
kcCONT 
kcDOWN 
kcLAST 
kcOFF 
kcTOP 
kcUP 
nferrs 
noved3 
nonert 
oEOLC1 
oEOLLN 
oHND LR 
oPOSIT 
pPRTCL 
pPRTIS 
=popnth 
store 
tCONTiA 
tEOL 
tLINPT 
tSENIC 
tTAB 
tUSING 


Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


99527 #184C7 
99546 #184DR 
99576 #184F8 
99456 #18480 
100747 #18988 
100755 #18993 
100797 #189BD 
100714 #1896A 


100366 #1880E 


101152 #18B20 
99980 #1868C 
101457 #18C51 
100968 #18A68 
98125 #17F4D 
99987 #18693 
99984 #18690 


100590 #188EE 


101336 #18BD8 


12 #OOO0C 

11 #0000B 

1 #00001 

6 #00006 

14 #OOOOE 

15 HOOOOF 
99630 #1852E 


Table 


bo € § #£ § © 4 £ FF £ F 8 


101297 #18BB1 - 


# § fF 4 


1368 
1374 
1383 
1343 
2397 
2400 
2416 
2386 
532 
2262 
2946 
2649 
1966 
2996 
2561 
535 
1971 
1970 
2991 
594 
2351 
2346 
2360 
1449 
2343 
2141 
2151 
2143 
2147 
2153 
2155 
2149 
2145 
2739 
2891 
556 
30 
28 
26 
27 
11 
11 
1450 
2805 
543 
2270 
2177 
541 
545 
529 


1352 
1364 
1380 
1285 
2412 
2413 
2404 
2262 


2266 


2125 
2425 
2594 
2575 

539 

876 
1795 


2369 


2166 


77 
198 
728 

1732 
1714 
2201 


2267 
2337 


2108 
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1386 


2407 
2272 
2949 
2584 2589 
2133 


1892 
1954 


2621 2956 


690 


2296 2427 2954 
2318 2334 
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Input Paraneters 
Source file nane is SB&10::MS 
Listing file nane is SB/I0:TI:ML::-1 
Object file nane is SBZIO: TI:MS::-1 


141411 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Asserbler Neus 
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1 x nh Ww N N & L ttt K kK 
2 & nnn N N && L C C K K 
3 x MMH NN N 8&8 L C K K 
4 & NMnAan NNN & L C KK 
5 * Mh mM N NN &8BS L c K K 
6 k h mM N ON & & OL C ¢ K K 
7 x Nh eM N N 8&& LLLLL CCC K_ K 
8 k 
9 TITLE LOCK Module <831216.1454> 
10 18C58 ABS #18C58 
11 $I II ID I IST III IIIT TIS TI IIIT IIT II IO TIT OSI ISIS I ISAS S SISK 
12 JOIST IO SO TOS SS OSI SS SIT IT I STII IIA 
13 ax 
14 ** Nane: LOCK - LOCK Statenent Execute 
15 aK 
16 ** Category:  STEXEC 
17 ax 
18 *x Purpose: 
19 aK LOCK statenent execute. 
20 a 
21 ** Entry: 
22 ax Juriped on LOCK token. 
23 a 
24 ax EMit: 
25 x NXTSTM. 
26 ak 
27 xX Calls: EXPEXC, REVPOP 
28 re 
29 ** Algorithn: 
” ax Evaluates and pops string expression. 
31 ak If greater than 8 chars, uses first 8 chars. 
32 a* If less than 8 chars, right-pads with nulls, 
33 ue Stores result in LOCKWD. 
34 xx j 
35 XX History: 
36 kk 
3? xe Date Progranner Modification 
38 Sh. Settee. Boece ses, “eecsocesce sue cue cceaseeacoes 
39 ek 05/20/82 NM Added docunentation 
40 hk 
4} pes tee eter eetttsetetiettettetisttttettitesettitetttttttttsttttt! 
42 JI IOI OUI CISO IIS IOC COCO ICO IT TS IK 
43 18C€58 O000 REL(5) =DELAYd 
o 
44 18C5D 0000 REL(5) =STRNGP 
re) 
45 18062 7000 =LOCK GOSUB =EXPEX) Evaluate paraneter 
46 18(66 8F0O GOSBVL =REVPOP Reverse chars and POP 
000 
47 18CoD AF6 C=A W String length 
48 18C70 AFO A=0 W Roon for lockiord 
49 18073 CE C=C-1 A 
50 18075 431 COC UNLOCK Go if argunent null 
51 18078 20 P= 0 
52 18C7A 80FO CPEX 0 
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53 
54 
he) 
56 
5? 


58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
® 
91 
92 
33 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 


18C7E 8AA 
18081 40 

18C83 2F 

18C85 1531 
18€89 1FO0 

000 

18090 1517 
18094 800 
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Page 2 
7C=0 =A Expression <= 8 chars? 
GOYES LOCK10 Yes 
p= 15 No. «sill take 8 
LOCK1O A=DAT1 WP Read lockword 
UNLOCK D1=(5) =LOCKWND 
DATI=A W Write lockword 
GOTO =1nexit GOTO NXTSTN 


FOOTIE T OK 
FOO III OOS OTT TTR TK 
aw 


XX Nane:  LOCKD? - Password Processing 
kk 
xx Category: CONFIG 
a 
** Purpose: 
aA Require user to unlock machine. 
ik 
k* Entry: 
ae None. 
ke 
RX Exit 
ae Carry set if machine is unlocked: 
ax a) fLINOF was already cleared, 
a b) password was null, or 
x c) user entered correct password. 
= In all above cases, =flTNOF is cleared upon exit. 
ai Carry clear if user failed to unlock machine. 
’ P=0, 
A 
** Calls: CHEDIT, OSP$00, FINLIN, REVPOP, SFLAG?, SFLACC, 
a atnclr, bf2dsp, crifnd, r<rst2, rst<r. 
we 
BP USES sininee 
a A,B,C,D,P,00,01,RO,R3, ST 
oe 
** Stk lvls: 4 
ae 
kx Detail: 
ae Password processing nust be done as part of deep sleep 
wie wakeup. If on-tiner and polling failed to clear 
is =f1TNOF, password processing 1s called. 
tok 
** Algorithn: 
a If turnoff flag clear goto 2. 
ea If passuord=null goto 1. 
Pronpt for password. 
AX CHEDIT. 
oa If returned with ENDLN and readable chars in display 
£x natch password goto 1. 
me Return CC. 
kx 4: Clear =f1TNOF. 
xX 22: RTNSC. 
dk 


** History: 
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10? 
108 
103 
110 
141 
112 
113 
114 
115 
116 
117 


118 
119 


120 
121 
122 
123 
124 


125 
126 
12? 


128 
129 
130 
131 


132 
133 
134 
135 
136 
137 
138 


139 
140 


141 
142 
143 
144 
145 


146 
14? 
148 
143 
150 


18098 
18C9A 
18C9C 
18CRO 


18CR6 
18CA9 


18CB0 
18CB4 
18CB7 
18CB9 
18CBD 


18CC3 
18CC5 
18CC5 


18CCB 
18CD1 
18CD8 
18CDE 


18CE4 
18CE? 
18CEB 
18CEE 
18CFO 
18CF4 
18CF8 


18CFE 
18D 


18D07 
18D0A 
18000 
18D10 
18014 


1801B 
18D1D 
18D1F 
18D21 
18D23 


20 
04 
3100 
8E00 
00 
5C1 
1FOO 
000 
1537 
97C 
£0 
3100 
800 
00 
02 


8E00 
00 
8E00 
00 
1F85 
081 
8E00 
00 
8E00 
00 
5B0 
3100 
962 
21 
7000 
7000 
8E00 
00 
03 
1FOO 
000 
14? 
135 
850 
7000 
8FOO 
000 
D6 
CE 
CE 
LE 
4(C 
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kk 
ax Date Progranrer Modification 
Be eee: NE «aR eee ed Jae ok 
kk 05/20/82 = NM Added docunentation 
ik 


FOI IOI TIT IIT TIT IO 
SOIT JIT OTT TIO 


=LOCKD? P= 0 
SE THE X 
LC(2) =f 1 TNOF 
GOSUBL =SFLAG? Turnoff flag set? 
GONC  TRNON1 No. return. 
D1=(5) =LOCKND 
A=DAT1 W 
PAHO OW Is there a lockword? 
GOYES LCkKO3 Yes 
TRNON LC(2) =f 1TNOF 
GOSUBL =SFLAGC Clear turnoff flag 
TRNON1 RTNSC 
LCKO3 
GOSUBL =r<rst2 Save 3 subroutine levels 


GOSUBL =crlfnd 
01=(5) =LCKNSG 


GOSUBL =bf2dsp Put up "password? " message 
GOSUBL =CHEDIT Call character editor 
GONC FINISH Return if immediate xeq key 
iC(2) 13 
7A=C OB End1n? 
GOYES LCK10 Yes 
FINISH GOSUB =atnclr Clear ATIN flag in case ATIN hit 
GOSUB =FINLIN 
GOSUBL =rst2<r Restore 3 subroutine levels 
RTNCC No 
LCK10 «=D1=(5) =AVMENE 
C=DAT1 A 
D1i=C Point at nathstack 
ST=1 0 For DSP$O0 to return 
GOSUB =DSP$00 Get password fron display 
GOSBVL =REVPOP Reverse and POP 
C=A A String length 
C=C-1 A 
C=C-1 A 
(=C-1 A 
COC FINISH Go if input null 
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151 
152 
153 
154 
55 
156 
157 


18D26 80F0 
18D02A 8AA 
18D2D 40 
18D2F 2F 
18D31 RFO 
18034 1531 
18D38 1B00 
000 
18D3F 1567 
18D43 20 
18045 976 
18D48 8A 
18D4A 7000 
18D4E 8E00 
00 
18054 646F 
18D58 B1 
18D5A C3 
18D5C 0716 
3737 
77F6 
2746 
18D6C F302 
18070 FF 


158 
159 
160 
161 
162 
163 


164 
165 
166 
167 


168 
169 


170 18072 


LOCK Module <831216.1454> 


CPEX 0 

7c=0) OA 

GOYES LCK20 
P= 15 

A=0 W 
A=DAT1 WP 
DO=(5) =LOCKWD 


LCK20 


C=DATO W 

P= 0 

PRAC OW 

GOYES FINISH 

GOSUB =FINLIN 
GOSUBL =rst2<r 


GOTO TRNON 
=LCKMSG CON(2) #18 

NIBASC \<\ 

NIBASC \passuord\ 


NIBASC \? \ 
NIBHEX FF 
END 
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Length <= 8 chars? 
Yes 
No. use 8 chars. 


Read user’s input 


Correct lockuword | 


Match? 
No 


Yes. Clear display. 


Esc 
(cursor off) 
(message) 


End of nessage 
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AVNENE 
CHEDIT 
DELAYd 
DSP$00 
EXPEX j 
FINISH 
FINLIN 
LCKO3 
LCK10 
LCK20 
=LCKMSG 
=LOCK 
LOCK10 
=LOCKD? 
LOCKWD 
REVPOP 
SF LAG? 
SF LAGC 
STRNGP 
TRNON 
TRNON1 
UNLOCK 
atnclr 
bf 2dsp 
crifnd 
fl TNOF 
inexit 
r<rst2 
rst2<r 


Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


101616 #18CFO 


101573 #18CC5 
101632 #18D00 
101681 #18031 
101720 #18D58 
101474 #18062 
101509 #18085 
101528 #1898 


101561 #18CB9 


Table 


101571 #18CC3 - 


101513 #18C89 


140 
131 
43 
144 
45 
136 
137 
126 
140 
155 
165 
45 
56 
114 
57 
46 
117 
124 
44 
123 
125 
57 
136 
130 
128 
116 
59 
127 
138 


LOCK Module <831216.1454> 


132 
162 
122 
135 
183 
129 


119 
145 


164 
118 


123 


163 
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150 161 


15? 


Saturn Asseribler LOCK Module <831216.1454> 
Ver. 3.39/Rev. 2306 Statistics 


Input Paraneters 
Source file name is MN&LCK: 2S 
Listing file nane is MN/LCK:TI:ML::-1 
Object file nane is MNZLCK: TI:MS::-1 


114111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 % SSS ccc & SSS UU BBBB 
2 x $ $ € €¢ &8& $ $ U UB B 
3 * S C && § uU UB 8B 
4 x SSS C & SSS UU BBBB 
5 x C &&& S U UB B 
6 a S $C € && S$ $ U UB B 
7 * SSS ccc 8=—« 8BKCSSSS UUU = BBBB 
8 & 
9 
10 TITLE SUBprogran and DEF FN <831216.1610> 


7 
> 


18072 ABS #18072 
ROSYMB TIZEQU: 2 MS 
RDSYMB SBZRAM: : MS 


12 
13 
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14 EJECT 
15 JI II III OI I I III III III SITIOS ISOS I TTI T TS ASS SII SI IIS SOS IIS ISSA 
16 JI III IIIS COSCO CCCI SIS II OICK 
17 xx 
18 ** Narie:(S) pCALSV - Poll to save local environment on CALL 
19 ak 
20 ** Category: POLL 
4 x 
22 ** Type: POLL 
23 ak 
24 ** Purpose: 
25 ae Give any LEX file a chance to save its local environnent 
26 ak when CALL is executed. 
27 kk 
28 ** Should poll be "Handled" (return with XM=0)?: 
29 a Since this poll is intended to reach every LEX file, so 
x» ax XM should aluays set to 1 on return. 
31 kk 
32 ** Heaning of "Handling" Poll (what does code do if handled?): 
33 ae A LEX file can put a block of its local environnent on 
34 ax top of the stack. When the ENDSUB is executed later on, 
35 * the LEX file can use this block to restore its local 
36 aA environrent. 
37 ax 
38 ** Entry conditions for handler (registers, ST, RAM, etc.): 
39 ax BIA] = Poll nunber. 
40 ax HEX node. 
41 ax P=0, 
42 ax AVNENE (available nenory end) 1s pointing at current top 
43 ak of stack. 
44 tk 
45 tk Nornal exit conditions fron handler if handled (ST, RAM, 
46 ** registers, etc.): 
47 aX Carry clear (POLL only). 
48 ae HEX node. 
49 AK xM=1. 
50 a Update the AVMNENE to point at the top of the block which 
51 se just been put on to the top of the satck. 
52 ik 
53 ** Normal exit conditions fron handler if not handled (ST, RAN, 
54 ** registers, etc.): 
55 aH Carry clear (POLL only). 
56 AK HEX node. 
57 an XM=1. 
58 ax 
59 ** Error exit conditions fron handler (POLL only): 
60 x Carry set. 
61 a HEX nade. 
62 ae C{3,0] = Error code 
63 it 
64 ** Available subroutine levels: 
65 xa 5 
66 ka 
67 ** NOTE: 


68 a Definition of the save block: (starting from lower addr. ) 
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69 
70 
“4 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
9% 
31 
92 
93 
94 
95 
96 
9? 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
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kk 
xe Nibs = Meaning 
Be ee Oe ee ea ue hee aceeeaeeteee se 
a 1-2 LEX file ID 
aia 3-5 Block length in nibs(not include the ist 5 nibs) 
ae 6 # of update addresses following 
am 7-n Update addresses 5 nibs each 
aK n-r Anything else 
ak 
** What registers/RAM nay be used if handled’: 
ak A-D, DO, D1, P ,RO-R3, ST, seratch RAM 
ek 
** What registers/RAM nay be used if not handled?: 
Rs A-D, DO, D1, P ,RO-R3, ST, scratch RAN 
ak 
** What registers/RAN may be used if error exit (POLL only)?: 
- A-D, DO, D1, P, RO-R3, ST, scratch RAN 
ik 
** Special nenory/pointer considerations (are pointers funny?): 
ae None. 
&k 
k* Envisioned application(s): 
x Allows a LEX file to stack and unstack local data that 
a* is not stored in a systen buffer. This nay be useful 
aR to applications which can be called recursively, since 
ax systen buffers are global and are not allocated recur- 
a sively. 
kk 
** History: 
kk 
xx Date Progranner Modification 
TE meeewose (eeseeowes, saicealuetre sc feet ste cees 
kk 04/18/83 SC Docunent 
kk 


FOO JOO IIIT TO TET OO 
FOO ROI JIO TIO JOO I IK 
x 

FOI IIR IIT TT TOE TSO IIE 
FO ORT I IRITOUTU OORT TTT IT 
ak 


** Nane:(S) pCALRS - Poll to restore local environnent 
& 


kk Category: POLL 
ks 


** Type: POLL 

ks 

** Purpose: 

a Give any LEX file a chance to restore its local 

am environnent when ENDSUB is executed. 

kk 

** Should poll be "Handled" (return with XM=0)?: 

xm Since this poll is intended to reach every LEX file, so 
ae XM should always set to 1 on return. 

kk 


** Meaning of “Handling” Poll (what does code do if handled’): 
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124 ax A LEX file can restore its local environment saved at 
125 a CALL tine (by respond to pCALSV poll) 

126 

127 xk Entry conditions for handler (registers, ST, RAM, etc.): 
128 a B[R} = Poll number. 

129 ax HEX rode. 

1% RK P=0. 

131 ie CALSTK 1s pointing at the first of all the save blpcks. 
132 

133 *k Normal exit conditions fron handler if handled (ST, RAN, 
134 *k registers, etc.): 

135 an Carry clear (POLL only). 

136 ae HEX tiode. 

137 KK xM=1. 

138 xx 

139 kk Nornial exit conditions fron handler if not handled (ST, RAN, 
140 *k registers, etc.): 

141 xx Carry clear (POLL only). 

142 ae HEX node. 

143 ae XM=1. 

144 aK 

145 ** Error exit conditions fron handler (POLL only): 

146 a Carry set. 

147 aR HEX node. 

148 ae C{3,0] = Error code 

149 i 

150 ** Available subroutine levels: 

151 ae 3 

152 xs 

153 ** NOTE: 

154 ax How to find the save block of your oun : 

155 mA 

156 ahs Starting fron the CALSTK, look for first 2 nibbles of 
157 he each block for your LEX ID. All the save blocks are 
168 se link listed. When your block 1s found, just use the 
169 = information to restore your local environnent, don’t 
160 ax collapse the block. All the update addresses in the 
161 xm block are justified if nenory had been noved. 

162 aK 

163 ** What registers/RAMN nay be used if handled?: 

164 xx A-D, , D1, P ,RO-R3, ST, scratch RAN 

165 a. 

166 ** What registers/RAM nay be used if not handled?: 

16? Ak A-D, DO, D1, P ,RO-R3, ST, scratch RAN 

168 ax 

169 ** What registers/RAM nay be used if error exit (POLL only)?: 
170 wx A-D, DO, D1, P, RO-R3, ST, scratch RAN 

171 AS 

1?e = 

173 ** History: 

174 KR 

175 ae Date Progranner Modification 

176 KE -slewedcs eudsecceas: eeeiesovon sow e elses bee eee ctoee 
17? ** 04/18/83 SC Docurient 


178 As 
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179 
180 
184 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


ak 
ak 
x 

aK 
ak 
ae 
aK 
ak 
ak 
ak 
ax 
ak 
ak 
an 
xk 
ak 
an 
a 
xk 
aK 
ak 
ak 
ak 
xk 
ak 
ak 
aK 
xR 
xx 
xx 
ak 
ax 
ak 
a 
ak 
ak 
ak 
ak 
ak 
ak 
ark 
ak 
xk 
ak 
ak 
ak 
ax 
xk 
ak 
a 
an 
ak 
ak 
xx 


SUBprogran and DEF FN <831216. Fri Dec 30, 1983 4:42 an 
Page 5 


FORT JO IR TOOE 
FOTO ROO TIO TOI 


FOTO OO OTTO TOTO 


JORIS IO ICIS ITO ITT TOTTI T TT 
Nane:(S) pFNIN - Poll at start of multiline U.D.F. 
Category: POLL 
Type: FPOLL 
Purpose: 

Poll before start execution of a nultiline user-defined 
function. 


Should poll be "Handled" (return with XM=0)?: 
If handled set XM=1 on return. 


Meaning of "Handling" Poll (what does code do if handled’): 
This poll give everybody a chance to do something, so 
the poller doesn’t care it will be handled or not. 


Entry conditions for handler (registers, ST, RAN, etc. ): 
Carry set on entry. 


B[A] = Poll nunber. 
HEX node. 
P=0, 


Norral exit conditions fron handler if handled (ST, RAM, 
registers, etc.): 

HEX node. 

KM=1. 


Nortial exit conditions from handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

XN=1, 


Available subroutine levels: 4 


What registers/RAN may be used if handled?: 
Everything but the R1 


What registers/RAN nay be used if not handled?: 
A-C, D[15-5] DO, D1, P 
--NOTE: D[A] is sacred 
R1-R4, ST, scratch RAN 


History: 


Date Progranner Modification 


we wee eee ewe ewe eee ee me we a a a ee ee ee ee wee ew we eee oe 
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234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
2?2 
273 
274 
275 
276 
27? 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 


ak 
ak 
a 
ak 
x 

aK 
ax 
xx 
ak 
xx 
ak 
xk 
ak 
ak 
ak 
a 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
aK 
ax 
KK 
xk 
xk 
ak 
ak 
ak 
ak 
ax 
ak 
ax 
ak 
xx 
xx 
xk 
ax 
ak 
aah 
a 
ak 
xk 
ak 
ak 
ak 
xk 
xk 
ak 
ak 
aK 
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05/10/83 = SC Docunent 


FOG ORT TOI TTT TIT KA 
FOI IT TOT TT TTT IR II IIT III IAT DIK 


FOO JI RII TT TTT TIT TIT IK 
FOO TO TOT TK 


Narie:(S) pFNOUT - Poll at end of multiline U.D.F. 
Category: POLL 
Type: FPOLL 
Purpose: 
Poll before exiting a multiline user-defined 


function. 


Should poll be "Handled" (return with XM=0)?: 
If handled set XM=1 on return. 


Meaning of “Handling” Poll (uhat does code do if handled’): 
This poll give everybody a chance to do sonething, so 
the poller doesn’t care it will be handled or not. 


Entry conditions for handler (registers, ST, RAM, etc. ): 


Carry set on entry. 
B[A) = Poll number. 
HEX node. 

P=0, 


Norrtal exit conditions fron handler if handled (ST, RAN, 
registers, etc.): 

HEX node. 

xM=1. 


Normal exit conditions fron handler if not handled (ST, RAN, 
registers, etc.): 

HEX node. 

xM=1. 


Available subroutine levels: 4 


What registers/RAM may be used 1f handled?: 
Everything but the RO 


What registers/RAM nay be used if not handled?: 
A-C, D[15-5]} DO, D1, P 
--NOTE: D[A] 1s sacred 
R1-R4, ST, scratch RAN 


History: 
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289 kk Modification 
290 

291 Ak 6065/10/83 = SC Docunent 

292 aK 


293 JOO III TTT TOTO TIT TIT ITTTTITTTTI TIN 
294 FORO UII OOOO TTT Or 
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295 
296 
297 
298 
299 


300 
301 


302 
303 


304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
3H 
331 
332 
333 
334 
335 
336 
337 
338 
339 
349 
341 
342 
343 
344 
345 


18072 0000 
0 


18D77 0000 
0 

18D7C 8D00 
000 


18083 1FB4 
SF2 
18D8A 01 
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EJECT 

: SUB - EXECUTION OF SUB STATEMENT STOP THE PROGRAM RUNNING. 
REL(S) =SUBDC 
REL(5) =SUBP 

=SUB GOVLNG =END 


k 
DIPRCT D1=(5) =PRACNT 


RIN 


JOR OTT STITT ITE IOK 
FOO TOO OI TTI ITI 
kk 


** Nane:(S) CALL - Sub-progran call execution 

ak 

. Category: STEXEC 

* 

** Purpose: Call a sub-progran 

ak 

** Enry: DO pts past the tCALL token 

ak 

BX ERLE 

RK To NXTSTN if successful 

ak To BSERR if error 

ak 

*® Calls: I/OALL, GETCH-, FDCHH, EXPEXC, DEST, NEWVAR, SCHSUB 
ak LNSKP-, TRFLCK, TRCLIN, TRTOEN, I/OFND, EXPCHH, FNDNK- 
ax POPCHH, CR-VAR, POLL, STRASN, MOVEMD, FSPECx, FINDF 
ak SFLAGC, SFLAGS, SFLAG?, GETSTC, PRSCOO, CHKSPC 

ak 

*k Uses: Everything 

ak 

ek Stk Ivis: All 

xr 

** Detail: 

ak 


** 1, Search the subprogran and save the nane on stack. 
%k 2, Start process the actuall paraneters: 
*k a. Go down the paraneters list, call expression to get 


x every paraneters. 

kk ob. Save the value or the address of each paraneter on the 
ax stack. Put a cap on top of each paraneter to indicate 
mK it 1s a vaule or an address. (Parse routine already 

ae figured out each paraneter is passed by value or by 

$e reference). 

tk oc, If find an "#" sign preceding an expression, 1t must be 
at a channel nurber. Then rake sure the channel 1s open, 
aK also put a cap to indicate this 1s a channel nunber. 


ek od. Call the routine DEST right after returning fron the 
ae expression execution routine. If the paraneter is a non- 
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36 
7 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
39 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 


ak 
ak 
ak 
ak 


th 


ak 
ak 
ax 
an 
ax 
xk 
ax 
ax 
ax 
ak 
ax 
xx 
ax 
aK 
ax 
xk 
ak 
x 
ax 
xx 
ak 
aw 
ak 
ak 
ak 
ak 


ax 
xx 
ae 


ak 
xk 
ak 
ax 
ax 
ak 
ax 
xx 
xx 
ak 
ax 
ax 
xk 
aX 
ak 
ak 
ak 
ak 
ak 
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existent variable, call the routine NEWVAR to create the 
variable. THEN collapse the stack(except the subprogran 
nane), process the actual paraneters all over again 

starting fron the beginning. The reason for starting fron 
the beginning is that sone of the references that already 
been processed nay need to be adjusted due to the 


creation of new variable. In order to save code, I choose 
to re-evaluate the all the expression rather than only to 


adjust those references. 


3. Save the calling environnent on the stack(on top of the 


actual parameters infornation). 
(lowest address): 


0O04F (5 nibs): ID & length 


A (1) : Update pointers count 
Following 10 pointers are absolute 

CURRST (5) addresses, they will be adjusted 
PRGMST (5) uhen nenory noved. 
PRGMEN (5) 
CURREN (5) 
PCADDR (5) 
CNTADR (5) 
ERRSUB (5) 
ERRADR (5) 
GNINTR (5) 
DATPTR (5) 
Offset to previous FORSTK (5) 

ff GSBSTK (5) 

t/ ACTIVE (5) 

fT} CALSTK (5) 


4. A LEX file can save its local environnent on the call 


stack too. At this point, a poll(pCALSV) will be issued. 
An LEX file when answering to this poll can put a save 
block on top of the current stack pointer(pointed by D1). 
The fornat of the save block is as follow : 


nibs neaning 

1-2 LEX file ID. 

3-5 Save block length(exclude the first 5 nibs). 

6 Nunber of addresses follow that need to be 
adjusted when nenory noved. 

7-11 First address if any. 


ee to end of the block. 


. Search for the subprogran. 


. Set CALSTK, ACTIVE, GSBSTK, FORSTK to the current stack 


pointer(MTHSTK } 
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401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 


xx 
ax 
ak 
ax 
ak 
xx 
ak 
ax 
ae 
ak 
ax 
ae 
ax 
ax 
ax 
ax 
ax 
ak 
ae 
ax 
ax 
ax 
ax 
ax 
kk 
x 
B 
x 
a 
ax 
aw 
aw 
ae 
ak 
ax 
aK 
ax 
a 
ak 
ak 
aK 
kk 
ak 
aR 
KK 
ak 
ax 
ae 
ae 
an 
ak 
KK 
ke 
xs 
ak 
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7. Clear the variable chain head table 
8. Put a level mark in the channel nunber assign buffer. 


9. Process the fornal paraneters: 

a. If the parareter 1s a channel, open the channel. 

b. Call expression execution to get each variable and 
call the routine DEST right after that. Then call 
the routine CR-VAR to create the dope vector of each 
variable. 

c. Dig out the actual paraneter fron the stack one at a 
tine and coripare its type with the corresponding 
fornal paraneter. 

d. Assign value or indirect address to the fornal 
paraneter. 


10. Pull all the actual paraneter infornation fron stack and 
adjust all the offset values in the call save block. 


11. Clear ERRSUB, ERRADR, ONINTR, DATPTR 


12. Execute the subprogran. 


FOI IIT OTT TOO OTTO TOIT OI III 
JOTI IOI IIIT I TOTO III OR TOI IT III 


inary EQU 10 


SOI IOI II TOT TTT TTT III OK 
FOI IIIT IOI TOO ITT IIIT IT III TIN 


Nane:(S) CALBIN - Binary progran call BASIC subprogran 
Category:  STEXEC 


Purpose: To allow a binary progran to call a BASIC 
subprogran. 


Entry: This GOSBVL has to precede right before the CALL 
staterent. The binary file has to construct the CALL 
statenent exactly as it is in a BASIC file. The first 
tua nibs are the statenent length and the last tno 
nibs are the EOL. 


Exit: The execution of the binary progran will be resuned 
after CALL statenent. 


Uses: Everything 

Stk lvls: Only one RSTK will be saved, the one calls CALBIN. 

Note: When CALBIN is called, the PCADDR will be set to @ the 
line length of the CALL statenent. 


When ENDSUB 1s executed, if it 1s returning to binary 
code, the PCADDR will be set to @ the end of the 
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456 ax CALL statenent. 
457 aK 
458 JOU IO CIO TIT TOT TTT TT 
459 JOSIE TTI TI DT TDD TTT IIA DT 
460 x 
461 18D8C 07 =CALBIN C=RSTK 
462 18D8E 8EDE GOSUBL DOPCAD Set PCADD to 00 
»” 
463 18094 144 DRTO=C A 
464 x 
465 18097 134 dO=C 
466 18D9R 163 DO=D0+ 4 
467 18D9D 85A ST=1 Binary 
468 18DAO 6010 GOTO CALO1O 
469 & 
470 18DA4 0000 REL(S) =CALLBC 
0 
471 18DBR9 0000 REL(S) =CALLP 
0 


472 18DAE 84A =CALL ST=0 Binary 
473 18DB1 14A CALO1O A=DATO B 


474 18DB4 3100 LC(2) =tEOL 
475 18DB8 9E2 7A<C OB 
476 18DBB 80 GOYES CALO20 
477 % 
478 * THIS IS CALL WITHOUT SUBPROGRAN NANE 
479 a 
480 18DBD AFO A=0 W 
481 18000 561 ; GONC CALO45 
482 
483 18DC3 8FOO CALO20 GOSBVL =FILXOQ* GET SUBPROGRAN NAME 
000 
484 18DCA 460 GOC CALO40 NO ERROR IF CARRY SET 
485 18DCD 6853 CALO3X GOTO MISUBP SRY "SUBPROGRAM NOT FOUND" 
486 * 
487 180D1 B47 CRLO4O D=D+1 § 
488 18DD4 58F GONC CALO30 IF 0(S} IS NOT F, ERROR 
489 18DD7 AF8 CALO45 B=A W B = SUBPROGRAN NAME 
490 18DDA 8FO0O GOSBVL =GETST SAVE STATUS BITS 
000 
491 18DE1 7877 GOSUB DIFSTK SET NTHSTK = FORSTK - 16 
492 18DE5 1CF Di=D1- 16 
493 18DE8 8E00 GOSUBL =CHKSTK STILL ROOM ON STACK ? 
00 
494 18DEE 460 GOC CRLOSO 
495 18DF1 6474 GOTO CALNOR 
496 k 
497 18DF5 8600 CALOSO GOSUBL =SAVEDO SAVE PC IN STNTDO 
00 
498 18DFB AF4 A=B W 
499 18DFE 1517 DATI=A W SAVE SUBPROGRAM NANE ON STACK 
500 * 
501 18E02 316D LC(2) =f 1NOFN Disallow UDF in paraneters 
502 18E06 8£00 GOSUBL =SFLAGS 


00 
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503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 


516 
517 
518 
519 
520 
521 
522 
523 
524 
§25 
526 
52? 
528 
529 
530 
531 
532 
533 
534 
§35 
536 
53? 
538 
539 
540 
541 
542 


543 
544 
545 
546 
54? 
548 
549 
550 


5§1 
552 
563 
594 


18E0C 
18E10 
18E12 
18E15 
18E19 
18E1C 
18E1F 
18E22 
18E25 


18E28 
18E2B 


18E32 
18E35 
18E38 
18E3C 
18E3F 
18E41 
18E44 
18E47 
18E4B 
18E4E 
18E50 
18E53 
18E$7 
18E5R 
18E5C 


18E5F 
18E62 
18E66 
18E69 
18E6B 
18E6E 


18E 74 
18E78 
18E7A 
18E 7D 
18€81 
18E84 
18E8? 
18E8A 


18E% 
18E93 
18E396 
18E99 


SUBprogran and DEF FN <831216. 


x 


737F =CRLOGO GOSUB D1IPRCT 


Do 
149 
7447 
iCF 
13? 
1€4 
145 
137 


14A 
8FOO 
000 
402 
161 
3100 
366 
41 
551 
14A 
3100 
966 
% 
161 
6E61 
136 
06 
136 


14A 
3132 
366 
C3 
161 
8E00 


7606 
6 
BFe 
1557 
AES 
136 
108 
8E00 


5E0 
118 
134 
850 


CAL100 


CAL105 
CAL110 


x 


A=0 
DAT1=A 
GOSUB 
01=D1- 
CDIEX 
D1 =D1- 
DATI=C 
CD1IEX 


A=DATO 
GOSBVL 


GOC 
00=D0+ 
LC(2) 
PARC 
GOYES 
GONC 
A=DATO 
LC(2) 
PAH 
GOYES 
DO=D0+ 
COTO 
COOEX 
RSTK=C 
CDOEX 


A 

B 
DIFSTK 
16 


5 
A 


B 
=EOLXCK 


CALIO5 
2 
=tPRAST 
B 
CALIOS 
CALI10 
B 
=tPRMEN 
B 
CALI10 
2 
CAL400 
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SET PARAMETER COUNT TO ZERO 


SET MTHSTK = FORSTK-16 


SEE IF CALL WITHOUT NANE 
IF SO, GOTO CAL105 


IF NEXT TOKEN IS NOT AN "tPRAST" 
MEANS NO PARAMETER PASSING 


(B5E,1<) 
READ NEXT TOKEN 


ARE WE AT END OF LINE? 
CONTINUE IF WE ARE NOT 


SAVE PC IN RSTK 


* Set the NO UDF flag before calling expression execution 


* 


CHECK 


» 


IF THE 


A=DATO 
LCASC 
RHC 
GOYES 
DO=D0+ 
GOSUBL 


GOSUB 
C=R 
(St 
DAT1=C 


NEXT PARAMETER IS A CHANNEL # 


B 

\#\ 

B 
CALI12 
2 
=GETCH- 


DIMNSTK 


moDreeeD 


=FDCHH 
CALI11 


TF NOT A CHANNEL # GOTO CALI12 
GET THE CHANNEL # 


D1 PTS TO MTHSTK 
SHIFT CHANNEL # LEFT 1 NIBBLE 


SAVE PC IN RO 
MAKE SURE THE CHANNEL & EXIST 


CHANNEL # NOT FOUND 


SET FLAG TO INDICATE CHANNEL # 
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555 18E9C 411 GOC CALI14 (B.E.T.) 

556 18E9F 8CO0 CAL111 GOLONG =FRNFND 
00 

557 a 

558 * 

559 18EAS 8E5C CALI12 GOSUBL expr CALL EXPRESSION EXECUTION ROUTINE 
11 

560 7 

561 * 

562 18ERB 840 ST=0 0 
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563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
677 
578 
579 
580 
531 
582 
§83 
584 
585 
586 
87 
588 
589 
590 
$91 
§92 
593 
594 
595 
596 
597 
598 


610 

611 

612 

613 

614 18ERE 71DE 
615 18EB2 148 

616 18EBS 14E 

617 18EB8 161 


SUBprogran and DEF FN <831216. 


EJECT 
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* IF NEXT TOKEN IS "EO" (PASS BY REFERENCE), WE HAVE THE 
x TONG INFORMATION: 


if 
*] 
se 
at 
4] 
ay 


xJ- 


a 
x] 


B(S)= 0,1,2: REAL, SHORT, INT. 
B(A)= VARIALBE RDDRESS 
STACK= THE NUMBER IN REAL 
B(S)= 8: NUMERIC ARRAY 
B(14)= SUBSCRIPT COUNT 
B(A)= VAR. DOPE VECTOR ADDR. 
STACK= VAR. DOPE VECTOR 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
B(S)= D: STRING VARIABLE I 
B(A)= STRING ADDRESS if 
I 

i 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


STACK= FO, LENGTH(5),ADDR(5), 
MAX. LEN(4), (STRING... ) 
B(S)= C: STRING VECTOR 


B(A)= DOPE VECTOR ADDRESS 
B(14)= SUBSCRIPT COUNT 
STACK= VAR. DOPE VECTOR 


B(S)= E,F: COMPLEX, S.COMPL 
B(A)= COMPLEX NUMBER ADDR 
STACK= £0 IMAGINARY REAL 
(F-RO-0)= DOPE VECTOR ADDR 


B(S)= 0: REAL ONLY 

B(X)= VARIABLE NANE 

STACK= ONE REG. OF ZERO 

B(S)=8: NUMERIC ARRAY 

(F-R1-3)= SUBSCRIPT COUNT 

B(X)= VARIALBE NANE 

STACK= C9n000000. . (n-Sub. Cnt) 

IF (F-R1-0)= REG.H ( A(1) ) 
(F-R1-0)= FFFFF ( AC) ) 

B(S)= D: STRING VARIABLE 

B(A)= VARIABLE NANE 

STACK= FO 00000 NAME 0000 

(2) (5) (5) (4) 

B(S)= C: STRING VECTOR 

B(A)= VARIABLE NAME 

(F-R1-3)= SUBSCRIPT COUNT 

STACK= F9 00000 NANE 0000 

IF (F-R1-0)= REG.# ( A$(1) ) 
(F-R1-O)= FFFFF ( A$() ) 


ee ee a ee a ee ee ee ee ee 


* IF THE NEXT TOKEN IS "E1" (PASS BY VALUE), WE HAVE THE 
* Serene INFORMATION: 


1 B(S) = 0,1,2: REAL, SHORT, INTEGER I 
*T STACK= THE NUMBER IN REAL I 
ES Sea aoe eh pre aes ob ear oa ae to eras ease se Shee sso er Ses I 
*T B(S) = E—, F : COMPLEX, SHORT COMPLEX I 
XT STACK= EO, IMAGINARY, REAL I 
RI Raee Serna teaser sen er near ass ect per eae tse eereeseastcesaees z 
*I BCS) = Dz STRING I 
*I STACK= FO, STRING LENGTH IN NIBBLES(5), STRING ADDR(5), MAX. 
*] STRING LENGTH IN BYTES(4)}, (STRING ..... ) I 
Ga ce a a a a li ed I 
x 


x 


CAL114 GOSUB D1PRCT 


A=DAT1 B 
C=DATO B THE 
DO=D0+ 2 PASS 


INCREMENT THE PARAMETER COUNT 
A= CURRENT PARAMETER COUNT 


TOKEN FOLLOWS THE PARAM TELLS 
BY REFER.(EO) OR BY VALUE(E1) 
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618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 


18EBB 870 
18EBE 70 
18ECO 90R 
18EC3 60 
18EC5 63A0 
18EC9 D2 
18ECB B56 
18ECE 885 
18ED1 37 


18ED3 B64 
18ED6 149 
18ED9 07 
18EDB 7F 66 
18EDF 2E 
18EE1 3102 
18EE5 9C1 
18EE8 80 


18EEA A81 
18EED 543 
18EFO 3100 
18EF4 9C5 
18EF7 B2 


18EF9 A81 
18EFC 171 
18EFF 941 
18F02 80 
18F04 17F 
18FO7 5A1 


18FOR 174 
18FOD 15F8 
18F11 28 
18F13 ASD 
18F16 1C4 
18F19 8E0O 
00 
18FIF 1CF 
18F22 AF9 
18F25 1657 
18F29 1C0 
18F2C 20 
18F2E R82 
18F31 15D0 
18F35 736 
18F39 6AROF 
18F3D 8D00 
000 


18F44 7606 
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?ST=1 Channel # ? 
GOYES 
2C=0 
GOYES CAL116 
GOTO CAL30O 
C=0 A 
C=C+i 
7B<C OR 
GOYES CAL200 


* PASS BY REFERENCE, AND VARIABLE EXIST 
t 


0 
CALI15 
Pp 


TS THIS PARAMETER PASS BY REFER. ? 
YES, IF THE TOKEN IS "EO" 

CAL115 
CAL116 SEE IF THE VARIABLE FOUND OR NOT 


IF B(A) >= hO1000, VARIABLE EXIST 


A=A+1 8B INCREMENT PARAMETER COUNT 
DATI=A B 
C=RSTK 
GOSUB DINSTK 
P= 14 
LCHEX 20 
7BoC «6S IF B(S)<=2 THEN THE NUMBER IS REAL 
GOYES CAL120 SHORT OR INTEGER 

* SIMPLE VARIABLE: REAL, SHORT, INTEGER 
B=0 =P SET SUBSCRIPT COUNT TO 0 
GONC CAL150 (B.E.T.) 

CALi20 ‘LCHEX DO IF B(S)= 8 ORC, IT IS NUMERIC 
7B«C OS ARRAY OR STRING VECTOR 
GOYES CAL150 

* STRING VARIABLE OR COMPLEX NUMBER 

Pp 


B=0 

D1=D1+ 2 PASS THE HEADER OF COMPLEX OR STRING 

7B=C = S IF 8(S)= D, IT IS A STRING VARIABLE 

GOYES CAL130 

D1=D1+ 16 

GONC CALI50 
* STRING VARIABLE 
CAL1XO =D1=01+ 5 

C=DAT1 9 

P= 8 

BCEX WP 

D1=D1- 5 

GOSUBL =POPSTR 


POP THE SAVED DO OUT 
RESTORE STACK POINTER 


2+16+16 NIBBLES FOR A COMPLEX NUNBER 
ON STACK, ONLY 16 NEEDED FOR THE REF 


POINT TO STRING ADDR & MAX. LEN 


SAVE ADDR & MAX. LEN IN B(0-8) 
PUSH OUT THE STRING 


Di=D1- 16 

C=B W 
DATI=C W 
D1=D1- 1 

P= 0 

C=0 P 
DATI=C 1 
GOSUB MSTKD1 
GOTO CALI00 
GOVLNG =DEST 


CAL150 WRITE THE REFERENCE ON TO THE STACK 
WRITE AN "O" ON TOP OF THE STACK 
TO REMEMBER THIS PARAM PASS BY 
REFERENCE 


CAL160 


CAL170 
PUT STACK POINTER TOC 

GOTO LOOK AT NEXT PARAMETER 
=dest 


* PASS BY REFERENCE BUT VARIABLE NOT EXIST, SO WE HAVE TO CREATE 
* THE VARIABLE AND START THE WHOLE PROCESS AGAIN 
CAL200 GOSUB DIMSTK 
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671 
672 
673 


674 
675 
676 
677 


678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
6% 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 


704 
705 
706 
70? 
708 
709 
710 
714 
712 
713 


714 
715 
716 
717 
718 
719 
720 
724 


SUBprogran and DEF FN <831216. 
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SAVE POINTERS FOR THE CREATE ROUTINE 


GET TYPE AND NAME TO C(S) & C(A) 
CREATE THE NEW VARIABLE 


POP OFF THE SAVED PC 


ALLOCATION CRASH IF CARRY SET 
RESTORE PC TO SATRT OF PARAMETERS 


INCREMENT PARAMETERS COUNT 


ACO) = "ae 

ONLY REAL, COMPLEX, OR STRING CAN 
F - STRING 
E - COMPLEX 


If is real, O.K. 


If Not, check if is string value ? 


* Passing an array vector as a value(by enclosing the array nane 


Is this a string value ? 
if not, Q.K. 


STACK = FO STR.LEN(5) ADDR(5) MAX. (4) 


SEE HOW LONG THE STRING IS 
NOT ALLOW PASS A STRING > 18 CHARS 


STRING OVER FLOW 


WRITE AN "1" ON TOP OF STACLK 
IS THIS A CHANNEL # ? 


18F48 71FF GOSUB dest 
18F4C AFI C=B W 
18F4F 8F0O GOSBVL =NEWVAR 
000 
18F56 07 C=RSTK 
18F58 560 GONC CAL210 
18F5B 6A03 GOTO  CALNOR 
18F5F 8E00 CAL210 GOSUBL =RESTDO 
00 
18F65 66RE ; GOTO  CRLOGO 
JI I II III I 
k 
: PASS BY VALUE: 
18F69 B64 CAL300 A=A+1 B 
18F6C 149 DATI=A B 
18F6F 07 C=RSTK 
18F71 30A LCHEX A 
18F74 DA A=C A 
18F76 7405 GOSUB DINSTK 
18F7AR 14F C=DAT1 B 
18F7D 986 7C<A OP 
18F80 03 GOYES CAL330 
k 
* If is not real, see if is a array vector 
x 
18F82 816 CSRC 
18F85 90A 7C=0 =? 
18F88 80 GOYES CAL310 
& 
* BY a pair of parenthesis) 
* 
18F8R 8000 GOLONG =RDATTY 
00 
& 
18F90 B46 =CAL310 C=C+1 § 
18F93 5C1 GONC CAL330 
18F96 171 D1i=D1+ 2 
18F99 143 A=DAT1 A 
18F9C D2 C=0 A 
18F9E 3104 LCHEX 40 
18FA2 8BA 7Ac=C A 
18FAS 80 GOYES CAL320 
18FA7 8000 GOLONG =STROVF 
00 
18FAD 1€1 CAL320 D1=D1- 2 
18FBO 10 CAL330 D1=D1- 1 
18FB3 301 LO(1) 1 
18FB6 860 7ST=0 0 
18FB9 50 GOYES CAL335 
18FBB B06 C=C+1 P 
CAL170 


18FBE 627F CAL335 GOTO 
& 
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722 % END OF ACTUAL PARAMETERS LIST, START PROCESS THE FORMAL 
723 * PARAMETER. 

724 ® 

725 : THE FOLLOWING POINTERS ARE STORED IN CALSTK 

726 

727 x 0004F (5) 

728 k A (1) - # of update addresses 

723 x CURRST (5) 

7H” & PRGMST (5) 

731 - PRGMEN (5) 

732 * CURREN (5) 

733 x PCADOR (5) 

7H4 & CNTADR (5) 

735 & ERRSUB (5) 

736 x ERRADR (5) 

737 % ONINTR (5) 

738 * DATPTR (5) 

739 x OFFSET TO PREVIOUS FORSTK (5) 

740 z OFFSET TO PREVIOUS GSBSTK (5) 

741 7 OFFSET TO PREVIOUS ACTIVE (5) 

742 k OFFSET TO PREVIOUS CALSTK (5) 

743 a PREVIOUS PARAMETER COUNT (2) 

744 % OFFSET TO PREVIOUS PRNPTR+2 (5) 

745 * RETURN TYPE (1) 

746 Rk 

747 & TOTAL 84 NIBBLES 

748 , 

749 x 

750 18FC2 136 CAL400 CDOEX 

751 18FC5 108 RO=C RO = PC 

752 

753 : Set PRGMST & PRGMEN only if not running 

754 

755 18FC8 8F0O GOSBVL =RUSUS? Running or suspended ? 
000 

756 18FCF 4E1 ; GOC CRL404 If so, don’t set progran scope 

757 

758 18FD2 8FO0O GOSBVL =GETSTC See if File type is BASIC 
000 

759 18FD9 5D0 GONC CAL402 If so, set progran scope 

760 18FDC 3340 LC(4) =fBIN See if file type is BINARY 
2E : 

761 18FE2 8A6 AAC OR 

762 18FE5 9% GOYES CAL404 If not, don’t set prog scope 

763 18FE? 8F0O CAL402 GOSBYL =PRSCOO 
000 

764 s 

765 18FEE D2 CAL404 C=0 A 

766 18FFO 8F0O GOSBVL =CHKSPC SEE IF STILL ROOM ON STACK 
000 

767 18FF7 560 GONC CAL410 

768 18FFA 6B62 CAL405 GOTO CALNOR 

769 18FFE 8£00 CAL410 GOSUBL =rstst Restore status bits. 


00 
770 19004 1899 DO=(5) =NTHSTK SAVE NTHSTK&FORSTK TO S-RO-O&S-RO-1 
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771 


772 
773 
774 
775 
776 
777 
778 
779 
780 
784 
782 
783 
784 
785 
786 
787 


788 
789 
7% 


791 
792 


793 
794 
795 
796 


797 
798 
799 
800 


801 
802 
803 
804 


806 
806 
807 


808 
809 
810 
814 
Ble 
813 
&14 
815 
S16 


5F2 
1F1? 
8F2 
7365 
136 


7RAC4 
1CF 
163? 
192 


x 
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DI=(5) =S-RO-0 


GOSUB SAVE10 
D1=C 


® SAVE RETURN TYPE 
k 


x 


x 


CAL412 


CALA14 


CAL415 


CAL4 20 


D1=D1- 1 

C=0 A 
?8T=0 Binary 
GOYES CAL4i2 
LC(1) 8 
*ST=1 13 
GOYES CAL414 
C=C+1 A 


DAT1=C P 
GOSUBL SAVPRN 


C=0 A 
DATO=C B 
DO=(5) =CALSTK 


P= 12 
GOSUBL SAVPTR 


DO=D0- 5 

P=P+1 

GONC CAL415 
DO=(5) =ONINTR 


GOSUB SAVE2O 


GOSUB SAV10+ 
DO=(5) =PRGNEN 


GOSUB SAVE2O 


DI=D1- 6 
LC(6) #AO4FOO 


DATI=C 6 
GOSUB ASTKD1 
GOSUBL =POLL 


CON(2) =pCALSV 


GONC CAL420 
GOTO = bserr 


GOSUB DIFSTK 
DI=D1- 16 
A=DATI W 

R2=A 
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8 FOR RETURN TO BINARY FUNCTION 


SAVE PARAMETER COUNT & POINTER 


ZERO CURRENT COUNT 
SAVE THE OFFSET OF FORSTK,GSBSTK, 


ACTIVE AND CALSTK 


SAVE DATPTR - ERRSUB 


SAVE PCADDR & CNTADR 
SAVE CURRST, PRGONST, PRGMEN, CURREN 


UPDATE MTHSTK BEFORE POLLING 
POLL TO LET LEX FILE SAVE THEIR 


CALL STACK 


No error if carry clear 


RETRIEVE THE SUBPROGRAN NANE 
R2 = SUBPROGRAN NANE 
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817 
818 
819 
820 


821 
822 


823 


824 


859 


1909D 


190A3 
190A6 


190AD 


190BB 
190BF 
190C2 
190C5 
190C8 
190CA 
190CE 
19001 


19008 
1900B 
190DE 
190E1 
190E5 
190E8 
190ER 
190ED 


190F3 
190F6 


190FA 


19101 
19104 
19107 


19100 
19110 
19114 
19117 
1911A 
1911D 


19123 
19126 
1912A 
1972E 


19134 


8EE3 
80 
443 
8FOO 
000 
3802 
14 
C4C4 
02 
15CB 
16B 
11A 
97A 
% 
1547 
16F 
8F00 
000 


110 
130 
14A 
3100 
966 
64 
161 
8E00 
00 
560 


x 
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* See if we need to trace 
k 


x 


CAL422 


CAL424 


6FO6 SSBER 
& 


8FOO 
000 
A4F 
133 
8E05 
40 
1CF 
1577 
10A 
843 
855 
8E12 
11 
531 
3100 
6F43 


8E68 
o1 
AIF 


x 


x 


$S$B20 


MISUBP 


CAL425 


GOSUBL 


COC 
GOSBYL 


LCASC 


GOSBVL 


GOC 
ADIEX 
GOSUBL 


B1=D1- 
C=DAT1 
R2=C 
ST=0 
ST=1 
GOSUBL 


CONC 
iC (2) 
GOTO 
GOSUBL 


GOC 


trflck NEED TO TRACE ? 
CRL424 
=TRCLIN 
\ LLAC \ 
12 
12 

GET SUB-PROGRAMN NANE 
W CALL CURRENT FILE ? 
CAL422 IF SO, GOTO CAL422 
W 
16 
=TRTIOEN 

GET THE PC 

DO = PC 
B SEE IF FILE NAME SPECIFIED 
=tIN 
B 
CAL425 
2 
=f specx 
SSB20 
bserr 
=FINDF + 
SSBER FILE NOT FOUND 

A= ADDRESS OF FILE START 
DIFSTK RESTORE THE SUB PROGRAM NANE 
16 FROM FORSTK - 16 
Wd 
3 
5 ONLY SEARCH ONE FILE 
SSB210 
CAL430 FOUND 
=eSPGNF 
nfert 
$SB100 
NISUBP 
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861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 


873 


874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 


885 
886 
887 
888 
889 
890 
891 
892 
893 
894 


895 


896 
897 
898 
899 
90 


x1 


i 
Ve 


13 
4 
905 
%b 
7 
8 


1913? 
1913R 
1913C 
19140 
19143 
19146 
19148 
1914B 


1914E 
19152 


19158 


1915F 
19162 
19165 
1916? 
1916R 
1916D 
1916F 
19172 
19176 
19179 
19170 


19183 
19187 
1918A 
1918D 
191% 
19194 
19197 
19198 
19190 
191A 


191A 
191RB 


191RE 
191B4 


191BR 
191BD 
191BF 
191C2 


191C5 
191C8 


873 
41 
S10F 
14A 
SEE 
80 
161 
SAF 


x 


x 
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CALAN 


SKNITIO 


316D CAL450 


8E00 
00 
1F99 
5F2 
143 
174 
ec 
141 
174 
oc 
57F 
3191 
BFO 
BFO 
{FEB 
Ee 


CAL455 


1596 CAL460 


176 
R6E 
55F 
7FEB 
14F 
109 
136 
10A 


3240 = CAL465 
8 


8E00 
00 
431 


8E00 
00 
8E00 
O 
592 
D2 
146 
400 


137 
Ce 


x 


x 


CAL470 


Page 20 


§T=1 3 IS THE SUB-PROG A FILE ? 
GOYES CAL450 IF SO, GOTO CAL450 

LCHEX FO 

A=DATO B 

Ad=C 2B 

GOYES CAL450 

DO=D0+ 2 

GONC  SKNIN10 


LC(2) =F 1NOFN 


GOSUBL =SFlagCl Clear no UDF flag 


D1=(5) =NTHSTK 


A=DAT1 A SET CALSTK,ACTIVE,GSBSTK FORSTK 
01=D1+ 5 

P= 12 AND MTHSTK TO D1 

DAT1=A A 

01=01+ 5 

P=P+1 

GONC CAL455 

iC(2) 25 LORD CONSTANT 25 

ASL W 

ASL W CLEAR ALL CHRIN HEAD COUNT AND SET 
01=(5) =CHNLST ALL CHAIN HEAD POINTERS TO CALSTK 
DATI=A 7 

D1=D1+ 7 

C=C-1 8 

GONC CAL460 

GOSUB DIPRCT D1= PRMCNT 

C=DAT1 B C= PARAMETER COUNT 

R1=C SAVE PARAM COUNT IN R1 TENP. 

CDOEX SAVE DO IN R2 

R2=C 


LC(3) =bASSGN 
GOSUBL =1/OFND 
GOC CAL470 ASSIGN table found 


* Create the assign table if not yet exist 


GOSUBL =STPASG 
GOSUBL =I/OALL 


GONC =noroon 

C=0 A 

DAT1=C A 

6O0C CAL465 Goes around again (B.E.T.) 


CDO1EX 
C=C+A A 
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909 
910 
911 
912 
913 
914 
915 
916 


917 
918 
919 
320 


921 
922 
$23 
924 
925 
926 
927 
928 


191CA 
191CD 
191D0 
191D3 
191D6 
19109 


191DB 


191E4 
191E4 


191E8 


191EE 
191F4 
191F4 
191F7 
191FA 
1S1FE 
19201 
19204 
19207 
19209 
19200 


19214 
19218 


1921F 
19223 
19227 
1922A 
1922E 
19231 
19234 
19237 
1923A 
1923C 
19240 


19244 
19247 
1924A 
1924D 
1924F 
19252 
19254 


19258 
1925E 
19262 
19266 


1926C 


135 
1€4 
147 
114 
968 
FO 


8£00 
00 


4C1 
6070 


8E00 
00 


171 
147 
B36 
43€ 
1553 
11A 
134 
863 
60 
66F2 
1F1? 
8F2 
15F9 
1F19 
8F2 
1509 
7C5B 
148 
3100 
A6C 
$21 
14—A 
962 
60 
6332 
6032 


149 
14A 
962 
FE 
161 
D2 
8FOO 
000 
501 
7915 
7825 
8CD0 


80 
14A 


SUBprogran and DEF FN <831216. 


b1i=C 

D1=D1- 5 
C=DAT1 A 

R=R1 

7A=0 OB 
GOYES CAL475 


Fra Dec 30, 1983 4:42 an 
Page 21 
D1 POINTS PAST END OF BUFFER 


R= PARAMETER COUNT 
PASSING ANY PARAMETER ? 
IF NOT, JUST INCREASE LEVEL COUNT 


* PASSING PARAMETERS, GENERATE A NEW LEVEL MARKER 


CAL473 


noroor 


GOSUBL =EXPCHH 
coc CAL478 
GOTO = =©CRLSO5 


* INCREASE LEVEL COUNT 


CAL475 


CAL478 


CAL479 


CAL480 


CAL485 
CAL495 
& 


CALSOO 


CALSO4 
CALSO5 
CALNOR 


CALS10 


GOSUBL =FNDAK- 


DI=01+ 2 
C=DAT1 R 
C=C+1 Xx 

GOC CRL473 
DAT1=C X 

C=R2 

DO=C 

?STs0 3 
GOYES CAL479 
GOTO  CAL830 
D1=(5) =S-RO-0 


C=DAT1 10 
D1=(5) =STMTDO 


DAT1=C 10 
GOSUB DIPRCT 
A=DAT1 8B 
LC(2) =tPRNEN 
A=A-1 B 

GONC CALS5OO 
R=DATO B 

*A=C OB 
GOYES CAL495 
GOTO  CAL?710 
GOTO CAL80O 


DATI=A B 
R=DATO B 

7A=C iB 

GOYES CAL485 
DO=D0+ 2 

C=0 A 
GOSBVL =CHKSPC 


GONC CRL510 
GOSUB popch# 
GOSUB POPST- 
GOLONG FNXNOR 


A=DATO B 


NO ROOM 
LOOK FOR LOWEST LEVEL MARKER 


RESTORE DO 


SUB PROG A FILE ? 
IF NOT, GOTO CAL480 


MOVE S-RO-O & S-RO-1 10 


STHTDO & STATO 


GET CALL PARAMETER COUNT 


LOOK FOR PARANETER END TOKEN 
DECREMENT THE COUNTER 

NOT DONE WITH SUB. PARAM YET 
SEE IF EXHAUST CALL.PARAN TOO 


IF SO, GOTO CAL495 


UPDATE THE COUNT 


REACHIND END OF FORMAL PARAM LIST 
IF SO, PARAMETER LIST NOT MATCHING 
PASS OVER THE "(" OR "," 

SEE IF STILL ROOM ON THE STACK 
CHECK IF THERE IS ENOUGH ROOM 


YES IF CARRY CLEAR 

POP OFF CHANNEL # IN LOWEST LEVEL 
POP OFF CALL STACK 

SRY "INSUFFICIENT MEMORY" 
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958 
959 
960 
361 
962 
963 


1926F 3132 
19273 966 
19276 73 
19278 161 
1927B 7ED2 
1927F 8EBE 
DO 
19285 8FO0 
000 
1928C D2 
1928E ABE 
19291 8BA 
19294 01 
19296 71£4 
1929A 70F4 
1929E 8COO 
00 


192A4 AF8 
192A? 853 
192AR 401 
192AD 8E00 
00 
192B3 768C 
192B7 843 
192BA D2 
192BC B56 
192BF 8B5 
192C2 60 
192C4 6BA1 
192C8 136 
192CB 06 


5 192CD 7393 


192D1 108A 


x 


x 


SUBprogran and DEF FN <831216. 


InvArg 


CALS12 


CALS15 


CAL518 


LCASC \#\ 
7AHC OB 
GOYES CAL515 
DO=D0+ 2 
GOSUB DIFSTK 
GOSUBL expr 


GOSBVL =POPARG 


C=0 A 
C=C-1 8B 

7A<=C OR 

GOYES CAL512 
GOSUB popch# 
GOSUB POPST- 
GOLONG =Invarg 


B=A WW 

ST=1 3 

GOC CALS18 
GOSUBL =CALFX1 
GOSUB dest 
ST=0 3 

C=0 A 
C=C+1 

7Bx<C OA 
GOYES CAL518 
GOTO CAL?710 
CDOEX 

RSTK=C 


GOSUB 9 NXTPRM 
R2=C 





4:42 ar 
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Fri Dec 30, 1983 


SEE IF IS A CHANNEL # 


SET D1 TO FORSTK 
GET CHANNEL # 


CONVERT TO HEX 


CHANNEL # <= 255 ? 
IF SO, GOTO CAL512 


SAVE THE CHANNEL # IN B 
SET FLAG 

(B.E.T.) 

GET NEXT SUB-PROG PARANETER 


SEE IF THE VARIABLE ALREADY EXIST ? 
C(A) = 01000 


IF SO, IS DUPLICATING PARAMETER 
SAY PARAMETER MISMATCHING 


SAVE THE PC IN RSTK 
GET NEXT CALL PARAMETER FROM STACK 
SAVE POINTER OF ITEM IN R2 


* NOW WE HAVE INFORMATION OF THE NEXT PARAMETER FROM THE CALL 
LIST AND THE NEXT PARAMETER FROM THE SUB-PROG LIST 

B(S) = TYPE OF THE NEXT PARAM FROM SUB-PROG 

O - SIMPLE VARIABLE ( A ) 

& - NUMERIC ARRAY VARIABLE ( AC) ) 

D - STRING VARIABLE ( A$ ) 

C - STRING VECTOR ( AS() ) 


x 


» 


ee ee ea 


x 


IF P=0 PASS BY REFERENCE 


THEN: 


A(S)= TYPE OF NEXT PARAM FROM CALL 
0,1,2 - REAL, SHORT, INTEGER 

8 - NUMERIC ARRAY 

D - STRING VARIABLE 

C - STRING VECTOR 


IF P=1 - PASS BY VALUE 
THEN: 
A(O)= TYPE OF NEXT ITEM 
0-9 - REAL 
£ - COMPLEX 
F - STRING 


E,F - COMPLEX,SHORT COMPLEX 

A(14) = DIMENSION NUMBER IF A(S)= 8 OR C 

* DO = PL 

R2 POINTS AT THE ITEM OF NEXT PARAMETER IN CALL LIST, ITS 
FIRST 16 NIBBLES ARE IN THE A REGISTER 
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1009 
1019 
1011 
1012 
1013 
1014 
1015 
1016 
101? 


1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 


1035 
1036 
103? 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 


SUBprogran and DEF FN <831216. 
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IS THIS A CHANNEL # ? 
IF NOT, GOTO CRL519 


CREATE AN ENTRY FOR FORMAL PARAM 
GET STACK POINTER OF ACTUAL PRRAN 
GET THE ACTUAL PARAMETER ITEM TO A 


A(S) = C ? 


A(S) # 8 ? 


* ACTUAL PARAMETER IS NUMERIC ARRAY OR STRING VECTOR 


TYPE MATCH ? 


SHIFT A(14) TO ACO) 


READ SUBSCRIPT COUNT 

IS THE SUBSCRIPT COUNT MATCH ? 

IF SO, ERROR OUT 

C(S)= 0 OR 8 

ASSUME IS NUMERIC ARRAY 

IF C(S)= 0, IT IS A NUMERIC ARRAY 


C($) = C 
IS A(S) > C ? 
IS SO, ACS) MAY BE D/E/F 


* ACTUAL PARAMETER IS REAL, SHORT OR INTEGER A(S)= 0,1,2 


192D4 863 ?$T=0 3 
192D7 60 GOYES CAL519 
1929 6461 GOTO  CAL660 
19200 890 CALSI9 7P= 0 
192E0 60 GOYES CAL520 
192E2 61A0 GOTO CAL60O 
+ PASS BY REFERENCE: 
x 
192E6 8FOO CAL520 GOSBVL =CR-VAR 
000 
192ED 11A C=R2 
192FO 135 D1=C 
192F3 1537 A=DATI W 
192F7 2F P= 15 
192F9 30C LCHEX C 
192FC 942 ACS 
192FF AO GOYES CALS30 
19301 A46 C=C+C § 
19304 946 PAHC 
19307 93 GOYES CALS70 
19309 944 CALS) 7ANB S 
1930C 47 GOYES CALERX 
1930E 20 P= 
19310 810 ASLC 
19313 810 ASLC 
19316 1FAB D1=(5) =F-R1-3 
8F2 
1931D 1570 C=DATI P 
19321 906 ANC OP 
19324 C5 GOYES CALERK 
19326 A46 CALS50 C=C+C S 
19329 31CE LCHEX EC 
1932D 94A 7C=0  § 
19330 50 GOYES CAL5S60 
19332 30F LCHEX F 
19335 REA CALS6O A=C B 
19338 1507 CALS65 DATO=A HW 
1933C 6980 GOTO CAL625 
19340 30C CAL570 LCHEX C 
19343 9C6 AC S 
19346 £1 GOYES CALS80 
19348 94D CAL5S75 7BHO S 
1934B 53 GOYES CALERX 
19340 D6 C=A A 
1934F BF2 CSL 
19352 31CF LCHEX FC 
19356 B42 C=C(-A § 
19359 812 cSic 
1935C 1547 DATO=C W 
19360 6560 GOTO CALE25 
19364 B46 CALS8O C=C+1 S$ 
19367 946 TARE 
1936A ED GOYES CAL575 


THE FORMAL PARAM HAS TO BE A REAL 
C(A)= ACTUAL PARAMETER ADDRESS 


C(S)= C, C(O)= F 
C(S)= C/B/A FOR REAL, SHORT, INTEGER 


STORE THE INDIRECT ADDR TO REGISTER 


C(S)= D 
IF A(S)#D IT MUST EQUAL E OR F 
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1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 


1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 


1095 
1096 
1097 
1098 
1099 
1100 
1104 


1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
4111 
1112 
1113 


1936C 944 
1936F 11 

19371 BFO 
19374 BFO 
19377 ABC 
1937A 408 
1937D 584 


x 


SUBprogran and DEF FN «831216. 


?AHB 


GOYES 


ASL 
ASL 


A=A-1 


COC 
GONC 


19380 6FEO CALERX GOTO 
& 


19384 892 
19387 SF 
19389 20 
1938B A82 
1938E ROE 
13391 906 
13394 D3 
19396 816 
19399 A4E 
1939C R4E 
1939F 945 
193A2 ED 


193A4 8F00 
000 
193RB 118 
193AE 135 
193B1 2F 
193B3 30D 
193B6 ACS 
193B9 20 
193BB 1537 
193BF 8FOO 
000 
193C6 07 
193C8 134 
193CB 20 
193CD 655€ 
193D1 940 
19304 CR 
193D6 8F00 
000 
19300 11A 
193E0 135 
193E3 308A 
193E6 1537 
193ER 986 
133ED 90 
193EF 1507 
193F3 520 
193F6 AFe 
193F9 30E 
193FC 109 
193FF 3102 


* PASS BY VALUE 


x 


CAL600 ?P= 


GOYES 


p= 
C=0 


C=C-1 


PARC 


GOYES 


CSRC 


C=C-1 
C=C-1 


?BHC 


GOYES 


STRING 


CAL620 GOSBVL 


C=R2 
D1=C 
P= 


LCHEX 


B=C 
p= 


R=DAT1 
GOSBYL 


CRAL625 C=RSTK 


DO=C 

p= 

GOTO 
CAL630 7BHO 


GOYES 
GOSBYL 


C=Re 
b1=C 


LCHEX 
A=DATI 


PAOC 


GOYES 
CAL640 DRTO=A 


GONC 
CAL650 C=0 


LCHEX 


Ri=C 


LC(2) 


S 
CALERX 
W 
W 
B 
CALS65 
CAL625 


CAL710 


2 
CALERX 


=DFLTCR 


uEZeougo= 
wn 


STRASN 


0 
CAL480 
5 
CALERX 
=CR-VAR 


AL650 
‘AL625 


mEeornov.e yD 


w 
fo 


Fri Dec 30, 1983 4:42 an 


Page 24 
BOTH TYPE = D? 


(B.E.T.) 
RESTORE PC 


Is fornal pran a channel # ? 
If so, error 


IF A(O)= F IT IS A STRING 


C(S)= 0 
TS SUB.PARAN A STRING VARIABLE ? 


CREATE A STRING VARIABLE 


IS THE SUB PARAMETER A SIMPLE VAR. ? 
CREATE A VARIABLE OR DOPE VECTOR 


D1 POINTS TO PARAMETER VALUE 
READ THE VALUE 

TS 17 A COMPLEX ? 

IF SO, GOTO CAL650 

(B.E.T.) 


Ri= DOPE VECTOR OF COMPLEX NUMBER 
32 NIBBLES FOR A COMPLEX. NUMBER 
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1174 
1115 


1116 
111? 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
110 
1131 
1132 
1133 
1134 
1136 
1136 
1137 
1138 
1133 
1140 
1141 
1142 
1143 
1144 
1145 
1146 


1147 
1148 
1149 
1150 
1151 
1182 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 


SUBprogran and DEF FN <831216. 
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Fri Dec 3, 1983 


DO= DOPE VECTOR ADDRESS 
READ RELATIVE POINTER 
RECTIFY ADDRESS 


(B.E.T.) 


® A(2-1) = ACTUAL CHANNEL # (FROM CALL PARAN LIST) 


ACTUAL PRRAN A CHANNEL #7 
If NOT , TYPE ERROR 


A(B) = ACTUAL CHANNEL # 
C(B) = ACTURL CHANNEL # 


MAKE AN INDIRECT CHANNEL # 


C(B) = FORMAL CHANNEL # 
SAVE THE CHANNEL # IN R2 


NO ROON 


x 
x 
+ 4, SANE VARIABLE NAME APPEAR MORE THAN ONCE IN SUB PARAM 
x 
x 


POP OFF THE CALL STACK 


* NOW WE WANT TO EXTRACT A BLOCK OF THE STACK WE USED TO STORE 


19403 108 RO=C 
19406 &FOO GOSBVL =CR-ARR 
000 
1940) D4 R=B A 
1940F 10 DO=A 
19412 16A DO=D0+ 11 
19415 146 C=DATO A 
19418 132 ADOEX 
19418 EA A=A-C A 
19410 10 DO=A 
19420 11A— C=R2 
19423 135 D1=C 
19426 171 D1=D1+ 2 
19429 1537 R=DAT1 W 
19420 17F D1=D1+ 16 
194% 1577 C=DAT1 W 
19434 1547 DATO=C W 
19438 16F DO=D0+ 16 
1943B 538 GONC  CAL640 
* PASSING CHANNEL # 
* B(B) = FORMAL CHANNEL # ( FROM SUB PARAN LIST) 
1943E 882 CRLE660 7PH 2 
19441 F2 GOYES CAL?710 
19443 20 P= 0 
19445 BB4 ASR Xx 
19448 D6 C=R A 
19448 F2 CSL A 
1944C B06 C=C+1 PP 
1944F F2 CSL A 
19451 F2 CSL A 
19453 RES C=B B 
19456 10R R2=C 
19459 8E00 GOSUBL =EXPCH# 
00 
1945F 460 GOC CAL670 
19462 6BFD GOTO CALSO4 
19466 11A CRLE70 C=R2 
19469 145 DAT1=C A 
1946C 695F GOTO CAL625 
k 
* REACHED END OF SUB-PROGRAM PARAMETER LIST 
* ABORT THE CALL IF: 
1. PARAMETER TYPE DOES’ T MATCH 
2. PARAMETERS NUMBER DOES’ T MATCH 
LIST. 
19470 20 CAL710 P= 0 
19472 7413 GOSUB POPSTK 
19476 3100 =NOTMCH LC(2) =ePRMIS 
1947A 6625 wnfert GOTO nferr 
x 
* THE ACTUAL PARAMETERS (TYPE, ADDRESS OR VALUE) 
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1167 
1168 


1169 
1170 


1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 


1187 


1188 
1183 
1190 
11914 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1206 
1206 
1207 
1208 
1209 


1210 
1211 
1212 
1213 


1214 
1215 


1947E 


19485 
19488 


1948F 
19492 
19494 
19496 
19499 
1949C 
1949F 
194A1 
194A4 
194A6 
194A8 
194AR 
194AD 
194B1 
194B5 
194B8 


194BF 


194C6 
194C9 
194CB 
194CE 
194D1 
19405 
194D8 
194DA 
194DE 
194E0 
194E3 
194E5 
194E8 
194ER 
194ED 
194FO 
194F2 
194F5 
194F8 
194FB 
194FD 
19500 


1950? 
1950R 
1950D 
19510 


1961? 
1951A 


x 


1F19 CAL8OO D1=(5) =STNTDO 


8F2 
143 
1BE9 
5F2 
146 
EE 
D? 
174 
147 
136 
E2 
8AA 
C5 
FA 
DF 
132 
7BR4 
31B5 
RED 
8F00 
000 
1FDA 
5F2 
147 
EB 
145 
136 
7EF 1 
133 
D2 
3133 
CA 
131 
eC 
147 = CAL810 
CB 
145 
174 
oc 
52F 
171 
147 
CB 
145 
1B26 CALE 
5F2 
146 
134 
85D 
1F38 
oF2 
AF2 
1509 


A=DATI A 


DO=(5) 


xD 
oS 


YNOIUOGaIan 
rornrornroearnDe 
OoO10O DO ' 
om 
n»DovwyD Dan yDwDD 


on ) ~~ HW tH on 


C=DAT1 
C=C+D 
DAT1=C 
B1=D1+ 
P=P+1 
GONC 
01=D1+ 
C=DAT1 
C=C+D 
DAT1=C 
pOo=(5) 


C=DATO 
DO=C 
ST=1 
01=(5) 


C=0 
DAT1=C 


=FORSTK 


AL83% 


roved3 
58 

B 
=ADJPTR 


=CALSTK 


A 

A 

A 

A 
MANSTK 
A 

51 

A 


nDpDoDyD-— 


CAL810 


3 


npwDompr 


PRGAST 


13 
=ERRSUB 
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GET LOW END ADDR OF THE GAP 
A= LOW END ADDR OF THE GAP 


C= LOW END ADDR OF CURRENT STACK 
C= # OF NIBS TO PULL DOWN(MOVE UP) 
D= SOURCE BLOCK SIZE 


C= HIGH END ADDR OF THE GAP 

D1= HIGH END ADDR OF DESTINATION 
C= 4 OF NIBBLES OF THE GAP 

GAP SIZE = 0 ? 

IF SO DON’T DQ ANYTHING 

C= 2’ COMPLEMENT OF GAP SIZE 
C=SOURCE BLOCK SIZE, D= -(GAP SIZE) 
DO= HIGH END ADDR OF THE SOURCE 
MOVE THE MEMORY TO CLOSE THE GAP 
LOAD THE ASCII OF "Z"+4 

ADJUST ALL CHAIN HEAD ADDRESS 


ADJUST CALSTK 


GET TO START OF MAINFRAME CALL STACK 
ADJUST THOSE OFFSET ON THE STACK 


D1 POINTS TO OFFSET OF FORSTK 


UPDATE OFFSET OF PRMPTR 


DO POINTS TO PROG. START 
SET RUN FLAG 
CLEAR ERRSUB & ERRADR 
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1216 
1217 
1218 


1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
12H” 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
124? 
1248 
1249 
1250 
1261 
1252 


1253 
1254 
1255 
1256 
1267 


1268 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
126? 


1951E 
19521 
19525 


1952B 
1952E 
195% 


19534 
19538 


1953C 
1953F 


19546 
19549 
1954C 


1954E 
19555 


19558 
1955B 


179 
15D9 
8EF5 
EO 
868 
60 
6921 


70B3 
6CFO 


137 
1F99 
5F2 
145 
135 
01 


1F99 
5F2 
147 
137 
01 
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D1=D1+ 10 CLEAR ONINTR & DATPIR 
DAT1=C 10 
GOSUBL CHKTP+ SEE IF CALLING BINARY SUBPROGRAN 
STO 8 
GOYES CAL840 IF NOT, GOTO CAL840 
GOTO ENDSSO PASS THE EOL & JUMP TO BINARY PROG 
x 
CAL840 GOSUB Spglsp Set "PRGN" and clear "SUSP" 
GOTO = =§=runrtn 


x 

x 

SOR TOIT TO TK 
FOR JIT TOOJI IIIB TIO RR TK 
ak 


** Wane: (S) DIMNSTK - Set D1 at MTHSTK (AVNENE) 
xe 


** Category:  EXCUTL 

&K 

** Purpose: Set D1 to point to available nenory end (top of 
a nath stack) 

kk 


*k Entry: None. 
ek 

RX Exit: 

a D1 @ 
oe C(A) = 
tk 


*k Calls: None. 
kx 


kk Uses: C(A) 
ka 


** Stk lvls: 0 

FOI IOI JOJO OTK 
FOI TJ TOIT OT TIT TT 
x 


=MSTKD1 CD1EX 
D1=(5) =MTHSTK 


Top of nath stack (available nenory end) 
Address of AVMENE 


DATI=C A 
D1 =C 
RTN 

x 


=DINSTK 01=(5) =MTHSTK 


DISUB C=DAT1 A 
CD1EX 


RTN 
& 


FOI III TTT TTT TOTO OT 
SOI JIT OO OI 
ak 


kk Nane:(S) DIFSTK - Set 01 to FORSTK 
ik 
**k Category:  EXCUTL 
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1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
12814 


1282 
1283 
1284 
1285 
1286 
128? 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
12 
13903 
1304 
135 
1H6 
1H? 
1H8 
1309 
1310 
1311 
1312 
1313 
1314 
1316 
1316 
131? 
1318 
1319 
1320 
1321 


19550 
19564 


19568 
1956B 
1956F 
19573 
19576 
19573 
1957D 
19581 


19583 
19587 
1958B 
1958E 
19591 
19595 
19599 
1959C 


1FES 
SF2 
GOFF 


1¢9 
15E9 
15D9 
189 
ic9 
15E9 
1509 
01 


15F9 
15C9 
169 
179 
15F9 
15C9 
179 
01 
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ak 


** Purpose: Set 01 to top of FOR/NEXT stack. 
Kk 


** Entry: None 
ik 


** Exit: D1 points at FOR/NEXT STACK 
kk 


kk Uses: C(A) 
kk 


kk Stk lvls: 0 

SOR RORIR IO OOOO OI TIO 
SOROS RO IOR I II OIOI O OIIOK 
* 


=DIFSTK 01=(5) =FORSTK 


; GOTO DISUB 


FOO IO TI 
x 


SAVE2O 01=D1- 10 
C=DATO 10 
DATI=C 10 

SAV10+ DO=D0- 10 
D1=D1- 10 

SAVE10 C=DATO 10 
DATI=C 10 
RIN 


RSTO20 C=DAT1 10 
DATO=C 10 
X=D0+ 10 
Di=D1+ 10 
RSTO1IO C=DAT1 10 
DRTO=C 10 
01=D1+ 10 


RTN 
& 


JOR RIOT OI IIIT TTT TT TO TIO 
JOO OR JOIST OOO III OI TOTO 


kk Nane:(S) ENDSUB - ENDSUB execution 
a 

** Category: STEXEC 

kt 


4* Purpose: End a subprogran, restore the calling progran 
- environrent. 
we 


** Entry: Don’t care 

hot 

** Exit: Exit to NXTSTM 
ax 


** Calls: STMBUF, TRFLCK, TRCLIN, TRIOEN, POPSTK, LINSKP 
am SCOPCK, CLPSTK, CLOSER, KBRICK, SFLAGC, SFLAGS 


FOOT ORO JOO 
SORORITIES IOI 
a 
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1322 1959E 0000 
0 


1323 
1324 
1325 


1326 


1327 
1328 
1329 


1330 


1331 
1332 
1333 


1334 
1335 
1336 


1337 
1338 
1339 
1340 
1341 
142 
1343 


1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 


1382 


1383 
1364 
1365 
1356 
1367 
1358 


1359 
1360 
1361 
1362 
1363 


195A3 
195A8 
195AF 
19586 
195BA 
19580 


195C4 


19504 
19508 
195DB 


195E2 
195E6 
195E9 


195FO 
195F 3 
195F6 
195F3 
19SFC 
195FF 
19601 
19608 


1960B 
1960F 


19613 
1961A 


19620 
19624 


19628 


1962F 
19632 


19635 
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=ENDSDC 
5 
=ENDIO Do it just like the END 
=STNBUF 
trflck NEED TO TRACE ? 
ENDS20 
=TRCLIN 
\BUSDNE \ 
14 
14 
=TRTOEN 
POPSTK 
ENDS30 
= LNSKP- 

SAVE RETURN ADDR IN RO 

C(O) = RETURN TYPE 
P RETURN TO BINARY PROGRAM ? 
ENDSSO IF SO, GOTO ENDSSO 
P RETURN TO KEYBOARD ? 
ENDS40 IF $0, GOTO ENDS40 
=SCOPCK CHECK IF RETURN TO CURRENT PROGRAN 
ENDS30 If lost return addr. do ENDALL 
SpgCsp Set "PRGM" and clear "SUSP" 
ENDS45 


* No return address can return to, do an ENDALL 
x 


=CLPSTK 
=CLOSEA 


=eFnFND IF NOT, SAY FILE NOT FOUND 
nfert 


* KBRTCK will clear PgnRun and PGRN, CNTADR 
x 


REL(S) 
BSS 

8D00 =ENDSUB GOVLNG 
000 
8FOO =ENDSB- GOSBVL 
000 
7723 GOSUB 
472 GOC 
8FOO GOSBVL 
000 
3002 LCASC 
54E4 
4435 
5524 
15CD DATO=C 
16D DO=D0+ 
8F00 GOSBYVL 
000 
74A1 ENDS20 GOSUB 
4C2 GOC 
8FOO GOSBVL 
000 
100 RO=A 
119 C=R1 
AO6 C=C+C 
406 GOC 
90E 2C#O 
92 GOYES 
8FOO GOSBYL 
000 
4R0 GOC 

k 
7902 =ENDS25 GOSUB 
6F10 GOTO 

k 
8FOO ENDS30 GOSBYL 
000 
8E00 GOSUBL 
00 
310 LC(2) 
655€ GOTO 

x 
8FOO ENDS40 GOSBVL 
000 

k 
110  ENDS45 R=RO 
130 DO=A 

x 
3100 runrtn LC(2) 


=KBRTCK SEE IF STRTENENT EMPTY ? 


=t! 
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1364 19639 14f 

1365 1963C 966 

1366 1963F 41 

1367 

1368 

1369 

1370 19641 31D0 

1371 19645 161 

1372 19648 14A 

1373 1964B 966 

1374 1964E 7F 

1375 19650 161 

1376 

1377 19653 8DO0 
000 

1378 

1379 1965A 161 

1380 1965D 136 

1381 19660 06 

1382 19662 03 

1383 

1384 

1385 

1386 

138? 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1336 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 19664 1FB4 
9Fe 

1414 1966B 14F 

1415 1966E AE? 

1416 19671 1F19 
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A=DATO B 

7RAC OB 

GOYES runrtt 
x 


* Skip over connents by looking for the CR(0D) 
x 


LCHEX OD 
ENDS46 DO=D0+ 2 
A=DATO B 
RHC OB 
GOYES ENDS46 
DO=D0+ 2 
x 
runrt? GOVLNG =RUNRT1 


* RETURN TO BINARY PROGRAM 
ENDS5O DO=D0+ 2 

CDOEX 

RSTK=C 


RTNCC 
x 


FOI TTT TIO 
x 


: NXTPRM - ROUTINE TO GET NEXT ITEM OF ACTUAL PARANETER SAVED ON 
STACK. 
WHEN WE PROCESS THE ACTUAL PARAMETERS OF THE CALL STATEMENT, 
THEY ARE PROCESS ONE AT A TIME FROM LEFT TO RIGHT. USUALLY, 
WE WRITE 16+1 NIBBLES ON THE STACK FOR THE TYPE AND ADDRESS 
OF EVERY PARANETER. COMPLEX NUMBER USE 1+34 NIBBLES, STRING 
USE 1+16+#STRING LENGTH. SO WHEN WE SCAN THROUGH THE PARAMETER 
LIST, THE LAST PARAMETER IS ON TOP OF THE STACK. 
SO WHEN WE PASS THE ADDRESS OR VALUE TO THE PARAMETER IN THE 
SUB-PROG STATEMENT, WE SHOULD GET THE NEXT ACTUAL PARAMETER 
FROM THE BOTTON OF THE STACK. 
THE LOGIC WE USE TO GET THE NEXT ITEM FROM BOTTOM IS THIS: 
THE NEXT ITEM IS THE N.TH ITEM FROM THE TOP POINTED BY THE 
PARAMETER COUNT(PRHCNT). 


INPUT: (PRMCNT) = # OF REMAINING UNPROCESSED PARAMETERS 
(STNTDO) = ADDRESS OF THE TOP OF THE PARAMETERS 
BLOCK ON THE STACK (LOWER END ADDRESS) 
USED: D1, P, CCA), A, B(B) 
OUTPUT: A = THE FIRST 16 NIBBLES OF THE NEXT ITEN 
€ = POINTS TO THAT ITEM 
P= QO - PASS BY REFERENCE 
1 - PASS BY VALUE 
2 - PASS CHANNEL # 


ee ee Oe Oe OOO 


CARRY SET IF R1= 0 WHEN COME IN 
NXTPRN D1=(5) =PRNCNT 


C=DAT1 B GET THE CURRENT PARAMETER COUNT 
D=C B SAVE THE DECRENENTED COUNT IN D 
01=(5) =STMTDO GET THE TOP ADDR OF THE STACK BLOCK 
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1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
14% 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1456 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1420 


8F2 
19678 147 
1967B 135 
1967E 20 
19680 14F 
19683 170 
19686 ROF 
19689 4C3 
1968C 90E 
1968F 80 
19691 1?F 
19694 5BE 
19697 BE6 
1969R 806 
1969D 561 
196A0 171 
196A3 147 
196A6 17D 
196A9 133 
196AC CA 
196RE 131 
196B1 SEC 
196B4 B06 
19687 580 
196BA 171 
196BD 17F 
196CO 17F 
196C3 5CB 
196C6 80D0 
196CA 1537 
196CE 137 
196D1 03 


SUBprogran and DEF FN <831216. Fri Dec ©, 1983 4:42 an 
Page 31 
C=DAT1 A 
01=C 
P= 0 
NXPM10 C=DATi B READ THE 1ST NIBS OF THE NEXT ITEM 
D1=D1+ 1 
D=D-1 B IS THIS THE nTH ITEM WE WANT ? 
GOC NXPHSO YES, IF CARRY SET 
7C#O OP IS ITEM PASS BY VALUE 
GOYES NXPN2O YES, IF 1ST NIBBLE = 1 
NXPM15 D1=D1+ 16 
GONC NXPMN10 (B.E.T.) 
NXPN2O CSR B C(O) = ITEM TYPE 
C=C+1 P IF C(O) = F, IT IS A STRING 
GONC SKITN2 SIZE OF A STRING=1+16+STRING LENGTH 
01=D1+ 2 POINTS TO THE STRING LENGTH 
C=DAT1 A RERD THE STRING LENGTH 
D1=D1+ 14 
ADIEX 
A=A+C A POINTS TO THE END OF THE STRING 
D1=A 
GONC NXPHIO (B.E.T.) 
SKITM2 C=C+1 P IF C(O) = E, IT IS A COMPLEX NUMBER 
GONC SKITNS IT IS A REAL IF NOT A COMPLEX 
D1=Di+ 2 COMPLEX NUMBER LENGTH= 1+2+16+16 
D1=Di+ 16 
SKITNS Di=D1+ 16 
GONC NXPM10 (B.E.T.) 
NXPNSO P=C 0 P = 0 OR 1 OR 2 
A=DAT1 W READ THE FIRST 16 NIBS OF THE ITEN 
CDIEX 
RTNCC RETURN WITH CARRY CLEAR 


x 

FOR IOI JO RJT I IST IIIT 
FOOT JOTI STR ITI IT 
xk 


** Nane: MANSTK - Main stack 

ke 

®* Category:  EXCUTL 

xk 

** Purpose: Find the nainfrane call stack 
kk 

ek Entry: D1 @ CALSTK 

ka P=0 

ke 

ek Exit: D1 @ top of mainframe call stack 
kk 

**® Calls: None 

aa 

*k Uses: ACA), CCR), D1 


aK 
** Stk lvls: 0 

ak 

JI IIIS ITI IIIT ITO SII III IIIT II TEI II IIIT IIIT II IASI IIA 
JO III II IIIA I SII IIIT SII TI SIO II ITI III IIIS IDIOI ISOS IIIS ISIS SA 
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1471 
1472 
1473 
1474 


1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1602 
1503 
1504 
1505 


1506 
150? 
1508 
1509 


1510 
15114 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1513 
1620 
1521 


19603 
196D6 
19609 


196E0 
196E3 
196E5 
196E7 
196E9 
196EC 
196EE 
1 96F 1 


196F4 
1 96F 8 


196FB 


19701 
19703 


19706 


19700 
19710 
19713 


1971? 
1971A 
1971D 
19720 
19723 


19725 


143 
174 
3400 
F40 
8A2 
00 
F4 
F4 
137 
cA 
131 
S1E 


7C60 
500 


8E00 
00 
63 
580 


8C00 
00 


7450 
134 
7 CBF 


175 
14? 
1€4 
8AA 
00 


1805 
5Fe 





SUBprogran and DEF FN <831216. Fri Dec ®, 1983 4:42 an 


x 
=MANSTK 


x 


Page 32 


R=DAT1 A A(B)=BLOCK ID, A(4,2)=BLOCK SIZE 
D1=01+ 5 STEP OVER THE BLOCK HEADER 
LC(5) #04FOO 


*A=C OAR 

RTNYES 

ASR A 

ASR A A(X)=BLOCK LENG(NOT INCLUDE HEADER) 
CDIEX 

A=A+C AR 

Di=A 

GONC  MANSTK (B.E.T) 


FOR IOI RTO TIO TO TIO 


x 


* RSTPTR - RESTORE SOME POINTERS OF THE CALLING PROGRAM FROM THE 


& CALL STACK 

* ENTRY: DON’T CARE 

x 

* EXIT: R1= RETURN TYPE (O-PROGRAN, 1-KEYBOARD, 8-BINARY) 
x PCADDR = RETURN ADDRESS 

& CARRY CLEAR IF NO MORE SUB-PROG NESTING 

& CARRY SET IF STILL MORE SUB-PROG NESTING TO GO 

x 

* CALLS: SUBCHK, POLL, NANSTK, RSTO20, DOPCAD, RSTOPT, RSTPRN 
x 

+ USES: A, B, C, R1, DO, D1, P 

x 

+ STK LVL : 2 


FORO III TUTTO OTTO TOR TOR IIT OT I TIT ITT ON 


x 
RSTPIR 


k 
RSTP10 


x 
bserr 


x 


RSTP20 


x 


GOSUB = SUBCHK 
RTNNC 


GOSUBL =POLL 


CON(2) =pCALRS LET LEX FILE TO RESTORE INFO. 
GONC = =RSTP20 No error if carry clear 


GOLONG =BsErr 


GOSUB SUBCHK 
D1=A 
GOSUB MANSTK GET TO START OF MAINFRAME CALL STACK 


Di=D1+ 541 D1 @ PREVIOUS PRGNST 
C=DAT1 A 

D1=01- 5 

*C=0)—O#—A 

RTNYES 


DO=(5) =CURRST RESTORE CURRST,PRGMST, PRGMNEN, CURREN 
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1522 1972C 735E GOSUB RSTO20 
1523 , 
1524 19730 7D40 GOSUB DOPCAD RESTORE PCADDR & CNTADR 
1525 19734 795E GOSUB RSTO010 
1526 ‘ 
1527 19738 169 DO=D0+ 10 RESTORE ERRSUB - DATPTR 
1528 1973B 744E GOSUB = RSTO20 
1529 : 
15%) 1973F 189 DO=(5) =FORSTK 
5F2 
1531 19746 2C P= 12 RESTORE FORSTK, GSBSTK, ACTIVE, CALSTK 
1532 19748 8E02 RSTP50 GOSUBL RSTOPT 
RO 
1533 1974E 164 DO=D0+ 5 
1534 19751 OC P=P+14 
1535 19753 S4F GONC RSTPSO 
1536 19756 SEAF GOSUBL RSTPRN RESTORE PARAMETER COUNT & POINTER 
% 
1537 1975C 14F C=DAT1 B 
1538 1975F 109 R1=C SAVE RETURN TYPE IN R14 
1539 19762 03 RTNCC 
1540 . 
1541 a 
1542 19764 1F2B =SUBCHK D1=(5) =RANEND 
5F2 
1543 1976B 147 C=DAT1 A 
1544 1976E 1C4 D1=D1- (RAMEND)-(CALSTK) 
1545 19771 143 A=DAT1 A 
1546 19774 8A6 RAC OA 
1547 19777 00 RTNYES 
1548 19779 03 RTNCC 
1549 x 
1550 1977B 8C00 popch# GOLONG =POPCHH 
00 
1551 & 
1552 19781 1B97 DOPCAD DO=(5) =PCADDR 
6F2 
1553 19788 01 RIN 
1554 * 
1555 SKI IDI III TI III IDI III IIIS II ITS III III III IID IOS ISIS SSSI SII IIIT A 
1556 SI III IIA TDI ATI III I III III IIIS IIS IOII IIIS IISITIIS II SSIS TSI ISIS IIIA 
155? ies : 
1558 xX Narie: RBLDCH - Rebuild variable chain head table 
1559 as 
1560 kx Category: VARNGT 
1561 ag 
1562 *%* Purpose: When return fron a sub-progran, the variable chain 
1563 a head 1s pointing at the local variable used by the sub- 
1564 ax progran. So we need to rebuild all the chain heads to 
1565 ak point to the variables of the calling progran. 
1566 RK 
1567 ** Entry: Pointer ACTIVE & CALSTK are pointing at lower and 
1568 a upper bound of the current variable set. 
1569 ‘% 


1570 RK Exit: P=0 
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1571 tm 
1572 t* Calls: ARYSIZ 
1573 te 
1524 t* Uses: A,B, C,D,00,D1,RO,R2,P 
1575 ti 
1576 ** Stk lvls: 3 
1577 JOTI IIIT OC IG III TTT 
1578 JOTI ICICI IOI IO TTC OT ITI 
1579 k 
1580 1978A 7DEF POPSTK GOSUB popch# 
1581 1978E 726F POPST- GOSUB RSTPTR 
1582 19792 400 : RINC RETURN IF LOST RETURN PROGRAN 
1583 
1584 19795 1F0A =RBLDCH D01=(5) =CALSTK 
5F2 
1585 1979C 143 A=DAT1 A 
1586 1979F 131 D1I=R D1= CALL STACK POINTER 
1587 197A2 1CF D1=D1- 16 POINT TQ 1ST VARIABLE NANE 
1588 197A5 1C2 D1=D1- 3 
1589 197A8 BFO ASL W 
1590 197AB BFO ASL W 
1591 197AE 1BEB DO=(5) =CHNLST POINTS 10 CHAIN HEAD 
5F2 
1592 197B5 20 P= 0 
1593 197B7 3191 LC(2) 25 
1594 197BB 1586 RBC100 DATO=A 7 
1595 197BF 166 DO=D0+ 7 
1596 19702 AGE C=C-1 B 
1997 197C5 55F GONC RBC100 
1598 197C8 31B5 LCHEX 58 
1599 197CC RE? D=C B D= LAST VARIABLE LETTER 
1600 197CF 840 ST=0 60 INITIAL ARRAY EXIST FLAG 
1601 197BD2 133 RBC110 ADIEX 
1602 197D5 1F8A Di=(5) =ACTIVE 
5F2 
1603 197DC 147 C=DAT1 A GET THE END OF VARIABLE ADDRESS 
1604 197DF 131 D1=A 
1605 197E2 8BE ?C<=R A PASS OVER THE END ADDR YET ? 
1606 197E5 60 GOYES RBC115 
1607 197E7 64FO GOTO RBC240 
1608 197EB 148 RBC115 A=DAT1 B READ THE NEXT VARIABLE NAME 
1609 197EE 31F5 LCHEX 5F MASK OUT THE STRING BIT 
1610 197F2 GE62 C=A&C B 
1611 197F6 963 7C=D) OB IS NEXT VAR STILL THE SANE LETTER 
1612 197F9 60 GOYES RBC125 IF SO, GOTO RBC125 
1613 197FB 6E70 GOTO RBC200 
1614 & 
1015 * LOOKS LIKE THE NEXT VARIABLE STILL HAS THE SAME LETTER. 
1616 *% BUT NEXT TOKEN MIGHT NOT BE A VARIABLE NAME, IT COULD BE PART 
1617 % OF AN ARRAY ELEMENT. SO LET’S MAKE SURE THIS IS NOT THE CASE. 
1618 & 
1619 197FF 860 RBCI25 *ST=0 0 ANY ARRAY IN THIS CLASS OF VARIABLE 
1620 19802 EO GOYES RBC130 IF SO=0, THERE IS NONE. WE ARE SAFE 
1621 19804 118 C=RO GET END OF LAST ARRAY ADDR FROM RO 


1622 19807 7D4be GOSUB A=D1 A= CURRENT VARIABLE ADDRESS 
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1623 
1624 
1625 
1626 
1627 
1628 
1629 
16% 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 


1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1665 
1656 
165? 
1658 
1689 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 


1980B 
1980E 
19810 
19813 
19816 
19819 
1981C 
1981F 
19822 
19825 
19828 
1982B 
1982E 
19832 
19835 
19837 
19839 
1983C 
1983€ 
19842 
19845 
19847 
19848 
1984D 


19854 
19856 
19858 
1985C 
1985F 
19862 
19865 
19867 
1986A 
1986D 
19870 
19873 
19876 


1987A 
1987D 
1987F 
19882 
19885 
19888 
1988B 
1988) 
19890 


8B2 AKC OR 
C6 GOYES RBC200 
14€ RBC1X C=DATO B 
B66 C=C+1 B 
14C DATO=C B 
161 DO=D0+ 2 
137 CD1EX 
135 D1=C 
144 DATO=C A 
181 DO=D0- 2 
172 D1i=Di+ 3 
148 A=DAT1 B 
31AR0 LCHEX OA 
982 7Ac<C OP 
B3 GOYES RBC150 
E6 C=C+1 A 
9EA *A<=C OB 
43 GOYES RBC150 
310E LCHEX £0 
SEE 7A>=C B 
B2 GOYES RBC150 
ABF CDEX xX 
108 RO=C 
8FOO GOSBVL =ARYSIZ 
000 
* NOW D1 POINTS AT THE ARRAY 
x C= ARRA POINTER 
x A= ARRAY SIZE 
: END OF ARRAY ADDRESS = D1 
EE C=A-C A 
7EFS GOSUB A=D1 
C2 C=A+C A 
128 CROEX 
AB? D=C x 
870 ?ST=1 0 
50 GOYES RBC140 
102 R2=A 
1CA RBC140 D1=D1- 11 
850 ST=1 0 


C5 RBC150 D1=D1- 6 
1CF RBC155 D1=D1- 16 


6B5F RBC160 
x 


GOTO 


RBC110 
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ARE WE POINT INTO THE ARRAY YET ? 
IF SO, NEXT TOKEN NOT THE SANE LETTER 
INCREMENT THE HEAD COUNT 


UPDATE CHAIN HEAD ADDR 100 


TS THIS VAR. A POINTER REFERENCE? 


TS IT A REAL NUMBER ? 

YES 

C(B) = 0B 

IS IT AN INTEGER OR SHORT ? 


MIGHT BE INDIRECT ADDRESS ? 
YES 
SAVE CURRENT LETTER INTO RO 


COMPUTE ARRAY SIZE 
POINTER 


- ARRAY POINTER + ARRAY SIZE 
ARRAY SIZE - ARRAY POINTER 


C= END OF ARRAY ADDRESS 

SAVE END OF ARRAY ADDRESS IN RO 
RESTORE CURRENT LETTER TO D(X) 

IS THIS THE 1ST ARRAY NET ? 

IF NOT GOTO RBC140 

SAVE 1ST ARRAY POINTER INTO R2 
POINTS BACK TO START OF DOPE VECTOR 
SET ARRAY FLAG 

POINTS TO NEXT VARIABLE NANE 


* REACHED END OF A VARIABLE CLASS 
x 


860 RBC200 
C1 

12A 

135 

14? 

133 

EA 

131 

1€2 


?$T=0 
GOYES 
CR2EX 
b1=C 

C=DAT1 
ADIEX 
A=A-C 
Di=A 

D1 =01- 


0 
RBC210 
A 
A 
3 


ANY POINTER REF. IN THIS CLASS? 
IF NOT GOTO RBC210 
GET 1ST ARRAY POINTER FROM R2 


READ THE ARRAY POINTER 
A= ADDRESS OF ARRAY POINTER 
A= START OF THE ARRAY 
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167? 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
168? 
1688 
1683 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
169? 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 


1706 
1707 
1708 
1709 
1710 


1711 
1712 
1713 
1714 
1715 
1716 
171? 
1718 
1719 
1720 
1724 
1722 
1723 
1724 
1725 
1726 
172? 
1728 
1729 


19893 
19896 
19899 
1989C 
198R0 
198R4 
198A8 
198RB 
198AE 
198B1 
198B3 
198B5 
198B8 
198BB 
198BE 
19801 
198C4 
198C? 
198CA 
198CD 
198D0 
19803 
198D6 
19808 


1980C 
198DE 


198E1 


198E8 


840 
5CD 
14B 
31F5 
OE 66 
3114 
R6F 
186 
SEB 
40 

03 

161 

17F 
172 
137 
144 
137 
1CF 

1€2 
181 

AEB 
966 
EC 

662F 


DO 
55C 


8000 
000 


8D00 
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ST=0 60 
GONC RBC155 

RBC210 A=DAT1 B 
LCHEX 5F 
A=R&C OB 

RBC220 LCASC \A\ 
D=0-1 8 
DO=D0- 7 
7Do=C B 
GOYES RBC230 
RTNCC 

RBC2% DO=D0+ 2 

01=01+ 16 
D1=D1+ 3 
CDIEX 
DATO=C A 
CD1EX 
D1=Di- 16 
01=01- 3 
DO=D0- 2 
C=) B 
AKC O=B 
GOYES RBC220 
GOTO RBC125 

x 

RBC240 A=0 A 
: GONC  RBC220 


trflck GOVLNG =TRFLCK 


x 
x 
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(B.E.T.) 
READ THE NEW LETTER AGAIN 
MASK OFF STRING & TRACE BITS 


POINTS TO NEXT LETTER IN THE CHAIN 
POINTS TO NEXT CHAIN HEAD ADDR 
SHOT OVER LETTER "A" YET ? 


IF SO, WE ARE DONE 
MOVE UP CHAIN HEAD ADDRESS FIRST 


IS THIS THE NEXT LETTER ? 
IF NOT, SKIP THIS LETTER 


(B.E.T.) 


* Spglsp - Set "PRGN" and clear "SUSP" annociator 
k 


SpgCsp GOVLNG =SFGPGH 


x 


FORO IOI TOTO ITT TOT TOT TOTTI 
FORO TIO OTIC OUT IIIT IT ITT 


** Nane: DEF - 
kk 


**& Category: STEXEC 
kt 


Execution of DEF staterent. 


** Purpose: When progrart execution encounter the DEF statenent, 
ae skip over the entire user-define function block. 


aR 


** Entry: DO pts past the DEF token 


kx 


**k Exit: Exit to NXTSTN 


xk 


kk Uses: ACA), BCA), CCA), DO 


x 


kk Stk lvl: 0 


kK 
** Detail: 


Saturn Assenbler SUBprogran and DEF FN <831216. Fra Dec 30, 1983 4:42 an 


Ver. 3.39/Rev. 26 Page 37 
1780 ak What follows the DEF token is the Label chain and after 
1731 a the Label chain is a token will indicate this is a single 
1732 ol line or nulti-line UDF. If the token 1s a non-zero byte, 
1733 is this 1s a single line UDF, else this is a multi-line UDF. 
1734 xe The way to skip over a multi-line UDF 1s to look for the 
1735 ae ENDDEF token. But if we run into another DEF token before 
1736 ak we find the ENDDEF token, then we know the UDFs are 
1737 ak nested. 

1738 aK 
1739 JI UII III OTST I TSO ST OS SOS IOS ISI IIS II AIK 
1740 JI IIT OT I III TOIT IO RISTO I III II SI IIIS III III ISIS IIIS TI II. 
1741 RR 
1742 198EF 0000 REL(5) =DEFOC 
0 
1743 198F4 0000 REL(S) =DEFP 
0 
1744 198F9 164 =DEF DO=D0+ 5 DO PASSED THE ADDREESS FIELD 
1745 198FC 14A A=DATO B READ THE tFN TOKEN 
1746 198FF 96C AHO | OB IS THIS A SINGLE LINE FUNCTION ? 
1747 19902 25 GOYES DEF6O IF SO, SKIP OVER THIS LINE 
1748 19904 Di B=0 A PREPARE FOR NESTING DEF STRUCTURE 
1749 19906 184 DO=D0- 5 POINTS BACK TO ADDRESS FIELD 
1750 19909 146 DEFIO C=DATO A READ THE LINKT LINK 
1751 1990C E6 C=C+1 A ARE WE AT END OF CHAIN ? 
1752 1990E 494 GOC DEF 70 IF SO, do an END 
1753 19911 7B45 GOSUB DdO+C 
1754 19915 182 DO=D0- 3 POINTS TO NEXT LINK -2 
1755 19918 3100 LC(2)} =tENDOF SEE IT IS RAN “ENDDEF" TOKEN 
1756 1991C 14A A=DATO B 
1757 1991F 161 DO=D0+ 2 POINTS BACK TO LINK FIELD 
1758 19922 962 *A=C OB IS THIS A ENDDEF TOKEN ? 
1759 19925 F4 GOYES DEFH# 
1760 19927 3100 LC(2) =tDEF 
1761 1992B 966 7AHC OB IS THIS ANOTHER DEF ? 
1762 1992E BD GOYES DEF1O IF NOT GOTO DEF20 
1763 19930 164 DO=D0+ 5 
1764 19933 14A A=DATO B READ THE tFN TOKEN 
1765 19936 184 DO=D0- 5 POINTS BACK TO LINK FIELD 
1766 19939 96C AHO OB SINGLE LINE FUNCTION ? 
1767 1993C DC GOYES DEF1O IF SO, GOTO DEF10 
1768 1993E B65 B=B+1 8B 
1769 19941 57C GONC DEFIO 
1770 19944 A6D =DEF3O «=6B=B-1 B END OF DEF NESTING YET ? 
1771 19947 SIC GONC DEF10 IF NOT, KEEP LOOKING 
1772 1994A 183 DO=D0- 4 DO POINTS TO LINE LEN OF ENDDEF 
1773 * HAVE NOT TOUCHED sENDx 
1774 1994D 8D00 GOVLNG =NXTST2 
000 
1775 19954 6280 DEF6O GOTO nxtstn 
1776 x 
1777 19958 6F4C DEF70 GOTO ENDSUB 
1778 - 
1779 x 


1780 1995C 8C00 noved3 GOLONG =NOVED3 
00 
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1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1783 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 


1810 
1811 
1812 
1813 
1814 
1815 
1816 
181? 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 


182? 


1828 
18293 
1830 
1831 
1832 


19962 77FB 
19966 132 
19969 1B78 
Bre 
19970 14€ 
19973 AGE 
19976 462 
19979 RE? 
1997C 161 
1997F 146 
19982 134 
19985 AboF 
19988 4B0 
1998B 162 
1998E 16F 
19991 53F 
19994 1563 
19998 931 
1993B CO 
1999D 3100 
199A1 8CO00 
00 
199A? 800 
000 
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FOOT TIO TT TTT IOI TT RII. 
FORO ITI TOTO TT TTT TE IIR 


ak 


** Nane: FC 
xx 


xk Category: 
ak 


MADR - 
VARNGT 


Function address 


** Purpose: Search the current function value on the stack 


AX This is for the function assignnent statenent 
xk 

**k Entry: DO= PC pts past the function nane 

ak B(X) = Function nane (generated by the ADRSUB) 
a 

*X Exit: A = PC (input of DO) 

am DO = Address to store the function value 

xe B= 0 

kk If function not found, exit to error routine 


kX Calls: DIF 
xe 


STK 


** Uses: A(A),B(A),C(A),0(B),D0,D1 


xh 
*k Stk lvls: 1 


FOUR IOI ITO TOU TT TUTTI TI II 
FOI TOIT TOTO TIT TOTO II IK 


x 
FCNADR GOSUB 


FNX110 


FNX120 C=DRTO 


=FNMISS LC(2) 
nferr GOLONG 


FNX130 GOVLNG 


00=20+ 
ADOEX 
B=A 
ADOEX 


oe be Oe 


DIFSTK 
=PRMPTR 
B 


B 
FNMISS 
B 
2 
A 


B 
FNX120 
3 

16 
FNX110 
x 


XK 

FNK130 
=eFNNtF 
=MFERR } 


=ADRS8O 


3 
A 


SET D1 TO FORSTK 
LOOK FOR THE FUNCTION NANE 


NOT IN DEF FN IF PARAM COUNT =0 


GET TO FUNCTION NAME 


(B.E.T.) 
READ CURRENT FUNCTION NANE 


THIS IS THE RIGHT FUNCTION NANE 


DO THE FOLLOWING INSTRUCTIONS 


PASS FN NAME 
SAVE ADDR TO BCA) 
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1833 . RTNCC 
1834 * 
1835 FOI IOI JO TOTO TOTO TT TT 
1836 SOIR JOIST TOTTI TT TTT RT ITOK 
1837 aa 
1838 ** Nane: FN - Function execution 
1839 ** Narie: FNBIN - Function execution 
1840 aE 
1841 *k Category: STEXEC 
1842 af 
1843 ** Purpose : 
1844 ak 1. Evalue user defineded function within an expression 
1845 aK execution. 
1846 .* 2. Execution of a FN assignnent statenent. 
1847 kk 
1848 ** Entry: DO pts at the function nane (past the tFN token) 
1849 ak D1 pts top of the math stack 
1850 ae 
1851 AK Exit: 
1852 ae This routine return to EXPR, so can’t be called as 
1853 ak a routine. 
1854 a DO pts past the function token. 
1855 ak 
1856 a 
1857 ** Calls: FCNADR, GETNAN, PTRRCL, RECALL, ASNSTO, CR-PAR 
1858 ae EXPEXC, FLTDH, STKCHK, MOVEU3, NOVED3, TRFLCK, TRFRON 
1859 x8 COMPLH, TRTO*, SFLAG?, PRSCKB, FNDFCN, PTRSUB, GETPC 
1860 ak FCALC?, SAVPTR, DOPCAD, FPOLL 
1864 ak 
1862 ** Uses: Everything 
1863 xa 
1864 *X Stk lvls: +6 
1865 a 
1866 ** Detail: 
1867 an 
1868 *k 4, The formal paraneters of a function are local variables to 
1869 ae the function. 
1870 ne 
1871 xk 2, The local variables of a function are stored on the math 
1872 ae stack on top of the current math stack. 
1873 Be 
1874 xk 3. PRMPTR are a seven nibbles vector which point to the 
1875 am function parameter stack. The first tuo nibbles is the 
1876 a parameter count. The count is equal to the nunber of 
1877 aS paraneters minus one. 
1878 - 
1879 aK Paraneter count = 0 - Not executing an UDF. 
1880 ak ff = 1 - The UDF has no paraneter. 
1881 a ff = n - Number of paraneters equal to n-1. 
1882 - 
1883 kk 4, If paraneter count is non-zero, the next five nibbles is 
1884 ax the address of the first paraneter. All the dope vectors 
1885 a of the paraneter are next to each other just like a block 
1886 ae of variables that have the sane letter. 


1887 x 
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1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 


1933 
1934 
1935 
1936 
1937 
1938 
1939 


199RE CCCC 
CCC 
cCce 
CC 
199BC OF 
199BE 132 
199C1 130 
199C4 7DB6 
199C8 AE? 
133CB 1560 
199CF B06 
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*x 5, The dope vector of the function value is placed after the 


xk 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
aK 
xk 
xk 
ak 
xk 
kx 
xk 
ak 
xk 
xk 
ak 
ax 
xk 
ak 
ak 
ak 
kk 
ak 
ak 
ak 
ak 
aK 
ak 
xk 
xk 
ak 
aK 
xk 
kx 


6. 


parameters just above the old math stack. 


Above the paraneter stack, there is a block of menory used 
as a function stack. 
The itens stacked by an user defineded function are: 


. FOOOOO (6) - This five zeros prevent the function stack 


been taking as GOSUB return address. 


b. program pointer (5) Following 7 pointers are absolute 


azs~wo 


ze ree 


wos 


. PCRODR (5) addresses, they will be justified 
CNTADR (5) when progran mnenory noved. 

. STMTDO (5) 

. 3 addresses poped off from the hardware stack (15) 


. STMTD1 (5) This five nibbles are assured to be stack 


pointer. If the user function creates a new 
variable, this address will be justified. 


STMTRO (16) Following 32 nibbles are staterient scratch 

STMTR1 (16) register 0 & 1. STMTRO[4:0] is assured to be 
destination of the assignnent statenent. It 
will be justified if math stack noved. 
STMTR1[14:10] is assuned to be the PC points 
at the destination variable. It will be 
justified if progran nenory noved. 


Offset to previous MTHSTK (5) 

Offset to previous FORSTK (5) 

Offset to previous GSBSTK (5) 

Previous paraneter count (2) 

Offset to previous PRMPTR+2 (5) 

STSAVE (3) 

CHNHSY (2) 

Return type (1) 0 - Executed fron program execution 
1 - Executed fron keyboard 
8 - Called by a binary progran 


FOTO I TOTO JIE IK 
FORO IIIT TTT TTT TET TTR TTR IO 


x 
x 


NIBHEX CCCCCCCCCCCCCC 


NIBHEX OE ARGUMENT RANGE (0,14) 

ADOEX Save PC in A tenp. 

DO=A 

GOSUB GETNAN GET THE FUNCTION NANE 

C=0 B 

C=DATO P READ THE PARAMETER COUNT 

C=C+1 P IS THIS A FUNCTION ASSIGNMENT ? 
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1940 
1941 
1942 
1943 
1944 


1945 
1946 
1947 
1948 
1949 
1950 
1951 
1982 
1953 


1954 
1955 


1956 
1957 


1988 
1959 


1960 
1961 
1962 
1963 
1964 


1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 


1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 


199D2 5A3 


199D5 1FB8 
8F2 
1990C CC 
199DE CC 
199£0 141 


199E3 7B7F 
199E7 £4 
199E9 860 
199EC DO 
199EE 8FOO 
000 
199F5 6A0O 
199F9 8F0O 
000 


19R00 8FOO 
000 


19RO7 8C00 
00 


19A0D AOE 
19910 160 
19813 132 
1916 1BAA 
8F2 
19A1D 108 
19920 1540 
19924 184 
19827 140 
19A2A 184 
19R2D 133 
19930 140 
19833 D4 
19835 101 


19A38 316D 
19A3C 8EOO 
00 


19R42 SAO 


19R45 3100 
19R49 675F 


19R4D 8F00 
000 
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Fri Dec 30, 1983 


NO, IF PARAMETER COUNT # F 


* Save the PC in S-R1-2 for trace 
t 


GOTO 
FNX140 GOSBVL 


x 
FNX150 GOSBYL 


k 
nxtstn GOLONG 


x 

FNX200 C=C-1 
DO=D0+ 
RADOEX 
DO=(5) 


RO=C 
DATO=C 
DO=D0- 
DRTO=R 
DO=D0- 
ADIEX 
DATO=A 
A=B 
R1=A 


* Test if FINOFN flag set ? 
x 


LC(2) 
GOSUBL 


GONC 


LC(2) 


GOTO 
& 


=$-R1-2 
A 
A 
A 


FCNADR 
A 


FNX140 


=PTRRCL 


FNK150 
=RECALL 


=RSNSTO 


=NXtstn 


- oO 


=F-RO-3 


»>w»D mDpuwso 


=f1NOFN 
=SF LAG? 


FNX206 


=eI LPAR 
nferr 


Points back to tFN 


PAST THE PARAMETER COUNT 
IS THIS NUMERIC FUNCTION ? 
IF SO GOTO FNX140 


GOTO EXECUTE NEXT STATEMENT 


C(O} = PARAMETER COUNT 
PASS PARAMETER COUNT 
A=PC 


RO= PARAMETER COUNT 

F-RO-3 = PARAMETER COUNT 

F-RO-2 = SAVED PC 

F-RO-1 = PARAM VALUE STACK POINTER 


R1 = FUNCTION NAME 


Is UDF disallowed ? 


If so, say "Illegal Parn" 


% SEARCH THE DEF FN FROM START OF THE FILE 
a 


FNX206 GOSBYL 


=PRSCKB 


Set progran scope first 
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1987 19A54 7056 GOSUB FNDFN- 
1988 19A58 460 GOC FNK240 
1989 19A5B 614F GOTO FNMISS 
199) 19A5SF 1FOR FNK240 D1=(5) =F-RO-1 
8F2 
1991 19A66 147 C=DAT1 A 
1992 19R69 135 Di=C 01 POINTS TO 1ST PARAMETER VALUE 
1993 19R6C 8E0O GOSUBL =STK19? ROOM FOR 19 NIBBLES ON STACK ? 
00 
1994 19A?72 480 GOC FNK260 YES IF CARRY SET 
1995 19A75 8COO FNXNOR GOLONG =NENER) GOTO MENERR 
00 
1996 19R7B 3108 FNX260 LCHEX 80 
4997 19A7F OF69 B=B!IC 8B B(X)= FUNCTION NAME 
1998 19A83 7386 GOSUB CR-PAR 
4999 19A87 860 7$T=0 0 IS THIS NUMERIC FUNCTION ? 
2000 19A8A 04 GOYES FNK280 IF SO, GOTO FNK280 
2001 19A8C 3100 LC(2) =tSEMIC SEE IF STRING LENGTH SPECIFIED 
2002 19A90 14A R=DATO B 
2003 19893 966 TRAC OB 
2004 19A96 43 GOYES FNKX280 IF NOT, USED DEFAULT STRING LENGTH 
2005 19A98 161 DO=D0+ 2 PASS THE SEMICOLON 
2006 19A9B 7105 GOSUB expr 
2007 19A9F 161 DO=D0+ 2 PAST TAIL tSEMIC 
2008 19AA2 17F Di=Di+ 16 
2009 19AA5 8E00 GOSUBL =FLTDH CONVERT FLOATING NUMBER TO BINARY 
00 
2010 19ARB 480 ; GOC FNK270 IF < 65535, USE IT AS SPECIFIED 
2011 
2012 19AARE SCEE FNX265 GOLONG InvArg OTHERWISE, SAY "Invalid Arg." 
7F 
2013 a 
2014 19AB4 24 FNX270 P= 4 SEE IF THE NUMBER IS > 65535 
2015 1SAB6 90C 7ARO OP 
2016 19RBI 20 GOYES FNX275 
2017 19ABB 20 FNX275 P= 0 
2018 19ABD 40F GOC FNXK265 
2019 19ACO 175 D1i=D1+ 6 POINTS TO MAX. LENGTH 
2020 19AC3 1593 DAT1=A 4 
2021 19AC? 1€5 Di=D1- 6 
2022 19ACA 160 FNK280 DO=D0+ 1 
2023 19ACD 3100 LC(2)  =tPRAST SEE IF THIS FN TAKES ANY PARAMETER 
2024 19AD1 714A A=DATO B READ TOKEN FOLLOWS FN NAME 
2025 19AD4 966 RRC OB IS AN "(" FOLLOWS ? 
2026 19AD? 52 GOYES FNXK310 IF NO PRRAM REQUIRED, GOTO FNK310 
2027 19AD9 161 DO=D0+ 2 PASS THE "(" 
2028 19ANC 75AS FNX300 GOSUB GETNAN GET THE 1ST PRRAMETER NAME 
2029 19REO 8E00 GOSUBL =STK19? 
00 
2030 19RE6 5E8 GONC  FNXNOR 
2031 19RES 7D16 GOSUB CR-PAR CREATE DOPE VECTOR FOR THE PARAM 
2032 19AED 3192 LcAscC =\)\ 
2033 19AF1 148A A=DRTO B 
2034 19AF4 966 PARC OB REACH THE ")" YET ? 


2035 19AF? SE GOYES FNX300 IF NOT GOTO FNX300, MORE PARANETERS 
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2036 
2037 


2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2063 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 


19AF9 
1SAFC 


19803 
19B06 
19809 
19B0C 
19BOF 
19812 
19B15 
19B18 
19B1B 
19B1E 


19821 
19B24 
19B28 
19828 
19B2E 
19B32 
19835 
19B38 
19B3B 
19B3€ 
19B41 
19B45 
19848 
19B48 
19B4D 
19B50 
19B54 
19B57 
19859 
19B5B 
19B5E 
19B61 
19B64 
19B66 
19B6A 
1 9B6E 
19B71 
19873 
19B7? 
19B7R 
19B7D 
19B81 
19884 
19B87 
19B8A 
19B8C 


161 
3458 
8F2 
136 
144 
184 
137 
144 
108 
18F 
142 
131 
134 


840 
1563 
R66 
560 
6FCO 
162 
128 
ROE 
4h 
128 
1537 
HA 
982 
FI 
171 
31E0 
962 
Re 
D6 
B06 
R66 
96R 
36 
6FO9 
1563 
93E 
oF 
1507 
17F 
16F 
66AF 
850 
146 
93E 
CD 
148 
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DO=D0+ 2 PASS THE ")" 
FNX310 LC(5) =F-R1-2 
CDOEX 
DATO=C A F-R1-2 = RDDR OF END OF DEF FN 
DO=D0- 5 
CDIEX 
DATO=C A F-Ri-1 = WILL BE THE CURRENT PRNPTR 
R2=C R2 = CURRENT STACK POINTER 
DO=D0- 16 
R=DATO A 
DI=A D1 PTS TO 1ST PARAM VALUE ON STACK 
do=C DO POINTS TO LAST PARAMETER 


* NOW R2 = RUNNING CURRENT STACK POINTER 

x Di = POINTS TO NEXT PARAMETER VALUE ON THE STACK 
x DO = POINTS TO NEXT PARAMETER NANE 

* RO = REMAINING PARAMETER COUNT 

* ASSIGN THE VALUE TO THE PARAMETERS 

x 


ST=0 60 RESET COMPLEX NUMBER FLAG 
FNX320 C=DATO X READ NEXT PRRANETER NANE 
C=C+C 8B IS THIS THE FUNCTION NAME ? 
GONC FNX330 IF NOT GOTO FNX330 
GOTO  FNX400 FN VAR IS LAST ON PARAMETER CHAIN 
FAK3X DO=D0+ 3 
CROEX C= REMAINING PARAMETER COUNT 
C=C-1 P IF # OF ACTUAL PARAMETERS LESS THAN 
GOC FNXTER REQUIRED BY DEF FN, IS AN ERROR 
CROEX 
R=DAT1 W READ THE PARAMETER VALUE 
LCHEX A 
7Ac<C OP IS THE VALUE A REAL NUMBER ? 
GOYES RVALUE IF SO, GOTO RVAULE 
D1i=D1+ 2 
LCHEX O€ 
*A=C OB IS THE VALUE A COMPLEX NUMBER ? 
GOYES CVALUE IF SO, GOTO CVALUE 
C=A A 
C=C+1 P IS THE VALUE A STRING ? 
C=C+C 8B 
=0 = «iB IS THIS A STRING VALUE ? 
GOYES SVALUE IF SO, Ok 
FNXTER GOTO NOTNCH SAY "PARAMETER NOT MATCH" 
RVALUE C=DATO X 
CHO 8X IS THE FORMAL PARAM A REAL TYPE ? 
GOYES FNXTER IF NOT, GOTO FNXTER 
DATO=A W ASSIGN THE VALUE TO THE PARAMETER 
D1=01+ 16 POINTS TO NEXT PARAMETER NAME 
DO=D0+ 16 POINTS TO NEXT PRRAMETER VALUE 
GOTO FNX320 
CVALUE ST=1 0 REMEMBER COMPLEX IN ACTUAL PARAM 
C=DATO A 
CHO |X IS FORMAL PARAMETER A REAL TYPE ? 
GOYES FNXTER IF NOT, GOTO FNKTER 
DRTO=A B MAKE THE DOPE VECTOR A COMPLEX TYPE 
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2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
e114 
2115 
2116 
211? 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
212? 
2128 
2129 


2130 
2131 
e132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2146 
2144 
2142 
2143 


19B8F 
19893 


19897 
19B9B 
19B9E 
1S9BA2 
19BR6 
19BR9 


19BAD 
1SBRF 
19BB3 
19BB7 
19BBA 
19BBD 
19BBF 
19BC1 
19BC4 
19BC? 
19BC9 
19BCC 
19BCF 
19BD3 
19BD6 


19BDA 
19800 
19BDF 
19BE2 
19BE5 
19BE9 
19BEC 


19BFe 
19BF4 
19BF? 
19BFR 


19BFE 
19C01 
19005 
19€09 
19COC 
19COF 


3102 
78E5 


1567 
16F 
1527 
1547 
18F 
1507 


D2 
3102 
6830 
146 
6 
3A 
2 
4 
143 
C2 
162 
8iC 
1583 
182 
7585 


142 
D6 
16D 
8iC 
1593 
173 
8£00 


D3 
136 
135 
692F 


14A 
StF? 
OE66 
148 
162 
146 


SUBprogran and DEF FN <831216. 


x 


iC(2) 32 
GOSUB =PTRSUB 


4:42 ari 
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32 NIBS REQUIRED FOR COMPLEX NUMBER 
CREATE DOPE VECTOR & ALLOCATE SPACE 


* Reverse the order of inaginary and real part of the conplex 
* nunber. 
k 


SVA LUE 


we FF OF Fe 


FNK 380 


WE HAVE ASSIGN VALUE TO ALL THE PARAMETERS . 


LC(2) 32 
FNX380 
C=DATO A 

?ARC OP 
FNXTER 


> 

it 

Oo 

D> 

— 

~ 
wDnDh D 


DATO=R 4 
DO=D0- 3 
PTRSUB 


A=DATO A 

C=A A 
DO=00+ 14 

ASRB 

DATI=A 4 
01=Di+ 4 
GOSUBL =NOVEU3 


C=B A 
COOEX 
D1=C 


GOTO FNX320 


IS THE PARAMETER A STRING TYPE 
IF NOT, GOTO FNXTER 


ADD 4 NIBBLES TO THE STRING LENGTH 
READ THE STRING LENGTH 

C= REQUIRED SPACE 

WRITE THE MAX. LENG TO DOPE VECTOR 
A= STRING LENGTH IN BYTES 


CREATE DOPE VECTOR & ALLOCATE SPACE 


NOW BCA) = POINTS TO NEXT PARAMETER 
R2 & D1 = CURRENT STACK POINTER 
DO = POINTS TO NEXT PARAMETER VALUE 


READ THE STRING LENGTH 
C= STRING LENGTH IN NIBBLES 


A= STRING LENGTH IN BYTES 
WRITE THE LENGTH TO STRING HEAD 


MOVE STRING OR COMPLEX NUMBER 

DO POINTS TO NEXT PARAMETER NAME 
Di POINTS TO NEXT PARAMETER VALUE 
NOW WE WILL 


z 

* ALLOCATE SPACE TO THE FUNCTION VARIABLE IF IT IS A STRING FN. 
* IF R NUMERIC FUNCTION WITH ANY OF ITS PARAMETER COME IN AS A 
* COMPLEX NUMBER, THE FUNCTION WILL BECOME A COMPLEX FUNCTION 


FNK400 


A=DRTO B 
LCHEX = 7F 
A=R&C OB 
DATO=A B 
DO=D0+ 3 
C=DATO A 


MASK OFF THE BIT SET FOR FN NAME 
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2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2183 
2184 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2184 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2196 
2196 
2197 
2198 


19C12 93€ 
19C15 C1 
19€17 870 
19C1A 80 


SUBprogran and DEF FN <831216. 


19C1C 
19C1F 
19C22 
19€26 
19C€29 
19C2D 
19C31 
19C34 
19036 
19C3A 
19C3C 
19C3E 
19€40 
19043 
19C47 
19C4A 
19C4E 
19C51 


19(53 
19€5? 
19C5R 
19(5E 
1960 
19C63 


1966 
19C69 


16F 
564 
31E0 
14C 
3102 
6510 
162 
4 
15E3 
E6 
£6 
C6 
182 
7835 
AF2 
15D3 
860 
DO 


1557 
17F 
1557 
b9 
136 
135 


128 
ROE 


19C6C 460 


19C6F 


19€73 
19C76 
19€79 
19C7C 
19C7E 
19081 
19084 
19€86 
19C88 


66FE 


122 
137 
135 
07 
136 
134 
E3 
E2 
7000 


4:42 an 
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7C#O) XK IS THIS A STRING FUNCTION ? 
GOYES FNX420 IF $0, GOTO FNX420 
*ST=1 0 ANY COMPLEX NUMBERIN PARAMETER ? 
GOYES FNX410 IF SO COTO FNX410 
DO=D0+ 16 PASS THE FUNCTION VALUE 
GONC FNX450 UNCONDITIONAL GOTO FNX450 
FNX410 LCHEX OE GENERATE COMPLEX DOPE VECTOR 
DATO=C B 
LC(2) 32 ALLOCATE 32 NIBBLES FOR COMPLEX FN 
GOTO FNX430 
FNX420 DO=D0+ 3 PTS TO MAX. STRING LENGTH OF FNFS 
C=0 R 
C=DATO 4 C=STRING FCN LENGTH IN BYTES 
C=C+1 A ADD TWO BYTES FOR STRING HEADER 
C=C+1 A 
C=C+C A MULTIPLY BY 2 = # OF NIBS 
DO=D0- 3 
FNX430 GOSUB PTRSUB 
C=0 W ZERO THE NUNBER OR STRING 
DATI=C 4 
?ST=0 6 NOT A COMPLEX FUNCTION ? 
GOYES FNX435 IF NOT, ONLY ZERO STRING LENG. 
k 
DAT1=C W 
D1=D1+ 16 
DAT1=C W 
FNX435 C=B A 
CDOEX DO POINTS TO START OF OLD STACK 
D1=C D1 POINTS TO END OF PARAMETER STACK 
* NOW D1 = STACK POINTER PASS ALL THE PARAMETER VALUES 
© DO = STACK POINTER OF TOP OF THE PARAMETER VALUES 
x R2 = CURRENT TOP OF STACK POINTER 
: RO = # OF PARANETER’S VALUES ON STACK THAT IS NOT REQUIRED 


FNX450 CROEX 


C=C-1 P # OF ACTUAL AND FORMAL PARAM ARTCH? 
GOC FNX490 IF $0, GOTO FNX490 
GOTO FNXTER SAT “PARAMETER MISMATCH" 


* NOW WE WANT 
FNX490 ARZEX 


CDIEX 
D1=C 
D=C 
CDOEX 
DOo=C 
D=D-C 
C=C-A 


TO EXTRACT THE 


A 


A 
A 


PARAMETER VAULE FROM THE STACK 
A= CURRENT TOP OF STACK POINTER 


D= BOTTON OF VALUE STACK ADDRESS 
C= STK.PTR OF TOP OF PARAM VALUE 


D= # OF NIBBLES TO BE EXTRACTED 
C= STACK SIZE TO BE MOVED 


GOSUB noved3 


STACK POINTER WHEN THE FUNCTION IS CALLED 
PC PAST THE PARAMETER COUNT OF THE CALLING ROUTINE 
( RETURN ADDRESS) 
PARAMETERS COUNT 
RODRESS PAST THE tDEF TOKEN OF THE DEF FN 
PARAMETERS CHAIN HEAD OF THE FUNCTION’S VARIABLES 
PC OF THE END OF THE DEF FN STATEMENT(START EXECUTION 


4 


2 Nn 
2222 2828 
t ils 

wow 


OF wh FF Me Oe 
aA TA TH 
4 


! 
mo Ow 
Hom non 





ie 
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2139 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
22%) 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
ee4e 
2243 


e244 
2245 
2246 
224? 
2248 
2249 
2250 
2251 
2252 


19C8C 78E1 
19€90 168 
19093 14€ 
19C96 96E 
19099 11 


19C9B 72D1 
19C9F 5A 


19CA2 3100 
19CA6 6AFC 


19CAR De 
19CAC 318C 
19CBO 74A1 
19(B4 EA 
19CB6 1B49 
5F2 
19CBD 146 
19€CO 8B6 
19CC3 60 
19CC5 6FAD 
19(C3 1C0 
19CCC De 
19CCE 87D 
19CD1 40 
19(D3 E6 
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x ADDRESS OF THE FUNCTION) 
x 


FO III TT III ITT IK 
x 


* NOW D1= NEW TOP OF STACK POINTER 

* F-R1-1 = NEW "PRMPTR" SHOULE BE BEFORE WE EXTRACT THE PARAM 
> VALUES ( NOW IS OFFSET BY D(A)) 

WE WILL STORE THE FOLLOWING POINTERS ON STACK: 


* 


* 1. FOOOOO (6) - THIS 5 NIBS OF ZERO IS TO PREVENT 
x “RETURN TQ UES GARBAGE FOR RETURN ADDRESS 
* 2, PROGRAM POINTER (5) - WILL BE UPDATED WHEN MEMORY MOVE 
* 3. PCADDR (5) - WILL BE UPDATED WHEN MEMORY MOVE 
x CNTADR (5) - if 
* 4, STNTDO (5) - WILL BE UPDATED WHEN MEMORY MOVE 
* —§. 3 HARDWARE RETURN ADDRESS (15) 
* 6. STMTD1 (5) - WILL BE UPDATED WHEN STACK MOVE 
x —=7, S-RO-0,1,2,3 (16) 
* 8. §-R1-0,1,2,3 (16) 
* 9, OFFSET TO PREVIOUS MTHSTK (5) 
* 10. OFFSET TO PREVIOUS FORSTK (5) 
* 11. OFFSET TO PREVIOUS GSBSTK (5) 
* 12. PREVIOUS PARAMETERS COUNT (2) 
* 13. OFFSET TO PREVIOUS PRNPTR (5) 
* 14. STSAVE (3) 
* 815. CHNASY (2) 
* 16. RETURN TYPE (1) 
x TOTAL 105 NIBBLES 
x 
GOSUB GETPC 
DO=D0+ 9 
C=DATO B 
7C#HO iB Is this a single line UDF ? 
GOYES FNX495 If so, don’t check CALC node 
x 
GOSUB  fcalc? SEE IF IN CALC MODE 
GONC FNX495 IF NOT, OK 
x 
LC(2)  =eILCNT SAY "ILLEGAL CONTEX" 
nferre GOTO = nferr 
x 
FNX495 C=0 A 
LC(2) 200 NEED AT LEAST 200 NIBS TO DO FCN 
GOSUB A=D1 A= CURRENT TOP OF STACK 
A=A-C A 
DO=(5) =AVMENS CHECK IF WENT THROUGH AVMEMS 
C=DATO A 
7ArC OA 
GOYES FNX5O00 
GOTO FNXNOR IF SO, SAY “INSUFFICIENT MEMORY" 
FNXSOO D1=D1- 1 
C=0 A 
*ST=1 13 RUNNING A PROGRAM ? 
GOYES FNX510 
C=C+1 A TYPE = 1 - RETURN TO KEYBOARD 
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2253 
2254 


2255 
2256 
2257 
2258 


2259 
2260 
2261 
2262 
2263 


2264 
2265 
2266 
2267 
2268 
2269 


22 20 
2271 
2272 
2273 
2274 
2275 
2276 
2277 


2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 


2290 
2291 
2292 
2293 
2294 
2295 
2296 


2297 
2298 
2299 
2300 


19(D5 1550 
19€D9 1BF6 
9F2 
19CEO 1C1 
19CE3 14€ 
19CE6 14D 
19CE9 1BEB 
6F2 
19CFO 146 
19CF3 12 
19CF6 1553 
19CFR 7E24 
19CFE 183A 
5F2 
19005 2D 
19007 7A34 
1900B 184 
19D0E OC 
19010 5S6F 
19013 1B18 
8F2 
1901R 1CF 
19D1D 1567 
19021 1557 
19025 18F 
19028 1CF 
1902B 1567 
1902F 1557 
19033 1B63 
8F2 
1903A 7041 
19D3E 2D 
19040 07 
19042 7A41 
19046 OC 
19048 57F 
19D4B 184 
19D4E 7831 
19052 7B2A 
19056 1C4 
19059 7018 
19050 1B5A 
8F2 
19064 7221 
19068 D2 
19D6A 145 
19D6D 1C0 
19070 CE 
19072 1550 
19076 1899 
5F2 
19D7D 133 


19080 2D 
19D82 140 
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FNXS510 DATI=C P 


d0=(5) 


b1=D1- 
C=DATO 
DAT1=C 
bo=(5) 


C=DATO 
b1=D1- 
DAT1=C 
GOSUB 

do=(5) 


p= 
FNX520 GOSUB 
DO=D0- 
P=P+1 
GONC 
DO=(5) 


D1=D1- 
C=DATO 
DAT1=C 
DO=D0- 
D1=D1- 
C=DATO 
DAT1=C 
dO=(5) 


GOSUB 
P= 
FNX530 C=RSTK 
GOSUB 
P=P+1 
GONC 


=CHNKSV 


2 
B 
B 
=STSAVE 
A 
3 
Xx 


SAVPRA 
=GSBSTK 


13 
SAVPTR 
5 


FNX520 
=§-R1-0 


16 

WW 

W 

16 

16 

W 

W 
=STATD1 


SAVES - 
13 


SAVES + 
FNX530 


DO=D0- 5 


GOSUB 
GOSUB 
D1=D1- 
GOSUB 
DO=(5) 


GOSUB 
C=0 
DAT1=C 
D1=01- 
C=C-1 
DAT1=C 
DO=(5) 


ADIEX 


P= 
FNX535 DATO=A 


SAVES 
DOPCAD 
5 

SAVE10 
=F -RO-2 


SAVES - 
A 

A 
1 
A 
p 
=MTHSTK 


13 
A 
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SAVE CHNHSV(2) 


SAVE STSAVE 


SAVE PARAMETER COUNT & POINTER 


COMPUTE OFFSET OF PREVIOUS GSBSTK, 


FORSTK,MTHSTK AND SAVE THEN 
COMPUTE OFFSET OF PREVIOUS FORSTK 
AND SAVE IT 


SAVE S-R1-0,1,2,3 


SAVE S-RO-0,1,2,3 


SAVE STNTD1 


SAVE 3 HARDEARE ARRESSES 


SAVE STMTDO 
SAVE PCADDR & CNTADR 


POINTS TO SAVED PC 


PUT 6 NIBS OF FOOOOO ON THE TOP 


MOVE FORSTK & GSBSTK TO TOP OF STACK 
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2301 
2302 
2303 
2304 
2305 


2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 


2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 


2324 
2325 


2326 
2327 


2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 


2338 
c339 
2340 


2341 
2342 
2343 
2344 
2345 
2346 
2347 


19085 164 
19088 OC 
19D8A S7F 


1908D 1BAA 
8F2 
19094 D2 
19096 1560 
19D9A £6 


19D9C 1F76 
5F2 
190A3 14D 
19DA6 171 
19DA9 165 
19DAC 146 
19DAF CB 
19DB1 145 
19DB4 7280 
19088 481 
190BB 8FOO 
000 
19DC2 7280 
19006 8FOO 
000 
190CD 8FOO 
000 
19DD4 8E00 
00 
190DA D3 
190DC 7890 
19DEO 132 
19DE3 7AS9 
19DE?7 140 


19DER D2 
19DEC 309 
19DEF CA 
19DF1 1FB8 
8F2 
19DF8 141 


190FB 1B58 
8Fe 
19£02 146 
19€06 134 
19E08 108 
19EOB 3100 
1SEOF 14A 
19E12 366 
19E15 D3 
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DO=D0+ 5 
P=P+1 
GONC FNX535 


DO=(5) =F-RO-3 
C=0 A 
C=DATO P 
C=C+1 A 


IF PARAMETER COUNT 


ss © Fe 


D1=(5) =PRNPTR 


DAT1=C 
01=D1+ 
0DO=D00+ 
C=DATO 
C=C+D 
DAT1=C 
GOSUB fntrck 
GOC FNX550 
GOSBVL =TRFRON 


Sawmovwomnnrow: 


GOSUB GETPC 
GOSBVL =CONPL# 


GOSBVL =TRTO* 
FNX550 GOSUBL =FPOLL 


CON(2) =pFNIN 
GOSUB GETPC 
ADOEX 

GOSUB DOPCAD 
DATO=A A 
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UPDATE THE PRHPTR 


C(B) = NEW PARANETER COUNT 


0 - NOT IN A DEF FN AT ALL 
1 - IN A DEF FN BUT NO PARAMETER PASSED 
1+N - IN A DEF FN WITH N PARANETER PASSED 


DO POINTS TO F-R1-1 
C= SAVED NEW PRMPTR 
REMEMBER WE EXTRACTED PARAM VALUES? 
C= NEW PRAPTR 
NEED TO TRACE ? 
IF NOT, GOTO FNX550 


UPDRTE PCADDR 
DO=PCADDR 


* SET UP ADDRESS FOR TRACE 


C=0 A 

LC (1) 24245 
A=A+C A 
01=(5) =S-R1-2 


DAT1=R A 
DO=(5) =F-R1-2 


LC(2) = tCONMA 
A=DATO B 

ARC OB 

GOYES FNX590 


DO POINTS TO F-R1-2 
C= SAVED PC 


SEE IF THIS IS A SINGLE LINE DEF FN 


IF NOT, GOTO FNX590 


toe 
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2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 


2356 
2357 
2358 


2359 
2360 
2361 


2362 
2363 
2364 
2365 
2366 
2367 


2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 


2381 
2382 
2383 
2384 


2385 
2386 
2387 
2388 
2389 
239 
2391 
2392 
2393 
2394 
2395 
2396 


19E17 119 
19E1A ABS 
19E1D 3102 
19E£21 OE65 
19E25 96A 
19E28 11 
19E2R 7438 
19EZE 8FOO 
000 
19E35 6E00 
19E39 7528 
19E3D 8F0O 
000 


19E44 85D 
19£47 8F0O 


000 
19E4E 6B60 


19€52 8C78 
7F 


19E58 133 
19E5B 131 
19E5E 01 


19E60 132 
19£63 CA 
19E65 1% 
19€68 01 


19E6A 737A 

19EGE 400 

19£71 8D00 
000 


19E78 1BBA 
8F2 
19E7F 146 
19E82 134 
19685 183 
19E88 01 


19E8A 104 
19E8D 146 
19E90 145 
19693 1C4 
19E96 01 


19698 174 
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C=R1 GET THE FUNCTION NANE FROM R1 
B=C x 

LCHEX 20 SEE IF IT IS A STRING FUNCTION 
C=B8C B 

7t=0 «6B IS THIS A STRING FUNCTION 7 
GOYES FNX560 

GOSUB FCNADR 

GOSBVL =PTRRCL DO A STRING RECALL 


GOTO  FNK570 
FNX560 GOSUB FCNADR 
GOSBVL =RECALL 


x 


FNX570 ST=1 = 13 
GOSBVL =ASNSTO 


GOTO FENDOS GOTO EXECUTE THE ENDFN 


>» we we 


FNX590 GOLONG ENDS25 Set "PRGN" and clear "SUSP" 


A=D1 ADIEX 
Di=A 
RIN 


DO+C = ADOEX 
A=A+C A 
DO=A 
RIN 


fntrck GOSUB trfick 
RTNC 
fcalc? GOVLNG =fCALC? 


x 
x 
TORII IIR IIIT 


GETPC DO=(5) =F-R1O . 


C=pATO A 
Do=C 
DO=D0- 4 
RIN 

x 

SAVES- D1=D1- 5 

SAVES C=DATO A 

SAVES+ DATI=C A 
D1=D1- 5 
RIN 

x 


RSTO5+ D1=Di+ 5 
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2397 19E9B 147 RSTOS C=DAT1 A 

2398 19E9E 6802 GOTO RSTOP+ 

2399 JU OOO OOS SO IOS OT IOS TSO TI SII OTIS SII IS IIIA 

2400 JO III II I II III II IIIS IIIS SSI SST II SSS STS SSI III ISIS I IISA SI STK 

2401 aX 

2402 ** Nane: ENDDEF - END DEF statenent execution 

2403 a% 

2404 ** Category: STEXEC 

2405 ax 

2406 ** Purpose: End an user-define function 

2407 x 

2408 ** Entry: Don’t care 

2409 ae 

2410 ** Exit: Exit to NXTSTM 

2411 ak 

2412 ** Calls: FPOLL, GETCNT, TRFLCK, TRFROM, PRNCHN, DOPCAD 

2413 aK RSTOPT, RSTPRN, MOVEMD, STMBUF, FCALC?, KBRTCK 

2414 aK SNerlf, SFLAGS, SFLAGC 

2415 ax 

2416 ** Uses: A-D, RO-R3, DO,D1, P 

2417 aK 

2418 ** Stk lvl: 4 

2419 JOIST OCIS IIIS ISU IOC CO TT TT 

2420 32) OO OOS SOTO SII IS II OT III III IAI III SOS ID II IIH 

2421 ae 

2422 x 

2423 19EA2 0000 REL(5) =ENDDDC 
0 

2424 19EA?7 BSS 5 

2425 19EAC 1FO7 =ENDDEF 01=(5) =NLFFLG SET MULTI-STMT USER FCN FLAG 
8F2 

2426 19EB3 301 iC(1) 1 

2427 19EB6 15D0 DAT1=C 1 

2428 * 

2429 x 

24% 19€BA 8E0O FENDOS GOSUBL =FPOLL Poll to see if anyone wants to 
00 

2431 19ECO E3 CON(2) =pFNOUT do sonething. 

2432 x 

2433 19EC2 7081 GOSUB GETCNT 

2434 19EC6 560 GONC = FEND10 IN A DEF FN 

2435 19EC9 630A GOTO FNMISS IF SO, SAY "FN MISSING" 

2436 x 

2437 19—ECD AES FENDIO B=C 8 B(B) = # OF PARAM OF THIS UDF 

2438 19ED0 769F GOSUB  fntrck NEED TO TRACE ? 

2439 19ED4 401 GOC FENDI5 

2440 19ED? 8FOO GOSBVL =TRFROM 
000 

2441 19EDE 7494 GOSUB GETCNT 

2442 19EE2 AES B=C B 

2443 * 

2444 * NOW WE WANT TO LOOK FOR THE START OF THE UDF SAVE STACK. 

2445 * STARTING FROM GSBSTK, GOING UP TO LOOK FOR FOOOOO. IT SHOULD 

2446 * BE AT THE BOTTOM OF GSBSTK. PAST THE GSBSTK IS THE START OF 

2447 * THE UDF SAVE STACK. 
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2448 
2449 


2450 
2451 
2452 
2453 
2454 


2455 


2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 


2466 
2467 
2468 
2463 
2470 
2471 
2472 
2473 


2474 
2475 
2476 
2477 
2478 
2479 
2480 


2481 
2482 
2483 
2484 


2485 
2486 
2487 
2488 
2489 
24% 
2491 
2492 
2493 
2494 
2435 


19EE5 


19EEC 
19EEF 
19EF2 
19EF6 
1SEF9 


1SEFF 


19F06 
19FOR 
19F0C 
19FOF 
19F 11 
19F14 
19F 16 
19F 19 
19F1C 
19F 20 


19F 27 
19F 28 
19F OF 
19F 32 
19F 35 
19F 39 
19F 3D 
19F40 


19F 47 
19F49 
19F4D 
19F 50 
19F 52 
19F 55 
19F53 


19F 60 
19F 63 
19F 67 
19F6R 


19F 71 
19F 74 
19F 77 
19F 7A 
19F 7D 
19F 81 
19F 84 
19F 86 
19F 89 
19F 8C 
19F 8F 


x 
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8FOO FENDI5 GOSBVL 


000 
147 
10R 
7838 
174 
8E23 
6F 
1B19 
8F2 
71 9F 
20 
147 
06 
174 
oc 
55F 
164 
7B7F 
1B17 
8F2 
1577 
1547 
17F 
16F 
1572 
1547 
17F 
1B99 
5F2 
20 
7122 
164 
oc 
56F 
DF 1 
1BEB 
6F2 
147 
1543 
172 
1BF6 
9F2 
14F 
14C 
171 
11A 
1574 
10A 
DB 
135 
172 
A6D 
480 


FEND13 


FEND20 


FENDX 


C=DAT1 
R2=C 
GOSUB 
D1=01+ 
GOSUBL 


bO=(5) 


GOSUB 
p= 
C=DAT1 
RSTK=C 
D1=D1+ 
P=P+4 
GONC 
DO=D0+ 
GOSUB 
bO=(5) 


C=DAT1 
DATO=C 
D1=01+ 
DO=D0+ 
C=DAT1 
DATO=C 
D1=01+ 
do=(5) 


p= 
GOSUB 
DO=D0+ 
P=P+1 
GONC 
GOSUB 
DO=(5) 


C=DAT1 
DATO=C 
01=D1+ 
DO=(5) 


=PRICHN 
A 


DOPCAD 
5 
RSTO10 


=STATDO 


RSTOS 
13 
A 


5 


FEND13 
5 

RSTO5 
=S$-RO-0 


W 

W 

16 

16 

W 

W 

16 
=MTHSTK 


13 
RSTOPT 
5 


FEND2O 
RSTPRA 
=STSAVE 


iw oc D 


CHNH SV 


nr oom 


Page 51 


LOOK FOR LAST OF GSBSTK 
READ THE RETURN ADDRESS 
R2 = RETURN PC 

DO= PCADDR 


Restore PCADDR & CNTRDR 


RESTORE STNTDO 
RESTORE 3 HARDWARE ADDRESSES 


RESTORE S-RO-0,1,2,3 


RESTORE S-R1-0,1,2,3 


POINTS TO SAVED FORSTK OFFSET 
RESTORE MTHSTK,FORSTK AND GSBSTK 


RESTORE PARAMETER COUNT & POINTER 


RESTORE STSAVE 
RESTORE CHNASY(2) 


R2(S) = RETURN TYPE 
C= CURRENT PARAMETER CHAIN HERD 


PASS PARAMETER NAME 
PARAMETER CHAIN EXHAUSTED YET ? 
IF SO, GOTO FEND40 
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2496 
2497 
2438 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
250? 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
253? 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 


2543 


19F 92 
19F 95 
19F 98 
19F 9B 
19F SF 
19FR2 
19FA4 
19FR7 
19F AA 
19F AD 
19FB1 
19FB3 
19F B6 
19F89 


19F BB 
19F BE 
19FC1 
19FC4 
1S9FC? 
19FCB 


19F CF 
19FD3 
19F D6 
19FDA 
19FDE 
1SFE1 


19FES 
1S9FE8 
19FEC 
19FEF 
1SFF3 
19FF7 
1SFFA 
1SFFC 
19FFE 
TROD? 
1 R006 
1ROO9 
TROOT 
1ROOE 
1A011 
1R014 
1AO1? 
1RO1B 
TAOTE 
1A021 


1?F 
53F 
OR 
1537 
982 
97 
ABS 
178 
147 
77RE 
EE 
134 
174 
D2 


BOS 
443 
16F 
16F 
3102 
7089 


1577 
1?7F 
1537 
1557 
CF 
1517 


1C1 
S1EO 
14D 
6820 
15E3 
163 
C6 
DS 
7ESE 
7659 
1CF 
AF 2 
9 
BFe 
BF2 
ROE 
1687 
137 
10B 
8FOO 
000 
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Di=01+ 16 
GONC FEND30 (B.E.T.) 
FEND40 LCHEX A SEE WHAT TYPE OF FUNCTION THIS IS 
A=DAT1 W 
7AcC OP IS IT A REAL ? 
GOYES FEND60 IF SO, WE ARE DONE 
B=A Xx MUST BE STRING OR COMPLEX FUNCTION 
Di=D1+ 11 POINTS TO ITS RELATIVE POINTER 
C=DAT1 A READ THE RELATIVE POINTER 
GOSUB A=D1 
C=A-C A 
do=C DO PTS TO STRING OR COMPLEX NUMBER 
Di=Di+ 5 PASS THE DOPE VECTOR 
C=0 A 
* NOW D1 POINTS TO TOP OF EXPRESSION STACK 
x DO POINTS TO THE STRING OR COMPLEX NUMBER 
B=B+1 P TEST FOR STRING OR COMPLEX NUMBER 
COC FEND50 IF IS STRING, GOTO FENDSO 
DO=D0+ 16 POINTS TO END OF COMPLEX NUMBER 
DO=D0+ 16 
LC(2) 32 MOVE THE COMPLEX NUMBER 
; GOSUB noved3 
* Reverse the order of the inaginary and real of the conplex 
* nunber. 
x 
C=DAT1 W 
D1i=D1+ 16 
A=DAT1 W 
DATI=C W 
D1=D1- 16 
DATI=A W 
* 
Di=D1- 2 
LCHEX OE CREATE COMPLEX NUMBER HEAD ON STACK 
DATI=C B 
GOTO FENDG6O 
FEND50 C=DATO 4 READ STRING LENGTH 
DO=D0+ 4 JUMP OVER STRING LENGTH 
C=C+C A C= STRING LENGTH IN NIBBLES 
B=C A B= if 
GOSUB DO+C DO POINTS TO END OF STRING 
GOSUB roved3 MOVE THE STRING 
D1=D1- 16 GENERATE STRING HEADER ON STACK 
C=0 W 
C=B A C(A) = STRING LENGTH IN NIBBLE 
(Sto 
(Sto 
i a 
DATI=C W 
FENDGO CDIEX 
R3=C SAVE Dt IN R3 
GOSBVL =STNBUF IF ENDDEF IS EXECUTED FROM KEYBOARD 
= COLLAPSE THE STATEMENT BUFFER 
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2550 1R028 112 A=R2 A(S) = RETURN TYPE 
2551 1A02B 948 "A=0 SS 
2552 1RO2ZE E1 GOYES FEND80 RETURN TO PROGRAN FILE 
2553 * RETURN TO KEYBORRD 
2554 18030 7D3E GOSUB fcalc? CHECK CALC FLAG 
2555 1A034 401 GOC FEND75 CARRY SET IF RETURN TO CALC MODE 
2556 x 
2557 : KBRTCK will clear PgnRun, PRGM Annunciator and CNTADR 
2558 
2559 1A037 8FOO GOSBVL =SNerlf 
000 
2560 1AO3E 8FOO GOSBVL =KBRTICK 
000 
2561 1A045 84D FEND75 ST=0) = =13 
2562 1AO48 6810 GOTO FEND9O 
2563 x 
2564 1RO4C 7A1E FEND80 GOSUB fntrck NEED TO TRACE ? 
2565 1R050 4FO COC FEND85 IF NOT, GOTO FEND35 
2566 1A053 11A C=R2 
2567 1A056 134 DO=C 
2568 19059 8F00 GOSBVL =TRTO- 
000 
2569 1A060 7488 FEND85 GOSUB Spolsp Set "PRGN" and clear "SUSP" 
2570 * 
2571 1A064 112 FEND9O A=R2 
2572 1A067 130 DO=A 
2573 1A06A 11B C=R3 
2574 1R06D 135 01=C 
2575 1A070 8C00 =expr GOLONG =Expr 
00 
2576 * 
2577 JOIST I IO TI IIIT TT TAIT IIIS II III TSI TAK 
2578 RIK III DIT ID IIS III IIT SSI OT IST IIIS II ISIS ITS III IS SIS SSSI IIIS III IAM 
2579 an 
2580 ** Nane: GETCNT - Get Function Paraneter Counts 
2581 xR 
2582 XX Category:  EXCUTL 
2583 x 
2584 ** Purpose: Test uhether we are in the riddle of a user-defined 
2585 xk function. 
2586 aR 
2587 *% Entry: Don’t care 
2588 ak 
2589 ** Exit: C(B) = (PRMPTR)-1 
2590 _ 
2591 ** Calls: None 
2592 an 
2593 *k Uses: C(B), D1 
2594 xs 
2595 kk Stk lvls: 0 
2696 FI ISAT III IDI IIIT IOI TSI TSI T III III I III III IOS III SII II ISI IIA SI SIA 
2697 IKI IAI IIT II III TIS IIS ISIS IIIS III IIIS III III IIIS II ISS IS SSSI ISI SIM. 
2598 é 


2599 1A076 1F7B =GETCNT D1=(5) =PRMPTR 
5F2 
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2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 


2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
264? 
2648 
2649 
2650 
2651 
2662 
2653 


1AO7D 14F 
1A080 AGE 
1A083 01 


1A085 8FOO 
000 
1AO8C 840 
1AO8F 3102 
1A093 OE6S 
1A097 396A 
1ROSA OO 
1AOSC 850 
1AOSF 02 
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C=DAT1 B 
C=C-1 B 
RTN 

JO IIIT IDIOTIC TOOT CIO I TO OR OK 
JO IOI IDIOTS COO TO TOR 

xx 


xk Nane:(S) GETNAM - Get variable nane 


ka 
** Category: VARNGT 

xx 

*x Purpose: Read the variable into B(X) and check if is a 
aa string or a nunber 

xn 

** Entry: DO pts variable token 

x P=0 

xk 

** Exit: B(X) = Variable nane 

a DO past the variable nane 

ae SO = 1 - is a string variable 

at Q - 18 a nuneric variable 

a Carry set 

xx 

** Calls: ADRSUB 

ke 

** Uses: B(A),C, SO, DO 

aR 


xk Stk lvls: +1 
JIU TOI OI OO OO III ICICI TO TOR ITOK 


FOI TIO OI TOITO T TRI TOR TTITITITKIIIITTIDITKITIDKII KITT IK 
xk 


=GETNAN GOSBVL =ADRSUB READ TNE NANE 
ST=0 0 ASSUME IS A NUMERIC VARIABLE 
LCHEX 20 
C=C&B B TEST IF IS A STRING VARIABLE 
?C=0) = iB 
RTNYES 
ST=1 0 SET STRING FLAG 
RTNSC 
& 


FOI IIIT OTT TTI 
FORO IIT 
ak 


kK Narie:(S) FNDFCN - Fand User-Defined Function 
xt 


A* Category:  FILUTL 
xk 


** Purpose: Find a user-defined function 
ae 


**% Entry: R1(X) = Function nane(output fron ADRSUB) 
as 


ae Exit: 

ae Carry set => Found 

ae DO past the function nare in the DEF FN staterent 
at F-R1-0 = Address past the tDEF of the DEF FN 
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2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 


2665 


2666 
2667 
2668 
2669 
2670 
2671 


2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2631 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 


1ROR1 8FOO 
000 
1ROR8 1826 
5F2 
1ROAF 142 
1ROB2 1H 
1RAOB5 184 
1AOB8 146 
1AOBB D7 
1AOBD 1FBA 
8F2 
1A0C4 E7 
1AOC6 540 
1ROC9 03 
1ROCB CF 
TAOCD 136 
1AOD0 CB 
1ROD2 134 
1RODS 146 
1HD8 D7 
1RODA 181 
1AODD 148 
1ROEO 161 
1AOE3 3100 
1ROE? 966 
TROER AD 
TROEC 132 
TROEF 130 
1ROF2 141 
1ROFS 166 
1AOF8 798F 
TAOFC 119 
1ROFF 931 
1A102 00 
1R104 1% 
1A107 5CB 
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ax Carry clear => Not found 
kh 


4k Calls: PRSCOP, GETNANM 
kk 

: Uses: A,B,C,D,D1,00 

k 


AK Stk lvls: 4 
SII III IID I IIIS I SI IS I III IIS ISISISA III II ISI IIISIII SII SIDI SSSI AK 


SOR II JOO IO TTT TIS TTDI TI RII IRE ITT ITT 
& 


=FNDFCN GOSBVL =PRSCKB MAKE SURE PRGHST & PRGMEN CORRECT 
FNDFN- DO=(5) =PRGHMST 


A=DATO A 
DO=A DO POINTS TO PRGNST 
DO=D0- 5 DO @ TO 1ST LABEL LINK IN THIS PROG 
C=DATO A 
b=C A 
Di=(5) =F-R1-0 
FNX210 D=D+1 A REACHED END OF CHAIN ? 
GONC  FNX220 NOT YET 
RTWCC NOT FOUND 
FNX220 D=D-1 A 
CDOEX GET TO NEXT LINK 
C=C+D A 
DO=C DO POINTS TO NEXT LINK 
C=DRTO A READ THE LABEL LINK 
D=C A D= CURRENT LABEL LINK 
DO=DO- 2 DO POINTS TO BEGIN TOKEN 
AR=DRTO B 
DO=D04 2 
LC(2) =tDEF - 
7RHC OB IS THIS A “DEF” TOKEN ? 
GOYES FNK210 IF NOT, LOOK AT NEXT CHAIN 
FNX230 ADOEX SAVE DO IN A 
DO=A 
DAT1=A A 
DO=D0+ 7 DO POINTS TO FUNCTION NANE 
GOSUB GETNAN 
C=R1 
?B=C X IS THIS THE FUNCTION ? 
RTNYES IF SO, RETURN WITH CARRY SET 
DO=A RESTORE DO FROM A 


GONC FNX210 (B.E.T. 
JIT IO RTT TTI 


CR-PAR - ROUTINE TO CREATE A PARAMETER 
INPUT: B(X) = PARAMETER NANE 
D1 POINTS AT START OF PARAMETER NANE 
SO= 1 - STRING PARAMETER 
0 - NUMERIC PARAMETER 
EXIT: 01 UNCHANGED 


* ee ee Fe OF 
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2706 1AIOR ABS CR-PAR C=B K 

2707 1A10D 1553 DAT1=C X WRITE THE PARAMETER NANE 

2708 1A111 172 D1=D1+ 3 

2709 1A114 AF2 C=0 W CLEAR THE DOPE VECTOR 

2710 1A117 860 ?§T=0 0 NUMERIC PARAMETER ? 

2711 1A11R 90 GOYES CR-P10 IF SO, GOTO CR-P10 

2712 1A11C 34FO LCHEX 2000F C= 000000000002000F 
002 

2713 18123 1557 CR-P10 DATI=C W WRITE THE DOPE VECTOR 

2714 18127 1C2 D1=D1- 3 RESTORE 01 

2715 1A12A 01 RIN 

2716 JI IOI ITT OI ITI II IIR 

2717 : SAVPTR - SAVE THE CURRENT POINTER ON STACHK BY ITS OFFSET 

2718 

2719 * INPUT: D1= CURRENT STACK POINTER 

2720 ; DO POINTS TO THE POINTER WILL BE SAVED 

2721 

2722 1A12C 1B9B SAVPRN DO=(5) (=PRMPTR)+2 SAVE OFFSET OF “PRMPTR" 
5F2 

2723 1A133 7EOO GOSUB SAVPTR 

2724 1A137 181 DO=DO- 2 SAVE PARAMETER COUNT 

2725 1A13A 101 D1=D1- 2 

2726 1A13D 14€ C=DATO B 

2727 1A140 14D DAT1=C B SAVE PARAMETERS COUNT 

2728 1A143 03 RTNCC 

2729 * 

2730 1A1945 1C4 SAVPTR D1=D1- 5 RAISE THE STACK POINTER 

2731 1A148 146 C=DATO A 

2732 1A14B 7900 GOSUB A=D1 

2733 1A14F E2 C=C-A A 

2734 1A151 145 DAT1=C A 

2735 1A154 03 RTNCC 

2736 JOR III OI II IIT TIT ITI IIIT TAI 

2737 * oe ~ RESTORE POINTER. REVERSE THE PROCESS OF SAVPTR WHEN 

2738 EXECUTE THE “ENDFN" STATEMENT 

2739 * INPUT: DO POINTS TO THE POINTER BEING RESTORED 

2740 x D1 = CURRENT STACK POINTER 

2741 : 

2742 1A156 1B7B RSTPRM DO=(5) =PRMPTR DO POINTS TO PARAMETERS COUNT 
5F2 

2743 1A15D 14F C=DAT1 B READ SAVED PRRAMETRS COUNT 

2744 18160 14C DATO=C B RESTORE PARAMETERS COUNT 

2745 1A163 171 01=D1+ 2 D1 POINTS TO SAVED PRMPTR 

2746 1A166 161 DO=D0+ 2 DO POINTS TO SYSTEM PRNPTR 

2747 1A169 146 C=DATO A READ CURRENT PRMPTR AND SAVE IN D 

2748 1A16C B? D=C A 

2749 - 

2750 1R16E 147 =RSTOPT C=DAT1 A READ SAVED POINTEDR 

2751 1A171 73EC GOSUB A=01 

2752 1A175 C2 C=A+C A 

2753 1A177 144 = RSTOP+ DATO=C A 

2754 1A17A 174 Di=D1+ 5 

2755 1A17D 01 RIN 

2756 J OI IIT TOTTI TI TTI TIT IOR 


2757 * PTRSUB - ROUTINE TO GENERATE A DOPE VECTOR AND ALLOCATE SPACE 
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‘ 2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2763 
27%” 
2771 
2772 
{ 2773 


2774 


1A17F 168A 
1A182 DA 
18184 137 
1A187 12A 
TAI8A E2 
TA18C 135 
1A18F 8E00 
00 

18195 460 
1A198 6C(D8 
TAISC 136 
VAISF 134 
TAIA2 E2 
TA1R4 144 
TAIA7 164 
TAIAR 12A 
TAIAD 102 
1A1BO 136 
1A1B3 D5 
TAIBS 131 
1A1B8 01 


SUBprogran and DEF FN <831216. Fri Dec 30, 1983 4:42 an 
Page 57 


x INPUT: C(A) = # OF NIBBLES TO BE ALLOCATED 

x DO POINTS AT THE DOPE VECTOR 

: R2= CURRENT STACK POINTER 

a Di POINTS TO PARAMETER VALUE ON THE STACK 

* EXIT: BCA) = POINTS TO NEXT PARAMETER 

R2= UPDATED STACK POINTER 

i D1= ff 

. DO POINTE TO NEXT PARAMETER VALUE ON THE STACK 
& 


PTRSUB DO=D0+ 11 POINTS TO RELATIVE POINTER 
A=C A A= REQUIRED SPACE 
CDIEX SAVE D1 IN R2 
CRZEX R2= SAVED D1, C= CURRENT STK.PTR 
C=C-A A 
D1I=C Di= NEW STACK POINTER 
GOSUBL =CHKSTK SEE IF IS STILL ROON 
COC PTRS10 OK, IF CARRY SET 
GOTO FNXNOR INSUFFICIENT MEMORY 

PTRS10 CDOEX A=NEW STK.PTR, C=REL.PTR ADDR 
dO=C DO= ADDR TO STORE REL.PTR 
C=C-A A C= RELATIVE POINTER 
DATO=C A WRITE REL.PTR 
DO=D0+ 5 POINTS TO NEXT PARAMETER 
CR2EX C= SAVED 01 
R2=Rh R2= NEW STACK POINTER 
CDOEX DO POINTS TO PARAMETER VALUE 
B=C A B(A) POINTS TO NEXT PARANETER 
DI=A Di= NEW STACK POINTER 
RTN 


x 
SOJT ROTI ITO TTT TTI 
SOI JIT TORO TO TTT IK 
xk 


xx Narie: SSB100 - Search a Subprogran 
ik 


** Category:  FILUTL 
re 


** Purpose: Search a Sub-Progran 


** Entry: R2 = SUBPROGRAM NANE 


a (MTHSTK) = TOP OF CALL STACK 

ek Exit: 

kx CARRY CLEAR IF THE SUB-PROGRAMN FOUND 

kk IF $3=0: DO POINTS TO THE SUB-PROG NANE 
ae IF $3=1: SUB-PROG IS A FILE, DO = PRGMST 
ak CARRY SET IF SUB-PROGRAMN NOT FOUND 


** Calls: CHKTYP,SUBFIL, SCOPEN, PRSCOP, ROMCHK 
x ROMF ND 


kk Uses: A-D, RO-R3, D1,D0, S2-$6,S8,S9 


Kk Stk lvls: +4 
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2812 ae 
2813 JI I I III III II IIIT OT IOI IS IIIS IIS IS III III IIT II IIIS III IK 
2814 JI I I III III IIE IIIS III IIIT III III III II ASIII I SII III IIIA 
2815 1AIBA 843 SSB100 ST=0 = 3 FLAG SAYS SEARCHED FILE NANE 
2816 1A1BD 845 ST=0) 5 SEARECH ALL RAM/RON 
2817 1AICO 7601 GOSUB CHKTP+ CURRENT FILE IS A BASIC/BINARY? 
2818 1A1C4 118A C=R2 C = SUBPROGRAN NAME 
2819 1A1C7 113 A=R3 A = FILE HEADER ADDR 
2820 1AICA SFS GONC SSB180 IF NOT, DON’T SEARCH CURRENT FILE 
2821 1AICD 97E CHO OU CALL WITH SUBPROGRAM NAME ? 
2822 1A1D0 90 GOYES SSB120 IF SO, GOTO SSB120 
2823 1A1D2 853 ST=1 3 
2824 1A1D5 63FO GOTO  SSB280 CALL WITH NO SUBPROGRAM NANE 
2825 1A109 7F11 SSB8120 GOSUB SUBFIL SEARCH THE SUB-PROG IN CURRENT FILE 
2826 1AIDD 495 GOC SSB200 NOT FOUND IN CURRENT FILE 
2827 1A1EO 136 SSB1X CDOEX 
2828 TALES 134 DO=C 
2829 1AIE6 135 DI=C 
2830 1ATE9 1(4 Di=D1- § D1 POINTS TO SUB. LINK 
2831 1AIEC 786C GOSUB A=D1 SET A=D1 
2832 1AIFO CO A=A+B A A POINTS TO ENDSUB LINK 
2833 1AIF2 1€3 D1i=D1- 4 D1 POINTS TO LINE LENGTH 
2834 1A1FS D2 C=0 A 
2835 AIF? 14F C=DAT1 B C= LINE LENGTH 
2836 1AIFA 133 ADIEX 
2837 1AIFD C2 C=A+C A C POINTS TO END OF "SUB" STMT 
2838 RIFF 1C1 ; DI=D1- 2 D1 POINTS TO tSUB OR tENDSUB 
2839 
2840 1A202 £5 B=B+1 A IS LINK # FFFFF ? 
2841 18204 5% GONC SSB150 
2842 . 
2843 * Link = FFFFF, use end of file as end of progran scope 
2844 : 
2845 1A207 DA A=C A A= program start 
2846 18209 DB C= A C= END OF FILE 
2847 1A20B 401 GOC SSB160 (B.E.T) 
2848 , 
2849 ® Link # FFFFF, Di is at tSUB or tENDSUB 
2850 * 
2851 1A20E D5 $SB150 B=C A Save progran start in B(R) 
2852 18210 8FOO GOSBVL =SCOPEN Define the prograri scope end 
000 
2853 1217 D4 A=B A A= Program start 
2854 1A219 137 CD1IEX C= Progran end 
2855 
2856 1A21C 1F26 SSB160 D1=(5) =PRGNST 
5F2 
2857 1A223 &D0O GOVLNG =PRSC60 SET PRGMST & PRGNEN 
00 
2858 x 
2859 * CURRENT FILE IS NOT A BASIC FILE 
2860 a 
2861 1A2ZR 97E = =SSB180 7C#0)— OW CALL WITH NAME ? 
2862 1A22D AO GOYES SSB200 


2863 1A22F 3100 LC(2) =eF TYPE 
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2864 
2865 
2866 
2867 
2868 


2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 


2888 
2889 
289 
2891 
2892 
2893 
2894 


2895 
2896 
2897 
2898 
2899 


2900 
2901 
202 
2903 
2904 
2905 
2906 
29? 
2908 
299 
2910 
2911 
2912 
2913 
2914 


1A233 627A 
k 


18237 


IA23E 
1R241 
1R244 
18248 


1A24B 
1R24E 
1A250 
1R252 
1A254 
18257 
1A25A 
1A250 
{A25F 
1R262 
1A264 
1R267 


1A26E 
1A271 
1A274 
1R277 
1R27A 
1A27D 
1A27F 


1A286 


1A289 
1A28C 
1AZ8E 


1A295 
1298 
1A29B 
18290 
1A2RO 


1R2A3 
1A2R6 
1AZAS 
TAZAB 
TAZAF 
1R2B2 
1A2B6 


1R2BA 


1F85 
5SF2 
143 
844 
7€41 
4A5 


875 
00 
DB 
DA 
135 
14F 
96E 
7E 
874 
D1 
854 
8FO0 
000 
4A1 
133 
03 
816 
9C7 
7C 
8FO0 
000 
SRE 


873 
00 
1FB4 
9F2 
14F 
96E 
00 
853 
569 


113 
873 
1 
7040 
489 
7F20 
692F 


131 
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GOTO 

* SUB-PROG NOT 
& 

SSB200 01=(5) 


A=DAT1 
ST=0 
SSB210 GOSUB 
Z GOC 


* LOOK AT NEXT 
x 


SSB220 ?ST=1 
RTNYES 
C=D 
A=C 
b1=C 
C=DAT1 
7C#O 
GOYES 
*ST=1 
GOYES 
ST=1 
GOSBVL 


GO 
ADIEX 
LC(1) 
CSRC 
*D<C 
GOYES 
GOSBYVL 


$$B235 


SSB2% 


GONC 
k 


SSB240 ?ST=4 
RTNYES 


01=(5) 


C=DAT1 
7080 
RTNYES 
ST=1 
CONC 
* FOUND 
SSB260 A=R3 
*ST=1 
GOYES 
GOSUB 
COC 
GOSUB 
GOTO 


SSB265 


nferre 
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FOUND IN CURRENT FILE 


=MRINST 


A 
4 
CHKTYP 
$SB260 


FILE 
5 


AR 
A 


B 

B 
$5B210 
4 
SSB230 
4 
=RONCHK 


$S8240 
3 

S 
$S$B210 
=ROMFND 
$$B235 
3 
=PRACNT 


3 
SSB200 


AR BASIC FILE 


3 

SSB270 
SUBFIL 
SS3B220 
SSBHOO 
$3$B130 


SERRCH ENTIRE RAM FILES 


FLAG TO SEARCH RAN 
IS FILE A BASIC/BINARY ? 
IF SO, GOTO SSB260 


FILE NAME SPECIFIED ? 
IF SO, SAY NOT FOUND 
C= FILE END ADDRESS 


REACHED END OF RAM FILE ? 
IF NOT, GOTO SSB210 

ARE WE SEARCHING ROM ? 

IF SO, KEEP SERRCHING 
START SERRCHING ROM 


SEE IF ROM OR IRAN 


IF SO, SEARCH IT 


HAVE WE LOOKED AT FILE NAME YET ? 
IF SO, RETURN, SAY NOT FOUND 


IF THE CALL PASS ANY PARAM, 

DON’T SEARCH IT AS A FILE NAME 
DENOTE WE WILL SEARCH IT AS A FILE 
(B.E.T.) 


SEARCHING FILE NAME ? 

YES 

SERRCH THE SUB-PROG IN THIS FILE 
SUB-PROG NOT FOUND HERE 

SET CURRST & CURREN 

GOTO COMPUTE PRGMST & PRGNEN 


* SEARCH THE SUB-PROG AS A FILE 


SSB270 D1=A 
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2915 
2916 
291? 
2918 
2919 
23920 
2921 
2922 


2923 
2924 
2925 
2926 
2927 
2928 


2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
293? 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2546 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
296? 
2958 
2959 
2360 
2361 
2962 
2963 
2964 
2965 
2966 
2967 


TAZBD 
1R201 
1A2C4 
1A2C? 
1A2C9 
1R2CD 
1A2D0 
1A2D3 


1A2DR 
{A200 
1AZEO 
1A2ZE3 


TAZES 


1AZEC 
TA2EF 
{R2F2 
TA2F5 
1A2F? 
{AFA 


157? 
2 
976 
8£ 
7810 
112 
103 
8F00 
000 
1% 
118 
10A 
03 


1FD5 
5F2 
113 
144 
17E 
DB 
145 
01 
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C=DAT1 W 
A=R2 
RRC OW 
GOYES S$SB265 
SSB280 GOSUB S$5B300 SET CURRST & CURREN 
A=R2 SAVE R2 IN R3 
R3=A 
GOSBVL =PRSCO- COMPUTE PRGMST & PRGNEN 


DO=A DO @ PRGNST 
C=R3 RESTORE R2 FROM R3 
R2=C 
RTNCC 
x 


SSB300 01=(5) =CURRST SET CURRST & CURREN IN RAN 


R=R3 
DATI=R A 
D1=D1+ 15 
C=D A 
DRT1=C AR 


RTN 
x 


FORO TTR TIO 
FORO TTT TIT 
Kx 


** Nane: SUBFIL - Search a Subprogran Within a File 
xk 


** Category:  FILUTL 
1k 


** Purpose: Search a subprogran within a BASIC or BINARY file 
ak 


** Entry: f& = Address of start of file header 
ae 0) = Address of end of file 

ar R2 = subprograri narie 

aK R3 = Address of start of file header 
ma $8=1 - Binary file 

we S8=0 - BASIC file 

tk P= 

A® Exit: 

ae Carry set => Not found 

am Carry clear => Found 

ois DO @ subprogran narie 

xh B(A) = SUB. LINK 

xk 


** Calls: LBLNAM, ISRAN?, CHAIN* (if the file is not chained) 


xk 
kk Uses: A, B, C, DO if the file 1s chained 


ax A-D, 00, D1, RO, R2, SQ if the file is not chained 
ke 

** Stk lvls: 1 if the file chained 

Kx 3 if the file 1s not chained 


FORO JOT I UTI III OOO OOOO 
FORO JOO OI OI IOI ISIS IIIT 
x 
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2968 1A2FC 3452 SUBFIL LC(5) =oSUBLn 
000 


2969 1R3%3 CA A=A+C A 
2970 1A%5 130 DO=R D1 POINTS TO SUBLNK OF THE FILE 
2971 1A308 146 SSB510 C=DATO A 
2972 1AX0B BARE 7c#O OA IS THE FILE CHAINED YET 7 
2973 1RWE 53 GOYES SSB515 OF SO, GOTO SSB515 
2974 1A310 878 *ST=1 8 IS THIS A BINARY FILE ? 
2975 1A313 00 RTNYES IF SO, RETURN, NOT FOUND 
2976 * TEST IF THE FILE IS WRITEABLE 
2977 1A315 06 C=A A 
2978 1A317 8FOO GOSBVL =ISRAN? CHECK IF THE FILE WRITEABLE 
000 
2979 1A31E 440 GOC $S$B512 
2980 1A321 02 RTNSC IF NOT RETURN WITH CARRY SET 
2981 1A323 132 SSB512 ADOEX A 
2982 1A326 131 D1=A 
2983 1A329 11A C=R2 SAVE R2 IN RO 
2984 1A32C 108 RO=C 
2985 1A32F 8FOO GOSBVL =CHAIN* 
000 
2986 1A336 113 R=R3 A= ADDRESS OF START OF FILE HEADER 
2987 1A339 118 C=R0 RESTORE R2 FROM RO 
2988 1A33C 10A R2=C 
2989 1A33F 6CBF GOTO  SUBFIL 
2990 * 
2991 1A343 £6 SSB515 C=C+i A SUBLNK= FFFFF ? 
2992 1A345 400 RTNC IF SO, NO SUB-PROG EXIST 
2993 1A348 CE C=C-1 A 
2994 1A34—A 7218 GOSUB DO+C 
2995 1A34E 146 SSB520 C=DATO A 
2996 1A351 DS B=C A SAVE THE LINK IN B 
2997 1A353 181 DO=D0- 2 SEE IF THIS IS A SUB STMT 
2998 1A356 14A A=DATO B 
2999 1A369 3100 LC(2) =tSUB 
3000 1A35D 168 DO=D0+ 2+5+2 POINTS TO SUB NANE 
3001 1A360 966 AWC OB 
3002 1A363 11 GOYES SSB525 
3003 1A365 8FOO GOSBVL =LBLNAN 
000 
3004 1A36C 171A C=R2 
HOS 1A36F 972 7A=C OW 
3006 1A372 31 GOYES SSB530 
3007 18374 E5 SSB525 B=B+1 A REACHED END OF CHAIN ? 
3008 1A376 400 RTNC NOT FOUND, IF SO 
#09 1A379 DI C=B A 
3010 1A37B 71EA GOSUB Dd+C 
3011 1A37F 187 DO=K0- 8 DO POINTS TQ NEXT LINK 
3012 1A382 SBC GONC SSB520 (B.E.T.) 
3013 1A385 181 SSB530 DO=D0- 2 DO @ SUBPROGRAM NANE 
3014 1388 03 RTNCC 
3015 x 
3016 : 
17 KIKI TID IID IIIA DIDI ITT S ITI I ITI SAL III SI IIT IDI IIIT IIIT III IIT IIIT IS 


3018 FORRES K 
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19 
20 
21 
H22 
H23 
#24 
325 
3026 
2? 
328 
29 
3030 
3031 
3032 
3033 
3034 
3035 
36 
3037 
#38 
39 
040 
3041 
42 
3043 
3044 
#45 


W46 
W4? 
348 
3049 
3050 
3051 
3052 
3063 
3054 
3055 
3056 
3067 
3068 
H59 


3060 
061 
3062 
3063 


3064 
3065 
3066 
#67 
68 
3063 
3070 


1A38A 


1A391 
1A394 
1A39? 
1A39A 
1A39D 
1A3AO 
1A3A3 
1A3A? 
1A3A9 
1A3AB 
TA3AE 
1A3B0 
1A3B4 
1A3B7 


1A3BE 
1A3C1 
1A3C3 
1A3C6 


1A3CD 


1A3D0 
{A3B2 


1A3D4 


1FD5 
5F2 
143 
103 
131 
1?F 
17F 
147 
71BA 
C2 
D? 
1CF 
DO 
15B3 
858 
3440 
2E0 
8A2 
00 
848 
3441 
2£0 
8AC 
00 
03 


SUBp ro 


ax 


xk Narie: 
ak 
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CHKTYP - Check file type 


** Category:  EXCUTL 


ak 


**& Purpo 
ak 


** Entry 
KK 


eX Exit: 
ka 
ah 
xt 
ak 
ak 
ae 
aa 
xR 


**E Calls : 


xk 


xk Uses: 
xk 


** Stk 1 
FIK III IR 


SII II IK 
x 


CHKTP+ 


=CHKTYP 


=BASTYP 


se: Check if the file is a BASIC or BIN type 
: ff = Address of start of file header 


A(A) = File type 

D1 @ File type 

R3 = Address of start of file header 

D = Address of end of file 

Carry set => The file is a BASIC or BIN type 
$8 = 0 - BASIC 
$8 = 1 - BIN 

Carry clear => Not BASIC nor BIN 


None 
ACA), CCA), D(A), R3, OT, S8 


vis: 0 
FORO JOO OOOO III 


JO III IIIT IO TO TOOT TO TTT TI IIE 


D1=(5) =CURRST 


R=DAT1 A 

R3=A R3= CURRENT FILE START 
Di=A 

D1=D1+ (oF TYPh) 

D1=01+ (oFLENhH)-(oFTYPh) 

C=DAT1 A C= FILE LENGTH 
GOSUB A=D1 

C=A+C A 

D0=C A . D= FILE END 
D1=D1- (oF LENh)-(oFTYPh) 

R=0 A 

A=DAT1 4 

ST=1 8 

LC(5) =fBIN 


*A=C OR IS THIS A BASIC FILE ? 
RTNYES 

ST=0 8 

LC(5) =f BASIC 


*A=C OA 


RTNYES 
RTNCC 


END 
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ACTIVE 
ADJPTR 
ADRS80 
ADRSUB 
ARYSIZ 
ASNSTO 
RVMENS 
=BASTYP 
Binary 
BsErr 
CALO10 
CALO20 
CALO30 
CALO40 
CALO45 
CALOSO 
CALOGO 
CAL1O0 
CALIOS 
CALI10 
CAL111 
CAL112 
CAL114 
CAL115 
CAL116 
CALI20 
CAL130 
CAL150 
CAL160 
CALI 70 
CAL200 
CAL210 
CAL300 
CAL310 
CAL320 
CAL330 
CAL335 
CAL400 
CAL402 
CRL404 
CAL405 
CAL419 
CAL412 
CAL414 
CAL415 
CAL420 
CAL422 
CALS 24 
CAL425 
CAL4 30 
CAL450 
CAL455 
CAL460 


Ros 


Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


106072 #19E58 
193960 #2F5A8 


193940 #2F594 
107462 #1A3C6 
10 #OOOOR 


101809 #18DB1 
101827 #18DC3 
101837 #18DCD 
101841 #18001 
101847 #18DD7 


101877 #18DF5 - 
101900 #18E0C - 


101956 #18644 
101971 #18653 
101975 #18E57 
102047 #18E9F 
102053 #18EA5 
102062 #18ERE 
102085 #18EC5 
102089 #18EC9 
102128 HI8EFO 
102154 #18FOR 
102178 #18F 22 
102188 #18F2C 
102193 #18F 31 
102212 #18F44 
102239 H18F5F 
102249 #18F 69 
102288 #18F 90 
102317 #18FAD 
102320 #18FB0 
102334 #18FBE 
102338 #18FC2 
102375 #18FE7 
102382 H1I8FEE 
102394 #18FFA 
102398 #18FFE 
102438 #19026 
102445 #1902D 
102469 #19045 
102543 #1908F 
102609 #19001 
102616 #19008 
102702 #1912E 
102711 #19137 


1 tob!oup ¢ #@ #€ &§ § € 4 


| 


102734 #1914E - 


102759 #139167 
102787 #19183 


2369 
52 
13 
1186 
1827 
2630 
1646 
195? 
13 
H63 
427 
1509 
473 
4383 
485 
487 
483 
497 
504 
522 
527 
528 
556 
559 
614 
622 
623 
641 
652 
659 
662 
664 
670 
677 
684 
705 
714 
715 
720 
750 
763 
765 
768 
763 
782 
786 
792 
813 
831 
833 
859 
862 
871 
877 
885 


1622 
1602 


2361 
2243 


467 


468 
476 
488 
484 
481 
494 
678 
666 
516 
521 
551 
540 
555 
619 
621 
637 
648 
640 


720 
626 
675 
622 
698 
712 
692 
718 
527 
759 
756 


767 
780 
783 
795 
810 
828 
821 
838 
855 
863 
880 
888 
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1653 2241 


472 


520 
525 


643 


706 


762 


867 


779 


650 
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CAL465 
CAL4 70 
CAL473 
CAL475 
CALS 78 
CRL479 
CAL480 
CAL485 
CRL495 
CALSO0 
CAL5O4 
CAL505 
CAL510 
CALS12 
CAL515 
CAL518 
CAL519 
CALS20 
CALS 30 
CAL550 
CAL560 
CRL565 
CAL5 70 
CALS75 
CALS80 
CRLE00 
CAL620 
CAL625 
CAL630 
CAL640 
CAL650 
CAL660 
CALE 70 
CAL? 10 
CAL8O0 
CAL810 
CAL8 30 
CAL840 
=CALBIN 
CRLERX 
CALF XI 
=CALL 

CALLDC 
CALLP 
CALNOR 
CALSTK 
CHAIN* 
CHKSPC 
CHKSTK 
CHKTP+ 
=CHKTYP 
CHN# SY 
CHNLST 
CLOSER 
CLPSTK 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Rbs 
Ext 
Ext 


102816 #191R0 
102853 #19105 
102875 #191DB 
102888 #191E8 
102910 #191FE 
102825 #19200 
102947 #19223 
102972 #19230 
102976 #19240 
102980 #19244 
103006 #1925E 
103010 #19262 
10%20 #19260 
10376 #192R4 
10%85 #192AD 
103112 #192C8 
103133 #192DD 
103142 #192E6 
103177 #19309 
103206 #19326 
103221 #19335 
103224 #19338 
103232 #19340 
103240 #19348 
103268 #19364 
103300 #19384 
103332 #193A4 
103366 #193C6 
103377 #19301 
103407 #193EF 
103414 #193F6 
103486 #1943E 
103526 #19466 
103536 #19470 
103550 #1947E 
103653 #194E5 
103680 #19500 
103732 #19534 
101772 #18D8C 
103296 #19380 


101806 #18DAE 


103014 #19266 
193965 #2F5AD 


107402 #1A38A 
107412 #19394 
194927 #2F 96F 
193982 #2F5BE 


rn es ee 


tt bet 


894 
907 
916 
920 
926 
931 
935 
943 
944 
946 
354 
955 
957 
973 
976 
984 
1012 
1017 
1029 
1038 
1043 
1044 
1046 
1050 
1059 
1073 
1086 
1095 
1099 
1108 
1110 
1135 
1149 
1160 
1168 
1199 
1209 
1223 
461 
1070 
376 
472 
470 
471 
356 
13 
2985 
766 
493 
#45 
#47 
13 


1352 
1351 


905 
896 
924 
914 
917 
929 
1098 
949 
942 
939 
1148 
918 
953 
968 
960 
975 
1010 
1013 
1024 


1041 
1067 
1027 
1061 
1048 
1014 


1045 
1079 
1131 
1107 
1011 
1147 

943 

944 
1204 

930 
1220 


1030 


495 
790 


952 
2773 
1218 
2871 
2254 

884 


982 


1058 


983 


1179 


1037 


676 
118? 


2817 


2484 
1591 


SUBprogrart and DEF FN <831216. 


1068 


1070 


1051 


768 
1544 
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1109 


1136 


1063 


1584 


1151 


1074 


1084 
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COMPLA Ext - 2325 
CR-ARR Ext - 1195 


CR-P10 Abs 106787 H1A123 - 2713 2711 

CR-PAR Abs 106762 HIR10A - 2706 1998 2031 

CR-VAR Ext - 1017 1101 

CURRST Abs 193885 #2F55D - 13. 1521 2928 X45 

CVALUE Abs 105345 #19B81 - 2085 2071 

DO+ Rbs 106080 #19£60 - 2373 1753 2537 2994 W310 
DOPCAD Abs 104321 419781 - 1552 462 1524 2286 2331 2462 
=DIFSTIK Abs 103773 #1955D - 1281 4391 507 813 848 962 1807 
=DINSTK Abs 103758 #1954E - 1257 543 633 670 689 
DiPRCT Abs 101763 #18083 - 33 84 614 889 935 
DISUB Abs 103765 #19555 - 1258 1282 

=DEF Abs 104697 #198F9 - 1744 

DEFIO §=Abs 104713 #19909 - 1750 1762 1767 1769 1771 

DEF3O) «=Abs «104772 #19944 - 1770 1759 

DEF60 «Abs 104788 #19954 - 1775 1747 


DEF70 Abs 104792 #19958 - 1777 1752 
DEFDC Ext - 1742 

DEFP Ext - 1743 

DEST Ext - 667 
DFLTCR Ext - 1086 

END Ext - ww! 

ENDI1O = Ext - 1325 
ENDDDC Ext - 2423 
=ENDDEF Abs 106156 HISEAC - 2425 
ENDS20 Abs 103906 #195E2 - 1334 1328 
ENDS25 Abs 103947 #1960B - 1346 2367 
ENDS3O Abs 103955 #19613 - 1351 1335 1344 
ENDS40 Abs 103976 #19628 - 1358 1342 
ENDS45 Abs 103983 #1962F - 1360 1347 


ENDS46 Abs 104005 #19645 - 1371 1374 
ENDSSO Abs 104026 #1965A - 1379 1221 1340 
=ENDSB- Abs 103855 H195AF - 1326 


ENDSDC Ext - 1322 

=ENDSUB Abs 103848 #195A8 - 1325 1777 
EOLXCK Ext - §15 

ERRSUB Abs 194179 H2F683 - 13° 1213 
EXPCHH Ext - 916 1146 

Expr Ext - 2575 

FHNFND Ext - 656 

F-RO-1 Abs 194720 #2F8A0 - 13 1990 
F-RO-2 Abs 194725 #2F8AS - 13 2289 
F-RO-3 Abs 19473 #2F8AA - 13° 1964 255 
F-R1-0 Abs 194731 #2F8AB - 13 2384 2671 
F-R1-2 Abs 194741 #2F 885 - 13 2037 2340 
F-R1-3 Abs 194746 H2F8BA - 13 1034 
FCNADR Abs 104802 #19962 - 1807 1949 2354 2357 
FOCHR = Ext - §50 

FENDOS Abs 106170 H19EBA - 2430 2362 
FENDIO Abs 106189 HISECD - 2437 2434 
FEND13 Abs 106252 HISFOC - 2458 2462 
FENDI5 Abs 106213 #19EE5 - 2449 2439 
FEND20 Abs 106313 #19F49 - 2475 2478 
FEND30 Abs 106377 #19F89 - 2493 2497 
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FEND40 Abs 106392 #19F98 - 2498 2495 
FENDSO Abs 106483 H19FF3 - 2533 2513 
FEND60 Abs 106523 H1A01B - 2546 2501 2532 
FEND7?5 Abs 106565 #1A045 - 2561 2555 
FEND8O Abs 106572 #1AO4C - 2564 2552 
FEND85 Abs 106592 #1A060 - 2569 2565 


FEND9O Abs 106596 #1A064 - 2571 2562 


FILXQ™ Ext - 483 
FINDF+ Ext - 845 
FLTIDH Ext - 2003 
=FN Abs 104894 H199BE - 1934 
=FNDFCN Abs 106657 HIROR1 - 2664 
FNDFN- Abs 106664 #1AOR8 2665 1987 
FNDMK- Ext 920 


FNK110 Abs 104837 #19985 1817 1821 
FNX120 Abs 104852 #19994 1822 1818 
FNX130 Abs 104871 #199A7? - 1827 1824 
FNX140 Abs 104953 #199F9 - 1955 1952 
FNX150 Abs 104960 #19A00 - 1957 1954 


=FNAISS Abs 104861 #19990 - 1825 1812 1989 2435 


FNX200 Abs 104973 #19AOD - 1961 1940 
FNX206 Abs 105037 HISA4D - 1986 1979 
FNX210 Abs 106692 #IROC4 - 2672 2686 2696 
FNX220 Abs 106699 #IROCB - 2675 2673 
FNX230 Abs 106732 RIROEC - 2687 

FNX240 Abs 105055 HISASF - 19% 1988 
FNX260 Abs 105083 #19R7B - 1996 1994 
FNX265 Abs 105134 HIGRRE - 2012 2018 
FNX270 Abs 105140 #19AB4 - 2014 2010 
FNX275 Abs 105147 #1SABB - 2017 2016 


FNX280 Abs 105162 #19ACA 2022 2000 2004 
FNX300 Abs 105180 #19ADC - 2028 2035 
FNX310 Abs 105212 HIDAFC - 2037 2026 
FNK320 Abs 105252 #19B24 - 2055 2084 2133 
FNX330 Abs 105266 #19B32 - 2059 2057 
FNK380 Abs 105452 HISBEC - 2129 2105 
FNX400 Abs 105470 HISBFE - 2138 2058 
FNK410 Abs 105506 #19C22 - 2150 2147 
FNK420 Abs 106521 #19(31 - 2154 2145 
FNX43%0 Abs 105539 #19(43 - 2161 2153 
FNX435 Abs 105566 #19C5E - 2170 2165 
FNX450 Abs 105574 #19066 - 2177 2149 
FNX49) Abs 105587 #19073 - 2182 2179 
FNX495 Abs 105642 #19CAR - 2239 2231 2234 
FNX500 Abs 105673 H19CC9 - 2248 2246 
FNX510 Abs 105685 #19005 - 2253 2251 
FNXS20 Abs 106735 #19007 - 2265 2268 
FNXSX) Abs 105792 #19D40 - 2280 2283 
FNX535 Abs 105858 #19D82 - 2300 2303 
FNX550 Abs 105940 #19DD4 - 2327 2322 
FNX560 Abs 106041 #19639 - 2357 2353 
FNX570 Abs 106052 #19644 - 2360 2356 
FNX59O Abs 106066 #19652 - 2367 2347 
FNXNOR Abs 105077 #19875 - 1995 956 2030 2247 2775 
FNXTER Abs 105318 #19866 - 2077 2062 2080 2088 2108 2180 
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FORSTK 
FPOLL 
GETCH- 
=GETCNT 
=GETNAN 
GETPC 
GETST 
GETSTC 
GSBSTK 
T/OALL 
I/OFND 
ISRAN? 
=InvArg 
Invarg 
KBRTCK 
LBLNAN 
LNSKP- 
MAINST 
=MANSTK 
MENER j 
MFERR } 
MISUBP 
MLFFLG 
NOVED3 
MOVEU3 
=NSTKD1 
MTHSTK 
NEWVAR 
=NOTNCH 
NXPI10 
NXPIN15 
NXPH20 
NXPN5O 
NXTPRM 
NXTST2 
NXtstri 
ONINTR 
PCADDR 
POLL 
POPARG 
POPCHH 
POPST- 
POPSTK 
POPSTR 
PRGNEN 
PRGNST 
PRNCHN 
PRCNT 
PRMPTR 
PRSCOO 
PRSC60 
PRSCKB 
PRSCO- 
PTRRCL 
PTRS10 


Rbs 
Ext 
Ext 
Abs 
Rbs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 


193950 


106614 
106629 
106104 


193955 


10370 


193880 
104147 


102694 
194672 


103740 
193945 


103542 
104064 
104081 
104087 
104134 
104036 


194189 
194169 


104334 
104330 


193895 
193890 


194891 
193975 


106908 
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#2FS9E 


#1A076 
#1A085 
#1978 


#2F5A3 


#1929E 


#2F558 
#196D3 


#19126 
#2F870 


#1953C 
#2F599 


#19476 
#13680 
#19691 
#19697 
#1 96C6 
#19664 


#2F 68D 
#2F679 


#1978E 
#1978A 


#2F 567 
#2F 562 


#2F34B 
#2F5B7 


#1A19C 


to # 4 F F$ F£$ Ff F F F F FF F Fo FF FF F FF 8 


13 
2327 
5A2 
2599 
2630 
2384 
4% 
758 
13 
901 
$95 
2978 
971 
971 
1358 
3003 
1336 
13 
1472 
1995 
1826 
856 
13 
1780 
2129 
1251 
13 
673 
1162 
1420 
1426 
1428 
1444 
1413 
1774 
1959 
13 
13 
807 
964 
1550 
1581 
1580 
657 
13 
13 
2449 
13 
13 
763 
2857 
1986 
2922 
1953 
2776 


1170 
24n 


2433 


1936 
2227 


2263 


2012 


2560 


2868 
1192 


485 
2425 


665 
770 


2077 
1427 


1425 
1423 
986 


796 
1652 
1505 


955 
1161 


800 
1203 


303 
1809 
2664 


2355 
2774 


1281 


2441 
2028 
2324 


1482 


860 


806 
873 


1437 


970 
1334 
2665 


1413 
2314 
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1530 


2691 
2329 


1513 


1252 1257 2296 2473 


1443 


2856 


2899 
2599 2722 2742 
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PTRSUB 
RANEND 
RBC100 
RBC110 
RBC115 
RBC125 
RBC 130 
RBC140 
RBC150 
RBC155 
RBC160 
RBC200 
RBC210 
RBC220 
RBC230 
RBC240 
=RBLDCH 
RDATTY 
RECALL 
RESTDO 
ROMCHK 
ROMFND 
RSTO10 
RSTO20 
RSTO5 
RSTO5+ 
RSTOP+ 
=RSTOPT 
RSTP10 
RSTP20 
RSTPSO 
RSTPRN 
RSTPTR 
RUNRT4 
RUSUS? 
RVALUE 
S-RO-0 
S-R1-0 
S-R1-2 
SAV10+4 
SAVE10 
SAVE2O 
SAVES 
SAVES + 
SAVES - 
SAVEDO 
SAVPRM 
SAVPTR 
SCOPCK 
SCOPEN 
SFGPGI 
SF LAG? 
SF LAGS 
SF lagl 
SKITH2 


Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 


106879 
193970 
104379 
104402 
104427 
104447 
104464 
104554 
104560 
104563 
104566 
104570 
104601 
104612 
104629 
104668 
104341 


103825 
103811 
106139 
106136 
106871 
106862 
104187 
104204 
104264 
106838 
104180 


105322 
194673 
194689 
194699 
103795 
103801 
103784 
106125 
106128 
106122 


106796 
106821 


104116 


SUBprogran and 
Syribol Table 


#1A17F 
#2F5B2 
#197BB 
#19702 
#197EB 
41 97FF 
#19810 
#1986A 
#19870 
#19873 
#19876 
#1987A 
#19899 
#1 98A4 
#19885 
#1 98DC 
#19795 


#195391 
#19583 
#19698 
#19E98 
#1A177 
#1 A16E 
#1 96FB 
#1970C 
#19748 
#1A156 
#1 96F 4 


41 9B6A 
#2F 871 
#2F 881 
#2F 88B 
#19573 
#19579 
#19568 
#19£8D 
#19&90 
#19€8R 


#1 AT2C 
#1A145 


#1 96B4 


2767 
13 
1594 
1601 
1608 
1619 
1625 
1660 
1662 
1663 
1664 
1668 
1679 
1682 
1688 
1702 
1584 
703 
1955 
677 
2887 
2894 
1299 
1295 
2397 
2396 
2753 
2750 
1505 
4511 
1532 
2742 
1502 
1377 
765 
2078 
13 
13 
13 
1289 
1291 
1286 
2391 
2392 
239 
497 
e722 
2730 
1343 
2882 
1710 
1978 
502 
872 
1438 


DEF FN 


2091 
1542 
1597 
1664 
1606 
1612 
1620 
1658 
163? 
1678 


1613 
1669 
1699 
1686 
1607 


2358 


1525 
1522 
2456 


2398 
1532 


1507 
1535 
1536 
1581 


2067 
771 
2269 
1944 
799 
772 
797 
2285 
2281 
2278 


787 
792 


14% 


«831216. 


2117 2161 


1544 


1700 


1640 


1624 
1703 


2454 
1528 
2464 


2475 


2479 


931 
2337 
2288 

801 
2290 


2262 
2265 


1 


643 


2465 


2 
< 


723 
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SKITNS 
SKNITIO 
SNerlf 
$SB100 
$SB120 
$$B130 
$$B150 
$SB160 
$SB180 
SSB20 
$SB200 
$SB210 
$SB220 
SSB230 
$$B235 
$5B240 
$SB260 
$$B265 
$SB270 
SSB280 
SSB300 
$SB510 
$$B512 
SSB515 
SSB520 
SSB525 
SSB530 
SSBER 
STK19? 
STMBUF 
STNTDO 
STNTD1 
STPRSG 
STRASN 
STROVF 
STSAVE 
=SUB 
=SUBCHK 
SUBDC 
SUBFIL 
SUBP 
SVALUE 
Spglsp 
TRCLIN 
TRFLCK 
TRFRON 
TRTO* 
TRTO- 
TRTOEN 
bASSGN 
bserr 
=dest 
eF NNtF 
eF TYPE 
eF nFND 


Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Rbs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
flbs 
Abs 
Abs 
Ext 
Ext 
Ext 


104128 #196C0 
102720 #19140 


106338 #1R1BA 
106969 #1A1D9 
106976 #1A1E0 
107022 #1AZ0E 
107036 #1A21C 
107050 #1A22A 
102650 #190FA 
107063 #18237 
107076 #19244 
107083 #1A24B 
107135 #1A27F 
107121 #1A271 
107145 #18283 
107171 #1A2A3 
107183 #1R2AF 
107194 #1A2BA 
107209 #1A2C9 
107237 #1AZE5 
107272 #1R308 
107299 #18323 
107331 #18343 
107342 HIAZ4E 
107380 #1A374 
107397 #1A385 
102646 #190F6 


194705 #2F891 
194710 #2F896 


194238 #2F6BE 
101756 #18D7C 
104292 #19764 


107260 #1R2FC 


105399 #19BB? 
104680 #198E8 


2052 #00804 
104198 #19706 
102205 #18F 30 


Table 


1442 
865 
2553 
2815 
- 2825 
- 2827 
- 2851 
- 2856 
- 2861 
- 845 
- 2868 
- 2871 
- 2876 
- 2894 
- 2889 
- 2897 
- 2%6 
- 2910 
- 2914 
2919 
2928 
2971 
2981 
2991 
2995 
3007 
3013 
842 
1993 
1326 
13 
13 
900 
1094 
713 
13 
1 
1542 
= 298 
- 2968 
- ww 
- 2106 
- 1710 


' ) t 9 


Cs | 


822 

1705 
s edad 
- 2326 
- 2568 
- 831 
7 12 
- 1509 
- 667 
- 1825 
- 2863 
= A353 


1439 
869 


859 
2822 
2912 
2841 
2847 
2820 

841 
2826 

854 
2910 
2885 
2895 
2888 
2872 
2918 
218 
2824 
2911 


2979 
2973 
12 
02 
3006 

846 
2029 
2548 

933 
2277 


2258 
1802 
2825 
2076 
1223 
1329 
2440 
1333 

894 


811 
671 


2862 
2883 


2919 


1168 


2480 
1611 
2909 


1346 


842 
977 
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2904 
2893 


1416 2455 


2989 


2569 
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eILCNT Ext - 2236 
eILPAR Ext - 1981 
ePRMIS Ext - 1162 
eSPGNF Ext - 856 

zexpr Abs 106608 #1A070 - 2575 559 963 2006 
fBASIC Abs 57876 #0E214 - 12 63 
fBIN Abs 57860 #OE204 - 12 760 3059 
fCALC? Ext - 2380 
fcalc? Abs 106097 #19E71 - 2380 2233 2554 
f1NOFN Abs -42 #FFFDG - 12 501 871 1977 
fntrck Abs 106090 #19E6A - 2378 2321 2438 2564 
fspecx Ext - 840 


nferl Abs 103546 #1947A - 1163 857 1354 

nferr Abs 104865 #199A1 - 1826 1163 1982 2237 
nferr2 Abs 105638 #19CA6 - 2237 2864 

noved3 Abs 104796 #1995C - 1780 1183 219% 2517 2538 
noroon Abs 102884 #191E4 - 918 902 

nxtstr Abs 104967 #19A07 - 1959 1775 


oFLENh Abs 32 #00020 - 12 3050 3055 
oF TYPh Abs 16 #00010 - 12 3049 3050 355 
oSUBLn Abs 37 #00025 - 12 2968 
pCALRS Abs 54 #00036 - 12 1506 
pCRALSV Abs 55 #00037 - 12 808 

pFNIN Abs 61 #0003D - 12 2328 
pFNOUT Abs 62 HOOO3E - 12 2431 
popcht Abs 104315 #1977B - 1550 954 969 1580 
rstst Ext - 769 

runrt! Abs 104019 #19653 - 1377 1366 
runrtn Abs 103989 #19635 - 1363 1224 

t! Ext - 1363 

tCOMNA Ext - 2344 

tDEF Ext - 1760 2684 
tENDDF Ext - 1755 

tEOL Ext - 474 

tIN Ext - 836 

tPRNEN Ext - 623 937 
tPRNST Ext - 518 2023 
tSEMNIC Ext - 2001 

tSUB Ext - 2999 


trflck Abs 104673 #198E1 - 1705 820 1327 2378 
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Input Paraneters 
Source file nane is SC&SUB::NS 
Listing file nane is SC/SUB:TI:ML::-1 
Object file name is SCXSUB:TI:MS::-1 


4411114 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 . SSS BBBB & FEEEE XK xX CCC 
2 S $ B B&& € xX ¥ € C 
3 x S B B&& €E XxX C 
4 i SSS. BBBB& EEEE x C 
5 x SB B &&&% XxX C 
6 5 S $ B 8 & 8 €E XxX xX C C 
7 x SSS 8BBB &8& & EEEEE X x CCC 
8 x 
9 TITLE Miscellaneous Execution Routines <831212.1206> 
10 1A3D4 SBEXC ABS #1A3D4 
1 RDSYNB TIZEQU: :MS 
12 x 
13 te 
14 JOISTS TIS SII S II IOS IIS IOS III SIO STII IIIA IAS SA 
15 $I IRI ITI III III III IIS OS II IOI SISOS OI ISIS TOI IIIS ISSA IIA 
16 ae 
17 ** Nane: ENDLIN - ENDLINE statenent execution 
18 ke 
19 ** Category: STEXEC 
20 aa 
21 ** Purpose: 
22 ak Inplenents ENDLINE statenent 
23 ax 
24 *k Entry: 
25 z P = 0 
26 se DO points past ENDLINE token 
27 ax 
28 RACEREt: 
29 ae Exits through NXTSTM 
x tk 
31 ** Calls: EXPEXC , POP1S, NXTSTH 
32 ak 
33 ** Algorithn: 
34 se If no expression present then 
35 pi set endline string to CR/LF 
36 a else 
3? aK Evaluate expression 
38 le Pop string fron stack 
39 oe If length>3 bytes then 
40 aM exit with "Invalid Argurent" error 
41 an Set endline string and string length 
42 a Exit through NXTSTM 
43 a 
44 ** History: 
45 Ae 
46 £% Date Progranner Modification 
47 RK) cossebivs, wesesiatace “Se cceusoes cee Se coe eee ee Seely 
48 ek 10/25/83 B.S. Added docunentation 
49 ae 
SO FOO ITT TTT TOIT TT OK 
51 SOR IRIOI I OTI TOTTI 
52 1A3D4 8C00 invarg GOLONG =InvArg 
00 
53 kL 


54 - 
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56 1A3DR 0000 REL(5) 
0 

56 1A3DF 0000 REL(5) 
0 

57 1A3E4 14A =ENDLIN A=DATO 

58 1A3E7 310F LCHEX 

59 1A3EB 9E2 PAC 

60 1A3EE 61 GOYES 

61 1R3FO 1F0O Di=(5) 
000 

62 1A3F7 344D LCHEX 
ORO 

63 1A3FE 145 DAT1=C 

64 1A401 584 GONC 

65 a 

66 he 

67 1404 8E00 ENDLOO GOSUBL 
00 

68 1A40A 8FOO GOSBVL 
000 

69 1A411 AF2 C=0 

70 1R414 306 LC(1) 

71 1R41? 8B6 PAC 

72 141A AB GOYES 

73: 1R41C 1800 bO=(5) 
000 

74 1R423 1500 DRTO=A 

75 1427 160 DO=D0+ 

76 1A42AR 137 CD1EX 

77 1AR42D C2 C=C+A 

78 1A42F 135 D1=C 

79 1432 810 ASRB 

80 1A435 AOC ENDL10 A=A-1 

81 1A438 411 GOC 

82 1A43B 1C1 D1=D1- 

83 1R43E 14F C=DAT1 

84 1A441 140 DATO=C 

85 1A444 161 DO=D0+ 

86 1A447 SDE GONC 

87 1R44QA ENDL20 

88 1A44A 6000) nxtstn GOTO 

$3 kL 


% 


xe 


=DROPDC 
=OPSTRp 
B 

FO 

B 
ENDLOO 
=EQLLEN 
OROD4 

A 
nxtstn 


=expexc 


=POP1S 


Don 


invarg 
=EOLLEN 


- oO 
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Is there a paraneter? 
Yes, then evaluate it 
No, then set to default (CR/LF) 


(B.E.T.) 


Evaluate expression 


Pop string off stack 


Is string > 3 chars? 
Yes, then error (invalid arg) 


Write out EOL len 


Divide by 2 for nunber of chars 
Decrenent count 
Exit loop if done 


Read character fron string 
Copy it to EOLSTR 

Move EOLSTR pointer 
(B.E.7.) Loop until done 


GOTO NXTSTN 
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91 

92 

93 

94 

35 

36 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
We 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 


129 
130 
131 
132 
133 


1R44E 8F00 
000 
{A455 137 
{A458 135 
1R45B C2 
1R45D 109 
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JECT 
FOO JOUR ITO TOTO TT FIR RFK 


FOO JS OJ OTTO TOTO TOTO TTT 
aa 


** Nane:(S) XXHEAD - Reriove String Header (Undo ADHEAD) 
ke 


** Category: MTHSTK 
x 


* 
** Purpose: 

an Renoves string header fron a string on stack. Leaves 
aK registers set up so that STKCHR may be called again. 
xk 

** Entry: 

x P = 0 

ks 

Re EX; 

ax p = 0 

ak D(A)=Pointer to AVMENS 

ax R1(A)=Pointer to end of stack iten (highest address) 
x D1 points to start of stack item (lowest address) 

ae Carry clear 

xk 

** Calls: POPIS 

kk 

RX Uses. iss... 

xx Inclusive: C(A),D1,0(A) 

xk 

Xk Stk lvls: 1 

xk 

** History: 

kk 

se Date Progranner Nodification 

ek CotioocS. J awectucnen. Goeuuseue<aonsescsceleece sereeeesene 
xk 10/19/82 B.S. Added docunentation 

kk 


SII IOI OI UIC TT TO TOIT TI IK 
FOOT O IO ITI TTT IR TTT ON 


=XKHEAD GOSBVL =POP1S 


CD1EX 
01=C 
C=C+A A 
R1=C 
*Now fall into D=AVNS 
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134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
15? 
168 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 


171 
1?2 
173 
174 
175 
176 
17? 
178 
179 


180 
181 
182 


1A460 
1R463 


1A46R 
1R46C 
1A46F 
1A474 
1A4 74 


1A476 
{A479 


1R4.& 


137 
1FOO 


0? 
147 
OF 
136 
01 


137 
1FOO 


69EF 
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FOI ITO RIO OTTO OO OT TTI 
FORO I IO TOIT ITI TTI TI ITT ITT ITI TIT TIIT II 


ka 
** Nane 


** Nane 
ak 


:(S) D=AVNS - Set D(A) to AVMENS or AVMENE 
:(S) D=AVME - Set D(A) to AVMEMS or AVMENE 


** Category:  PTRUTL 


an 


*x Purpose: 


ax* 


D=AVNS : Read AVNEMNS into D(A) 


a D=AVME : Read AVMNENE into D(R) 
kk 

** Entry: 

ka 

Kk Exit: 

ax 0(A)=nenory location specified. 
aR C(A)=a copy of value in D1 at tine of call 
x 

xx Calls: None 

ax 

KK Uses.....5. 


** Inclusive: C(A), D(A) 


xx 


KK Stk lvls: 0 


dk 
** History: 

dk 

xk Date Prograntier Modification 

Per ee Vote, shee eeser ese eee eee ao ed 


ke 10/19/82 B.S. 


a 


Added docunentation 


FOI TOIT OI TOT OTT TOTTI TIT II IIIT IAT ITI IK 
FOO IO OTTO TT TERK 


NOTE: 
=D=AVKS 


D=@D1 


AR 
we 


=D=AVNE 


Above code falls through to here 
CD1EX 
D1=(5) =AVNENS 


d=C 
C=DAT1 
CDEX 
b1=C 
RTN Preserve carry 


away 


CDIEX 
D1=(5) =AVMENE 


GOTO D=@D1 
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183 
184 JI III TOSI TTI IIIT TI TITS TT IIT IK 
185 JU IOI III OIC TO TI ISIS SSI III ATI 
186 a 
187 xk Nane: STRTUP - STARTUP statenent execution 
188 am 
189 &* Category:  STEXEC 
190 ak 
191 ** Purpose: 
192 aR STARTUP statenent execution 
193 a 
194 ** Entry: 
195 ak P = 0 
196 as DO points past STARTUP token 
197 aR 
198 aX Exit: 
199 xe Exits through NXTSTN 
200 ak 
201 *k Calls: EXPEXC , XXHEAD, STROVF , ADHEAD 
02 aX 
203 ** Algorithn: 
204 an Evaluate expression 
205 kk Renove string header 
206 ae Append CR to string 
207 ak If string > 95 chars then 
208 a Exit mith "String Overflow" error 
209 ae If string is null then 
210 = Deallocate buffer (bSTART) 
211 xe Exit through NXTSTN 
212 = Allocate buffer of required length 
213 am If not enough nettory to hold buffer then 
214 ak Exit with "Insufficient Menory" error 
215 RA Copy startup string into buffer 
216 ne Exit through NXTSTN 
217 ak 
218 ** History: 
219 ax 
220 ax Date Progranner Modification 
221 PE eceeaae osecteetohee. * Hite epeee isc ee ur esses oR ay 
222 7 10/25/83 B.S. Added docunentation 
a J IK III IIIT IRI TI II III AISI LI ISIS IIIS III IIIT II II AISI IISSSI ISIS SAS 
225 JIG III SIO TOS SO IS III IOS III IIIT IS IIIS OSI II ISTE I SII IAS 
226 1A484 0000 REL(5) =DELAYd 
0 
227 1A483 0000 REL(5) =STRNGP 
0 
228 1A48E =STRTUP 
229 1R48E 8E00 GOSUBL =expexc 
00 
230 1A494 76BF GOSUB XXHEAD Renove string header 
231 1A498 3100 LCHEX OD Carriage return 
232 1A49C 21 P= 1 
233 x 


234 * The following subroutine exits through EXPR but this 
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235 
236 
237 
238 
233 
240 
241 
242 
243 


244 
245 
246 
247 
248 
249 
250 


251 
252 


1R49E 7BB0 
1A4A2 D2 
1R4AA4A 302 
TRAAR? 108 
TRAAR 3280 
8 
TR4AF 7880 
1R4B3 D8 


1A4B5 3100 
1A4B9 8BA 
1A4BC 95 
1A4BE 8000 
00 


x 
x 
x 
x 
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returns inriediately since DO is still pointing to 
the token that caused the expression execution done 
above to terninate. 


GOSUB 
C=0 
LC(1) 
RO=C 
LC(3) 


GOSUB 
B=A 
C=0 
LC(2) 
PAcHC 
GOYES 


STKWP 
A 
2 


=bSTART 


CHRR5O 
A 

A 

96%2 

A 
CHAR40 


GOLONG =STROVF 


Add CR to stack 
Null stack length linit=2 
STARTUP buffer ID 


Copy buffer length 

(C(A)=2) 

95 chars plus CR 

Is this string too long? 

No, then okay 

Yes, then give string overflow 


Saturn Asserbler 


Ver. 3.39/Rev. 2306 


253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
2939 
300 1R4C4 0000 
0 


301 1RAC9 0000 
0 

2 1RACE 8E00 
00 


303 1A4D4 767F 
304 1AR4D8 AF2 
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EJECT 


FORO RIOT ROO RIOR IIR SOI TOR III 
SOIT OT TOTTI TT TOTTI 
ak 


*k Nane: CHARST - CHARSET statenent execution 
ak 


** Category: STEXEC 


th 
** Purpose: 

a Inplenents CHARSET statenent execution 

ah 

tk Entry: 

aR DO points past CHARSET token 

ak p = 0 

kk 

Rk Exit: 

aA Exit through NXTSTM 

he 

*k Calls: EXPEXC, XXHEAD, STKWP, I/OALL, REVPOP, I/ODAL, NXTSTM 
aa 


** Algorithn: 
x 


* Evaluate expression 
aK Renove string header 
aE Append 5 bytes of zero in case string is not a 
ak rultiple of 6 bytes 
ax If null string supplied then 
aK Deallocate charset buffer 
ah Exit through NXTSTN 
ak If string contains nore than 128 patterns supplied then 
aes consider string length to be 128*6 
ae Calculate size of buffer needed 
ak Allocate buffer of size needed 
ae If not enough nenory then 
Rx Exit and give “Insufficient Menory" error 
a Move charset string into buffer 
A Exit through NXTSTN 
ah 
*k History: 
ae 
xk Date Progranner Modification 
$F) Beereels  Saacesieees.” eedeiacesececsuen red scusaeuauueune 
se 10/25/83 B.S. Added docunentation 
x 


FORT I TIT TR ITT TIT III ITI IIT ITI IIIT IN 
FOI TOIT OTTO OTR TTT TT TI TIT. 


ColCnt EQU 6 
REL(5) =DELAYd 
REL(5) =STRNGP 

=CHARST GOSUBL =expexc 


GOSUB XXHEAD 
C=0 W 
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305 
36 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 


318 
319 


320 
321 
322 
323 


324 
325 
326 
32? 
328 
329 
330 
331 
332 


333 
334 
335 
336 
33? 


338 
339 
340 


341 
342 
343 
344 
345 
346 
34? 
348 
349 
350 


351 
352 


TR4DB 29 


1R4DD 7070 
TAAE1 D2 
1A4E3 308 
1R4E6 108 
1A4ES 32BF 
B 
TAAEE 7940 
TRAF2 3400 
600 
1R4F9 8B2 
TAAFC 40 
TA4FE DA 
1A500 3200 
0 
1AS05 D1 
1A507 A31 
1A50A B3A 
1R500 59F 
1AS10 B31 
1A513 D4 
1A515 101 
1AS18 117A 
1A51B 8FOO 
000 
1A522 521 
1AS25 110 
1A528 130 
VAS2B 119 
TAS2E 8D0O0 
000 


1A535 8C00 
00 


1AS3B 10R 
1AS3E 8FOO 

000 
1R545 137 
1A548 128 
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ee eM Oe MH 


GOSUB 
C=0 
LC(1) 
RO=C 
LC(3) 


GOSUB 
CHAR10 LC(5) 


PRC 

GOYES 

R=C 
CHAR2O LC(3) 


B=0 
CHAR30 B=B+C 
R=R-C 


CHAR40 


x 
xe 


=CHARER GOLONG 


oe we ee Oe 


CHAR5SO R2=C 
GOSBYL 


CDIEX 
CROEX 


null. 


STKWP 

A 

11 
=bCHARS 


CHARSO 
128%2*ColCnt 


A 
CHAR2ZO 
A 


2*ColCnt 


=I/OALL 
CHARER 


=MOVNXT 


=MENER } 


=REVPOP 
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The following subroutine exits through EXPR but this 
returns itinediately since DO is still pointing to 

the token that caused the expression execution done 
above to terninate. 


Append 5 bytes of zeros 


Null stack length linit=11 
Save null stack length linit 


Is it longer than 128 patterns? 
No, then okay 
Yes, then use first 128 patterns 


Loop back until done 
Undo one add 


Save actual length 
Recall buffer id 
Allocate buffer of desired length 


Insufficient nerory? 

Recall string start 

DO points to start of source 
Recall length 

Copy string to buffer/goto NXTSTM 


GOTO MEMERR 


CHAR5O: Reverse string and check if string 1s considered 
Returns if not null otherwise 
it deallocates buffer and exits through NXTSTM. 
Entry: (C(B)=Buf 1d,ROQ=string length considered to be null 
Exit: R2(B)=Buf id, RO=String pointer, A(A)=String length 


Save buffer nunber in R2 
Call REV$ and POP1S 


Save string pointer in RO 
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353 1A54B 8B6 7ADC OA Is length < null string length? 
354 1AS4E 00 RINYES No, then return 
355 1A550 11A C=R2 Recall buffer nurber 
356 1A553 8EOO GOSUBL =i/odal Yes, then deallocate buffer 

60 
357 1A559 GOFE GOTO = nxtstn 
358 a. 
359 t- 
360 $3 IU IOI I SOI TOO TOTO SOT SIS ISS SI SSS RI IIA 
361 JUIGISIISIIOOOOOICIGOIISISIOU OOOO TOC TTT TA TAS IIA 
362 ax 
363 < Nane: STKWP - Add C(WP) & string head to nath stack 
364 
365 ** Category: MTHSTK 
366 kK 
367 xx Purpose: 
368 x Adds P+1 nibbles of C register to top of math stack 
369 ax then adds string header to stack 
370 ax 
371 kk Entry: 
372 aK DO is expression progran counter 
373 ae 01 points to math stack (Where tokens are to be added) 
374 a R1(A) points to start of stack iten 
375 ak C(WP) = Data to be added to stack 
376 a D(A) = (AVNENS) 
377 ax 
378 ae Exit: 
379 =x D1 updated (Original D1 + P + 1 + 16} 
380 Ax Exits through EXPR 
381 ak 
382 ** Calls: ADHEAD 
383 <% 
384 ER USES cod cw 
385 %X Inclusive: See EXPR 
386 ae 
387 ** Stk lvis: 4 
388 7 
389 *X History: 
390 ae 
391 as Date Progranner Modification 
392 Oes Vitcceds, ~ Gelri cues, | wet tinGessisoleeeue deeste deck ts 
393 Kk 10/25/83 «B.S. _ fidded docunentation 
394 ax 
395 $I IOI II ITI III III III II IO IIIS IIS ISS SIS SII III IIIS IIS ISI IASI I A 
396 2 III IOI III III III III ISI ISI OS ISI SSS SOS TIS III ISIS II TIS I SISK 
397 1A55D 840 =STKWP ST=0 0 Don’t return fron ADHEAD 
398 1A560 137 CDIEX 
399 1A563 FA C=-C A 
400 19565 809 C+P +4 
401 1A568 FA C=-C A 
402 1A56A 8B3 7c<D OR 
403 1AS56D 8C GOYES CHARER 
404 1AS6F 137 CD1EX 
405 1A572 1551 DAT1=C WP 


406 1A576 20 P= 0 
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407 18578 6000 GOTO =ADHD; 
408 r- 
409 1A57C END 
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ADHD) Ext - 407 
AVMENE Ext =. “479 
AVMENS Ext - 170 


CHARIO Abs 107762 RIAAF2 - 319 

CHAR2O Abs 107776 H1A500 - 323 = 321 
CHAR3O Abs 107783 #1A507 - 325 327 
CHAR4O Abs 107797 #1A515 - 33% 249 
CHARSO Abs 107835 #1A53B- 349 244 318 


=CHARER Abs 107829 #1A535 - 340 333 403 
=CHARST Abs 107726 #1ARACE - 2 
Colfnt Abs 6 #00006 - 298 «= 319323 
D=@D1 Abs 107626 H1A4EA - 171 180 


=D=AVNE Abs 107638 #1A476 - 178 
=D=AVHS Rbs 107616 #1A460 - 169 


DELAYd Ext - 226 30 
DROPDC Ext - 55 
ENDLOO Abs 107524 #1A404 - 67 60 
ENDL10 Abs 107573 #1A435 - 80 86 
ENDL20 Abs 107594 #1A44—~A - 87 81 
=ENDLIN Abs 107492 #1A3E4 - 57 
EOLLEN Ext - 61 73 
I/OALL Ext - 332 
InvArg Ext - 52 
MEMER) Ext - 30 
MOVNXT Ext - 3 
OPSTRp Ext . 56 
POP1S Ext _ 68 128 
REN180 Ext - 88 
REVPOP Ext - 350 
=STKWP = =RAbs 107869 #1A55D - 397 239 313 
STRNGP Ext - 227 31 
STROVF Ext - 250 
=STRTUP Abs 107662 #1R48E - 228 
=XXHEAD Abs 107598 #1R44E - 128 20H WI 
bCHARS Abs W67 #OOBFB - 11. (317 
bSTART Abs 2056 #00808 - 11 243 
expexc Ext = 67 229 HW2 
ifodal Ext - 356 
invarg Abs 107476 #1A3D4 - 52 72 
nxtstn Rbs 107594 #1A44A - 88 64 357 
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Input Paraneters 
Source file narie 1s SB&EXC: NS 
Listing file nane is SB/EXC:TI:ML::-1 
Object file narre is SBZEXC: TI: MS::-1 


411111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 * SSS CCC & RRRR EEEEE N N 
2 x 5 S$ C C && R RE N N 
3 x S C & & R RE NN ON 
4 x SSS. OC é RRRR EEEE NNN 
5 x $ C &&& RR E N NN 
6 x $s $ € € & & RR E N ON 
7 : SSS ccc & & R R EEEEE N N 
8 
g x 

10 x 
1 
12 TITLE RENUMBER Module <831216.1609> 


13 1AS7C ABS #1A57C 


Saturn Asseribler 


Ver. 3.39/Rev. 26 


14 
15 
16 
1? 
18 
19 
20 
24 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
3? 
38 
39 
40 
a 
42 
43 
44 
45 1A57C 0000 
0 


46 1AS81 0000 
0 


47 1A586 136 

48 1A589 108 

49 

50 

51 

52 

53 

54 

55 1A58C 8F00 
000 


56 

57 

58 

59 1A593 8F0O 
000 


60 
61 
62 
63 1A59A 854 
64 1A59D 852 
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EJECT 


FORO OR JOIST TOT IIT IT 
SORORITIES TT T DTT TTI 
ak 


xk Nane: RENUN - Renunber Execution 
kk 

** Category: STEXEC 

kk 


** Purpose: Renunber partial or all the program line in a file. 
kh 


** Entry: DO points at past the RENUM token 
kk 


Kk Exit: Exit to NXTSTM 

kk 

kk Calls: CHKPSF, PRSCOP, RENSUB, UPDCRL, GETLNH, FINDL, LINE#1, 
ae CPL#1O 

kk 


*&k Uses: A-D, RO-R3, DO0,D1, SO0-2 
ak 


*& Stk lvl: 4 
kh 

a* History: 
kt 


xk “Date Progranner Modification 
$0. cee uresy > Kee cia  sbobtaeaue sd, 


xk 03/01/83 = JP Packed GETSTC/GETPRO to CHKPSF 

kk 

SII RIT TTDI T DIALS IIT II III SII LIDIA IIIS III II ISI IIIS SSIS IIL 
IRI IIIT III I SIDI III IIIS III IDI III III IIIIISIIIIDIIIISISIIISIISII SSE 
& 


REL(S) =RNUNOC 
REL(S) =RENNP 


=RENUN = CDOEX SAVE DO IN RO 
RO=C 


Check File type 
Error Exit if non BASIC 
Check Protection 
Error Exit if PRIVATE or SECURE 


ee ee 


GOSBVL =CHKPSF 


k 
* Chain the subprograns and labels if need to 
k 


GOSBVL =PRSCOP 


k 
* FIRST WE DO IS TO COMPILE ALL THE LINE# REFERENCE 
& 


RENOOS ST=1 1 
ST=1 2 
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65 
66 
67 


68 
69 
70 


71 


ic 
73 
74 
75 
76 
a7 
78 
79 
80 
31 
82 
33 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 


110 
111 
112 
113 
114 
115 
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Fri Dec 0, 1983 


Coripile all references 
NO ERROR IN COMPILE 


WE ARE ASSIGNING NEW LINE #, RO-R3 CONTAIN : 
BEGINNING LINE # ( SPECIFIED BY USER OR DEFAULT T0 10) 


POINTER POINTS TO THE 1ST LINE WOULD BE RENUMBERED 
LAST LINE# WOULD BE RENUMBERED 


RESTORE DO 
GET POINTER OF 1ST LINE # 
Save ptr to line# 


C(R) = 00010 

SET DEFAULT STARTING LINE # 
SET DEFAULT INCREMENT 

C(A) = 10000 


SET DEFAULT LAST LINE # 


PROCESS THE ARGUMENTS 


NO ARGUMENT AT ALL 


NO INCREMENT 


Start line# in C(A) 
SAVE DO IN R2 


FOUND GREATER LINE # 
DO NOTHING IF LINE NOT FOUND 
SAVE STARTING POINTER IN R2 


TRA5SAO 7FAI GOSUB RENSUB 
1A5A4 4C1 GOC RENO10 
1ASA7 1FOO D1=(5) =PCADDR 
000 
1ASAE 11A C=R2 
1A5B1 145 DATi=C A 
1A5B4 8FOO GOSBVL =UPDCRL 
000 
1ASBB 8000 GOLONG =STMINF 
00 
x 
* WHILE 
x RO = 
* RI = INCREMENT 
k = R2 = 
x R3 = 
* 0D = POINTER OF END OF FILE 
* B= INCREMENT 
* D1 = LINE # POINTER 
x 
1A5C1 110 RENO1O A=RO 
1A5SC4 1H DO=A 
1ASC? 72C3 GOSUB  LINE#1 
1ASCB 102 R2=A 
1ASCE D2 C=0 A 
1A5DO E6 C=C+1 A 
1ASD2 Fe CSL A 
1A5D4 108 RO=C 
1ASD7 109 Ri=C 
1ASDA F2 CSL A 
1A5DC F2 CSL A 
1ASDE F2 ; CSL A 
1ASEO 108 R3=C 
* NOW START 10 
1ASE3 14f A=DATO B 
1ASE6 7821 GOSUB GETLN# 
1ASEA 436 GOC REN100 
1TASED 100 RO=A 
1ASFO 7E11 GOSUB GETLN# 
TASF4 495 GOC REN100 
1ASF7 101 R1=A 
TASFA 7411 GOSUB GETLN# 
1ASFE 4F4 GOC REN100 
1A601 D6 C=A A 
1AGO3 132 ADOEX 
1AGOG6 102 R2=A 
1A6O9 SFOO GOSBVL =FINDL 
000 
1AG1O 860 *ST=0 0 
1R613 60 GOYES RENO20 
1A615 66FO GOTO REN180 
1A619 137 RENOZO CDIEX 
1A61C 12A CR2EX 
TAGIF 134 DO=C 


RESTORE BO 
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: 116 18622 7CEO GOSUB GETLN# 
i 117 1R626 472 GOC REN100 
; 118 1629 05 SETDEC INCREMENT THE LINE # BY 1 
119 1R62B 23 P= 3 
120 1A620 B14 A=A+1 WP 
121 1A630 20 P= 0 
122 1A632 04 SETHEX 
123 18634 491 GOC REN100 
124 x 
125 : Find a line number 1s larger than the specified one. 
126 
127 1A637 D6 C=A A 
128 1R639 8FOO GOSBVL =FINDL 
000 
129 1A640 DO A=0 A 
1% 1R642 1583 A=DAT1 4 Read the next line number 
131 1646 870 ?ST=1 0 Line # not found ? 
132 1f649 50 GOYES REN100 If so, last line is 10000 
133 1R64B 103 R3=A Ending line# +1 
134 x 
135 1A64E 7833 REN100 GOSUB LINE#1 GET 1ST LINE # ADDRESS 
136 1R652 137 CDIEX 
137 18655 112 A=R2 A= START LINE # ADDRESS 
138 1A658 8A2 fr START FROM 1ST LINE ? 
139 1A65B 32 GOYES REN105 IF SO, NO NEED TO CHECK 
140 1A65D 1% DO=A 
141 1R660 183 DO=D0- 4 POINTS INTO PREVIOUS LINE 
142 19663 8F0O GOSBVL =CPLH10 GET PREVIOUS LINE # 
000 
143 1A66A D2 C=0 A 
144 1A66C 15F3 C=DAT1 4 C = PREVIOUS LINE # 
145 1R670 110 A=RO 
146 1A673 886 ?ADC OR START LINE# > PREVIOUS LINE# 
147 1R676 80 GOYES REN105 IF SO, OK 
148 19678 8C0O GOLONG =InvArg OTHERWISE, SAY “ARG. OUT OF RANGE" 
00 
149 : 
150 1A67E 1FOO REN105 D1=(5) =CURREN 
000 
151 1A685 147 C=DAT1 A 
152 1A688 D7 D=C A D= POINTER OF END OF FILE 
153 1R68A 11A C=R2 
154 1A68D 135 D1=C 
155 1R690 D2 C=0 A 
156 1A692 15F3 C=DAT1 4 
157 1R696 134 DO=C SAVE START LINE # IN DO 
158 18699 118 RENI10 C=R2 
159 1A69C 135 D1=C POINTS 16 1ST LINE # 
160 1A69F 111 A=R1 
161 1R6A2 D8 ; B=A A B= INCREMENT 
162 
163 * DO = START RENUMBER LINE # POINTED BY R2 
164 * D1 POINTS AT LINE # 
165 * RO = NEXT LINE # TO BE ASSIGNED 
166 * Ri = INCREMENT 
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167 * R2 = POINTER OF 1ST LINE NUMBER TO BE RENUMBERED 
168 : R3 = LAST LINE # TO BE RENUMBERED 
169 
170 1A6A4 137 RENI120 CDIEX 
171 1A6A7 SBF 70>=0 A AT END OF FILE YET 7 
172 1AGAR 85 GOYES REN170 IF $0, GOTO REN170 
173 1ABAC 135 01=C 
174 1AGAF DO A=0 A 
175 1A6B1 1583 A=DAT1 4 READ THE OLD LINE # FIRST 
176 1A6BS 11B C=R3 SEE IF WE PASS LAST LINE # YET 
177 1A6B8 8BE 7A>=C A 
178 1A6BB 74 GOYES REN170 IF SO, WE ARE DONE 
179 1A6BD 110 A=RO Next line# to assign 
180 1A6CO 8B2 7AcC OA WE BOMB ? 
181 1A6C3 41 GOYES REN140 IF NOT, GOTO REN140 
182 1f6C5 04 REN130 SETHEX 
183 1A6C7 136 CDOEX GET RESTART LINE # 
184 1R6CA 108 RO=C 
185 1R6CD D2 C=0 A SET INCREMENT TO 1 
186 1R6OCF E6 C=C+1 A rest of block to be 
187 1R6D1 109 R1=C increnented by 1 
188 1A6D4 54C GONC REN110 (B.E.T) 
189 1A6D7 1593 REN140 DAT1I=R 4 
190 1ABDB 05 SETDEC 
191 1A6DD CO A=A+B A 
192 1A6DF 04 SETHEX 
193 1R6E1 100 RO=R Next line# to assign 
194 1AGE4 173 Di=Di+ 4 PASS LINE#, POINTS AT LINE LENGTH 
195 1A6GE? D2 C=0 A 
196 1AGE9 14F REN160 C=DAT1 B READ THE LINE LENGTH 
197 1AGEC 133 ADIEX 
198 1AGEF CA A=A+C A POINTS TO END OF LINE 
199 1AGF1 131 Di=A D1 at t@ or tEOL 
200 1R6F4 148 A=DAT1 B 
201 1AR6F7 171 Di=Di+ 2 
202 1ABFA 908 7A=0 PP POINTS AT EOL ? 
203 1A6GFD 7A GOYES REN120 
204 1AGFF 59E GONC REN160 (B.E.T.) 
205 a 
206 * THIRD STEP IS TO DECOMPILE THE LINE # 
207 & 
208 1A702 851 REN170 ST=1 1 
209 1A705 842 ST=0 2 
210 18708 7740 GOSUB RENSUB Renunber line# references 
211 1A70C 8COO =REN180 GOLONG =NXtstni 
00 
ele & 
213 SOIR TORO RRO OOO JOTI OOO ISG IOI CIO i 
214 18712 14R GETLNA A=DATO B 
215 18715 161 DO=Dd+ 2 
216 18718 3100 LC(2) =tCOMMA 
217 1A71C 966 RHC OB 
218 1A71F 00 RINYES NO MORE ARGUMENT 
219 1A721 DO R=0 AR 


220 1A723 1583 A=DATO 4 
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221 18727 163 
222 1A72R 03 
223 
224 
225 
226 
eer 
228 
229 
2H” 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
262 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
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DO=D0+ 4 
RTNCC 


FOI IO TITIES TT ITT TT TTT SIA TIT TI IIIT ITD ITN 
FO I IIIT TTT TT IT ITT TTI TIT TIT TIN 
aK 


** Nane:(S) RENSUB - Renunber Subroutine 

ah 

** Category:  FILUTL 

kk 

** Purpose : 1. Conpile all line nunber references 

a 2. Clear all compiled offsets 

ha 3. Renumber all line number references 

kk 

** Entry : CURRST & CURREN pts current file 

ak $1 = 0 - Only clear compiled offset 

am = 1 - Compile offset or renunber line nunber 
a If S1=1: 

aR S2 = 1 - Conpile reference offset 

a® S2 = 0 - Renunber line nunber 

kk 

** Exit : Carry set => No error 

ak Carry clear=> Line nunber not found 

a R2= ptr to stnt len of stnt in error 
&k 


** Calls : PFNDL*, EXPSKP, FINDA, ISRAN?, LINE#1, POLL 
kk 

xk Uses : A,B(A),C,D(A),00,01,R2, $3 

ka 


kk Stk lvls : +2 
ke 


** Detail : 
kk 


** The line number 1s expected to be found in the following 
kk mainfrare statenents: 


ke 
aX 4. GOTO/GOSUB/RESTORE <LINE#/LABEL> 

xk =—-2. ON ERROR GOTO/GOSUB <LINE#/LABEL> 

kK 3, ON TIMER [#<exp>,] <exp> GOTO/GOSUB <LINEH/LABEL> 

kk 4, ON <exp> GOTO/GOSUB/RESTORE <LINE#/LABEL>,... 

ak 6S. OIF <exp> THEN LINEH/LABEL/EXT [ELSE LINE#/LABEL/EXT IF] 
xk = 6. «~PRINT USING LINE#/ LABEL 

kx 7, DISP USING LINER /LABEL 

Kk 8. ON INTR GOTO/GOSUB LINE#/LABEL 

“ 9. POLL for non-nainfrane XWORD 


** For XWORD (External) statenents, the line nunber is handled 
** as follous: 

xk 

kk | If RENSUB is just called for zeroing the conpiled offset 

kk ($120), the line # in XWORD statement will be ignored. This 
xk neans the execution of an XWORD statenent has to assume the 
xk compiled offset is incorrect and has to zero it everytine. 
*k | If RENSUB is called for renumbering (S1=1), the poll pREN 
xk will be issued so that each LEX file that contains XWORD 
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276 xk  statenents that may have line nunbers will be allowed to 
277 xk supply the correct renumbering. See the pREN poll inter- 
278 xk face for details. 

279 xx 

280 JO IOI OO I TTR TIT T ORI IT TRIN 

284 JIC TOO TO TTT TT TT 
KK 

a JOO TOTTI TOT IIT I IIIT IIIT IIIT STI IS 

284 JO IOI SO TOO TOI OOOO TT 

285 ak 

286 - Nane:(S) pREN - Renurber an XWORD line# reference 

287 

288 &* Category: POLL 

289 ak 

290 xk Type: POLL 

291 KK 

292 ** Purpose: 

293 xR Renunber a XWORD statenent if it has line nunber as its 

294 ae argurents. 

295 a 

296 = Should poll be "Handled" (return with XM=0)?:Yes 

297 x 

298 kk Meaning of “Handling” Poll (uhat does code do if handled’): 

299 a Return D1 points to where the line nurber is. 

0 ke 

1 k* Entry conditions for handler (registers, ST, RAN, etc.): 

2 KK BLA) = Poll number. 

3 ak HEX mode. 

4 a P=0, 

5 KK A[4-0] = LEX file ID and fen # 

6 ax D1 past the XNORD tokens. 

0? kk 

H8 kk Norrial exit conditions fror handler if handled (ST, RAN, 

9 xk registers, etc.): 

310 xe Carry clear (POLL only). 

311 a HEX riode. 

312 wx XMN=0. 

313 ak D1 @ the line nunber token(tLINE# or tLITRL) 

314 xx $3 = 1, aif there are more than one line nunbers followed. 

315 Ka 

316 **k Normal exit conditions fron handler if not handled (ST, RAN, 

317 ** registers, etc.): 

318 nM Carry clear. 

319 KK HEX rode. 

320 ae XM=1. 

321 a 

322 k* Error exit conditions from handler (POLL only): 

323 aS Carry set. 

324 ak HEX node. 

325 ax Will exit to NEMERR(Insufficient Menory). 

326 we 

327 ** Available subroutine levels: 5 

328 x 

329 ** What registers/RAN nay be used 1f handled?: 


330 a R-D, DO, P 
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331 a 
332 *k What registers/RAM nay be used 1f not handled?: 
333 a A-D, DO, P 
334 ak 
335 xt What registers/RAN nay be used if error exit (POLL only)?: 
336 ak R-D, DO, P 
337 kk 
338 *k History: 
339 ate 
340 ae Date Prograrner Modification 
341 Oe Seckcdece caxGeectewe, ete ecto sees ee cca gene eas 
42 kk 04/20/83 = SC Docunent 
343 ar 
344 JIS OCIS CITI II TITIES EE TOAST AR 
445 JOO OO OI TOTTI SST TTI 


346 X 
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34? 
8 
349 
380 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
374 
372 
373 
374 
375 
376 
37? 
378 
379 
380 
331 
382 
383 
384 
385 
386 
38? 
388 
389 
390 


391 
392 
393 
394 
395 
396 
397 
398 
329 
400 


1A72C 1FOO 
000 
1A733 143 
1A736 De 
1A738 3100 
1A73C CA 
1A73E 131 
1A744 143 
1A744 8A8 
{A747 00 
1A749 AFe 
1A?4C 1509 


ak 
xk 
xk 
ak 
xx 
xk 
ak 
xk 
aK 
ax 
ak 
ak 
xk 
xk 
xx 
ax 
xk 
ax 
ak 
xx 
xx 
xk 
xx 
ak 
ak 
ax 
ax 
a 
aK 
xk 
ak 
aK 
a 
xx 
an 


ak 
ak 
a 
xr 
x 
x 


=C 
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KI IIIS III IIIT III III IIIT I IDI IOI I III II IIIS IOI ITSO SIT III ISIS IA 


FOI UIT OC ICO OI IIT ATI TIIT TAK 
CLLINK - 


Narie: Clear Links, Conpile Line Nunbers 


Category:  FILUTL 
Purpose: 
Clear Sub links, Label Links, 
Conpiled offsets of all line# in the current file 


Entry: 
p 7 


Exit: 
Through RENSUB 


Calls: None 


Exclusive: A,B,C,D,00,01,R2, $1 
Stk lvls: 1 


NOTE: (rerove any iten below this point if not needed) 
If Sublink = 0 
Nothing is done 


else 


Both Sub-progran and Label links are zeroed 
All line# offsets are zeroed 
Detail: Must precede RENSUB 
History: 
Date Prograrner Modification 
06/%/82 JP Modified docunentation 
FOU OO TTT IK 
JOTI III TCT TTT TAK 
LLINK D1=(5) =CURRST 
A=DRT1 A 
C=0 A 
LC(2) =o0SUBLn LOAD OFFSET FROM CURRST TO SUBLNK 
R=A+C A 
Di=A 
A=DAT1 A 
*A=0) OR 
RTNYES 
C=0 W 
DATI=C 10 
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401 
402 
403 
404 


405 
406 
407 
408 


409 
410 
411 


412 
413 
414 
415 
416 
417 
418 
419 
420 
421 


422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 


1R750 


1A753 
1A755 


1A75C 


1A75F 
19761 


18768 
1R76B 
1A76F 


1A775 
1A?779 
1A?77D 
1A780 
18783 
1A786 
1A789 
TA78C 
1A78F 
1A792 


1A798 
1A79A 
1A79D 
1A79F 
1A7R2 
1A7R4 
1A?7R7 
1A7A9 
1A7AC 
1A7RE 
1R7B1 
1A7B3 
1A7B6 
1A7B8 
1A7BB 
1A7BD 
1A7CO 
1A7C2 
1A7CS 
1A7C?7 


1A7CR 
1R7CD 
1R7D1 
1A7D4 
1A7D6 
1R7D8 
1A70B 


18700 


841 ST=0 

04 =RENSUB SETHEX 

1800 DO=(5) =CURREN 

000 

146 : C=DATO A 

CE C=C-1 A 

8FO0 GOSBVL =ISRAN? 

000 

4CO GOC RNS150 

3100 LC(2) =eFACCS 

8C0O =MFerrj GOLONG =NMFERR) 

00 

7412 RNS150 GOSUB  LINE#1 

6£91 GOTO  RNS630 

137 =RNS160 CDIEX 

10A R2=C 

135 D1=C 

171 D1=D1+ 2 

843 RNS170 ST=0) 3 

14B A=DAT1 B 

171 D1=D1+ 2 

8E00 GOSUBL =FINDA) 

00 

0 CON(2) =tGOSUB 

021 REL(3) RNS600 

00 CON(2) =tGOTO 

821 REL(3) RNS60O 

00 CON(2) =tRESTR 

321 REL(3) RNS600 

00 CON(2) =tON 

120 REL(3) RNS300 

00 CON(2) =tPRINT 

350 REL(3) RNS400 

00 CON(2) =tDISP 

£40 REL(3) RNS400 

00 CON(2) =tIF 

F60 REL(3) RNS500 

00 CON(2) =tELSE 

170 REL(3) RNSS10 

00 CON(2) =tXWORD 

F270 REL(3) RNS520 

00 CON(2) 0 

5B5 ; GONC = RNS410 

14B =RNS300 R=DATI B 

3100 LC(2) =tERROR 

962 *A=C OB 

31 GOYES RNS320 

£6 C=C+1 A 

962 *A=C OB 

61 GOYES RNS350 
* ON <exp> GOTO/GOSUB/RESTORE 

853 ST=1 3 
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o 


= CURREN 

CHECK IF CURRENT FILE IS IN RAN 
OR IRAN ? 

IF NOT, SAY "ILLEGAL ACCESS” 


GET 1ST LINE # ADDRESS 


R2 = PTS AT CURRENT STMT LEN BYTE 
PAST STMT LENGTH BYTE 
CLEAR ON <EXP> FLAG 


READ BEGIN TOKEN 
PASS BEGIN BASIC TOKEN 


GOSUB 

GOTO © 
RESTORE 

ON 

PRINT 

DISP 

IF 

ELSE 

XWORD 

(B.E.T.) 


ON ERROR 


ON TINER 
<LINE#/LABEL>[, LINE#/LABEL)[,..] 
MUST BE ON <exp> 
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452 1A7EO 78C1 RNS310 GOSUB EXPSKP SKIP OVER EXPRESSION 

453 1A7E4 450 GOC RNS330 (B.E.T.) 

454 * ON ERROR GOTO/GOSUB <LINE#/LABEL> 

455 1A7E7 171 RNS320 D1=Di+ 2 Step over tokens 

456 1A7ER 171 RNS330 Di=D1+ 2 

457 1A7ED 6900 RNS340 GOTO  RNS600 

458 : ON TIMER [#<exp>,] <exp> GOTO/GOSUB 

459 

460 1A7F1 171  RNS350 D1=D1+ 2 Step over tTINER 

461 1A7F4 7461 GOSUB EXPSKP 

462 1A7F8 174 D1=D1+ 2 Step over tCONNA 

463 1A7FB 54E GONC =RNS310 (B.E.T.) 

464 x 

465 * QUTPUT/ENTER [USING] 

466 k 

467 1A7FE 173 RNS390 D1=D1+ 4 

468 a 

469 * PRINT/DISP USING LINE#/LABEL 

470 1A801 14B RNS400 A=DATI B 

471 18804 3100 LC(2) =tUSING 

472 1A808 966 7AHC OB 

473 1A80B 81 GOYES RNS410 

474 x 

475 : See if USING followed by a line nuriber token (tLINE#) 

476 

477 1A8OD 171 B1=D1+ 2 

478 19810 14B R=DAT1 B 

479 1A813 171 Di=D1+ 2 

480 1A816 3100 LC(2) =tLINE# 

481 1A81A 966 PARC OB 

482 1A81D 60 GOYES RNS410 

483 . 

484 1A81F 6411 GOTO RNS650 

485 x 

486 1A823 6460 RNS410 GOTO RNS540 (B.E.T.) 

48? . 

488 x IF <exp> THEN LINEH/LABEL/EXT IF 

489 ‘ 

490 1A827 7181 RNSSOO GOSUB EXPSKP 

491 1A82B 171 Di=D1+ 2 Step over tTHEN 

492 1A82E 14B = RNSS10 A=DATI B 

493 1A831 3100 LC(2) = tEXTIF 

494 1A835 366 RHC OB 

495 1A838 5B GOYES RNS340 

496 1A83A 171 DI=D1+ 2 PASS tEXTIF 

497 1A83D 6F 3F GOTO =RNS160 01 at Stnt Length Byte 

498 : 

499 * XWORD STATEMENT 

500 a 

501 18841 DO RNS520 A=0 A 

502 1843 15B3 A=DAT1 4 READ LEX FILE ID AND FCN # 

503 1A847 173 Di=Di+t 4 SKIP OVER XWORD TOKENS 

504 1A84A 3110 LC(2) 01 

505 1A84E 962 7A=C OB IS THIS A MAINFRAME XWORD ? 

506 18851 73 GOYES RNS540 IF SQ, NO LINE # 
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507 1853 3400 LC(5) =tINTR ON INTR ? (#15FF) 
000 
508 1A85A 8A2 A=C OA 
509 1A85D D8 GOYES RNS330 IF SO, GOTO RNS330 
510 IA85F A2E C=C-1 XS 
511 1A862 8A2 *R=C OAR ENTER ? (#14FF) 
512 1A865 72 GOYES RNS550 
513 1867 AZE C=C-1 XS 
514 1A86A 8AZ *A=C OA OUTPUT ? (#13FF) 
515 1A86D F1 GOYES RNSS5O 
516 1A86F 861 ?$T=0 1 JUST FOR ZEROING OFFSET ? 
517 18872 61 GOYES RNS540 
518 18874 8E00 GOSUBL =P011)j 
00 
519 1A87A 00 CON(2) =pREN 
520 1A87C 560 GONC = RNS530 
521 1A87F 6000 GOTO =CHARER GOTO MENERR 
522 % 
523 1883 831 RNS5S30 ?XN=0 
524 1886 14 GOYES RNS600 Handled without error? 
525 1888 6470 _RNSS40 GOTO RNS620 
526 
527 * ENTER & OUTPUT have device specifier followed. 
528 * Here is try to skip over the device specifier. 
529 : Following tokens could follow the ENTER or OUTPUT 
5H” 
531 x 4) <string expression> <t@> 
532 * 2) or <tCOLON> <nun expr> [ <tCOMMA> <nun expr> J <t@ 
533 * 3) or <tCOLON> <tLITRL> <device word> [ [<tCOLON> <nun expr>] 
53 & <tCOMMA> <nun expr> ] ) <t@ 
535 * 4) or <tCOLON> <t%> <mum expr> [{ [<tCOLON> <nun expr> ] 
536 x <tCONMA> <nun expr> ] ) <t@ 
537 * 5) or <tCOLON> <tLITRL> <assign word> <t@> 
538 * 6) or <tCOLON> <tLITRL> <device ID> { [<tCOLON> <nun expr>) 
539 x <tCOMMA> <nun expr> } ] <t@> 
540 & 
541 x 
542 1A88C 148 RNSS5O A=DAT1 B 
543 1A88F 3100 LC(2) =tCOLON 
544 1A893 966 7AHC OB 
545 18896 D1 GOYES RNS570 If not COLON, is string expr. 
546 1A898 171 Di=Di+ 2 ; 
547 1A89B 148 A=DAT1 B 
548 1A89E 3100 LC(2)  =tLITRL 
549 1A8A2 962 7A=C OB 
550 1A8A5 BO GOYES RNS560 
551 1A8A7 3100 LC(2)  =t% 
552 1A8AB 966 RHC OB 
553 1A8AE 50 GOYES RNS570 
554 ‘ 
555 1A8B0 171 RNS5S6O D1=D1+ 2 
556 : 
557 1A8B3 75FO RNSS70 GOSUB EXPSKP 
558 . 


559 1A8B?7 3100 LC(2) =t@ 
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560 1A8BB 966 ARC OB 
561 1A8BE 2F GOYES RNS560 
562 1A8CO 171 Di=D1+ 2 Skip over t@ 
563 ‘ 
564 1A8C3 603F GOTO RNS400 
565 x 
566 & 
567 : GOTO/GOSUB/RESTORE <LINE#/LABEL> 
568 
569 * 1). NOW D1 POINTS PAST GOTO/GOSUB/RESTORE TOKEN. 
570 x R2 POINTS TO THE LINE LENGTH OF CURRENT STATEMENT. 
571 * 2). IF Di POINTS AT A tLINE# TOKEN, THEN 5 NIBS OF LINK FIELD 
572 x AND 4 NIBS OF LINE NUMBER WILL FOLLOW. 
573 * IF D1 POINTS AT A tLBLRF TOKEN, THEN IT MAY BE FOLLOWED BY 
574 * THE tLITRL TOKEN OR STRING EXPRESSION 
575 * 
576 1A8C7 14B RNS6OO A=DATI B 
577 1A8CA 171 Di=Di+ 2 
578 1A8CD 3100 LC(2) =tLINE# 
579 1A8D1 362 *A=C OB 
580 1A8D4 06 GOYES RNS650 
581 1A8D6 3100 LC(2) =tLITRLe 
582 1A8DA 148 A=DAT1 B 
583 1A8DD 966 RHC OB STRING EXPRESSION FOLLOWS? 
584 1A8EO 50 GOYES RNS610 
585 1A8E2 171 D1=D1+ 2 PASS tLITRL TOKEN 
586 1A8E5 7300 RNS610 GOSUB EXPSKP 
587 1A8E9 863 RNS615 7ST=0 3 "ON" FLAG SET ? 
588 1A8EC 11 GOYES RNS620 IF NOT, GOTO NEXT STATEMENT 
589 1A8EE 148 A=DAT1 B 
59% 1A8F1 171 D1I=D1+ 2 
591 1A8F4 3100 LC(2) =tCOMNMA 
592 1A8F8 962 *A=C OB 
593 1A8FB CC GOYES RNS600 
594 . 
595 * MOVE D1 TO END OF CURRENT STATEMENT AND CONTINUE 
596 . 
597 1A8FD 112 RNS620 A=R2 
598 1A900 131 D1=A 
599 1A903 D2 C=0 A 
600 1R905 14F C=DAT1 B 
601 1A908 CA A=A+C A 
602 1A9OR 131 D1=A 
603 1AS0D 148 A=DAT1 B 
604 19910 171 D1=D1+ 2 
605 18913 900 PRHO OP AT EOL ? 
606 18916 Al GOYES RNS635 IF NOT, GOTO RNS640 
607 18918 173 RNS630 DI=D1+ 4 D1 POINTS AT LINE LENGTH 
608 1A91B 1B00 DO=(5) =CURREN 
000 
609 1A922 142 A=DATO A CURREN 
610 1A925 137 CDIEX 
611 18928 136 D1=C 
612 1A92B 8BR *C>=A A PAST END OF FILE ? 


613 1AICE 00 RTNYES IF SO, WE ARE DONE 
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614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
62? 
628 
629 
6H 
631 
632 
633 
634 
635 


636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 


651 
6$2 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 


1A9H% 6C4E RNS635 GOTO 
* 


1R934 
1R936 
183939 
18938 
1A93E 
1A941 
1944 
1A947 
1A94A 
1R94D 
1R950 


1A952 
1A955 
1A957 
18958 
1A95D 
1A961 


1968 
1R96B 
1A96E 
1R971 


1974 
1R977 
1A979 
1A97C 
1A980 
1A983 
1A98? 
1A98A 


1A98D 


1R994 
1R997 
1R999 
1A9SC 
{ASSF 
1R9AI 
1ASAS 
1ASA? 
VRSAR 


D2 

871 
BO 

145 
178 
57A 
137 
135 
134 
862 
42 


174 
D2 
15F3 
DS 
7020 
8F0O 
000 
500 
136 
135 
4(c 


143 
CR 
1% 
15A3 
174 
1593 
135 
538 


1FOO 
000 
147 
07 
1CE 
143 
D2 
3100 
CA 
131 
01 
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* FOUND A LINE NUMBER !! LET’S GET TO WORK 
i 


RNS650 


RNS655 
RNS 660 


C=0 A 
*ST=1 1 
GOYES RNS660 
DAT1=C A 
D1=D1+ 9 

GONC =RNS615 
CD1EX 

01=C 

do=C 

STO 2 
GOYES RNS680 


* COMPILE LINE # 


Di=D1+ 5 

C=0 A 
C=DAT1 4 

B=C R 

GOSUB LINE#1 
GOSBVL =PFNDL* 


RTNNC 
CDOEX 
b1=C 


GOC = RNS655 


* Renuriber line references 


x 


x 


RNS680 


LINE#1 


A=DAT1 A 
A=A4C OA 
DO=A 

A=DATO 4 
01=01+ 5 
DAT1=A 4 
01=C 
GONC RNS655 
D1=(5) =CURREN 


C=DAT1 A 
D=C A 
Di=D1- 1 
A=DAT1 A 
C=0 R 
LC(2) = 
A=A+C OR 
DI=A 
RTN 


DO WE WANT TO COMPILE ? 

No, Clear offset 

Step over line# & 5 nib field 
(B.E.T.) 

Ptr to linet 


Renunber references? 


Point past 5 nib field 

Read in line# 

B(A) = LINE # 

GET 1ST LINEH ADDRESS 

Find line# & urate out offset 


NOT FOUND 


(8.E.T.) 


READ THE OFFSET 
POINTS TO LINE # 


Read in line# 
Step over offset 
Write out new linet 


(B.E.T.) 


D1 POINTS AT 1ST LINE # 


FOI TOIT TOI OO I 
Poe Pe SS SSeS StS SSeS ESS SSS SSS 595 $50 S95.53 5556555985 55595 555555 5 8 3 


* 


x 


** Nane:(S) EXPSKP - Skip Over Tokenized Expression 
kk 


** Category: 


FILUTL 


Saturn Assenbler 
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667 &X 
668 *k Purpose: Skip over tokenized expression 
669 xk 
670 ** Entry: D1 = Start of expression 
671 ki 
672 Ke Exit: A = NEXT TOKEN after expression 
673 &k D1= Points to next token after expression 
674 aR Carry set 
675 aK 
676 ** Calls : FINDA 
677 Kx 
678 *k Uses: ACR) ,C(5:0), D1, $10 
679 kn 
680 *k Stk lvls : 1 
681 FOI IOI III AIT IAS SISOS ISIS ISI SI IIIS SSIS SSSI SSIS ISI SSSI SSI IS 
682 JOS III OIC I TTT TT TTT 
683 x 
684 1ASAC 84A =EXPSKP ST=0 8610 CLEAR SKIP PARM COUNT FLAG 
685 1AGAF DO EXPS10 A=0 A 
686 1A9B1 14B A=DAT1 B READ NEXT TOKEN 
687 1A9B4 3100 LC(2) =a" 
688 1A9B8 SEE 7A>=C B NUMBER TOKEN ? 
689 1R9BB B2 GOYES EXPS20 IF NOT, GOTO EXPS20 
690 1A9BD 171 D1=D1+ 2 
691 18900 3 iC(1) 3 C(O) = 3 
692 1A9C3 AO2 C=RA+C P 
693 1A9C6 B8A {=-C P 
694 1A9C9 80FO CPEX 0 
695 1A9CD 137 CD1EX 
696 1A9D0 809 C+P+1 
637 1A9D3 137 CO1EX Step over nunber 
698 1A9D6 20 P= 0 
699 1A9D8 BE4 ASR B 
700 1ASDB %8 7A=0)— OP INTEGER CONSTANT ? 
701 1ASDE 1D GOYES EXPS10 IF SO, NEXT TOKEN 
702 1A9EO 172 01=D1+ 3 SKIP OVER EXP FIELD 
703 1A9E3 5BC GONC EXPS10 
704 1A9E6 31D2 EXPS20 LCHEX 2D 
705 1AGER SEE *Ar=C B Not operator or nunber token? 
706 TA9ED 13 GOYES EXPS30 
70? VASEF 174 D1=D1+ 2 
708 1RGF2 3100 tC(2) =a" C(B) = HEX 22 
709 1A9F6 962 *A=C iB 
710 1R9F9 BO GOYES EXPS25 
711 TA9FB 3100 LC(2) =a’ C(B) = HEX 27 
712 1ASFF 966 7AHC OB 
713 TARO2 DA GOYES EXPS10 
714 * FOUND AN SINGLE QUOTE OR DOUBLE QUOTE MARK 
715 * LOOK FOR A PAIR 
716 1RAO4 14F = EXPS25 C=DRT1 B 
717 1ARO7 174 D1=D1+ 2 
718 1AAROR 966 AHC OB 
719 1AROD 7F GOYES EXPS25 
720 1RROF 5F9 GONC =EXPS10 (B.E.T.) 
721 1AA12 173° = EXPS?70 D1=D1+ 4 


Saturn Assenbler 


722 
723 
724 
725 
726 
72? 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 


747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
768 
753 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
74 
772 
773 
774 
778 
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ARIS 170 EXPJOS D1=D1+ 1 
x 


1AR18 
1AA1B 


171 
539 


TARIE 
TAARZ2 SEA 
TAAZS 3F 
TAR2? 3100 
1ARZB SE6 
TAARZE EO 
1AAR30 86A 
1AA33 SE 
1AAR35 172 
1RA38 637F 
TAA3C 3100 
1AR40 9E2 
1RA43 5D 
1RA45 3100 
1RA49 962 
TAAAC 9C 
TARAE 3100 
TRAS2 9E6 
TAASS 00 
TARS? 8E00 
00 
TARSD 00 
TRASF E20 
TAR62 00 
1RAG4 ERF 
1AAG? OO 
1AR69 E10 
1AREC OO 
TAREE 910 
1AR71 00 
1AA73 410 
1AAR76 00 
1AA78 900 


1AA7B 00 


EXPJ10 


Di=D1+ 2 
GONC EXPS10 


4:41 an 
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(B.E.T.) 


* Not operator or number token 


x 


EXPS40 


1AA7D GRAOF = EXPSSO 
k 


1AR81 170 
1AR84 SBF 


1RA8? 85A 
TAR8A S2F 


1AABD 175 


x 


EXPS55 


3104 EXPS30 LCHEX 40 


7Ax<=C OB 
GOYES EXPJ10 
tC(2)  =t2 
7ArC iB 
GOYES EXPS40 
7$T=0 10 
GOYES €XPJ10 
D1=D1+ 3 

GOTO EXPSKP 
LC(2) 
PAC 
GOYES EXPJ10 
LC(2) =tRELOP 
7A=C OB 

GOYES EXPJOS 
LC(2) =LASTFN 
7ADC 3 =6iB 
RTNYES 

GOSUBL =FINDA} 


CON(2) =LASTFN 
REL(3) EXPS80 
CON(2) =tXFN 
REL(3) EXPS70 
CON(2) =tFN 
REL(3) EXPS60 
CON(2) =tARRAY 
REL(3) EXPS60 
CON(2) =tDMYAR 
REL(3) EXPS60 
CON(2) =tISUBS 
REL(3) EXPS55 


CON(2) 0 
GOTO EXPJ10 


D1=D1+ 4 
GONC =  EXPS50O 


(=tADIG9) +1 
B 


single or nulti-digit integer? 


C(B) = 5A 

Not a 1-byte var nane? 

Yes => GOTO EXPS40 

NO NEED TO JUMP OVER PARAN COUNT ? 
Step over 1-byte var nane 
Step over i-byte var nane & parn ct 


Not a FUNCTION ? 
Must be 2-byte var nane 


Relops followed by 1 nib parn ct. 


COMMAND ? 
IF SO, WE ARE DONE 


(B.E.T.) 


* FOR ARRAYS, DUMMY ARRAYS, & FUNCTIONS, THERE IS A SUBSCRIPT 
* COUNT AFTER THE NAME. SO WE SET A FLAG HERE, NEXT TIME WHEN 
* SEE A VARIABLE NANE WE WILL HAVE TO JUMP OVER ONE MORE NIBBLE. 


x 


* tFFN - FUNNY FUNCTION 
® tFFN dd dd len 
k 


EXPS60 


EXPS80 


ST=1 10 
GONC EXPS5O 


D1=D1+ 6 


(B.E.7.) 
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776 1AAIO DO A=0 A 
777 1RAS2 148 A=DAT1 B 
778 1AAIS5 137 CD1EX 
779 1AA98 C2 C=C+A A 
780 1ARSA 135 p1=C 
781 1AASD 611F GOTO EXPS10 
782 x 


783 1AAA1 END 
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CHARER 
CHKPSF 
=CLLINK 
CPLH10 
CURREN 
CURRST 
EXPJOS 
EXPJ10 
EXPS10 
EXPS20 
EXPS25 
EXPS30 
EXPS40 
EXPS50 
EXPS55 
EXPS60 
EXPS70 
EXPS80 
=EXPSKP 
FINDA; 
FINDL 
GETLN# 
ISRAN? 
InvArg 
LASTFN 
=LINE#1 
MFERR j 
*HFerr) 
NXtstn 
PCADDR 
PFNDL* 
PO11)) 
PRSCOP 
RENOOS 
RENO10 
RENO 20 
REN100 
REN1O5 
REN110 
REN120 
REN1 30 
REN140 
REN160 
REN1 70 
=REN180 
RENMP 
=RENSUB 
=RENUN 
RNS150 
RNS160 
RNS1 70 
RNS300 
RNS310 
RNS320 
RNS330 


Ext 
Ext 
Rbs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Ext 
Rbs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


108332 #1A72C 


109077 #1AA15 
109080 #1AA18 
108975 #1ASRF 
1090% #1ASE6 
109060 #1RAO4 
109086 #1ARIE 
109116 #1AR3C 
109181 #1AR7D 
109185 #1AR81 
109191 #1AR87 
109074 #1AR12 
109197 #1AR8D 
108972 #1ASAC 


108306 #1A712 


108941 #1A98D 
108399 #1A76F 


107930 #1A59A 
107969 #1A5C1 
108057 #1619 
108110 #1A64E 
108158 #1A67E 
108185 #19699 
108196 #1R6R4 
108229 #1R6C5 
108247 #1R6D7 
108265 #1RGE9 
108290 #1R702 
108300 #1A70C 


108371 #1A753 
107910 #1A586 
108405 #1A775 
108413 #1A77D 
108425 #1A789 
108490 #1A7CR 
108512 #1R7E0 
108519 #1A7E7 
108522 #1IA7ER 


Table 


521 

55 
39 
142 
150 
39 
722 
724 
685 
704 
716 
727 
737 
761 
763 
769 
721 
775 
684 
421 
109 
214 
408 
148 
743 
650 
411 
411 
211 

67 
635 
518 

59 

63 

82 
113 
135 
150 
158 
170 
182 
189 
196 
208 
211 

46 
403 

47 
412 
414 
418 
443 
452 
455 
456 


404 


742 
729 
701 
6389 
710 
206 
732 
764 
758 
752 
750 
748 
482 
746 
128 

98 


747 


66 
1114 
99 
139 
188 
203 


181 


172 
112 


65 


409 
497 


429 
463 
446 
453 
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608 
734 
703 
719 


7270 
754 


461 


101 


135 


102 
14? 


178 


210 


614 


509 


650 


739 
713 


756 


4® 


104 


412 


105 


Fri Dec ®, 1383 


761 
720 


557 


116 


634 


117 


728 


586 


123 


781 


736 


132 
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RNS340 
RNS350 
RNS390 
RNS400 
RNS410 
RNS5SOO 
RNS510 
RNS520 
RNS530 
RNS540 
RNS550 
RNS560 
RNS5 70 
RNS600 
RNS610 
RNS615 
RNS620 
RNS630 
RNS635 
RNS650 
RNS655 
RNS660 
RNS680 
RNUNDC 
STMTNF 
UPDCRL 
a’ 

a’ 
eFACCS 
oF LSTr 
oSUBLn 
pREN 
t% 

t@ 
tADIGS 
tARRAY 
tCOLON 
tCONMA 
tDISP 
tDAMYAR 
tELSE 
tERROR 
tEXTIF 
tFN 
tGOSUB 
tGOTO 
tIF 
tINTR 
tISUBS$ 
tLINE# 
tLITRL 
tON 
tPRINT 
tRELOP 
tRESTR 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


108525 #1A7ED 
108529 #1A7F1 
108542 #1A7FE 
108545 #1A801 
108579 #1A823 
108583 #1A827 
108590 #1A82E 
108609 #19841 
108675 #1A883 
108680 #1A8388 
108684 #1A88C 
108720 #1A8BO 
108723 #1A8B3 
108743 #1A8C7 
108773 #1A8ES 
108777 #1R8E9 
108797 #1A8FD 
108824 #1A918 
108848 #1A930 
108852 #19934 
108862 #1AS3E 
108868 #1A944 
108916 #1A974 


Table 


t # @ 3 


457 
460 
467 
470 
486 
490 
492 
501 
523 
525 
542 
555 
557 
576 
586 
587 
597 
60? 
614 
618 
622 
624 
641 

45 

71 

70 
687 
711 
410 
656 
393 
519 
551 
559 
737 
753 
543 
216 
432 
755 
436 
444 
493 
751 
422 
424 
434 
507 
757 
480 
548 
428 
430 
740 
426 


495 
449 


431 
441 
435 
437 
439 
520 
486 
512 
550 
545 
423 
584 
623 
525 
413 
606 
484 
639 
620 
628 


208 


591 


578 
581 
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433 
473 


506 
515 
561 
553 
425 


588 


5380 
648 


564 
482 


517 


427 
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457 


524 


593 
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tUSING Ext - 474 
tXFN Ext - 749 
tXWORD Ext - 438 


tZ Ext - 7% 
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Input Paraneters 
Source file nane is SC&REN: MNS 
Listing file name is SC/REN: TI:ML::-1 
Object file nane is SCZREN: TI:MS::-1 


141111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler Neus 
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TITLE Key Routines <831212.1207> 
TARAI ABS #1RRAI 
x SS$ GG 8’ K K EEEEE Y ¥ 
fe S$ G6 G&& KK €E Y: 2Y 
- 5 G & & K K E vy 
* SSS GGG & KK EEEE Y 
* SG G &&& KK €E Y 
x S $8 6 G& & KK CE Y 
x SSS GG 8K B CKCOWK: CCE Y 


RDSYMNB TIXEQU: : NS 


FORO III III III TOOT K 
FOI ROJO IOI TOTTI OO OTTO TT TO 
xx 


** Nane: FICHKY - Fetch Key 

ka 

kk Category:  STEXEC 

kk 

** Purpose: FETCHES KEY DEFINITION 
ke 


&k Entry: 2 ENTRY POINTS: 


ee ae ey ee ty ree ee =~ eS eR See 
ow SH U1 wn WWD ABPWPH— WONDOTHwWM | OWOnN HI AwWA 


kx 1) FTCHKY - Entry point for FETCH KEY statenent 
am DO MUST POINT PAST tKEY 
ak $7=0 
a 2) FTIKYOO - Entry point for LIST of KEY files 
ax S? Must be set & A(B)= Keycode 
ay D1 at start of key assignment entry 
aK 
AR EMITS *DEF KEY <string>,<string>’ Output to INBS 
aes RO Points to end of key assignnent entry 
tk 
<M S7=1 on entry=> Carry set 
xx =0 on entry=> exit via DSPLIN 
Pe 
*k Calls:  GTKYCD, OUTNBS, OUTBYT, KEYFND, LSTLEN, 
a KH2ASC, OUTC15, D=AVNE, LDCSET, KYTYP1 
kk 
ak Uses: A-D, 01,00, RO-R3, SO 
39 aa 
40 ** Stack lvls: 6 (LSTLEN uses 5) 
44 ke 
42 ** Detail: If enter at FIKYOO with S7 set, won’t use R1-R3 
43 oe 
44 ** History: 
45 “ 
46 xx Date Progranner Modifications 
4? OR: Ggcettie: “eboeeebeht.  cecaucteweaaue 
48 kk 8607/06/82 SLU. Inproved documentation 
49 ae * 
50 PECTECtS CesT CCUISCUSTCCCSteeetetecsctttssertecetetsettetesttst: 
5] FORO OOOO oR TOO OI ROO IO OR Or 
82 * 
53 ’ 


54 1AAR1 8FOO =FICHKY GOSBVL =GTKYCD 
000 
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55 1AARA8 D4 A=B A 
56 1AAAR 101 R1=A SAVE KEY # 
57 * On FETCH KEY ... , know $7 is already clear (RUN loop) 
58 1AAAD 8FOO FTKYOO GOSBVL =LDCSET Set D @ AVNENE, DO @ OUTBS 
000 
59 1ARB4 3F44 LCASC \ YEK FED\ 
5464 
02B4 
5495 
02 
60 1AACE 08 B=A A 
61 1AAC8 8FOO GOSBYVL =OUTC15 
000 
62 1AACF D4 A=8 A 
63 x 
64 1AAD1 79F0 GOSUB K#2ASC 
65 1AADS 31C2 LCASC \,\ 
66 1AADS 7021 GOSUB OUtbyt 
67 1ARDD 877 *ST=1 7 CALLED BY LIST? 
68 1AREO D2 GOYES FTKY20 
63 x 
70 1ARE2 132 ADOEX 
71 1RRES 121 AR1EX SAVE DO; RESTORE KEY CODE 
72 1ARE8 D8 B=A A 
73 1RREA 8E00 GOSUBL =keyfnd SEE IF THERE’S AN ASSIGNMENT 
00 
74 1AAFO 111 R=R1 
75 1ARAF3 137 CDIEX 
76 1ARF6 1FOO D1=(5) =LOCSPC 
000 
77 TRAFD 141 DAT1=A A Save cursor position 
78 1ABOO 135 D1=C 
79 1ABO3 130 DO=A RESTORE DO 
80 1RBO6 7000 GOSUB =D=AVNE Restore D(A); doesn’t affect carry 
81 1ABOR 5C6 GONC FTKY-1 CARRY CLR=> NO ASSIGNMENT 
82 * KNOW S8 IS CLEAR AT THIS POINT 
83 * Di POINTS AT KEY ASSIGNMENT 
84 1ABOD 133. FIKY20 ADIEX 
85 1AB10 131 Di=A 
86 1AB13 100 RO=A PTR TO START OF ASSIGNMENT ENTRY 
87 1AB16 171 D1=D1+ 2 
88 1AB19 D2 C=0 A 
89 1AB1B 14F C=DAT1 B ENTRY LENGTH 
90 1AB1E CA A=A+C A 
91 1AB20 D8 B=A A PTR TO END OF KEY ASSIGNMENT ENTRY 
92 * CHECK FOR SINGLE QUOTE IN ASSIGNNENT 
93 1AB22 840 ST=0 60 
94 1AB25 3172 LCASC \’\ 
95 1AB29 170 D1i=D1+ 1 
96 - 
97 1AB2C 171 FTKY30 D1=D1+ 2 
98 1AB2F 133 ADIEX 
99 1AB32 8B8 ?A>=B A DONE SEARCHING? 
100 1AB35 31 GOYES FTKY50 


101 1AB3? 131 Di=A 
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102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 
129 
130 
131 
132 
133 
134 
¥35 
136 
137 


138 
139 
140 
141 
142 
143 
144 
145 
146 
14? 


148 
149 


150 
161 
182 


1AB3A 
1AB3D 
1AB40 


1AB42 
1AB45 


1AB48 
1AB4C 
1AB4E 
1AB51 
1ABS4 
1ABS? 
1ABSA 
1ABSE 
1AB61 
1AB64 
1AB68 
1 AB6B 
1AB6E 
1AB71 
1RAB?4 


1AB77 
1AB7A 
1AB7D 


1RB80 
1AB83 
1AB86 
1AB8A 
TAB8C 
1RB90 
1AB93 


1AB96 


1ABSD 
1ABA1 
1ABR3 
1ABAG 
{RBAA 


1 RBRE 
1ABBe 
1ABBS 


1ABBB 
TABC2 


1ABCS 
TABC? 


14B 
366 
CE 


850 
He 
* 
7180) ~FTKYS0 
04 
120 
131 
171 
14B 
3150 
BoE 
171 
1574 
AC? 
170 
816 
816 
5B0 
x 
181 FTKY-1 
AC? 
573 
x 
ASE FTKY6O 
491 
1537 
2F 
7600 
17F 
5CE 
x 
8D00 =o outnbs 
000 
x 
80DE FIKY?70 
oD 
4R0 
1531 
73EF 
x 


7030 ~-FTKY80 
ACB 

8E0O =FTKY81 
00 

x 

8FOO 

000 

877 

00 

8000 

000 


A=DAT1 
PREC 
GOYES 


ST=1 
LCHEX 


GOSUB 
A=B 
AROEX 
D1=A 
D1=D1+ 
A=DAT1 
LC(2) 
C=A-C 
D1=Di+ 
C=DAT1 
D=C 
D1=D1+ 
CSRC 
CSRC 
GONC 


DO=D0- 
C=0 
GONC 


C=C-1 
GOC 
R=DAT1 
p= 
GOSUB 
D1=D1+ 
GONC 


GOV LNG 


P=C 
P=P-1 
GOC 
A=DAT1 
GOSUB 


GOSUB 
C=D 
GOSUBL 


GOSBYL 
?S$T=1 


RTNYES 
GOV LNG 
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B 
B 
FTKY30 


0 
2 


OUtbyt 
A 


- NON DW OW fo 


FTKY60 


2 
S 
FTKY81 


$ 
FTKY70 
W 

15 
outnbs 
16 
FTKY60 


=OUTNBS 


14 
FTKY80 
WP 
outnbs 
KY"CK 

S 
=KYTYP1 
=LSTLN+ 
7 


=DSPLI+ 


Fri Dec 30, 1983 4:59 an 
Page 3 


SET SINGLE QUOTE FOUND FLAG 
DELIMITER BECONES DOUBLE QUOTE 


END OF ASSIGNMENT 
ACA)=BGN OF ASSIGN.; RO=ASSIGN. END 


ENTRY LENGTH 
STRING LENGTH 


STEP OVER LENGTH 
READ IN TERMINATOR ENCODING 


SHIFT #NIBS TO WRITE INTO NIB 14 
SHIFT #16-NIB BLKS INTO SIGN FIELD 
(B.E.T.) 


(B.E.T.) 


(BeELTS) 


Given key definition type, 
KEYTYP returns ascii terminator 


QUTPUT TERMINATOR & CALC. BUF LEN 


LIST? 
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153 
154 
165 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
174 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
493 
200 
201 
202 
203 
204 
205 
206 
207 


IRBCE 136 
1ABD1 06 

1ABD3 7D20 
1ABD? 07 

1ABD9 134 

TABDC 80FF 
1ABEO 7800 
1ABE4 AEA 
1ABE? 800F 
TRBEB 77AF 


TABEF 20 


TABF1 3172. 


1ABF5 860 
1ABF8 50 
TABFA 302 


1ABFD 8D0O 
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x 

x 

SOO RIOOTO OTOT R TTIT 
FOCI RI IO OR TORTI TTI TIT II TTT II MN 
Kk 


** Nane: K#2ASC - Key number to ascii conversion 
ah 


*% Category: LOCAL 

ik 

** Purpose: 

ax 1) converts keycode to ascii equivalent 

ah 2) outputs correct delimiting quote for ascii key nane 


ak Entry: 

ak 2 entry points: 

kk 1) K#2ASC - keycode in A(B), P=0 

aK 2) KY"CK - S0=0 => single quote, else double quote 


aK Exit: 
aR P=0, carry clear 
a via OUTBYT 


&® Calls: KEYNAN, OUTNBS, KY"CK 
kk 


- Uses: A, B, C, RO, SO, S1, $2, DO 


AK Stk lvls: 4 
ak 


tk History: 
ak 


ax Date Prograrner Modification 
PR: Whowecd (Geladivheea: . ~aucngubaeasudet danwesuaeeewaceecss 


kk 07/06/82 = S.W. Added docunentation 

kk 

JOO OI ISIC IOI III TOS IIIA TIT IIR 
JOU OOOO IO I TTI K 
k 


KH2ASC CDOEX 
RSTK=C SAVE DO 
GOSUB KEYNANM 
C=RSTK 
DO=C RESTORE DO 
CPEX 15 SAVE P 
GOSUB KY"CK OUTPUT 1ST DELIMITER 
A=C B 
P=C 15 RESTORE P 
GOSUB outnbs 

k 

KY"CK P= 0 
LCASC \’\ 
*$T=0 0 
GOYES OQUtbyt 

. LECH) WX 


=0Utbyt GOVLNG =OUTBYT 
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208 Re 
209 ae 
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210 EJECT 
211 JU IOI III OI OO TO TTI 
212 JU TIT SII I IOS TI ITI TOSI SI III IAAI IN 
213 ax 
214 . Name: (S) KEYNAM - Return key nane string fron keycode 
215 
216 ** Category:  EXCUTL 
217 aK 
218 ** Purpose: 
219 ae Returns string representing a keycode 
220 wa 
221 &* Entry: 
222 ax A(B)=Keycode to be naned. 
223 a 
224 ae Exit: 
225 aR A(WP)=ASCII for keycode. 
226 ig P=Word thru pointer length of text 
227 ax UseQuo(SO0) set iff double quotes should be used 
228 ak to surround string. 
229 ae 
2H xk Calls: RANGE, HXDASC 
231 a 
232 tk Uses: A,B,C, RO, S0,S1,S2, D0 
233 ax 
234 eX Stk lvls: 2 
235 
236 tk History: 
237 a 
238 * Date Progranner Modification 
239 PR ees ees. ee eeee | ee Sessa aaa ees ae sces 
240 an 11/10/83 B.S. Updated docunentation 
III TOI II OA II IIIT IOI III ISI ISI III IS IT SI IIIS II III IIIT I II IIIS ISIS. 
243 JIS IO IO ISIS IIS I IOS OSI IOI I IT IIIT IS IIIT IIS IIIA I IIS 
244 UseQuo EQU 0 
245 FShift EQU 1 
246 GShift EQU 2 
247 1ACO4 100 =KEYNAN RO=A 
248 1ACO7 D1 B=0 A 
249 1ACO9 AEB B=A B 
250 1ACOC 840 ST=0  UseQuo 
251 1ACOF 841 ST=0 = FShift 
252 1AC12 842 ST=0 =GShift 
253 1AC15 3187 LC(2) 123 
254 1AC19 966 PAHC OB 
255 1AC1C 50 GOYES KEYN20 


256 1AC1E 850 KEYNIO ST=1 UseQuo 
257 1AC21 3400 KEYN20 LC(5) =KEYCOD 


000 
258 1AC28 C9 C=C+B A 
259 1AC2A C9 C=C+B A Calculate table address. 
260 1AC2C 134 DO=C 
261 1AC2F 14A A=DATO B Read table entry 
262 1AC32 3N2 LC(4) \VAV Range of ASCII characters 


D? 
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263 1AC38 7000 GOSUB =RANGE Is it in ASCII range? 
264 1AC3C 5F1 GONC KEYN4O Yes, then prepare to return 
265 1AC3F 3183 KEYN30 LC(2) 56 
266 1AC43 SED °B<=C B Is it unshifted? 
267 1AC46 63 GOYES KEYN60 Yes=> nothing to subtract fron KC 
268 1AC48 851 ST=1 FShift 
269 1AC4B Bol B=B-C 8B Subtract off f shift 
270 1AC4E SED 7B<=C B 
271 1AC51 OD GOYES KEYN20 No, then try to find an ASCII again 
272 1AC53 852 ST=1—-GShift 
273 1AC56 Bel B=B-C 8B Subtract off g shift 
274 1AC59 S7C GONC KEYN20 B.E.T. Try to find an ASCII again 
275 x~ 
276 x 
277 1AC5C 3166 KEYN40 LCASC \fF\ 
278 1AC6O 21 P= 1 
279 1AC62 861 ?ST=0 FShift Is it unshifted? 
280 1AC65 00 RTNYES Yes, then return 
281 1AC67 862 ?8T=0 = GShift Is it a GShift? 
282 1AC6A 50 GOYES KEYN50 
283 1AC6C B66 C=C+1 8B 
284 1AC6F BFO KEYN5O ASL W 
285 1AC72 BFO ASL W 
286 1AC75 REA A=C B 
287 1AC78 23 P= 3 
288 1AC7A 02 RTNSC 
289 a 
2H xe 
291 1AC7C 110 KEYN60 A=RO Recall keycode 
292 1AC?F AFI B=0 W 
293 1AC82 8FOO GOSBVL =HXDASC Convert Hex to Decimal ASCII 
000 
294 1AC89 3132 LCASC \#\ 
295 1AC8D 2F P= 15 
296 1AC8F B95 KEYN?0 BSR WP 
297 1AC92 OD P=P-1 
298 1AC94 B95 BSR WP 
299 1AC9? OD P=P-4 
300 1AC99 929 7B=0 XS 
301 1AC9C 3F GOYES KEYN70 Loop til non-leading-zero found 
302 1ACSE AES B=C B 
303 1ACA1 AF4 A=B W 
304 1ACR4 03 RTNCC 


305 
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WE 
HK? 
H8 
9 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
32? 
328 
329 
3% 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
1 


342 
343 
44 
345 


36 
34? 
348 
349 
350 


351 
362 
353 
354 
355 
356 
35? 


1ACAG 
TACAB 
TACAB 
TACAE 


1ACB4 
{ACB? 
1ACBA 
TACBD 


tACC4 
1ACC? 
1RCCI 
TACCD 
{ACH 


1ACD6 
1ACD9 
{ACOC 
VACDE 
TACEO 
{ACE 
VACES 


00 
136 
10A 
8£00 
00 
137 
135 
109 
8FO0 
000 
402 
D4 
773F 
AI6 
8E00 
00 


BFE 
BF6 
oD 
oD 
SFE 
20 
114A 
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FOO IOI JOJO JOO JOU I IK 
FOOTIE 


am 


xk Nane: 
wk 


(S) KEY$ = 


**k Category: FNEXEC 


ax 


** Purpose: 


xk 
ak 


Evaluates KEY$ 


a* Entry: 


ax 
xk 


KK Exit: 


P = 0 


P = 0 
via ADHEAD 


** Calls: D=AVNS, 


xn 


&* Uses: 
a 


KEY$ function 


function 


POPBUF, KEYNAN, STKCHR 


A-C,D(A), RO-R2, SO-S2, 01,00 


**k Stk lvls: 3 


ax 


** History: 


xk 


a Date 
te 


*k 08/29/83 SLM. 


ak 


Progranner Modification 


-- ee we we ewe ee wee we mee wee mw ewe 


Added docunentation header 


FORT IRJO ORR JOJO TTR TTI TK 
FOI JI IRI TI TIT ITN 


=KEY$ 


KEY$05 


KEY$10 


NIBHEX 00 
CDOEX 

R2=C 

GOSUBL =D=AVAS 


CD1EX 

b1=C 

R1=C 

GOSBVL =POPBUF 


GOC KEY$10 
A=B R 

GOSUB KEYNAN 
C=A WP 
GOSUBL =STKCHR 


CSR W 
CSR W 
P=P-1 

P=P-1 

GONC  KEY$05 
P= 0 

C=R2 


Save DO in R2 


Copy D1 to R1 
Pop key fron buffer 


Skip if buffer enpty 
Copy keycode to A(B) 
Get key nane 


Stack a character 


Shift one character 


Decrenent count 
Loop back until all chars out 
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358 1ACE8 134 dDo=C Restore DO 
359 1ACEB 840 ST=0 60 Don’t return fron ADHEAD 
360 1ACEE 8CO0O0 =RDHD) GOLONG =ADHEAD Add string header 
00 
361 a 


362 * 
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363 EJECT 
364 JU IIS ISI IOI OTIC OI ETI TI TT 
365 JOO IIIS III OO TIT IORI TIS II II SI TAI 
366 ae 
367 ** Nane: LSTKEY - List Key 
368 ak 
369 ** Category:  STEXEC 
370 as 
371 ** Purpose: LISTS A KEY FILE 
372 aK 
373 ** Entry: D1 POINTS TO FILE HEADER 
374 a 
375 kK Exit: Exits via NXTSTM 
376 ak 
377 ak Calls: FICHKY, PRPSND, KYARGS, CK"ON', PARNCK 
378 aR 
379 xk Uses: A-D, RO-R3, D1, DO, $7, $8, $14, S-R1-1 
380 RK 
381 *k Stack lvls: 7 
382 ae 
383 ** History: 
384 ah 
385 a Date Prograrmer Modifications 
386 SR Orescetes. .ceetetucee . eset ecto. 
387 KK 07/06/82 = S.U. Inproved docurientation 
388 Rk 10/14/82 S.W. Interfaced with SENDND 
389 RR 12/17/82 SW Call CK"ON" instead of CKEXCP; 
390 ao Check carry instead of S14 
* 

a JOIST II TOIT IOI IS IOS IO TI IIIS IITA SI 
393 RI IRI ISI I IIT III III IT STS II IIT III IT III IIIS III IIIS DI ASSIS III II SSS: 
394 x 
395 1ACF4 7730 SLSTREY GOSUB KYARGS 
396 
397 1ACF8 DB C=D A Pointer to file end 
398 1ACFA 1B00 DO=(5) =S-R1-1 

000 
399 1ADO1 144 DATO=C A 
400 x 
401 1AD04 857 = LSTK10 ST=1 7 
402 1ADO7 72AD GOSUB FTKYOO 
403 ¥ 
404 1ADOB 8FO0 GOSBVL =PRPSND 

000 
405 1AD12 8FOO GOSBVL =CK"ON" 

000 
406 1AD19 511 GONC  LSTKDN ATIN key down? 
407 1ADIC 135 D1=C 
408 1ADIF DO A=0 A 
409 1AD21 148 A=DAT1 B Want keycode in A(A) 
410 1AD24 70H GOSUB PARNCK 
411 1AD28 58D GONC  LSTK10 (B.E.T.) 
412 * 
413 * 


414 1AD2B 6000 LSTKDN GOTO  =REN180 GOTO NXTSTN 





+8 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 


415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
482 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 1AD2F AFO 


x 

x 

x 
ak 
ak 
xx 
xk 
x 
ak 
xk 
xk 
ak 
ax 
ak 
ax 
a 
ak 
ak 
a 
a 
xk 
ar 
xk 
xx 
ak 
xk 
xk 
ar 
xx 
ak 
ar 
ak 
ax 
xx 
ak 
ak 
ax 
ak 
xk 
ak 
a 
aK 
ak 
an 
aX 
an 
xx 
xx 
ax 
xk 
x 
xk 
aK 
x 


=K 
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FOTO RIOT ITI IIT ITI ITN 
TORII RII OOOO TO ITT IIT IK 


Narie: KYARGS - Interpret Key Nurtber Argunent 
Category: FILUTL 


Purpose: 
Interprets key# range & applies 1t to specified KEY file 


Entry: 
R3 contains upper linit of range (decinal) 
2 entry points: 
1) KYARGS - R1 contains lower linit of range (dec) 
D1 points at header of key file 
$10=1 => only 1 parn specified 
2) PARMCK - A(A)=next keycode in file to consider 


Exit: 

P=0 

D(A) = pointer to end of file 

R3 contains upper linit of range in hex 

Carry set=> tiatch on 1st parn 
D1 at assignnent entry 
A(A)=B(A)=corresponding keycode 
C(A)=pointer to end of file 

clr=> D1 at next largest entry in range 

A(A)=corresponding keycode 
C(A)=upper linit of range 


If natch on single parn (S$10=1) isn’t found, or 


if no entry within specified range, exits via NXTSTM 

Calls: DECHEX, KEYFND 
Uses: ACA), BCA), CCA), DCA), D1, DO, RI, R3 
Stk lvls: 1 (assuring DECHEX uses 0) 
Note: Assunes PARMNXQ was called for R1,R3 set-up 
History: 

Date Progranner Modification 
07/06/82 S.M Inproved docunentation. = 


Modified entry conditions to PARNCK 
fron A(B)=keycode to A(A)=keycode. 


FOI IOI COTO IO OEE TTI 
SOIR UI OI IIIOOIIOIOITOOTOTIIITIOUT OO ITOIOIO. 


YARGS A=0 W WANT UPPER NIBS ZEROED GUT 
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470 1AD32 119 C=R1 
471 1AD35 7000 GOSUB =DCHX=C 
472 1AD39 06 C=A A 
473 1AD3B D7 D=C A SAVE KEYCODE 
474 1AD3D 118 C=R3 
475 1AD40 7000 GOSUB =DCHX=C 
476 1AD44 103 R3=A 
477 1AD47 133 ADIEX PTR TO FILE HEADER 
478 1AD4A 8FOO GOSBVL =KYFND+ 
000 
479 * Ptr to file end in D(A) 
480 & C=) A 
481 x R1=C SAVE IT 
482 1AD51 400 RTNC FOUND MATCH? 
483 * MATCH NOT FOUND 
484 1AD54 87A ?$T=1 10 EXACTLY 1 PARM SPECIFIED? 
485 1ADS7 4D GOYES LSTKDN 
486 * SEE IF BIGGER ASSIGNED KEY CODE EXISTS 
48? 1AD59 137 CDIEX 
488 1AD5SC 135 01=C 
489 1ADSF 8BF ?C>=D A POINTING AT END OF FILE? 
4390 1AD62 9C GOYES LSTKON 
491 % BIGGER KEYCODE POINTED TO - SEE IF IT’S WITHIN RANGE 
492 18064 11B PARNCK C=R3 
493 1RAD67 8B6 7AoC OA 
494 1AD6A 1C GOYES LSTKDN 
495 1ADeC 03 RTNCC 
496 x 
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=ADHD j 
ADHEAD 
CK" ON" 
D=AVNE 
D=AVNS 
DCHX=C 
DSPLI+ 
FShift 

=FTCHKY 
FTKY-1 
FTKYOO 
FTKY20 
FTKY30 
FTKY50 
FTKY60 
FTKY 70 
FTKY80 
FTKY81 
GShift 
GTKYCD 
HXDASC 
K#2ASC 

=KEY$ 

KEY$O5 
KEY$10 
KEYCOD 
KEYN10 
KEYN20 
KEYN30 
KEYN40 
KEYNSO 
KEYN6O 
KEYN70 
=KEYNAN 
KY'CK 
=KYARGS 
KYFND+ 
KYTYP4 
LDCSET 
LOCSPC 
LSTK10 
LSTKDN 
=LSTKEY 
LSTLN+ 
OUTBYT 
OUTC15 
OUTNBS 
=OUtbyt 
PARMCK 
POPBUF 
PRPSND 
RANGE 

REN1 80 
S-R1-1 
STKCHR 


Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


109806 #1ACEE 


1 #00001 
109217 #1RRAI 
109431 #1AB?7? 


109229 HIARAD - 


109325 #1ABOD 
109356 #1AB2C 
109384 #1AB48 
109440 #1AB30 
109469 #1AB9D 
109486 #1ABRE 
109493 #1ABBS5 

2 #00002 


109518 #1ABCE 
109736 #1ACR8 
109776 #1ACDO 
109797 #1ACES 


109598 #1ACIE 


109601 #1AC21 - 


109631 #1AC3F 
109660 #IACSC 
109679 #1ACEF 
109692 #1AC?7C 
109711 #1AC8F 
109572 #1ACO4 
109551 HIABEF 
109871 #1AD2F 


109828 #1ADO4 
109867 #1ADCB 
109812 #1ACF4 


109565 #1ABFD 
109924 #1AD64 


360 
360 
405 

80 
341 
471 
182 
245 

54 
125 

58 

84 

97 
109 
129 
139 
148 
14? 
246 


293 
190 
339 
350 
357 
257 
256 
257 
265 
277 
284 
291 
296 
247 
201 
469 
478 
14? 

58 

76 
401 
414 
335 
149 
207 

61 
137 
207 
492 
345 
404 
263 
414 
398 
350 


475 
251 


81 
402 

68 
104 
100 
123 
1% 
141 
12? 
252 


355 
346 


255 


264 
282 
267 
301 
192 
145 
395 


411 
406 


66 
410 
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268 


135 


272 


271 


348 
196 


485 


103 


279 


281 


274 


490 


204 


Fri Dec 30, 1983 


494 


4:59 an 


Page 


43 
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UseQuo Abs 0 #00000 - «= 244 250s 256 
keyfnd Ext - 73 


outnbs Abs 109462 #1AB96 


137 133° «143-199 
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Input Paraneters 
Source file nane is SG&KEY::MS 
Listing file nane is SG/KEY:TI:ML::-1 
Object file nane is SGAKEY: TI:MS::-1 


141114 
0123456789 12345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 





Saturn Rssenbler 


Ver. 3.39/Rev. 2306 


lee eh eh ee ee ee 
NOAM DWI | DOW WONAHAMN SWAP 


_ 
wo 


Pato 02 69 0) <= 
Swn- wo 


SSCL ESE VvoURnNn Ven ny 
-—-OWWNAM HWP WON OM 


AS Db 
&w ro 


bp HDL 
DO CO JO UT 


na 
a ee 


52 


1ADGE 


1RD6E 86A 
1AD?71 8 
1AD73 8C00 


00 
1AD79 8C00 
00 


{AD?F 411 
1AD82 84A 
1AD85 7600 
1AD89 8CO0 
OO 
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TITLE VAL Function <831212.1206> 

ABS #1ADGE 
SSS. BBBB & VOY A 
S$ S$ B B &8& YY 
S B B && VY 
SSS. BBBB 

$B B &&& 
S$ S$ B B 
SSS. BBBB && V 


0 ee Oe Oe 


L 
L 
L 
L 
L 
L 
LELLL 


RDSYNB SBZRAM: : NS 
=ValSub EQU 10 Indicates VAL is used as a sub 
x 


x 


VALERR ?ST=0 ValSub 
GOYES invarg 
GOLONG =RDATTY 


invarg GOLONG =InvArg Invalid argunent error 


we 
x. 


NIBHEX 411 
=VAL ST=0 ValSub VAL is not being used as a sub 
GOSUB VALOO VAL statenent execution 
EXPR} GOLONG =expr 


ik 
x. 
JOU IOIOIIIOITIOIICIOISIGI OO IIIT TO TOTO OT ATT IIT IIT 
JOO OI III TIC OOO TOT TOI TTT TOO TTI IO RTI IT IK 
ak 


** Nane:(S) VALOO - Parse and Execute a String on Stack 
kk 

** Category:  EXCUTL 

ak 

** Purpose: 

x Syster VAL function. Converts a string into a nunber. 
Re Any valid numeric expression may be passed. 

kk 

** Entry: 

xx P = 0 

si D1 points to string on top of math stack. 

AS S110 (=ValSub) set iff VAL 1s being called 

ab as a subroutine. 

oh Will cause "Data Type" error instead of 

AR "Invalid Argunent" and will require the 

KA. valid expression to be followed by a CR. 

xk 

Rk Exit: 

x P = 0 

ne String on top of stack has been replaced by the value 
ag obtained by parsing and executing the string. 

xe 

tk 
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53 ** Calls: XXHEAD , STKCHR, ADHEARD, REVPOP, EXCPAR, OUTBYT, 
54 a MOVED2, PSHSTK, EXPR, POPSTK, POP1N, AVE=01, MFERR 
65 ak 
56 BE UseSvics asi 
57 kk Inclusive: A,B,C,D0,RO,R1,R2,R3,R4,01 
58 ak 
59 te Stk lvls: 4 
60 a 
61 ** NOTE: 
62 xh This routine calls expression execute which may call a 
63 ah user defined function; this may alter a lot of RAN 
64 aA locations. The DO that is passed in is kept on the 
65 ak GOSUB stack so it will be updated if nenory noves. 
66 an 
67 ** Algorithn: 
68 ax Appends a CR to string on stack. 
69 ag Reverses string. 
70 ar Parses string and verifies it is a valid nuneric expr. 
71 ah Appends an EOL to parsed code. 
72 a Moves parsed code onto stack, covering original string. 
73 ae Saves 2 RSTK levels and DO (PC) on GOSUB stack. 
74 ah Calls EXPR to evaluate expression. 
75 ae Pops value fron stack. 
76 aS Collapses parsed code fron stack. 
77 ax Checks validity of pointers saved on GOSUB stack 
78 ag and jurnps to MFERR(eMMCOR) if any are not valid. 
79 Rx Restores 2 RSTK levels and DO (PC) fron GOSUB stack. 
80 ay Pushes value on stack. 
81 ak Returns 
82 x 
83 ** History: 
84 ak 
85 a Date Progranner Modification 
86 Rk peewtseg: witdesustas:  Gustetewiudectwinesalteatiete coetue 
87 x 6602/04/83 —s«B.LS. Added docunentation 
88 kK 04/08/83 «B.S. Modified routine to observe $10. 
$9 ar 
90 III III OT III IIIT III III II ISIS SSISISI SSSI SIOS SIS ISISIS ISIS IA 
91 JI IOI III TIS SII IIIS IOI IIT SII IB IIS IIIS IIIT IIS SI IIIT SIS I IA 
92 Return EQU 0 
93 1AD8F 850 =VALOO ST=1 Return 
94 1AD92 8E00 GOSUBL =XXHEAD Renove string header, 
00 
95 set up for STKCHR 
96 1AD98 3100 LCHEX OD Carriage return 
97 1ADSC 8EOO GOSUBL =STKCHR Append CR to end of string 
oo 
98 1ADA2 7000 GOSUB =ADHD) Put on new string header 
99 1ADAG 8FOO GOSBVL =REVPOP Reverse string, pop it, C=D0 
000 
100 1ADAD 1B0C DO=(5) =FUNCD1 
8F2 
101 1ADB4 144 DATO=C A Save old DO in FUNCD1 
102 1ADB? 102 R2=A Save string length in R2 


103 1ADBR 8E00 GOSUBL =r<rstk Save an RSTK level 
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© 
104 1ADCO 8E00 GOSUBL =EXCPAR Call Execution EXPPAR 
00 
105 1RDC6 86A ?$T=0 ValSub VAL used as a sub? 
106 1ADC9 BO GOYES VALO1 No, then skip 
107 1ADCB 3100 LC(2)  =tEOL 
108 1ADCF 966 AHC OB Is expression followed by CR? 
109 1ADD2 C9 GOYES VALERR No, then error 
110 1ADD4 870 =VALO1 ?ST=1 0 Valid expression? 
111 1RDD7 79 GOYES VALERR No, then error 
112 1ADD9 863 ?$T=0 3 Nuneric expression? 
113 1ADDC 29 GOYES VALERR No, then error 
114 1ADDE 3100 LC(2) =tEOL 
115 1ADE2 7000 GOSUB =OUtbyt Append EOL token to expression 
116 1ADE6 DB C=D A C(A)=(NTHSTK) 
11? 1ADE8 112 A=R2 Recall string length 
118 1ADEB C2 C=C+A A Add string length 
119 1ADED 135 D1=C 01=(Stack pointer) 
120 * Prepare to nove code buffer onto stack 
121 1ADFO 132 RDOEX ACA)=End of Source 
122 1ADF3 118 C=R3 C(A)=Start of Source 
123 1ADFE 7000 GOSUB =MOVED2 Nove output buffer to stack 
124 1ADFR 137 CD1IEX C(A)=Start of dest 
125 1ADFD 1899 DO=(5) =MTHSTK 
5F2 
126 1AEO4 144 DATO=C A Write out pointer to code buffer 
127 1AEO? 8E00 GOSUBL =rstk<r 
00 
128 * Save tuo RSTK levels and old DO(progran PC) on GOSUB stack 
129 1REOD D2 C=0 A 
130 1AEOF 3121 LC(2) 18 18 nibbles 
131 1AE13 DS B=C A B(A)=RArnount nen needs to open up 
132 1AE15 22 P= ({GSBSTK)-(MTHSTK))/5 Adjust 3 pointers 
133 (AVMENE, TFORN, GSBSTK) 
134 1AE17 1A3A DO=(4) =GSBSTK 
SF 
135 DO points at last ptr (GSBSTK) 
136 1RE1D 8FOO GOSBVL =PSHSTK 
000 
137 1AE24 RF2 C=0 W 
138 1AE2? A7E C=C-1 W 
139 1REZA 1557 DATI=C W Write out 3 "F" GOSUB stack 
140 entry types 
141 1RE2E 170 Di=D1+ 1 Skip first entry type 
142 1AE31 07 C=RSTK 
143 1AE33 145 DATI=C A Save an RSTK level 
144 1AE36 175 Di=D1+ 6 Point to next entry 
145 1RE39 07 C=RSTK 
146 1AE3B 145 DAT1=C A Save another RSTK level 
147 1AE3E 175 Di=Di+ 6 Point to next entry 
148 1RE41 1BOC DO=(5) =FUNCD1 
8F2 
149 1AE48 146 C=DATO A Recall old DO(progran PC) 
150 1AE4B 145 DATI=C A Save old DO(progran PC) 


151 1RE4E 1A99 DO=(4) =NTHSTK 
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SF 
152 1RES4 146 C=DATO A 
153 1RE57 134 DO=C Set PC at start of code buffer 
154 1AESA 135 D1=C Set Stack pointer to end AVMEN 


155 1RESD 782F 
156 
157 
158 
159 
160 
161 1RE61 163 
162 
163 
164 
165 1RE64 136 
166 1RE67 10A 
16? 
168 1RE6A 1B3A 
5F2 
169 1RE71 142 
170 1RE74 1% 
171 1RE7?7 166 
172 1RE7A 7470 
173 1RE7E 06 
174 1RE80 185 
175 1AE83 7B60 
176 1RE8? 06 
177 1RE89 16B 
178 1RE8C 7260 
179 1RE90 DA 
180 1AE92 103 
181 1AE95 164 
182 1AE98 132 
183 1AE9B D2 
184 1AE9D 3121 
185 1AEA1 EE 
186 1RER3 22 
187 
188 1REAS 8FOO 
000 
189 1REAC 18E 
190 1REAF 142 
191 1AEB2 131 
192 1REBS 8FOO 
000 
193 1REBC 04 
194 1AEBE 118 
195 1AEC1 134 
196 1AEC4 11A 
197 TREC? 135 
198 1RECR 1517 
199 1RECE 591 
200 TAED1 118 
201 1AED4 1CF 
202 1RED? 1557 


GOSUB EXPR) Evaluate expression 


k 
* VALCHK can not be noved since it is checked in ABZREG to 
* deternine if STMTDO needs to be updated by during 

* user-defined function execution. 

k 


=VALCHK DO=00+ 4 EOL+18 nibbles on GOSUB stack 


CDOEX 
R2=C 


DO=(5) =GSBSTK 


take up 20 of nibbles, nou nove 
ahead 4 tore to point where 
stack iten will go 


Save address where stack iten 
will go 


A=DATO A 

DO=A 

DO=D0+ 7 Skip to second entry 
GOSUB GETADR 

RSTK=C Restore an RSTK level 
DO=D0- 6 Move back to first entry 
GOSUB GETADR 

RSTK=C Restore another RSTK level 
DO=D0+ 12 Now move to third entry 
GOSUB GETADR 

A=C A 

R3=A Save old DO(progran PC) in R3 
DO=D0+ 5 

ADOEX A(R)=End of save space 

C=0 A 

LC(2) 18 18 nibbles 

C=A-C A C(R)=Start of save space 
P= ((GSBSTK)-(MTHSTK))/5 Adjust 3 pointers 


GOSBVL =POPSTK 


DO=DO- (GSBSTK)-(MTHSTK)+5 


(MTHSTK, TFORN, GSBSTK) 
Discard save space on GOSUB stack 


Point at MTHSTK 


A=DATO A Read (MTHSTK) 

D1=A 

GOSBVL =POP1N Pop a nunber off stack 
SETHEX 

C=R3 

DO=C Restore old DO(progran PC) 
C=R2 Recall stack pointer 
d1=C 

DAT1=A W Write out real part 
GONC VALRIN Return if not corplex 
C=RO Recall imaginary part 
D1=D1- 16 

DATI=C W 
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203 1REDB 1C1 DI=D1- 2 
204 1AEDE 31E€0 LCHEX O€ Cornplex "tag" 
205 1REE2 14D DAT1=C B 
206 1AEES B8A Cs: P Return with carry set for conplex 
207 1REE8 1537 VALRTN A=DAT1 W 
208 1AEEC 8000 GOLONG =AVE=01 Set MTHSTK back to D1 
00 
209 k- 
210 Re 
211 1REF2 146 GETADR C=DATO A 
212 1REF5 8RE CHO OA 
213 1AEF8 00 RTNYES 
214 1REFA 8000 GOVLNG =CORUPT 


000 
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ADHD } 
AVE=D1 
CORUPT 
EXCPAR 
EXPR } 
FUNCD1 
GETADR 
GSBSTK 
InvArg 
MOVED2 
MTHSTK 
OUtbyt 
POP1N 
POPSTK 
PSHSTK 
ROATTY 
REVPOP 
Return 
STKCHR 
=VAL 
=VALOO 
VALO1 
=VALCHK 
VALERR 
VALRIN 
2ValSub 
XXHEAD 


Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 0 
Ext 
Abs 
Abs 
Abs 
Abs 


109961 
194752 
110322 
193955 


193945 


109954 
109967 
110036 
110177 
Abs 109934 
Abs 110312 
Abs 10 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 


expr 
invarg 
rorstk 
rstk<r 
tEOL 


109946 
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Synbol 


#1AD89 
#2F 8CO 
HIREF? 
#2F 583 


#2F539 


#00000 


RIAD82 
#1AD8F 
#1RDD4 
#1AE61 
#1AD6E 
#1AREES 
#OOOOAR 


#1AD79 


Table 


38 
208 
214 
104 

24 = 185 

11 100 
211 172 

11 132 

18 
123 

11. 125 
115 
192 
188 
136 

17 

99 

92 

97 

22 

93 
110 
161 

18 109 
207 = 199 

12 15 

94 

24 

18 16 
103 
127 
107 


148 
175 
134 


132 


93 


23 
106 


111 
22 


' ' ‘ t ' ' ' t ' t ' 


114 
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178 
168 186 189 
151 186 189 
113 
105 
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Input Paraneters 
Source file nane is SB&VAL::NS 
Listing file narie is SB/VAL: TI:ML::-1 
Object file nane is SBAVAL:TI:MS::-1 


114114 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Asserbler Neus 
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WON nur wT —- 


10 
11 
4 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
7 
28 
29 
30 
31 
32 
33 
34 
36 
36 
3? 
38 
39 
40 
41 


43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


1AFO1 


External GOSUB Module<831216.1 Fri Dec 3, 1983 3:50 an 
Page 1 
x nh MN N & GGG SSS BBBB 
x mntin N N && G G S$ S$ B B 
x MMM NN N 8&8 G S$ B OB 
x MNM NNN & G GGG SSS BBBB 
x hm M N WN &&8& G G S BB 
x h MN NB EB GCG GS §$ B B 
: fh" MN N 8&8& GGG SSS. BBBB 


TITLE External GOSUB MNodule<831216.1453> 
ABS #1AFO4 


RDSYNB SBZRANM: : MS 
FOI III II CO TO TTT LETTS ITAL ITT TI ILI TIA ISAS 


FORTIS TTT I 
ak 


** Nane:(S) MGOSUB - Execute A GOSUB Fron Movable Code 


ka 
** Category:  EXCUTL 

kx 

** Purpose: 

xx Allows code which may rove (such as code within a 

ak LEXfile in RAN) to GOSUB to a utility which way 

wh Hove it (such as a file expand utility). The utility 
xx will return to the LEXfile properly even if it moved. 
kk 

** Entry: 

ake Instead of GOSBYL <address of desired routine>, call 
ex the routine as follous: 

kk 

ex GOSBVL =NGOSUB 

ae CON(S) <address of desired subroutine> 

ka 

tok ; 

aa 

kk 

ak All registers and nodes should be set up as required by 
an the subroutine. 

kx 

AP CEMIYS 

a Execution resunes at the location following the CON(5) 
Ax at the call to NGOSUB. 

Be All registers, modes and carry are as returned by 

us the subroutine. 

ik 

** Calls: STRALL, PSHMCR, POPGSB, RCLALL (falls through) 
ke 

AM USOS as nos 

a RAM: SCRTCH, SCREXO, SCREX1, SCREX2 

ax Register usage 1s dictated canpletely by the 

AS requested subroutine. 

ax 

** Stk lvls: MAX ( 3, <#levels used by requested subroutine>) 
kk 

** NOTE: 

as The scratch RAN is used before and after this code 


Ee calls the requested subroutine, but not during. 
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56 aK Thus the subroutine can use the scratch RAN locally, 
57 ae but not to pass infornation back to the calling 
58 RA routine. The calling routine obviously cannot keep 
59 - anything there which is expected to survive =MGOSUB. 
60 
61 RR =MGOSUB acts transparently for everything, including 
62 ak CARRY and SB. 

63 ak 
64 ae Because the return address 1s kept in RAN, the called 
65 ak subroutine will see the return address of MGOSUB, not 
66 ak of the calling code. So MGOSUB cannot be used to call 
67 aR a subroutine which uses the return address as a pointer 
68 an to data (such as FINDA, TBLJMP, CALBIN and FPOLL). 
69 a Neither POLL nor FPOLL can be called through MGOSUB. 
70 
71 aA Callers to POLL can breathe easily despite this caveat. 
72 ae POLL also updates the calling address, and so can be 
73 ae called directly fron movable code. This is not the 
74 ak case for FPOLL. 
75 an 
76 ** Detail: 
77 as Calling sequence: 
78 kk 
79 ia GOSBVL =NGOSUB 
80 ak CON(5) <address of desired subroutine> 
81 - <execution resumes here after return> 
82 
83 ** Algorithn: 
84 ae Stores the return address (address past the CON(5)) on 
85 x Gosub stack. 
86 ne Executes subroutine; address on Gosub stack will be 
87 ax adjusted as necessary if subroutine does a RFADJ. 
88 ak Retrieves return address from Gosub stack. 
89 ax Returns to code which called us. 
90 xk 
91 *k History: 
92 xk 
93 ee Date Progranner Modification 
94 RX - cseeecce we eneer ewe sa oc cs nse isin cs Oink le ows "awe nt ah ee 
95 kk 08/31/82 NM Wrote 
96 xk 
97 JOIST TOTO OC CTI TTS TAI A IIR ISIS IASI IS IK 
98 JI I IIIT IIIT TTI TTI SISOS III ISS IIASA 
99 1AFO1 7850 =NGOSUB GOSUB STRALL Save everything 
100 1AFO5 07 C=RSTK Return address fron call to us 
101 1AFO? 134 DO=C 
102 1AFOR 164 DO=D0+ 5 Spot to return to 
103 1AFOD 132 ADOEX 
104 1AF10 20 P= 0 
105 1AF12 8FOO GOSBVL =PSHNCR Push on GOSUB stack 
000 
106 1AF19 BF6 CSR W Address we just pushed 
107 1AFIC 1B23 DO=(5) =RTNHER 
FAI 


108 1AF23 136 CDOEX Hold pushed addr in DO 
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109 
110 
111 
112 
113 
114 


115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 


127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 
146 
14? 
148 
149 
150 
151 
182 
153 
154 
165 
156 
1S? 
158 
153 
160 
161 


1AF26 06 
TAF23 184 
1AF2B 146 
TAFZE 6220 
1AF32 7720 
1AF36 8FOO 
000 
1AF3D 491 
TAF4O 2F 
1AF42 308 
1AF45 947 
1AF48 EE 
1AF4A DB 
1AF4C 8AR 
TAF4F 80 
1AFS1 06 
1AF53 6B60 
TAFS? 
1AF5? 8000 
00 
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RSTK=C Return to RTNHER from subroutine 
DO=D0- 5 
C=DATO A Address of desired subroutine 
GOTO RTNH1O Restore everything & 60 
=RTNHER GOSUB STRALL Save everything 
POPADR GOSBVL =POPCSB Pop address off of stack. 
GOC POPERR Go if stack enpty. 
P= 15 
LCHEX 8 
?C#D = S Is this Microcode return? 
GOYES POPADR No. Pop next thing. 
C=D A Yes. Fetch address. 
7C=0 6A Zeroed out? 
GOYES POPERR Yes. Error. 
RTNH1O RSTK=C Desired address 
GOTO = RCLALL Restore everything and RIN 
=NNCOR j 
POPERR GOLONG =SYSERR 


FOI RII ITT IO TOTTI TIT K 
FOI ROI TOIT OTTO TION 


ax 
ax 
xk 
ak 
ax 
ak 
ak 
a 
ak 
an 
ak 
xk 
xx 
x 
ax 
ak 
ak 
a 
an 
ak 
ak 
a 
xx 
a 
ak 
ax 
ak 
xk 
xk 
a 
aK 
xk 
xx 


Nane: STRALL - Save A-D,00,D1,node,P,Cry,SB In SCRICH 


Category: LOCAL 

Purpose: 
Store CPU regs, flags and node in scratch RAM for 
safekeeping. 


Entry: 
None. 


Exit: 
HEX node. 


Calls: None. 


Stk lvls: 1 


NOTE: 
This 1s the conplenent of RCLALL. 
Detail: 
RAN use: 
SCRICH: A. 
SCRICH+16: B. 
SCRICH+32: C. 
SCRICH+48: 0D. 
SCRICH+64: D1 


SCRTICH#80: nib 0 = P 
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162 
163 
164 
165 
166 
167 
168 
169 
170 
174 
172 
173 
174 
175 
176 
177 
178 


179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 


197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
203 
210 
211 
212 
213 
214 


1AF5D 06 
TAFSF 137 
1AF62 1F14 
9F2 
1RF69 145 
1AF6C D2 
1AF6E 550 
TRF71 A2E 
1AF74 REE 
1RF77 80FO 
1AF7B 04 
TAF?D 23 
TAF7F 832 
TAF82 50 
TAF84 ROE 
1AF87 17F 
TRF8A 145 
TAF8D 17F 
TAF9O 136 
1RF93 145 
1AF96 07 
1AF98 1610 
OF 
TAF9E 1517 
TAFA2 17F 
TAFAS AF4 
1RFA8 1517 
TAFAC 17F 
1AFAF 1557 
1AFB3 17F 
1RFB6 AFB 
1AFB9 1557 
1AFBD 01 
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xk 
ak 
ak 
ak 
xk 
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nib 1 = 9 if DEC, F if HEX 
nib 2 = 0 1f carry clear, 9 or F if set 
(depending on node on entry). 
nib 3 = 0 if SB clear, F if set. 
SCRICH+96: DO. 


xk History: 

ak 

as Date Progranner Modification 

ERY bie ee. election, | apie eee lee re eee eis 
kk 09/01/82 NM Wrote. 


xk 


FORO ROTO 
FOO TOTTI TOR TOR TOTO TT RI IK 


STRALL 


STRA10 


STRA3O 


RSTK=C Hold C[A] 

CDIEX 

D1=(5) (=SCRICH)+64 

DAT1=C A Store 01 

C=0 A 

GONC  STRAIO C[XS]=0 if carry clear 
C=C-1 XS =9 or F if carry set 
C=C-1 8 C{1J=9 if DEC, F af HEX 
CPEX 0 C{[oJ]=P 

SE THEX 

P= 3 

?SB=0 

GOYES STRA30 C[3]=0 if SB clear 
C=C-1 P =F if SB set 

B1=D1+ 16 

DAT1=C A Store P, node & flags 
01=01+ 16 

CDOEX 

DAT1=C A Store DO 

C=RSTK Restore C 

01=(4) =SCRICH 

DATI=R W Store A 

Di=01+ 16 

A=B W 

DATI=A W Store B 

D1=D1i+ 16 

DAT1=C W Store C 

D1=D1+ 16 

C=) W 

DAT1=C W Store D 


JOO IIIT OI TT ITO TTI 
FORT OTT TTT TTT TIT ITT IS TIT 


ak 


xk Narie: 


aK 


RCLALL - Recall CPU State As Saved By STRALL 


*k Category: LOCAL 
ak 


** Purpose: 


Saturn Assernbler 


Ver. 3.39/Rev. 2306 


215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 


243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 


257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
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an Restore A,B,C,D,00,D1,P, rode, Cry, SB and XM as saved 
aa in scratch RAM by STRALL. 
ke 
*k Entry: 
xe None. 
ka 
AX Exit: 
aK Registers and rode restored. 
ak 
** Calls: None. 
ak 
AA USES: eke 
AK A,B,C,D,D0,D1,P, mode, SB, XN. 
sk 
ek Stk lvls: 0 
kk 
**x NOTE: 
x This is the conplenent of STRALL. 
ak 
*k History: 
ak 
ak Date Progranner Modification 
Ph, slosh akeeccl ee oe. palate eg eee en cuore rete mie 
tk 09/01/82 NM Wrote 
aa 
JOO OI II TI TIT TOI ITI ITI I III IIIT TIS IIIS IO IIIS IAK 
SII II III III TI TAI IIIT ISIS IIIT I III III IIIS IIS II IIIS IIA IK 
TAFBF 1814 RCLALL DO=(5) (=SCRTCH)+64 
9F2 
1AFCE 146 C=DATO A 
1AFCI 135 b1=C Restore D1 
1AFCC 18F DO=D0- 16 
1AFCF 1567 C=DATO W 
1RFD3 AF? D=C W Restore D 
TAFDG 18F DO=D0- 16 
1AFD9 1567 C=DATO W Restore C 
1AFDD 18F DO=D0- 16 
1AFEO 152? A=DATO W 
1AFE4 AFS B=A W Restore B 
TAFE? 18F DO=D0- 16 
TAFEA 1527 A=DATO W Restore A 
TAFEE 06 RSTK=C Hold C{A} 
TAFFO 1A15 DO=(4) (=SCRICH)+80 
OF 
TAFF6 146 C=DATO A Read flags, node and P 
TAFF9 16F DO=D0+ 16 Point at DO 
1AFFC 822 SB= 
TAFFF 23 = 3 
18001 B86 CSR P Set SB if C[3]#0 
18004 21 = 1 
18006 BO6 C=C+1 P Set carry if HEX node stored 
18009 440 GOC RCLAI0 
1B00C 05 SETDEC 
1BOOE 80D0 RCLAIO P=C 0 Restore P 
1B012 B26 C=C+1 XS Restore Carry 
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268 18015 146 C=DATO A 
269 18018 134 DO=C Restore DO 
270 1B01B 07 C=RSTK Restore C 
271 18010 01 RTN 


272 1BO1F END 





Saturn Asserbler External GOSUB Nodule<831216.1 Fri Dec 30, 1983 3:50 ar 


Ver. 3.39/Rev. 2306 Syrbol Table Page 7 
=MGOSUB Abs 110337 #1IRFO1 - 99 
=MNCOR) Abs 110423 #IAF57 - 125 
POPADR Abs 11039 #1AF36 - 114 119 
POPERR Abs 110423 #1AF5?7 - 126 115 122 
POPGSB Ext - 114 
PSHNCR Ext - 105 
RCLAIO Abs 110606 #IBOOE - 266 264 
RCLALL Abs 110527 #1AFBF - 242 124 
RTNH10 Abs 110417 H1AF51 - 123 112 
sRINHER Abs 110386 #IAF32 - 113 107 
SCRTCH Abs 194817 #2F901 - 11 178 196 242 256 
STRAIO Abs 110452 #1AF74 - 183 181 


STRAX Abs 110471 HIAF87 - 19 188 
STRALL Abs 110429 #I1AF5D - 176 99° 113 
SYSERR Ext - 126 





Saturn Assenbler External GOSUB Module<831216.1 Fri Dec 30, 1983 3:50 an 
Ver. 3.39/Rev. 2306 Statistics Page 8 


Input Paraneters 
Source file nane is MN&GSB: : MS 
Listing file nane is MN/GSB:TI:AL::-1 
Object file nare is MNZGSB: TI: MS::-1 


141411 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 x RAR «=6CBBBB CS UU oTIITt Lb 
2 x A AB B&K U YU T L 
3 * A AB B&R U U T L 
4 * AARAR BBBB 8 UU T L 
5 % A AB B&&R& U U T L 
6 * A AB B&B UU T L 
7 x R A BBBB 8& &  UUU T LLLELL 
8 
) TITLE Miscellaneous Utility Routines <831212.1515> 
10 1BO1F ABS #1BO1F 
14 FI III IIIT TTDI TID IT ITT TTDI T IDI STASI ITI SIDI II IATA III IA 
12 SII ITI ITS TI TORTIE ITT TI ELD II TITS ITI IIIS IIIS I IITA IA 
13 xk 
14 ** Nane:(S) RND-12 - Round A 12-digit Fp Nunber 
15 KR 
16 *k Category:  MTHUTL 
17 sk 
18 *k Purpose: 
19 Ah Round of a floating-point nunber at specified digit. 
20 ae 
21 ** Entry: 
22 = A = number (12-digit floating-point). 
23 aK P points to digit where rounding is to take place. See 
24 aK detail, belou. 
25 a 
26 ae ERIE: 
27 ae P=0. 
28 a A=Rounded (not IEEE-rounded) 12-digit forn. 
23 a If P=15 on entry, no rounding was done. 
30 a Carry set iff rounding overflowed (returns MAXREAL). 
31 ak 
32 ** Calis: None. 
33 xk 
34 RP USCS wo aiins 
35 ae R,B,P. 
36 xx 
37 ** Stk Ivis: 0 
38 xk 
39 ** Detail: 
40 ae Typically called after IF12A, which sets P to point at 
4 ae the first fractional digit. 
42 xe 
43 ** History: 
44 x 
45 i Date Progranner Nodification 
4G HE Sool. oe eeees eee ee sGl le eae ees oes 
47 ae SA Wrote 
48 ae 40/17/83 NM Attenpted to docunent 
49 a3 
50 IIR RI AIT TTT EIT II III IIIT IIS IAT III III IASI IIIS III II STI SSI IIA 
54 SII IIT TI IIIT TIAL III III ITIIIAS TIT III IIIS ISI SII SII IIISISI SSI IIA 
52 1BO1F 89F =RND-12 ?P= 15 
53 1B022 64 GOYES AR25 
54 18024 890 ?P= 0 


55 1B02? 70 GOYES AROO 
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56 
5? 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
te 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
93 
100 
101 
102 
103 
104 
105 
106 
10? 
108 
1093 
110 


1B029 881 
1BO2C 40 
1BOZE 22 
1B030 AF1 
18033 ADC 
1B036 A15 
18039 A91 
1B03C 512 
1BO3F AID 
1B042 2E 
18044 B15 
18047? 561 
1B04A B34 
1B04D ABS 
1B050 A35 
1B053 570 
18056 939 
1B059 31 
1B05B BO5 
1BO5E AD4 
18061 35C 
1B064 46 
18066 DO 
18068 20 
1B06A 03 
1BO6C AID 
1BO6F BIC 
18072 20 
18074 02 
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?PH 1 
GOYES AROS 
AROO P= 2 
AROS B=0 W MOVE MANTISSA TO B 
ABEX N 
AR10 B=B+B WP ROUND DOWN? 
B=0 WP 
GONC AR2O IF $0, GOTO AR2O 
B=B-1 WP ROUND UP 
P= 14 
B=B+1 WP DECADE ROLLOVER? 
GONC AR20 IF NOT, GOTO AR2O 
A=A+1 Xx INCREMENT EXPONENT 
B=AR OX 
B=B+B xX POSSIBLE EXPONENT OVERFLOW? 
GONC ARI? IF NOT, GOTO ARI? 
7B=0 x 
GOYES AR30 
AR17 B=B+t P CREATE UNIT NMANTISSA 
AR2Z0 AZB OM REPLACE MANTISSA 
?HHO ON 
GOYES AR25 
A=O OA 
AR25 P= 0 
RTNCC RETURN CARRY CLEAR 
AR30 B=B-1 WP CREATE S9.99999999999E499 
A=B-A WP 
P= 0 
RTNSC RETURN CARRY SET 


ak 
ak 
ak 
ak 
ak 
a 
xk 
xx 
aK 
ak 
xk 
xk 
ax 
xk 
a 
ak 
ax 
at 
ax 
ak 
xs 
a 
xk 
a 
ak 
ak 


JORIS IIIT OIC TO TOT TIT OR ITT IT TI II 
JO III IE TIO ITO TOTO OTT TO TTT TI ITT ITI IK 


Nane:(S) RANGE - Verify & Byte Is In Certain Range 
Nane:(S) DRANGE - Verify A Byte Is In Range “O"-"9" 


Category:  GENUTL 


Purpose: 
Deternine if a byte 1s in a specified range. 
Caller supplies range for RANGE. 
This code supplies range of "0" to "9" for DRANGE. 


Entry: 
P=0, 
A[B} = byte to be checked. 
RANGE: C[B] = lower bound of range to check, 
C[3-2] = upper bound of range to check. 


Exit: 

P=0. 

Carry clear if byte in range. 
Calls: None. 
USESo5 Fas ace 
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111 
112 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
123 
124 


125 
126 
12? 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 


1B076 3503 
93 
1BO7C SE2 
1B07F 00 
1B081 Fé 
18083 BB6 
1B086 B62 
1B089 01 
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ak C([A]. 
ke 
*k Stk lvls: 0 
ka 
*k History: 
ha 
xk Date Progranner Modification 
BR rcatawid:. “Sadescseees attatched oes, 
AK SA Wrote 
ee 40/17/83 NT Atternpted to docunent 
ak 


JI ITO IO TOIT TTI TST SITE TTI TT TTT TTT TTDI TIT TI ITN 
FOO ROO OT TTT ITOK 


=DRANGE LCASC \90\ CHECK FOR ASCII DIGIT 
=RANGE ?A<C B CHECK FOR BYTE IN RANGE 
RTNYES IF NOT, CARRY SET ON RETURN 
CSR A 
CSR x 
C=C-A 8B 
RTN 


FOI OOOO I TR TO TOT TT TTT RI TTT TI 
FORO IT TO TT TT TTT TIT TIT IK 
xk 


- Nane:(S) MEMBER - Check If Byte Is A Member Of A Set 
* 


*k Category: GENUTL 


ak 
** Purpose: 

ax Deternine if a byte is a menber of a set of bytes. 
ak 

RK Entry: 

ak C=set of bytes (C{1-0], C[{3-2], etc.). 

ak P points to hinibble of upper byte of set. 

a A[B] = byte to be checked. 

ah 

kX Exit: 

a P=0, 

am Carry clear if byte in set. 

ak 

*k Calls: None. 

ak 

BRUGES daca 3 

kK C{WP] (whatever P was on entry), P. 

ah 

** Stk lvls: 0 

oh 

** History: 

hk 

= Date Progranner Modification 

ir oe ee eee bos See ere ee enna 
ax SA Wrote 

KK 10/17/83 NM Attempted to docunent 

ak 


FOI IIIT TIT TTI TTI IIT TIKIT TTT TIT I ITT I TT IT K 
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165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
194 
192 
193 
194 
195 
196 
197 
198 
193 
200 
201 
202 
203 
204 
205 
206 
20? 
208 
209 
210 
211 
212 
213 
214 
215 
216 
21? 
218 
219 


1B08B B96 
1BO8E OD 
18090 B96 
1B093 OD 
1B035 470 
18098 966 
1BO9B OF 
1B09D 20 
1BO9F 01 


kK 
Hi 


=f 
A 


ak 
xk 
aK 
ak 
x 
xx 
a 
xk 
xx 
ak 
ak 
ak 
ak 
kk 
ak 
xx 
xx 
ak 
ak 
ak 
ak 
ar 
ak 
ax 
ax 
ak 
ak 
aK 
ak 
ak 
ax 
ak 
ak 
ak 
ax 
ak 
ak 
ax 
ae 
ax 
ak 
xx 
ak 
ax 
ak 
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FOI IIT RTT III IIA IIT III III IASI STII II III IIIS II IASI IIIA 
BR10 CSR WP SHIFT IN NEXT ELEMENT 
P=P-1 
CSR WP 
P=P-4 
GOC MBR2O 
EMBER ?7R#C = OB SET ELEMENT IDENTIFIED? 
GOYES MBR10 IF NOT, REPEAT MBR10 
BR20 P= 0 
RETURN 
JOO IO OI RT II IIIT IIIT III STII IIIT II OTT IIT ITT I IK 
SOI IOI IIIT I TR TTT Te 
Nane:(S) HASH1 - Indexed Junp Through A GOTO Table 
Nane:(S) HASH2 - Indexed Jump Through A GOTO Table 
Category:  EXCUTL 
Purpose: 
Junp into a table of GOT0s (or other 4-nibble beasts) 
according to an index variable. 
Entry: 
A[A] = Hash byte (maxinun 3FF). 
HASH1: RSTK = Address of start of GOTO table. 
HASH2: C[A] = Address of start of GOTO table. 
Exit: 
This routine exits by juriping to the A[A]’th entry 
in the GOTO table. 
Calls: None. 
Uses....... 
A[X}, C[R]. 
Stk lvls: HASH1: 0. 
HASH2: 1. 
Detail: 


Typical use: 


GOSBVL =HASH1 
GOTO =: LO 
GOTO Lt 
GOTO Le 
GOTO =—L3 
GOTO) = iL 
GOTO =—sLS 


GOTO 8 L6 


The GOSBVL puts the address of the GOTO table on RSTK; 
HASH1 peels it off. Note that this GOSBVL 1s actually 
acting like a GOTO; control will never return to the 
code in the vicinity of the GOSBVL. 
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220 tk 
221 ** History: 
222 ae 
223 aK Date Progranner Modification 
224 BE leche - erp leeee? +: Geen te oe ee peer eat 
225 a SA Wrote 
226 kx 10/17/83 NN Attenpted to docunent 
xx 
ae SOOO IO RIO IOI OTTO TG 
229 230 II TO OOOO TOTO IO 
230 1B80A1 07 = =HASH1 § C=RSTK POP TABLE BASE ADDRESS 
231 1BOA3 A34 =HASH2 A=A+A X MULTIPLY INPUT BY 4 
232 1BOR6 A34 A=A+A X 
233 1BOA9 C2 C=A+C A COMPUTE JUMP ADDRESS 
234 1BORB 06 RSTK=C PUSH JUMP ADDRESS 
235 1BOAD 01 RTN JUMP TO ROUTINE 
236 TORO JOT OOO TO OHIO 
237 SOR IORIII ORI TORTOT OT OIIIO TIGIIOR TTTTI OI 
238 ax 
239 *X Nane:(S) STUFF - Fill Menory With Stuff Or 0’s 
240 As Nane:(S) WIPOUT - Fill Menory With Stuff Or 0’s 
241 * 
242 s* Category:  GENUTL 
243 a% 
244 ** Purpose: 
245 adel Fill up nenory will a pre-determined 16-nibble pattern 
246 es (STUFF) or with zeroes (WIPOUT). 
247 ak 
248 ** Entry: 
249 ax HEX node. 
250 x D1 @ start of area to be stuffed. 
251 aK C[A] = length of area to be stuffed (in nibs). 
252 ak STUFF: A[W] = pattern to be stuffed into tenory. 
253 am (WIPOUT presets A[W] to 0). 
264 he 
255 ek Exit: 
256 aR P=0. 
257 ak Carry clear. 
258 =A D1 pointing past last nibble stuffed. 
259 x 
260 ** Calls: None. 
261 4% 
262 ** Uses....... 
263 x P,C,01. WIPOQUT: A. 
264 xx 
265 ** Stk lvls: 0 
266 ak 
267 ** History: 
268 aX 
269 - Date Progranner Modification 
270 KX \coecceee Vewsiicalece (scl kos eee cece ete cele Soe 
271 ah SA Wrote 
272 ®* 10/17/83 NA Attempted to docunent 
273 ae 


274 SOOO JIT ITT TTI TTT ITS ITI III IIIA 
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275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
2% 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
36 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
32? 
328 
323 


1BORF AFO 
1B0B2 CE 
1B0B4 453 
1B0B7 80D0 
1BOBB F6 
1BOBD CE 
1BOBF 401 
1B0C2 1517 
1BOC6 17F 
1B0C3 AGE 
1BOCC 55F 
1BOCF A2E 
1B0D2 SFE 
18005 B36 
180D8 CE 
1BODA 57E 
1B0DD 1511 
1B0E1 137 
1BO0E4 809 
1BOE7 137 
1BOEA 20 
1BOEC 03 
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SOI TOIT IIIT TOR IIIT TI DIDI IIIS TINK 


=WIPOUT A=0 W 
=STUFF C=C-1 A 


MOREWO 


T 


E 


AILWO 


XITWO 


GOC EXITWO 
P=C 0 

CSR A 
C=C-1 A 

GOC TRILWO 
DAT1=A W 
Di=D1+ 16 
C=C-1 8 

GONC MORENO 
C=C-1 XS 
GONC MOREWO 
C=C+1 xX 
C=C-1 A 

GONC MORENO 
DAT1=A WP 
CDIEX 

C+P+1 

CDIEX 

P= 0 
RINCC 


CREATE ZERO REGISTER 
IS THERE ANYTHING TO WIPE OUT? 
IF NOT, RETURN 


ONLY PARTIAL WORD? 
IF SO, GOTO TAILWO 
WIPE OUT 16 NIBBLES 
MOVE TO NEXT WORD 


SPEED TRICK 
SPEED TRICK 
DONE WITH WHOLE WORDS? 
IF NOT, REPEAT MORENO 


WIPE OUT PARTIAL WORD 
MOVE PAST PARTIAL WORD 


RETURN WITH CARRY CLEAR 


JOO IOI III OTTO IU IO OT TIN 
FOI IOI OTT TOO TTT OT TT III IN 


xx 
kk 
ak 
ak 
ak 
ak 
ak 
ax 
ax 
x* 
ax 
aw 
ax 
aa 
xx 
xx 
ax 
ax 
an 
ak 
ak 
xk 
ak 
ax 
ax 
ax 
a 
kx 
ek 
Kx 


Narie 
Nane 
Narie 
Nate 
Narie 
Nane 
Narie 


Category: 


:(S) NOVEDN - 
:(S$) MOVEDO - 
:(S) MOVEDA - 
:(S) MOVED1 - 
:(S) MOVED2 - 
2(S) MOVED3 - 
:(S) MOVEDD - 


GENUTL 


Purpose: 


Block nove of 


Entry: 
MOVEDN: A[A] @ end of destination 


B[A] 


Addr 
Addr 
Addr 
Addr 
Addr 
Addr 
Addr 


Blk 
Blk 
Blk 
Blk 
Blk 
Blk 
Blk 


Nove To 
Nove To 
Nove To 
Nove To 
Nove To 
Nove To 
Move To 


Higher 
Higher 
Higher 
Higher 
Higher 
Higher 
Higher 


neriory to higher address. 


= block length 


C[A] @ end of source 


MOVEDO: 


DO @ end of source 


D1 @ end of destination 


B[A] 
MOVEDA: 


= block length 


=AVMEME @ start of source 


D1 @ end of destination 
ALA] @ end of source 


MOVED1: 


DO @ pointer to start of source 


D1 @ end of destination 
A[A] @ end of source 
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3H” 
331 
332 
333 
334 
336 
336 
337 
338 
339 
340 
341 
42 
43 
4 
345 
346 
34? 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 


369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
3814 
382 
383 


1BOEE 
1BOF1 
1BOF4 
1BOF6 
1BOFA 


18101 
1B104 
1B106 
1B109 
18108 
1B10E 
1B112 
1B114 
1B116 
1B119 
1B1iC 
1B11F 
1B123 
1B127 
1B12A 
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dk 
Ee NOVED2: D1 @ end of destination 
ae A[A] @ end of source 
ae C[A] @ start of source 
ok 
a MOVEDD: A[A] @ end of source 
a D1 @ end of destination 
aR C{A) = block length 
aa 
ae NOVED3: DO @ end of source 
aA D1 @ end of destination 
ae C{A}] = block length 
tok 
EM EXITS 
ae P=0, 
ch DO @ start of source. 
an D1 @ start of destination. 
fk 
** Calls: None. 
wx 
BRUGES Soi 082 
ax A,C(A]},D0,01,P. 
tok 
** Stk lvls: 0 
tk 
** History: 
tk 
xk Date Progranner Modification 
$2 et as. * pelcoetete- ete as ties a eal tenants 
ae SA Wrote 
** 10/17/83 NN Attenpted to docurent 
tok 


FOOT RIT TORTI TIT I I 
FOU OT TIT ITI TITS TIT IIT TIT ITTITI 


131 =MOVEDN 
134 

D9 = ==MOVEDO 
6210 

1B00 =MOVEDA 
000 

146 =MOVEDt 
EE =MOVED2 
130 =MOVEDD 
CE =MOVED3 
4(4 

80D0 

F6 

cE 

442 

18F  MOREND 
1CF 

1527 

1517 

AGE 

5EE 


DI=A 

dO=C 

C=B A 

GOTO NOVED3 

DO=(5) =AVMENE 

C=DATO A 

C=A-C A 

DO=A 

{=C-1 A ANYTHING TO MOVE? 
COC EXITMD IF NOT, RETURN 

P=C 0 

CSR A 

(=C-1 A ONLY PARTIAL WORD? 
COC TRILND IF $0, GOTO TAILMD 
DO=D0- 16 MOVE POINTERS TO NEXT WORD 
D1=D1- 16 

A=DATO W READ WORD 

DATI=A W WRITE WORD 

C=C-1 B 

CONC = MOREND SPEED TRICK 
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384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
4% 
431 
432 
433 
434 
435 
436 
437 
438 


1B12D 
1B130 
1B133 
1B1 36 
1B138 
18138 
18130 
1B140 
1B143 
1B145 
1B148 
1B14B 
1B14D 
18150 
18154 
1B158 
1B15A 


AZE 
58E 
B36 
CE 
50E 
D2 
809 
132 
EA 
1X 
133 
EA 
131 
1521 
1511 
20 
03 
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TAI LAD 


EXITHD 


C=C-1 
GONC 
C=C+1 
C=C-1 
GONC 
C=0 
C+P+1 
ADOEX 
R=A-C 
DO=A 
ADIEX 
A=A-C 
DI=R 
R=DRTO 
DATI=A 
p= 
RTNCC 


KS 
MOREND 
X 

A 
MOREND 
A 


A 


WP 
WP 
0 
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SPEED TRICK 
DONE WITH WHOLE WORDS? 


IF NOT, REPEAT MOREND 
MOVE POINTERS PAST PARTIAL WORD 


READ PARTIAL WORD 
WRITE PARTIAL WORD 


RETURN WITH CARRY CLEAR 


FOR III TO TIT TT TT TT TOT TTI RITA SITET ETD ITD II II IN 
SOI IIIT ITT TTT TT TIT TTT IK 


wx 


kk Nane 
xk Nane 
kk Nane 
xk Nane 
xk Nane 
** Nane 


xk Nane 
re 


:(S) MOVEUN - 
:(S) MOVEUO - 
:(S) MOVEUA - 
:(S) MOVEU1 - 
7(S} MOVEU2  - 
2(S) MOVE - 
:(S) MOVEU4 = - 


xk Category: 


Kx 


&*k Purpose: 
Nove a block of merory to a lower address. 


xk 
wk 


*k Entry: 


xx 
x 
ak 
ak 
wx 
xx 
kk 
kk 
kk 
ax 
xk 
ak 
x 
K* 
xr 
ax 
xk 
zx 
xx 
ak 
xx 


MOVEUN: 


MOVEUO: 


NOVEUA: 


MOVEUT: 


NOVEU2: 


MOVEUS 


GENUTL 


B[A] 


Blk 
Blk 
Blk 
Blk 
Blk 
Blk 
Blk 


Nove To Lower Addr 
Move To Lower Addr 
Move To Lower Addr 
Move To Lower Addr 
Nove To Lower Addr 
Move To Lower Addr 
Nove To Lower Addr 


A[A] @ start of destination 


= block length 
C(A] @ start of source 


DO @ start of source 


D1 @ start of destination 
= block length 


B[A]} 


=AVMEMS @ end of source 


D1 @ start of destination 
A[A] @ start of source 


DO @ pointer to end of source 


D1 @ start of destination 
A[A] @ start of source 


01 @ start of destination 


A[A] @ start of source 
C{[A} @ end of source 


: 00 @ start of source 
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439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
463 
470 
471 


472 
473 
474 
475 
476 
47? 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
494 
492 


1B15C 131 
1B1ISF 134 
1B162 09 
1B164 6210 
18168 1B00 
000 
1BI6F 146 
1B172 E2 
1B174 130 
1B177 CE 
1B179 494 
1B17C 8000 
18180 Fé 
18182 CE 
1B184 442 
1818? 1527 
1818B 1517 
1B18F 16F 
18192 17F 
18195 AGE 
1B198 SEE 
1B19B AZE 
1B19E 58E 
1B1A1 B36 
1B1A4 CE 
1B1A6 50E 
1B1A3 1521 
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xk D1 @ start of destination 
ax C{A} = block length 
kk 
Sa MOVEU4: A[A] @ start of source 
aR 01 @ start of destination 
xn C{A] = block length 
kt 
aK Exit: 

a P=0. 

ae DO @ end of source. 

ae D1 @ end of destination. 
ih 

** Calls: None. 

ak 

AR USES soos ee 

as A,C{A],00,01,P. 


xk Stk lvls: 0 


** History: 

ak 

ae Date Progranner Modification 

Pi ace ee (wie tecdoe: touteuelteeegeseecereescomeel eee 
aR SA Wrote 

kk 10/17/83 NM Attenpted to docunent 


xk 
FOTO OO OI OO TTT I IK 
FOI TO TOO TIT II IIT II III TI I IK 


=MOVEUN D1=A 
DO=C 
=MOVEUO C=B A 
GOTO = NOVEU3 
=MOVEUR DO=(5) =AVNENS 
=MOVEU1 C=DATO A 
=MOVEU2 C=C-A A 
=MOVEU4 DO=A 
=MOVEUZ C=C-1 A ANYTHING TO MOVE? 
GOC EXITMU IF NOT, RETURN 
P=C 0 
CSR A 
C=C-1 A ONLY PARTIAL WORD? 
GOC TAILMU IF SO, GOTO TRILNU 
MORENU A=DATO W READ WORD 
DATI=A W WRITE WORD 
DO=D0+ 16 MOVE POINTERS TO NEXT WORD 
01=D1+ 16 
C=C-1 8 
GONC  MOREMU SPEED TRICK 
C=C-1 XS 
GONC MOREMU SPEED TRICK 
C=C+1 Xx 
C=C-1 A DONE WITH WHOLE WORDS? 
GONC MOREMU IF NOT, REPEAT NORENU 
TAILMU A=DATO WP READ PARTIAL WORD 
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493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
S17 
518 
519 
520 
521 
522 
§23 
524 
525 
526 
52? 
528 
529 
530 
531 
532 
§33 
534 
§35 
536 
53? 
538 
539 
540 
541 
542 
543 
544 
545 
546 
$47 


iBIAD 1511 
1B1B1 136 
1B1B4 809 
1B1B? 134 
1BiBA 137 
1B1BD 809 
181C0 135 
1B1C3 20 

1B1C5 03 
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DAT1=A UP WRITE PARTIAL WORD 
CDOEX MOVE POINTERS PAST PARTIAL WORD 
C+P+1 
00=C 
CDIEX 
C+P+1 
D1=C 
EXITMU P= 0 


RTNCC RETURN WITH CARRY CLEAR 
IK IIT I III III III I IIIT III DIS ISIIIIIISIISSISIIIIT IASI IIIT ISI IT SIN 


JIS OT IOI OTT IS II ISI IAI IIIS OS IIIS STII ISI SII ISIS SII IA 
is 

*k Nane:(S) STRTST - Test Strings For Equality 

** Name:(S) STREQL - Test Strings For Equality 

i 


®& Category: GENUTL 


ae 
** Purpose: 

aa Test tuo strings for equality. 

aK 

xk Entry: 

we STRTST: 

ae DO and D1 at high-neriory end of the two strings to 
ak be coripared. 

a C{A] = block comparison length (in nibbles). 

xk STREQL: 

ae DO and D1 at high-neriory end of the tuo strings to be 
ak corpared. 

ae B[A] = (block conparison length - 1)/16. 

a P = (block comparison length - 1) mod 16. 

wa 

BA ERE: 

la If comparison length = 0, carry clear and XM=1. 

= If strings equal, carry clear and XM=0. 

ay If strings not equal, carry set and XM=0. 

sae P can be anything. 

xx B[A] contains remnant of length/16. 

kk A, C contains first words not equal. 

ears DO and 01 point at first words not equal. 

xX 

** Calls: None. 

ke 

XA Uses......- 

nt A,B[A],C,P,00,D1. 

at 

et Stk lvis: 0 

ark 

4% History: 

ae 

xx Date Progranner Modification 

Wi wseiodeue. itsuctaie, datigedeetautaeote con ee eee 
at SA Wrote 

kk 10/18/83 9 NM Attenpted to docunent 

xx 


SOI ORI TOIT OIG ITO 
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548 
549 
550 
551 
552 
§53 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
§93 
594 
596 
596 
597 
598 
599 
600 
601 
602 


1B1C7 821 
1B1CA CE 
1BiCC 415 
1BICF 80D0 
1B1D3 F6 
1B1D5 05 
1B1D7 CD 
1B1D9 4A1 
1B1DC 18F 
1BiDF 1CF 
TBIE2 1527 
1B1E6 1577 
1BIER 976 
1BIED 00 
TBIEF CD 
1B1F1 5AE 
1BIF4 D2 
1B1F6 809 
1BIF9 132 
1BiFC EA 
1BIFE 132 
1B201 133 
1B204 EA 
1B206 133 
1B209 AFO 
1B20C 1521 
1B210 RF2 
1B213 1571 
1B217 916 
1B21A 00 
1B21C 03 
1B21E AGE 
1B221 00 


_ ** Nare: 
&k Name: 
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Fri Dec }, 1983 


FOR ROI TR TTT TTT TTT TT TE TET 


=STRIST 


MOREST 


KN=0 

C=C-1 A 

GOC EXITST 
P=C 0 

CSR A 

B=C A 
B=B-1 A 

Coc TRILST 
DO=D0- 16 
D1=D1- 16 
R=DATO W 
C=DAT1 W 

RHC OW 
RTNYES 


=STREQL B=B-1 A 


TAILST 


EXITST 


GONC MOREST 
C=0 R 
C+P+1 
RDOEX 
R=A-C A 
ADOEX 
RDIEX 
A=A-C A 
ADIEX 

A=0 W 
A=DATO WP 
C=0 W 
C=DAT1 WP 
?ARC =P 
RTNYES 
RTNCC 
C=C-1 8B 
RTNSXM 


ANYTHING TO TEST? 
IF NOT, GOTO EXITST 


ONLY PARTIAL WORD? 
IF SO, GOTO TAILST 
MOVE POINTERS TO NEXT WORDS 


READ WORDS 


EQUAL? 

IF NOT, RETURN CARRY SET, XN=0 
DONE WITH WHOLE WORDS? 

If NOT, REPEAT MOREST 

MOVE POINTERS TO PARTIAL WORD 


READ PARTIAL WORDS 


EQUAL? 

IF NOT, RETURN CARRY SET, XN=0 
RETURN CARRY CLEAR, XM=0 

CLEAR CARRY 

RETURN CARRY CLEAR, XM=1 


SOI IDIOT TT TTT III III IN 
FOR III TOIT TTT TTT TTR TTT ITI III TTI TIN 


ak 


xk 


** Category: 


ak 


(S) FLTDH - 
(S$) DCHXF  - 


CONVRT 


&k Purpose: 
Convert a 12-digit floating-point nunber to a 5-digit 


ak 
ak 
ak 


hex integer. 


** Entry: 
R=12-digit floating-point nunber. 
(FLTDH and DCHXF are tuo nanes for sane entry point.) 


ak 
xx 
xk 


-&k Exits 


xx 
ak 
ak 
xx 


P=0. 


A{A] = hex integer. 


Convert 12-digit Flt To Hex Integer 
Convert 12-digit Flt To Hex Integer 


Carry set if nunber is positive and in range. 


Carry clear -> 
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603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 


635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 


1B223 
1B223 04 
1B225 821 
1B228 20 
1B22A AC8 
18220 D1 
1B22F BOS 
1B232 3260 
0 
18237 986 
1B23A 76 
1B23C B8C 
1B23F R86 
18242 8000 
18246 OD 
18248 BFO 
1B24B 05 
1B24D R04 
1B250 A® 
18253 04 
1B255 563 
18258 05 
1B25A AIC 
1B25D B74 
1B260 04 
1B262 592 
18265 B44 
1B268 OD 
1B26A 887 
18260 F1 
1B26F 7511 
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If XM=1, nunber is out of range (returns FFFFF). 
(NaN 1s considered out-of-range. ) 
If XM=0, number 1s negative (returns result in 2’s 


RR conplenent). 

ates Also B[S]#0 iff number is negative. 

ak HEX node. 

ke 

*k Calls: OVFLON. 

ek 

ak Uses.....e. 

ak A,B8,C,P, XM. 

ah 

ke Stk lvls: 1 

ak 

*k History: 

ih 

kx Date Programmer Modification 

WAS Getta Dee ease, - Stele se cee ae aig 
ae SA Wrote 

ak 12/20/82 SU Added info about B[S] to doc hdr 


ak 10/18/83 


ae 


NM Attenpted to docunent 


JOR JOO OOO OT TO TIT TTI 
FORO OUT IOI IIT TK 


=DCHXF 


=FLTDH SETHEX 


XN=0 
P= 
B=A 
B=0 
B=B+1 
LCHEX 


TAC 
GOYES 
A=-A-1 
C=A 
P=C 
P=P-1 
ASL 
SETDEC 
A=A+A 
A=0 
SETHEX 
GONC 
SETDEC 
R=A-14 
A=A+1 
SETHEX 
GONC 
A=A+1 
P=P-4 
?PH 
GOYES 


FLTDH1 GOSUB 


INITIALIZE 
0 
S SAVE SIGN 
A 
Pp 
006 
K EXPONENT TOO LARGE? 
FLTDH2 IF SO, GOTO FLTDH2 
Pp LOCATE FIRST FRACTIONAL DIGIT 
Pp 
0 
W ALIGN MANTISSA 
p ROUND DOUN? 
WP 
DHBGN IF SO, GOTO DHBGN 
WP ROUND UP 
\ DECADE ROLLOVER? 
DHBGN IF NOT, GOTO DHBGN 
S CREATE UNIT IN NEXT DECADE 
7 OVERF LOW? 
DHBGN IF NOT, GOTO DHBGN 
OVF LOW CREATE FFFFF, CLEAR CARRY 
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657 18273 20 P= 0 
658 1B275 00 RTNSKM RETURN EXTERNAL MODULE MISSING 
659 1B277 CO DHADD A=A+B A 
660 18279 45F GOC FLTDH1 
661 1827C ROC DHDCR A=A-1 P 
662 1B27F 57F GONC DHADD 
663 18282 C5 B=B+B A NEXT DECADE 
664 16284 D9 C-B OA 
665 18286 C5 B=B+B A 
666 18288 CS B=B+B A 
667 1B28A C1 B=B+C A 
668 1B28C OC  DHBGN P=P+1 CONVERSION COMPLETE? 
669 1B28E SDE GONC DHDCR IF NOT, REPEAT DHDCR 
670 1B291 04  DHSGN SETHEX 
671 1B293 949 7B=0 = S POSITIVE NUMBER? 
672 18296 00 RTNYES IF SO, RETURN CARRY SET 
673 18298 8A8 *A=0) OA ZERO? 
674 1B29B 00 RTNYES IF SO, RETURN CARRY SET 
675 1B29D F8 A=-A A NEGATE 
676 1B29F 03 RTNCC RETURN CARRY CLEAR 
677 1B2A1 3200 FLTDH2 LCHEX FOO 
F 
678 1B2A6 922 7A=C XS IEEE CRITTER? 
679 1B2A9 6C GOYES FLTDHI IF SO, GOTO FLTDH1 
680 1B2AB 05 SETDEC 
681 1B2AD ARG C=A XS 
682 1B2B0 B34 A=A+1 Xx EXPONENT = -1? 
683 1B2B3 DO A-O OA 
684 1B2B5 5£0 GONC FLTDH3 IF NOT, GOTO FLTDH3 
685 1B2B8 AS4 A=A+A OM 
686 1B2BB 55D GONC DHSGN 
687 1B2BE E4 A=A+1 A 
688 1B2CO 60DF GOTO DHSGN GOTO DHSGN 
689 18204 A26 FLIDH3 C=C+C XS NEGATIVE EXPONENT? 
690 18207 49C GOC DHSGN IF SO, GOTO OHSGN 
691 1B2CA 04 SETHEX 
692 1B2CC 62AF GOTO FLTDHI1 GOTO FLTDH1 
693 JOIST TIT IO OTITIS TIT III III TSI ITI SIA IASI I 
694 JUS ISI IO COT TIT ITI I IO TIT ITI II IIIA 
695 ae 
696 ** Narie:(S) DECHEX - Convert DEC Integer To HEX Integer 
697 . Nane:(S) DCHX=C - Convert DEC Integer To HEX Integer 
698 
699 ** Category: CONVRT 
700 x 
701 *x Purpose: 
202 a Convert decinal integer to hex integer. 
703 am 
704 kk Entry: 
705 ek DECHEX: A[H] = decimal integer. 
706 ek DCHK=C: C[W] = decimal integer. 
707 ae 
708 AX EMS t: 
709 ax P=0. 


710 aK A[A] = hex integer. 
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711 ae HEX node. 
712 a Carry set -> result 1s good. 
713 BX Carry clear -> overflou. 
714 ae XN = not carry. 
715 ny 
716 k* Calls: None. 
717 se 
718 BS USES a uicscs 
719 ax A,B,C,P,xM. 
720 as 
721 *X Stk lvls: 1. 
722 xe 
723 ** History: 
724 ne 
725 xx Date Progranner Modification 
726 iA edits. aeccecedda, (debe ceeeeualeeene usa seeeeeteeee nes 
72? es SA Wrote 
728 xX 10/18/83 NN Attenpted to docunent 
x 
ae JIT II IO II OTITIS II II IIS ISI IIT ISI III III SI ISI II III SI AI IN 
731 JI III IO TI II III III III IDI SI IIIS SII IIIS TI III II IOI ISIS IAAI IIS 
732 1B2D0 DA =DCHX=C A=C A 
733 1B2D2 04  =DECHEX SETHEX INITIALIZE 
734 1B204 821 KN=0 
735 1B2D7 26 P= 6 
736 1B2D9 A91 B=0 =P 
737 1B2DC 20 P= 0 
738 1B2DE BOS B=B+1 P 
739 1B2E1 AF2 c-O) OU 
740 1B2E4 A86 C-A =P 
741 1B2E7 A80 =OTEST «AO CO~®P 
742 1B2ER 978 7A=O OW FINISHED? 
743 1B2ED 32 GOYES DONE IF SO, GOTO DONE 
744 1B2EF 06 RSTK=C 
745 1B2F1 A1S B=B+B WP NEXT DECADE 
746 1B2F4 R99 C=B WP 
747 1B2F? AIS B=B+B WP 
748 1B2FA A1S B=B+B WP 
743 1B2FD All B=B+C WP 
750 1B300 07 C=RSTK 
754 1B302 OC P=P+1 
752 18304 ROC RPTIDH A=A-1 P DONE WITH DECADE? 
753 1B307 4FD GOC TEST IF $0, GOTO TEST 
754 1B30A A19 C=B+C WP ADD ONE COUNT IN DECADE 
755 18300 SoF GONC RPTOH UNCONDITIONAL REPERT RPTDOH 
756 18310 DE DONE ACEX A LEAVE RESULT IN A 
757 1B312 20 P= 0 
758 1B314 978 *t=0 06 UW OVERF LOW? 
759 1831? 00 RTNYES IF NOT, RETURN CARRY SET 
760 1B319 00 RTNS&N RETURN EXTERNAL MODULE MISSING 
761 BORIC IOIGIO OO IOI III 
762 JITTER IIS COA TI III III IIL 
763 ae 
764 ** Nane:(S) HDFLT  - Convert HEX Integer To DEC Flt-pt 


765 as 
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766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
731 
782 
783 
784 
785 
786 
787 
738 
789 
7% 
794 
792 
793 
794 
795 
796 
797 
798 


799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 


1B31B 8FO0 
000 
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** Category: CONVRT 
ks 
** Purpose: 
a Convert hex integer to 12-digit decinal floating-point 
x nunber. 
kk 
&k Entry: 
a ALA] = hex integer. 
&k 
** Exit: 
ax P=0, 
me A=12-digit floating-point nunber. 
aa Carry set. 
a DEC node. 
** Calls: HEXDEC. 
Pt 
Ak UseS....066 
ak A,B,C,P. 
ks 
** Stk lvls: 1 
ka 
** History: 
ke 
tk Date Progranner Modification 
Pies ieceate, “aeeiintes, deere bacon ncaa eo ie ee 
ee SA Wrote 
xk 10/15/82 SA Changed to NM’s conversion 
kx 10/18/83 NM Attenpted to docurient 
kx 


FOO TOO OOO TIT TTT I 
FOI III TOTO OO TT TTT 


=HDFLT GOSBVL =HEXDEC CONVERT HEX INTEGER TO DECIMAL 


FORO TOIT TTT TIT TT TTR TITTIES III IT IN 
FORO OTTTTOOIOTTTTTIIIITK 
xx 


** Nane:(S) FLOAT - Convert Dec Integer Into 12-Dig Float 
KK 

kk Category: CONVRT 

kk 

xk Purpose: 

Re Convert right-justified decinal integer into floating 
i point nuriber. 

ka 

** Entry: 

ae Argurient in A[W] (unsigned). 

aX Naxinun 999999999999 (1e12-1). 

ks 

Kx Exit: 

ax Floating-point number in A[W]. 

ae DEC node. 

ak Carry set. 

kh 

k* Calls: None. 
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820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
85? 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 


1B322 
1B324 
1B327 
1B329 
1B32C 
1B32F 
1B331 
1B334 
1B336 
1B338 
18338 
1B33E 
1B340 
1B343 
1B345 
1B347 


05 
978 


BFO 
BFO 
£4 
BFO 
£4 
2 
570 
BDO 
cc 
8 
8F 
20 
02 
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&K 
RR USES a 'siets 
a AtW), P 
xk 
*K Stk lvls: 0 
ik 
** Algorithn: 
ak Return if A=0. 
KR ASL 3 tines, AL[X]=011. 
ak While A[14]=0 do 
aK begin 
ax ASL {loop to align nantissa} 
xe A=A-1 x 
ax end. 
ik 


** History: 
kk 


*k Date Progranrier Modification 

PR Saeco, kinases vane eR cee wien Pee ae eit 
ae SA Wrote 

Kk 06/11/82 NN Attempted to docunent 

ak 


FORO IIT TO TOT TTI 
FOI OI IOI OTIC TIT I TTI OI II 
x 


* Note: Above code falls into this 
k 


=FLOAT SETDEC 
?A=0 ANYTHING TO MOVE? 
RTNYES IF NOT, RETURN CARRY SET 


x 


ASL W NOVE MANTISSA TO N-FIELD 

ASL W 

R=A+1 =A CREATE EXPONENT OF 11 

ASL W 

R=A+1 =A 

P= 14 

GONC FLTD20 UNCONDITIONAL GOTO FLTD20 
FLTDIO ASL q SHIFT MANTISSA LEFT 

A=A-1 A DECRENENT EXPONENT 
FLTD20 ?A=0) =P SHIFT COMPLETE? 

GOYES FLTD10 IF NOT, REPEAT FLTD10 

P= 0 

RTNSC RETURN CARRY SET 


FORGO OI IO TOTO OIC OI IIIS IOI OO ITO 
JOO III OI IO ITOK 
ae 


** Nane:(S) A-MULT - Multiply Twa 20-bit Hex Integers 
ak 


** Category:  MTHUTL 

kA 

** Purpose: 

x Nultaply two 20-bit hex integers. 
aa 

** Entry: 

ae ALA], C[A] are operands. 
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875 ak 
876 AX Exit: 
877 aE P preserved. 
878 ah A{A)=product. 
879 RR Carry set 1f no problen. 
880 ae Carry clear -> overflow. Returns FFFFF. 
881 ak 
882 xk Calls: None. 
883 ak 
884 AK Uses... 2.0 
885 aR ALA], B{A},C{A},C(14). 
886 aA 
887 ** Stk lvls: 0 
888 ak 
883 ak Date Progranner Modification 
830 EP “coeccewe  Geidieco dod -sescescosetSctécnseG ce sue estes c ls 
891 Rk SA Created 
892 . 10/18/83 9 NM Attenpted to document 
a JOO IO UCI III SITE 
895 JOOS ICE ICO CK ITE 
896 1B349 08 =A-MULT B=A A 
897 1B34B DO A=0 A 
898 1B34D 8A9 7B=0 =A ZERO MULTIPLIER? 
899 1B350 00 RTNYES IF SO, RETURN CARRY SET 
90 1B352 80FE CPEX 14 
91 1B356 20 P= 0 
92 1B358 5FO GONC ANULT2 GOTO ANULT2 
903 1B35B FS AMULT1 BSR A NEXT DIGIT 
904 1B35D 80D4 P=C 4 
905 18361 880 ?PH 0 OVERF LOW? 
96 1B364 02 GOYES ANULTS IF SO, GOTO ANULTS 
907 1B366 F2 CSL A SHIFT MULTIPLICAND LEFT 
908 1B368 B89 AMULT2 B=-B P ZERO DIGIT? 
909 1B36B 5FE GONC ANMULT1 IF SO, REPEAT ANULT1 
3910 1B36E CA ANULTS A=A+C A ADD MULTIPLICAND TO RESULT 
911 1B370 431 GOC ANULTS ON OVERFLOW, GOTO AMULTS 
912 1B373 B05 B=B+1 P DONE WITH DIGIT? 
913 1B376 57F GONC ANULT3 IF NOT, REPEAT ANULT3 
914 18379 8AD ANULT4 7BHO A MULTIPLICATION COMPLETE? 
915 1B37C FD GOYES AMULT1 IF NOT, REPEAT AMULT1 
916 1837E 80DE P=C 14 RESTORE REGISTER POINTER 
917 1B382 02 RTNSC RETURN CARRY SET 


918 1B384 80DE AMULTS P=C 14 
919 18388 DO OVF LOW A=0 A 


920 1B38A CC A=A-1 A 

921 1B38C 03 RTNCC 

922 JOIST IO IIIT IO TTT 
923 JOU IO IOI ORT 
924 oa 

925 ** Narie:(S) REVS - Reverse Characters In A String On Stack 
926 aR 

927 xk Category:  MTHSTK 

928 ae 


929 *k Purpose: 
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930 
331 
932 
933 
934 
935 
936 
937 
938 
939 
340 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 


959 
960 
961 
962 
963 
964 


1B38E 


1B395 
1B338 
1B39A 
1B39D 
1B3A0 
1B3A3 
1B3A6 
1B3A8 
1B3AA 
1B3AD 
18380 
1B3B2 
1B3B5 


2 1B38? 


1B3BA 
18380 
1B3CO 
18303 
183C6 
183C9 
1B3CC 
1B3CE 
1B3D1 
183D4 
1B3D6 


AF 4 
D8 

822 
81D 
810 
137 
cS 

cg 

135 
136 
Dd? 

832 
71 

511 
1C1 
14A 
14F 
149 
14C 
161 
CD 

5BE 
1CF 
DB 

134 
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Reverse a string on the mathstack. 


** Entry: 
HEX node. 
Di pointing at string header. 


ah 
ak 
aK 
SeEMEt 
ae 
ah 
ax 
aK 
aK 


D1 pointing at string header. 


String 


has been reversed. 


C[A]=D[A}=copy of DO. 
Error exit (eDATTY) if not pointing at string. 


*k Calls: 


xk 
xk Uses 
xk 
xx 


xk Stk lvls: 


xx 


** History: 


ak 


x Date 


RK ose 
ak 


ak 10/18/83 


xk 


POP1S. 

A,B,C,0,P. 

1 

Programmer Modification 
SA Wrote 

Nn Attenpted to docunent 


FOI JOO II OO ITO TOTTI OTITIS 
FORT O II OITOK 


8FOO =REV$ 
000 


RPTREV 


ODD 
EVEN 


GOSBVL 


B=0 
B=A 
$B=0 
BSRB 
BSRB 
CDIEX 
C=B4C 
C=B+C 
01=C 
CDOEX 
D=C 
?SB=0 
GOYES 
GONC 
01=01- 
R=DATO 
C=DAT1 
DATI=A 
DATO=C 
DO=D0+ 
B=B-1 
GONC 
p1=01- 
C=D 
DO=C 


=POP1S READ HEADER 
W 
A 
A COMPUTE ADDR OF MIDDLE OF STRING 
A 
A 
EVEN NUMBER OF CHARS IN STRING? 
EVEN IF SO, GOTO EVEN 
ODD UNCONDITIONAL GOTO ODD 
2 
B READ SYMMETRIC CHARACTERS 
B 
B WRITE REVERSED 
B 
2 
A DONE? 
RPTREV IF NOT, REPEAT RPTREV 
16 RESTORE POINTERS 
A 
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984 

385 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 


1B3D9 01 
ka 


aK 
xk 
ak 
Kk 
ak 
ak 
ak 
ak 
xk 
ak 
ak 
xk 
aK 
ak 
ak 
ak 
ak 
ak 
ak 
ax 
aK 
ak 
ak 
xk 
xk 
ak 
ax 
ak 
ax 
ax 
xk 
ak 
xx 
ak 
ak 
ak 
ak 
ak 
aK 
ak 
ak 


1B3DB 30R =P 
1B3DE 148 
1B3E1 982 
1B3E4 11 
1B3E6 171 
1B3E9 31£0 
1B3ED 966 
1B3FO AO 
1B3F2 17F 
1B3F5 17F PP 
1B3F8 03 
1B3FA BO4 P 
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RIN RETURN 
JOO IOC TUITE ETT TTR TK 


FOR RIOT TOOT TTI TTT TIA 


Nane:(S) POPMTH - Skip Past An Iten On Mthstk 


Nane:(S) POPSTR - Skip Past An Iten On Mthstk 
Category: MTHSTK 
Purpose: 
Skip past current iten on the nathstack. Useful for 
finding a particular iten or for counting itens. 
Entry: 
P=0, 


POPMNTH: D1 at top of nathstack. 
POPSTR: D1 pointing past first 2 nibbles of string header 
at top of nmathstack. 


Exit: 
P=0, 
D1 at new top of nathstack. 


Carry clear. 
Calls: None. 
USES cians 
A,C,D1 
Stk Ivls: 0 
Detail: 
Correctly skips past conplex numbers and string itens. 
History: 
Date Progranner Modification 
SC Wrote 
10/18/83 = NM Attenpted to docunent 
SII TSI IIS IIIS IIIT I SSSI SII ISIS ISI ISI ISS I IIS I IIII SSSI SIA 
JI II IIT IDI IIIT III TIT ISIS SII III TIT ISI III TISSISS SIS IIIT IS SSSI IIS: 
OPNTH LCHEX A 
A=DAT1 B 
7AcC OP IS IT A REAL NUMBER ? 
GOYES POQPS10 IF SO, GOTO POPS10 
Di=D1+ 2 
LCHEX O€ 
RRC OB COMPLEX NUMBER? 
GOYES POPS20 IF NOT, GOTO POPS20 
D1=Di+ 16 
OPS10 D1=Di+ 16 
RTNCC RETURN CARRY CLEAR 


OPS20 R=A+1  P 
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1039 1B3FD R64 A=A+A 8B 
1040 18400 96C 7AHO OB IS IT A STRING ? 
1041 18403 DO GOYES POPS30 IF NOT, GOTO POPS30 
1042 18405 143 =POPSTR A=DAT1 A READ THE STRING LENGTH 
1043 1B408 137 CDIEX 
1044 1B40B C2 C=A+C A COMPUTE ADDRESS OF NEXT ELEMENT 
1045 1B840D 137 CO1EX 
1046 18410 17D POPS3O D1=D1+ 14 
1047 18413 03 RTNCC RETURN CARRY CLEAR 
1048 JO II I I IOI III OTIC I TOIT TTDI E 
1049 JI IOI IO III IUCR TTA 
1050 RK 
1051 kK Narie:(S) CSRC1 - Perforn 1 CSRC 
1052 kk Wane:(S) CSRC2 - Perforn 2 CSRCs 
1053 *k Nane:(S) CSRC3I  - Perforn 3 CSRCs 
1054 kK Narie:(S) CSRC4  - Perforn 4 CSRCs 
1055 kk Narie:(S) CSRC5  - Perform 5 CSRCs 
1056 kK Narie:(S) CSRC6 - Perforn 6 CSRCs 
1057 kK Nane:(S) CSRC7?7  - Perforn 7 CSRCs 
1058 kK Narie:(S) CSRC8  - Perform 8 CSRCs 
1059 kk Nanie:(S) CSRC9  - Perforn 9 CSRCs 
1060 kK Narnie:(S) CSRC10 - Perforn 10 CSRCs 
1061 *K Nane:(S) CSRC11 - Perforn 11 CSRCs 
1062 KK Nane:(S) CSRC12 - Perforn 12 CSRCs 
1063 ek Narie:(S) CSRC13. - Perforn 13 CSRCs 
1064 *k Narie:(S) CSRC14 - Perforn 14 CSRCs 
1065 ** Narie:(S) CSRC15 - Perforn 15 CSRCs 
1066 *k Wane:(S) CSLC1  - Perforn 1 CSLC 
106? kk Nane:(S) CSLC2 - Perforn 2 CSLCs 
1068 ek Nane:(S) CSLC3  - Perforn 3 CSLCs 
1069 kk Narre: (S) CSLC4 - Perforn 4 CSLCs 
1070 kK Narie:(S) CSLC5 - Perforn 5 CSLCs 
1071 *K Narie:(S) CSLC6  - Perforn 6 CSLCs 
1072 kk Nane:(S) CSLC? - Perforn 7? CSLCs 
1073 Ak Nane:(S) CSLC8  - Perforn 8 CSLCs 
1074 Kk Nane:(S) CSLC9 - Perforn 9 CSLCs 
1075 *K Nane:(S) CSLC10 - Perforn 10 CSLCs 
1076 kK Narie:(S) CSLC11 - Perforn 11 CSLCs 
1077 ak Nante: (3) CSLC12 - Perforn 12 CSLCs 
1078 kk Name: (S) CSLC13. - Perform 13 CSLCs 
1079 eK Nane:(S) CSLC14. - Perforn 14 CSLCs 
1080 kk Nane:(S) CSLO15 - Perforn 15 CSLCs 
1081 ak 
1082 *k Category: GENUTL 
1083 ax 
1084 ** Purpose: 
1085 ae Perform 1 to 15 circular left or right shifts to C. 
1086 ae 
1087 kk Entry: 
1088 ae None. 
1089 ak 
1090 ek Exit: 
1031 ae C-register shifted. 
1092 ak 


1093 ak Calls: None. 
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1094 ae 

1095 ex Uses....... 

1096 ak Cs 

1097 &K 

1038 *K Stk lvls: 0 

1099 a 

1100 ** History: 

1101 aK 

1102 ax Date Progranner Modification 

1103 aa a aaa aaa aaa aaa 

1104 ae SA Wrote 

1105 ae 10/18/83 NA Attenpted to docunent 

x 

ee $I IIIT STII TOT SIT II IIS STII IOI II SII IIIS IIE III IIS IS SN 
; 1108 JU TIGA IO SSI II IIT II OSI SSI IIA I SSSI S: 
1109 18415 =CSLC9 

1110 18415 816 =CSRC7 CSRC 

1111 1B418 =CSLC10 

1112 18418 816 =CSRC6 CSRC 

1113 1B41B =CSLC11 

1114 1841B 816 =CSRCS CSRC 

1115 1B41E =CSLC12 

1116 1B41E 816 =CSRC4 CSRC 

1117 18421 =CSLC13 

1118 18421 816 =CSRC3 CSRC 

1119 18424 =CSLC14 

1120 1B424 816 =CSRC2 CSRC 

1121 18427 =CSLC15 


1122 18427 816 =CSRC1 CSRC 
1123 1B42A 01 


1124 JIG II OC TOC OTT IIIT TIT TITI AIT IT ID IIIT TAI IN 
1125 1B42C =CSRC8 

1126 1B42C 812 =CSLC8 CSLC 
1127 1B42F =CSRC9 

1128 1B42F 812 =CSLC? CSLC 
1129 18432 =CSRC10 

1130 1B432 812 =CSLC6 CSLC 
1131 18435 =CSRC11 

1132 18435 812 =CSLC5 CSLC 
1133 1B438 =CSRC12 

1134 18438 812 =CSLC4 CSLC 
1135 18438 =CSRC13 

1136 1B43B 812 =CSLC3 CSLC 
1137 1B43E =CSRC14 

1138 1B43E 812 =CSLC2 CSLC 
1139 18441 =CSRC16 

1140 18441 812 =CSLC1 CSLC 
1141 18444 01 RIN 


1142 1B446 END 
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=A-MULT Abs 111433 #18349 - 896 
ANULT1 Abs 111451 #18358 93 #39 315 


AMNULT2 Abs 111464 #18368 - %8  %2 
AMULT3 Abs 111470 #1B36E - 310 913 
AMULT4 Abs 111481 #1B379 - 914 

AMULTS Abs 111492 #18384 - 918 %6 911 
AROO Abs 110638 #1B02E - 58 55 

AROS Abs 110640 #1B0% - 59 5? 

AR10 Abs 110646 #18036 - 61 

AR1? Abs 110683 #1B05B - 74 71 

AR2O Abs 110686 #1BOS5E - 75 63 67 
AR25 Abs 110696 #18068 - 73 53 77 
AR30 Abs 110700 #1BO6C - 81 73 
AVMEMNE Ext - 368 

RVMENS Ext - 474 


=CSLC1 = Abs 111681 #1B441 - 1140 
=CSLC10 Abs 111640 #18418 - 1111 
=CSLC11 Abs 111643 H1B41B - 1113 
=CSLC12 Abs 111646 #1B41E - 1115 
=CSLC13° Abs 111649 #1B421 - 1117 
=CSLC14. Abs 111652 #18424 - 1119 
=CSLC15 Abs 111655 #1B427 - 1121 
=CSLC2. 9 Abs 111678 #1B43E - 1138 


=CSLC3. Abs) «111675 #1B43B - 1136 
=CSLC4. Abs «111672 #1B438 - 1134 
=CSLC5 Abs 111669 #18435 - 1132 
sCSLC6 0 Abs «111666 #1B432 - 1130 
=CSLC? Abs): 111663 HIB42F - 1128 
=CSLC8 = Abs) «111660 #1B42C - 1126 
=CSLC9 Abs) 111637 #18415 - 1109 
=CSRC1 = Abs 111655 #1B427 - 1122 


=CSRCO10 Abs 111666 #18432 - 1129 
=CSRC11 Abs 111669 #1B435 - 1131 
sCSRC12 Abs 111672 #1B438 - 1133 
=CSRC13) Abs 111675 #1B43B - 1135 
=CSRC14. Abs §=111678 #1B43E - 1137 
=CSRC15 Abs 111681 #18441 - 1139 
=CSRC2 Abs) 111652 #1B424 - 1120 
=CSRC3 Abs =: 111649 #1B421 - 1118 
=CSRC4 Abs) «111646 HIBS1E - 1116 
=CSRC5 = Abs) 111643 #1B41B - 1114 
=CSRC6 «Abs 111640 HIB4i8 - 1112 
=CSRC? = Abs) 111637 #1B415 - 1110 
=CSRC8 = Abs: 111660 #18420 - 1125 
=CSRO9 Abs) 111663 HIB42F - 1127 
=DCHX=C Abs 111312 HIB2MO - = 732 
=DCHXF =Abs 111139 #18223 - 627 
=DECHEX Abs 111314 #1B2D2 - 733 

DHADD = =Abs 111223 #1827? - 659 662 
BHBGN Abs 111244 #I1B28C - 668 646 651 655 
DHDCR Abs 111228 #1B270 - 661 669 
DHSGN Abs 111249 #18291 - 670 686 688 6% 
BONE Abs 111376 #1B310 - 756 743 
=DRANGE Abs 110710 #18076 - 124 

EVEN Abs 111564 #183CC - 979 971 
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EXITMD Abs 110936 #18158 - 399 373 
EXITMU Abs 111043 H1B1C3 - SOO 476 
EXITST Abs 111134 H1B21E - 580 551 
EXITWO Abs 110826 HIBOER - 296 278 
=FLOAT Abs 111394 #1B322 - 847 
FLTDIO «Abs 111419 #1B33B - 857 860 
FLTD20 Abs 111424 #1B¥0 - 859 856 
=FLTDH Abs 111139 4#1B223 - 628 
FLTDH1 Abs 111215 #1B26F - 656 660 679 692 
FLTDH2 Abs 111265 #1B2A1 - 677 636 
FLTDH3 Abs 111300 #1B2C4 - 689 684 
=HASH1 Abs 110753 #1BOA1 - 25% 
=HASH2 Abs 110755 H1BOA3 - 231 
=HDFLT Abs 111387 #1B31B - 798 
HEXDEC Ext - 798 
ABR10 «= Abs «6110731 #1B08B - 166 172 
MBR2O  =Abs 110749 #1B09D - 173 170 
=MEMBER Abs 110744 #18098 - = 171 
MOREMD Abs 110873 #1B119 - 378 383 385 388 
MOREMU Abs 110983 #1B187 - 481 486 488 491 
MOREST Abs 111068 #1B1DC - 557 564 
MOREWO Abs 110786 #1B0C2 283 286 | 288231 


=NOVEDO Abs 110836 #1BOF4 - 366 
=MOVED1 Abs 110849 #1B101 - 369 
=MOVED2 Abs 110852 #1B104 - 370 
=NOVED3 Abs 110857 #1B109 - 372 367 
=MOVEDR Abs 110842 #1BOFA - 368 
=MOVEDD Abs 110854 #1B106 - 371 
=MOVEDN Abs 110830 #1BOEE - 364 


=MOVEUO Abs 110946 #1B162 - 469 
=MOVEU1 Abs 110959 HI1BI6GF - 472 
=MOVEUZ Abs 110962 #1B172 - 473 
=MOVEU3 Abs 110967 #1B177- 478 470 
=MOVEU4 Abs 110964 #1B174 - 474 
=MOVEUR Abs 110952 #18168 - 471 
=MOVEUN Abs 110940 #1B15C - 467 
O00 Abs 111561 #1B3C9 - 978 972 
OVFLOW Abs 111496 #18388 - 919 656 
POP1S = Ext - 968 
=POPNTH Abs 111579 #1B3DB - 1027 
POPS1O Abs 111605 #1B3F5 - 1036 1030 
POPS2O Abs 111610 #1B3FA - 1038 1034 
POPS3O Abs 111632 #18410 - 1046 1041 
=POPSTR Abs 111621 #1B405 - 1042 
=RANGE Abs 110716 #1B07C - 125 
=REV$ Abs 111502 #1B38E - 958 
=RND-12 Abs 110623 #1BOIF - 52 
RPTDH Abs 111364 H1BH4 - 752 765 
RPTREV Abs 111546 #183BA - 973 980 
=STREQL Abs 111087 #IBIEF - 563 
=STRIST Abs 111047 #1B1C? - 549 
=STUFF Rbs 110770 #1BOB2 - 27? 
TAILND Abs 110907 #1B13B - 389 377 
TAILMU Abs 111017 #1B1A9 - 492 480 
TAILST Abs 111092 #1B1F4 - 565 556 
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TAILWO Abs 110813 #1BODD - 292 282 
TEST Abs 111335 #1B2E7 - 741 783 
=WIPOQUT Abs 110767 HIBORF - 276 
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Input Paraneters 
Source file name is ABBUTL:: MS 
Listing file nane 1s AB/UTL:TI:ML::-1 
Object file name is ABZUTL:TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Rssenbler Neus 
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1 x 

2 ‘ nm MN BBBB & III m MN GGG 
3 s Minin B B && I MA MN G G 
4 A hmnn B B && I Anh G 

5 - nam BBBB & I ANN G GGG 
6 z h MB B&&& I HA AG G 
7 x nh mB B& & TFT WH HG G 
8 * nh om BBBB 8&8 III A ON GGG 
9 
10 - 


11 TITLE IMAGE Parse Routines <831212.1518> 

12 18446 ‘ ABS #1B446 

i SII III IIT IORI SITIO ISI ID III ISI ISISSISI III IIIS SSIS SI SIS 
15 * FIXED ENTRY POINTS (labels which are not used in 
16 x the HP-71 nainfrane, but which should be kept 
1? x as external entry points for applications): 
18 & CkLoop 

19 x CkLpNC 

20 x BOPNN- 

21 x BOPHOS 

22 * IMinit 

23 x SetAVN 

24 x CSLORO 

25 % INDO-2 

26 : InDO+2 

2? : D12ROR 

28 x INoffs 

29 - B1dIMA 

30 - Bld ING 

31 x PRSsc+ 

32 a PRSscn 

33 . 
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34 EJECT 
35 JOO OOOO IO IOI OTT TOK 
36 * These following symbol values and relationships x 
37 * are used in the IMAGE routines: x 
38 & tLBLRF = (tLINE#)-1 x 
39 x eSTMNF = (eLNHNF)+1 x 
40 x tIMAGE = FF x 
41 JOO IIT ORT ITTI IT IST I III IDI IS 
42 %--- Inage tokens for building expanded IMAGE. 
43 ** 1) Tokens not identifying the end of a numeric field. 
44 tk 1a) Tokens not used in backwards search. 
45 =uSTRPT EQU #D0 String pointer 
46 suMULT EQU (uSTRPT)+1 [01] Multiplier 
47 =uLOOPB EQU #D2 Loop on byte 
48 =uLOOPS EQU #03 Loop on string (12 nibs) 
49 See EQU #04 Strange execution character. 
50 
51 *k = 1b) Tokens used in backwards search. 
52 =uQPNNM EQU #D8 Open loop without multiplier 
53 suJNP{} EQU = HD Junp over paren loop ptr (9 nibs) 
54 suJMPst EQU ADA Junp over string pointer (14 nibs) 
55 suJMPdl EQU #DB Junp over unfilled deliniter (8nibs) 
56 sulMbck EQU #DC Poll for backward search handler 
57 sulMsta EQU = RDE IMAGE string start ({Dx| - see IMentr) 
58 =uOPNMN- EQU #DF Open loop with mult, decrenented 
59 =uOPNUN EQU (uOPNN-)+1 [EO] Open loop with mult (ends in 0!) 
60 
61 KEFEEEEEEEFEEEEE TEES EEE E EEE EEE EEE EF EEE Ett teed teed tte settee 
62 =EndNun EQU #E6 Any value >= this identifies the + 
63 kt end of a nuneric field (used + 
64 ay in execution). + 
65 KEEEEEHEEEEEE TEETH EEEE TEES EEE SESE H EEE EEE EEE Ete eet e tt et tte 
66 & 
67 *k 2) Tokens identifying the end of a nuneric field. 
68 kk = 2a) Tokens not used in backwards search. 
69 =uCPLXC EQU HEE Corplex field closed 
70 =uLQOPP EQU #EF Loop on parentheses (variable #bytes) 
71 sulMend EQU #FO |FO| IMAGE string end 
72 & 
73 *k = 2b) «Tokens used in backwards search. 
74 =uRESTP EQU #F1 Restart parse 
75 =uDELIN EQU #F4 Delimiter 
76 ak Tokens delimiting an output/input field. 
77 =suHKB™ EQU #F6 H,K,B or * field 
78 zuRLit EQU HF? "R" Jiteral field 
79 =uNUMNn EQU HFS |F8| Nuneric, no float chars, no sign* 
80 suNUMNs EQU (uNUMNn)+1 [FS] Nuneric, no float chars, u/sign* 
81 suNUMFn EQU #FA |FA| Nureric, u/float chars, no sign* 
82 zuNUMFs EQU (uNUMFn)+1 [FB] Numeric, u/float chars, w/sign® 
83 =uNUNEn EQU HFC IFC| Nuneric, w/Exponent, no sign 
84 suNUNEs EQU (uNUNEn)+1 |FD| Numeric, w/Exponent, u/sign* 
85 x 
86 ® Note: these nuneric delimiters have values that 
87 x detertiine the status bit seat in USING execute. 
88 JOU IIIS III OI I TOE TT TT 
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89 s 

90 * The above token values fall in the following ranges. 

91 * Values in parentheses are presently not used, and are 

92 * reserved for future use: 

93 * 

94 * Tokens not identifying the end of a field, 

95 * not used in backward search: 

96 & (any value < DO) DO D1 D2 D3 D4 (D5) (DE) (D7) 

97 * 

98 % Tokens not identifying the end of a field, 

99 * and used in backward search: 

100 : D8 D9 DA DB DC (DD) DE DF EO (E1) (E2) (£3) (E4) (E5) 
101 
102 * Tokens identifying the end of a field (including those 
103 % that start anew one), not used in backward search: 

104 : (E6) (£7) (E8) (E9) (ER) (EB) (EC) (ED) EE EF FO 

105 

106 * Tokens identifying the end of a field (including those 
107 * that start a new one), used in backward search: 

108 * F1 (F2) (F3) F4 (FS) Fé F7 F8 FO FR FB FC FD (FE) (FF) 
109 x 

110 * In truth, future applications may use ANY token values 
111 * (or ASCII bytes, including any value above DO if desired) 
112 * for execution, providing that these token values: 

113 k 1) are "protected" fron the execution and backward 
114 & search routines by appropriate tokens (such as 

115 k uINXCH and uJMPst, respectively). For instance, 
116 x using the token value 44 (ASCII "D") for anything 
117 * other than to output a digit will require a uINXCH 
118 * token to handle it. Or including a 5-nibble pointer 
119 , (which night contain, say, an F7 byte, by chance) 
120 x requires a uINXCH token to execute around it, and 
121 : a uJMPst token to junp backwards over it. 

122 
123 x or, 

124 x 2) cannot look like a token which will be executed 
125 k or affect the backward search. For instance, 
126 - the MATH ROM places the two bytes uIMXCH and an 
127 x ASCII ")" an the token strean; since an ASCII ")" 
128 : won’t cause any problens during execution or back- 
129 * up, they are not protected. 

1H a ; 

131 * Specifically, any token which may be found by the backward 
132 * search routine 1s subject to the following rule: 

133 . 1) A value >= F1 identifies a deliniter in the IMinit 
134 , routine. IMinit will replace this token with the 
135 % new one which identifies the type of field. 

136 > 

137 * Any token which may be found by the execution routine is 
138 * subject to the following tuo rules: 

139 k 1) A value >=F6 identifies the start of an output 

140 , field. EXPEXC will be called to evaluate the next 
141 . output iter, and formatting will be attenpted. 

142 . 2) During the float-check and skip-checks (**), any 

e token value >= £6 identifies the end of the check. 


143 
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144 x Synbols beyond this will not be counted; if you 
145 x want the count to continue beyond such a token, 
146 x you rust protect 1t with a uMULT token, a uSTRPT 
147 x token, or a combination of uIMXCH with either. 
148 x 
149 & (**) The float-check 1s performed on nuneric “D" 
150 x fields to count the number of positions to float 
151 k editing syribols and signs. The skip-check is 
152 ‘ perforned on any nurieric Field to count the nunber 
153 : of spaces before displaying NaN or Inf, or to count 
154 ;: the nunber of positions to fill with *’s in the 
155 x case of an IMAGE Ovfl warning. 
156 ‘ 
157 * See the pIMXCH poll docunentation for examples of 
158 * protecting tokens from execution and backward searches. 

x 

bi JOO III ITI OT I III OTITIS I II IIIT III ITI IIIT STITT ITA 


160 
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161 
162 III KIT ASR TSI I ATI II IAI ISI DIDI ISIS II SI IIS SSB II ISSSISI SII IIS ISSA 
163 *--- Status bits 
164 x 
165 *---- These status bits nust be preserved during execution! 
166 =sMULT EQU 8 Multiplier pending. 
167 =sSIGN EQU 2 Sign specified. 
168 =sFOUND EQU 10 Field found. 
169 =sRDX  EQU 11 Radix found. 
170 * 
171 %---- These status bits can be changed during execution. 
172 x (status bits 0,1,2 are used for nuneric flags in xqt) 
173 =sxQT €QU 0 Start executing. 
174 =sC/P  EQU 1 C/P pending. 
175 =sCntg EQU 2 Counting digits. 
176 =sInit EQU 3 Field initialized. 
177 x (status bits 6,7 are used for complex output in xqt) 
178 =InhEOL EQU = 4 Sane as SB&I0 ''! (Left =0) 
179 =sSTOP EQU 5 Stop backward search. 
180 =sSpecl EQU 6 Special handling (used in xqtn) 
181 estplxP EQU ? Coriplex field pending. 


182 
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183 
184.—Ct« JOS III IO IO I TOT I III III TDI III III III IIS ISI ITI IA 
185 * Bits for character masks 
186 s 
187- X-chr EQU 2715 X: "blank" 
188 D-chr EQU 2714 D: digit 
189 A-chr EQU 2743 A: string char 
190 Pt-chr EQU 212 Decinal point 
191 Dblqt EQU 2711 Dbl quote: literal delin 
192 Sglqt EQU 210 Single quote: literal delin 
193 S-chr EQU 29 S: sign 
194 N-chr EQU 278 M: sign 
195 Z-chr EQU 247 Z: digit 
196 E-chr EQU 276 E: exponent 
197 C-chr EQU 275 C: separator 
198 astrsk EQU 274 *: digit 
199 Z1-chr EQU 273 Z: unit’s digit A 
200 P-chr EQU 22 P: separator 
201 R-chr EQU a R: radix 
202 Nf EQU 20 Nxtfld flag: return to Nxtfl5. 
203 ed EQU (X-chr)+(Dblqt)+(Sglqt) Edit chars 
204 cP EQU (C-chr)+(P-chr) Separators 
205 St EQU (S-chr)+(M-chr) Sign chars 
206 Rx EQU (Pt-chr)+(R-chr) Radix chars 
207 edSMRx EQU (ed)+(SM)+(Rx) 
208 CPE EQU (CP)+(E-chr) 


209 x 
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210 EJECT 
211 III IIIA STII III IID III I DAIS STD III III SII IIIS I IASI IIIS ISIAIS SII SAI. 
212 R 
213 %k IMAGE strings are not parsed until the string 1s accessed 
214 xk for DISP USING execution (or PRINT USING, ENTER USING, 
215 aX etc.). 
216 x 
217 ** Parsing of an IMAGE string is no simple task; the syntax is 
218 ** very flexible, uhile there are more than two dozen 
219 ** stringent rules. 
220 ak 
221 a There are tuo types of IMAGE strings. For example, 
222 % 
223 an 1) DISP USING 100; X 
224 ak uhere line 100 contains an IMAGE statenent 
225 x with inage string 
226 a 2) DISP USING <string expression>; X 
227 ak where <string expression> is a conbination of 
228 ak string constants or variables, such as 
229 aR "3X,4Z,A" , or Y$(2) , or S$8&"5K, "SFNIS 
2H ae 
231 xk When a DISP USING statenent is executed, the inage string 
232 *k is copied to the end of available netiory, verbatin. In 
233 ** case 1), above, the inage routines perforn the copy; in 
234 ak case 2), the routine EXPEXC (expression execute) evaluates 
235 ** the expression and puts 1t at the end of available nenory. 
236 *k In either case, a ulMend byte is placed innediately 
23? ** following the copy of the image string, so that the parse 
238 xk routines can identify the end of the string. Then this 
239 **k copy is used to build a strean of tokens for execution of 
240 ** the DISP USING statenent. 
241 ak 
242 ** A tokenized inage string can only reside in RAN, since loop 
243 **& counters (synbols with multipliers generate loop counters) 
244 &*k are stored as part of the tokenized strean. (An 
245 kk application could conceivably store tokenized inage streans 
246 xX in ROM if no multipliers were used. It would of course 
247 *&* need a special symbol to reference the fixed tokens, and 
248 **k poll handlers to position the inage execution routines into 
249 ** the token strean. ) 
250 xk 
251 xk In the discussion which follows, AvMenSt refers to 
252 xk "Available Memory Start", the nenory location whose address 
253 ** is stored in AVMENS. Similarly, AvMerEnd refers to 
254 ** "Available Menory End", the neriory location whose address 
255 *k is stored in AMVENE. This discussion also refers 
256 ** frequently to the IMAGE tokens which are equated at the 
257 ** beginning of this nodule; see the list of equates for the 
258 ** nanes and neanings of the tokens. 
259 ae 
260 xk Als an exanple of the first step in parsing an inage string, 
261 xk the following statenent causes nenory to be set up as 
262 ** indicated: 
263 = 


264 a DISP USING "3D.D,12A"; P,NS$ 
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265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
RO 
1 
He 
3 
4 
5 
Hb 
xX? 
HS 
09 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 


2306 


a 
xx 


ax 
xx 
xr 
ax 
xk 
xk 
xk 
xk 
ak 
a 
ax 
aK 
x 
ak 
xx 
an 
xr 
xx 
ak 
xx 
ax 
wk 
ax 
ak 
ak 
aa 
xx 
aK 
xk 
an 
ak 
xk 
xr 
xk 
xk 
xk 
ax 
ak 
xk 
ax 
ak 
am 
a 
a 
ak 
aK 
ar 
+e 
ak 
ak 
xx 
ae 
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O <- AvMenSt+ (inage AvMernEnd -> FFFFF 
| copy) | 

------- fo non nn oo on ne np nen nn tn ten eee eee 
| xqt tokens.. [3D.0,12A| | 

~-++--- toon nn nn nn nn penn enn np gn nnn ene ene 


“a 


ulMend token 


The basic schene behind image parsing can be described in 
this algorithn: 


1) parse the inage string until a field is encountered 
which requires an output iten, or until end of inage 
string. 

) stop parsing, execute all pending fields 

3) if end of string, goto (4), else goto 1). 

) if more iters in output list, reposition execution 
pointer to start of token strean and restart execu- 
tion until output list exhausted. 


It can be seen, then, that the IMAGE routines alternate 
between parsing and executing. There are several reasons 
for this design; two inportant ones are 1) it does not 
require the entire inage string to be parsed if the output 
list is short, and 2) it allows polls to be issued betueen 
fields so that "external" execution can be perforned on the 
tokens (such as for ENTER USING). 


The token stream 1s organized according to the inage 
fields. Every tine a new field is encountered, a 
deliniting token is placed in the strean, and tuo 4-nibble 
counters are initiated in the token strean to keep track of 
the nuriber of digits before and after a decinal point (if 
it turns out to be a nuneric field). Then ASCII bytes are 
placed in the token strean to direct the execution routines 
as to the type of output to generate. Periodically, the 
tohen strean has to be scanned backwards to change a field 
delimiter (such as when an E 1s encountered), or update the 
digit counters (for instance, uhen the field ends). 


The best way to describe the process 1s with an exanple. 
Assure we are executing an IMAGE string as follons: 


#4(3Dd.D2(3"Ha!", (723x),"$"406"7"'Ds, 3A, C(2(MZ.dE)) )K) 


We will build the token strean here, byte by byte. As the 
parsing progresses, the current character in the 1nage 


uA 


string ill be indicated with a , as follous: 
#4(3Dd.02(3"Ha!", (723x),"$"4D6"?"Ds, 3A,C(2(MZ. dE) ) )K) 
(i.e., we are about to parse the first character) 


To keep the description byte-oriented, the inage synbols 
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320 ** will be abbreviated as shoun: 
321 aX uR = uALlit “AY literal field 
322 =e uB = uLOOPB Loop on byte 
323 ah uC = uCPLXC Conplex field closed 
324 ay uD = uDELIN Deliniter 
325 an u— = uNUMEn Numeric, u/Exponent, no sign 
326 ah uf = uNUMFn Numeric, u/float chars, no sign 
327 kn uG = uNUMNFs Numeric, w/float chars, u/sign 
328 aK uH = uHKB™ ~=+H,K,B or * field 
329 a ul = ulMsta IMAGE string start 
330 7 uJ = uJMPst Junp over string pointer (14 nibs) 
331 &K uk = ulMbck Poll for backward search handler 
332 ak ul = uLOOPS Loop on string (12 nibs) 
333 ak uM = uMULT Multiplier 
334 ax uN = uNUNNn Nuneric, no float chars, no sign 
335 ak ud = uOPNNM Open loop with nultiplier 
336 ae uP = uLOOPP Loop on parentheses (variable #bytes) 
337 aK uQ = uOPNN- Open loop with mult, decrenented 
338 ae uR = uRESTP Restart parse 
339 ak uS = uSTRPT String pointer 
340 ak ul = uNUMEs Nuneric, w/Exponent, u/sign 
341 an uJ = uNUMNs Nuneric, no float chars, u/sign 
342 ak ull = uOPNNM Open loop without multiplier 
343 ak uX = uINXCH Strange execution character 
344 ola u8 = uJNPdl Jump over unfilled deliniter (8 nibs) 
345 x u9 = uJNP{} Jump over paren loop ptr (9 nibs 
346 A u$ = ulMend IMAGE string end 
347 ax 
348 *k and the synbols 
349 ae = =D =, =X =A =M =2 =E =$ =K and =) 
350 7 will refer to the ASCII byte values for the characters. 
351 
352 *k The example includes a complex field, which is handled by a 
353 **% poll in the MATH RON; this is shown to describe one 
354 kk inplerientation of image token handling. 
355 aK 
356 *k Here goes.... 
35? ak 
358 xk The image string has been copied into Avien, verbatin, and 
359 tk a ulMend token innediately follows it. The parse pointer 
360 kk points to the first character; tokens will be built below 
361 kk this area. A ulMsta (inage start) token is immediately 
362 xk written as the first token, and the execution anchor (the 
363 vn location where execution will start) is set to this token: 
364 
365 a ul 
366 ae (1) 
367 x 
368 o #4(30d.02(3"Ha!", (723x) ,"$"4D6"?"Ds, 3A, C(2(NZ. dE) ) )K) 
369 - 
370 xx 
371 ax =# ul 
372 = (2)(1) 
373 a 


374 a #4(3Dd.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(MZ. dE) ) )K) 
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375 ak a 
376 a 
377 aK 40 00 uO 00 uf =# ul 
378 * (7--6)(5--4)(3)(2)(1) 
379 ay 
380 ek As in any multiplied field, (4) and (5) will becone the 
381 &k reference counter, and (6) and (7) will becone the loop 
382 *k counter. NOTE: the bytes (6) and (7) show the multiplier 
383 kk value "0004", written backwards as it would show up in 
384 *k wenory. This convention is followed throughout the 
385 xk exanple. 
386 - 
387 AX #4(30d.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(NZ. dE) ) )K) 
388 a as 
389 ak 
390 &x u8 00 00 00 uD 40 00 uf OO uM =# ul 
391 RK (12) (11) (10) (9) (8) (7--6) (5--4) (3) (2) (1) 
392 aK 
393 *k The "(" symbol defines the first field. Any tine a new 
394 *k field is found, tokens (8) through (12) are written out. 
395 - 
396 . #4(3Dd.D2(3"Ha!", (723x),"$"4D6" ?"Ds, 3A, C(2(NZ.dE)) )K) 
397 x 5 
398 a 
399 an 30 00 ud OO uM u8 OO 00 00 uD 40 © uD 00 ull 
400 - (17--16)(15--14) (13) (12) (11) (10) (9) (8) (7--6) (5--4) (3) 
401 
402 - #4(3Dd.02(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(NZ. dE) ) )K) 
403 = 
404 ak 
405 *k This is the first output symbol in the output field, so we 
406 *k nou can identify the first field with a uNUMFn (numeric, 
407 *k with floating symbols, no sign). A backward search finds 
408 ** the delimiter token at (8); however, there are pending 
409 xk fields to be executed (for the first field, this may not 
410 xk really be true, but execution starts anyway). Therefore 
411 *k token (8) 1s replaced with a uRESTP and execution starts. 
4i2 aa ¥ 
413 aK 30 00 ud OO uM u8 OO 00 OO UR 40 00 ul OO Uff 
414 aK (17--16)(15--14) (13) (12) (11) (10) (9) (8) (7--6) (5--4) (3) 
415 ak 
416 xx The execution routine writes several storage fields below 
417 ** token (17), adjusts AvMenEnd to protect then, sends out a 
418 *k pIMXOT poll, and then executes the pending tokens. Token 
419 *k (3) causes the loop counter in (?--6) to be decrenented, 
420 tk and replaces (5) with a uOPNM- token to indicate that the 
421 ** loop counter has been decrenented: 
422 ae V V 
423 ee 3% © ud OC uN u8 00 OO 00 UR W OO ud OO ul 
424 (17--16)(15--14) (13) (12) (11) (10) (9) (8) (7--6) (5--4)(3) 
425 * 
426 *k In all, tokens (1) through (8) are executed; tohen (8) 
427 ** causes the parse routines to be invoked again, starting at 
428 %* the last token which was parsed, the "BD". The execution 


429 k* anchor 1s set at token (8), the location where execution 
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4H” ** will start again. 
431 ak 
432 ae #4(3Dd.02(3"Ha!", (723x),"$"4D6" ?"Ds, 3A, C(2(NZ.dE)) )K) 
433 am - 
434 ax 
435 t* Again, this is the first output character in an output 
436 tk field, so we back up through the tokens and re-write (8) 
437 Ke with: 
438 am ¥ 
439 ak % OO ud OO uM u8 OO OO OO UF W 00 uf 00 ul 
440 ae (17--16)(15--14 (13) (12) (11) (10) (9) (8) (7--6)(5--4) (3) 
441 bx 
442 tk Simultaneously, the multiplier at (13) 1s identified to be 
443 kk associated with the "D", so the reference counter is filled 
444 tk in, and the "D" is written out with a token to define the 
445 tk loop: 
446 aia v 
447 ae vB =D ®H WOW WH OC uh us CO OW CW uf WH W ul 
448 ae (19) (18) (17--16)(15--14) (13) (12) (11) (10) (9) (8) (7--6) (5- 
449 ax 
450 kk #4(3Dd.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(NZ.dE)) )K) 
451 ae . 
452 ae 
453 kk A lower case synbol is always converted to uppercase: 
454 kx 
455 ak =D uB =D ® OO W OO uh us 00 W WuF W 
456 ke (20) (19)(18)(17--16) (15--14) (13) (12) (11) (10) (9) (8) (7-- 
457 ax 
458 kh #4(3D0d.D2(3"Ha!", (723x),""$"4D6"7"Ds, 3A, C(2(NZ.dE)))K) 
459 kx 7 
460 ke 
461 *x The radix symbol causes both 4-nibble counters (9) through 
462 ** (12) to be filled in with the number of digits before the 
463 kK radix. Also, the symbol is uritten out: 
464 an V Vv 
465 ak = =P uB =D ®W 0 BW OO uf 40 OO 40 00 uF 
466 kk (21) (20)(19)(18)(17--16) (15--14) (13) (12) (11) (10) (9) (8) 
467 ax 
468 kk #4(30d.02(3"Ha!", (723x) ,"$"4D6"?"Ds, 3A,C(2(NZ.dE)) )K) 
469 ax - 
470 ak 
471 *k Only a "D" is allowed after a radix (not "Z" or "*"), but 
472 kk in fact, a "D" after the radix acts like a "Z". That is, 
473 ** any leading zeroes in a fraction ARE displayed. So this 
474 ** symbol is uritten out as a "2": 
475 ax 
476 ae 72 =, =D uB =D W WO W OC uh 40 0 40 0 
477 ke (22) (21) (20)(19)(18)(17--16) (19--14) (13) (12) (11) (10) (9) 
478 kk 
479 ae #4(3Dd.02(3"Ha!", (723x) ,"$"406" ?"Ds, 3A, C(2(NZ.dE)) )K) 
480 kk a 
481 ax 
482 ax 20 00 uf OO uM =2 =. =D uB =D 30 0 
483 ak (27--26) ( 25--24 ) (23) (22)(21) (20) (19) (18) (17--16) (15-- 


434 ae 
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485 aX #4(3Dd.D2(3"Ha!", (723x) ,"$"4D6"?"Ds, 3A, C(2(NZ.dE)) )K) 
486 aK a 
487 am 
488 ** A deliniter means that the previous field is terninated; 
489 ** since it 1s a numeric field, the total number of digits 
4% ** wust be entered in its field delimiter. A backward search 
431 *k is initiated that finds its deliniter at (8), and the total 
492 ** nunber of digits is filled in: 

493 an Vv 

494 ae = =D uB =D WH 00 W 00 uM 60 OO 40 00 uF 
495 ae (21) (20)(19)(18)(17--16) (15--14) (13) (12) (11) (10) (9) (8) 
496 ae 

497 *k Then a new field is opened: 

498 a 

499 aK u8 © 0 00 ud 2 © ud OO uM =2 =. =D 
500 ax (32)(31)( 30) (29) (28) (27--26) (25--24 ) (23) (22) (21) (20) 
501 ak 

502 RX #4(3Dd.02(3"Ha!", (723x) ,"$"4D6"?"Ds, 3A, C(2(NZ.dE)) )K) 
503 xe = 

504 ak 

505 RS 3 © ud 0O uM uf OO ©} 00 ud 2 OO uD 
506 ax (37--36) (35--34 ) (33) (32) (31) (30) (29) (28) (27--26) (25- 
507 ae 

508 ax #4(3Dd.D2(3"Ha!", (723x) ,"$"4D6"?"Ds, 3A, C(2(NZ. dE) ) )K) 
509 ae , 

510 has 

511 xx When an irbedded literal is found, we write out a uSTRPT 
512 *k token and a 5-nibble offset uhich points to the address of 
513 ** the literal in the copied inage string. This 5-nibble 
514 xk offset is shown as "<ofs>". 

515 A 

516 Be <cofs> u§ WH OO ud OO uM us 00 © 00 UD 2 
517 - (39)( 38) (37--36) (35--34) (33) (32) (31 ) (30) (29) (28) (2?- 
518 ae 

519 ** Now the parse routines scan the inage string until the 
520 ** matching quote is found, counting the length of the 

521 *k inbedded literal (in bytes). This length 1s stored as a 
$22 ** §-nibble field shown as "<len>" (in this case, the length 
523 ** 1s 3, and would appear in RAN as "30000"). 

524 x 

525 ee ul<lend<ofs> uS ®W WW ud OO uh us CO WO W 
526 aS (41)(40) (39) (38) (37--36)(35--34) (33) (32) (31) (30) (29) 
52? me 

528 tk Sinultaneously, the multiplier at (33) 1s identified to be 
529 **k associated with the imbedded literal. A uLOOPS token 1s 
5H ek written out to define the loop, and the reference counter 
531 ** is filled in. 

532 a Vv 

533 ™ ul uJ<len><ofs> uS 30 00 BW OO uM u8— MW WO 00 
534 * (42) (41) (40) (39) (38) (37--36) (35--34) (33) (32) (31) (30) (29) 
535 z 

536 = #4(3Dd.D2(3"Ha!", (723x),"$"4D6"7"Ds, 3A, C(2(NZ.dE)) kK) 
537 ee a 

538 ae 


539 kk The conria is a new deliniter: 
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540 &k 
541 ES u8 © © © uD ulLullen<ofs> US WH 0O WH W 
542 as (47 )(46)(45) (44) (43) (42}(41) (40)(39) (38) (37--36) (35--34) 
543 ik 
544 aK #4( 3Dd.02(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(MZ.dE)) )K) 
545 ik A 
546 ke 
547 ** The left parenthesis is also a neu delimiter. But a check 
548 kx is made to see 1f a deliniter has just been opened, in 
549 ** order to save RAN. Since this is the case, the BIdING 
550 *% pointer 1s backed up 5 bytes, to (42), so that the new 
551 Xk field will overwrite the one already opened. 
552 ax 
553 aR ul ul<len<ofs> US WH WO HW W 
554 am (42) (41) (40)(39) (38) (37--36) (35--34) 
555 ak 
556 *k Before opening a new field, a left parenthesis without a 
557 *k wultiplier has to be identified so that the closing 
558 ** parenthesis can be matched later: 
559 am 
560 a u8 00 00 00 uD ull ul ul<len><ofs> uS WH WO W 
561 ae (48) (47) (46) (45) (44) (43) (42) (41) (40) (39) (38) (37--36) (35- 
562 ax 
563 ax #4(30d.02(3"Ha!", (723x) ,"$"4D6"?"Ds, 3A, C(2(NZ.dE)) )K) 
564 kk a 
565 kk 
566 kk The entire multiplier is scanned, to fill in the multiplier 
567 xk counter (renenber the convention of writing multipliers 
568 **k  backuards ): 
569 a 
570 ak 32. 70 ud OO uM u8 OC ©} OO uD uh ul ul<len> 
571 xR (53--52)(51--50)(49) (48) (47)(46) (45) (44) (43) (42)(41) (40) 
572 an 
573 ig #4(30d.02(3"Ha!", (723x),"$"406" ?"Ds, 3A, C(2(M2.dE)))K) 
574 ak = 
575 ee 
576 kk The "X" also closes the multiplier at (49). 
577 of VOY 
578 x uB =X 32 70 32 70 uM u& © OO O© ud uW ul 
579 ne (55 )(54)(53--52) (51--50) (49) (48) (47) (46) (45) (44) (43) (42) 
580 at 
581 ax #4( 30d. D2(3"Ha!", (723x) ,"$"4D6" ?"Ds, 3A, C(2(NZ.dE)) )K) 
582 ax . 
583 a 
584 *k A closing parenthesis initiates a backward search that 
585 *k scans for the nearest open left parenthesis; in this case, 
586 kk it is at token (43). Since this parentheses field does not 
587 kk have a multiplier, (43) 1s sinply zeroed to "hide" it fron 
588 kk further backward searches. In addition, a right 
589 xk parenthesis is a new deliniter. 
590 — ¥ 
591 we uB =X 32 70 32 70 uM us 0 OO © ud OO ul 
592 ae (55 )(54)(53--52) (51--50) (49) (48) (47) (46) (45) (44) (43) (42) 
593 am 


594 a u8 OO 0 OO uD uB =X 32 70 32 7 uN us © 
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595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
61? 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 


643 
644 
645 
646 
64? 
648 
649 


xx 
ak 
xx 
xx 
xx 
ax 
xx 
ax 
ax 
xx 
ax 
xx 
ax 
xn 
Kk 
ax 
xx 
ak 
aK 
xx 
xx 
ak 
xx 
Kx 
wk 
Kx 
an 
xx 
x 
xx 
ak 
xx 
wk 
xk 
xk 
wx 
xx 
ax 
xk 
ae 
xx 
x 
wk 
aX 
ak 
aR 
ax 
ak 
a 
aX 
xk 
xx 
xk 
x 
xx 
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(60 (59) (58) (57) (56) (55) (54) (53--52) (51--50) (49) (48) (47) 
H4(3Dd.D2(3"Hal", (723x),"$"4D6" "Ds, 3A, C(2 (MZ. dE )) )K) 


The conma is a new deliniter, but, again, it is detected 
that a delimiter has just been opened; in order to save 
sone RAN, the BldING pointer is backed up to (55) so that 
the 5 bytes sinply overwrite the present ones: 
VV VOW OY 
u8 0 © OO uD uB =X 32 70 32 70 uM us 00 
(60 }(59)(58)(57) (56) (55) (54) (53--52) (51--50) (49) (48) (47) 


#4(3Dd.02(3"Ha!", (723x),"$"4D6" 2"Ds, 3A, C(2(N2.dE)) )K) 


Write out length and offset to imbedded literal "$": 


uJ<len><ofs> uS u& 00 © OO ud uB =X 32 W 32 
(64) (63)(62)(61) (60) (59) (58) (57)(56) (55) (54) (§3--52) (51- 


#4(3D0d.D2(3"Ha!", (723x),"$"406" ?"Ds, 3A, C(2(M2Z.dE)))K) 


40 OO ud & uM ul<len><ofs> uS u8 0 0 OW uD 
(69--68)(67--66) (65) (64 (63) (62)(61) (60 )(59) (58) (57) (56) 


#4( 30d. 02(3"Ha!", (723x),"$"406" ?"Ds, 3A, C(2(NZ.dE)))K) 


Finally, we find the first output syribol for an output 
field. This causes a backward search to the pending 
delimiter at (56). Since there are pending output fields 
which need to be executed, (56) 15 overwritten with a 
URESTP token, and execution begins: 
V 
40 © ud OO uM ul<len><ofs> uS uf © OO OO UR 
(69--68)(67--66) (65) (64) (63) (62)(61) (60) (59) (58) (57) (56) 


The execution routine irites several storage fields below 
token (69), adjusts AvMenEnd to protect then, sends out a 
pINXQT poll, and then executes the pending tokens. Tokens 
(8) through (56) are executed. Token (23) causes the loop 
counter 1n (27--26) to be decrerented, and replaces (25) 
ith a uOPNMN- token to indicate that the loop counter has 
been decrenented: 
V V 
u8 00 00 © udB 10 © uQ OO uM =2 =. =D 

(32) (31) (30) (29) (28) (2?--26) (25--24) (23) (22) (21) (20) 
Token (56) causes the parse routines to be invoked again, 
starting at the last token which was parsed, the "D". The 
execution anchor is set at token (56), the location where 
execution will start again. 
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650 kh 
651 ak #4(3Dd.D2(3"Ha!", (723x), "$"406"?7"Ds, 3A,C(2(MZ.dE)) )K) 
652 a os 
653 RK 
654 kk Again, this 1s the first output synbol in an ouput field, 
655 xk so a backward search finds (56) to define the field: 
656 as V 
657 RR 40 0 ud © uf ul<len><ofs> uS uf 00 00 © uf 
658 ak (69--68)(67--66) (65) (64) (63) (62)(61)(60) (59) (58)(57)(56) 
659 xe 
660 xk Sirultaneously, the multiplier at (65) is closed, and the 
661 ** parsed synbol is written out: 
662 aE ¥ 
663 ax uB =D 40 0 40 OO uM ul<len><ofs> uS us OO © 
664 aR (71) (70) (69--68) (67--66) (65) (64) (63) (62) (61) (60 )(59)(58) 
665 aR 
666 aE #4(30d.02(3"Ha!", (723x),"$"4D6"7"Ds, 38, C(2(MZ.dE)) )K) 
667 ak ‘ 
668 ae 
669 aR 60 0 ud OO uN uB =D 40 OO 40 00 uf ul<len> 
670 ae (76--75) (74--73)(72)(71) (70) (69--68) (67--66 ) (65) (64)(63) 
671 aK 
672 xe #4(30d.D2(3"Ha!", (723x),"$"4D6"7"Ds, 3A, C(2(NZ.dE)) )K) 
673 ak 7 
674 ak 
675 *k Write out offset and length for "?" literal, close 
676 xx multiplier at (72): 
677 ax v 
678 ak ul uJ<len><ofs> uS 60 00 60 OO uM uB =D 40 © 
679 = (81) (80) (79)(78)(77)(76--75) (74--73) (72) (71) (70) (69--68) 
680 ak 
681 x #4(30d.D2(3"Ha!", (723x),"$"406"?"Ds, 3A,C(2(MZ.dE)) )K) 
682 xs m 
683 = 
684 an =D ul ul<len><ofs> uS 60 00 60 © uN uB =0 40 
685 - (82)(81)(80)(79)(78) (77) ( 76--75) (74--73) (72) (71) (70) (69- 
686 x 
687 ax #4(3Dd.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3A,C(2(MZ.dE)) )K) 
688 aa - 
689 xe 
690 xt The sign synbol changes the type of field to uNUMFs 
691 *& (nuneric uith floating symbols, with sign). A backward 
692 ** search changes the deliniter token at (56): 
693 at ¥ 
694 a 40 40 0 uM uJ<len><ofs> uS u8 00 00 OO ub 
695 aA (69.-68)(67--66)(6E)(64)(€3)(62) (61) (60) (58) (58)(57)(56) 
696 = 
697 xk find the '"S" is placed in the token strean: 
698 = 
699 ie =§ =D ul ul<leno<ofs> uS 60 00 6 00 uM uB =D 
700 me (83) (82) (81) (80) (79) (78) (77) (76--75) (74--73) (72) (71)( 70) 
701 ne 
702 = 


703 ne #4(30d.02(3"Ha!", (723x),""$"4D6"7"Ds, 3A,C(2(NZ.dE}) )K) 
x nw 
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705 
706 
707 
208 
709 
710 
711 
712 
7143 
714 
715 
716 
71? 
718 
719 
720 
721 
722 
723 
724 
725 
726 
72? 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
74? 
748 
749 
750 
751 
782 
153 
754 
755 
756 
757 
758 
759 


ax 
ax 
xk 
ak 
ak 
ax 
ak 
ax 
xx 
xx 
ak 
ax 
ak 
xk 
ax 
ak 
xk 
xk 
ak 
xx 
xx 
ak 
xx 
ak 
ae 
ak 
xk 
xk 
xx 
xk 
ak 
ax 
ax 
xx 
ak 
xn 
ak 
xh 
an 
ak 
ax 
an 
ak 
ae 
xk 
a 
ak 
ax 
ak 
xk 
ax 
ak 
xk 
a 
ax 
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This cornrna closes the nurieric field. & backward search 1s 
initiated to find the deliniter at (56) to fill in the 
total number of digits: 
V Vy 
40 00 40 00 uM ul<len><ofs> uS 50 0 50 WW ub 
(69--68) (67--66)(65) (64) (63) (62)(61)( 60) (59) (58)(57)(56) 


The deliniter also opens a new field: 


u8 00 00 OO uD =S =D ul uJ<len><ofs> uS 60 © 
(88) (87) (86) (85) (84 ) (83) (82) (81) (80) (79) (78) (77) (76-- 75) 


#4(3Dd.02(3"Ha!", (723x),"$"4D6"?"Ds, 3A,C(2(MZ.dE)) )K) 


3% © uw0 OO uM u8 00 OO OO ud =S =D ul uJ 
(93--92) (91--90) (89) (88) (87) (86) (85) (84) (83) (82) (81) (80) 


#4 (3Dd.02(3"Ha!", (723x),"$"4D6"7"Ds, 3A,C(2(MZ.dE)) )K) 


The "A is the first output syrbol in an output field, so a 
backward search is initiated to find the pending delimiter 
at (84). Since there are pending fields to execute, (84) 
is replaced uith a uRESPT token, and execution begins: 
¥ 
30 00 ud OO uM u8 00 O& OO UR =S =D ul uJ 
(93--92) (91--90) (89) (88) (87) (86) (85) (84) (83) (82) (81 )(80) 


The execution routine writes several storage fields below 
token (93), adjusts AvMernEnd to protect then, sends out a 
pIMNXQT poll, and then executes the pending tokens. Tokens 
(56) through (84) are executed; token (34) causes the parse 
routines to be invoked again, starting at the last token 
which was parsed, the "A". The execution anchor is set at 
token (84), the location where execution will start again. 


#4(3Dd.02(3"Ha!", (723x),"$"4D6"7"Ds, 3A,C(2(NZ. dE) ) )K) 


As the first output syrnbol in an output field, the "A" 
causes a backward search to fill in the deliniter token at 
(84): 
Vv 
30 00 uD OC uM u& OO OO OO UR =S =D Ul UJ 
(93--92)(91--90)(89)(88) (87) (86) (85) (84) (83) (82)(81)( 80) 


Sirnultaneously, the nultaplier at (89) 1s closed, and the 
parsed symbol 1s written out: 
V 
uB =F © 0 30 OO uM us’ OO W OO UA =S =D 
(95) (94) (93--92)(91--90) (89) (88)(87) (86) (85) (84 )(83)(82) 


#4(3Dd.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3A,C(2(MZ. dE) ) )K) 


Saturn Asserbler 
Ver. 3.39/Rev. 236 


760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
78? 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
738 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
803 
810 
811 
812 
813 
814 


xk 
ak 
ak 
ak 
ah 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
ak 
xk 
xk 
xk 
ak 
ak 
ak 
xk 
xk 
xx 
ak 
xk 
ak 
xk 
xk 
xk 
xk 
xk 
ak 
ak 
ax 
xk 
ak 
ak 
xk 
xk 
xk 
ax 
xk 
ak 
ak 
xk 
ax 
ak 
ak 
ak 
xk 
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The delimiter closes the current field, causing the synbol 
counters at (88) and (86) to be filled (this is done for 
string fields, as well as nuneric fields; 1t doesn’t hurt, 
and might be handy for sone applications). 
V V 
uB =A HD CO WH WW uh WM WC W OO uA =$ =D 
(95) (94) (93--92)(91--90) (89) (88) (87) (86) (85) (84) (83) (82) 


The comma also opens a neu field: 


u8& 0 © OO ud uB -—A HW OO W WC ut WH WO 
(100) (99) (98) (97) (96) (95) (94) (93--92)(91--90) (83) (88)(87) 


#4(3D0d.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3R,C(2(NZ. dE) ) )K) 


This is an unrecognized symbol (cannot start a field). 
First, the parse routine assunes a new deliniter has been 
found; but in doing so, it finds that a delimiter has just 
been opened anyway. So the BIdING pointer is noved back 5 
bytes to (95), to save RAN. 


ub =A HW WO WH W ut WH W HW W 
(95) (94) (93--92) (91--90) (89) (88) (87) (86)(85) 


Now, any unrecognized symbol causes a pINCHR poll. The 
MATH ROM, af present, will recognize "C(" as the first 
synbol 1n an output field, and will insert the following 
tokens: 


uR uC 0O uB =R HW © WH WC uh WH WO HW W 
(98) (97}(96)(95) (94) (93--92)(91--90) (89) (88) (87) (86) (85) 


Token (96) is a flag that says (in this case=00) "the 
complex field does not have a multiplier". If it did have 
a nultaiplier, the value of this byte would be nonzero 
(=01). 


The MATH ROM causes IMAGE execution to start on the pending 
fields. 


The execution routine writes several storage fields below 
token (98), adjusts AvMenEnd to protect then, sends out a 
pIMXQT poll, and then executes the pending tokens. Tokens 
(84) through (98) are executed; token (98) causes the parse 
routines to be invoked again, starting at the last token 
uhich was parsed, the "C". The execution anchor is set at 
token (98), the location where execution will start again. 


#4(3Dd.D2(3"Ha!", (723x),"“$"4D6" ?"Ds, 3A, C(2(NZ.dE)) )K) 


Again, the unrecognized character causes a pINCHR poll. 
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815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
8514 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 


ak 
aK 
aK 
ak 
xk 
ak 
ax 
ak 
ak 
xk 
xx 
xk 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
xx 
a 
kk 
xx 
ax 
xk 
xx 
kk 
kk 
ak 
aK 
aK 
aK 
xx 
aK 
xk 
ak 
ax 
ak 
kk 
ak 
ak 
ak 
aX 
ax 
xk 
ae 
an 
xk 
+k 
ak 
ak 
a 
ak 
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The MATH ROM, this tine, seeing that it has already 
intercepted this poll once (tokens (96)-(98) wouldn’t be 
there otherwise), changes the tokens as follous: 
Vv 
uk uC 00 uB =A WH WW W WC uh WH WO W W 
(98) (97) (96) (95) (94) (93--92) (91 --90) (89) (88) (87) (86)(85) 


Token (98) will cause a poll during backward search when 
the closing conplex parenthesis is found. After handling 
this pINCHR poll, the MATH ROM causes the inage parser to 
open a new field, and keep parsing as usual. 


ug 00 00 OO uD uK ul OO uB =A 30 WW W 
(103) (102) (101) (100) (99) (98) (97) (96) (95) (94) (93--92)(91- 


#4(3D0d.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(MZ.dE)) )K) 


20 © ud OO wt uw& OO OO OW uD UK 
(108--107) (106--105) (104) (103) (102) (101 ) (100) (99) (98) 


#4( 3Dd.D2(3"Ha!", (723x),"$"4D6" ?"Ds, 3A, C(2(N2. dE) ) )K) 


u& OO OO 06 juwd 2 OW ud OO uh U8 
(143) (4112) (111) (110) (109) (108--107) (106--105 ) (104 ) (103) 


#4(3Dd.D2(3"Ha!", (723x),"$"4D6"2"Ds, 3A, C(2(MZ. dE) ) )K) 


This igs a leading sign synbol, and does not cause the field 
deliniter to be adjusted (only a "D", "Z" or "*" can do 
that). 


=H u& 0 OO OO juuwd @ OO uw OW uf 
(114) (193) (112) (111) (110) (109) (108--107 ) (106--105) (104) 


#4(3Dd.02(3"Ha!", (723x),"$"4D6" ?"Ds, 3A, C(2(MZ. dE) ) )K) 


This 1s the first output character in an output field. It 
initiates a backward search for the field delimiter at 
(109). Initializing this field causes a pINcpi poll (since 
the MATH ROM had set S7=1 earlier; it wants to know when a 
nuneric field is initialized inside a complex field). The 
NATH ROM checks to make sure that no nore than 2 numeric 
fields have heen specified, and also clears the status bit 
($320) to inhibit execution of the pending fields; the 
conplex field nust be conpletely closed before this 1s 
allowed. So the backward search merely re-writes token 
(109), and continues parsing: 
Vv 
=Z =M us 0 OO OO wywW 2@ OW ud 
(115) (194) (413) (41123 (111) (110) (109) (108--107) (106--105) 
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870 t% 44(3D0d.D2(3"Ha!", (723x),"$"4D6"?7"Ds, 3A, C(2(82.dE)))K) 
871 ak 7 
872 ax 
$73 kx The radix, initiatiing a backward search, causes the 
874 ** counter fields to be filled in with the number of digits 
875 *k before the radix: 

876 ak v y 

877 aK = =2 =%# 10 © 10 0 uw 2@® W u 
878 ak (116) (495) (114 3113) (992) (111) (110) (109) (108--107) (106- 
873 ae 

880 ax 

881 ma #4(3Dd.D2(3"Ha!", (723x),"$"4D6"7"Ds, 3A, C(2(NZ.dE)))K) 
882 ax 7 

883 ak 

884 kk Reneriber, a "D' after a radix behaves like a "2": 

885 ax 

886 ax =Z = 620 MH O10 CCDs H—S saa DO 
887 ak (117) (116)(115 (114) (113) (112) (111) (110) (103) (108--107) 
888 a 

889 x #4(3Dd.D2(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(NZ.dE)) )K) 
890 ax o 

891 ak 

892 *k The "E" signals the end of digit symbols, so it initiates a 
893 *x backward search to fill in the total nurber of digits in 
894 xk the field. It also changes the type of field to uNUMEs 
895 xk (nurneric, with exponent, with sign): 

896 ae V ¥ 

897 ie =2 =, =2 =f 20 © 10 © ul © W 
898 m (117)(116) (118) (194) (9113) (112) (111) (110) (109) (108--107) 
899 ax 

900 xk And an "E" causes digit output as if the symbols “ES$222" 
901 xk were being executed: 

902 ax 

903 ae =2 =2 =Z =S =E =Z2 =. 2 MH 2®0 © 
904 ies (122) (121) (120) (919) (4118) (117) (116) (4118) (114) (113) (112) 
995 ax 

906 a #4(3Dd.02(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(N2.dE)))K) 
907 ik A 

908 ak 

99 *x* The closing parenthesis causes a backward search to find 
910 xx the nearest open parenthesis, which is at (106). (106) is 
911 *k closed by copying the loop counter at (108--107). A 

912 *k 5-nibble offset to the location of the left parenthesis, 
913 ** shown as "<ptro", is uritten to the token strean. 

914 RK ¥ 

915 ak =Z = 20 © 10 © ut © © 4 W 
916 ax (115)(114)(113) (412) (4111) (110) (109) (108--107) (106--105) 
917 ak 

918 ae uS<ptr> uP =Z =Z2 =Z =S =E =Z2 = 22 
919 ak (125) (124) (123) (122) (121) (120) (119) (418) (117) (116) (115) 
920 ax 

921 xk The right parenthesis is also a deliniter, so a new field 
922 **k is opened: 

923 ax 


924 ae u& © OO OO ud uSptr> uP =Z =Z =2 
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925 7 (130)(129) (428) (427) (126) (125) (124) (423) (122) (121) (120) 
926 x 
927 a #4(3Dd.02(3"Ha!", (723x) ,"$"4D6"?7"Ds, 3A,C(2(NZ.dE}) )K) 
928 - 

929 aX 
9H ** Since no new characters are written out here, the inage 
931 ** parser assunes a new field is to open. But it checks and 
932 *k finds that a neu field has already been opened; to save RAN 
933 - it backs up the BIdING pointer 5 bytes to (125). 
934 
935 Re u¥<ptr> uP =2 =2 =2 
936 a (125) (124) (123) (122) (121)(120) 
937 ak 
938 xk This new right parenthesis is to close the conplex field. 
939 kk The backward search mill find the ulMbck token at (98), and 
940 kK poll (pIMbck). The MATH ROM verifies that 2, and only 2, 
941 *k numeric fields were included, checks if the conplex field 
942 ** has a multiplier (if so, it writes out fields sinilar to 
943 **  (123)-(125)), and changes the tokens as follows: 
944 ax v 
945 0 2 OO uM us 00 © OO uD uX uC OO 
946 ax -107) (106--105) (104) (103) (102) (101) (100) (99) (98) (97) (96) 
947 ax 
948 xk and 
949 a uX =) uSptr> uP =Z =2 =2 =$ =E 22 
950 — (127)(126) (125) (124) (123) (122) (121) (1.20) (119) (118) (117) 
951 
952 ** The uIMXCH token at (98) will cause the MATH ROM to display 
953 ek a "(" for the complex nunber, to evaluate the conplex 
954 ** expression and prepare it for formatting. The uINXCH token 
955 ** at (127) 1s used simply to display a '")" to close the 
956 *x conplex field. 
957 ak 
958 Ae #4(3Dd.02(3"Ha!", (723x),"$"4D6"?"Ds, 3A, C(2(NZ.dE)) )K) 

xx a 
961 ** This closing parenthesis rnatches the open one at token 
962 ek (25). A backward search finds the uOPNMN- token, which 
963 ** causes two actions: 1) the reference counter at (25) is 
964 xx filled in by copying the loop counter at (2?--26) and 
965 %* adding 1 (since the loop counter has been narked as being 
966 ** already decrenented), and 2) an offset pointer is entered 
967 x* in the token strean to point back to the beginning of this 
968 %* parentheses loop. 
969 ei V 
970 ale u8 © OO 00 uD 10 OO 20 OO uM =2 =. 2D 
971 . (32)(31) (30) (29) (28) (27--26) (25--24} (23) (22) (21) (20) 
972 : 
973 ae uS<ptr> uP uX =) uS<ptr> uP =2 =2 = 
974 ia (130) (129) (128) (127) (126) (125) (124) (123) (122) (121) (120) 
975 ee 
976 ** In addition, the parenthesis is a deliniter, so a new field 
977 %* 1s opened: 
978 a 


979 a u8 OO OO OO ud u%ptr> uP uX =) ud 
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980 (135)( 134) (133) (132) (131) (130) (129) (128) (127) (126) (125) 
981 
982 #4(3Dd.D2(3"Hal", (723x) ,"$"4D6" "Ds, 3A, C(2 (MZ. dE) ) )K) 
ue Xs 
985 ** The "K" is the first output symbol in an output field, so a 
986 *k backward search is initiated to find the pending deliniter 
987 xk at (131). Since there are pending fields to execute, (131) 
988 *k ys replaced with a uRESPT token, and execution begins: 

989 es Vv 
3990 aR u& 00 © OO uR u%Xptr> uP uX =) ud 
991 z (4135) (134) (133) (132) (131) (130) (129) (128) (127) (126) (125) 
992 
933 *x The execution routine writes several storage fields below 
994 *k token (135), adjusts AvMenEnd to protect ther, sends out a 
995 ** pINXQT poll, and then executes the pending tokens. Tokens 
996 xx (98) through (135) are executed; token (135) causes the 
997 **k parse routines to be invoked again, starting at the last 
998 ** token which was parsed, the "K". The execution anchor is 
999 kk set at token (135), the location where execution will start 
1000 x again. 
1001 ae 
1002 7 #4( 30d. D2(3"Ha!", (723x),"8"4D6" "Ds, 3A, C(2 (MZ. dE) ))K) 
= 
1005 *k Again, this is the first output symbol in an output field, 
1006 ** so a backward search finds token (131) and replaces it with 
1007 ** uHKB*. The parsed symbol is also uritten out. 
1008 7 V 
1009 ae =K uf OO 00 OO uH u%Xptr> uP uX =) 
1010 He (136)(135) (134) (133) (132) (131) (190) (429) (128) (127) (126) 
1011 
1012 - #4( 30d. D2(3"Ha!l", (723x),"$"4D6"?"Ds, 3A, C(2(MZ.dE)))K) 
1013 4 
1014 ak 
1015 xx This closing parenthesis matches the open one at token (5). 
1016 kk A backward search finds the uOPNN- token, which causes two 
1017 xx actions: 1) the reference counter at (5) 1s filled in by 
1018 *k copying the loop counter at (7--6) and adding 1 (since the 
1019 **k loop counter has been marked as being already decrenented), 
1020 ** and 2) an offset pointer 1s entered in the token strean to 
1021 *k point back to the beginning of this parentheses loop. 
1022 ak Vv 
1023 phe ®H 0 30 OC uM 40 00 40 00 uF 3 00 40 00 uN 
1024 7 (17--16)(15--14)(13) (12) (11) (10) (9) (8)(?--6)(5--4)(3) 
1025 
1026 ax uXptr> uP =K u& OO OO OO uH uXptr> 
1027 ne (139)(138)(137)(136) (135) (134) (133) (132)(131) (130) (129) 
1028 
1029 *k In addition, the parenthesis is a delimiter, so a new field 
1030 ** is opened: 
1031 xe 
1032 xx ub 0 © 00 ud u%ptr> uP =K u8 00 
1033 ak (144)(143) (142) (1419(140) (139) (138) (137) (136) (135) (134) 


1034 xe 
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1035 xx #4( 30d. D2(3"Ha!", (723x) ,"$"4D6" ?"Ds, 3A, C(2(MZ.dE)))K) 
1036 al = 
1037 wk 
1038 xk The parse pointer now points to the ulMend byte (placed 
1039 *k there before parsing began). Since no new symbols are 
1040 xx iritten out, the parser assumes a new field is about to 
1041 xx start. But it checks and finds that a new field was just 
1042 kk opened, so the BIdING pointer is backed up 5 bytes to 
1043 xe (139). 

1044 aK ud<ptr> uP =K u8 00 
1045 KK (139) (138) (137) (136) (135) (134) 
1046 ak 

1047 ** Parsing the uIMend byte simply causes the ulMend token to 
1048 xk be placed in the BIdING strean. It also initiates a 

1049 *k backward search, looking for an open parenthesis. In this 
1050 **k case, there are none; finding the ulMsta token at (1) 

1051 *k signals that there are no unnatched parentheses. 

1052 xx 

1053 an u$ u%<ptr> uP =K u& 00 
1054 KK (140) (139) (138) (137) (136) (135)(134) 
1055 ak 

1056 ** Execution then begins as usual. The execution routine 
1057 *x writes several storage fields below token (140), adjusts 
1058 kk AvMenEnd to protect then, sends out a pIMXQT poll, and then 
1059 ** executes the pending tokens. Tokens (135) through (140) 
1060 ** are executed; token (140) causes the execution routines to 
1061 xk test for the end-of-output list. 

1062 ax 

1063 xk If at end-of-output, the statement is over; before exiting 
1064 xk to NXTSTM the BldING pointer is positioned to the second 
1065 ** token in the strean to test for an ASCII "#". The presence 
1066 *k of this synbol suppresses a CR-LF. 

1067 ae 

1068 x If there are more output itens, the BIdING strean is 

1069 *k recycled (the execution anchor 1s moved back to token (1)), 
1070 *x and the tokens are executed for the reriaining output itens. 
1071 *k The parse routines 4111 not be invoked again, since no 

1072 xx URESTP token will be encountered. 

1073 a 


1074 FOO JUTE TOT TTI IK 
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1075 
1076 FORO RRR JRO TTI TTI 
1077 FOO JOO TOI OO JOO TOTO TOTO OR TTI 
1078 ah 
1079 - Narie:(S) pINCHR - Poll for unrecognized IMAGE char 
1080 x 
1081 **& Category: POLL 
1082 aK 
1083 x Type: FPOLL 
1084 kh 
1085 ** Purpose: 
1086 % To alert LEX files that an unrecognized character was 
1087 ak found while parsing an IMAGE string. If a LEX file 
1088 - doesn’t handle it, "Invalid IMAGE" error will result. 
1089 
10% *k Should poll be “Handled" (return with XMN=0)?: 
1091 aR Yes. 
1092 a 
1093 *k Meaning of “Handling” Poll (what does code do if handled?): 
1094 a Unrecognized character was accepted, IMAGE token 
1095 ay strean uas adjusted (if necessary) to process 
1096 a the character at execution. 
1097 ak 
1098 ** Entry conditions for handler (registers, ST, RAN, etc. ): 
1093 kh Carry set (fast poll) 
1100 ak B[A} = Poll nunber. 
1101 x HEX node. 
1102 a P=0. 
1103 aE RO(A)=points to current position in BIdING token 
1104 aR strean. If any tokens are to be appended to 
1105 ae the strean, they should be added below this 
1106 ax point. Pointer goes to D1, usually. 
1107 ax RO(9-5)=execution pointer. Next tine execution of 
1108 xx an IMAGE field starts, it will start here. 
1109 a R1(A)=address of unrecognized character which 
1110 ae caused the poll. Pointer goes to DO, usually. 
1111 xn R1(9-5)=length of IMAGE string (in nibbles) 
1112 ae R1(S)=counter for coriplex numeric fields 
1113 nS R2(A)=counter for digits in nuneric field (also 
1114 ae for A’s in a literal field, but this counter 
1115 a7 is not used). 
1116 xe R3(A)=Program Counter (DO at entry of USING routine) 
1117 ex R3(9-5)=address of start of IMAGE string. 
1118 me See USING routine header for explanation of status 
1119 zx bits. 
1120 x 
1121 *k Normal exit conditions fron handler if handled (ST, RAM, 
1122 ** registers, etc.): 
1123 at HEX rode. 
1124 aR XM=0. 
1125 a Di=points to current positon in BldING token 
1126 xk strear. If tokens have been added, D1 must 
1127 aa have been noved; if not, D1 nust have been 
1128 a set to the address in RO(A). 


1129 aK D(A)= AvMenSt 
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1130 xx R1(A)=address of next parse character in IMAGE string. 
1131 aa This pointer should be roved past the character 
1132 aR which caused the poll. 

1133 a P is used to jump (see NOTE) 

1134 a P =O: jump to Nxtfld 

1135 ae 1: jump to CkDln+ (S3 rust=1) 

1136 AK 2: jurp to INGxq!1 

1137 xR Other fields in R registers should be untouched, 
1138 KK unless the poll handler has specific reasons 
1139 “ to change then. 

1140 ax Status bits should be untouched, unless the poll 
1141 xx handler has specific reasons to change then. 
1142 ak 

1143 ** Normal exit conditions from handler if not handled (ST, RAN, 
1144 ** registers, etc.): 

1145 ak Carry clear (POLL only). 

1146 xR HEX mode. 

1147 xk XNM=1. 

1148 a R registers untouched. 

1149 aR (If not handled by any LEX file, IMAGE routines issue 
1150 xk an "Invalid IMAGE" error. ) 

1151 ak 

1152 ** Available subroutine levels: 

1153 ae 5 

1154 ae 

1155 xk NOTE: 

1156 = IMAGE parsing and execution are very involved. 
1157 ak Study the USING routine header and pINbck, pIMcpi, 
1158 aR pIMXCH and pINXQT poll docunentation to learn 
1159 ae nore about the process. The USING routine header 
1160 am describes the meaning and values of the IMAGE 
1161 oi tokens. 

1162 = 

1163 ae The IMAGE string and BldING token strean 1s kept 
1164 as in avatlable nerory, below AvMenEnd. The BIdING 
1165 wn token strean 1s built backwards (toward address 0) 
1166 a fron the boundary of the IMAGE string: 

1167 7 

1168 aA BldING tokens IMAGE string AvMenEnd 
1169 KR wa enn en ne nnn ener nn ren rrr nr nn ernest scr ecerce 
1170 ae | | ? | 

1171 RR tenn ne nen ne rn cnn nnn nr tn rennet sre n rcs nersrns 
1172 aS “ ° 

1173 xe | | unrecognized char 
1174 ise pointer in RO(A) pointer in R1(A) 

1175 a 

1176 a Just because a character was encountered that your 
117? RX LEX file will accept, don’t accept it blindly. 
1178 a For instance, don’t accept a digit specifier ina 
1179 a literal field. For cases like this, you have to 
1180 ae back up through the BIdING tokens to the field 
1181 ae deliniter to see uhat type of field is being 

1182 < processed. If the syntax of the new character 
1183 ae doesn’t meet your requirenents, let the poll go 


1184 aR on wath XM=1 ("not handled"). 
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1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1214 
1212 
1213 
1214 
1215 
1216 
121? 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
122? 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 


xk 
ak 
ak 
ak 
ak 
ak 
ak 
xk 
ae 
an 
ak 
aK 
ak 
xx 
Kk 
ak 
xk 
ak 
kx 
xk 
ak 
xk 
ak 
ak 
xk 
ak 
ak 
kk 
xk 
ax 
ak 
ak 
ak 
xk 
xk 
xk 
ak 
ak 
xx 
ak 
xk 
xk 
ak 
ak 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
xk 
xk 
ak 
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Any strange characters put into the BldING strean 
by a poll handler which require special processing 
should be preceded by a uIMXCH token to alert the 
IMAGE execution routines that the poll handler will 
execute 1t. Similarly, any strange characters 
which will adversely affect the backward searching 
during parse should be “protected” by a uJMPst token 
(uhich jumps over 14 nibbles), or a ulMbck token 
(which causes a pIMbck poll so that the poll handler 
can do the backup). Backward searching during parse 
1s perforned for two reasons: 
1) to search for an open parenthesis (either to 
match a closing paren, or at the end of the 
INAGE string to verify no unmatched parens). 
2) to search for deliniter (to initialize an out- 
put field, or to fill in the nuriber of digits 
in a nuneric field). 


See the pIMbck poll docurentation for appropriate 
use of the ulMbck token. See the pINXCH poll docu- 
nentation for exanples of "protecting" the tokens. 


Upon return fron the pIMNCHR poll, the poll handler 
can select three locations to junp to: 

Nxtfld -- This routine intializes a new field, 
and will accept only the nornal start-of- 
field characters (such as D,X,Z,A,S,etc.) 
If a normal start-of-field character is not 
found, another pINCHR poll will be issued. 
Nxtfld should be used if the unrecognized 
character is, say, a new type of digit 
specifier, a new editing symbol, or a new 
delimiter. However, if the new character 
initiates an output field, you should junp 
to INGxq!. 

CkDln+ -- This routine checks for editing 
characters, then accepts only a standard 
deliniter (conna,"/","@",etc.). If a 
deliniter is not found, another pIMCHR poll 
will be issued. In order to jump to CkDln+, 
$3 must be set=1 ! CkD1n+ should be used 
if the unrecognized character, say, ternin- 
ates a field, or describes an entire non- 
output field (such as a neu symbol which 
sounds the beeper). 

IMNGxq1 -- This routine executes all pending 
IMAGE fields. This should be done any tine 
a new output field is initiated. If the 
unrecognized character initiates a new out- 
put field, a uRESTP (restart IMAGE parse) 
token should be written into the BldING 
strean, and execution begun by junping to 
IMGxq1. A good exanple is the conplex 
field, which intercepts the pIMNCHR poll 
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1240 ak and causes a junp to IMGxq! upon return. 
1241 ak 
1242 ** What registers/RAN nay be used if handled?: 
1243 RK A,B,C,D,D0,D1,P 
1244 RK R registers only to adjust values for specific reasons 
1245 &K 
1246 ** What registers/RAN ray be used if not handled?: 
1247 ai A,B,C, D[15-5}, DO, DI, P 
1248 ae Don’t change AVNEME pointer, or write to available 
1243 a nenory below AvMenEnd. 
1250 aK 
1251 *& Special menory/pointer considerations (are pointers funny?): 
1252 a The IMAGE string is stored just below AvMenEnd. The 
1253 RK BldIMG token strean is stored below that. All this 
1254 aK resides in available nernory, so it is volatile (in the 
1255 ak sense that soneone can inadvertantly urite over it, if 
1256 kx they aren’t careful). 
1257 aK 
1258 *k Envisioned application(s): 
1259 ax Well.... 
1260 aK 1) Complex IMAGE fields 
1261 aK 2) A synbol which causes a one-tirie parsing of 
1262 kn the IMAGE string (and stores it in an I/O buffer) 
1263 Re for subsequent execution. This would be much 
1264 aK faster than parsing it each tine. 
1265 aR 3) Allowing the "Z" symbol to generate digit output. 
1266 a 4) Specifying the "'" symbol, say, to generate a 
1267 Be beep during IMAGE execution. 
1268 ae 5) Using square brackets to allow nultiple-character 
1269 ax replication. £.g., "5({3DC)" would be equivalent 
1270 x to "3DC3DC30C3DC30C" 
1271 a 6) ... and soon... 
1272 ak 
1273 ek History: 
1274 ae 
1275 aR Date Progranner Nodification 
1276 RR anne nn tener ere errr nnn nner enn nen stent ecnercen 
1277 kk 12/08/82 MB Inplenented, docunented. 
1278 ae 
1279 JI ATT TOTII I ITE III TAS RI ITI IA IIE IIA 


1280 BRO ITO TTT TTT TIT ITIDT II ITI IT IIIT IIIT 
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1281 EJECT 
1282 JU COIS III TCT IT III SI III III IIIS III II IIIS 
1283 JO III III IIL ISAS DIS IIISDIOI SII SI SSIS 
1284 ae 
1285 ** Wane: (S) pIMbck - Backward search, IMAGE parse 
1286 ax 
1287 tk Category: POLL 
1288 kk 
1289 ** Type: FPOLL 
12% ax 
1291 ** Purpose: 
1292 ak Allow LEX files to handle unknown tokens while 
1293 1 performing backward search during IMAGE parse. 
1294 k 
1295 *& Should poll be “Handled” (return with XM=0)?: 
1296 ak Yes. 
1297 ak 
1298 kk Meaning of “Handling” Poll (what does code do if handled?): 
1299 ax Backward search over unknown tokens was perforned 
1300 ax properly. One of tuo actions was perforned: 
1301 am 1) unknown field uas closed 
1302 ax 2) unknown field was verified to be closed 
1303 ak during final parentheses natch. 
1304 ae 
1305 kk Entry conditions for handler (registers, ST, RAM, etc.): 
1306 ax Carry set. 
107 ak B[A] = Poll nunber. 
1308 aA HEX mode. 
1309 <* P=0, 
1310 ae Ri(A)=address of syrbol which caused backward 
1311 a search (either a right parenthesis, or the 

i 1312 ke end-of-inage). 

1313 ak R2(A)=address (in BIdGING strean) of the uIMbck 
1314 &K token which caused the poll. 
1315 x 
1316 ae RO(R)=current position in BIdING token strean. 
1317 aK Next token to be entered rust be written below 
1318 aA this address. 
1319 ae RO(9-5)=address to start next IMAGE execution 
1320 - R1i(9-5)=length of IMAGE string (#nibbles) 
1321 ak R1(S)=counter for 2 complex nuneric fields. 
1322 - R3(A)=Progran Counter 
1323 ak R3(9-5)=address of start of INAGE string. 
1324 ak 
1325 tk Nornal exit conditions fron handler if handled (ST, RAN, 
1326 *% registers, etc. ): 
1327 Rx HEX node. 
1328 am xH=O0. 
1329 -* D(A)=AvNenSt 
130 ae Di=current position in B1dING (taken from RO(A), 
1331 am adjusted if necessary) 
1332 ae Other R register fields unchanged 
1333 AK See NOTE below for changes to BIdING strean. 
1334 te 


1335 ** Nornal exit conditions fron handler if not handled (ST, RAN, 
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1336 ** registers, etc.): 
1337 ax HEX node. 
1338 ae KN=1. 
1339 Bs R registers untouched. 
1340 a B1dING token strean untouched. 
1341 z If not handled by any LEX file, IMAGE routines will 
1342 ak issued an "Invalid IMAGE" error. 
1343 ae 
1344 ** Available subroutine levels: 
1345 as 
1346 ak 
1347 ** NOTE: 
1348 a The pIMbck poll is issued only when a ulMbck token 
1343 aX is encountered during backward search in IMAGE parse. 
1350 kK The only way a ulMbck token could have been entered 
1351 ak into the token strean is for a LEX file to have in- 
1352 xk serted it during a pINCHR poll. 
1353 x 
1354 ek Backward searching during INAGE parse is perforned 
1355 ax for two reasons: 
1356 ax 1) To search for an open parenthesis: either to 
1357 aa natch a closing parenthesis (S$5=0), or at the 
1358 = end-of-inage to verify no unmatched parentheses 
1359 ale (S5=1). Use S5 to distinguish the tio cases. 
1360 ss 2) To search for a field delimiter: to initiatiate 
1361 x an output field, or to fill in the nunber of 
1362 gis digits in a nuneric field. 
1363 AK The pIMbck poll 1s issued only for case nunber 1 !! 
1364 Ee (The uIMbck token is ignored during backward search 
1365 7 for a delimiter. ) 
1366 ay 
1367 Re This poll can be used by any new IMAGE syntax which 
1368 Be uses parentheses to enclose a field (such as conplex 
1369 a fields), or by an application uhich needs to knou 
1370 aes when the end-of-inage has occurred (uhether to check 
1371 es its oun tokenization, or whatever). 
1372 ax 
1373 ae Once this poll is issued, the backward search tern- 
1374 eK inates -- 1f handled, parsing continues at the point 
1375 ae where the backward search was caused; if not handled 
1376 ae by any LEX fale, “Invalid IMAGE" 1s reported. 
1377 ae Typically, a LEX file would expect to handle this 
1378 ie poll only once -- to close the pending field (such 
1379 ae as to close a complex field), or, failing to close 
1380 aK it, to trap the error ("field not closed”, such as 
1381 aS unriatched parentheses) at end-of-inage. When it is 
1382 ae handled properly (i.e., when the pending field is 
1383 aX closed), the ulMbck token should be overwritten mith 
1384 a another token so that the pIMbck pall is not issued 
1385 ak again. For instance, the MATH RON, when handling the 
1386 ae pINCHR poll for a complex field, inserts the following 
1387 Ae tokens in the BLdING strean: 
1388 aX ul uC u? ... (existing BIdING tokens) 
1389 a (3) (2) (1) 


1390 ae where 
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1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
14% 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 


xx 
xx 
ka 
am 
ak 
ax 
wa 
ak 
xk 
an 
ak 
xk 
xk 
ak 
ax 
xk 
ax 
Kx 
x 
xk 
ak 
xx 
x 
an 
ak 
xk 
xk 
xx 
ak 
ak 
ak 
xx 
wm 
x 
xk 
xx 
xx 
wk 
x 
xk 
ak 
ax 
xk 
xk 
xk 
xx 
ak 
ak 
xk 
ak 
kk 
xx 
a 
wk 
wx 


IMAGE 


What 


What 
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ul =ulMbck token 
uC =uCPLXC token 
u? =flag to indicate whether nultiplied field. 
uX =uIMXCH token (belou) 
Later, uhen the closing parenthesis is found to close 
the complex field, the backward search will poll at 
token (3). The MATH ROM will overwrite this token 
with a uIMXCH: 
uX uC u? ...(existing BIdING tokens) 
(3) (2) (1) 
Since the complex field was properly closed, a pIMbck 
poll need not be issued again. Note that if the 
closing parenthesis had not been found, the pIMbck 
token would still be there at end-of-inage. End-of- 
inage also perforns a backward search to detect un- 
natched parentheses; during this pIMbck poll, the MATH 
ROM would find S$5=1, issuing an "Invalid IMAGE" error. 


If an application handles the poll and wishes the 
backward search to continue, it should either perforn 
its own backward search (see "BACK2(" routine), or 
“erase” its ulMbck token fron the BIdING strean and 
reposition D1 and DO so that the backward search 

is perforned once again by the IMAGE routines. That 
is, subtract 2 from R1(A) (so that it will point to 
the symbol which causes the backward search), and 
restore D1 from RO(R) (the current position in the 
BldING strean). Or if the poll handler wants to be 
polled nore than once, it can, each tire, nove its 
ulMbck token out the search area (write it belou the 
current BldING address), and reposition D1 and DO 

as above to regenerate the backward search. 


registers/RAM may be used if handled?: 

A,B,C,0,D0,D1,P,RO(A),R2,R4 

Other fields in R registers nay be adjusted as 
necessary. 

BldING tokens nay be adjusted as necessary. 


registers/RAM tiay be used if not handled?: 
A,B,C,0[15-5],00,01,P,R4 
Do not urite below AvMernEnd (contains BldING tokens) 


Special nenory/pointer considerations (are pointers funny?): 


The BIdING strean resides in Aven, below AvMenEnd. 


Envisioned application(s): 


1) The MATH ROM uses the pINbck poll to close conplex 
inage fields. At that tine, it checks whether 
2 (and only 2) nurieric fields were included, and 
whether the field had a multiplier. It also 
generates a uIMXCH token to execute the conplex 
field, and another one to output a right paren- 
thesis. 

2) Say a LEX file inplenents an INAGE syrbol "=" 
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1446 ak which causes pre-parsing of the inage string 
1447 am (storing the tokens in an I/0 buffer). The 
1448 xx syntax might be that 1t must be the first char- 
1449 ae acter in the inage string (even before a "#"). 
1450 xk A pINCHR poll would be issued for the "="; the 
1451 ax poll handler would insert a uIMbck token as the 
1452 aK first token in BIdING strean. When the poll 
1453 x handler intercepts the pIMbck poll with S5=1, 
1454 ax it would know that the entire inage string had 
1455 ak been parsed, and was ready to store aay. 
1456 ak 
1457 xx History: 
1458 ak 
1459 xk Date Progranner Nodification 
1460 KK mewn nnn renner ene cere rn nnn te nn nent nnn ner cercee 
1461 Kk 42/08/82 MB Inplenented, docurented. 
kx 
pes JOO TO TI ATT II TID I TTD TR DR TIT III IIIS III III IIIS ID RII TAR 


1464 ORI ICOITI I O  TT RTOOIO 
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1465 
1466 FORO OIRO TOO IOI K 
1467 FOCI JI RIOT OI IOI 
1468 AR 
1469 - Nane:(S) pIMcpi - Initializing IMAGE field in conplex 
1470 x 
1471 ** Category: POLL 
1472 ae 
1473 ** Type: FPOLL 
1474 an 
1475 ** Purpose: 
1476 a Alert MATH ROM that a field is being initialized uhile 
1477 ak a conplex field 1s pending. Alert other LEX files that 
1478 ze an output field is about to be initialized. 
1479 aR 
1480 *& Should poll be "Handled" (return with XM=0)?: 
1481 R Yes. 
1482 aR 
1483 *k Meaning of “Handling” Poll (what does code do if handled’): 
1484 xe New field was verified to be nuneric; total nurber 
1485 ae of nuneric fields in the conplex field does not yet 
1486 ae exceed 2. 
1487 kk 
1488 ek Entry conditions for handler (registers, ST, RAM, etc. ): 
1489 a Carry set. 
1490 z B[A} = Poll nunber. 
1491 fs HEX node. 
1492 7 P=0, 
1493 a R1(A)=address of character in inage string which 
1494 ak initialized field (an output character such 
1495 RE as D,Z,*,A,K) 
1496 ak RO(A)=current position in BIdING token strean 
1497 ak R2(B)=proposed initializing token (identifies 
1498 at type of field) 
1499 xk R2(XS)=0 (flag for IMAGE routines; don’t change) 
1500 ak R1(S)=counter for 2 cornplex nuneric fields 
1501 kk 
132 ak RO(39-5)=address to start next IMAGE execution 
1503 ak R1(9-5)=length of IMAGE string (nibbles) 
1504 an R3(R)=Progran Counter 
1505 an R3(9-S)=address of start of IMAGE string. 
1506 aS 
1507 *k Normal exit conditions fron handler if handled (ST, RAM, 
1508 *x registers, etc.): 
1509 ay HEX node. 
1510 ae P=0 
1511 x XM=0. 
1512 as R2(B)=syrbol which caused initialization (nust be 
1513 +e in upper case; fetched fron address in R1(A)) 
1514 an B(X)=contents of R2(X) from entry to poll handler 
1515 ax Di=current position in BldING strean (fron RO(A)) 
1516 ak $4=0 ("do not execute yet") 
1517 xx D(A)=RvMenSt 
1518 xe 


1519 ** Normal exit conditions fron handler if not handled (ST, RAN, 
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1520 
1621 
1622 
1523 
1524 
1825 
1526 
152? 
1528 
1629 
1530 
1531 
1532 
1533 
1534 
1635 
1536 
183? 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1645 
1546 
1547 
1548 
1849 
1550 
1551 
1562 
1653 
1664 
1555 
1556 
1657 
1568 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1563 
1570 
1671 
1572 
1573 
1574 


IMAGE 


Parse Routines <831212.1 Fri Dec 30, 1983 3:24 ar 
Page 32 


** registers, etc.): 


ax 
xx 
xk 
ak 
ak 
ak 
xk 
ak 
ak 
ax 
ak 
xx 
ax 
ak 
ak 
ak 
ax 
ax 
ax 
ak 
xx 
a 
xk 
ae 
xx 
xk 
ak 
ak 
kk 
ak 
ae 
ak 
ak 
ak 
ak 
ax 
ak 
an 
ak 
xk 
ak 
xt 
aX 
ak 
ak 
aK 
aK 
ak 
xk 
xx 
xk 
xx 
xk 
ak 


HEX node. 
XM=1. 
R registers untouched. 


Available subroutine levels: 


NOTE: 


This is a specialized poll for the MATH ROM to handle 
conplex image fields. With sone creative coding, the 
pllcpi poll can be used by other LEX files. 


The pIMcpi poll is only issued if $7=1 ("conplex field 
being parsed") during image parse; and only when a 
new output field is being initialized in the B1dING 
token strean. 


There are tuo classes of poll handlers for pIMcpi. 
1) MATH ROM -- used to process nuneric fields 
in a conplex field. 
In a previous pINCHR poll (issued at the "C(" 
syttbol), the poll handler must have: 
a) set $71 
b) set R1(S)=2 


2) Other LEX files desiring to detect the init- 
ialization of any field. 
In a previous pIMNCHR poll (issued at the 
point a new unrecognized symbol was found), 
the poll handler ttust have: 

a) set $7=1 

b) set R1(S)=0 (the MATH ROM will still 
intercept the pIMcpi poll, but if R1(S) 
is=0, it will exit "not handled") 

c) S? must be set=0 before execution of the 
INAGE tokens begins. (S7=1 during execu- 
tion will aluays invoke the MATH RON; 
see pINcpu poll docunentation. ) 


Note that the pIMcpi poll was designed as a special 
poll for the MATH ROM. Its use by any other ROM 
will conflict wath conplex fields. In particular, 
a new synbol can use this poll as long as it and 
conplex fields are syntactically mutually exclusive. 

-- If $7 has been set=1 by another LEX file 
then the MATH ROM i111 not handle the pINCHR 
poll for a subsequent "C(" synbol. In other 
words, setting S?7=1 will cause an "Invalid 
IMAGE" when a conplex field is found. 

-- Any application handling this poll cannot 
allow its new symbol within a conplex field, 
since the MATH ROM, if it intercepts the poll 
first, uill try to process it. The counter 
in R1(S} will cause a conflict. 
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1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
15% 
1591 
1592 
1593 
1594 
1595 
1596 
159? 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1619 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 


ak 


IMAGE 


What 


What 
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(Notwithstanding the above rule, there is probably 
a way for a pIMcpi poll handler to manage the use 
of R1(S) to allow complex fields within its oun 
neu field. See the MATH ROM code for conplete 
details.) 


registers/RAM may be used if handled?: 
A,B,C,D,D0,01,P,R4,S4,S7 

R registers may be adjusted as necessary 
Tokens in BIdING strean adjusted as necessary 


registers/RAN may be used if not handled?: 
A,B,C,D[15-5],D0,D1,P,R4 

Other R registers untouched 

Don’t write to AvMen below AvMenEnd (stores BidING) 


Special nenory/pointer considerations (are pointers funny?): 


BIdING tokens are stored in AvNen below BIdING. 


Envisioned application(s): 


1) MATH ROM uses pIMcpi poll to process corplex inage 
fields. Checks that field is numeric, verifies 
that no nore than 2 numeric fields are within the 
conplex field. 

2) Say a LEX file implements a numeric field descrip- 
tor uhich encloses negative nunbers in parentheses. 
The syntax might be, say, "-DDD.D", where a leading 
"-" would identify this type of descriptor. €E.g., 

DISP USING “-3D.2D"; -36.25 

displays "({ 36.25)". 
It would cause a pINCHR poll for the "-" synbol. 
At that tine, the LEX file could set S7=1, R1(S)=0. 
When the nuneric field is initialized, the pIMcpi 
poll should be handled to 1) check to make sure 
it is a nuneric field, 2) put appropriate execution 
tokens in the BldING strean to effect the raght 
output, and 3) set $7=0. Note that this new de- 
scriptor mould not be allowed with conplex fields, 
either inbedded inside then, or vice versa (unless 
sone very creative code was uritten). 


History: 


Date Progranrer Modification 


12/08/82 MB Inplerented, docurented. 


FORO TTT TTT ITI IST IIT TI IK 
FSI ITO TO TOT TOR RR ITD LETT TET T ITT DTI I IIT IIIT ITI I TRI 
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1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
164? 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
167? 
1678 
1679 
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FORO TT TTT TTT TD TITTIES TTT IH 
FO IOI TO TTT TTT TTT TTT D RIT TTT RI 


xk 
ak 
xk 
ak 
kk 
ak 
x 
ak 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
ak 
aK 
ak 
xk 
xk 
aK 
ak 
ak 
ak 
ak 
ak 
xx 
ak 
ak 
ak 
xk 
kk 
aK 
ax 
ae 
ak 
kk 
ak 
ax 
ak 
ak 
ak 
ar 
ak 
xk 
aK 
ak 
ak 
xk 
Kk 
kt 
a 


Nare:(S) USING - Interpret IMAGE String 
Category: STEXEC 
Purpose: 
Parse IMAGE stnt for formatted input/output (DISP USING, 
PRINT USING, ENTER USING, etc.) 
Entry: 
P = 0 
DO= progran PC (points to IMAGE string or line #) 
D1 points to next iter on stack. 
Exit: 
If error (IMAGE parse or USING xqt), to MFERR. 
Otherwise, to NXTSTM, unless picked up by poll handler. 


Calls: EXPEXC... Need I say nore? 
Uses: EXPEXC can use all CPU registers. 


Stk lvls: 4 (all stack levels are lost, since the 
INAGE parse routines use the stack 
for storage) 


NOTE: All RSTK levels are lost. Never call USING expecting 
any RSTK levels to be saved. 


Detail: 
Register usage: 


DO= pointer into IMAGE string. 
D1= pointer into BldING (expanded string where execution 
code is built) 


D(A)= address of available menory start. 


RO(A) = D1 where backward search was started. 
RO(9-5)= address to start execution. 


stores DO. 
length of IMAGE string (nibs). 
counter for 2 complex nuneric fields. 


R1(A) 
R1(9-5) 
R1(S) 


R2(A) = counter for digits in front of radix 


R3(R) = Progran Counter (D0 at entry or re-entry). 
R3(9-5)= Address of start of IMAGE string. 


Inage tokens for building expanded IMAGE. 
1) Tokens not identifying the end of a nuneric field. 
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1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
170? 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
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ke 1a) Tokens not used in backwards search. 
ax uSTRPT =#DO = String pointer 
aK uSTRPT =#D0 String pointer 
ae uMULT =#D1 Multiplier 
aK ulOOPB =#D2 Loop on byte 
ae uLOOPS =#D3 Loop on string (12 nibs) 
a uIMXCH =#D4 Strange execution character. 
k 
kk 1b) Tokens used in backwards search. 
Rk uOPNNN =#D8 Open loop without multiplier 
ak uJMP{} =#D9 Junp over paren loop ptr (9 nibs) 
ax uJMPst =#DA Junp over string pointer (14 nibs) 
ke uJMPdl =#DB Junp over unfilled delimiter (8nibs) 
ke ulMbck =#DC Poll for backward search handler 
kn ulNsta =#DE IMAGE string start (|Ox| - see IMentr) 
ak uOPNM- =#DF Open loop with mult, decremented 
a uOPNNM =#EO Open loop with mult (ends in 0!) 
LS See ee eee SCCeS SCC CCTeretrrerCrrerrrrrrrrecerrerettetectsrecsy 
ax EndNun =#E6 Any value >= this identifies the + 
ak end of a nuneric field (used + 
ak in execution). + 


ERGELEEEEEFEEEE EEE THE EEE EFTTA EEE HEE HEHE ttt eget tt et ete te tt ett 
ak 


~ 2) Tokens identifying the end of a nureric field. 


ax 2a) Tokens not used in backwards search. 

aK uCPLXC =#EE Complex field closed 

ax uLOOPP =#EF Loop on parentheses (variable #bytes) 
: ulMend =#FO IMAGE string end 

xx 2b) Tokens used in backwards search. 

RK URESTP =#F1 Restart parse 

aA uDELIN =#F4 Deliniter 

se Tokens delimiting an output/input field. 

zx uHK8* =#F6 H,K,B or ~ field 

7 uALit =#F7 "A" literal field 

a UNUMNn =#F8 Nuneric, no float chars, no sign* 

ae uNUMNNs =#F9 Nuneric, no float chars, u/sign* 

ke UNUNFn =#FRA Nuneric, u/float chars, no sign* 

ae UNUMFs =#FB Nuneric, “/float chars, u/sign* 

ae UNUNEn =#FC Nuneric, u/Exponent, no sign 

xe uNUNEs =#FD Nuneric, u/Exponent, t/sign*® 

aK 

*k *Note: these numeric deliniters have values that 

. deternine the status bit setting in USING execute. 
ak 

kx Status bits 

ax 

- These status bits rust be preserved during execution! 
aX sMULT =8 Multiplier pending. 

a sSIGN =9 Sign already specified. 

km sFOUND =10 Output field found (at least one). 
. sRDX = =11 Radix already specified. 

k 
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1735 ax These status bits can be changed during execution. 
1736 KK (status bits 0,1,2 are used for numeric flags in xqt) 
1737 aX sxQT =0 Start executing. 
1738 xx sC/P  =1 C/P pending. 

1739 x sCntg =2 Counting digits. 

1740 RX sInit =3 Field already initialized. 
1741 x InhEOL =4 Sane as SB&I0 !!! (aluays=0) 
1742 kk sSTOP =5 Stop backward search. 
1743 ak sSpecl =6 Special handling (used in xqtn) 
1744 ba sCplxP =7 Conplex field pending. 
1745 as 

1746 a 
1747 kk Bits for character nasks used in parsing (CkLoop) 
1748 ae 
1749 ak X-chr =2%15 KX: "blank" 
1750 aK D-chr =2%14 D: digit 
1751 Rx A-chr =2713 A: string char 
1752 x Pt-chr =2%12 Decinal point 
1753 aK Dblgt =2%11 Dbl quote: literal delin 
1754 ax Sglgt =210 Single quote: literal delin 
1755 a S-chr =2°9 S: sign 

1756 ee N-chr =2°8 M: sign 

1757 a Z-chr =2°7 Z: digit 

1758 x E-chr =2%6 £: exponent 

1759 ax C-chr =2%5 C: separator 

1760 ae astrsk =2%4 x: digit 

1761 = 21-chr =273 Z: unit's digit A 

1762 ak P-chr =2°2 P: separator 

1763 a R-chr =274 R: radix 

1764 ax Nf =2% Nxtfld flag: return to Nxtfl5. 
1765 ax ed =(X-chr)+(Dblqt)+(Sglqt) Edit chars 
1766 + cP =(C-chr)+(P-chr) Separators 
1767 ae sn =(S-chr)+(M-chr) Sign chars 
1768 ae Rx =(Pt-chr)+(R-chr) Radix chars 
1769 aa edSMRx =(ed)+(SM)+(Rx) 

1770 a CPE =(CP)+(E-chr) 

1771 ae 

1772 ** Algorithn: 

1773 tk 4:Statenent set-up: 

1774 = If IMAGE is referred to by line no., 

1775 aa establish program scope (in case keyboard xgt) 
1776 ae point D1 to line# (PFINDL) 

177? ax skip over any line labels, find start of IMAGE string 
1778 an calculate IMAGE string length 

779 a write ulMend token ("end of IMAGE string’) to AvMenEnd 
1780 af nove IMAGE string to AvMenEnd 

1781 xe goto 2 

1782 x 

1783 * If IMAGE is referred to by a string expression, 
1784 eh write ulMend taken to AvMenEnd, 

1785 te call EXPEXC (EXPR) to put string on stack at AvMenEnd 
1786 ae reverse string so it’s in "nornal" direction (REVPOP) 
178? - store DO(=PC) and Di(=start of IMAGE string) in R3. 
1788 a 


17893 ** 2: IMAGE parse: 
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17® 
1791 
1782 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 


1812 
1813 
1814 


1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 


1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 


18446 
18446 
18449 
1B844C 
18450 
18453 
1B455 
1B458 
1B45B 


1B462 
1B466 


1B46D 
18470 
1B473 
18476 
1B479 
1B47C 
1B47F 


1B482 
1B485 


1B48C 
1B48F 
1B492 
1B495 
1B497 


1B49A 
1B49C 
1B49F 
1B4A1 
1B4A4 
184A6 
1B4R 
1B4AC 
1B4AF 
1B4B3 


161 
148 
3100 
966 
37 
136 
109 
8F0O 


775 
8FO0 


587 
168 
13? 
136 
10B 
163 
5A1 


183 
8F00 


14A 


962 
36 
161 


D2 
6 
DS 
14E 
ED 
164 
14A 
161 
3100 
362 
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aR Follow the parse tree laid out in individual parse 
ax routines. 
kt 
** History: 
ax 
xk “Date Progranner Modification 
Pe ee tuesee Nose oe. - pee eer ot eect er ee ae 
xk 08/10/82 MB Started writing code 
xk 41/10/82 MB Finished writing code 
kk 01/14/83 MB Updated docunentation 


FORO OUTIL 
FOTO III ITT TTT TTT TT ITI 


x 


=USING 

DO=D0+ 
R=DATO 
LC (2) 
?ARC 
GOYES 
CDOEX 
R1=C 
COSBYL 


GOSUB 
& 


GOSBVL 


GONC 
DO=DO+ 
CD1EX 
CDOEX 
R3=C 
DO=D0+ 
GONC 


DO=D0- 
GOSBYL 


USGO03 


A=DATO 
LC (4) 
PARC 
GOYES 


2 

B 
=tLINE# 
B 
USGOO7 
=PRSCKB 
INDO+2 
=PFINDL 


STMTNF 
9 


4 
USGOO5 


4 
=LINSKP 


B 
=tEOL 
B 


IvUSGj 


DO=D0+ 2 


USGOOS 


Ovnxreo 


tLBLST 


mnrmnwDwmwDnwv 


Increnent PC. 


Test for DISP USING <line#>. 
Line # for image? 

No. 

Save DO in R1. 


Establish progran scope. 


Restore DO fron R1, 
increnent to ";" token. 
Set Di to line with line#. 


NC= Line# not found. 
Increrient DO past line#, chain. 
Switch D1 to DO, ... 
save DO 
in R3. 
DO to IMAGE length. 
(BET) 


Point to label length. 
Skip over label. 


Read ist token past label. 
C(B)= tEOL ( C(1) still=F). 
Null line? 

Yes. "Invalid USING". 

DO to length of renaining stnt. 


Correction for IMAGE length. 


C= IMAGE length plus other fields. 
B(A)= IMAGE length (for MOVEDO). 
DO points to IMAGE token. 

Read token. 


Check token for starting label. 
Line# uith label? 
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1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 


1869 
1870 
1871 
— 1872 


1873 
1874 
1875 


1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 


1887 
1888 


1B4B6 
1B4B8 
1B48B 
1B4BE 
1B4C1 
1B4C3 
1B4C6 
1B4CA 
1B4CE 
1B402 
1B4D5 
1B407 
1B4DB 
1B4DE 
1B4E1 
1B4E3 


1B4E6 


1B4E8 
1B4E8 
1B4EA 
1B4EC 
1B4EE 


1B4F5 
1B4FB 
1B501 
1B508 
1BS0E 


1B510 
iBS12 
1B516 
18519 
1B510 
1B521 
1B524 
1BS2? 
1B52A 


1B531 


cc 
B64 
5C2 
136 
C9 
134 
7035 
310F 
7695 
96C 
02 
7000 
118 
134 
i) 
5€2 


2E 


S$3 


8D00 


8E00 
8E00 


s 


8FOO 


8 


8E00 


08 
70F4 
108 
S1ED 
7745 
137 
103 
137 
8FOO 


7BD4 
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GOYES USGO0O3 Yes. Skip over label. 
A=A+1  B INAGE token? (tIMAGE= FF) 
GONC IvUSG) NO! "Invalid USING". 
CDOEX 
C=B+C Rf Add offset to DO, point to end. 
DO=C DO= end of source. 
USGOO7 GOSUB SetAVN D1= AvMenEnd, D= AvMenSt. 
LC(2) ulMend Write "Inage end" token 
GOSUB BIdING to BIdING string. 
AHO OB DISP USING <string expr> ? 
GOYES USG0OS Yes. 
COSUB =MOVEDO Move IMAGE stnt to AvMen. 
C=R3 Restore DO fron R3. 
DO=C 
C=8 A #nibs in string. 
GONC USGO11 (BET) 
k 
JI II III TIT IIIT RT II OTT III TIAL 
k 
=STMTNF P= 14 (Loads eSTMNF into C(B).) 
x Fall into IvUSG} 
k 
=IvUSG) Reads "LC(4) (eSTMNF)” (eINVUS) 
NIBHEX 33 
CON(2) =eINVUS "Invalid USING". 
CON(2) =eSTMNF "Stnt Not Found". 
=KMNFERR GOVLNG =MFERRO Sets P=0, calls MFERR. 
k 
SI II ATA IDI III ITI III III III ISI IIIS I SAIS 
x 
USGO03 GOSUBL =expr Fetch image string expression. 
GOSUBL =CKINFO Reset output info. 
GOSBVL =REVPOP Reverse string; A(A)=length. 
GOSUBL =D=AVNS Set D=AvNenSt for BIdING call. 
C=A A #nibs in string. 
k 
USGO11 CLRST 
COSUB CSLW9) String length to C(9-5). 
R2=C Clear R2 (for IMprct). 
LC(2)  ulfMsta 
GOSUB B1dING Write ulMsta to start of buffer. 
CD1EX Save addr start of IMAGE string 
R1=C in RI(A), length of string 
CD1EX in R1(9-5). 
GOSBVL =R3=D10 Save D1 in R3(9-5), DO in R3(A). 
GOSUB CSLOR+ Store D1=xqt addr in RO(9-5). 
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1889 
1890 JI I TTI ITT III III ITI STIS IIS I ITI TIT TID IT 
4894 SIRI ISI SIDI SII TIT III I OSS SSSS ISI SII IIIS SII III III IOS IASI III III IAT: 
1892 be 
1893 xk Nare: IMentr - Enter IMAGE string, start parsing 
1894 ak 
1895 *% Category: LOCAL 
1896 &* Purpose: Enter IMAGE string, start parsing; look for 
1897 ae Carriage control character. 
1898 ak 
1899 &* Entry: P=0 
1900 aX Exit: P=0. To IMprct if “#" symbol, to Nxtfld if not. 
1901 ** Calls: PRSscn 
1%2 as 
193 xk Uses: C(A). ACB). 
1904 a 
1905 ** Stk lvls: NA 
1906 ay 
197 ** Algorithn: 
1908 **& = 1: Read in char, scan table of synbols. 
1909 ia Add 2 to DO (in R1(A)). 
1910 aR If synbol= ASCII blank, goto 1. 
1911 ak If syrbol= "#", goto IMprct. 
1912 Else return DO (in R1(A)) to symbol, goto Nxtfld. 
1913 
1914 ** History: 
1915 ee 
1916 a Date Progranner Modification 
1917 BR newer ne enw r ener ecm e nce renner ere nnn 
1918 a 12/08/82 NB Wrote routine, docurented. 
x 
ia SII III III I IIIT TIT II I ITI SSIS I III III III III IIIS III IIS STI III SIE I IS: 
1921 III SII III III III IIIT IIS ITIS ITI III III III II III SII III IIIT III IIIT AS 
1922 * Start parsing IMAGE string 
1923 x 
1924 1B535 7B45 IMentr GOSUB PRSsc+ Scan table of tokens. 
1925 * 
1926 1B539 32 CON(2) \#\ 
1927 1B53B 110 ; REL(3) IMprct Suppress ENDLINE. 
1928 
1929 1B53E 02 CON(2) \ \ 
1930 1B540 5FF REL(3) IMentr Space ignored. 
1931 - 
1932 1B543 00 CON(2) 0 
1933 1B545 78D4 GOSUB INDO-2 DO back to current char. 
1934 1B549 537 GONC Nxtfld (BET) 
x 
aaae $I III III IIIT IIT I ITT IOA III IIIT ASIII: 
1937 . 
1938 1B54C 853) -IMprcet ST=1 = sInit To pass through test at CkDlin. 
1939 1B54F 7611 GOSUB CkLoop Check for spaces. 
1940 18553 0000 CON(4) 0 
x 


1941 
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1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1982 
1953 
1984 
1955 
1966 
1967 
1958 
1969 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1963 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
198? 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
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EJECT 
III III III I IT IIT III IDI TIT II III DIA IIIS I III II III ISI IIIS III II IIIS IA 
KIKI RIT IDI III III IIIT IST I AIK II ISI III III III IIT II II III ISI IIIT II TAA 
xk 
** Nare:  CkDIBS - Byte scan for delimiter check 
kk 
** Category: LOCAL 
** Purpose: Subroutine provides byte scan for delimiter check. 
aX Entry: P=0 
Ro ENT: To appropriate processor for delimiter, or 
ne to poll if unrecognized syribol. 
aK 
*x Calls: PRSscn 
aX 
BRUSOS cacdieae Could use anything in delimiter routines. 
aE 
xX Stk lvls: NA 
at 
** Algorithn: 
ha Read char fron IMAGE string, scan byte table for jump. 
ae If character not in table, poll: pINCHR. 
gil If poll not handled, "Invalid IMAGE" error. 
xe 
xX History: 
kk 
xx “Date Progranner Modification 
Rh weceaes teoewece wleetetese eee ol 
Rk 12/08/82 MB Wrote routine, docurented. 
ae 
JIS III II IDI TIT IITI III II IIS IIIT IIIT I ITI III IIIA IIIA T IIIT I AK 
RISK I ISI I TIT IDI IIIT TITS III IID II III III III III III IIS SII III IIIT IAS 
* 
1B557 7025 CkDIBS GOSUB PRSscn Byte scan for CkDlin. 
& 
1B55B C2 CON(2) \,\ 
1B55D 304 REL(3) In"," Conna delimiter. 
k 
1B560 F2 CON(2) \/\ 
18562 2E3 REL(3) IMmult Send ENDLINE. 
k 
1B565 04 CON(2) \@\ 
1B567 DD3 REL(3) IMmult Send FORM FEED. 
x 
1B56A 92 CON(2) \)\ (Raght parenthesis) 
1B56C E82 REL(3) In"}" Close parenthesis loop. 
* 
1BS6F 82 CON(2) \O\ 
1B571 D?4 REL(3) In'(" Open parenthesis loop. 
x 
1B574 OF CON(2) uIMend 
1B576 1F3 REL(3) INGend INAGE string end. 
x 
1B579 00 CON(2) 0 (Invalid Char) 
1B57B 7414 IMCHRp GOSUB FPOLLx Invalid IMAGE char poll. 
1B57F 00 CON(2) =pINCHR 
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1997 18581 7104 
1998 

1999 

2000 

2001 

2002 

2003 

2004 18585 OD 
2005 18587 453 
2006 1B58A 890 
2007 1858D 60 
2008 

2009 


*» + 0M He 


2010 1B58F 6000 
& 


2011 
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GOSUB Polrtn Check for poll handled. 
tone conn o-oo ee eee eee + 
| If poll handled, handler must return: — | 
| D1 restored (fron RO(A)) | 
| D(R)= AvMenSt | 
| P as indicated below, for junp. | 
+ wwewre enw ere wm w wesw wr rowan www ee eww we enece wa wanes 
P=P-1 
GOC Nxtfld P=0: "Rtn to Nxtfld". 
?p= 0 
GOYES CkDlne¢ P=1: “Check for deliniter". 
NWl4t To go to CkD1ln+, poll handler 
tHllt must set sInit=1 preradl 
GOTO =INGxq!1 P=2: “Execute IMAGE field." 
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2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
20 36 
2037 
20 38 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 


2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 


1B533 7600 
1B597 00C8 


1B59B 863 
1B59E DD 
1B5AQ 32BD 
F 
1B5A5 14B 
1B5A8 966 
1BSAB 50 
1B5AD 179 
1B5BO 862 
1B§B3 60 
1B5B5 7AE3 


1B5B9 7ASF 
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EJECT 
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FORO III TOT TTT TTT 
FOR OI I TTT TI TTT ITT IIT TAIT I ISI I IK 


xk 


xk Narie: C 
ak 

** Category: 
*k Purpose: 
ae Entry: 

ee EIT: 

tk 

** Calls: 

ak 

ak 


* Stk lvls: 
kk 


*k Algorithn: 


kKDlin - Check IMAGE string for deliniter 


LOCAL 


Check IMAGE string for deliniter. 


P=0 
To Nxtfld 


CkD1n+ calls CkEdi 
CkDlin call WRHDG3 and CkD1BS 


NA 


kk = CkDln+: Check for edit chars before the deliniter (CkEdit) 
If there are any, CkEdit puts then in B1dING. 


xx 


ee CkDlain: If C/P pendin 
a deliniter 


ak 
ak 
xx 
xk 
xk 
xk 
ak 


** History: 


kk 12/08/82 
ak 


, error (< or P not allowed before 


If adjacent deliniters, back up over previous one 
(simply saves RAM). 

If counting digits (i.e., just finished a numeric 
field), write out digit count to BIdING (WRHDG3). 

Byte scan of next IMAGE character (CkDIBS), 
process next deliriter, return to Nxtfld. 


NB 


Nodification 


wee we ew ew ee eee eee ee ew mee we ee we 


Wrote routine, documented. 


FOI IO TT TTT TE 
SOIR IDIOT TOTO OTT TO TTT TTT ITI III III III IN 


x 


CkDln+ GOSUB 
CON(4 

k 

CkDlin ?ST=0 
GOYES 
LC(3) 


R=DAT 

?RAC 

GOYES 

Di=01 
CkD103 ?ST=0 

GOYES 

GOSUB 
& 


Ck0107 GOSUB 
t 


CkLpNC 
) ed 


sInit 
IMNCHRp 
#F7 (uJNPdl) 


18 
B 
CkD103 
+ 10 
sCntg 
CkD107 
WRHDG3 


CkD1BS 


Ready for delin. 
Check for edit chars only. 


Back fron CkLoop; error? 
Yes. Poll for unrecognized char. 
(Extra F for WRHDIG below. ) 


Double deliniter? 

No. 

Yes, back up to previous one. 
Counting digits? 

No. 

Back to delin, fill in #digits. 


Byte scan. 
Fall through to Nxtfld. 
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; 2065 EJECT 

2066 SIR RII IA IIA II III III ISI III III SSIS IIS ISI III I III IIIS I SIA III IK 
2067 JOU OCI OOOO TTT OTT TITS ISS IS SS IIS II 
2068 ae 
2069 ** Nane: Nxtfld - Open the next IMAGE field 
2070 tk Nane: Nxtfl3 - Open the next IMAGE field 
2071 ak 
2072 ** Category: LOCAL 
2073 ** Purpose: Process next IMAGE field. 
2074 aK 
2075 kk Stk lvls: NA 
2076 ak 
2077 *k Algorithn: 
2078 kk ONxtfld: Prepare for next field by uriting uDELIN 
2079 ak ("unfilled delimiter") to BIdING. 
2080 kk Nxtf13: Clear all IMAGE status bits. (CLOST+) 
2081 ak Check for edit chars, put then in BldING (CkEdit) 
2082 ak Byte scan of character table, junp to processor. 
2083 ak If char not in table, it might be a delimiter -- goto 
2084 ae CkDlin to check for deliniter. 
2085 = 
2086 ** History: 
2087 a 
2088 oe Date Progranner Modification 
2089 BK mene nnn ee nee ene n ern ne nnn nnn nnn enn rn tre rr renee nn enne 
2090 a 12/08/82 MB Wrote routine, docunented. 
eo III II I III TI III ISI ISI TSS ISIS ISSO SIT SSS ISI ISI IS ISIS SSSI IIS 
2093 $I IORI III II II III IOI IOI SSSI OSS IS SS SIS I ISI III IIIS ISIS SISK 
2094 ; 
2095 1B5BD 20 Nxtfld P= 0 Next IMAGE field after delin. 
2096 1B5BF 849 ST=0 — sSIGN “No sign specified." 
2097 1B5C2 848 ST=0 — sRDX "No radix found." 
2098 1B5C5 AF2 C=0 W 
2099 1B5C8 31BD LC(2)  uJMPdl "Junp over unfilled deliniter". 
2100 1B5CC 28 P= 8 
2101 1BS5CE 314F LC(2) uDELIN Write Delin tokens. 
2102 1B5D2 7294 GOSUB B1dING 
2103 . 
2104 1B5D6 2Nxtf13 
2105 185D6 70F3 GOSUB CLOST+ Clear 0 nib of status bits, plus 
2106 . sxQT (these bits ray have been 
2107 x set in execution routines). 
2108 1B5DA 102 R2=A Clear digit count (A=0 in CLOST+). 
2109 1B5DD 7C80 GOSUB CkLpNC Check for A,D,Z,*,S,N,.,R,edit 
2110 1B5E1 39FF CON(4) (NF )+(edSMRx)+(A-chr)+(D-chr)+(Z-chr)+(astrsk) 


2111 x 
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2112 EJECT 
2113 JI IO TO OKT IIT III I ITT T ITI IIIT ITI IOA IIS IISSSSISS ISSA 
2114 JU IOI ITI TOIT TTS T ISI III II III IT ITI III SI IK 
2115 xm 
2116 ** Narie: IMi"A" - Process "A" symbol in IMAGE field. 
2117 es 
2118 ** Category: LOCAL 
2119 ** Purpose: Process "A" syrbol in IMAGE field. 
2120 eX Entry: P=0, DO (in R1(A)) points to "A", D1 to BIdING. 
2121 aX Exit: When a char is found which is not an A or not 
2122 aK not an edit symbol, exit to CkDlin. 
2123 ** Calls: IMinit, CkEdit. 
2124 wk 
2125 ** Algorithm: 
2126 aR 1: Initialize field (change unfilled delimiter) to 
2127 ax a literal field (IMinit). 
2128 kx 2: Check for pending multiplier; if there 1s, fill out 
2129 x nultiplier fields. In any case, write "A" symbol 
21X% aK to BIdING. 
2131 a Byte scan for another "A"; if found, goto 2. 
2132 ax Else (no "A"), go check for delimiter (CkDlin) 
2133 ae 
2134 ** History: 
2135 ae 
2136 = Date Progranner Modification 
2137 RR awe nnn nnn n nn nen ene ere nnn ere ene nnn nn ene ere ners 
2138 ae 12/08/82 NB Wrote routine, docunented. 
aa SI II ITI III IIT IAT TI KIDS IIL IIT IIIT III IID IIT TT IASI ASI SIO SS SS ASIA 
2141 JO TO ITT RITE IE TTT TIT I IIS TTT I ATTA 
2142 x 
2143 1B5E5 Tm" A" Initial "A" specifier. 
2144 1B5E5 IA" R" "A" specifier: string char. 
2145 1B5E5 317F LC(2) uAlit 
2146 1B5E39 7870 GOSUB IMLoop Check for A synbol,edit. 
2147 1B5ED OOCA CON(4) (ed)+(A-chr) 
2148 * 


2149 x 
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2150 
2454 SIO IO III RIDE EEE TE ITT DE ETE EID DE IID TOTTI SE TR TIO 
2152 JOO IIIS OI TOTTI OSI SISA IATA 
2153 aK 
2154 ** Nane: Imi"D" - Process "D" character in IMAGE string 
2155 ae 
2156 * Category: LOCAL 
2157 ** Purpose: Process D character in IMAGE string. 
2158 RX Exit: To IMnend (IMAGE nuneric field nds 
2159 ae 
2160 ** Calls: IMinnu, IMmit+, CkCPSM 
2161 ak 
2162 ** Algorithn: 
2163 kk 64; Initialize field (change unfilled deliniter) to 
2164 ax uNUMFn type (nuneric fld, floating, no sign). 
2165 kk = 2: «Increment digit count, check for multiplier. If 
2166 ak there is a multiplier, set up mult fields in 
2167 kk B1dING. In any case, write D symbol to BIdING. 
2168 KK Check for edit chars and C,P,S or MN synbols. If 
2169 ae any are found (and are valid), put then in BIdING. 
2170 ax Byte scan for: 
2171 ke D -- goto 2. 
2172 xx Z -- Vinitts digit Z) goto INi"2" 
2173 ax other -- exit through IMnend. 
2174 km 
2175 ** History: 
2176 AX 
2177 kk Date Progranrier Modification 
2178 BK mmm eee e www nme tetera n reser e reece meee con nneennnn 
2179 a 12/08/82 MB Wrote routine, docunented. 
as FRI II TI ITI ATI SII IIIT IDI SII III IAI IS IS III III III ISIS IIIA 
2182 JO IOI I IIIT II ITI IIIA SD IIT ITS I IIIS ISIS ISI II IIIA ISAS SI IIIA 
2183 x 
2184 1B5F1 TMi"D" Initial "D" specifier. 
2185 1B5F1 IND" 
2186 1B5F1 878 ?ST=1  sRDX D after radix? 
2187 1B5F4 £0 GOYES IMDrdx Yes. 
2188 1B5F6 31AF LC(2) uNUNFn 
2189 1BSFA 7760 GOSUB IMLoop Check for E,.,R,0,Z1,C,P,S,M, edit. 
2190 1B5FE E6FD : CON(4) (edSNRx)+(CPE)+(0-chr)+(Z1-chr) 
ae FIR II II TAI IIIA III IDI TAIT TIO AIT KEI II AIT III IDI I III TI TAIT IIS 
2193 x 
2194 1B602 31A5 INDrdx LCASC \Z\ 
2195 18606 DA A=C A D after radix works like Z! 
2196 1B608 7550 GOSUB = IMLpnu Check for 0,C,P,S,M,E, edit 
2197 1B60C 46FC CON(4) (ed)+(SM)+(CPE)+(D-chr) 
2198 : 


2193 
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2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
eeee 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
223? 


18610 
18610 
18610 7040 
18614 E7F9 
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IRI II ATI IIIA II DITA II III IIT ITI III LR IIIT SII II III III IIIS SII SK 
JORIS III TO OO TO TOGO 
kk 

** Nane: Imi"*" - Process "*" symbol in IMAGE string 

ik 

*k Category: LOCAL 

** Purpose: Process "*" symbol in IMAGE string. 


Kk Exit: To IMnend (nureric IMAGE field end) 
Kk Calls: IMinn+, IMmlt+ 
ke 


** Algorithn: 
a 1: Initialize field (unfilled delimiter} with UNUMNn 


a (nurreric IMAGE field, non-float, no sign). 
xx 2: Increment digit count, check for multiplier. If 
ak there is a multiplier, fill in mult fields in 
Kx BldIMG. In any case, write "*" symbol to BidING. 
Ex Check for edit chars and C,P,S or M symbols. If 
Kk any are found (and are valid), put then in BIdING. 
te Byte scan for: 
kx * -- goto 2 
aK Z ~- linit's digit Z) goto INi"Z" 
. other -- goto IMnend 
x 
** History: 
ak 
- Date Progranner Modification 
- 12/08/82 MB Wrote routine, docunented. 


JORIS III IO IIIT IOUT TTT SIT ITT II 
FOI CII IT OO TIO ITO TI TOI ITT II I III IN 
x 


Ini" *" Initial "*" specifier. 
Tne" "*"" specifier. 
GOSUB IMLpnu Check for E,.,R,*,21,C,P,5,M,edit 


CON(4) (edSMRx)+(CPE)+(astrsk)+(21-chr) 
& 
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2238 EJECT 
2239 JO I IOI TOIT III III III IS III II IIIA IA 
2240 JOT TT TTT TE DTD IIIS III III IIIA ISI SII IIA IIIS IM 
2241 aA 
2242 xk Narie: In'2" - Process "Z" synbol in IMAGE string. 
2243 xR 
2244 *% Category: LOCAL 
2245 ** Purpose: Process "2" synbol in IMAGE string. 
2246 kk Exit: To IMnend (nureric IMAGE field end) 
2247 xt Calls: IMinn+, IMnlt+ 
2248 ae 
2249 ** Algorithn: 
2250 aR 1: Initialize field (unfilled delimiter) with uNUMNn 
2251 xn (nuneric IMAGE field, non-float, no sign). 
2252 me 2: Increment digit count, check for multiplier. If 
2253 a there is a multiplier, fill in mult fields in 
2254 a BldING. In any case, write "*" symbol to BIdING. 
2255 ak Check for edit chars and C,P,S or M synbols. If 
2256 aa any are found (and are valid), put then in B1dING. 
2257 ay Byte scan for: 
2258 a Z -- goto 2 
2259 a other -- goto IMnend 
2260 ak 
2261 *t History: 
2262 ak 
2263 xe Date Progranner Modification 
2264 a aaa aaa aaa aaa tata 
2265 = 12/08/82 MB Wrote routine, docurented. 
oe JOIST ITI ITT IATA TI II SII III II III II II IDI IT SAK 
2268 JOR RTI TTT I III ITI II III ATID IAAT IS II III IAI 
2269 x 
2270 1B618 Tha"z" Initial "Z" specifier. 
2271 18618 In'2z" 
2272 1B618 7540 GOSUB IMLpnu Check for E,.,R,Z,C,P,S," 
2273 1B61C 6EF9 CON(4) (edSMRx)+(CPE)+(2-chr) 
x 


2274 
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2275 
2276 
227? 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2X0 
2901 
2H2 
2H3 
204 
2X5 
26 
2307 
208 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
231? 
2318 
2319 
2320 
2321 
232e 
2323 
2324 
2325 
2326 
2327 
2328 
2329 


1B620 
1B620 7C33 
1B624 7140 


1B628 24F9 
& 
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JECT 
FOR III II OTTO RO TT TTT TIT TIT 


FOI OTITIS TTT III TTI III TS EIT III NK 
ax 


** Nare: Imi"Z" - Process unit’s digit Z in IMAGE string 
xk 

** Category: LOCAL 

** Purpose: Process unit’s digit Z 

RK Exit: To IMnen3. 

** Calls: In"," , IMnlt+ 

kk 


** Algorithn: 

xR If nultiplier pending, error. (IM",") 

a Increnent digit count, write 2 symbol to B1dING. 
AK Exit through IMNnen3 to catch E or radix synbols. 
kk 


** History: 
es 


et Date Progranner Modification 
Pe eee, Mee eee he ee Aad eo ee Seo 


*k 12/08/82 NB Wrote routine, docunented. 

xk 

JOIST IOI II TIO TOOT II IOI ITOK 
JO IG OI JI II TOO I TOGO IC IIT TOE 
x 


TM1"Z" One’s digit 2. 
GOSUB IN," Check for sMULT=0. 
GOSUB CkLoop Check for E,.,R,S,",edit 


CON(4) (edSNRx)+(E-chr) 


x EJECT 
JU III III IIIS TOC IIIT ASIII TT IK 


IIIT OTTO OTT TO ITO IIT IIT IIIT II IDI ITN. 


xk 
x% Narie: INrdx - Process radix in IMAGE string 

ak 

** Category: LOCAL 

** Purpose: Process radix inbedded in nurneric field. 

*k Exit: To CkDlin 

** Calls: WREDIG, IMmit+, CkCPSNM 

xx 

** Algorithn: 

aR 1: Wrate symbol to BIdING. Fill in mantissa digit 
wa count. (WRADIG) 

mh Set sC/P=1 to disallow C or P adjacent to radix. 
ee Goto 3. f 

ae @: Set sRDX (radix digits found) 

a Change "D" symbol to "2" (don’t suppress zeros! ) 
a Increnent digit count. If multiplier pending, 

a fill out multiplier fields in BldING. In any 
aS case, write "Z" synbol to BIdING. 

a 3: Check for C,P,S or M symbols. If there (and if 
aX valid), wrate to BIdING. 

a Byte scan for: 


a D -- goto 2 (another digit following radix) 
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2330 AX E -- goto IM'E"+ (exponent specified) 
2331 ee other -- if radix digits found, clear sC/P 
2332 an (otherwise, the next deliniter will think 
2333 AP that a C or P is pending). Goto CkDlin. 
2334 ak 
2335 ** History: 
2336 ae 
2337 ae Date Prograrirer Modification 
2338 aaa aaa aaa aaa aaa 
2339 . 12/08/82 MB Wrote routine, docunented. 
* 
a JI III III III III SIDI ITI S TIT IOT IIIS STIS ISI IIISSISISSISISSSISS SII IS 
2342 SII IORI IK IIIT TTD TLL ITI TIAA II ISI ID IIIS SIS I SSIS IIIS 
2343 & 
2344 18620 IMrdx Radix specifier. 
2345 1B62C D2 C=0 A 
2346 1B62E CE C=C-1 A C(XS)#O for WRADIG flag. 
2347 18630 7963 GOSUB WR#DIG Write out before-radix count. 
2348 18634 85B ST=1 — sRDX "Radix found". 
2349 1B637 72H GOSUB CkLpNC Check for S,M,D,E,edit 
2350 1B63B O4FC ‘ CON(4) (ed)+(SM)+(D-chr)+(E-chr) 


2351 
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2352 EJECT 
2353 JERI III III III IIIT IIIA ISI IVS S III SIS I III SSSI IIIT III III II IA 
2354 III III DID TI RITA II IOS III III IIT III IIS IIIS ISIS ISIS I III SISSIES 
2355 aK 
2356 *k Nane: IMisgn - Process initial sign synbol in IMAGE 
2357 aK 
2358 *k Category: LOCAL 
2359 *k Purpose: Process initial sign in nuneric IMAGE field. 
2360 ae Exit: To appropriate digit symbol processor, or error. 
2361 *k Calls: NoMult, CkEdit 
2362 ak 
2363 ** Algorithn: 
2364 ak Set sSIGN=1 ("sign already specified"). 
2365 we Write synbol to BIdING. Error if multiplier pending. 
2366 ak Check for edit synbols; if there, write out to BIdING. 
2367 ak Byte scan for: 
2368 ak D -- goto IMi"D" (initial D) 
2369 ak Z -- goto Imi"Z" (initial 2) 
2370 ak * -- goto Imi"*" (initial *) 
2371 = . -- goto IMirdx (initial .) 
2372 ak R -- goto IMirdx (initial R) 
2373 ak other -- pIMCHR poll 
2374 ak 
2375 &* History: 
2376 ak 
2377 zt Date Prograntier Modification 
2378 aaa aaa teat 
2379 - 12/08/82 MB Wrote routine, docunented. 
are JERI IO IO OI IIR SIDI IIA IT III STII III ISSIIISIIIIISIIIIS 
2382 JI IOI ITI III III IIIS IIIT II III ISIS IIIS ISS ISIIIIA 
2383 : 
2384 1B63F IMisgn Initial sign, "S" or "MN". 
2385 1B63F 7A20 GOSUB CkLpNC Check for 0,2,*,.,R, edit 
2386 18643 2900 ; CON(4) (ed)+(Rx)+(Z-chr)+(astrsk)+(0-chr) 


2387 
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2388 EJECT 
‘ 2389 SOROS III II IIIS III IIISIAISIIIS II SII ISI III III ISI IIIS 
2390 SII III IIIT TT DS ITAA TIE IIIT DSI ID II II IIIA IIPS II IIIS TA 
2391 ae 
2392 ** Wane: IMsign - Process sign symbol in IMAGE string 
2393 * 
2394 ** Category: LOCAL 
2395 ** Purpose: Process sign symbol in nuneric IMAGE field. 
2396 tk Entry: Fron CkEPSH 
2397 ae Exit: To CkMult 
2398 ax 
2399 ex Calls: NoMult, IMin01 
2400 &x 
2401 &* Algorithn: 
2402 a If sign symbol already found (sSIGN=1), then error. 
2403 ak Otherwise, set sSIGN=1 ("Sign symbol found"). 
2404 Re If multiplier pending, error. Otherwise, write sign 
2405 am synbol to BIdING (NoMult). 
2406 a% Re-initialize field to indicate "nuneric field with 
2407 ak sign specified". 
2408 x Exit to CkMult. 
2409 es 
2410 ** History: 
2411 ae 
2412 xx Date Prograrner Modif ication 
2413 BR nnnn mmm cement ere were ernment nnn creme nnn crew ann eeen 
2414 re 12/08/82 MB Wrote routine, docunented. 
4 
ye $I II III IIIA IISA I II III III IIS IIS ISOS I IIT ISI I SOI IIIT I IIIS SSSI SSAA 
2417 JORIS I OTITIS I TTI III SI III ISI II ISI III IITA IIS I ISIS ISIN 
2418 . 
2419 18647 IMsign 
2420 1B647 879 ?$T=1 sSIGN Yes. Sign already specified? 
2421 1B64A 37 GOYES IMerre Yes. 
2422 
2423 1B64C 859 ST=1 — sSIGN No. Set flag. 
2424 1B64F 7903 GOSUB NoMult Write to BIdING. 
2425 18653 863 ?$T=0 «sInit Field initialized? 
2426 18656 9E GOYES IMisgn No. Initial sign specifier. 
2427 18658 D2 C=0 A For IMino1. 
2428 1B65A 7842 GOSUB IMin01 Re-urite delin "with sign." 
; 2429 1B65E 5&0 GONC CkMult (BET) 


24H 
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2431 EJECT 
2432 $2 III I OO OTE III ITT TTI IIIT TTI IIT IT IIIT ATTA SIA 
2433 JI I ISI IIIT IO TI II IIT IIS I ISI I III IIIS II IIIS III IIIA 
2434 aK 
2435 ** Wane: (S) CkLoop - IMAGE parse loop to check for edit chars 
2436 ** Nane:(S) CkLpNC - IMAGE parse loop, no symbol count 
2437 as 
2438 ** Category:  EXCUTL 
2439 ax 
2440 ** Purpose: 
2441 aK This is the main parsing routine for IMAGE parsing. 
2442 ax It first accepts spaces and multipliers in the inage 
2443 as string, then parses the next inage character for 
2444 AX correct syntax. 
2445 RK 
2446 ** Entry: 
2447 a P = 0 
2448 ak R1(A) points to last IMAGE symbol which was parsed 
2449 ax D1 points to current position in BldING strean 
2450 ae D(A)=AvMenEnd 
2451 x Return address contains a four-nibble mask used 
2452 aX to parse the next character (see USING header) 
2453 i 
2454 aX EMIT: 
2455 xk CkLoop does not return! It junps to 
2456 kx 1) IMerr (if multiplier=0 is found) 
2457 xe 2) CkDlin (if no match found in parse table) 
2458 a 3) To appropriate parse routine if match found 
2459 ae (these routines are fixed in the parse table; 
2460 a they cannot be added to) 
2461 <~ CkLoop leaves the RSTK in a ness... The parse nask 
2462 ne address is left in the RSTK (no problem, since USING 
2463 a can never be called as a subroutine). 
2464 ae 
2465 xx Calls: IMmlt+, PRSsc+, DRANGE, TBLIMP 
2466 ax 
2467 kX Uses....... 
2468 ** Exclusive: #,B,C,D,BO,D1,P 
2463 *k Inclusive: Can use anything when exits to parse handlers 
2470 ae 
2471 ** Stk lvls: 3 (before exit to parse handler) 
2472 a 
2473 ** NOTE: 
2474 a This parser is used only for the following IMAGE syn- 
2475 ax bols, with the corresponding parse handler routines: 
2476 ae x In’ x" 
2477 a D In'p" 
2478 a A Tn" A" 
2479 aK . or R IMrdx 
2480 ae Cor = Instr 
2481 ie Sor ft INsign 
2482 a Z In'z" 
2483 a E IME" 
2484 7 Cor P IMsep 
2485 am * Ine x 
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2486 aK unit’s digit Z Ini"2" 
2487 an H,K,B or * INHKB~ 
2488 a Only those symbols included in the parse mask (found 
2489 an at the RSTK address) will be accepted. Any other 
249 wk character will cause a jump to CkhDlin; if the char- 
2491 ee acter 1s not a delimiter, CkDlin will issue a pINCHR 
2492 ks poll. 
2493 KK 
2494 ** Algorithn: 
2495 xk = CkLoop: Increnent digit symbol count (in R2(R)) 
2496 Kk CkLpNC: 
2497 xx 1) Fetch next IMAGE character, convert to uppercase 
2498 xk Check for digit (DRANGE); if not digit, goto 3). 
2499 aS Else (digit) if digit already found (sMULT=1) 
2500 aR goto 2). 
2501 a Else (digit not found yet) set sMULT=1, 
2502 ax write out multiplier fields to BIdING. 
2503 aK 2) Check for digit overflow (more than 4 digits), 
2504 ai error if overflow. 
2505 <s Write out current multiplier. 
2506 ak Goto 1). 
2507 ax 3) Check char for ASCII space. If so, goto 1). 
2508 ak If multiplier pending, test for: 
2509 ak if rult= 0, then error. 
2510 kk if mult= 1, then ignore (back up over 
2511 ax nultiplier fields) 
2512 zx Fetch parse nask fron RSTK address. 
2513 Ax 4) Read next character fron fixed parse table. 
2514 aia If end of table, jump to CkDlin. 
2515 pa Check mask bit for valid char; 1f not, 
2516 a go to 4). 
2517 ak Else (valid char), compare with IMAGE synbol: 
2518 x if no natch, go to 4) 
2519 sete else (match), junp to parse handler for 
2520 RA that synbol 
2521 aR 
2522 ** History: 
2523 ae 
2524 =n Date Progranrer Modification 
2525 KK enn ee ne nner ne tree rere n nnn renner rrr etree ten crene 
2526 kk 42/08/82 NB Wrote routine, docunented. 

i 

are FOI TORII I III OASS IIIS ISS SSSI III II SSISI SIS III ISIIIISSI SIS 
2529 JOTI I ATTA II IAI I IIIS ISI III SSSI SSI SIS III SIS I IIIS ISSI IS 
2530 * 
2531 18661 318F IMLpnu LC(2) uNUMNn "Non-floating nuneric field". 
2532 18665 7622 , litLoop GOSUB IMinit Initialize field. 
2533 
2534 18669 =CkLoop Check loop: count synbol, ck edit, 
2535 , parse scan for designated synbols. 
2536 1B669 7482 GOSUB IMnlt+ Count synbol. 
2537 x 
2538 1B66D =CkLpNC Check loop, no syrbol count. 
2539 1866) 7314 CkMult GOSUB PRSsc+ Next char fron DATO, upper case. 


2540 18671 © CON(2) 0 (Does a FINDA) 
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2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2562 
2553 
2554 
2555 
2556 
2557 
2568 
2553 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
257? 
2578 
25793 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
258? 
2588 
2583 


25%) 
2591 
2592 
2593 
2594 


1B673 
18677 
1B67A 
1B67D 
1B67F 


1B682 
18684 
1B688 
1B68A 
1B68C 


1Bo8E 
1B690 


1B694 
18697 


1B69A 
1B69D 


1B6SF 
1B6A1 
1B6R4 
1B6A7 


1B6RA 
1B6AE 
1B6B1 
1B6B3 
1B6B6 
1B6B8 


1BoBB 
1BebD 


1B6CO 
1B6C3 
1BeC5 
1BeC8 
1BoCB 
1Bech 
1BotF 
1Boede 
1B6D5 
1BeDd? 
1B6D9 


1B6EO 
1B6E3 
1B6E6 
1BOE8 


7000 
423 
878 
71 
858 


39 
0000 
OE 
00 
10 


29 
7603 


AF2 
14? 


95E 
02 


F2 

A86 
145 
55C 


3102 
962 
cB 
868 
51 
14? 


cE 
4n4 


SAE 
80 
848 
179 
07 
06 
134 
146 
Fe 
DS 
1B00 
000 


14E 
161 
C5 

561 


x 


x 
x 


x 
x 


a 


x 


IMAGE 


CkN103 


CkM115 


IMerrc 
x 


x 


Cknlt? 


CkM121 


Parse 


GOSUB 
GOC 
*ST=1 
GOYES 
ST=1 


NIBHEX 
CON(4) 
CON(2) 
CON(2) 
CON(2) 


p= 
GOSUB 


7C#HO 
GOYES 


CSL 
C=A 
DAT1=C 
CONC 


LCASC 
*A=C 
GOYES 
?$T=0 
GOYES 
C=DAT1 


C=C-1 
GOC 


?C#O 
GOYES 
ST=0 
01=D1+ 
C=RSTK 
RSTK=C 
DO=C 
C=DATO 
CSL 
B=C 
bO=(5) 


C=DATO 
DO=D0+ 
B=B+B 
GONC 
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=DRANGE 
CkM115 
sMuLT 
CkN103 
sMULT 


39 
0000 
uOPNWN 
00 
uMULT 


9 
BldIN+ 


DE 


Nn 
IMerrc 


a>wvuDw 


CkMult 


A 

B 
CkMult 
sMULT 
CkM11?7 
A 


A 
IMerrd 


A 
CkMl1? 
sMULT 
10 


’DpmwmD 


Iftbl 


m™m Dra 


kM125 


Page 54 


Digit? 

No. 

Yes. First digit? 

No. 

Set "nultiplier pending" flag. 


Reads: 
LC(10) xx00xx0000 
jf 
uMULT / 
uDPNWM 


Write mult token to BldING. 


Clear upper C(M). 
Read existing multiplier 
(nult=0 at first) 
C(4)=0 since uOPNWN=E0. 
Overflou? (max= 9999) (C(3)#O7) 
Yes. 


x10. (C(4)=0 since passed test). 
Copy new digit. 

Write out current multiplier. 
(BET) Check next char for digit. 


Inbedded space in multiplier? 

Yes. Check for riore digits. 

Multiplier pending? 

No. 

Yes. Copy rult, test for 0 or 1. 
(€(4)=0 since uOPNWN=EO. ) 

Zero? 

Yes. 


No. 1? 

No. Valid multiplier. 

Yes. Cancel nultiplier. 
Restore D1 before multiplier. 
Table address-3. 

Restore return address. 


Read mask to ((3-0). 
Mask to C(4-1). 

Copy table, flags to B. 
Point to Inage table. 


Read Inage char. 

To next table char. 
Char allowed in mask? 
No. 


Saturn Assenbler IMAGE Parse Routines <831212.1 Fri Dec 30, 1983 3:24 an 


Ver. 3.39/Rev. 26 Page 55 
2595 1B6EB 962 7A=C OB Yes. Match? 
2596 1B6EE E1 GOYES CkM127 Yes! Execute char. 
2597 1B6FO 88F ?P#H 15 Nxtflf bit set? 
2598 1B6F3 CO GOYES Ckh125 No. Check next char in table. 
2599 1B6F5 CO B=B-1 AR Yes. Set all bits in B(A). 
2600 1B6F7 96E *c#HO Oi End of extended table? 
2601 1B6FA 6E GOYES CkM121 No. 
2602 1B6FC 853 ST=1— sInit Yes. ST=1 to pass test at CkDlin. 
2603 1B6FF OC CkM125 P=P+1 End of table? 
2604 18701 SED GONC = CkM121 No. 
2605 18704 669E GOTO 3 CkDlin Yes, no match. Check for delin. 
2606 a 
2607 x 
2608 18708 6082 IMerrd GOTO IMerr 
2609 x 
2610 x 
2611 1B70C 8FOO CkM127 GOSBVL =TBLINP Junp on table with P=indicator. 
000 
2612 x P= 
2613 1B713 5CO REL(3) INK" 0: X (X must cone first!) 
2614 1B716 BDE REL(3) IM'D" 1: D 
2615 1B719 CCE REL(3) IMA" 2: A 
2616 1B71C O1F REL(3) IMrdx ao os 
2617 1B71F 420 REL(3) IMstr 4: " 
2618 1B722 120 REL(3) IMstr Be 
2619 1B725 22F REL(3) IMsign 6: § 
2620 1B728 F1F REL(3) IMsign 7: A 
2621 1B72B DEE REL(3) IM'2" 8: 72 
2622 1B72E A80 REL(3) IM"E" Ie E 
2623 1B731 ERO REL(3) IMsep 10: C 
2624 1B734 CDE REL(3) In"*" 14: * 
2625 1B737 SEE REL(3) Imi"2" 12: unit’s digit Z 
2626 1B73A 5ARO REL(3) IMsep 13: P 
2627 1B73D FEE REL(3) IMrdx 14: R 
2628 1B740 BAO REL(3) IMHKB* 15: H,K,8 or “*. 
2629 * 


2630 * 
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2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 18743 
2678 
2679 
2680 
2681 
2682 1B743 AFI 
2683 18746 119 
2684 1B749 D5 
2685 1B74B 8E00 
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FOI 
JOK IIK 
aK 

xx Nari 
as 

xk Cat 
** Pur 
£& Ent 
aK EX 
xk 


xk Cal 
xk 


** Use 
xk 


AE Stk 
xk 


** Alg 
ak 

a 

aK 

ah 

ak 

ka 

hk 

x 

ok 

ah 

as 

ai 

ak 

a 

ah 

i 

oe 

aa 

oe 

xX His 
hk 

aK 

aK Le 
Br the 
wh 
III I 
FI KIRA 
i 


IMstr 


e 
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eJECT 
JO ITI ITO SITIO II ITI III ITT IT IIA 


FOO III OI TOOT ITO TO ITT TI DI 


e: IMstr - Process inbedded literal in IMAGE string 


egory: LOCAL 


pose: Process inbedded literal in IMAGE string. 
ry: Fron CkEdit 
t: Back to CkEdit 
ls: CSRWP9, IMoffs, BldIN+ 
Soudiasee A,B,C 
lvls: NA 
orithn: 


Copy DO (=addr of " or ’) to BCA). 

Length of IMAGE string to C{A). 

Set DO= addr of first char in inbedded literal. 

Write uSTRPT token to BIdING. 

Store offset to inbedded literal in BldING. 

Address of IMAGE string start to C(A). 

Set B=B+C= max possible length of literal. 

Scan literal for matching delimiter, counting 
characters in C(M), decrenenting B(A) so that 
the IMAGE string is not exceeded. 

Literal count (length) to C(6-2); urite length 
and uJMPst token to BIdING. 

Nou that DO points past imbedded literal, set 
R1(R) to new DO. 

If multiplier pending, copy nultiplier reserve 
into multiplier counter, write uLOOPS token 
(loop back to literal nultiplier) to BIdING. 

Exit to CkMult 


tory: 
Date Prograriner Modification 
{08/82 NB Wrote routine, docunented. 


FORO RUT IOIITIIOTTOTO OITK 
FOI IIT IOI TO TOO TIT 


Scan literal string. 
Max length possible for literal 
(length of IMAGE string) - ( (DO - start ) ) 
(length of IMAGE string) - DO + start 


B=0 W (For BSRB belou. ) 

C=R1 C(A)= DO. 

B=C A DO to B. 

GOSUBL =CSRW9) C(R)= Length of IMAGE string. 
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2686 
2687 
2688 
2689 
2690 
2691 
2692 


2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2703 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 


00 
18751 ED 
1B753 7602 
1B757 25 
1B759 3100 
1B75D 77F2 
1B761 118 
1B764 8£00 

00 
1B76A C1 
1B76C 81D 
1B76F D2 


1B771 CD 
1B773 449 


1B776 14E 
1B779 962 
1B77C BO 
1B?77E 161 
1B781 B56 
1B784 5CE 


1B787 BF6 
1B78A 31AD 
1B78E 26 

18790 76D2 
1B794 119 
18797 136 
1B79A 109 
1B79D 868 
1B7A0 41 

1B7A2 12D 
1B7A5 7F22 
1B7A9 1CD 
1B7AC 313D 
1B7B0 7482 
1B7B4 68BE 


IMAGE Parse 


B=C-B 
GOSUB 


LC(2) 
GOSUB 
C=R3 
GOSUBL 


B=B+C 
BSRB 
C=0 

x 

IMstr3 B=B-1 

_TMerrb GOC 


C=DATO 
?A=C 
GOYES 
DO=D0+ 
C=C+1 
GONC 

k 

k 

x 


IMstr7? CSR 
LC(2) 
p= 
GOSUB 
C=R1 
CDOEX 
R1=C 
?8T=0 
GOYES 
D1=D1+ 
GOSUB 
01=D1- 
LC(2) 
GOSUB 

cktlty GOTO 
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A 
INDO+2 
5 
uSTRPT 
IMoffs 


=CSRW9) 
A 
A 


A 
INerrd 


B 
B 
IMstr? 
2 
i" 
InMstr3 


3:24 an 
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Fri Dec W, 1983 


B(R)= length - BO. 
Fetch DO, increnent to next char. 


String pointer token. 
Offset to string to BIdING. 


C(A)= addr start IMAGE string. 
B= nax length of literal string. 


= nax length in bytes. 
C(M) for counting literal length. 


Count #chars available for literal. 


Quote not found. 


Read next char in literal. 
Delinaiter? 

Yes. End of literal. 

No. To next char. 

Count chars. 

(BET) Test next char. 


Note: no need to check length of literal 


W 
uJMPst 


6 
BldIM+ 


sMULT 
CkMit) 
14 
COPYnu 
14 
uLOOPS 
B1ldING 
CkMult 


since B(A)<FFFF. 


Length of literal to C(6-2). 
"Junp over string pointer" token. 


Write length, token to BIdING. 
Preserve R1(9-5). 
New DO to R1(A). 


Multiplier pending? 

No. 

Back to multiplier storage. 

Copy multiplier into loop counter. 
Back to current D1. 

“Loop on string” token. 

Write to BIdING. 
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2725 
2726 
272? 
2728 
2723 
27H 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 


2757 
2758 
2759 


2760 
2761 
2762 
2763 
2764 
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JOR IO III II IOS III SII IIIS IIS IIS III IT SSSI SIIIISISSI SITS: 
JIT TOI RTI II IIIS IO SISTA SSSI ISS SSI SSSI STII ISIS IS 
ak 
ak Natie: IM"E" - Process "E" syribol in IMAGE string 
tk 
*k Category: LOCAL 
** Purpose: Process E syrbol in nureric IMAGE field. 
mK ERTS To CkDlin. 
** Calls: WRADIG, BldIN+ 
ik 
**k Algorithn: 
ak IM"E" =: Re-initialize delimiter to specify that 
ak the nuneric field includes an exponent. Also 
ak urite out the final digit count. (WRHDIG) 
ak Write out "S222" synbols to BIdING for outputting 
ak exponent sign and digits. 
a Exit to CkDln+. 
ih 
** History: 
ak 
xe Date Progranner Modification 
CE -eocueed,. “sebecueera <selereeea ee eek ie ok 
xk 12/08/82 NB Wrote routine, docunented. 
ak 
JOO ITI TTI IIR II IID II III IT IIIS GIS SI IIIS IIS IIIS 
JOO I ITI IIIT II II IIIA ISI SSSSIIIS III IIIS SS. 
x 
1B7B8 In"e" "E" specifier: exponent. 
x Note: if sInit=0 (e.g., ".E"), this 
* will be trapped at CkDlnt. 
1B7B8 32CF LC(3) uNUNEn (Extra 0 for WRHDIG. ) 
0 
1B7BD 7CD1 GOSUB WRHDIG Back to uDELIN, write #digits. 
& 
1B7C1 37A5 LCASC § \S222\ Fill in default “Eszzz" for 
ASAS 
35 
1B87CB 2? P= ? exponent field. 
1B7CD 7992 GOSUB BldIM+ Write to BldING. 
1B7D1 842 ST=0 = sCntg No more counting digits. 
1B7D4 6EBD CkDl+) GOTO CkDin+ 
x 
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2765 EJECT 
2766 SII III III OASIS IIIS III IIS III III II IIS TTI I IIIT III III III IS III III IN 
2767 JOO IOI III TIT I III TOI I II SII III SII ASIII IIIS SII IS 
2768 ae 
2769 ** Nane: IM'X" - Process "X" symbol in IMAGE string 
2770 ae 
2771 ** Category: LOCAL 
2772 ** Purpose: Process X symbol in IMAGE string. 
2773 *k Entry: Fron CkEdit 
2774 ek Exit: To CkMult 
2775 ** Calls: INnult 
2776 ae 
2777 *k Algorithn: 
2778 ax If multiplier pending, write out required fields. 
2779 ak In any case, write out X syrbol to BIdING. 
2780 ae Exit to CkMult. 
2781 tk 
2782 ** History: 
2783 ax 
2784 ae Date Prograriner Modification 
2785 RK nnn nee nee n ene n ne nnn nnn eee noe nnn nn eee eee ene 
2786 > 12/08/82 MB Wrote routine, docunented. 
ae $2 IIS IOI COI ISIS ISI AI IAT IS 
2789 $US III IIIS III III II III IIIS IIIS IIIT III II SII IIS ISI IIIS. 
27% & 
2791 187D8 7861 IM"X" GOSUB IMnult Write out to BldING. 
2792 1B7DC 57D GONC CkMI1t) (BET) Check for nore <edit> chars. 


2793 
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2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
28H 


1B7DF 
1B7DF 871 
1B?E2 75 
1B7E4 7171 
1B7E8 SBC 
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EJECT 
JO III 


JOO IO IK 
re 

** Nane: I 
ik 

** Category: 
*k Purpose: 
&* Entry: 


kk Exit: 
a 


kx 
** Algorithn: 
Ae TN GS 
ax 

x 

ax INP": 
ak 

ax 

re 

aK 

bk 

*k History: 
kk 


xx “Date 
RE. .ceiecses 
ek 12/08/82 
xx 
FI ISI II IK 
JI ITI III OK 
x 
IMsep 
*ST=1 
GOYES 
GOSUB 
GONC 


x 


Page 60 


ORI ITT TOTTI OK 
JOO RIOT OI TT TOK 


Nsep - Process separator syribols in IMAGE 


LOCAL 

Process C and P synbols in IMAGE string. 

Fron CkCPSM 

If C 1s separator symbol, exit to CkMult. 

If C 1s part of C( syribol, exit through CkDlin. 


Nove DO to next IMAGE string char. 

Read next char; if "(", abort subroutine and 
jurip to CkDlin to process the new delimiter. 

If C or P pending (sC/P=1), then error. 

Set sC/P=1 ("C or P pending") 

If nultiplier pending, error. Otherwise, write 
symbol to B1dING. thottult) 

Exit to CkMult. 


Progranner Modification 


in mime wee wm me wee ew en ee we we eee we eee 


NB Wrote routine, docurented. 


JODO III OOOO TIT I II OK 
FOI UII OOOO TOTO I TTT TOTTI OK 


sC/P C/P pending? 
IMerre Yes, 

cNofit Write to BIdING. 
CkM1lt} (BET) 
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2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 


IMAGE Parse Routines <831212.1 Fri Dec 30, 1983 3:24 an 


EJECT 


Page 61 


FORO ITI RII IO TORII IK 


x 


1B7EB 316F INHKB™ LC(2) uHKB~ 
1B7EF 7F90 
x 


1B7F3 7561 
1B?F? SCD 


x 


GOSUB IMint1 


GOSUB NoMult 
GONC CkD1+j 


H,K,B or ~ synbol. 

Replace deliniter with uHKB , 
initialize, check for cnplx. 

Write to BIdING, check mult. 

(BET) Back to check for deliniter. 
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2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2853 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 


1B?FA 
1B7FD 
1B7FD 
18801 
1B805 


1B808 


1B80C 
1B80E 


18811 
1B813 


18816 
1B818 


1B31B 
1B81D 


1B820 
1B822 


1B825 
1B827 


1B82A 
1B82C 


1B82F 
1B831 
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FORO OUT OI OOK 


x 


845 IM" >" 
In" u"4 
7F51 
7732 
1€1 
k 


7342 = BACK2( 
x 


ED 
620 


OE 
850 


FD 
C40 


80 
530 


CD 
851 


90 
610 


AD 
020 


00 
56D 


ST=0  sSTOP 


GOSUB In"," 
GOSUB 012ROA 
DI=DI- 2 
GOSUB BACK 


CON(2) ulMsta 
REL(3) IMstrt 


CON(2) uOPNWN 
REL(3) BOPNWN 


CON(2) uOPNN- 
REL(3) BOPNN- 


CON(2) uOPNNM 
REL(3) BOPNNMI 


CON(2) uIMbck 
REL(3) INGbck 


CON(2) uIMPS } 
REL(3) BIMP{ } 


CON(2) uJNPst 
REL(3) BIMPst 


CON(2) 0 
GONC = BACK2( 


Don’t stop for error at open parens. 


Error on illegal multiplier. 
Save Di in ROTA). 
Start with present char. 


Backwards search to left paren. 


If Unnatched Parentheses: 
“IMAGE End": “INAGE Parentheses." 


"Open loop with nultiplier." 
Stops search. 


“Open loop with decrenented mult". 
Stops search. 


"Open loop ufo multiplier." 
Stops search. 


"Poll for backid search handler." 
Stops search. 


“Junp over loop pointer." 
Does not stop search. 


"Junp over string pointer." 
Does not stop search. 


All other tokens sinply 
jurip a byte. 
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2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 


2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2838 
2899 
290 
2901 
292 
293 
2904 
295 
2H6 


1B834 875 
1B837 00 
1B839 6F41 


1B83D 171 
1B840 8E00 
00 
18846 135 
1B849 13 


1B84C 178 
1B84F 58B 


1B852 


1B852 875 
1B855 4E 


1B857 D2 
1B859 14D 
1B85C 118 
1B85F 137 
18862 03 


3:24 ari 
Page 63 
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EJECT 
FIST RE TTR ETT TAK 


x 
k 
IMstrt ?ST=1 
RINYES 
IMerre GOTO 
x 


sSTOP 


IMerr 


x 
FOO ITO TTS TTT IK 
x 


BINP{} D1=D1+ 2 
GOSUBL =C+A2D1 


01=C 
D1=D1- 4 01 back to uMULT token. 
x 

BIMPst Di=D1+ 12 


GONC BACK2( 
& 


FOO III TOOK TO 
x 


BOPNNM 
x 


?ST=1  sSTOP 
GOYES IMerre 


Error on open parentheses? 
Yes. 


C=0 R No. Write a NOP. 
DATI=C B 

=EndBck C=RO Restore D1. 
CO1EX 
RTNCC 
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2%7 EJECT 
298 JOO ITI SII II II IIIT III III IIIT TTI IIIS II TIT TIA 
2909 JIG IOI III TIT IIT I III II III IIIS IIIA IK 
2910 aE 
2911 fe Narie:(S) BOPNM- - Process uOPNN- token during backup 
2912 x 
2913 ** Category:  EXCUTL 
2914 aK 
2915 ** Purpose: 
2916 xk To process uOPNM- token during IMAGE parse backward 
2917 ak search. 
2918 RK 
2919 xk Entry: 
2920 RE P = 0 
2921 ak D1 points to uOPNN- token in BldING strean 
2922 ak RO(A)=current position in BIdING stream (any neu 
2923 ak token will be written below this address) 
2924 ak R1(A)=address if syrbol which caused backward search: 
2925 gs a right parenthesis (to close a field), or the end- 
2926 a of-inage (to check for unnatched parentheses). 
2927 ae $5=1 if end-of-inage search; S5=0 if closing field. 
2928 ax 
2929 ak Exit: 
2930 am P = 0 
2931 a Carry clear. 
2932 ae A uLOOPP token, a 5-nibble offset pointing to the left 
2933 a parenthesis location, and a uJMP{} token will have 
2934 ae been written to the BIdING strean. 
2935 ax D1=current position in BIdING strean (address passed 
2936 ah in RO(A) ninus 9) 
2937 ak 
2938 &* Calls: COPYn1, EndBck, IMoffs, B1dING 
2939 a® 
2940 ER USOSi 2c oun 
2941 kk Exclusive: B(A),C,01,P 
2942 kk Inclusive: B(A),C,D1,P,S88 
2943 aX 
2944 aK Stk Ivis: 1 
2945 xs 
2946 ** NOTE: 
2947 pi This backward search during IMAGE parsing 1s perforned 
2948 a to find an open field (a field defined by parentheses). 
2943 me The search 1s perforne either to close the field (when 
2950 i a right parenthesis is found), or to check for 
2951 ia unnatched parentheses at the end-of-inage. 
2952 ae 
2953 *® Algorithn: 
2954 ma Set BCA)=1 (for COPYn1) 
2965 an If SS=1 ("end-of-inage"), report "Invalid IMAGE" error. 
2956 ae Copy nultiplier fron reserve field to decrenenter 
2957 a field (adding one to the reserve, fron B(A)) 
2958 as Write uLOOPP token to B1dING 
2959 ae Conpute offset to left parenthesis position, store 1t 
2960 ee in BIdING 


2961 an Write uJMP{} token to BldING. 
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2962 
2963 
2964 
2365 
2966 
23967 
2968 
2369 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2930 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 


1B864 D1 
1B866 £5 
1B868 540 


1B86B D1 
1B86D 


1B86D 875 
1B870 9C 


1B872 1C3 
18875 7161 
1B879 7FDF 
1B87D 25 

1B87F 31FE 
1B883 7101 
18887 3190 
1B88B 6CD1 
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kk 
** History: 
tk 

ak Date 


ae 


ek 42/08/82 
ih 


MB 
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Modification 


Docunentation 


FOUR IOI TOTO OT TTT TTI III IIT IT TI IK 
FORT RII I TOIT TTT TTR 


x 

=BOPNMN- B=0 
B=B+1 
GONC 

x 

BOPNWN B=0 

BOP 1 

x 
7ST=1 
GOYES 


A 
A 
BOPWO1 


A 


sSTOP 
IMerre 


D1=D1- 4 


GOSUB 
GOSUB 
=BOPWOS P= 
LC(2) 
GOSUB 
LC(2) 


GOTO 
* 


COPYn1 
EndBck 
5 

uLOOPP 
IMoffs 
uJMP{ } 
Bld ING 


Increnent multiplier. 
(BET) 


No change to multiplier. 


Error on open parentheses? 
Yes. 


No. Back to nultiplier storage. 
Copy multiplier to loop counter. 
End backwards search. 


"Loop on parentheses." 
Offset to B1dING. 
"Jurip over parentheses." 
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2991 
2992 JI TO TTT STII II III III IISSI III IIIISIISI SII IIT IIIS SSS 
2993 JI II IIT ATI SIRI IIT I ISI IS IAI II IIIS TI III II IIIS ISI III 
2994 aK 
2995 ak Nanie:(S) IMinit - Initiate IMAGE output field 
2956 aA Nare: IMin01 - Backup to field deliniter (close field) 
2997 
2998 ** Category:  EXCUTL 
2999 RK 
00 ** Purpose: 
01 aX To back up through the BIdING token strean to the 
HO2 ae pending deliniter and re-write a field delimiter, in 
3003 ak order to identify the type of field for the execution 
04 ak routines. 
05 ak 
3006 tk Entry: 
3007 an P = 0 
08 ak C(B)=new deliniter token (see detail, below) 
09 an D1=current position in BldING strean (any new tokens 
#10 RK will be written below this address) 
3011 ae A(B)=INAGE synbol which caused the initialization (in 
12 ax uppercase) 
13 ak D(R)=AvMerend 
14 ak $3=0 if field has not already been initialized; 
3015 a S3=1 if field has already been initialized. 
316 ak 
17 7X ERE? 
18 a If pending fields need to be executed (S0=1), then 
19 ie exits to INGxqt. 
20 an Else, 
21 ak P=0 
H22 ae Carry clear 
23 an Di=current position in BldING strean 
24 =* C=address of deliniter token 
H25 xe Deliniter token has been re-written to identify 
#26 mK new field. 
27 ae 
28 *k Calls: D12ROA, BACK, CSLORO 
3029 ae FPOLL (pIMcpi) if S7=1 
030 ae IMGxgt if SO=1. 
31 ax 
332 PRO USCS cece 
33 ek Exclusive: A,B(A),C,RO(A),R2 
H 34 ates IMinit also uses $0,$2,$3,510 
#35 *k Inclusive: If $0=0: A,B,C,RO(A),R2 
36 ie If SO=1: can use anything in execution routines. 
X37 ga 
H 38 xk Stk lvls: 3 (unless SO=1: execution routines can use 7) 
39 = 
#40 ** WOTE: 
041 ae Whenever a new field begins, a delimiter token 
342 ae (uDELIM) 1s written to the BIdING strean, along mith 
43 ae tuo 4-nibble fields used for digit counters. Also, 
44 ax S3 1s set=0 to indicate that the field has not yet been 


345 a initialized (type of field not yet discovered). Minit 
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3046 ae is called uhenever an output character 1s found; if 
3047 ak $3=1, it returns inrediately. Otherwise, $3 1s set=1, 
#48 Rx and the BIdING tokens are scanned (backwards) until 
249 &K the uDELIN token is found. It is then replaced with 
HO . the appropriate token to identify the type of field. 
51 
52 BA However, if pending fields need to be executed (S0=1), 
053 Rx the token 1s replaced with a uRESTP (restart parse) 
3054 ax token, and IMGxqt 15 invoked to execute the fields. 
55 aK 
56 ak IMinO1 is called to find the field deliniter at certain 
57 am tines, for the follouing actions: 

3058 km 1) when a radix symbol (. or R) is found, one of the 
3059 aK 4-nibble counter fields is filled with the number 
60 x of digits before the radix 

61 kk 2) when a nuneric field ends, the other 4-nibble 
#62 x counter field is filled with the total nurber of 
63 =x digit synbols. 

64 aK 3) when a sign synbol (S or M) is found, the field 
O65 a delimiter 1s adjusted to indicate that a sign 
66 ak is specified. 

67 aK 4) when the E symbol is found, the field deliniter 
68 % is replaced with one which indicates that the 
069 ak exponent is to be displayed. 

70 en At these tines, SO=0 so that execution will not start. 
71 

72 ax Fast poll for pIMcpi may change SO, or the flag in 
73 ak R2(XS) (see C(XS) detail below), if necessary. 

74 ax 

75 ** Detail: 

3076 ax At entry to IMinO1, C(XS) is used as a flag to indicate 
77 ae whether to re-write the delimiter. In cases (1) and 
78 ax (2) above, the field deliniter is not overwritten; in 
3079 ax these cases, C(XS) is nonzero as a flag. 

3080 be 

81 xe At entry to IMinO1, C(B)=neu deliniter token to re- 
82 kx write, or C(B)=0 if delimiter merely has to be ad- 
83 a justed (case (3) above). 

84 tk 

385 ** Algorithn: 

X86 ax -IMinit: Set $2=1 ("count digits") 

087 a If $3=1, return. ("Field already initialized") 
O88 ae Set $3=1, SO=1 ("execute pending fields"), 

X89 ak $10=1 ("output field found") 

9 ak Set C(XS)=0 (flag for "re-write deliniter") 

91 = Save symbol in R2. 

3092 kk -TMindt: Save D1 in RO. 

093 ae If $7=1 and SO=1, fast poll (pIMcpi) 

94 aK 1) Back up through tokens: 

3095 am if uJMPst, then D1+12, go to 1) 

36 kk if uJMPdl, then D1+#6, go to 1) 

97 ax if uDELIN, then go to 3) 

3098 x if other deliniter, go to 4) 

99 aK if uRESTP, then go to 2) 


3100 ax else go to 1) 
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3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
312? 
3128 
3129 
31H 
3131 
3132 
3133 
3134 
3135 
3136 
313? 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
314? 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 


1B88F 
1B892 
18895 
18897 
1B89A 
18830 
1B8R0 
1B8A3 


1B8A6 
1B8A8 
1B8AC 
1B8AF 
188B1 
1B8B4 
1B8B6 
1B8B9 
1B8BD 
1B8BF 


1B8C3 
1B8C6 
1B8C9 
1B8CC 


1B8DO 


852 =IMinit ST=1 = sCntg "Counting digits." 

873. IMinti ?ST=1 sInit Already initialized? 

00 RTNYES Yes. 

853 ST=1— sInit No. Set flag. 

&5A ST=1 — sFQUND "Display field found.” 

850 ST=1— sXQT New field: “execute IMAGE". 

AR2 C=0 KS Flag: "Re-write delin token." 

102 R2=A Save char synbol. 
x 

D5 IMin01 B=C A Save token & flag in B. 

7091 GOSUB D12ROA Save D1 in RO(A). 

867 ?8T=0 = sCplxP In Complex field? 

41 GOYES IMind3 No. 

8H *S8T=0 = sxXQT Yes. Init’lzg or falling count? 

FO GOYES IMind3 Filling count; no handling. 

108 R2=C Token&flag in R2, instead of char. 

7ADO GOSUB FPOLL) "Poll for cnplx fld init’ lzn." 

00 CON(2) =pIMcpa 

7300 : GOSUB Polrtn Check for handled. 

panne nnn nen nee nn one nee nn nen nn eee nen + 

x | If poll handled, the handler nust return: | 
& | B(X)= token and flag (from R2(X)) | 
& | D1 restored (fron RO(A)) | 
s | D(A)= AvMenst | 
* | R2(B)= Inage string character (converted to | 
x | upper case!). The character 1s located | 
x | at the address found in R1(A). | 
x gan nnn nn enn nn nn ne ne nnn ene enn err reer eee + 

1€D =IMind3 Di=Di- 14 Start with present char (D1-2). 

175 = BD1+12 Di=D1+ 6 

175 = BD1+6 «=—D1=D1+ 6 
k 

7F71 BACK2d GOSUB BACK Backwards search to delimiter. 
x 

AD CON(2) uJMPst "Junp over string pointer." 
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ax 2) Set SO=1 (don’t execute) 

EK Copy D1 to RO(9-5) (new execution address) 

ax 3) Clear R2(A) (digit count) 

sais If SO=1, junp to INGxqt: re-write deliniter 

aK with uRESPT token and execute pending fields. 
aw If "don’t re-write delimiter", go to 5} 

ax If "write new token", go to 4) 

ax If $9=1 ("sign"), then increnent delint1 

Rx 4) Re-write deliniter 

ki 5) Restore Di fron ROCA). 

ak 

** History: 

tk 

a Date Progranner Modification 

RX -cusansed  “awecdocveco  saciedeckdwosce cua meeioeacewa Sodas we. 
*k 12/08/82 NB Docunentation 

h 


FO IIIT TOT TT TOTO TOT TT ITT IK 
JOUR III OTIC ITO TOTO TIT TION 


x 


Saturn Rssenbler 


Ver. 3.39/Rev. 2306 


3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3163 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
31% 
3191 
3192 


1B8D2 


18805 
1B807 


1B8DA 
1B80C 


1B8DF 
1B3E1 
1B8ES 
1B8E8 
1B8ER 
1B8ED 


1BSEF 
1B8F2 
1B8F6 
1B8F8 


1B8FB 
1B8FE 
1B900 


18904 
1B907 
18909 
1B90B 
1B90E 
18910 
1B913 
1B916 
1B918 
1B91A 
1B91D 


4FF 


BD 
OFF 


4F 
A10 


00 
J11F 
9E2 
4E 
SE6 
EO 


840 
7711 
DO BuDLIN 
122 
860 =BDELIN 
60 
6000 
k 
32D = BDLIN3 
61 
D9 
96E 
50 
14F 
869 = BDLINS 
40 
£6 
140 = BDLIN? 
6E3F BOLINS 
& 


REL(3) 


CON(2) 
REL(3) 


CON(2) 
REL(3) 


BD1+12 


uJMPdl 
BD1+6 


uDELIN 
BuDLIN 


CON(2) 0 


LC (2) 
PA<C 
GOYES 
PAC 
GOYES 


ST=0 
GOSUB 
A=0 
AR2EX 


?$T=0 
GOYES 
GOTO 


7BHO 
GOYES 
C=B 
?C#O 
GOYES 
C=DAT1 
?ST=0 
GOYES 
C=C+1 
DAT1=C 
GOTO 


uRESTP 
B 
BACK2d 
B 
BDELIN 


sxQT 
CSLSRO 
A 


sxQT 
BDLIN3 
=INGxqt 


XS 
BDLINS 
A 

B 
BDLINS 
B 
sSSIGN 
BDLIN? 
A 

B 
EndBck 
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Does not stop search. 


"Junp over unfilled delimiter.” 
Does not stop search. 


This would be covered by test 
below, but included here as 
a service to poll handlers. 


Other tokens. 

"Restart parse" token. 
Keep back-searching? 
Yes. 

No. Found a delin? 
Yes. 


No. Restart parsing. 

Save Di=xqt addr in RO(9-5). 

To clear out digit count in R2. 
Restore char symbol. 


Execute IMAGE? 
No. 
Execute. 


From WRADIG? (fill in #digits only) 


Yes. 

No. Delin token back to C. 
Write out new token? 

Yes. 

No. Get old token. 

Sign specified? 

No. 

Yes. Change old token. 
Re-write token. 

End backward search. 
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3193 EJECT 
3194 JO III I III TIT III III III III III III IT III ISIS III IIIS 
3195 x 
3196 18921 841 IMnlt+ ST=0 sC/P Clear "C/P pending" flag. 
3197 18924 D2 C=0 A 
3198 1B926 £6 C=C+1 &R Add one to digit count. 
3199 18928 868 7$T=0 =sMULT Unless multiplier... 
3200 1B92B 50 GOYES IMnito 
3201 1B92D 147 C=DAT1 A .. then add rult. 
3202 1B9% 122 INnltO ARZEX 
3203 18933 23 P= 3 
3204 1B935 05 SETDEC 
3205 1B937 AIR A=A+C WP Increase digit count. 
3206 1B93AR 04 SE THEX 
3207 1B93C 20 P= 0 
3208 1B93E 4A4 GOC Inerr Overflou. 
3209 x 
3210 18941 122 ARZEX 
3211 x 
3212 1B944 868 IMnult ?ST=O sMULT Multiplier pending? 
3213 1B947 51 GOYES BlINA) No. Send char to B1dING. 
3214 1B949 7880 GOSUB COPYru Copy tultiplier. 
3215 1B94D 7511 GOSUB B1dINA Send char to BidING. 
3216 18951 312D LC(2} uLOOPB Loop on byte. 
3217 18955 6211 : GOTO «Bld ING Store "loop on byte" in Bl1dING. 
3218 
3219 . 
3220 II III III IIT II III II III III IK 
3221 x 
3222 18959 851 cNoMlt ST=1  sC/P 
3223 1B95C NoMult 
3224 1B95C 7601 BLINA) GOSUB B1dINA Write synbol to BIdING. 
3225 18960 878 IN," ?ST=1  smuLT Multiplier pending? 
3226 1B963 62 GOYES IMerr Yes. 
3227 18965 93 RTNCC 
3228 x 


3229 
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3230 EJECT 
3231 JI OI TITTIES SITS IE II SII SAS 
3232 JI IIIS TS TSI IIIS SSSI ISIS IASI SI IIIS A 
3233 AX 
3234 A% Nane:(S) IMerr - Report "Invalid IMAGE" error 
3235 aK 
3236 4% Category: SYSTEM 
3237 ak 
3238 ** Purpose: 
3239 ae To generate the error "Invalid IMAGE". 
3240 KK 
3241 ** Entry: 
3242 aK No necassary conditions. 
3243 xx 
3244 ak Exit: 
3245 A Through MFERR. 
3246 an 
3247 ** Calls: MFERR 
3248 ak 
3249 ** Uses: MFERR exits to BASIC main loop; may use anything 
3250 ak 
3251 KE Stk lvls: MFERR exits to BASIC main loop; nay use 7 
3252 aR 
3253 ** Detail: 
3254 ah =IMerr P= 0 
3255 x LC(2)  =eINVIN 
3256 ax GOVLNG =NFERR 
3257 aR 
3258 ** History: 
3259 ae 
3260 am Date Progranner Modification 
3261 a aa aaa aa aati 
3262 xk 42/08/82 MB Docunentation 
3263 ia 
3264 JI IIS I I III ITO ITI SI III III IIIT TI SII III III III III IIT IIIA I 
3265 III ISI IIIT IS IT IIIT TID ISAS III I IIIS IIIS III ISIS II III III IIS IIS IK 
3266 x 
3267 18967 IMGend End of IMAGE string. 
3268 18967 7BFO GOSUB BidINA Write ulMend to B1dING. 
3269 1B96B 72B0 GOSUB INDO-2 Don’t want DO increnented past. 
3270 1B96F 855 ST=1— sSTOP For IN)" , 
3271 18972 778E GOSUB  IN"}'4 Check back for open parentheses. 
3272 1B976 6000 GOTO = =INGxqi 
3273 x 
3274 RIKI III IIIT III OSI IIT II IIIS TAI II IA 
3275 * 
3276 x 
3277 1B97A 137 =©INGbck CDIEX Pass D1 to handler in R2. 
3278 1B97D 10A R2=C 
3279 1B980 7310 GOSUB FPOLL) 
3280 1B984 00 CON(2) =pIMbck 
3281 Rhee teeta e eee tele e ete Oe Sa tote e reas + 
3282 x | If pIMbck handled, handler must return: | 
3283 x | D1 restored (fron RO(A) -- this is | 
3284 x | the D1 fron start of bckud search) | 
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3285 
3286 
3287 
3288 
3283 
3290 
3291 
3292 
3293 
3294 
3295 


3296 


1B986 400 


1B989 20 
1B98B 3100 
1B98F 6E5B 


1B993 75R0 
1B997 8C00 
00 
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x | D(A)= AvMenSt | 
x $ nnn nn nnn nn nnn nn nn en ne nn enn eee eee + 
k 
=Polrtn RTNC Note: for fast poll XMN=0 1s 
* equivalent to Carry set. 
=IMerr P= 0 

LC(2)  =eINVIN “Invalid IMAGE". 

GOTO  kMFERR 
: | 
=FPOLLx GOSUB D12ROA Pass D1 to handler in RO(A). 


=FPOLL) GOLONG =fpoll 


x 
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3297 

3238 

3299 

3300 18990 
3301 1B99D 
3302 1B9A1 
3303 1B9R3 
3304 1B9A3 
3305 1B9A6 
3306 1B9A8 
3307 1B9AC 
3308 1B9AF 
3303 1B9B2 
3310 18985 
3311 18989 
3312 189BC 
3313 1B9BE 
3314 1B9C1 
3315 1B9C5 


78BF 
BE 


8714 
3E 
7AFE 
13? 
112 
iC? 
1533 
87B 
90 
173 
1593 
13? 


3316 1B9C8 03 


3317 
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KE KRKK KAKA KEK KKK HARK KAKA EKA KEKE RIK 


x 


WREDIG 


WRHDG3 


WR#DG5 


x 


GOSUB NoMult 
C=A A 


?ST=1 sC/P 
GOYES IMerr 
GOSUB = IMin01 
CDIEX 

R=R2 

D1=D1- 8 
DAT1=A 4 
?ST=1 sRDX 
GOYES WR#DGS 
D1=D1+ 4 
DAT1=A 4 
CDIEX 

RTNCC 


Enter with C(B)= new delin token. 
Write synbol to BIdING. 
C= new delin token. 


C/P pending? 

Yes. 

Back to delin token. 

Di= addr of delin. 

Fetch digit counter. 

To total digit# storage. 
Store total #digits. 
Counting radix digits? 
Yes. 

To #digits-till-rdx storage. 
Write out #digits. 
Restore D1. 
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3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 


1B9CR 846 
1B9CD DO 
1B9CF 09 
1B9D1 A86 
1B9D4 OB 
1B9D6 03 


18908 D1 
1B9DA 147 
1B9DD C9 
1B9DF 173 
1B9E2 1503 
1B9E6 1C3 
1B9E9 848 
1B9EC 03 


1B9EE 878 
1B9F 1 8F 

189F3 3180 
189F 7 507 
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EJECT 
JOO II OI II OC TIT OT TIO TI TIT TAK 


k 
=CLOST+ ST=0 = sSpecl 


=CLOST A=0 A Clear 0 nibble of status bits. 
=SET-ST C=ST Set 0 nib of st bits to A(0). 
C=A P 
CSTEX Leaves C(X)= original status. 
RTNCC 


x 
TORII IOI OTTO TUTTO TT TTT TT RIK 
x 


COPYnu B=0 A 

COPYn1 C=DAT1 A 
C=B+C A 
D1=D01+ 4 
DAT1=C 4 
D1=D1- 4 

COPYn3 ST=0  sMULT 


RTNCC 
* 


SOR IOI IOI IIT TIO OT TSO TIT TI K 
x 


In'(" 7ST=1 sMULT Multiplier pending? 
GOYES COPYn3 Yes. Leave multiplier open. 
LC(2) uOPNNN No. "Open loop, no multiplier." 
GONC BIdING (BET) Write to BIdING. 


x 
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3346 
3347 JIU IIE OCCT TO TT RR 
3348 $3] III UII III OIC RTO TR TT 
3349 aK 
3350 &* Wane: SetAVM - Set D(A)=AvMenSt, D1=AvwMeriEnd 
3351 ae 
3352 ** Category:  PTRUTL 
3353 RK 
3354 ** Purpose: 
3355 ax To set D(A)=AvMenSt, 01=AvMenEnd 
3356 ak 
3357 kk Entry: 
3358 kk No necessary conditions 
3359 &k 
3360 ek Exit: 
3361 ak Carry clear 
3362 KK D(A)=AvMenSt 
3363 aK D1=C(A)=AvMenEnd 
3364 hk 
3365 ** Calls: D=AVMS, D1=AVE 
3366 ax 
3367 BE USCS. oicase 
3368 **k Exclusive: Nothing.... 
3369 *k Inclusive: C(A), D(A), D1 
3370 ax 
3371 *K Stk lvls: 1 
3372 ve 
3373 ** Detail: 
3374 ig =SetAVM GOSUBL =D=AVNS 
3375 xD GOLONG =D1=AVE 
3376 ak 
3377 *® History: 
3378 aR 
3379 EX Date Programmer Modification 
3380 OX: weeeesS ANSE YECES, “eu eeen tet Ported settee et sles 
3381 kk 12/08/82 MB Docurientation 
3382 a 
3383 JOIST OO TOT GOS ISIS III IS II IIIS 
3384 JIS IO OO COSI OS SOOO O I IA IS I IITA 
3385 1B9FA 8E0O =SetAVM GOSUBL =D=AVNS 
090 
3386 * 


3387 1BROO 8000 =SetAVE GOLONG =D1=AVE 
00 


3388 > 
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3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
342? 
3428 
3429 
34% 
3431 
3432 
3433 


3434 
3435 
34 36 
343? 
34 38 
3439 
3440 
441 
3442 


1BRO6 &D00 
000 


1BROD 110 
1BA10 137? 
1BA13 135 
1BR16 7CEF 
{BAIA D6 
TBAIC 108 
1BRIF 01 
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EJECT 
JOGO IO TIO IO I IIIT IIIT III III ITI IIIT TTI K 


JI III ITI IT IIIS I III III III III STAT II IIIS IT ISIS IIIS IAI ISIS SII IIA 
xx 

** Nane:(S) CSLORO - Copy Di to RO(9-5) 

ax 

*® Category:  GENUTL 

ax 

** Purpose: 

i Copy D1 to RO(9-5) without disturbing the rest of RO. 
ae 

kk Entry: 

ax No necessary conditions. 

ae 

RX Exit: 

oe p = 0 

ax Carry clear 

kx 


** Calls: CSLUPS 
ax 

X* Uses. ....e. 

** Exclusive: A,C(A) 
xx Inclusive: A,C(A) 
a 


** Stk lvls: 1 

ke 

** Detail: 

a =CSLORO A=RO 

xs CD1EX 

AK D1=C 

aK GOSBYL =CSLUP9 
ax C=A A 
ne RO=C 

ae RIN 

ke 

** History: 

aa 


x Bate Progranner Modification 
RX. SSedceewoer 8 Meesticeew” Gehl eto cece ete tee eel e eek 


kk 12/08/82 MB Docunentation 

wk 

JO UII ITI IOS IEIS CIE ISIS ISI ITT TI 
JEISIIG III II ISI GIOI IEICE OTIC EIT TORTI 
t 


=CSLU9} GOVLNG =CSLUPS 


,P 


& 
=CSLORO A=RO 
CSLOR+ CDIEX 
D1=C 
=CSL2RO GOSUB CSLW9) 
C=A A 
RO=C 
RIN 
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3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3462 
3453 
3454 
3455 
3456 
345? 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
347? 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
34% 
3491 
3492 
3493 
3494 
3495 
3496 
3497 1BA21 129 
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EJECT 
FI TI II RE TT TRI TI DRIED I IATA TALI STII RI DIA A ISA IIL 


SOOO I TOOT TOO IIT TIO ST TTT 
ak 


** Nane:(S) IMDO+2 - Add 2 to R1(A), copy value to DO 
** Nane:(S) IMNDO-2 - Subtract 2 fron R1(A) 


tox 
** Category:  GENUTL 

tor 

** Purpose: 

ae INDO+2: Take DO storage in R1, increment by 2 and copy 
xm to DO. 

ae INDO-2: Subtract 2 fron R2(A). 

1k 

** Entry: 

aA No necessary conditions. 

ae 

Ae Exit: 

a Carry clear. 

a IMDO+2: R1(A) increnented by 2. 
a DO=C (A)=R1(A) 

= IMNDO-2: R1(R) decrenented by 2. 
a 

** Calls: none 

tk 

BR USES icc caisa's 

xk Exclusive: 

=e INDO+2: C(W), DO 

a INDO-2: nothing 

ki 

tk Stk lvls: 0 

tk 

** Detail: 

xk sIMDO-2 CRIEK 

ae C=C-1 A 

Ko C=C-1 A 

& CRIEX 

Kx RTNCC 

ke SINDO+2 C=R2 

x C=C+1 A 

ae C=C+1 A 

a R1=C 

tok DO=C 

RX RTNCC 

tk 

** History: 

x 

al Date Progranner Modification 
PR ous, eae tN eee Rea ete taw eth N ut ates 
*k 12/08/82 MB Docunentation 
ae 


FORGOT IO UIT TOI III II IK 
FORO ITO TO ROTI ITT OI TOO IC 
x 


=INDO-2 CRIEX 
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3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3503 
3510 
3511 


1BA24 
1BA26 
1BA28 
1BA2B 


1BR2D 
1BAXM 
1BA32 
1BA34 
1BR37 
1BA3A 


CE 
CE 
129 
03 


119 
6 
£6 
109 
134 
03 
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=IMDO-- C=C-1 
C=C-1 
CRIEX 
RTNCC 


m>w»D 


x 
JO III III II II TK 
x 
=INDO+2 C=R1 

C=C+1 A 

C=C+1 A 

R1=C 

DO=C 

RTNCC 
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3512 
3513 III IT RIT IDI I DI ITI IA IIIS ITI STII IIR I IIIT III II II IIA IIS ISI III IIA 
3514 IOI II AT I IID SII IIIT IOS IIS III ISIS IIT II IIIT II IIIA I IIIS I SII A IA 
3515 BR 
3516 && Nane:(S) D12ROA - Copy D1 to RO(A) 
3517 a 
3518 ** Category:  GENUTL 
3519 aR 
3520 ** Purpose: 
3521 o To copy D1 to RO(A) without disturbing the rest of RO. 
3522 
3623 ** Entry: 
3524 aa No necessary conditions. 
3525 aR 
3526 AR Exit: 
3527 ak Carry clear. 
3528 ae 
3529 *k Calls: none 
3530 ak 
3531 aK Uses....... 
3532 *k Exclusive: RO(A) 
3533 aia 
3534 ** Stk lvls: 0 
3535 aR 
3536 ** Detail: 
3537 ay =D12ROA CROEX 
3538 a CDIEX 
3539 aR D1=C 
3540 = CROEX 
3541 ak RTNCC 
3542 x 
3543 ** History: 
3544 aE 
3545 a Date Progranner Modification 
3546 Tis wietenGh: wigdisousce. Diesteqoeticcuunw tes peeckonte@edans 
3547 ae 42/08/82 NB Docunentation 
3548 aR 
3549 JIA III OST IIIT IIIT TI SI II TID TTI I IAI IIIT IIIT II III IIIS ISI IIT IIA 
3550 JIG II I I TITER TERT TITER II IIE I IDI ASIST IIIS IIIA 
3551 1BA3C 128 =D12ROR CROEX D1 to RO(A). 
3552 1BA3F 137 CD1EX 
3553 1BA42 135 Di=C 
3554 1BA45 128 CROEX 
3555 1BA48 03 RTNCC 


3556 x 
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3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
- 3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3685 
3586 
358? 
3588 
3683 
3590 
3591 
3692 
3693 
3594 
3595 
3596 
3597 
3538 
ano 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 1BA4A 20 
3610 1BAAC 103 
3611 


xk 
xk 
xk 
ak 
ak 
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EJECT 
JO OO TITS ITI CTO TST TOT TAK 


FOO JOT TOO TIT TI ITI IK 


Narie: BACK - Parse scan of DAT1, increnent D1+2 
Narie: BYTscA - Parse scan of DAT1, decrenent 01-2 


aK 


xk 
ak 
ak 
ak 
ak 
xk 
ax 
xx 
ak 
aK 
ak 
ax 
ak 
ak 
xx 
ak 
xk 
xk 
ae 
xk 
aK 
ak 
xx 
xk 
a 
an 
ak 
xk 
ak 
ax 
ak 
ak 
aK 
ak 
xk 
a 
a 
a 
ak 
an 
ak 
ak 
ax 
xk 
x 


=B 


Category:  EXCUTL 


Purpose: 
Read a byte fron DAT1, scan a table of values for a 
natch. If natch found, jump to corresponding routine. 


Entry: 
BACK:  P=0 
Byte for matching is at D1+2. 
BYTscA: Byte for matching 1s at D1-2. 
Table of byte values and relative offsets 
resides as RSTK address (as for FINDA) 
Exit: 
P = 0 
Carry clear 
Exits to desired routine if byte natch, returns 
to address past table if no match. 


Calls: FINOA 


Exclusive: A(B),D1 


Inclusive: A(C),01,C(A),P 
Stk lvls: 1 
NOTE: 
See FINDA for description of table. 
Detail: 
=BYTscA P= 0 
Di=D1- 4 
=BACK D1=D1+ 2 
A=DAT1 B 
GOVLNG =FINDA 
History: 
Date Prograrnner Modification 
12/08/82 MB Docunentation 
JOR III CI TOI I IO TI TOK 
JIU IOI TO TI I I ITT II III IOI ITI IAT III IIIT 
YTscA P= 0 


D1=D1- 4 (Make next stnt a D1=D1-2) 
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3612 1BA4F 171 =BACK 01=Di+ 2 Back to last IMAGE token. 
3613 1BA52 148 A=DAT1 B 
3614 1BA55 514 GONC FINDA; (BET) 


3615 
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3616 EJECT 
3617 JX III III IOC TI TOI TIO TOTTI 
3618 JU III OI OO OOS OCR OCT TK TOK 
3619 aK 
3620 kk Nanie:(S) BldING - Put tokens fron C into BLdING strean 
3621 kk Nane:(S) BldIMA - Put 1 or 2 tokens fron A into BldING 
3622 - Narie:(S) BldIM+ - Put tokens fron C into BIdING strean 
3623 
3624 tk Category:  EXCUTL 
3625 aK 
3626 ak Purpose: 
3627 ak To put IMAGE tokens into parse strear. 
3628 aK 
3629 ek Entry: 
3630 ak BIdIMA:  A(B)=token and P=0 
3631 RK or A(3-0)=2 tokens and P=2 
3632 RR BIdING: C=tokens and P=2*(#tokens-1) 
3633 ak BldIM+: C(WP)=tokens and P=2*(#tokens)-~-1 
3634 a Di=current position in BIdING strean 
3635 aK D(A)=AVMENSt 
3636 aK 
3637 ae Exit: 
3638 ak Pp = 0 
3639 ak Carry clear 
3640 ak Exits to MEMERR if D1 moves below AvMenSt 
3641 x 
3642 tk Calls: none 
3643 a 
3644 RK Uses....... 
3645 tk Exclusive: P,D1 moved below write 
3646 RK BIdINA: also does ACEX A 
3647 aK 
3648 *k Stk lvls: 0 
3649 ak 
3650 ** NOTE: 
3651 ak The "BldING" strean refers to the token strean used 
3652 = for IMAGE execution. This routine can be used by any 
3653 ae code which needs to write bytes or nibbles to Available 
3654 * Menory. 
3655 ak 
3656 ak Exaripl: for entry into BldING, say C(7-0) contains 
3657 aK 4 tokens. Then enter with P=6. 
3658 ak 
3659 k Detail: 
3660 xk =BIdIMA ACEX A 
3661 ae =BIdING P=P+1 
3662 ak =BldIM+ C=-C A 
3663 ak C+P+1 
3664 ak C=-C A 
3665 ak *C<=D A 
3666 aK GOYES MEMERR 
3667 ak CDIEX 
3668 aK DAT1=C WP 
3669 aK Pz 0 


3679 ah RTNCC 
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3671 RK 
3672 ** History: 
3673 ak 
3674 aX Date Prograrner Modification 
3675 RK nnn nen weet n enn nn nee eee n nee ee ee 
3676 xx 12/08/82 NB Docunentation 
3677 ak 
3678 ORI OIOOIOI JOJO JOJO RIOR JO IO TOTTI ITO 
3679 TORII JO ROI RII OI 
i 
re $I IU ICC CIO TTR TET K 
3682 JUICE OI TTT IK 
3683 a 
3684 Nane:(S) IMoffs - Store offset fron D1 in BIdING strean 
3685 
3686 *k Category:  EXCUTL 
3687 ax 
3688 ** Purpose: 
3683 ax Store a 5-nibble offset fror D1 in the BldING strean. 
36%” ak 
3691 ek Entry: 
i 3692 ax P= at least 4. If C€(15-5) contains nore tokens to 
3693 ax urite into the BldING strean, then set P such that 
3694 ak a P=P+1 will define the entire write field in C(WP). 
3695 aK C(A)=address-2 for which offset will be conputed. 
3696 ah 
3697 Rk Exit: 
3698 aK Pp = Q 
3699 ax Carry clear 
3700 aK 
3701 &k Calls: B1dINA 
3702 aK 
3703 tk Uses. ...... 
3704 kk Exclusive: C(A) 
3705 *x Inclusive: P,D1 (does not use A) 
3706 RK 
3707 ** Stk lvls: 0 
3708 ax 
3709 ** Detail: 
3710 ak =IMoffs ADIEX 
: 3711 ak C=C-A A 
3712 kk ADIEX 
3713 aK C=C+1 A 
3714 ak C=C+1 A 
3715 ax ACEX R 
3716 ak <falls into BldINA> 
3717 ak 
3718 kk History: 
3719 ax 
3720 a Date Progranner Modification 
3721 BK ene nn nn neem nnn ne nn nnn nen nen en enn en enn nen een rene 
3722 kk 12/08/82 MB Docunentation 
323 kk 
3724 FOO FOI RTO RI ROO IO TO IOI ROTO OI IIIT ITI IOI 


3725 SOIT I TTI TI JO II II IIE 
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3726 k 
3727 1BA58 133 =IMoffs ADIEX Conpute offset to IMAGE. 
3728 1BA5B E2 C=C-A A Offset. 
3729 1BA5D 133 ADIEX Restore D1. 
37% 1BA6O £6 C=C+1 A 
3731 1BA62 E6 C=C+1 A 
3732 1BA64 DE ACEX A (nullify next ACEX) 
3733 & 
3734 x 
3735 1BA66 DE =BldINA ACEX A C(B)= synbol; save C in A. 
3736 x Next staternent sends 2 nibs out. 
3737 1BR68 OC =BldING P=P+1 
3738 1BA6R 137 =BldIN+ CDIEX 
3739 1BR6D FA C=-C A 
3740 1BR6F 809 C+P+1 Move D1 down #nibs. 
3741 1BR72 FA C=-C A 
3742 1BA74 8BB 7C<=0 A Past AVMENS? 
3743 1BA77 72 GOYES jMEMER Yes, MEM ERR. 
3744 1BR79 137 CDIEX 
3745 1BA7C 1551 DAT1=C WP Write out symbols to B1dING. 
3746 1BA80 20 P= 0 
3747 1BA82 03 RTNCC 


3748 
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3749 EJECT 
3750 FOI RII SIO I II IIS IIIS II IIIS SS OSI ISIS SSI IIIS IIIA 
3751 JOO III IO TITS OI IIIS STII IT ORT IER TR 
3752 aR 
3753 ** Nane:(S) PRSscn - IMAGE parse scan 
3754 ** Nane:(S) PRSsc+ - IMAGE parse scan, increrent DO first 
3755 aA 
3756 *k Category:  EXCUTL 
3757 an 
3758 ** Purpose: 
3759 ae Read a byte from address in R1(A), scan a table of 
3760 ae values for a match. If match found, jump to corres- 
3761 7 ponding routine. 
3762 an 
3763 *k Entry: 
3764 ak P = 0 
3765 x R1(R)=address of byte to natch 
3766 as Address in RSTK points to table of bytes and relative 
3767 aK offsets (see FINDA for table structure) 
3768 ak 
3769 ak Exit: 
3770 ae P = 0 
3771 ax Carry clear 
3772 o Exits to desired routine if byte natch. If no natch, 
3773 kk returns to address past table. 
3774 am 
3775 k* Calls: CONVUC, FINDA 
3776 RE 
377? BP USCS sc cers 
3778 kk Exclusive: C(W),00,A(B) 
3779 aK PRSsc+ also increments R1(A) by 2. 
3780 *k Inclusive: C(W),00,A(B) 
3781 ak 
3782 *k Stk lvls: 2 
3783 ze 
3784 ** NOTE: 
3785 xe The byte fron the address found in R1(A) is read into 
3786 ax A(B) and converted into upper case before the junp to 
3787 kk FINDA. 
3788 an 
3789 a See FINDA for description of table of bytes and offsets. 
37% x 
3791 ** Detail: 
3792 xx =PRSsc+ GOSUB INMDO+2 Increment R1(A) by 2. 
3793 ak =PRSscn C=R1 
3794 a DO=C 
3795 ae A=DATO B 
3796 Ax GOSUBL =CONVUC Convert to upper case. 
3797 aK GOVLNG =FINDA 
3798 x 
3799 ** History: 
3800 ke 
3801 x Date Progranner Modification 
3802 WK eee nee meen comer nnn ence n nnn mens nnennnae 


3803 xk 42/08/82 NB Docurientation 
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3804 aK 
3805 JI III IAAI ISI IIIT ATID II IIT III IIS I III II IIIS IIIS III SII III IIIS TS IK 
3806 FSI IRI III DTI I ITT ATI AID IIT III I ISI IIS ISS SSSI ISIS III III ISS I SIA 
3807 * 
3808 1BA84 75AF =PRSsc+ GOSUB IMDO0+2 Increnent DO (in R1) by 2. 
3809 1BA88 119 =PRSscn C=R1 Fetch DO, don’t advance. 
3810 1BA8B 134 do=C 
3811 1BA8E 148 A=DATO B Next IMAGE char. 
3812 1BA91 8E00 GOSUBL =CONVUC Convert to upper case. 
0 
3813 1BA97 8D00 =FINDA) GOVLNG =FINDA 
000 
3814 x 
3815 FI II ISI ATI III TIT III IIIA III SSIS II AS 
3816 1BASE 8COO jNENER GOLONG =NENER) GOTO MEMERR 
00 
3817 x 


3818 1BAR4 END 
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A-chr 
=BACK 
BACK2( 
BACK2d 
BD1+12 
BD1+6 
BDELIN 
BDLIN3 
BDLIMS 
BOLIN? 
BOLING 
BINPst 
BIMP{ } 
=BOPNN- 
BOPNNI 
BOPNWM 
BOPWO1 
=BOPWOS 
=BYTscA 
BLINA; 
=Bl dIM+ 
=BldINA 
=BldING 
BuDLIN 
C+A2D1 
C-chr 
CKINFO 
=CLOST 
=CLOST+ 
CONVUC 
COPYn1 
COP Yn3 
COPYrnu 
CP 

CPE 
=CSL2RO 
CSLOR+ 
=CSLORO 
=CSLHI j 
CSLUPS 
CSRS) 
CkD1+)j 
CkD103 
CkD107 
CkD1BS 
CkDlir 
CkD1 n+ 
=CkLoop 
=Ck LpNC 
CkM1O3 
CkM1LIS 
CkMht? 
Ckitlet 
CkMl25 
CkN127 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


8192 #02000 
113231 #1BR4F 
112648 #18808 
112844 #1B8CC 
112838 #1B8C6 
112841 #1B8C9 
112891 #1B8FB 
112900 #1B904 
112915 #1B913 
112922 #1B91A 
112925 #1B91D 
112716 #1B84C 
112701 #1B83D 
112740 #1B864 
112722 #1B852 
112747 #1B86B 
112749 #18860 
112765 #18370 
113226 #1BR4A 
112988 #1895C 
113258 #1BR6A 
113254 #1BA66 
113256 #1BR68 
112886 #1B3F6 


32 #00020 


113101 #1B9CD 
113098 #1B9CA 


113114 #1B9DA 
113129 #1B9E9 
113112 #1B9D8 

36 #00024 

100 #00064 
113174 #1BA16 
113168 #1BA10 
113165 #1BROD 
113158 #1BRO6 


112596 #187D4 
112048 #1B5B0 
112057 #1B5B9 
111959 #18557 
112027 #1B53B 
112019 #18533 
112233 #1B669 
112237 #1B66D 
112276 #1B694 
112298 #1B6RA 
112331 #1B6CB 
112352 #1B6E0 
112383 #1B6FF 
112396 #18700 


189 
3612 
2843 
3153 
3150 
3191 
3177 
3181 
3187 
319 
3191 
2891 
2886 
2972 
2896 
2976 
2977 
2985 
3609 
3224 
3738 
3735 
3737 
3174 
2887 

197 
1873 
3322 
3321 
3812 
3331 
3336 
3330 

204 

208 
3438 
3436 
3435 
3433 
3433 
2685 
2763 
2059 
2063 
1974 
2052 
2049 
2534 
2538 
2557 
2569 
2583 
2594 
2603 
2611 


2110 
2849 
2873 
3168 
3156 
3159 
3170 
3178 
3185 
3188 
3182 
2870 
2867 
2858 
2861 
2855 
2974 


3213 
2554 
3215 
1850 
3162 


204 


2105 


2983 
3342 
2719 

208 
2190 


1887 
3173 
1879 


2692 
2838 
2057 
2060 
2063 
2605 
2007 
1939 
2049 
2544 
2542 
2573 
2601 
2594 
2596 


2147 
3153 
2892 


2712 
3224 
1882 


3214 
2197 


3438 


2763 
2302 
2109 


2580 
2604 
2598 
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2761 
3268 
2102 2722 2989 3217 3344 


2236 92273 


2349 «2385 
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CkNlt) 
CkMult 
0-chr 
=D12ROA 
D1=AVE 
D=AVNS 
DRANGE 
Dblat 
E-chr 
=EndBck 
=EndNuri 
FINDA 
=FINDA 
=FPOLL) 
=FPOLLx 
In" (" 
IM" mu 
In",” 
Ina" 
In"p" 
Ine" 
Im'x"' 
In'z" 
In" }" 
In" "4 
IM1 wet 
INCHRp 
=INDO+2 
=INDO-- 
=INDO-2 
INDrdx 
INGbck 
INGend 
INGxq1 
INGxqt 
IMHKB™ 
INLoop 
IMbpnu 
IMentr 
=IMNerr 
IMerrb 
IMerrc 
IMerrd 
IMerre 
ymi"4" 
Imi"A" 
>", Tmi"o" 
IMi"Z" 
TMind1 
IMino3 
=TManit 
IMint 
IMasgn 
IMnlt+ 
IM to 


Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Rbs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 


112564 #1B7B4 
112237 #1B66D 
16384 #04000 
113212 #1BA3C 


2048 #00800 
64 #00040 
112732 #1B85C 
230 HOOOES 


113303 #1BA97 
113047 #18997 
113043 #18993 
113134 #1B9EE 
112144 #18610 
112992 #1B960 
412101 #1B5E5 
112113 #1B5F1 
112568 #1B7B8 
112600 #1B7D8 
112152 #1B618 
112634 #1B7FA 
112637 #1B7FD 
112160 #18620 
111995 #1B578 
113197 #1BR2D 
113188 #1BR24 
113185 #1BA21 
112130 #1B602 
113018 #1B97— 
112999 #18967 


112619 #1B7EB 
112229 #1B665 
112225 #1B661 
111925 #1B535 
113033 #18989 
112499 #1B773 
112317 #1B6BD 
112392 #1B708 
112697 #1B839 
112144 #1B610 
112101 #1B5E5 
112113 #1B5F 1 
112152 #1B618 
112806 #1B8R6 
112835 #1B8C3 
112783 #1B88F 
112786 #1B892 
112191 #1B63F 
112929 #18921 
112944 #18930 


Table 


2723 
2539 
188 
3551 
3387 
1875 
2541 
191 
196 
2903 
62 
3813 
3813 
3295 
3294 
3341 
2234 
3225 
2144 
2185 
2753 
2791 
2271 
2843 
2844 
2300 
1995 
3505 
3498 
3497 
2194 
3277 
3267 
2010 
3179 
2834 
2532 
2531 
1924 
3290 
2698 
2577 
2608 
2881 
2eJ3 
2143 
2184 
2270 
3130 
3149 
3121 
3122 
2384 
3196 
3202 
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2717 
2429 
2110 
2846 


3385 


203 
208 
2984 


3614 
3137 
1995 
1989 
2624 
197? 
2615 
2614 
2622 
2613 
2621 
1986 
3271 
2625 
2053 
1812 


1993 
2187 
2864 
1992 
3272 


2628 
2146 
2196 
1930 
2608 


2421 
2577 
2827 


2428 
3133 
2532 
2835 
2426 
2536 
3200 


2792 
2567 
21% 
3131 


2303 
3194 


3279 


2301 


2687 
3269 


2189 
e235 


2881 
2562 


2698 
2899 


3306 
3135 
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2829 
2571 
2197 
3294 


2350 


2845 


3808 


2272 
3208 


2980 
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IMnult 
=IMoffs 
IMprct 
Ifirdx 
IMsep 
IMsign 
IMstr 
IMstr3 
Imstr? 
IMstrt 
INtb1 
=InhEOL 
=IvUSG) 
LINSKP 
fi-chr 
MENER j 
MFERRO 
MOVEDO 

Nf 
Nolult 
=Nxtf 13 
Nxtfld 
P-chr 
PFINDL 
PRSCKB 
=PRSsc+ 
=PRSscn 
=Polrtn 
Pt-chr 
R-chr 
R3=D10 
REVPOP 
Rx 
S-chr 
=SET-ST 
sh 
=STMTNF 
=SetAVE 
=SetAvn 
Sglqt 
TBLINP 
USG003 
USGOOS 
USGOO? 
USGO0O9 
USGO11 
=USING 
WRHOG3 
WREOGS 
WREDIG 
K-chr 
Z-chr 
Z1-chr 
astrsk 
cNoftlt 


Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ros 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Rbs 


112964 41B944 
113240 #1BA58 
111948 #1B54C 
112172 #1B62C 
112607 #1B7DF 
112199 #18647 
112451 #1B743 
112497 #18771 
112519 #1B787 
112692 #1B834 


4 #00004 
111848 #1B4E8 


256 #00100 


1 #00001 
112988 #1B95C 
112086 #1B5D6 


112061 #1B5BD - 


4 #00004 


113284 #1BA84 
113288 #1BA88 
113030 #18986 
4096 #01000 

2 #00002 


4098 #01002 
512 #00200 
113103 #1B9CF 
768 #00300 
111846 #1B4E6 
113152 #1BROO 
113146 #1B9FA 
1024 #00400 


111746 #1B482 
111770 #1B49R 
111814 #1B4C6 


111861 H1B4F5 - 


111888 #1B510 
111686 #1B446 
113059 #1B9A3 
113093 #1B9C5 
113053 #1899) 
32768 #08000 


128 #00080 - 


8 #00008 
16 #00010 
112985 #18953 
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Table 


*~ ‘acle 
ey 13027 
- 1938 
- 2344 
- 2825 
- 2419 
- 2677 
- 2697 
- 2709 
- 2879 
- 2589 
- 178 
- 1864 
- 1824 
- 194 
- 3816 
- 1868 
- 1853 
- 202 
- 3223 
- 2104 
2095 

200 
1814 
1811 
3808 
3809 
3288 

19% 

201 
1886 
1874 

206 

193 
3323 

205 
1861 
- 3387 
- 3385 
- 192 
- 2611 
- 1823 
- 1832 
- 1848 
1872 
1878 
1803 
3303 
3315 
330 

18? 

195 
= 199 
- 198 
- 3222 


1980 
269 
1927 
2616 
2623 
2619 
2617 
2705 
2702 
2852 


1828 
205 


2110 
2424 


1934 


1924 
1974 
1997 
206 
206 


207 
205 


207 
1815 


' # © @ t 4 


1848 
203 


1842 
18214 
1808 
1852 
1857 


2061 
3312 
2347 

203 
2110 
2190 
2110 
2828 


es | 
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1983 
2987 


2627 
2626 


2620 
2618 


1844 


2837 


2539 
3139 


2386 


2197 


2757 


2273 
2236 
2236 


2791 


3H1 


2380 


2386 
2386 
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eINVIN 
eINVUS 
eSTMNF 
ed 
edStikx 
expr 
fpoll 
jMEMER 
=kMFERR 
pINCHR 
pitbck 
pIticp. 
=sC/P 
=sCntg 
=sCplxP 
=sF OUND 
=sInit 
=sMULT 


=sRDX 
=sSIGN 
=sSTOP 
=sSpecl 
=SXQT 
tEOL 
tLBLST 
tLINE# 
zuALit 
zuCPLXC 
=uDELIN 
=uHKB™ 
=uINXCH 
=ulMbck 
=ulNend 
csulMsta 
suJMPdl 
suJMPst 
zuJNP< } 
=uLOOPB 
=uLOOPP 
=uLOOPS 
=uMULT 
=uNUNEn 
=uNUNEs 
=uNUNFn 
z=uNUNF s 
=uNUMNn 
=uNUMNs 
=uOPNN- 
=u0PNNN 
=uOPNWM 
=uRESTP 
=uSTRPT 


Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ros 
Abs 
Abs 
Abs 
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35840 #08C00 
40706 #09F02 


113310 #1BASE 
111854 #1B4EE 


1 #00001 
2 #00002 
7 #00007 
10 #OOOOR 
3 #00003 
8 #00008 


11 #0000B 


9 #00009 - 


5 #00005 
6 #00006 
Q #00000 


247 #OO0F?7 
238 HOOOEE 
244 #OOOF4 
246 #OOOFS 
212 #OOOD4 
220 #OOODT 
240 #OOOFO 
222 ROOODE 
219 #000DB 
218 #OOODR 
217 #00009 
210 #000D2 
239 HOOOEF 
211 #00003 
209 #00001 
252 HOOOFL 
253 HOOOFD 
250 HOOOFR 
251 ROOOFB 
248 HOOOFS 
249 HOOOFS 
223 HOOODF 
216 #000D8 
224 HOODEO 
241 HOOOF 1 
208 #00000 


Table 


= 3291 
- 1866 
- 1867 
#203 
- 20? 
- 1872 
~ 3295 
- 3816 
- 1868 
- 1996 
- 3280 
- 3138 
- 174 
- 175 
- 181 
- 168 
- 176 
- 166 
3225 

- 169 
167 
= 479 
- 180 
173 
1826 
1840 
1806 
78 
69 

- 75 
2 77 
- 49 
= 56 
: 71 
= 57 
= 55 
= 54 
* 5 
7 47 
= 70 
: 48 
+ 46 
= 83 
4 84 
« 81 
= 82 
= 79 
= 80 
“ 58 
< 52 
- 59 
# 74 
2 45 


207 
2110 


3743 
3292 


2826 
2059 
3132 
3125 
1938 
2543 
3336 
2097 
2096 
2843 
3321 
3126 


2145 


2101 
2834 


2863 
1849 
1881 
2054 
2710 
2866 
3216 
2986 
2721 
2551 

84 


80 


59 
2860 
2549 
3166 

46 
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2050 
2190 


3196 
2762 


2052 
2545 
3341 
2186 
2420 
2879 


3134 


3161 


1991 
2851 
2099 
2869 
2988 


2756 
2188 
2531 
2857 
3343 
2854 


2689 


2147 
2236 


3222 
3121 


2425 
2572 
2348 
2423 
2898 


3172 


3158 
3155 
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2197 
2273 


3304 


2602 
2581 


3311 
3187 
2979 


3177 


2350 «2386 
203 


3122 3124 
2716 3199 


3270 
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re sete 


Input Paraneters 
Source file nane is AB&ING:: MS 
Listing file nane 1s MB/ING: TI:ML::-1 
Object file nane is MBZING:TI:MS::-1 


111111 
0123456789012345 
Tree Initial flag settings are 
Errors 
None 


Saturn Asserbler News 
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1 % nh mn BBBB & UU SSs GGG 
2 x MW Mh B B && U> US. S26 GO 
3 a hnn B B && U uU § G 
4 x hm BBBB & UU SSS 6 G6E 
5 z nh mB B&&& UU SG G 
6 x h mB Bé&& YU Us $ G G 
7 & h Mm BBBB && & UU SSS GGG 
8 
9 TITLE USING Execution Routines <831212.1519> 
10 1BRA4 ABS #1BRA4 
14 x 
12 RDSYMNB MBZING: M5 
13 JOIST I TI TT TOR TTI TIT I IO TI AT IST III SSK ISIS IIIA A 
14 * FIXED ENTRY POINTS (labels which are not used in the 
15 x HP-71 nainfrane, but which should be kept as 
16 x external entry points for applications): 
17 x INxq27 
18 x USGch- 
19 x USGch+ 
20 s USst03 
21 x USstO5 
22 * USGrst 
23 * USnrnO5 
24 a ENDING 
25 x NuOF FS 
26 * RCVOFS 
27 k C+A201 
28 x GetE XP 
29 x TstEnd 
x” x DCRMNT 
31 x USloop 
32 x NXTEXP 
33 . COUNTC 
34 k 
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35 EJECT 
36 FOI II II TOT II IOS IIS IIIA I III IOI III I IAAI IK 
37 * STATUS BITS: 
38 x Note: STR$SB uses SO and S1. This does not cause 
39 * any problens as long as the status bit values 
40 . below are used. 
41 k STR$SB uses SO=DSforn 
42 x $1=Blanks 
43 Roe wiss ews hewn eee See eS eo Sees ee eee ss eae eee See te eco eee 
44 x Numeric values: 
45 s"S,M" EQU sXxQT 0 "S" or "M" specified in nuneric fld. 
46 sFLOAT EQU sC/P 1 Nuneric field with floating chars. 
47 sNUNE EQU sCntg 2 Nurieric field with exponent. 
48 _bleres EQU sInit 3 In the zeros. 
49 
50 sKnotH EQU sZeros 3 "K'" specifier, not “H". 
51 sRturn EQU sSTOP 5 Rtn to call routine after disp char. 
52 *sSpecl EQU sSpecl 6 OQutputting NaN/Inf; Ovrflu filling. 
53 sCplxW EQU sCplxP 7 Conplex number being output. 
54 x 
55 sStall EQU sXQT 0 Stalling: no output. 
56 ,SovFrl EQU sC/P 1 Overflow filling (fill with *). 
? 
2 JK II ORI III III III IIIT ISI I ADI I ISI ITI IIA 
59 * These status bits fron MB&ING nust be preserved 
60 * during execution: 
61 & sMULT 
62 * sSIGN 
63 x sF OUND 
64 k 
65 JT III IT ITI ATI IIIT ITI III II IIT III II III ITI IIIA 
66 * \lhen execution starts, a Save area 1s set up at the 
67 * botton (low address) of the stack, below the expanded 
68 * BIdING string: 
69 * 
70 s 5 nibs 3 nibs 5 nibs 5 nibs 5 nibs 
71 Km SS a eke ice a ie ete eS Si a ial Oe te eles ee ae i ee ewe 
72 * | | | | | | BidING... 
73 K&D Po seateeicsceeeseecoccec cece eke Cee See Jeeta ace we sosee 
74 kX used for \ ~* me “ i, ir 
75 * expr only | | | | | length of IMAGE string 
76 x AvMenEnd | | | offset to DO pointer 
7? * offset to xqt addr | offset to start of IMAGE string 
78 : status bits 
79 : 
80 z 
81 *  Available-nenory-end 1s set to the storage location of the 
82 * offset ta the execution address, and remains there through 
83 * Expression Execute. 
84 a 
85 *  Meriory below AvMenEnd 1s used only to store an expression 
86 * (put there by a call to EXPEXC). After return fron 
8? * EXPEXC, the offset to the execution address 1s replaced 
88 * by the offset to the next character to output (or in the 
89 * case of H,K,B or ~, by the offset to the beginning of the 
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90 
91 
32 
93 
94 
95 
96 
97 
98 
399 
100 
101 
102 
103 
104 
105 
106 


stack item). 


Just before calling EXPR: 5 nibs 


AvMenEnd --+ / 
offset to xqt addr 


After returning fron EXPR: 


wee eww wm ww ew a ww ww ee wwe wwe ew em ewe eee wee wee ee ee ee 


i ee re eee 


/ AvMenEnd --+ / 
expr put onto stack offset into expr 


ee OF OF OF Oe OO OO 


FOI IO TI TTT TI IT ITT I III IIT IAI ITN 
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107 EJECT 
108 SII IAI IIIT I TTDI IIIS A DIOS IIIA II III III III ISIS III III III III SII I 
109 * Scratch Register usage: 
110 - 
111 x —RO(R) = execution address (naintained during external 
112 x subroutine calls). 
113 x  RO(9-5) = counter for #zeroes in numeric field (maintained 
114 x during call to SENDIT). 
115 *  RO(S) = flag to identify nuneric syribol: 
116 x Q= * 
WW? x 1= 7 
118 x 5= D 
119 x 
120 * —R1(A) = ternporary storage of zero counter (see USGnun). 
121 k or tenporary storage of xqt address while 
122 . counting floating positions. 
123 * 
124 * = R3(A) == Program Counter (maintained during external 
125 x subroutine calls). 
126 x During float check, 
127 . R3(A)=counter of floats 
128 x R3(9-5)=undecrenented float counter 
129 x R3(14-10)=PC 
130 - 
131 x 
132 * At entry, scratch registers are as described in MB&ING; 
133 * when exiting through USGrst ("re-start parse"), they 
134 : have been restored for MB&ING. 
te JOO DITTO TO IT II ISIS I IIIS IIIS III III IIA 


136 
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137 
1 338 FOO ROJO ROO ROJO OO IO TO TO Ok 
1 39 SOOO JOR IOI TOTTI OOOO OI TTT 
140 aK 
141 ** Nane:(S) pIMXQT - Begin IMAGE execution 
142 aK 
143 ** Category: POLL 
144 aK 
145 ** Type: FPOLL 
146 ak 
147 *k Purpose: 
148 aK To alert LEX files that INAGE fields are about to 
149 an begin executing. 
150 aK 
151 *k Should poll be "Handled" (return with XM=0)?: 
152 ak No. The IMAGE routines do not check if poll handled. 
153 aR 
154 tk Meaning of "Handling" Poll (uhat does code do if handled?): 
155 a None. 
156 ae 
157 *k Entry conditions for handler (registers, ST, RAN, etc.): 
158 a Carry set. 
159 aK B[A] = Poll nunber. 
160 ak HEX node. 
161 aK P=0. 
162 ak RO(9-5)=address of token in BIdING stream where 
163 ah execution is to start. 
164 aK Ri(A)=address of last character to be parsed in 
165 ak IMAGE string. 
166 Be R3(A)=Progran Counter (original DO as passed to 
167 ak the USING routine, updated as expressions are 
168 ah executed). 
169 aK RAM usage as shoun below, in NOTE. 
170 ak 
171 *k Nornal exit conditions fron handler if handled (ST, RAN, 
172 *k registers, etc.): 
173 aK HEX rode. 
174 aK KM=0. 
175 a See NOTE, below. 
176 aK 
177 *k Normal exit conditions fron handler if not handled (ST, RAN, 
178 xk registers, etc.): 
179 ae HEX node. 
180 aa xM=1. 
181 ak See NOTE, belon. 
182 ak 
183 *k Available subroutine levels: 
184 aK 5 
185 ak 
186 *k NOTE: 
18? i IMAGE parsing and execution are very involved. 
188 x Study the USING routine header and pIMbck, pIMcpi, 
189 ae pINXCH and pIMCHR poll docunentation to learn 
190 tk rore about the process. The USING routine header 


191 aK describes the meaning and values of the IMAGE 
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192 ax tokens. 
193 aK 
194 ak During parsing, the IMAGE string and B1dING token 
195 ax strean is kept in available nerory, below AvMenEnd. 
196 ae The BIdING token strean is built backwads (toward 
197 aK address 0) from the boundary of the IMAGE string. 
198 . At the tine of the pINXQT poll neriory looks like this: 
199 
200 ak (Old AvMenEnd) 
201 KX. “(Sa dSiwectececd cute wei cers eccteessesussue close ses 
202 aK + | BIdING tokens | IMAGE string | 
203 ak won [orn nnn nn nn nen nn nnn nnn renner rrr eres 
204 ak / - - 
205 aK cont’d belon | ’x’= last character parsed 
206 a xqt address in RO(9-5) points to execution token 
207 x 
208 RK 8 s2atvetitdeniwascedeowasckcacsocceccectddencacecwwccwes 
209 a |} 5 nibs |3 nibs! 5 nibs | 5 nibs | 5 nibs | BIdING... 
210 RR wee ren ne nnn enn n nen nn nnn nn nme ner ncn nee nrcnns 
21 1 ak n ~ A nN n~ n~ 
212 aK | | | | | length of IMAGE string 
213 tk AvMenEnd | status bits | offset to ’x’ above 
214 ak | offset to start of IMAGE string 
215 ax 5 zeros (stores offset 
216 ae to xqt address when necessary) 
217 ae 
218 ae IMAGE execution begins every tine a new output field 
219 ak is parsed, or when the end of the IMAGE string is 
220 as found. By the tine this poll occurs, all set-up 
221 ae for execution has been perforned (all pointers and 
222 ax offsets have been stored away in AvMem). R1(A) 
223 aK contains the address of the IMAGE character which 
224 ak caused execution to start (a specifier for a new 
225 a field, or a ulMend token). 
226 ue 
22? ale What the poll handler does with the pIMXQT poll is 
228 ig up to it. The nainfrane IMAGE execution routines 
229 xe should serve for any type of output (DISP USING, 
230 ak PRINT USING, OUTPUT USING, etc.), unless sone 
231 ax LEX file wants to output to sone non-standard 
Zoe ak device. If so, it would pick up the IMAGE execution 
233 ig at the pINXQT poll and perforn its oun execution. 
234 RK 
235 ak The most useful inplenentation of a pINXQT poll 
236 aX handler is for ENTER USING (found in the HPIL ROM). 
237 aS The ENTER USING execution routines are vastly 
238 ae different from the output routines, but use the 
239 xh sane IMAGE token streans. Therefore, the ENTER 
240 a USING code intercepts the pIMXQT poll and perforns 
241 s its oun execution. 
242 ES 
243 xe How the poll handler returns is also up to it. 
244 Bis In the case of ENTER USING, the poll handler junps 
245 ae directly back to entry point USGrst (restart parse), 


246 ms without exiting through the poll code. A poll 
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247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
234 
295 


a 
kk 
xk 
ak 
ak 
aK 
ak 
ak 
ak 
ax 
x 
ax 
ak 
xk 
aK 
xx 
ak 
ae 
ak 
ax 
ak 
ak 
ak 
ak 
ak 
ak 
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If 


If 
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handler nay exit through the poll code after 
"handling" the poll, but it would want to adjust 
pointers in RO and possibly in RAN, also. 


If exiting through USGrst: 
-- RAN pointers, offsets and ST storage unchanged 
-- R3(R)=Progran Counter 
-- other R registers uninportant 

If exiting through poll code (XM=0): 
-- RAM pointers, offsets and ST storage unchanged 
-- R3(A)=Progran Counter 
-- RO(9-5)=xgt address, pointing to a uRESTP token 


registers/RAM nay be used if handled?: 
A,B,C,D,00,D1,P,R1,R2 

RO (to adjust address of execution token) 
R3 (to adjust Progran Counter) 


registers/RAMN may be used if not handled?: 
truly "not handled”: 

A,B,C, 0[(15-5],P,R2 

handled, but leaving XM=1: 

A,B,C, 0[15-5],P,R2 


** Special neriory/pointer considerations (are pointers funny?): 


ak 
ax 
ax 


ax 
xx 
ak 
xk 


None. AvMen 1s available for writing to; this will 
not disturb the IMAGE routines. 


Envisioned application(s): 


1) ENTER USING routines use the pINXQT poll to override 
the nainfrane output code, instead executing code 
which inputs variables using the BldING token strean. 

2) A LEX file nay "pre-parse" an IMAGE string (and 
store it in an I/O buffer) for faster execution, 
elininating the need to parse the IMAGE string 
every tine the statenent is executed. It could 
invoke the IMAGE parse routines and trap the 
pINXQT poll before execution starts. 


History: 


Date Progranner Modification 


---- we we ew ee ee ee a ee me wee ee wee ween 


12/08/82 MB Docunentation 


FORO TO OOO TOTTI ITT RIT QT ITI 
FOI IO OOO TTI TT ITT TTDI RIIEIII DIA REI ITN 
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296 EJECT 
297 JUGS IIIT TS SII II III II IOI II III II IIIA 
298 JE IO IIIS III SS II SII III IS TI I ISIS III III IIA IOK 
299 xt 
300 ** Nane:(S) pIMXCH - Unrecognized synbol in INAGE execution 
301 ke 
302 kX Category: POLL 
303 £k 
304 ** Type: FPOLL 
305 tk 
306 ** Purpose: 
307 a Allow LEX files to execute unrecognized IMAGE tokens. 
308 kk 
309 ** Should poll be "Handled" (return with XM=0)?: 
310 ax Yes. If the poll is not handled by any LEX file, 
311 ax the IMAGE routines issue an "Invalid USING" error. 
312 aK 
313 *k Heaning of “Handling Poll (what does code do if handled?): 
314 ax The syribol uas executed by a LEX file, generating 
315 as the appropriate output. 
316 ax 
317 ** Entry conditions for handler (registers, ST, RAN, etc.): 
318 aK Carry set. 
319 ax B[A} = Poll nunber. 
320 a HEX node. 
321 an P=0. 
322 x RO(A)=address of uIMXCH token which caused poll. 
323 as If within a numeric field: 
324 se RO(9-5)= counter for #zeroes in field 
325 a RO(S)= fag to identify last nuneric synbol: 
326 Bx O= 
327 ax 1= Z 
328 aX 5= D 
329 ax R3(A)=Progran Counter 
33 kk 
331 tk Nornal exit conditions fron handler if handled (ST, RAN, 
332 ** registers, etc.): 
333 ae HEX node. 
3% ae XN=0, 
335 ae RO(A)= addresst+2 of next token to execute 
336 a in BIdING strean 
33? a $5=0 
338 ie R3(A)=Program Counter 
339 as RAN storage above AvMenEnd untouched. 
340 ci 
341 ** Nornal exit conditions fror handler af not handled (ST, RAN, 
342 ** registers, etc.): 
343 aa HEX node. 
344 EK XM=1, 
345 ae RO,R3 and RAM storage above AvMenEnd untouched. 
346 ae 
34? ** Available subroutine levels: 
348 aK 5 
349 ax 


350 x* NOTE: 
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351 
352 
353 
354 
355 
356 
357 
358 
369 
360 
361 
362 
363 
364 
365 
366 
36? 
368 
369 
370 
371 
372 
373 
374 
375 
376 
37? 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
3% 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 


xk 
a 
ak 
an 
ak 
ak 
ax 
aK 
xk 
xx 
xk 
xk 
ak 
xx 
ak 
ak 
kk 
xk 
kk 
a 
ak 
ak 
kx 
xk 
xx 
wk 
kx 
ak 
kk 
ak 
ak 
ax 
xk 
xk 
kk 
ax 
xk 
xk 
kx 
xx 
ak 
xk 
ak 
xk 
Kx 
xk 
xk 
ak 
xk 
xk 
wx 
ak 
ak 
xx 
xx 
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See NOTE under pIMXQT poll for RAN storage description. 


The pIMxCh poll is issued only uhen a uIMXCH token 

is encountered when executing the BIdING tokens. 

The uINXCH token can only be placed by a poll handler 

uhich previously handled a pINCHR poll; their conbined 
purpose is to allow "strange" characters to be parsed 

and executed in a IMAGE string. 


The uIMXCH token in the BIdING stream should be 
accompanied by other tokens (or ASCII bytes) which 
the poll handler will use for identification and 
execution. 


The pIMXCH poll is handled by the MATH ROM when 
executing complex IMAGE fields. The uINXCK token is 
inserted in the BIdING stream in two places: 1) at 
start of the corplex field, so that the complex exp- 
ression 1s evaluated, and a left parenthesis is out- 
put, and 2) at the end of the field, to close out the 
field and display a right parenthesis. In the first 
case a special token accompanies the uINXCH token to 
identify it to the NATH ROM as a complex field. In 
the second case, only an ASCII ")" acconpanies the 
uINXCH token, which is all that 1s needed to signal 
that the right parenthesis need be displayed. 

For the tuo cases of complex fields using the 

uINXCH token, the partial tokenization looks 

like this (it’s built backwards towards address 


zero): 
case 1) 
uX uC u? ...(existing BIdING tokens) 
(3) (2) (1) 
case 2) 
uX =) ... (existing BldING tokens) 
(5) (4) 
where 
uX = uIMXCH token 
uC = uCPLXC token 
u? = flag byte indicating "multiplied field" 


ASCII ")" 


The code in the MATH ROM looks for the appropriate 
byte values preceding the uINXCH token to indicate 
the appropriate action. 


If a uIMXCH token has been inserted within a numeric 
field, sone extra steps have to be taken to insure 

the float-check (for D symbols}, and the skip-check 
(for NaNs, Infs and overflows) are perforned properly. 


The float-check is performed to count the nunber of 
positions that editing syxbols or sign symbols must 
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406 
407 
408 
409 
410 
ait 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
43? 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 


xk 
ak 
xk 
x 
wk 
ak 
xx 
xx 
ae 
ak 
xx 
ak 
ak 
xk 
xx 
xk 
xx 
xk 
xk 
tk 
xx 
xk 
kk 
xk 
xe 
ax 
wm 
xk 
xx 
xk 
ak 
ak 
ak 
ae 
xk 
xk 
ak 
wk 
wk 
ak 
ar 
xk 
xk 
ax 
wx 
ak 
xk 
a 
ax 
ak 
xk 
xx 
wx 
xk 
ax 
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float over leading zeroes (hence only perforned for 
the D fields). The skip-check is perforried to count 
the number of positions to fill with spaces (for 
NaN or INF) or *’s (for overflow). If the new synbol 
needs to be counted for either reason, you rust 
follow the uINXCH token with a "“D" or "S" or sonething 
appropriate to cause the count to be increnented. 
This extra "D" or "“S" should be protected fron the 
execution routine; that 1s, the uIMXCH poll handler 
should position the execution pointer (passed back 
in RO(A)) past this extra character. On the other 
hand, to hake the new symbol terrinate either check, 
insert an EndNun token as an extra character. 
Both checks do not poll for uIMNXCH; only the token 
executor issues a poll. Thus if the uIMXCH token 
involves pointers which night look like any of the 
synbols 

DSXMmM.C2PR_ uNMULT, uSTRPT or a byterEs 
you will have to protect it mith uSTRPT (which 
skips over 14 nibbles) or a uMULT (which skips 
over 10 nibbles). 


For instance, say the new character "I" is allowed 
anywhere in an output field, having the sane effect 
as the "parent" symbols (the rest of the syribols 
which define the type of field), except that the 
character in that position is displayed in inverse 
video. For instance, "ARIA" is equivalent to "“ARAAR", 
except that the third character 1s displayed in 
inverse video. Sirilarly, "DDID" 1s equivalent to 
"DDDD", maith an inverse video digit in the third 
position. Since "I" should be counted in the float- 
check and skip-check (since it 1s allowed in a nuneric 
field), the (partial) token strean should look like 
this (it’s built backwards towards address 0), using 
using "DDID" as an exanple: 


=D =I =D uX =D =0 
(6) (5) (4) (3) (2) (1) 


uhere 
=D = ASCII "“D" 
=] = ASCIT "I" 

uX =uIMXCH taken to cause pINXCH poll. 
Taken (3) would be inserted by the poll handler for 
a pINCHR poll. Then, during execution, the float- 
check routine 1211 count (4), and the pINXCH poll 
handler will execute (5) when the poll is issued 
at (3). When returning from the pIMXCH poll, the 
execution pointer in RO(A) should be at (6). 


Now say that the synbol “!<f,d>" causes a beep of 
frequency f, duration d; the neu syribol can be 
inserted in any output field. Then "DD'<800,.5>D" 
would be tokenized as follous: 
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461 aR 
462 ie =D pi uS =!  uX =D =D 
463 ae (9) (ay (7h “6 (5) (4) (3) (2) (1) 
464 aR where 
465 BX uJ =uJMPst (jumps 14 nibs on backward search) 
466 ah p2 =5 nibble pointer to beep duration 
467 ak pi =5 nibble pointer to beep frequency 
468 ak uS =uSTRPT (junps 14 nibs in float-check) 
469 xk uX =uIMXCH token, to cause pIMXCH poll 
470 aba =D =ASCII "D" 
471 aR =! =ASCIT "t" 
472 ak Then, during a float-check, (5) will cause a junp 
473 a over the pointers p1 and pz, to token (9); otherwise 
474 aK these pointers night be interpreted as executing 
475 a tokens. Token (3) is included for backward 
476 ak searching during parse; it causes a jump over 
477 xk pointers pl and p2 for the same reason. Token 
478 xk (4) will be executed by the poll handler when the 
479 xx pINXCH poll is issued at (3). 
480 ak 
481 xk What registers/RAM nay be used if handled?: 
482 ak A,B,C,0,D0,D1,P 
483 ae RO (to adjust pointer or counter) 
484 AS R1 (to adjust counter) 
485 aE R3 (to adjust Progran Counter) 
486 ae 
487 x* What ser Hay be used if not handled?: 
488 a B,C,0[15-5], DO, D1, P 
489 a iO. R3 untouched. 
490 = RAN storage above AvMenEnd untouched. 
491 - Expression stored in AvMen below AvMenEnd untouched. 
492 
493 xx Special nenory/pointer considerations (are pointers funny?): 
494 x If the pINXCH poll is issued while an output field is 
495 a pending (that is, the expression has already been 
496 ze executed, but output not completed), the menory below 
497 ak AvMenEnd contains the expression, and ray not be 
498 RA altered. 
499 ae 
500 xx Envisioned application(s): 
501 a Conplex IMAGE fields. 
502 ak Sone more are listed in NOTE, above. 
503 kk 
504 ** History: 
505 xk 
506 ee Date Progranner Modification 
507 Pi Sekt Vigsewtuue, tated ened seo alee ete ee eet 
508 xk 12/08/82 MB Docunentation 
509 i 
510 III IAD III STII ISI IIIT III IT IOI SATII IIIS SSSI SII IIIT SSI ISI IIIS IA 


511 FO IOI OOOO III ITI TIT ITI III ITN 


XN 
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512 EJECT 
513 SII IIIA ITI TI IIT III IIIT OTIS KI ITIL EI III III III III II III II IAT I IK 
514 IK SIO IID I TDI IIIS ITI SIT TSI III III II III III III III III III III IAT I IK 
515 aS 
516 a Nane:(S) pIMcpu - Working on conplex inage field 
517 
518 *k Category: POLL 
519 ak 
520 ** Type: FPOLL 
521 ak 
522 ** Purpose: 
523 zs Alert MATH ROM to work on complex field. 
524 aK 
525 ** Should poll be "Handled" (return with XN=0)?: 
526 ak No. 
52? ak 
528 ** Heaning of “Handling” Poll (ithat does code do if handled’): 
529 ae Complex expression was evaluated, real or imaginary 
530 Re part has been put on stack, ready for fornatted out- 
531 a put. 
532 ae 
§33 ** Entry conditions for handler (registers, ST, RAN, etc. ): 
534 ak Carry set. 
535 ak B[A] = Poll number. 
536 oP HEX mode. 
537 ha P=0. 
538 ax RO(A)=address of nuneric delimiter (in BIdING token 
539 aS strean) which caused the poll. 
540 ae R3(A)=Progran Counter 
641 xk 
642 ke 
543 *K Nornal exit conditions fron handler if handled (ST, RAN, 
544 4X registers, etc.): 
545 xk This poll can only be handled by the MATH ROM. It 
546 ** ~~ cannot exit through the poll routines with XN=0; 
547 *k it can only exit by jumping to USnn05. 
548 ax HEX node. 
549 BA A(W)=nuneric expression (either the real or imaginary 
550 AK part, as appropriate) 
551 ie D1 points to AvMenEnd-16. 
552 RK R registers untouched. 
553 aX 
554 kk Nortial exit conditions fron handler if not handled (ST, RAM, 
555 ** registers, etc.): 
556 ae HEX wade. 
55? ae XM=1. 
558 a R registers untouched. 
559 = 
560 ** Available subroutine levels: 
561 Rs ? (junk the tuo poll levels, and junp to USnr05) 
562 a 
563 ** NOTE: 
564 aK This poll can only be handled by the MATH ROM, as 
565 aS part of conplex image field execution. 


566 ae 


Saturn Assenbler USING Execution Routines <8312 Fri Dec ®, 1983 3:30 an 


Ver. 3.39/Rev. 26 Page 13 
567 kk What registers/RAM nay be used if handled?: 
568 aS A,B,C,D,D0,01,P,RO(15-5),R1,R2,R3(9-5), R4 
569 ak RO(A) should not be used 
570 ke R3(A) should not be used 
571 aK 
572 *x Uhat registers/RAN may be used xf not handled?: 
573 ah A,B,C,0[15-5],00,01,P,R1,R2,R4 
574 ak 
575 *k Special menory/pointer considerations (are pointers funny?): 
576 a At the tine of the poll, AvMen is not used to store 
577 ak anything. If the poll is handled properly, the 
578 - expression for output resides at AvMenEnd-16. 
579 ‘ 
580 *k Envisioned application(s): 
581 ak MATH ROM conplex field output. Only. 
582 kK 
583 ek History: 
584 ak 
585 Ae Date Programmer Modification 
586 PK. feiiseeets, Waco, ites eee San i tl atte cree 
587 a 01/01/83 MB Iriplenented, documented. 
x 
bee JIU OTT IIIT IT ISIS I IIIS TOSI ISI ISI ASIII IS 


590 FORO TTT TOT ETT TTT TTT IT TIT 
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591 
592 III TO IIT AT III IIIA I IIIT IIIS I IIIS ISIS IIT IST I ISI IIA 
593 JI IOC II III III III IIIS ITT II IIIS STII II III IS SSIS II 
594 Rk 
595 ** Nare: INGxgt - Execute IMAGE string 
596 ax Nane: IMGxg1 - Execute IMAGE string 
597 RK 
598 *k Category: STEXEC 
599 ak 
600 ** Purpose: 
601 ak Main entry point for executing IMAGE tokens; 
602 tokenization is perforned by routines in MB&ING. 
603 
604 ** Entry: 
605 a INGxgt: P=0 
606 ak INGxq1: Di=current position in BIdING strean 
607 kn RO(A)=sane value as D1 
608 ak RO(9-5}=address to begin executing fields 
609 ax R1(A)=address of last parsed IMAGE symbol 
610 aK R1(9-5)=length of IMAGE string (in nibbles) 
611 ae R3(A)=Progran Counter 
612 ne R3(9-5)=Address of start of IMAGE string. 
613 & 
614 ak Exit: 
615 . Nornally exits through USGrst routine. 
616 
617 *k Calls: INAGE execution routines call EXPEXC, which can 
618 ae call anything. 
619 ak 
620 AR US OS ss aveavics 
621 *k Inclusive: IMAGE execution routines call EXPEXC, which can 
622 ae use anything. 
623 aS 
624 ** Stk lvls: IMAGE execution routines call EXPEXC, which can 
625 x use all 7 stack levels. 
626 ak 
627 ** NOTE: 
628 ss INGxqt is the standard entry point for executing pend- 
629 de ing output fields in the IMAGE string. Pending output 
630 ak fields are executed whenever a neu output field is 
631 ak encountered; a uRESTP (restart parse) token 1s inserted 
632 i into the BIdING strean just before falling into INGxq!. 
633 ax 
634 kk INGxgi is the entry point for executing IMAGE fields. 
635 AX The last token to be executed should be either a uRESTP 
636 * (restart parse) token (which halts execution and begins 
637 ax parsing where it left off before), or a ulMend (end-of- 
638 xe inage) token (uhich tests the output list to see if it 
639 ax is exhausted). This entry point 1s used by the parse 
640 aS rautines encounter the end of the IMAGE string, and by 
641 ae poll handlers for pIMCHR which have detected the start 
642 a of a new output field. 
643 K 
644 ** Detail: 


645 x* hen execution starts, a save area 1s set up at the 
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646 ** botton (low address) of the stack, below the expanded 
647 *k B1dING string: 
648 a 
649 he S nibs 3 nibs 5 nibs 5 nibs 5 nibs 
650 HE  (ebee sbesaeeeocres co weueenewsceeweessedeeeaseuet 
651 ax | | | | | | B1dING... 
652 I a lal a aa aaa 
653 tk used for \ ~ - 5 = 7 
654 tk expronly | | | | -. | length of IMAGE string 
655 am AvMenEnd | i | offset to DO pointer 
656 tk offset to xqt addr | offset to start of IMAGE string 
657 ax status bits 
658 a® 
659 ax 
660 tk Available-neriory-end is set to the storage location of the 
661 xk offset to the execution address, and remains there through 
662 tk Expression Execute. 
663 ak 
664 *k — Merory below AvMenEnd is used only to store an expression 
665 kk (put there by a call to EXPEXC). After return fron 
666 ek EXPEXC, the offset to the execution address is replaced 
667 xx by the offset to the next character to output (or in the 
668 tx case of H,K,B or ~, by the offset to the beginning of the 
669 %k stack iter). 
670 a 
671 gs Just before calling EXPR: 5 nibs 
672 RKO 0, Bees Soot heise hla ece es See ee se eee see ete ce cke ese 
673 ax | | 

674 BR wee wnt e nee tenet enn ween nee eeennecswenecece 

; 675 ak AvNenEnd --+ / 
676 aX offset to xqt addr 
677 ak 
678 ges After returning fron EXPR: 
679 BR 0 eee cena we neko ee eee ee ee 
680 xn | | | 
681 Ke sadadwesoisec elie cleo lok So co lle see ese 
682 ak / AvMenEnd --+ / 
683 xk expr put onto stack offset into expr 
684 xx 
685 Re 
686 ** History: 
687 a 
688 am Date Prograrner Modification 
689 40 Seawecee “see steoete | Eeoosbee eee eee cole SS eee 
69 . 12/08/82 MB Docunentation 
os SOO RIOT TTT RK 
693 $I II ITO II III IS IIIT ITT I III IIT III IID III IIIS ASI IO TI IIIS IIA 
694 x 
695 1BAA4 =INGxqt IMAGE execute. 
696 1BAA4 311F LC(2) uRESTP Change Delin to "Restart Parse". 
697 1BRA8 14D DAT1=C B 
698 1BAAB 110 =INGxgi A=RO A= end of BIdING. 
699 ? 


700 1BRAE 119 C=R1 C(A)=INAGE ptr, length to C(9-5). 
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701 1BAB1 29 P= 9 10 nibs to BldING. 
702 1BAB3 7665 GOSUB DT1C.A Write DO offset to buffer. 
703 x 
704 1BAB7 118 C=R3 
705 1BRBA 715 GOSUB CSRH9j Addr start of IMAGE to C(A). 
706 1BABE 7655 GOSUB ODTIC-A Write offset to buffer. 
707 x 
708 1BRC2 740F GOSUB =CLOST+ Clear 0 nib of st, clear sSpecl. 
709 1BRC6 7C3F GOSUB =CSLW9; St bits to C(7-5). 
710 1BACA 27 P= 7 8 nibs to BldING. 
711 1BACC 7R9F GOSUB =BldIN+ St bits, 5 zeros to BldING. 
712 . 
713 1BADO 8E00 GOSUBL =AVE=D1 Set AvMenEnd=D1. 
00 
714 % 
715 1BAD6 7DBE GOSUB =FPOLL) "Start IMAGE execution" poll. 
716 1BADA 00 CON(2) =pIMXQT 
717 x Handled or not, I’m gonna execute. 
718 & If handled, assure RO(9-5)= addr 
719 x of uRESTP token. 
720 1BADC 7095 =IMxqO5 GOSUB ROu2CR RO(9-5)=xqt address to C(A). 
721 1BREO 135 D1=C 
722 1BRE3 171 DI=Di+ 2 Undo next 01-2. 


723 
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724 EJECT 
725 JIG II OIE TT IIT TK TIES TIE III TRIER EK 
726 JOU IO IIIS ICO IDI 
727 ak 
728 ** Nane: IMxqi2 - Main execution loop for IMAGE tokens 
729 am 
7H” ** Category:  EXCUTL 
731 ae 
732 ** Purpose: 
733 ae Nain execution loop for IMAGE tokens. Junps to 
734 ak appropriate execution routine according to token value. 
735 ae 
736 *k Entry: 
73? xx Di=address+2 of next token to execute. 
738 ak 
739 KK Exit: 
740 xx Exits through appropriate execution routine. 
741 aK 
742 ** Calls: May call EXPEXC, which can use anything. 
743 ae 
744 Kk Uses. .....5 
745 *k Inclusive: May call EXPEXC, which can use anything. 
746 kk 
747 ** Stk lvls: May call EXPEXC, which can use anything. 
748 AX 
749 ** Detail: 
750 = IMxqi2 is followed by a table of token values and 
751 ax relative offsets to execution routines. IMxql2 calls 
752 ax BYTscA, which scans the table for the appropriate junp. 
753 
754 **k History: 
755 7 
756 xk Date Progranner Modification 
757 Wh atecoces, “ebsesetes- -pateers ees ee east aeeeae 
758 kk 12/08/82 NB Docunentation 
759 x 
760 JIS III TI ILE III TIT ITO RIO SS III III IIA III III IIIS I ISI II II IISA 
761 JIS IKI TIT IEA TID TIT ITI III III IIIS IIIS II IIIS III I III IIIA 
762 x 
763 JIS TO IIIT TT TRI KITT RI AIA II AIA ASI III III II IIA IAA 
764 JIG GOO IIIT OTITIS III I IISA III IIIA 
765 nies 
766 *k Nane:(S) IMxq27 - Return to IMAGE token executor 
767 xx 
768 **k Category:  EXCUTL 
769 xx 
770 ** Purpose: 
771 Kk Return to IMxqi2 (main IMAGE token execution routine) 
772 ak after restoring D1 (token pointer). 
773 am 
774 *k Entry: 
775 =e C(A)=addresst+2 of next IMAGE token to execute. 
776 ak $5=0 
777 KK $6=0 


778 a 
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779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
824 
822 
823 
824 
825 
826 
82? 
828 
823 
830 
$31 
832 
833 


1BRE6 
1BRE9 
1BREC 


{BREE 


1BRF2 
1BAFS 


1BRF3 
iBAFB 


1BRFE 
1BBOO 


1BB03 
1BB05 


1BB08 
1BBOR 


1BBOD 
1BBOF 


1BBI2 
1BB14 


1BB17 
1BB19 


845 
866 
% 
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R* Exits 

ae Nay jump to any execution routines. 

xt 

** Calls: Nay junp to any execution routines. 

tok 

BR NSO oc 's's 

*x Inclusive: May jump to any execution routines. 

kk 

** Stk lvls: May junp to any execution routines. 

ak 

** NOTE: 

ax Sone IMAGE poll handlers will use this entry point 
Ae after handling a poll. Since the FPOLL routine does 
kx not preserve D1, this allows a poll handler to junp 
xk to the IMAGE token executor with D1 pointing to the 
KK appropriate token. 

xk 

xx History: 

xk 

is Date Progranner Modification 

RR: ts Meee, SOS oe Ios le oooh cee oe ees 
xk 12/08/82 MB Docunentation 


Kx 


FOO TOI ITO TOOT TOIT ITI III 
FOO IDOI TO OI OI OT TOOT OTTOK 


x 


INxqi0 


6AF 6 
x 


171 
715F 


44 
314 


AS 
C24 


14 
321 


10 
3AO 


9 
a 


5RO 


85 
700 


E2 
ODO 


INxqi1 


Ihxqi2 
x 


sRturn 
sSpecl 
IMxq12 


$T=0 
?$T=0 
GOYES 
GOTO CHKSK3 
DI=D1+ 2 

GOSUB 


CON(2) \D\ 
REL(3) USG"D" 


CON(2) \Z\ 
REL(3) USG"2" 


CON(2) \A\ 
REL(3) USG"R" 


CON(2) uNULT 
REL(3) USGr1t 


CON(2) uLOOPB 
REL(3) USGlpb 


CON(2) \x\ 
REL(3) USGch4 


CON(2) \.\ 
REL(3) USGchS 


=BYTscR 


Clear Return flag for USGstr. 
Outputting NaN or Inf? 

No. 

Yes. Check for skips. 


Execute next token. 


Output digit (blank filled). 


Output digit (zero filled). 


Output ASCII char. 


Multiplier. 


Loop on byte. 


Output ASCII blank. 


Output "." (radix). 
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$34 
835 
836 


{BBIC A2 
1BBIE 514 


1BB21 35 
1BB23 664 


1BB26 D4 
1BB28 364 


1BB2B8 34 
1BB2D C34 


1BB30 05 
1BB32 934 


1BB35 7F 
1BB3? 011 


1BB3A 84 
1BB3C 451 


1BB3F B4 
1BB41 C41 


1BB44 54 
1BB46 R99 


1BB49 0D 
1BB4B 470 


1BB4E 3D 
1BB50 660 


1BB53 FE 
1BB55 360 


1BB58 1F 
1BB5A 904 


1BB50 4F 
1BBSF DFO 


18862 OF 
18864 C85 


1BB67 24 
1BB69 274 


1BB6C Fe 
1BB6E 746 


1BB71 25 
1BB73 470 


x 
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CON(2) \*\ 
REL(3) USG"*" 


CON(2) \S\ 
REL(3) USG"S" 


CON(2) \M\ 
REL(3) USG"N" 


CON(2) \C\ 
REL(3) USG"C" 


CON(2) \P\ 
REL(3) USG"P" 


CON(2) uAlit 
REL(3) USGLit 


CON(2) \H\ 
REL(3) USG"H" 


CON(2) \K\ 
REL(3) USG"K" 


CON(2) \E\ 
REL(3) USG"E" 


CON(2) uSTRPT 
REL(3) USGstr 


CON(2) uLOOPS 
REL(3) USGlps 


CON(2) uLOOPP 
REL(3) USGlpp 


CON(2) uRESTP 
REL(3) USGrst 


CON(2) uDELIN 
REL(3) USGdln 


CON(2) ulMend 
REL(3) USGend 


CON(2) \B\ 
REL(3) USG"B" 


CON(2) \/\ 
REL(3) USGch/ 


CON(2) \R\ 
REL(3) USGch6é 
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Output digit (* filled). 


Output sign (+ or -). 


Output sign (blank or -). 


Output '"," (separator). 


Output "." (separator). 


Delimiter: string literal. 


Output conpact forn (European). 


Output conpact forn. 


Output "E" (exponent). 


Pointer to imbedded literal. 


Loop on string. 


Loop on parentheses. 


Restart parse. 


Unfilled deliniter. 


INAGE end. 


Output byte forn. 


Output EOL sequence. 


Output "," (radix). 
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889 
890 
891 
892 
$93 
894 
895 
896 
897 
898 
899 
900 
1 
92 
%3 
904 
905 
906 
7 
%8 
%9 
910 
911 
912 
913 
914 
915 
916 
917 
918 
319 
920 
321 
922 
923 
924 
925 
926 
S27 
928 
929 
930 
931 
93¢ 
933 
934 


18B76 04 
1BB78 D6O 


1BB7B 4D 
1BB7D 210 


1BB80 00 
1BB82 316F 
1BB86 SEE 
1BB89 02 
18B8B 6ASF 


1BB8F 
1BB8F 700E 
1BB93 00 
1BB95 7DED 


1BB99 118 
{BB9C 135 
1BBSF 865 
1BBA2 9E 


1BBA4 845 
1BBR? 03 
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CON(2) \@\ 
REL(3) USGch? 


CON(2) uINXCH 
REL(3) IMXPOL 


CON(2) 0 
LC(2) uHKB* 
*A>=C B 
GOYES ToUSGn 
IMxqi9 GOTO  IMxqld 


x 
x 

x | Fe 
Rb TERT 
Rea ES 
x | F9 
* | FR 
x | FB 
x [FE 
* | FD 
ei TEE 
Boo EE 
x + 

k 

x 

k 

INXPOL 


uHKB* 


Deliniter 
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Output Forn Feed. 


Poll for unrecognized xqgt char. 


Others: check for nurieric delins. 


See table below for tokens--+ 
Nuneric deliniter? | 
Yes. To USGnun. | 
Execute next token. | 

| 


: H,K,B or ~ takes numeric... 


uALit Already trapped in table above.) 


uNUMNn 
uNUNNs 
uNUNFn 
uNUNFs 
uNUNEn 
uNUMEs 
<<nothing> 
<<nothing> 


GOSUB =FPOLL 
CON(2) =pIMKXC 


x 
x 
x 
x 
x 


IMXRTN GOSUB =Polrt 


Deliniter: 
Deliniter: 
Deliniter: 
Delimiter: 
Deliniter: 
Deliniter: 


> Check 
> Check 


x 
H 
n 


Nuneric, no float, no sign. 
Nurieric, no float, w/sign. 
Nuneric, float, no sign. 
Nurieric, float, w/saign. 
Nurieric, u/exponent, no sign. 
Nurieric, w/exponent, u/sign. 
S anyway... 

S anyway... 


mM ee ee Rew eee ee ee Ree ee me eee wm ewe ew eee mm em ewe ee me we 


Unrecognized xqt char poll. 


Pass Dl=xqt addr in RO(A), poll. 


Check for poll handled. 


| If poll handled, handler must return: 
| RO(A)=xqt address (passed to you in RO(A)) | 
$---------- +--+ ee ee en ee ene eee + 


IMxg25 C=RO 
=IMNxg2? D1=C 
?$T=0 = sRturn 
GOYES IMxqi9 


ST=0 = sRturn 
RTNCC 


x 


1BBA3 6E41 ToUSGn GOTO USGnun 
x 


C= addr IMAGE execution. 

Di= addr INAGE execution. 
Return fron displaying char? 
Yes. 


Clear "Return" flag. 


FOI TOTO IO OTT TTT TO TIT 
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935 EJECT 
936 KIKI KI IASI II III IIA III III IDI AIIIII SI ISIS IIT ITT TA IK 
937 & 
938 1BBAD 76C5 USGr1t GOSUB DCRNNT Decrenent nultiplier counter. 
939 1BBB1 590 GONC = IMxqi9 (BET) Next xqt symbol. 
940 x 
941 SIRI SIA III III III III III III IIS IIS II III ISI ISIS SSSI SISK 
942 & 
943 1BBB4 24 USGlpb P= 4 Loop on byte. 4 nib junp. 
944 a 
945 1BBB6 OD USGlps P=P-1 Loop on string ptr. 16 nib junp. 
946 1BBB8 7F85 USGlpp GOSUB USloop Di to loop multiplier, decrenent. 
947 1BBBC 5EC GONC = IMxqi9 (BET) Next xqt synbol. 


948 5 


Saturn Assenbler USING Execution Routines <8312 Fri Dec 3, 1983 3:30 an 


Ver. 3.39/Rev. 26 Page 22 
949 EJECT 
950 JRO I IT IIIT TIT TT REID R IK III IIT I ISITE LISI DID D DIDI ITAA I 
951 SRI III I ISI III IIIT TI III KSI IDI DIDI IO TI TIT III III I ITI II II IRIS 
952 ak 
953 ** Nanie:(S) USst03 - Output characters fron address in C 
954 a. Nane:(S) USst05 - Output characters fron address in D1 
955 
956 *k Category:  EXCUTL 
957 aK 
958 ** Purpose: 
959 ax To output a character during USING execution; character 
960 ax display observes WIDTH. 
961 ak 
962 ** Entry: 
963 ae USst03: Di=address of current token being executed 
964 al C=address of characters to be output 
965 aK USst05: A=address of current token being executed 
966 kk Di=address of characters to be output 
967 ak P=0 
968 kk B(A)=#characters to output 
969 aK CKINFO nust have been called previously to set up 
970 aK the output inforriation (see CKINFO) 
971 a $5=0 to exit to IMxgi2, S5=1 to return. 
972 aR 
973 ae Exit: 
974 ak P = 0 
975 ae If $5=0, exits to IMxql2 
976 7 If S5=1, does a "return", carry clear. 
977 ak 
978 ** Calls: SENDWD 
979 aX 
980 ak Uses....... 
981 tk Exclusive: A,B,C,RO,S4 
982 kK Inclusive: A,B,C,D,RO,R1,R2,P,S4,D1 
983 ay 
984 *K Stk lvis: 5 
985 ak 
986 ** NOTE: 
987 a If you want to display only one character, call USGch+ 
988 AX 
989 ** Detail: 
9390 ak Before call to SENDWD, sets S4=0 to inhibit EOL before 
991 aK iten is displayed. 
992 ie 
$93 ae =USstO3 RDIEX 
994 ae D1=C 
995 a =USst05 RO=A 
996 AE R=B AR 
997 aK ST=0 4 
998 a% GOSBVL =SENDWD 
999 ee C=RO 
1000 a 01=C 
1001 ak 2S8T=0 = 5 
1002 ki GOYES INxqi2 


1003 ae ST=0 5 
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1004 ax RTNCC 
1005 . 
1006 ** History: 
1007 Ax 
1008 xk Date Prograrner Modification 
1009 $0 Wesssowe) Tetosioueest ‘eetiedndueGesrccea castes eeeeeades 
1010 2 12/08/82 MB Docurientation 
t 
nee BI I III IIT IT III IID II III III SSI ISI SII STS IS SIS ISIISII III SIS SII IIS 
1013 $I II IIT IDI ATI ISIS IIIS IIIT IDISSS ISIS SI ISIIISIGI SIS IS ISIS SSS SSIS 
1014 x 
1015 1BBBF 110  USGstr A=RO (Preserve RO(9-5)=zero counter) 
1016 1BBC2 7A84 GOSUB = RCVOFS Recover offset to literal. 
1017 1BBC6 1C9 D1=D1- 10 D1 points to literal length. 
1018 1BBC9 143 A=DAT1 A Length of literal. 
1019 1BBCC D8 B=A A Length to B. 
1020 1BBCE 133 =USst03 ADIEX D1 Laat addr) to A. 
1021 1BBD1 135 D1=C Address of literal to D1. 
1022 1BBD4 100 =USst05 RO=A Save D1 xqt addr in RO. 
1023 1BBD7 D4 A=B R Length of literal to A. 
1024 1BBD9 7240 GOSUB SENDW; Send, in width-sized chunks. 
1025 1BBDD 48B GOC INxg25 (BET) To next execution synbol. 


1026 


x 
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1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
105? 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 1BBEO 852 
1081 1BBE3 OC 


xx 
ax 
xk 
xx 
ax 
a 
xx 
ak 
ax 
ke 
ax 
ke 
ax 
ax 
ax 
ax 
ax 
ak 
ax 
ak 
ax 
ak 
ak 
ax 
ak 
ak 
ak 
ak 
ax 
ak 
ax 
ak 
xk 
x 
aa 
aX 
ae 
an 
ak 
ax 
ax 
ae 
an 
ax 
ar 
ak 
ax 
ax 
ax 
aK 
ak 
aK 


U 
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OOO IO ITO OT TOI I IK 
FOI II ITT TO TO TT TTT TT TTT TTT 


Nane:(S) USGch+ - Display character during USING execution 
Narie:(S) USGch- - Display character during USING execution 


Category:  EXCUTL 


Purpose: 
To display one character during USING execution. 


Entry: 
USGch-: RSTK address contains table of ASCII characters 
P=pointer into ASCII table 
USGch+: P=0 
C(A)=address of ASCII character 
Di=address of current IMAGE token being executed. 


Exit: 

See USstO3 
Calls: USst03 
Uses....... 


Exclusive: A{W),B(A),C(A),P 
Inclusive: A,8,C,D,RO(A),R1,R2,P,01 
Stk lvls: 5 


NOTE: 
For USGch- entry, the ASCII table nust have a 00 byte 
as the first entry. A value of P=0 would point to the 
first byte past this 00 byte. 


Detail: 
=USGch- C=RSTK Address of ASCII table. 
C+P+1 Pointer into table. 
C+P+1 
P= 0 
=USGch+ B=0 A B(A)=1=#characters 
B=B+1 A to display. 
A=RO Preserve RO(9-5). 
GOTO USstd3 
History: 
Date Progratiner Modification 
12/08/82 MB Docunentation 


JOIST I TI TIS RIS IIIS IIT I TIS 
JU III TIT TT TTI I III IIT I I III TTI ITI TITAS 
SG'E" ST=1  — sSNUNE Qutput exponent digits. 

P=P+1 Reaches USGchO uith P=8. 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 


1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1119 
4111 
1112 
1113 
1114 
1115 
1116 
1117 


1118 


1BBE5 
1BBE? 
1BBE9 
1BBEB 
1BBED 
1BBEF 
1BBF1 
1BBF3 


1BBF? 
1BBF9 
1BBFB 
1BBFD 
1BBFF 
1BC01 
1BC03 
1BC05 
1BCO7 
1BCO09 


1BCOB 
1BCOD 
1BC10 
18013 


1BC15 
1BC17 
1BC19 
1BCIC 


iBC1F 
1BC22 


oc 
oc 
oc 
oc 
oc 
oc 
oc 
7410 


00 
A2 
03 
B2 
D2 
02 
E2 
C2 
CO 
54 


07 
809 
809 
20 


Dt 
E5 
110 
518 


854 
8000 
00 


USING Execution Routines <8312 


Fri Dec 3, 1983 3:W ani 


Page 25 


FOI IOI TI TTT RIOT ATI IIIT IT ITI 
(P=7) Forn Feed ("@") 


USGch? 
USGch6 
USGch5 
USGch4 
USGch3 
USGch2 
USGch1 


USGchO 
x 


P=P+1 
P=P+1 
P=P+1 
P=P+1 
P=P+1 
P=P+1 
P=P +4 
GOSUB USGch- 


(P=6) 


too th th Wat 


Oo} Mw 2 WW" 


) 
) 
) 
) 
) 
) 


ONO 
cv vTUVT UU 


et 
x 

eon 
. 

tot 


wow 
ota 


"oO" 


He 


*Klltl THIS NEXT BYTE IS FREE TO BE USED FOR ROM CHECKSUM !!1! 
Filler for C+P+1, C+P+1. 


x 
x 
=USGch- 


USGch* 
k 
=USGch+ 


x 


NIBHEX 00 

NIBASC \*\ 
NIBASC \O\ 
NIBASC \+\ 
NIBASC \-\ 
NIBASC \ \ 
NIBASC \.\ 
NIBASC \, \ 
NIBHEX CO 

NIBASC \E\ 


C=RSTK 
C+P4+1 
C+P+1 

p= 0 


B=0 A 
B=B+1 A 

A=RO 

GONC USst03 


KIRK KKK IRE KKEKAK 


SENDN j 


ST=1 = InhEOL 
GOLONG =SENDWD 


USGchO 
USGch1 
USGch2 
USGch3 
USGch4 
USGch5 
USGch6 
USGch7 
USGch8 


Forn Feed. 


fidd offset to desired 
character. 


Reset pointer. 


"One char out". 
(Preserve RO(9-5)=zero counter) 
(BET) Send out char. 
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1119 
1120 
1121 
1122 1BC28 
1123 1BC28 
1124 1BC2C 
1125 1BC2F 
1126 1BC31 
1127 18034 
1128 1BC36 
1129 18039 
1130 1BC3C 
1131 1BC3F 
1132 1BC42 
1133 18044 
1134 
1135 
1136 
113? 1BC47 
1138 1BC47 
1139 1BC4A 
1140 
1141 1BC4E 


1142 1BC55 
1143 
1144 1BC59 
1145 1BCSC 
1146 1BC5F 
1147 


2306 
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FOI III ITO TO II IK 


x 


USG''A" 
7944 
14? 
cE 
4RO 
cE 
145 
1C1 
133 USGA01 
4BA 
EE 


50D 
k 


GOSUB StAVE+ 
C=DAT1 A 
C=C-1 A 

COC USGRO1 
C=C-1 A 
DAT1=C A 
Di=D1- 2 
ADIEX 

COC USGch4 
C=A-C AR 

GONC = USGch+ 


"A" synbol: send ASCII char. 
A=curr xqt addr, D1= AvMenEnd. 
Read nibs in string expr. 
Decrenent for 1 char sent out. 
CRY= entire string sent. 

-2 nibs for each char. 
Re-urite counter. 

Di to start of string. 

Di= current xqt address. 

Fron USGR1+. Send out space. 
C= address of char to send out. 
(BET) Send out one char. 


FOR II OI III Ik 


* 


USGlit 
843 
7834 
x 


8FOO 
000 
7003 

& 


135 
10? = USGdI nt 
668E : 


ST=0  sZeros 
GOSUB GetEXP 


GOSBVL =REVPOP 


GOSUB NwOFF+ 


D1=C 
DI=D1- 8 
GOTO INxqt0 


"String deliniter" found. 

GetExp allow only string. 

Put string expression on stack, 
store xgt address at AvMenEnd. 

Reverse for output; A(A)= length. 


Store string length at AvMenEnd; 
set C= xqt address. 

D1 points to xqt address. 

Skip over deliniter zeroes. 

Next token. 
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1148 EJECT 
1149 SII II TOI TI TORTI II IO TOTTI SI SII ITS TOS III III IIIA ISI IAT IIA 
1150 JE III III IIIT ITI TIT ISIS IAI TA 
1151 aS 
1152 ** Nane:(S) USGrst - Suspend USING execution, restart parse 
1153 a 
1154 ** Category:  EXCUTL 
1155 ak 
1156 ** Purpose: 
1157 kk Halt IMAGE execution and restart parsing of IMAGE 
1158 aK fields. 
1159 ae 
1160 aX Entry: 
1161 aR P = 0 
1162 aR R3(A)=Progran Counter 
1163 og RAN storage at AvMenEnd is as shown in INGxqt header. 
1164 xk 
1165 Kk Exit: 
1166 ae To Nxtfl3 (parse next field). 
1167 ak 
1168 ** Calls: GETSTA, C+A2D1, R2=D1+, CA2D1., INDO--, Nxtfl3 
1169 ak 
1170 Ak Uses....... 
1171 ** Exclusive: A(A),C,01 
1172 . Inclusive: IMAGE parse routines at Nxtfl3 can use anything 
1173 x 
1174 = Stk lvls: 2 (before exit to Nxtfl3, which can use all 7) 
1175 
1176 ** NOTE: 
1177 ak Most pIMXQT poll handlers will return to USGrst, after 
1178 RK they have taken care of their execution. 
1179 a 
1180 ** Algorithn: 
1181 AR Restore status bits from RAM. 
1182 xe Restore address of start of IMAGE string to R3(9-5) 
1183 ne Restore length of IMAGE string to RO(9-5) 
1184 an Restore address of next parse symbol to RO(A). 
1185 ae 
1186 ** History: 
1187 Be 
1188 a Date Progranner Modification 
1189 AR wen ecw nn eww ewer nee etter enero ren w nnn nnnmen nnn awe nen 
1190 ek 12/08/82 = MB Docunentation 
ae 
es FRI IIIS III I IIIT DITA ISI ISS ISIS SII III ISI I III II III III IIS IAI IIA 
1193 KIS ISI ASI SIS I III III ISIS IIIS I III ISI II SIS SII IIIA IIS ISI ISI III IIT I IA 
1194 x 
1195 1BC63 =USGrst Restart parse. 
1196 1BC63 7CF3 GOSUB GETSTA Get status bits fron storage. 
1197 1BC67 172 Di=Di+ 3 D1->offset to start IMAGE string. 
1198 * 
1199 1BC6A 75E3 GOSUB C+A2D1 C=addr of start of IMAGE string. 
1200 1BC6E DA A=C A Save addr in A. 
1201 1BC70 11B C=R3 C=D0 pointer (PC). 


1202 1BC73 8F00 GOSBVL =R3=D1+ Store both R3 (just like entry). 
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1203 
1204 
1205 
1206 
1207 
1208 
1209 


000 
1BC7A 15F9 


1BC7E 179 
18C81 74D3 
1BC85 7890 
1BC89 6C49 


x 


x 
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C=DAT1 


01=D1i+ 
GOSUB 
GOSUB 
GOTO 


10 


10 
CA2D1. 
=IMD0-- 
=Nxtfl3 


Page 28 


C(9-5)=length IMAGE string, 
C(A)= offset to restart DO. 
D1 past offset storage. 
C(A)= DO pointer to IMAGE string. 
Save both in R1. 
Restart parse. 


Saturn @ssenbler 


Ver. 3.39/Rev. 2306 


1219 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 


1226 
1227 
1228 


1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 


Page 29 
EJECT 
JOO TOI IOI IOC IO TOT TTR 
k 
1BC8D 853. =USG'K" ST=1 = sKnotH 
1BC90 USG"H" (sKnotH =0) 
1BC90 7063 GOSUB POPTS+ Test stack iten. 
1BC94 501 GONC UShkOS NC= nuneric. 
1BC97 BO4 A=A+1 P No. Test for string. 
1BC9A 96C 7AHO OB String? 
1BC9D 80 GOYES UShkO9 No. Conplex. 
1BC9F 853 ST=1— sKnotH Onits test for "." (European...) 
1BCA2 580 ; GONC = UShk15 (BET) 
1BCA5 _Shk05 
1BCAS 8E0O UShkO9 GOSUBL =STRSSB Convert nunber to display fornat. 
” k 
1BCAB RFO = =UShk15 A=0 W (For SRB below.) 
1BCAE 8FOO GOSBVL =REVPOP Reverse for output; A(A)=length. 
000 
1BCB5 873 ?ST=1 sKnotH "K" specifier? 
1BCB8 D2 GOYES UShk31 Yes. 
1BCBA 130 DO=A No. DO=#nibs in iten (=cntr). 
1BCBD 137 CDIEX Addr start of iten to C. 
1BCCO C2 C=A+C A Compute end addr of iten. 
1BCC2 135 D1=C D1i= end addr. 
1BCC5 31€2 LCASC \.\ Looking for "." radix. 
1BCC9 07 ; b=C A Save "." in D. 
1BCCB 181 UShk21 DO=D0- 2 Count chars in string. 
1BCCE 461 GOC UShk31 End of string. 
1BCD1 11 D01=D1- 2 To next char. 
1BCD4 14F C=DAT1 B Read char. 
1BCD7 967 7CHD OB a 
1BCDA 1F GOYES UShk21 No. To next char. 
1BCDC 30C tC(1) \,\ Yes. Replace with European ",". 
1BCDF 14D DAT1=C B 
1BCE2 58E : GONC UShk21 (BET) 
1BCE5 81C  UShk31 ASRB A= Hchars in iten (#bytes). 
1BCE8 733F GOSUB SENDW; Send to output device. 
1BCEC 7033 UShk35 GOSUB NwOFFS Set C=addr of IMAGE execution. 
1BCFO 6BAE GOTO 8 IMxg27 Next IMAGE syrbol. 
k 
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1253 
1254 III III III III II ITI II II IAS ISSA SASS ISI IIS II III III III IIIA III III IIA 
4255 JS ITO TT III IIT IRI II OAT I III IIIS IIIT SSI I III III IAS 
1256 aK 
1257 ** Narie: USGnun - Evaluate and execute numeric IMAGE field 
1258 &k Nane:(S) USnnO5 - Execute numeric IMAGE field 
1259 ax 
1260 ** Category:  EXCUTL 
1261 ak 
1262 xx Purpose: 
1263 ak To evaluate (through EXPEXC) and execute nuneric IMAGE 
1264 ae field. 
1265 ak 
1266 AR Entry: 
1267 xk RAM locations as specified in IMNGxqt header. 
1268 ak USGnun: 
1269 aK P=0 
1270 ak Di=address of current token in B1dING strean 
1271 kk A(B)=deliniter token which defined nuneric field 
1272 kK -USnriO5: 
1273 aR P=0 
1274 aK A(W)=nurieric expression (real or inaginary part) 
1275 ax D1 points to AvMenEnd-16, which also contains a copy 
1276 xR of the expression in A. 
1277 ak 
1278 ak Exit: 
1279 AX Exits to IMxq12. 
1280 aK 
1281 ** Calls: SET-ST, FPOLL (pIMcpu), GetEXP, C+A2D1, DECP=C, 
1282 x RND-12, ExpEXP, CHKFLT 
1283 x 
1284 MR USES) suis dias 
1285 *k Inclusive: GetEXP calls EXPEXC, which nay use anything 
1286 aK 
1287 ** Stk lvls:  GetEXP calls EXPEXC, which nay use all 7? 
1288 ba 
1289 xk NOTE: 
1290 ax USGnun is the routine which formats all nuneric fields. 
1231 a The value of the deliniting token deterttines the status 
1232 ax bit settings, which in turn define the type of fornat- 
1293 ae ting (sign field, exponent field, etc.). 
1294 RK 
1295 xe USnrOS 1s a return point for the pIMcpy poll ("“conplex 
1296 ak field working"). 
1297 a 
1298 ** Algorithn: 
1239 ae Set status bits as specified by numeric delimiter. 
1300 ae Fetch expression, store at AvMenEnd-16. 
1301 ae Copy expression to B. 
1302 at Read ¥digits in field, store in D. 
1303 es Read #digits before radix, store in C. 
1304 a Allow 1 digit position for sign, if sign not specified. 
1305 a Expand exponent to 5 digit forn. 
1306 ae Calculate #zeroes before first nonzero digit. 


1307 sm Calculate position to round; round expression. 
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1308 ae If exponent changed in rounding, decrenent #zeroes. 
1309 EK If insufficient digits, "IMAGE Ovfl" uarning/error. 
1310 i Store #zeroes in R1. 

1311 ex Store rounded expression back in AvMenEnd-16. 
1312 ee If floating field (D’s), go to CHKFLT 
1313 BS else go to IMxqi2. 
1314 aK 

1315 kk History: 
1316 x 
1317 ax Date Prograrner Modification 
1318 ee 
1319 kk 12/08/82 NB Docunentation 
1320 es 
1321 23 IOI II SSI IOS IIS OS TOSS IS STS SS OSI III II ISIS SI ISS SII A 
1322 $I III II III III III II SOT SSIS SSS ISI SII III SII III III III AK 
1323 & 
1324 1BCF4 6804 Pa GOTO CHKSKP Check for # skip posns. 
1325 
1326 1BCF8 73DC USGnun GOSUB =SET-ST Set status bits according 
1327 k to token value: s"S,MN" , 
1328 x sFLOAT, sNUME . 
1329 1BCFC 867 *ST=0 «sCplxW Working on conplex field? 
1330 1BCFF CO GOYES USne03 No. Get expression. 
1331 1BDO1 7E8C GOSUB =FPOLLx "Work on conplex nurber" poll. 
1332 . Pass D1 to handler in RO(A). 
1333 18D05 00 CON(2) =pINcpu 
1334 1BD07 7B7C GOSUB =Polrtn Check for poll handled, return. 
1335 oe NOTE: MATH ROM returns to USneO5 when poll handled!!! 
1336 Few r ener ns meen ew eee cower e meer ere wenn n ees nenmen= + 
1337 . | If poll handled, handler nust return: | 
1338 & | A(W)=nurieric expression | 
1339 & | D1 points to expression, which resides | 
1340 & | at AvMenEnd-16 (i.e., D1=AvMenEnd-16) | 
1341 k | (Note: nothing important can reside | 
1342 & | below this location, since a call to | 
1343 x | STR$SB will certainly overwrite it.) | 
1344 , teen nencce wenn wenn anne nn wen nnn mn nenn at ennenesnen + 
1345 & 
1346 1BDOB 856 USnnO3 ST=1 = sSpecl "Accept nureric expression," 
1347 1BDOE 7473 GOSUB GetExP Get expression. 
1348 1BD12 863 =USnrn05 7ST=0 sZeros H,K,B,~ field? (sZeros=sKnotH) 
1349 1BD15 7D GOYES UShk35 ~~ Yes. No fornatting. 
1350 x No. Nureric. 
1351 18D1? AF8 B=A W Expression to B. 
1352 1BD1A 17F Di=D1+ 16 Set Di= AvMenEnd. 
1353 18D1D 7233 GOSUB C+A2D1 C= current xqt address in BIdING. 
1354 18021 135 D1=C D1 points to nureric synbol. 
1355 1BD24 1C7 D1=D1- 8 D1 points to #digits in field. 
1356 18027 D4 A=B A Exponent to A. 
1357 18029 B24 R=A+1 XS 
1358 18D2C 47C GOC NANINF NaN or Inf. 
1359 1BD2F 05 SETDEC Digit counters are decinal. 
1360 18D31 AF2 C=0 W (C(S) is flag for -0.) 
1361 1BD34 15F3 C=DAT1 4 C(A)= Hdigits specified. 


1362 1BD38 AF? D=C W D= total #digits in field; 
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1363 1BD3B 173 
1364 1BD3E 15F3 
1365 1BD42 959 
1366 1BD45 AO 
1367 1BD4? 8A? 
1368 1B8D4A 50 
1369 1BD4C A4E 
1370 1BD4F 1C3 
1371 1BD52 949 
1372 1BD55 Al 
1373 1BD5? 870 
1374 1BD5A 81 
1375 1BD5C CE 
1376 1BD5E 480 
1377 1BD61 CF 
1378 18063 8AF 
1379 18066 CO 
1380 1BD68 E7 
1381 1BD6A E6 
1382 1BD6C A4F 
1383 1BD6F 850 
1384 
1385 1BD72 872 
1386 18075 F1 
138? 
1388 18077 7A95 
1389 
1390 
1391 
1392 
1393 1BD7B E2 
1394 18070 5C0 
1395 18D80 95C 
1396 1BD83 70 
139? 1BD85 D2 
1398 18087 A4F 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 1BD8A E3 
1407 1BD8C 570 
1408 1BD8F CB 
1409 1BD91 ADI 
1410 1BD94 109 
1411 1BD97 D2 
1412 1BD99 3141 
1413 1BD90 EB 
1414 1BD9F 49 
1415 1BDA2 8F00 
000 
1416 1BDA9 AF4 


x 


x 


* + we 


we ee OF Oe 
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Di=D1i+ 4 
C=DAT1 4 
7B=0 0 Oot 
GOYES USnnd?7 
7CHD OA 
GOYES USnrd? 
C=C-1 $ 
USnnO? D1i=D1- 4 
7B=0) S$ 
GOYES USnn15 
?ST=1  s"S,M" 
GOYES USninut? 
C=C-1 A 
GOC USnet4 
0-0-1 A 
7DHO OAR 
GOYES USnrt? 
D=D+1 A 
USneiit C=C+1 A 
D=D-1 $ 
USnni15 ST=1  s"S,M" 


USnent? ?ST=1 
GOYES 


sNUNE 
USnti33 


GOSUB ExpEXP 


3:30 an 
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D(S)= flag for -0. 
C= Hdigits before radix. 
Check for significant 0 later? 
No. 
All integer field? 
No. Decimal digits, too. 
Yes. For unit’s digit check. 
D1 back to total #digit storage. 
Negative nurber? 
No. 
Yes. Sign specified? 
Yes. 
One digit posn for sign. 
CRY= maybe -0, 
One less total digit position. 
Only one total digit posn? 
No. s"S,MN"=0 for "neg expr". 
Yes, Will need this posn for -0. 
Don’t use posn for sign, if -0. 
Flag: check for -O later. 
Either sign specfd, or pos expr. 
Now C=Hdigits before radix. 
Exponent specified? 
Yes. No leading zeros. 


Expand Exponent to 5 digit forn. 


At this point, C(A)= #digits before radix, 


C=C-A A 
GONC = USnri25 
oRHO OU 
GOYES USnri25 
C=0 A 
D=D-1 §$ 


A(A)= exponent+1 


#zeros till first nonzero digit. 
NC= sufficient digits. 
If negative exponent, OK. 


Insufficient digits... 
unless -0 acceptable. 


Now compute the nibble for rounding: 


13- 


USnn25 D=B-C A 
GONC =-USnni33 
C=C+D R 
B=0 qn 
USnri33 R1=C 
C=0 A 
LCHEX 14 
C=C(-D A 
GOC USnri39 
GOSBVL =DECP=C 


USnn39 A=B W 


rounding nibble 

exoonencya(haignes specified past radix) 
13+(#digits till radix)-(exponent)-(total #digits) 
13+(#zeras)-(total #digits) 


D= nib to round past fixed rdx. 
NC= round OK. 

C= #zeros= total #digits. 

E.g.: ".DD";.0006 . Mantissa=0. 
Ri= #zeros. 


Fixed radix at position 14, 

C= nibble to round. 

Nibble beyond 14; no round (P=0) 
"P=€ QO in decimal node”. 


Expression to A. 
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1417 
1418 


1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1433 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 


1467 
1468 
1469 


iBDAC 
1BDARE 


1BDB4 
1BDB7 
1BDB9 
1BDBC 


1BDBF 
1BDC2 
1B8DC4 
1B8DC? 


1BDC9 
1BDCB 
1BDCE 


1BDDO 
1BDD3 
1BDD7 
1BDD9 
iBDOC 
1BDDE 
1BDE1 
1BDE3 
1BDE6 
1BDE8 
1BDEB 
1BDEE 
1BDFO 
1BDF3 


iBDF? 
iBDFR 
1BDFD 
1 BDFF 
1BEQ2 
1BE04 


1BEO? 
1BEOR 
1BEOC 
1BEOF 
1BE11 
1BE13 
1BE16 
1BE18 
1BE1A 


1BEIE 


1BE23 


D9 
8E00 
ie) 
5R0 
£4 
BD4 
B54 
k 

AFS 
DA 
862 
03 


D2 
969 
84 


129 
7E35 
EA 
968 
0 
842 
F8 
ABS 
4 
A3E 
8BA 
% 
841 
68B4 
* 


119 
95D 
RO 
934A 
41 
5C0 
x 
94F 
6E 
930 
70 
CE 
40D 
0? 
04 
7382 
k 


3233 
F 


94D 
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USnrt41 


USnir43 


USGOV; 


USnri4? 


USnii51 


USnii53 
USnr55 


C=B 


GOSUBL =RND-12 


GONC 
R=A+14 
ASR 
A=A+14 


B=A 
A=C 
?$T=0 
GOYES 


C=0 
?B=0 
GOYES 


CRIEX 
GOSUB 
A=A-C 
?A=0 
GOYES 
ST=0 
A=-A 
B=A 
C=0 
C=C-1 
AcE 
GOYES 
ST=0 
GOTO 


C=R1 
*BHO 
GOYES 
*C=0 
GOYES 
GONC 


2DHO 
GOYES 
7R=B 
GOYES 
C=C-1 
GOC 
D=C 
SETHEX 
COSUB 


LCHEX 


?BHO 


A 


USnn41 


USnni55 


ExpEXP 
A 

q 
USnn43 
sNUME 
R 

Xx 

A 

X 

A 
USnn47 
sF LORT 
USGOVF 


M 
USnn51 
S 
USnn55 
USnn53 


$ 
USGOV j 
XK 
USnn55 
A 
USGOV j 
R 


SAVE++ 
F33 


S 
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Save exponent in C(X) for later. 
Round. 


NC= no MAXREAL overflow. 

MAXREAL returned for round ovfl. 
Exponent=500; A(M)=0999..99 
A(M)=1000...00 . Now A=1£500. 


B= rounded expression. 

Old exponent to A. 

Exponent specified? 

No. 

Yes. Now sNUME=1 will indicate 
a positive exponent. 

“No zeros" to R1. 

Expression = 0? 

Yes. Only output "OO. .O0E+000" 


(Otherwise "5DE"30 gives OOO00E-004) 


C= #digits before radix. 

Expand exponent to 5 digit forn. 
A= exponent for display. 

Neg exponent for display? 

No. 

Yes. Flag: neg exp. 

Store in positive forn. 

B= expression with full exponent. 


00999 = nax exponent display. 
Exponent overflow? 

No. 

Yes. Disable float after warning. 
"USING Ovfl". 


C= #zeros. 

Rounded expr=0? 

No. 

Yes. Now, check for unit’s 0. 
Not necessary. 

(BET) Force significant zero. 


Non-zero expr. -O case? 

Yes; no space for sign. 

Exponent increnented in rounding? 
No. 

Yes. One less zero. 

CRY= insufficient digits. 

#zeros to D(A) (for float check). 


A=curr xqt addr, Di= AvMenEnd, 
store #zeros in RO(9-5). 
C(O)= 3 for ASCII output, 


C(1)= flag for neg expr, 
C(2)= flag for neg exponent. 
Neg expr? 
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1470 
14714 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 


1BE26 
1BE28 
1BE2B 
1BE2E 
1BEX 
1BE33 
1BE36 
1BE39 
1BE3C 
1BE3F 
1BE43 
1BE46 
1BE49 


50 
BE6 
862 
80 
RAZ 
842 
145 
1CF 
AF9 
1657 
131 
861 
(6 
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USni57 


USnii59 


GOYES 
CSR 
*ST=0 
GOYES 
C=0 
ST=0 
DAT1=C 
b1=D1- 
C=B 
DAT1=C 
DI=A 
?$T=0 
GOYES 


USnn5?7 
B 
sNUNE 
USnn59 
RS 
sNUME 
A 

16 

W 

W 


sFLOAT 
IMx10j 
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Yes. €(1)=3. 

No. C(1)=0. 
Negative exponent? 
Yes. C(2)=F. 

Pos exp. C(2)=0. 


Store offset for digit. 
D1 to nuneric expression. 
Fornatted expression. 
Re-write fornatted expr. 
D1i= execution address. 
Floating synbols (D’s) ? 
No. Next synbol. 


Fall into CHKFLT directly. 
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1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
16114 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1621 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 


1BE4B 843 
1BE4E 870 
1BE51 40 
1BE53 E7 
1BE55 101 
1BES8 01 


1BE5A 7CEB 


1BE5E 44 
1BE60 B60 


1BE63 10 
1BE65 R40 


1BE68 35 
1BE6A A70 


1BE6D 85 
1BE6F 570 


1BE72 D4 
1BE74 070 


1BE77 OD 
1BE79 860 


1BE?7C E2 
1BE7E 220 


1BE81 34 
1BE83 450 


1BE86 AS 
1BE88 810 


1BE8B 05 
1BE8D A40 


1BE90 25 
1BE92 FOO 


1BE95 00 


1BE97 316E 
1BESB 9E2 
1BESE CB 
1BERO 852 
1BEA3 05 
{BERS 870 
1BEA8 B4 
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JO IO TOI III I IO IIIT TIT OT 
Code fron above falls into here! 


x 
x 


CHKF LT 


CHKFL5 


x 


CHKFL? 
x 


CHKFLS 


ST=0  sZeros 
?ST=1) os"S 
GOYES CHKFLS 
D=D+1 A 

R1=A 

B=0 A 


GOSUB 


CON(2) \D\ 
REL(3) FLOATd 


=BYTscA 


CON(2) uMULT 
REL(3) CHKF11 


CON(2) \S\ 
REL(3) FLTxsn 


CON(2) \X\ 
REL(3) FLTxsn 


CON(2) \M\ 
REL(3) FLTxsn 


CON(2) uSTRPT 
REL(3) FLTstr 


CON(2) \.\ 
REL(3) CHKFLY 


CON(2) \C\ 
REL(3) FLOATc 


CON(2) \Z\ 
REL(3) CHKFL9 


CON(2) \P\ 
REL(3) FLOATc 


CON(2) \R\ 
REL(3) CHKFLY 


CON(2) 0 


LC(2)  EndNun 
7AcC OB 
GOYES CHKFL? 
ST=1 SNUME 
SETDEC 

?ST=1 s"S,M" 
GOYES ENDFLT 


Flag for "D not found yet." 

Sign specified, or pos expr? 
Yes. 

No. Allow one tore zero for sign. 
Save D1 for end of float check. 
To count floats. 


Multiplier token. 


Any token>=Endnun ends nun field. 
End of nuneric field? 

No. Keep checking tokens. 

Flag: End of float check. 


Neg expr with inplied sign? 
No. Output floats. 
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1540 
1541 
1642 
1543 
1544 
1545 
1546 
1547 
1548 


1BEAR CD B=B-1 


1BEAC 564 GONC 
x 


A 
ENDFLT 


1BEAF 107 CHKF11 D1=D1- 8 


{BEB2 57A GONC 
x 


x 
1BEB5 603C INx10) GOTO 
x 


CHKFL? 


INxql0 


USING Execution Routines <8312 Fri Dec 30, 1983 3:30 an 


Page 36 


Yes. Recover one posn for sign. 
(BET) Output floats. 


Multiplier: skip over 
(BET) decinal digits. 


Execute next synbol. 
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1549 
1550 
1551 
1652 
1653 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1574 


USING Execution Routines <8312 
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FORO RIOR TIT TTT IIT DDT IIT 


(Fron SKPFLT. ) 
Don’t skip current char. 
Put D1 in A. 


RO(9-5)=#zeros to C(A). 
#zeros to D(A). 
(BET) Count next block of floats. 


FOI TOTO TOTO TTI TT IK 


& 
1BEB9 CHKF LA 
1BEB9 171 D1=D1+ 2 
1BEBC 133 ADIEX 
1BEBF 131 Di=A 
1BEC2 7681 GOSUB ROu2CA 
1BEC6 D7 D=C A 
1BEC8 5C8 ; GONC CHKFLS 

& 
1BECB 853 FLOATd ST=1 = sZeros 
1BECE 7874 GOSUB COUNTP 
1BED2 40C CoC CHKFL9 
1BED5 CD , B=B-1 A 
1BED7 05 FLOATc SETDEC 
1BED9 E5 B=B+1 A 
1BEDB 04 SETHEX 

CHKFL? 


1BEDD 6C7F FLOTdS GOTO 
k 


Found a D! 

Count float positions. 
CRY= end of float check. 
Nullify next B+t. 


One wore float posn. 


Keep looking for floats. 
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1572 
1573 JOIST II II IO I IO I TI IK 
1574 x 


1575 1BEE1 1CB FLTstr 01=D1- 12 


1576 1BEE4 863 FLTxsn 
157? 1BEE? 6F 
1578 1BEE9 870 
1579 1BEEC 70 
1580 1BEEE 8AB 
1581 1BEF1 CE 
1582 x 
1583 ‘ 
1584 1BEF3 0B ENDF LT 
1585 1BEF5 7984 
1586 1BEF9 7494 
1587 x 
1588 1BEFD 7E24 ENDFL? 
1589 1BFO1 438 
159) 1BFO4 855 
1591 1BFO7 70EC 
1592 1BFOB 51F 
1593 . 


?$T=0 
GOYES 
*ST=1 
GOYES 
*D=0 

GOYES 


C=D 
GOSUB 
GOSUB 


GOSUB 
GOC 
ST=1 
GOSUB 
GONC 


sZeros 
FLOTdS5 
s" S , n" 
ENDFLT 


A 
FLOTdS 


A 
STORB 
STORB1 


CNTOUT 
IMx10 } 
sRturn 
USGch4 
ENDFL? 


Skip past string pointers. 
Found a D yet? 

No. Keep checking for floats. 
Inplied neg sign? 

No. Qutput floats. 

Yes. Down to sign? 

Yes. Keep checking for floats. 
No. Fall into ENDFLT. 


New #zeros to C. 
#zeros to RO(9-5), store B in R3. 
R3 shift left 5 tines, B to R3(A). 


Count floats. 

CRY= end of float output. 
Return fron display. 
Display blank. 

(BET) Next float output. 
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1594 
1595 
1596 
1597 
1598 
1899 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 


1BFOE 
1BF10 


KK KKK ARK KKK AAKARE KKK KRKREAKAKAK 


x 


24 USG"D" 


861 


18F13 41 


1BF15 
1BF19 
1BFIC 
1BFIF 


1BF21 
1BF24 
1BF 27 
1BF2A 


1BF2C 


1BF2E 
1BF 31 
1BF 33 
1BF 33 
1 BF 36 
1 BF 3A 
1BF 3D 


1BF40 
1BF43 


1BF45 
1BF48 
1BF4A 
1BF4E 
1BF51 
1BF53 


* 


7614 SKPFLT 
5B9 
862 
Rg 


842 
841 
870 
90 


USGdO3 


t 

x 
21 USG"Z" 
x 
871 
4E 

USG" 5 a 

118 
80F F 
108 
470 

k 


860 USG62*3 


64 
& 


863 -USGz*? 
76 
7131 

843 

05 


CE 


1BF55 04 


1BF5? 


1BFSA 
1BF 5D 
1BF 61 
1BF 65 


48e 
x 
853 
75BR 
80DF 
6D8C yes 


p= 
?$T=0 
GOYES 


GOSUB 
GONC 

?ST=0 
GOYES 


ST=0 
$T=0 
?ST=1 
GOYES 


p= 


?ST=1 
GOYES 


C=RO 
CPEX 
RO=C 
GOC 


?ST=0 
GOYES 


*ST=0 
GOYES 
GOSUB 
ST=0 
SETDEC 
C=C-1 
SETHEX 
GOC 


ST=14 
GOSUB 
P=C 
GOTO 


4 
sF LOAT 
USGd03 


CNTOUT 
INx10) 
sNUNE 

CHKFLA 


sNUME 

sF LOAT 
s"S ; n 
uSG's" 


1 
sFLOAT 
SKPFLT 
15 


USG2*7 


s" S i n" 
USG"'S" 


sZeros 
USGdgt 
CSRW9) 
sZeros 


A 
USG2*3 
sZeros 
=CSL2RO 


15 
USGchO 
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Sets RO(S)=4 for digit code. 
Qut of the floats? 
Yes. 


Count output chars. 
Keep skipping floats. 
Through with floats? 
No. Check floats again. 


(Off flag: Through with floats.) 
"Out of the floats." 

Display digit? 

(BET) Yes. (CRY set for USGz*7) 
No. Display inplied neg sign. 


To disp "0" if in the zeros. 
In the floats? (Only for 


one’s digit Z or first decinal D0.) 


Yes. Skip floats. 


Save P in RO(S), 
C(9-5)=#zeros. 


CRY set for "D" symbol. 
Sign output already, 
or specified in field? 
No. Neg sign takes digit’s place. 


In the zeros? 

No. Display digit. 
C(A)= #zeros. 

In case end of zeros... 


Decrenent zero count. 


No nore zeros. Display digit, 
or floating inplied neg sign. 

Nope, not end of zeros. 

Store counter back in RO(9-5). 

Restore "2" or "*" flag. 

Display tote or Hh kee or NO! 
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16393 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 


1BF69 
1BF 6B 
1BF 6B 
1BF6E 
1BF 20 
1BF 73 


1BF 75 
18F 78 
1BF?C 
1BF 7F 
1BF814 
1BF85 


1BF89 
1BF 8B 
1BF 8B 
1BF 8F 


1BF92 
1BF95 
1BF 97 
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FOI TOI ITI TIO II TIT RI III 


* 

21 USG"C” 
USG" p" 

863 

71 

871 

2A 


118 

80F F 

831 

6E 

80FF 

636C Steps 


P= 


?ST=0 
GOYES 
?ST=1 
GOYES 


C=RO 
CPEX 
?PH 
GOYES 
CPEX 
GOTO 


{ 


sZeros 
USGcp3 
sF LOAT 
SKPFLT 


15 

1 
USGc0 j 
15 
USGch5 


In the zeros? 

No. Disp "," or ".". 

In the floats? 

Yes. Skip floats. 

No. Check which syrnbol. 
Nuneric sytbol code to C(S). 
Code to P. 

“ye 

No. Display " " or "*", 

Yes. Display "," or ".". 


SOI OI IIT OI TI IIT ITI IK 


x 


2E USG"S" 
USG"M" 

76E0 

147 
* 

871 

70 

872 


1BF9A 40 


1BF9C 
iBFSE 
1BFA1 
1BFA4 
1BFR6 
1BFA8 
1 BF AB 


F2 USGsi4 
133. -USGsn3 
92h 
20 
oF 
850 
6F3C =USGsni5 
x 


p= 


GOSUB 
C=DAT1 


eST=t 
GOYES 
?ST=1 
GOYES 
CSL 
ADIEX 
?C=0 
GOYES 


ST=1 
GOTO 


14 


STAVE+ 
A 


sF LORT 
USGsi1 
sNUNE 

USGsn3 
A 


XS 
USGsn5 
15 
s"S - n" 
USGch4 


Flag for “S" synbol. 

(P=0) 

No. D1 to A, set D1=AvMenEnd. 

Read flags: C(1)=expr sign, 
C(2)= exponent sign. 

In floats? 

Yes, sNUME not "exponent". 

Exponent being output? 

Yes. 

No. Expr sign to C(XS). 

Restore D1 fron A. 

Positive? 

Yes. 

No. Output "-" positively. 

"Sign has been output." 

Qutput "+" or " ". 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 


1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
16% 
1691 
1692 
1693 
1694 


1BF AF 


1BFB3 
1BFB6 
18F 88 
1BF BB 
1 BF BE 
1BFCO 
1BFC3 
1BFCS 
1BFC9 
1BFCC 
1BFCF 
1BFD2 
1BF D4 
1BFD? 
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HK RK KAKA AK IRI KIRK AIK RK KIRK RIKI KI IRI II IIR IKK IK 


x 
7012 USGdgt 


BF2 
23 
B96 
862 
70 
303 
F2 
1557 USGdg! 
550 
178 
172 USGdg3 
06 
137 USGdg7 
6B3C 
x 


GOSUB AVEDT1 


CSL W 

p= 3 

CSR WP 
?S$T=0 = sNUNME 
GOYES USGdg1 
LCHEX 3 

CSL A 
DAT1=C W 

GONC USGdg3 
D1=D1+ 12 
01=D1+ 3 

C=A A 
CD1EX 


GOTO USGch* 


A=curr xqt addr, D1=AvMenEnd, 
C(W)= entire numeric expr. 
Next mantissa digit for output. 

To protect exponent digits. 
Shift exponent digits back. 

Exponent being output? 

No. 

Yes. 

Next exponent digit for output. 
Replace shifted expr. 

NC only for wantissa digits. 
To ASCII mantissa digit-3. 
To ASCII exponent digit. 

Xqt addr to C. 

Di=xqt addr, C=ASCITI. 

Output ASCII. 
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1695 
1696 
1697 
1698 
1699 
1700 


1701 
1202 
1703 
1704 


1705 
1706 
170? 
1708 
1709 
1210 
1711 
1?t2 
1713 
1714 
1715 
1716 
171? 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
172? 
1728 
1729 
1730 
1731 


1BFDB 
{BF DF 
1BFE2 


1BFE8 
1BFEB 
1BFEE 
1BFFO 


1BFF6 
1BFFA 
1BFFD 


10001 
1C005 
10008 
1CO0C 
1COOF 
1CO12 


10014 


1€018 
1C01B 
1C01D 
1020 
1€022 


7220 
443 
8E00 


400 
831 


8C00 


7020 
1C4 
66DF 


7820 
135 
1537 
9 
B02 
01 


65D0 


133 
24 
131 
E2 
674—~A 
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FOI OI OO TOTO TOTO 


x 


USG''B" GOSUB POPTS+ 
GOC USertk 
GOSUBL =FLTDH 


GOC = USGBO3 
?KM=0 

GOYES USGBO3 
GOLONG =InvArg 


x 


USGBO3 GOSUB NuWOFF+ 
D1=D1- 5 
GOTO USGdg? 
* 


Test stack iten. 
CRY=non-nunieric. “Invalid USING". 


CRY= in range. 

Negative? 

Yes. 

Out of range. “Invalid Arg". 


Write back out hex expression. 
D1= addr of hex expr. 
Output the B char. 


FO IOI OOO TO ITO 


x 


POPTS+ GOSUB NwWOFFS 
POPTST D1=C 
A=DAT1 W 
LCHEX 9 
C=C-A P 
RTN 
x 
x 


New offset to AvMenEnd field. 
Di= start of stack iten. 
Read iten. 


Nureric? 
CRY set: not nurieric. 
CRY clear: numeric. 


FOI IOI TOI ITT ORI TOK 


k 
voenik GOTO USert) 


Fron USG'B" above. 


FOI III IO TOI TOTO TOI IO 


& 
DTIC-A ADIEX 


P= 4 
DTIC. DI=A 

C=C-A A 

GOTO © =BldIM+ 
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1732 EJECT 
1733 JO II III OO IEICE 
1734 JOU IOI SO ICO IO OC ISO IOI III IK 
1735 ae 
1736 xk Narie:(S) NWOFFS - Recover old offset, store new one in RAM 
1737 ak 
1738 ** Category:  GENUTL 
1733 ae 
1740 xk Purpose: 
1741 ax Recover old offset fron AvMenEnd, store a new one 
1742 aR in the sane location. (Utility for IMAGE execution, 
1743 xn but can be used anywhere. ) 
1744 aR 
1745 xk Entry: 
1746 ak Di=address+5 for which new offset will be conputed 
1747 an Old offset resides at AvMenEnd 
1748 ae 
1749 xk Exit: 
1750 = Carry clear 
1751 aR New offset stored in AvNenEnd 
1752 as C(A)=recovered offset fron AvMenEnd (recovered means 
1753 kh that the addition has been perforried on the offset 
1754 xs to recover the address) 
1755 ak D1=A(R)=AvMenEnd+5 
1756 ak 
1757 ** Calls: StAVE+ (SetAVE), CA2D1+ 
1758 ak 
1759 aK Uses....... 
1760 kk Exclusive: A(A),C(A),01 
1761 *k Inclusive: A(A),C(A),D1 
1762 a 
1763 AK Stk lvls: 1 
1764 ax 
1765 **k Detail: 
1766 an =NwOFFS D1=01- 5 
1767 ae ADIEX 
1768 ak GOSBVL =SetRVE Set 01=C=AvMenEnd 
1769 ae A=A-C A Conpute new offset. 
1770 ax C=DAT1 A Fetch old offset. 
ees ak DAT1=A A Store new offset. 
1772 hy GOTO § CA2D1+ Recover conpute address. 
1773 ak 
1774 ** History: 
1775 ax 
1776 Be Date Prograrner Modification 
1777 BR nem een eee ener Hen nnn nnn enn nner nnn nnn ence -e 
1778 ek 12/08/82 MB Docunentation 
ak 
ae JOO III ITO ICT RI RI TAT 
1781 SOI III IOI TOO TIT K 
1782 x 
1783 1€026 76D9 =NwOFF+ GOSUB =SetAVE Set D1i= AvMenEnd. 
1784 1CO2R 5B0 ; GONC NuOFF3 (BET) 
1785 


1786 1C02D 1C4 =NuOFFS D1=D1- 5 
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1787 1£030 7140 GOSUB StAVE+ A=curr xqt addr, D1= AvMenEnd. 
1788 1€034 EA A=A-C A 
1789 1€036 147 NwOFF3 C=DAT1 A 
1790 10039 141 DATI=A A 
1791 1C03C 6910 GOTO CA2Di+ 


1792 a 
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1793 EJECT 
1794 III DISD IIT TE STIR RT ISIS TTDI TDS DISSE IIIS III IR IISA I IIS 
1795 J IITA ITI ASIST III III III III II IDI IA ISS ISIS II SSSI IIA 
1796 ae 
1797 *k Nane:(S) ENDING - Process end of IMAGE string 
1738 ae 
1799 ** Category:  EXCUTL 
1800 ak 
1801 xk Purpose: 
1802 ae Process ulMend token at end of IMAGE string. 
1803 RX 
1804 ** Entry: 
1805 aR P = 0 
1806 ax RAM storage as shown in INxqt header. 
1807 aK 
1808 ak Exit: 
1809 a If "not ouput field found" (S$10=0), generates 
1810 aK an “Invalid USING" error. 
1811 AK Else: 
1812 aK P=0 
1813 ak D1=AvMenEnd+5 
1814 ak C(A)=address of start of IMAGE string. If there 
1815 = are riore output fields, the IMAGE string can now 
1816 = be recycled. 
1817 ak $0=0, $1=0,$2=0,S2=0, $6=0 
1818 ak 
1819 ** Calls: GETSTA, CLOST+, RCVOFS 
1820 a 
1821 AX USCS. cb <0 
1822 xk Exclusive: D1 
1823 *k Inclusive: 01,A(A),C(A),0(A), SO, 51,52, $3, S6 
1824 ak 
1825 AX Stk lvls: 2 
1826 a 
1827 xk NOTE: 
1828 x During IMAGE execution (output or enter), when the end- 
1829 a of-inage is encountered the routine TstEnd should be 
1830 ax called to determine if at the end of the output list 
1831 ae (or enter list). If so, exit to NXTSTN. If not, call 
1832 am INGEND to recycle the inage string. 
1833 a 
1834 xx Detail: 
1835 Ax =ENDING GOSUB GETSTA Get status bits fron RAM 
1836 aX GOSUB =CLOST+ Set S0,$1,52, 53, S6=0 
1837 a *ST=0 10 Output field found? 
1838 ax GOYES <Invalid USING error> No. Error. 
1839 ae Di=Di+ 8 Gives D1+3 in RCVOFS 
1840 aX .-. fall into RCVOFS... Recover offset to start 
1841 ax of inage string. 
1842 =~ 
1843 ** History: 
1844 ak 
1845 = Date Progranner Modification 
1846 RK nanan eee ween rrr ernment ncn nnn sen ccsccs cee 


1847 kk 12/08/82 MB Docunentation 
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1848 an 
1849 JE IOI III II SOT IIIT ISI III IIIS III IIIT III ISI ITI SS IOS III IITA 
1850 JOIST GCC IIIT IIIT I TK 
t 
aes JR III III II TI TITIES I II IDI ISO IIIS IIIS 
1853 JOR III III ITI IOI III III III IIIT ISIS III SATIS A 
1854 aK 
1855 kK Ware:(S) RCVOFS - Recover offset fron RAM storage 
1856 *k Narie:(S) C+A2D1 - Recover offset fron RAM storage 
1857 Narie: CA2D1+ - Reconpute offset fron RAN storage 
1858 
1859 ** Category: GENUTL 
1860 aK 
1861 ** Purpose: 
1862 kk To recover a 5-nibble offset fron RAM (recover neans 
1863 ak to fetch the offset, perforn addition to recornpute 
1864 i the original address). 
1865 RK 
1866 ** Entry: 
186? aK RCVOFS: offset to recover resides at 01-5 
1868 ak C+A2D1: offset to recover resides at D1 
1869 ak 
1870 RK Exit: 
1871 - Carry clear 
1872 an D1=A(A)=addresst5 where offset was found 
1873 ak C(A)=recovered offset (offset was added to D1 to 
1874 a reconpute old address) 
1875 aR 
1876 kk Calls: none 
1877 RK 
1878 RK Uses.. ec... 
1879 kk Exclusive: A(A),C(A) 
1880 aK C+A2D1 also uses D1 (does a 01+5) 
1881 ak 
1882 ** Stk lvls: 0 
1883 aK 
1884 ** Detail: 
1885 ak =RCVOFS D1=D1- 5 
1886 a =C+A2D1 C=DAT1 A 
188? aK CA2D1+ 01=B1+ 5 
1888 kn ADIEX 
1889 ak D1=A 
1890 ak C=A+C A 
1894 ak RTNCC 
1892 ax 
1893 ** History: 
1894 ae 
1895 ae Date Progranner Modification 
1896 aaa 
1897 4k 12/08/82 NB Docunentation 
1898 aK 
1899 JI JO UII I DIIGO IIT TORT TI TT DIK 
1900 JIT IIE ICO IT TTR RTT RT TOK 
1901 * 


1902 10040 =ENDING End of image string. 
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1903 
1904 
1905 
1906 
1907 
1908 
1903 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
192? 
1928 
1929 
19% 
1931 
1932 
1933 
1934 
1935 
1936 


1937 


10040 
10044 
10048 
1C04B 
10040 


1€050 


10053 
10056 
10053 
1CO5C 
1CO5F 
1€061 


10063 
10067 
1CO6A 
1C06D 
1CO6F 


10071 
1€075 
10078 


1C07C 
1CO7F 


7F10 
7289 
86A 
of 
177 


14 


147 
174 
133 
131 
C2 
03 


7399 
174 
147 
OR 
03 


7189 
133 
6789 


118 
8000 
000 
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GOSUB GETSTA Get status bits from storage. 
GOSUB =CLOST+ Clear 0 nib of status, sSpecl. 
?S$T=0 =sFOUND Output fields found? 
GOYES USertk No. "Invalid USING". 
D1I=D1+ 8 Gives 01+3, points to offset 
2 to start of IMAGE string. 
x Fall through to RCVOFS... 
x 
=RCVOFS D1=D1- 5 Recover offset fron RAN, 
k conpute address. 
=C+A2D1 C=DAT1 A 
CA2D1+ Di=Di+ 5 
CA2D1. ADIEX 
D1=A 
C=A+C A 
RTNCC 


x 
FOTO ROO OI ITO TI 
x 


GETSTA GOSUB =SetAVN 
GETST1 Di=Di+ 5 
C=DAT1 A 
ST=C 
RTNCC 
z 


23 I IOC TICK 
SAVE++ GOSUB =CSL2RO 

StAVE+ ADIEX 

Setave GOTO =SetAVE 

x 


FORO TT TIE III I 
a 


ROu2CA C=RO 
=CSRW9) GOVLNG =CSRUPS 


x 
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1938 EJECT 
1939 III III OT OR IO III II IIT TIT ITI IIT IIT IIS TS III IIA ISIS IIS SIS SO SISK 
1940 JI III II I I III II IIS III IIIT IIIS III SSIS SSIS I III III IIIS ISS SS SII 
1941 aX 
1942 . Nane:(S) GetEXP - Expression execute for IMAGE output list 
1943 
1944 ** Category:  EXCUTL 
1945 a 
1946 ** Purpose: 
1947 ax Call EXPEXC for itens in IMAGE output list, screen 
1948 RK expression for valid type. 
1949 ‘ 
1950 ek Entry: 
1951 a Pp = 0 
1952 a R3(A)=Progran Counter 
1953 ak RAN storage as shoun in INGxgt header. 
1954 ax $3 and S6 deterriine valid expression types: 
1955 ax S6=1 means “nuneric expression acceptable" 
1956 a S3=0 neans "string expression acceptable" 
1957 ax S3#S6 means "“conplex acceptable" 
1958 ax valid type $3 $6 
1959 Re wee ener ee -- ose 
1960 ae nuneric 1 1 
1961 aR string o 9 
1962 as corplex 1 0 
1963 ae any (K or H) Oo 4 
1964 xe 
1965 EX Exit: 
1966 es If expression is not of valid type, "Invalid USING". 
1967 a Else: 
1968 as P=0 
1969 ae Carry clear 
1970 RX S$6=0 
1971 aK If numeric or complex expression: 
1972 oh RES register has been updated 
1973 : A(W)=nurieric expression (or =real part, in 
1974 ay the case of conplex) 
1975 © ae If string expression, A(W)=string header except 
1976 ax that A(B)=00. 
1977 aX 
1978 ** Calls: TstEnd, NXTEXP, CKINFO, POPMTH, AVE=D1, GETSTI, 
1979 ax POPTST, PUTRES 
1980 ag 
1981 ER USCS wits wien 
1982 a Calls EXPEXC, whach nay use anything. 
1983 aR 
1984 ** Stk lvis: Calls EXPEXC, which nay use anything. 
1985 ax § levels available to EXPEXC. 
1986 A 
1987 ** Algorithn: 
1988 xe Test output list for end-of-list. If so, to NXTSTM. 
1989 am Call NXTEXP, which stores status bits and offset 
1990 an to D1 in RAM, junps to EXPEXC. 
1991 a Pop nath stack. 


1992 ae Restore status bits fron RAM. 
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1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 


2016 
201? 
2018 
2019 
2020 


2021 


2022 
2023 
2024 
2025 
2026 
202? 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 


2041 
2042 
2043 


10086 
1CO8A 
1C08D 
10091 


10097 
1CO9A 
1C09D 
1CORO 
1COR2 


1COR8 


1CORE 
1COB2 


1COB4 
1COB8 
1COBB 
ICOBE 
1COCO 


1COC6 
1COC3 
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aS If nuneric expression: 
aX 2) If S6=1, then go to 4). Else go to 3). 
a If string expression: 
xR If $3=0, then return. Else go to 3). 
aX If complex expression: 
ax If $3=0, then go to 2). 
ax Else (S3=1) if S6=0 then go to 4). 


&k 3) «Exit to "Invalid USING" error. 
*k 4) Put expression in RES register. Return. 


ih 
** History: 

ik 

xk Date Progranner 
OP. cei weue encoun acees 


*K 12/08/82 MB 
ka 


Modification 


Docunentation 


FOI TT OTT FOIA IIA 
FOO TIO IOIUTOOUTOT TT IDITTIITK 


k 
7§70 =GetEXP GOSUB TstEnd 
596 GONC ENDST) End of strnt. CR,LF and Next stnt. 
7662 GOSUB NXTEXP Get next expression. 
8£00 GOSUBL =CKINFO Verify output device info. 
00 
10B R3=C 
133 ADIEX 
131 DI=A 
08 B=A A 
8E00 GOSUBL =POPNTH 
00 
8E00 GOSUBL =AVE=D1 Set AvMenEnd=D1. 
00 
75BF GOSUB GETST1 Get status bits fron storage. 
D9 C=B A C= addr of expression. 
k 
* Non test expression for valid type: 
x At entry, sSpecl=1 neans “numeric acceptable". 
x sZeros=0 means “string acceptable". 
x sSpecl # sZeros means "cotriplex acceptable". 
x 
* sSpecl sZeros 
k Numeric field: 1 1 
- String field: 0 0 
x Complex field: 0 1 
* K or H field: 1 0 
k 
7D4F GOSUB POPTST Test stack iten. 
421 GOC GtEXOS CRY= non-nuneric. 
866 =6GtEXO1 ?ST=0) sSpecl Nuneric acceptable? 
C2 GOYES USertj No. “Invalid USING". 


8E0O §=GtEXO3 GOSUBL =PUTRES 
00 
846 GtEX04 ST=0 = sSpecl 


03 RTNCC 
k 


Expr to RES register. 


Clear special flag. 
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2044 1COCB BO4 = GtEX0S A=A+1 P 
2045 1COCE 968 7A=0 = «iB String expr? 
2046 1COD1 41 GOYES GtEX09 Yes. 
2047 1C0D3 B04 A=A+1 P No. 
2048 1C006 36C 7AHO OB Corplex expr? 
2049 1C0D9 11 GOYES USertj No. "Invalid USING". 
2050 1CODB 863 ?$T=0 «sZeros Yes. K or H field? 
2051 1CODE DD GOYES GtEX01 Possibly. 
2052 1COEO 866 7ST=0  sSpecl No. Conplex field? 
2053 1COE3 DD GOYES GtEX03 Yes. 
2054 1COES 863 GtEX09 ?ST=0 sZeros (Fron GtEX0S) String acceptable? 
2055 1COE8 ED GOYES GtEX04 Yes. 
2056 & 
2057 x 
2058 1COEA 8CCF USert) GOLONG =IvUSG) No. "Invalid USING". 
3F 
2059 x 
2060 III IRI IR IID III IAAI I III III ITIS IIIT IDISS ISIS IS 
2061 x 
2062 1COFO 7B00 USGend GOSUB TstEnd If eol, then exit. 
2063 1COF4 534 ENDST) GONC  ENDSTN End of stnt. 
2064 1COF7 754F GOSUB ENDING Check for recycling of inage. 
2065 1COFB 60AA GOTO §3=IMxq2? Yes; start at beginning of ing. 


2066 


x 
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2067 EJECT 
2068 JOO II ISO TC TI I 
2069 JISC SII IO TOIT ITE 
2070 aK 
2071 ** Narie:(S) TstEnd - Test IMAGE output list for end of list 
2072 aR 
2073 xt Category:  EXCUTL 
2074 xx 
2075 *k Purpose: 
2076 ar Test IMAGE output list for end-of-list. If not, 
2077 ak positions DO to next expression. 
2078 aK 
2079 ** Entry: 
2080 ak P = 0 
2081 aa R3(A)=Progran Counter 
2082 7 RAN storage as shown in INGxqt header 
2083 aR 
2084 ak Exit: 
2085 ak P = 9 
2086 aE Carry clear: end of output list (DO points past EOL, 
2087 xk neu or " ) 
2088 ak D1 points to first inage token 
2089 ae A(B)=first inage token 
2090 xs C(B)=ASCII "#" for test of first inage token. 
2091 ak Carry set: DO points to next expression in output list 
2092 aR 
2093 *k Calls: EOLXCK 
2094 KR If end-of-list, also calls: SetAVE, C+A2D1 
2095 ak 
20396 kk Uses....... 
2097 **k Exclusive: A(B),C(W),DO0,D1 
2098 ** Inclusive: A(B),C(W),D0,D1 
2099 xr 
2100 RX Stk lvls: 1 
2101 aK 
2102 ** NOTE: 
2103 ax If end-of-list, A(B) and C(B) are ready to test 
2104 xe first inage token for "#". If the first token 
2105 xk is a "#", then a CR-LF should not be sent out. 
2106 aR 
2107 ** Algorithn: 
2108 aR Fetch Program Counter fron R3(A), copy to DO. 
2109 kk = 1) Read byte fron DATO. 
2110 ax If A(B) not "," or "3" then return carry set 
2111 kk (A(B) must be first byte in expression) 
2112 ak Increnent DO+2 
2113 a Test A(B) for EOL, "@" or "!". If no natch, 
2114 ax go to 1) (must be another "," or ";") 
2115 ax (Match with EOL, "@" or "!"): 
2116 an Recover offset to start of IMAGE string, 
2117 a put address in D1. 
2118 = Read first image token into A(B). 
2119 a Load ASCII "#" into C(B). 
2120 a Return carry clear. 


2121 AR 





ae 
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2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 


2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2167 
2158 


2169 
2160 


2161 


** History: 
xk 


an Date 
KR 


** 12/08/82 NB 


xx 
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Modification 


Docurentation 


FORO IIT TIT TTT IT III IK 
FOI III ITO ITO TT TIT TTI ITT IIIT I IK 


x 


1COFF 11B =TstEnd 
10102 134 

10105 14A =TstEn3 
1€108 3100 

1C10C 9E2 

1C10F 00 


a ue OF OF OF OF OF 


10111 161 
1C114 8FOO 

000 
1C11B 59€ 
1C11E 7ED8 
10122 177 
10125 7A2F 
10129 135 
1€12C 3132 
10130 1C1 = TstEnS 
1€133 148 
1€136 03 

x 

10138 962 ENDSTN 
1C013B 80 
10130 8£00 

00 
10143 20 NXTstri 
1€145 8C00 

00 


C=R3 

dO=C 

A=DATO B 
LC(2)  =tEOL 
oA<C OB 
RTNYES 


Test for "," or "3". 
Conna or sernicolon? 
No. Expression. 


This test allows the command ’ DISP USING" "; ’. 
Otherwise, the seriicolon with no output itens would 


Cause an error. 


Also allows tuo or nore adjacent 


coras or senicolons between output itens (this is 
different fron HP-75), or output strear to end 
in a conma or seraicolon. 


DO=D0+ 2 
GOSBVL =EOLXCK 


GONC TstEn3 
GOSUB =SetAVE 
D1=D1+ 8 

GOSUB C+A2D1 
D1=C 

LCASC \#\ 
Di=DI- 2 
R=DAT1 B 

RTNCC 


*A=C OB 
GOYES NxXTstn 
GOSUBL =SENDEL 


P=) 
GOLONG =PART3 


DO to next expr. 
Sets carry if EOL, @ or !. 


NC= either expror"," or "5". 


Ready for “#" test. 

To first BIdING char. 

Read first BIdING char. 
Alert caller to end of stnt. 


# synbol? (suppress CR-LF?) 


Yes. 
No. Send out ENDLINE. 


To DPART3, to next stnt. 


Saturn Asserbler USING Execution Routines <8312 Fri Dec ®, 1983 3:30 an 


Ver. 3.39/Rev. 206 Page 53 
2162 EJECT 
2163 FOI TO IK IR TIT IAD II IIS ISIS IIIS ITO I IIIA IS SII IN 
2164 FOI DIO FO TOT 
2165 aK 
2166 ** Narie:(S) USloop - Loop on IMAGE multiplier 
2167 ak 
2168 xk Category:  EXCUTL 
2169 aK 
2170 ** Purpose: 
2171 ak To process a loop-on-nultiplier token while executing 
2172 ae an IMAGE statenent. Repositions D1 back to start 
2173 ak of nultiplier loop. 
2174 aK 
2175 *k Entry: 
2176 xk For a fixed junp (junp back a fixed nunber of nibbles), 
2177 ae P=#nibbes-1 to junp 
2178 aK P=3 for uLOOPB (loop on byte -- 4 nibble junp) 
2179 a P=15 for uLOOPS (loop on string -- 16 nib junp) 
2180 *x For a jump whose length is calculated by a 5-nibble 
2181 ak field, 
2182 ax P=0 for uLOOPP (loop on parentheses) 
2183 xx Dizaddress of loop token in BIdING strean 
2184 ax 
2185 AX Exit: 
2186 ak Carry clear 
2187 a (P unchanged) 
2188 ak If multiplier has not expired: 
2189 ak loop counter has been decrenented. 
2190 a D1 points to start of multiplier loop. 
2191 ae If multiplier has expired: 
2192 ak the reference counter has been copied into the 
2193 ae loop counter. 
2194 oh D1 is left as it was passed (points to loop token). 
2195 am 
2196 ** Calls: CK"ON" 
2197 i 
2198 BR USGS oes ewe 
2199 aK Exclusive: C(A),0(A),D1 
2200 kk Inclusive: C(A),0(A),01,.... 
2201 a 
2202 ** Stk lvls: 1 
2203 an 
2204 ** NOTE: 
2205 — USloop checks if the ATTN key has been hit; if so, it 
2206 aK exits through PART3 (output handler), which goes to 
2207 ides NXTSTM. Thus, an inage string like "9999X" will allow 
2208 i the user to abort it with the ATTN key. 
2209 aR 
2210 ** Algorithn: 
2211 kk Copy D1 to D(A). 
2212 ax Check ATTN key; if pressed, exit. 
2213 a Increment D1 by P+1. 
2214 ae If P#O (loop on byte or string), go to 2) 
2215 ae Else (loop on parentheses): 


2216 ae Move D1 to offset storage 
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2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 


2235 
22 36 
2237 
22 38 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 


1(14B 137 
1C14E 8FOO 
000 
10155 5DE 
10158 D? 
1C1SR 809 
1C15D 135 
10160 880 
10163 B2 
10165 1C6 
1C168 77EE 
1C16C 1C6 
ICI6F 13? 
1€172 D? 
10174 591 


xk 
ax 
ak 
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Fri Dec ®, 1983 


Recover offset to start of loop 


2) Decrenent loop counter 


If counter not expired, return. 

Else (counter expired): 
Copy reference counter to loop counter. 
Restore D1 fron D(A), return. 


History: 


Modification 


we we ee we wan we we ee em em ee ew we ee we ew tee ee we 


Docurientation 


FOR IOI III TOTTI TTT ITC 
FOO OOO OTT TTT TTI ITT IK 


x 


=USloop CD1EX 


x 


GOSBVL =CK"ON" 


GONC NXTstn 
d=C A 
C+P+1 

01=C 

?PH 0 
GOYES DCRMOS 
D1i=D1- 6 
GOSUB C+A2D1 
D1i=D1- 7 
CDIEX 

b=C R 

GONC DCRIWS 


Save D1. 
Check for ATIN key. 


NC= ATTN hit. To NXTSTM. 

Save Dt=current xqt addr. 

Loop back to multiplier addr. 
Di= multiplier address. 

Loop on parentheses? 

No, loop on byte or string. 

Yes. -1 for C+P+1, -5 to offset. 
Recover offset to open paren addr. 
Di= resune addr if ctr expires. 
Now Di= start of paren loop. 
Save D1= current xqt addr. 

(BET) Execute multiplier. 
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2248 EJECT 
2249 SII JO II TTI IT IST ISI DIT IIR IIID IIIT SAIS II II ISS ISS SII II TIN 
2250) JOO OOOO IO OCCT ICIS RTT IK 
2251 ak 
2252 a Narie:(S) DCRANT - Decrenent multiplier in IMAGE string 
2253 
2254 ** Category:  EXCUTL 
2255 AK 
2256 ** Purpose: 
2257 x To decrenent loop counter in IMAGE string. An inage 
2258 x symbol with a multiplier causes a loop which nust 
2259 aK decrenent the counter each tine. 
2260 ak 
2261 &* Entry: 
2262 ak P = 0 
2263 ak D1 points to uNULT token (nultiplier) 
2264 x 
2265 AK Exit: 
2266 | aK P = 0 
2267 ak Carry clear 
2268 ax D1 ponts to next executing token (01-8 fron entry) 
2269 aK Loop counter has been decrenented. 
2270 ak If an open parentheses loop, see note belou. 
2271 ak 
2272 tk Calls: none 
2273 ax 
2274 AB USGS... ii tvs 
2275 *k Exclusive: A(B),C(A),D1 
2276 ax 
2277 * Stk lvls: 0 
2278 . 
2279 ** NOTE: 
2280 dy: If the loop counter is for a parentheses loop which 
2281 Bx has not been closed yet (execution of the fields 
2282 ne as started before the parse routines found the 
2283 aK closing parentheses), then a uOPNWM token (open 
2284 xe parentheses loop with multiplier) 1s found in the 
2285 kk reference counter field. If such is the case, the 
2286 cae uOPNWM token is replaced with a uOPNM- token to 
2287 - indicate that the loop counter has been decrenented. 
2288 
2289 xk Algorithn: ; 
22% vs Move D1-4 to reference counter. 
2291 ke If uOPNWM token in reference counter field, re-write 
2232 aK With uOPNN-. 
2293 he Move D1-4 to loop counter. 
2294 ak Decrenent loop counter (DEC node), replace; return. 
2295 x 
2296 kX History: 
2297 ak 
2298 1 Date Progranner Modification 
2299 RK wane enn anne ene ne nn nnn ee nnn nnn nen n nnn nnn ener nee 
2300 kk 12/08/82 MB Docunentation 
2301 a 


2302 FOI III TO IT TIT I TIO 








Saturn Asserbler 
Ver. 3.39/Rev. 2306 


2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
232? 
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JOIST IOC TI TTT TIA TT II IK 
1€177 1€3 =DCRMNT Di=D1- 4 


1C17A 310E 
1C17E 148 
10181 966 
10184 70 
10186 CC 
10188 149 
1€188 1€3 
1C18E D2 
10190 15F3 
10194 05 
10196 CE 
1€198 04 
1C19A 15D3 
1C19E 500 
t 
1C1A1 173 
1C1A4 147 
1C1A? 103 
1C1AA 1503 
iCTAE DB 
1C1BO 135 
1C1B3 03 


DCRNO3 
DCRMOS 


LC(2) 


uOPNWM 


A=DAT1 B 


PARC 
GOYES 
R=A-1 
DAT1=A 
D1=D1- 
C=0 
C=DATI 
SETDEC 
C=C-1 
SETHEX 
DAT1=C 
RTNNC 


D1=Di+ 
C=DAT1 
D1=01- 
DAT1=C 
C=D 
DI=C 
RTNCC 


B 
DCRMO3 


>pDHew»w 


afr ppDst 


To start of multiplier reserve. 
To test if open loop. 

Read reserve. 

Open loop? 

No. Closing paren already found. 
Yes. A(B)= uDPNN- . 

Re-write token; "cntr decrenntd." 
To multiplier counter. 

Zero nib 4. 

Read counter. 

Counter 1s in decinal. 
Decrenent. 


Re-write counter. 

CRY= counter expired; reneu. 
Fetch reserve multiplier. 
Replace expired counter. 


C= address to resune xqt. 


Skip rult symbols. 
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2328 
2329 KIKI IKK TIKI IIIS I IDI III IIIA LI III III III III ISI III I SII ITA 
23H : 
2331 1€1B5 7388 USGch/ GOSUB =D12ROA Save Dl=xqt address in RO(A). 
2332 1C1B9 8£00 GOSUBL =SENDEL 

00 

2333 1C1BF 6909 USG/1 GOTO  IMxq25 
2334 m 
23335 JK II III IDI IIIA AI IIR EID IIIT OAS IIIS III III III IIIS IIIS IIT TIS 
2336 x 
2337 1€1C3 7ERE AVEDT1 COSUB StAVE+ A=curr xqt addr, D1=AvNenEnd. 
2338 1C1C7 1€F AVED.3 D1=D1- 16 To start of numeric expr. 
2339 1C1CA 1577 C=DAT1 W Read entire expr. 
2340 1C1CE 03 RTNCC 


2341 
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2342 
243 
2344 
2345 
246 
2H? 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
235? 
2358 


2359 
2360 
23 


2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 


1€100 


1€1D0 
10103 
1C1D6 
1€1D9 


1C1DB 
iC1DE 
1C1E0 


1C1E3 


1C1E9 
1C1EB 


1C1F2 


1C1F6 
iC1F9 
iC TFC 
iC1FF 
1C201 
10204 


1C206 
10206 
1€209 
1C€20B 
1C20F 
1€211 


10214 
1€216 


iC21A 
1€21D 
1C21F 
C222 
10224 
10228 
1C22B 
1C22F 
1€232 
10234 
10236 
10239 
10238 


ECT 
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FOI JO II TO FI OK 


x 
CHKSKP 


* NaN, Inf or -Inf. Skip all numeric synbols 
* except for 3 (or 4 for -Inf) to output "NaN or "Inf". 
k 


103 
AF 1 
96C 
Rw 


948 
50 
AAD 
x 
8E4E CHKSKI 
7F 
x 
20. CHKSK3 
1809 
3C1 
7R3F 


Kose 
a 


161  CHKSK5 
14E 
396A 
36 
966 
2F 
X 
N/ISKP 
876 
4 
7731 
04 
57D 
X 
2c NISKP2 
6409 Pie 


871 = NISKPS 
7F 
870 
7C 
7701 
50E 
749F 
96E 
BO 
28 
94A 
40 
2A 


R1=C 
B=0 
?RHO 
GOYES 


7A=0 
GOYES 
B=B-1 


GOSUBL 
p= 


GOSUB 
D1=D1- 
A=DAT1 
DO=D0+ 
C=DATO 
*C=0 
GOYES 
?AHC 
GOYES 


*ST=1 
GOYES 
COSUB 
SETHEX 
CONC 


GOTO 

?ST=1 
GOYES 
*ST=1 
GOYES 
GOSUB 
CONC 

GOSUB 
7CHO 

GOYES 


*C=0 
GOYES 


W 
8 
CHKSK1 
S 
CHKSK1 
S 


=CLOST 


=INtbl 
TstEn5 


omrnwre 


CHKSK? 
B 
CHKSK5 


sSpecl 
NISKPS 
COUNTC 


CHKSK3 


12 
USGch4 


sOvfFl 
NISKP2 
sStall 
CHKSK3 
CNTOUT 
NISKP3 
AVEDT4 
B 
NISKP9 
8 

$ 
NISKP9 
10 


Di=xqt address to R1. 

B(S)=flag, B(A)=counter for skips. 
NaN? 

Yes. O=NaN. 


No. -Inf? 
No. +Inf. 
B(S)=F: -Inf. 


Clear 0 nib of status bits. 


Inage character table. 


Does: D1=D1-2, A=DATI B. 

To next token. 

Read token. 

To next table token (skip X!). 
Read table token. 

End of table? 

Yes. 

Nope. Token natch? 

No. Try next one. 


Yes! Count skips. 
Skipping positions? 
Yes. 

Increnent skip count. 


(BET) Keep cntg Nan/Inf skips. 


Display "*" to show overflou. 
Display blank. 


Overflow filling? 

Yes. 

Stalling (no output)? 

Yes. 

Count #skips for output. 
More skips. Display blank. 

D1 to A, DI=AvMenEnd, C=expr. 
NaN? 


Yes. P renains=0. 
No. Inf or -Inf. 
-Inf? 

No. 

Yes. 
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2395 1C€23D 3DE4 WNISKP9 LCASC \fnI-NaN\ Pointer deterriaines. 

16E4 

0294 

£666 
2396 1C24D 1507 DAT1=C 8 3 or 4 chars into Dat}. 
2397 10251 772E GOSUB ROu2CA RO(9-5)=#chars to C(A). Sets P-0. 
2398 10255 05 B=C A #chars to B. 
2399 1€257 850 ST=1—s sStall "Stalling: no output.” 
2400 1C25A 6979 é GOTO §=USs t05 Display "NaN" or "Inf". 
2401 
2402 1C25E 6398 IMx11j GOTO IMxqil 
2403 x 
2404 10262 876 CHKSK? ?ST=1 sSpecl Counting skips? 
2405 10265 9F GOYES IMxi1j No, outputting; xqt curr token. 
2406 10267 3100 LC(2) uSTRPT Yes. 
2407 1026B 962 *A=C OB String pointer? 
2408 1C26E 13 GOYES CHKS21 Yes. Skip 12 nibs over hex ptrs. 
2409 1€270 £6 C=C+1 A C(B)=uMULT. 
2410 1€272 962 7A=C OB Multiplier? 
2411 1€275 72 GOYES CHKS19 Yes. Skip over 8 decimal nibbles. 
2412 1€277 316€ LC(2)  EndNur Token >= EndNun ends nun fld. 
2413 1C27B 9E2 7A<C OB Still within nuneric fld? 
2414 1C27E 42 GOYES CHKS3) Yes. Keep counting skips. 
2415 10280 02 C=0 A 
2416 10282 K3 ; LCHEX 3 C(A)=3= #chars in Nan or Inf. 
2417 
2418 1€285 949 7B=0 = S$ ~Inf? 
2419 10288 40 GOYES CHKS15 No. 
2420 & 
2421 1C28A £6 C=C+1 A Yes. Takes 4 chars. 
2422 1C28C 05 CHKS15 SETDEC 
2423 1C28E £1 B=B-C A Enough posns available? 
2424 10290 04 SETHEX 
2425 10292 431 GOC USGOV+ No. “USING NaN Ovf" or "Inf Ovf". 
2426 10295 79E0 GOSUB STORB Yes. ¥chars to RO(9-5), B to R3. 
2427 10299 856 ST=1— sSpecl "Qutputting skips." 
2428 1029C 173 CHKS19 DI=D1+ 4 Past #digit storage. 
2429 1C29F 1CB CHKS21 Di=D1- 12 
2430 1C2A2 664F CHKS3} GOTO  CHKSK3 Start executing tokens. 

k 


2431 





a 
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2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
244) 
2442 


2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2465 
2456 
2457 
2458 
2459 
2460 
2461 


2462 


2463 
2464 
2465 
2466 
2467 
2468 


2469 


1C2A6 
1C2A3 
iC2AC 
1C2AC 
1C2AE 
1C2B0 
1C2B3 
1C2B5 


1C2BC 
iC2BE 
1C2C1 
1C2C4 
1C2C6 
1C2C9 
1C2C8 


1C2CE 
1C2D0 
1C2D4 
1C2D? 


iC2DE 
1C2E4 
1C2E? 
1C2EA 
IC2ED 


1C2F 1 


119 
136 


D2 
OB 
109 
22 
8FOO 


04 
13? 
129 
0B 
94D 
50 
R66 


20 
3100 
5C1 
8FOO 
000 
8EOO 
00 
856 
851 
119 
6EAR8 
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FORTIS ITI IO TT TI IIT TTI 


x 
USGOV + 


USGOVF 


C=R1 
D1=C 


C=0 A 
CSTEX 

R1=C 

P= 2 
GOSBVL =HTRAP 


* Return fron HTRAP: 


* If B(S)#O then "Warning" 


Else [B(S)=0] 


x 
* If $7=1 then "Warning" 
x Else [$7=0] then “Error" 


x 
USGOV3 


x 


SETHEX 

CD1EX 

CRIEX 

CSTEX 

BHO OS 
GOYES USGOV3 
C=C+C B 


P= 0 
LC(2) =eINGOV 
GONC USGOV5 


GOSBVL =MFWRO8 
GOSUBL =CKINFO 


ST=1— sSpecl 
ST=1— sOVfFF1 
C=R1 


GOTO = IMxg2? 


8CBF USGOVS GOLONG =kMFERR 


1F 


x 


Restore xqt address. 


Save D1 in Rt; 
status bits back to C. 
Restore status bits; $7 to C. 


$7=0 fron HTRAP. 
Display warning. 


Spec’) digit output, 
display "*" for overflow. 

Di=xqt address back to C. 

Continue execution. 


Display error. 


(To clear S? for HTRAP. } 
Save status bits in R1. 


(OVF not set, no INX) 
(OVF not set, but INX) 


Maybe not. S7=1 fron HTRAP? 


Reset output device if necessary. 
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2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 


2517 
2518 
2519 
2520 
2521 
2522 


1C2F7 133 
1C2FR 8EAF 
6F 
10300 174 
10303 09 
10305 1563 
10309 D6 
1030B 7900 
1C30F 8000 
00 
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SOR RII II OOO TT TTT TER ETI ITI IIIS IRI ITI RII IN 
FORO IOI TO TI TET IIIA III IIT IDST IIIA I SITS III ITI III IN 


ak 
ak 
ak 
kk 
xk 
ak 
ek 
a 
ak 
ak 
ak 
ak 
ak 
aK 
ak 
aK 
ax 
aK 
ak 
ak 
kk 
ak 
ak 
ak 
ak 
ak 
ax 
ax 
ak 
xk 
ax 
xk 
ak 
xk 
ak 
ak 
ak 
ak 
xx 


Nane:(S) NXTEXP - Store pointers, execute next expression 
Category:  EXCUTL 


Purpose: 
Store pointer and status bits, call EXPEXC for IMAGE 
output itens. 


Entry: 
P = 0 
DO=Progran Counter (points to expression to be 
executed) 
Di=address of current BldING token 
RAN storage as shown in INGxgqt header 


Exit: 
Through EXPEXC: 
DO=new Progran Counter 
Di=points to iten on math stack 


Calls: SetAVN, DT1C-A, EXPEXC 
Uses: EXPEXC can use anything 
Stk lvls: | EXPEXC can use all levels (5 availble at call) 


Algorithn: 
Save status bits in RAM at AvMenEnd+5. 
Save offset to 01 (current IMAGE token address) in 
RAN at AvMenEnd. 
Junp to EXPEXC. 


History: 
Date Progranner Modification 
12/08/82 MB Docunentation 


JOO I IO IOI OTT TTT ITI TI K 
FIO IIIT TIT TIT TTI TTT ITT TTI TDD III TIS ITT ITI ITI IK 


x 
=NXTEXP ADIEX A(A)= xqgt address. 

GOSUBL =SetAVN 

Di=D1+ 5 

C=ST 

DATI=C x 

C=A A C= xqt address. 

GOSUB OTIC-A Store offset in BIdING. 
=ExpExc GOLONG =EXPEX) Expression Execute. 
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2523 x 
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2524 EJECT 
2525 SII I I III III RII III III III III III ASIII ASSIS ISS IK 
2526 & 
2527 1€315 ExpE xP Expand exponent to 5 digit forn. 
2528 1€315 D4 A=B A Exponent to A. 
2529 1€317 ADO A=0 q Clear out A(4-3). 
25% 1€318 AY A=A+A X Negative? 
2531 1€31D 5A GONC =ExpEx1 No, positive. CRY cleared. 
2532 10320 938 7A=Q OK Maybe. Exponent= 500? 
2533 1€323 50 GOYES ExpEX1 Yes. It’s positive. 
2534 10325 ASC : A=A-1 fh Neg. A(M)= 999999999999. 
2535 
2536 1€328 RB4 = ExpEX1 A=B x (Leave A= true exponent) 
2537 1C32B £4 A=A+1 A Return with A= exponent +1. 
2538 1€32D 03 RTNCC 


2539 
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2540 EJECT 
2541 JOO I II DI I III IIT ODI TOTTI II IIIT TIA I III SSID II II IIA 
2542 . 
2543 1C32F 118 CNTOUT C=R3 Counter to C(A). 
2544 10332 05 SETDEC 
2545 1€334 CE C=C-1 A Count output posns. 
2546 1€336 04 SETHEX 
2547 10338 580 GONC CNTOT3 More output. 
2548 1€33B 8£00 GOSUBL =csru5 End of output. Restore R3. 
00 
2549 a (CSRWS preserves carry!) 
2550 1€341 108  CNTOT3 R3=C 
2551 10344 01 RTN Preserve carry! 


2562 , 
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2553 EJECT 
2554 FOI IORI TT TRIE IIE TIT IIE ERI III IIIT TIKI ESA I III III AST ASI III IS 
2655 POCTEULESTCTCCUCECSITSC TT eset ets e cette eteet ets ittettetettt ett e! 
2556 aS 
2557 ne Nane:(S) COUNTC - Count output characters in IMAGE field 
2558 
2559 **k Category:  EXCUTL 
2560 se 
2561 xx Purpose: 
2562 = To count the nurber of output synbols in an IMAGE 
2563 kK field. Operates on individual synbols, checking 
2564 ae to see if accompanied by a tultiplier. If not, 
2565 ax increnents count by 1; 1f so, adds multiplier 
2566 ax value to count. 
2567 ak 
2568 ** Entry: 
2569 ae P = 0 
2570 ax D1 points to symbol which needs to be counted. 
2571 KR B(A)=current count of synbols. 
2572 ax 
2573 RK Exit: 
2574 aK DEC node! 
2575 kk Carry clear 
2576 ak If no multiplier accompanied synbol: 
2577 as P=0 
2578 a Di=sane as entry (address+2 of next token to 
2579 KK execute) 
2580 KK B(S) increnented by 1 
2581 a If multiplier accompanied synbol: 
2582 xe P=14 
2583 ak D1 points to uLOOPB token (addresst2 of next 
2584 aK token to execute) 
2585 a B(A) incremented by multiplier value 
2586 xR 
2587 kk Calls: TstEn5 
2588 am 
2589 B® USCS. 62 aces 
25% **k Exclusive: A(B),B(R),C(A),0(A),P,01 
2591 xx Inclusive: sane 
2592 a 
2593 kK Stk lvls: 4 
2594 x 
2595 *k NOTE: 
2596 kx An application which processes the uMULT token by 
2597 ak decrerenting the loop counter will want to call 
2598 xx the COUNTC subroutine as follows. The HPIL ROM, 
2599 xe for ENTER USING, is an exanple of an application 
2600 xR uhich needs to call COUNTC this way. 
2601 “s GOSBVL =COUNTC Count synbol. 
2602 oe SE THEX 
2603 al ?p= 0 Multiplier? 
2604 am GOYES ..<exit>.. No. 
2605 uA P= 0 Yes. Reset P. 
2606 xx Di=D1+ 4 Fetch reference counter, 


2607 ae DAT1=C 4 copy it into loop 
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2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
261? 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
263? 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
265? 
2658 
2659 
2660 
2661 
2662 


10346 
10348 
1C34A 
1C34C 
10350 


10354 
10357 
1C35R 
1C36C 
1C35F 
1€363 
10366 


10368 
1C36C 
1C36F 
1€374 
10373 
10375 
10377 
1€379 
137 
iC37E 
10380 


10382 
10385 
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= Di=D1- 4 counter. 

ae ».<@X1t?.. 

kk 

xk Algorithn: 

xk Nove 01-2, to possible uLOOPB token. 

KK Test token for uLOOPB; if no match, reset D1+2, goto 2) 

ax (uLOOPB token found -- accorpanying rultiplier): 

KK Move D1+6 to reference counter. 

ae Read multiplier value into C(A). 

xk Reset D1 to uLOOPB token. 

ax Set P=14 to nullify LCHEX 1 

kk 2) LCHEX 1 for increrenting count 

ak Add B=B+C A for new count, in DEC node 

kk Return, carry clear. 

xk 

*k History: 

ek 

xk Date Progranner Modification 

Bat Geto! Ieee. ee etna a eee eee te 

xk 12/08/82 NB Docurentation 

kk 


SOIT TTI TT IR II IK 
FOI OI OT ITO TTT TTT ITI TIT IK 


x 


03 ==COUNTC 
CF 
D2 
312D 


7COD 


COUNTP 


Rate 
kone 


171 
966 
EO 
175 
15F 3 
1€7 
2E 

x 
3110 CNTP3 
886 
60 
DB 
D3 
05 
C1 
8RB 
00 
E3 
03 


CNTP? 


x 


D=0 A Force increnent of 

D=D-1 A counter (see CNTP3). 
C=0 A 

LC(2) uLlOOPB 

GOSUB TstEn5 Does: D1=D1-2, A=DAT1 B. 
D1=D1- 2 Check if nultiplier. 
A=DAT1 B Read next token doin. 
D1=01+ 2 Restore D1 to "D" token. 
RHC OB Multiplier? 

GOYES CNTP3 No. Only 1 D. 

D1=D1+ 6 Yes. To nult reserve. 
C=DAT1 4 Read nultiplier. 

01=D1- 8 Di to uLOOPB. 

P= 14 Nullify next LCHEX. 
LCHEX 01 (Fron above, now C(A)= 1.) 
*C<=D A How nany nore zeros? 
GOYES CNIP? Still sore. 

C=0 A Just that many. 

b=0 A To force CRY belon. 
SETDEC 

B=B+C A Increnent #floats. 

7D=0 OAR Any more zeros? 

RTNYES No. End of float check. CRY set. 
D=D-C A New #zeros. 

RTNCC Nore zeros. CRY clear, 


FORO OOOO IOI ISO III IO 


x 


111 STORB 


1a 


A=R1 
DI=R 


D1 (xqt addr) to A. 
Restore xqt address. 
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2663 10388 8E88 GOSUBL =CSL2RO C(A} to RO(9-5). 
6F 
2664 1C38E 118 C=R3 
2665 10391 8FOO STORB1 GOSBVL =CSLWS Shift R3 left 5 tines. 
000 
2666 10398 D9 C-B OA Put B(A) in R3. 
2667 1C39A 56A GONC CNTOT3 (BET) Save all in R3. 


2668 x 





a 
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2669 EJECT 
2670 * 
2671 k-------- NOTE ----- n-ne nn nnn nn nr rr rn eer renee 
2672 x--- This table is used for IMAGE parsing. Only characters 
2673 x--- D.SM2Z2EC*PR_ are really needed for CHKSKP, 
2674 x--- but X " ’ A and 21 have been added for parsing. There 
2675 X--- ust be at least 16 entries in the table (including 
2676 x--- the 00 byte, if necessary). The order shown rust be 
2677 x--- maintained!!! 
2678 he - 2-2 - ee nn nnn nn een ner e eee 
2679 x Parse: 
2680 10390 =INtbl 
2681 1€39D 85 CON(2) \X\ x 0 
2682 1C39F 44 CON(2) \D\ D 1% 
2683 1C3A1 14 CON(2) \A\ A 2 
2684 1C3A3 E2 CON(2) \.\ ‘ 3% 
2685 1C3A5 22 CON(2) \"\ 4 
2686 1C3A7 72 CON(2) \’\ 3 5 
2687 1C3A9 35 CON(2) \S\ S 6 * 
2688 1C3AB D4 CON(2) \M\ 7% 
2689 1C3AD AS CON(2) \Z\ r4 g * 
2690 1C3AF 54 CON(2) \E\ E g * 
2691 1€3B1 34 CON(2) \C\ C 10 * 
2692 1C03B3 A2 CON(2) \*\ x 41 * 
2693 1C03B5 AS CON(2) \Z\ Zi: unit’s digit Z. 12 
2694 1C3B7 05 CON(2) \P\ P 13 % 
2695 10389 25 CON(2) \R\ R 14 * 
2696 1C3BB B4 CON(2) \K\ Ko tenn n enn ee ----- + 15 
2697 1C3BD 84 CON(2) \H\ H | Used in search | 15 
2698 1C3BF 24 CON(2) \B\ B | at Nxtfld. | 15 
2699 103C1 £5 CON(2) \*\ 2 + 15 
2700 1€3C3 00 CON(2) 0 Other tokens fall through. 
2701 x 
2702 RO ween * See note above 
2703 x 


2704 1C3C5 END 


* + oe ee He 
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AVE=D1 Ext - 713 2021 

AVED.3 Abs 115143 #1C1C7 - 2338 

AVEDT1 Abs 115139 #10103 - 2337 1678 2388 

BYTscR Abs 113226 H1BA4A - 12 812 1496 

BldIM+ Abs 113258 #1BR6A - 12 711 1730 


=C+A2D1 Abs 114771 #10053 - 1913 1199 1353 2149 2242 
CA2D1+ Abs 114774 #10056 - 1914 1791 

CA2D1. Abs 114777 #10059 - 1915 1206 

CHKF11 Abs 114351 #1BEAF - 1543 1502 

CHKFL5 Abs 114261 #1BE55 - 1493 1491 1558 

CHKFL? Abs 114266 #1BE5A - 1496 1535 1544 1570 
CHKFL9 Abs 114336 #1BERO - 1536 1517 16523 1529 1564 
CHKFLA Abs 114361 #1BEB9 - 1552 1604 

CHKFLT Abs 114251 H1BE4B - 1489 

CHKS15 Abs 115340 #1C28C - 2422 2419 

CHKS19 Abs 115356 #1€29C - 2428 2411 

CHKS21 Abs 115359 #1C29F - 2429 2408 

CHKS3) Abs 115362 #1C2A2 - 2430 2414 

CHKSK1 Abs 115171 #1(1E3 - 2358 2352 2355 

CHKSK3 Abs 115177 #1C1E9 - 2360 809 2377 2385 24% 
CHKSK5 Abs 115190 H1C1F6 - 2365 2370 

CHKSK? Abs 115298 #1C262 - 2404 2368 


CHKSKP Abs 115152 #1C1D0 2345 1324 
CK"ON" Ext 2234 

CKINFO Ext 2015 2462 
CLOST Abs 113101 #1B9CD 12 2358 


CNTOT3 Abs 115521 #10341 2550 2547 2667 


CLOST+ Abs 113098 #1B9CA - 12 708 1904 
CNIOUT Abs 115503 #1C32F - 2543 1588 1601 2386 


CNTIP3 Abs 115560 #10368 2647 2641 
CNIP7 Abs 115573 #10375 2652 2649 
=COUNTC Abs 115526 #10346 2632 2375 


COUNTP Abs 115530 #1C34A - 2634 1563 


CSLZRO Abs 113174 HIBRI6 - 12 1635 1929 2663 
CSLWW5 = Ext - 2665 

CSLW9y Abs 113158 #1BAQ6 - 12 709 

=CSRW9) Abs 114815 #1C07F - 1936 705 1627 
CSRWP9 Ext - 1936 

DI2ZROA Abs 113212 HIBA3IC - 12 2331 


DCRNO3 Abs 115083 #10188 - 2311 2308 
DCRNOS Abs 115086 #1C18E - 2312 2240 2246 
=DCRANT Abs 119063 #10177 - 2304 938 
DECP=C Ext - 1415 

DT1C-R Abs 114712 #10018 - 1726 706 2521 
DTIC.A Abs 114717 H1CO1D - 1728 702 
ENDFL? Abs 114429 #1BEFD - 1588 1592 
ENDFLT Abs 114419 #1BEF3 - 1584 1539 1541 1579 
=ENDING Abs 114752 #10040 - 1902 2064 
ENDSTM Abs 115000 #10138 - 2156 2063 
ENDST) Abs 114932 H1COF4 - 2063 2013 


EQLKXCK Ext - 2145 
EXPEX) Ext w 72522 
EndNun Abs 230 HOOOES - 12 1533 2412 


ExpEX1 Abs 115496 #1(328 - 2536 2531 2533 
ExpEXP Abs 115477 #10315 - 2527 1388 1435 
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=ExpExc Abs 115471 #1C30F - 2522 

FLOATc Abs 114391 #I1BED7 - 1567 1520 1526 
FLOATd Abs 114379 HIBECB - 1562 1499 

FLOTdS Abs 114397 H1BEDD - 1570 1577 1581 

FLIDH = Ext - 1700 

FlIistr Abs 114401 #1BEE1 - 1575 1514 

FLIxsn Abs 114404 #1BEE4 - 1576 1505 1508 1511 
FPOLL] Abs 113047 #18997 - 12 718 

FPOLLx Abs 113043 #18993 - 12. 917) «1331 
GETST1 Abs 114791 #10067 - 1923 2022 

GETSTA Abs 114787 #10063 - 1922 1196 1903 
=GetEXP Abs 114822 #10086 - 2012 1139 1347 
GtEXO1 Abs 114875 HICOBB - 2038 2051 

GtEXO3 Abs 114880 #1C0CO - 2040 2053 

GtEXO4 Abs 114886 #1C0C6 - 2041 2055 

GtEXOS Abs 114891 H1COCB - 2044 2037 

GtEXO9 Abs 114917 #1COES - 2054 2046 

HTRAP = Ext ~ 2442 

INDO-- Abs 113188 #1BA24 - 12 1207 

=INGxqi Abs 113323 #1BAAB - 698 

sINGxgt Abs 113316 #1BAA4 - 695 

IMXPOL Abs 113551 H1BB8F - 916 893 

=IMXRTN Abs 113557 #1BB95 - 919 

=INtb1 Abs 115613 #10390 - 2680 2361 

Inx10} Abs 114357 #1BEBS5 - 1547 1482 1589 1602 
Inx11j Abs 115294 #1(25E - 2402 2405 

=IMxgOS Abs 113372 HIBADC - 720 

INxq10 Abs 113382 H1BRE6 - 805 899 1146 1547 
IMxql1 Abs 113394 H1BRF2 - 811 2402 

IMxq12 Abs 113397 HIBAFS - 812 807 

IMxg19 Abs 113547 #1BB8B - 899 928 939 947 
IMxqg25 Abs 113561 #1BB99 - 925 1025 2333 
=IMxq27 Abs 113564 #1BB9C - 926 1251 2065 2466 


InhEOL Abs 4 #00004 - 12 1116 
InvArg Ext ~ 1704 
IvUSG) Abs 111848 #1B4E8 - 12 2058 
MFWRQ8 Ext - 2461 


N/ISKP Abs 115206 #10206 - 2372 

NANINF Abs 113908 #1BCF4 - 1324 1358 
NISKP2 Abs 115220 #10214 - 2379 2383 
NISKP3 Abs 115222 #10216 - 2380 2387 
NISKPS Abs 115226 H1C21R - 2382 2374 
NISKP9 Abs 115261 #10230 - 2395 23% 2393 
=NXTEXP Abs 115447 #102F7? - 2515 2014 
NXTstn Abs 115011 #10143 - 2159 2157 2235 
=NuOFF+ Abs 114726 #10026 - 1783 1142 1706 
NuOFF3 Abs 114742 #10036 - 1789 1784 
=NWOFFS Abs 114733 #1002D - 1786 1250 1712 


Nxtf13 Abs 112086 #1B5D6 - 12 1208 
PART3 Ext - 2160 
POPMTH Ext - 2020 


POPTS+ Abs 114689 #10001 - 1712 1215 1698 
POPTST Abs 114693 #10005 - 1713 2036 
PUTRES Ext - 2040 

Polrtn Abs 113030 #18986 - 12. 919 1334 


Saturn Asseribler USING Execution Routines <8312 Fri Dec 30, 1983 3:30 an 


SKPFLT Abs 114453 #1BF15 
STORB Abs 115586 #10382 
STORB1 Abs 115601 #10391 
STRSSB Ext 

SetRVE Abs 113152 #1BRO0O 12 1783 1931 2147 
SetAVA Abs 113146 #1BSFA 12 1922 2516 

Setave Abs 114808 #1(078 - 1931 

StAVE+ lbs 114805 #10075 - 1930 1123 1660 1787 2337 
ToUSGn Abs 113577 HIBBAS - 933 898 

TstEn3 Abs 114949 #10105 - 2133 2146 

TstEnS Abs 114992 #1013 - 2152 2362 2636 
sTstEnd Abs 114943 HI1COFF - 2131 2012 2062 

USG"*" Abs 114483 #1BF33 - 1616 836 1609 

USG'R" Abs 113704 #1BC28 - 1122 821 


1601 1615 1647 
2661 1585 2426 
2665 1586 

1225 
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ROu2tA Abs 114812 #1CO7C - 1935 720 1556 2397 
R3=D1+ Ext - 1202 

=RCVOFS Abs 114768 #10050 - 1911 1016 
REVPOP Ext - 1141 1228 
RND-12 Ext - 1418 
SAVE++ Abs 114801 #1(071 - 1929 1464 
SENDEL Ext - 2168 2332 
SENDUD Ext - 1117 
SENDW) Abs 113695 #1BCIF - 1116 1024 1249 
SET-ST Abs 113103 #1B9CF - 12 1326 


USG"B" Abs 114651 HIBFDB - 1698 881 
USG"E" Abs 114537 H#1BF69 - 1642 845 
USC"D" Abs 114446 HIBFOE - 1597 815 
USG'E" Abs 113632 H1BBEO - 1080 860 
USG"H" Abs 113808 #1B090 - 1214 854 
USG'K" Abs 113805 #1BC8D - 1213 857 
USG'M" Abs 114571 #IBF8B - 1659 842 
USG"P" Abs 114539 #1BF6B - 1643 848 
USG"S" Abs 114569 #1BF89 - 1658 839 1623 
USG"Z" Abs 114476 HIBF2C - 1612 818 
USG/1 Abs 115135 H1C1BF - 2333 
USGAO1 =Abs 113724 HIBC3C - 1130 1126 


USGBO3 Abs 114678 HIBFFE 1706 1701 1703 
USGOV+ Abs 115366 #1C2A6 - 2435 2425 
USGOV3 Abs 115406 #102CE - 2458 2455 
USGOVS Abs 115441 #1C2F1 - 2468 2460 
USGOVF Abs 115372 #IC2AC - 2437 1447 
USGOV} Abs 114160 H1BDFO - 1446 1457 1461 
cence) Abs 114533 #1BF65 - 1637 1652 
USGch* Abs 113683 #1BC13 - 1108 1693 
2USGch+t Abs 113685 #1BC15 - 1110 1133 
sUSGch- Abs 113675 #1BCOB - 1105 1090 
USGch/ Abs 115125 #1C1B5 - 2331 884 
USGchO Abs 113651 #1BBF3 - 1090 1637 
USGchi Abs 113649 HIBBF1 - 1089 
USGch2 Abs 113647 H1BBEF - 1088 
USGch3 Abs 113645 #iBBED - 1087 


USGch4 Abs 113643 HIBBEB - 1086 830 1131 1591 1673 2380 
USGch5 Abs 113641 #1BBE9 - 1085 833 1654 

USGch6 Abs 113639 #1BBE7 - 1084 887 

USGch7 Abs 113637 HIBBES - 1083 890 





Saturn Assenbler USING Execution Routines <8312 Fri Dec 30, 1983 3:30 an 
Ver. 3.39/Rev. 2306 Syrbol Table Page 72 


USGcp3 Abs 114565 #1BF85 - 1654 1645 
USGd03 Abs 114471 #IBF2? - 1608 1599 
USGdgi Abs 114629 HIBFCS - 1687 1684 
USGdg3 Abs 114639 #1BFCF - 1690 16838 
USGdg?7 Abs 114644 #IBFD4 - 1692 1708 
USGdgt Abs 114607 HIBFAF - 1678 1626 
USGdln Abs 113756 #1BCSC - 1145 875 
USGend Abs 114928 HICOFO - 2062 878 
USGlit Abs 113735 #1BC47 - 1137 851 
USGIpb Abs 113588 #1BBB4 - 943 827 
USGlpp Abs 113592 #1BBB8 - 946 869 
USGlps Abs 113590 #1BBB6 - 945 866 


USGrit Abs 113581 #1BBAD - 938 824 
USGnun Abs 113912 #IBCF8 - 1326 933 
=USGrst Abs 113763 #1BC63 - 1195 872 
USGsn1 Abs 114588 HIBF9C - 1667 1664 
USGsn3 Abs 114590 HIBFSE - 1668 1666 
USGsn5 Abs 114603 #1BFAB - 1673 1670 
USGstr Abs 113599 #IBBBF - 1015 863 
USG2*3 Abs 114496 HIBF40 - 1622 1632 
USGz*7?, Abs 114501 #1BF45 - 1625 1620 


USert} Abs 114922 #1COEA 
USertk Abs 114708 #1(014 


2058 1722 2039 2049 
1722 1699 1906 


UShkO5 Abs 113829 #1BCA5S 1223. 1216 
UShkO9 Abs 113829 #1BCARS 1225 1219 
UShk15 Abs 113835 #1BCRB 122? 1221 


UShk21 Abs 113867 #1BCCB 1238 1243 1246 
UShk31 Abs 113893 #1BCE5 1248 1230 1239 
UShk35 Abs 113900 #1BCEC 1250 1349 

=USloop Abs 115019 #1014B - 2233 946 
USnnO3 Abs 113931 #1BD0B - 1346 1330 

=USnO5 Abs 113938 HIBDI2 - 1348 
USniiO0? Abs 113999 HIBD4F - 1370 1366 1368 
USnriii Abs 114026 HIBD6A - 1381 1376 
USnni5 Abs 114031 #IBD6F - 1383 1372 
USnnit7 Abs 114034 #1BD72 - 1385 1374 1379 
USniri25 Abs 114058 #1BD8A - 1406 1394 1396 
USnn33 Abs 114068 #18094 - 1410 1386 1407 
USnni39 Abs 114089 #1BDA9 - 1416 1414 
USnn41 Abs 114111 #IBDBF - 1424 1419 
USnrid43 Abs 114147 #1BDE3 - 1441 1438 
USnni4? Abs 114167 RIBDF? - 1449 1427 1445 
USnn51 Abs 114183 #1BEO7 - 1456 1451 
USnn53 Abs 114193 #1BE11 - 1460 1454 
USnniS5 Abs 114198 #1BE16 - 1462 1432 1453 1459 
USnri5? Abs 114219 HIBE2B - 1472 1470 
USnn59 Abs 11403 #1BE36 - 1476 1473 

=USstO3 Abs 113614 HIBBCE - 1020 1113 

=USstO5 Abs 113620 HIBBD4 - 1022 2400 


t ' ’ t d 1 ’ ‘ 


csru5 Ext - 2548 
eINGQV Ext - 2459 
KMFERR Abs 111854 #IB4EE - 12 2468 
pINxCH Ext - 918 
pIMXQT Ext - 716 


pIMcpy Ext = 353 
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s"S,M" Abs 0 #00000 - 45 1373 1383 1490 1538 1578 1608 1622 
1672 

sC/P Abs 1 #00001 - 12 46 56 

s(ntg Abs 2 #00002 - 12 47 

sCplxP Abs 7 #00007 - 12 53 

sCplxW Abs 7 #00007 - 53 1329 

sFLOAT Abs 1 #00001 - 46 1446 1481 1598 1607 1614 1646 1663 

sFOUND Abs 10 #OOOOR - 12. 1905 

sInit Abs 3 #00003 - 12 48 

sKnotH Abs 3 #00003 - 50 1213 1220 1223 

sNUNE Abs 2 #00002 - 47? 1080 1385 1426 1439 1472 1475 1536 
1603 1606 1665 1683 

sOvfFl Abs 1 #00001 - 56 2382 2464 

sRturn Abs 5 #00005 - 51 «805 =6927) 9X =—1590 

sSTOP Abs 5 #00005 - 12 51 

sSpecl Abs 6 #00006 - 12 806 1346 2038 2041 2052 2373 2404 
2427 «2463 

sStall Abs 0 #00000 - 55 2384 2399 

sxQT Abs 0 #00000 - 12 45 55 

sZeros Abs 3 #00003 - 48 50 1138 1348 1489 1562 1576 1625 


1628 1634 1644 2050 2054 
tEOL Ext - 2134 


uALit Abs 247 HOOOF7 - 12 850 
uDELIMN Abs 244 HOOOF4 - 12 874 
uHKB™ Abs 246 HOOOFE - 12 896 
uINXCH Abs 212 #000D4 - 12 892 
ulMend Abs 240 HOOOFO - 12 877 
uLOOPB Rbs 210 #O00D2 - 12 826 «2635 
uLOOPP Abs 239 HOOOEF - 12 868 
uLOOPS Abs 211 #OO0D3 - 12 865 
uMULT Abs 209 #00001 - 12 823 1504 
uQPNWN Abs 224 HOODEO - 12 2305 
uRESTP Abs 241 #HOOOF1 - 12 696 «871 


uSTRPT Abs 208 #OOODO - 12 862 1513 2406 
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Input Paraneters 
Source file nane 1s MB&USG: 2 NS 
Listing file nane is MB/USG:TI:ML::-1 
Object file name is MBZUSG: TI: MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1€3C5 


TK ease ee ee ms wee we oe os ee 
Cwomnnrnhbwny—-Dwoonnnhwn — 


no 
~—= 


RO RO MO PO 
OD WP 


fo fo 
NO 


WWW WW WwWWrr 
WOM DPW HH OW!WW 


ww 
Oowo 


AbD 
wns 


PbHPHbDH LH 
Down nen b 


mo 
=O. 


Sc 

53 1035 00 
54 103C? 136 
55 1C3CA 06 
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TITLE Graphics Control Routines 


ABS #1C3C5 
x SSS. BBBB & GGG PPPP H 4H 
BS SS BOB CES G G P PR H 
a 4S B B 8&8 G P PH H 
x SSS. BBBB & G GGG PPPP HHHHH 
x SB B &&& G GP H oH 
x $ $ B B&& G GP H H 
* SSS. BBBB 8&8 «=CsGGG—Ci=*éPP H oH 


RDSYNB SBADSP: MS 
JI IOI IC TT TIE I ITT IK 


FOO IOUT TT OI ITO ITI 
ak 


*K Narie:(S) GDISP$ - GDISP$ function execution 
kk 


**% Category: FNEXEC 


eo 
*x Purpose: 

* Inplenents GDISP$ function 

kt 

** Entry: 

xx P = 0 

aA DO is progran counter 

ne D1 is stack pointer 

kk 

me END Us 

ax Exits through EXPR 

xk 

** Calls: cPYDD- 

ok 

** Algorithn: 

a Save DO on stack 

ie Calculate where stack iten will start 

ee If not enough nenory then 

vis Exit maith "Insufficient Menory” error 

ae Write out header for 132 character string 
oh Copy rightmost display driver (DD) to string 
mR Copy middle DD to string 

ae Copy leftmost DD to string 

a Point stack pointer to new string 

ae Restore DO fron stack 

se Exit through EXPR 

te 

** History: 

ae 

aS Date Progranner Modification 
R29 wlaccwne” Bima sutinen: Jacket otek twe cee aes aaa eae mele 
** 10/26/83 B.S. Added docunentation 

kh 


SOO OOOO IOI OI III OK 
FOI IO OOOO IOI OIG IO IOI II 


NIBHEX 00 Argunent Count=[(0,0] 
=GDISP$ CBOEK 
RSTK=C Save PC 
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56 


57 
58 
59 
60 


61 
62 
63 
64 
65 
66 
67 
68 


69 
70 
71 


72 
73 
74 


75 
76 
77 
78 


73 
80 
81 
82 
83 
84 


85 
86 
37 


88 
89 
9 
91 
92 
95 
94 
95 
96 
97 
38 
39 
100 
101 


1C3CC 1800 
000 
10303 146 
103D6 DS 
103B8 133 
1C3DB 3481 
100 


1032 EA 
1C3E4 884 
103E7 25 
1039 131 


1C3EC 100 
1C3EF 36F0 
8010 
0 
103F8 1657 
1C3FC 17F 
1C3FF 1800 
000 
1(406 D1 
1€403 73H 
1C40C 1B00 
000 
10413 7820 
10417 304 
1C41A A8S 
1€41D 1B00 
000 
10424 7710 
10428 110 
1€42B 131 
1C42E 07 
10430 134 
10433 8C00 
00 


10439 80 
00 


1C43F 181 
10442 14E 
10445 140 
10448 171 
1(44B 136 
1C44E 134 
1(451 965 


x. 
x 


4 


OF Fe OF Oe OF 


Graphics Control Routines 


bO=(5) 


C=DATO 
B=C 
ADIEX 
LC(5) 


R=A-C 
*R<B 
GOYES 
D1=A 


RO=A 
LC(7) 


DAT1=C 
D1=01+ 
DO=(5) 


B=0 
GOSUB 
bo=(5) 


GOSUB 
LCHEX 
B=C 
Do=(5) 


GOSUB 
A=RO 
D1=A 
C=RSTK 
DO=C 
GOLONG 


enEry GOLONG 


=AVMENS 


A 
A 


132*24+16 
A 


A 
NenErJ 


(132*2)~#OF 


W 
16 
=DD1END 


A 
CPYDD- 
=DD2ZEND 
CPYDD- 
4 

P 
=DD3END 


CPYDD- 


=expr 


=MENER j 


4:21 an 
Page 2 


Fri Dec W, 1983 


Read (AVNENS) 

Save it in B(A) 
A(A)=Stack pointer 
Length of stack iten 


(132 bytes + header) 

Calculate end of menory required 

Is this much available? 

No, then give nenory error 

D1 points where string header 
goes 

Save pointer to string header 

String header value 


Write out string header 
Skip past string header 


B(B)=0 Start of this DD 
Copy display driver to stack 


Copy display driver to stack 
B(B)=04 Start of this DD 


Recall new stack pointer 
Put it back in D1 

Recall PC 

Restore PC to DO 


GOTO MEMERR 


CPYDD- copys a display driver into the stack 


Entry: B(B) = lower 2 digits of lowest valid address in DD 
DO points past highest address in this DD 
D1 points to last char of string for this DD 


CPYDD- DO=D0- 2 


C=DATO 
DAT1=C 
D1=D1+ 
CDOEX 
DO=C 
*BRC 


B 
B 
2 


B 


Move display driver pointer 
Read a byte fron display driver 
Write it to stack 

Move to next stack byte 


Copy display driver pointer to C 
At end of display driver? 
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102 1(454 BE 
103 1C€456 03 


104 
105 
106 
107 
108 
109 


110° 


114 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
1314 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 


143 


144 
145 


146 
14? 
148 
149 
150 


151 
152 


10458 
1€45D 


1€462 
10466 


10460 
10470 
1€472 
10474 
10477 


1C47E 
10482 


0000 
0 

0000 
0 

7000 
8FO0 
000 
137 
D? 

C2 

135 
1 BOO 
000 
3100 
7A 


x. 
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GOYES CPYDD- No, then loop back 
RTNCC Yes, then return 


FRO ORI TOT TT TTI TIT TTT TTI TTI IIR ITT TK 
FORO IO TI OTT OT TT TOK 


ak 
xk 
xk 
xk 
ak 
xk 
xk 
xk 
xk 
ak 
aK 
ak 
ak 
xk 
xk 
xk 
ak 
ak 
ak 
xk 
xk 
ak 
ak 
ak 
xx 
ak 
ak 
ak 
xk 
xk 
ak 
ak 
am 


Narie: GDISP - GDISP staterent execution 
Category: STEXEC 
Purpose: 
Inplernents GDISP statenent 
Entry: 
P = 0 
DO points past GDISP token 
Exit: 
Exits through NXTSTM 
Calls: EXPEXC,POP1S, CPY-DD, RCLSTA, STOSTA 
Algorithn: 
Evaluate string expression 
Pop string fron stack 
Copy first part of string to leftnost DD 
Copy second part of string to middle DD 
Copy third part of string to rightmost DD 
Set BitsOK display status so display won’t be changed 
Set NEEDSC to indicate that graphics are in display 
Exit through NXTSTM 
History: 
Date Progranner Modification 
10/26/83 B.S. Added docunentation 


JOR UII ITO TCT TTT III IK 
TOR I OOO OT ITO 


=GDISP GOSUB =ExpExc 


REL(5) =DELAYd 
REL(S) =STRNGP 


Evaluate string expression 


GOSBVL =POP1S Pop a string fron stack 

CDIEX 

d=C A Save end of string in O(A) 

C=C+A A Calculate start of string 

D1=C Point D1 at start of string 
DO=(5) =DD3ST Point DO at start of leftmost DD 
LC(2) =DD3END End of this DD (and next one) 


GOSUB CPY-DD . Copy to this DD 
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1§3 


154 
155 


156 
157 
158 


159 
160 


161 


162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
1273 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 


1€486 1A0O 
00 


1€48C 7230 
1€490 1AOO 
00 
10496 3100 
1€43R 7220 
1C49E 8FOR 
B10 
1C4A5 851 
1C4A8 8FBA 
B10 
1C4RF 1A00 
00 
1€4B5 30E 
1C4B8 1540 
1C4BC 6000 


1€4CO D5 

1€4C2 1C1 
1C4C5 137 
1C4C8 8B3 
1C4CB Bi 

1€4CD 137 
1C4D0 146 
1C4D3 148 
1€4D6 161 
1€4D9 136 
1C40C 134 
1C4DF 965 
1C4E2 OE 

1C4E4 03 


1C4E6 137 
1C4E9 DO 
1C4EB 47E 
1C4EE 
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e % 3 ee ee ee 


CPY-DD 
CPY-D1 


CPY-D2 


CPY-D3 


Exit: 


DO=(4) =DD2ST 


GOSUB CPY-D1 
DO=(4) =DD1ST 


LC(2) =DDIEND 
GOSUB CPY-DD 
GOSBVL =RCLSTA 


ST=1 BitsOK 
GOSBYL =STOSTA 


DO=(4) =NEEDSC 
LCHEX 


DATO=C 
GOTO 


“oom 


POKE25 
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Point to start of next 00 


Copy to this DD 
Point to start of rightnost DD 


End of this DD 
Copy to this DD 
Recall display status 


Pretend display 1s exactly right 
Store back display status 


Indicate graphics is in display 


GOTO NXTSTN 


CPY-DD - Copy to display driver, fills in zeros if past 
end of string. 
Entry: C(B) 1s low nibbles of highest valid address in DD 


DO points to lowest address of this DD 
D1 points into stack at start of data for this DD 
D(A) points to end of string 


B(B) is C(B) on entrance 


DO points past end of DD 


B=C A 
DI=D1- 2 
CDIEX 

7C<D OA 
GOYES CPY-D3 
CD1EX 

A=DAT1 B 
DATO=A B 
DO=D0+ 2 
CDOEX 

DO=C 

CHB OB 
GOYES CPY-D1 
RTNCC 


CDIEX 

A=0 A 

GOC CPY-D2 
END 


Hove end of DD to B(B) 

Move stack pointer 

Swap stack pointer to C(A) 

Past end of stack iten? 

Yes, then fill in zero 

No, then suap back stack pointer 
Read byte fron stack 

Write byte to display driver 
Nove DD pointer 


Copy DD pointer to C(A) 

At end of this display driver? 
No, then loop back 

Yes, then return 


Suap back stack pointer 
Fill in zero byte 
(B.E.T.) 
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AVMENS Ext - 56 
BitsOK Abs 1 #00001 - 11 159 
CPY-D1 Abs 115906 #1C4€2 - 178 154 189 
CPY-D2 Abs 116923 #1C403 - 184 195 


CPY-D3 Abs 115942 HIC4E6 - 193 181 
cPY-DD Abs 115904 #10400 - 177 152 167 
CPYDD- Abs 116775 #1C43F 95 73 75 79-102 


DDIEND Ext - 71-156 
DDIST = Ext - 155 
DD2ZEND Ext - 74 
DD2ST Ext - 153 
DD3END Ext = 78 = «151 
DD3ST =e Ext - 150 
DELAYd Ext - 142 
ExpExc Ext - 144 
=GDISP Abs 115810 #10462 - 144 
=GDISP$ Abs 115655 #1C3C7 - 54 
MENER) Ext - 8? 
MenErJ Abs 115769 #10439 - 87 64 
NEEDSC Ext - 161 
POKE25 Ext - 164 
POP1S Ext - 145 
RCLSTA Abs 7072 #01BRO - 11 158 
STOSTR Abs 7083 #01BRB - 11 160 
STRNGP Ext - 143 
expr Ext = 84 
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Input Paraneters 
Source file nane is SB&GPH: 2S 
Listing file nane is SB/GPH:TI:NL::-1 
Object file narie is SBZGPH:TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 x 355 G6G & PPPP 00000 KK 
2 x Ss S$ G6 G 8&8 P PO OK K 
3 * S G & & P PO O KK 
4 x SSS G6 G6GG & PPPP QO 0 KK 
5 x S$ G6 G &&& P 0 O KK 
6 x S S$ G&G GG & & P 0 OK K 
? x SSS GGG 8& & P 00000 K kK 
8 
3 TITLE POKE, PEEK$, and ADDR$ <831216.1616> 
10 1C4EE ABS HIC4EE 
11 RDSYNB SBZRAN: MS 


12 RDSYMB TIZEQU: : MS 
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13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


4 
5 


mona 


é 


? 


om 


xk 
aK 
ak 
ak 
xx 
xx 
xx 
ak 
xk 
ax 
ak 
xx 
ak 
xk 
xk 
xk 
xk 
ak 
xk 
xk 
ak 
ax 
xk 
kk 
ak 
xk 
xx 
an 
a 
ax 


xk 


POKE, PEEK$, 


and ADDR$ <831216 Fri Dec 30, 1983 5:04 an 
Page 2 


STITLE POPNUN ' 
SOI III IOI CIO OCICS CI IIIT TT TTT TK 


FOI ICIIOIIIICTOIOIOICI OOOO IOI CIO ICICI OO TOTO 


Narie: POPNLIN - Pop Positive Real and Convert to Hex 


Category: 


Purpose: 


Entry: 


Exit: 


Calls: 


Inclusive: 
Stk lvls: 
History: 


07/19/82 
10/19/82 


CONVRT 


Pops number off math stack, ensures it’s real, 
and converts 1t to hex. 


Data on stack pointed to by D1 


A contains hex equivalent 
Nurber popped off stack (D1 points past it) 
Carry set 
P=0 
F-RO-O contains DO at entry 
ERROR exits: 
eDATTY - if complex 
eIVARG - 1f number 1s negative or too large 


POP1R, FLTDH, SAVDO 


A-C, D1,D0, XM, F-RO-O 


2 

Progranner Modification 
S.W. Wrote routine 

S.u Added call to POPIR, SAVDO 


FOI III IOIIOIGIOIGIOIUIOIGI OI ISI ICO IOI IO OOOO IIIT 
FOR OOOO IOI IOI OIG IOI ITO IO OI III 


x 


1C4EE 8FOO = POPNUM GOSBYL =POPIR 


000 
IC4F5 17F 
1C4F8 7B80 
1C4FC 8E00 

00 
10502 400 


* 


D1=D1+ 16 

GOSUB SAVDO 

GOSUBL =FLTDH CONVERT TO HEX 

RTNC If positive & not too big 
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59 STITLE PEEK$ Function Execution 

60 BI IITA IIT TTT TTD EE IRI IIIT IIS IIR IS IIIS I ISIS I ISI IIS 
61 JI IO TI IDI AIS II SSI IS III IIIS ISIS ISIS IIIS SSIS IIIA 
62 ka 

63 ** Nane: PEEK$ - PEEKS Function Execution 

64 hk 

65 ** Category: FNEXEC 

66 xk 

67 xk Purpose: Executes PEEK$ Function 

68 ae 

69 kk Entry: Address & #nibbles to PEEK are on stack 

” we 

71 AA Exit: String pushed on stack 

ve at Exit via PCEXPR 

73 ak Error Exits: 

74 a eDATTY - conplex nuneric expr 

75 i eARGOR - negative nureric expr 

76 aK too large 

77 aK eIVARG - string expr not a proper address 
78 ak ePROT - PRIVACY violation 

79 ak eMEN - Insufficient nenory 

80 ax 

81 *k Calls: ADDRCK, FLTOH, POPNUM, ADRPRT(RO,R2), REVS, 

82 via HEXASC, STRHDR, SAVD1, RSTD1 

83 aa 

84 ** Uses: A-D, S8, RO, R1, R2 (ADRPRT), F-RO-O, F-RO-1 

85 a 

86 ** Detail: NUMBER OF NIBBLES REQUESTED CAN’T EXCEED 7FFFF. 
87 aS PEEK$ INTO NON-EXISTENT MEMORY RETURNS ZEROES. 
88 ak PEEK$ INTO PRIVATE FILE SPACE ERRORS. 

89 ka 

90 ak PEEK$( address, #nibs) 

91 as uhere <address> is a string expr 

92 aR <#nibs> is a nuneric expr interpreted 
93 ak as nurber of nibbles 

94 ak (in decinal) 

95 ** Stack lvls: 4 (ADDRCK uses 3) 

96 ka 

97 ** Note: PEEK$ does a wrap-around if data pointer 

98 ae carries (FFFFF -> 0) 

99 ak 

100 ** History: 
101 ak 

102 a Date Programmer Modifications 

103 RM Woo eews. Ketoiecencs tiecedccoc ces, 

104 kk 07/04/82 SW. Added docunentation 

105 RK 
106 JOO IIIS ITI ISIS TOTO TIO TITS SI IIIS ASIII IA 
107 SII TT TT ETI SII TT IST IIDIIIDI IIIS IIS IS 
108 . 
169 10505 6311 PK$E24 GOTO  INVARG 

119 10509 8422 NIBHEX 8422 

111 x 
112 1C50D 7DDF =PEEK$ GOSUB POPNUN 


113 


10511 Dé 


C=R A 
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114 1(513 C6 C=C+C A ARG OUT OF RANGE? 
115 10515 4FE 6OC PK$E24 (>7F FFF) 
116 1€518 100 RO=A SAVE #NIBS IN RO 
117 10518 7680 GOSUB ADDRCK POP ADDRESS OFF STACK 
118 1C51F 7550 GOSUB SAVD1 SAVE D1 in F-RO-1 
119 * ADDRESS IN B(A) 
120 1€523 848 ST=0 8 WANT TO READ ONLY 
121 1€526 110 A=RO HNIBS REQUESTED 
122 10529 7271 : GOSUB ADRPRT 
123 
124 * OKAY TO DO READ (MEMORY PERMITTING) - PUSH DATA ON STACK 
125 : BLOCK START TO READ IN RO 
126 
127 1C52D DA A=C A R=#NIBS 
128 * A=C=D=#nibs to read 
129 1C52F C4 A=A+tA A H#NIBS TO PUSH ON STACK 
130 1€531 7160 GOSUB RSTD1 RESTORE D1 
131 1€535 D6 C=A A 
132 1€537 8FOO GOSBVL =STRHOR 
000 
133 1C53E 110 R=RO 
134 10541 130 DO=R Start of block to read 
135 * MUST CONVERT EACH NIBBLE IN RAM TO CORRESPONDING ASCII 
136 10544 CF PK$20 D=D-1 A 
137 10546 4C1 GOC PK$60 Done? 
138 10549 AC2 C=0 S 1 nib at a tine 
139 1C54C 15A0 A=DATO 1 
140 10550 8E00 GOSUBL =HEXASC 
00 
141 1€556 149 DAT1=A B 
142 1(559 171 D1=B1+ 2 
143 1C55C 160 PO=D0+ 1 
144 1C55F 64EF GOTO PK$20 If DO carries,wrap around 
145 * STRING & HEADER WRITTEN OUT TO STACK 
146 * PT. D1 TO HEADER 
147 10563 119 PK$60 C=RI1 
148 1(566 135 D1I=C 
149 1(569 20 PK$70 P= 0 
150 1C56B 8£&00 GOSUBL =REV$ 
00 
151 10571 8DO0 GOVLNG =PCEXPR Restore PC fron F-RO-0 
000 
152 x & GOVLNG to EXPR 
153 10578 137 =SAVDi CDIEX 
154 1057B 1FOR D1=(5) =F-RO-1 
8F2 
155 10582 145 DAT1=C A 
156 1€585 01 RIN 
157 x 
158 1€587 136 =SAVDO CDOEX 
159 1C58A 1BB9 DO=(5) =F-RO-9 
8Fe 
160 1(591 144 DATO=C A 
161 10594 01 RTN 


162 


4 
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163 10696 1FOR =RSTD1 D1=(5) =F-RO-1 


8F2 
164 1€59D 147 C=DAT1 A 
165 1C5A0 135 D1=C 
166 1C5A3 01 RIN 


167 


Fri Dec 3, 1983 


5:04 an 


Page 


5 
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168 EJECT 
169 JI IO TI IO III ISI III OG CS OCCT COICO TOK 
170 JI III I I OO COORG IIIS TOO OI TIT 
171 a 
172 ** Nane: ADDRCK - Address Check 
173 AX 
174 ** Category: LOCAL 
175 ak 
176 ** Purpose: Pops string expression off stack, checks its 
177 ae validity as a hex address, and returns it 
178 x as a hex address 
179 i 
180 ** Entry: D1 points to header of string expression on 
181 aK the nath stack 
182 o 
183 4K Exit: Valid address in B(A) 
184 ak D1 points past string 
185 a P=0 
186 am else 
187 ai ERROR EXIT. 
188 an 
189 ** Calls: REVPOP, ASCHEX 
190 ae 
191 ** Uses: A, B, C(A), OCA), D1, BO 
192 xe 
193 *X Stack lvls: 3 
194 wk 
195 ** Detail: REV$ uses A, B, C(A), D(A), D1, DO 
196 gs addresses can’t be strings of over 5 characters. 
197 hk 
198 ** History: 
199 tas 
200 a Date Progranner Modifications 
201 Ris Soi ousis >) ee cuuciiues ~ SoU sate 
202 *X 07/04/82 SW. Inproved docunentation. 
203 e 07/05/82  S.W. Modified code to elininate call 
204 a to POP1S - takes advantage of 
205 ae the fact REV$ calls POP1S. 
206 xs Also added null string check. 
207 RK 10/21/82 9 S.U. Replaced call to REV$ u/ REVPOP 
9 ar 
oe JSS UICC ISI TOTS IK 
210 JOIST III ICICI III III EGO RTT TTT TIT 
211 , 
212 ‘ 
213 1C5A5 8FOO ADDRCK GOSBVL =REVPOP REVERSE STRING ON STACK 
000 
214 1C€5AC D2 C=0 R 
215 1C5AE 30A LCHEX A 
216 1C5B1 8B6 7AOC OR MORE THAN 5 CHARACTERS? 
217 1C5B4 56 GOYES INVARG 
218 1C5B6 Do C=A A COPY STRING LENGTH INTO C(O) 
219 1C5B8 80D0 P=C 0 
220 1C5BC OD P=P-1 
221 1C5BE 4A5 GOC INVARG NULL String? 
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222 1C5C1 133 ADIEX 
223 1C5C4 C2 C=C+A BR POSITION PAST STRING 
224 1056 131 D1=A RESTORE 01 
225 1C5C9 AFO A=0 W 
226 1C5CC 1531 A=DAT1 WP 
227 10500 135 D1=C PT D1 PAST STRING 
228 1€503 D1 B=0 A WAS B=0 W (HISTORICALLY LESS CODE) 
229 1505 20 P= 0 
2x” * MAKE SURE ASCII CHARACTER A LEGAL HEX DIGIT & CONVERT IT 
231 1C507 7800 ADRCK2 GOSUB ASCHEX 
232 1C5DB 968 7A=0 = =B DONE? 
233 1C5DE OO RTNYES 
234 1C5EO S6F GONC ADRCK2 (B.E.T.) 


235 


x 
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236 EJECT 
237 JOC IO OCI OO IOC TR TIE 
238 JOIST OTT IT 
239 x 
240 *k Nane: ASCHEX - Ascii to Hex Conversion 
241 ax 
242 ** Category: CONVRT 
243 x 
244 | Purpose: Converts an ascii character to a hex digit 
245 
246 &* Entry: ACB) contains ascii character 
247 ax P=0 
248 ax 
249 Kk Exit: B(O) = Hex Digit 
250 a B(W) shifted left before reading in digit 
251 aK Ascii character shifted off A via 2 word shifts 
252 xx P=0 
253 ak Carry clear 
254 aK ERROR EXIT IFF: 
255 xk eIVARG ~ A(B) not digit, or A-F, or a-f 
256 Kk 
257 &* Calls: RANGE, CONVUC 
258 a 
259 kk Uses: A, B, C 
260 xx 
261 ** Stack lvls: 1 
262 ax 
263 ** History: 
264 x 
265 aR Date Prograntier Modifications 
266 BRO Ste eee eo. Ue ee ahs Sed 
267 - 07/04/82 S.W. Added docunentation 
k 
ce JOS IO ISIS IIOC IOC III I TTI K 
270 JOS OUI IO ISIC IOC IO TO ET TIO 
271 x 
272 1C5E3 8E00 ASCHEX GOSUBL =DRANGE 
00 
273 1C5E39 401 GOC ASCHXS 
274 x 
275 1C5EC BF ASCHK2 BSL W 
276 1C5EF A88 B=A Pp 
277 1C5F2 BF4 ASR W 
278 1C5F5 BF4 ASR W 
279 1C5F8 01 RIN 
280 x 
281 1C5FA 8EOO ASCHXS GOSUBL =CONVUC 
oO 
28e 1060 3314 LCASC =\FA\ 
64 
283 10606 8E00 GOSUBL =RANGE 
ow 
284 1060C 4C0 GOC INVARG NOT LETTER OR DIGIT? 
285 1C60F 3173 LCHEX 37 
286 1(613 B6A A=A-C 2B 
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287 1€616 55D GONC § ASCHK2 (B.E.T.) 
288 x 
289 10619 8000 INVARG GOLONG =InvArg 
00 
290 : 
291 x 








Saturn Assenbler 


POKE, PEEKS, 


and ADDR$ <831216 Fri Dec 30, 1983 5:04 am 


Ver, 3.39/Rev. 2306 POKE Statenent Execution Page 10 
292 STITLE POKE Statement Execution 
293 JOIST OI TI III II IIIA T OCIS II IIIT IIIT TT TSE III K 
294 JI II OTITIS OID IIIT TIO IT III IIT 
295 aK 
296 ** Nare: POKE - Execution of POQKE statenrent 
297 ak 
298 ** Category: STEXEC 
299 aK 
0 ** Purpose: Executes POKE statenent 
1 kk 
He ** Entry: DO points at string expr for POKE address 
3 xx 
304 kK Exit: via NXTSTN 
5 KA ERROR EXITS: 
6 ak eIVARG - invalid address 
HX?7 xk eFPROT - PRIVACY or SECURITY violation 
8 ah eFACCS - illegal access 
9 ke 
310 kk Calls: EXPEXC, ADDRCK, POP1S, ADRPRT (RO,R2), ASCHEX 
311 x 
312 xk Uses: A-D, RO-R4, S-RO-0, All of function scratch 
313 xk 
314 *k Stack lvls: 5 
315 aK 
316 ** Detail: POKE into ROM or non-existent ternory NOPS. 
7 ae POKE into SECURE or PRIVATE file errors. 
318 a POKE into any file’s chain offset or into 1st 8 
319 BA nibbles of any IRAM generates error. 
320 ak 
321 ** Note: POKE doesn’t wrap around. POKE terninates past FFFFF 
322 ae 
323 ** History: 
324 oa 
325 ae Date Progranner Modifications 
326 BE Qin, Vee ates stn ook oss 
327 Ke 07/04/82 9 S.W. Inproved docunentation 
328 a 
329 JOIST III UI IOI TI ITOK 
330 JOISTS GGG OI IAI I IOK 
331 x 
332 x 
333 1C61F 0000 REL(5) =FIXDC 
0 
334 10624 0000 REL(5) =POKEP 
0 
335 10629 7000 =POKE GOSUB =ExpExc THROW STRING ON STACK 
336 1C62D 747F GOSUB ADDRCK CHECK VALIDITY OF ADDRESS 
337 * STARTING ADDRESS IN B(A) - SAVE IT IN SCRATCH RAN 
338 10631 1F1? D1=(5) =S-RO-0 
8F2 
339 1(638 D4 A=B A 
340 1063A 141 DAT1=A A 
341 10630 161 DO=DO+ 2 STEP OVER COMMA TOKEN 
2 10640 8FH GOSBVL =EXPEX- THROW DATA ON STACK 
000 
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343 
344 
345 


346 
347 
348 
349 
350 


351 
352 
353 
354 
355 
356 
357 
358 
359 
360 


361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 


375 


10647 8FOO 
000 
1C64E 25 
10650 R80 
1€653 20 
1€655 81C 
10658 1817 
8F2 
1CO5F 146 
10662 DS 
10664 858 
10667? 74% 


1C66B 131 
1C66E 1BE9 
bF2 
1€675 142 
10678 130 
1C67B CF 
1C67D 481 
1€680 181 
10683 AC2 
10686 14A 
10689 765F 
1C68D D4 
1C68F 1590 
10693 170 
10696 54E 


10699 8000 
00 


x 


® MAKE SURE IT’S A STRING 
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GOSBYL =POP1S 


P= 5 

A=0 P 

P= 0 

ASRB 

DO=(5) =S-RO-O 
C=DATO A 

B=C A 

ST=1 8 


GOSUB ADRPRT 


Page 11 
(starting @ TFORN) 
MAKE SURE IT’S A STRING 


WANT 6TH NIB ZEROED 
#NIBS IN AFFECTED BLOCK 


ADDR TO WRITE TO 
INTEND TO WRITE TO ADDR. SPACE 


* MUST CONVERT FROM ASCII TO DATA BEFORE WRITING OUT 


x 
x 
x 


x 


C=HNIBS 


WANT DO=END SOURCE OF DATA TO POKE 
WANT D1=BGN DESTINATION OF WHERE DATA TO GO 


D1=A 
DO=(5) =TFORN 


R=DATO A 
DO=A 


POKE10 D=D-1 A 


GOC POKE25 
DO=D0- 2 
C=0 S$ 
A=DATO B 
GOSUB ASCHEX 
A=B R 
DATi=A 1 
D1=Di+ 1 
GONC POKE10 


=POKE25 GOLONG =REN180 


x 


BGN DEST. 


END SOURCE 


WRITE QUT 1 NIB 
If carry, terminate POKE 
GOTO NXTSTN 
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376 
377 JOO ISOC IIT IIS SI IIIT TTT I III II TK 
378 JOU IO TIO IT TTI IIIT IIIS OASIS I III TK 
379 aK 
380 ** Nane: ADRPRT - Address Protect 
381 &K 
382 *k Category: LOCAL 
383 RK 
384 ** Purpose: Protects address space from PEEK$ and POKE 
385 ae 
386 kk Entry: B(A) = Block Start 
387 aK ACA) = Block size (in nibbles) 
388 aK P=0 
389 ak S8=1 => INTEND TO WRITE 
390 ak 
391 RK Exit: Error exits if: 
392 ak 1) PROTECTION PROHIBITS OPERATION. 
393 ak a)POKE on PRIVATE or SECURE file. 
394 aR Can’t POKE header or data. 
395 aX b)PEEK on PRIVATE file. 
396 aK Can’t PEEK header or data. 
397 aK 2) ILLEGAL ACCESS (POKE) - File 
398 ax chain integrity threatened: 
399 ak a)POKE to file chain length 
400 ak b)POKE to ist 8 nibbles of IRAN 
401 aK ELSE 
402 an ACA), RO = block start 
403 aK R1 = block end 
404 aR D(A),C(A) = block size 
405 ak Carry clear 
406 ak P=0 
407 ak 
408 ** Calls: PROTCK, FRSTFI, CNFFND, C=RANE, PKFIX1 
409 kk 
410 xk Uses: A-D, RO-R3, DO, 01 
411 ae 
412 A* Detail: Can RENAME a SECURE file, but can’t POKE to ANY 
413 ak part of a SECURE file 
414 aK 
415 aK Can ATTEMPT a POKE to any unprotected (not SECURE 
416 kk or PRIVATE) file, regardless of menory type - 
417 ae ROM, EEPROM, etc; It is known that a POKE to 
418 Ax EFPROM will behave in an undesirable way 
419 ee 
420 aK ADRPRT exits w/o error if block start=block end 
421 ak 
ee ** Stack lvls: 2 
423 ae 
424 ** History: 
425 RK 
426 Be Date Programmer Modifications 
427 NE cece” Moe eee ee) . ete ce eee 
428 Ke 07/04/82 SLU. Inproved docunentation 
429 ee 40/19/82 SN. Use symbolic bROMTB before 


430 ae calling CNFFND. 


5:04 an 
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431 tk 07/22/83 SU. Don’t allow POKE to MAINST. 

432 ak Add call to PKFIX1. 

433 ak 

434 JOGO OIC OUI ISI TT IAT ITT IAT TID 
435 SOI IIIS TUITE TOT TIT TTT TTI 
436 & 

437 & 

438 1C69F CO ADRPRT A=A+B A 

439 iC6A1 101 R1=A PTR JUST PAST BLOCK END 

440 1C6A4 D9 C=B A 

441 1C(6A6 108 RO=C BLOCK START 

442 1C6A9 D? D=C A 


443 * If Block Start = Block End, nothing to check 


444 1C6AB 8A2 A=C OR 

445 1C6RE BS GOYES ADRDNI 

446 * First guard against POKE to MAINST 

447 1C6B0 8£00 GOSUBL =PKFIX1 errors on POKE to MAINST 
00 

448 1(6B6 146 C=DATO A 

449 1C6B9 7F11 GOSUB FRSTFI 

450 1C6BD 412 GOC ADRP20 

451 x 

452 * D=BLOCK START; C=FILE END; B=FILE START 

453 * SEE IF BLK END <= MAINST 

454 1C6CO 142 A=DATO A 

455 106C3 129 CRIEX C=BLOCK END; R1=FILE END 

456 1C6C6 8BE *C<=R A BLK END<=MAINST? 

457 1C6C9 20 GOYES ADRP17 SET CARRY IF YES 

458 1C6CB 109 ADRP17 R1=C RESTORE BLOCK END 

459 1C6CE 4A3 GOC ADRON1 

460 ® ENSURE THAT BLOCK START >= FILE START 


461 1€6D1 DF CDEX A D=BLOCK END;C=BLOCK START 
462 * B(R) POINTS TO FIRST AFFECTED FILE 
463 1C6D3 D9 C=B A 
464 1C€6D5 7ERO GOSUB = PROTCK SCAN THRU FILE CHAIN 
465 1C6D9 461 GOC ADRPXO REACHED E.0.F. CHAIN? 
466 1C6DC 5R2 GONC ADRDON (B.E.T.) 
467 a 
468 * REACHED END OF MF FILE CHAIN - DION’T FIND BLK START 
469 1C6DF 119 ADRP2O C=R1 BLOCK END 
470 1C6E2 D7 d=C A 
471 . D1=(5) =RANEND 
472 x C=DAT1 A 

GOSBVL =C=RANE C=(RAMEND) 


473 1C6E4 8F00 
000 


*D<=C A 
GOYES ADRDON 


474 1C6EB SBF BLK CONTRINED IN SYS. RAN? 

475 1C6EE 91 

476 : 

477 1C6FO 32EF ADRP30 LC(3) =bRONTB 
B 

478 1C6F5 8F0O 
000 


GOSBVL =CNFFND 


479 1C6FC 137 CD1EX 
480 1C6FF CA A=A+C A 
481 10701 102 R2=A SAVE END OF CFG CHAIN 
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482 1€704 501 GONC  ADRP45 (B.E.T.) 
483 x 
484 1C€707 DB ADRDON C=0 A 
485 1€709 110 ADRDN1 A=RO BLK START 
486 1C70C E2 C=C-A A #NIBS IN BLOCK 
487 1C70E 07 D=C A 
488 1€710 01 RIN 
489 x 
49 1€712 137 ADRP40 CDIEX 
491 x 
492 1€715 8BR ADRP45 7A<=C A AT END OF CFG BUF? 
493 1C€718 FE GOYES ADRDON 
494 1(71A 135 Di=C 
495 1€71D 173 Di=D1+ 4 PT TO PLUG-IN ADDR 
496 1€720 1573 C=DAT1 X READ IN HIGH 3 NIBS 
497 1€724 F2 CSL A 
498 10726 F2 CSL A SHIFT IN ZEROES 
499 1€728 175 D1=D1+ 6 PT. TO NEXT TABLE ENTRY 
500 1C€72B 8BF ?C>=D A NO NEED TO SEARCH THIS CHAIN? 
501 1C72E 4E GOYES ADRP40 
502 1€730 133 ADIEX 
503 1€733 103 R3=A SAVE PTR TO NEXT ENTRY 
504 * C IS AT START OF PORT - NOT AT START OF FILE CHAIN 
505 10736 135 Di=C 
506 10739 177 Di=D1+ 8 POINT PAST PROTECTED FIELD 
507 1€73C 137 CD1EX 
508 1C73F 135 Di=C 
509 1€742 868 2ST=0 8 PEEK? 
510 10745 RO GOYES ADRPSO 
511 * POKING AT LERST 1 NIBBLE 
512 1€747 110 A=RO BLOCK START 
513 1C74A 8B2 PAKC OR 
514 1€74D 92 GOYES POKERR POKING INTO PROTECTED FIELD? 
515 * 01 IS NOW AT START OF FILE CHAIN 
516 1C74F 118  ADRPSO C=RO 
517 1€752 BD? D=C A BLOCK START 
518 10754 137 CDIEX RESTORE C(A) 
519 1€757 7180 GOSUB FRSTFI 
520 1€75B 119 C=R1 
521 1C€75E 07 D=C A BLOCK END 
522 1€760 480 GOC RDRP5S4 Reached chain end before block end? 
523 * B(A) POINTS TO 1ST AFFECTED FILE 
524 1€763 09 C=B A 
525 10765 7E10 GOSUB PROTCK 
526 10769 5D9 GONC ADRDON FOUND END OF BLOCK? 
527 10760 118 ADRPS4 C=R3 
528 1C76F 112 A=R2 
829 10772 42h GOC ADRP45 (B.E.T.) 
530 & 
531 10775 BSS 1 
532 & 
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533 EJECT 
534 SOR RIOR RIUIORJOSOI ROI TOTTORI Ok 
535 FORT OIRO IO OR TOOT IO OOO 
536 aA 
537 k* Nane: PROTCK - Protection Check 
638 ak 
§39 *k Category: LOCAL 
540 ke 
541 ** Purpose: 
542 ak Ensures not PEEKing into PRIVATE file, not POKEing into 
543 aK PRIVATE or SECURE file, and not POKEing into any file’s 
544 ae chain length field 
545 xk 
546 *k Entry: 
547 ax P = 0 
548 xk C(A) points to file chain start of affected chain 
543 xk D(A) 1s block end 
550 ak S8=1 => POKE operation 
551 x RO 1s block start 
552 aK 
553 KK Exit: 
554 aK P = 9 
555 xk Carry set => block extends beyond file chain 
556 kk clr => block ends within file chain 
557 KK D, RO, S8 preserved 
558 ae 
559 ak Error exits (no return) if proposed 
560 ax operation violates file’s protection (ePROT) 
561 ak or file chain integrity (eFACCS) 
562 ak 
563 kk Calls: GETPRO, FILSKP 
564 kk 
565 Kk Uses... 2.0 
566 xk Exclusive: ACA), BCR), CCR) 
567 kk Inclusive: ACA), BCA), C(A), D1 
568 xR 
569 kX Stk lvls: 1 
570 KK 
571 kk NOTE: 
572 a previously guarded against POKEing across file chain 
573 Ke boundaries - that check was elininated 
574 ax 
575 xk 
576 ** History: 
577 aK 
578 a Date Progranner Modification 
573 MES Sevewoss., ,doteeesceos. - a28cipesou eke cece eee es ceas 
580 07/05/82 S.U. Added docunentation 
x 
a JO IIIT GOO OO IOI I ITI KK 
583 JOS UII OOOO KK 
584 x 
585 10776 3100 =POKERR LC(2) =eF ACCS Illegal file access 


586 1C77A 8C00 


00 


ferr GOLONG =NFERR) 
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587 x 
588 1€780 03 DONE RTNCC 
589 x 
590 10782 8BF PROCK- ?D<=C A BLK END IS IN FILE JUST CHECKED? 
591 10785 BF GOYES DONE 
592 x 
593 10787 135  PROTCK DI=C 
594 1€78A 148 A=DAT1 B 
595 1C78D 968 7A=0 OB 
596 107% © RTNYES 
597 10792 DS B=C A 
598 10794 8F00 GOSBVL =GETPR1 
000 
599 1C079B 4E0 GOC nferr PRIVATE? 
600 1C7SE 8FOO GOSBVL =FLSKPB GET END OF FILE IN C 
O00 
601 1C7A5 868 7§$T=0 8 INTEND TO PEEK? 
602 1C7A8 AD GOYES PROCK- YES=>0K IF SECURE 
603 1C7AA 832 7$B=0 UNSECURE? 
604 1C7AD AO GOYES PROTC3 
605 1C7AF 3100 =RFPROT LC(2) =eFPROT 
606 1€7B3 66CF PROTC2 GOTO wnferr 
607 * FILE START IN 8; FILE END IN C; BLK START IN RO; BLK END IN R1 
608 * IF DOING A POKE, ENSURES not POKEing into file length field 
609 1€7B7 DR PROTC3 A=C A SAVE PTR TO END OF FILE 
610 1C7B9 D2 C=0 A 
611 1C€7BB 3102 LC(2) =oF LEN 
612 1C7BF C9 C=C+B OA ADDR OF FILE CHAIN OFFSET 
613 1C7C1 8BF M<=C A BLK END<=FILE CHAIN OFFSET ADDR? 
614 1C7C4 CB GOYES DONE 
615 1C7C6 BS B=C A 
616 1C7C8 D2 C=0 A 
617 1C7CA WS ui) 5 
618 1C7CD C1 B=B+C A PT TO BGN OF NEXT FIELD IN HEADER 
619 1C7CF 118 C=RO BLK START 
620 1C702 8B1 7C<B OAR 
621 1C€705 1A GOYES POKERR 
622 1C707 06 c=A A 
623 10709 58A GONC = =PROCK- (B.E.T.) 


624 
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625 EJECT 
626 JOIST I OIC TTI ET 
627 JUSSI IOI III IOI OUI CCC TIE 
628 aK 
629 ** Nane: FRSTFI - First File 
630 ke 
631 ** Category: LOCAL 
632 aK 
633 *% Purpose: 
634 ak Finds 1st file in chain (if any) affected by PEEK/POKE 
635 aR 
636 *k Entry: 
637 ak P = 0 
638 ak C(A) points to chain start 
639 an D(A) is block start 
640 xx 
641 ae Exit: 
642 RK P = 0 
643 ak D(A) is preserved 
644 ze Carry set => No file in chain affected 
645 D1 points to 0O byte at chain end 
646 an clr => B(A) points to ist affected file 
647 an C(A) points to end of 1st affected file 
648 xR 
649 ** Calls: FILSKP 
650 - 
651 *X Uses....... 
652 ** Exclusive: D1, ACB), B(A) 
653 ** Inclusive: ACA), BCA), C(A), D1 
654 aR 
655 ¥k Stk lvis: 1 
656 a 
657 **® History: 
658 ak 
659 a Date Prograriner Modification 
660 $8. oot SS. “Ges ee , - eee aunt eee een alee ae 
661 KK 07/05/82 SLU. Added docunentation 

ae 
aa PESSSTESSSSTESTSSSOCCUCTSCSCSTSCSCCCCUSSTS CITC CS CCC CCST CCST CESS 
664 JOISTS OUI OCI I I RTT 
665 x 
666 1€70C 135 =FRSTFI 01=C 
667 1C7DF 148 A=DAT1 B 
668 1C7E2 368 7A=0)—O#B 
669 1C7E5 OO RTNYES 
670 1C7E7 05 B=C A Save pointer to file start | 
671 1C7E9 8FOO GOSBVL =FILSKP 

000 

672 1C7FO 8BB *D>=C A BLK ST>=ST OF NXT FILE? 
673 1C7F3 9E GOYES FRSTFI 
674 1C7F5 01 RTN 

x 


675 
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676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
208 
709 
710 
714 
712 
713 
714 
715 
716 
717 
718 


719 
720 
721 
722 


ie 
724 
725 
726 


72? 


1C7F? 8DOO 
000 


IC7FE 411 
1€801 728D 
1€805 8FOO 
000 
1C80C SAE 


IC80F 756D 
1C813 8FOO 

000 
1C81R 489 
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STITLE ADDR$ 


KIRK KKK IKI IK AK 
FOI III tok 
xx 

xX Nane: R 
xk 

** Category: 
aK 

** Purpose: 
xx 

ae 

aX-Entry: 

ak 

BA ERTS 

aK 

ae 

xx 

ah 

ak 

** Calls: 

xk 

xx 

** Uses: 

xx 

ah 

** Detail: 

ae 

aK 

** Stack lvls 
ak 

** History: 
ax 

xk Date 

PE coieciewie 
XX 07/05/82 


*k 12/01/82 
ae 


aK 
FOI FOO III 
KKK ARK KKK KKK 
x 
x 


AN$ESO GOVLN 


& 
NIBHE 


=ADDR$ GOSUB 
GOSBY 


GONC 
x 


GOSUB 
GOSBV 


GOC 


FOI OO TTT TT TTT TIO TI Oe 
LS OSS 26.6.6.9.5.9.0.6.6,0,9,.0,0,9,5.0.0.0,9.9.9.0,.0.0,5,0,5.9.9,.5,.0.0.0,0.5,5.9.5.5,0.0,0,5, 5.5 


DOR$ = - ADDR$ Function Execution 
FNEXEC 


RDDR$ function returns the address of the 
specified file. 


String on stack via EXPEXC 


Ascii string containing HEX address pushed on stk 
Exit via PCEXPR 
ERROR exits if: 
Illegal File spec - eFSPEC 
File not found - eFnFND 


FILXQ, PREFLF, FINDF, STRHDR, REV$, HEXASC 
SAVD1, RSTD1, FTYPFD 


F-RO-O, A, B, C, D, D1, DO, S-R1-2, RO, R1, $6, $8 
F-RO-1 


Works for mainfrare files (incl. plug-ins) only 
ADDR$(<string expr>) 


: 4 (FILXQ$ can use 3) 


Progranner Modifications 

S.W. Added docunentation 

S.W. ADDR$ returns pointer to file 
header, not offset to data. 


FOI IIIT ITO TOTO TOTO TTT OTTO I 
FORO RO IOI ITO TIO OI IO 


G =INVFSP Invalid FILE SPEC 

x 411 STRING PARN 
SRYDO 

L =FILXQ$ RTNS FILE NAME IN A 
ADSE30 ILLEGAL FILE SPECIFIER? 
SAVDI SAVE D1 IN F-RO-1 

L =FINDF+ 
PROTC2 NOT FOUND? 
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728 
729 
7H 
731 
732 
733 
734 
735 


736 
73? 
738 
739 
740 


744 
742 
743 
744 
745 
746 
74? 
748 


10810 133 
10820 727D 
10824 AF2 
10827 24 
10829 80FF 
1082D AF? 
10830 8£00 
00 
10836 B47 
10839 R47 
1083C 813 
1C83F OB 
10841 8FOO 
000 
10848 8000 
1C84C OD 
1C84E AF4 
10851 1514 
10855 1CF 
10858 601D 
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ADR$10 


ADIEX 
GOSUB 
C=0 

p= 
CPEX 
D=C 
GOSUBL 


D=0+1 
D=D+D 
DSLC 


RSTD1 

W 

4 

15 

W 
=HEXASC 


S 
S 
A 


STRHOR 


W 

WP 

16 
PK$70 
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* D1 CONTAINS ADDRESS OF FILE - 


RESTORE D1 
WANT C(S)=0;C(A)=0 


C(S)=4;P=0 

D(S)=C(S)=#NIBS-1 TO CONVRT;D(A)=0 
CONVERT TO ASCII 

#NIBS THAT WERE CONVERTED 

#OF NIBS TO PUSH ON STACK 


PUT HEADER ON STACK 


ONLY NEED WP, BUT LESS CODE 


RESTORE PC, ETC. 
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749 STITLE DTH$ Function Execution 
750 J III I I II III TI TI IIT OTIS IIIT ITS I IIIT IIIS I IIIS IIIS IIS 
751 JO IOI II II TOIT ITI III III SI TITS TOSS IIIT IIT TIT IIS 
752 RX 
753 ak Narie: HEX$ - DTH$ Function Execution 
754 ik 
755 kk Category: FNEXEC 
756 ak 
757 *k Purpose: DTH$ function that converts a decinal nunber 
758 ak to an ascil hexadecinal address 
759 ak 
760 - Entry: Nuneric expression on stack - pointed to by D1 
761 
762 AEM ts String pushed on stack - exit via EXPR 
763 ak ERROR exits if: 
764 aK Nuneric expr is conplex - eDATTY 
765 - Nurneric expr negative or too large - eARGOR 
766 & 
767 *k Calls: POPNUN, HEXASC, STRHDR, REVS 
768 aK 
769 *k Stack lvls: 3 
770 ak 
771 aX Uses: A-D, R1, SB, D1 
772 kr 
773 ** Detail: | HEX$ <nuneric expression> 
774 aK 
775 *k History: 
776 an 
77? KA Date Progranner Modifications 
778 WR Cicseuie~ @oiectate. heeevee tou. 
779 ek 07/05/82 = S.W. Added docunentation 
ak 
a JU IO OU TOSI TIS IIIT II TIT T ISI 
782 JU III III OI IT IIIS III ITER ISIS SSSI II IIIS IS SS 
783 ‘ 
784 1C85C 811 NIBHEX 811 
785 1C85F 7B8C =HEX$ GOSUB POPNUN 
786 10863 40C GOC ADR$10 (B.E.T.) 


78? * 
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788 STITLE HTD Function Execution 
789 JE] III CCC TOC IE 
790 JOU II III OO SSSI ISI III II II IIS STILT DTD TTI 
791 ah 
792 ** Nane: HXDEC - HTD Function Execution 
793 a 
794 ** Category: FNEXEC 
795 as 
796 *x Purpose: HTD function which converts an ascil repre- 
797 ax sentation of a hex address to a decinal nunber 
798 ax 
799 ** Entry: String on stack & pointed to by D1 
B00 tk 
801 tk Exit: Decinal nunber pushed on stack 
802 tk 

: 803 ** Calls: ADDRCK, HDFLT 
804 ak 
805 ** Stack lvls: 4 
806 ax 
807 kk Uses: A,B,C(A),D(A), D1, D0 
808 aK 
809 ** Detail: This function and DTH$ are useful with ADDRS. 
810 ak HTD <string expression> 

811 ax 

812 ** History: 
813 aX 
814 a Date Progranner Modifications 
815 ES Seccccse- eee eee eewetee 
816 tk 07/05/82 = S.W. Inproved docunentation. 
817 aX Modified code to use AVNENE to 
818 ak push on stack (to not crash into 
819 ak SAVE area - uas using TFORN) 
$20 ak 
821 20) I III I III TIO SOI TIO IS OS TOS IOS IIIT ISO III III TIAA S 
822 SOI II II IIT III IIT I OTTO IIT ISI OS SII II IIIT ISIS IIIS III II II 
823 . 
824 k 
825 10866 411 NIBHEX 411 
826 1€869 783D =HXDEC GOSUB ADDRCK 
827 1C86D D4 A=B A 
828 1C86F 1CF D1i=D1- 16 
829 1C€872 8000 GOVLNG =LEN20 ; Calls HDFLT, pushes result 

000 

8H x 
831 ' 


832 1€879 END 
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ADSEX Abs 116727 HIC7F? - 718 723 

=ADDR$ Abs 116737 #10801 - = 721 

ADDRCK Abs 116133 #1C5AS - 213 117 336 826 
ADR$10 Abs 116772 #10824 - 731 786 

RADRCK2 Abs 116183 #10507 - 231 234 

RORDNI Abs 116489 #10709 - 485 445 453 
RDRDON Abs 116487 #10707 - 484 466 475 493 526 
ADRP17 Abs 116427 #1C6(B - 458 457 

ADRP2O Abs 116447 #1CODF - 469 450 

RDRP3O Abs 116464 #1C6FO - 477 465 

ADRP40 Abs 116498 H1C712 - 490 O01 

RORP45 Abs 116501 #10715 - 492 482 529 
RDRP50 Abs 116559 #1C74F - 516 510 

RDRP54 Abs 116588 #1C76C - 527 $22 

ADRPRT Abs 116383 #1C69F - 438 122 354 
ASCHEX Abs 116195 #1C5E3 - 272 231 368 


ASCHX2 Abs 116204 #1CS5EC 275 = 28? 
ASCHXS Abs 116218 HICSFA - 281 273 
C=RAMNE Ext - 473 

CNFFND Ext - 478 

CONVUC Ext - 284 

DONE Abs 116608 #10780 - 588 591 614 
DRANGE Ext - 222 

EXPEX- Ext - 342 

ExpExc Ext - 935 

F-RO-O Abs 194715 #2F89B - 11 159 
F-RO-1 Abs 194720 H2F8A0 - 11 154 = 163 
FILSKP Ext - 671 

FILKXQ$ Ext - 722 

FINDF+ Ext - 726 

FIXOC Ext - 333 

FLSKPB Ext - 600 

FLTIDH = Ext - 56 

FRSTFI Abs 116700 #1C70C - 666 449 619 673 
GETPRi Ext - 598 

=HEX$ Abs 116831 #1C85F - 785 

HEXASC Ext - 140 735 


=HXDEC Abs 116841 #10869 - 826 
INVARG Abs 116249 #1(619 - 289 109 217 221 284 


INVFSP Ext - 718 
InvArg Ext - 289 
LENCO Ext = 829 
MFERR) Ext - 586 
PCEXPR Ext =. 15) 


=PEEK$ «Abs 115981 #10500 - 112 

PK$20) = Abs) 116036 #10544 - 136 144 
PK$60 Abs «116067 #10563 - 147 137 
PK$?70 Abs) «110073 #1C569 - 149 746 
PK$E24 Abs 115973 #1(505 - 109 115 
PKFIX1 Ext - 447 

=POKE Abs 116265 #10629 - 335 
POKE10 Abs 116347 #1067B - 363 372 
=POKE25 Abs 116377 #10699 - 374 364 
POKEP Ext - 334 
=POKERR Abs 116598 #10776 - 585 514 621 
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POPIR Ext = 53 
POP1S Ext - 345 
POPNUM Abs 115950 #1C4EE - 53 112 785 


PROCK- Abs 116610 #10782 - 590 602 623 
PROTC2 Abs 116659 #10783 - G6 727 
PROTC3 Abs 116663 #1C7B7 - 609 604 
PROTCK Abs 116615 #10787 - 593 464 525 


RANGE Ext - 283 
REN180. Ext - 374 
REVS Ext 150 
REVPOP Ext 213 


=RFPROT Abs 116655 #1C7AF - 605 
=RSTD1 Abs 116118 #10596 - 163 180 730 

S-RO-O Abs 194673 H2F871 - 11 338 = 350 
=SAVDO =Abs 116103 #10587 - 158 55 721 
=SAVD1 Abs 116088 #10578 - 153 118 725 


STRHDR Ext - 132 740 
TFORN Abs 193950 #2F59E - 11 360 
bRONTB Abs 3070 HOOBFE - 12. 477 
eFACCS Ext - 585 
eFPROT Ext - 605 


nferr Abs 116602 #10778 - 586 599 606 
oF LENhH Abs 32 #00020 - 12 «611 
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Input Paraneters 
Source file name is SG&POK: :MS 
Listing file nane is SG/POK:TI:NL::-1 
Object file nane is SGXPOK: TI: MS: :-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assembler Neus 





Saturn Assenbler 
Ver, 3.39/Rev. 2306 


woos non wr 


1C€879 


Card Reader Module <831212.161 Fri Dec 30, 1983 3:35 an 


Page 1 
x nm MN N & ccC oddbdd 
x mn in N N 8&8 C ¢€ OD OD 
x MMM NN N &8& C D OD 
x NAN NNN & C DD 
- hm mM N NN &8&8& C ae) 
* hm Mm N N& & C C D OD 
x nh Mm N N 8&8& CCC ODDDD 
x 
TITLE Card Reader Module <831212.1617> 
ABS #10879 
TEST  EQU 1 Test version for first chip 
k 
RDSYMB SBZRAN: : NS 
RDSYMB SBZKCM: NS 
RDSYNB TIZEQU: : MS 
k 
fFTMOUT EQU 3 TIMEQUT TINER FLAG 


LIFIR EQU #498C 

LIFIRT EQU #49 

HDRSIZ EQU 37 
aI 
*1't Changes needed to inplenent enhancenent request #993-6 


X11 are indicated with *!! connent Lines 
xi 
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25 STITLE Copy to card 
26 SII IT IIIT TTT TE TELE ETRE TITRE IIIS IIR I 
27 JIT TIS RT TTI TT LD ETD III ITS TS III IIIS ISIS IIIA 
28 ak 
29 ** Narie:(S) FILCRD - Copy File To Card 
30 ah 
31 ** Category:  FILUTL 
32 ak 
33 _** Purpose: 
34 ae Copy file fron nenory to card. 
35 kh 
36 ek Entry: 
3? aK C{A] points to start of file header. 
38 aK R1 contains nane to be used on card. JZeroes if no 
39 ak nane specified (use nane of file). 
40 ax S8=1 if private card requested. 
41 xx 
42 a® Exit: 
43 aA Returns if write completed. 
44 a NXTSTM if write aborted. 
45 ak Error exits: 
46 ah 
4? ek Calls: ALIGN, BLANKC, CHKSUM, CMPTIN, CR??, CRDOFF, 
48 xx CSLW5, D1413B, D1+21B, D1+29B, DAYYND, FNDPRT, 
49 aK FROMDT, FTYPFH, IMPFLD, IOAL36, LCTRKS, MAXTRK, 
50 a POLL, PREPDT, PREPHD, R1TODO, RCO1, RD&SV, 
51 ak RDSOC, RDYTRK, READCS, READFL, RTODP, S101, 
52 ak STORG?, TOCARD, TODT, TRKDON, VFYCRD, WAITM+, 
53 a WRIT8S, WRITE, WRITFL, WRMSG, WRT2-0, YMDDAY, 
54 aK aslu$, asra5, crifnd, csruS, fpoll, idiva, 
55 te noscrl. 
56 kk 
57 ak Uses.....0. 
58 ak A,B,C,D,P,D0,01, ST, RO-R4, 
59 . SNAPBF, SAVSTK, SCRICH, 8 levels in RSTKBF. 
60 m 
61 ke Stk lvls: 4 
62 xx 
63 *k Detail: 
64 ae Card fornat chosen for conpatibility with HP-75. 
65 AR Card is divided into four fields, each preceded by a 
66 a hardware recognized flag and followed by a zero byte. 
67 aR Fields are separated by a 66 ttfc (tinetrack flux 
68 *R change) gap. fields are as follous: 
69 zk 
70 kk =z== §tart-of-Card: recorded at factory uhen tinetrack 
71 ‘ is recorded. 
72 ax SOC marker: "HP" (2) 
73 ae format: "CV" (2) 
74 Be size: # bytes available after urite-protect field 
75 xx (specific to Corvallis fornat) (2) 
76 aie for 10" cards: 2BC (=700 base 10) 
77 i“; (reserved): 0000 (2) 
78 x 


79 kk =sz=  Write-protect: 4-byte field: 
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80 a% 0000 for urite-enabled cards. \ (2) 

81 Rx FFFF for urite-protected cards. / 

82 ak (reserved): 0000 (2) 

83 aK padding added by HP-75 (1) 

84 ak 

85 kk sxx= = =Data Header: identifies file, contains security 
86 ax infornation. 

87? th 

88 ak % identifies fields which differ between HP-?71 and 
89 +e HP-75 forrat. HP-75 fornat is only used 

90 ak for LIF1 (text) files. 

94 re 

92 xk % 0: sub-format (1): 00 for LIF1 file (HP-75 subfornat) 
93 ak 01 for HP-71 files (HP-71 subfnt) 
94 aK 1: track# (1) 

95 xx 2: # of tracks in set (1) 

96 ax 3: # bytes in this track (2) 

97 aa 5: # bytes in file (2) 

98 ak % 7: file type (2): HP-75 filetype (HP-75 subfornat) 
99 ak LIF filetype (HP-71 subfornat) 
100 ae 9: creation date (4): hex seconds since start of 
101 a century. 

102 kk 13: file nare (8) 

103 aX % 21: password (4): blanks for LIF1 filetype (HP-75) 
104 aK inplenentation (4): (HP-71 subfornat) 

105 ar 25: marker (2): checksum of entire file, including 
106 AX file header. 

107 an 27: partial statenent status (1) 

108 ax 28: s1 (2) 
109 ax 3%: s2 (2) 
119 a 32: data checksum (2): 2-byte checksun of data field. 
114 xx 34: header checksun (1): 2-byte sun of header field, 
112 a folded to one byte without 
113 Se wraparound carry. 

114 ak 35: (reserved) (1) 

115 4% padding added by HP-75 (2) 

116 ak 

117 AM File headers for the tuo subfornats differ only in 
118 is bytes 0, 7-8 and 21-24. 

119 aK 

120 kk ===> Data: 650 bytes 

121 aK 

122 AX padding added by HP-75 (3) 

123 an 
124 aR 
125 My 
126 a All files except LIF1 will use LIF filetype in the 
12? ae filetype. For the curious anong you, HP-75 

128 a filetypes consist of tuo bytes: 
129 ax 
130 a high order byte: OO=HP-75 systen file 
131 ak ?7=HP-75 text file 

132 x ??=HP-75 basic file 
133 ax ??=HP-75 appointnent file 


134 ke 7?=HP-75 lex file 
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135 ax 77=HP-75 keds file 
136 ah "T"=LIF1 
137 Re 
138 xs lou order byte: HP-75 attribute byte. Identifies 
139 RK file capabilities. bit nasks as defined by 
140 RK HP-75 are: 
141 kk 80=in ron 
142 xX 40=file runnable 
143 ae 20=file editable 
144 ak 10=file listable 
145 ae 08=file purgable 
146 ak 04=file copyable 
147 ax 02=standard lined file 
148 tk O1=token file 
149 aK two inportant bit masks are: 
150 aA 34=private file 
151 ak 7E=data file for print#/read# 
152 a 
153 ax HP-75 docunentation identifies sone basic file 
154 ax types: 
155 a 0062=calculator file 
156 ae 0000=systen file 
157 ax 013E=text file 
158 ae 027E=basic file 
159 ak OWC=appointnent file 
160 = 050C=alpd fild 
161 aA 0008=diagnostic file 
162 ax 
163 ae 
164 PR ledge 
165 x 
166 ** Function of scratch registers in card write: 
167 kk RO=scratch 
168 ek RI[A]=file pointer 
169 xk R1[9-5]=anount of zero-padding at end of file in bytes 
170 ae (used to bring LIF1 to sector boundary). 
171 xX — R2=pointer to I/Obuffer containing header 
172 = 
173 ** Function of status bits: 
174 kx $1: Used by Verify to suppress DATA ERROR in read fron 
175 a% FIFO. 
176 kX $2: Indicate we are on last track of card set. 
177 ax 
178 ** Algorithn: 
179 ak Check for presence of card reader; eDVCNF if absent. 
180 aX Allocate I/0 buffer for building header; eMEM if 
181 ax no roon for buffer. 
182 ae Fetch filetype fron file. If not copying to PCRD then 
183 ae goto 2. 
184 . Search for filetype in filetype table. If found then 
185 ae goto 1. 
186 eis If filetype not in standard range then goto 2. 
187 a Set privacy bit in filetype. Goto 2. 
188 ex 4: If there are < 3 entries in filetype table for this 


189 kx filetype then goto 2. 
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1% ae Read third entry (private) fron filetype table. 
191 xX 2: Store filetype in card header I/Obuffer. 
192 ak Store passed destfile nane in header I/Obuffer. 
193 a Cornpute tine (seconds since start of century) and store 
194 ax in header I/Obuffer. 
195 x If we are writing out LIF1 filetype then write HP-75 
196 aK LIF1 filetype to filetype field and 00 to subfornat 
197 kh field, else write 01 to subfornat field. 
198 Rx Write 01 to track# field in header I/Obuffer. 
199 ax If copycode=8 then poll for sonebody to copy card; 
20 ax eFYPE if not handled. 
201 ae Coripute file length in bytes: (chain length-5)/2 if 
202 aes copycode#1, (chain length-13)/2 if copycode = 1; 
203 ax rounded up to byte. If > FFFF bytes then eF2BIG. 
204 ak If filetype = LIF1 then pad file length up to sector 
205 ax boundary (256 bytes). 
206 a Write file length to header I/Obuffer. 
207 a Coripute inplenentation field, write to header 
208 ae 1/Obuffer. 
209 a Perform checksun of entire file for "marker" byte--byte 
210 aK which uniquely identifies card set. Write to 
211 kk header I/Obuffer. 
212 ae Coripute # tracks in card set. Write to header 
213 ae 1/Obuffer. 
214 kk 3: Read track# and naxtrack# fron header I/Obuffer. 
215 ae Deallocate buffer and return if track# > naxtrack#, 
216 ax Conpute trksize. Write to header I/Obuffer. 
217 aK Conpute checksun of this track. Write to header 
218 ae 1/Obuffer. 
219 am Write 0’s to partial card recovery fields (since 
220 ax recovery is not inplenented). 
221 am Compute header checksun. Write to header I/Obuffer. 
222 ax Perforn WORD poll. 
223 kk 4: Prompt "rt: Align then ENDLN" and wait for ENDLINE or 
224 ae ATTN or f-ATIN or tineout. 
225 aK If ATTN or f-ATTN or timeout then abort. 
226 x Provipt “Pull xxx of xxx", 
227 aes {card now starts moving. } 
228 ax Verify start-of-card (SOC) field. If wrong then 
229 ae eUNKCD and goto 4. 
cH ‘ Read write-protect field. If not 0’s then ePROTD and 
231 ae goto 4. 
232 ae Suitch to write node. Write 16 nibbles of 0’s. 
233 a Write BREAK to card. 
234 ax Write header I/Obuffer to card. 
235 aK Write 16 nibbles of 0’s to card. 
236 ae Write BREAK to card. 
23? a Write data field to card, padding with 0’s as necessary 
238 ae for text files. 
239 xe Turn off card reader. 
240 xx 5: Prompt "Vfy: Align then ENDLN" and wait for ENDLN. 
241 ee Prompt “Pull xxx of xxx". 
242 ke Verify SOC field. If fail, eUNKCD and goto 5. 
243 ae Skip urite-protect field. 
244 ae Verify header field. If error, eVFYER and goto 4. 
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245 Bx Verify data field. If error, eVFYER and goto 4. 
246 RX Turn off card reader. 
247 Update file pointer and increment track#. Goto 3. 
248 
249 ** History: 
250 ok 
251 Kx Date Progranner Modification 
252 REP Se uahite. etree! eciuccewecn ceca toeaasss eine Sooo 
253 *k 07/12/82 = NM Added documentation 
254 ak 02/25/83 = NM Updated "CALLS" section 
ka 

ce JOIST I TOI IIIT ISI OTIS ITS TS II IIIS IIIS IIIA 
257 III IAT ITI IDI IID III IIIT ASIII III IL ID III III II SINS II SISOS ISIS IIIS: 
258 TRKSIZ QU 650 bytes in data field 
259 10879 129 =FILCRD CRIEX Save file pointer 
260 1C87C 108 R3=C Save filenane 
261 1C87F 7116 GOSUB CR?? Check for card reader present 
262 * Build header in 1/obuffer 
263 10883 7666 GOSUB IQAL36 Allocate buffer for header 
264 1£887 460 GOC FILCOS Go if successful 
265 1088A 6CC6 GOTO 8 8©NROON Insufficient mernory 
266 1C88E 137 FILCOS CDIEX 
267 1€891 10A R2=C Save buffer pointer 
268 10894 7025 GOSUB RTODP 
269 * Filetype: bytes 7-8 
270 10898 16F DO=D0+ 16 Point at filetype 
271 10898 DO A=0 A 
272 1089) 15A3 R=DATO 4 Read filetype fron file 
273 1C8At 17D Di=D1+ 2%? Point at filetype field in hdr 
274 1C8R4 868 ST=0 8 Privacy requested? 
275 1C8A7 73 GOYES FTYP40 No. use virgin filetype 
276 1C8A9 8FOO GOSBVL =F TYPF# Do we recognize filetype? 

000 
277 1C8B0 431 COC FTYP30 Yes 
278 1C8B3 72A5 GOSUB STDRG? No. filetype in std range? 
279 1C8B7 462 GOC FTYP40 No. No private. Use orig type. 
280 1C8BR W2 LCHEX 2 Std range. set bit#1 
281 1C8BD OEOE A=A'C P Makes private 
282 1C8C1 501 GONC FTYP40 B.E.T. 
283 1C8C4 134 = FTYPX DO=C Point at table entry 
284 1C8C7 16€ DO=D0+ 15 
285 1C8CR 1524 A=DATO § #entries in table 
286 1C8CE 2F P= 15 
287 10800 303 LCHEX 3 
288 1C8D3 982 AcE OP Are there three entries? 
289 1C8D6 8 GOYES FTYP40 No. less. cannot nake private. 
2% 1C8D8 168 DO=D0+ 9 Yes. point at third entry 
291 1C8DB 142 A=DATO A Read private filetype 
292 1C8DE 1593 FTYP4&O DATI=A 4 Write out filetype 
293 1C8E2 72D4 FTYP5O GOSUB RTODP Restore pointers 
294 * File name: bytes 13-20 
295 1C8E6 7BF5 GOSUB = D1+13B Point at nane in header 
296 1C8EA 113 A=R3 Retrieve nane passed to ne 
297 1C8ED 1517 DATI=A W 
298 * Creation date: bytes 9-12 
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299 
300 
01 


We 
H3 


H4 
5 
H6 
x? 


8 
09 
310 


311 
312 
313 


314 


315 
316 
31? 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 


329 
330 
331 
332 
333 
334 
335 
336 
33? 
338 
339 
340 
341 


es 
ce 


343 
344 
345 


1C8F1 
1C8F8 
IC8FF 


10906 
10909 
1C90C 
1C9OF 


1C916 
1€919 
1C91C 


1€923 
1€926 
10929 


1C9H 


1093? 
1C93B 
1C93E 
1941 


10945 
10948 
1C948 
10940 
1C94F 
1C€951 
10954 
10956 
1958 


1C95E 
1C962 
1€964 
1C967 
1C96A 


1C96E 
1C972 
10975 
10978 
1C97C 
1C97F 
10982 
10984 
1C986 
1C98A 
1C980 


8F00 
000 
8F00 
000 
8F00 


RFS 
108 
AF6 
8FOO 
000 
ADO 
ARO 
8FO0 
000 
AFA 
118 
8F0O 
000 
8F0O 
000 
7074 
178 
178 
15D? 


iC3 
143 
D2 
£6 
23 
316 
01 
20 
33€8 
94 
1§D3 
D2 
B26 
1CD 
15D3 


7044 
16F 
164 
1624 
16A 
142 
Be 
cF 
3115 
946 
60 
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* Truncating year to lower 2 digits will put us in 
* — leap-century. 


GOSBYL 
COSBVL 
COSBVL 


Bev 


C 
0 


oc 


B 
A 
SBYL 
0 
0 
5 


Srn 


BYL 


A=C 
C=RO 
GOSBYVL 


GOSBYL 


GOSUB 

01=D1+ 
D1=D1+ 
DAT1=C 


=S$101 
=CMPTIN 
=TOOT 

W 


W 
=DAYYND 


4 

KS 
=YMDDAY 
W 
=FROMDT 
=RCO1 
RTODP 

9 


9 
8 


Stash RO & Ri 

Conpute tine 

To date and tine-of-day 
Stash tine-of-day 


Day# 
To y,",d 


Truncate year 
To day# 


To tire in secs 


Restore RO & R1 


Point at date 
Write it out 


* Subfornat and track#: bytes 0-1 


D1=D1- 
A=DAT1 
C=0 
C=C+1 
p= 

PARC 
GOYES 
p= 

LC (4) 


DATI=C 
C=0 
FILCO? C=C+1 
01=01- 
DAT1I=C 
* File length: 
GOSUB 
DO=D0+ 
DO=D0+ 
A=DATO 
DO=D0+4 
A=DATO 
C=0 
p= 
LOHEX 
PAHC 
GOYES 


2%? 

A 

A 

A 

3 

WP 
FILCO? 
0 
LIFIR 


4 
A 

KS 

ory. 

4 
bytes 5-6 
R1 TODO 
16 

5 

S 

11 

A 

A 

15 

51 

S 
FILC10 


Point at filetype field 


Lifl filetype 


Is thas lifl file? 
No. subfornat=01 


HP-75 lifl filetype 


Write to header 
Subfornat=00 

Track#=01 

Point at subfornat 

Write subfornat & track# 


Point at flags hinib 
Read copy code 


Read file chain length 
A[A]=5 (Chlen fld size), A[S]=1 


Copy code=1? 
No 
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Wo iC98F 3100 LCHEX 00 ALRJ=13 (Chlen + inpfld size) 
347 10993 A44 = FILC1O A=AHA S Copy code=8? 

38 10996 5F1 GONC FILCI2 No 
343 10999 18F DO=D0- 16 Yes. point at filetype 
350 1C99C 15A3 A=DATO 4 
351 1C9R0 8F0O GOSBVL =POLL Poll for card write routine 
000 
352 1C9A? 42 CON(2) =pWCRD8 
353 1C9A9 831 ?XM=0 Was it handled? 
354 1C9AC 60 GOYES FILCAB Yes. finish up. 
355 1C9RE 60B5 GOTO FTYPER Error out 
356 1C9B2 6055 FILCAB GOTO BUFDAL 
357 1C9B6 D8 FILC12 B=A A Hold chain len 
358 1C9B8 AFO A=0 W 
359 1C9BB 132 ADOEX Fetch pointer to chain len 
360 1C9BE 130 DO=A 
361 1C09C1 CA A=A+C A Point at data field 
362 1€9C3 101 R1i=A Store new file pointer 
363 1C9C6 D4 A=B A Get chain length 
364 1C9C8 EA A=A-C A Size of data field 
365 1C9CA €4 A=A+1 A For rounding 
366 1C9CC 8iC ASRB Size of data field in bytes 
367 1C9CF 24 P= 4 
368 1C9D1 908 ?AS P Size <= FFFF bytes? 
369 1(9D4 AO GOYES FILC14 Yes 
370 1C9D6 1D00 D1=(2) =eF2B1G 
371 1C9DA 6E56 GOTO errout Error out 
372 1C9DE 14F  FILC14 C=DAT1 B Read subfornat 
373 1C9E1 AGE C=C-1 B Set carry if subfornat=0 
374 1C9E4 Dé C=A A Copy filesize in bytes. 
375 1C9E6 129 CRIEX 
376 1C9E9 8EC1 GOSUBL aslu5 Doesn’t affect carry. 
80 
377 1CSEF DA A=C A 
378 1C9F1 121 AR1EX Filesize to R1[9-5] and A[A]. 
- 379 1C9F4 SCO GONC FILC15 Go if not LIF1 file. 
380 1C9F7 CC A=A-1 A Decrenent A[2-4] if A[B]=00. 
381 1C9F9 REO A=0 B Must pad to sector boundary. 
382 1C9FC AOC A=A-1 8B 
383 1C9FF E4 A=A+1 A 
384 1€A01 179 = FILC15 Di=D1+ 2%6 Point at file length field 
385 1CA04 1593 DAT1=A 4 Write out 
386 1CAO8 20 P= 0 
387 1CROA D2 C=0 A 
388 1CROC 3102 LC(2) 32 
389 1CA10 C9 C=B+C A #nibs to sun for marker 
390 1CA12 18F DO=D0- 16 
391 1CA15 18F DO=D0- 16 Point at start of file header 
392 1CA18 8FOO GOSBVL =CSLWS 
000 
393 1CRIF 136 CDOEX 
394 1CA2Z2 108 RO=C Stash info for marker conputation 
395 * Inplenentation field: bytes 21-24 
396 1CA25 134 Do=C Restore file hdr pointer 


397 1CA28 1C9 D1=D1- 2%5 
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398 
399 
400 
401 
402 
403 


404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 


iCAZB 
1CR2E 
1CA32 
1CA35 
1CA3? 
1CA33 


1CA40 
1CA43 
1CR47 


1CA4B 
1CA4E 
1CA51 
1CA55 
1CR59 
iCASC 


1CAGO 
1CA64 
1CR6? 
iCREA 


1CA6D 
1CA71 
1CR874 
1CR76 
1CA79 
1CA?7C 
1CA7E 
1CA80 
1CA83 
1CA85 
1CA89 
1CA8D 
1CA91 
1CA94 
1CA98 
1CA9B 
i CASE 
1CRAO 
1CAR4 
1CRR8 
1CAAB 
ICARD 
1CAB1 
1CRB4 
1 CABS 
1CABB 
1CABD 
1CAC1 
1CAC4 
iCACE 
iCACE 
iCACA 


14B 
70B4 
960 
£0 

20 

8F OO 
000 
560 
7313 
15D? 


118 
134 
7FA7 
7593 
177 
1593 


7502 
1C5 
149 
842 


7743 
171 
DO 
147 
REA 
F6 
F6 
9EA 
EO 
7544 
7844 
6574 
B6A 
7513 
177 
36C 
31 
1583 
7AR3 
SRE 
60 
7CFe 
1C3 
15D3 
114 
D8 
7157 
862 
40 
DO 
EA 
570 
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A=DAT1 
GOSUB 
?RHO 
GOYES 
p= 


GONC 


B 
01+21B 
B 
FILC16 


0 
GOSBVL =BLANKC 


FILC18 


FILC16 GOSUB IMPFLO 
FILC18 DATI=C 8 
* Marker: bytes 25-26 


* #tracks in set: byte 2 


* Next: 
FILC40 


FINCRO 


FILC45 


FILC5O 


FILC60 


DO=C 
GOSUB 
GOSUB 
01=D1+ 


csruS 
CHKSUM 
2*4 


DATI=A 4 


GOSUB 
D1=01- 


MAXTRK 
2*3 


DAT1=A B 


ST=0 


start card urite loop 


GOSUB 
D1=D1+ 
A=0 
C=DAT1 
A=C 
CSR 
CSR 
?C>=A 
GOYES 
GOSUB 
GOSUB 
GOTO 
A=A-C 
GOSUB 
01=D1+ 
AHO 
GOYES 


2 
RTODP 


aopDwowowr pn 


FILC4S 
crlfnd 
noscrl 
BUFDRL 
B 
LCTRKS 
2%4 

B 
FILC5O 


A=DAT1 4 


GOSUB 
7CHO 
GOYES 
GOSUB 
01=D1- 


idiva 
A 
FILC50 
LOTRKS 


ene 


DATI=C 4 


A=R1 
B=A 
GOSUB 
?ST=0 
GOYES 
A=0 
A=A-C 
GONC 


R 
asru5 
2 
FILC60 
A 

A 
FILC70 


Page 9 


Read subfornat 

Point at imp field in card hdr 
Subfornat=07 

No 

Yes. use passuord=blanks 


B.E.T. 
Conpute inplenentation field 
Write out imp field 


Point at start of file hdr 
#nibs to checksur 

Conpute marker 

Point at marker field 


Point at #tracks field 


Indicate haven’t started padding. 


Point at trk# 


Current track# 


Max < current track#? 
No 
Clear display 


Yes... done. deallocate & rtn. 
Current trk#-last trk# 
Size of full data field 
Point at filesize 

Is this last track? 

No 

Yes, read filesize 
Filesize nod trksize to b 
Nod=0? 

No, this 1s tracksize 

Yes, final card is full 
Point at trksize 

Write #bytes in this track 


Hold data pointer 

bytes left to urite 

Have we started padding? 

No, 

Yes. This whole track 1s pad. 
Valid data left to write. 

Go if entire track data. 
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452 
453 
454 
455 
456 
45? 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
430 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 


ICACD 852 
1CADO F8 
1CAD2 753? 
ICADE D4 
1CAD8 101 
1CADB 7B81 
1CADF 7B03 
1CRE3 75F3 
1CRE? 1593 
1CAEB 7BA2 
CREF 112 
1CAF2 130 
1CAF5 20 
1CAF? D2 
1CAF9 3144 
1CAFD CA 
1CAFF 131 
1CBO2 78E2 
1CBO6 D6 
1CBO8 B94 
1CBOB BB4 
1CBOE R6R 
1€B11 1593 
10815 7214 
1€B819 53 
1CB1B 1D00 
1CBIF 7025 
1CB23 560 
1CB26 6293 
1CB2A 7934 
ICB2E 7£33 
1CB32 48E 
1CB35 23 
1CB37 918 
1CB3A EO 
1CB3C 1000 
1CB40 7474 
1CB44 66DF 
1CB48 2F 
1CB4A 301 
1CB4D 75A5 
10851 42F 
1CB54 7635 
10BS8 796 
1CB5C 47E 
1CBSF 7£55 
1CB63 40E 
1CB66 7021 
1CB6A 7841 
1CB6E 45D 
10B71 7186 
1CB75 4EC 
10B78 7545 
1CB7C 47C 
1CB7F 7711 
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FILC70 


FILC75 


FILC76 


FILC#® 


FILI00 
FIL120 


ST=1 2 

A=-A A 
GOSUB aslu5 
A=B A 

R1=A 

GOSUB PREPDT 
GOSUB CHKSUM 
GOSUB 01+29B 
DATI=A 4 
GOSUB FNDPRT 
R=R2 

DO=A 

P= 0 

C=0 A 
LC(2)  2*34 
A=A+C A 

Di=A 

GOSUB CHKSUM 
C=A A 

ASR WP 

ASR X 
A=A+C  B 
DAT1=A 4 
GOSUB fpoll 


CON(2) =pWCRD 
01=(2) =elALGN 
GOSUB ALIGN 
GONC FILC76 
GOTO RTNABT 
GOSUB RDYTRK 
GOSUB RDSOC 
GOC - FILC75 
P= 3 

R20 oUP 
GOYES FIL120 
D1=(2) =ePROTD 
GOSUB WRMSG 
GOTO FILC75 
P= 15 
LCHEX 1 
GOSUB READCS 
GOC  —- FILI00 
GOSUB RITE 
GOSUB WRT2-0 
GOC —- FIL100 
GOSUB URITFL 
GOC —- FIL100 
GOSUB PREPHD 
GOSUB TOCARD 
GOC - FILt00 
GOSUB WRT2-0 
GOC  FIL100 
GOSUB WRITFL 
GOC  - FIL100 
GOSUB PREPDT 
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We will pad. 
This much padding. 


Restore. 

Prepare for checksun calculations 
Checksun of this track 

(d1 still at trksize) 

Write data checksun 

Compute PSS information 


Point to header 


Length header thru data cksun 


Point at header cksun field 
Conpute 2-byte checksun of hdr 


Corpress to 1 byte 

Write hdr cksun & zeroes 
Card write poll 

"uz align card, hit key” 
Go if no abort 

"rdy (trk#) of (#trks)" 
Get past soc stuff 

Error 


Write-protect field = 0? 
Yes 


No. "Protected" 


Read fifth byte 


Ok. switch to write node. 
Write 16 zeroes 


Set flgsrv 


Prepare to write header 
Copy to card 


Field separator of zeroes 
Set flgsrv 


Prepare to urite data 
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507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
621 
Bice 
523 
524 
525 
526 
$2? 
528 
529 
530 
531 
$32 
§33 
534 
535 
536 
537 
538 
§39 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
653 
554 
555 
556 
55? 
558 
559 
560 
561 


1CB83 
1CB87 
1CB8A 
1CB8D 
1CB91 
10B94 
1CB96 
1CB98 
1CB9B 
1CB9E 
1CBRO 
1CBA3 
1CBA7 
1CBAA 
1 CBAC 
1 CBRF 
1CBB3 
1CBB? 
1CBBB 
1CBBF 
1CBC2 
1CBC6 
1CBCA 
1CBCE 
1CBD1 
1CBD5 
1CBD3 
1CBDD 
1CBEO 
1CBE3 
1CBE5 
1CBE9 
1CBED 
1CBF 1 
1CBF5 
1CBF9 
1CBFD 
1€C00 
10C03 
1€CO5 
10008 
1CCOB 
1CCOD 
1€C10 
10C14 
1€C17 
1CC1A 
ICCIC 
1CC1E 
1(C21 
10024 
10028 
1CC2B 
1CC2E 
1(030 


7231 
4CB 
119 
7376 
872 
40 
D2 
81E 
81E 
dD? 
AFO 
7245 
4FD 
CF 
56F 
7585 
7CF4 
1D00 
7194 
560 
66F2 
7093 
72R2 
48E 
75E4 
7180 
7814 
49D 
831 
EO 
1D00 
7803 
6D2F 
75C4 
7190 
78F0 
498 
831 
50 
5FD 
862 
F2 
119 
70F5 
S1E 
S1E 
0? 
CF 
4B1 
851 
77B4 
4£8 
861 
7B 


e7 
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FIL130 


FIL140 


FIL150 


VF YOOO 


VFYO10 


VFYO35 


VF YO40 


VF YO60 


VFYO70 


GOSUB 
GOC 
C=R1 
GOSUB 
?ST=1 
GOYES 
C=0 
CSRB 
CSRB 
D=C 
R=0 
GOSUB 
GOC 
D=D-1 
GONC 
GOSUB 
GOSUB 
D1=(2) 
GOSUB 
GONC 
GOTO 
GOSUB 
GOSUB 
GOC 
GOSUB 
GOSUB 
GOSUB 
GOC 
?XM=0 
GOYES 
D1=(2) 
GOSUB 
GOTO 
GOSUB 
GOSUB 
GOSUB 
GOC 
?XN=0 
GOYES 
GONC 
?8T=0 
GOYES 
C=R1 
GOSUB 
CSRB 
CSRB 
D=C 
b=D-1 
GOC 
ST=1 
GOSUB 
GOC 
*ST=0 
GOYES 
p= 


TOCARD 
FIL100 


csru5 
2 
FIL140 
R 


A 

W 
WRIT8S 
FIL130 
A 
FIL150 
WAITM+ 
CRDOFF 
=eVALGN 
ALIGN 
VFYO10 
RTNABT 
RDYTRK 
RDSOC 
VF YOOO 
READFL 
PREPHD 
VFEYCRD 
VF YOOO 


VF Y040 
=eVFYER 
WRNSG 
FILC75 
READFL 
PREPDT 
VFYCRD 
VF YOOO 


VF YO60 
VFYO35 


9 


c 
VF YO80 


csru5 


A 

A 

VF YO80 
i 
RD&SV 
VF YOOO 
1 
VFYO35 
7 
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Transfer to card 
Error 


Prepare for 0’s at end. 

Last track? 

Yes. This is #bytes to pad. 
No. Pad zero bytes. 


Will write #rnod4 + 4 bytes of 0. 
Hold counter. 

For write. 

Write 

Go if fail. 

Decrenent counter. 

Back for nore. 


Done writing 
“vz align card, hit key" 


Get past soc stuff 

Go if error 

Set flgsrv for header field 
Prepare to corpare hdr field 
Verify card 


Verify successfully? 
Yes 


"verify error” 

Try again 

Set flgsrv for data field 
Prepare to conpare data 
Verify 


B.E.T. 
Last track? 
No. 


Yes. This # O-bytes to expect. 


Will read # nod 4 bytes. 
# reads to do. 

Verify zero-fill loop 
Go if done verifying. 


Read. 

Go 1f error. 

Data error? 
Yes...Verify error. 
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562 1€€32 91C RHO | OP Zero? 
563 1€€35 OB GOYES VFYO35 No, verify error. 
564 1(C37 54€ GONC = VFYO70 Yes. On to next read. 
565 1C03A 7574 VFYO80 GOSUB CRDOFF Turn off card reader. 
566 1CC3E 7A63 GOSUB TRKDON 
567 1€€42 7271 GOSUB RTODP 
568 1((46 175 D1=D1+ 2*3 Point at trksize 
569 1(€49 D2 C=0 A 
570 1C€C4B 15F3 C=DAT1 4 
571 1CC4F C6 C=C+C A Tracksize in nibbles 
572 1€€51 111 A=R1 
573 1€(54 CA A=A+C A 
574 1€(56 101 Ri=A Update file pointer 
575 10€59 1C3 D1=D1- 2%2 
576 1CC5C 148 A=DAT1 B 
577 1CCSF B64 A=A+1 B Increnent track# 
578 1CC62 149 DAT1=A B 
579 1(€65 670E GOTO FILC40 Write next track 
580 2 IOI ITO TOO III ITO OT SII TC IK 
581 JI ICIS OOO IK 
582 ia 
5383 aS Narie:(S) pWCRD8 - Poll To Write Copycode 8 File To Card 
584 % 
585 ** Category: POLL 
586 ax 
587 tk Type: POLL 
588 ae 
589 *k Purpose: 
59 xx Allow handler to copy a file with copycode of 8 out to 
591 xx card. 
592 - 
593 xk Should poll be "Handled" (return with XM=0)?: 
594 xx Yes, 1f you do the copy. 
595 a 
596 ** Heaning of “Handling” Poll (what does code do if handled): 
597 xe The copy has been performed. The WHOLE thing... 
598 * prompting, writing, verifying, etc. The copy code 
599 7 Will perforn a normal exit. If poll 1s not handled, 
600 Rx copy code perforns an eror exit. 
601 gis 
602 ** Entry conditions for handler (registers, ST, RAN, etc.): 
603 aX Carry set on entry. 
604 x B[A] = Poll nunber. 
605 aK HEX node. 
606 = P=0. 
607 x Card header buffer (ID=bCARD) has been allocated and 
608 ax set up (as per FILCRO header) with: 
609 aK Nane 
610 an Filetype 
611 a Creation date 
612 et Subfornat and track#. 
613 a Ri[A} points at start of file header. 
614 aa R2(A] points at card header I/Obuffer (past header). 
615 a A[3-0] contains filetype. 


616 a 
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617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
623 
6H 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 


** Nornal exit conditions fron handler if handled (ST, RAN, 
** registers, etc.): 


ae HEX rode. 
kk XM=0. 
ax 


** Nornal exit conditions fron handler if not handled (ST, RAM, 
** registers, etc.): 


es HEX node. 

aK XM=1. 

kk 

** Available subroutine levels: 

kK 5 

ak 

** What registers/RAN nay be used if handled?: 

ae A-D, DO, D1, P, RO-R4, all scratch RAN. 

ak 

** What registers/RAM nay be used if not handled?: 
xh R-D, DO, D1, P, RO-R4, all scratch RAM. 

ax 

** Envisioned application(s): 

ae Soriebady’s got to know how to copy out a file with a 
a crazy copycode like 8. 

ak 

** History: 

kA 

xx Date Prograrimer Modification 
PR Sebeven! “geen Sts e Dean few aud ae 
xx 08/01/83 NM Added docunentation 

kx 


JOTI I OOO ITT OTTO OO TOTO TO TO II TOK 
FORO TI TOIT TOTO OTTO TIT TC 
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648 STITLE Copy to card utilities 
649 JO ICICI TOO TT TER ITT ITT I TT TIE 
650 JOTI IIIS ICICI TOOT TTI SO AT IR TI TE 
651 AR 
652 ** Nane: MRXTRK - Conpute Max Trk# For Card Set 
653 eR 
654 ** Category: LOCAL 
655 xk 
656 ** Purpose: 
657 a Corpute # tracks a card set will require. 
658 aR 
659 ak Entry: 
660 ax R2 points at card header I/Obuffer. 
661 Kx 
662 KR Exit: 
663 Ka A[B] = nax trk#. 
664 xk D1 points at filesize field in header I/Obuffer. 
665 xt 
666 A& Calls: LCTRKS, IDIVA. 
667 ax 
668 AX Uses.....05 
669 aK A,B,C,01,P. 
670 aR 
671 *k Stk lvls: 1 
672 ak 
673 ** Detail: 
674 - Reads filesize from card header I/Obuffer. 
675 x 
676 ** Algorithn: 
677 aR Read filesize. 
678 BK Compute filesize/tracksize. 
679 kk Add 1 to result if remainder > 0. 
680 ar 
681 ** History: 
682 a 
683 a Date Progranner Modification 
684 KX foestosod “Seecitscesk: “4d cece reucos ee Sec See b eee Sou 
685 7 06/21/82 NM Added docunentation 
k 
a JIG RII ITO TOTO SI SOT TTI SII II III ATI IIS IITA III IIIA 
688 III IIIT TI TOIT TI SI ITI OTIS ISAT TRI IA IIIA 
689 1CC69 11A MAXTRK C=R2 
690 1CC6C 135 DI=C 
691 1CC6F 179 D1=D1+ 2%5 Point at filesize 
692 1CC72 DO A=0 A 
693 1CC74 15B3 A=DAT1 4 bytes in this file 
694 1(C78 7131 GOSUB LCTRKS #bytes/track 
695 1CC7C 7201 GOSUB idiva Filesize/cardsize=#tracks 
696 1C(C80 8AS *B=0) OR Any renainder? 
697 1CC83 © RTNYES No 
698 1(C85 B64 A=A+1  B Yes, add 1 trk for frac card 
699 1CC88 01 RTN 
700 JOO IO IO ITO TOIT IIIT III ITI III AIR II 
701 III ICICI OCCU ITO I IIIT 


702 ae 
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703 

704 

705 

706 

70? 

208 

709 

710 

711 

712 

713 

714 

715 

716 

a1? 

718 

713 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 1CC8A 117A 
735 1CC8D 134 
736 1€C90 D2 
737 1CC92 20 
738 1€€94 3184 
739 1CC38 04 
740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

7§3 

754 

750 

756 

75? 


** Nane: PREPHD - Prepare To Write/verify Hdr Field 
aK 


** Category: LOCAL 


kk 
** Purpose: 

xs Set up pointers to do a write or verify of card header 
x field. 

kK 

kX Entry: 

an R2 points at card header I/Obuffer. 

ek 

me PRAY: 

ae DO=R2. 

an C{RA]=size of header I/Obuffer (72 nibbles). 

xx P=0, 

ak 

** Calls: None. 

ak 

AX US0S...00005 

as DO,P,C. 

&K 

xX Stk lvls: 0 

tk 

** History: 

tok 

*k Date Progranrier Modification 

ie ete Vena tee del. Nolet ete See he eee he te 
Xk 06/21/82 NM Added docunentation 

kx 


FORGO OI OTIC IOI ICO III 
FOR III IIIT IIIT IO TIT ITI TT IID III ITI TKI KITT IN 


PREPHD C=R2 
DO=C Point at header 
C=0 R 
P= 0 
iC(2) 72 Will do 72 nibs 
RIN 


FOR OOO IIIT TO TO II OO TI TI 
FOI III III SITTIN 
a 


** Nane: PREPOT - Prepare For Write Or Verify 
k 


** Category: LOCAL 


xk 

** Purpose: 

a Set up pointers for a write or a verify. 

kk 

** Entry: 

a R2 points at header 1/Obuffer. 

ak R1[A] points at start of data for this track. 
Kk R1[9-S]=size of padding at end of card set write. 
ax S2=1 if this is last card in set. 

ka 

Gege 28S 

eA DO=R1. 
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758 ak D1=R2. 
759 xR C{AJ=tracksize in nibbles. 
760 aR 
761 ** Calls: RTOOP. 
762 aK 
763 KA Uses....... 
764 ak A,C,00,D1. 
765 ae 
766 **k Stk lvls: 1 
767 aK 
768 ** Detail: 
769 aK Reads tracksize fron header I/Obuffer. 
770 ak 
771 ** History: 
772 aK 
773 aR Date Progranner Nodification 
774 RX eStececds: cevteseeal) “aSdck tot phe oe eee tol See cee 
775 Kk 06/21/82 NN Added docunentation 
aK 
ue OURO TORR RIOT OOOO OOO OOK 
778 FOUR TORII III TOIT I IOI 
779 1CC9R 7A11 PREPDT GOSUB RTODP 
780 1CC9E 175 D1=D1+ 243 
781 1CCR1 D2 C=0 A 
782 1CCR3 15F3 C=DAT1 4 Tracksize in bytes 
783 1CCA? 862 *$T=0 2 Is this last track? 
784 1CCAA BO GOYES PREPD1 No. 
785 1CCAC 111 A=R1 Yes. 
786 1CCAF 7F55 GOSUB  asru5 Padding size in bytes. 
78? 1CCB3 E2 C=C-A A Subtr padding size fron trksize 
788 1CCBS C6 PREPD1 C=C+C A Size of data field in nibbles. 
789 1CCB? 01 RIN 
790 JI ITI TI TOTO TTI II IO IIS IAI TT TTI III TOT 
791 FOO ROTI JOU OTTO UT OR TOIT 
792 aK 
793 ** Narie: TOCARD - Write To Card 
794 oa 
795 ** Category: LOCAL 
796 ak 
797 xX Purpose: 
798 a Write specified amount of nenory to card. 
799 a 
800 xk Entry: 
801 ae Card 1s moving. 
802 ae BRKSRV has been set if needed. 
803 x DO points at nerory to be written. 
804 an C[AJ=#nibs to write. 
805 xk 
806 ER ERIE: 
807 xe Carry clear if write successful, else WRIT8S reported 
808 ae an error. 
8039 ax 
810 ** Calls: WRIT8S. 
811 oe 
812 aX Uses....... 
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813 
814 
815 
816 
317 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
885 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 


1CCBS AD3 
iccBC D7 
1CCBE A??7 
1CCC1 817 
1cCC4 CF 
iCCC6 421 
iCCC9 15A7 
1CCCD 167 
i1CCDO 7514 
1CCD4 SFE 
ICCD? 01 
1CCDS ACB 
CCDC S1E 
iCCDF AFO 
ICCE2 800F 
iCCEb OD 
1CCE8 4ARO 
iCCEB 1521 
iCCEF 69F3 
TCEF3. 03 
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ax A,C,D,P,01,B8{B],S1 
xx {R,B,C,0,D0,RO,scratch RAM if error} 
xk 
xk Stk lvls: 2 
ak 
xk Detail: 
a If there is a partial write at the end (<8 nibs), it 
aa is padded with zeroes. Otherwise, there are no 
aK trailing zeroes. 
&k 
** Algorithn: 
ak D[A}=C(A] dav 8; D[S]=[C[A] nod 8] * 2. 
xk { # full writes to D[A], size of partial urite * 2 to 
a D{S] } 
ak 4; If D[A]=0 then goto 2. 
a Read data at DO. 
ae Write data to FIFO. 
xx RTNC if error. 
an Goto 1. 
kK 2: P=D[S]/2 - 1. 
ax If carry set on subtract { D[S] was O } then RTNCC. 
xx A=0. 
ax Read data{WP] at DO. 
ak Write data to FIFO. 
kk RTN. 
aK 
** History: 
ak 
. Date Progranner Modification 
Bo eee GRIN a ees i ee 


*k 06/21/82 NN 


KK 


Added docurnentation 


FOI IOI TO OOOO TOTO TO OTTO TTT OK 
FOO OJOS TT TTT TOOK 


TOCARD 


TOCAIO 


TOCAZO 


TOCA30 


D=0 n 

D=C R 

D=D+D W 

DSRC Hurites in d[a],frc*2 in [s] 
D=D0-1 A Any tore full writes? 

GOC TOCA20 No 

R=DATO 8 Yes, read data 

DO=DO+ 8 


GOSUB WRIT8S 
GONC TOCAIO 
RTN 


Write it 
Go if successful 
Return Carry set 


C=D S 

CSRB 

R=0 W Roon for frac write 

P=C 15 Size of final write an nibs 
P=P-1 Anything to write? 

GOC TOCA30 No. 

R=DATO WP Read frac write 

GOTO WRIT8S Write 

RINCC 


OOOO TOI ROO OI IFO IOI OK 
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868 JES IIIT CCI OC TTT TTT TIE 
869 aK 
870 ** Nane: VFYCRD - Conpare Card To Menory 
871 ah 
872 ** Category: LOCAL 
873 aR 
874 ** Purpose: 

875 kk Verify that card was uritten correctly. 
876 ak 

877 xk Entry: 

878 ak DO points at nenory. 

879 ak C[A]=#nibs to conpare. 

880 kK 

881 Ak Exit: 

882 ns Carry set if READ8S reported error. 
883 aR Else XM set if verify error. 

884 xn 

885 *k Calls: RD8SV. 

~ 886 aK 
887 SE USOS ride deg 
888 aR A,C,D,P,01,B(B], XM, $1 
889 ak {A,B,C,0,D0,RO, scratch RAM if error} 

890 ka 
891 tk Stk lvls: 2 
892 aE 
893 ** Algorithn: 
894 ah XN=0 
895 x D[A]=C(A] div 8; D[S]=[C[A] nod 8) * 2. 
896 ax { # full writes to D[A], size of partial write * 2 to 
897 ak D[S]} } 
898 *k 1: If D[AJ=0 then goto 2. 
899 ae Read data at DO. 
900 aK Read data from FIFO. 
901 ak RINC if error. 
902 ak RTINSKM (wath CC) if compare failure. 
903 ak Goto 1. 
904 kk 2: P=D[S]/2 - 1. 
905 el If carry set on subtract { D[S] mwas 0 } then RINCC. 
906 ak A=0. 
907 kk Read data[WP] at DO. 
908 ae Read data fron FIFO. 
909 RK RTNC if error. 
910 ak RTNSXM (with CC) if compare failure. 
911 ak RTNCC. 
912 ak 
913 *k History: 
914 ak 
915 ae Date Progranner Modification 
916 OH. DES. lenge * vee tee oh dae ed ate ees 
917 ** 06/21/82 NN Added docunentation 
a 
a JOU III ISIS OIC OCCT TIO TTI TK 
920 JERI OO OCI TIT IIIT III SOS II III SS TS III IT SSIS IS 
21 1CCFS 821 VFYCRD XN=0 


922 1CCF8 ADS 


D=0 q 
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923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
94? 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
358 
959 
960 
361 
362 
963 
964 
365 
966 
967 
968 
369 
970 
971 
972 
973 
974 
975 
976 
977 


1CCFB D? 
1CCFD A?? 
1CD00 817 
1CDO3 CF 
10005 412 
10008 851 
1CDOB 7003 
1CDOF 400 
10012 861 
10015 F3 
1001? 15€? 
10018 167 
ICDIE 27 
1CD20 912 
1(D23 OE 
1CD25 00 
10027 81F 
1CD2A R4F 
1CD2D 45C 
1(D30 851 
1(D33 78A3 
1€D37 400 
1CD3A 861 
1CD3D 71 
1CD3F ACB 
1CD42 80DF 
10046 AF2 
10049 1561 
1CD4D 2? 
1CD4F 912 
10052 1A 
1CD54 24 
10056 OD 
1€D58 00 
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D=C A 
D=D+D W 
DSRC 
VFYC10 D=D-1 A 
GOC VFYC20 
ST=1 1 
GOSUB RD8SV 
RTNC 
?ST=0 1 
GOYES VFYC30 
C=DATO 8 
DO=D0+ 8 
P= 7 
?R=C WP 
GOYES VFYC10 
RTNSXN 
VFYC20 DSRB 
D=D-1 §$ 
GOC TOCA30 
ST=1 1 
GOSUB RD&8SV 
RTNC 
?ST=0 1 
GOYES VFYC30 
C=) 5 
P=C 15 
C=0 W 
C=DATO WP 
P= 7 
*A=C OP 
GOYES TOCA30 
VFYC30 P= 1 
P=P-1 
RTNSXM 


Fri Dec 3, 1983 3:35 an 
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Huwrites in d{a], frac*2 in [s] 
Any tore full-read conpares? 
No 

Tell WAIT that this is VFY 
Read 

Return 1f error or abort 

Data error found? 

Yes. Verify error. 

Data to coripare 


Match? 
Yes... next compare 
No. verify failure. 


Frac read to conpare? 

No. done 

Tell WAIT that this is VFY 
Yes. last read. 


Data error found? 
Yes. Verify error. 


Size of last conpare 

Read data fron nenory 
Conpare entire read (u/O0’s) 
Match? 
Yes. rtnec 
Clear carry. 
RTN x and cc. 


FORO ROOT TOTO OOO TOT ITO 
FOTO IIIT II OTITIS TTI ITT TT IN 


aK 


** Narie: INPFLD - Conpute Inplenentation Field 
a 

*k Category: LOCAL 

kk 

** Purpose: 

ae Conpute implementation field for output to card. 
ak 

** Entry: 

ex DO points at file header I/Obuffer. 

a 

MAORI? 

is RTNNC if copy code=8. 

RK Else C[7-0] contains inplerentation field. 
is 

** Calls: None. 

kk 

BRUGES) cows 

+ DO,C. 
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978 Rx 

979 ** Stk lvls: 0 

980 ae 

981 ** Detail: 

982 &k Copy code Inplenentation Field 

983 Rk +See 8 8=_ ee eceee meds Geos se 

934 * 0 File length in nibbles. 

985 ax 1 Inplenentation field from file 

986 ax (inmediately follows chain length field). 
987 ax 2 File length/16. 

988 Kk 4 00000000. 

989 ae 8 (Don’t know). 

990 RE 

991 &* History: 

992 ax 

993 kk Date Progranner Modification 

994 Ch eta: ee hetske -s6y rete Gente pd mete ceo ete 
995 kx 06/21/82 NM Added docunentation 

ka 

ae JU TO OOO ISI ITO OOS TTT IS SII SSSI IIS III 
998 JIT OTITIS IT TIS ISI IOS IIIS IIIS SOI ITI IS SII A 
399 1CD5A 16F IMPFLD DO=DO+ 16 

1000 1CD5D 164 DO=D0+ 5 Point at flags 

1001 1CD60 AF2 C=0 W 

1002 1(D63 1564 C=DATO $ Read copy code 

1003 1CD67 16A DO=D0+ 11 Point at file chain length 

1004 1CD6R A46 C=C+€ § Copy code=8? 

1005 1CB6D 458 GOC TOCA30 Yes. rtnec. 

1006 1€D70 A46 C=C+C § Copy code=4? 

1007 1€073 400 RTNC Yes. inp field = zeroes 

1008 1C€D76 146 C=DATO A Read link field 

1009 1079 136 CDOEX 

1010 1CD7C 184 DO=D0- 5 Subtract length of link field 
1011 1CD7F 136 CDOEX File length 

1012 1€D82 A46 C=C+€ S$ Copy code=2? 

1013 1f€D85 560 GONC IMPFIO No 

1014 1C€D88 F6 CSR A Yes. divide len by 16 
1015 1CD8A 01 RIN 

1016 1CD8C 94A IMPF1IO0 7C=0) = 6§ Copy code=1? 

1017 1CD8F 00 RTNYES No. return file len in nibs 

1018 1€D91 164 DO=D0+ 5 Yes. point at inp field 

1019 10094 15€7 C=BATO 8 Return inp field 

1020 1€098 02 RTNSC 

1021 JU II TO TIO II TIS ISS II ITI I IIIS II ISI IIIS III IIIT STII 
1022 JI III TOTTI III III COI III I IOI OTIS TIS II IIIS 
1023 ae 

1024 i Nane: FNDPRT - Fill In Partial Card Recovery Fields 
1025 . 

1026 ** Category: LOCAL 

1027 ds 

1028 *x Purpose: 

1029 ax Fill in partial card recovery fields in card header. 
10H = 

1031 &k Entry: 

1032 EX R2 points at card header. 
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1033 a 
1034 Re EMILS 
1035 ax Carry clear if successful. 
1036 x 
1037 ** Calls: 01+27B. 
1038 xe 
1039 tk Uses....... 
1040 x £, 01. 
1041 aK 
1042 *k Stk lvls: 1 
1043 ax 
1044 ** Detail: 
1045 ax Since partial card recovery was designed but is not 
1046 a being used, this rather sinple routine simply fills 
1047 gis the appropriate fields with zeroes. In case partial 
1048 xx card recovery is ever used, this is what goes into 
1049 a the partial card recovery fields: 
1050 x 
1051 a Partial statenent status (pss) field and s1 and s2 
1052 xe contain information for recovery of files which were 
1053 ax only partially read: 
1054 rm 
1055 - x partial statenent status (1): 
1056 ag bit# neaning 
1057 aX Sone . eeesese 
1058 ax 0 file unrecoverable(0)/recoverable(1) if 
1059 xe not all cards read 
1060 am 1 fill1(0)/pack(1) out missing tracks 
1061 xx 2 varilable(0)/fixed(1) length records 
1062 ao 3 zero(0)/one(1)-fill missing tracks 
1063 am (if bit #1 = 0) 
1064 ax 4 
1065 a 5 
1066 a" 6 add 1 nib to s2 
1067 ae 7 add 1 nib to s1 
1068 ae For files mith bit 0 set and bit 2 clear, st and s2 
1063 xs have the following neaning: 
1070 a s1: size of first partial line (start of data to 
1071 xe to end of line): in bytes 
1072 _ s2: size of last partial line (start of line to 
1073 es end of data): in bytes 
1074 es For files with bit 0 set and bit 2 set: 
1075 a si: record size 
1076 wa (this 1s needed for file header and for 
1077 a packing/zeroing missing records) 
1078 = 
1079 ies 
1080 k* Algorithn: 
1081 ie Zero-fill partial card recovery fields. 
1082 Be 
1083 ** History: 
1084 - 
1085 ax Date Progranner Modification 
1086 aaa ak aaah hatha aeciaciatatetiatad atateiaeteneetatatataiateiate 


1087 hk 06/21/82 NM Added docunentation 
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1088 ax 
1089 JI TI I IIT I I IIT IIIT IIIS IIIS III OSI IIS ITI ISS III III SII III ISAK 
1090 JOO TO III ITO IOI IOI ITI TT ITI TTT TIE 


1091 1CD9A 11A 

1092 1CD9D 135 

1033 1CDAO 7B31 

1094 1CDA4 AF2 

1095 1CDA? 15D9 

1096 1CDRB 03 

1097 

1098 

1093 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

111? 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

112? 

1128 1CDAD 20 

1129 1CDAF 34R8 
200 

1130 1CDB6 01 


FNDPRT C=R2 
b1=C Point at card header buffer 
GOSUB = 01+278B Point at PSS 
C=0 W 
DATI=C 2*5 Zero out pss area 


FOO OTTO TT OTT TI 
FORT RRO OT IOTTT OI 
we 


x Nane: LCTRKS - Load A Constant 
ak 


** Category: LOCAL 

&& 

** Purpose: 

ah Load constant corresponding to trksize in bytes. 
tk 


ak Entry: 

ah 

AeLERIES 

aR P=0, 

aK C[AJ=Tracksize in bytes. 
kk 


*k Calls: None. 
kk 

Kk Uses....... 

xr P,C{A]. 
kk 

kk Stk lvls: 0 

a 

** History: 

ka 


a Date Prograrner Modification 
ARS. (Skene (Ortaca  weetetoiien Dee a eee eae ee. 


kk 10/06/82 NN Proudly authored. 

kk 

JOO CII ICCD SOU OG IOI IO COI IK 
JORIS IOI SO IGG ICO TOO IOC 


LCTRKS P= 0 
LC(S) TRKSIZ 


RTN 
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1131 STITLE Card reader utilities 
1132 JOIST TCC O O TTI SSI IIT III II II 
1133 JI I IO TAI III II IIT III III III III IIIT III II IIIS ISS IO SII SII SISA 
1134 aK 
1135 ** Wane: RTODP = - Scratch Regs To DPs 
1136 ** Nane: R1T0D0 - Scratch Regs To DPs 
1137 Ke 
1138 ** Category: LOCAL 
1139 aK 
1140 ** Purpose: 
1141 ax Copy contents of scratch registers to DPs. 
1142 kx 
1143 ** Entry: 
1144 x 
1145 *k Exit: 
1146 Kx 
1147 ** Calls: None. 
1148 ax 
1149 ** Uses. ...... 
1150 KR A, dO, D1. 
1151 Km 
1182 ** Stk lvls: 0 
1153 a 
1154 ** Algorithn: 
1155 xx RTODP: D1=R2; DO=R1. 
1156 ak RITODO: DO=R1. 
1157 ak 
1158 ** History: 
1159 as 
1160 ak Date Progranner Nodification 
1161 RK wenn nn ee wenn nen ne re enn en nn nnn nnn nnn nen een een eee 
1162 Kk 10/06/82 = NM Wrote. 
1163 gia 
1164 JI III I OIC III OO II OI IIIT ITS STATIS 
1165 PEt CCTeCteeteeteetesttttescstcestttttettetetteetetttttsstttttt: 


1166 1CDB8 112 
1167 1CDBB 131 
1168 1CDBE 111 
1169 1CDC1 130 
1170 1CDC4 01 
1171 

W172 

1173 

1174 

1175 

1176 

117? 

1178 

1173 

1180 

1181 

1182 

1183 

1184 

1185 


RTODP = R=R2 
Di=A 
R1TODO A=R1 
DO=A 


JOIST I ITO IT TRE 
JOIST IIIT OTT I TT TI 
re 

** Nane: GETSOC - Read First Part Of SOC Field 


as 
** Category: LOCAL 


ax 

** Purpose: 

~ Read first subfield fron SOC field. 
ak 

** Entry: 

ae BRKSRV has not been set yet. 

xx HEX node. 

kt 

AX Exit: 


Ne 
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1186 ak Results of read in A[?7-0]}. 
1187 a Expected result in C[{7-0] (“HPCV"). 
1188 ae P=? for conparison. 
1189 aR CARRY as set by READS. 
1190 xt 
1191 ** Calls: READFL, READS. 
1192 ae 
1193 ak Uses....... 
1194 ae A[7-0],C[7-0],P,D01,8[B],S1 
1195 xk {A,B,C,0,D0,R0,scratch RAM if error} 
1196 xR 
1197 AK Stk lvls: 2 
1198 xR 
1199 *k History: 
1200 ak 
1201 ak Date Progranner Modification 
4202 Wes. Tgzi ote: ~ ee eeae, Neeinunssdacenel oats dot eee ose 
1203 ax 06/21/82 NM Added docunentation 
1204 ak 
1205 JOIST CITI OOK 
1206 SOI IOI OIC OO I I IO 
1207 1CDC6 GETSOC 
1208 1CDC6 70F2 GOSUB READFL Set flgsrv 
1209 1CDCA 7103 GOSUB READS Read soc field 
1210 1CDCE 20 P= 0 
1211 1CDDO 3784 LCASC \VCPH\ 
0534 
65 
1212 1CDDA 27 P= ? 
1213 1CDOC 01 RIN 
4214 JOIST TIT III III ATI ASA 
4215 JOIST TOI IT ITO IIIT AI TIA 
1216 ak 
1217 xx Narie: GETSIZ - Read Size Subfield Fron SOC 
1218 ae 
1219 *k Category: LOCAL 
1220 ak 
1221 ** Purpose: 
1222 a Read size subfield and prepare for testing it. 
1223 xk 
1224 ak Entry: 
1225 ae Card is noving. We have just read "HPCV" subfield 
1226 aK fron header. 
1227 ak 
1228 aK Exit; 
1229 xe Result of read in A[3-0]. 
1230 ak Expected result in C[3-0]. 
1231 ak P=3 for conparison. 
1232 ie Carry as set by READ8S. 
1233 aA 
1234 kk Calls: READSS. 
1235 = 
1236 *k Uses....... 
1237 xk AL?-0],C[5-0],P,01,8{B],S1 
1238 ax {A,B,C,0,D0,RO,scratch RAN if error} 
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1239 ae 
1240 RX Stk Ivis: 2 
1241 xk 
1242 ** History: 
1243 ak 
1244 ax Date Progranner Modification 
1245 aa aa aaa aaa aaa 
1246 06/21/82 NM Added docunentation 
a JOIST TIT IT TRI TI 
1249 JOO GOI II OOOO IIIS I IIT TIT 
1250 1CDDE 7AF2 GETSIZ GOSUB READ8S Read size fron soc field 
1251 1CDE2 20 P= 0 
1252 1CDE4 33CB LC(4) ( TRKSIZ)+50 We expect this trksize 
20 
1253 1CDEA 23 P= 3 
1254 1CDEC 01 
1255 JOIST OCOI OOO TOI TIS SII ITI IRIS I IK 
1256 JOSIE IOI III UI TOSI OTT TT TT I 
1257 aK 
1258 x* Narie: CHKSUN - Conpute 2-byte Checksun 
1259 ae 
1260 *k Category: LOCAL 
1261 ma 
1262 ** Purpose: 
1263 ax Compute 2-byte checksun of a block of renory. 
1264 ae 
1265 AX Entry: 
1266 ae DO points at start of nenory to be checksunned. 
1267 aK C[A]=H#nibbles to be checksunned. 
1268 a 
1269 AE ERI t* 
1270 xk 2-byte checksun in A[3-0]. 
1271 RR P=3. 
1272 ak 
1273 ** Calls: CHKS70. 
1274 ak 
1276 ek Uses....... 
1276 as A,B,C,P,DO. 
127? ax 
1278 ** Stk lvls: 1 
1279 ak 
1280 ** Detail: 
1284 ee Uses standard checksun with wraparound carry. 
1282 a 
1283 ** Algorithn: 
1284 a Clear B for checksun. 
1285 at C{3-O0]=Hnibs div 16: C[S]=#nibs riod 16. 
1286 ee 4: If C[3-0]=0 then goto 2. 
1287 nS Read 16 nibbles into A at DO. 
1288 ok Increnent DO by 16. 
1289 de Add A to B with wraparound carry. 
1290 aK Goto 1. 
1291 RRS Dee REO: 
1292 a Read partial word (C[S] nibbles) into A at DO. 
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1293 ak Add A to B with wraparound carry. 
1294 aK B{ 7-0 ]=B{7-0]+B[15-8] wath wraparound carry. 
1295 ak A[ 3-0}=B[3-0]+B[7-4] with wraparound carry. 
1296 ae RTN. 
1297 x 
1298 ** History: 
1299 a 
1300 xk Date Progranner Modification 
1301 RR ewer were enn ee ene n neem en mn ements en ne nem enemennnne 
1362 . 06/21/82 = NM Added docunentation 

* 
Le III I III ID IIS III III IIIT TTI IIIT IIIS ISI ISIS SSI SI III I SIS SSS SIS IIA 
1305 SIRI IAI II IIT IIT I IIIA IIIS IIIS IIIS SII SIL IIIS II III II IIIS IIS IIS 
1306 1CDEE AF1 CHKSUM B=0 W Roon for checksum 
1307 1CDF1 80D0 P=C 0 Frac word in P 
1308 1CDFS F6 CSR A # Words in C{A] 
1309 1CDF7 CE CHKS10 C=C-1 A Any nore full words? 
1310 1CDF9 451 GOC CHKS20 No 
1311 1CDFC 1527 R=DATO W Yes, read 
1312 1CEOO 16F DO=D0+ 16 
1313 1CEO3 A78 B=B+A W Add... carry? 
1314 1CEO06 SOF GONC CHKS10 No 
1315 1CEO9 B75 B=B+1 W Yes, wraparound 
1316 1CEOC SAE GONC CHKS10 B.E.T. 
1317 1CEOF OD CHKS20 P=P-1 Frac word=0? 
1318 1CE11 421 GOC CHKS30 Yes 
1319 1CE14 AFO A=0 W No, create space 
1320 1CE17 1521 A=DATO WP Read partial word 
1321 1CE1B A78 B=B+A W Add... carry? 
1322 1CE1E 550 GONC CHKS30 No 
1323 1CE21 B75 B=B+1 W Yes, wraparound 
1324 1CE24 AF4  CHKS30 A=B W 
1325 1CE27 27 = 7 
1326 1CE29 BF4 CHKS40 ASR W Loop to align half-words 
1327 1CE2C OD P=P-4 
1328 1CE2E SAF GONC CHKS40 
1329 1CE31 27 P= ? 
1330 1CE33 7010 GOSUB CHKS70 Coripress to 8 nibbles 
1331 1CE37 A98 B=A WP 
1332 1CE3R B94 ASR WP 
1333 1CE3D B94 ASR WP 
1334 1CE40 B94 ASR WP 
1335 1CE43 F4 ASR A Align quarter-uords 
1336 1CE45 23 = 3 
1337 1CE47? A10 =CHKS70 A=A+B WP Corpress to 4 nibbles 
1338 1CE4A 500 RTNNC 
1339 1CE4D B14 R=A+1 WP Wraparound carry 
1340 1CE5O 01 RTN 
1341 1CE52 8D00 idiva GOVLNG =IDIVA 

000 

1342 & 
1343 JI OI OI II IO TO TOTTI TIT II IIIS III III II III III III III IIIA 
1344 S IKK I ISIS ADI IIT ISI TI IIIS III I III III III III III III III ISI II ISIS 
1345 xs 
1346 a* Name: STDRG? - Check If File In Standard Range 
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1347 ak 
1348 *k Category:  FILUTL 
1349 an 
1350 kx Purpose: 
4351 iA Check filetype to determine if it 1s in standard range. 
1352 
1353 RX Entry: 
1354 aR Filetype in A[A]. 
1355 aK 
1356 kk Exit: 
1357 ak Carry set iff file is NOT in standard range. 
1358 a P=0. 
1359 ak 
1360 *k Calls: None. 
1361 aK 
1362 4k Uses... ..55 
1363 ae C{A},P. 
1364 ak 
1365 *& Stk lvls: 0 
1366 ax 
1367 ** History: 
1368 x 
1363 aK Date Programmer Modification 
1370 aaa nla anata ciate atta ate etiatatatatatenetatate 
1371 06/25/82 NM Added docunentation 
x 
ee J II IOI A SII I IT II TTT TSI OTT ISI III IIIS ISIS STS ISSSISS SI ST 
1374 SI IIIT III IITA I III IIIT ITI STII IIS ISI ST III III IIIS IISSI SSSI SIS ISI SIS 
1375 1CE59 20 =STDRG? P= 0 
1376 1CE5B 345D LCHEX OE€OD5 Lowbound of std range 
OE0 
1377 1CE62 8B2 *A<C OAR 
1378 1CE65 00 RTNYES Return if below 
1379 1CE67 32FF LCHEX 3FF Highbound of std range 
a 
1380 1CE6C E2 C=C-A A Set carry if arc 
1381 1CE6E 01 RTN 
1382 JI III DIDI TI DTT T ITT III TOTTI TTT SII III IIIS ITS IIS ISI I ISIS SSIS A 
1383 SI IIA ITI SIA DAD TSI ATI I TDD TTT IITA TI II II IIIS ST ISIS SI SIS SSSI SSK 
1384 ak 
1385 &* Narie: RDSOC = - Get Past SOC And WPROT Field 
1386 aK 
138? ** Category: LOCAL 
1388 x 
1389 ** Purpose: 
1390 Check SOC field and read WPROT field. 
1391 KS 
1392 kk Entry: 
1393 ak None. 
1394 ae 
1395 ak Exit: 
1396 a Carry set if read failure (reported before return). 
1397 kk Else A[7-O]=first 4 bytes of WPROT field. 
4338 =n 
1399 Cale: GETSOC, GETSIZ, READFL, READ8S {falls through to 
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1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 


1CE70 725F 
1CE74 400 
1CE7? 912 
1CE7A 60 

1CE7C 6200 
1CE80 7 ASF 
1CE84 400 
1CE8? 916 
1CE8A 2F 

ICE8C 7AZ2 
1CE90 6842 
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ae UNKCD if unknown card}. 

ak 

AR USES occa ys 

ee C{5-0},P,01,8(B),S1 

ak {A,B,C,0,D0,RO,scratch RAM if error} 

tx 

kK Stk lvls: 3 

th 

** Algorithn: 

ak GETSOC; RTNSC af error. 

ax Conpare to expected result {"HPCV"}, warn with eNCVD 
ak and RINSC 1f not natch. 

ak GETSIZ; RTNSC if error. 

kK Compare to expected result; warn with eNCVD and RTNSC 
aK if not natch. 

ak Set FLGSRV. 

ne Read first 4 bytes of WPROT field. 

ate RIN. 

ke 

** History: 

ak 

xx Date Progranner Modification 

1 Geaeecee., sitet meee suse eee ue tat eneae kei 
xk 06/25/82 NN Added docunentation 

a 


JOO IOI TO OI ITT TTI OT 
JOO ROTO JOO ITO OOOO IOI 


RDSOC GOSUB GETSOC Get soc field 
RTNC Return 1f error 
7A=C WP Is this HPCV card? 
GOYES RDSO5O Yes 

ROSO49 GOTO UNKCD No 

RDSO50 GOSUB GETSIZ Read card $size 
RTNC 
RHC OWP Right size? 
GOYES RDSO49 
GOSUB READFL Set flgsrv 
GOTO READ8S Read first 8 nibs of uprot 


JOO JOTI TOI JI ITI TTI TIT IOK 
SOR JOJO ITO OOO TIO 
ak 


*k Narie: CR?? - Prepare For Card Reader Operations 
ax 

*X Category: LOCAL 

kk 

xx Purpose: 

ie Verify presence of hardware; clear display. 

ae 

**X Entry: 

a None. 

ix 

AX Exit: 

sig Through MFERR if card reader hardware not present. 
BX Else RIN. 

aX HEX node. 


nd 
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1455 ax 
1456 kk Calls: CRPRS?, crlfnd {falls through}. 
1457 ak 
1458 *k Uses. ...... 
1453 ek A,B,C,D,P,00,D1,R0 
1460 ae 
1461 ** Stk lvls: 3 
1462 ax 
1463 ** Algorithn: 
1464 aK SETHEX. 
1465 an Read (=CR)+14. If zero {CR not present} error out. 
1466 ss Send COCRLF to display. 
1467 aK 
1468 ** History: 
1469 ax 
1470 aK Date Progratiner Modification 
1471 RK nnn ener ween nen eee n eee nee ten eee eee 
1472 xx 06/25/82 NM Added docunentation 

xx 
lan FO IOI JOO IOI IOI OIRO IO IOI OO IOI OO OO II IO I 
1475 JO OCIS GIT TG OT ER TT TOR 
1476 1CE94 04 CR?? = SETHEX 
1477 1CE96 7FOO GOSUB CRPRS? 
1478 1CE9A SAD GONC CR??20 
1479 1CE9D 1000 CR?710 D1=(2) =eDVCNF 
1480 1CEA1 6791 GOTO errout 
1481 1CERS 6820 CR??20 GOTO crifnd 
1482 - 
1483 ke 
1484 1CER9 1F41 CRPRS? D1=(5) (=CR)+#14 

002 

1485 TEST IF TEST 
1489 TEST ENDIF 
1490 1CEBO 1574 C=DAT1 S$ 
1491 1CEB4 A4E C=C-1 S$ 
1492 1CEB7 01 RIN 
1493 JI IIIS IOS ICICI IOI SC OE 
1494 JI III ISIS IOC ITT 
1495 ae 
1496 ** Ware: RTNABT - Abort Return Fron Card Reader 
1497 aK 
1498 ** Category: LOCAL 
1499 a 
1500 ** Purpose: 
1504 a Perforn ABORT fron card reader operations. 
1502 ne 
1503 ** Entry: 
1504 a Code has decided to abort. 
1505 as 
1506 ASO ERT 
1507 ax NXTSTN. 
1508 <* 
1509 ** History: 
1510 aA 
1511 BX Date Progranner Modification 
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1512 KR nn we nee errr rere cote e re cre nnn nnn n nnn nner enone nnn 
1513 kk 05/28/82 NM Wrote, etc. 

1514 ae 

1515 JIGS III ITI IOS SIO II TI ISI TI IIIT III 
1516 JIT TI I SITS II III IIIT I IT II III III IIS SIIIISSISIIIISSSIIS SISA 
1517 eI 

1518 *'! Replace following five lines with: 

1519 ol 

1520 *11 RINABT GOSUB FINCRD Clear display & delete buffer 
1521 an GOVLNG =INPO10 Psuedo-error exit 

1522 #1! RTINAB+ GOSUB FINCRD Clear display & delete buffer 
1523 x11 NEXTST GOLONG =REN180 To NXTSTM 

1524 of 

1525 1CEB9 85E RINABT ST=1 14 Set Don’ t-continue flag 


1526 1CEBC 7£00 
152? 1CECO 7110 
1528 1CEC4 7830 
1529 1CEC8 8C00 


1530 
1531 1CECE 8000 


1532 1CEDS 8DO00 


1533 
1534 
1535 
1536 
153? 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
154? 
1548 
1549 
1550 
1554 
1552 
1563 
1554 
1565 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 1CEDC 173 


RINAB+ GOSUB crifnd 
GOSUB noscrl 
NEXTST GOSUB BUFDAL 
GOLONG =REN180 GOTO NXTSTN 


k 
=crifnd GOVLNG =CRLFND 


noscrl GO¥LNG =NOSCRL 


x 
FOOT TO TTT TN 
FOI TOO JO OOOO ITI ITI TK 
ax 


** Nane: Di+xxB - Add Xx Bytes To D1 
tk 


** Category: LOCAL 
re 


xx Purpose: 
ak Increment D1 by 13, 21, 27 or 29 bytes. 
kk 


** Entry: 
xk 


KK Exit: 
ka 


kk Calls: None. 
aK 

Kk Uses....... 

xk D1. 
wk 


** Stk lvls: 0 
kk 

** History: 

kK 


xk Date Progranner Modification 
Pes -Gisrwes lueesiieee:. tio i tesa. ona 


xk 10/07/82 = NM Authored. 

ae 

JIG IDO EOI ICICI OO IIT TIT ITE 
JOO IIIS ICO OO CT I IO EE TTI Te 


D1+29B D1=D1+ 2%2 
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1564 1CEDF 17B D1+27B 01=D1+ 2*6 
1565 1CEE2 17F D1+21B D1=D1+ 2%8 
1566 1CEES 179 =01+13B DI=D1+ 245 


1567 1CEE8 17F Di=D1+ 2%8 
1568 1CEEB 01 RTN 
4569 JOO IID III GUI TOT TIO TI III TIE 
1570 JOGO GIO IGG OGIO IO TTT 
1571 ak 
1572 ** Nane: IOAL36 - Allocate CR I/O Buffer 
1573 ** Nane: IOAL+ - Allocate CR 1/0 Buffer 
1574 x 
1575 ** Category: LOCAL 
1576 ax 
1577 **x Purpose: 
1578 a Allocate card reader I/O buffer. 
1579 Kx 
1580 ** Entry: 
1581 kk IOAL36: None. 
1582 kk —-TORL+: P=0, buffersize in C[A] (nibs 3-4 = 0) 
1583 xn 
1584 KK Exit: 
1585 a P=0, 
1586 kk Carry set iff buffer successfully allocated. 
158? a 
1588 ** Calls: I/OAL+ (falls through). 
1589 Ke 
1590 Kk Uses. i... 
1591 kk A,B8,C,D,00,D1,P. 
1592 aK 
1593 kk Stk lvls: 3 
1594 ax 
1595 ** History: 
1596 a 
1597 *k Date Progranner Modification 
1598 a eee 
1599 Kk 10/08/82 = NM Wrote. 
1600 tok 
1601 JOOS OI OGIO IOI III UCI COICO II 
1602 JOO IIIS EIGUOIIIOIIUGIOCC I U TK 
1603 1CEED 20 IORL36 P= 0 
1604 1CEEF D2 (=0 A 
1605 1CEF1 3184 LC(2) 2*36 
1606 1CEFS D5 IOAL+ B=C A 
160? 1CEF? 3270 LC(3} =bCARD 
8 
1608 1CEFC 800 GOVLNG =1/O0AL+ 
1609 i SOR OORROORROROROOOORO TOO JOR RO III OR JOR Ok 
1610 SORORITIES ORR OTITIS JO ROTO OO OI ok 
1611 ae 
1612 ** Nane: BUFDAL - Deallocate Card Header I/Obuffer 
1613 aK 
1614 ** Category: LOCAL 
1615 xe 


1616 ** Purpose: 
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1617 xk Deallocate card header I/Obuffer. 
1618 ak 
1619 ** Entry: 
1620 as None. 
1621 xn 
1622 aX Exit: 
1623 ak P=0, 
1624 ae 
1625 xt Calls: I/ODAL (falls through). 
1626 wh 
1627 Ke Uses....... 
1628 aK A,8,C,00,01,P. 
1629 ak 
1630 xk Stk lvls: 2 
1631 an 
1632 ** History: 
1633 ak 
1634 ae Date Prograriner Modification 
1635 oe ee 
1636 cs 06/25/82 NM Rdded docunentation 
k 
Lp JOIST OOOO ITO III TTT TTI TTR 
1639 JO IOI OO OIG ICO UCI TOTTI TAT TTA 
1640 1CFO3 20 BUFDAL P= 0 
1641 1CFO5 3270 LC(3) =bCARD 
8 
1642 1CFOR 8000 =i/odal GOVLNG =I/0DAL 
000 
1643 ke 
1644 x. 
1645 1CF11 1B12 STR1-2 DO=(5) (=SCRTICH)+32 
9F2 
1646 1CF18 111 A=R1 
1647 1CF1B 1507 DATO=A W 
1648 1CFIF 16F DO=D0+ 16 
1649 1CF22 112 R=R2 
1650 1CF25 1507 DATO=A W 
1651 1CF29 01 RIN 
1652 & 
1653 1CF2B 8C00 fpoll GOLONG =FPOLLj 
00 
1654 x 
1655 1CF31 =r<rst2 
1656 1CF31 8D00 =savivl GOVLNG =R<RST2 Save 3 levels. 
000 
1657 &----sayvlvl P= 2 
1658 k---- GOVLNG =R<RSTK 
1659 1CF38 zrste<r 
1660 1CF38 8000 =rstlvl GOVLNG =RST2<R 
000 
1661 k----rstlv] P= 2 
1662 x---- GOVLNG =RSTK<R 


1663 


x 
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1664 STITLE Message routines 
1665 JOOS OI OTITIS IOC OC ICCC OCC ICI OC OI ITOK 
1666 JO OI IIIS OG IIS TIO CCCI SI ITI IK 
1667 ak 
1668 x* Name: UNKCD - Error Messages 
1669 **% Nare: RWERR - Error Nessages 
1670 *k Narie: NROOM - Error Messages 
1671 ** Narie: FIYPER - Error Messages 
1672 ** Narie: PLLCRD - PULL CARD Message 
1673 ak 
1674 ** Category: LOCAL 
1675 aR 
1676 ** Purpose: 
1677 ak Send message to display. 
1678 ak 
1679 ** Entry: 
1680 ax HEX node. 
1681 ax 
1682 AR-EKIt: 
1683 aR PLLC: Through MESSAG. 
1684 xe (all Bea: Through WRNSG. 
1685 ae 
1686 *k Calls: MESSAG or WRNSG (falls through). 
1687 aR 
1688 MPU SOS. ic sx 
1689 ae A,B,C,D,P,00,01,R0,scratch RAM, 
1690 a 
1691 XX Stk lvls: 4 
1692 ae 
1633 ** Algorithn: 
1694 KK D1[1-O]=Mainfrane message nunber. 
1695 a Fall through to MESSAG/ERNSG. 
1696 aK 
1697 ** History: 
1698 aR 
1699 mn Date Prograrner Modification 
1700 OE i wuiietes - ietoscand; Jsbeuteronccatasn ncn eceacestesees 
1701 Kk 06/22/82 NM Added docunentation 
1702 af 
1703 {EIST III CCI CIO III I III IE 
1704 JU TIIIG IC COI OT TIT III III II SS III I IK 
1705 1CF3F 1D00 UNKCD 01=(2) =eUNKCD 
1706 1CF43 6470 GOTO  WRMSG 
1707 1CF4? 1D00 PLLCRD D1=(2) =ePLLC 
1708 1CF4B 6C70 GOTO NMESSAG 
1709 1CF4F 1000 RWERR D1=(2) =eRWERR 
1710 1CF53 6460 GOTO WRMSG 
1711 1CF5? 1000 NROOM D1=(2) =eNEN 
1712 1CF5B ob GOTO errout 
1713 1CFSF 1B00 FTYPER D1=(2) =eF TYPE 
1714 1CF63 65D0 GOTO errout 
171 5 OSS SSC CSS SCE S SS SE CESC SESS SECS SSE SCC C SES ECCO SCC CSCS SE SSS CECE CESS Of 
171 6 FOO JOJO SOTO OOO JO OOO dO OOOO OI IOI 
1717? x 
1718 *% Narie: RDYTRK - “Pull <trk#> Of <&trks>" 
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1719 ae 
1720 ** Category: LOCAL 
1721 aE 
1722 ** Purpose: 
1723 a Solicit user to pull a card. 
1724 mh 
1725 ek Entry: 
1726 xk (both): R2 points at card header I/Obuffer. 
1727 xx RDYT10: DO[3-0] contains message #. 
1728 ae P set for MFWRN routine. 
1729 aK 
1730 ** Exit: 
1731 ax Through MESS++. 
1732 ax 
1733 &k Calls: STR1-2, CSLW5, MESS++ (falls through). 
1734 ak 
1735 ek Uses....... 
1736 ak R,B,C,D,P,D0,01,R0,scratch RAM, 
1737 ae 
1738 ** Stk lvls: 1 
1739 Ak 
1740 ** Detail: 
1741 aK Reads <trk#> and <Mtrks> fron bytes 1 and 2 of card 
1742 aK header I/Obuffer. 
1743 ak 
1744 *k Algorithn: 
1745 xx —RDYTRK: DO(O-3]=ePLLC. 
1746 ak P=? (message type for MFWRN). 
1747 *k — RDYT10: Point at card header I/Obuffer. 
1748 ak R2[Aj=current trk# fron header I/Obuffer. 
1749 ak R2[9-5]=nax trk# from header I/Obuffer. 
1750 ak C[3-0]=nessage# fron DO. 
1751 ak C{14-13]=F4 lidentifies parns in R2). 
1752 xe Fall through to MESS++. 
1753 ne 
1754 kk History: 
1755 kk 
1756 or Date Prograriner Modification 
1757 RK ewe ew cee ewww ener ee comer enn enn ce merce nn meee enn secees 
1758 *k 06/22/82 = NM Added docunentation 

ak 
i SITIO III SII III TITS IT TTD DD TTDI LITT I TOIT IIS TAIT SSS SIS SSIS 
1761 SII III IIT TA IIIT IIIT II IOS SSSI IIIS IST IASI I III IK 
1762 1CF67 1AOO §=RDYTRK DO=(4) =ePLLC# 

00 

1763 1CF6D 27 P= ? Nornal nessage 
1764 1CF6F 118 RDYTIO C=R2 
1765 1CF72 135 D1=C 
1766 1CF75 173 D1=D1+ 2%2 Point at nax track# 
1767 1CF78 136 CDOEX Hold d0 
1768 1CF7B 729F GOSUB STR1-2 Stash scratch regs 
1769 1CF7F 134 DO=C Restore dO 
1770 1CF82 D2 C=0 R 
1771 1CF84 14F C=DAT1 B 
1772 1CF87 80F5 CPEX 5 
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1773 


1774 
1775 
1776 
177? 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1794 
1792 
1793 
1794 
1795 
1796 
179? 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 


1CF8B 8FOO 
000 
1CF92 1C1 
1CF95 14F 
1CF98 10R 
1CF9B 2D 
1CF9D 314F 
1CFA1 13E 
1CFR4 800A 
1CFA8 6820 
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GOSBYL =CSLW5 


D1i=D1- 2 Point at track# 

C=DAT1 B 

R2=C Tuo argurents for nessage 
P= 13 

LCHEX F4 Identify argurients 

CDOXS Get message # 

P=C 10 Retrieve nsgtype pointer 
GOTO MESS++ Display message 


JOTI III IIIT TOTTI TORTI TI II ISI IIT ITI IK 
FO RII III GOI TIT ITI TOR IK 
ak 


**k Nane: TRKDON - "Trk #<trk#> Done" 

ax 

*k Category: LOCAL 

ak 

*k Purpose: 

aK Put up "Trk #xxx done" nessage. 

ah 

RR ENtry? 

me R2 points at card header I/Obuffer. 

ah 

BASEMAN: 

ah Through RDYT10. 

ik 

ek Calls: RDYT10 (falls through). 

ak 

BP USES ieee 

os A,B,C,0,P,D0,01,RO,scratch RAN, 
ih 

**K Stk lvls: 1 

tk 

**k Detail: 

aK Reads trk# fror card header I/Obuffer. 
a RDYT10 sets up as for RDYTRK message, but this nessage 
ee only uses the first nunber (trkiy. 

ik 

** Algorithn: 

ae DO[O-3]=eTRKDN. 

ah P=6 (delay, nobeep, nostore). 

ex Fall through to RDYT10. 

ih 

** History: 

aK 

** “Date Progranner Modification 
We) occa, fekueaasooe secodecusutas iyi Segoe sve deeieed 
** 06/22/82 NM Added docunentation 
ak 


FORO RRO JORIS O OO TOIOK 
FORO OOOO I II OE I OOOO III IO OI 


1823 1CFAC 1AOO =TRKDON DO=(4) =eTRKON 


1824 


00 
1CFB2 26 


P= 6 


1825 1CFB4 6ABF . GOTO RDYT1IO 
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1826 JIT I SII III TES III IIS TSI I SI ISOS IIIS SIS IIS II OSI IS SISTA IIA 
4827 JI ISIS IOS TOSS SOI I IIIS TSI SIT SSIS IIH 
1828 si 
1829 ** Nane: WRNSG - Send Warning Message To Display 
1830 aK 
1831 ** Category: LOCAL 
1832 ae 
1833 *% Purpose: 

1834 ax Send a warning ressage to the display. 
1835 
1836 tk Entry: 
1837 ax D1[B] = nessaget 
1838 a 
1839 RX Exit: 
1840 ak RTNSC 
1841 ak 
1842 ** Calls: CRDOFF, MESS10 (falls through). 
1843 ax 
1844 kX Uses....... 
1845 aa A,B,C,D,P,00,01,R0,scratch RAN, 
1846 a 
1847 ** Stk lvls: 1 
1848 tk 
1849 ** Algorithn: 
1850 ax Turn off card reader. 
1851 am Set P=8 for MFWRN (beep, delay, ERRN, “WRN") 
1852 we NESS10. 
1853 an 
1854 ** History: 
1855 ae 
1856 ax Date Progranner Modification 
1857 RX www nen newer ween nnn enn nnn nnn nnn nee nn ne nnn nee 
1858 k 06/22/82 NM Added docunentation 
ak 
eee JOISTS OOO IOI IITA III IIR IIIT 
1861 JI I IOI III II III IO III SII III IS ISI II ISI TIKI 


1862 1CFB8 133 
1863 1CFBB ?4FO 
1864 1CFBF 131 
1865 1CFC2 28 
1866 1CFC4 6500 
1867 

1868 

1863 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 


WRASG ADIEX 
GOSUB CRDOFF 
DI=A Restore message pointer 
P= 8 Beep, delay 


GOTO MESS10 
SOR IIR TTT IRIE IT IIT TTS ETT TTT RELI TIA ITE TT TTT I IASI III 


SOOO RO JOJO OO TOTO II IO 
ak 


kx Wane: MESSAG - Send Message To Display 


kk 
** Category: LOCAL 

a 

** Purpose: 

ae Send ressage to display; erroring out if battery low. 
kak 

Ax ENtEYys 

kX oO MESSAG: DI[B] = tessaget 

kx —MESS10: DI[B] = nessaget 

Km P set for MFWRN. 
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1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
190? 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
191? 
1918 
1919 
1920 
1921 
1922 
1923 


1924 
1925 


1926 
192? 
1928 
1929 
1930 


1931 


1CFC8 
iCFCA 
TEECE 
1CFD1 
1CFDS 
1CFD8 


1CFDE 
ICFE2 


1CFES 
iCFED 


ICFF 3 
ICFF6 
ICFFS8 


ICFFE 


Card Reader Module <831212.161 


Fri Dec 30, 1983 3:35 an 


Page 37 


ex MESS++: Scratch registers already stashed (STR1-2). 


aie A[3-0] = nessaget. 

ig P set for MFWRN. 

kK 

RE ERE t 

ee Carry set. 

kk 

¥* Calls: ACBAT?, MFWRN, STR1-2, Sflag?, atnclr, rstilvl, 
xk savlvl. 

ki 

MA USES Leneas 

a* A,B8,C,D,P,D0,D1,RO, scratch RAN, 
aK 

** Stk lvls: 1 

aK 


** Algorithn: 


&& MESSAG: P=7 (nowarn, nodelay, nobeep). 
kk MESS10: Stash scratch regs. 


ax A[O-3]=00[D0[B)]. 

xx MESS+#+: Stash 3 subroutine levels in R3. 

Re Stash errnsg# and ptr in R1. 

aX Check battery level. "eLOBAT" if low battery. 
ax Fetch errnsg# and ptr fron R1. 

ax MFWRN. 

ae Restore 3 subroutine levels fron R3. 
ux Restore scratch regs. 

as Return with CARRY SET. 

ax 

** History: 

x 

kx Date Prograriner Modification 


KK LL 


xX 06/22/82 NM 


kx 09/08/82 NN 
ik 


Added docunentation 
Added battery check code 


FORO ICICI IIIT IOI IO ICO OI IOI III 
JOIIGIIOIOIIOIOI IOI OO ICICI OI OI TO TOIT I TIO K 


2? MESSAG P= ? 

734F MESS1O GOSUB STR1-2 
13F CD1xS 

SOFF MESS++ CPEX 15 

109 Ri=C 

SEOO GOSUBL =atnclr 
00 

7F4F GOSUB savlvl 
&F0O GOSBYL =ACBAT? 
000 

313C LC(2) =f 1 BAT 
8E0O GOSUBL =Sflag? 
00 

531 GONC  MESS20 
20 P= 0 

3300 LC(4)  =eLOBAT 
00 

28 P= 8 


Nowarn, no delay 
Stash scratch regs 
Get nessage nunber 
Stash ptr in C(4] 
Save nessage info 
Clear ATIN flag 


Stash 3 levels 
Check battery level 
Lou battery? 


No. 
Yes. 
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1932 10000 8F00 GOSBVL =MFURN Warn user. 
000 
1933 10007 119 MESS20 C=R1 Fetch nessage info. 
1934 1DO0A 22 P= 2 
1935 1DO00C 3100 LCHEX 00 Clear upper byte of nsgt 
1936 1D010 80DF P=C 15 Restore ptr for nessage 
1937 10014 8F0O COSBVL =MFURN Display msg, using lots of levels 
000 
1938 1D01B 791F GOSUB rstivl Restore 3 levels 
1939 1DO1F 1B12 DO=(5) (=SCRICH)+32 
9F2 
1940 10026 1527 A=DATO W 
1941 1D02A 101 R1=A 
1942 1D02D 16F DO=D0+ 16 
1943 1D03% 1527 A=DATO W 
1944 10034 102 R2=A 
1945 10037 02 RTNSC 
1946 x 
1947 10039 137 errout CDIEX 
1948 1D03C 10B R3=C Stash nessage nunber 
1949 1D03F 70CE GOSUB BUFDAL Deallocate I/0 buffer 
1956 10043 11B C=R3 Recall message # 
1951 10046 800 GOLONG =NFERR} Error out 
00 
1982 x 
1953 FIG III TI II IO SRI ISIS TOT ISI IS ISOS SS II SI STS SI III IIT TOE 
1954 FOI ITO IITA III IID SI III III STII IIIS IIIT SI IIIT TAI II III I IIA 
1965 ak 
1956 ** Nane: RALIGN - Send “align" Nessage To Display 
1957 aK 
1958 **k Category: LOCAL 
1959 ae 
1960 xx Purpose: 
1961 kk Send "align card, then ENDLN" nessage to display 
1962 aX prefixed by operation descriptor (WRT, READ, etc.). 
1963 a 
1964 AA Ente: 
1965 ae None. 
1966 ae 
1967 FRE RIT 
1968 Ka If carry clear, user hit ENDLN. 
1969 aa If carry set, we abort (tineout or user hit ATTN). 
1970 ax 
1971 kk Calls: FINDA), MESSAG, SCRLLR, nokeys, rstlvl, savivl. 
1972 a 
1973 RI SOS au xe 
1974 ax A,B,C,0,P,D0,D1,RO,scratch RAN 
1975 a 
1976 *K Stk lvls: 3 
1977 ee 
1978 ** History: 
1979 aK 
1980 hs Date Progranner Modification 
1981 RK wen enn wenn ee conn nnn nnn nnn nnn nen nn nnn nen neni enn 
1982 *X 06/22/82 NM Added docunentation 
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1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 


1991 
1992 


1933 
1994 
1995 
1996 
199? 
1998 
1999 
2000 
2001 
202 


2003 
2004 
2005 


1D04C 
1D050 
10054 
10058 
1D05C 


10063 
1006? 


1D06D 
1DO6F 
10072 
10074 
10077 
1D079 
1D07C 
1D07E 
10081 
10081 


1D088 
1D088 
1D08C 


xx 
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SSS 2995.90 8 25.5.0 205852009. 99.5.5.0.5,9,9.5,0,9.5.5.0,0.0.0.5.9,0.0.0,9. 5.0, 0.0.0.0.2,95,0.2.5.5. 9.5.5.5! 
FOUR III IO III TO OO TTT TIS IT TTT IR 


1D00 RALIGN 
747F ALIGN 
7920 =ALIGIO 
75DE 
8FOO 
000 
71DE 
8£00 
oO 
62 
210 
B2 
410 
36 
FOO 
00 
55D 
ALIG25 
8D00 nokeys 
000 


ALIG35 
75F F 
02 


01=(2) =eRALGN 
GOSUB NMESSAG 
COSUB nokeys 
GOSUB  savlvl 
GOSBVL =SCRLLR 


GOSUB orstlvl 
GOSUBL =FINDA; 


CON(2) =kHEOL 

REL(3) ALTG25 

CON(2) =KHATIN 
REL(3) ALIG35 

CON(2) =kHOFF 
REL(3) ALIG35 
CON(2) 0 

GONC ALIG1O 


GOVLNG =NOKEYS 


GOSUB nokeys 
RTNSC 


Clear keybuffer 


Sleep with display scroll 


If Endline 

Clear buffer, RTNCC 
If ATIN 

Clear buffer, RTNSC 
If OFF 

Clear buffer, RTNSC 
Else 

Try again. B.E.T. 
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2006 STITLE Hardware interface 

2007 JOO OI OO OUI TK 

2008 ae 

2009 *% Card reader is hard-configured at 2CO0O0, knoun as 

2010 Ae (=CR). «following locations contain following stuff: 

2011 xR 

2012 xk (=CR) to (=CR)+HF: FIFO buffer I/O. 

2013 aK (=CR)+#10: Request enable bits for (=CR)+#12. 

2014 xk (=CR)+#11: Request enable bits for (=CR)+H13. 

2015 ae (=CR)+#12: Bit 3--FIFO full/enpty (on read/write), 

2016 aK Bit 2--too fast, 

2017 ae Bit 1--too sloun, 

2018 xx Bit 0--data error. 

2019 aR Bits enabled to request line by (=CR)+H#10. 

2020 ak (=CR)+#13: Bit 3--4 bytes ready in FIFO, 

2021 aR Bit 2--3 bytes ready in FIFO, 

2022 an Bit 1--2 bytes ready in FIFO, 

2023 =e Bit 0--1 byte ready in FIFO. 

2024 xe Bits enabled to request line by (=CR)+#11. 

2025 ax (=CR)+#14: Bit 3--chip asmake, 

2026 ae Bit 2--write rode, 

2027 aa Bit 1--flagserve (breakserve), 

2028 aS Bit O--"1"  (aluays set). 

2029 a (=CR)+#15: test bits for chip testing. leave HF!! 

ate JOU III OIC IOI TOO IU IOI II TTI I TIE 
* 

ee SOIC CUI OT IOC OI TOT TT 

2034 JOO III OIC ITI OI ORT TT RAC 

2035 an 

2036 x Narie: WRITE - Set Card Reader Write Node 

2037 xk 

2038 ** Category: LOCAL 

2039 at 

2040 xk Purpose: 

2041 ax Set card reader write node. 

2042 a 

2043 xk Entry: 

2044 kk WRITE: None. 

2045 xk WRITCP: C[P] = nibble to urite to CR control register. 

2046 ax 

2047 xx Exit: 

2048 a Carry clear. 

2049 ax 

2050 xX Calls: None. 

2051 xn 

2052 RX USOS a2 oes 

2053 xa C[P] (whatever P is),C[3-0),D1. 

2054 xk 

2055 ak Stk Ivls: 0 

2056 xe 

2057 ** Algorithn: 

2058 kx OC WRITE: C[P] = C. 

2059 kk OWRITCP: Write C[P] to (=CR)+814. 


2060 aA Read FIFO and request bits to flush. 
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2061 a 
2062 ** History: 
2063 aK 
2064 a Date Progranner Modification 
2065 £P oduceue ) gelatcasen. Waeeuneatadnenatenhckuuadiees cemeoa 
2066 xk 06/22/82 NN Added docunentation 
2067 a 
2068 JI III II III IIIT O III TI ITI II ITI IIIS ITI III III IIIT III IIIT ASIAN 
2069 JOIST OGIO ISIS II I III II I TIT TTT OTT TIE 
2070 1D08E 30C WRITE LCHEX C Chip awake and write mode 
2071 10091 1F41 WRITCP D1=(5) (=CR)+#14 Control register write 
0C2 
2072 10098 1550 DAT1=C P 
2073 1D09C 1D00 D1=(2) (=CR) 
2074 1D0RO 1577 C=DAT1 W Read fifo to flush 
2075 1D0A4 17F D1=D1i+ 16 
2076 1D0A7 AE2 C=0 B 
2077 1DOAR 14D DAT1=C B Clear rast enable bits 
2078 1DOAD 15F3 C=DAT1 4 Read rqst bits to flush 
2079 1D0B1 03 RTNCC 
2080 JOTI III OOOO IO SII TIS III ITT TIT 
2081 JOIST TIO IIS SOIC TT TK 
2082 ax 
2083 ** Nane: CRDOFF - Turn Off Card Reader 
2084 ae 
2085 ** Category: LOCAL 
2086 a 
2087 ** Purpose: 
2088 ae Turn off card reader. 
2089 ak 
2090 *k Entry: 
2091 a None. 
2092 me 
2033 Kk Exit: 
2094 a RTNCC (through WRITCP). 
2095 a 
2096 ** Calls: None. 
2097 ae 
2098 ** Uses....... 
2099 a C(P],C{3-0],01. 
2100 a 
2101 ** Stk lvls: 0 
2102 ae 
2103 ** Algorithn: 
2104 ae C{[P] = 0. 
2105 aS WRITCP. 
2106 a 
2107 ** History: 
2108 Ae 
2109 ah Date Progranner Modification 
2110 aa aaa aaa aaa laa 
2111 kk 06/22/82 = NM Added docurentation 
2112 ae 
2113 JIU OUI TIO IACI GOI OI TOIT IIE 
114 SOIT IGS IS CISUIGISEIS GIGI TUG OE ISIE 
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2115 1D0B3 A82 CRDOFF C=0 P 
2116 1D0B6 6ADF GOTO WRITCP 
2117 JUKE OIE QU COC TIS ITO TTS RTI 
2118 JORIS III IIIT IIS SI IOS IIIT I TI III ITA II TI 
2119 a 
2120 ** Narie: RERDFL - Set BRKSRV In Read Node 
2121 ak 
2122 *k Category: LOCAL 
2123 aK 
2124 ** Purpose: 
2125 ak Set BRKSRV (FLGSRV) in read node. 
2126 ax 
2127 **k Entry: 
2128 Ax None. 
2129 a 
2138 RX Exit: 
2131 ak Carry clear (through WRITCP). 
2132 ak 
2133 *k Calls: None. 
2134 an 
2135 RX US@S....05 
2136 ax C{P],C[3-0],01. 
2137 aK 
2138 ** Stk lvls: 0 
2139 ze 
2140 ** Algorithn: 
2141 ax C{P)=A. 
2142 ak WRITCP. 
2143 ak 
2144 ** History: 
2145 Be 
2146 ax Date Progranner Nodification 
2147 RR enn n nnn anne nnn n ee nn nn enn nn nn nn nnn nnn ne ee nn nee 
2148 Kk 06/22/82 NM Added docurientation 
ah 
oF JUSSI COTO ISIS IOS TITS SASSI II SI SIS: 
2151 JK III IORI COI ISI TISAI IO STII IIIS IIIS: 
2152 1D0BA 30AR READFL LCHEX A 
2153 1D0BD 63DF GOTO WRITCP 
2154 JUICE OCCT TT TIT 
9155 JI ITI STII IIIS TIT I IIIT III IITA 
2156 a 
215? kk Narie: WRITFL - Set BRKSRV In Write Mode 
2158 aK 
2159 *k Category: LOCAL 
2160 a 
2161 kk Purpose: 
2162 ak Set BRKSRV in write node. 
2163 x 
2164 ** Entry: 
2165 aR None. 
2166 ae 
2167 RK Exit: 
2168 + Carry clear (through WRITCP). 
ae 


2169 
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2170 kK Calls: WAITNT 
2171 a 
ele AK Uses....... 
2173 aK C{5-0],P,01,8[B],S1 
2174 ak {A-D,DO,D1,P,RO0,scratch RAM if error} 
2175 aK 
2176 kK Stk lvls: 1 
2177 KK 
2178 ** Algorithn: 
2179 ak Wait until buffer enpty (WAITNT). 
2180 aK C([P]=E. 
2181 xn WRITCP. 
2182 aK 
2183 xk History: 
2184 a 
2185 ax Date Progranrer Modification 
2186 ee 
2187 . 06/22/82 NM Added docunentation 
He JU OI IOUT ITT I ITI TIT 
9190 SOI IOUI OO ISCO CIO OI ORE IE 
2191 1D0C1 841 WRITFL ST=0 81 
2192 1D004 7670 GOSUB WAITNT 
2193 1D0C8 30E LCHEX E 
2194 1D0CB 65CF GOTO WRITCP 
9195 JE ISO ICIS KIO IOC OI TOK 
2196 JIS ICIS IIIS II IGO IC IOC TOT ITT TK 
2197 ak 
2198 ~ Nanie: READS - Read 8 Nibbles From Card W/o Slow Chk 
2199 
2200 *k Category: LOCAL 
2201 aK 
2202 ** Purpose: 
2203 xk Read 8 nibbles at beginning of card (i.e., we are 
2204 = looking before card starts moving). 
2205 ae 
2206 *k Entry: 
2207 ak None. 
2208 ak 
2209 kk Exit: 
2210 ak Carry set if failure (WAIT routine reported error 
2211 ae already). 
2212 ak Else result of read is in A[?7-0]. 
2213 a 
2214 kk Calls: WAITRQ. 
2215 aR 
2216 RX Uses... 1.05 : 
2217 KA A[7-0],C[5-0],P,01,B[B],S1 
2218 aa {A-D,00,01,P,R0,scratch RAM if error} 
2219 ak 
2220 tk Stk lvls: 1 
2221 aK 
eee ** Detail: 
2223 a This is used only for the first read on the card. 
2224 a After said read, the code nust look out for too slou 
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2225 xx error--using the READ8S routine. 

2226 aX 

2227 ** Algorithn: 

2228 kk WAITRQ {if error, WAIT throws off a subroutine level 
2229 ak and returns to routine which called this one}. 
22H ae Read 8 nibbles fron FIFO into A. 

2231 ne RTNCC. 

2232 aX 

2233 ** History: 

2234 ak 

2235 = Date Progranner Modification 

2236 ahead athe tatatatitiaia tated 
2237 *x 06/22/82 NN Added docunentation 

tk 

ee JOIST OT ITSO TOTS IIIS IS III IIIT STAI AK 
2240 JI OI IOI SI ISI IOS IOS OSI SOS II OSI IIS III III SISOS SSI II IIASA 
2241 1D0CF 841 READS ST=0 1 

2242 1D0D2 7A30 GOSUB WAITRQ Wait for buf request 

2243 1D0D6 1587 R=DAT1 8 

2244 1D0DR 03 RTNCC 
2245 JOO I ISCO IDOI IIIT IIIS TIS II IIIT 
2246 JOIST OCC IT TT STI IIS ISIS IIS I IAI IK 
2247 ak 

2248 ** Nane: READ8S - Read 8 Nibbles Fron Card 

2249 ax 

2250 ** Category: LOCAL 

2251 ~ 

2252 ** Purpose: 

2253 ia Read 8 nibbles fron card. 

2254 ak 

2255 *k Entry: 

2256 ae None. 

2257 Rx 

2258 ek Exit: 

2259 se Carry set if failure (WRIT already reported error). 
2260 ae Else 8 nibbles of data in A[?-0]. 

2261 kk 

2262 ** Calls: WAITRS. 

2263 x 

2264 aX Uses....... 

2265 a A[7-0] ,C[5-0},P,D1,B[B},S1 

2266 aR {A-D,D0,D1,P,RO,scratch RAM if error} 

2267 kk 

2268 ** Stk lvls: 1 

2269 xe 

22270 ** Detail: 

2271 ae If WAIT finds an error, it will report the error and 
2272 ax RINSC to the routine which called this one. 

2273 oe 

274 ** Algorithn: 

2275 x* WAITRS. 

2276 <r Read 8 nibbles at FIFO. 

2277 ak RTNCC. 

2278 a 

2279 ** History: 
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2280 aK 
2281 aX Date Prograrner Modification 
2282 RK meen een ewer e een e ene ee nn ne nnn ne ne en nnn nnn nn een nee 
2283 kk 06/22/82 NM Added docunentation 
2284 ax 
2285 JOO IIIOC OCIS IGT ITO TC TEE TIE 
2286 JOO IOI IOC IO ITO I TIO TOTS ITT IIIT 
2287 1D0DC 841 READ8S ST=0 1 
2288 1DODF 7730 RD&SY GOSUB WAITRS 
2289 1D0E3 1587 A=DAT1 8 
22% 1D0E7 03 RTNCC 
2294 JUICES IIGIIGI OCIS SI CIGOCCISOIIG CG TSO III IGOK 
9992 JUICE ODOC ICICI ISOC IIIT IK 
2293 x 
2294 ** Nane: WRIT8S - Write 8 Nibbles To Card 
2295 x 
2296 ** Category: LOCAL 
2297 aa 
2298 ** Purpose: 
2299 ax Write 8 nibbles of data to card. 
2300 ax 
2301 *k Entry: 
2302 ax Data in A[7-0]. 
2303 aX 
2304 ae EXAts 
2305 a RINSC if failure (WRIT reported error). 
2306 ax RINCC if wrote successfully. 
2307 ak 
2308 kk Calls: WAITRS. 
2309 ax 
2310 ee Uses. ...... 
2311 ae C{5-0],P,01,B[B],S1 
2312 aK {A-D,D0,D1,P,RO,scratch RAN af error} 
2313 ot 
2314 RK Stk lvls: 1 
2315 xe 
2316 ** Algorathri: 
2317 x WAITRS. 
2318 ax Write 8 nibbles to FIFO. 
2319 ae RINCC. 
2320 aX 
2321 ** History: 
23ee ae 
23ac3 ae Date Progrannmer Nodification 
e324 RR enn e ne nnn nnn nee re nnn ne nnn nn nn nen nnn een nnn en ee 
2325 * 06/22/82 NM Added docunentation 
9929 ax 
ete SORORITY RIOIOIOII RO 
9328 JOO ISIE ISIS IIIS IIIS EIS 
2329 1D0E9 841 WRIT8S ST=0 1 
2330 1D0EC 7A20 GOSUB WAITRS 
2331 1D0FO 1597 DAT1=A 8 
2332 1D0F4 03 RTNCC 
2333 FORO ROTOR JOTI I OOOO OOO IIGCO II O ROI IOI 


2334 


SOR RIO UOT UDO UI SII I UII OIC ok 
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2335 ae 
2336 ** Nane: READCS - Read FIFO When < 8 Nibbles Ready 
2337 EK 
2338 ** Category: LOCAL 
2339 aS 
2340 ** Purpose: 
2341 kK Read end-of-field on card uhen < 8 nibs long. 
2342 aR 
2343 ** Entry: 
2344 am C[S] = #nibbles to expect {allow 1,3,5 only}. 
2345 KK 
2346 AX Exit: 
2347 kx Carry set if failure. 
2348 a Else result in A[O-{original C[S]}}]. 
2349 xk 
2350 ** Calls: WAITCS. 
2351 ah 
2352 RE USES oe: is0 
2353 wx A[ 7-0], C[5-0],P,01,B[B],S1 
2354 a {A-D,D0,D1,P,RO,scratch RAM if error} 
2355 kk 
2356 ** Stk lvls: 1 
2357 &R 
2358 ** Detail: 
2359 ak Used to read FIFO when only 1, 2 or 3 bytes are ready. 
2360 ax Needed if last read in a field is < 8 nibbles long... 
2361 ax read is perforned then data is in, before hitting post- 
2362 aK field crap on card. Perforns a 4-byte (8-nibbley read 
2363 ax regardless of size which was requested. 
2364 ak 
2365 ** Algorithn: 
2366 xR WATTCS. 
2367 xx Read 8 nibbles fron FIFO. 
2368 Rx RTNCC. 
2369 xe 
2370 xk History: 
2371 aK 
2372 se Date Progranner Modification 
2373 a aati a at tatatatatetteiaenatetetetetetateteiaiataatate 
2374 . 06/22/82 NM Added docurentation 
ae JORIS ITI OCI OI TOI IIS ICIS IIS IIIT II OC OTT TTT 
2377 JO IO ISI II OIC IIT SO TIS IS ITA 


2378 1DOF6 841 
2379 1DOF9 7720 
2380 1DOFD 1587 
2381 10101 03 
2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 


READCS ST=0 1 
GOSUB WAITCS 
A=DAT1 8 


RTNCC 
FORO ITO OI TOOT TTT IR TTI 


JO IUCR OTT ET 
a 

** Nane: WRIT4S - Write 4 Nibbles To Card 

aK 


** Category: LOCAL 
ks 


*x Purpose: 
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2390 RR Write 2 bytes of data to card. 
2391 ax 
2392 ** Entry: 
2393 kx Data to write in A[3-0]. 
2394 kk 
2395 AX ERit® 
2396 a RTNCC if successful. 
2397 ak Else WAIT reported error. 
2398 RK 
2399 *k Calls: WAITRS. 
2400 a 
2401 KK Uses... ..05 
2402 ak C{5-0],P,01,B(B), S1 
2403 xk {A-D,DO,D1,P,RO,scratch RAM if error} 
2404 xx 
2405 *k Stk lvls: 1 
2406 aR 
2407 ** Detail: 
2408 aK Used by protect/unprotect to finish off the urite of 
2409 a that ridiculously-shaped field. 
2410 kk 
2411 *k History: 
2412 &k 
2413 Kk Date Progranner Modification 
2414 RH nnn eee eee een ren nnn nn nen een nn ee eee 
2415 _ 06/22/82 NN Added docunentation 
Sas JU IOL IID IOI IIIT TIO II TI KR 
2418 JORIS II III IIIT III IIIS CTI IOI OO OT I OT 
2419 10103 841 WRIT4S ST=0 1 
2420 10106 7010 GOSUB WAITRS 
2421 1D10A 1593 DATI=A 4 
2422 IDIOE 03 RTNCC 
2423 JORIS IOI TOOTS ICO ICE OO OTT TS TIT 
2424 JIS IU IDOI GOI ISI OCI OIC OO IT TOE 
2425 a 
2426 xx Nane: WAITRQ - Wait For BUFREQ Or TUFAST 
2427 ah 
2428 ** Category: LOCAL 
2429 ax 
2430 *x Purpose: 
2431 xx Wait for BUFREQ (non-error condition) or TUFAST (error 
2432 mA condition. 
2433 is 
2434 A* Entry 
2435 ae None. 
2436 ae 
2437 AS EMITS 
2438 a If error condition occurs, sends error nessage to 
2439 a display, throus off a subroutine level and returns 
2440 a with carry set. 
2441 ae Else carry clear, D1 points at FIFQ. 
2442 ae 
2443 ** Calls: WAIT (falls through). 
is 


2444 
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2445 KE UseS iiss 
2446 ak C(5-0}],P,01,8{B),S1 
2447 ae {A-D,D0,D1,P,RO, scratch RAM if error} 
2448 aR 
2449 xk Stk lvls: 0 
2450 xR 
2451 ** Detaal: 
2452 xx Because of error return, this cannot be called fron 
2453 aR the top level of code. Typically it 1s called fron 
2454 ak a read or write routine which was called fron the top 
2455 aK level of code. 
2456 wm 
2457 ** Algorithn: 
2458 aK Enable BUFREQ and TUFAST to request line. 
2459 aK WAIT. 
2460 ak 
2461 ** History: 
2462 ak 
2463 ax Date Progranner Modification 
2464 KK manne nnn tenn ene nee n een n ene nnn e cee eee en ene 
2465 *& 06/23/82 = NM Added docunentation 
2466 aX 
2467 JIS IOI IO CIO TOC TTR STI SI TAK 
2468 JOO DOO IOC TIT ITT IIA IK 
2469 10110 20 WAITRQ P= 0 
2470 TEST IF TEST 
2472 TEST ELSE 
2473 10112 3148 LCHEX 84 Enable bufreq & tufast 
2474 TEST ENDIF 
2475 10116 6020 GOTO WAIT 
2476 KIKI RII III III SI ITT IIIT IIIS ISIAII III III SII IIIS III SII IIS III IIIS IA 
2477 IIIS III II IIIT IT TID IDIOTS IIIT IT III II IIIS ISIS III ISI III IIA SOAS SIA 
2478 ak 
2479 xk Nane: WAITRS - Wait For BUFREQ Or Error Conditions 
2480 ax 
2481 ** Category: LOCAL 
2482 RE 
2483 ** Purpose: 
2484 ax Wait for BUFREQ (non-error condition) or TUFAST, 
2485 aK TUSLOW or DATERR (error condition). 
2486 a 
2487 *® Entry: 
2488 ae None. 
2489 xa 
24% WA -EKLt: 
2491 ae If error condition occurs, sends error message to 
2492 x display, throws off a subroutine level and returns 
2433 = with carry set. 
2494 ak Else carry clear, D1 points at FIFO. 
2495 a 
2496 ** Calls: WAIT (falls through). 
2497 a 
2498 ak Uses......, 
2499 ax C{5-0],P,01,B[B],S1 
2500 a {A-D,DO,D1,P,RO,scratch RAN if error} 
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2501 a 
2502 *k Stk lvls: 0 
2503 x 
2504 ** Detail: 
2505 a Because of error return, this cannot be called fron 
2506 xs the top level of code. Typically it is called fron 
2507 xk a read or write routine which was called fron the top 
2508 ax level of code. 
2509 ax 
2510 ** Algorithn: 
2511 wa Enable BUFREQ, TUFAST, TUSLOW, DATERR to request line. 
2512 ax WAIT. 
2513 aR 
2514 ** History: 
2515 xn 
2516 = Date Programmer Modification 
2517 KR nee nn coer ee nen enn nn nnn nn ene ne ene nn ene nee eee 
2518 xk 06/23/82 NM Added docunentation 
2519 a 
2520 JOGO IU OGG IUGR IOI ITE 
9524 JOO IO IOI IO OGG COI OO IGE 
2522 1D11A 20 WAITRS P= 0 
2523 TEST IF TEST 
2525 TEST ELSE 
2526 1D11C 3178 LCHEX 8? Enable bufreq & error bits 
2527 TEST ENDIF 
2528 10120 6320 GOTO WAIT 
2529 JOC IEG OIG OOOO GIO COI I TIS 
2530 JOGO IIE GIGI OCG IIE TIO I TT TK 
2531 aK 
2532 ** Narie: WAITCS - Wait For Ready For Partial Read 
2533 ae 
2534 ** Category: LOCAL 
2535 ax 
2536 *k Purpose: 
2537 ax Wait for 1, 2 or 3 bytes ready (non-error condition) 
2538 a or TUFAST, TUSLOW, or DATERR (error conditions). 
2539 ak 
2540 aX Entry: 
2541 kx C{S] = #nibbles-1 to wait for. Only allowed values 
2542 ax are 1,3,5. Anything else produces unpredictable 
2543 ax results. 
2544 aR 
2545 A® Exyt: 
2546 xR If error condition occurs, sends error wessage to 
2547 x display, throws off a subroutine level and returns 
2548 as with carry set. 
2543 ae Else carry clear, D1 points at FIFO. 
2550 an 
2551 &* Calls: WAIT (falls through). 
2552 xs 
2553 AE SOS hooks 
2554 aR C,P,D1,B(B], 
2555 a {R-D,D0,D1,P,RO,scratch RAM if error} 
xk 


2556 
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2557 *k Stk lvls: 0 
2558 ax 
2553 ** Detail: 
2560 ial Because of error return, this cannot be called fron 
2561 ae the top level of code. Typically it is called fron 
2562 ae a read routine which was called fron the top level of 
2563 ae code. 
2564 ah 
2565 ** Algorithn: 
2566 ak Case C{S] of 
2567 ak 1: Enable 1-byte-ready to request line. 
2568 ak 3: Enable 2-bytes-ready to request line. 
2569 ak 5: Enable 3-bytes-ready to request line. 
2570 aR End case. 
2571 aK Enable TUFAST, TUSLOW, DATERR to request line. 
2572 ak WAIT. 
2573 a 
2574 *k History: 
2575 ax 
2576 ae Date Programmer Modification 
2577 RK nnn n nn nn eee e nn nnn nn nnn nnn ne eer nnn nn enn renner eee 
2578 Kk 06/23/82 NM Added docunentation 
2579 aR 
2580 JOIST COST TAT STII ITT LAIR 
2681 JI I ORT TTI I SIS IIII ITI III SSIS BEI IS SOS S ISIS IS SIS IIIA 


2582 10124 BCA 

2583 10127 800F 

2584 

2586 

2587 1D12B 3607 
172? 
4 

2588 

2589 10134 6FOO 

25% 

2551 

2592 

2593 

2594 

2595 

2536 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 


WAITCS C=-C S$ 
P=C 15 
TEST IF TEST 
TEST. - ELSE 
LCHEX 4727170 Set rqst & error bits 
TEST ENDIF 
GOTO WAIT 


FOCI IOI ITT TOOT TT TOR TTI IN 
FORO RRO IRR I OR IOO I TTTTTTOE III I I OK 
ak 


&* Narie: WAITM+ - Call WRITNT 
kk 


*& Category: LOCAL 
ah 


** Purpose: 
ak Provide call to WAITNT. 


AX Entry: 


am None. 


ae If carry set, error condition occurred and WAIT put up 
- error message. 
ae Else carry clear, D1 points at FIFO. 


** Calls: WAIT (falls through). 
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2611 x C([5-0],P,01,B[B], 
2612 ak {A-D,DO,D1,P,RO,scratch RAN if error} 
2613 a 
2614 AK Stk lvls: 1 
2615 Kk 
2616 &k Detail: 
2617 ak This routine is used since WAITNT cannot be called fron 
2618 aK the top level of code. 
2619 aK 
2620 ** Algorithn: 
2621 aK WAITNT. 
2622 kk RIN. 
2623 aK 
2624 ** History: 
2625 kk 
2626 ak Date Progranner Modification 
2627 ee 
2628 : 06/23/82 NM Added docunentation 
k 
oe JO III IG III IT ITO ITO I TIT IIIT IIIT ITI 
2631 JOIST III IOUT ISO GOI COTE OI I TK 
2632 10138 7200 WARITN+ GOSUB WAITNT In case of error, since subr. 
2633 1B13C 01 RIN Level is ejected 
2634 JOU II OI II IO TI OT TEI 
2635 JE II III I IOI OIC OT TTT 
2636 ak 
2637 . Nane: WAITMT - Wait For Buffer Enpty/full Or Error 
2638 
2639 *k Category: LOCAL 
2640 aK 
2641 *k Purpose: 
2642 ak Wait for buffer full/enpty (non-error condition) or 
2643 ak TUSLOW, TUFAST, DATERR (error conditions). 
2644 ak 
2645 xk Entry: 
2646 ah None. 
2647 aK 
2648 aK Exit: 
2649 a If error condition occurs, sends error nessage to 
2650 a display, throws off a subroutine level and returns 
2651 kk with carry set. 
2652 ak Else carry clear, D1 points at FIFO. 
2653 wk ; 
2654 kk Calls: WAIT (falls through). 
2655 ak 
2656 AK Uses....... 
2657 aS C([5-0],P,01,8[B], 
2658 aK {A-D,DO,D1,P,RO,scratch RAM if error} 
2659 ak 
2660 Ak Stk lvls: 0 
261 ak 
2662 ** Detail: 
2663 wk Because of error return, this cannot be called fron 
2664 BS the top level of code. Typically at is called fron 
2665 a a read or urite routine which was called fron the top 
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2666 ies level of code. 
2667 Rk 
2668 ** Algorithn: 
2669 aa Enable all of CRRQS1 to request line. 
2670 ak WRIT. 
2671 Re 
2672 ** History: 
2673 RK 
2674 aK Date Programmer Modification 
2675 BR nnn nee renee ne een een ee eee eee nee 
2676 a 06/23/82 NN Added docunentation 
* 
peal JOIST OOO OCIS IK 
2679 JUICE IC TOI TOIT TS 
2680 1D13E 20 WAITNT P= 0 
2681 TEST IF TEST 
2683 TEST ELSE 
2684 10140 31FO LCHEX OF Enable full/enpty & error bits 
2685 TEST ENDIF 
2686 JIG IO OOS ISIC ISIC TOTTI a 
2687 JIG IOI IOC COI IRI STR RT ITT ER 
2688 &% 
2689 *k Narie: WAIT - Wait For SREQ Fron Card Reader 
26% Ae 
2691 ** Category: LOCAL 
2692 x 
2633 ** Purpose: 
2694 ax Wait for card reader ready or error condition. 
2695 RX 
2696 ek Entry: 
2697 ae C{B} = bits to enable in CRRQS1 and CRRQS2. 
2698 a S1 set iff in verify. 
2699 ax 
2700 AEE: 
2701 a If error condition is found, the error is reported, a 
2702 xe subroutine level ejected, and the carry set on 
2703 x return, 
2704 am EXCEPTION: If in verify ($1 set) and data error occurs 
2705 RA or too-slow with BRKSRV set then RTNCC with S1=0. 
2706 ax Else carry clear; D1 points at FIFO (=CR); P=0. 
2707 x 
2708 ®* Calls: WRNSG (only on error condition--falls through). 
2703 aK 
2710 Rk Uses. ...... 
2711 cis C(S5-0],P,01,8[B),S1. 
2712 ak {R-D,DO,D1,P,R0,scratch RAM if error} 
2713 ae 
2714 Ak Stk lvis: 0 
2715 ee 
2716 ** Detail: 
2717 i The following bits of C[B] enable the following 
2718 Re conditions: 
2719 ae 
2720 a Bit Nare Condition 
ak ok. ele, 8 wees 


2721 
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2722 ax ©  ODATERR Data error (error). 
2723 a 1 TUSLOW Too slow (error). 
2724 KK 2 JUFAST Too fast (error). 
2725 ax 3. Over/Under FIFO over-/under-f low. 
2726 ae 4 BYTE 1 byte ready. 
272? am 5 BYTE2 2 bytes ready. 
2728 ax 6 BYTE3 3 bytes ready. 
2729 RK ? ~— BUFREQ 4 bytes ready. 
27H ax 
2731 ax Because of the error return, WAIT cannot be called fron 
2732 ax the top level of code. Typically it 1s called fron a 
2733 ax read/write routine which is called from the top level 
2734 x of code. 
2735 ax 
2736 am Certain errors are interpreted as "verify failure" if 
2737 a we are verifying. $1 indicates on entry that we are 
2738 ax in verify. If it is set, the following conditions 
2739 ak Will not cause an error message to be generated, but 
2740 a they will cause $1 to be cleared, indicating to caller 
2741 ax that a verify failure occurred: 
2742 aA DATA ERROR. 
2743 x TOO SLOW while BRKSRV set. 
2744 a 
2745 ** Algorithn: 
2746 ae Write enable bits to RQEN1-RQEN2. 
2747 ax Set master display driver tiner to 7.5 seconds. 
2748 ex : Read enable bits (RQEN1-RQEN2) and request bits 
2749 a (CRRQS1-CRRQS2). 
2750 ak AND enable bits mith request bits. 
2751 ae If any error bits set then goto 2. 
2752 ax If tined out then report eRWERR; eject RSTK level and 
2753 xe RTNSC. 
2754 Ax : If bit 2 set, send "too fast" message; eject RSTK level 
2755 a and RTNSC, 
2756 xm If in VERIFY goto 4. 
2757 ie : If bit 1 set, send "too slow" message; eject RSTK level 
2758 ae and RTNSC. 
2759 a If bit O set, send “data error” nessage; eject RSTK 
2760 ai level and RINSC. 
2761 aX If any of bits 3-7 set, RINCC. 
2762 ae Goto 1. 
2763 ot : If bit 1 set and BRKSRV clear then goto 3. 
2764 a Clear verify flag; RINCC. 
2765 ay 
2766 ** History: 
276? a 
2768 eA Date Progranner Modification 
2769 eee 
2770 * 06/23/82 NN Added docunentation 
277i a 
2772 JOOS ISIS IIIS GIGS IE III Re 
2773 FIO IOI IOI IO OOO TR OI IO I IG OOO 
2774 x 
2775 


2776 


* NOTE: ABOVE CODE FALLS INTO THIS 
x 
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2777 


2778 
2779 


2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2783 


27%) 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 


2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 


2823 
2824 
2825 
2826 


10144 


10148 
1D14E 


10155 
10157 
1D15A 
10150 
10161 
10165 
10168 
1D16B 


1F01 
oC2 
14D 
1F 8F 
3E2 
26 
Ag? 
AZE 
16D5 
15F5 
B26 
SIE 
CE 


WAIT 


WRITDL 


1D16D 20 


1D16F 


10176 
10179 
1D17C 
1D17E 
10180 
10184 
10187 
1D18B 
1D18E 
10190 
10193 
10195 


1D19C 
101R0 
1B1A3 
1D1R6 


101AA 
1D1AC 
1D1B0 
10183 
10785 
10189 
1D1BC 
101 BF 
10102 
10105 
1B1C7 
1DICA 
1D1CE 
1D1D1 
10104 


1D1DB 
1D1DF 
1D1E2 
1D1E5 


1FO1 
0C2 
147 
AES 
F6 
F6 
0E61 
x»? 
OE05 
SOE 
72 
960 
D1 
{FOF 
3E2 
1570 
ROG 
5BC 
1D00  DTERR 


WTLOOP 


Di=(5) (=CR)+16 


DATI=C B 
01=(5) =TINER1 


6 

WP 

KS 

6 

6 

KS 

WP 
WATTOL 


0 
(=CR)+16 


D1=(5) 


C=DAT1 
8=C 
CSR 
CSR 
B=C8B 
LCHEX 
C=B8c 
7C#0 
GOYES 
7BHO 
GOYES 
01=(5) 


mn 
7~ 
= 


AITCC 


“Ea wmovVvNnwowvDDTwD 


C=DAT1 
C=C+C 
GONC 
D1=(2) 


vo 


WT LOOP 
=eRWERR 


=TIMER1 )+5 


3:35 ari 
Page 54 


Fri Dec ®, 1983 


Write enable bits 


7.5 sec tineout 

Read it back 

C[5-0]=000000 if urote right 
Wrote OK? 

No. Try again. 


Any error bits? 
Yes 


No. other req bits set? 


Assurie kchunk won’t ness this up. 
Tined out? 

No 

"R/W error" 


* Following tay be nessy and unstructured, but it saves 
* Valuable subroutine stack and code. 


07 WAITER 
6BOE 
1CF 
03 
1000 CERR 
ANG 

ROG 

4RE 

871 

FO 

AO6 

1D00 —- TUSLO? 
48D 
54D 
1F41 
oC2 
1572 
A26 
R26 
R26 


WAI TCC 


VFYER? 


C=RSTK 

GOTO = =WRNSG 
Di=D1i- 16 
RTNCC 

D1=(2) =eTUFAS 
C=C+C P 

C=C+C P 

COC WAITER 
ST=1 1 

GOYES VFYER? 
C=C+C P 
D1i=(2) =eTUSLO 
GOC WAITER 
GONC DTERR 
D1=(5) (=CR)+#14 


C=DAT1 XS 
C=C+O XS 
C=C+€ XS 
C=C+C€ XS 


Throw off calling routine 
Display error nessage 


Go if "too fast" 
Are we in verify? 
Yes. 
No. Too slow? 
Too slon. 

Data error. 
Point at CRCNTL 


Carry set if BRKSRV. 
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GOc VFYER! This IS a verify error. 
C=C+C P Too slow? 
COC TUSLO? Yes. Report as too slou. 
VFYER! ST=0 = 1 Report as verify error. 
RTNCC 


2831 1D1F4 03 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

285? 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 1D1F6 AFO 

2867 1D1F9 CEE 

2868 1D1FD 400 

2869 10200 68EE 

2870 

2871 10204 8D00 
000 

2872 1D20B 8D00 
000 

2873 1D212 8hOd 
000 

2874 10219 62CE 


JOO III IIIS ISISISISISCIGIO O IIE 
JO IOI I TI TOIT TIT II IIIT IIS I IIS SII IS ISSA A 
ak 

xk Nane: WRT2-0 - Write 16 Nibbles Of Zeroes 

kk 


4* Category: LOCAL 

x 

** Purpose: 

KK Write 16 nibbles of zeroes. 
ak 


*k Entry: 

xk 

AX Exits 

xk Carry set iff failure on write. 
aK 


4k Calls: WRIT8S. 


wk A,C{5-0},P,01,B[B],S1 
aa {A,B,C,0,00,R0, scratch RAM} 


KK Stk lvls: 2 


*k Detail: 

xx Used to write zeroes between fields. 
ok 

** History: 

kk 


xk Date Progranner Modification 
MN: Becuiiees  eescceeeen: wie vaeescueto tose css oe ee 


** 06/23/82 NN Added docunentation 
tok 
JOTI ITI I III TO IT ITI TITAS TI ITI IO IIR II IAS 
FOI TU OTTO OO TOO OTTO IIL 
WRT2-O A=O W 
GOSUB WRIT8S 
RTNC 
GOTO WRIT8S 


x 


=esru§ GOVLNG =CSRWS 
aslu5  GOVLNG =ASLWS 
asrw§ GOVLNG =ASRW5 
sense GOTG  READ&S 


Saturn Assenbler 





Card Reader Nodule <831212.161 Fri Dec 30, 1983 3:35 an 


Ver. 3.39/Rev. 2306 Copy card 


2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2834 
2895 
2896 
2897 
2898 
2893 
2900 
2901 
22 
2903 
2904 
2905 
296 
297 
2908 
2H9 
2910 
2911 
2312 
2313 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 


ak 
xx 
ak 
xk 
a 
xk 
ah 


xx 


Page 56 


STITLE Copy card 
KIKI IIIS II IIIT IDI SEIS TIA III IIIA IDI AISISII II IIS IIIS SSIS ISIS SIT IIA 


FOOT IIT ICICI IOI IO 


Nane:(S) CRDFIL - Copy Card Into RAN 


Category: 


Purpose: 


FILUTL 


Copy a file fron card into nenory. 


Entry: 


R3 = nane of file to look for on card (zeroes if not 
specified). 

R2 = nane of file to be used in RAM after it 1s read 
in (zeroes if not specified). 


Exit: 


Returns if successful. 

R2(Aj=pointer to file header of file just read in. 

If read fails, this code performs an error exit and 
does NOT return. 


Calls: 


Stk lvls: 


Detail: 


ASRW4, CHKSUN, CLRALL, CMPALL, CMPWRT, 

CR??, CRDFAB, CRDOFF, CREATF, DONIBC, D1+138B, 
D1+29B, FILEF, FNDCLR, HDRHDR, IGAL36, LAKEYS, 
LC2TRK, MAKHDR, MENCKL, MOVED3, NOCONP, OFFSET, 
PLLCRD, R1D037, R1ITODO, RALIGN, RDSOC, RDYTRK, 
READ8S, READCS, READFL, RTODP, RWERR, SETBIT, 
SWPBYT, TRKDON, WRMSG, asluS5, asrw5, crifnd, 
csrw5, fpoll, idiva, mvnen+, noscrl. 


EXITS through BUFDAL. 
R,B,C,D,P,D0,D1,RO-R3,ST, SCRICH, SNAPBF, 
8 or so levels in RSTKBF. 


5 


Creates an I/Obuffer for the card header and then 
creates the biggest possible file in the available 


nenory. 


Setting aside as many nibbles at the end as 


are necessary to naintain a tracks-read bitnap, reads 
the card into the file and then collapses the file to 
the proper size after the read. 


Register usage in CRDFIL routine: 

R1[4-O]=address of data area in file (past header). 
(9-5]=anount of available nenory in data area. 
[14-10]=size of bitnap. 

R2=pointer to header. 


Algorithn: 
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2931 ax Perforn MEMCHK on (size of file header) + (size of card 
2932 xx header I/Obuffer) + (leeway); eMEM if failure. 

2933 aK Conpute remaining space (B=C-B). 
2934 ax Add headersize for full file size (C=B+tHDRSIZ). 
2935 aK Create file {this creates the biggest allowable file, 
2936 ae Hith R1 pointing at start of file header}. 
2937 ae Write filenane passed in R2 to file header. 
2938 ak Zero out filetype field in file header. 
2939 ae Hold address-of-file-data-area and size of file- 
2940 ax without-header in RO[9-5] and RO[A], respectively. 
2941 aa Determine size of bitmap needed { (#nibs in file data 
2942 an area)/(#nibs in four tracks) + 1 }. 
2943 aa Ri[Aj=address of file data area {past header}, 
2944 aR R1[9-5]=(size of data area) - (size of bitmap) 
2945 ax {eNEN if subtraction generates carry}, 
2946 ae R1[14-10]=size of bitnap {located at end of data 
2947 xx area}. 
2948 aR Clear all bits in bitnap. 
2949 ax Create card header I/Obuffer. 
2950 aK R2{Aj=pointer to buffer area {past header}. 
2951 xk 1: Send READ aligntient message to display; CROFAB, RTNABT 
2952 “abe if abort indicated by RALIGN. 
2953 ak Send PULL CARD message to display. 
2954 xk R4[S]=0 {indicate read has not occurred}. 
2955 Ra Read SOC and WPROT (RDSOC); goto 1 if error. 
2956 xx Set FLGSRY. 
2957 an Read card header into card header I/Obuffer (MAKHDR); 
2958 me goto 1 if error. 
2959 aR Read filenane passed fron file header. If nonzero and 
2960 _ doesn’t natch filenane on card; eWRGNM and goto 1. 
2961 a {We have nou detertiined the card header; hence 
2962 a filesize, nane, etc. There is no turning back. } 
2963 ke 2: Set FLGSRV. 
2964 ae Conpute offset for this trk based on trk# (OFFSET). 
2965 ak D[A]=#full {8-nibble} FIFO reads; D[S]=size of partial 
2966 ae read * 2, 
2967 x If track will not fit 1n available nenory, error out 
2968 — with efMEN. 
2369 xk 3: If D=0 goto 4. 
2970 RK Read 8 nibs fron FIFO. 
2971 a Write at DO. 
2972 ax Increnent DO. 
2973 ae Goto 3. 
2974 4: If there is no partial read goto 5. 
2975 aS Perforn partial read. 
2976 as Write at DO. 
2977 kx 66: Turn off card reader. 
2978 AS Conpute checksun of data just read. 
2979 ae Corpare to checksun in header; if not natch eRWERR and 
2980 a goto 6. 
2981 ae Set bit corresponding to current trk# in bitmap. 
2982 KK R4[S}="F" {indicate READ has occurred}. 
2983 ** 6: If filenane in file header = 0, copy name from card 
2984 xx header 1/Obuffer. 
xx 


2985 


Search for filenane in file chain. 
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2986 a If address found # address of this file then error out 
2987 a with eFEXST. 

2988 mS If filetype in file header <> 0 goto 7. 

2989 ae Conpute filetype and security based on filetype in 

2990 ak card header I/Obuffer (HDRHDR). 

2991 a If filetype unrecognized and not standard range then 

2992 ak error out with eF TYPE. 

2993 ee If filetype unrecognized and standard range and private 
~ 2994 Rk then error out uith eFPROT. 

2995 ae Write unencoded filetype and flags to file header. 

2996 ak Read filenane fron file header. 

2997 aK If frlenane <> "keys "then goto 7. 

2958 ak If unencoded filetype <> =fKEY then error out with 

2999 ax eF TYPE. 

HO00 kk 7: Check if uhole card set fits. If not 

HO1 aK then error out with elEn. 

H02 ak Compute nax trk#. 

HO3 kk Write max trk# to card header J/Qbuffer. 

3004 ae If R4[S]<>0 then send "Trk #xxx done" to display. 

3005 a Find first unread trk# (FNDCLR in bitmap). 

06 ak If next trk# > nax trk# then goto 8. 

307 ae Send READ alignnent message to display. 

08 ae If abort, deallocate file and exit through RTNABT. 

R09 a Read SOC and WPROT; goto 6 if error. 

#10 a4 { Now we will copy the card header to the card header 

11 ae I/Obuffer, selectively corparing nibbles as we go. 

12 aa If a read error occurs; goto 6. If a compare error 

013 odes occurs, give eNOTST warning and goto 6.} 

14 ax Copy card header to card header I/Obuffer, conparing 

3015 ak bytes 0, 5-26.5 {lonib of byte 26}. 

16 ak Conpare header checksum with value on card. Warn with 

#1? a4 eRWERR if not match and goto 6. 

18 a Goto 2. 

3019 ak 8: «{ At this point, C[A} contains the length of the data 

20 ax area). 

H21 ak C{A)=C{AJ}+5 {compute file chain length}. 

H22 ae If filetype <> LIF1 then goto 9. 

023 a { File length on card is a multiple of one sector, 

24 xk which in general pads the LIF1 file a uhole bunch. 

H25 7 We seek to crunch the file doun to its proper size. } 

26 ak Chain through LIF1 file looking for last record {FFFF}. 

x27 am If found {file not corrupt}, use smaller chain len. 

28 ak Stash inplenentation field in R3.]} 

29 aK If copy code = 0, then irplerentation field{A] is the 

2030 am actual file length; add 5 for chain len. 

031 aa { We now have the file chain len--either fron card 

32 ae header, looking at LIF1 chain or inp field}. 

033 ak Write file chain len to chain len field in file hdr. 

34 ak Conpress file to proper length. 

35 *e If copy code=1, retrieve inplenentation field; insert 

36 sees into file after chain length; modify chain length. 

X37 ae Send CR-LF to display. 

038 = Return. 

3039 = 

40 **k History: 


Saturn Assenbler 
Ver. 3.39/Rev. 2306 Copy card 


041 
H42 
H43 
044 
045 
46 
#47 
H48 
049 
3050 
3051 
52 
3053 
54 


355 
3056 
305? 
58 
3059 
X60 
Ho 
Hb2 


X63 
X64 
#65 
X66 
6? 
68 
69 
H 70 
HW? 1 
72 
073 
H74 
3075 
376 
H%??7 
78 
79 
80 
081 
82 
83 
3084 
385 
X86 
8? 
088 
89 


90 
0391 
32 


10210 


1D221 
10223 
10225 
10229 


1D230 
10233 


10235 
10237 
1023B 
1D23D 


10244 
10248 
1024B 
1D24F 
1D252 
10254 


1D25? 
1D25A 
1D25D 
1D25F 
1D262 
10264 
10266 
10269 
10268 
10260 
10271 
1D273 


10276 
1D278 
10278 
1D27F 
10283 


1D28A 
1D28E 
1D290 


737 


20 
D2 
314? 
8FOO 


4E4 
D5 


D2 
3152 
c3 
8FOO 
000 


767B 
118 
1547 
16F 
D2 
144 


16F 
146 
D5 
132 
20 
D2 
305 
CA 
E1 
7 ASF 
4 
100 


CC 
5RO 
7CRE 
67DC 
3405 
410 
74(B 
£4 
118 
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ka 
a Date Progranner 
A cote feos 
Rk 07/14/82 = NM 
*k 02/25/83 NM 


xk 
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Fri Dec 3, 1983 


Nodification 


Added docunentation 
Updated "CALLS" section 


FOO OOO OT TTT TIT TI TTI TTT IDI TTI TIN 
FOO IIIT TT TT TTT TTDI IK 


=CRDFIL GOSUB CR?? 

* Check 1f roon for file 
p= 
C=0 A 
LC(2) 
GOSBVL =NENCKL 


COC NONEN 


Rtn if cr present. 


(HDRSIZ)+2*36+7 


Roon to create file & hdr bfr? 


No. 


* Create available nenory file 


B=C A 

x 
C=0 A 
LC(2) HDRSIZ 
C=B+C A 
GOSBVL =CREATF 


* Abort 
* Write out nane 
GOSUB R1TOD0 
C=R2 

DATO=C W 
DO=D0+ 16 

C=0 A 
DATO=C A 


Filesize with header 
Create the file 


routines fron here on in nust delete file!!! 


File pointer 
Filenane to use in RAN 
Write out to nane field in hdr 


Zero out 5 nibs at filetype 


* Partition avnen file into file and header areas 


DO=00+ 16 
C=DATO R 
B=C A 
RDOEX 
p= 
C=0 
LCHEX 
R=A+C 
B=B-C 
GOSUB 
A=B 
RO=A 

* Create bitnap 
A=A-1 A 
GONC = =CRDF13 

CRDFNM GOSUB CRDFRB 

NOMEN GOTO NROON 

CRDOF13 LC(5) 2*4*( TRKSIZ) 


Do wDwovmDe 


GOSUB idiva 
R=A+1 A 
C=RO 


File chain length 
Hold 
Pointer to chain len 


$ize of chain len field 
Addr of start of file info 
Remaining wenory 
A[9-5]=address 
A[A]=(file-hdr)size 

Hold 


Go if sufficient nerory 


Error out 
#nibs in 4 tracks 


Determine bitnap size needed 
# nibs for bitnap 
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3093 10293 E2 C=C-A A Reduce avnen by bitnap size 
394 10295 727F GOSUB asluS 

3095 10299 DA A=C i] 

3096 1029B 7C6F GOSUB asluS 

3097 1D29F 716F GOSUB csru5 

398 102A3 DA A=C A A[a]=addr, [9-5 ]=avnen, [14-10]=bnip 
3099 102A5 101 R1=A 

3100 1D2A8 42D GOC CRDF AA Go if insufficient menory 
3101 1D2AB 7466 GOSUB CLRALL Clear bitnap 

3102 * Create ifobuffer for header 

3103 1D2AF 7A3C GOSUB IOAL36 Allocate I/OQbuffer 

3104 102B3 137 CDIEX We already know it fits 

3105 1D2B6 10A R2=C Save pointer to buffer hdr 
3106 102B9 137 CDIEX 

3107 * Ready to prompt for first card 

3108 1D2BC 7C8D CRDOF20 GOSUB RALIGN "read: align, then endln" 
3109 1D2C0 SAO GONC CRDF3O No abort 

3110 1D2C3 7466 ROABT! GOSUB CRDFAB Abort 

3111 1D2C7 61FB GOTO  RTNABT 

3112 * Pull card 

3113 1D2CB 787C CRDF30 GOSUB PLLCRD 

3114 1D2CF AC2 C=0 S 

3115 1D2D2 10C R4=C Indicate read hasn’t occurred 
3116 102D5 7798 GOSUB RDSOC Get past start of card 

3117 102D9 42E GOC CRDF20 Error 

3118 1D2DC 7ADD GOSUB READFL Set flgsrv 

3119 1D2EO 11f C=R2 

3120 102E3 134 DO=C Point at i/obuffer 

3121 1D2E6 7676 GOSUB MAKHDR Read card header into i/obuffer 
3122 1D2EA 41D GOC CRDF 20 Go if error 

3123 1D2ED 77CA GOSUB RTODP 

3124 102F1 70FB GOSUB 01+13B 

3125 1D2F5 1577 C=DAT1 W Read filenarie 

3126 1D2F9 113 A=R3 Expected nane 

3127 iD2FC 978 *A=0 OW Was anything expected? 

3128 1D2FF 31 GOYES CRD130 No 

3129 10301 972 A=C OW Yes. match? 

31% 10304 £0 GOYES CRD13% Yes 

3131 10306 1D00 D1=(2) =eWRGNM "wrong nare" 

3132 1D30A 7RAC GOSUB WRASG 

3133 1D30E 6DAF GOTO  CRDF20 Try again 

3134 * Header is now determined 

3135 * Read loop starts here (in the riddle of the card, of course. ) 
3136 10312 74AD CRD130 GOSUB READFL Set flgsrv 

3137 10316 77E6 GOSUB OFFSET Compute card starting offset 
3138 1D31A D8 B=A A Stash 

3139 1031C CA A=A+C A Add trksize for ending offset 
3140 1D31E AF3 D=0 W 

3141 10321 D7 D=C A 

3142 10323 C? D=D+D A 

3143 10325 817 DSRC Read counter 

3144 10328 119 C=R1 

3145 1032B C9 C=C+B A Starting address 

3146 10320 134 DO=C 

3147 10330 70DE GOSUB  csrud Avail men 
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3148 
3149 
3150 
3151 
3152 
a0S3 
3154 
3155 
3156 
315? 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
316? 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
318? 
3188 
3189 
31% 
3191 
3192 
3193 
3194 
3195 
3196 
319? 
3198 
3199 

200 
3201 
3202 


10334 
10337 
10339 
1033D 
1D33F 
10342 
10346 
10349 
1034D 
10350 
10354 
1035? 
1D35A 
1035D 
1D360 
10364 
10367 
1D036A 
1D36E 
10372 
10376 
1D37A 
10370 
10380 
10382 
10385 
10389 
1038¢ 
1D38F 
1D393 
10396 
1D39A 
1039C 
1D39F 
103A1 
103A5 
103A5 
1D3A9 
1D3A3 
103AD 
103B0 
1D3B3 
1038? 
103B9 
1D038C 
103BF 
10303 
1D3C? 
1D3CA 
1D3CC 
1D3CF 
103DB2 
10306 
103DA 
1D3BE 


8BA 
60 
614F 
CF 
441 
769D 
401 
1587 
167 
6CEF 
81F 
A4F 
ACB 
441 
7290 
404 
ACB 
80DF 
1501 
7030 
7786 
134 
119 
C2 
136 
756A 
11A 
135 
794B 
175 
15F3 
23 
912 
RO 
7 ARB 


6310 


?BOR 
174 
14F 
7096 
eF 
SOF 
10€ 
7522 
rag 
970 
41 
11A 
136 
7FOB 
E537 
150? 
20 
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Copy card 


CRD140 


CRD150 


CRD155 


CRD160 


CRDERR 
CRD180 


CRONXT 


CRDN10 


PAK =C 
GOYES 
GOTO 
D=D-1 
GOC 
GOSUB 
GOC 
DATO=A 
DO=D0+ 
GOTO 
DSRB 
0=0-1 
C=D 
GOC 
GOSUB 
GOC 
C=D 
P=C 
DATO=A 
GOSUB 
GOSUB 
DO=C 
C=R1 
C=A+C 
COOEX 
GOSUB 
C=R2 
DI=C 
GOSUB 
01=D1+ 
C=DAT1 
P= 
?A=CL 
GOYES 
GOSUB 


GOTO 


GOSUB 
Di=D1+ 
C=DAT1 
GOSUB 
P= 
LCHEX 
R4=C 
GOSUB 
R=DATO 
PAHO 
GOYES 
C=R2 
BI=C 
GOSUB 
A=DATI 
DATO=A 
p= 


A 
CRD140 
CRDF NM 
A 
CRD150 
READ8S 
CRD155 
8 
8 
CRD140 


Ss 

S 
CRD160 
READCS 
CRDOERR 
S 

15 

WP 
CRDOFF 
OFFSET 


A 
CHKSUN 


01+298 
23 

4 

3 

WP 
CRD180 
RWERR 


CRONXT 


RTODP 
e 

B 
SETBIT 
1 

F 


R1003? 
W 
W 
CRDNIO 


D1+13B 
Wi 
W 
0 
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Roon for this card? 

Yes 

No roon for card set 

Any nore full words to read? 
No 

Yes, read. 

Go if error or abort. 

Write it out 


Size of partial read in nibs 
0? 


Yes 
No. do partial read. 


f#nibs in read 

Write out partial read 

Turn off card reader 

Trk offset to a, trksize toc 
Hold size 

Pointer to start of data 

Addr of this track 

Adr in dO, size inc 

Compute checksun 


Expected checksun 


Match? 
Yes, read was good. 
No. "checksun error" 


On to next card. 


Current trk# 
Mark as read 


Indicate that read has occurred 
Point at filenane in file hdr 


Filenane specified? 
Yes 


Point at filenane 
Read filenane fron card 
Write to file header 
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3203 


3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
32H 
3231 
3232 
3233 
3234 
3236 
3236 
3237 
3238 


3239 
3240 
3241 
3242 


3243 
3244 
3245 
3246 
324? 
3248 
3249 
3250 
3251 
3252 
3253 
3254 


1D3E0 


1D3E? 
1D3EA 
1D3EE 
1D3F1 
1D3F4 
1D3F? 
103F9 
1D3FD 
10401 
10405 
10408 
1D40B 
1D40E 
10411 
10414 
10417 
10419 
1D41C 
1D41F 
10423 
10426 
1D42R 
1D42E 
10431 
10433 
10437 
1D43B 
104 3F 
10443 
10446 
10449 
10448 
1D44E 
10451 
10453 


1D45A 
1D45E 
10461 
10463 


10463 
10468 
1D46E 
10470 
10474 
10478 
104 7¢ 
1D4?7F 
1D482 
1D485 
10489 
1D48C 


8F00 
000 
401 
RF 1 
132 
137 
8R2 
£0 
7E25 
1000 
673C 
113 
135 
CF 
1€4 
147 
8AE 
56 
11A 
134 
7F 36 
5RO 
7105 
6438 
831 
EO 
74F4 
1D00 
6DFB 
1593 
173 
14D 
D8 
1C3 
1CF 
20 
8F0O 
000 
1637 
976 
Bi 
33C0 
2E 
23 
911 
£0 
7784 
6REA 
620E 
114A 
134 
169 
71C5 
185 
111 
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CRDN2O 


CRHD10 


CRHD60 


crdfnri 
CRHD70 


GOSBVL 


GOC 
GOSUB 
ADOEX 
CD1EX 
*A=C 
GOYES 
GOSUB 
01=(2) 
GOTO 
C=R1 
01=C 
01 =01- 
01=01- 
C=DAT1 
?C#O 
GOYES 
C=R2 
DO=C 
GOSUB 
GONC 
GOSUB 
GOTO 
?KM=0 
GOYES 
GOSUB 
D1=(2) 
GOTO 
DAT1=A 
D1=01+ 
DAT1=C 
B=A 
D1=D1- 
01=D1- 
P= 
GOSBYL 


R=DAT1 
*AHC 

GOYES 
LC (4) 


p= 
?B=C 
GOYES 
GOSUB 
GOTO 
GOTO 
C=R2 
DO=C 
DO=D0+ 
GOSUB 
DO=00- 
A=R1 


=FILEF 


CRDN2ZO 
R1D037 


A 
CRDN2ZO 
CRDFAB 
=eFEXST 
errout 


16 

§ 

A 

A 
CRHD70 


HDRHDR 
CRHD10 
CROFAB 
FTYPER 


CRHDEO 
CROFAB 
=eFPROT 
errout 


a 


4 
4 
B 
A 
4 
1 
0 


LAKEYS 


W 

W 
CRHD70 
=fKEY 


3 

WP 
CRHD70 
CRDFAB 
FTYPER 
CROFNM 


256 
DONIBC 
er3 


Page 62 
Search for file 
Go if doesn’t exist 


Pointer to current file 
Pointer to found file 
Sarie? 

Yes. not duplicate nane. 


"file exists” 


Point at filetype in file hdr 


Have we done filetype yet? 
Yes 

No. 

Point at start of card hdr. 
Get unencoded filetype and flags 
Go if recognized or std range 
Unrecognized. collapse file. 
Error out 

Unrecognized & std & private? 
No 

Yes. abort. 

File protection error 

Error out 

Write out unencoded filetype 


Write out flags 
Stash filetype 


A=C=" syek" 

Read filenane fron file header 
Narie = "keys me 

No 

Yes 


Are ue reading in a key file? 
Yes 
No. Abort 


Filesize in nibs 
Point at max trk# 
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3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3283 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
329? 
3298 
3299 
3300 
31 
IHe 
33 
3304 
3305 
3306 
3H? 
3H8S 
3309 


1D48F 
10493 
10496 
10499 
1D49C 
1D49F 


1D4A1 
1D4A4 
1D4A7 
1D4AA 
1D4AE 
1D4B2 
1D4B5 
1046 

1D48A 


1D48D 
1D4CO 
104C3 
1D4C5 
1D4C9 
1D4CB 
1D4CF 
10401 
1D4D3 
10407 
1D4DA 
1D4DE 
1D4E1 
1D4E4 
1D4E7 
1B4EA 
1D4ED 
1D4EF 
1D4F3 
1D4F7 
1D4F9 
1D4FC 
1DAFE 
1050e 
1D506 
{050A 
1500 
10514 
10514 
1051? 
1D518 
1D51E 
10522 
10525 
10528 
1D52B 
1D52F 
10532 


7F7D 
136 
167 
136 
8B2 
90 


137 
iC? 
133 
7DE6 
70A9 
8A9 
50 
B64 
148 


1iC 
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* Recalculate trksize in case 


CRD220 
k 


CRD222 


CRD225 
CRHD35 


CRO2H 
CRD 240 


GOSUB = asru5 
CDOEX 
DO=D0+ 8 
CDOEX 

AcE OR 
GOYES crdfnn 


CDIEX 

Di=D1- 8 
AD1EX 

GOSUB LC2TRK 
GOSUB idiva 


*B=0 6 —A 
GOYES CRD220 
A=A+1 2B 
DATO=A B 

C=R4 

=0 «6§ 


GOYES CRD222 
GOSUB fpoll 
CON(2) =pRCRD 
GOSUB  TRKDON 
(=O A 

C=C+1 A 

GOSUB FNDCLR 
GOC —-CRD225 
GOSUB RTODP 
Di=D1+ 2*2 
A=DAT1 B 
D1=D1- 2 
DATI=C B 

7C<=A B 

GOYES CRD240 
GOTO CRDDON 
GOSUB fpoll 
CON(2) =pCRDAB 
7xN=0 

GOYES CRD230 


GOTO RDARBT! 
GOTO  RTNABT 
GOSUB RALIGN 
GOC CRHD35 
GOSUB =RDYTRK 
C=0 S 

R4=C 

GOSUB =RDSOC 
COC CRDER? 
GOSUB  READFL 
C=R2 

Do=C 

D=0 W 
GOSUB READ8S 
COC CRDER? 
(=0 W 


Page 63 
Available space 


8 nibbles extra in case file... 
has inplenentation field 
Space>=filesize? 

No. Insufficient nenory. 

read of wrong set munched it 


Actual size of card set 


Size of a track 
Filesize/trksize=#trks 
Any remainder? 

No. 

Yes. Inc #trks. 

Write out max trk# 


Was a read done? 
No 
Poll for card read processing 


"trek #HHH done" 


Find first unread trk# 
Hr... guess we’ re done 


Read riax trk# 


Write out next trk# 
Rre we done? 

No 

Tidy up 

RBORT 


Handled? 

Yes. Handler collapsed, etc. 
No. Collapse and abort. 
Just abort. 

Prompt for new card 

Done. tine to pack. 

Pull card. 


Indicate read hasn’t occurred 
Get past soc stuff 

Go if error 

Set flgsrv for header field 


Point at header area 
Space for checksun 
Read bytes 0-3. 
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3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3441 
3342 
3343 
3344 
3345 
3346 
334? 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3365 
3356 
3387 
3358 
3359 
3360 
3361 


3362 
3363 


10535 
10538 
1053C 
1D53F 
1D543 
1054? 
1D54B 
1DS4F 
10552 
10555 
10558 
1055B 
1D55F 
10562 
10564 
10567 
1D56A 
1D56E 
10571 
10575 
10578 
1D57B 
1D57E 
10582 
10585 
10588 
1D58A 
1DB58D 
10591 
1D594 
10598 
10598 
1059F 
1D5A3 
1D5R6 
1D5AR 
1D5AC 
1D5SAF 
1D5B2 
105B5 
1D5B8 
105B8B 
1DSBE 
1D5C1 
1D5C3 
1D5C6 
1D8C9 
{DSCC 
1DSCE 
1D5D0 
1D5D2 
1D5D4 


1D5DB 
iD5DE 


ROE 
75F5 
5E0 
1000 
7178 
677E 
7088 
47F 
AF 2 
A7E 
RE2 
7205 
4FD 
2F 
303 
AC? 
7E6B 
48D 
7685 
49C 
R4F 
5EE 
7A5B 
44C 
AF 2 
26 
ATE 
70A5 
40R 
7448 
49€ 
78A5 
7938 
4&0 
1587 
23 
ASB 
Al2 
550 
B16 
BF? 
BF? 
BF? 
F? 
A1B 
550 
B16 
D7 
F6 
F6 
CB 
8FOO 
000 
962 
B1 
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BADHDR 


CRDER? 
CRD270 


CRD280 


CRO285 


CRD290 


CRDO 


C=C-1 8B 
GOSUB CMPNRT 
GONC CRD270 
D1=(2) =eNOTIN 
GOSUB = WRHSG 
GOTO CRONXT 
GOSUB READ8S 
GOC CRDER? 
C=0 W 
C=C-1 W 

C=0 B 
GOSUB CHPWRT 
GOC BADHDR 
P= 15 
LCHEX 3 

D=C S 
GOSUB READ8S 
GOC CRDER? 
GOSUB CNPALL 
GOC BADHDR 
D=D0-1 §$ 

GONC  CRD280 
GOSUB READ8S 
GOC CRDER? 
C=0 W 

P= 6 
C=C-1 WP 
GOSUB CMPWRT 
GOC BADHOR 
GOSUB READ8S 
GOC CRO285 
GOSUB NOCONP 
GOSUB READ8S 
GOC CRD285 
DATO=A 8 

P= 3 

C=D WP 
C=A+C WP 
GONC CRD290 
C=C+1 WP 

DSR W 

DSR W 

DSR W 

DSR A 
C=C+D WP 
GONC  CRD300 
C=C+1 WP 

D=C A 

CSR A 

CSR A 
C=C+D A 


GOSBYL =ASRW4 


*A=C OB 
GOYES CRD310 


3:35 an 
Page 64 
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Copy to ran. conpare subfnt. 
Go if compared ok 


"card not 1n set" 


Read bytes 4-7 of header 


Copy. conpare bytes 5-7. 
Go if compare error. 


Prepare for 4 full compares 
Read next 4 bytes fron card 


Write and conpare 


Read bytes 24-27 


Compare bytes 24-26.5 (pss lonib) 
Read bytes 28-31 


Copy... don’t conpare 
Read bytes 32-35 


Write out 


Add data cksun to header 


Wraparound carry 


Coripress whole checksun 


Compress to 1 byte w/o wraparound 
Align expected cksun 


Agreerent? 
Yes 
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3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
338? 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 


3403 
3404 
3405 
3406 
340? 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
341? 


1D5E0 
1D5E4 
1D5E8 
105EB 
1DSEE 
1 DSF 1 
1D5F4 
1 DSF? 
1D5F9 
1D5FD 
10600 
10603 
10606 
10608 
1D60C 
1D60E 
10611 
10614 
10617 
1D61R 
1061D 
10620 
1623 
1D626 
10629 
1062B 
1062D 
10630 
10632 
10635 
10638 
1D63A 
1D63C 
1D63E 
10641 
10643 
1D645 
10649 
1D64C 


1D652 
10654 
10656 
10658 
1065A 
1D65C 
1DO5E 
1D660 
10663 
1D666 
10669 
1D66B 
1D66D 
1D66F 
1D672 


7B69 
6ADD 
119 =R1D037 
134 
184 
18F 
18F 
01 
681D CRD310 
112  CRDBDON 
134 
179 
d2 
15F3 
C6 
134 
164 
11A 
136 
114 
131 
1CF 
1C4 
143 
cc 
23 
91 
£4 
17F 
174 
D7 
D2 
20 
305 
DS 
23 
15B3 CRD320 
173 
8E00 
00 
FO 
F4 
E5 
ES 
E5 
ES 
bg 
B14 
4Al 
81C 
C4 
C4 
C8 
137 


C2 


GOSUB 
GOTO 
C=R1 
BO=C 
DO0=D0- 
00=D0- 
D0=D0- 
RIN 
GOTO 
A=R2 
D1I=A 
D1=D1+ 
C=0 
C=DAT1 
C=C+C 
DO=C 
DO=D0+ 
C=R2 
CDOEX 
A=R1 
01=A 
01=D1- 
D1=D1- 
R=DATI 
R=A-1 
P= 
?AHO 
GOYES 
D1=D1+ 
D1=D1+ 
D=C 
C=0 

p= 
LCHEX 
B=C 

P= 
R=DAT1 
D1=D1+ 
GOSUBL 


ASL 
ASR 
B=B+1 
B=B+1 
B=B+1 
B=B+1 
C=B 
A=A+1 
GOC 
ASRB 
A=A+A 
R=R+A 
B=A+B 
CDIEX 
C=A+C 


RWERR 
CRONXT 


5 
16 
16 


CRD130 


245 


or Dae D 


CRD400 


= 
nn 


S2BeauwwDnonrDnDm 


SUPBYT 


Dawmarovwvrwvvyn 


CRD400 


A 
A 
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No. bad header checksun. 


Read data field 


Point at file length 


File len in nibs 
File chain length 
Point at card header 


Point at file 


Read filetype 


Lif i? 

No 

Yes 

Point at data 

Stash current chain len 


Start of new chain len conp 
Will compute in B 
Reclen in bytes 


Put reclen in right order 


Clear upper nibble 


In case next step carries 
Reclen=ffff? 
Yes. we have new chain len 


Reclen if even, reclent1 if odd 
Convert reclen to nibs 
Add recsize to chain len 


Point past record 
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3418 
19 
3420 
3421 
3422 
423 
424 
3425 
3426 
427 
3428 
3429 
3430 
431 
3432 
3433 
3434 
3435 
3436 
343? 
3438 
3439 
3440 
3441 
442 
3443 
3444 
3445 
3446 
3447 
4448 
3449 
3450 
3451 


3452 
3453 
3454 
3455 
3456 
3457 
3458 
3453 
3460 
ol 
3462 
463 
3464 
3465 
3466 
346? 
3468 
3469 
3470 


10674 
10677 
1D67A 
1D67C 
1D67E 
1D67E 
10681 
10684 
10687 
1D68B 
1D68E 
10690 
10693 
1D696 
106393 
1D69D 
1D6RO 
1D6A3 
1D6A5 
1D6R8 
1D6AB 
1D6RE 
1D6B1 


1D6B3 
1D6B5 
1D6B8 
1D6BB 
1D6BE 
106CO 
1D6C3 
1D6C6 
1D6C9 
1D6CB 


1D6D1 
1D6D4 
1D6D8 
1D6DA 
1D600 
1D6E0 
1D6E3 
1D6E6 
1D6E8 
1D6EA 
1D6ED 
1D6EF 
1D6F2 
1D6F5 
1D6F8 
1D6FB 
1DOFE 
10702 


13? 
8B3 
BC 
DB 


16F 
16F 
169 
1587 
103 
08 
111 
131 
1CF 
1532 
A2C 
500 
D9 
137 
174 
13? 
920 
92 


D7 
135 
177 
119 
CB 
134 
137 
17? 
DF 
8E00 
00 


11B 
18C7 
DB 
111 
131 
1€4 
143 
E2 
DS 
137 
CR 
137 
iCF 
1CF 
137 
10A 
7552 
8018 
3F 


x 
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CRD390 
CRD400 


CRD410 


CRD420 


CDIEX 
C<D 
GOYES 
C=D 


GOLONG 


A 
CRD320 
A 


16 
16 
2*5 
8 


A 


16 

XS 

KS 
CRD410 
A 


5 


KS 
CRD420 


if 2D OO 


NOVED3 


Do 


apaDDuW" 


16 
16 


nyneri+ 
FINCRD 
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Exceeded original size? 
No \ 
Restore original chain len 


Save inplenentation field 
May be file length in nibs 


Point at file 
Point at copy code 


Copy code=0? 

No 

Yes. Inp field is len in nibs 
Add 5 to get file chain len 


Copy code=1? 
No. 


Hold block length 


New chain length 
Start of source 


End source 

New chain len to C 

End dest 

New ch len to D, blk len to C 
Make roon for inpl field 


Get inpl. field 
Write it out 
Recall chain length 


Point at current chain len 
Chain len of unshrunk file 
Subtract fron (sraller) chnlen 
Hold for MVNEM+ 


Rdd to chnlen for end of file 


Start of this file 


Hold pointer to file 
Shrink file 
Done 
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3471 10708 space2 BSS 3 Extra space fron packing 
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Ver. 3.39/Rev. 2306 PROTECT and UNPROTECT Page 68 
3472 STITLE PROTECT and UNPROTECT 
3473 JUICE  SR SAT 
3474 JOIST SILI RIT 
3475 xx 
3476 ** Wane: PROTCT - Protect/Unprotect Card 
3477 *% Nane: UNPROT - Protect/Unprotect Card 
3478 ah 
3479 *k Category:  STEXEC 
3480 ax 
3481 ** Purpose: 
3482 ax Write-protect or urite-unprotect a card. 
3483 ak 
3484 &k Entry: 
3485 ak DO = PC. 
3486 ak Jumped on PROTECT or UNPROTEC token. 
3487 ax 
3488 ex Exit: 
3489 ak Through NXTSTM. 
3490 ax 
3491 ** Detail: 
3432 ax PROTECT. 
3493 el UNPROTECT. 
3494 xx 
3495 *x Blgorithn: 
3496 kk PROTCT: C=FFFFFFFFFFFFFFFF. 
3497 aK Goto 1. 
3498 *x — UNPROT: €=0000000000000000 . 
3499 ax To RHC. 
3500 ah 2: Check for card reader presence; error out with 
3501 x eDVCNF if not there <{CR??}. 
3502 kK If RI[S]=0 then send "UNPR" alignrient message to 
3503 aX display, else send "PROT" alignnent nessage to 
3504 ae display. 
3505 am If abort, exit through RTNABT. 
3506 ae Send "pull card" to display. 
3507 am GETSOC; goto 2 if error or compare failure. 
3508 am GETSIZ; goto 2 if error or corpare failure. 
3509 a Set write node. 
3510 a Write 16 nibbles of zeroes. 
3511 xe Write 8 nibbles of R1. 
3512 xx Write 2 nibbles of R1. 
3513 ae Wait until FIFO enpty. 
3514 aK Turn off card reader. 
3515 ax Exit through NXTSTM. 
3516 a 
3517 ** History: 
3518 am 
3519 ae Date Progranner Modification 
3520 BK nnn nnn n new e nnn e ne enn nnn nen nn nnn nnn nnn enn n ene 
3521 kk 06/25/82 NM Added docurentation 
3522 ax 
3523 JI II CIO CII IOC ITI II II SI IK 
3524 JI OCI OCT IST IIT TIE IA I RK 


3525 1D70B 0000 
0 


REL(5) =STOPDC 
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3526 


3527 
3528 
3529 
35H 
3531 


3532 


3533 
3534 
3535 


3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 


3551 
3552 


3553 
3554 
3555 
3556 


3557 
3558 


3559 
3560 
3561 
3562 
3563 
3564 
3566 
3566 
3567 
3568 
3569 
3570 
3971 


10710 


10715 
10718 
10718 


1D71E 
10723 


10728 
1072B 
1D72E 


10734 
1073? 
10738 
1D73E 
10740 
10743 
103747 


10748 
1D74D 
10751 


1075? 
10750 


10763 
10766 
1D769 
1D76B 


1D?71 
10775 


10778 
1D? 7E 
10781 
10783 
1078? 
10788 
1D78E 
10792 
10795 
10798 
1D79C 
1079F 
107A3 


0000 
0 
RF2 
R7E 
4F0 


0000 
0 
0000 
0 
RF2 
103 
8E06 
7F 
119 
1D00 
94R 
50 
10 
7909 
5FO 


85E 
7269 
8096 


oF 
4AC 
912 
CO 
8EEC 
7F 
6CBF 
8E36 
6F 
47t 
916 
RE 
7209 
7B6R 
470 
7F29 
40D 
1 
7043 
46C 
7064 
4FB 
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=PROTCT 


=UNPROT 
PRTUOS 
PRTUNP 


PRAPT 


xi 


REL(5) 


C=0 
C=C-1 
GOC 


REL(S) 
REL(S) 


C=0 
Ri=C 
GOSUBL 


C=R1 
Di=(2) 
?C=0 
GOYES 
01=D1- 
GOSUB 
GONC 


=RTNCC 


W 
W 
PRTUOS 


=UNPRDC 
=UNPRTP 
W 

CR?? 
=eURLGN 
$ 

PRMPT 

1 


ALIGN 
PRTU1O 


B.E.T. 


Store protect/unprotect field 


UNPROTECT proript 
Protect or unprotect? 
Unprotect 

PROTECT pronpt 


x1! Replace following tuo lines with: 


tI 


x'! PRTABT GOSUB CRDOFF 


xi 
PRTABT 


ST=1 


14 


PRIEXT GOSUB CRDOFF 


PRTU10 


PROTAB 


PRTU25 


PRTU3 


GOLONG 
GOSUBL 
GOSUBL 


GOC 
*A=C 
GOYES 
GOSUBL 


GOTO 
GOSUBL 


GOC 
PARC 
GOYES 
GOSUB 
GOSUB 
GOL 
GOSUB 
GOC 
R=R1 
GOSUB 
COC 
GOSUB 
GOC 


RTNABt 
PLLCRD 
GETSOC 


PRTUNP 
WP 
PRIUX 
UNKCD 


PRTUNP 
GETSIZ 


PROTAB 
WP 
PRTU2S 
WRITE 
WRT2-0 
PROTRB 
WRITFL 
PROTRB 


WRIT8S 
PROTRB 
WRIT4S 
PROTRB 


Set don’ t-continue flag 


"pull card" 

Get soc field fron card 
Error. Try again 

Found soc? 

Yes 

No 

Prompt again 

Read card size field 


Right size? 

No. 

Get into write node 
Write 16 zeroes 


Set flgsrv 


Write protect/unprotect field 


Write tuo nore bytes 
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Ver. 3.39/Rev. 2306 PROTECT and UNPROTECT Page 70 
3572 1D7A6 7£89 GOSUB WAITHM+ 
3573 1D7AR 48B GOC PROTARB 
3574 a 
3575 *I1 Replace following tuo lines with: 
3576 a4 
3577 a GOSUB CRDOFF 
3578 aI GOLONG RTNAB+ 
3579 *1' spacel NIBHEX 00 
3580 al 
3581 1D7AD 5SF9 GONC = =PRTEXT Done 
3582 1D7B0 0000 spacel NIBHEX 000000 Extra space fron packing 


0 
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Ver. 3.39/Rev. 2306 CAT CARD Page 71 
3583 STITLE CAT CARD 
3584 JOO OIG II I TI III I TOT I III I III ISAS IIA IIIT IIIT AM 
3585 JOO ISI DO IOI III ITO OOO IT I II TI TTI T IT TTT 
3586 wk 
358? *x Nane: CATCRD - CAT CARD 
3588 AX 
3589 *k Category: STEXEC 
35% a 
3591 ** Purpose: 
3592 aK Catalog the contents of a card. 
3593 aR 
3594 &* Entry: 
3595 xk Called fron CAT routine. 
3596 ss 
3597 SA Exits 
3598 kx Through NXTSTH. 
3593 ze 
3600 ** Detail: 
3601 aK CAT CARD. 
3602 ax 
3603 *k Algorithn: 
3604 RK Check for card reader present. Error out with eDVCNF 
3605 ak if not found. 
3606 a Create I/Obuffer to contain card header and file 
3607 wk header; eMEN if not roon. 
3608 xx 1: Send "CAT" alignrient message to display. 
3609 ak RDSOC; goto 1 if error. 
3610 aR Set FLGSRV. 
3611 kx Read header into I/Obuffer {MAKHDR}; goto 1 if error. 
3612 ax Turn off card reader. 
3613 aa Send nane to display. 
3614 KK Send eTRKOF <{"(trk <trkH> of <Htrks>)"}, using trk# and 
3615 kk raxtrk# from card header I/Obuffer. {will append 
3616 ax to nane already sent} 
3617 ax Create durnny file header in I/Obuffer inmediately after 
3618 ee card header buffer. Copy nane, filetype, flags. 
3619 aS Convert file length (in bytes, fron card hdr) into 
3620 xR a file chain length and write out. Convert creation 
3621 +e date {given as seconds in century} to YYMMDDHHNMN and 
3622 te write out. 
3623 xe Call CAT$20 to prepare catalog entry. 
3624 KR Call CATI00 to send to display. 
3625 a Deallocate I/Obuffer. 
3626 a $14=0 {clear don’t continue flag}. 
362? ae Exit through NXTSTN. 
3628 ae 
3629 ** History: 
3630 + 
3631 as Date Progranrier Modification 
3632 i aaa aaa aaa ala aaa taal 
3633 KX 06/25/82 NM Added docunentation 
3634 a* 
3635 PaUSCCSCUSeCseseCetceretrtesestsstrstttrestettittertccetttesttt! 
3636 JOISTS IIT OI IT TIE TIRE IIT 


3637 1D?B6 842 


=CT$CRD ST=0 2 Indicate this is CAT$ 
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3638 


3639 
3640 


3641 


3642 
3643 
3644 
3645 
3646 


3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 


3656 


3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 


3680 
3681 


3682 
3683 


10789 


107BF 
1D7C2 


1D?C8 


1D?7CE 
10701 
10703 
1D7D5 
10709 


1D7DF 
1D7E2 
1D7E6 
1D7£9 
1D7EC 
1D7FO 
1D7F4 
1D?F7 
1D?FB 


10801 


10807 
1D80A 
1D80E 
10811 
10814 
10818 
10818 
1D81F 
1D822 
10824 
10827 
1D82A 
1D82D 
10830 
10834 
10837 
1083A 
1083D 
1D83F 
10842 
10845 
10848 
1D84B 


10852 
10856 


1D85C 
1D85E 


8ERE 
oF 
511 
809) 
6F 
8E6C 
6F 
852 
20 
4 
3106 
8£61 
7F 
460 
6C9A 
137 
10A 
1D00 
7C58 
560 
625F 
8E64 
Te 
8£96 
6F 
44E 
7CR8 
11A 
134 
7841 
430 
7498 
862 
24 
11A 
134 
16C 
16C 
1567 
108 
11B 
96A 
91 
RER 
BF6 
BF6 
10B 
8FOO 
000 
6AEF 
1A00 
00 
26 
8EBO 
7F 
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=CATCRD 


CATCOS 


CATC10 
CATC20 


CATC30 


CATC40 


CATC5O 


GOSUBL CRPRS? 


GONC CATCOS 
GOLONG CR?710 


GOSUBL CR?? 


ST=1 2 

P= 0 

C=0 A 

LC(2) 2%36+37 
GOSUBL ICAL+ 


GOC 
GOTO 
CDIEX 
R2=C 
D1=(2) =eCALGN 
GOSUB ALIGN 
GONC CATC30 
GOTO PRTABT 
GOSUBL PLLCRD 


CRTC10 
NOMEN 


GOSUBL RDBSOC 


COC 
GOSUB 
C=R2 
DO=C 
GOSUB 
COC 
GOSUB 
?S$T=0 
GOYES 


CATC20 
READFL 


MAKHDR 
CATC20 
CRDOFF 
2 

CAT$C1 


1O=D0+ 13 
DO=D0+ 13 


GOSBVL =DSPCHA 


CATC4O 
=eTRKOF 


P= 6 
GOSUBL RDYT10 


3:35 an 
Page 72 


Fri Dec 30, 1983 


CR present? 


Yes. 


No. Device not found. 


Send CR and check for CR present. 


Indicate this is CAT 


Size of card hdr + file hdr 
Allocate I/O buffer 


Go if fit 


Save pointer to buffer 
"cat: align, then rtn" 


RTNABT 
“pull card" 


Get past soc 


Go if error 
Set flgsrv for header field 


Point at header buffer 
Read in header 

Go if error 

Turn off card reader 
Is this CAT$? 

Yes. Skip message. 


Read nane 

Stash 

Loop to write out nare 
Done? 

Yes 


No. next char. 


Display current char 


Nornal msg with delay 
" (trk HAA of HHH)" 


ah 
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3684 
3685 
3686 
368? 
3688 
3689 
3690 


3691 
3692 
3633 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
370? 
3708 


3709 
3710 
3711 
S142 
3713 
3714 
3715 
3716 
371? 
3718 
3719 
3720 


3721 
3722 
3723 
3724 
3725 
3726 
Ie? 
3728 


3729 
3730 
3731 


10864 
1086? 
1D86A 
1D86E 
10871 
10874 
10877 


1D87E 
10881 
10883 
10886 
10889 
1D88C 
1D88F 
1D892 
10895 
10839 
1D89C 
1D89F 
1D8A2 
1D8A5 
108R8 
1D8AB 
1D8RE 
1D8B2 


1D08B9 
1D8BC 
1D8BF 
1B8C2 
1D8C6 
1D8C9 
1D8CD 
1D8D0 
1D8D3 
1D8D? 
108DA 
1D8DC 


1D8E3 
1D8E6 
1D8E8 
1D8EF 
1D8F6 


1D8FD 


11f 
134 
74F 1 
RES 
141A 
134 
1F85 
000 
133 
CA 

133 
141 

173 
RES 
140 
169 
71B1 
136 
164 
136 
178 
145 
167 
AF2 
15€7 
8F OO 
000 
BF6 
BFE 
1C9 
1509 
167 
1567 
1C5 
1CF 
1557 
840 
20 

8FO0 
000 


862 
D1 
8FOO 
8FOO 
8FOO 


8C5C 
oF 
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CAT$C1 C=R2 
DO=C 
GOSUB 
B=C 
C=R2 
dO=C 
01=(5) 


ADIEX 
A=A+C 
ADIEX 
DAT1=A 
01=D1+ 
C=B 
DAT1=C 
DO=D0+ 
GOSUB 
CDOEX 
DO=D0+ 
CDOEX 
D1=D1+ 
DAT1=C 
DO=D0+ 
C=0 
C=DATO 
GOSBYL 


CSR 
CSR 
01=01- 
DAT1=C 
DO=D0+ 
C=DATO 
01=D1- 
01=D1- 
DAT1=C 
$T=0 
P= 
GOSBYL 


xi 


HDRHDR 
B 


2*36+16 


owl D » 


245 
DONIBC 


12 
2x4 


=YMDHO1 


W 

W 
10 
10 
2*4 
W 

6 
16 


W 
0 
0 
=CAT$20 


x! Insert here: 


xi 


a GOSUBL BUFDAL 


tt 
*$T=0 
GOYES 
GOSBVL 
GOSBYL 
GOSBYL 


GOLONG 


2 


CAT$Ce 
=OBCOLL 


=CAT100 
=DSPDLY 
NEXTST 
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Corpute unencoded ftype & flags 
Hold flags 


Point to card header 


Point to file header + 16 


Write out filetype 


Write out flags 


Filesize in nibs 


File chain length 
Write to file header 
Read creation date 


To yrdhns 


Write out to file header 


Get filenane 


Write out nane 


Prepare catalog entry 


Is this CAT$ 
Yes. 
Collapse output buffer. 


Send (AVMENS) to display 


Off to scroll 
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3732 eI 
3733 XI! Replace following two lines with: 
3734 ait 
3735 kit CAT$C2 ST=1 0 
3736 RA 
3737 10903 8EAF CAT$C2 GOSUBL BUFDAL 
5F 
3738 1D909 850 ST=1 0 
3739 1D90C 8D00 GOVLNG =CAT$66 


000 
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3740 STITLE Copy card utilities 
3741 JO I SI III ISOS I SOS SI ISOS IOS SOS OS ISOS SOIT SI IOS I SI III IA 
3742 FI III I III IITA I I IIIS III II IIIS I SSIS ITSO ISS SSSI SII SII IIS SS IIS 
3743 ak 
3744 ** Nane: CLRALL - Clear Bitnap 
3745 ak 
3746 ** Category: LOCAL 
3747 ae 
3748 ** Purpose: 
3749 ak Clear tracks-read bitnap prior to card read operation. 
3750 aK 
3751 *k Entry: 
3752 xk R1[4-O]=address of data area, 
3753 aK [9-S]=size of data area, 
3754 xx [14-10]=size of bitnap. 
3755 aK 
3756 aK Exit: 
3757 aK Through WIPOUT. 
3758 aK 
3759 ** Calls: CSRWS, WIPOUT (falls through). 
3760 ak 
3761 kk Uses....... 
3762 ax A,C,P,00,D1. 
3763 - 
3764 ** Stk lvls: 1 
3765 aK 
3766 ** Algorithn: 
3767 ak Conpute location of bitnap (R1([A] + R1[9-5]) and 
3768 ak location (R1[14-10]). 
3769 aR WIPOUT. 
3770 ak 
3771 *k History: 
3772 ax 
3773 ae Date Progranner Modification 
3774 KK soc eee es Sw es i ats Se Sno ih SS 6 ft i kat Soi se th ko a i dl 
3775 * 06/25/82 NM Added docunentation 
3776 a 
3777 JU ITO CO TTT I ITA I IAI IS IIT TA 
3778 JIU IIT AOI I TOTTORI TIS ITS ITT I TTT 
3779 10913 119 CLRALL C=R1 
3780 10916 DA A=C A File data address 
3781 10918 78E8 GOSUB  csru5 
3782 1D91C CR A=A+C A 
3783 1D91E 131 B1=A Point at bitnap 
3784 10921 7FD8 GOSUB csrw5 Size of bitnap 
3785 10925 8CO0 GOLONG =WIPOUT 
3786 - PETETETUCTSUTTC TTC CCST CUVESTSSUCCTSUSTCCTOCTCSCSUCCTOCSTCST TSS ey 
3787 JOIST IOI OCT OT RTI IAT TTT TT TT TTT 
3788 ee 
3789 ** Narie: CRDOFAB - Collapse File 
3790 ae 
3791 *k Category: LOCAL 
3792 aR 


3793 ** Purpose: 
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3734 ak Destroy file created for card read & BUFDAL. 
3795 bis 
3796 &* Entry: 
3797 a* R1 points at file data area (past header). 
3798 ia 
3799 t* Exit: 
3800 ae Through MVMEN+. 
3801 aK 
3802 t* Calls: BUFDAL, MVMEN+ (falls through). 
3803 as 
3804 %* Uses....... 
3805 ax A,B,C,D,P,D0,D1,RO,R1,R2, SCRICH[4-0]. 
3806 ae 
3807 kK Stk lvls: 3 
3808 ak 
3809 ** History: 
3810 ax 
3811 aia Date Programmer Nodif ication 
3812 BK panne ee meee nnn ne nn nnn ren nn nn nee nn ene nee 
3813 RK 40/21/82 NM Rewrote totally to the nax 

aK 
oe JU I IO SOOO  OSIO I S IO S OI SOO TOS CCS TOT ISI 
3816 $2 II ISIS OO CIO I I IIS II II III IS 
3817 1D92B 8E2D CRDFAB GOSUBL BUFDAL 

5F 
3818 10931 111 A=R1 
3819 10934 131 Di=A File pointer 
3820 10937 1C4 D1=D1- § 
3821 1D93A 1CF DI=D1- 16 
3822 1D93D 1CF D1=D1- 16 
3823 10940 133 ADI EX 
3824 10943 D8 B=A A Start of this file 
3825 10945 1817 DO=(5) =MAINEN 
5F2 

3826 1094C 142 A=DATO A 
3827 1D94F CC R=A-1 A 
3828 10951 CC R=R-1 A End of this file 
3829 10953 Dé C=A A Ditto 
383%) 10955 E1 B=B-C A Size of nove (negative) 
3831 10957 20 rivnen+ P= 0 
3832 10359 8D00 GOVLNG =MVNEN+ Collapse this file 
3833 we JOG III TOC ITO TOT III SO IIS I ITT IIIT IIIS TOSI IOI IIIS IIS 
3834 JI IIIT III OI III IIS ISI II III ISI IIIT IIIS III IIIA II III ISS IATA I 
3835 Ae 
3836 ** Nane: MAKHDR - Read In Card Header 
3837 zx 
3838 ** Category: LOCAL 
3839 xx 
3840 ** Purpose: 
3841 BS Copy card header field to RAM u/o compare. 
3842 a 
3843 &* Entry: 
3844 a& CARD IS MOVING! 
3845 ss DO points at spot to write card data to. 
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3846 ax R1 and R2 as used in CRDFIL. 
3847 ae 
3848 RE ERTS 
3849 aa Carry set if read failure (message given in WAIT 
3850 ak routine). 
3851 ak 
3852 ak Calls: NOCOMP, RD&8S, UPDCKP {unless error exit}. 
3853 kK 
3854 BE USES sie oiec'ses 
3855 a C{5-0],P,01,8(B),S1 
3856 a {A8,B,C,0,00,R0,scratch RAN if error} 
3857 ak 
3858 ** Stk lvls: 2 
3859 kk 
3860 ** Detarl: 
3861 ak Used to read header from first card in CRDFIL and in 
3862 am CAT CARD. 
3863 ak 
3864 ** Algorithn: 
3865 ax Clear D for checksun. 
3866 an {in all reads below, RINC if error}. 
3867 ax Read first 4 bytes; write to RAN; update checksun. 
3868 ie Read second 4 bytes. If subfornat (first byte of 
3869 am first read) #0; goto 1. 
3870 a Write second read to RAN; update checksun. 
3871 ae Read third 4 bytes. 
3872 ax If byte 0 of third read {HP-75 filetype} <> "I" {LIF1} 
3873 aie then error out uith eBADFN. 
3874 ax Goto 2. 
3875 ax : If subformat (first byte of first read, still) <> 1 
3876 zs then error out with eBADFN. 
3877 x Write second read to RAM; update checksun. 
3878 a Read third 4 bytes. 
3879 xx : Write third read to RAM; update checksun. 
3880 a Read and write 20 nore bytes; updating checksun. 
3881 xr Conpress checksum to 4 nibs with wraparound carry. 
3882 ae Read final 4 bytes from card. Add lower 2 bytes to 
3883 7 checksun with wraparound carry. 
3884 ag Conpress checksun to 1 byte. 
3885 ae Compare checksun to byte 2 of final read; RINCC if 
3886 ax natches. 
3887 aS Error out mith eRWERR. 
3888 an 
3889 ** History: 
38% RK 
3891 rk Date Progranner Modification 
3892 aaa tad lta lated aati iateatateatatataietatatatatateetatetatetetatataetanate 
3893 %* 06/25/82 NM Added docunentation 
3894 ae 
3895 JUICES GEOG UGK 
3896 FORO OOOO JO OI III TO I I IG FOI IOI aC 


3897 1D960 AF3 
3898 10963 72B& 
3899 10967 400 
3900 1D96A 7901 


MAKHDR D=0 WW For checksuri 
GOSUB RD8S First 4 bytes of header 
RTNC 
GOSUB NOCONP Wrate to ran 
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391 
IW? 
3903 
394 
395 
3906 
3907 
398 


3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
331? 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
39H” 
3931 
3932 
3933 
3934 
3935 
3936 
393? 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 


3947 
3948 
3949 
3950 
3951 
3962 
3963 


1D96E 
10972 
10975 
10978 
10978 
1D97E 
10981 
10983 


10989 
1098D 
10994 
10994 
1D998 
1D99A 
10990 
1D9A0 
1D9R4 
1D9A?7 
1D9RB 
1O09AE 
1D9B1 
109B3 
1D9B6 
1D9B9 
109BC 
1D9BF 
10901 
1D9C5 
1D9C9 
1D9CC 
10300 
1D9D2 
10905 
10908 
10908 
IDSDE 
1D9E1 
1D9E3 
1D9E6 
1D9E9 
1D9EC 
1DSEF 
1D9F2 
1D9F4 
1D9F? 
1D9F9 


1OSFF 


778 
400 
AEB 
A6E 
4D0 
396A 
80 
8CRB 
5F 
7RB1 
7888 
400 
7FA1 
2F 
4 
ACS 
7578 
400 
7091 
AAD 
SiF 
23 
ASB 
BF? 
BF? 
BF? 
F? 
7£81 
7058 
400 
1587 
23 
A9B 
Ai2 
550 
B16 
RE? 
F6 
886 
ROB 
BF4 
BF4 
BF4 
F4 
962 
80 
8045 
5F 
03 
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GOSUB RD8S 

RTNC 

C=D B 

C=C-1 B 

GOC MAKH20 

70-0 «= «B 

GOYES MAKH20 

GOLONG UNKCD 
MAKH20 GOSUB NOCONP 

GOSUB RD8S 

RTNC 

GOSUB NOCOMP 

P= 15 

LCHEX 4 

B=C S 
MAKH9O GOSUB RD8S 

RTNC 

GOSUB NOCONMP 

B=B-1 § 

GONC MAKH9O 

P= 3 

C=D WP 

DSR W 

DSR W 

DSR W 

DSR A 

GOSUB UPDCKP 

GOSUB RD8S 

RTNC 

DATO=A 8 

P= 3 

C=D WP 

C=A+C WP 

GONC MAKI20 

C=C+1 WP 
MAK120 D=C B 

CSR A 

CSR Xx 

C=C+D B 

ASR W 

ASR Wd 

ASR W 

ASR A 

*A=C OB 

GOYES MAK125 


GOLONG RWERR 


MAK125 RTNCC 
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Fri Dec 3, 1983 


Bytes 4-7 of header 


HP-75 subfornat card? 
Yes. 

No. HP-71 subfornat? 
Yes. 

No. Unknotin card. 


Write to ran 
Bytes 8-11 of header 


Write bytes 8-11 to ran 
Counter for 5 reads 
Read 4 bytes 

Write to ran 

No. checksun 1s next. 


Will conpress to 4 nibs 


Add to checksun 
Final read in header 
Write it out 


Add 2 nore bytes to cksun 


Corpress to 2 nibs 


Header checksun matches? 
Yes 


FOO OO JOT OT TT TT TOI 
FOI OOO QUT OO TT TTI 


xk 
** Nane: OFFSET - 
kk 

kk Category: LOCAL 


Coripute Offset Of Current Track 
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3954 ax 
3955 xx Purpose: 
3956 ak Compute offset of current card (relative to start of 
3957 xx data area). 
3958 aK 
3959 *k Entry: 
3960 xe R2 points at card header I/Obuffer. 
3961 aa 
3962 KK Exit: 
3963 ak Offset in A[A]. 
3964 KK Size of this track in C{A]. 
3965 ae DO points at tracksize in card header I/Obuffer. 
3966 aa P=0. 
3967 aS Carry clear. 
3968 xR 
3969 **% Calls: LC2TRK. 
3970 ax 
3971 KK Uses....... 
3972 a ALA}, B[A],C,P,00. 
3973 aa 
3974 Kk Stk lvls: 1 
3975 KK 
3976 ** Detail: 
3977 ak Uses a fast nultiply algorithn. This code is called 
3978 ax from CRDFIL in a tine-critical section of code. 
3979 ax 
3980 ** Algorithm: 
3981 ak AL B)=trk#-1. 
3982 ax A[XS]=1 af ALB] 1s odd, else A[XS]=0. 
3983 xe Set low bit in A[B] {this adds 1 if A[B] is even}. 
3984 aK C[AJ=trksize in nibbles. 
3985 a B[A}=0 {for result}. 
3986 Kx : Double result ¢B}. 
3987 ax Double A[B]. If carry, B=B+C. 
3988 ak If Ax >0 goto 1. 
3989 aK If ALXS]=1 {we did one too nany adds}, subtract C fron 
3990 ae result. Put result in A. 
3994 wk Point DO at trksize field in card header. 
3992 Am Read trksize field fron card header into C. 
3993 KK RTN, 
3994 aK 
3995 ** History: 
3996 aK 
399? x Date Prograntier Modification 
3998 RR nner ene ne nen eee ee ne ne nen nnn enn ee ne eee ene eee nee ee 
3999 4% 06/25/82 NN Added docunentation 
4000 x 
401 SRR R TORR JO tOR OO tot tO Roki dfok do lok 
4000 SOOO ROO ORO OOOO TO OG OO OR ot ooo 
4003 1DAO1 11A = OFFSET C=R2 
4004 1DA04 134 Do=C Point at header 
4005 10A07 161 PO=DO+ 2 
4006 1DROA 147 A=DATO B Read track# 
4007 1DAOD A6C A=R-1 B Will mpy trk#-1 by trksize 
4008 1DA10 20 P= 0 
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4009 1DAI2 301 LCHEX 1 
4010 1DA15 0E02 C=R&C OP 
4011 1DA19 BE2 CSL B 
4012 1DATC BB2 CSL x 
4013 1DA1F AAA A=C XS Odd(a[b]}) 
4014 1DA22 301 LCHEX 1 
4015 1DA25 OEOE A=A'C P Set low bit in a[b] for marker 
4016 1DR29 7E61 GOSUB LC2TRK Trksize in nibs 
4017 1DA2D 01 B=0 A Roon for result 
4018 iDA2F C5 MPTK1O B=B+B A Shift result 
4019 1DA31 R64 A=A+R B Shift nultiplier 
4020 1DA34 540 GONC MPTK20 =1? 
4021 1DA37 C1 B=B+C A Yes, add trksize 
4022 1DA39 96C MPTK20 7AHO = OB Anything left of multiplier? 
4023 1DR3C 3F GOYES MPTK1O Yes, continue loop 
4024 1DA3E DC ABEX A 
4025 1DA40 92D BHO XS Was a[b] odd? 
4026 1043 40 GOYES MPTK3O Yes, afa] is result 
4027 1DA45 ER A=A-C A No. did 1 too nany adds. 
4028 1DA47 163 MPTK30 DO=D0+ 2%2 Point at tracksize 
4029 1DA4A D2 DONIBC C=0 A 
4030 1DA4C 15E3 C=DATO 4 Size of this track 
4031 1DA50 C6 C=C+C A In nibs 
4032 1DAS2 01 RIN 
4033 JI IO IIR IIIS SISOS SITS ITO ITI TTS IS TOT II II GIT III ASI IIIT AK 
4034 JOIST OC ITO TIC ISTO ITI IK 
4035 xR 
4036 ** Narie: SETBIT - Set A Bit In The Bitriap 
4037 RK 
4038 ** Category: LOCAL 
4939 ak 
4040 *k Purpose: 
4041 aR Set a bit to nark a track as having been read. 
4042 ax 
4043 xk Entry: 
4044 a R1[(4-O]=address of file data area, 
4045 ax {[9-5]=size of data area. 
4046 aR C[B] = Bit#. 
4047 ax 
4048 xe Exit: 
4049 ee 
4050 *k Calls: LOCBIT. 
4051 ak 
4052 AX Uses....... 
4053 aR A,C,P, DO 
4054 xk 
4055 xk Stk lvls: 2 
4056 aR 
4057 ** Detail: 
4058 kk Bitnap is at the end of the file data area. 
4059 ar 
4060 ** Algorithn: 
4061 ae LOCBIT. 
4062 saa! AND nibble with bitnask. 
4063 ax Write out nibble. 
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4064 ax 
4065 ** History: 
4066 ae 
4067 ax Date Programmer Modification 
4068 i olllatactatetetatettettatertatatetatataliatataiet otal atetehetatahetatetetatataatetenetetataaataaaata 
4069 *k 06/25/82 NN Added docunentation 
4070 as 
4071 FI I IIIT III III SI III III IIS III IIT IIIS ITT III TAI IAS 
4072 JI IO I III ISI II TOT SII SS ITI SII TOT IIIS TSOTSI OTS I III TSI AAA 
4073 1DA54 7601 SETBIT GOSUB LOCBIT 
4074 1DA58 OE4E A=A'C § Or bitnask with nibble 
4075 1DR5C 1504 DATO=A $ 
4076 1DR60 01 
4077 JI III IIT III IOI IT III TTI TSI II III SIS ITS IS ISI IIIT I II IO TIT ITA II AAI 
4078 JO IDI II OI OSI TO ISIS SISO IS SII III ITO ITI 
4079 k 
4080 xk Narie: HDRHDR - Decode Encoded Filetype 
4081 x 
4082 ** Category: LOCAL 
4083 xe 
4084 ** Purpose: 
4085 ae Convert filetype fron card header into unencoded 
4086 ak filetype and security/privacy bits. 
4087 ms 
4088 *k Entry: 
4089 ae DO points at beginning of card header I/Obuffer (i.e, 
4090 oo at SUBFORNAT byte). 
4091 ae 
4092 RB EMITS 
4093 aly If carry set, 
4094 kk Filetype unrecognized (not found in FTYPF#) and 
4095 oe not in standard range, 
4096 be A[A]=filetype, 
4097 xm C[B]=flags (10 in this case). 
4098 ae else 
4039 ak Filetype recognized (found by FTYPFH) or, if not 
4100 an recognized, 1s in standard range, 
4101 x Unencoded filetype in A[A], 
4102 aR Flags in C{B], 
4103 mS If XM=0 then 
4104 ae Filetype recognized or, if not, in standard 
4105 = range and not private. 
4106 ue else 
4107 ae Filetype in standard range and private. 
4108 = 
4109 %* Calls: FIYPFH, STDRG?. 
4110 a 
4111 PAO USES ta-6 sie.3% 
4112 AS A,B,C, D0, RO,P,xN. 
4113 ea 
4114 ** Stk Ivls: 3 
4115 a 
4116 ** Detarl: 
Ail? a Filetype 1s read fron header pointed to by DO. 
4118 ax If filetype 1f found by FTYPFH, the security nibble is 
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4119 aK taken as (position of filetype relative to unencoded 

4120 a filetype in table)-1. This quantity is returned by 

4121 aK FTYPFH. 

4122 RK 

4123 *k Algorithn: 

4124 aK If subfornat {in card header}=0 then A[R]=00001, else 

4125 ah A[A]=filetype fron card header. 

4126 an Search for filetype in filetype table {FTYPFH}. 

4127 a Clear XM. 

4128 am If found goto 1. 

4129 ae If file is not in standard range goto 2. 

4130 ak A[A}=filetype - filetype nod 4. 

4131 ak C(Bj=filetype mod 4. 

4132 ax If privacy bit set then set XM. 

4133 xe RTNCC. 

4134 *k 4: Read copy code from ftype table {located at (C[AJ}+1)}. 

4135 ak Security nibble = position of ftype in ftype group-1. 

4136 aK Put above 2 nibbles in C[B}. 

4137 ak Read prinary {unencoded} filetype fron ftype table into 

4138 an A[ 3-0]. 

4139 a RTNCC. 

4140 ax 2: ALA]=filetype passed to this routine. 

4141 ae C{B)=10 {copy code 1, security 0}. 

4142 ak RTNSC {indicate unrecognized}. 

4143 aK 

4144 ** History: 

4145 ae 

4146 ak Date Progranner Modification 

4147 RR wane ne een enn ne nen nnn enn nnn en nnn nnn nnn nee nnn nee ee 

4148 aa 06/25/82 NM Added docunentation 

qi III II IIIT IT IIIT III III IIIS III SIS III ISSISISS SII II SSSI IIS: 

4151 SOIT I DI SIDI IIIA III III III II III ISII AISI ISIS ISSISSSISISISSSI IIIA 

4152 1DA62 1524 HDRHDR A=DATO $ Read subfornat lonib 

4153 1DA66 16D DO=D0+ 2*7 

4154 1DA69 DO A=0 R 

4155 1DA6B 15A3 A=DATO 4 Read filetype 

4156 1DA6F 34C PAHO SS Subfornat 0? 

4157 1DA72 81 GOYES HDRH10 No 

4158 1DA74 20 P= 0 

4159 1DA76 3194 LCASC \I\ 

4160 1DA7A F4 ASR A 

4161 1DA7C F4 ASR A 

4162 1DA7E B62 C=C-A 8 C=HP-75 filetype - \I\ 

4163 1DA81 DO A=0 A 

4164 1DA83 96E *cHO OB Is this LIF1? 

4165 1DA&6 40 GOYES HDRH10 No. Filetype=0000. 

4166 1DA88 £4 A=A+1 A Yes. type=0001 

4167 1DA8A 8FOO HDRH1O GOSBVL =FTYPF# Look for filetype in table 

000 

4168 1DA91 821 KM=0 Clear XM for result 

4169 10A94 463 GOC HDRH50 Go if filetype found 

4170 1DA97 8ECB GOSUBL STDRG? File in standard range? 

3F 
4171 1DA9D 484 GOC HDRH60 No 


Saturn Assernbler 


Ver. 3.39/Rev. 2306 Copy card utilities 


4172 
4173 
4174 
4175 
4176 
417? 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
41386 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
419? 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4e1? 
4218 
4219 
422 

422i 
4222 
4223 
4224 
4225 


42e 


1DARO 30C 
1DAA3 A88 
1DAA6 OE06 
1DAAR 303 
1DRAD O€01 
1DAB1 302 
1DAB4 O£05 
1DAB8 90R 
1DABB 60 
1DABD 7620 
1DAC1 R&S 
1DAC4 21 
1DAC6 301 
1DAC9 03 
1DACB 134 
1DACE 160 
1DAD1 15€0 
1DADS ACY 
1DAD8 A4E 
1DADB 812 
1DADE 16E 
1DAE1 1583 
1DAES 03 
1DRE? 00 
1DRE9 3101 
1DRED 02 
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LCHEX C 
B=R P Copy lonib of filetype 
A=R8C P Unencoded filetype 
LCHEX 3 
B=B&8C P Security & privacy bits 
LCHEX 2 
C=B&C  P Privacy bit 
7C=0) oP Privacy set? 
GOYES HDRH40 No 
GOSUB SXN Set xr 
HDRH40 C=B P Copy security bit 
P= 1 
LCHEX 1 Copy code=1 
RTNCC 
HDRH50 DO=C Point at table entry 
DO=D0+ 1 
C=DATO 1 Read copy code 
C=B S Position in table 
C=C-1 § Security 
CSLC Flags in c[b] 
DO=D0+ 15 Point at prinary filetype# 
R=DRTO 4 
RTNCC 
SKN RTNSXN 
HDRH60 LCHEX 10 Dunny flags 


ak 
xk 
xk 
xk 
ak 
ak 
aK 
ak 
ak 
ak 
ak 
xx 
ak 
ak 
kk 
ak 
xk 
ax 
xk 
x 
xk 
xk 
xk 
ax 
ak 
xk 
ak 
a 
ae 


RTNSC Indicate unrecognized 
JOO OI III IO III III OTITIS II TTT I TI TTI 


ROO OI IO OI OI TI II Ok 


Nare:(S) FNDCLR - Find Next Clear Bit In Bitnap 


Category: LOCAL 
Purpose: 
Find trk# of next unread side. 


Entry: 
Current bit# in C[B]. 
R1[4-O]=address of data area. 
[9-5]=size of data area. 


Exit: 
Nunber of next clear bit in C{B]. 
Carry set if no clear bits (1.e., bit counter incre- 
nents past 255 in its search for clear bit). 


Calls: LOCBIT. 
Uses. ci.us 

A,B,C,P,D0 
Stk Ivls: 2 
Detail: 


Begins search for clear bit fron CURRENT bit# (1.e., 
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4227 
4228 
4229 
42H 
4231 
4232 
4233 
4244 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4231 


1DAEF 
1DAF2 
1DAF6 
1DAF9 
1DAFC 
1DB00 
1DB03 
10B05 
1DB08 
1DBOB 
1DBOE 
10611 
1DB14 
1DB17 
10818 
1DB1E 
10B21 
1DB24 
1DB26 
10B29 


RES 
7860 
BCC 
AC8 
O£46 
34C 
E41 
B65 
401 
AC4 
R46 
BARE 
160 
1524 
B46 
57D 
RES 
03 
REY 
02 
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am find NEXT unread track after this one). 
a 
** Algorithn: 
ak Locate bit# passed in C. 
** 1: Conplenent nibble containing bit# (A[S]). 
am Hold nibble in B[S]. 
tk = 2: And bitnask with nibble. If result <> 0 return bit# 
ax in. 
ae Increnent bit#. 
aw Restore nibble to A[S]. 
a Move bitnask bit left; goto 2 if not carry out. 
ae Increrent DO; Read next nibble; nask=1; goto 1. 
ke 
*x History: 
kk 
kx “Date Progranner Modification 
Me oe Teltietous leech eos ee eee one 
*x 06/25/82 NM Added docunrentation 
kk 


FOI JOR ROO ITO OTTO 
TORII JU TOOT OI OTTO 


=FNDCLR B=C B Hold bit# 
GOSUB LOCBIT Find nibble 
FINDOS A=-A-1 S$ Conplenent nibble. 
FIND1O B=A S Hold nibble 
FIND2O A=A&C S And nibble wath rask 
TARO OS Found set bit? 
GOYES FIND30 Yes 
B=B+1 8 No, increnent bit# 
GOC FIND40 Return if fail 
A=B S Restore nibble 
C=C+C § Nove bitnask 
GONC  FIND20 Go 1f not carry out 
DO=D00+ 1 Tine to exanine next nibble 
A=DATO S$ 
C=C+1 § New bitnask 
GONC FINDOS B.E.T. 
FIND30 C=B B 
FIND35 RINCC 
FIND40 C=B B 
RINSC 


FOI TO TT  I TIR IIT TM 
JOO JO II TOI TIO TOO ITI IK 
ak 


xx Nane: CMPALL - Copy With Compare 

xx Name: CMPWRT - Copy With Compare 

** Nane: NOCONP - Copy Without Conpare 

ak 

** Category: LOCAL 

tok 

** Purpose: 

oF Write infornation to RAM while comparing with current 
ay contents. Specifically: 

a CMPALL: Conpare entire 8-nibble read before writing. 


ae CNPWRT: Conpare specified bits before writing, 
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4282 aK NOCOMP: Write to RAN u/o compare. 
4283 ax 
4284 ax Entry: 
4285 kk (all): AL?-0] = data to write to RAN. 
4286 - Running checksun in D[7-0]. 
4287 kx DO points at spot to write. 
4288 kk CMPURT: C[7-O] = bitmap of bits to compare. 
4289 ax 
42% **X Exit: 
4231 - Carry set if conpare failure (write was not perforned). 
4292 a Else data was written to RAN, 
4293 ss DO=D0+8, 
4294 ak Checksun in D was updated, 
4295 ae A=C=Data originally passed in A. 
4296 ak P=7, 
4297 ak 
4298 ** Calls: None. 
4299 a 
4300 ax Uses.....0. 
4301 ee B[7-0],C,D[7-0],P, D0. 
432 ak 
4303 ** Stk lvls: 0 
4304 ke 
4305 ** Detanrl: 
4306 ak Used when card header 1s being read in. Certain fields 
4307 ax Within the header tiust be the sane fron card to card, 
4308 ex and this provides the nechanisn for checking that. 
4309 &k If the conpare fails, the write is NOT perforned. 
4310 ais That way, the original infornation is not obliterated. 
4311 ae This code also maintains the checksum which will be 
4312 am used after the entire header 1s read in. 
4313 at 
4314 ** Algorithn: 
4315 kx CMPALL: C[7-0]=FFFFFFFF 
4316 kk CAPURT: B=C <{corparison bitnask}. 
4317 RK C=DATO {read data to be coripared to}. 
4318 aK And bitrask into C; And A into bitmask. 
4319 “aa If Boo then return carry set {error}. 
4320 ae NOCONP: Wrate A[7-0] at NO. 
4321 me Increnent DO by 8, 
4322 ak Update checksun in D[7-0]. 
4323 kk RIN. 
4324 aK 
4325 ** History: 
4326 a* 
432? x Date Progranner Modification 
4328 RR nen ee cen enn cece nnn nn en nner enn ene nee nn rene ene ee 
4329 * 06/25/82 NM Added docunentation 
43% ax 
4331 FORO OOO IOI OOOO UII OI III Ok 
4332 SOOO JOTI OU OR JOJO IS OO TOT OIG OI III Oi 


4333 1DB2B AF2 
4334 1DBZE A7E 
4335 1DB31 27 
4336 1DB33 A95 


CHPALL C=O W CNPALL=CMPWRT with C=FFFFFFFF 
C=C-1 W 
CMPURT Ps? 


B=C WP Hold compare nask 
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4337 1DB36 15E?7 C=DATO 8 Data to be compared 
4338 1DB3A 0£15 C=B8C WP And with compare nask 
4339 iDB3E OF14 B=A8&B WP And new data with conpare mask 
4340 1DB42 915 BHC 8 =OWP Untiasked bits compare true? 
4341 1D0B45 00 RTNYES No, compare error 
4342 1DB47 1587 NOCONMP DATO=A 8 Write new data 
4343 1DB4B 167 DO=D0+ 8 
4344 10B4E 27 P= 7 
4345 1DB50 A96 C=R WP 
4346 1DB53 A13  UPDCKP D=D+C WP Update checksun 
4347 1DB56 500 RTNNC 
4348 1DB59 B17 D=D+1 WP Wraparound carry 
4349 1DB5C 01 RTN 
4350 JOIST III TOT OCT TT 
4351 JOGO IOI IIIT ORT TT 
4352 ak 
4353 xx Nane: LOCBIT - Locate Bit In The Bitnap 
4354 Kk 
4355 ** Category: LOCAL 
4356 xx 
4357 ** Purpose: 
4358 ae Locate desired bit in the tracks-read bitmap. 
4359 an 
4360 ** Entry: 
4361 ak Bit in C{B] (1-256). 
4362 xk R1[4-O]=address of data area. 
4363 aK [9-5]=size of data area. 
4364 Kk 
4365 aX Exit: 
4366 ak If carry set, routine was passed C{B]=0. 
4367 ax Else A[S] contains the nibble containing the requested 
4368 aR bit; C{S] contains a bitnask for the requested bit 
4369 a within A[S]; DO points at the location where the 
4370 x nibble lives. 
4371 ae 
4372 ** Calls: CSRW5. 
4373 ax 
4374 RE USS. 2 dna 0% 
4375 xe ALA}, ALS],C,P, DO. 
4376 a 
4377 KK Stk lvls: 1 
4378 Ae 
4379 ** Detail: 
4380 ak Location of bitmap is (R1[4-0] + R1[9-5]). 
4381 ae 
4382 ** Algorithn: 
4383 a DO=location of bitnap + (bit# div 4). 
4384 ae Bitnask=2"(bit# mod 4). 
4385 ak Read nibble at DO into AS]. 
4386 Ke Put bitnask in C[S]. 
438? ak 
4388 ** History: 
4389 ax 
4390 a Date Progranner Modification 
Bho ees Tele She, + cil ot oh ee ee ee eae 


4391 
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4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 


4411 
4412 
4413 
4414 


4415 
4416 
4417 
4418 
4419 
4420 
4424 
4422 
4423 
4424 
4425 
4426 
442? 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 


1DB5E 
1DB60 
1DB63 
1DB66 
1DB69 
1DB6B 
1 DB6E 
1DB72 
10B74 
1DB76 
1DB78 
1D0B7B 
1DB7F 
1DB82 
1DB84 


1DB8A 
1DB8C 
1 DB8F 
1DB93 


1DB99 


D0 
AGE 
400 
REA 
20 
903 
O£02 
C4 
C4 
F4 
BSE 
8000 
119 
cA 
8EA7 
6F 
c2 
134 
1524 
3312 
48 
Of 


xk 
ak 
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Page 87 


Added docunentation 


FOO IOI III III I OOOO IO TOI TIO II IO 
FORO IOI TOOT IOI TT TOTO TIKI 


LOCBIT A=0 A 


C=C-1 8B 
RTNC 
R=C 

p= 
LCHEX 
C=A8C 
A=A+A 
A=A+A 
ASR 
C=-C-1 
P=C 
C=R1 
A=AtC A 
GOSUBL csru5 


ovDwDDIUIWOW 


C=C+A A 
Do=C 
A=DATO § 
LCHEX 8421 


Range=0-255 


Isolate lower 2 bits for nask 


Nibble# 
Conplenent bit# for magic lc 


Address of sod 
Offset fron sod to nibble 
Size of data field 


Point to desired nibble 
Read addressed nibble 
Magic lc for bitnask 


RO IIIT ITI TOT OI III OI IOI IOI I IOI 
FORO ROI TIO OO OOOO OT 


x 
xk 
ak 
ae 
&& 
kk 
xk 
a* 
xk 
xk 
ax 
x 
ak 
a 
KK 
ak 
xx 
xx 
xx 
xx 
ak 


Nane: LC2TRK 


Category: LOCAL 


Purpose: 


Load A Constant 


Load constant corresponding to trksize in nibbles. 


C[A]=Tracksize in nibbles. 


Entry: 
Exit: 

P=0, 
Calls: None. 
Uses ionic. 

P,C{A}. 
Stk lvls: 0 
History: 
Date Progranner 


10/07/82 NM 


Nodification 


Proudly authored. 
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4445 SIR IK ITI IIT ITT ITI R IE IIIT STII ISI III IIT ISS IT II IAT IIS 
4446 FIO A II III TRE IT IIR ITI III III IT ITI I III ISIS II TSI SII AIA 
4447 1DB9B 20 LC2TRK P= 0 
4448 1DB9D 3441 LC(5) 2*( TRKSIZ) 

500 
44439 1DBA4 01 
4450 JOU IO IIT IIIT OT III II III III SI IOS TI II SII III TAA 
4451 SORT JOJO RJ JR IOIOO OI OI TOOIr 
4452 ae 
4453 *X Nane:(S) pWORD - Card Write Poll 
4454 xk 
4455 ** Category: POLL 
4456 aR 
4457 xk Type: FPOLL 
4458 ae 
4459 ** Purpose: 
4460 ah Allow processing before writing out a card track. 
4461 x 
4462 &k Should poll be "Handled" (return with XM=0)?: 
4463 a If polling should terninate, then poll should be 
4464 ak handled. 
4465 ak 
4466 ** Meaning of “Handling” Poll (what does code do if handled?): 
4467 ak Code does nothing different 1f poll is handled. 
4468 ak Handling merely terminates polling, which is probably 
4469 ax the desired result. 
4470 ak 
4471 ** Entry conditions for handler (registers, ST, RAN, etc. ): 
4472 an We are about to prompt for a card. 
4473 ER Carry set on entry. 
4474 Sa B[A] = Poll nunber. 
4475 ak HEX node. 
4476 xh P=0, 
4477 ar R1-R2 set up as FILCRD docunentation explains. 
4478 aR The bCARD buffer contains the card header. 
4479 ax 
4480 kk Normal exit conditions from handler if handled (ST, RAN, 
4481 ** registers, etc.): 
4482 aE HEX node. 
4483 xx xM=0. 
4484 aR Card header niodified as desired. 
4485 kk 
4486 *X Normal exit conditions fron handler if not handled (ST, RAN, 
4487 ** registers, etc.): 
4488 kk HEX tiode. 
4489 ak KN=1. 
4490 aR Card header nodified if desired. 
4491 aR 
4492 **k Available subroutine levels: 
44933 ee 
4494 xe 
4495 **k NOTE: 
4496 = If you nodify the card header, you must recorpute the 
4497 aK card header checksun, or you Will never be able to 
4498 ax read back the card you have uritten. 
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4499 a 
4500 xk What registers/RAM nay be used if handled?: 
4501 ae A-D, DO, D1, P, RO, R3, R4, all scratch RAN. 
4502 a 
4503 x% What registers/RAN nay be used if not handled?: 
4504 me A-C, D[5-15], DO, D1, P, RO, R3, R4, all scratch RAN. 
4505 ae 
4506 ** Envisioned application(s): 
4507 aK Setting up card header for partial card recovery. 
4508 a It 1s highly doubtful whether partial card recovery 
4509 aK can be done, but this is the hook which allous you to 
4510 ak try 1t. The docunentation for FNDPRT explains the 
4511 ak meaning of the partial card recovery infornation 
4512 ae fields. Good luck. 
4513 ak 
4514 ** History: 
4515 aK 
4516 xk Date Progratiner Modification 
4517 KR nnn nnn ene nnn nnn nen nnn enn ee rn nn nen tenner eens 
4518 ** 08/01/83 = NN Added docunentation 
4519 ae 
4520 JOO IEICE COIS II IK 
4521 JOIST IIIS OTC TSI II ISI III IITA IK 
4522 JOO IOI IIIT CITT I ITI SII SII SII III IA IIA 
4523 JOO IIIT III IIIS IIIT TSI SATII III III III I III IA 
4524 ax 
4525 ** Nane:(S) pRCRD - Poll After Reading Card. 
4526 a 
4527 ** Category: POLL 
4528 ax 
4529 ak Type: FPOLL 
4530 a 
4531 ** Purpose: 
4532 ae Poll after each card track 1s read. 
4533 a 
4534 ** Should poll be "Handled" (return with XN=0)?: 
4535 ae If 1t is desired to tertiinate polling, yes. 
4536 a 
4537 **% Meaning of “Handling” Poll (iwhat does code do if handled’): 
4538 a Code doesn’t do anything different if poll is handled. 
4539 a Handling sinply stops polling, which nay be desirable. 
4540 a 
4541 **k Entry conditions for handler (registers, ST, RAM, etc. ): 
4542 at Carry set on entry. 
4543 xx B[A] = Poll nunber. 
4544 RA HEX mode. 
4545 = P=0. 
4546 nS R1, R2 as defined in CRDFIL header. 
454? a bCARD buffer contains header of card Just read in. 
4548 aE Code has just read a track and 1s about put up a 
4549 ie "trk <nnn> done” message. 
4550 ee 
4551 *X Nornal exit conditions fron handler if handled (ST, RAN, 
4552 ** registers, etc.): 
a 


4553 


HEX node. 
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4554 ae XN=0. 
4555 ae 
4556 *k Normal exit conditions fron handler if not handled (ST, RAN, 
4557 xk registers, etc.): 
4558 bg HEX ode. 
4559 k KM=1. 
4560 ae 
4561 ** Available subroutine levels: 
4562 a 3 
4563 mK 
4564 ** What registers/RAN may be used if handled?: 
4565 ae A-D, DO, D1, P, RO, R3, R4. 
4566 ak All scratch RAM. 
4567 ak 
4568 *k What registers/RAN nay be used if not handled?: 
4569 ak A-C, C{5-15], DO, D1, P, RO, R3, RA. 
4570 ia All scratch RAN. 
4571 ak 
4572 ** Special nenory/pointer considerations (are pointers funny?): 
4573 ak There is no available nenory. 
4574 ak 
4575 ** Envisioned application(s): 
4576 aK This 18 supposed to be the hook to allow partial card 
4577 ah recovery. I an skeptical, but I’l] keep it to myself. 
4578 ak If the card was written by somebody who knows hou to 
4579 = do partial card recovery, the header will contain data 
4580 ax necessary to perforn recovery. This poll is an 
4581 ax opportunity to take the data and stuff it somewhere 
4582 as useful. One recovery schene which worked very well 
4583 ax is the past was storing the data in the space to be 
4584 7 occupied by adjacent tracks IF the adjacent track has 
4585 ae not been read yet. The flaw in this 1s what happens if 
4586 ax that data 1s munched by an unsuccessful read in the 
4587 ax adjacent track. The data is lost. So what to do? 
4588 an Maybe create an I/0 buffer to hold the data. Of course 
4589 a that buffer had better be around before the read is 
4590 ak initiated, since the read code sucks up all available 
4591 ak nNenory to nake roon for the biggest card set possible. 
4592 a Good luck. 
4593 aK 
4594 ** History: 
4595 < 
4596 +e Date Progranner Modification 
4597 BR neem nee enn nee ree ee nner ene rrr en enc crc cn ee reer eree 
4598 kk 6608/01/83 = NM Added docunentation 
4599 *% 
4600 FORO RIOR JOTI IIIT OI 
4601 JIT I I ITI OAT ITE III IIIS II SAIS ISIS ISIS SSIS SSIS ISSA SIII IA 
4602 FSI IO II ITI OAT III TIS II IIIS IASI SSI II ISS ISIS ISI TSS S SII IA 
4603 SS II TIA ITI DI II III IIIT IIIA DLT DIDI ITI I TTDI IIIT II TILL IID I DITA RID 
4604 ak 
4605 *® Nane:(S) pCRDAB - ABORT Card Read Poll 
4606 ae 
4607 Category: POLL 


4608 


xk 
aK 
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4609 *k Type: FPOLL 
4610 ak 
4611 ** Purpose: 
4612 aS Poll upon ATTN-key or tineout abort of card read 
4613 ae operation. 
4614 ak 
4615 *k Should poll be "Handled" (return with XM=0)?: 
4616 aK Yes, if... 
4617 ak 
4618 *k Meaning of “Handling” Poll (what does code do if handled?): 
4619 ak . handler has cleanly terminated card read operation. 
4620 ae This means collapsing the file to the proper size 
4621 ak (which may be zero). If poll is handled, card reader 
4622 aK code does not collapse file. 
4623 ak 
4624 *k Entry conditions for handler (registers, ST, RAN, etc.): 
4625 ax Carry set on entry. 
4626 at B[A] = Poll number. 
4627 a HEX rode. 
4628 ak P=0, 
4629 a R1 and R2 have meaning as explained in CROFIL header. 
4630 ak 
4631 k Nornal exit conditions fron handler if handled (ST, RAN, 
4632 ** registers, etc.): 
4633 aS HEX node. 
4634 ax KM=0. 
4635 ae 
4636 *k Normal exit conditions from handler if not handled (ST, RAN, 
4637 ** registers, etc.): 
4638 ak HEX node. 
4639 ae xM=1. 
4640 ae 
4641 *k Available subroutine levels: 
4642 se J 
4643 ak 
4644 ** What registers/RAM ray be used if handled?: 
4645 ae A-D, DO, D1, P, RO-R4, all scratch RAN. 
4646 a 
4647 ** What registers/RAM ray be used if not handled?: 
4648 a A-C, D[15-5] DO, D1, P, RO, R3, R4, all scratch RAN. 
4649 ak 
4650 ** Special nenory/pointer considerations (are pointers funny?): 
4651 ae There 1s no available nenary. 
4652 ex 
4653 ** Envisioned application(s): 
4654 x This 1s a chance to do partial card recovery with all 
4655 aoe that neat information saved during the pRCRD poll. 
4656 a See that docunentation for appropriate caveats. 
4657 ab 
4658 ee History: 
4659 “= 
4660 ae Date Progranrer Modification 
4t61 RR an nn nn nnn ne nnn re nn nnn en nen nnn enn en ener cee ree 
4662 ae 08/01/83 NM Added docunentation 
ak 


4663 
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4664 20 IIIS ISOCOSIS CIOS CT TORTI 
4665 201 ITO IOS SOS TTI K 


4666 1DBA6 END 
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ACBRT? Ext - 1925 

ALIGIO Abs 118868 #10054 - 1988 2000 

ALIG25 Abs 118913 #1D081 - 2001 1994 

RALIGIS Abs 118920 #10088 - 2003 1996 1998 

RLIGN Abs 118864 #1D050 - 1987 478 525 3541 3652 


ASLWS = Ext - 2872 

ASRW4 Ext - 3361 

ASRWS = =Ext - 2873 

BADHDR Abs 120127 H1DS3F - 3313 3322 3329 3338 

BLANKC Ext - 403 

BUFDAL Abs 118531 #1CFO3 - 1640 356 431 1528 1949 3737 3817 
CAT$20 Ext - 3720 

CAT$66 Ext = -d1a9 


CAT$C1 Abs 120932 #10864 - 3684 3665 
CAT$C2 Abs 121091 #1D903 - 3737 3727 
CATI00 «Ext - 3729 

CATCOS Abs 120785 #10701 - 3643 3639 
CATC1O0 Abs 120806 #1D7E6 - 3649 3647 
CATC20 Abs 120812 H1D7EC - 3651 3657 3662 
CATC3O Abs 120827 #1D7FB - 3655 3653 
CATC40 Abs 120887 #10837 - 3672 3680 


CATC5O Abs 120918 #1D856 - 3681 3674 

=CRTICRD Abs 120776 H1D7(8 - 3641 

CERR Abs 119221 #1D1B5 - 2812 2798 

CHKS10 Abs 118263 HICDF? - 1309 1314 1316 

CHKS20 Abs 118287 #1CEOF - 1317 1310 

CHKS30 Abs 118308 HICE24 - 1324 1318 1322 

CHKS40 Abs 118313 #1CE29 - 1326 1328 

CHKS70 Abs 118343 #ICE47 - 1337 1330 

CHKSUM Abs 118254 HICDEE - 1306 411 458 469 3173 
CLRALL Abs 121107 #1D913 - 3779 3101 


CMPALL Abs 121643 #1DB2B - 4333 3328 


CMPTIN Ext A. BOE 
CHPWRT Abs 121649 #1DB31 - 4335 3311 3321 3337 
CR Abs 180224 #2C000 - 1S 1484 2071 2073 2777? 2789 2822 


CR?? Abs 118420 HICES4 - 1476 261 349 3535 3641 
CR7?10 Abs 118429 #1CE9D - 1479 3640 

CR?*20 Abs 118437 HICEAS - 1481 1478 

CRD130 Abs §=119570 #10312 3136 63128 ©3130 = 3372 
CRD140 Abs 119613 #10330 3151 3149 «315? 
CRD150 Abs 119636 #10354 3158 3152 

CRD155 Abs 119652 #10364 3163 3154 

CRDI60 Abs 119666 #10372 - 3167 3161 

CRD18O Abs 119721 H1D3A9 - 3185 3181 

CRDG2O Abs 119994 #1D4BA - 3270 3268 

CRBS22 Abs 120015 HIDACF - 3278 3274 

CRBC2H Abs 120047 HI1D4EF - 3289 3281 

CRDC3IO Abs 120066 #10502 - 3295 3293 

CRDC40) Abs 120070 H1D500 - 3296 3288 

CRDC70 Abs 120139 #1D54B - 3316 3312 

CRDC8O Abs 120170 #1D56A - 3326 3331 

CRD285 Abs 120194 H1IDS82 - 3333 3340 3343 
CRDC% Abs 120248 #1D5B8 - 3350 3348 

ERDIO0 «Abs 120268 #1D5CC - 3357 3355 

CRD310 Abs 120313 #1D5F9 - 3372 3363 
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CRD320 Abs 120389 #10645 3400 420 

CRD390 Abs 120444 410670 - 3421 

CRD400 Abs 120446 #1D67E - 3422 3391 3411 

CRD410 Abs 120494 #ID6AE - 3439 3434 

CRD420 Abs 120538 #1D6DR - 3456 3440 

CRDDON Abs 120317 #IDSFD - 3373 3289 

CRDER? Abs 120135 #10547 - 3315 3302 3308 3317 3327 3333 

CRDERR Abs 119717 #1D3A5 - 3183 3163 

CRDF13 Abs 119427 #10283 - 389 W86 

CRDF2O Abs 119484 #1D2BC - 3108 3117 3122 3133 

CRDF3O Abs 119499 #1D2CB - 3113 3109 

CRDFAB Abs 121131 #1092B - 3817 87 3110 3210 3224 3228 3246 
=CROFIL Abs 119325 #1D21D - 3049 

CRDFNN Abs 119419 #1D27B - 3087 3100 3150 3248 

CRDONIO Abs 119774 H1D3DE - 3202 3196 

CRDNZO Abs 119813 #10405 - 3213 3204 3209 

CRONXT Abs 119743 #1D3BF - 3193 3184 3315 3365 

CRDOFF Abs 118963 #1D0B3 - 2115 523 565 1863 3167 3549 3663 

CREATF Ext - 362 

CRHDIO Abs 119854 #1D42E - 3226 3223 

CRHD35 Abs 120051 #1D4F3 - 3290 3297 

CRHD6O0 Rbs 119871 #1D43F - 3231 3227 

CRHD70 Abs 119932 #1D47C 3249 3219 «3241 = 3245 


CRLFND Ext 1531 

CRPRS? Abs 118441 #1CEA9 1484 1477 3638 

CSLW5 Ext 392 1773 
=CT$SCRD Abs 120758 41D7B6 3637 


DONIBC Abs 121418 #IDAAA - 4029 3252 3699 
DI+13B Abs 118501 #1CEES 1566 §=295 3124 3199 
Di+21B Abs 118498 #ICEE2 1565 399 

D1+27B Abs 118495 #ICEDF - 1564 1093 


D1+29B Abs 118492 HICEDC - 1563 459 3176 


CSRW5 = Ext - 2871 


DAYYMD Ext - w?7 
DSPCHA Ext - 3679 
DSPOLY Ext #300 


DIERR Abs 119206 #1DIAG - 2805 2821 
FIL100 Abs 117572 #1CB44 - 489 493 496 498 501 503 505 508 
FIL120 Rbs 117576 H1CB48 - 4% 486 
FIL130 Rbs 117639 H1CB87 - 508 519 
FIL140 Abs 117656 #10B98 - 514 512 
FIL15O Abs 117667 #1CBR3 - 518 521 
FILCOS Abs 116878 #1C88E - 266 264 
FILCO? Abs 117092 #10964 - 331 326 
FILC1O Abs 117139 #10993 - 347 345 
FILC12 Abs 117174 #IC9B6 - 367 348 
FILC14 Abs 117214 #1C9DE - 372 369 
FILC1S Abs 117249 #1CAO1 - 384 379 
FILC16 Abs 117315 #1CR43 - 405 401 
FILC18 Abs 117319 #1CA47 - 406 404 
FILC4O0 Abs 117357 #1CR6D - 420 579 
FILC45 Abs 117393 #1CR91 - 432 428 
FILC50 Abs 117425 #1CAB1 - 442 436 440 
FILC60 Abs 117448 #ICAC8 - 450 448 
FILC?70 Abs 117458 #ICAD2 - 454 451 
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FILC?5 Abs 117531 H1CBIB- 477 483 489 539 
FILC76 Abs 117546 HICB2A - 481 479 
FILC9 Abs 117557 H1CB35 - 484 
FILCAB Abs 117170 #1C9B2- 356 354 
=FILCRD Abs 116857 #1C879 - 259 
FILEF Ext - 3203 
FINCRD Abs 117381 HICA85 - 429 3470 
FINDOS Abs 121590 H1DAF6 - 4250 4263 
FINDIO Abs 121593 H1DAF9 - 4251 
FIND20 Abs 121596 HIDAFC - 4252 4259 
FIND3O Abs 121633 #1DB21 - 4264 4254 
FIND3S Abs 121636 #1DB24 - 4265 
FIND40 Abs 121638 H1DB26 - 4266 4256 
FINDA) Ext - 1992 
=FNDCLR Abs 121583 H1DREF - 4248 3280 
FNDPRT Abs 118170 H1CD9A - 1091 461 
FPOLL) Ext - 1653 
FRONOT Ext - 313 
FTYP30 Abs 116932 H1C8C4- 283 277 
FTYP40 Abs 116958 HIC8DE- 292 275 279 282 289 
FTYPSO Abs 116962 HIC8E2 - 293 
FTYPER Abs 118623 HICFSF - 1713 355 3225 3247 
FIYPFH Ext - 276 4167 
GETSIZ Abs 118238 HICDDE - 1250 1432 3558 
GETSOC Abs 118214 HICDCG - 1207 1427 3552 
HDRHIO Abs 121482 H1DA8A - 4167 4157 4165 
HDRH40 Abs 121537 H1DAC1 - 4182 4180 
HDRHSO Abs 121547 H1DACB - 4186 4169 
HDRH60 Abs 121577 H1DAE9 - 4196 4171 
HDRHDR Abs 121442 H1DA62 - 4152 3222 3686 


HDRSIZ Abs 37 #00025 - 20 #53 360 
I/OAL+ Ext - 1608 
I/ODAL Ext - 1642 
IDIVA = =Ext - 1341 


IMPF10 Abs 118156 HICD8C - 1016 1013 

IMPFLD Abs 118106 HICDSR - 999° 405 

IORL+ Abs 118517 HICEFS - 1606 3646 

IORL36 Abs 118509 #ICEED - 1603 263 3103 
LAKEYS Ext - 3238 

LC2ZTRK Abs 121755 #1DB9B - 4447 3265 4016 
LCTRKS Abs 118189 #I1CDAD - 1128 433 441 694 


LIF1R Abs 18828 #0498C - 18 328 
LIFIRT Abs 73 #00049 - 19 

LOCBIT Abs 121694 #1DBSE - 4396 4073 4249 
MRINEN Abs 193905 #eF571 - 13 3825 


NAK12O Abs 121310 #1D9DE - 3936 3934 
MAKI2S Abs 121343 #1D9FF - 3947 3945 
MAKH2O Abs 121225 #10989 - 3909 3905 3907 
MAKH9O =~Abs 121248 HIDSAO - 3916 3920 
MAKHDR Abs 121184 #10960 - 3897 3121 3661 
MAXTRK Abs 117865 #10069 - 689 415 
MEMCKL Ext ~ 3054 

MESS++ Abs 118737 #1CFD1 - 1921 1781 
MESSIO. Abs 118730 HICFCA - 1919 1866 
MESS2O Abs 118791 #10007 - 1933 1928 
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MESSAG 
MFERR } 
MF WRN 
NOVED3 
MPTK10 
MPTK20 
MPTK30 
MVMNEN+ 
NEXTST 
NOCOMP 
NOKEYS 
NOMEN 
NOSCRL 
NROOM 
OBCOLL 
OFFSET 
PLLCRD 
POLL 
PREPD1 
PREPDT 
PREPHD 
PRMPT 
PROTRB 
=PROICT 
PRTABT 
PRTEXT 
PRTUOS 
PRTUIO 
PRTU2S 
PRTU30 
PRTUNP 
R10037 
R1 TODO 
R<RST2 
RALIGN 
RCO1 
RD8S 
RDSSV 
RDABT ! 
RDS049 
RDSO50 
RDSOC 
RDYT1O 
RDYTRK 
READS 
READ8S 


READCS 
READFL 


REN180 
RST2<R 
RTNAB+ 
RTNABT 
RTNCC 


Rbs 
Ext 
Ext 
Ext 
Rbs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Robs 
Rbs 


Ext 
Ext 
Abs 
Abs 
Ext 


118728 #1CFC8 


121391 #1DA2F 
121401 #1DA39 
121415 #1DR47 


118468 #ICEC4 
121671 #1DB47 


119423 #1D27F 
118615 #1CF57 


121345 #1DA01 
118599 #1CF47 


117941 #1CCB5 
117914 #1CC9R 
117898 #1CC8R 
120643 #10743 
120675 #10763 
120597 #10715 
120650 #1074A 
120653 #1D74D 
120619 #1072B 
120663 #1D757 
120683 #1D768 
120693 #10775 
120622 #1D72E 
120296 #1D5E8 
118206 #1CDBE 


118860 #1D04C 


119321 #10219 
119007 #1D0DF 
119491 #1D2C3 
118396 #ICE?7C 
118400 #1CE80 
118384 #1CE 70 
118639 H1CFOF 
118631 #1CF6? 
118991 #1DOCF 
119004 #1D0DC 


119030 #1D0F6 
118970 #1D0BA 


118460 #1CEBC 
118457 #1CEB9 


yoyoeetit 


1918 
1951 
1932 
3451 
4018 
4022 
4028 
3832 
1528 
4342 
2002 
88 
1532 
1711 
3728 
4003 
1707 

351 

788 

779 

734 
3541 
3653 
3527 
3548 
3549 
3634 
3551 
3556 
3558 
3635 
3366 
1168 
1656 
1986 

314 
2874 
2288 
3110 
1431 
1432 
1427 
1764 
1762 
2241 
2287 
3332 
2378 
2152 
3658 
1529 
1660 
1526 
1525 
3526 


1708 
1937 


4023 
4020 
4026 


3731 
3341 


55 
265 


3137 
3113 


784 
457 
499 
3539 
3559 


3654 
3531 
3529 
3542 
3561 
3555 
3553 
3193 

335 


3108 


3898 
55? 
3294 
1435 
1430 
482 
1825 
431 
1209 
1250 
3339 
492 
531 


3850 
430 


1987 


390 
3648 
88 
3168 
3551 

506 

532 
3564 


3557 
3205 
65 


3296 


3901 
929 


§29 
3683 
§28 


1437 
3342 
3162 

540 


527 
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3909 


3655 


541 


3566 


33919 
943 


3116 
3298 
2874 


1208 


3111 
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3912 


3569 


3916 


301 


3153 


1436 


3295 


3918 


3571 


3928 


3656 


3307 


3118 
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3573 


3316 3326 


3136 383 
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RTODP 


RWERR 
SCRLLR 
SCRTCH 
SETBIT 
STO1 
=STDRG? 
STOPOC 
STR1-2 
SWPBYT 
SkN 
Sf lag? 
TEST 
TIMER1 
TOCAIO 
TOCA20 
TOCA30 
TOCARD 
TODT 
=TRKDON 
TRKSIZ 
TUSLO? 
UNKCD 
UNPRDC 
=UNPROT 
UNPRTP 
UPDCKP 
VF YOOO 
VFYO10 
VFYO35 
VF YO40 
VF YO60 
VF YO70 
VF YO8O 
VFYC10 
VFYC20 
VFYCHO 
VF YCRD 
VFYER! 
VF YER? 
WAIT 
WATTCC 
WALTCS 
WATTDL 
WRITER 
WAITM+ 
WATTNT 
WAITRO 
WATTRS 
WIPOUT 
WRIT4S 
WRIT8S 
WRITCP 
WRITE 


Abs 


Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Ext 
fibs 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Ext 
Rbs 
Ext 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Rbs 
Abs 


118200 #1CDB8 
118607 #1CF4F 


194817 #2F901 
121428 #1DA54 


118361 #1CE59 
118545 #1CF 11 
121575 #1DRE? 


1 #00001 
189432 #2E3F8 
117956 #1CCC4 
117977 #1CCD9 
118003 #ICCF3 
117945 #1CCB9 


118700 #1CFAC 

650 #0028A 
119242 #1DICR 
118591 #1CF3F 


120616 #10728 


121683 #1DB53 
117687 #1CBB7 
117702 #1CBC6 
117733 #1CBES 
117745 #1CBF1 
117768 #10008 
117788 #1CCIC 
117818 #1CC3A 
118019 #10003 
118055 #1CD27 
118100 #10154 
118005 #ICCF5 
119281 #IDIFI 
119252 #1D1D4 
119108 #10144 
119216 #1D1B0 
119076 #10124 
119127 #10157 
119210 #1D1AR 
119096 #10138 
119102 #1D13E 
119056 #10110 
119066 #1011A 


119043 #1D103 
119017 #1DOE9 
118929 #11091 
118926 #1D08E 


Table 


1166 
3186 
1709 
1990 
13 
4073 
1 
1375 
3525 
1645 
3402 
4195 
1927 
14 
13 
851 
858 
866 
847 
303 
1823 
258 
2819 
1705 
3531 
3533 
3532 
4346 
524 
528 
53? 
540 
547 
554 
565 
926 
939 
954 
921 
2830 
2822 
277? 
2810 
2582 
2781 
2808 
2632 
2680 
2469 
2522 
3785 
2419 
2329 
2071 
2070 


268 
3282 
3182 


1645 
3189 


278 
1768 
4181 


1485 
2779 
856 
852 
863 
500 


566 
1129 
2829 
1431 


3927 
530 
526 
546 
536 
545 
564 
548 
937 
927 
932 
530 

2827 

2817 

2475 

2800 

2379 

2787 

2815 
bee 

2192 

2242 

2288 


3670 
518 
2116 
494 


293 
3364 
1939 


4170 
1919 


2470 
2801 


941 
507 


3277 
1252 


3556 


534 
560 


555 


946 
542 


2528 


2820 
3572 
2632 


2330 
855 


2153 
3662 
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315 
3946 


2523 


953 


3089 
3908 


543 
563 


2589 


2420 


865 
2194 
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420 567 779 3123 


2584 2681 


1005 


4448 


558 


2867 2869 3568 
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WRITFL 
WRASG 
WRT2-0 
WT LOOP 
YMDDAY 
YADHO1 
aslud 
asru5 
atnclr 
bCARD 
crdfnn 
=crlfnd 
ecsruS 


eCRLGN 
eDVCNF 
eF 2BIG 
eFEXST 
eF PROT 
eF TYPE 
eLOBAT 
enen 
eNOTIN 
ePLLC 
ePLLC# 
ePROTD 
eRALGN 
eRWERR 
eTRKDN 
eTRKOF 
eTUFRS 
eTUSLO 
eURLGN 
eUNKCD 
eVALGN 
eVFYER 
eWALGN 
eWRGNN 
errout 
FKEY 
fFTNOUT 
FLBAT 
fpoll 
=if/odal 
idiva 
kHATTIN 
kREOL 
kHOFF 
rveerit 
nokeys 
noscrl 
pCRDAB 
pRCRD 
pWCRD 
pWCRD8 


Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


Ext 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 


11897? 
118712 
119286 
119151 


119307 
119314 


2055 
119928 
118478 
119300 


118841 
57868 
3 

-61 
118571 
118538 
118354 
43 

38 

99 
121175 
118913 
118485 
51 

52 

53 

36 
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#1D0C1 
#1CFB8 
#1D1F6 
#101 6F 


#1D20B 
#10212 


#00807 
#10478 
RICECE 
#10204 


#10039 
ROE20C 
#00003 
HFFFC3 
#1CF2B 
#1CFOR 
#ICES2 
#0002B 
#00026 
#00063 
#10957 
#10081 
#1CEDS 
#000 33 
#000 34 
#000 35 
#00024 


ot ' F F Fo FF FF 8 


2191 
1862 
2866 
2789 
310 
3708 
2872 
2873 
1923 
1 
3248 
1531 
2871 
4410 
3651 
1479 
370 
3211 
3229 
1713 
19% 
1711 
3313 
1707 
1762 
4387 
1986 
1709 
1823 
3681 
2812 
2819 
3637 
1705 
524 
537 
477 
3131 
1947 
1 
1? 
15 
1653 
1642 
1341 
14 
14 
14 
3831 
2002 
1532 
15 
15 
15 
15 


497 
488 
495 
2804 


376 
446 


1607 
3260 
429 
410 


2805 


371 
3242 


1926 
475 


438 
1995 
1993 
1997 
3469 
1988 

4H 
3291 
3276 

476 

352 


504 
538 
502 


454 
786 


1641 


1481 
510 


1480 


3275 
695 


2004 
182? 


Fri Dec W, 1983 


3565 
1706 1710 2809 3132 
3563 


81 WI WI6 
3255 


1526 
550 3097 3147 «3781 


1712 1714 «3212 «3230 


32 
3090 3266 
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3314 


3784 
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=r<rst2 
=rste<r 
=rstlvl 
ssavlvl 
spacel 
space2 


Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 


118577 #1CF31 
118584 #1CF 38 
118584 #1CF 38 
118577 #1CF31 
120752 #1D7B0 
120584 #10708 


Table 


1655 
16593 
1660 
1656 
3582 
3471 
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1938 1991 
1924 1989 
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Input Paraneters 
Source file nane is AN&CD::NS 
Listing file nane 1s MN/CD:TI:ML::-1 
Object file mane is MNZCD:TI:MS::-1 


1411111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler Neus 
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1 TITLE Zero File - End of chain 
2 00000 00 NIBHEX 00 
3 00002 END 
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Input Paraneters 
Source file nane 1s JP&ZER: 2 MS 
Listing file nane is JP/ZER:TI:ML::-1 
Object file name 1s JPZZER: TI: MS::-1 


141111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 
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WW oO~NI OOS wh = 


10 00000 24 
11 00002 


HP-71 


THT 


St st 


Revision Nurber Fri Dec 30, 1983 5:20 an 
Page 1 
TT III &@ RRRR EEEEE VV 
I && R RE Voé€«+Y 
I 8&8 R RE YoY 
T & RRRR- EEEE VV 
I &&8& RR E VV 
I & & RR E ¥ 
III 8&& R R_ EEEEE V 


TITLE HP-71 Revision Nunber 
NIBASC \B\ 
END 


Saturn Assernbler HP-71 Revision Nunber 
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Input Paraneters 
Source file nane is TI&8REV::MS 
Listing file nane 1s TI/REV: TI: ML: :-1 
Object file nane 1s TIXREV: TI:MS::-14 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler Neus 
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Won nom & ww Ph — 


1DBAA 


1DBRA 3400 
000 
10BB1 134 
1DBB4 184 
1DBB? 868 
1DBBA 00 
1DBBC 88B 
1DBBF 00 
1DBC1 136 
1DBC4 134 


1DBC? 8BR 

1DBCA 00 

1DBCC 8C00 
00 


1DBD2 136 
1DBD5 06 
1DBD? 134 
1DBDA 3100 
1DBDE 14A 
1DBE1 966 
1DBE4 50 
1DBE6 161 
1DBE9 8FOO 
000 
1DBFO 07 
1DBF2 134 
1DBF5 500 
1DBF8 8D00 
000 


1DBFF 
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Page 1 
x TTT III & FFFFF xX xX 4 
t T I 88 F K Xx 44 
x T I 88 F K X 44 
& T I & FFFF x 4 4 
& T I &&8& F KX 44444 
t T I 6 & F KX xX 4 
x it III 8&& F KX Xx 4 
k 
TITLE ROM 4 Fix Module 
ABS #1DBRA 
=PKFIX1 LC(5) =CURRST 
DO=C 
DO=D0- 5 Point to MAINST ran loc, 
?ST=0 8 PEEK only? 
RINYES 
7D>=C A Blk start >= CURRST ran loc? 
RTNYES 
CDOEX Address of MAINST in C(A) 
bO=C 
* Block start IS prior to CURRST 
*Ac=C A Blk end <=MAINST RAN loc? 
RINYES 


bf 


GOLONG =POKERR 


TORII IO IIIT TOTTI TOI TTI 


x 


Fix CALL/SUB bug : 
When the parameters in a SUB statenent have duplicate variable 
and they are in different type of variables, it would be error 
the EXPEXC directly. This will leave the machine in the local 


The way to fix this problen is to check the existence of the va 
before call EXPEXC. 


t 
k 
t 
x 
* environnent and the CNTADR contains garbage. 
& 
t 
k 


CALFX1 CDOEX 


CALF 10 


x 


RSTK=C 

DO=C 

LC(2) =tDMYAR 
A=DATO B 

RHC OB 

GOYES CALF1O 
DO=D0+ 2 
GOSBYL =ADDRSS 


C=RSTK 
DO=C 
RTNNC 


GOVLNG =EXPEX- 


END 


Save DO in RSTK 


See if is an array variable ? 


Try to find the variable 
Restore DO 


Return right away if var. found 
Call EXPEXC as usual if var. not fo 
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Ver. 3.39/Rev. 2306 Synbol Table Page 2 
ADDRSS Ext = 44 
CALF1O Abs 121833 #IDBES - 44 42 
=CALFX1 Abs 121810 #1DBD2 - 36 
CURRST Ext = 12 
EXPEX- Ext 48 
=PKFIX1 Abs 121770 #1DBAR - 12 
POKERR Ext : 24 


tDMYAR Ext - 39 


Saturn Assenbler ROM 4 Fix Module 
Ver. 3.39/Rev. 2306 Statistics 


Input Paraneters 
Source file nane 1s TI&FX4: : MS 
Listing file nare is TI/FR4: TI: ML: :-1 
Object file name is TIZFX4: TI: MS::-1 


141111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 


Fri Dec 3, 1983 5:20 an 
Page 3 





Saturn Asserbler 
Ver. 3.39/Rev. 26 


1 

2 1D0CCE 

3 1DCCE 4567 
5602 
3556 
0702 

4 1DCDE 1333 
C202 
1393 
8333 

5 1DCEE 0202 
1323 
A313 
032 

6 1DCFE 1606 

7 10002 FF 


Tinestanp File Fri Dec 30, 1983 5:20 an 


Page 1 


TITLE Tanestanp File 
RBS #1DCCE 
NIBASC \Tue Sep \ 


NIBASC \13, 1983\ 


NIBASC \ 12:10 \ 


NIBASC \an\ 
NIBHEX FF 





Saturn Asseribler Tinestanp File Fri Dec 30, 1983 5:20 an 
Ver. 3.39/Rev. 2306 Statistics Page 2 


Input Paraneters 
Source file nane is TI&TS::M8 
Listing file nane is TI/TS:TI:ML::-1 
Object file nane is TIZTS: TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 


Saturn Asserbler Lexical Analyzer Tables--ID=01 Fri Dec 30, 1983 2:24 an 


Ver. 3.39/Rev. 2306 Page 1 
1 TITLE Lexical Analyzer Tables--ID=01 
2 10004 ABS #1DD04 
3 * J  PPPP & TTTIT R BBBB 
4 x JP P && T AA BB 
5 - JP P && T A AB B 
6 x J PPPP é T A A BBBB 
7 x J P && 8 T ARARA BB 
8 x ee & & T AR AB B 
9 : Jd: P && & T A A BBBB 
19 
1 * This file was generated on Mon Jul 18, 1983 10:29 an 
12 10004 =xrn01s 
13 10004 10 NIBHEX 10 Id 
14 10006 10 CON(2) 1 Lowest Token 
15 10008 BS CON(2) 91 Highest Token 
16 1DD0A 0000 REL(5) =MAINTS End of lex table chain 
0 
1? x 
18 * Speed Table 
19 1DDOF 0 NIBHEX 0 Speed table exists 
20 10010 000 CON(3) 0 A 
21 10013 960 CON(3) 105 B 
22 10016 270 CON(3) 114 C 
23 10019 C11 CON(3) 284 D 
24 10D1C 051 CON(3) 336 E 
25 1DD1F 361 CON(3) 435 F 
26 10022 REI CON(3) 4% G 
27 10025 602 CON(3) 518 H 
28 10028 FO? CON(3) 527 I 
29 1D02B 594 CON(3) (TxTbEn)-(TxTbSt) J 
30 1DD2E A12 CON(3) 538 K 
31 10031 C32 CON(3) 572 L 
32 10034 462 CON(3) 612 q 
33 10037 1A2 CON(3) 673 N 
34 1DD3A 594 CON(3) (TxTbEn)-(TxTbSt) 0 
35 1DD3D EB2 CON(3) 702 P 
36 10040 594 CON(3) (TxTbEn)-(TxTbSt) Q 
37 10043 A33 CON(3) 826 R 
38 1DD46 293 CON(3) 914 S$ 
39 10049 704 CON(3) 1031 T 
40 1DD4C 234 CON(3) 1074 U 
41 1DD4F 854 CON(3) 1112 Vv 
42 10052 £64 CON(3) 1134 W 
43 10055 594 CON(3) (TxTbEn)-(TxTbSt) xX 
44 10058 594 CON(3) (TxTbEn)-(TxTbSt) ¥ 
45 1DD5B A84 CON(3) 1162 ‘ 
46 1DDS5SE 0 NIBHEX 0 Speed table exists 
47 1DD5F 14% CON(4) (TxTbSt)+1-(*) Offset to text table 
48 1DD63 0000 CON(4) 0 No nessage table 
49 10067 0000 REL(S) =RTNSXM Offset to poll handler 


0 


Saturn Assenbler 


Ver. 3.39/Rev. 206 Nain 


50 
51 
52 
53 
54 
55 


56 
57 
58 
59 


60 
61 
62 
63 


64 
65 
66 
67 


68 
69 
20 
71 


72 
73 
74 
75 
76 


77 
78 
79 
80 


81 
82 
83 
84 


85 
86 
87 
88 


89 
” 
91 
32 


93 
34 


1D06C 


1DDeC 000 

1DDEF 0000 
0 

10074 F 


10075 900 

10D78 0000 
0 

1D07D F 


10D7E 610 

10081 0000 
0 

10086 0 


10087 520 

1DD8A 0000 
1) 

1D08F D 


1009) 4H” 
100393 0000 


0 
10098 F 


10099 BH 

1DD9C 0000 
0 

10DA1 F 


1DDA2 840 

1DDAS 0000 
0 

1DDAR F 


1DDAB 150 

1DDRE 0000 
0 

1DDB3 D 


1DDB4 060 

1DDB? 0000 
0 

1DDBC F 


1DDBD 960 

1DDCO 0000 
0 

1DDC5 D 


Table 
STITLE Nain Table 
* Main Table 
=xrorn01 
k 
CON(3) 0 01 
REL(5) =ACOS 
NIBHEX F 
CON(3) 9 02 
REL(S) =RDORS 
NIBHEX F 
k 
CON(3) 22 03 
REL(S) =ADJAAA 
NIBHEX D 
CON(3) 37 04 
REL(5) =ADJNNN 
NIBHEX D 
CON(3) 52 05 
REL(5) =AF 
NIBHEX F 
=xXANGLE EQU #06 
CON(3) 59 06 
REL(5) =ANGLE 
NIBHEX F 
CON(3) 72 07 
REL(S) =ASIN 
NIBHEX F 
CON(3) 8&1 08 
REL(5) =ASSIGN 
NIBHEX D 
CON(3) 96 09 
REL(S) =ATAN 
NIBHEX F 
CON(3) 105 oA 
REL(5) =BYE 
NIBHEX D 


Lexical Analyzer Tables--ID=01 


2:24 an 
Page 2 


Fri Dec 3), 1983 


ACS 


ADDR$ 


RDJABS 


ADJUST 


AF 


ANGLE 


(function and riddle wo 


ASN 


ASSIGN 


RIN 


BYE 








Saturn Assenbler 
Ver, 3.39/Rev. 2306 Mai 


95 1D0C6 270 
96 1DDC9 0000 
0 
97 1DDCE F 
98 
99 1DDCF EF3 
100 1DDD2 0000 
0 
101 1DDD? D 
102 x 
103 1D0DD8 381 
104 1DDDB 0000 


0 
105 1DDEO D 
106 
107 1D0DE1 293 
108 1DDE4 0000 
0 
109 1DDE9 D 
110 
111 1DDEA 161 
112 1DDED 0000 
0 
113 1D0F2 D 
114 
116 1D0F3 B® 
116 1DDF6 0000 
0 
11? 1D0FB D 
118 . 
119 1DDFC D070 
120 1DDFF 0000 
0 
121 1DE04 D 


123 1DEOS A80 

124 1DEO8 0000 
0 

125 1DEOD F 


127 1DEOE ERO 

128 1DE11 000 
0 

129 1DE16 ? 


131 1DE1? BBO 
132 1DE1R 0000 


0 
133 1DE1F F 
134 . 
135 =xCLOCK 


136 1DEZO 8C0 

13? 1DEZ23 0000 
Q 

138 1DE28 0 


CON(3) 114 
REL(5) =CAT$ 


NIBHEX F 


CON(3) 1022 
REL(5) =STD 


NIBHEX D 


CON(3) 435 
REL(S) =DSPF 


NIBHEX D 


CON(3) 914 
REL(5) =DSPF 


NIBHEX D 


CON(3) 353 
REL(S) =DSPF 


NIBHEX D 
CON(3) 18? 


REL(5) =CHARST 


NIBHEX D 
CON(3) 125 


REL(5) =CHAIN 


NIBHEX D 
CON(3) 138 


REL(5) =CHRST$ 


NIBHEX F 
CON(3) 174 


REL(5) =NASSAU 


NIBHEX ? 
CON(3) 187 


REL(5) =CLASS 


NIBHEX F 

EQU #15 
CON(3) 200 
NIBHEX 00000 


NIBHEX 0 


Lexical Analyzer Tables--ID=01 
n Table 


OB 


oc 


0D 


OE 


OF 


11 


12 


13 


2:24 an 
Page 3 
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CATS 


STD 


FIX 


SCI 


ENG 


CHARSET 


CHAIN 


CHARSETS$ 


CLAIN (PORT) 


CLASS 


(RESET) CLOCK 


Saturn Assenbler 


139 
140 
141 


142 
143 
144 
145 


146 
14? 
148 
149 


150 
151 
152 
153 


154 
165 
156 
157 


158 
159 
160 
161 


162 
163 
164 
165 
166 


16? 
168 
169 
170 


171 
172 
173 
174 


175 
176 
17? 
178 


179 
180 
181 
182 


1DE29 
1DE2C 


1DE31 


1DE 32 
1DE35 


1DE3A 


1DE 38 
1DE3E 


1DE43 


1DE44 
1DE47 


1DE4C 


1DE4D 
1DESO 


1DE55 


1DE56 
1DE59 


1DESE 
1DE5F 
1DE62 
1DE67 


1DE68 
1DE6B 


1DE70 


1DE71 
1DE 74 


1DE73 


1DE7R 
1DE7D 


1DE82 


1DE83 
1DE86 


500 


Lexical Analyzer Tables--I1D=01 
Ver. 3,39/Rev. 2306 Main Table 


x 


=xZERO 


CON(3) 213 
REL(S) =CLSTAT 


NIBHEX D 


CON(3) 228 
REL(5) =CNTRST 


NIBHEX D 


CON(3) 247 
REL(S) =CONT 


NIBHEX 7 


CON(3) 258 
REL(S) =CORR 


NIBHEX F 


CON(3) 726 
REL(5) =PLIST 


NIBHEX D 


CON(3) 269 
REL(S) =CREATE 


NIBHEX D 

cQU RIC 
CON(3) 1162 
NIBHEX 90000 
NIBHEX 0 


CON(3) 284 
REL(S) =DEFALT 


NIBHEX D 


CON(3) 314 
REL(5) =DROP 


NIBHEX D 


CON(3) 325 
REL(5) =HEX$ 


NIBHEX F 


CON(3) 336 
REL(S) =ENDLIN 


16 


17 


19 


1A 


1C 


1D 


1E 


1F 


20 


Fri Dec 30, 1983 2:24 an 
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CLSTAT 


CONTRAST 


CONT 


CORR 


PLIST 


CREATE 


ZERO 


DEF RULT 


DROP 


DTH$ 


ENDLINE 


Saturn Asserbler 
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183 
184 
185 
186 


18? 
188 
189 
1% 


194 
192 
193 
194 


195 
196 
197 
198 


199 
200 
201 
202 


203 
204 
205 
206 
207 


208 
209 
210 
211 


212 
213 
214 
215 


216 
el? 
218 
219 
220 


99 
ce 


94 
eee 


223 
224 


225 
226 
ee? 


1DE8B 


1DE8C 
1DE8F 


1DE94 


1DE95 
1DE98 


1DE9D 


1DESE 
1DEAt 


1DER6 


1DEAR? 
1DEAA 


{DEAF 


1DEBO 
1DEB3 


1DEB8 
1DEB9 
1DEBC 
1DEC1 


1DEC2 
IDECS 


1DECA 


1DECB 
1DECE 


1DED3 
1DED4 
1DED? 
IDEDC 


{DEDD 
1DEEO 


1DEES 
1DEE6 


D 


R61 
0000 


191 


Lexical Analyzer Tables--ID=01 


Table 
NIBHEX D 


CON(3) 362 
REL(5) =ERRNS$ 


NIBHEX F 


CON(3) 1123 
REL(S) =VER$ 


NIBHEX F 


CON(3) 375 
REL(S) =EXACTT 


NIBHEX D 


CON(3) 388 
REL(S) =EXPIN1 


NIBHEX F 


CON(3) 401 
REL(S) =EXPON 


NIBHEX F 


X 

=xEXTND EQU #26 
CON(3) 420 
NIBHEX 00000 
NIBHEX 0 


CON(3) 444 
REL(5) =FLAG 


NIBHEX F 


CON(3) 455 
REL(S) =INT 


NIBHEX F 
=xFLOW EQU #29 
CON(3) 468 
NIBHEX 00000 
NIBHEX 0 


CON(3) 479 
REL(S) =FRPORT 


NIBHEX ? 
CON(3} 505 


21 


22 


23 


24 


25 


26 


2? 


28 


23 


Fri Dec 30, 1983 2:24 an 
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ERRNS 


VERS 


EXACT 


EXPM1 


EXPONENT 


EXTEND 


FLAG 


FLOOR (Sane as INT) 


(TRACE) FLOW 


FREE (PORT) 


GDISP 


Saturn Assenbler 
Ver. 3.39/Rev. 206 Main Table 


228 1DEE9 0000 
0 


229 1DEEE D 
230 

231 1DEEF RE1 
232 1DEF2 OOOO 


0 
233 1DEF? F 
234 
235 1DEF8 602 
236 1DEFB 0000 
0 
237 1DFOO F 
238 
239 
240 1DFO1 FO2 
241 1DFO4 0000 
0 
242 1DFO9 0 
244 1DFOR A12 
245 1DFOD 0000 
0 
246 1DF12 F 


248 1DF13 B22 
249 1DF16 0000 
0 


250 1DF1B F 


252 1DFIC C32 
253 1DF1F 0000 


0 
254 1DF24 D 


256 1DF25 342 
257 1DF28 0000 


0 
258 1DFeD F 


260 1DF2E C42 
261 1DF31 0000 


0 
262 1DF36 D 


264 1DF37 752 
265 1DF3R 0000 


0 
266 1DF3F F 


268 1DF40 £64 
269 1DF43 0000 


0 
270 1DF48 D 


Lexical Analyzer Tables--ID=01 


=xINTO 


REL(5) =GDISP 
NIBHEX D 


CON(3) 490 
REL(5) =GDISP$ 


NIBHEX F 


CON(3) 518 
REL(S) =HXDEC 


NIBHEX F 

EQU #2E 
CON(3) 527 
NIBHEX 00000 
NIBHEX 0 


CON(3) 538 
REL(S) =KEYDEF 


NIBHEX F 


CON(3) 555 
REL(5) =KEYDWN 


NIBHEX F 


CON(3) 572 
REL(5) =FLIP 


NIBHEX D 


CON(3) 579 
REL(S) =LOG10 


NIBHEX F 


CON(3) 588 
REL(5) =LOCK 


NIBHEX D 


CON(3) 599 
REL(S) =LOGP1 


NIBHEX F 


CON(3) 1134 
REL(5) =WIDTH 


NIBHEX D 


2C 


2D 


2E 


oF 


31 


32 


33 


34 


35 





Fri Dec 30, 1983 
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GDISP$ 


HTD 


INTO 


KEYDEF$ 


KEYDOWN 


LC 


LGT 


LOCK 


LOGP1 


WIDTH 
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272 
273 
274 


275 
276 
277 
278 


279 
280 
281 
282 


283 
284 
285 
286 


287 
288 
289 
290 


291 
292 
293 
294 


298 
296 
297 
298 
299 


20 
01 
He 
33 
H%4 


5 
6 
7? 
8 
309 


310 
311 
32 
313 


314 
315 
316 


1DF49 462 

1DF4C 0000 
0 

1DF51 0 


1DF52 Fe2 
1DF55 0000 


0 
1DF5A F 


1DFSB R72 

1DFSE 0000 
0 

1OF63 F 


10F64 382 
1DF6?7 0000 


0 
1DF6C D 


1DF6D 092 

1DF70 0000 
0 

1DF75 F 


1DF76 1A2 
1DF79 0000 


0 
1DF7E F 


1DF7F AARZ 
IDF82 0000 


0 
1DF8? 0 


1DF88 5B2 

1DF8B 0000 
0 

1DF9O 9 


1DF91 EB2 

1DF94 0000 
0 

1DF99 0 


1DFSA 9C2 

1DF9D 0000 
0 

IDFA2 F 


IDFA3 3E2 


Lexical Analyzer Tables--ID=01 


=xMATH 


=xNEAR 


=xNEG 


=xPCRD 


Table 
EQU #36 
CON(3) 612 
NIBHEX 00000 
NIBHEX 0 


CON(3) 623 
REL(5) =MEAN 


NIBHEX F 


CON(3) 634 
REL(5) =NEN 


NIBHEX F 


CON(3) 643 
REL(S) =MERGE 


NIBHEX D 


CON(3) 656 
REL(S) =MINRL 


NIBHEX F 


CON(3) 673 
REL(S) =NAN 


NIBHEX F 

EQU #3C 
CON(3) 682 
NIBHEX 00000 
NIBHEX 0 

EQU #30 
CON(3) 693 
NIBHEX 00000 
NIBHEX 0 

EQU #3E 
CON(3) 702 
NIBHEX 00000 
NIBHEX 0 


CON(3) 713 
REL(5) =PEEK$ 


NIBHEX F 
CON(3) 739 


36 


3? 


38 


39 


3A 


3B 


3C 


3D 


3E 


3F 


40 


2:24 ar 
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MATH 


MEAN (Duplicate of Built-in) 


NEN 


MERGE 


NINREAL 


NAN 


NEAR 


NEG 


PCRD 


PEEKS 


POKE 
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317 


318 
319 
320 
321 


322 
323 
324 
325 
326 


327 
328 
329 
3H 


331 
332 
333 
334 


335 
336 
337 
338 


339 
340 
341 
342 


343 
344 
345 
346 


347 
348 
349 
350 


351 
352 
353 
354 


355 
356 
357 
358 


359 
360 


1DFA6 0000 
0 
1DFAB D 


1DFAC EE2 
1DFRF 0000 


0 
1DFB4 0 
1DFBS 7F2 
1DFB8 0000 

0 
1DFBD F 


1DFBE 003 
1DFC1 0000 


0 
1DFC6 D 


1OFC? 113 
1DFCR 0000 


0 
1DFCF D 


1DFDO 223 
1DFD3 0000 


0 
1DFD8 D 


1DFD9 B23 
1DFDC 0000 


0 
1DFE1 D 


1DFE2 R33 
1DFES 0000 


0 
1DFEA D 


1DFEB 043 
1DFEE 0000 


0 
10FF3 F 


1DFF4 653 
1DFF7 0000 


0 
1DFFC D 


1DFFD 563 
1E000 0000 


0 
1£005 D 


Lexical Analyzer Tables--ID=01 


=xP0S 


Table 
REL(5) =POKE 
NIBHEX D 


CON(3) 750 
REL(5) =POP 


NIBHEX D 
EQU #42 
CON(3) 759 
REL(5) =POS 
NIBHEX F 


CON(3) 768 
REL(S) =PRIVAT 


NIBHEX D 


CON(3) 785 
REL(5) =PROTCT 


NIBHEX D 


CON(3) 802 
REL(5) =PUT 


NIBHEX D 


CON(3) 811 
REL(S) =PWIDTX 


NIBHEX D 


CON(3) 826 
REL(5) =RANDOM 


NIBHEX D 


CON(3) 845 
REL(S) =RED 


NIBHEX F 


CON(3) 854 
REL(S) =RENANE 


NIBHEX D 


CON(3) 869 
REL(5) =RENUN 


NIBHEX D 


41 


43 


44 


45 


46 


47 


48 


49 


4A 


2:24 an 
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POP 


POS 


PRIVATE 


PROTECT 


PUT 


PWIDTH 


RANDONMIZ(E) 


RED 


RENANE 


RENUMBER 
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361 
362 


363 
364 
365 
366 
367 


368 
369 
370 
371 


372 
373 
374 
375 


376 
Jef 
378 
379 


380 
381 
382 
383 


384 
385 
386 
387 


388 
389 
390 
394 


392 
393 
394 
395 


396 
397 
398 
393 


400 
401 
402 
403 


404 


1E006 873 

1E009 0000 
0 

TEOOE D 


TEOOF 583 

1E012 0000 
0 

1£017 0 


1£018 B93 

1£01B 0000 
0 

1£020 F 


1E021 B74 

1£024 0000 
0 

1£029 D 


1E02A 6A3 

1£02B 0000 
0 

1£032 D 


1£033 021 

1£036 0000 
0 

1E03B F 


1£03C 5B3 

TEO3F 0000 
0 

1£044 D 


1£045 603 

1£048 0000 
0 

1£04D D 


1EO4E 7D3 

1£051 0000 
0 

1E056 7 


1E05?7 263 

1EOSA 0000 
0 

1EOSF F 


1E060 DE3 

1E063 0000 
0 

1E068 D 


Lexical Analyzer Tables--ID=01 


=xROUND 


CON(3) 
REL(5) 


NIBHEX 
EQU 

CON(3) 
NIBHEX 
NIBHEX 


CON(3) 
REL(5) 


NIBHEX 


CON(3) 
REL(5) 


NIBHEX 


CON(3) 
REL(5) 


NIBHEX 


CON(3) 
REL(5) 


NIBHEX 


CON( 3) 
REL(5) 


NIBHEX 


CON( 3) 
REL(5) 


NIBHEX 


CON(3) 
REL(S) 


NIBHEX 


CON{ 3) 
REL(5) 


NIBHEX 


CON(3) 
REL(5) 


NIBHEX 


Table 


888 
=RESET 


D 

#4C 
901 

00000 

0 


923 
=SDEV 


F 


114? 
=WINDOW 


D 


934 
=SECURE 


D 


301 
=DSP$ 


F 


949 
=SETDAT 


D 


966 
=SETTIN 


983 
=SHOW 


? 


994 
=SQR 


F 


1005 
=STRTUP 


p 


4B 


4c 


4D 


4e 


4F 


$2 


53 


oo 
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RESET [CLOCK] 


ROUND 


SDEV (Duplicate of Built-in) 


WINDOW , 


SECURE 


DISP$ 


SETDATE 


SETTINE 


SHOW (PORT) 


SQRT 


STARTUP 
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405 
406 
407 


408 
403 
410 
411 


412 
413 
414 
415 


416 
417 
418 
419 


420 
421 
422 
423 


424 
425 
426 
427 
428 


429 


1E069 704 

1E06C 0000 
0 

1£071 F 


1E072 414 
1£075 0000 


0 
1E07A D 


1E07B 724 

1£07E 0000 
0 

1£083 F 


1£084 234 
1£087 0000 


0 
1EO8C D 


1£08D 544 
1£090 0000 


0 
1£095 D 


1£096 854 

1&099 0000 
0 

1EOSE 0 


Lexical Analyzer Tables--ID=01 
Ver. 3.39/Rev. 206 Main Table 


x 


=xXVARS 


CON(3) 1031 
REL(S) =TOTAL 


NIBHEX F 


CON(3) 1044 
REL(5) =TRSFNX 


NIBHEX D 


CON(3) 1063 
REL(5) =TRAP 


NIBHEX F 


CON(3) 1074 
REL(5) =UNPROT 


NIBHEX D 


CON(3) 1093 
REL(5) =UNSECR 


NIBHEX D 

EQU = #5B 
CON(3) 1112 
NIBHEX 00000 


NIBHEX 0 


56 


67 


58 


59 


5A 


5B 
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TOTAL 


TRANSFORM 


TRAP 


UNPROTEC(T) 


UNSECURE 


(TRACE) VARS 
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4H STITLE Text Table 
431 * Text Table 
432 1£09F TxTbSt Text table start 
433 x 
434 1£09F 5 NIBHEX 5 ACS 
435 1£OAO 1434 NIBASC \ACS\ 

35 
436 1EOA6 10 NIBHEX 10 
437 x 
438 1E0A8 3 NIBHEX 9 ADOR$ 
439 1£0A9 1444 NIBASC \ADDR$\ 
4425 
42 
440 1£083 20 NIBHEX 20 
441 x 
442 1£0B5 B NIBHEX B ADJABS 
443 1£0B6 1444 NIBASC \ADJABS\ 
A414 
2435 
444 1£0C2 30 NIBHEX 30 
445 x 
446 1E0C4 B NIBHEX B ADJUST 
447 1£0C5 1444 NIBASC \ADIUST\ 
A455 
3545 
448 1€0D1 40 NIBHEX 40 
449 x 
450 1£003 3 NIBHEX 3 AF 
451 1£0D4 1464 NIBASC \AF\ 
452 1£0D8 50 NIBHEX 50 
453 a 
454 1£ODR 3 NIBHEX 9 ANGLE (function and 
455 1€0DB 1464 NIBASC \ANGLE\ 
74C4 
54 
456 1£0E5 60 NIBHEX 60 
457 x 
458 1£0E7 5 NIBHEX 5 ASN 
459 1£0E8 1435 NIBASC \RSN\ 
E4 
460 1E0EE 70 NIBHEX 70 
461 k 
462 1EOFO B NIBHEX 8 ASSIGN 
463 1E0F1 1435 NIBASC \ASSIGN\ 
3594 
74E4 
464 1EOFD 80 NIBHEX 80 
465 & 
466 1E0FF 5 NIBHEX 5 AIN 
467 1£100 1445 NIBASC \ATN\ 
£4 
468 1£106 90 NIBHEX 30 
469 x 
470 1£108 5 NIBHEX 5 BYE 
471 1£109 2495 NIBASC \BYE\ 
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472 
473 
474 
475 


476 
477 
478 
479 


480 
481 
482 
483 


484 
485 
486 
487 


488 
489 
4% 
491 


492 
493 
494 
495 


496 
497 
498 
499 


501 
502 
503 


505 
506 
507 


1E10F 


1E111 
1€112 


1E118 
1€11C 
1E110 
1£12? 


1£129 
1£12A 


1E138 


1£13C 
1£13D 


1£14B 
1E£14D 
1E14E 
1£158 
1E15R 
1E15B 
1E165 
1£167 
1£168 
1£172 
1E174 
1E175 
1£181 


1£183 
1£184 


54 
RO 


7 
3414 
4542 
60 


a 
3484 
1494 
£4 
1 


F 
3484 
1425 
3554 
4542 
21 


3484 
1425 
3554 
45 
01 


3404 
1494 


3 


34€4 
1435 
35 
41 


34C4 
F434 


51 


34C4 
3545 
1445 
61 


34F4 
E445 
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Text Table 


NIBHEX RO 


NIBHEX 7 
NIBASC \CAT$\ 


NIBHEX BO 
NIBHEX 9 
NIBASC \CHAIN\ 
NIBHEX 11 


NIBHEX F 
NIBASC \CHARSETS\ 


NIBHEX 21 


NIBHEX D 
NIBASC \CHARSET\ 


NIBHEX 01 
NIBHEX 9 
NIBASC \CLAIN\ 
NIBHEX 31 
NIBHEX 9 
NIBASC \CLASS\ 
NIBHEX 41 
NIBHEX 9 
NIBASC \CLOCK\ 
NIBHEX 51 
NIBHEX B 
NIBASC \CLSTAT\ 
NIBHEX 61 


NIBHEX F 
NIBASC \CONTRAST\ 
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CATS 


CHAIN 


CHARSET$ 


CHARSET 


CLAIN (PORT) 


CLASS 


(RESET) CLOCK 


CLSTAT 


CONTRAST 
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508 
509 
510 
511 


512 
513 
514 
515 


516 
517 
518 
519 


520 
521 
522 
523 


524 
525 
526 
§27 


528 
529 
530 
531 


532 
533 
534 
535 


536 
53? 
538 
§39 


540 
541 
542 
$43 


544 
545 


1£194 


1£196 
1€197 


1€19F 


1E1A1 
1E1A2 


1£1AA 
1E1AC 
1E1AD 
1E189 


1E1BB 
1E1BC 


1E1CR 
1E1CC 
1E1CD 
11D? 


1£1D9 
1E1DA 


1E1E2 


1E1E4 
1E1E5 


1E1ED 


TE TEF 
TE1FO 


1E1FE 


1E 200 
1E201 


1E 207 


2514 
3545 
74 


7 
S4F4 
£445 
81 


? 
34F4 
2525 
94 


B 
3425 
5414 
4554 
Bi 


4454 
6414 
55C4 
45 


4494 
3505 
42 
05 


4426 
F405 
EI 


4445 
8442 
Ft 


B4E4 
4ac4 
94E4 


02 
54E4 


74 
FO 
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Text Table 


NIBHEX 71 


NIBHEX 7 
NIBASC \CONT\ 


NIBHEX 81 


NIBHEX ? 
NIBASC \CORR\ 


NIBHEX 94 
NIBHEX B 
NIBASC \CREATE\ 
NIBHEX B1 


NIBHEX D 
NIBASC \DEFAULT\ 


NIBHEX 01 
NIBHEX 9 
NIBASC \DISPS$\ 
NIBHEX 05 


NIBHEX 7? 
NIBASC \DROP\ 


NIBHEX E1 


NIBHEX 7? 
NIBASC \DTHS$\ 


NIBHEX F1 


NIBHEX D 
NIBASC \ENDLINE\ 


NIBHEX 02 


NIBHEX 5 
NIBASC \ENG\ 


NIBHEX FO 
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CONT 


CORR 


CREATE 


DEFAULT 


DISP$ 


DROP 


DTHS 


ENDLINE 


ENG 
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546 
547 


563 


564 
565 
566 
567 


568 
569 
570 
$71 


572 
573 
574 
575 


576 
577 
578 
579 


580 
5381 
582 
583 


1E209 9 

1E20A 5425 
2504 
42 

1€214 12 


1E216 9 

1E217 5485 
1434 
45 

1£221 32 


162239 

1€224 5485 
05D4 
13 

TE22E 42 


1E230 F 

1£231 5485 
O5F4 
£454 
£445 

1£241 52 


1€243 B 

16244 5485 
4554 
E444 

1£250 62 


1E252 5 

1E253 6494 
85 

1€259 DO 


1E25B 7 

1E25C 64C4 
1474 

1€264 72 


1E266 9 

1E26? 64C4 
F4aF4 
25 

1£271 82 


1€273 7 

1E274 64C4 
F475 

1E27C 92 


1E27E 7 
1E27F 6425 
5454 
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NIBHEX 9 
NIBASC \ERRMS$\ 
NIBHEX 12 
NIBHEX 9 
NIBASC \EXACT\ 
NIBHEX 32 
NIBHEX 9 
NIBASC \EXPM1\ 
NIBHEX 42 


NIBHEX F 
NIBASC \EXPONENT\ 


NIBHEX 52 
NIBHEX B 
NIBASC \EXTEND\ 
NIBHEX 62 


NIBHEX 5 
NIBASC \FIX\ 


NIBHEX DO 


NIBHEX 7 
NIBASC \FLAG\ 


NIBHEX 72 
NIBHEX 9 
NIBASC \FLOOR\ 
NIBHEX 82 


NIBHEX 7 
NIBASC \FLOW\ 


NIBHEX 92 


NIBHEX 7 
NIBASC \FREE\ 
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ERRN$ 


EXACT 


EXPM"1 


EXPONENT 


EXTEND 


FIX 


FLAG 


FLOOR (Sarie as INT) 


(TRACE) FLOW 


FREE (PORT) 
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584 
585 
586 
587 


588 
589 
590 
591 


592 
§93 
594 
595 


596 
557 
598 
599 


600 
601 
602 
603 


604 
605 
606 
607 


608 
609 
610 
611 
612 
613 
614 
615 


616 
61? 
618 
619 


620 
621 
622 
623 


1E28? Re 


1£289 B 

1E28R 7444 
9435 
0542 

1£296 C2 


1£298 9 

1E299 7444 
9435 
05 

1E2A3 Be 


1E2A5 5 

1E2R6 8445 
44 

1E2AC D2 


TE2RE 7 

1E2AF 94E4 
45F4 

1E2B? E2 


1£2B9 D 

1E2BR B454 
9544 
5464 
42 

1E2C8 F2 


1E2CA D 

1E2CB B454 
9544 
F475 
£4 

1E2D9 03 


1E2DB 3 
1E2DC C434 
1E2EO 13 


TE2E2 5 

1E2E3 C474 
45 

VE2ES 23 


1E2EB 7? 

1E2EC C4F4 
34B4 

1EQF4 33 


1E2F6 9 
1E2F? C4F4 
7405 


NIBHEX A2 
NIBHEX B 
NIBASC \GOISP$\ 
NIBHEX C2 
NIBHEX 9 
NIBASC \GDISP\ 
NIBHEX B2 


NIBHEX 5 
NIBASC \HTD\ 


NIBHEX D2 


NIBHEX 7 
NIBASC \INTO\ 


NIBHEX E2 
NIBHEX 


D 
NIBASC \KEYDEFS$\ 


NIBHEX F2 
NIBHEX D 


NIBASC \KEYDOWN\ 


NIBHEX 03 
NIBHEX 3 
NIBASC \LC\ 
NIBHEX 13 


NIBHEX 5 
NIBASC \LGT\ 


NIBHEX 23 


NIBHEX 7? 
NIBASC \LOCK\ 


NIBHEX 33 


NIBHEX 9 
NIBASC \LOGP1\ 
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GDISP$ 


GDISP 


HTD 


INTO 


KEYDEF$ 


KEYDOWN 


LC 


LGT 


LOCK 


LOGP1 
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624 
625 
626 
627 


628 
629 
630 
631 


632 
633 
634 
635 


636 
637 
638 
639 


640 
641 
642 
643 


644 
645 
646 
647 


648 
649 
650 
651 


652 
653 
654 
655 


656 
657 
658 
659 


660 
661 
662 
663 


13 
1E1 43 


1EX3 7 

1E3O4 D414 
4584 

TEC 63 


TEXE 7 

TEXF 0454 
1464 

1E317 73 


1£319 § 

1E31A D454 
D4 

1£320 83 


1E322 9 

1E323 D454 
2574 
54 

1E32D 93 


1E32F D 

1£330 D494 
E425 
5414 
c4 

1€33E A3 


1£340 § 

16341 £414 
£4 

1€347 B3 


1E349 ? 

1E34A £454 
1425 

1£352 C3 


1£354 § 

1E355 £454 
74 

1E35B D3 


1E35D 7 

1E35E 0534 
2544 

1£366 E3 


1£368 9 

1£369 0554 
54B4 
42 


NIBHEX 43 
NIBHEX 7 


NIBRSC \MATH\ 


NIBHEX 63 
NIBHEX 7 


NIBASC \MEAN\ 


NIBHEX 73 
NIBHEX 5 


NIBASC \MEN\ 


NIBHEX 83 
NIBHEX 9 


NIBASC \MERGE\ 


NIBHEX 93 
NIBHEX D 


NIBASC \MINREAL\ 


NIBHEX Q3 
NIBHEX 5 


NIBASC \NAN\ 


NIBHEX B3 
NIBHEX 7 


NIBASC \NEAR\ 


NIBHEX C3 
NIBHEX 5 


NIBASC \NEG\ 


NIBHEX D3 
NIBHEX 7 


NIBASC \PCRD\ 


NIBHEX E3 
NIBHEX 3 


NIBASC \PEEK$\ 
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MATH 


MEAN (Duplicate of B 


MEN 


MERGE 


MINRERL 


NAN 


NEAR 


NEG 


PCRD 


PEEKS 





Saturn Assenbler 


Ver. 3.39/Rev. 206 Text 


664 
665 
666 
667 


668 
669 
670 
671 


672 
673 
674 
675 


676 
677 
678 
679 


680 
681 
682 
683 


684 
685 
686 
687 


688 
6389 
690 
691 


692 
693 
694 
695 


696 
697 
698 
699 


700 
701 


1£373 F3 


1E375 9 

1E376 05C4 
9435 
45 

1E380 A1 


1E382 7 

1E383 O5F4 
B454 

1E38B 04 


1E38D 5 

1E38E O5F4 
05 

1£394 14 


1E396 5 

1E397 O5F4 
35 

1E39D 24 


1E39F D 

1E3A0 0525 
9465 
1445 
54 

TESRE 34 


1E3B0 D 

1E3B1 0525 
F445 
5434 
45 

1E3BF 44 


1E3C1 5 

1E3C2 0566 
45 

1E3C8 54 


1E3CA B 

1E3CB 0675 
9444 
4584 

1E307 64 


1E3D09 F 

TESDR 2514 
£444 
F404 
94A5 

1E3ER 74 
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Table 


NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 
NIBHEX 


NIBASC- 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBRSC 


NIBHEX 


F3 

3 
\PLIST\ 
Al 


7 
\POKE\ 


04 


5 
\POP\ 


14 


5 
\POS\ 
24 


D 
\PRIVATE\ 


34 


D 
\PROTECT\ 


44 
5 


\PUT\ 

54 

B 
\PWIDTH\ 


64 


F 
\RANDONIZ\ 


74 


Fri Dec ®, 1983 2:24 an 


Page 17 


PLIST 


POKE 


POP 


POS 


PRIVATE 


PROTECT 


PUT 


PWIDTH 


RANDONMIZ(E) 
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702 
703 


704 
705 
706 
707 


708 
709 
710 
711 


712 
713 
714 
715 


716 
717 
718 
719 


720 
721 
722 
723 


724 
725 
726 
72? 


728 
729 
7H” 
731 


732 
733 
7H 
736 


736 
737 
738 
739 


TE3EC 
1E3ED 


1E3F 3 
1E3F5 
1E3F6 
1£402 


1E404 
1£405 


1£415 
1£417 
1£418 
1E422 
1£424 
1£425 
TE42F 


1€431 
1£432 


1£438 


1£43A 
1£438 


16443 
16445 
16446 
16452 


1£454 
1£455 


1£463 


1£465 
1£466 


5 
2554 
44 
84 


B 
2554 
£414 
D454 
94 


F 
2554 
£455 
D424 
5425 
A4 


2554 
3554 
45 
B4 


25F4 
5564 
44 
c4 


5 
3534 


EO 


3544 
5465 
D4 


B 
3554 
3455 
2554 
F4 


D 
3554 
4544 
1445 
54 
15 


D 
3554 
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NIBHEX 5 
NIBASC \RED\ 


NIBHEX 84 
NIBHEX B 
NIBASC \RENAME\ 
NIBHEX 94 


NIBHEX F 
NIBASC \RENUMBER\ 


NIBHEX A4 
NIBHEX 9 
NIBASC \RESET\ 
NIBHEX B4 
NIBHEX 9 
NIBASC \ROUND\ 
NIBHEX C4 


NIBHEX 5 
NIBASC \SCI\ 


NIBHEX £0 


NIBHEX 7 
NIBASC \SDEV\ 


NIBHEX D4 
NIBHEX B 
NIBASC \SECURE\ . 
NIBHEX F4 


NIBHEX 0 
NIBASC \SETDATE\ 


NIBHEX 15 


NIBHEX D 
NIBASC \SETTINE\ 


Page 18 
RED 


RENAME 


RENUMBER 


RESET [CLOCK] 


ROUND 


SCI 


SDEV (Duplicate of 8 


SECURE 


SETDATE 


SETTINE 
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740 
741 
742 
743 


744 
745 
746 
747 


748 
749 
750 
751 


782 
753 
754 
755 


756 
75? 
758 
759 


760 
761 
762 
763 


764 
765 
766 
767 


768 
769 
720 
771 


772 
773 
724 
775 


16474 


16476 
1E47? 


1£47F 


1£481 
1£482 


1€48A 


1£48C 
1£48D 


1£49B 


1£49D 
1E49E 


1E4A4 
1E4A6 
1E4A?7 
1£4B1 


1£4B3 
1£4B4 


1£4C4 


1E4C6 
TE4C? 


TE4CF 


1E4D1 
1E4De 


1E4E2 


1E4E4 
TESE5 


4545 
9404 
54 
25 


? 
3584 
F475 
35 


? 
3515 
2545 
45 


D 
3545 
1425 
4565 
05 
55 


5 
3545 
44 
CO 


g 
45F4 
4514 
C4 
65 


F 
4525 
14E4 
3564 
F425 
75 


4525 
1405 
85 


55E4 
0525 
F445 
5434 
95 


55£4 
3554 
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NIBHEX 25 


NIBHEX 7 
NIBASC \SHOW\ 


NIBHEX 35 


NIBHEX 7 
NIBRSC \SQRT\ 


NIBHEX 45 


NIBHEX D 
NIBRSC \STARTUP\ 


NIBHEX 55 


NIBHEX 5 
NIBASC \STD\ 


NIBHEX CO 
NIBHEX 9 
NIBASC \TOTAL\ 
NIBHEX 65 


_ NIBHEX F 
NIBASC \TRANSFOR\ 


NIBHEX 75 


NIBHEX 7 
NIBASC \TRAP\ 


NIBHEX 85 


NIBHEX F 
NIBASC \UNPROTEC\ 


NIBHEX 95 


NIBHEX F 
NIBASC \UNSECURE\ 
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SHOW (PORT) 


SQRT 


STARTUP 


STD 


TOTAL 


TRANSFORM 


TRAP 


UNPROTEC(T) 


UNSECURE 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 Text 


776 
777 
778 
779 


780 
781 
782 
783 


784 
785 
786 
787 


788 
789 
7% 
791 


792 
793 
794 
795 


796 
797 
798 


1E4F5 


TE4F7 
1E4F8 


1£500 


1E502 
1€503 


1£508 
1E50D 
1ESOE 
1£518 
1E51A 
1E51B 
1E527 


1£529 
1E52A 


1E532 
1€534 
1£537 


3456 
2554 
AS 


7 
6514 
2535 
BS 


? 
6554 
2542 
22 


9 
7594 
4445 
84 
53 


B 
7594 
£444 
F475 
£4 


? 
ASS4 
25F4 
1 
1FF 


Lexical Analyzer Tables--ID=01 Fri Dec 3, 1983 2:24 an 


TxTbEn 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 
NIBHE X 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBASC 


NIBHE X 
NIBHEX 
END 
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A5 


? (TRACE) VARS 
\VARS\ 


B5 


Z VER$ 
\VERS\ 


22 

9 WIDTH 
\WIDTH\ 
53 

B WINDOW 
\WINDOW\ 

£4 


? ZERO 
\ZERO\ 


C1 
1FF Text ternination 
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ACOS 
ADDRS 
ADJAAA 
ADINNN 
AF 
ANGLE 
ASIN 
ASSIGN 
ATAN 
BYE 
CAT$ 
CHAIN 
CHARST 
CHRST$ 
CLASS 
CLSTAT 
CHTRST 
CONT 
CORR 
CREATE 
DEFALT 
DROP 
DSP$ 
DSPF 
ENDLIN 
ERRNS 
EXACTT 
EXPN 
EXPON 
FLAG 
FLIP 
FRPORT 
GOISP 
GDISP$ 
HEX$ 
HXDEC 
INT 
KEYDEF 
KEYDWN 
LOCK 
LOG10 
LOGP1 
MAINTS 
MEAN 
nen 
MERGE 
MINRL 
NAN 
NASSAU 
PEEK$ 
PLIST 
POKE 
POP 
POS 
PRIVAT 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


55 

59 

63 

67 

71 

76 

80 

84 

88 

92 

96 
420 
116 
124 
132 
141 
145 
149 
193 
161 
170 
174 
383 
104 
182 
186 
194 
198 
202 
211 
253 
224 
228 
232 
178 
236 
215 
245 
249 
261 
257 
265 

16 
278 
282 
286 
2% 
294 
128 
313 
197 
31? 
321 
326 
3% 


108 


112 
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PROTCT 
PUT 
PWIDTX 
RANDON 
RED 
RENAME 
RENUM 
RESET 
RTNSKN 
SDEV 
SECURE 
SE TDAT 
SETTIN 
SHOW 
SQR 
STD 
STRTUP 
TOTAL 
TRAP 
TRSFAX 
TxTbEn 
TxTbSt 
UNPROT 
UNSECR 
VER$ 
WIDTH 
WINDOW 
=xANGLE 
=xC LOCK 
=xEXTND 
=xF LOW 
=xINTO 
=xMATH 
=xNERR 
=xNEG 
=xPCRD 
=xPOS 
=xROUND 
=xXVARS 
=xZERO 
=xrnO1s 
=xroin 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 


124212 #16534 
123039 #IEOSF 


6 #00006 
21 #00015 
38 #00026 
41 #00029 
46 #OOO2E 
54 #00036 
60 #0003C 
61 #0003D 
62 HOOO3E 
66 #00042 
76 #OOO4C 
91 #O005B 
28 HOOOIC 


122116 #10004 
122220 #1DD6C 


Table 


' b@ b & Fo Fb F t £ fF | 


334 
338 
He 
6 
350 
354 
358 
362 

49 
371 
379 
387 
391 
395 
399 
100 
403 
407 
415 
411 
797 
432 
419 
423 
1% 
269 
375 

74 
135 
205 
218 
233 
272 
297 
H2 
307 
324 
365 
426 
164 

12 

52 


29 
29 


34 
34 


36 
36 


Fri Dec 30, 1983 


43 
43 


44 
44 


47 





2:24 ari 


Page 22 








Saturn Assenbler Lexical Analyzer Tables--ID=01 Fri Dec 30, 1983 2:24 an 
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Input Paraneters 
Source file nane is JP&TAB: = MS 
Listing file nane is JP/TAB: TI: ML::-1 
Object file nane is JPZTAB: TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 


Saturn Asserbler Lexical Analyzer Tables--ID=00 Fri Dec ©, 1983 2:21 an 


Ver. 3.39/Rev. 206 Page 1 
1 TITLE Lexical Analyzer Tables--ID=00 
2 1E537 ABS #1£537 
3 x SSS. BBBB & TITTT A BBBB 
4 x S$ 3S B B 8&& I AR B B 
5 x S B B && T A AB B 
6 x SSS. BBBB & T A A BBB 
? & SB B &&& T AAARA BB 
8 * S$ S$ B B & & T A AB B 
9 : SSS. BBBB 8& & } A A BBBB 
10 
11 * This file was generated on Thu Jul 7, 1983 3:35 pn 
12 1E537 =MAINTS 
13 1&537 00 NIBHEX 00 Id 
14 1£539 00 CON(2) 0 Lowest Token 
15 1£53B FF CON(2) 255 Highest Token 
16 1E53D 0000 NIBHEX 00000 End of lex table chain 
0 
17 x 
18 * Speed Table 
19 1£542 0 NIBHEX 0 Speed table exists 
20 1£543 =LXSPDT 
21 1E543 000 CON(3) 0 A 
22 1£546 050 CON(3) 80 B 
23 1£549 660 CON(3) 102 C 
24 1E54C CBO CON(3) 188 D 
25 1E54F 551 CON(3) 341 E 
26 1E552 481 CON(3) 436 F 
27 1E555 361 CON(3) 483 G 
28 1£558 £35 CON(3) (TxTbEn)-(TxTbSt) H 
29 1E55B 202 CON(3) 514 I 
30 1E55E £35 CON(3) (TxTbEn)-(TxTbSt) J 
31 1E561 662 CON(3) 614 K 
32 1E564 582 CON(3) 645 L 
33 1E567 5D2 CON(3) 725 A 
34 1E56A 713 CON(3) 791 N 
35 1E56D F33 CON(3) 831 0 
36 1£570 E63 CON(3) 878 P 
37 1€573 E35 CON(3) (TxTbEn)-(TxTbSt) Q 
38 1€576 483 CON(3) 948 R 
39 1E579 134 CON(3) 1073 S 
40 1€57C 6A4 CON(3) 1190 T 
41 1E57F CF4 CON(3) 1276 U 
2 1E582 A25 CON(3) 1322 V 
43 16585 335 CON(3) 1331 W 
44 1E588 £35 CON(3) (TxTbEn)-(TxTbSt) Xx 
45 1E58B £35 CON(3) (TxTbEn)-(TxTbSt) ¥ 
46 1E58E £35 CON(3) (TxTbEn)-(TxTbSt) 2 
47 1£591 0 NIBHEX 0 Speed table exists 
48 1£&592 E090 CON(4) (TxTbSt)+1-(*) Offset to text table 
49 1£596 0000 CON(4) 0 No nessage table 
50 1E59A 0000 REL(5) =RTNSXN Offset to poll handler 


0 


Saturn Asseribler 


51 
52 
53 
54 
55 
56 


57 
58 
53 
60 


61 
62 
63 
64 
65 


66 
67 
68 
69 
70 


71 
72 
73 
74 
75 


76 
77 
78 
79 
80 


81 
82 
83 
84 
85 


86 
87 
88 
89 
% 


91 
$2 
93 
94 
96 


96 


1E59F 


1E59F CCI 

1ESA2 0000 
0 

1E5R7 O 


1E5R8 000 

1ESAB 0000 
0 

1E5B0 © 


1E5B1 000 

1ESB4 0000 
0 

1E5B9 0 


TESBA 000 
TE5BD 0000 


0 
1E5C2 0 


1E5C3 000 
1E5C6 0000 


0 
1ESCB O 


1E5CC O00 

1ESCF 0000 
0 

1£5D4 © 


1E5D5 000 

1E5D8 0000 
0 

1ESDD O 


1ESDE 000 

1E5E1 0000 
0 

1E5E6 O 


1ESE7 000 

TESEAR 0000 
0 

TESEF © 


Lexical Analyzer Tables--ID=00 
Ver. 3.39/Rev. 206 Main Table 


k Main 
=MAINT 
x 


=tINT12 


=tINT11 


=tINT10 


=tINT9 


=tINT8 


x 


=tINT? 


=tINT6 


STITLE Maan 
Table 


CON(3) 460 
REL(5) =FN-GO 
NIBHEX 0 


CON(3) 0 
REL(5) =TRMNTR 


NIBHEX 0 

EQU #02 
CON(3) 0 
REL(S) =BLONUN 
NIBHEX 0 

EQU #03 
CON(3) 0 
REL(5) =BLDNUN 
NIBHEX 0 

EQU #04 
CON(3) 0 
REL(S) =BLDNUN 
NIBHEX 0 

EQU #05 
CON(3) 0 
REL(5) =BLDNUN 
NIBHEX 0 

EQU #06 
CON(3) 0 
REL(5) =BLONUN 
NIBHEX 0 

EQU #07 
CON(3) 0 
REL(5) =BLDNUN 
NIBHEX 0 

EQU #08 
CON(3) 0 
REL(S) =BLDNUM 


NIBHEX 0 


Table 


01 


02 


03 


05 


06 


07 


08 


Fri Dec 30, 1983 2:21 an 
Page 2 


FN (lex only) 


Durty Fill 


12-Digit Integer 


11-Digit Integer 


10-Digit Integer 


9-Digit Integer 


8-Digit Integer 


?7-Digit Integer 


6-Digit Integer 





Saturn Asseribler 


Ver, 3.39/Rev. 2306 Main 


97 
98 
a 
10 


101 
102 
103 
104 
105 


106 
107 
108 
109 
110 


111 
112 
113 
114 
115 


116 
117 
118 
119 


120 
121 
122 
123 
124 


125 
126 
12? 
128 
129 


130 
131 
Te 
133 
134 


135 
136 
13? 
138 
139 


140 
141 
142 


TESFO 000 

1E5F3 0000 
0 

1E5F8 0 


1ESFI 000 

1ESFC 0000 
0 

1£601 © 


1£602 0 

1£605 0000 
0 

1E60R O 


1E60B 000 

JEBOE 0000 
0 

1£613 0 


1£614 000 

1£61? 0000 
0 

1£61C 0 


1£61D O00 

1£620 0000 
0 

1£625 0 


1£626 000 

1&629 0000 
0 

1E62E O 


1E62F O00 

1£632 0000 
0 

1£63?7 0 


1£638 000 

1£63B O00G 
0 

1£640 0 


Lexical Analyzer Tables--ID=00 


x 
=tINT5 


=tINT4 


=tINT3 


=tINT2 


x 
=tLBLRF 


& 
=tLINE# 


=tBIG 


t 


=tSNALL 


=tFLT12 


Table 


EQU #09 
CON(3) 0 
REL(5) =BLDNUN 
NIBHEX 0 

EQU #OA 
CON(3) 0 
REL(S) =BLDNUM 
NIBHEX 0 

EQU #0B 
CON(3) 0 
REL(S) =BLONUN 
NIBHEX 0 

EQU #OC 
CON(3) 0 
REL(S) =BLDNUN 
NIBHEX 0 


CON(3) 0 
REL(5) =TRMNTR 


NIBHEX 0 

EQU HOE 
CON(3) 0 
REL(5) =TRMNTR 
NIBHEX 0 

EQU ROF 
CON(3) 0 
REL(5) =TRMNTR 
NIBHEX 0 

EQU #10 
CON(3) 0 
REL(5) =TRMNTR 
NIBHEX 0 

EQU #11 
CON(3) 6 
REL(5) =TRMNTR 
NIBHEX 0 


EQU #12 


09 


OA 


OB 


oc 


oD 


OE 


OF 


2:21 art 
Page 3 


Fri Dec 30, 1983 


5-Digit Integer 


4-Digit Integer 


3-Digit Integer 


2-Digit Integer 


[Unused] 


Label Reference 


Line Nurber 


Constant Too Big 


Constant Too Srall 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 Nain 


143 
144 


145 
146 
147 
148 
149 


150 
151 
182 
163 
154 


155 
156 
167 
158 
159 


160 
161 
162 
163 
164 


165 
166 
167 
168 
169 


170 
171 
172 
173 
174 


175 
176 
177 
178 
179 


180 
181 
182 
183 
184 


185 
186 
187 
188 


1£641 000 

16644 0000 
0 

16649 0 


1E64A 000 

1E64D 0000 
0 

1£652 0 


16653 OOO 

1£656 0000 
0 

1E65B 0 


1EG5C 000 
1E65F 


8 


1E664 


1E665 
16668 


1E66D 


1E66E 
1E671 


1£676 


1E677 
1E67—R 


1E67F 


1E680 
1£683 


1£688 


1£689 000 
1E68C 00 
0 
0 


S 


1£691 


1E692 000 


Lexical Analyzer Tables--ID=00 


=tFLT11 


=tFLT10 


=tFLT9 


=tFLT8 


=tFLT7 


=tFLT6 


=tFLT5 


x 


=tFLT4 


=tFLT3 


Table 


CON(3) 0 
REL(S) =BLDNUA 


NIBHEX 0 

EQU #13 
CON(3) 0 
REL(S) =BLONUN 
NIBHEX 0 

EQU =R14 
CON(3) 0 
REL(5) =BLONUN 
NIBHEX 0 

EQU = #15 
CON(3) 0 
REL(5) =BLDNUN 
NIBHEX 0 

EQU = #16 
CON(3) 0 
REL(S) =BLONUM 
NIBHEX 0 

EQU #17 
CON(3) 0 
REL(S) =BLDNUN 
NIBHEX 0 

EQU = R18 
CON(3) 0 
REL(S5) =BLDNUN 
NIBHEX 0 
EQUH19 
CON(3) 0 
REL(S) =BLDNUN 
NIBHEX 0 

FQU =soRTA 
CON(3) 0 
REL(S) =BLDNUN 
NIBHEX 0 


EQUs#1B 
CON(3) 0 


12 


13 


14 


16 


17 


18 


1B 


Fri Dec ®, 1983 2:21 an 


Page 4 
12-Digit Float 


11-Digit Float 


10-Digit Float 


9-Digit Float 


8-Digit Float 


7-Digit Float 


6-Digit Float 


5-Digit Float 


4-Digit Float 


3-Digit Float 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 Nain 


189 


190 
191 
192 
193 
194 


195 
196 
197 
198 
199 


200 
201 
202 
203 


204 
205 
206 
207 


208 
209 
210 
211 


212 
213 
214 
215 
216 


217 
218 
219 
220 
221 


222 
“<ee3 
224 


225 


226 
eer 


2206 


229 
2H 


231 
232 


233 


1E695 
1E69R 
1€698 
1E69E 
1E6R3 
1E6R4 
1E6A? 
TE6AC 


1E6AD 
1E6B0 


1E6B5 


1E6B6 
1E6B9 


TE6BE 


1E6BF 
1£6C2 


1E6C?7 
1E6C8 
1E6CB 
1E6DO 
1€6D1 
1E6D4 
TE 6D 


1E6DA 
TE GDN 


1E6E2 
1E6E3 
1E6E6 
1E6EB 
TE6EC 


0000 
0 
0 


e Sees Pose ras Pees 


eos 
QS 
o 


0000 
0 
0 


000 


Lexical Analyzer Tables--ID=00 


=tFLT2 


=tFLT1 


Table 
REL(S) =BLONUM 
NIBHEX 0 

EQU #1C 
CON(3) 0 
REL(5) =BLONUN 
NIBHEX 0 

EQU #10 
CON(3) 0 
REL(S) =BLDNUN 
NIBHEX © 


CON(3) 0 
REL(S) =TRANTR 


NIBHEX 0 


CON(3) 0 
REL(S) =TRMNTR 


NIBHEX 0 


CON(3) 0 
REL(S) =TRMNTR 


NIBHEX 0 

EQU #21 
CON(3) 0 
REL(5) =TRANTR 
NIBHEX 0 

EQU #22 
CON(3) 0 
REL(5) =STRLIT 
NIBHEX 0 


CON(3) 0 
REL(5) =TRANTR 


NIBHEX 0 

EQU #24 
CON(3) 0 
REL(S) =TRANTR 
NIBHEX 0 


CON(3) 0 


IC 


1€ 


20 


21 


22 


23 


24 


25 


Fri Dec 30, 1983 2:21 an 


Page 5 


2-Digit Float 


1-Digit Float 


[Unused] 


[Unused] 


{Unused} 


(") (String Delimiter) 


(#) 


Saturn Asserbler 


Ver. 3.39/Rev. 2K6 Main 


234 


268 
269 


273 
274 


ere 


TEGEF 0000 
0 
1E6F4 0 


1E6F5 000 
1E6F8 0000 


0 
TEOFD 0 
1E6FE 000 
1£701 0000 

0 
1E706 0 


1£707 000 
1E70A 0000 


0 
1E70F 0 


1E710 000 
1£713 0000 


0 
1E718 0 


1E719 000 
1E71£ 0000 


0 
1721 0 


1E722 000 
1£725 0000 


0 
1E72R 0 


1E72B 000 
1E72E 0000 


0 
1€733 0 
1£734 000 
1£737 0000 

0 
1€73C 0 
1£73D 000 
1£740 0000 

0 
1£745 0 
1£746 000 


1£749 0000 
0 


Lexical Analyzer Tables--ID=0 


=tSVAR 


Table 
REL(5) =TRANTR 


NIBHEX © 
CON(3) 0 
REL(5) =TRANTR 
NIBHEX 0 

EQU = #27 
CON(3) 0 
REL(S) =STRLIT 
NIBHEX 0 
CON(3) 0 
REL(5) =TRNNTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRANTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 

EQU = #20 
CON(3) 0 
REL(5) =STRING 
NIBHEX 0 

EQU = RE 
CON(3) 0 
REL(5) =TRNNTR 
NIBHEX 0 
CON(3) 0 


REL(5) =TRNNTR 


26 


27 


28 


23 


2A 


2B 


2c 


2D 


2E 


2F 





Fri Dec 30, 1983 


2:21 at 
Page 6 


(8) 


(’) (String Deliniter) 


(*) 


(+) 


(,) 


String Variable (-) 


Saturn Assenbler 
Ver. 3.39/Rev. 2306 Nain 


278 1E74E 0 
zo 

280 

281 1E74F 000 
282 1£752 0000 


0 
283 1E757 0 
284 
285 
286 1£758 000 
287 1£75B 0000 
0 
288 1£760 0 
289 
290 
291 1E761 000 
292 1£764 0000 


0 
293 1E769 0 
294 
235 
296 1£76A 000 
297 1E76D 0000 


0 

298 1£772 0 

293 

0 

1 1£773 000 

2 1£776 0000 
0 

3 1E77B 0 

04 

35 

6 1£77C 000 

7 1E77F 0000 
0 

8 16784 0 

9 

310 

311 1£785 000 

312 1E788 0000 
0 

313 1E78D 0 

314 

316 

316 1€78E 000 

317 16791 0000 
0 

318 1£796 0 

a3 

320 

321 1E797 000 

322 1£79R 0000 
0 

323 1E79F 0 


Lexical Analyzer Tables--ID=00 
Table 


NIBHEX 0 

EQU #30 
CON(3) 0 
REL(S) =OQNEDGT 
NIBHEX 0 

EQU #31 
CON(3) 0 
REL(5) =ONEDGT 
NIBHEX 0 

EQU #32 
CON(3) 0 
REL(5) =ONEDGT 
NIBHEX 0 

EQU #33 
CON(3) 0 
REL(S) =ONEDGT 
NIBHEX 0 

EQU #34 
CON(3) 0 
REL(S) =ONEDGT 
NIBHEX 0 

EQU #35 
CON(3) 0 
REL(5) =ONEDGT 
NIBHEX 0 

EQU #36 
CON(3) 0 
REL(S) =ONEDGT 
NIBHEX 0 

EQU #37 
CON(3) 0 
REL(S) =ONEDGT 
NIBHEX 0 

EQU #38 
CON(3) 0 
REL(5) =ONEDGT 


NIBHEX 0 


30 


31 


32 


33 


34 


37 


Fri Dec 30, 1983 


0 (Digit) 


1 (Digit) 


2 (Digit) 


3 (Digit) 


4 (Digit) 


5 (Digit) 


6 (Digit) 


? (Digit) 


8 (Digit) 
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Page 


? 


Saturn Assernbler 


Ver. 3.39/Rev., 206 Main 


324 
325 
326 
327 


328 
329 
330 
331 


332 
333 
334 
335 


336 
337 
338 
339 


340 
341 
342 
343 


344 
345 
346 
347 


348 
349 
350 
351 


352 
353 
354 
355 


356 
357 
358 
359 


360 
361 
362 
363 


364 
365 
366 
367 


1E7AO 000 

1E7A3 0000 
0 

1E?7R8 0 


TE7A9 000 

TE7AC 0000 
0 

1E7B1 © 


1E7B2 000 

1E7B5 0000 
0 

1E7BA 0 


1E7BB 000 

1E7BE 0000 
0 

1E703 0 


1E704 000 

1E7C7 0000 
0 

1E7CC O 


1E7CD 000 
1E7D0 0000 


0 
1£7D5 0 


1E7D6 000 

1E7D9 0000 
0 

1E7DE 0 


TE7DF 000 
TE7E2 0000 


0 
TE7E? 0 


TE7E8 000 

1E7EB 0000 
0 

1E7FO 0 


1E?7F1 000 

1E7F4 0000 
0 

1E7F9 0 


1E7FA 000 
1E7FD 0000 
0 


Lexical Rnalyzer Tables--ID=00 


za9 


Table 
EQU #39 
CON(3) 0 
REL(5) =ONEDGT 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(5) =TRHMNTR 
NIBHEX 0 
CON(3) 0 
REL(5) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(5) =TRANTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(S) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(S) =STATIC 
NIBHEX 0 
CON(3) 0 


REL(5) =STATIC 


33 


3A 


38 


3C 


3D 


3E 


3F 


40 


41 


42 


43 


2:21 an 
Page 8 


Fri Dec ®, 1383 


9 (Digit) 


(:) 


(;) 


CALC MODE ASNMNT OPRTR (=) 


(>) 


) 


(@) 


A (Static Variable) 


B (Static Variable) 


C (Static Variable) 


Saturn Assenbler 
Ver. 3.39/Rev. 206 Main Table 


368 
369 
370 
3714 


372 
373 
374 
375 


376 
37? 
378 
379 


380 
381 
382 
383 


384 
385 
386 
387 


388 
339 
390 
331 


392 
393 
394 
395 


396 
397 
398 
399 


400 
401 
402 
403 


404 
405 
406 
40? 


408 
403 
410 
411 


1E802 0 


1E803 000 

1E806 0000 
0 

TE80B 0 


1E80C 000 

TE80F 0000 
0 

1E814 0 


1£815 000 

1E818 0000 
0 

1E81D 0 


1E81E 000 

1E821 0000 
0 

1E826 0 


1E827 000 
TE82A 0000 


0 
1E82F 0 


1E830 000 

1£833 0000 
0 

1£838 0 


1E839 000 

1E83C 0000 
0 

1£841 0 


1E842 000 

1E845 0000 
0 

1E84A O 


1E84B 000 

TE84E 0000 
0 

1£853 0 


1E854 000 

1E85?7 0000 
0 

1E85C 0 


1E85D 000 
1E860 0000 
0 


NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(S) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(S) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(S) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 

CON( 3) 0 
REL(5) =STATIC 
NIBHEX 0 

CON( 3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 


REL(5) =STATIC 


Lexical Analyzer Tables--ID=00 


44 


45 


46 


47 


48 


49 


4A 


48 


4C 


4D 


4E 
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D (Static Variable) 


E (Static Variable) 


F (Static Variable) 


G (Static Variable) 


H (Static Variable) 


I (Static Variable) 


J (Static Variable) 


K (Static Variable) 


L (Static Variable) 


MN (Static Variable) 


N (Static Variable) 





Saturn Asseribler 


4i2 
413 
414 
415 


416 
417 
418 
419 


420 
421 
422 
423 


424 
425 
426 
427 


428 
429 
I) 
431 


432 
433 
444 
435 


436 
437 
438 
439 


440 
441 
442 
443 


444 
445 
446 
447 


448 
449 
450 
451 


452 
453 
454 
455 


1£865 0 


1E866 000 
1£8639 0000 


0 
1E86E 0 


1E86F 000 

1£872 0000 
0 

1£877 0 


1£878 000 

1€87B 0000 
0 

1£880 © 


1£881 000 

1£884 0000 
0 

1€889 0 


1E88A O00 

1E88D 0000 
0 

1E892 0 


1£893 000 

1£836 0000 
0 

1E89B 0 


1E89C OOO 

1E89F 0000 
0 

1E8A4 0 


1E8A5 000 
1E8R8 0000 


0 
TE8AD O 


TE8AE 000 

1£8B1 G000 
0 

1£8B6 0 


1E8B? OOO 

1E8BR 0000 
0 

1E8BF 0 


1E8CO 000 
1E8C3 0000 
0 


Table 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX © 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 90 
REL(S) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX © 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(5) =STATIC 
NIBHEX © 
CON(3) 0 


REL(S) =STATIC 


Lexical Analyzer Tables--ID=00 
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4F 


50 


51 


52 


53 


56 


57 


58 


59 


Fri Dec 30, 1983 


0 (Statac 


P (Static 


Q (Static 


R (Static 


S (Static 


T (Static 


U (Static 


VY (Static 


W (Static 


K (Static 


Y (Static 


Page 


Variable) 


Variable) 


Variable) 


Variable) 


Variable) 


Variable) 


Variable) 


Variable) 


Variable) 


Variable) 


Variable) 


2:21 an 


10 
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456 1£8C8 0 

457 

458 

459 1£8C9 000 

460 1£8CC OO 
0 

461 1E8D1 0 

462 

463 1E8D2 000 

464 1£8B5 0000 
0 

465 1€8DA 0 

466 

467 1£8DB 000 

468 1E8DE 0000 
0 

469 1£8E3 0 

470 

471 1€8E4 000 

472 1E8E7 0000 
0 

473 1E8EC O 

474 

475 1E8ED OO 

476 1E8FO 0000 
0 

477 1E8F5 O 

478 

479 1E8F6 000 

480 1E8F9 0000 
0 

481 1E8FE 0 

482 

483 

484 1E8FF 000 

485 1£902 0000 
0 

486 1£907 0 

487 

488 

4839 1E£908 000 

4% 1E90B 0000 
0 

491 16910 0 

492 

493 

494 1£911 000 

495 1£914 G000 
0 

496 1£919 © 

497 

498 

499 1£91A O00 

500 16910 0000 
Q 


Lexical Analyzer Tables--ID=00 
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=tADIW 


* 
=tADIGI 


x 
=tADIG2 


* 


=tADIG3 


Table 
NIBHEX © 
EQU #5A 
CON(3) 0 
REL(5) =STATIC 
NIBHEX 0 
CON(3) 0 
REL(S) =TRNNTR 
NIBHEX 0 
CON(3) Q 
REL(5) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(5) =TRMNTR 
NIBHEX © 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
CON(3) 0 
REL(S) =TRMNTR 
NIBHEX 0 
EQU #60 
CON(3) 0 
REL(5) =DYNANC 
NIBHEX 0 
EQU #61 
CON(3) 0 
REL(S) =DYNANC 
NIBHEX 0 
EQU #62 
CON(3) 0 
REL(5) =DYNANC 
NIBHEX © 
EQU #63 
CON{ 3) 0 


REL(5) =DYNANC 


5A 


5B 


5c 


5D 


5E 


SF 


60 


61 


63 


Fri Dec 30, 1983 
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Z (Static Variable) 


({) 


(\) 


(}) 


(_) 


Dynanic Variable 0 


Dynaric Variable 1 


Dynanic Variable 2 


Dynamic Variable 3 





2:21 an 
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501 
502 
503 
504 
505 


506 
507 
508 
509 
510 


511 
512 
513 
514 
515 


516 
51? 
518 
519 
520 


521 
522 
523 
$24 
525 


526 
527 
528 
529 
§30 


531 
532 
533 
534 
§35 


536 
537 
538 
539 
540 


541 
542 
543 
544 
545 


546 


1E922 0 
1£923 000 
1£926 6000 
0 
1E92B 0 
1E92C 000 
1E92F 0000 
0 
1€934 0 
1E935 000 
1£938 0000 
0 
1E93D 0 
1ES3E 000 
16941 0000 
0 
16946 0 
1£947 000 
1E94A 0000 
0 
TE94F 0 
1E950 000 
16953 0000 
0 
1€958 0 
1E959 F42 
1E95C 0000 
0 
1E961 F 
1E962 CD1 
1£965 0000 
1E96R F 
1E96B OE2 
1E96E 0000 


0 
1£973 F 


Lexical Analyzer Tables--ID=00 
Ver. 3.39/Rev. 206 Main Table 


=tRADI4 


x 
=tADIGS 


=tADIG? 


=tADIG8 


=tADIC9 


=tHAXRL 


NIBHEX 0 

EQU REA 
CON(3) 0 
REL(S) =DYNANC 
NIBHEX 0 

EQU = #65 
CON(3) 0 
REL(5) =DYNANC 
NIBHEX 0 

EQU = #66 
CON(3) 0 
REL(S) =DYNANC 
NIBHEX 0 

EQU «R67 
CON(3) 0 
REL(5) =DYNANC 
NIBHEX 0 

EQU = #68 
CON(3) 0 
REL(S) =DYNANC 
NIBHEX 0 

EQU = #69 
CON(3) 0 
REL(5) =DYNANC 
NIBHEX 0 

QU = #6R 
CON(3) 591 
REL(S) =IP 
NIBHEX F 

EQU = #68 
CON(3) 476 
REL(5) =FP 
NIBHEX F 

EQU = ROC 
CON(3) 736 
REL(5) =MAXRL 


NIBHEX F 


65 


66 


67 


68 


69 


6A 


68 


6C 
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Dynariic Variable 4 


Dynariic Variable 5 


Dynanic Variable 6 


Dynanic Variable 7 


Dynamic Variable 8 


Dynanic Variable 9 


IP 


FP 


MAXREAL 
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547 
548 
549 
560 


551 
692 
553 
554 
555 


556 
57 
558 
bod 
560 


561 
562 
563 
564 
565 


566 
567 
568 
569 
570 


571 
572 
573 
574 
575 


576 
57? 
578 
579 
580 


581 
582 
583 
584 
585 


586 
587 
588 
589 
590 


591 
592 


1E974 
1E977 


1€97C 
1E97D 
1£980 
16985 
1£986 
1£989 
1E98E 
1E98F 
1E992 
1£997 
16998 
1£99B 
1ESRO 
1ESR1 
1E9A4 
1ESA9 
1ESAR 
TESAD 
1ES9B2 
1E9B3 
TESBE 
1E9BB 
1E9BC 
1E SBF 
1E9C4 


614 
0000 


071 
0000 
0 

F 


lexical Analyzer Tables--ID=00 


x 
=tRMD 


=tRAD 


=tDEG 


=tINF 


=tEPS 


=tCEIL 


=tkEY$ 


=thod 


=tERRL 


EQU #6D 
CON(3) 1046 
REL(S) =RND 


NIBHEX F 
EQU =o ROE 
CON(3) 965 
REL(5) =RAD 
NIBHEX F 
EQU HOF 
CON(3) 249 
REL(5) =DEG 
NIBHEX F 
EQU #70 
CON(3) 534 
REL(S) =INF 
NIBHEX F 

EQU #71 
CON(3) 372 
REL(5) =EPS 
NIBHEX F 

EQU R72 
CON(3) 133 
REL(S) =CEIL 
NIBHEX F 

£QU #73 
CON(3) 614 
REL(5) =KEYS 
NIBHEX F 

EQU #74 
CON(3) 782 
REL(S) =MOD 
NIBHEX F 

EQU #75 
CON(3) 381 
REL(S) =ERRL 


NIBHEX F 


Table 


6D 


6E 


6F 


70 


71 


72 


73 


74 
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RMD 


RAD 


DEG 


INF 


EPS 


CEIL 


KEY$ 


NOD 


ERRL 





Saturn 


bas 
594 
595 


596 
597 
598 
599 


Assenbler 


1E9C5 8814 
1E9C8 0000 


0 
1E9CD F 
1E9CE 400 
1E9D1 0000 

0 
1E906 F 
1E9D7 700 
1ESDA 0000 

0 
1E9DF F 
1E9EO B73 
1E9E3 0000 


0 
1E9E8 F 


1ESE9 000 
1ESEC 0000 
0 
1ESF1 F 
1E9F2 DD4 
1ESF5 0000 
0 
1ESFR F 
1E9FB 000 
TESFE 0000 
0 
1EAO3 0 
1ERO4 000 
1ERO7 0000 
0 
TEROC 0 
1EROD 000 
1EA10 0000 
6 
1EAIS 0 


Lexical Analyzer Tables--ID=00 
Ver. 3.39/Rev. 2W6 Main Table 


=tERRN 


=tDATE 


=tDATES 


=tPI 


=tCMPLX 


=tTIME 


=tFN 


=tARRAY 


=tDNYAR 


=tRES 


EQU = =#76 
CON(3) 392 
REL(S) =ERRN 
NIBHEX F 

EQU #77 
CON(3) 212 
REL(S) =DATE 
NIBHEX F 

EQU = #78 
CON(3) 199 
REL(5) =DATES 
NIBHEX F 

EQU #79 
CON(3) 891 
REL(S) =PI 
NIBHEX F 

EQU HA 
CON(3) 0 
REL(5) =CHPLX 
NIBHEX F 

EQU = #78 
CON(3) 1245 
REL(S) =TIME 
NIBHEX F 

EQU = #7E 
CON(3) 9 
REL(5) =FN 
NIBHEX 0 

EQU = =#7D 
CON(3) 0 
REL(S) =ARRAY 
NIBHEX 0 

EQU #7E 
CON(3) 0 
REL(S) =DMARRY 
NIBHEX 0 


EQU #7F 


76 


7? 


78 


79 


7—A 


7B 


7C 


7D 


7E 
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ERRN 


DATE 


DATES 


PI 


CHPLX 


TINE 


FN 


ARRAY 


Durnny array 
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639 
640 


641 
642 
643 
644 
645 


646 
647 
648 
649 
650 


651 
652 
653 
654 
655 


656 
657 
658 
659 
660 


661 
662 
663 
664 
665 


666 
667 
668 
669 
670 


671 
672 
673 
674 
675 


676 
677 
678 
673 
680 


681 
682 
683 
684 


1EAI6 EF3 

1ER19 0000 
0 

TERIE F 


=t* 
1EAIF 000 
TERZ2 0000 


0 
1ER27 0 


=tNOT 
1EA28 B23 
1EA2B 0000 


0 
1ER30 0 


=t- 
1£A31 000 
1£A34 0000 


0 
1EA39 0 


=t* 
1EA3A 000 
1EA3D 0000 


0 
1ER42 0 


x 
=t/ 
1EA43 000 
1ER46 0000 
0 
1EA4B O 


x 

=th 
TERAC 000 
TER4F 0000 


0 
1EA54 O 


=tDIV 
1EA55 341 
1ER58 0000 


0 
TERSD 0 


=t+ 
TERSE 000 
1EAG1 0000 
0 
1ER66 0 


1EAG? 000 
TERGBA 0000 


Table 


CON(3) 1022 
REL(5) =RES 


NIBHEX F 

EQU #80 
CON(3) 0 
REL(5) =INVLUT 
NIBHEX 0 

EQU #811 
CON(3) 813 
REL(S) =NOT 
NIBHEX 0 

EQU #82 
CON(3) 0 
REL(S) =NINUS 
NIBHEX 0 

EQU = #83 
CON(3) 0 
REL(S) =MULTPY 
NIBHEX 0 

EQU #34 
CON(3) 0 
REL(5) =DIVIDE 
NIBHEX 0 

EQU = #85 
CON(3) 0 
REL(5) =PERCNT 
NIBHEX 0 

EQU #86 
CON(3) 323 
REL(5) =DIV 
NIBHEX 0 

EQU #87 
CON(3) 0 
REL(S) =PLUS 
NIBHEX 0 


CON(3) 0 
NIBHEX 00000 


Lexical Analyzer Tables--ID=00 


7F 


80 


81 


82 


83 


84 


85 


86 


8? 


88 
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RES 


“~ CINVOLUTION) 


NOT 


- (Unary) 


DIV 


[Unused] 
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685 
686 
6387 
688 
689 


690 
631 
692 
693 
694 


695 
696 
697 
698 
639 


700 
701 
702 
703 
704 


705 
706 
707 
708 
709 


710 
714 
712 
713 


714 
715 
716 
717 


718 
719 
720 
724 


0 
1ERGF O 
1£A70 000 
1EA73 0000 
0 
1EA78 0 
1ER79 000 
TER7C 0000 
0 
1EA81 0 
TER82 620 
TEA85 0000 
0 
TEARBA O 
1EA8B ORI 
TEABE 0000 
0 
1EA93 0 
1EA94 E53 
1ER97 0000 
0 
TERSC 0 


TER3D 000 
TERAO 0000 


0 
TEAAS 0 


TEAR6 000 
1EAAS 0000 


0 
TERRE 0 


TERAF 52 
TERB2 9000 


0 
1ERB? F 


TERBS 1B2 
1EABB 0000 


0 
1EACO F 


=t& 


=tRELOP 


NIBHEX 0 


EQU #89 
CON(3) 0 
REL(S) =CONCAT 


& (CONCATENATE) 


NIBHEX 0 


EQU #8A 
CON(3) 0 
REL(5) =COMPAR 


Relational operators 


NIBHEX 0 


EQU 
CON(3) 
REL(5) 


#8B 
38 
=AND 


NIBHEX 0 


EQU #38C 
CON(3) 416 
REL(5) =EXOR 


NIBHEX 0 


EQU = #8D 
CON(3) 862 
REL(5) =OR 


NIBHEX 0 


CON(3) 0 [Unused] 


REL(S) =EXPR 
NIBHEX 0 


CON(3) 0 {Unused} 
REL(5) =EXPR 
NIBHEX 0 


EQU 
CON(3) 
REL(5) 


709 


NIBHEX F 


EQU 
CON(3) 
REL(S) 


#91 
683 
=LOG 


NIBHEX F 
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7H 
734 
732 


733 
734 
735 
736 
737 


738 
739 
740 
741 
742 


743 
744 
745 
746 
747 


748 
749 
750 
754 
752 


798 
754 
755 
756 
75? 


758 
759 
760 
761 
762 


763 
764 
765 
766 
76? 


768 
769 
770 
771 
772 


773 
774 
775 


1EAC1 864 

TEAC4 0000 
0 

TEACS F 


1EACA 8B2 

TEACD 0000 
0 

TEAD2 F 


1EAD3 BAI 

TERDE 0000 
0 

TEADB F 


TEADC 3C4 

TEADF 0000 
0 

TERE4 F 


TERES F54 

TERE8 0000 
0 

TERED F 


TEAEE 3B0 

TERF1 0000 
0 

TERF6 F 


TERF? FR4 

TERFA 0000 
0 

TEAFF F 


1EBOO F20 

TEBO3 0000 
0 

1EBO8 F 


1EBO9 900 

1EBOC 0000 
0 

1EB11 F 


Lexical Analyzer Tables--ID=00 


=tSQR 


=tL0G10 


=tEXP 


=tTIME$ 


=tSIN 


=tC0S 


=tTAN 


=tASIN 


=tACOS 


=tATAN 


EQU 
CON(3) 
REL(5) 
NIBHEX 
EQu 

CON(3) 
REL(5) 
NIBHEX 
EQu 

CON(3) 
REL(5) 
NIBHEX 
EQu 

CON(3) 
REL(S) 
NIBHEX 
EQU 

CON(3) 
REL(5) 
NIBHEX 
EQU 

CON(3) 
REL(5) 
NIBHEX 
EQU 

CON(3) 
REL(S) 
NIBHEX 
EQu 

CON(3) 
REL(5) 
NIBHEX 
FQu 

CON(3) 
REL(5) 
NIBHEX 


EQU 


Table 


#92 
1128 
=SQR 
F 
#93 
696 
=LOG10 
F 
#94 
427 
=EXP 
F 
#95 


1219 
=TINES 


#96 
1119 
=SIN 


#97 
1793 
=COS 


#98 
1199 
=TAN 


#99 
=ASIN 


#9R 
=ACOS 


#9B 


92 


93 


94 


95 


96 


37 


98 


33 


9A 
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SQR 


LOG10 


EXP 


TINES 


SIN 


COS 


TAN 


ASIN 


ACOS 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 Main 


776 
7277 


778 
779 
780 
781 
782 
783 


784 
785 


812 
813 


817 
818 


821 


1EB12 AX 
1£B15 0000 


0 
1EBIA F 
1€B1B D32 
1EB1E 0000 
0 
1€B23 F 
1£B24 AF2 
1EB27 0000 
0 
1EB2C F 
1EB2D 134 
1EB30 0000 
0 
1£B35 F 
1£B36 D83 
1EB39 0000 
0 
1EB3E F 
VEBSF F14 
1EB42 0000 
0 
1€B47 F 
1EB48 944 
1EB4B 0000 
0 
1EB50 F 
1£851 000 
1£B54 0000 
0 
1EB59 F 
VEBSA 633 
1EB5D 0000 
0 
1EB62 F 


1£863 D9 


Lexical Analyzer Tables--ID=O0 


=tINT 


=thEAN 


=tSDEV 


=tPREDV 


=tRND 


=tSGN 


* 
=tABS 


=tNUN 


=tCHR$ 


Tabl 


CON(3) 58 
REL(5) =ATAN 


NIBHEX F 

EQU #9C 
CON(3) 573 
REL(S) =INT 
NIBHEX F 

EQU #9D 
CON(3) 762 
REL(5) =MEAN 
NIBHEX F 

EQU HSE 
CON(3) 1073 
REL(5) =SDEV 
NIBHEX F 


EQU =o RSF 
CON(3) 909 


e 


REL(S) =PREDV 


NIBHEX F 


EQU = HAD 
CON(3) 1055 
REL(5) =RND 


NIBHEX F 
EQU #AI 
CON(3) 1097 
REL(5) =SGN 
NIBHEX F 
EQU HAZ 
CON(3) 0 
REL(S) =ABS 
NIBHEX F 
#A3 


822 
=NUN 


EQU 
CON(3) 
REL(5) 


NIBHEX F 


#A4 
15? 


EQU 
CON(3) 


3B 


9C 


3D 


9E 


SF 


Al 


R2 


A3 


A4 
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ATAN 


INT 


MEAN 


SDEV 


PREDV 


RND 


SGN 


ABS 


NUN 


CHRS 
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822 1EB66 OOOO REL(5) =CHR$ 
0 
823 1EB6B F NIBHEX F 
824 x 
825 =tVAL  EQU #A5 
826 1EB6C A25 CON(3) 1322 AS VAL 
827 1EBEF 0000 REL(S) =VAL 
0 
828 1£B74 F NIBHEX F 
829 - 
$30 =tSTR$ EQU #A6 
831 1EB75 294 CON(3) 1170 AG STR$ (fornerly VAL$) 
832 1£B78 0000 REL(5) =STR$ 
0 
833 1£B7D F NIBHEX F 
834 x 
835 =tISUB$ EQU #A7 
836 1EB7E 000 CON(3) 0 A? SUB$ (inplied) 
837 1£B81 0000 REL(S) =SUB$ 
0 
838 1EB86 F NIBHEX F 
833 x 
840 =tFACT €QU #A8 
841 1EB8? 481 CON(3) 436 A8 FACT 
842 1EB8A OOOO REL(S) =FACT 
0 
843 1EB3F F NIBHEX F 
844 x 
845 =tLEN  EQU #A9 
846 1£B90 582 CON(3) 645 A9 LEN 
847 1EB393 0000 REL(5) =LEN 
0 
848 1EB98 F NIBHEX F 
849 % 
850 =tLPRP EQU #AA 
851 1EB99 000 CON(3) 0 AR LPRP () 
852 1EB9C 0000 REL(5) =LPRP 
0 
853 1EBA1 F NIBHEX F 
$54 . 
855 =tUPRC$ EQU #AB 
856 1EBR2 505 CON(3) 1285 AB UPRC$ 
85? 1EBAS 0000 REL(S) =UPRC$ 
0 
858 1EBRA F NIBHEX F 
$59 x 
860 =tMIN = EQU #AC 
861 1EBAB 503 CON(3) 773 AC MIN 
862 1EBRE 0000 REL(5) =MIN 
0 
863 1£BB3 F NIBHEX F 
864 x 
865 =tMAX  EQU #AD 
$66 1EBB4 1F2 CON(3) 753 AD MAX 


867 1EBB? 0000 REL(5) =MAX 
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868 
869 
870 
871 
872 


873 
874 
875 
876 
877 


878 
879 
880 
881 
882 


883 
884 
885 
886 
887 


888 
889 
890 
891 
892 


893 
894 
895 
896 
897 


898 
899 
300 
1 
%2 


%3 
94 
95 
6 
907 


8 
%3 
310 
911 
912 


1EBBC 
TEBBD 
1EBCO 
1EBCS 
TEBCE 
1EBC9 
1EBCE 
1EBCF 
TEBD2 
1EBD? 
1EBD8 
1EBDB 
1EBEO 
TEBE 
TEBE4 
TEBES 
TEBER 
1EBED 
TEBF2 
TEBF3 
1EBF6 
tEBFB 
TEBFC 
1EBFF 
1ECO4 


1ECO5 
1ECO08 


0 
F 


DS2 
0000 


EC2 
0000 
0 


Lexical Analyzer Tables--ID=00 


k 
=tIVe 


=tOVF 


= tUNF 


=t0VZ 


=tINX 


=tXFN 


=tFFN 


=tCOPY 


NIBHEX F 


EQU = HAE 
CON(3) 605 
REL(5) =IVL 


NIBHEX F 
EQU =o RAF 
CON(3) 869 
REL(5) =OVF 
NIBHEX F 
EQU #BO 
CON(3) 1276 
REL(5) =UNF 
NIBHEX F 
EQU #81 
CON(3) 332 
REL(5) =DVZ 
NIBHEX F 
EQU #B2 
CON(3) 582 
REL(S) =INX 
NIBHEX F 
EQU #B3 
CON(3) 0 
REL(5) =XFN 
NIBHEX F 

EQU #B4 
CON(3) 0 
REL(5) =XFN 
NIBHEX F 

EQU = HBS 
CON(3) 168 
REL(5) =COPY 
NIBHEX D 

EQU #B6 


CON(3) 
REL(S) =LR 


Table 


RE 


AF 


B1 


B2 


B3 


B5 


B6 
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IVL 


OVF 


UNF 


DVZ 


INX 


XFN 


Funny Function 


COPY 


LR 


saturn Assenbler 


913 
914 
915 
916 
917 


918 
919 
920 
921 
922 


923 
$24 
925 
926 
92? 


928 
929 
930 
931 
932 


933 
334 
935 
936 
93? 


938 
939 
940 
941 
942 


943 
944 
945 
346 
947 


948 
949 
350 
951 
362 


953 
954 
965 
386 
967 


958 


1ECOD D 


1ECOE FO1 

1EC11 0000 
0 

1EC16 ? 


1EC17 551 

1ECIA 0000 
0 

1ECIF 7 


1EC20 FDO 

1EC23 0000 
0 

1EC28 D 


1EC3B 903 
1EC3E 0000 


1EC43 D 


1€C44 713 
1EC4? 0000 


1EC4C D 


TEC4D E11 

1EC5O 0000 
0 

1EC55 D 


1EC56 792 

1EC59 0000 
0 

1ECSE D 
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=tDE LET 


k 
=tEDIT 


k 
= tDEF 


x 
=tENDDF 


=tOSTRY 


s 
=tLINPT 


NIBHEX D 

EQU #B? 
CON(3) 271 
REL(S) =D’ LTE 
NIBHEX 7 

EQU HB8 
CON(3) 341 
REL(5) =EDIT 
NIBHEX 7 

EQU HBS 
CON(3) 223 
REL(5) =DEF 
NIBHEX D 

EQU #BA 
CON(3) 0 
REL(5) =ENDDEF 
NIBHEX 0 

EQU #BB 
CON(3) 678 
REL(S) =LIST 
NIBHEX D 

EQU #BC 
CON(3) 985 
REL(5) =REAL 
NIBHEX D 

EQU #BD 
CON(3) 791 
REL(S) =NANE 
NIBHEX D 

EQU HBE 
CON(3) 286 
REL(S) =DSTROY 
NIBHEX 0 

EQU HBF 
CON(3) 663 
REL(S5) =LINPUT 


NIBHEX 0 


87 


B8 


B9 


BA 


BB 


BC 


BD 


BE 


BF 
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DELETE 


EDIT 


DEF 


END DEF (parsed by ENDP) 


LIST 


REAL 


NANE 


DESTROY 


LINPUT 
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959 
960 
961 
962 


963 
964 
965 
966 
967 


968 
369 
970 
971 
972 


973 
974 
975 


1ECSF E82 

1EC62 0000 
0 

1EC67 D 


1EC68 094 
1EC6B 0000 
0 
1EC70 8 
1£C71 000 
1EC74 0000 
0 
1EC79 0 
1EC7A 301 
1EC7D 0000 
0 
1EC82 9 
1EC83 223 
1EC86 0000 
0 
1EC8B 9 
1EC8C 831 
1EC8F 0000 
0 
1€C94 D 
1£C95 CBO 
1EC98 0000 
0 
1EC9D 8 
1EC9E EC3 
1ECR1 0000 
0 
VECAG D 
1ECA? FBI 
TECRA 0000 
0 
1ECAF 7 


Lexical Analyzer Tables--ID=00 


x 
=tLET 


=tSUB 


=tENDSB 


=tF OR 


=tNEXT 


=tDISP 


=tDATA 


=tREAD 


=tFETCH 


EQU  =#CO 
CON(3) 654 
REL(S) =LET 


NIBHEX D 
EQU #C1 
CON(3) 1181 
REL(S) =SUB 
NIBHEX 8 


EQU =#C2 
CON(3) 0 


REL(5) =ENDSUB 


NIBHEX 0 

EQU = #03 
CON(3) 467 
REL(S) =FOR 
NIBHEX 9 

EQU = RC4 
CON(3) 802 
REL(5) =NEXT 
NIBHEX 9 
EQU ACS 
CON(3) 312 
REL(S) =DISP 
NIBHEX D 

EQU =#C6 
CON(3) 188 
REL(5) =DATA 
NIBHEX 8 

EQU = AE? 
CON(3) 974 
REL(5) =READ 
NIBHEX D 

EQU = #8 
CON(3) 447 
REL(S) =FETCH 


NIBHEX 7 


CO 


C1 


C2 


C3 


C5 


C6 


C? 


C8 
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LET 


SUB 


END SUB (parsed by ENDP) 


FOR 


NEXT 


DISP 


DATA 


READ 


FETCH 
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1005 
1006 
100? 


1008 
1009 
1010 
1011 
1012 


1013 
1014 
1015 
1016 
1017 


1018 
1019 
1020 
1021 
1022 


1023 
1024 
1025 
1026 
102? 


1028 
1029 
1030 
1031 
1032 


1033 
1034 
1035 
1036 
1037 


1038 
1039 
1040 
1041 
104e 


1043 
1044 
1045 
1046 
1047 


1048 
1049 
1050 


TECBO F12 

1ECB3 0000 
0 

1ECB8 D 


1ECBS C22 

1ECBC 0000 
0 

TECC1 D 


1ECC2 254 

1ECT5 0000 
0 

1ECCA D 


1ECCB F21 

1ECCE 0000 
0 

1ECD3 D 


1ECD4 A93 

1ECD? 0000 
0 

(ECDC D 


TECDD 174 

TECEO 0000 
0 

1ECES D 


1ECE6 172 

TECES 0000 
0 

TECEE 0 


1ECEF 170 

1ECF2 0600 
0 

1ECF? O 


TECF8 283 

TECFB 0000 
0 

1EDOO 0 
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=tINPUT 


EQU #C9 
CON(3) 543 
REL(S) =INPUT 


NIBHEX D 


=tINTEG EQU #CA 


=tSHORT 


=tDIn 


=tPRINT 


=tSTAT 


=tKEYS 


=tCARD 


=tPORT 


=thAIN 


CON(3) 556 
REL(S) =INTEGR 


NIBHEX D 

EQU #CB 
CON(3) 1106 
REL(S) =SHORT 
NIBHEX D 
EQU #CC 
CON(3) %3 
REL(S) =DIN 
NIBHEX D 

EQU #CD 
CON(3) 922 
REL(S) =PRINT 
NIBHEX D 

EQU HCE 
CON(3) 1137 
REL(5) =STAT 
NIBHEX D 

EQU #CF 
CON(3) 625 
NIBHEX 00000 
NIBHEX 0 

EQU #DO 
CON(3) 113 
NIBHEX 00000 
NIBHEX 0 

EQU #01 
CON(3) 898 
NIBHEX 00000 
NIBHEX 0 


EQU #D2 


C9 


CA 


CB 


cc 


CD 


CE 


CF 


DO 


D1 
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INPUT 


INTEGER 


SHORT 


DIN 


PRINT 


STAT 


KEYS 


CARD 


PORT 
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1051 
1052 


1053 
1054 
1055 
1056 
1057 


1058 
1053 
1060 
1061 
1062 


1063 
1064 
1065 
1066 
1067 


1068 
1069 
1070 
1071 
1072 


1073 
1074 
1075 
1076 
107? 


1078 
1079 
1080 
1081 
1082 


1083 
1084 
1085 
1086 
1087 


1088 
1089 
1090 
1091 
1092 


1093 
1094 
1095 
1096 


1EDO1 5D2 

1EDO4 0000 
0 

1EDO9 0 


TEDOR 8E0 

1EDOD 0000 
0 

1£012 D 


1£013 483 

1ED16 0000 
0 

1ED1B D 


TEDIC 410 

1EDIF 0000 
0 

16024 D 


1E025 201 

1ED28 0000 
0 

TED2D D 


1ED2ZE £63 

1ED31 0000 
0 

1ED36 C 


1ED37 335 

TED3A 0000 
0 

1ED3F 0 


1ED40 784 

1£D43 0000 
0 

1€D48 D 


1ED49 B61 

1EDAC 0000 
0 

TED51 D 


TED52 704 


Lexical Analyzer Tables--ID=00 


=tDEGRE 


=tRDIAN 


=tDELAY 


=tPRUSE 


=tEND 


=tRETRN 


Table 


CON(3) 725 D2 


NIBHEX 00000 
NIBHEX 0 

EQU #D3 
CON(3) 232 
REL(5) =DEGREE 
NIBHEX D 

EQU #04 
CON(3) 948 
REL(5) =RADIAN 
NIBHEX D 

EQU #D5 
CON(3) 20 
REL(5) =ADD 
NIBHEX D 

EQU #D6 
CON(3) 258 
REL(S) =DELAY 
NIBHEX D 

EQU 


CON(3) 
REL(5) 


#D7 
878 
=PAUSE 


NIBHEX C 
EQU 
CON(3) 
REL(S) 
NIBHEX 
EQU 
CON(3) 
REL(5) 
NIBHEX 
EQU 
CON(3) 
REL(5) 
NIBHEX D 


EQU RDB 
CON(3) 1031 
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MAIN 


DEGREES 


RADIANS 


RETURN 
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1097 1ED55 0000 


0 
1098 1ED5A D 
1099 
1100 


1101 1ED5B 3€1 
1102 1ED5E 0000 


0 
1103 1£063 0 
1104 
1105 


1106 1£064 OF1 
1107 1ED67 0000 


0 
1108 1€D6C D 
1109 
1110 


1111 1ED6D DE3 
1112 1ED70 0000 


0 
1113 1E075 D 
1114 
1115 


1116 1ED76 202 

111? 1£D079 0000 
0 

1178 1ED7E D 

1119 

1120 

1121 1ED7F 843 

1122 1ED82 0000 


0 
1123 1ED87 D 
1124 
1125 


1126 1£088 F33 
1127 1£08B 0000 


0 
1128 1€D90 D 
1129 
1130 


1131 1ED91 215 
1132 1ED94 0000 


0 
1133 1ED39 D 
1134 
1135 


1136 1ED9A 391 
1137 1ED9D 0000 


0 
1138 1EDA2 0 
1139 
1140 


1141 1EDA3 OD4 
1142 1EDA6 0000 


Lexical Analyzer Tables--ID=00 


=tG0SUB 


=tG0TO 


=tRESTR 


=tIF 


=tON 


=tOFF 


=tUSER 


=tERROR 


=tTINER 


REL(5) =RETURN 


NIBHEX D 


EQU #DC 
CON(3) 483 


REL(5) =GOSUB 


NIBHEX D 


EQU #0D 
CON(3) 496 


REL(5) =GOTO 


NIBHEX 0 


EQU #DE 
CON(3) 1005 


REL(S) =RESTOR 


NIBHEX D 
EQU #DF 
CON(3) 514 
REL(5) =IF 
NIBHEX D 
EQU #EO 
CON(3) 840 
REL(5) =ON 
NIBHEX D 
EQU #E1 
CON(3) 831 
REL(5) =OFF 
NIBHEX D 


EQU HE? 
CON(3) 1298 


REL(S) =USER 


NIBHEX 0 


EQU #E3 
CON(3) 403 


REL(5) =NXTSTN 


NIBHEX 0 


EQU #E4 
CON(3) 1232 


REL(S) =NXTSTM 


Table 


dC 


0D 


DE 


OF 


EO 


E1 


E3 


E4 
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GOSUB 


GOTO 


RESTORE 


IF 


ON 


OFF 


USER 


ERROR 


TIMER 
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0 
1143 1EDRB O 
1144 
1145 
1146 1EDAC C72 
1147 1EDAF 0000 
0 
1148 1£0B4 D 
1149 
1150 
1151 1EDB5 4€3 
1152 1EDB8 0000 


0 
1153 1EDBD D 
1154 
1155 
1156 1EDBE 652 
1157 1EDC1 O00 


0 
1158 1EDC6 O 
1159 
1160 


1161 1EDC? B50 
1162 1EDCA 0000 


0 
1163 1EDCF D 
1164 
1165 


1166 1EDDO 050 
1167 1EDD3 0000 


0 
1168 1£DD8 0 
1169 
1120 


1171 1EDD9 FE4 

1172 1EDDC 0000 
0 

1173 1£DE1 D 

1174 

1175 

1176 1EDE2 7A3 

1177 1EDES 0000 
0 

1178 1EDEA D 

1179 

1180 

1181 1EDEB C70 

1182 1EDEE 0000 


0 
1183 1EDF3 D 
1184 
1185 


1186 1EDF4 F43 
1187 1EDF? 0000 
0 


Lexical Analyzer Tables--ID=00 


=tKEY 


x 


=tREN 


=tI$§ 


x 


=tBEEP 


=tBASE 


=tTRACE 


=tPURGE 


=tCAT 


=tOPT’N 


NIBHEX © 
EQU #ES 
CON(3) 636 
REL(5) =KEY 
NIBHEX D 
£QU #E6 
CON(3) 996 
REL(S) =REM 
NIBHEX D 


EQU #E7 
CON(3) 598 


REL(S) =NXTSTM 


NIBHEX 0 

EQU HEB 
CON(3) 91 
REL(5) =BEEP 
NIBHEX D 


EQU HES 
CON(3) 80 


REL(5) =NXTSTA 


NIBHEX 0 


EQU HEAR 
CON(3) 1263 


REL(S) =TRACE 


NIBHEX D 


EQU #EB 
CON(3) 935 


REL(S) =PURGE 


NIBHEX D 
EQU REC 
CON(3) 124 
REL(5) =CAT 
NIBHEX D 


EQU #ED 
CON(3) 847 


REL(5) =OPTION 


Table 


E5 


E6 


E? 


E8 


E9 


EA 


EB 


EC 


ED 
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KEY 


REM 


TS 


BEEP 


BASE 


TRACE 


PURGE 


CAT 


OPTION 
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1188 
1189 
119 
1191 
1192 


1193 
1194 
1195 
1196 
119? 


1198 
1199 
120 
1201 
1202 


1203 
1204 
1205 
1206 
1207 


1208 
1209 
1210 
1211 
1212 


1213 
1214 
1215 
1216 
1217 


1218 
1213 
1220 
1221 


1222 


1223 
1224 
1225 


ao 
ec 
122? 


228 
1229 
1230 
1231 
1232 


1233 


TEDFC D 


1EDFD 540 
1EEOO 0000 


0 
1EEOS 7 


1EEO6 O00 

1EEOS 0000 
0 

TEEOE D 


1EEOF 000 
TEE12 0000 


0 
1EE17 0 


1EE18 000 

1EE1B 0000 
0 

1EE20 0 


1EE21 OOO 

1EE24 0000 
0 

1EE29 0 


TEER 8&4 

1EEZD 0000 
0 

1EE32 0 


1EE33 884 

TEE36 OOOO 
0 

1EE3B 0 


TEESC 061 

TEESF 0000 
0 

1EE44 O 


TEE45 C74 

TEE48 OOOO 
0 

TEE4D O 
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=tAUTO 


k 
=tXWORD 


=tEOL 


t 
=tCOMMA 


x 


=tSENIC 


=tT0 


=tTHEN 


=tSTEP 


Table 


NIBHEX D 


EQU 


#EE 


CON(3) 69 
REL(5) =AUTO 


NIBHEX 7 


EQU 


HEF 


CON(3) 0 
REL(5) =XWORD 


NIBHEX D 


EQU 


#FO 


CON(3) 0 


REL(S) =TRMNTR 


NIBHEX 0 


EQU 


#F 1 


CON(3) 0 


REL(S) =TRMNTR 


NIBHEX 0 


EQU 


HF 2 


CON(3) 0 


REL(5) =TRMNTR 


NIBHEX 0 


EQU 


HF3 


CON(3) 1256 
NIBHEX 00000 


NIBHEX 0 


EQU 


HF4 


CON(3) 1208 


REL(5) =TRMNTR 


NIBHEX 0 


EQU 


HFS 


CON(3) 352 
REL(5) =ELSE 


NIBHEX 0 


EQU 


#F6 


CON(3) 1148 
REL(5) =LABEL 


NIBHEX 0 


EE 


EF 


FO 


F4 


Fe 


F3 


F4 


FS 


F6 
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AUTO 


XWORD 


<eol> 


CONNA 


SEMICOLON 


THEN 


ELSE 


STEP 
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1234 * 

1235 =tTAB  EQU #F7 

1236 1EE4E 6A4 CON(3) 1190 

1237 1EE51 0000 REL(5) =NXTSTN 
0 

1238 1£E56 0 NIBHEX 0 

1239 x 

1240 =tALL  €QU #F8 

1241 1EE57 B10 CON(3) 29 

1242 1EE5A 0000 REL(S) =NXTSTM 
0 

1243 1EESF 0 NIBHEX 0 

1244 & 

1245 =tCALL EQU #F9 

1246 1EE6O 660 CON(3) 102 

1247 1EE63 0000 REL(5) =CALL 
0 

1248 1€E68 D NIBHEX D 

1249 x 

1250 =tCFLAG EQU #FA 

1251 1EE69 090 CON(3) 144 


1252 1EE6C 0000 


0 
1253 1EE71 D NIBHEX 0 
1254 x 
4255 =tSFLAG EQU #FB 


1256 1EE72 C34 
1257 1EE75 0000 


0 
1258 1EE7A D NIBHEX D 
1259 % 
1260 =t! EQU ORF 
1261 1EE7B 000 CON(3) 0 
1262 1EE7E 0000 REL(S) =BANG 
0 
1263 1EE83 0 NIBHEX 0 
1264 . 
1265 =tUSING EQU #FD 
1266 1EE84 015 CON(3) 1309 


1267 1EE8? 0000 


REL(S) =CFLAG 


CON(3) 1084 
REL(5) =SFLAG 


REL(5) =NXTSTN 


0 
1268 1EE8C 0 NIBHEX 0 
1269 m 
1270 =tRUN  EQU HFE 
1271 1EE8D 824 CON(3) 1064 
1272 1EE% OOOO REL(S) =RUN 
0 
1273 1€E95 D NIBHEX D 
1274 ee 
1275 =tIMAGE EQU RFF 
1276 1EE96 %2 CON(3) 521 


127? 1EE99 O00 
0 

1278 1EESE 8 

1279 =tPRNEN EQU 


NIBHEX 8 


HFS 


REL(5) =IMAGE 


Lexical Analyzer Tables--ID=00 


F? 


F8 


F9 


FA 


FB 


FC 


FD 


FE 


FF 


F8 
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TAB 


ALL 


CALL 


CFLAG 


SF LAG 


Connent 


USING 


RUN 


IMAGE 


PRNEN (End of Parn list-SUB) 
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1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 


=tLBLST 
=t@ 
=tEXTIF 
tPRNST 
tIN 
=tCOLON 
=tC(VAL 
=tCREF 
=tRFILE 
=tLITRL 
=LASTFN 


won 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


Table 


HFG 
HF4 
#F4 
#F3 
HF 2 
#E2 
#E1 
#EO 
#DE 
#C4 
#B4 


F6 
F4 
F4 
F3 
F2 
E2 
E1 
EO 
DE 
c4 
B4 
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Label Statenent 

@ (Continuation) 

Extended If 

PRNST (Start of Parn list-SU 
tIN (for CALL) 

HPIL colon token 

Call by value separator 

Call by reference separator 
Run file specified in RUNP 
LITERAL (Literal label or file 
Last Function 
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1291 STITLE Text Table 
1292 * Text Table 
1293 1EESF =LXTXTT 
1294 1EE9SF TxTbSt Text table start 
1295 * 

1296 1EESF 5 NIBHEX 5 ABS 
1297 1EERO 1424 NIBASC \ABS\ 
35 
1298 1EER6 2A NIBHEX 2A 
1299 x 
130 1EER8 7 NIBHEX 7 ACOS 
1301 1EEA9 1434 NIBASC \ACOS\ 
F435 
12 1EEB1 AY NIBHEX AQ 
103 x 
1304 1EEB3 5 NIBHEX 5 ROD 
1305 1EEB4 1444 NIBASC \ADD\ 
44 
136 1EEBA 5D NIBHEX 5D 
1X7 x 
138 1EEBC 5 NIBHEX 5 ALL 
139 1EEBD 144 NIBASC \ALL\ 
C4 
1310 1EEC3 8F NIBHEX 8F 
1311 x 
1312 1EEC5 5 NIBHEX 5 AND 
1313 1EEC6 14E4 NIBASC \AND\ 
44 
1314 1EECC B8 NIBHEX B8 
1315 x 
1316 1EECE 7 NIBHEX 7 ASIN 
1317 1EECF 1435 NIBASC \ASIN\ 
94E4 
1318 1EED?7 99 NIBHEX 99 
1319 x 
1320 1EED9 7 NIBHEX 7 ATAN 
1321 1EEDA 1445 NIBASC \ATAN\ 
14E4 
1322 1EEE2 B9 NIBHEX B9 
1323 * 
1324 1EEE4 7 NIBHEX 7 AUTO 
1325 1EEES 1455 NIBASC \AUTO\ 
45F4 
1326 1EEED EE NIBHEX EE 
1327 x 
1328 1EEEF 7 NIBHEX 7 BASE 
1329 1EEFO 2414 NIBASC \BASE\ 
3554 
1330 1EEF8 9E NIBHEX 9E 
1331 x 
1332 1EEFA 7 NIBHEX 7 BEEP 
1333 1EEFB 2454 NIBASC \BEEP\ 
5405 
1334 1EFO3 8E NIBHEX 8E 


1335 
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1336 
133? 


1338 
1339 
1340 
1341 


12 
13443 
1344 
1345 


1346 
134? 
1348 
1349 


1350 
1351 
1352 
1353 


1354 
1355 
1356 
136? 


1368 
1353 
1360 
1361 


1362 
1363 
1364 
1366 


1366 
136? 
1368 
1369 


1370 
1371 
1372 
1373 


1374 
1375 
1376 
1377 


TEFOS 
1EFO6 


JEFOE 


1EF1O 
1EF11 


1EF19 


1EFIB 
TEFIC 


TEFee 


1EF24 
1EF25 


1EF2D 
TEF OF 
1EF 30 
1EF3A 


TEF3C 
1EF3D 


TEF45 


1EF4?7 
1EF48 


1EF5O 


TEFS2 
1EFS3 


1EF59 


1EF5B 
1EFSC 


1EF 64 
1EF66 
1EF6? 
1EF 71 


1EF?73 
1EF 74 


7 
3414 
c4c4 
OF 


? 
3414 
2544 
oD 


5 
3414 
45 
CE 


? 
ASA 
94C4 
27 


9 
3464 
C414 
74 
AF 


7 
3484 
2542 
4A 


c 
34F4 
0595 
5B 


5 
34F4 
35 
79 


? 
4414 
4514 
6C 


9 
4414 
4554 
42 
87 


7 
4414 
4554 


NIBHEX 7 
NIBASC \CALL\ 


NIBHEX 9F 


NIBHEX 7 
NIBASC \CARD\ 


NIBHEX OD 


NIBHEX 5 
NIBASC \CAT\ 


NIBHEX CE 


NIBHEX 7 
NIBASC \CEIL\ 


NIBHEX 27 
NIBHEX 9 
NIBASC \CFLAG\ 
NIBHEX AF 


NIBHEX 7 
NIBASC \CHR$\ 


NIBHEX 4A 


NIBHEX 7 
NIBASC \COPY\ 


NIBHEX 5B 


NIBHEX 5 
NIBASC \COS\ 


NIBHEX 79 


NIBHEX ? 
NIBASC \DATA\ 


NIBHEX 6C 
NIBHEX 9 
NIBASC \DATE$\ 
NIBHEX 87 


NIBHEX ? 
NIBASC \DATE\ 
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CALL 


CARD 


CRT 


CEIL 


CFLAG 


CHRS 


COPY 


COS 


DATA 


DATES 


DATE 
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1378 
1379 
1380 
1381 


1382 
1383 
1384 
1385 


1386 
1387 
1388 
1389 


1390 
1391 
1392 
1393 


1394 
1395 
1396 
1397 


1398 
1399 
1400 
1401 


1402 
1403 
1404 
1405 


1406 
1407 
1408 
1409 


1410 
1414 
1412 
1413 


1414 
1415 
1416 
141? 


1EF7C 7? 


1EF7E 5 

TEF7F 4454 
64 

1EF85 9B 


1EF87 D 

1EF88 4454 
7425 
5454 
35 

1EF96 3D 


1EF93 5 

TEF99 4454 
74 

1EFSF F6 


1EFA1 9 

1EFA2 4454 
C414 
35 

TEFAC 6D 


1EFAE B 

TEFAF 4454 
C454 
4554 

1EFBB 7B 


TEFBD D 

TEFBE 4454 
3545 
25F4 
95 

1EFCC EB 


TEFCE 5 

TEFCF 4494 
D4 

1EFDS CC 


TEFD? ? 

1EFD8 4494 
3505 

TEFEO SC 


TEFE2 5 

TEFE3 4494 
65 

TEFES 68 


TEFEB 5 
TEFEC 4465 


NIBHEX 7? 
NIBHEX 5 


NIBASC \DEF\ 


NIBHEX 9B 
NIBHEX D 


NIBASC \DEGREES\ 


NIBHEX 3D 
NIBHEX 5 


NIBASC \DEG\ 


NIBHEX F6 
NIBHEX 9 


NIBASC \DELAY\ 


NIBHEX 6D 
NIBHEX 8 


NIBASC \DELETE\ 


NIBHEX 78 
NIBHEX 0 


NIBASC \DESTROY\ 


NIBHEX EB 
NIBHEX 


5 
NIBASC \DIM\ 


NIBHEX CC 
NIBHEX 7 


NIBASC \DISP\ 


NIBHEX SC 
NIBHEX 


5 
NIBASC \DIV\ 


NIBHEX 68 
NIBHEX 5 


NIBASC \DV2\ 
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DEF 


DEGREES 


DEG 


DELAY 


DELETE 


DESTROY 


DIN 


DISP 


DIV 


DVZ 
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1418 
1419 
1420 
1421 


1422 
1423 
1424 
1425 


1426 
1427 
1428 
1429 


1430 
1431 
1432 
1433 


1434 
1435 
1436 
1437 


1438 
1439 
1440 
1441 


1442 
1443 
1444 
1445 


1446 
1447 
1448 
1449 


1450 
1451 
1452 
1453 


1454 
1455 
1456 
145? 


1458 
1459 
1460 


1EFF2 


TEFF4 
TEFFS 


TEFFD 


1EFFF 
1F0OO 


1F008 


1FOOR 
1FOOB 


1F011 


1F013 
1F014 


1FO1A 


1FO01C 
1F01D 


1F025 


1F027 
1F028 


1F030 
1FO32 
1F033 
1F03D 


1FO3F 
1F040 


1F048 


1FO4A 
1FO4B 


1F051 


1F053 
1F054 


1FOSC 
TFO5E 


AS 
1B 


7 
5444 
9445 
8B 


4 
54¢4 
3554 
5F 


5 
54E4 
a4 
AD 


5 
5405 
35 
1? 


7 
5425 
2504 
5? 


7 
5425 
25€4 
67 


9 
5425 
25F4 
25 
3E 


? 
5485 
F425 
C8 


5 
5485 
05 
49 


? 
6414 
3445 
8A 


9 
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Table 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBREX 
NIBASC 


NIBHEX 
NIBHEX 
NIBRSC 
NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 


1B 


? 
\EDIT\ 
8B 


7 
\ELSE\ 


oF 


5 
\END\ 
AD 


5 
\EPS\ 
1? 


? 
\ERRL\ 
57 


7 
\ERRN\ 


67 
3 
\ERROR\ 


3E 


< 
\EXOR\ 


C8 


5 
\EXP\ 


493 


? 
\FACT 


8A 


a 
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EDIT 


ELSE 


END 


EPS 


ERRL 


ERRN 


ERROR 


EXOR 


EXP 


FACT 


FETCH 
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1461 1FOSF 6454 NIBASC \FETCH\ 
4534 
84 
1462 1F069 8C NIBHEX 8C 
1463 & 
1464 1F06B 3 NIBHEX 3 FN (lex only) 
1465 1FO6C 64E4 NIBASC \FN\ 
1466 1F070 00 NIBHEX 00 
1467 x 
1468 1F072 5 NIBHEX 5 FOR 
‘ 1469 1F073 64F4 NIBASC \FOR\ 
25 
1470 1F079 3C NIBHEX 3C 
1471 & 
1472 1F07B 3 NIBHEX 3 FP 
1473 1FO?7C 6405 NIBASC \FP\ 
; 1474 1F080 B6 NIBHEX B6 
: 1475 & 
1476 1FO82 9 NIBHEX 9 GOSUB 
1477 1F083 74F4 NIBASC \GOSUB\ 
3555 
24 
1478 1FO8D CD NIBHEX CD 
1479 . 
, 1480 1FO8F 7 NIBHEX 7 GOTO 
1481 1F090 74F4 NIBASC \GOTO\ 
45F4 
1482 1F098 DD NIBHEX 0D 
1483 x 
1484 1FO9A 3 NIBHEX 3 GO (lex only) 
1485 1FOSB 74F4 NIBASC \GO\ 
1486 1FOSF 00 NIBHEX 00 
1487 & 
1488 1FOR1 3 NIBHEX 3 IF 
1489 1FOR2 9464 NIBASC \IF\ 
1490 1FOR6 FD NIBHEX FD 
1491 x 
1492 1FOR8 9 NIBHEX 9 IMAGE 
1493 1FOR9 9404 NIBASC \INAGE\ 
1474 
54 
1494 1FOB3 FF NIBHEX FF 
1495 x 
1496 1FOB5 5 NIBHEX 5 INF 
1497 1FOB6 94E4 NIBASC \INF\ 
64 
1498 1FOBC 07 NIBHEX 07 
1499 k 
1500 1FOBE 9 NIBHEX 9 INPUT 
1501 1FOBF 944 NIBASC \INPUT\ 
0555 
45 
1502 1FOC9 9C NIBHEX 9C 
1503 s 


1504 1FOCB D NIBHEX D INTEGER 
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1505 1FOCC 9454 
4554 
7454 
25 
1506 1FODA AC 
1507 
1508 1FODC 5 
1509 1FODD 94&4 
45 
1510 1FOE3 C9 
1511 
1512 1FOES 5 
1513 1FOE6 94E4 
85 
1514 1FOEC 28 
1515 
1516 1FOEE 3 
1517 1FOEF 9405 
1518 1FOF3 A6 
1519 
1520 1FOF5 3 
1521 1FOF6 9435 
1522 1FOFR 7E 
1523 
1524 1FOFC 5 
1525 1FOFD 9465 
C4 
1526 1F103 EA 
1527 
1528 1F105 ? 
1529 1F106 B454 
9542 
1530 1FIOE 37 
1531 
1532 1F110 7? 
1533 1F111 B454 
9§35 
1534 1F119 FC 
1535 
1536 1F11B 5 
1537 1F11C B454 
95 
1638 1F122 SE 
1539 
1540 1F124 5 
1541 1F125 C454 
E4 
1542 1F12B 9A 
1543 
1544 1F12D 5 
1545 1F12E— C454 
45 
1546 17134 OC 
1547 
1548 1F136 B 
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Table 
NIBASC \INTEGER\ 


NIBHEX AC 


NIBHEX 5 
NIBASC \INT\ 


NIBHEX C9 


NIBHEX 5 
NIBASC \INX\ 


NIBHEX 2B 
NIBHEX 3 
NIBASC \IP\ 
NIBHEX AG 
NIBHEX 3 
NIBASC \IS\ 
NIBHEX 7E 


NIBHEX 5 
NIBASC \IVL\ 


NIBHEX EA 


NIBHEX ? 
NIBASC \KEY$\ 


NIBHEX 37 


NIBHEX 7 
NIBASC \KEYS\ 


NIBHEX FC 


NIBHEX 5 
NIBASC \KEY\ 


NIBHEX 5E 


NIBHEX 5 
NIBASC \LEN\ 


NIBHEX 9A 


NIBHEX 5 
NIBASC \LET\ 


NIBHEX OC 
NIBHEX B 
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INT 


INX 


IP 


IS 


IVL 


KEY$ 


KEYS 


KEY 


LEN 


LET 


LINPUT 
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1549 1F137 C494 


1550 
1551 
1562 
1553 


1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 


1562 
1563 
1564 
1565 


1566 
1567 
1568 
1569 
1570 
1574 
1572 
1573 


1574 
1575 
1576 
1577 


1578 
1579 
1580 
1581 


1582 
1583 
1584 
1585 


1586 
158? 
1588 
1589 


1590 


1F143 


1F145 
1F 146 


1F14E 
1F 150 
1F154 
1F 155 
1F 157 
1F 158 
1F 162 


1F 164 
1F 165 


1F168 
1F 16D 
1F16E 
1F 172 


1F 174 
1F175 


1F 17D 


1F17F 
1F 180 


1F18E 


1F190 
1F191 


1F 197 


1F199 
1F19A 


1FiA2 


1F1A4 
1F1A5 


1F1AB 


£405 
5545 
FB 


7 
C494 
3545 
BB 


3 
C4E4 
19 


9 
Cara 
7413 
03 
39 


5 
C4F4 
74 
09 


3 
C425 
68 


7 
D414 
94E4 
2D 


D 
0414 
8525 
5414 
C4 
C6 


D414 
85 
DA 


D454 
1464 
09 

D494 


CR 
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NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBRSC 


\LINPUT\ 


FB 


? 
\LIST\ 


BB 
3 

\LN\ 

19 

9 
\LOG10\ 
39 


5 
\LOG\ 


NIBHEX 09 


NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHE X 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


3 
\LR\ 
6B 


? 
\NAIN\ 


2D 


D 
\MAXREAL\ 


C6 


5 
\MAx\ 
DA 


? 
\NEAN\ 


dg 


5 
\MIN\ 
CA 
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LIST 


LN 


LOG10 


LOG 


LR 


MAIN 


ARXREAL 


MAX 


MEAN 


MIN 
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1591 
1592 
1593 


1594 
1595 
1596 
1597 


1598 
1599 
1600 
1601 


1602 
1603 
1604 
1605 


1606 
1607 
1608 
1609 


1610 
1611 
1612 
1613 


1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 


1622 
1623 
1624 
1625 
1626 
162? 
1628 
1629 


1630 
1631 
1632 
1633 


1634 


1F1AD 
1F1RE 


1F 184 


1F 186 
1F 1B? 


1F 1 BF 


1F1C1 
1F1C2 


1F1CA 


{FICC 
1F1CD 


1F1D3 


1F 105 
1F1D6 


1F1DC 


1F1DE 
1F 1DF 


1FIES 
TFIE? 
TFIE8 
1FIEC 
1FIEE 
1FIEF 
1F1FB 
1F1FD 
TAPE 
{F202 


1F204 
1F 205 


1F 20B 
1F 200 
1F20E 


1F218 


5 
D4F4 
44 
47 


? 
£414 
D454 
OB 


7 
£454 
8545 
4C 


5 
E44 


x 
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NIBHEX 5 
NIBASC \MOD\ 


NIBHEX 47 


NIBHEX 7 
NIBASC \NANE\ 


NIBHEX DB 


NIBHEX 7 
NIBASC \NEXT\ 


NIBHEX 4C 


NIBHEX 5 
NIBASC \NOT\ 


NIBHEX 18 


NIBHEX 5 
NIBASC \NUNM\ 


NIBHEX 3A 


NIBHEX 5 
NIBASC \OFF\ 


NIBHEX 1£ 
NIBHEX 3 

NIBASC \QN\ 
NIBHEX OE 
NIBHEX B 

NIBASC \OPTION\ 
NIBHEX DE 
NIBHEX 3 

NIBASC \OR\ 
NIBHEX D8 


NIBHEX 5 
NIBASC \OVF\ 


NIBHEX FR 
NIBHEX 9 
NIBASC \PAUSE\ 


NIBHEX 70 
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hob 


NAKE 


NEXT 


NOT 


NUN 


OFF 


ON 


OPTION 


OR 


OVF 


PRUSE 
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1635 x 
1636 1F21A 3 NIBHEX 3 PY 
1637 1F21B 0594 NIBASC \PI\ 
1638 1F21F 97 NIBHEX 97 
1639 x 
1640 1F221 7 NIBHEX 7 PORT 
1641 1F222 OSF4 NIBASC \PORT\ 
2545 
1642 1F22A 1D NIBHEX 1D 
1643 % 
1644 1F22C 9 NIBHEX 9 PREDV 
1645 1F22D 0525 NIBASC \PREDV\ 
5444 
65 
1646 1F237 F9 NIBHEX F9 
1647 x 
1648 1F239 9 NIBHEX 9 PRINT 
1649 1F23A 0525 NIBASC \PRINT\ 
94E4 
45 
1650 1F244 DC NIBHEX DC 
1651 x 
1652 1F246 9 NIBHEX 9 PURGE 
1653 1F247 0555 NIBASC \PURGE\ 
2574 
54 
1654 1F251 BE NIBHEX BE 
1655 x 
1656 1F253 D NIBHEX D RADIANS 
1657 1F254 2514 NIBASC \RADIANS\ 
4494 
14E4 
35 
1658 1F262 4D NIBHEX 4D 
1659 x 
1660 1F264 5 NIBHEX 5 RAD 
1661 1F265 2514 NIBASC \RAD\ 
44 
1662 1F26B £6 NIBHEX £6 
1663 - 
1664 1F260 7 NIBHEX 7 READ 
1665 1F26E 2554 NIBASC \READ\ 
1444 
1666 1F276 7C NIBHEX 7C 
1667 x 
1668 1F278 7 NIBHEX 7 REAL 
1669 1F279 2554 NIBASC \REAL\ 
144 
1670 1F281 CB NIBHEX CB 
1671 . 
1672 1F283 5 NIBHEX 5 REM 
1673 1F284 2554 NIBASC \REN\ 
D4 
1674 1F28A 6E NIBHEX 6€ 





Saturn Assenbler 
Ver. 3.39/Rev. 206 Text Table 


1676 1F28C D 
1677 1F28D 2554 


1678 
1679 
1680 
1681 


1682 
1683 
1684 
1685 


1686 
168? 
1688 
1689 


1690 
1691 
1692 
1693 


1694 
1695 
1696 
1697 


1698 
1699 
1700 
1701 


1702 
1703 
1704 
1705 


1706 
170? 
1708 
1709 


1710 
1711 
1712 
1713 


1714 
1715 


1F29B 


1F 29D 
1F29E 


1F2R4 
1F2A6 
1F2R? 
1F2B3 


1F2B5 
1F2B6 


1F2BC 


1F2BE 
1F BF 


1F2c5 


1F2C?7 
1F2C8 


1F2CE 


1F2b0 
1F2B1 


1F2D9 
iF 2DB 
1F20C 
1F2E6 


1F2E8 
1F2ES 


1F EF 
{FF 1 
1F2F2 


1F2FC 


3545 
F425 
54 
ED 


5 
2554 
35 
F? 


B 
2554 
4555 
2554 
BD 


5 
2504 
44 
Dé 


5 
2564 
44 
OA 


5 
2555 
£4 
EF 


? 
3544 
5465 
E9 


9 
3564 
C414 
74 
BF 


5 
3574 
£4 
1A 


9 
3584 
F425 
45 
BC 
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NIBHEX D 
NIBASC \RESTORE\ 


NIBHEX ED 


NIBHEX 5 
NIBASC \RES\ 


NIBHEX F? 
NIBHEX B 
NIBASC \RETURN\ 
NIBHEX BD 


NIBHEX 5 
NIBASC \RND\ 


NIBHEX 06 


NIBHEX 5 
NIBASC \RND\ 


NIBHEX OA 


NIBHEX 5 
NIBASC \RUN\ 


NIBHEX EF 


NIBHEX 7 
NIBASC \SDEV\ 


NIBHEX £9 
NIBHEK 9 
NIBASC \SFLAG\ 
NIBHEX BF 


NIBHEX 5 
NIBASC \SGN\ 


NIBHEX 1A 
NIBHEX 3 
NIBASC \SHORT\ 


NIBHEX BC 
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RESTORE 


RES 


RETURN 


RND 


RND 


RUN 


SDEV 


SFLAG 


SGN 


SHORT 
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1716 
1717 


1718 
1719 
1720 
1724 


1722 
1723 
1724 
1725 


1726 
1727 
1728 
1729 


1730 
1731 
1732 
1733 


1734 
1735 
1736 
1737 


1738 
1739 
1740 
1741 


1742 
1743 
1744 
1745 


1746 
1747 
1748 
1743 


1750 
1751 
1782 
1753 


1754 
1755 
1756 
1757 


1758 


1F2FE 
1F OFF 


1F3O5 


1F3O7 
1F308 


TFHOE 


1F310 
1F311 


1F319 


1F31B 
1F31C 


1F324 


1F326 
1F327 


1F32F 


1F331 
1F332 


1F33A 


1F33C 
1F33D 


1F343 


1F345 
1F 346 


1F34C 


1F34E 
1F34F 


1F355 


1F35? 
1F358 


1F360 
1F362 
1F363 


1F36D 


5 
3594 
£4 
69 


5 
3515 
25 
29 


7 
3545 
1445 
EC 


? 
3545 
5405 
6F 


7 
3545 
F405 
3D 


7 
3545 
2542 
6A 


5 
3655 
24 
ic 


5 
4514 
24 
7F 


5 
4514 
£4 
89 


7 
4584 
54E4 
4F 


9 
4594 
0454 
42 
59 
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NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 


NIBHEX 


Table 


5 
\SIN\ 


69 


5 
\SQR\ 
29 


7 
\STAT\ 


EC 


? 
\STEP\ 
6F 


? 
\STOP\ 


90 


7 
\STR$\ 
6A 


5 
\SUB\ 
ic 


5 
\TAB\ 


7F 


5 
\TAN\ 
83 


? 
\THEN\ 


4F 
9 
\TINES\ 


59 
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SIN 


SQR 


STAT 


STEP 


STOP 


STR$ (fornerly VALS) 


SUB 


TRB 


TAN 


THEN 


TINES 
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1759 
1760 
1761 


1762 
1763 
1764 
1765 


1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 


1774 
1775 
1776 
177? 


1778 
1779 
1780 
1781 


1782 
1783 
1784 
1785 


1786 
178? 
1788 
17&9 


1790 
1791 
1792 
1793 


1794 
1795 
1796 
1797 


1798 
1799 
1800 


1F36F 9 

1F370 4594 
D454 
25 

1F37A 4E 


1F37C ? 

1F37D 4594 
D454 

1F385 B? 


1F387 3 
1F388 45F4 
1F38C 3F 


1F38E 9 

TF38F 4525 
1434 
54 

1F399 AE 


1F39B 5 

1F39C 55E4 
64 

1F3R2 OB 


1F3A4 9 

1F3R5 5505 
2534 
42 

1F3AF BA 


1F3B1 7 

1F3B2 5536 
5425 

1F3BA 2E 


1F3BC 9 

1F3BD 5535 
94E4 
74 

1F3C7 DF 


1F3C9 5 

1F3CA 6514 
C4 

1F3D0 5A 


1F3D2 7 
1F3B3 7514 
9445 
1F3DB 80 
1F30D 1FF 
1F3E0 


x 
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NIBHEX 
NIBRSC 
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9 TIMER 
\TIMER\ 


NIBHEX 4E 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBRSC 
NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBASC 


? TIME 
\TINE\ 


B? 
3 TO 
\TO\ 

3F 

3 TRACE 
\TRACE\ 

RE 


5 UNF 
\UNF \ 


NIBHEX O08 


NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBRSC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
TxTbEn NIBHEX 
END 


9 UPRC$ 
\UPRC$\ 
BA 


? USER 
\USER\ 


2E 

3 USING 
\USING\ 

DF 


5 VAL 
\VAL\ 


5A 


? WAIT 
\WAIT\ 


8D 
1FF Text termination 
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ABS Ext - 812 

ACOS = Ext - 772 

ADD Ext - 1067 

AND Ext - 699 

ARRAY Ext - 6% 

ASIN Ext - 767 

ATAN Ext - 277 

AUTO —s Ext - 1192 

BANG Ext - 1262 

BEEP =—s Ext - 1162 

BLDNUM Ext = 65 70 75. 80 85 90 95 100 


105 110 1418 144 149 154 159 164 
169 «174 «©6179 184 189) 194-199 


CALL Ext - 1247 
CAT Ext - 1182 
CEIL Ext - 575 
CFLAG Ext - 4252 
CHRS Ext - 822 
CMPLX Ext - 615 
COMPAR Ext - 694 
CONCAT Ext - 689 
COPY Ext - #7 
COs Ext =. FF 
D’LTE «Ext - 917 
DATA Ext - 992 
DATE Ext - 600 
DATES = Ext - 605 
DEF Ext - 92? 
DEG Ext - 560 
DEGREE Ext - 1057 
DELAY Ext - 1072 
DIM Ext - 1022 
DISP Ext = «O8/ 
DIV Ext - 675 
DIVIDE Ext - 665 
DMARRY Ext =. (635 
DSTROY Ext =. . (Gh2 
DV2 Ext - 887 
DYNANC Ext - 485 490 495 500 505 510 515 520 
525 = 530 

EDIT Ext - 922 
ELSE Ext - 122? 
END Ext - 1092 
ENDDEF Ext =, 332 
ENDSUB Ext » Bie 
EPS Ext - 570 
ERRL Ext - 590 
ERRN Ext = 695 
EXOR Ext - 704 
EXP Ext - 742 
EXPR Ext - #713 71? 
FACT Ext - 842 
FETCH = Ext - 1002 
FN Ext - 625 


FN-GO Ext 


56 





FOR 
FP 
GOSUB 
GOTO 
IF 
IMAGE 
INF 
INPUT 
INT 
INTEGR 
INVLUT 
INX 
IP 
IVL 
KEY 
KEY$ 
LABEL 
=LASTFN 
LEN 
LET 
LINPUT 
LIST 
LOG 
L0610 


MULTPY 
NAME 
NEXT 
NOT 
NUN 
NXTSTA 
OFF 

ON 
ONEDGT 


OPTION 
OR 

OVF 
PRUSE 
PERCNT 
PI 
PLUS 
PREDV 
PRINT 
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Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


180 #00084 


12422? #1£543 
126623 HIEESF 
124319 #1E59F 
124215 #1E537 


Table 


' t i) 1 


‘ ' t t ' ' t ' ' 1 


977 
540 
1102 
1107 
1117 
1277 
565 
1007 
782 
1012 
645 
892 
535 
872 
1147 
580 
1232 
1290 
847 
962 
957 
937 
722 
737 
852 
912 
20 
1293 
a0 
12 
867 
545 
78? 
862 
655 
585 
660 
94? 
982 
650 
817 
113? 
1127 
1122 
282 
118? 
709 
877 
107? 
670 
610 
680 
797 
1027 


727 


115? 
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1237 


1242 


1267 
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PURGE Ext - 1177 
RAD Ext -  §55 
RADIAN Ext - 1062 
READ Ext ~ 997 
REAL Ext - 942 
REN Ext =~ 17452 
RES Ext - 640 
RESTOR Ext - 1112 
RETURN Ext - 1097 
RND Ext - §50 
RND Ext - 802 
RINSXMN Ext . 5 
RUN Ext - 1272 
SDEV ss Ext - 792 
SFLAG Ext - 1257 
SGN Ext - 807 
SHORT = Ext - 1017 
SIN Ext ~ 762 
SQR Ext - 732 
STAT Ext - 1032 
STATIC Ext - 359 363 367 371 375 379 383 387 


391 395) =399 403) 407) 441 415419 
423. 427. 431 435) 439) 4430447451 


455 460 
STOP Ext - 1087 
STR$ Ext - 832 
STRING Ext - 268 
STRLIT Ext - 221 243 
SUB Ext - 967 
SUB$ Ext - 837 
TAN Ext - 762 
TIME Ext - 620 
TINE$ = Ext - 747 
TRACE Ext - 1172 
TRANTR Ext = 60 119 124 129 #18 139 203 2? 


211 216 225 230 2342384? 2851 
255 258 263: 273. 277 33% ©3935 339 
343. 347) 351 355 464 468 472) 476 
48) 1202 1207 1212 1222 
TxTbEn Abs 127965 #IF3DD - 1799 28 30 3? 44 45 46 
TxTbSt Abs 126623 H1EESF - 1294 28 30 3? 44 45 46 48 
UNF Ext - 882 


UPRC$ = Ext = B57 
USER Ext =) ide 
VAL Ext - 82? 
WAIT Ext - 1082 
XFN Ext - 897 992 
XWORD Ext - 1197 
=a! Abs 33 #00021 - = 214 
=a" Abs 34 #00022 - = =219 
=a$ Abs 36 #00024 - = 228 
=a’ Abs 39 #00027 - = 241 
=a. Abs 46 #OOO2ZE - 271 
=a0 Abs 48 #00030 - 280 


=al Abs 49 #00031 285 
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=a2 Abs 50 #00032 - 2% 
=a3 Abs 51 #00033 - 295 
=a4 Abs 52 #00034 - 300 
=a5 Abs 53 #00035 - 35 
=ab Abs 54 #00036 - 310 
=a/ Abs 55 #00037 - = 315 
=a8 Abs 56 #00038 - = 320 
=a9 Abs 57 #00039 - = 325 
=t! Abs 252 HOOOFC - 1260 
=t2 Abs 133 #00085 - 668 
=t8 Abs 13? #00089 - 687 
=tk Abs 131 #00083 - 658 
=t+ Abs 135 #00087 - 678 
=t- Abs 130 #00082 - 653 
=t/ Abs 132 #00084 - 663 


= Abs 244 HOOOF4 - 1281 
=tABS Abs 162 #OOOR2 - = 810 


=tACOS Abs 154 #OO0SR - 770 
=tRDD Abs 213 #OOODS - 1065 
=tADIGO Abs 96 #00060 - 483 
=tADIG1 Abs 97 #00061 - 488 
=tADIG2 Abs 98 #00062 - 493 
=tADIG3 Abs 99 #00063 - 498 
=tRDIG4 Abs 100 #00064 - 503 
=tADIGS Abs 101 #00065 - 508 
=tADIG6 Abs 102 #00066 - 513 
=tADIG? Abs 103 #00067 - 518 
=tADIG8 Abs 104 #00068 - = 23 
=tADIGI Abs 105 #00069 - 528 


=tALL Rbs 248 HOOOFS - 1240 
=tAND Abs 139 #0008B - 697 
=tARRAY Rbs 125 #0007D - = 628 
=tASIN Abs 153 #00099 - 765 
=tRTAN Abs 155 #OO09B - 775 
=tAUTO Abs 238 HOODEE - 119 
=tBASE Abs 233 #OOOES - 1165 
=tBEEP Abs 232 ROOOES - 1160 
=tBIG Abs 16 #00010 - = 132 
=tCALL Abs 249 HOOOFS - 1245 
=tCARD Abs 208 #OOODO - 1040 
=tCAT Abs 236 HOOOEL - 1180 
=tCEIL Abs 114 #00072 - 573 
=tCFLAG Abs 250 HOOOFA - 1250 
=tCHR$ = Abs 164 #OO0R4 - = 820 
=tCMPLX Abs 122 #OO07R - = 613 
=tCOLON Abs 226 HOOOES - 1285 
=tCOMMA Abs 241 HOOOFT - 1205 
=tCOPY Abs 181 #OOOBS - 908 
=tCOS Abs 151 #00097 - = 765 
=tCREF Abs 224 HOODEO - 1287 
=tC(VAL Abs 225 HOOOE1 - 1286 
=t{DATA Abs 198 #000C6 - = 990 
=tDATE Abs 119 #00077 - 598 
=tDATE$ Abs 120 #00078 - 603 
=tDEF Abs 185 #OOOB9 - = 925 
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=tDEG Abs 111 #O006F - 558 
=tDEGRE Abs 211 #000D3 - 1055 
=tDELAY Abs 214 #00006 - 1070 
=tDELET Abs 183 #000B7 - 915 
=tDIn Abs 204 HOOOCE - 1020 


=tDISP = Abs 197 #OOOC5 - 3985 
=tDIV Abs 134 #00086 - = 673 
=tDMYAR Abs 126 HOOO7E - 633 
=tDSTRY Abs 190 HOOOBE - 950 


=tDVZ Abs 177 HOOOB1 - 885 
=tEDIT Abs 184 #OOOB8 - 920 
=tELSE Abs 245 HOOOFS - 1225 
=tEND Abs 218 HOOODR - 1090 
=tENDDF Abs 186 #O00BAR - 9% 


=tENDSB Abs 194 #O0OOC2 - 970 
=tEOL Abs 240 HOOOFO - 1200 
=tEPS Abs 113 #00071 - 568 
=tERRL Abs 117 #00075 - 588 
=tERRN Abs 118 #00076 - 593 
=tERROR Abs 227 HOOOES - 1135 
=tEXOR Abs 140 #0008C - 702 
=tE XP Abs 148 #00094 - 740 
=tEXTIF Abs 244 HOOOF4 - 1282 
=tFACT Abs 168 #OOOR8 - 840 
=tFETCH Abs 200 #00008 - 1000 
=tFFN Abs 180 #O0OB4 - 900 
=tFLT1 Abs 29 #0001D - = 197 
=tFLT10 Abs 20 #00014 - = 162 
=tFLT11 Abs 19 #00013 - 147 
=tFLT12 Abs 18 #00012 - = 142 
=tFLT2 Abs 28 HOOOIC - = 192 
=tFLT3 Abs 27 HOOOIB - = 187 
=tFLT4 = Abs 26 HOOOTA - = 182 
=tFLTS Abs 25 #00019 - 177 
=tFLT6 Abs 24 #00018 - = 172 
=tFLT? Abs 23 #00017 - = 167 
=tFLT8 Abs 22 #00016 - = 162 
=tFLT9 Abs 21 #00015 - = 157 
=tFN Abs 124 #00070 - 623 
=tFOR Abs 195 #00003 - 975 


=tFP Abs 107 #OOO6B - 538 
=tGQSUB Abs 220 HOOODE - 1100 
=tGOTO0 Abs 221 #OOODD - 1105 
=tIF Abs 223 HOOODF - 1116 
=tIMAGE Abs 255 HOOOFF - 1275 
=tIN Abs 242 HOOOF2 - 1284 
StINF Abs 112 #00070 - 563 
=tINPUT Abs 201 #OOOT9 - 1005 
=tINT Abs 156 #O0OSC - 780 


=tINTIO Abs 4 #00004 - 73 
=tINT11 Abs 3 #00003 - 68 
=tINTi2 Abs 2 #OO002 - 63 
=tINT2 Abs 12 #OOOOD - = 113 
=tINT3 Abs 11 HOOOOB - =: 108 


=tINT4 Abs 10 #OOOOR - = 103 
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=tINT5 
=tINT6 
=tINT7 
=tINT8 
=tINT9 
=tINTEG 
=tINx 
=tIP 
=tIS 
=tISuB$ 
=tIVh 
=tKEY 
=tKEY$ 
=tKEYS 
=tLBLRF 
=tLBLST 
=tLEN 
=tLET 
=tLINE# 
=tLINPT 
=tLIST 
=tLITRe 
=tLN 
=tLOG 
=tLOG10 
=tLPRP 
=tLR 
=tMAIN 
=tMAx 
=tMAXRL 
=tMEAN 
=tMIN 
=thODd 
=tNANE 
=tNEXT 
=tNOT 
=tNUN 
=tOFF 
=tON 
=tOPT’N 
=tOR 
=tOVF 
=tPAUSE 
=tP] 
=tPORT 
=tPREDV 
=tPRINT 
=tPRNEN 
=tPRNST 
=tPURGE 
=tRAD 
=tRDIAN 
=tREAD 
=tREAL 
=tRELOP 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
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9 #00009 

8 #00008 

7 #00007 

6 #00006 

5 #00005 
202 #OOOTA 
178 #OOOB2 
106 #OOO6A 
231 #OOOE7 
167 #OOOR? 
174 HOOORE 
229 HOOOES 
115 #00073 
207 HOOOCF 
14 HOOOOE 
246 #OOOFE 
169 #OOORS 
192 #OOOTO 
15 HOOOOF 
191 #OOOBF 
187 #OOOBB 
196 #OOOC4 
145 #00091 
144 #00090 
147 #00093 
170 #000RA 
182 #OOOBE 
210 #OOOD2 
173 #OOORD 
108 #O0O6C 
157 #0009D 
172 #OOOAT 
116 #000 74 
189 #OOOBD 
196 #OOOC4 
129 #00081 
163 HOOOR3 
225 HOOOE 
224 HOODEO 
237 ROOOED 
141 #0008) 
175 #OOORF 
215 #O00D7 
121 #00079 
209 #00001 
169 #OOOSF 
205 #OOOCD 
248 HOOOFS 
243 ROOOF 3 
235 #O00EB 
110 #OO06E 
212 ROOOD4 
199 #OOOT? 
188 #OOOBC 
138 #O008A 


98 
93 
88 
83 
78 
1010 
890 
533 
1155 
835 
870 
1145 
578 
1035 
122 
1280 
845 
960 
127 
955 
935 
1283 
725 
720 
735 
850 
910 
1050 
865 
543 
785 
860 
583 
945 
980 
648 
815 
1125 
1120 
1185 
207 
875 
1075 
608 
1045 
795 
1025 
1279 
1283 
1175 
553 
1060 
995 
940 
692 
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=tREN Abs 2H) HOOOEG - 1150 
=tRES Abs 127 HOOO7F - 638 
=tRESTR Abs 222 HOOODE - 1110 
=tRETRN Abs 219 #OOODB - 1095 
=tRFILE Abs 222 HOOODE - 1288 
=tRAD Abs 109 #OOCED - 548 
=tRND Abs 160 HOOORO - 800 
=tRUN Abs 254 HOOOFE - 1270 
=tSDEV = Abs 158 HOOOSE - 790 
stSENIC Abs 242 HOOOF2 - 1210 
=tSFLAG Abs 251 HOOOFB - 1255 
=t SGN Rbs 161 #OOOR1 - 805 
=tSHORT Abs 203 HOOOCB - 1015 
=tSIN Abs 150 #00096 - 750 
=tSMALL Abs 17 #00011 - = 137 
=tSQR Abs 146 #00082 - 7H 
=tSTAT Abs 206 HOOOCE - 1030 
=tSTEP Abs 246 HOOOF6 - 1230 
=tSTOP Abs 217 #OOOD9 - 1085 
=tSTR$ = Abs 166 HOOORE - 830 
=tSUB Abs 193 #00001 - 965 
=tSVAR = Abs 45 #0002) - 266 
=tTAB Abs 247 HOOOF? - 1235 
=tTAN Abs 152 #00098 - 760 


=tTHEN Abs 244 HOOOF4 1220 
=tTIME Abs 123 #0007B 618 
=tTIME$ Abs 149 #00095 745 


=tTINER Abs 228 HOOOES - 1140 


=tT0 Abs 243 HOOOF3 1215 
=tTRACE Abs 234 HOOOER 1170 
=tUNF Abs 176 #OOOBO 880 
=tUPRC$ Abs 171 #000RB 855 


=tUSER Abs 226 HOOOE2 - 11380 
=tUSING Abs 253 HOOOFD - 1265 
=tVAL Abs 165 #OOOR5 - 825 
=tWAIT Abs 216 #O0O0D8 - 1080 
=tKFN Abs 179 #000B3 - 895 
=tXWORD Abs 239 HOOOEF - 1195 
=tZ Abs 9) HOOO5A 458 
=t* Abs 128 #00080 643 
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Input Paraneters 
Source file nane is SB&TAB::NS 
Listing file nane is SB/TAB:TI:ML::-1 
Object file nane is SBATAB: TI: NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Asserbler Neus 
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1 * TIT? «III & EEEEE RRRR MM ft 
2 x T && E R R MM NM 
3 * T I 8&8 E R RANA 
4 x T I & EEEE RRRR ANA 
5 x T I &@&8& E RR nh oO 
6 x T t 6 & -£ RR A OM 
7 * T III] 8& & EFEEE R RM NH 
8 
9 TITLE Mainfrane Message Table 
10 1F3E0 ABS #1F 3E0 
11 : 
12 1F3EO 5425 =ERRMST NIBASC \ERR L\ Error message prefix. 
2502 
C4 
13 1F3EA =LEX: NN Address of mainframe LEX table. 
14 * 
15 senull EQU 0 (Null) 
16 1F3ER 50 CON(2) 5 
17 1F3EC 00 CON(2) 0 Message nunber 0 
18 1F3EE C CON(1) 12 
19 Kan nnn non en mewn nnn ne Math nessages ------------- oon nnn 
20 % 
21 =eUNF LW EQU 1 Underflou UN 
22 1F3EF &1 CON(2) 24 
23 1F3F1 10 CON(2) 1 Message nunber 1 
24 1F3F3 8 CON(1) 8 
25 1F3F4 55E6 NIBASC \Underflo\ 
4656 
2766 
C6F6 
26 17404 77 NIBASC \u\ 
27 1F406 C CON(1) 12 
28 * 
29 =eOVFLW EQU 2 Overf lou Ov 
30 1F407 61 CON(2) 22 
31 1F409 20 CON(2) 2 Message nuriber 2 
32 1F40B ? CON(1) 7? 
33 1F40C F467 NIBASC \Overf lon\ 
5627 
66C6 
F67? 
34 1F41C C CON(1) 12 
35 x 
36 =eEXPO EQU 3 EXPONENT (0) 
37 1F410 C1 CON(2) 28 
38 1F4tF 30 CON(2) 3 Message nurber 3 
39 1F421 A CON(1) 10 
40 1F422 5485 NIBASC \EXPONENT\ 
OSF4 
£454 
£445 
41 1F432 8203 NIBASC \(0)\ 
92 
42 1F438 C CON(1) 12 
x 


43 
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44 
45 
46 
4? 
48 


49 
50 
51 
52 
53 
54 
55 
56 
57 


58 
59 
60 
61 
62 
63 
64 


65 
66 
67 
68 
69 
70 
71 


72 
73 
74 
75 
76 
7? 
78 


79 
80 
81 
82 
83 
84 
85 


86 
87 


1F439 
1F43B 
1F43D 
1F43E 


1F446 
1F447 
1F449 


1F44A 
1F44C 
1F44E 
1F44F 


1F459 


1F45A 
1F45C 
1F45E 
1F45F 


1F465 


1F466 
1F 468 
1F46A 
1F46B 


1F471 
1F472 
1F474 


1F476 
1F 477 


1F481 


1F482 
1F484 
1F 486 
1F 48? 


1F497 
1F49D 


1 
40 

3 
4514 
£403 
E 

3F 

C 


01 

0) 

4 
O3E5 
£656 
76 


O1 
80 

4 
F2AS 
5627 
F6 

C 


C1 
” 

R 
£456 
765 
E4F6 
F6D2 
96E6 
47 

C 
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=eTNINF 


=e0™NEG 


=eZRDIV 


=eNEG*X 


EQU 4 
CON(2) 17 
CON(2) 4 
CON(1) 3 
NIBASC \TAN=\ 


CON(1) 14 
CON(2) =eINF 
CON(1) 12 


EQU 5 
CON(2) 16 
CON(2) 5 
CON(1) 4 
NIBASC \O*neg\ 


CON(1) 12 


EQU 6 
CON(2) 12 
CON(2) 6 
CON(1) 2 
NIBASC \O~™O\ 


CON(1) 12 


EQU 7 
CON(2) 12 
CON(2) 7? 
CON(1) 2 
NIBASC \0/0\ 


CON(1) 12 


EQU 8 
CON(2) 16 
CON(2) 8 
CON(1) 4 
NIBASC \/Zero\ 


CON(1) 12 
EQU 9 
CON(2) 28 
CON(2) 3 


CON(1}) 10 
HIBASC \Neg“Non-\ 


NIBASC \int\ 
CON(1) 12 
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TAN=Inf 


Message nurber 


0“neg 


Message nunber 


0% 


Message nuriber 


0/0 


Message nurber 


{Zero 


Nessage nunber 


Neg’Non-int 


Message nurber 
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88 
89 
% 
31 
92 
93 


95 
96 
97 
98 
99 
100 
101 
102 


103 
104 
105 
106 
107 
108 
109 


110 
111 
112 
113 
114 
115 
116 


WW? 
118 
119 
120 
121 

ee 
123 
124 
125 


12? 
128 
129 
130 
131 
132 
133 


1F49E 
1F4A0 
1F4R2 
1F4A3 


1F483 


1F4B4 
1F4B6 
1F4B8 
1F 483 
1F4BB 
1F4BC 


1F4C2 


1F4C3 
1F4C5 
1F4C? 
1F4C8 


1F4D4 


1F4D5 
1F4D?7 
1F4D9 
1FADA 


1F4EA 


1F4EB 
1F4ED 
1F4EF 
1F4FO 
iF4aFe 
1F4F3 
1F4F§ 
1F4F6 
1FAF8 


1F4F9 
1F4FB 
1F4FD 


61 
RO 


3515 
2582 


F656 
7632 


FO 


CE 


142? 
76 


CO 
C4F4 


7482 
0392 


61 


C4F4 
7482 
£656 
7692 


£0 


3F 
Fe 
$F 


£0 
FO 
E 
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x 
=eSQR- 


* 
=eIVARG 


=eLNO 


=eL0G- 


x 
=elF /IF 


=elF-IF 


EQU 

CON(2) 
CON(2) 
CON(1) 


NIBASC \SQR(neg)\ 


CON(1) 
EQU 


NIBASC 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 


5 
NIBASC \LOG(O)\ 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 


NIBASC \LOG(neg)\ 


CON(1) 


AAFNDMOE 
oQooo 
Zz eZzSezEze 
ae 


oO 

2a 

=z 

_ 
— BS RIO PIP 
ee ee ee OD ee ee ee ee 


10 
22 
10 

7 


12 


11 
15 
11 
14 
=eINVLD 
2 
\firg\ 


12 


Ae 
18 
i 


12 


13 
oe 
13 

? 


14 
14 
14 
14 
=e INF 


\A\ 


=e INF 
12 


15 
14 
15 
14 
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SQR (neg) 


Message nuriber 


Invalid Arg 


Message nunber 


LOG(0) 


Message nuriber 


LOG(neg) 


Message nunber 


Inf /Inf 


Message nuriber 


Inf -Inf 


Message nurnber 


10 


14 


15 
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134 1F4FE 3F CON(2) =eINF 
135 1F500 0 CON(1) 0 
136 1F501 D2 NIBASC \-\ 
137 1F503 E CON(1) 14 
138 1F504 3F CON(2) =eINF 
139 1F506 C CON(1) 12 
140 x 
141 =elF*ZR EQU 16 
142 1F50?7 DO CON(2) 13 
143 1F509 01 CON(2) 16 
144 1F50B E CON(1) 14 
145 1F50C 3F CON(2) ae 
146 1F50E 1 CON(1) 
147 1FS50F A203 NIBASC \40\ 
148 1F513 C CON(1) 12 
149 * 
150 =e1“INF EQU 17 
151 1F514 DO CON(2) 13 
152 1F516 11 CON(2) 17 
153 1F518 1 CON(1) 1 
154 1F519 1365 NIBASC \1*\ 
155 1F51D € CON(1) 14 
156 1FS1E 3F CON(2) =eINF 
157 1F520 C CON(1) 12 
158 x 
159 =eINF~O EQU 18 
160 1F521 DO CON(2) 13 
161 1F523 21 CON(2) 18 
162 1F§25 E CON(1) 14 
163 1F526 3F CON(2) “ee 
164 1F528 1 CON(1) 
165 1F529 £503 NIBASC 2\ 
166 1F52D C CON(1) 
167 % 
168 =eSIGOP EQU 19 
169 1FS2E C1 CON(2) 28 
170 1F530 31 CON(2) 19 
171 1F532 A CON(1) 10 
172 1F533 3596 NIBASC \Signaled\ 
76E6 
16C6 
5646 
173 1F643 O2F4 NIBASC \ Op\ 
0? 
174 1F549 C CON(1) 12 
175 2 
176 =eUNORC EQU 20 
177 1F54R 81 CON(2) 24 
178 1FS4C 44 CON(2) 20 
179 1F54E 8 CON(1) 8 
180 1F54F 5566 NIBASC \Unordere\ 
F627 
4656 
2756 
181 1F55F 46 NIBASC \d\ 
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Inf*o 


Message nuriber 


1*Inf 


Message nurber 


Inf 


Message nuriber 


Signaled Op 


Message nunber 


Unordered 


Message nurber 


1983 


16 


1? 


18 


20 


5:17 an 
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182 
183 
184 
185 
186 
18? 
188 


189 
190 
191 
192 
193 
194 
195 
196 


197 


198 
199 
200 
201 
202 
203 
204 
205 


206 


207 
208 
209 
210 
211 
ele 
é13 
214 
215 


1F561 


1F562 
1F564 
1F566 
1F56? 


1F575 


1F576 
1F578 
1F5?A 
1F57B 


1F58B 
1F591 


1F592 
1F§94 
1F596 
1F69? 
1F598 


1F5R8 
1F5B0 


1F5B1 
1F5B3 
1F5B5 
1F5B6 


1F5C6 


1FSCE 
iF5CD 


C 


41 
51 

6 
94E6 
5687 
1636 
47 

C 


C1 
61 


C4F6 
7702 
2416 
4747 
5627 
97 


F1 
71 


3597 
3747 
56D6 
0254 
2727 
F627 
C 


D2 
31 

A 
94E6 
3757 
6666 
9636 
9656 
Eo 

? 
4702 
D456 
DoF6 
2797 


Nainfrane Message Table 


=eINX 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBRSC 


CON(1) 
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12 


21 Inexact Ix 
20 

21 Message nuriber 21 
6 

\Inexact\ 


Roreeas cde reason SYSteHOECTOhS:. Sesenseaheweseeeaarsestes 


=eLOBAT 


* 
=eSYSER 


=eMNCOR 
x 


=eNEN 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


NIBASC 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
CON(1) 
NIBASC 


NIBASC 


CON(1) 
EQU 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


NIBASC 


CON(1) 
NIBASC 


22 Low Battery 
28 
22 Message nuriber 22 
10 
\Lou Batt\ 


\ery\ 
12 


23 Systen Error 

31 

23 Message nunber 23 
11 

11 

\Systen E\ 


\rror\ 


12 
eSYSER Old symbolic for eSYSER. 


24 Insufficient Menory 
45 

24 Message nunber 24 
10 
\Insuf fic\ 


\ien\ 


7 
\t Menory\ 
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219 
220 
221 
222 
223 
224 
225 


226 
227 
228 
229 
2x 
231 
232 
233 
234 
235 
236 
237 


238 


239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


256 
257 
258 
259 
260 
261 
262 


1F5DD C 


1FS5DE C1 
1F5E0 91 
1F5E2 6 
1F5E3 D4F6 
4687 
C656 
02 
1FSF1 E 
1FSF2 6F 
1F5F4 1 
1F5F5 8646 
TF5F9 C 


1FSFA 12 
TFSFC At 
1F5FE B 
1F5FF C 
1F600 34F6 
£666 
9676 
5727 
1F610 1647 
96F6 


1F61A C 


1F61B DO 
1F61D B1 
TF61F E 
1F620 CE 
1F622 1 
1F623 1464 
1F62?7 C 


1F628 81 
1F62AR C1 
1F62C 8 
1F62D 3557 
2637 
3627 
3607 
1F63D 47 
1F63F C 


1F640 51 
1F642 D1 
1F644 § 


Nainfrane Message Table Fri Dec ®, 1983 5:17 an 


=elPI 


x 
=e2MROn 


=eRF 


=eSUBSC 


k 
=eRECOR 


Page 6 
CON(1) 12 
EQU 25 Module Pulled 
CON(2) 28 
CON(2) 25 Nessage nurber 25 
CON(1) 6 


NIBASC \Nodule \ 


CON(1) 14 
CON(2) =ePULL 
CON(1) 1 
NIBASC \ed\ 
CON(1) 12 


EQU 26 Configuration 
CON(2) 33 

CON(2) 26 Message nunber 26 
CON(1) 11 

CON(1) 12 

NIBASC \Configur\ 


NIBASC \ation\ 


CON(1) 12 


EQU 27 Invalid AF 

CON(2) 13 

CON(2) 27 Message nurber 27 

CON(1) 14 

CON(2) =eINVLD 

CON(1) 1 

NIBASC \AF\ 

CON(1) 12 

a Program Errors 9 ------------------------ 


EQU 28 Subscript 

CON(2) 24 

CON(2) 28 Message nunber 28 
CON(1) 8 

NIBASC \Subscrip\ 


NIBASC \t\ 

CON(1) 12 

EQU 29 Record Ovfl 

CON(2) 21 

CON(2) 29 Message nunber 29 


CON(1) 5 
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263 


264 
265 
266 
267 
268 
269 
270 
271 
272 


273 
274 
275 
276 
277 
278 
279 
280 
281 


282 
283 
284 
285 
286 
287 
288 
289 


2H” 
291 
292 
293 
294 
295 
296 
27 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 


1F645 2556 
36F6 
2746 
1F651 E 
1F6S2 SF 
1F654 C 


1F655 11 
1F65?7 £1 
1F659 3 
1F65A 3547 
0647 
1F662 E 
1F663 8E 
1F665 C 


1F666 81 
1F668 F4 
1F66R 8 
1F66B 4416 
4716 
0245 
9707 
1F67B 56 
1F67D C 


1F67E 41 
1F680 02 
1F682 6 
1F683 E4F6 
0244 
1647 
16 
1F691 C 


1F692 DO 
1F694 12 
1F696 4 
1F697 64E4 
1F69B E 
1F69C 8E 
1FOSE C 


1F6SF BO 
1F6A1 22 
1F6A3 0 
1F6R4 85 
1F6R6 E 
1F6A? 12 
1F6R9 C 


MNainfrane Message Table 


x 
=eSTMNF 


k 
=eDATTY 


x 
=eNODAT 


=eFNNTF 


x 
=eXF NNF 


NIBASC \Record\ 


CON(1) 14 
CON(2) =e0VFL* 
CON(1) 12 


EQU x” 
CON(2) 1? 
CON(2) 30 
CON(1) 3 
NIBASC \Strit\ 


CON(1) 14 
CON(2) =eNFOUN 
CON(1) 12 


EQU 31 
24 
31 


8 
\Data Typ\ 


NIBASC \e\ 
CON(1) 12 


EQU 32 
CON(2) 20 
CON(2) 32 
CON(1) 6 


NIBASC \No Data\ 


CON(1) 12 


EQU 33 
13 
33 


1 
> \FN\ 

14 
=eNFOUN 


12 


EQU 34 
) 11 
) 34 
)} oO 
AK 
CON(1) 14 
=eFNNTF 
CON(1) 12 
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Page 7? 


Stnt Not Found 


Message nunber 30 


Data Type 


Nessage nunber 31 


No Data 


Message nunber 32 


FN Not Found 


Message nunber 33 


XFN Not Found 


Message nunber 34 
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309 * 
310 =eXWORD EQU 35 XWORD Not found 
311 1F6AR 31 CON(2) 19 
312 1F6AC 32 CON(2) 35 Message nunber 35 
313 1F6RE 4 CON(1) 4 
314 1F6AF 8575 NIBASC \XWORD\ 
F425 
44 
315 1F6B9 E CON(1) 14 
316 1F6BR 8E CON(2) =eNFOUN 
317 1F6BC C CON(1) 12 
318 * 
319 =ePRMIS EQU 36 Paraneter Misnatch 
320 1F6BD B2 CON(2) 43 
321 1F6BF 42 CON(2) 36 Message nunber 36 
322 1F6C1 A CON(1) 16 
323 1F6C2 0516 NIBASC \Paranete\ 
2716 
D656 
4756 
324 1F6D2 2702 NIBASC \r M\ 
D4 
325 1F6D8 6 CON(1) 6 
326 1F6D9 9637 NIBASC \isnatch\ 
D616 
4736 
86 
327 1F6E7 C CON(1) 12 
328 x 
329 =eSTROV EQU 3? String Ovfl 
3H 1F6E8 51 CON(2) 21 
331 1F6ER 52 CON(2) 37 Message nunber 37 
332 1F6EC 5 CON(1) 5 
333 1F6ED 3547 NIBASC \String\ 
2796 
E676 
334 1F6F9 E CON(1) 14 
335 1FOFA 5F CON(2) =eOVFL* 
336 1FeFC C CON(1) 12 
33? x 
338 =eNUMIN EQU 38 Nurieric Input 
339 1F6FD 71 CON(2) 23 
340 1F6FF 62 CON(2) 38 Message nunber 38 
341 1F701 6 CON(1) 6 
342 1F702 £457 NIBASC \Nunmeric\ 
D656 
2796 
36 
343 1F710 £ CON(1) 14 
344 1F711 4F CON(2) =eINPUT 
345 1F713 C CON(1) 12 
346 x 
347 =eTOONI EQU 39 Too Many Inputs 
348 1F714 71 CON(2) 23 


349 1F716 72 CON(2) 39 Message nurber 39 
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350 1F718 E 

351 17719 FE 

352 1F71B 3 

353 1F71C D416 
E69? 

354 1F724 E 

355 1F725 4F 

356 1F727 0 

357 1F728 37 

358 1F72A C 

359 x 

360 =eT00FI 

361 1F72B 51 

362 1F72D 82 

363 1F72F E 

364 1F730 FE 

365 1F732 2 

366 1F733 6456 
7? 

367 1F739 E 

368 1F73A 4F 

369 1F73C © 

370 1F73D 37 

371 1F?73F C 

372 x 

373 =eCHNL# 

374 1F740 31 

375 1F742 92 

376 1F744 4 

377 1F745 3486 
E6Co 
32 

378 1F74F E 

379 1F750 8E 

380 1F752 C 

381 k 

382 =eFUONK 

383 1F753 81 

384 1F755 A2 

385 1F757 2 

386 1F758 64F4 
25 

38? 1F75E E 

388 1F?SF BE 

389 1F761 3 

3% 1F7b62 £454 
8545 

391 1F76R C 

392 7 

393 =eNKuoF 

394 1F76B8 8&1 

395 1F76D B2 

396 1F76F 3 

397 1F770 £454 
$545 


CON(1) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 
CON(2) 
CON(1) 
NIBRSC 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 
CON(2) 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBRSC 


Mainfrare Message Table 


14 
=eT00 
3 
\Many\ 


14 
=e INPUT 


0 
\s\ 
12 


40 
21 
40 
14 
=eT00 
2 
\Fen\ 


14 
=eINPUT 


0 
\s\ 
12 


41 
19 
41 
4 
\Chn1#\ 


14 
=eNFOUN 
12 


42 
24 
42 


2 
\FOR\ 

14 
=eu/o 


3 
\NEXT\ 


t2 


43 
24 
43 
3 
\NEXT\ 
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Too Feu Inputs 


Message nunber 40 


Chnl# Not Found 


Nessage nunber 41 


FOR w/o NEXT 


Message nunber 42 


NEXT w/o FOR 


Message nunber 43 
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398 
399 
400 
401 


402 
403 
404 
405 
406 
407 
408 


409 
410 
411 
412 


413 
414 
415 
416 
41? 
418 
419 
420 
421 


422 
423 
424 
425 
426 
427 
428 
429 
430 


431 
432 
433 
434 
435 
436 
437 


438 
433 
440 
441 
442 


1F 778 
1F 779 
1F77B 
1F 77 


1F 782 


1F 783 
1F 785 
1F 787 
1F 788 


1F 78E 
1F 78F 
1F 791 
1F 792 


1F 79C 


1F 790 
1F 79F 
1F 7A1 
1F 7R2 
1F 7A4 
1F 7 AS 


1F 7AF 


1F 7B0 
1F 7B2 
1F 7B4 
1F 7B 
1F 7B? 
1F 7B8 


1F7C2 


1F ?C3 
1F7C5 
1F 707 
1F 7C8 


1F7D2 
1F7D3 
1F7D5 


E 

BE 

2 
64F4 
25 

C 


Al 
C2 

2 
2545 
£4 

E 

BE 

4 
74F4 
3555 
24 

C 


31 
D2 

E 

CE 

4 
94D4 
1474 
54 

C 


31 
E2 

E 

CE 

4 
5535 
94E4 
74 

C 


31 
Fe 

4 
94D4 
1474 
54 

E 

oF 

C 


Mainfrane Message Table 


CON(1) 14 
CON(2) =eu/o 
CON(1) 2 
NIBASC \FOR\ 


CON(1) 12 

k 

=eRuoGS EQU 44 
CON(2) 26 
CON(2) 44 
CON(1) = 2 
NIBASC \RTW\ 


CON(1) 14 
CON(2) =eu/o 
CON(1) 4 
NIBASC \GOSUB\ 


CON(1) 12 
* 
=eINVIN EQU 45 

CON(2) 19 
CON(2) 45 
CON(1) 14 
CON(2) =eINVLD 
CON(1) 4 
NIBASC \INAGE\ 


CON(1) 12 
=eINVUS EQU 46 
oy 19 
CON(2) 46 

1) 14 
CON(2) =eINVLD 
CON(1) 4 
NIBASC \USING\ 


CON{1) 12 


=eINGOV EQU 47 
CON(2) 19 
CON(2) 47 
CON(1) 4 
NIBASC \IMAGE\ 


CON(1) 14 
CON(2) =e0VFL* 
CON(1) 12 

x 


=eIVTAB EQU 48 
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RTN u/o GOSUB 


Message nuriber 44 


Invalid IMAGE 


Message number 45 


Invalid USING 


Message nurber 46 


IMAGE Ovfl 


Message number 47 


Invalid TAB 
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443 
444 
445 
446 
447 
448 


449 
450 
451 
452 
453 
454 
455 


456 
45? 
458 
459 
460 
461 
462 
463 
464 


465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 


478 
479 
480 
481 
482 
4§3 
484 
485 
486 
48? 
4&8 
489 


4% 


1F 706 
1F 708 
1F7DA 
iF 7DB 
1F 70D 
1F 7DE 


1F7E4 


1F7E5 
1F 7E?7 
1F7E9 
1F7EA 


1F 7FO 
1F7F1 
1F ?F3 


1F?F4 
1F 7F6 
1F7F8 
TF7ES 


1F 801 
1F 802 
1F 804 


1F 805 
1F 80? 
1F 809 
1F80A 
1F80C 
1F 80D 


1F 8139 


1F31A 
1F8IC 
TFSiIE 
TF StF 
1F 821 
1F822 


1F82C 


Nainfrane Message Table 


FO CON(2) 15 

03 CON(2) 48 

E CON(1) 14 

CE CON(2) =eINVLD 

2 CON(1) 2 

4514 NIBASC \TAB\ 

24 

C ; CON(1) 12 
=eSPGNF EQU 49 

FO CON(2) 15 

13 CON(2) 49 

2 CON(1) 2 

3557 NIBASC \Sub\ 

26 

E CON(1) 14 

8E CON(2) =eNFOUN 

C i CON(1) 12 
=eVCNTX EQU 50 

| CON(2) 17 

23 CON(2) 50 

3 CON(1) 3 

6516 NIBASC \War \ 

2702 

E CON(1) 14 

9E CON(2) =eCNTXT 

C . CON(1) 12 
seven EQU eVCNTX 
=eIVSAR EQU 51 

51 CON(2) 21 

33 CON(2) 51 

E CON(1) 14 

DE CON(2) =eINVST 

5 CON(1) 35 

0214 NIBASC \ Array\ 

2727 

1697 

C CON(1) 12 
x 
=eNVSTA EQU eIVSAR 
=eNSVAR EQU eIVSAR 
x 
=eIVSTA EQU 52 

31 CON(2) 19 

43 CON(2) 52 

E CON(1) 14 

DE CON(2) =eINVST 

4 CON(1) 4 

9637 NIBASC \istic\ 

4796 

36 

C CON{1) 12 
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Message nuriber 48 


Sub Not Found 


Message nuriber 49 


Var Context 


Message number 50 


Old synbolic for eVARTY. 
Invalid Stat Array 


Message nunber 51 


Old symbolic for eIVSAR. 
Old synbolic for eIVSAR. 


Invalid Statistic 


Message nuriber 52 
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491 * 
492 =eIVSOP EQU 53 Invalid Stat Op 
433 1F82D FO CON(2) 15 
494 1F82F 53 CON(2) 53 Message nurber 53 
495 1F831 € CON(1) 14 
496 1F832 DE CON(2) =eINVST 
497 1F834 2 CON(1) 2 
498 1F835 O2F4 NIBASC \ Op\ 
07 
499 1F83B C CON(1) 12 
500 x 
501 =eEQFIL EQU 54 End of File 
502 1F83C 71 CON(2) 23 
503 1F83E 63 CON(2) 54 Message nuriber 54 
504 1F840 6 CON(1) 6 
505 17841 5466 NIBASC \End of \ 
4602 
F666 
02 
506 1F84F £ CON(1) 14 
507 1F850 AE CON(2) =eFILE 
508 1F852 C CON(1) 12 
509 x 
510 =eILTFM EQU 55 Invalid Transforn 
511 1F853 BO CON(2) 11 
512 1F855 73 CON(2) 55 Message nunber 55 
513 1F857 € CON(1) 14 
514 1F858 CE CON(2) =eINVLD 
515 1F85A £ CON(1) 14 
516 1F85B 1F CON(2) =eTFM 
517 1F85D C CON(1) 12 
518 x 
519 =eTFFLD EQU 56 Transforn Failed 
520 1F85E 71 CON(2) 23 
521 1F860 83 CON(2) 56 Message nunber 56 
522 1F862 E CON(1) 14 
523 1F863 1F CON(2) =eTFN 
524 1F865 6 CON(1) 6 
525 1F866 0264 NIBASC \ Failed\ 
1696 
C656 
46 
526 17874 C CON(1) 12 
527 &------------------- File and Device Errors ------------------- 
528 * 
529 =eFnFND EQU 57 File Not Found 
530 1F875 BO CON(2) 11 
531 1F877 93 CON(2) 5? Message number 57 
532 1F879 E CON(1) 14 
533 1F87A AE CON(2) =eFILE 
534 1F87C E CON(1) 14 
535 1F87D 8& CON(2) =eNFOUN 
536 1F87F C CON(1) 12 
537 * 


538 =eF SPEC EQU 58 Invalid Filespec 





Saturn Assenbler 


Ver. 3.39/Rev. 2306 


539 
540 
541 
542 
543 
544 
545 
546 


547 
548 
549 
550 
551 
552 
553 
554 
555 


556 
557 
558 
559 
560 
561 
562 
563 
564 


565 
566 
567 
568 
569 
570 
571 
She 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 


583 
584 
585 


1F 880 
1F 882 
1F 884 
1F885 
1F88? 
1F 888 
1F88A 
1F88B 


1F893 


1F 894 
1F896 
1F 898 
1F 899 
1F89B 
1F83C 


1F8AR 


1F8AB 
1F8AD 
1F8AF 
1F8B0 
1F8B2 
1F8B3 


1F 8BF 


1F8CO 
1F8C2 
1F8C4 
1F8C5 
1F8C7 
1F8C8 
1F8CA 


iF8CB 
1F8CD 
1F8CF 
1F8DO 
1F8D2 
1F8D3 


1F8DD 


41 CON(2) 
A3 CON(2) 
E CON(1) 
CE CON(2) 
E CON(1) 
RE CON(2) 
3 CON(1) 
3707 NIBASCT 
5636 
C CON(1) 
* 
=eFEXST EQU 
74 CON(2) 
B3 CON(2) 
E CON(1) 
RE CON(2) 
6 CON(1) 
0254 
8796 
3747 
37 
C CON(1) 
x 
=eFACCS EQU 
51 CON(2) 
C3 CON(2) 
E CON(1) 
6E CON(2) 
5 CON(1) 
1436 
3656 
3737 
C CON(1) 
x 
=eFPROT EQU 
BO CON(2) 
D3 CON(2) 
E CON(1) 
RE CON(2) 
E CON(1) 
SF CON(2) 
C CON(1) 
x 
=eF OPEN EQU 
31 CON(2) 
£3 CON(2) 
E CON(1) 
AE CON(2) 
4 CON(1) 
O2F4 NIBASC 
0756 
E6 
C CON(1) 
x 
=eF TYPE EQU 


Nainfrane Message Table 


20 

58 

14 

=eINVLD 
14 

=eF ILE 
3 

\spec\ 


12 


59 
23 

59 

14 

=eF ILE 
6 


NIBASC \ Exists\ 


12 


60 
21 
60 
14 

=eILLEG 
5 


NIBASC \Access\ 


12 


61 
11 
61 
14 
=eF ILE 
14 
=ePRICT 
12 


62 

19 

62 

+4 

=eF ILE 
4 

\ Open\ 


12 
63 
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Message nunber 58 


File Exists 


Nessage number 59 


Illegal Access 


Message nuriber 60 


File Protect 


Message nunber 61 


File Open 


Message nunber 62 


Invalid File Type 
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586 1F8DE 61 
587 1F8E0 F3 
588 1F8E2 E 
589 1F8E3 CE 
590 1F8E5 E 
591 1F8E6 RE 
552 1F8E8 4 
593 1F8E9 0245 
3707 
56 
594 1F8F3 C 
595 
596 
597 
598 
599 
600 


1F8F4 51 
1F8F6 04 
1F8F3 5 
1F8F9 4456 
6796 
3656 
1F905 E 
1F%6 8E 
1F98 C 


601 
602 
603 
604 
605 
606 
607 
608 
609 


1F909 C1 
1F9OB 14 
1F9OD 4 
1FHE C496 
£656 
02 
1F9IB E 
1F919 FE 
1F91B 3 
1F91C C4F6 
£676 
1F924 C 


610 
611 
612 
613 


614 
615 
616 
617 
618 
619 
620 
621 


1F925 81 
1F927 24 
1F929 4 
1F92A 7527 
9647 
56 
1F934 E 
1F935 8F 
1F937 1 
1F938 5646 
1F93C C 


622 
623 
624 
625 
626 
627 
628 
629 
630 
631 


1F93D 81 
1F93F 34 
1F941 8 


Mainfrane Message Table 


& 
=eDVCNF 


k 
=eL2LNG 


=ePROTD 


=eNOTIN 
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CON(2) 22 
CON(2) 63 
CON(1) 14 
CON(2) =eINVLD 
CON(1) 14 
CON(2) =eF ILE 
CON(1) 4 
NIBASC \ Type\ 


Message number 63 


CON(1) 12 

EQU 64 Device Not Found 
CON(2) 21 

CON(2) 64 Message nunber 64 
CON(1) = § 


NIBASC \Device\ 


14 
=eNFOUN 
12 


CON(1) 
CON(2) 
CON(1) 


65 
28 
65 


EQU 
CON(2) 
CON(2) 
CON(1) 4 
NIBASC \Line \ 


Line Too Long 


Message nunber 65 


CON(1) 14 
CON(2) =eT00 
CON(1) 3 


NIBASC \Long\ 


12 
Card Reader Errors 


CON(1) 


EQU Write Protected 
CON(2) 
CON(2) 66 
CON(1) 4 
NIBASC \Write\ 


24 
Message nuriber 66 


14 
=ePRICT 
1 


CON(1) 
CON(2) 
CON(1) 
NIBASC \ed\ 
CON(1) 12 


6? 
2? 
67 

8 


EQU Not This File 
CON(2) 
CON(2) 


CON(1) 


Message nuriber 67 
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632 


633 
634 
635 
636 
637 
638 
639 
640 
641 
642 


643 


644 
645 
646 
647 
648 
649 
650 
651 


652 


653 
654 
655 
656 
657 
658 
659 


660 
661 
662 
663 
664 
665 
666 
667 
668 
669 


670 
671 


1F942 E4F6 
4702 
4586 
3637 
1F952 02 
1F954 E 
1F955 RE 
1F957 C 


1F958 C1 
1F95A 44 
1FS5C A 
1F95D 6556 
2796 
6697 
0264 
1F96D 1696 
C6 
1F973 C 


1F974 Fi 
1F976 54 
1F978 B 
1F979 B 
1F97A 55E6 
B6E6 
F677 
E602 
1F98A 3416 
2746 
1F992 C 


1F993 81 
1F995 64 
1F997 8 
1F998 25F2 
7502 
542? 
27F6 
1F9A8 27 
1FSAA C 


1FSAB 14 
TFSAD 74 
1FORF E 
1F9BO FE 
1F9B2 3 
1F9B3 6416 
3747 
1FSBB C 


Nainfrane Message Table 


x 
=eVFYER 


& 
=eUNKCD 


x 
=eRWERR 


x 
=eTUFAS 


NIBASC \Not This\ 


NIBASC \ \ 


CON(1) 


14 


CON(2) =eFILE 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 


12 


68 
28 
68 
10 


NIBASC \erify F\ 


NIBASC \ail\ 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
CON(1) 


12 


69 
31 
63 
11 
11 


NIBASC \Unknoun \ 


NIBASC \Card\ 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 


12 


70 
24 
70 


8 
NIBASC \R/W Erro\ 


NIBASC \r\ 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


12 


71 
1? 
71 
14 

=eT00 
3 


NIBASC \Fast\ 


CON(1) 


12 
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Verify Fail 


Message nuriber 68 


Unknown Card 


Message nunber 69 


R/W Error 


Message nuriber 70 


Too Fast 


Message nunber 71 


Saturn Assenbler Mainfrane Message Table Fri Dec 30, 1983 5:17 an 
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672 =eTUSLO EQU 72 Too Slow 
673 1F9BC 11 CON(2) 17 
674 1F9BE 84 CON(2) 72 Message nunber 72 
675 1F9C0 E CON(1) 14 
676 1F9C1 FE CON(2) =eT00 
677 1F9C3 3 CON(1) 3 
678 1F9C4 35C6 NIBASC \Slou\ 
F677 
679 1F9CC C CON(1) 12 
680 . 
681 =eWRGNM EQU 73 Wrong Nate 
682 1F9CD Al CON(2) 26 
683 1F9CF 94 CON(2) 73 Message nunber 73 
684 1F901 9 CON(1) 9 
685 1F9D2 7527 NIBASC \Wrong Na\ 
F6E6 
7602 
E416 
686 1F9E2 D656 NIBASC \ne\ 
687 1F9E6 C CON(1) 12 
688 * 
689 =eF2BIG EQU 74 File Too Big 
690 1F9E? 51 CON(2) 21 
691 1F9E9 A4 CON(2) 74 Nessage nunber 74 
692 1F9EB E CON(1) 14 
693 1F9EC AE CON(2) =eF ILE 
694 1F9EE O CON(1) 0 
695 1F9EF 02 NIBASC \ \ 
696 1F9F1 E CON(1) 14 
697 1F9F2 FE CON(2) =eT00 
698 1FSF4 2 CON(1) 2 
699 1F9F5 2496 NIBASC \Big\ 
76 
700 1F9FB C CON(1) 12 
701 Rewweccencenenn nnn ae Syntax Errors ------ conn renee were n nnn nnen 
702 . 
703 =eSYNTX EQU 75 Syntax 
704 1FSFC 21 CON(2) 18 
705 1F9FE B4 CON(2) 75 Message nunber 75 
706 1FROO 5 CON(1) 5 
707 1FAO1 3597 NIBASC \Syntax\ 
E647 
1687 
708 1FAOD C CON(1) 12 
709 : 
710 =ePRNEX EQU 76 ) Expected 
711 1FROE BO CON(2) 11 
712 1FA10 C4 CON(2) 76 Message nurber 76 
713 1FA12 0 CON(1) 0 
714 1FA13 92 NIBASC \)\ 
715 1FA1S E CON(1) 14 
716 1FA16 7E CON(2) =eEXPCT 
717 1FA18 C CON(1) 12 
718 x 
719 =eQUOEX EQU 77 Quote Expected 
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720 
?el 
722 
723 


724 
725 
726 
72? 
728 
729 
7H 
731 
732 
733 


734 


736 
736 
73? 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
252 


753 
754 
755 
756 
757 
758 
769 
760 
764 


762 
763 
764 
766 
766 
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1FA19 31 CON(2) 19 
1FA1B D4 CON(2) 77 Message nunber ?7 
1FAID 4 CON(1) 4 
TFAIE 1557 NIBASC \Quote\ 
F647 
56 
1FA28 E CON(1) 14 
1FR29 7E CON(2) =eEXPCT 
1FA2B C CON(1) 12 
x 
=eEXCHR EQU 78 Excess Chars 
1FA2C F1 CON(2) 31 
1FAZE £4 CON(2) 78 Message number 78 
1FA30 B CON(1) 11 
1FA31 B CON(1) 11 
1FA32 5487 NIBASC \Excess C\ 
3656 
3737 
0234 
1FA42 8616 NIBASC \hars\ 
2737 
1FA4A C CON(1) 12 
x 
=eILCNT EQU 79 Tilegal Context 
1FA4B BO CON(2) 11 
1FA4D F4 CON(2) 79 Message nutiber 79 
1FR4F E CON(1) 14 
1FASO GE CON(2) =eI LLEG 
1FA52 E CON(1) 14 
1FA53 GE CON(2) =eCNTXT 
1FA55 C CON(1) 12 
x 
=eILEXP EQU 80 Invalid Expr 
1FA56 11 CON(2) 17 
1FR58 05 CON(2) 80 Message nunber 80 
1FASA E CON(1) 14 
1FA5B CE CON(2) =eINVLD 
1FASD 3 CON(1) 3 
1FASE 5487 NIBASC \Expr\ 
072? 
1FAG66 C CON(1) 12 
k 
=eILPAR EQU 81 Invalid Parr 
1FAG7 11 CON(2) 1? 
1FRE9 15 CON(2) 81 Message nurber 81 
1FAGB E CON(1) 14 
1FAGC CE CON(2) =eINVLD 
1FABE 3 CON(1) 3 
1FAGF O516 NIBASC \Parn\ 
2706 
1FA?? C CON(1) 12 
x 
=eMSPAR EQU 2 Missing Parn 
1FA78 F1 CON(2) 31 
1FA7A 25 CON(2) 82 Message nunber 82 
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767 
768 
769 


770 


771 
772 
773 
774 
775 
776 
777 
778 
779 


780 
781 
782 
783 
784 
785 
786 


787 
788 
789 
79% 
794 
792 
793 
794 
795 
796 


797 
798 
799 


801 
802 
803 


804 
805 
806 
807 
808 
809 


IFA?C 
{FR7D 
1FA7E 


TFAB8E 
1FA96 


1FA9?7 
1FAS9 
1FASB 
1FASC 
1FASE 
1FASF 


1FAAS 


1FARG 
1FRA8 
1FAAA 
1FAAB 


1FABB 
{FABF 


TFACO 
TFAC? 
1FAC4 
1FACS 
1FAC? 
1FACE 


1FACE 


{FACF 
iF ADI 
1FAD3 
1FAD4 


1FRE2 
1FRE3 
1FRES 


{FARES 


B 
B 
0496 
3737 
S6E6 
7602 
0516 
2706 
C 
x 
=eILVAR 
FO 
35 
E 
CE 
2 
6516 
27 
C 
x 
=ePRCER 
Al 
45 
9 
0527 
5636 
5646 
56E6 
3656 


x 
=eILKEY 

FO 

55 


CE 


B456 
97 


=eROURN 
71 
65 


F407 
5627 
16E6 
46 


7E 


x 
=eR1 WRN 


CON(1) 
CON(1) 
NIBASC 


NIBASC 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


NIBASC 
CON(1) 


NIBASC 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 
CON(2) 
CON(1) 


EQU 
CON(2) 


Nainfrane Message Table 


11 
11 
\Missing \ 


\Parn\ 
12 


83 
15 
83 
14 
=eINVLD 
2 
War\ 


12 


84 
26 
84 
9 
\Preceden\ 


\ce\ 
12 


85 
15 
85 
14 
=eINVLD 
2 
\Key\ 


12 


86 
23 
86 
6 
\Operand\ 


14 
=eEXPCT 
12 


87 
25 
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Invalid Var 


Message nunber 83 


Precedence 


Message nunber 84 


Invalid Key 


Message nuriber 85 


Operand Expected 


Message nuriber 86 


Operator Expected 
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810 1FAE8 75 CON(2) 87 Message nunber 87 
811 1FAEA 7 CON(1) 7 
812 1FAEB F407 NIBASC \Qperator\ 

5627 
1647 
F627 
813 1FAFB E CON(1) 14 
814 1FAFC 7E CON(2) =eEXPCT 
815 1FAFE C CON(1) 12 
816 1FAFF SHRNAST Address of urn risg prefix -13. 
817 
818 =eTFWRN EQU 88 TFN WRN LRH: <risg> 
819 1FAFF F1 CON(2) 31 
820 1FBO1 85 CON(2) 88 Message nurnber 88 
821 1FBO3 8 CON(1) 8 
822 1FBO4 4564 NIBRSC \TFN WRN \ 
D402 
7525 
£402 
823 1FB14 C4 NIBASC \L\ 
824 1FBi6 F2 CON(2) 47 
825 1FB18 0 CON(1) © 
826 1FB19 A NIBASC \:\ 
82? 1FBIB Fi CON(2) 31 
828 1FB1D C CON(1) 12 
829 heen non nenn econ Card Reader Messages ------------------------- 
8H . 
831 =ePLLC# EQU 89 Pull HHH of HHH 
832 1FBIE BO CON(2) 11 
833 1FB20 95 CON(2) 89 Message number 89 
834 1FB22 E CON(1) 14 
835 1FB23 6F CON(2) =ePULL 
836 1FB25 E CON(1) 14 
837 1FB26 ?F CON(2) =eH#of# 
838 1FB28 C CON(1) 12 
839 x 
840 =ePLLC EQU 90 Pull Card 
841 1FB29 31 CON(2) 19 
842 1FB2B AS CON(2) 90 Message number 90 
843 1FB2D E CON(1) 14 
844 1FB2E oF CON(2) =ePULL 
845 1FB3O 4 CON(1) 4 
846 1FB31 0234 NIBASC \ Card\ 
1627 
46 
847 1FB3B8 C CON(1) 12 
848 * 
849 =eWALGN EQU aI Wert: Rlign then ENDLN 
850 1FR3C FO CON(2) 15 
851 1FB3£ 85 CON(2) 91 Message nuriber 91 
852 1FB40 2 CON(1) 2 
853 1FB41 7527 NIBASC \Wrt\ 
47 
854 1FB47 € CON(1) 14 


855 1FB48 OF CON(2) =eALGN 





Saturn Assenbler 


Ver. 3.39/Rev. 2306 


856 
857 
858 
869 
860 
861 
862 


1FB4A C 


1FB4B FO 
1FB4D C5 
1FBAF 2 
1FB50 6566 


1FBS? OF 
1FB59 C 


1FB5A 11 
1FB5C D5 
1FBSE 3 
1FBSF 2556 
1646 
1FB67 E 
1FB68 OF 
1FB6A C 


1FB6B 11 
1FB6D £5 
1FB6F 3 
1FB70 0527 
F647 
1FB78 E 
1FB79 OF 
1FB7B C 


1FB?7C 11 
1FB7E FS 
1FB80 3 
1FB81 55£6 
0727 
1FB89 E 
1FB8A OF 
1FB8C C 


1FB8D FO 
1FB8F 06 
1FB91 2 
1FB92 3416 


1FB99 OF 
1FB9B C 


iFB9C 91 
1FBSE 16 


Mainfrane Message Table 


CON(1) 12 


=eVALGN EQU = -92 
CON(2) 15 
CON(2) 92 
CON(1) 2 
NIBASC \VFy\ 


CON(1) 14 
CON(2) =eALGN 
CON(1) 12 


=eRALGN EQU 93 
CON(2) 17 
CON(2) 93 
CON(1) 3 
NIBASC \Read\ 


CON(1) 14 
CON(2) =eALGN 
CON(1) 12 


=ePALGN EQU 94 
CON(2) 17 
CON(2) 94 
CON(1) 3 
NIBASC \Prot\ 


CON(1) 14 
CON(2) =eALGN 
CON(1) 12 


=eUALGN EQU 95 
CON(2) 17 
CON(2) 95 
CON(1) 3 
NIBASC \Unpr\ 


CON(1) 14 
CON(2) =eALGN 
CON(1) 12 

x 

=eCALGN EQU 96 
CON(2) 15 
CON(2) 96 
CON(1) 2 
NIBASC \Cat\ 


CON(1) 14 
CON(2) =eALGN 
CON(1) 12 

* 

=eTRKDN EQU 97 
CON(2) 25 
CON(2) 97 
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Vfy: Align then ENDLN 


Message nurber 92 


Read: Align then ENDLN 


Message nunber 93 


Prot: Align then ENDLN 


Message nuriber 94 


Unpr: Align then ENDLN 


Message nunber 95 


Cat: Align then ENDLN 


Message nunber 96 


Trk ### Done 


Message nunber 97 
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6 
%7 


908 
99 
910 


911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 


924 
925 
926 
927 
928 
929 
930 
931 
932 
333 
934 


935 
936 
937 
938 
933 
940 
941 


944 


1FBAO 3 
1FBR1 4527 
B602 
1FBAS F3 
1FBAB 3 
1FBAC 44F6 
E656 
1FBB4 C 


1FBBS 61 
1FBB? 5E 
1FBBS 4 
1FBBR 0282 
4727 
B6 
1FB8C4 E 
1FBC5 7F 
1FBC? 0 
1FBC8 92 
1FBCA C 


1FBCB 61 
1FBCD 6E 
1FBCF 7 
1FBDO 94(C6 
C656 
7616 
C602 
1FBEO C 


iFBE1 81 
TFBE3 7E 
1FBES 8 
1FBE6 0254 
8707 
5636 
4756 
1FBF6 46 
1FBF8 C 


1FBF9 At 
1FBFB 8E 
iFBFO 9 
1FBFE O2E4 
F647 


Nainfrane Message Table 
CON(1) 3 
NIBASC \Trk \ 
CON(2) 63 
CON(1) 3 
NIBASC \Done\ 


CON(1) 12 
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FORO IOTOI RRO JOI TO OOITOII OIIIIOK 
FORO OI RII TIO TTT TIO 


x 


&&KK Building Block words for messages. 
& 


x 


=eTRKOF EQU 229 
CON(2) 22 
CON(2) 229 
CON(1) 4 
NIBASC \ (trk\ 


CON(1) 14 
CON(2) =eHof# 
CON(1) 0 
NIBASC \)\ 

: CON(1) 12 


=eILLEG EQU 230 
CON(2) 22 
CON(2) 230 
CON(1) 7 
NIBASC \Illegal \ 


CON(1) 12 
x 


=eEXPCT EQU 231 
CON(2) 24 
CON(2) 2314 
CON(1) 8 


NIBASC \ Expecte\ 


NIBASC \d\ 
CON(1) 12 
x 
=eNFOUN EQU 232 
CON(2) 26 
CON(2) 232 
CON(1) 93 
NIBASC \ Not Fou\ 


(trk #HH of HHH) 


Message nuriber 229 


Illegal 


Message nunber 230 


Expected 


Message nunber 231 


Not Found 


Message nunber 232 
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0264 

F657 
1FCOE £646 NIBASC \nd\ 
1FC12 C ; CON(1) 12 

=eCNTXT EQU 233 Context 

1FC13 41 CON(2) 20 
1FC15 SE CON(2) 233 Message number 233 
1FC1?7 6 CON(1) 6 
1FC18 34F6 NIBASC \Context\ 

£647 

5687 

47 
1FC26 C CON(1) 12 


EQU 234 File 
1FC27 CON(2) 14 
1FC29 CON(2) 234 Message nunber 234 
1FC2B CON(1) 3 
1FC2C NIBASC \File\ 


1FC34 CON(1) 12 


EQU 235 u/o 
1FC35 01 CON(2) 16 
1FC37 BE CON(2) 235 Message nunber 235 
1FC39 4 CON(1) 4 


1FC3A 0277 NIBASC \ u/o \ 
F2F6 
02 

1FC44 C CON(1) 12 


EQU 236 Invalid 

1FC45 61 CON(2) 22 
1FC47 CE CON(2) 236 Message nunber 236 
1FC49 7 CON(1) 7 
1FC4A 94E6 NIBASC \Invalid \ 

6716 

C696 

4602 
1FC5A C CON(1) 12 


EQU 237 Invalid Stat 

1FC5B 11 CON(2) 17 

1FCSD DE CON(2) 237 Message nurber 237 
1FCSF E CON(1) 14 

1FC60 CE CON(2) =eINVLD 

1FC62 3 CON(1) 3 

1FC63 3547 NIBASC \Stat\ 

1647 
1FC6B C CON(1) 12 


EQU 239 Too 
1FC6C EO CON(2) 14 
1FC6E FE CON(2) 239 Message nunber 239 
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993 
994 


995 
396 
997 
998 
393 
1000 
1001 


1002 


1003 
1004 


1005 
1006 
1007 
1008 
1009 
1010 
1011 


1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 


1020 
1021 
1022 
1023 
1024 
1025 
1026 


102? 
1028 
1029 
1030 
1034 
1032 
1033 


1FC?0 3 

1FC71 45F6 
F602 

1FC?79 C 


1FC7A B2 
TFC7C OF 
1FC7E A 
TFC?7F A302 
146 
9676 
E602 
1FC8F 4786 
56 
1FC95 6 
1FC96 E602 
54E4 
44(4 
E4 
1FCR4 C 


1FCAS 81 
1FCA? 1F 
1FCR9 8 
1FCRR 


1FCBA D6 
1FCBC C 


1FCBD CO 
1FCBF 3F 
1FCC1 2 

1FCC2 


1FCC8 C 


1FCC9 24 
TFCCB 4F 
1FCCO § 
TFCCE 0294 
£60? 
5747 
1FCDA C 


1FCDB 01 
TFCDD SF 
1FCOF 4 
TFCEO O2F4 


Nainfrare Message Table 


=eALGN 


=eTFn 


=eINF 


* 
=e INPUT 


=eQVFL* 


CON(1) 
NIBRSC 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


NIBASC 


CON(1) 
NIBASC 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


NIBASC 
CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


CON(1) 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 


3 
\Too \ 


12 


240 

43 

240 

10 

\: Align \ 


\the\ 


6 
\n ENDLN\ 


12 


241 
24 
241 
8 
\Transfor\ 


\n\ 
12 


243 
12 
243 


2 
\Inf\ 
12 


244 
18 
244 
5 
\ Input\ 
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: Rlign then ENDLN 


Message nurber 240 


Transforn 


Message nunber 241 


Inf 


Message nunber 243 


Input 


Message nuriber 244 


Ovfl 


Message nunber 245 
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6766 
C6 
1034 1FCEA C CON(1) 12 
1035 ‘ 
1036 =ePULL EQU 246 Pull 
1037 1FCEB EO CON(2) 14 
1038 1FCED 6F CON(2) 246 Message nunber 246 
1039 1FCEF 3 CON(1) 3 
1040 1FCFO 0557 NIBASC \Pull\ 
Cece 
1041 1FCF8 C CON(1) 12 
1042 5 
1043 seHof# EQU 247 HHH of HHH 
1044 1FCF9 31 CON(2) 19 
1045 1FCFB 7F CON(2) 247 Message nunber 247 
1046 1FCFD O CON(1) 0 
1047 1FCFE 02 NIBASC \ \ 
1048 1FDOO F3 CON(2) 63 
1049 1FDO2 2 CON(1) 2 
1050 1FDO3 F666 NIBASC \of \ 
02 
1051 1FDO9 F2 CON(2) 47 
1052 1FDOB C CON(1) 12 
1053 . 
1054 =ePRICT EQU 248 Protect 
1055 1FDOC 61 CON(2) 22 
1056 1FDOE &8F CON(2) 248 Message nunber 248 
1057 1FD10 7 CON(1) 7? 
1058 1FD11 0205 NIBASC \ Protect\ 
27F6 
4756 
3647 
1059 1FD21 C CON(1) 12 
1060 e 
1061 TFD22 FF NIBHEX FF Table terninator 


1062 1FD24 END 
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=ERRMST Abs 127968 #1F3EO - 12 

=LEX: NN Abs 127978 #1F3ER - 13 

=WRNMST Abs 129791 HIFAFF - 816 

=etof# Abs 247 HOOOF7? - 1043 837 925 

=e Abs 6 #00006 - 60 

=eQ°NEG Abs 5 #00005 - 53 

zel“INF Abs 17 #00011 - = 150 

=e2MRON Abs 26 HOOO1A - = 232 

=eAF Abs 27 HOOOTB - = 241 

=eALGN Abs 240 HOOOFO - 997 855 864 873 882 891 90 

=eCALGN Abs 96 #00060 - 894 

seCHNL¥ Abs 41 #00029 - 373 

=eC(NTXT Abs 233 HOOOED - 953 «466 = 743 

=eDATTY Abs 31 HOO01F - 277 

=eDVCNF Abs 64 #00040 - 596 

=eEOFIL Abs 54 #00036 - 501 

=eEXCHR Abs 78 HOOO4E - 728 

=eEXPO = Abs 3 #00003 - 36 

=eEXPCT Abs 231 HOOOE7 - 937 716) «= 725) 805s 814 

=eF2BIG Abs 74 #0004A - = 689 

=eFACCS Abs 60 #OOO3C - 558 

=eFEXST Abs 59 #0003B - 549 

seFILE Abs 234 HOOOER - 960 «8507 «6533 544 553° 571 580 591 
635 693 

seFNNtF Abs 33 #00021 - 292 HW? 

=eFOPEN Abs 62 HOOO3E - 576 

=eFPROT Abs 61 #00030 - 567 

=eFSPEC Abs 58 H0003A - 538 

=eFTYPE Abs 63 HO003F - 585 

=eFnFND Abs 57 #00039 - 529 

=eFuoNX Abs 42 #0002R - 382 

=eIF*ZR Abs 16 #00010 - = 141 

seIF-IF Abs 15 HOOOOF - = 130 

=eIF/IF Abs 14 HOOOOE - = 119 

=eILCNT Abs 79 HOOO4F - = 737 

=eILEXP Abs 80 #00050 - 746 

=eILKEY Abs 85 #00055 - 7%) 

=eILLEG Abs 2X) #OOOE6 - 930 562 741 

=eILPAR Abs 81 #00051 - = 755 

=eILTFM Abs 55 #00037 - 510 

=eILVAR Abs 83 #00053 - = 773 

=eINGOV Abs 47 HOOO2F - 433 

=e INF Abs 243 HOOOF3 - 1015 50 123 127 134 138 «6145 = §6156 
163 

zeINF Abs 18 #00012 - = 159 

seINPUT Abs 244 HOOOF4 - 1022 344 365 368 

=eINVIN Abs 45 #OOO2D - = 418 


seINVLD Abs c36 HOOOEL - 974 «1000-245 419 428 44014 542 
589 750) 7590777? 794985 
=eINVST Abs 237 HOOOED - 981 475 487 496 


=eINVUS Abs 46 #OOO2E - = 424 
=e INK Abs 21 #OOOTS - = 184 
seIVARG Abs 11 #O000B - 96 
=eIVSAR Abs 51 #00033 - 471 480 481 


=eIVSOP Abs 53 #00035 - 492 
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=eIVSTA Abs 52 #00034 - 483 

=eIVIAB Abs 48 #00030 - 442 

=eL2LNG Abs 65 #00041 - 605 

=eLNO Abs 12 #0000C - =: 105 

=eLOBAT Abs 22 #00016 - = 192 

=eL0G- Abs 13 #0000D - = 112 

=eMEN Abs 24 #00018 - 211 

=eMMCOR Abs 23 #00017 - 208 

=eMPI Abs 25 #00019 - 221 

=eNSPRR Abs 82 #00052 - 764 

=eNEG*X Abs 9 #00009 - 81 

=eNFOUN Abs 232 HOOOES8 - «0945274 298) 316 = 379) 457 = 535 602 
=eNODAT Abs 32 #00020 - =. 285 

=eNOTIN Abs 67 #00043 - 628 

=eNSVAR Abs 51 #00033 - = 481 

=eNUMIN Abs 38 #00026 - 338 

=eNVSTA Abs 51 #00033 - 480 

=eNXwoF Abs 43 #0002B - 393 

=eQVFL* Abs 245 H000F5 - 1029 265 335 439 
=eQVFLU Abs 2 #00002 - 29 

=ePALGN Abs 94 #0005E - 876 

=ePLLC Abs 90 #0005A - 840 

=ePLLC# Abs 89 #00059 - = 831 

=ePRCER Abs 84 #00054 - = 782 

=ePRMIS Abs 36 #00024 - = -319 

=ePRNEX Abs 76 #0004C - 710 

=ePROTD Abs 66 #00042 617 


=ePRICT Abs 248 HOOOF8 - 1054 573 623 
=ePULL Abs 246 HOOOF6 - 1036 227 835 844 


=eQUOEX Abs 77 #00040 719 
=@ROWRN Abs 86 #00056 - = 799 
=eRIWRN Abs 87 #00057 - 808 
=eRALGN Abs 93 #0005D - 867 
=eRECOR Abs 29 #0001D - = 259 
=eRWERR Abs 70 #00046 - 655 
=eRuoGS Abs 44 #0002C - 404 
=eSIGOP Abs 19 #00013 - 168 
=eSPGNF Abs 49 #00031 - 451 
=eSQR- Abs 10 #OOOOR - 89 
=eSTMNF Abs 3% HOODIE - 268 
=eSTROV Abs 37 #00025 - =. 329 
=eSUBSC Abs 28 #OO01C - = 251 
=eSYNTK Abs 75 #0004B - = 703 
=eSYSER Abs 23 #00017 - 200 208 
=eTFFLD Abs 56 #00038 - 519 

=eTFn Abs 241 ROOOF1 - 1007 516 523 
=eTFWRN Abs 88 #00058 - 818 
=eTNINF Abs 4 #00004 - 44 

=eT00 Abs 239 #OO0EF - 990 351 364 611 667 676 697 
=eTOOFI Abs 40 #00028 - 360 
=eTO0NI Abs 39 #00027 - 347 
=eTRKDN Abs 97 #00061 - = 903 
=eTRKOF Abs 229 HOOOES - 919 
=eTUFAS Abs 71 #00047 - 663 


=eTUSLO Abs 72 #00048 - 672 
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=eUALGN Abs 95 HOOOSF - 885 
=eUNFLW Abs 1 #00001 - 21 
=eUNKCD Abs 69 #00045 - 646 
=eUNORC Abs 20 #00014 - =: 176 
=eVALGN Abs 92 #0005C - 858 
=eVARTY Abs 50 #00032 - 469 
=eVCNTK Abs 50 #00032 - 460 469 
=eVFYER Abs 68 #00044 - 638 
=eWALGN Abs 91 #0005B - 849 
=eWRGNN Abs 73 #00049 - 681 
=eXFNNF Abs 34 #0022 - = wW1 
=eXWORD fAlbs 35 #00023 - 310 
=eZRDIV Abs 8 #00008 - 74 
=eZ2R0/0 Abs 7 #00007 - 67 
=enull Abs 0 #00000 - 15 


=eu/o Abs 235 #OOOEB - 967 388 399 410 


Saturn Assernbler MNainfrane Message Table 
Ver. 3.39/Rev. 2306 Statistics 


Input Paraneters 
Source file nane is TI8ERM:: MS 
Listing file nane is TI/ERM:TI:ML::-1 
Object file nane is TIZERN: TI:MS::-1 


114111 
012345678901 2345 
Initial flag settings are 
Errors 
None 
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Fri Dec 30, 1983 5:17 an 
Page 28 


Saturn Assenbler Keycode Map<831212.1206> Fri Dec 3, 1983 2:27 an 


Ver, 3.39/Rev. 206 Page 1 
1 * SSS. BBBB. & K kK ccc An fh 
2 . Ss $ B B&& KK (C C Hn An 
3 - S B B&& KK C nnn 
4 ‘ SSS BBBB & KK C Ant 
5 x SB B &&& KK C non 
6 x S S$ B B& & K K C CH A 
7 A SSS BBBB 8&& K «kK CCC Mm A 
8 k 
9 TITLE Keycode Map<831212. 1206> 
10 1FD24 ABS #1FD24 
11 
12 * The following keycodes are processed by KEYRD 
13 
14 =kcLC EQU 1 
15 =kH#LC = EQU 106 Lowercase toggle 
16 
17 =kcUSER EQU 3 
18 =kHUSER EQU 109 Usernode toggle 
19 
20 =kcCTRL EQU 10 
21 =kHCTRL EQU 158 CTRL prefix 
22 
23 =kcVIEW EQU 1 
24 =kAVIEW EQU 110 VIEW prefix 
25 
26 =kcUSEX EQU 12 
27 =kHUSEX EQU 165 VUSER 
28 
29 =kcLERR EQU 26 
BY) =kHLERR EQU 161 Last error nessage 
31 
32 * The following keycodes are processed by CHEDIT 
33 
34 =kc-CHR EQU =O 
35 =kH#-CHR EQU 104 Delete char 
36 
37 =kcI/R EQU 2 
38 =k#I/R EQU 105 Insert/Replace toggle 
39 
40 =kc-LIN EQU = 4 
4} =k#-LIN EQU 107 Delete through EOL 
42 
43 =kcFLFT EQU 5 
44 =kHFLFT EQU 159 Cursor far left 
45 
46 =kcFRT EQU 6 
47 =kKHFRT EQU 160 Cursor far right 
48 
49 =kcBKSP EQU 7 
50 =k#BKSP EQU 103 Backspace 
51 
52 =kcLFT EQU 8 
53 =kHLFT EQU 47 Cursor left 
54 


55 =kcRT EQU 9 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
63 
70 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
32 
93 
94 
95 
96 
97 
98 
39 
100 
101 
102 
103 


Keycode Map<831212.1206> 


=k#RT = EQU 48 


* The following keycodes will 


=kcEOL EQU 13 
=kREOL EQU 38 
=kcATTN EQU 14 
=kHATTN EQU 43 
=kcRUN EQU 15 
=k#RUN EQU 46 
=kcCONT EQU 16 
=k#CONT EQU 112 
=kcSST EQU 17 
=kK#SST EQU 102 
=kcUP = EQU 18 
=k#UP = EQU 50 
=kcDOWN EQU 19 
=k#DONN EQU 51 
=kcTOP EQU 20 
=k#TOP EQU 162 
=kcBOT EQU 21 
=k#BOT EQU 163 
=kcGON EQU 22 
=kHGON EQU 155 
=kcCALC EQU 23 
=kKRCALC EQU 111 
=kcOFF EQU 24 
=kHOFF EQU 99 
=kcLAST EQU 25 
=kHLAST EQU 164 
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Page 2 
Cursor right 


terninate CHEDIT 


Endline 


RTTN 


RUN 


CONT 


SST 


Up 


Down 


Top 


Botton 


g-ON 


CALC 


OFF 


Cornmand stack 


* The following are necessary key number definitions 


=k#1 EQuU 39 
=k#2 EQuU 40 
=k#3 EQuU 41 
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15? 1FD60 34 NIBASC \C\ 031 1F ASCII 
158 1F062 65 NIBASC \V¥\ 032 20 ASCII 


Ver. 3.39/Rev. 2306 Page 3 
104 
105 III I III AIT IIT IT II III ID ITT SII IA ITT SI III IIIS IIS ISIS III IIIT A 
106 $0 III III III TOIT IOI III IIIT IIIT ISI OSI IIIS ISAS 
107 ak 
108 ** Nane:(S) KEYCOD - Keycode Map 
109 x 
110 ** Category:  KEYUTL 
111 ax 
112 ** Purpose: Syster keycode nap. Maps keys to their 
113 es definition 
114 kh 
115 ak Entry: 
116 aX Do not enter 
117 k 
118 ** History: 
119 ak 
120 ax Date Prograrner Modification 
121 PRS. Ee see . te ee ee Saas 
122 kk 11/09/83 B.S. Added docunentation 
kx 
us JOIST ETT I 
125 23 II TOO OOS OSS SIS IO OS OSS OSS SOO TOI ITOK 
126 =KEYCOD EQU (*)-2 
127 1F024 15 NIBASC \Q\ 001 01 ASCII Q 
128 1FD026 75 NIBASC \W\ 002 02 ASCII W 
129 1FD28 54 NIBASC \E\ 003 03 ASCII E 
130 1FD2A 25 NIBASC \R\ 004 04 ASCII R 
131 1FD2C 45 NIBASC \T\ 005 05 ASCII T 
132 1FD2E 95 NIBASC \Y¥\ 006 06 ASCII Y 
133 1FD30 55 NIBASC \U\ 007 07 ASCII U 
134 1FD32 94 NIBASC \I\ 008 08 ASCII I 
135 17034 F4 NIBASC \0\ 009 09 ASCII 0 
136 1FD36 05 NIBASC \P\ 010 OA ASCII P 
137 1FD38 73 NIBASC \7\ 011 OB ASCII 7 
138 1FD3A 83 NIBASC \8\ 012 OC ASCII 8 
139 1FD3C 93 NIBASC \3\ 013 0D ASCII 9 
140 1FD3E F2 NIBASC \/\ 014 OE ASCII / 
141 1F040 14 NIBASC \A\ 015 OF ASCII A 
142 1FD42 35 NIBASC \S\ 016 10 ASCII S$ 
143 1FD44 44 NIBASC \D\ 017 11 ASCII D 
144 1FD46 64 NIBASC \F\ 018 12 ASCII F 
145 1FD48 74 NIBASC \G\ : 019 13 ASCII G 
146 1FD4A 84 NIBASC \H\ 020 14 ASCII H 
147 1FD4C A4 NIBASC \J\ 021 15 ASCII J 
148 1FD4E B4 NIBASC \K\ 022 16 ASCII K 
149 1FD50 C4 NIBASC \L\ 023 17 ASCII L 
150 1F052 D3 NIBASC \=\ 024 18 ASCII = 
151 1FD54 43 NIBASC \4\ 025 19 ASCII 4 
152 1F056 53 NIBASC \5\ 026 1A ASCII 5 
153 1FD58 63 NIBASC \6\ 02? 1B ASCII 6 
154 1FD5A AZ NIBASC \*\ 028 1€ ASCII * 
158 1FD5C AS NIBASC \Z\ 029 1D ASCII Z 
156 1FDSE 85 NIBASC \x\ 030 1£ ASCII X 
C 
V 
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159 1FD64 24 NIBASC \B\ 033 21 ASCII B 
160 1FD66 £4 NIBASC \N\ 034 22 ASCII N 
161 1FD68 D4 NIBASC \M\ 035 23 ASCII NM 
162 1FD6A 82 NIBASC \(\ 036 24 ASCII ( 
163 1FD6C 92 NIBASC \)\ 037 25 ASCII ) 
164 1FD6E DO CON(2) kcEOL 038 26 End Line key 
165 1FD70 13 NIBASC \1\ 039 2? ASCII 1 
166 1FD?2 23 NIBASC \2\ 040 28 ASCII 2 
167 1FD74 33 NIBASC \3\ 041 29 ASCII 3 
168 1FD76 D2 NIBASC \-\ 042 2A ASCII - 
169 1FD78 EO CON(2) KcATIN 043 2B ON key 
170 1FD7A BSS 2 044 2C F shift key(Unused) 
171 1FD7C BSS 2 045 2D G shift key(Unused) 
172 1FD7E FO CON(2) kcRUN 046 2E RUN key 
173 1FD80 80 CON(2) kcLFT 047 2F Cursor Left key 
174 1FD8&2 90 CON(2) kcRT 048 30 Cursor Right key 
175 1FD84 02 NIBASC \ \ 049 31 ASCII Space 
176 1FD86 21 CON(2) kcUP 050 32 Cursor Up key 
177 1FD88 31 CON(2) kcDOWN 051 33 Cursor Don key 
178 1FD8A DO CON(2) kcEOL 052 34 End Line key(botton half) 
179 1FD8C 03 NIBASC \O\ 053 35 ASCII 0 
180 1FD8E E2 NIBASC \.\ 054 36 ASCII . 
181 1FD90 C2 NIBASC \,\ 055 37 ASCII , 
182 1FD92 B2 NIBASC \+\ 056 38 ASCII + 
183 * f SHIFTED KEYS 
184 1FD94 00 CON(2) =tIF 057 39 Typing aid "IF " 
185 1F096 00 CON(2) =tTHEN 058 3A Typing aid " THEN " 
186 1FD38 00 CON(2) =tELSE 059 3B Typing aid " ELSE " 
187 1FD9A 00 CON(2) =tFOR 060 3C Typing aid "FOR " 
188 1FD9C 00 CON(2) =tTO 061 3D Typing aid " TO " 
189 1FDSE 00 CON(2) =tNEXT 062 3E Typing aid "NEXT " 
190 1FDRO 00 CON(2) =tDEF 063 3F Typing aid "DEF " 
191 1FDA2 00 CON(2) =tKEY 064 40 Typing aid "KEY " 
192 1FDR4 00 CON(2) =tADD 065 41 Typing aid "ADD " 
193 1FDA6 00 CON(2) =tLR 066 42 Typing aid “LR " 
194 1FDA8 00 CON(2) =tPREDV 06? 43 Typing aid “PREDV" 
195 1FDRA 00 CON(2) =tMEAN 068 44 Typing aid "MEAN" 
196 1FDAC 00 CON(2) =tSDEV 069 45 Typing aid "SDEV" 
197 1FDRE 00 CON(2) =tSQR 070 46 Typing aid "SQR(" 
198 1FDBO 00 CON(2) =tCALL 071 47 Typing aid "CALL " 
199 1FDB2 00 CON(2) =tGOSUB 072 48 Typing aid "GOSUB " 
200 1FDB4 00 CON(2) =tRETRN 073 49 Typing aid "RETURN " 
eO1 1FDBE OO CON(2) =tGOTO 074 4A Typing aid “GOTO " 
202 1FDB& 00 CON(2) =tINPUT 075 4B Typing aid "INPUT " 
203 1FDBA 00 CON(2) =tPRINT 076 4C Typing aid "PRINT " 
204 1FDRC 00 CON(2) =tDISP 07? 40 Typing aid “DISP " 
208 1FDBE 00 CON(2) =tDIM 078 4E Typing aid "DIN" 
206 1FDCO 00 CON(2) =tBEEP 079 4F Typing aid "BEEP " 
207 1FDC2 OO CON(2) =tFACT 080 50 Typing aid "FACT(" 
208 1FDC4 00 CON(2) =tSIN 081 51 Typing aid "SIN(" 
209 1FDC6 00 CON(2) =tCOS O82 52 Typing aid "COS(" 
210 1FDC8 00 CON(2) =tTAN 083 53 Typing aid "TAN(" 
211 1FDCA 00 CON(2) =tEXP 084 54 Typing aid "EXP(" 
212 1FDCC 00 CON(2) =tEDIT 085 55 Typing aid “EDIT " 


el3 1FDCE 00 CON(2) =tCAT 086 56 Typing aid “CAT " 
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214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
2H 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 


1FOD6 
1FDD8 
{FDDA 
1FDDC 
1FDDE 
1F DEO 
TFDE2 
1FDE4 
iFDE6 
1FDE8 
1FDEA 
1FDEC 
1FDEE 
1FDFO 
1FDF2 
1FOF4 
1FOF6 
1FDF8 
iFDFA 


1FOFC 
TF DFE 
1FEOO 
1FEO2 


1FEO4 
1FEO6 
1FEO8 
1FEOR 
1FEOC 
TFEOE 
1FE10 
{FEZ 
1FE14 
1FE16 
1FE18 
1FEIA 
1FEAIC 
{FETE 
1FE20 
1FE22 
1FE24 
1FE26 
1FE28 
1FE2A 
1FE2C 
1FE2E 
{FE 
1FE32 
1FE34 
1FE36 
1FE38 
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CON(2) =tNANE 
CON(2) =tPURGE 
CON(2) =tFETCH 
CON(2) =tLIST 
CON(2) =tDELET 
CON(2) =tAUTO 
CON(2) =tCOPY 
CON(2) =tRES 
CON(2) =tASIN 
CON(2) =tACOS 
CON(2) =tATAN 
CON(2) =tLOG 
CON(2) kcOFF 
BSS 2 

BSS 2 
CON(2) kcSST 
CON(2) kcBKSP 
CON(2) kc-CHR 
CON(2) kcI/R 
CON(2) kcLC 
CON(2) kc-LIN 
CON(2) =tRES 


CON(2) kcUSER 
CON(2) kcVIEW 
CON(2) keCALC 
CON(2) kcCONT 


NIBASC \q\ 
NIBASC \u\ 
RIBASC \e\ 
NIBASC \r\ 
NIBASC \t\ 
NIBASC \y\ 
NIBASC \u\ 
NIBASC \i\ 
NIBASC \o\ 
NIBASC \p\ 
NIBASC \?\ 
NIBASC \{\ 
NIBASC \}\ 
NIBASC \*\ 
NIBASC \a\ 
NIBASC \s\ 
NIBASC \d\ 
NIBASC \F\ 
NIBASC \g\ 
NIBASC \h\ 
NIBASC \j\ 
NIBASC \k\ 
NIBASC \1\ 
NIBASC \;\ 
NIBASC \$\ 
NIBASC \%\ 
NIBASC \&\ 


087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
093 
100 
101 
102 
103 
104 
105 
106 
107 
108 


109 
110 
111 
112 


113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
123 
1X” 
131 
132 
133 
134 
135 
136 
137 
138 
139 
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57 
58 
53 
5A 
5B 
5C 
5D 
5E 
5F 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
6A 
6B 
6C 


70 


71 
72 
73 
74 
75 
76 
77 
78 
79 
7A 
78 
7C 
70 
7E 
7F 
80 
81 
82 
83 
84 
85 
86 
8? 
88 
89 
8R 
8B 


Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
Typing aid 
OFF key 


Page 


"NAME." 
"PURGE " 
“FETCH " 
Hist’ 
“DELETE " 
"AUTO " 
“COPY " 
"RES" 
"RSIN(" 
"ACOS(" 
“ATAN(" 
"LOG (" 


F shift key(Unused) 
G shift key(Unused) 


SST key 
Back Space 
-CHAR key 
I/R key 
Lower Case 
-LINE key 
Typing aid 


key 


toggle 
"RES" 


2:27 ar 


5 


(Botton half of key) 
6D USER triode toggle key 
6E VIEW key 
6F CALC node key 


CONT key 


ASCII 
ASCII 
ASCII 
ASCIT 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCIT 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 


“GT Or CX e535 WM EQ 


~~ 


PON Mrs eH TO. TW HAH w 


g SHIFTED FUNCTIONS 
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269 1FE3A A3 NIBASC \:\ 140 8C ASCII : 
270 1FE3C A? NIBASC \z\ 141 8D ASCII z 
271 1FE3E 87 NIBASC \x\ 142 8& ASCII x 
272 1FE4O 36 NIBASC \c\ 143 8F ASCII c 
273 1FE42 67 NIBASC \v\ 144 90 ASCII v 
274 1FE44 26 NIBASC \b\ 145 91 ASCII b 
275 1FE46 £6 NIBASC \n\ 146 92 ASCII n 
276 1FE48 06 NIBASC \n\ 147 93 ASCII 
277 1FE4A BS NIBASC \[\ 148 94 ASCII [ 
278 1FE4C D5 NIBASC \}\ 149 95 ASCII ] 
279 1FE4E 91 CON(2) kcLAST 150 96 Conmrand stack 
280 1FESO 12 NIBASC \!\ 151 97 ASCII ! 
281 1FES2 22 NIBASC \"\ 152 98 ASCII " 
282 1FES4 32 NIBASC \#\ 153 99 ASCII # 
283 1FE56 04 NIBASC \@\ 154 9R ASCII @ 
284 1FE58 61 CON(2) kcGON 155 9B ON key 
285 1FE5A BSS e 156 9C F shift key(Unused) 
286 1FESC BSS 2 15? 9D G shift key(Unused) 
287 1FESE AD CON(2) kcCTRL 158 9E Control shift 
288 1FEGO 5O CON(2) kcFLFT 159 39F Cursor far left 
289 1FE62 60 CON(2) kcFRT 160 AO Cursor far right 
290 1FE64 Al CON(2) kcLERR 161 A1 ERRM (Last error message) 
291 1FE66 41 CON(2) kcTOP 162 A2 Cursor to top 
292 1FE68 51 CON(2) kcBOT 163 A3 Cursor to botton 
293 1FE6A 91 CON(2) kcLAST 164 A4 G End line key 
294 (Botton half of key) 
295 1FE6C CO CON(2) kcUSEX 165 AS 1USER 
296 1FE6E C3 NIBASC \<\ 166 AG ASCII < 
297 1FE70 £3 NIBASC \>\ 16? A? ASCII > 
298 1FE72 F3 NIBASC \?\ 168 A8 ASCII ? 


299 1FE74 END 
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=KEYCOD Abs 130338 #1FD22 - 126 
=kH#-CHR Abs 104 #00068 - 35 
=k#-LIN Abs 107 #OOO6B - 41 

=k#1 Rbs 39 #00027 - = 101 

=k#2 Abs 40 #00028 - 102 

=k#3 Abs 41 #00029 - = 103 
=kHATIN Abs 43 #0002B - 64 
=kH#BKSP Abs 103 #00067 - 50 
=kKHBOT Abs 163 #OOOR3 - 85 
=kHCALC Abs 111 #OOOGF - 91 
=k#CONT Abs 112 #00070 - 270 
=KHCTRL Abs 158 HOOOSE - 21 
=kH#DOWN Abs 51 #00033 - 79 
=kKHEOL Abs 38 #00026 - 61 
=kKHFLFT Abs 159 HOOOSF - 44 
=kHFRT = Abs 160 #000RQ0 - «47 
=k#GON Abs 155 #OOOSB - 88 
=kKHI/R = Abs 105 #00069 - 38 
=kHLAST Abs 164 #OOOR4 - 97 

=k#LC Abs 106 #OOOEGA - 15 
=kKHLERR Abs 161 #OOOA1 - HX 
=kKHLFT = Abs 47 #OO02F - 53 
=kKHOFF = Abs 99 #00063 - 94 

=k#RT Abs 48 #000 - 56 
=kHRUN = Abs 46 #0002E - 67 
=k#SST = Abs 102 #00066 - 73 
=kK#TOP = Abs 162 #OOOR2 - 82 

=kKHUP = Abs 50 #00032 - 76 
=kHUSER Abs 109 #0006D - 18 
=kHUSEX Abs 165 #OOORS - 27 
=kHVIEW Abs 110 HOOOGE - 24 
=kc-CHR Abs 0 #00000 - 34 231 
=kc-LIN Abs 4 #00004 - 40 234 
=kcATIN Abs 14 #O000E - 63 169 
=kcBKSP Abs ? #00007 - 49 20 
=kcBOT Abs 21 #00015 - 84 §=292 
=kcCALC Abs 23 #00017 - 9 239 
=kcCONT Abs 16 #00010 - 63 240 
=kcCTRL Abs 10 #OOOOR - 20 287 
=kcDOWN Abs 19 #00013 - 78 «177 
=kcEOL Abs 13 #0000D - 60 164 178 
=kcFLFT Abs 5 #00005 - = 443s 288 
=kcFRT Abs 6 #00006 - =« 446— 289 
=kcGON Abs 22 #00016 - 87 = 284 
=kcI/R Abs 2 #00002 - 37, 232 
=kcLAST Abs 25 #00019 - 96 279 293 
=kcLC Abs 1 #00001 - 14 233 
=kcLERR Abs 26 HOOOTR - 29° 29 
=kcLFT Abs 8 #00008 - 52. 173 
=kcOFF Abs 24 #00018 - 93 226 
=kcRT Abs 9 #00009 - 55 «174 
=kcRUN Abs 15 #OOOOF - 66 6172 
=kcSST Abs 17 #00011 - 72 229 
=kcTOP Abs 20 #00014 - 81 = 231 


=kcUP Abs 18 #00012 - 75 «176 
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=kcUSER 

=kcUSEX 

=kcVIEW 
tACOS 
tADD 
tASIN 
tATRN 
tRUTO 
tBEEP 
tCALL 
tCAT 
tCOPY 
tCOS 
tDEF 
tDELET 
tDIN 
tDISP 
tEDIT 
tE LSE 
tEXP 
tFACT 
tFETCH 
tFOR 
tGOSUB 
tG0T0 
tIF 
tINPUT 
tKEY 
tLIST 
tLOG 
tLR 
tNEAN 
tNANE 
tNEXT 
tPREDYV 
tPRINT 
tPURGE 
tRES 
tRETRN 
tSDEV 
tSIN 
tSQR 
tT AN 
tTHEN 
tTd 


Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


3 #00003 
12 #OOOOT 
11 #OOOOB 


Table 


7 

26 

23 
223 
192 
222 
224 
219 
206 
198 
213 
220 
203 
190 
218 
205 
204 
212 
186 
211 
207 
216 
187 
199 
201 
184 
202 
191 
217 
225 
193 
195 
214 
189 
194 
203 
215 
221 
200 
196 
208 
197 
210 
185 
188 


237 
295 
238 


235 


Fri Dec 30, 1983 


2:27 at 
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Input Paraneters 
Source file nane is SB&KCN:: MS 
Lasting file name is SB/KCM: TI:ML::-1 
Object file nane is SBZKCN: TI:MNS::-1 


141141 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assembler Neus 


2:39 an 
Page 1 
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Lextype Table <831212.1512> Fri Dec 30, 1983 


1 TITLE Lextype Table <831212.1512> 
2 1FE74 RBS HIFE?4 
3 * A BBBB & L X XxX TITTT 
4 & AR B B&& L xX x T 
5 * A AB B && L K X T 
6 & A A BBBB é L x T 
7 z AARAR B B &&8& L x Xx T 
8 & A AB B& & L xX Xx T 
9 & R A BBBB 6&& LLLLL XK xX T 
10 % 
14 ax Miscellaneous - type 0 
12 xx Letter - type 1 A-2 
13 ak Relational - type 2 <=>7H 
14 ak Nuneric - type 3 0-9 and decinal point 
15 
16 1FE74 =LXTYPT 
17 
18 1FE74 12 NIBASC \!\ BANG! 
19 1FE76 0 NIBHEX 0 
20 
21 1FE7? 22 NIBASC \"\ QUOTE 
22 1FE79 0 NIBHEX 0 
23 
24 1FE7R 32 NIBASC \#\ HATCH (NOTEQUAL) 
25 1FE7C 2 NIBHEX 2 
26 
27 1FE7D 42 NIBASC \$\ DOLLAR 
28 1FE7F O NIBHEX 0 
29 
3% 1FE80 00 CON(2) =t% PERCENT 
31 1FE82 0 NIBHEX 0 
32 
33 1FE83 00 CON(2) =té& AMPERSAND (CONCATENATE) 
34 1FE85 © NIBHEX 0 
35 
36 1FE86 72 NIBASC \’\ RPOSTROPHE 
37 1FE88 O NIBHEX 0 
38 
39 1FE&9 82 NIBASC \(\ LEFT PARENTHESIS 
40 1FE8B 0 NIBHEX 0 
41 
42 1FE8C 92 NIBASC \)\ RIGHT PARENTHESIS 
43 1FE8E 0 NIBHEX 0 
44 
45 1FE8F 00 CON(2) =t* ASTERISK (MULTIPLY) 
46 1FE91 0 NIBHEX 0 
47 
48 1FE92 00 CON(2) =t+ PLUS 
49 1FE94 0 NIBHEX 0 
50 
51 1FE95 00 CON(2) =tCONNMA CONMA 
52 1FE97 0 NIBHEX 0 
53 
54 1FE98 00 CON(2) =t- MINUS 
55 1FESA O NIBHEX 0 
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56 
57 
58 
$9 
60 
61 
62 
63 
64 
65 
66 
6? 
68 
69 
0 
71 
72 
73 
74 
75 
76 
7? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
ge 
93 
94 
95 
%6 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
10? 
108 
109 
110 


1FESB 
1FE9D 


1FESE 
1FERO 


iFEA1 
1FEA3 


1FER4 
1FER6 


1FEA? 
1FEAS 


1FEAA 
1FEAC 


1FEAD 
{FEAF 


1FEBO 
1FEB2 


1FEB3 
1FEBS 


1FEB6 
1FEB8 


1FEBS 
1FEBB 


1FEBC 
iFEBE 


TFEBF 
iFEC1 


iFEC2 
1FEC4 


TFECS 
TFEC? 


1FEC8 
1FECR 


iFECB 
iFECD 


1FECE 
TFEDO 


E2 
3 


00 
0 


E3 


9 
c 


Lextype Table <831212.1512> 


NIBASC \.\ 
NIBHEX 3 


CON(2) =t/ 
NIBHEX 0 


NIBASC \O\ 
NIBHEX 3 


NIBASC \1\ 
NIBHEX 3 


NIBASC \2\ 
NIBHEX 3 


NIBASC \3\ 
NIBHEX 3 


NIBASC \4\ 
NIBHEX 3 


NIBASC \S\ 
NIBHEX 3 


NIBASC \6\ 
NIBHEX 3 


NIBASC \?\ 
NIBHEX 3 


NIBASC \8\ 
NIBHEX 3 


NIBASC \9\ 
NIBHEX 3 


NIBASC \:\ 
NIBHEX 0 


CON(2) =tSEMIC 
NIBHEX 0 


NIBASC \<\ 
NIBHEX 2 


NIBASC 
NIBHEX 


CI 
“ 
“ 


NIBASC 
NIBHEX 


rn 


NIBASC \?\ 
NIBHEX 2 


2:39 an 
Page 2 
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PERIOD (DECIMAL POINT) 


SLASH (DIVIDE) 


ZERO 


ONE 


TWO 


THREE 


FOUR 


FIVE 


SIX 


SEVEN 


EIGHT 


NINE 


COLON 


SEMICOLON 


LESSTHAN 


EQUAL 


GRERTERTHAN 


INTERROGATIVE 


Saturn Assenbler 
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111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
182 
153 
154 
165 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 


1FED1 
{FED3 


1FED4 
1FEDG6 


1FED? 
1FEDS 


1FEDA 
1FEDC 


1FEDD 
TFEDF 


1FEEO 
1FEE2 


1FEE3 
{FEES 


1FEE6 
1FEE8 


1FEES 
1FEEB 


1FEEC 
1FEEE 


1FEEF 
1FEF1 


1FEF2 
{FEF4 


TFEFS 
1FEF? 


1FEF8 
{FEFA 


1FEFB 
1FEFD 


1FEFE 
1FFOO 


1FFO1 
1FFO3 


1FFO4 
1FFO6 


1FFO? 


04 
0 


~$ 


~“£ “S$ 


~3 
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NIBASC \@\ 
NIBHEX 0 


NIBASC \A\ 
NIBHEX 1 


NIBASC \B\ 
NIBHEX 1 


NIBASC \C\ 
NIBHEX 1 


NIBASC \D\ 
NIBHEX 1 


NIBASC \E\ 
NIBHEX 1 


NIBASC \F\ 
NIBHEX 1 


NIBASC \G\ 
NIBHEX 1 


NIBASC \H\ 
NIBHEX 1 


NIBASC \I\ 
NIBHEX 1 


NIBASC \J\ 
NIBHEX 1 


NIBASC \K\ 
NIBHEX 1 


NIBASC \L\ 
NIBHEX 1 


NIBASC \M\ 
NIBHEX 1 


NIBASC \N\ 
NIBHEX 1 


NIBASC \O\ 
NIBHEX 1 


NIBASC \P\ 
NIBHEX 1 


NIBASC \Q\ 
NIBHEX 1 


NIBASC \R\ 
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166 
16? 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
18? 
188 
189 
190 
191 
192 
193 
194 
195 
196 
19? 
198 
199 
200 
201 
202 
203 
204 


1FFOS 


1FFOR 
TFFOC 


1FFOD 
1FFOF 


1FF10 
1FF12 


1FFI3 
{FF 15 


1FF16 
1FF18 


1FFI9 
1FFIB 


{FRAC 
1FFIE 


1FFIF 
1FF21 


IFF22 
1FF 24 


1FF25 
1FF2?7 


1FF28 
iFF2A 


1FF2B 
iFF2D 


1FF2E 


1 


35 
1 


45 
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NIBHEX 1 


NIBASC \S\ 
NIBHEX 1 


NIBASC \T\ 
NIBHEX 1 


NIBASC \U\ 
NIBHEX 1 


NIBASC \V\ 
NIBHEX 1 


NIBASC \W\ 
NIBHEX 1 


NIBASC \X\ 
NIBHEX 1 


NIBASC \Y\ 
NIBHEX 1 


NIBASC \2Z\ 
NIBREX 1 


NIBASC \[\ 
NIBHEX 0 


CON(2) =tDIV 


NIBHEX 0 


NIBASC \)\ 
NIBHEX 0 


CON(2) =t* 


NIBHEX 0 
END 


Fri Dec 30, 1983 2:39 an 
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“ CINVOLUTION) 
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=LXTYPT Abs 130676 #1FE74 - 16 
tz Ext - x 
t& Ext - 33 
t® Ext - 45 
t+ Ext - 48 
t- Ext - 54 
t/ Ext - 60 
tCOMNA Ext - 51 
tDIV Ext - 195 
tSENIC Ext ~ 96 


t Ext - 201 
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Input Paraneters 
Source file nane 1s ABRLXT: MS 
Listing file nane is AB/LXT:TI:ML::-1 
Object file name is ABZLXT:TI:NS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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1 x SSS CCl & TITTT A BBBB 
2 * Ss S&C °C -8 8 T AA B B 
3 * $ C & & T A AB B 
4 x S33. 2E & T A A BBBB 
5 * $C &&& T AAAAR BB 
6 x Ss S$ € € & & T A AB B 
7 x SSS ccc && T A A BBBB 
8 k 
9 TITLE File Type Table 
10 1FF2E ABS = #1 FFE 
11 
12 
13 JURIST OIC OT TIT TT IS II TTI I IOI IS III III IIIT IA 
14 JU II OC ICO ICO ITO IST TT TOCK 
15 ak 
16 kk Narie: FIYPE - Mainfrane File Type Table 
17 ak 
18 ** Category:  FILUTL 
19 ak 
20 *k Purpose: 
21 ax This nodule contains the HP-71 File Type Table which 
22 xx defines the file types the HP-71 nainfrane recognizes. 
23 ak The table starts at address =FTYPE. This nodule does 
24 ak not contain any executable code. 
26 ak 
26 ak Entry: 
27 = None. 
28 ak 
29 ak Exit: 
30 x None. 
31 ak 
32 *k Calls: None. 
33 ik 
34 RRS RSet sc aes 
35 *k Inclusive: None. 
36 xk 
37 ** Stk lvls: None. 
38 ih 
39 *k Detail: 
40 ak 
41 a FILE TYPE TABLE FORMAT 
42 ak 
43 ae Size 
44 - Field (nibs) Meaning 
45 PR neil eloen 8 lee le ee eae eaee LS: 
46 ** Create code 1 QO: Nornal mainfrane file structure 
4? ax (BASIC, BIN, LEX, KEY, etc) 
48 BK File length measured in nibs, 
49 as arbitrary format, subheaders 
50 ie allowed 
51 a 1: DATA file structure; up to 65535 
52 as fixed length records of up to 
53 sc 65535 bytes each; subheaders not 
54 ae allowed; file is initialized to 


55 ad FF’s 
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56 ay 2: SDATA file structure; records are 

57 ak fixed length, 8 bytes each; file 

58 eK initialized to zeros; subheaders 

59 aK not alloued 

60 kh 4: TEXT file structure; records are 

61 x variable nunber of bytes; file 

62 ae initialized to FF’s; subheaders 

63 ak are not allowed 

64 4% . 8: Special handler routine required 

65 ax to create this file; systen will 

66 RR issue pCRT=8 poll 

67 ax 

68 ** Copy code 1 0: Normal nainfrane file structure; 

69 RK File can be copied into or out of 

70 aK HP-71 without aid fron LEX file; 

71 ak Inplerentation Field contains 

72 ak file length on external copy, 

73 aK but is not present after file 

74 ae header when file is in menory 

75 ae 1: DATA file structure; file can be 

76 ak copied into or out of HP-71 with 

77 i no aid fron LEX file; on external 
78 ak copy, the Inplenentation Field 
79 ak contains nunber of records and 

80 ax record length, and it is present 

31 cia lnnediately after file header 

82 a when file is in nerory 

83 ae 2: SDATA file structure; file can be 

84 ax copied into or out of HP-71 with 

85 ae no aid from LEX file; on external 

86 ax copy, the Inplerentation Field 

8? ax contains nunber of records, but 

88 ak 1s not present after file header 

89 _ when file 1s in memory 

% ae 4: TEXT file structure; file can be 

91 A copied into or out of HP-71 with 

92 ak no aid fron LEX file; on external 

93 is copy, the Inplerentation Field is 

94 a zero, and it is not present after 

95 aA file header when file is in 

96 - nenory 

97 a . 8: Special copy routine is required 

98 ax to copy file to or from HP-71; 

99 ax systen will issue pWCRD8 poll; 
100 AX Inplenentation Field is present 
101 ak after file header when file is 
102 ak in nenory 
103 ax 
104 ** Execution code 1 1: File is executable (can be run) 
105 aR O: File is not executable 
106 ex 
107 ** File data offset 2 Offset in nibs fron start of file 
108 Kx chain length field (in file header) 
109 abs to start of file data, skipping the 


110 ne Inplenentation Field, if present 
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111 
112 
113 
114 
115 
116 
11? 
118 
119 
120 
1214 
122 
123 
124 
125 
126 
127 
128 
129 
1% 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 
146 


147 
148 
149 
150 
151 
182 
153 


154 
155 
156 
152 
158 
159 
160 
161 


TFF2E 


TFF2E 110 
1FF31 00 
1FF33 4414 
4514 
02 
1FF3D 2 
TFF3E 0000 
1FF42 OOO 


1FF46 O01 
1FF49 00 
1FFAB 2414 
3594 
34 
1FF55 4 
1FF56 OOOO 
1FFSR O000 
1FFSE G000 
TFF 62 OOOO 


1FF 66 000 
1FF69 00 


File Type Table 


xx 
ax 
ax 
kx 
aK 
ax 
ax 
xk 
aK 
xk 
ak 
xx 
ax 
ak 
ax 
ak 
ax 
ak 
ak 
ax 
aK 
a 
aK 
Ka 
ak 
kx 
ax 
ak 


File type nane 10 


Nuriber of types 1 


LIF type numbers 4 
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after file header (see Copy code, 
above), and also skipping the 
subheader (if any); this value is 
used to calculate the subheader 
length, when present 


§ character ASCII nane of the file 
type as displayed by CAT; padded 
Hith trailing blanks 


Nunber of file type numbers used 
by this type of file to indicate 
SECURE or PRIVATE states, if 
allowed; up to four type nunbers 
nay be used: 


Type 
Nunber Protection Indicated 
First No protection 
Second SECURE 

Third PRIVATE 
Fourth SECURE and PRIVATE 


4 nibbles for each LIF type nunber 
indicated by the previous field 


FOI TIO I TO ITT TOO OR TO III K 
FOI TIO TO TOTTI III OK 


x 
=F TYPE 


*** DATA FILE (Interchange DATA File) 


NIBHEX 110 
CON(2) =oDAsod 
NIBASC \DATR \ 


CON(1) 
CON(4) 
CON(4) 
Axk BASIC FILE 
NIBHEX 001 
CON(2) =oBSsod 
NIBASC \BRSIC\ 


2 
=fDATA 
(=fDATA)+1 


CON(1) 4 

CON(4) =fBASIC 
CON(4) (=f BASIC) +14 
CON(4) (=fBASIC)+2 
CON(4) (=fBASIC)+3 
FILE 

NIBHEX 000 

CON(2) =oKYsod 


*aA KEY 


Secure DATA file 


Secure BRSIC 
Private BASIC 
Secure, private BASIC 
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162 


163 
164 
165 
166 
167 
168 
169 


170 
171 
1?2 
173 
174 
175 
176 


177 
178 
179 
180 
181 
182 


183 
184 
185 
186 
187 
188 


189 
19 
194 
192 
193 
194 
195 
196 
19? 


198 
199 
200 
201 
202 
203 
204 


1FF6B 


1FF75 
1FF76 
1FF7R 


1FF7E 
1FF81 
1FF83 


1FF 8D 
1FF8E 
1FF92 


1FF96 
1FF99 
1FF9B 


{FFAS 
iF FRG 


1FFAR 
1FFAD 
1FFAF 


1FFB9 
1FFBR 


1FFBE 
iFFC1 
1FFC3 


1FFCO 
1FFCE 
1FFO2 
1FFD6 
1FFDR 


1FFDE 
1FFEt 
{FFE3 


1FFED 
1FFEE 
1FFF2 
1FFF6 
1FFFR 


6454 
9502 
02 

2 
0000 
0000 


440 
00 
4554 
8545 
02 

2 
1000 
1DOE 


440 
4) 
C494 
6413 
02 

1 
1000 


220 
0 
3544 
1445 
14 

1 
ODOE 


001 
00 
2494 
£402 


C454 
8502 
02 

4 


0000 
0000 
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NIBASC \KEY \ 
CON(1) 2 


CON(4) =f KEY 
CON(4) (=FKEY)+1 Secure KEYS 


Ree TERT PELE 


NIBHEX 440 
CON(2) =oTXsod 
NIBASC \TEXT \ 


CON(1) 2 
CON(4) 1 
CON(4) #EOD1 Secure TEXT 


aX LIF1 FILE (sane as TEXT) 


NIBHEX 440 
CON(2) =oTXsod 
NIBASC \LIF1 \ 


CON(1) 1 
CON(4) 1 


KKK SDATA FILE (Series 40 Data File) 


+x BIN 


aK LEX 


KKKK 


NIBHEX 220 
CON(2) =041sod 
NIBASC \SDATA\ 


CON(1) 1 

CON(4) #EODO 

FILE (Binary File) 
NIBHEX 001 

CON(2) =oBNsod 
NIBASC \BIN \ 


CON(1) 4 

CON(4) =fBIN 

CON(4) (=fBIN)+1 Secure BIN 

CON(4) (=fBIN)+2 Private BIN 

CON(4) (=FBIN)+3 Secure, private BIN 
FILE (Langauge Extension File) 

NIBHEX 001 

CON(2) =oLXsod 

NIBASC \LEX \ 


CON(1) 4 

CON(4) =F LEX 

CON(4) (=f LEX)+1 Secure LEX 

CON(4) (=f LEX)+2 Private LEX 

CON(4) (=f LEX)+3 Secure, private LEX 
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205 1FFFE FF NIBHEX FF TERMINATES TABLE 
206 x 
207 20000 END 
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=FTYPE 
fFBASIC 
FBIN 
fDATA 
fKEY 
FLEX 
041sod 
oBNsod 
oBSsod 
oDAsod 
oKkYsod 
oLXsod 
olXsod 


Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


13862 #IFF2E 


File Type Table 


Table 


142 
165 
190 
148 
164 
199 
181 
187 
162 
145 
161 
196 
168 


156 
191 
149 
165 
200 


175 
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157 158 
192. 193 
201 = 202 
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Input Paraneters 
Source file nane is SC&TAB::MS 
Listing file name is SC/TAB:TI:ML::-1 
Object file nane is SCZTAB: TI:MS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler Neus 
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1 
2 
3 
4 
5 
6 
7 
8 
9 





2E100 


2E100 
2E101 
2E102 
2E104 
2E160 
2E1F8 
CEFF 
2E200 
2E260 
2E2F3 
2E2FF 
2E300 
2E34C 
2E34C 
2E34E 
2E350 
2E3F 8 
2E3FE 
2E3FF 


2F400 
2F410 
2F420 
2F430 


2F438 
2F43C 
OF44 1 
2F442 
2F442 
2F 443 
2F444 
2FAG2 
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x SSS. BBBB 8 RRRR A Mn ON 
x S S$ B B && R R AA AM AM 
>. B B&& R RA AR 
, SSS. BBBB& RRRR A A AA 
% S B B&&& RR AARAA NH A 
x S$ $ B B& & RR A AH ST 
. SSS. BBBB 888 R R A AM A 
x 

TITLE Syster RAN Declarations<831212.1206> 

ABS = #2E 100 
TI SII I IAI IS IITA I ITI DIT IIIT TTI IIIT IIIS ITI IIIS IIIT II IIIT IAS 
ih ak 
eR Systen RAM Allocation ax 
pe ka 


FOI GIO OOO TTT IIT IIT TEI K 
x 


* * * Display driver addresses 


=ANNAD1 BSS 1 Annunciator colurn 1 
=ANN1.5 BSS 1 

=ANNAD2 BSS 2 Annunciator colunn 2 
=DD3ST BSS #2E160-* Start of display driver 3 
=DD3END BSS H#2E1F8-* End of display driver 3 
=TINER3 BSS HEIFF-* Tiner 3 

=DD3CTL BSS 1 Display driver 3 control nibble 
=DD2ST BSS #2E260-* Start of display driver 2 
=DDZEND BSS #2E2F8-* End of display driver 2 
=TINER2 BSS H2E2FF-* Tiner 2 

=DD2CTL BSS 1 Display driver 2 control nibble 
=DD1ST BSS #2E34C-* Start of display driver 1 
=DD1END End of display driver 1 
=ANNAD3 BSS 2 Annunciator colurin 3 
=ANNAD4 BSS 2 Annunciator colurin 4 
=ROWOVR BSS #2E3F8-* Row Drivers 

=TIMER1 BSS #2E3FE-* Tiner 4 

=DCONTR BSS H2E3FF-* Display contrast nibble 
=DBICTL BSS #2F400-* Display driver 1 control nibble 
x 

x * k Start of interrupt RAN 

x 

sINTR4 BSS 16 (R4 and DO) 

=INTA = BSS 16 (A req) 

=INTB BSS 16 (B reg) 

=INTIN BSS 8 Mode, Pointer,Carry,RSTK 

x 

* * * End of interrupt RAN 

x 

=CNOSTV EQU #168F Value for CNOS test word 
=CMOSTW BSS 4 CMOS test word 

=VECTOR BSS 5 Interrupt vector 

=RTNDIS BSS 1 Attention disable flag 
=OFFFLG 

=AINFLG BSS 1 Attention key hit flag 
=KEYPTR BSS 1 Key buffer pointer 
=KEYBUF BSS 15*2 Key buffer 

=KEYSAV 
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56 2F462 =KCOLD BSS 1 14th colunn keynap( LSB=Botton row) 
57 2F463 =KCOLC BSS 1 13th 
58 2F464 =KCOLB BSS 1 12th 
59 2F465 =KCOLR BSS 1 11th 
60 2F466 =KCOL9 BSS 1 10th 
61 2F467 =KCOL8 BSS 1 9th 
62 2F468 =KCOL7 BSS 1 8th 
63 2F469 =KCOL6 BSS 1 7th 
64 2F46A =KCOL5 BSS 1 6th 
65 2F46B =KCOL4 BSS 1 Sth 
66 2F46C =KCOL3 BSS 1 4th 
67 2F46D =KCOL2 BSS 1 3rd 
68 2F46E =KCOL1 BSS 1 2nd 
69 2F46F =KCOLO BSS 1 ist 
70 
71 2F470 =DISINT BSS 1 Interrupt ignore flag 

{ 72 used 1n keyscan 
j 73 & 
: 74 * The following mnerory is used by pseudo-device display driver 
75 x 
76 2F471 =WINDST BSS 2 Window start 
77 2F473 =WINDLN BSS 2 Window len 
78 2F475 =DSPSTA BSS 6 User status save, Dsp status save 
79 2F47B =ESCSTA BSS 1 Escape status 
80 2F47C =FIRSTC BSS 2 Buffer position of 1st chr in disp 
81 2F47£ =CURSOR BSS 2 Buffer position of cursor 
82 2F480 =DSPBFS BSS  — 2*96 96 character buffer (2 nibs/char) 
83 2F540 =DSPBFE 
84 2F540 “DSPMSK BSS 96/4 96 bits (4 bits/nib) 
85 
86 ; Syster Pointer Allocations 
87 
88 2F558 =MAINST BSS 5 Main Program Menory Start 
89 x 
90 2F55D =UPD1ST Start of Update Addresses #1 
91 2F55D =CURRST BSS 5 Current File Start 
92 2F562 =PRGNST BSS 5 Current Progran Start 
93 2F567 =PRGMEN BSS 5 Current Progran End 
94 2F56C =CURREN BSS 5 Current File End 
95 2F571 =IOBF ST Start of 1/0 Buffers 
96 2F571 =MAINEN BSS 5 Main Program Meriory End 
97 2F576 =IOBFEN End of 1/0 Buffers 
98 2F576 =CLCBFR BSS 5 Calc Mode Pointers 
99 2F57B =RFNBFR BSS 5 
100 2F580 =RAWBFR BSS 5 
101 2F585 =CLCSTK BSS 5 Calc Stack token strean start 
102 x SYSEN, QUTBS, AVNENS collapsed 
103 a here by MAINLP 
104 2F58A =SYSEN BSS 5 End of RAN used by Systen 
105 - QUTBS and AVNENS collapsed 
106 x here at End of Parse, Deconpile, 
107 x TRANSFORM 
108 2F58F =QUTBS BSS 5 Output Buffer Start 
109 * Start of Output for Parse/Decorip 
110 2F594 =AVNENS BSS 5 Available Menory Start 
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111 2F599 =UPDIEN End of Update Addresses #1 

112 * 

113 2F599 =TASTK 

114 2F599 =NTHSTK Rrithnetic Stack 

115 2-599 =AVMENE BSS 5 End of Available Nerory 

116 x (AVMENE collapsed to SAVSTK 

117 x after statenent execute) 

118 2FS9E =SAVSTK Save Area Stack Pointer 

119 2F59E =TFORN 

120 2F59E =FORSTK BSS 5 FOR Stack 

121 2F5A3 =TGSBS 

122 2F5A3 =GSBSTK BSS 5 GOSUB Stack 

123 2F5A8 =ACTIVE BSS S Active Variable Space 

124 2FSAD =CALSTK BSS 5 CALL Stack 

125 2F5B2 =RANEND BSS 5 End of Menory 

126 e 

12? * Variable Chain pointers 

128 . 

129 2F5B?7 =PRNPTR BSS 7 Paraneter Chain Pointer 

130 2F5BE =CHNLST Variable Chain Head Pointer List 

131 2F5BE BSS 26*7 26 Chains (7 nibbles per chain) 

132 ; 

133 - 

134 * —PCRDDR through TNADR3 adjusted by RFADJ+ 

135 x —PCADDR through DATPTR saved by CALL 

136 : CNTADR through TMADR3 zeroed by CLRSTK/CLPSTK 

137 

138 2F674 =UPD2ST Start of Update Addresses #2 

139 2F674 =DSPCHX BSS 5 Pointer to external display code 

140 2F679 =PCADDR BSS 5 Progran Counter @ Statenent length 

141 2F67E =CNTADR BSS 5 Continue Address 

142 2F683 =ERRSUB BSS 5 ON ERROR-GOSUB Return Address 

143 2F688 =ERRADR BSS 5 ON ERROR Statenent Address 

144 2F68D =ONINTR BSS 5 ON INTRPT Statenent Address 

145 2F692 =DATPTR BSS 5 BATA Statenent Pointer 

146 2F697 =TMRAD1 BSS 5 ON TINERH1 Statenent Address 

147 2F69C =TMRADZ BSS 5 ON TINER#2 Statenent Address 

148 2F6A1 =TMRAD3 BSS 5 ON TIMER#3 Staterent Address 

149 2F6A6 =UPDZEN End of Update Addresses #2 

150 . 

151 * Tiner Intervals 

152 . 

153 2F6R6 =TMRINI BSS 8 TINER#1 Interval 

154 2F6RE =TMRIN2 BSS 8 TIMNER#2 Interval 

155 2F6B6 =TMRIN3 BSS 8 TINERH3 Interval 

156 x 

157 2F6BE =STSAVE BSS 3 Status saved during Expr Execute 

158 2F6Ct =LDCSPC BSS 5 Addr of space after line nuriber 

159 : 

160 2Fe6C6 =INBS = BSS 5 Input buffer start 

161 2F6CB =AUTINC BSS 4 Increnent value for AUTO 

162 2F6CF =LEXPTR BSS 5 Tenporary storage for RESPIR 

163 2F6D4 =CMDPTR Cormand stack pointer 

164 2Fo4 =INADDR BSS 5 Strt Len ptr for parse & deconpile 
zk 
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166 * Systen and user flags 
167 k 
168 a (Within each nibble, the lowest bit 1s the louest 
169 ‘ absolute value flag nunber) 
170 x 
171 2F6D9 =SYSFLG Systen flags 
172 2F6D9 BSS 1 Flags -1 ... -4 
173 2F6DA BSS 1 Flags -5 ... -8 
174 2F6DB BSS 1 Flags -9 ... -12 
175 2Feoc BSS 1 Flags -13 ... -16 
176 2F60D BSS 1 Flags -17 ... -20 
177 2F6DE BSS 1 Flags -21 ... -24 
178 2F6DF BSS 1 Flags -25 ... -28 
179 2F6EO BSS 1 Flags -29 ... -32 
180 2F6E1 BSS 1 Flags -33 ... -36 
181 2F6E2 BSS 1 Flags -37 ... -40 
182 2F6E3 BSS 1 Flags -41.... -44 
183 2F6E4 BSS 1 Flags -45 ... -48 
184 2F6E5 BSS 1 Flags -49 ... -52 
185 2F6E6 BSS 1 Flags -53 ... -56 
186 2F6E7 BSS 1 Flags -57... -60 
187 2F6E8 BSS 1 Flags -61 ... -64 
188 2F6E9 =FLGREG User flags 
189 2F6E9 BSS 1 Flags 0... 3 
190 2F6ER BSS 1 Flags 4... 7 
191 2F6EB BSS 1 Flags 8... 11 
192 2F6EC BSS 1 Flags 12... 15 
193 2F6ED BSS 1 Flags 16... 19 
194 2F6EE BSS 1 Flags 20... 23 
195 2F6EF BSS 1 Flags 24... 27 
196 2F6FO BSS 1 Flags 28... 31 
197 2F6F1 BSS 1 Flags 32... 35 
198 2F6F2 BSS 1 Flags 36... 39 
199 2F6F3 BSS 1 Flags 40... 43 
200 2F6F4 BSS 1 Flags 44... 4? 
201 2F6F5 BSS 1 Flags 48... 51 
202 2F6F6 BSS 1 Flags 52... 55 
203 2F6F? BSS 1 Flags 56... 59 
204 2F6F8 BSS 1 Flags 60... 63 
205 =DSPFAT EQU (FLGREG)-13 STD=0, FIX=1,SCI=2, ENG=3 
206 =DSPDGT EQU (FLGREG)-12 
207 2F6F9 =TRPREG IEEE exception traps 
208 2F6F9 =INXNIB BSS 1 Inexact result trap 
209 2FOFA =UNFNIB BSS 1 Underflou trap 
210 2F6FB =OVFNIB BSS 1 Overflou trap 
211 2FerC =DVZNIB BSS 1 Divide by zero trap 
212 2F6FD =IVLNIB BSS 1 Invalid result trap 
213 x 
214 * Randon Nunber Seed 
215 * 
216 2F6FE =RNSEED BSS 15 
217 iB 
218 * Alarn Clock Systen RAN 
219 : 

x 


220 
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21 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
23? 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
262 
253 
254 
200 
256 
cor 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
e7e 
273 
274 
275 


2F 70D 
2F 719 
2F 725 
2F 731 
2F 730 
2F 749 
2F 755 
2F 761 


2F 763 
2F 76F 
2F 778 
2F 787 


2F 78D 
2F 78D 
2F 794 
2F 798 
2F 7A2 


2F 7A9 
2F 7AC 
2F 7AD 
2F 780 
2F 781 


2F 7B2 
2F 702 


2F 7E4 
2F 7E8 
2F 7EC 


oF 7FO 
OF SIF 
2F 820 


2F 870 
2F 871 
2F 871 
2F 871 
2F 876 
2F 878 
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=NXTIRQ 
=ALRM1 
=ALRM2 
=ALRN3 
=ALRM4 
=ALRNS 
=ALRM6 
=PNDALN 
& 


BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 


* Storage 


od 


=TINOFS 
=TINLST 
=TINLAF 
=TINAF 


=LOOPST 
=STATAR 
=TRACEN 
=DSPSET 


» 


LOCKUD 
RESREG 


ee we FH we He Oe 


ERR# 


" 
mom 
Dow 
70 70 2 
cn 2 
3= 


- 


= SNAPBF 
=RSTKBp 
=RSTKBF 


* 


- 


=MLFFLG 
=LBLIN# 
=STNTRO 
=5-RO-O 
=S-RO-1 
=S-RO-2 


BSS 
BSS 
BSS 
BSS 


BSS 
BSS 
BSS 
BSS 


BSS 
BSS 
BSS 
BSS 
BSS 


BSS 
BSS 


12 
12 
12 
12 
12 
12 
12 
2 
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Tine of next SREQ 

ON TIMER #1 

ON TIMER #2 

ON TIMER #3 

Tineout 

Pause 

External alarn 

Bitnap of pending alarns 


needed for accuracy factor stuff 


12 
12 
12 
6 


wa NINOS 


--w-w 


8*2 
34 


Tine error offset 

Tine last set 

Tine of last AF correction 
Accuracy Factor 


Table of "IS" assignnents 


HP-IL Mailbox pointer 

HP-IL loop status 

Statistical array nane 

TRACE MODE (0,2,4,6) 

Display device set up on HPIL 


Password 


Result register 


through ERRL# are position dependent 


BSS 
BSS 
BSS 


BSS 
BSS 
BSS 


BSS 


BSS 
BSS 
SS 


4 
4 
4 


Snapshot Buffer and Return 


16416+5+5+5 
1 
16%*5 


monn 


Execution Error Nuriber 
Current Line# Referenced 
Execution Error Line# 
Stack Save Buffer 
Snapshot Buffer 


Return Stack Save Buffer Pointer 
Return Stack Save Buffer 


Multi-Line Function Flag 


Statenent scratch RAN 
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276 2F880 
277 

278 2F 881 
279 2F 8814 
280 2F 886 
281 2F88B 
282 2F890 
283 

284 2F 891 
285 2F 896 
286 

287 2F89B 
288 2F89B 
289 2F8AO 
290 2F8A5 
291 2F8RA 
292 

293 2F8RB 
294 2F8AB 
295 2F8B0 
296 2F 8B 
297 2F8BA 
298 

299 2F8BB 
HO 2F8CO 
1 

He 

3 

4 2F8C5 
5 

6 

7 2FW1 
HB 2F 91 
9 2F941 
310 2F946 
311 2F948 
312 2F94A 
313 2F94B 
314 2F94D 
315 2F94F 
316 2F951 
317 2F956 
318 2F958 
319 2F95A 
320 2F95B 
321 2F961 
322 2F966 
323 2F967 
324 2F96F 
325 2F971 
326 

32? 

328 2F976 
329 

330 2F977 
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=S-RO-3 BSS 
k 


Mw Ho hott 


eH HHH Ww ei HR OW RON 


=FUNCDO BSS 
=FUNCD1 BSS 
x 


* TRANSFORM Scratch RAN 
x 


=TRFNBF BSS 
& 


* 


=SCRICH 

=SCRSTO BSS 
=SCREXO BSS 
=SCROLT BSS 
=DELAYT BSS 
=NEEDSC BSS 
=PRNCNT BSS 
=DPOS = BSS 
=DWIDTH BSS 
=SCREX1 BSS 
=PPOS = BSS 
=PWIDTH BSS 
=EOLLEN BSS 
=EOLSTR BSS 
=SCREX2 BSS 
=SCRPTR BSS 
=DEFRDR BSS 
=CHNASV BSS 


=SCREX3 BSS 
x 


MAXCND BSS 


1b oe fle 


CSPEED BSS 


1 


"mom — now nan - nono 


Tm 


60 


BY 

e 
— 
a 


SEO: VR SRS EOIN RD ROSIN DS 
w 


Function scratch RAM 


Used by TRANSFORM cormand 


Scratch RAN 

Scratch stack (Mantissas & signs) 
Scratch stack exponent 0 
Character scroll tiner --- 
Display tineout value | 
Scroll node needed | 11 
CALL paraneter count | 
Current DISP column | 
DISP width --- 
Scratch stack exponent 1 
Current PRINT colunn --- 
PRINT width | 14 
Length of ENDLINE string | 
ENDLINE string (3 chars tiax- 
Scratch stack exponent 2 
Scratch stack pointer a 
Key definition info | 11 
Channel # save k= 
Scratch stack exponent 3 


Nurber of cornand stack entries 


Clock speed (Hz/16) 
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341 x 
332 * 
333 * The following 10 nibbles are used by HP-IL ROM 
334 z 
335 2F97C =ERRLCH BSS { Error latch 
336 2F97D =TERCHR BSS 2 Terminating character for ENTER 
337 2F97F =HPSCRH BSS 7 HP-IL Reserved. 
338 (INTPND, ICAUSE , INASK, LSTDDC ) 
333 x 
340 * The following RAM has been set aside for allocation at 
41 x a later tire. It is not used by the nainfrane except 
42 . that is zeroed at cold start. 
343 x 
344 2F 986 =RESERV BSS 48%2 Reserved Menory. 
345 x 
46 - Configuration table and other I/0 buffers 
347 x 
348 2F9E6 =CONFST 


349 2F9E6 END 
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=ACTIVE Abs 193960 #2F5A8 - 123 
=ALRM1 = =Abs 194329 #2F719 - 222 
=ALRN2 Abs 194341 #2F725 - 223 
=RALRN3 Abs 194353 #2F731 - 224 
=RLRN4 = Abs 194365 H2F73D - 225 
=ALRNS Abs 194377 #2F749 - 226 
=ALRNG Abs 194389 #2F755 - 227 


=ANN1.5 Abs 188673 #2E101 - 19 
=RNNAD1 Abs 188672 #2E100 - 18 
=ANNAD2 Abs 188674 H2E102 - 20 
=ANNAD3 Abs 189260 #2E34C - 31 
=ANNAD4 Abs 189262 #2E34E 32 
=ATNDIS Abs 193601 #2F441 50 


=RTINFLG Abs 193602 H2F442 - 52 
=RUTINC Abs 194251 #2F6CB - 161 
=AVNEME Abs 193945 #2F599 - 115 
=AVMENS Abs 193940 #2F594 - 110 
=CALSTK Abs 193965 H2F5AD - 124 
=CHNHSV Abs 194927 H2F96F - 324 
=CHNLST Abs 193982 #2F5BE - 130 


=CLCBFR Abs 193910 #2F576 - 98 
=CLCSTK Abs 193925 #2F585 - 101 
=CMDPTR Abs 194260 H2F6D4 - 163 
=CMOSTV Abs 5775 #O168F - 47 
=CMOSTH Abs 193592 #2F438 - 48 
=CNTADR Abs 194174 #2F67E - 141 
=CONFST Abs 195046 H2F9E6 - 348 
=CSPEED Abs 194935 H2F977 - 3% 
=CURREN Abs 193900 #2F56C - 94 
sCURRL Abs 194536 H2F7E8 - 259 
=CURRST Abs 193885 #2F55D - 91 
=CURSOR Abs 193662 H2F47E - 81 
=DATPTR Abs 194194 #2F692 - 145 
=DCONTR Abs 189438 H2E3FE - 35 
=DDICTL Abs 189439 H2E3FF - 36 
=DDIEND Abs 189260 #2E34C - 30 
=DDIST Abs 189184 #2E300 - 29 
=PD2CTL Abs 189183 H2E2FF - 28 
=DD2END Abs 189024 #2E260 - 26 
=DD2ST Abs 188928 #2E200 - 25 
=DD3CTL Abs 188927 H2E1FF - 24 
=DD3END Abs 188768 #2E160 - 22 
=DD3ST Abs 188676 #2E104 - 21 


=DEFADR Abs 194919 #2F967 - 323 
=DELAYT Abs 194888 #2F948 - 311 


=DISINT Abs 193648 #2F470 - 71 
=DPOS Abs 194893 #2F94D - 314 
=DSPBFE Abs 193856 #2F540 - 83 
=DSPBFS Abs 193664 #2F480 - 82 


=DSPCHX Abs 194164 #2F674 - 139 
=DSPDGT Abs 194269 #2F6DD - 206 
=DSPFMNT Abs 194268 #2F6DC - 205 
=DSPMSK Abs 193856 #2F540 - 84 
=DSPSET Abs 194481 #2F7B1 - 247 
=DSPSTA Abs 193653 #2F475 - 78 


Saturn Assenbler Systen RAM Declarations<831212 Fri Dec 3, 1983 2:20 an 
Ver. 3.39/Rev. 2306 Synbol Table Page 9 


=DVZNIB Abs 194300 H2FOFC - = 211 
=DUIDTH Abs 194895 #2F94F - 315 
=EGLLEN Abs 194906 #2F95A - 319 
=EOLSTR Abs 194907 #2F35B - 320 
=ERR# Abs 194532 #2F7E4 - 268 
=ERRADR Abs 194184 #2F688 - 143 
=ERRL# Abs 194540 #2F7EC - 260 
=ERRLCH Abs 194940 #2F97C - 335 
=ERRSUB Abs 194179 #2F683 - 142 
=ESCSTA Abs 193659 #2F47B - 279 


=F-RO-0 Abs 194715 #2F89B - 288 
=F-RO-1 Abs 194720 H2F8RO - 289 
=F-RO-2 Abs 194725 #2F8A5 - 290 
=F-RO-3 Abs 194730 #2F8AA - 291 
=F-R1-0 Abs 194731 #2F8AB - 294 
=F-R1-1 Abs 194736 #2F8BO - 295 
=F-R1i-2 Abs 194741 #2F8B5 - 296 
=F-R1-3 Abs 194746 #2F8BA - 297 


=FIRSTC Abs 193660 #2F47C - 80 
=FLGREG Abs 194281 #2F6E9 - 188 205 206 
=FORSTK Abs 193950 #2F59E - 120 
=FUNCDO Abs 194747 #2F8BB - 299 
=FUNCD1 Abs 194752 #2F8(O - 300 
=FUNCRO Abs 194715 #2F89B - 287 
=FUNCR1 Abs 194731 4#2F8AB - 293 
=GSBSTK Abs 193955 #2F5A3 - 122 
=HPSCRH Abs 194943 #2F97F - 337 
=INADDR Abs 194260 #2F6D4 - 164 
=INBS Abs 194246 #2F6C6 - 160 


=INTA Abs 193552 #2F410 - 41 
=INTB Abs 193568 #2F420 - 42 
=INTM Abs 193584 #2F430 - 43 
=INTR4 Abs 193536 #2F400 - 40 
=INXNIB Abs 194297 #2FOF9 - 208 
=IOBFEN Abs 193910 #2F576 - 37 
=IOBFST Abs 193905 #2F571 - 95 


=IS-DSP Abs 194445 H2F78D - 238 
=IS-INP Abs 194459 #2F79B - 240 
=IS-PLT Abs 194466 #2F7A2 - 241 
=IS-PRT Abs 194452 #2F794 - 239 
=IS-TBL Abs 194445 #2F78D - 237 
=IVLNIB Abs 194301 #2FOFD - 212 


=KCOLO = =Abs 193647 H2F46F - 69 
=KCOL1 Abs 193646 #2F46E - 68 
=KCOLC Abs 193645 #2F46D - 67 
=KCOL3 Abs 193644 #2F460 - 66 
=KCOL4 = Abs.) 193643 #2F46B - 65 
=KCOLS Abs 193642 #2F4OR - 64 
=KCOL6 Abs 193641 #2F469 - 63 
=KCOL? Abs 193640 #2F468 - 62 
=KCOL8 Abs 193639 #2F467 - 61 
=KCOLS «Abs 193638 #2F466 - 60 
=KCOLA Abs 193637 #2F465 - 59 
=KCOLB Abs 193636 #2F464 - 58 


1 


=KCOLC Abs 193635 #2F463 S7 
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=KCOLD 
=KEYBUF 
=KEYPTR 
=KEYSAV 
=LBLIN® 
=LDCSPC 
=LEXPTR 
=LOCKWD 
=LOOPST 
=MAINEN 
sMAINST 
=MAXCND 
=MBOX* 
=MLFFLG 
=MTHSTK 
=NEEDSC 
=NXTIRQ 
=OFFFLG 
=ONINTR 
=QUTBS 
=OVFNIB 
=PCADDR 
=PNDALA 
=PPO0S 
=PRGOMEN 
=PRGMST 
=PRNCNT 
=PRAPTR 
=PWIDTH 
=RANEND 
=RAUBFR 
=RESERV 
=RESREG 
=RFNBFR 
=RNSEED 
=ROWDVR 
=RSTKBF 


=SCREX2 
=SCREX3 
=SCROLT 
=SCRPTR 
=SCRSTO 
=SCRTCH 


fibs 
Rbs 
Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
fibs 
fibs 
Abs 
fibs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
flbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
flbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


193634 
193604 
193603 
193634 
194673 
194241 
194255 
194482 
194476 
193905 
19388 
194934 
194473 
194672 
193945 
194890 
194317 
193602 
194189 
193935 
194299 
194169 
194401 
194902 
193895 
193890 
194891 
193975 
194304 
193970 
19392 
194950 
194498 
193915 
194302 
189264 
194592 
194591 
194673 
194678 
194683 
194688 
194689 
194694 
194699 
194704 
193950 
194881 
194897 
194313 
194929 
194886 
194918 
1943817 
194817 


Systen 
Synbol 


#2F 462 
#2F 444 
#2F 443 
#2F 462 
#2F 871 
#2F6C1 
#2F 6CF 
#2F 7B2 
#2F 7AC 
#2F574 
#2F 558 
#2F 976 
#2F 7A9 
#2F 870 
#2F599 
#2F 94A 
#2F 70D 
#2F442 
#2F 68D 
H2F S8F 
#2F 6FB 
#2F679 
#2F 761 
#2F 956 
#2F 567 
#2F 562 
#2F 94B 
#2F5B7 
#2F 958 
#2F5B2 
#2F 580 
H2F 986 
#2F 702 
#2F57B 
H2F6FE 
#2E 350 
#2F 820 
#2F 81F 
#2F 874 
#2F 876 
#2F87B 
#2F 880 
#2F 881 
#2F 886 
#2F88B 
#2F 890 
H2FS9E 
#2F 941 
#2F 951 
#2F 961 
#2F971 
#2F 946 
#2F 966 
#2F 901 
#2F 901 
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56 

54 

53 

55 
271 
158 
162 
251 
244 

96 

88 
328 
243 
270 
114 
312 
221 

51 
144 
108 
210 
140 
228 
317 

93 

92 
313 
129 
318 
125 
100 
344 
253 

99 
216 

a3 
266 
265 
273 
274 
275 
276 
273 
280 
281 
282 
118 
309 
316 
321 
325 
310 
322 
308 
307 
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=SNAPBF 
=STATAR 
=STATDO 
=STMTD1 
=STMTRO 
=STMTR1 
=STSAVE 
=SYSEN 

=SYSF LG 
=TASTK 

=TERCHR 
=TFORN 

=TOSBS 

=TINAF 

=TIMER1 
=TINERZ 
=TINER3 
=TIMLAF 
=TINLST 
=TIMOFS 
=TMRAD1 
=TMRAD2 
=TMRAD3 
=TMRING 
=THRINZ 
=TMRIN3 
=TRACEN 
=TRFNBF 
=TRPREG 
=UNFNIB 
=UPD1EN 
=UPDIST 
=UPDZEN 
=UPD2ST 
=VECTOR 
=WINDLN 
sWINDST 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Robs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


194544 
194477 
194705 
194710 
194673 
194689 
194238 
1939 
194265 
193945 
19494) 
193950 
193955 
194439 
1894 32 
189176 
188920 
194427 
194415 
194403 
194199 
194204 
194209 
194214 
194222 
194230 
194480 
194757 
194297 
194298 
193945 
193885 
194214 
194164 
193596 
193651 
193649 


Systen 
Synbol 


H2F 7FO 
#2F 7AD 
#2F 891 
#2F 896 
#2F 871 
#2F 881 
#2F OBE 
#2F58A 
#2F 6D9 
#2F599 
#2F 97D 
#2F59E 
#2F5R3 
#2F 787 
#2E3F8 
H#2E2F8 
H2E1F8 
#2F 778 
#2F 76F 
#2F 763 
#2F 697 
#2F 69C 
#2F 6R1 
#2F 6R6 
#2F 6RE 
#2F 6B6 
#2F 7BO 
#2F8C5 
#2F 6F9 
#2F 6FA 
#2F599 
#2F 55D 
#2F 6AG 
#2F 674 
#2F 43C 
#2F473 
#2F471 
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264 
245 
284 
285 
272 
278 
157 
104 
171 
113 
336 
119 
121 
235 

34 

27 

23 
234 
233 
232 
146 
147 
148 
152 
154 
165 
246 
304 
207 
209 
114 

% 
149 
138 

49 

7? 

76 
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Input Paraneters 
Source file nane 1s SB&RAM: : AS 
Listing file name is SB/RAM: TI: ML: :-1 
Object file name is SBZRAM: TI: MS:: -1 
111114 
0123456789012345 
Initial flag settings are 
Errors 


None 


Saturn Assenbler Neus 
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x THTT III & EEEEE 9 Q0QQ Ui U 

z T I 88 E Q Qu iu 

“ T I && E Q Qui iu 

x T I & EEEE Q Qu iU 

& T I &&8@é E Q aqui vu 

* T I & & €E Q Q uv U 

x T TII 8& & EEEEE 000 Q UU 

x 


TITLE Equate Fale <831228.1851> 
RDSYMB SBZTAB: : AS 
RDSYMB JPZTAB: MS 


FOI R TOO OO ITO TOOT 


eh ak 
ax SYSTEM GLOBAL SYMBOL DEFINITIONS ae 
kh ak 


FOOT IIT TOTO OTTO 
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21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 


Fri Dec 30, 1383 


STITLE CALL Stack Save Blocks 


ee 


* Mainframe Save Block Pointers 


x 


=caCURS EQU 
=caPRNS EQU 
=caPRNE EQU 
=caCURE EQU 
=caPCAD EQU 
=caCNTA EQU 
=caERRS EQU 
=caERRA EQU 
=caINTR EQU 
=caDATP EQU 
=caFSTK EQU 
=caGSTK EQU 
=caACTV EQU 
=caCALS EQU 
=caPMCN EQU 
=caPMTR EQU 
=caRTNT EQU 
=caLENG EQU 


ak 
x 


6 

(caCURS)+5 
(caPRMS)+5 
(caPRME)+5 
(caCURE )+5 
(caPCAD)+5 
(caCNTA)+5 
(caERRS)+5 
(caERRA)+5 
(caINTR)+5 
(caDATP)+5 
(caFSTK)+5 
(caGSTK)+5 
(caACTV)+5 
(caCALS)+5 
(caPNCN)+2 
(caPMTR)+5 
(caRTNT)+1 


Offset to saved CURRST 


PRGNST 
if PRGNEN 
fi CURREN 
I} PCADDR 
ff CNTADR 
f/ ERRSUB 
If ERRADR 
ff ONINTR 
HT DRTPTR 
ft} FORSTK 
if GSBSTK 
If ACTIVE 
if CALSTK 
ff PRNCNT 
}f PRNPTR 


CALL return type 
CALL save block lengt 


* User-defined Function Save Block Pointers 
x 


=ufRTNA EQU 6 


=ufPC EQU (uf RTNA)+5 
=uf CNTA EQU (uf PC)+5 
=ufSTMO EQU (uf CNTA)+5 
sufRSTK EQU (uf STM) +5 
=ufSTM1 EQU (uf RSTK)+15 
zuf SR-O EQU (uf STM1)+5 
suf SR-1 EQU (uf SR-0)+16 
=ufMSTK EQU (uf SR-1)+16 
=ufFSTK EQU (uf MSTK)+5 
=uf GSTK EQU (uf FSTK)+5 
=uf PACN EQU (uf GSTK)+5 
=ufPMTR EQU (uf PCN) +2 
suf STSV EQU (uf PMTR)+5 
=uf CHNH EQU (uf STSV)+3 
=uf RINT EQU (uf CHNH )+2 
zuf LENG EQU (uf RTNT)+1 


STHTDO 
3 RSTKs 
STNT1 

$-RO-0 
S-R1-0 
NTHSTK 
FORSTK 
GSBSTK 
PRMCNT 
PRNPTR 
STSAVE 
CHN#SY 


Function return type 
Save block length 


2:25 a 
Page 


offset 
offset 
offset 
offset 
offset 
offset 


h 


Offset to function return addr 
Offset to saved PC 
Offset to saved CONTADR 


" 
2 
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72 STITLE Complex Poll Sub-subfunctions 
73 Rkoceesrrsscsasscrscrssssscrsscrsrssssrstrrrssssrrsrsrrrssses2222 
74 ae 
75 Ae Conplex Poll Sub-subfunction Definitions 
76 kk 
77 ak Note: These sub-subfunctions are handled by the 
78 ne pCONPLX poll. 
79 aK 
8&0 Rkeccscercsrrsreesssssssssssrserssscssscssssssessssrsrsrsrssssrs6s 
81 =cRCL =EQU #67 
82 =cC->C EQU #68 


83 =cR->C EQU #69 
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84 STITLE Device Types 
85 kk asccecrssssrrssrsssssrsssssscsnsressscsresssrssrsfasssssnarsecr: 
86 * 
87 k Device Types 
88 x 
89 kkecscascccssssssresssssssssssessterssnsesceszsessseressesescsss 
90 =dMAIN EQU 0 MAIN 
94 =dIRAN EQU 1 IRAN Device 
92 =dPORT EQU 1 PORT Device 
93 =dCARD EQU ? CARD Device 
94 =dPCRD EQU 7 PCRD Device 
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95 STITLE File Header Equates 
3 ak 
98 aE File Header Equates 
99 kk 
100 ** Detail: 
101 aa 
102 &*% File nane: 
103 a 8 characters, blank filled 
104 ak 
105 tk File type: 
106 ax LIF File Type Number of the file. This field ALWAYS 
107 ax represents the unprotected forn of the file type 
108 ax 
109 kk Flags: 
110 ax a) Lower nibble of the flags: 
111 x This nibble is called the protection nibble. 
112 ak Bit: 3 2 0 
113 RRO wt wenn en een nnenen---- PV - Private 
114 ak |] Un | Un | PV | SE | SE - Secure 
115 RRO we een nee nceneenn----- Un - Undefined 
116 am 
117 ak b) Higher nib of the flags: 
118 ax File copy code fron file type table. Its value 
119 ae determines how the file nay be accessed: 
120 xx 
121 ae Value Meaning 
122 HR elie ee eee cee ee etree? 
123 ae 0 Nortial mainfrane file structure; 
124 ax File can be copied into or out of 
125 RS HP-71 without aid fron LEX file; 
126 a Inplenentation Field contains 
127 aX file length on external copy, 
128 ig but is not present after file 
129 ax header when file is in nenory 
130 kk 
131 ae 1 DATR file structure; file can be 
132 a copied into or out of HP-71 with 
133 ia no aid fron LEX file; on external 
134 a copy, the Inplenentation Field 
135 a contains number of records and 
136 os record length, and it is present 
137 a immediately after file header 
138 ne when file 1s in nenory 
139 aa 
140 xe 2 SDATA file structure; file can be 
141 kk copied into or out of HP-74 with 
142 x no aid fron LEX file; on external 
143 ax copy, the Inplerentation Field 
144 RX contains nunber of records, but 
145 re is not present after file header 
146 x uhen file is in renory 
147 as 
148 ax 4 TEXT file structure; file can be 
149 ak copied into or out of HP-71 with 
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150 ak no aid fron LEX file; on external 
151 aK copy, the Inplernentation Field is 
152 a zero, and it 1s not present after 
153 aX file header when file is in 
154 a nenory 
155 x 
156 aS Special copy routine is required 
157 aR to copy file to or fron HP-71; 
158 aK systen will issue pWCRD8 poll; 
159 ai Inplenentation Field 1s present 
160 x after file header when file is 
164 a in neriory 
162 ak 
163 4k Tine Field: 
164 ak Tine of creation of file 
165 ax 
166 *k Date: 
167 ax Date of creation of file 
168 a 
169 x File Chain Length: 
170 x Five-nibble relative address of the next file in the 
174 ax chain. 
172 aK 
173 kX Inplenentation Field: 
174 a When present, this field is 8 nibbles long. It 
175 ak corresponds directly with the Inplenentation Field 
176 a in the file’s directory entry when written to LIF 
177 ax external redia. 
178 ax 
179 x 
180 =oFNAMh EQU #00000 Offset Filenane in header 
181 =oFTYPh EQU #00010 Offset File Type in header 
182 =oFLAGh EQU #00014 Offset to Flags in header 
183 =oTIMEh EQU #00016 Offset Tine in header 
184 =oDRTEh EQU #0001R Offset Date in header 
185 =oFLENh EQU #00020 Offset File Length in header 
186 =oOINPLh EQU #00025 Offset to Inplenentation Field 
187 =oSUBLn EQU #00025 Offset to sub-progran chain head 
188 =oFLSTr EQU #00031 Offset to start of BASIC file 
189 . 
190 =oFT-FL EQU (oF LENH)- (oF TYPh) 
191 & 
192 =1FNAMH EQU #00010 Length Filenane in header 
193 =1FTYPh EQU #00004 Length File Type in header 
194 =]FLAGh EQU #00002 Length Flags in header 
196 =]TINEh EQU #00004 Length Tine in header 
196 =]DATEh EQU #00006 Length Date in header 
197 =]FLENh EQU #00005 Length File Length in header 
198 : 
199 =okYsod EQU #00005 Offset to data - KEY file 
ec =oBNsod EQU #00011 Offset to data - BINARY file 
201 =oBSsod EQU #00011 Offset to data - BASIC file 
202 =oDAsod EQU #OOOOD Offset to data - DATA file 
203 =aLlXsod EQU #00005 Offset to data - LEX file 
204 =aTXsod EQU #00005 Offset to data - TEXT (LIF1) file 
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205 =o41sod £QU #00005 Offset to data - SDATA file 
206 =1E0L EQU #2 Length EOL 


207 
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208 STITLE File Inforriation Buffer Equates 
203 Kec cer sccr cesses r rer str rrss rrr rrr srr tz rrr rst rzszrizszsrzsssz62: 
210 ax 
211 wx File Infornation Buffer (FIB) Equates 
212 xx 
213 | The FIB contains the following information: 
214 
215 xk 1. FIB nurber (2 nibs) - If 00, end of FIB 
216 ak 
217 kk 62, File buffer nunber (3 nibs) - 
218 xx If (and only if) the file 1s on an external device, 
219 kx it has an I/0 buffer associated with it, and this 
220 xk field contains the I/0 buffer number of the file. If 
221 ak this field is 000, the file 1s in neriory and there is 
222 x no I/0 buffer associated with it. 
223 a 
224 *k 3. File type (4 nibs) - LIF file type of the file 
225 . This 1s the unprotected file type number of the file. 
226 * 
227 *k 4, File protection nibble (1 nibs) - Copied fron the low 
228 kk nibble of the file flags field in the file header 
223 ax uhen the file 1s opened. Subsequent SECURE or 
2H kx PRIVATE commands do not alter its value. Original 
231 ax value derives fron the file type table. 
232 aK 
233 ak 5. File copy code (1 nib) - This is the sane nibble as in 
234 xx the file header. 
235 x 
236 xk 6. Access code (1 nib) - 
237 Kk When set to 1, this field indicates that the contents 
238 KK of the file have been nodified since the field was 
239 ax last cleared. For external files, it is cleared each 
240 kk tine a new sector is read into the I/0 buffer. It is 
241 a set when the contents of the I/0 buffer are nodified 
242 a so that the I/0 buffer can be flushed properly during 
243 = subsequent operations. 
244 xk 
245 ** 7. Device type (1 nib) - This nibble indicates where the 
246 kx file is located: 
247 KK © - Mainfrane 1 - Independent RAM 
248 kk 2 - ROM & - HP-IL device 
249 xx 
250 *X 8, File begin (6 nibs) - 
251 ae For file in Nenory: 
252 ax Nibs Field 
2653 Ree ae ae eee eee tee ea al oe 
254 ax 4-0 Rbsolute address of file header start 
255 a 5 Unused 
256 ae For file on external device: 
25? ‘alas Nibs Field 
258 RE Guia ee _atcecae nual Seto cee ol abt ap Goda ettvets Po, eoNea pelvacnl acre ap leet tod ct salar Se ea aot ett 
259 #* 0 Entry number in the directory record 
260 +* 4-1 Sector number of the directory record 
261 wx 


262 ** 9, Subheader length (2 nibs) 
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263 ak This length is the nunber of bytes of the subheader. 
264 aR It is conputed as follous: 

265 aK a) Take the data offset (in nibs) fron the file type 
266 aK table and subtract 5 nibbles fron it. 

267 ae b) If the file type is 1 (fixed length data fornat) 
268 aR subtract another 8 nibbles (1inplenentation field). 
269 ah c) Divide by 2 to convert nibbles into bytes. 

270 aR 

271 ah Copy code 1: (data offset-13) / 2 

272 x Copy codes 0,2,4: (data offset -5) / 2 

273 ax Copy code 8: Set by poll handler when file opened. 
274 ae 

275 xk 10. File data start (11 nibs) - 

276 fe Absolute address of the start of data of the file. 
277 & 

278 aR For file in RAN/ROM: 

279 ae Nibs Field 

280 ak estat ° - ~ teenies 

281 ak 4-0 Abs addr of data start 

282 RR (skip over the subheader) 

283 ax 6-5 Hex FO 

284 an 8-7 Port address: Port #, Extender # 

285 xk 10-9 Unused 

286 as 

287 ak For file on an external (HP-IL) device: 

288 ax Nibs Field 

289 xk Sie “siioee Seesaw sce co tee cee ees 

290 a 3-0 Record address of the first record of the 
294 ax file. If file has a subheader, it starts 
292 RE at byte 00 of this record and is innedia- 
293 = tely followed by data. Otherwise, the 
294 aR data starts at byte 00 of this record. 
295 aR 6-4 Device address 

296 am 9-7 Assign code 

297 = 10 Assign type 

298 aK 

299 xk 611. Number of Records (4 nibs) - 

HO an For copy code 1 (DATA) files, this is the nunber of 
1 ak records in the file. 

2 kk 

3 ** 12. Record length (4 nibs) - 

x4 ae For copy code 1 (DATA) files, this is the record 
5 ne length in bytes. 

6 xk 

HH? xk 613. Current position (6 nibs) - 

8 *R This is the current file pointer. It is the offset 
09 aA fron the file start reference point. Due to the 
310 aa sector boundary constraints of HPIL I/0, the file 
311 a start reference point for external files differs 
312 a slightly fron that of internal files. 

313 ie 

314 at Nibs Field 

315 RE, 2 Gaia | hah eet neha ee eee ee Nee 
316 aK 6-5 Not used 

317 x 4-0 Offset fron file start reference point in 
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318 ax nibbles. 
319 aS For internal files: 
320 ah Offset fron start of data (that is, sub- 
321 x header not included) 
322 i For external files: 
323 a Offset fron start of subheader 
324 xk 
325 kk 614. File data length (6 nibs) - 
326 sg This is the file data length not including the 
327 ae subheader. 
328 “sr Nibs Field 
329 KK + (sok ‘ieee colecc tec ece aco weet ee cee cee ee tee 
330 ae 5-0 File data length in nibbles. 
331 ak 
de *k 615. Renaining length 1n current record (5 nibs) - 
333 ak Used by PRINTH and READH to keep track of the nunber 
334 ak of bytes retaining in the current record for copy 
335 aR code 1 (DATA) files. 
336 ak 
33? xk 16. Device size (6 nibs) 
338 ak This field applies only for files in an external 
339 ae nenory device (HP-IL) 
340 c Nibs Field 
341 Meo 0 Rte, dee eee cee teueeeeescuet el wac bee Lue cas 
342 xx 5-0 Nunber of sectors allocated to this file. 
343 x 
344 kkoccasssscsscscssssrsssssssssssasssssssstaessssrsssssssssssssrscs 
345 * 
346 x 
4? =1FILA#b EQU #00002 Length File# in FIB 
348 =]FBFHb EQU #00003 Length File buffer # in FIB 
349 =IFTYPb EQU #00004 Length File Type in FIB 
350 =1PROTb EQU #00001 Length Protection in FIB 
351 =1COPYb EQU #00001 Length Copy code in FIB 
soe =1ACCTSb EQU #00001 Length Access code in FIB 
353 =1DEVCb EQU #00001 Length Device ID in FIB 
354 =]FBEGb EQU #00006 Length File header/Dir entry addr 
355 =]SHLNb EQU #00002 Length Subheader of the file 
356 =1DBEGb EQU #OOO0B Length Data Start 
357 =]RECHb EQU #00004 Length Nuriber of Records in FIB 
368 =IRECLb EQU #00004 Length Record Length in FIB 
369 =1CPO0Sb EQU #00006 Length Current Postion in file 
360 =1DLENb EQU #00006 Length File data Length in bytes 
361 =IRLENb EQU #00005 Length Reraining bytes in record 
362 =IFSIZb EQU #0006 
363 =1FIB = EQU #000 3F Length of File Information Buffer 
364 * 
365 =oFIL#b EQU #00000 Offset File# 
366 =oF BF#b EQU (oFIL#b)+(1FILHD) Offset File buffer # 
36? =oF TYPb EQU (oF BFHb)+(1FBFHb) Offset File Type 
368 =oPROTb EQU (oFTYPh)+(1FTYPb) Offset Protection 
369 =oC OPYb EQU (oPROTb)+(1PROTb) Offset copy code 
370 =oACTSb EQU (oCOPYb)+(1COPYb) Offset Access code 
371 =oDEVCb EQU (oACCSb)+(1ACCSb) Offset Device ID 
372 =oF BEGb EQU (oDEVCb)+(1DEVCb) Offset File header/Dir entry 
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373 x address 
374 =oSHLNb EQU (oFBEGb)+(1FBEGb) Offset subheader length 
375 =oDBEGb EQU (oSHLNb)+(1SHLND) Offset Data Start 
376 =oRECHb EQU (oDBEGb)+(1DBEGb) Offset # of records 
377 =oRECLb EQU (oRECHb)+(1RECHb) Offset Record Length 
378 =oCPOSb EQU (oRECLD)+(1RECLbD) Offset Current Position 
379 =oDLENb EQU (ofPOSb)+(1CPOSb) Offset File data Length 
380 =oRLENb EQU (oDLEND)+(1DLENb) Offset Remaining Length 


381 zoFSIZb EQU (oRLEND)+(1RLEND) Offset File size in sectors 
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382 
383 
384 
385 
386 
337 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
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STITLE File Type Symbol Definitions 
Ri dscseten tae ate on ee a ees eee St Soe eo eee see 


a a ee ee ee 


BASIC File Type 

ASCII Type 1 File Type 
KEY File Type 

LIF1 File Type 

TEXT File Type 

Strean Data File Type 
Fixed Data File Type 
Binary File Type 

Lex File Type 


* Record Header of Copy Code 1 (DATA) Files 
* 


ae 
ak 

ak 

=fBASIC EQU 
=fASCII EQU 
=fKEY  EQU 
=fLIF1 EQU 
=FTEXT EQU 
=fSDATA EQU 
=fDATA EQU 
=fBIN  EQU 
=fLEX EQU 
& 

=fEOF EQU 
=fEOR EQU 
=fROS  EQU 
=fSOS -EQU 
=fM0S  EQU 
=fEQS  EQU 


HOOF F 
HOOEF 
#OODF 
#OOCF 
#00 7F 
#OOOF 


End of file nark 

End of record mark 

Entire string in the sare record 
Start of string header 

Middle of string header 

End of string header 
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406 
407 
408 
409 
410 
ait 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
4H 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
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STITLE LEX File Fornat Equates 
kkeoesccssssrrscssrscsssressrerssessssrecesstesescsezscsrsssezzzss 
ik 
is LEX File Fornat Equates 
tk 
re 
kx LEX File Fornat: 
an Size 
tx Field (nibs) 
PR a eee eee eek Bee 
AX Standard File Header 49 
ae Lex ID 2 
RR Token Range 4 
x Lex Table Chain 5 
ak Speed Table nibble 1 
aK SPEED Table (optional) 78 (3*26) 
ax Speed Table nibble 2 (optional) 1 
ak Text Table pointer 4 
ak Nessage Table pointer 4 
ke Poll Address pointer 5 
aX MAIN Table x 
ax Text Table k 
kk Message # Range 4 
ax Nessage Table * 
ke 
tk ocrcsasesssrsssssssssssssesrsssssrssssssssssssssesstsssescecs 
=1LXID €£QU 2 Length of LEX ID 
=1LXTKR EQU 4 Length of Lex Token Range 
=] LXFAD EQU 5 Length of Lex Table Chain Field 
=15PDn EQU 1 Length of Speed Table nibble 
=1S$PDn2 EQU 1 Length of Speed Table nibble 2 
=1TEXTp EQU 4 Length of Text Table Offset field 
=1MSGp EQU 4 Length of Mesage Tbl Offset field 
=]POLLp EQU 5 Length of Poll Offset field 
=1SPDTB EQU 3*26 Len of Speed Table=#nibs*#entries 
hk 
x 
* Offset to Main Table in LEX File: 
x 
* Speed Table nibble + Speed Table + Speed Table nibble 2 + 
* Text Table Ptr + Msg Table Ptr + Poll Address Ptr 
x 


ak 
x 


* Offset to Speed Nibble 2 = 


x 


x 
x 
x 
x 
x 


oSPDn2 EQU 


read 5 nibs 


OMAINT EQU (1SPDn)+( 1SPDTB)+(1SPDn2)+(1TEXTp)+(1MSGp)+(1POLLp) 


Poll Addr Ptr + Message Table Ptr + Text Table Ptr + 
+ length Speed nib 2 


Offset to Text Table = position of Speed nibble 2, then 


(1POLLp)+(1NSGp)+(1TEXTp)+(1SPDn2) 
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461 
462 < 
463 x 
464 * Offset to Speed Table fron Main Table Start = 
465 ; # nibbles/table entry * ASCII "2" - 1 
466 
467 =oSPDTB EQU 3*(\Z\41) 
468 
469 ax 
470 x 
471 * Offset to Nessage Table pointer fron Main Table Start = 
472 : Poll Address ptr + Message Table Pointer 
473 
474 =oMSGPT EQU (1POLLp)+(1NSGp) 
475 
476 ak 
477 . 
478 * LEX Buffer Equates 
479 
480 =] LXADR EQU 5 Length of LEX Main Table Address 
481 =] LXENT EQU (1LXID)+(1LXTKR)+(1LXADR) Leng LEX Buffer Entry 


482 
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483 STITLE Poll Process Nunbers 
484 kKkKereerssssrcssrsssssressrscsrrssssssrssesessrsscsssscl2ssssesess 
485 = 
486 RK Poll Process Nunbers 
487 ae 
438 ax Those marked with "*" are processed by HPIL. 
489 ax 
4% Kkeoscencenrsrssescsnsscsrssstsesersslrsrirsssscssrerisrsssrsrrscscc 
491 x 
492 * VER$ 
493 & 
494 =pVER$ EQU #00 & VER$ poll 
495 x 
496 * File Spec 
497 x 
498 =pDEVCp EQU #01 & Device Parse 
499 =pFILDC EQU #O2 . File Spec Deconpile 
500 =pFILXQ EQU #03 File Execute: 
501 x allow dedicated device 
502 =pFSPCp EQU #04 x File Spec Parse 
503 =pFSPCx EQU #05 & File Spec Execute 
504 x 
505 * External device 
506 - 
507 =pCAT EQU #06 a CAT on non-nainfrane device 
508 =pCAT$ EQU #07 : CAT$ of non-nainfrane file 
509 =pCOPYx EQU #08 s COPY execute: unknown Device] >8 
510 =pCREAT EQU #09 & Create file in external device 
511 =pDIDST EQU 0A x Device ID store in RAM @ D1 
512 =pFPROT EQU #08 * SECURE /UNSECURE /PRIVATE 
513 =plLIST EQU #0C LIST of non-nainfrane file 
514 =pMERGE EQU #00 MERGE file dealing u/funny device 
515 =pPRTCL EQU = HOE & Print class 
516 =pPRTIS EQU HOF x Printer IS 
517 =pPURGE EQU #10 k PURGE on non-nainfrane device 
518 =pRNANE EQU #11 x RENAME on non-nainfrane device 
519 =pENTER EQU #12 k Enter data fron HP-IL 
520 - #13 e Reserved for HPIL 
521 & #14 * Reserved for HPIL 
522 * #15 & Reserved for HPIL 
523 x #16 x Reserved for HPIL 
524 
525 x 
526 * File 1/0 
527 . 
528 =pFINDF EQU #17 & Find file 
529 =pRDCBF EQU #18 x Read current recrd to file buffer 
5X =pRDNBF EQU #19 & Write buffer out, read next recrd 
531 aeeee EQU=s#TA . Write buffer to current recrd 
532 
533 * Keyboard 
534 x 
535 =pKYDF EQU #18 Build key defn in KEYRD 
536 =pWTKY EQU #1C Waiting for key in KEYRD 
x 


53? 
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538 * Inage 
539 x 
540 =pIMxXQT EQU #10 x IMAGE execution starts 
541 =pINCHR EQU #1E Unrecognized IMAGE char in parse 
542 =pIMXCH EQU #1F Unrecognized IMAGE syrtbol in exec 
543 =pIMbck EQU #20 IMAGE: bckwd search processing 
544 =pINcp1 EQU #21 IMAGE: cnplx field initialization 
545 epaliceH EQU #22 IMAGE: work on corplex nurber 
546 
547 * Copy Code = 8 
548 k 
543 =pCRT=8 EQU #23 Create non-Titan type file 
550 =pWCRD& EQU #24 Write card, copycode=8 
551 x 
552 * READH /PRINTH 
553 % 
554 =pEOFIL EQU #25 End of file in READ #/PRINT # 
555 =pPRIN# EQU #26 PRINT # on non-Titan type file 
556 =pREADH EQU #27 READ # on non-Titan type file 
557 SPeKeyn EQU #28 RESTORE # on non-Titan type file 
558 
559 * Unknown file type 
560 - 
561 =pCURSR EQU #29 Cursor Up/Doun for non-BASIC file 
562 =pDATLN EQU #2A Return file data length on 
563 x non-HP?1 file 
564 =pEDIT EQU #2B EDIT with non-BASIC file type 
565 =pFASCH EQU #2C Search for filetype by nnenonic 
566 =pFTYPE EQU #20 File type 
567 =plIST2 EQU = HE LIST non-BASIC/non-KEY file 
568 =pNRGE2 EQU #2F MERGE non-BASIC/non-KEY file 
569 =pRUNFt EQU #30 RUN with unknown File Type 
570 pene EQU #31 RUN non-BASIC file 
571 
572 * Unknown nenory type 
573 * 
574 =pPRGPR EQU #32 PURGE of non-RAM file 
575 . 
576 * Card Reader 
57? . 
578 =pCRDAB EQU #33 Abort card read poll 
579 =pRCRD EQU #34 Read card poll 
580 =pWCRD EQU #35 Write card poll 
581 * 
582 * CALL 
583 “ 
584 =pCALRS EQU #36 Restore infornation fron CALL stk 
585 =pCALSV EQU #3? Save infornation an CALL stack 
586 . 
58? * Miscellaneous 
588 - 
589 =pCMPLX EQU #38 Conplex nath 
590 =pREN = EQU #39 Renunber a XWORD stnt with line # 
594 =pRTNTp EQU #3A Return Type unknown 


592 =pTIMR# EQU #38 Tiner # > 3 in ON TINER/GFF TIMER 
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593 
594 
§95 
596 
597 
598 
599 
600 
01 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
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=pTRFMx EQU 
=pFNIN EQU 
Mla EQU 


* Systen 
* 


=pTRANS EQU 
=pTEST EQU 
=pMEn  EQU 
=pERROR EQU 
=pWARN EQU 
=pPARSE EQU 
=pBSCen EQU 
=pBSCex EQU 
=pZERPG EQU 
=pExcpt EQU 
=pSREQ EQU 
=pMNLP EQU 
=pCONFG EQU 
=pPWROF EQU 
=pDSWKY EQU 
=pDSWNK EQU 
=pCLDST EQU 


#3C 
#30 
#3E 


#EF 
#FO 
#F 1 
HF 
#F3 
#F4 
#F5 
#F6 
HF? 
#F8 
HF9 
#FA 
#FB 
#FC 
#FD 
#FE 
#FF 


* ee OO OO 
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Supply Transforn Handler Address 
Entering user-defined function 
Exiting user-defined function 


Poll to Translate a Message 

Test poll for tining POLLs 
Insufficient Menory 

Error nessage about to go out 
Warning nsg about to go out 
Parse take-over poll - FAST Poll 
Entering BASIC interpreter 
Exiting BASIC interpreter 

Zero addrs/RAM associated u/Prgn 
Exception check after statenent 
Service request (if SREQ<>0) 
Main Loop 

Configuration 

Power off 

Deep Sleep Wakeup -- key or not 
Deep Sleep Wakeup -- no key down 
Cold start 
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616 STITLE Print Class Statenent Types 
61 7 KKkeccmccasscrssrrscssrsssrrsssr ssa sssersssrsres2rssssssssssscssss 
618 KK 
619 ak Print Class Statenent Types 
620 ah 
621 kKkoescusssssssssccssssrssesstsrsrssnres sr sssssssrssassnsseszsze 
622 
623 =DISPt EQU DISP statenent 
624 =PRINTt EQU PRINT statenent 
625 
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626 STITLE Save Stack Offset Equates 
627 kk eccccsssccesressserrsscesarssrsserssssssseresrssssssrsessesec2: 
628 ae 
629 ae Save Stack Offset Equates 
630 a 
631 kkescsccsssesczssccsressesssssesssssssssssersssrssscsssssassszss 
632 
633 = 
634 5 
635 ; COPY/TRANSFORM File Save Information Offsets 
636 
637 x Detarl: 
638 & SAVSTK-50 Destination Filenane 
639 x SAVSTK-30 Destination Device Infornaiton 
640 & SAVSTK-25 Source Filenane 
641 : SAVSTK- 5 Source Device Infornation 
642 
643 =1FILSV EQU 50 Length of File Info Save area for 
644 * COPY 
645 =}FNAN8 EQU 16 First 8 chars of filenare 
646 =]FNAN+ EQU 4 Last 2 chars of filenane 
647 =1DEVC EQU 5 Device Infornation 
648 
649 ae 
650 a 
651 : POLL Information Save Stack Offsets 
652 
653 x Purpose: 
654 : The process of issuing a poll places the following data 
655 * on the SAVSTK, which nay be referenced using the offsets 
656 a defined below. Offsets are negative in direction (that 
657 a is, toward lower addresses) and relative to the current 
658 x value of the SAVSTK pointer. 
659 x 
660 * Note: 
661 x RINip and POL# occupy the sane position 
662 % 
663 =1BPO0Sp EQU #5 Relative Buffer Position Length 
664 =]RTN1p EQU #5 Return Address 1 Length 
665 =1PO0LH#p EQU #5 Poll# Length 
666 =1RTN2p EQU #5 Return Address 2 Length 
667 =IRTN3p EQU #5 Return Address 3 Length 
668 7100p EQU #5 DO 
669 =1D1p  EQU #5 D1 
670 =1Dp EQU #10 D 
671 =1Ap EQU #10 A 
672 * 
673 =oBPOSp EQU #5 Buffer Position Offset 
674 =oRTNip EQU #A Return Address 1 Offset 
675 =oPOL#p EQU #A Poll # Offset 
676 =oRTN2p EQU #F Return Address 2 Offset 
677 =oRTN3p EQU #14 Return Address 3 Offset 
678 =0D0p = EQU #19 DO Offset 
679 =oDip EQU #1E 01 Offset 


680 =oDp EQU #2E D Offset 
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631 =oAp EQU #3E R Offset 
682 x 
683 =1POLSV EQU oRp POLL Save Info Length 


684 =1P0Lra EQU 6 POLL return address on GSBSTK 
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685 STITLE Status Bit Definitions 
686 Rkeececsessessecsessssssscssrrsrsrssssrsrsssrsrsssssssssssssss262 
687 x 
i 688 x Status Bit Definitions 
689 
690 Ru ecsccssssscrrsssssssrrsrsssssssssesssrstesssstssrsrerssarzzizz 
691 
692 RA 
693 : Global Status Symbols (Alnost Always Active) 
694 
695 =Except EQU 12 An exception has occurred 
696 =PgnRun EQU 13 Program is running 
697 =NoCont EQU 14 Don’t continue running 
638 =Trace EQU 15 Trace node active 
699 
700 kk 
701 % Miscellaneous Status Syribols 
702 x 
703 =sBYEx EQU 0 BYE or OFF Execute 
704 =sERROR EQU 0 Execution ERROR occured 
705 =sEXTDV EQU 0 HPIL Device 
706 =sRETRN EQU 0 RETURN statenent 
707 =sENDx EQU 1 END/STOP Execute 
708 =sSSTde EQU 1 Single Step Deconpile 
709 =sUNDEF EQU 1 File Nanes Undefined 
710 =sCARD EQU 2 CARD or PCRD (for MFDEVC) 
711 =sCURUP EQU 2 Cursor UP flag 
712 =sIRAN EQU 2 IRAN Destination for COPY 
713 =sNoChn EQU 2 No File Chain in RON/RAM 
714 =sSST —-EQU 2 SST at End of Progran 
715 =sCURBT EQU 3 Cursor BOTTOM flag 
716 =sDEST €QU 3 Dest Exec in COPY 
717 =sGOSUB EQU 3 GOSUB statenent 
718 =sCURUD EQU 4 NOT Cursor UP or DOWN 
719 =SONERR EQU 4 ON ERROR statenent 
720 =SREADI EQU 4 Read File Information 
721 =sRUNBn EQU 4 RUN Binary file 
722 =SEXTGS EQU 5 External entry to GOSUB 
723 =sKEYS EQU 5 COPY to KEYS 
724 =sMAINc EQU 5 MAINF rane CHAIN 
725 =sONTNR EQU 6 ON TINER statenent 
726 =sRENAN EQU 6 RENANE execute 
727 =sSTAT EQU 6 Statistical Operations 
728 =SARITH EQU 7 Arithnetic 
729 =sEQF EQU 7 End of File (TRANSFORM) 
7H =sRUNDC EQU 7 RUN Deconpile 
731 =sCARDC EQU 8 CARD Run 
732 =sPCRD EQU 8 Private Card 
733 =sRENUM EQU 8 Renunber Parse flag 
734 =sRFILE EQU 8 RUN File specified in Parse 
735 =sCONTK EQU 3 CONT Key entered 
736 =sXWORD EQU 3 XWORD entry for GOTO+ 
737 =sCONT EQU 10 CONT staterient 
738 =SRESTR EQU 10 RESTORE staterent 
739 =sCHAIN EQU 11 CHAIN execute 
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740 STITLE Syster Buffer IDs 
741 kkosecscssscnessersssecrssssstcrarrrssrslcrrsrscsrssrsrrssstrs2sc 
742 ak 
743 a Systen Buffer IDs 
744 ax 
745 k* Detail: 
746 am A Systen Buffer ID is a 3-nibble value. If the high bit 
747 ax 1s set, the buffer will be kept (not automatically purged 
748 x by the systen) during configuration. 
749 ax 
750 tk occerssrssscsscsrssssscsserssrsss2scssss cress sssrsssssrsrsss: 
751 
752 =bSTNT EQU #801 Statenent Buffer ID 
753 =bIEXKY EQU #802 Irinediate Execute Key Buffer 
754 x 
755 =bFIB  EQU #803 File Inforriation Buffer ID 
756 A 
75? =bASSGN EQU #804 1/0 buf ID for ASSIGN 
758 =bFILE €QU #805 Terip. buf for file ranipulation 
759 =bSTAT EQU #806 Statistics 
760 * 
764 =bCARD EQU #807 CARD reader Buffer ID 
762 =bSTART EQU #808 STARTUP Buffer ID 
763 =bECOND EQU #809 External COMNnanD buffer 
764 
765 * HP-IL buffers 
766 . 
767 =bPILSV EQU #80F HPIL save area 
768 =bPILAI EQU #810 ASSIGNIO nanes 
769 =bSTMXQ EQU #811 HP-IL statenent execution buffer 
720 ; 
771 =bALTCH EQU #BFB Alternate Charset Buffer ID 
772 =bCHARS EQU #BFB Alternate Charset Buffer ID 
773 =LXBFIO EQU #BFC Lex Buffer ID 
774 =bLEX = EQU #BFC Lex Buffer ID 
775 =ROMCID EQU #BFE ROM Configuration Table 
776 =bROMTB EQU #BFE ROM Configuration Table 
777 x 
778 * Buffers #E00 - HFFF reserved for scratch buffers 
779 x 


780 =bSCRTC EQU #EOO Start of SCRICH buffers 
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781 STITLE Systen Constants 
782 Rkszrasceesrssesrssssssrsssecsrssssrrsssrssrtscsrrsrsrzszzsssssscs: 
783 AB 
784 KR Systen Constants 
785 ax 
786 kkeoces ee eee ee ee see ses Sse se sSssassssss 
787 
788 =LEEWAY EQU 50+50+50+62 COPY save(50) + Corinand Stk(50) 
789 x + bSTNT(50) + Poll (62) 
7% =BASICs EQU (LASTFN) +1 BASIC Connand Start for Run Loop 
791 
792 ah 
793 * Hardware addresses 
794 x 


795 =CR EQU #20000 Card Reader 


Saturn Assenbler Equate File <831228.1851> Fri Dec ®, 1983 2:25 an 
Ver. 3.39/Rev. 2306 Systen Flag Definitions Page 24 
796 STITLE Systen Flag Definitions 
797 Kk ee cccssccccrsscssccrscsscsssrsersssrssssssrsrssrsrzsrszszrsssrssczs: 
798 ax 
799 ax Systen Flag Definitions (Range -1 to -64) 
800 kk 
801 s Note: Flag synbols should begin with "fl", rather than "s". 
802 x 
803 kksoscssssssseessnrrsssssrsssirsssrrssssrsssssssrssnssssssssssss 
804 
805 aK 
806 ax <<<¢ Test, Set, and Cleared by User >>>> 
807 ax 
808 
809 * 
810 *> Nib boundary Flag 
811 & ---- 
812 =f1QIET EQU 00-01 Quiet Node (-1) 
813 =f1BEEP EQU 00-02 Beep On (-2) 
814 =FICTON EQU 00-03 Continuous On (-3) 
815 SFLINK EQU 00-04 Inexact result (-4) 
816 
817 *> Nib Boundary 
818 a 
819 =flUNF EQU 00-05 Underflou (-5) 
820 =flOVF EQU 00-06 Overflow (-6) 
821 =f10VZ EQU 00-07 Divide by Zero (-7) 
822 SFAIVL EQU = 00-08 Invalid operation (-8) 
823 
824 *> Nib Boundary 
825 & 
826 =f USER EQU 00-09 User Mode set (-3) 
827 =fIRAD EQU 00-10 RAD trig node (-10) 
828 =flINFR EQU 00-11 Round to Infinity (-11) 
829 = FINEGR EQU 00-12 Negative Round (-12) 
8% 
831 *> Nib Boundary 
832 x 
833 =f1FXEN EQU 00-13 FIX/ENG flag (-13) 
834 =f1SCEN EQU 00-14 SCI/ENG flag (-14) 
835 =f1LC  £QU 00-15 Lower Case enabled (-15) 
836 =f1BASE EQU 00-16 Base Option (high bit!)(-16) 
837 x 
838 *> Nib Boundary 
839 
840 =f1DGO EQU 0-17 Display digit bit 0 (-17) 
841 =f1DG1 EQU 00-18 Display digit bit 1 (-18) 
842 =f10G2 EQU 00-19 Display digit bit 2 (-19) 
843 =F1DG3 EGU — 00-20 Display digit bit 3 (-20) 
844 . 
845 *> Nib Boundary 
846 A 
847 =f1PDWN EQU 00-21 HPIL: Don’t pur loop down auton(-21) 
84% =fJEXTD EQU 00-22 HPIL: Use extended addressing (-22) 
849 =flEOT EQU 00-23 HPIL: Entry terminated by E0T (-23) 
850 =f1N24  EQU 00-24 a (-24) 
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k 

*> Nib Boundary 

x 

=f1BPLD EQU 00-25 Beep LOUD (-25) 

=f1NOPR EQU 00-26 Don’t Pronpt (-26) 

ak 

ak «<<< Test Only >>>» 

kk 

x 

*> Nib boundary Flag 

k clon 


=fIMPI EQU 0-41 
xk 


**X NOTE: 


Module has been pulled (-41) | 


akk Value of fINOFN nust end in 9 or 1 (see nessage 


kK =~ routines in TI&ERD) 
kak 


=fINOFN EQU 00-42 

=FIDORN EQU 00-43 

=f1RTN EQU 00-44 

x 

*> Nib Boundary 

i 

=f1CLOC EQU 0-45 

=flEXAC EQU 00-46 

=f1CMNDS EQU 00-47 
00-48 


sire EQU 


*> Nib Boundary 
& 


=f1PUDN EQU 00-49 
=f1NKOF EQU 00-50 
=f1TNOF EQU 00-51 
=fIVIEW EQU 00-52 
x 

*> Nib Boundary 

k 

* 00-53 
* 00-54 
7 00-55 
z 00-56 
& 

. Nib Boundary 
“lat EQU = 00-57 
=f1USRX EQU 00-58 
=f1RPTD EQU 00-59 
=F1ALRM EQU 00-60 
& 

*> Nib Boundary 

* 

=f1BAT EQU 00-61 


No user-defined functions(-42) 
Machine is dorrant (-43) 
Rluays Return fron MEMERR(-44) 


Clock node (1 sec update)(-45) 


EXACT flag (-46) 
Command Stack Active (-47) 
Control key hit (-48) 


DSLEEP called from PWRdun(- 
Req set TRNOF in MAINLP (- 
Turnoff at MAINLP (- 
VIEW key pressed (- 


Reserved for Future Use (-53) 
Reserved for Future Use (-54) 
Reserved for Future Use (-55) 
Reserved for Future Use (-56) 


AC Annunciator 
User Mode suspend 
Key repeated 
Alarn Annunciator 


Low Battery Annunciator 
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906 =f1PRGM EQU 00-62 Progran Annunciator (-62) 
907 =FISUSP EQU 00-63 Suspend Annunciator (-63) 
908 =FICALC EQU 00-64 Calc Mode Annunciator (-64) 


93 
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910 STITLE Token Symbol Definitions 
94 1 KK eccerssrssssesssssrssrssssssssessssrssssssresscszesrsseesszs2t= 
912 aS 
913 Token Synbol Definitions for Built-in XRON 
914 
9} 5 Rede ccecescssssescsssessrsscssesssscssssssssrsressrsresssszessss22=2 
916 
917 =XROMW1 EQU = #01 Built-in XROM ID 
918 
919 =tANGLE EQU (xANGLE)~(XROMO1)~(tXFN)  XFN for ANGLE 
$20 =tMATH EQU (xMATH)~ (XROMO1)~(tXWORD) XWORD for MATH 
921 =tEXTND EQU (xEXTND)~ (XROMO1)~ (tXWORD) XWORD for EXTEND 
922 =tINTO €EQU (xINTO)~ (XROMO1)~ (tXWORD) XWORD for INTO 
923 =tPCRD EQU (xPCRD)~ (XROMO1)~(tKWORD) XWORD FOR PCRD 
924 =tVARS EQU (xVARS)~(XROMO1)~(tXWORD) XWORD for VARS 
925 =tFLOW EQU (xF LOW)” (XROMO1)~(tXWORD) XWORD for FLOW 
926 =tCLOCK EQU (xC LOCK )~ (XROMO1 )~ (tXWORD) XWORD for CLOCK 
927 =tROUND EQU (xROUND )~ (XROMO1)~ (tKWORD) XWORD for ROUND 
928 =tNEAR EQU (xNEAR)~ (XROMO1)~(tXWORD) XWORD for NEAR 
929 =tNEG  EQU (xNEG)~ (XROMNO1)~ (tXWORD) XWORD for NEG 
330 =tPOS  EQU («POS )~ (XROMO1 )~ (tXFN) XFN for POS 
931 =tZERO EQU (xZERO)~ (XROMO1)~(tXWORD) XWORD for ZERO 
932 
933 ak 
$34 ; HP-TL ROM XUORD tokens 
935 
936 =tINTR EQU  #15FF ON INTR 
93? =tENTER EQU #14FFOO+tKWORD ENTER 
938 
939 


940 00000 END 
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=BASICs Abs 181 #000B5 - 790 
=CR Abs 180224 #20000 - 795 
=DISPt Abs 0 #00000 - 623 
=Except Abs 12 #OOOOC - 695 
LASTFN Abs 180 #000B4 - 10 790 
=LEEWAY Abs 212 #OOOD4 - = 788 


=LXBFID Abs 68 HOOBFC - = 773 


=NoCont Abs 14 HOOO0E - 697 
=PRINTt Abs 1 #00001 - 624 
=PgnRun Abs 13 HOOO0D - 696 
=ROMCID Abs 370 HOOBFE - 775 
=Trace Abs 15 HOOOOF - 698 
=KROMO1 Abs 1 #00001 - 917 919 920 921 922 923 924 925 


926 927 928 929 9H 931 
=bALTCH Abs 67 HOOBFB - = 771 
=bASSGN Abs 2052 #00804 - 757 
=bCARD Abs 2055 #00807 - 761 
=bCHARS Abs 3067 HOOBFB - = 772 
=bECOMND Abs 2057 #00809 - 763 
=bF IB Abs 2051 #00803 - 755 
=bFILE Abs 2053 #00805 - 758 
=bIEXKY Abs 2050 #00802 - 753 
=bLEX Abs 3068 HOOBFC - 774 


=bPILAI Abs 2064 #00810 - 768 
=bPILSV Abs 2063 HOO8OF - 767 
=bROMNTB Abs 3070 HOOBFE - 776 
=bSCRTC Abs 3584 HOOEOO - 780 
=bSTART Abs 2056 #00808 - 762 
=bSTAT Abs 2054 #00806 - 759 
=bSTNT Abs 2049 #00801 - 752 
=bSTHKQ Abs 2065 #00811 - 769 
scC->C = Abs 104 #00068 - 82 
=cR->C Abs 105 #00069 - 83 
=cRCL Abs 103 #00067 - 81 
=scaRCTV¥ Abs 66 #00042 - 44 45 
zcaCALS Abs 71 #00047 - 45 46 
=caCNTA Abs 31 HOOOIF - 37 38 
=caCURE Abs 21 #00015 - 35 36 
=caCURS Abs 6 #00006 - 32 33 
=caDATP Abs 51 #00033 - 41 42 
=caERRA Abs 41 #00029 - 39 40 
zcaERRS Abs 36 #00024 - 38 39 
scaFSTK Abs 56 #00038 - 42 43 
scaGSTK Abs 61 #0003D - 43 44 
=caINTR Abs 46 HOOOZE - 40 44 
=calENG fbs 84 #00054 - 49 
=caPCAD Abs 26 HOOOIR - 36 3S? 
=caPNCN Abs 76 HOOO4L - 46 47 
=caPNTR Abs 78 HOOO4E - 4? 48 
=caPRNE Abs 16 #00010 - 34 35 
=caPRNS Abs 11 #OO00B - 33 34 
=caRTNT Abs 83 #00053 - 48 49 
=dCRARD Abs 7 #00007 - 93 
=dIRAN Abs 1 #00001 - 94 


=dMAIN Abs Q #00000 - 90 
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=dPCRD 
=dPORT 
=f AOS 
=f ASCII 
=f BASIC 
=f BIN 
=f DATA 
=f EOF 
=f E0R 
=F EOS 
=f KEY 
=f LEX 
=f LIF 1 
=f MOS 
=f SDATR 
=f $05 
=F TEXT 
=F LAC 
=f IALRA 
=f 1BASE 
=f 1BRT 
=f 1BEEP 
=f IBPLD 
=f 1CALC 
=f ICLOC 
=f 1CMDS 
=f 1CTON 
=FICTRL 
=f 1060 
=f 1061 
=f 1DG2 
=f 1DG3 
=f 1DORM 
=f 1DVZ 
=f JEQT 
=f LEXAC 
=f LEXTD 
=f LFXEN 
=f LINFR 
=f lINK 
=flIVt 
=f1LC 
=f INKOF 
=F INPI 
=f INEGR 
=f LNOFN 
=f JNOPR 
=f 1NZ4 
=f LOVF 
=f 1PDUN 
=f 1PRGM 
=f 1PWDN 
=f 1QIET 
=f IRAD 
=f IRPTD 


Rbs 
Rbs 
Robs 
Robs 
Abs 
fibs 
Rbs 
Abs 
fds 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ros 
Abs 
Abs 
Abs 
flbs 
fibs 
fibs 
fibs 
Abs 
Ribs 
Abs 
Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ribs 
Abs 
Abs 
fibs 
Abs 
Abs 
Abs 
Abs 
fbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


? 

1 

223 

1 
57876 
57860 
57584 
255 
239 
111 
57868 
57864 


127 
57552 
207 


-5? 
-60 
-16 
-61 

=e 
-25 
-64 
-4§ 
-47 

“3 
-48 
a7 
-18 
-19 
-20 
~43 

-7 
=e5 
-46 
-22 
-13 
-11 


-8 
“PS 
- 
-41 
“42 
-42 
-26 
-24 

-6 
-2i 
-62 
-49 

= 
-10 
-59 


Equate 
Syribol 


#00007 
#00001 
#OOODF 
#00001 
#0E 214 
#OE 204 
#OEOFO 
#OOOF F 
#OOOEF 
#OOO6F 
#OE 20C 
#OE208 
#00001 
#0007F 
#OEODO 
#OOOCF 
#00001 
HFFFC? 
#FFFC4 
HFFFFO 
#FFFC3 
HFFFFE 
#FFFE7 
#FFFCO 
HFFFD3 
HFFFDI 
#FFFFD 
#FF FDO 
HFFFEF 
HFFFEE 
#FFFED 
RFFFEC 
HFFFDS 
#FFFF9 
HFFFES 
HFFFD2 
HFFFEA 
HFFFF3 
RFFFFS 
HFFFFC 
HFFFF8 
HFFFFA 
HFFFCE 
#FFFD? 
HFFFF4 
#FFFDG 
#FFFE6 
HFFFES 
HFFFFA 
#FFFEB 
HFFFC2 
HFFFCF 
HEF FFF 
HFFFF6 
HFFFCS 
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94 

92 
402 
389 
388 
396 
394 
400 
401 
405 
39” 
396 
391 
404 
393 
403 
392 
898 
901 
836 
905 
813 
854 
908 
877 
879 
814 
880 
840 
841 
842 
843 
872 
821 
849 
878 
848 
833 
828 
815 
822 
835 
885 
865 
829 
874 
855 
850 
820 
847 
906 
884 
812 
827 
900 
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=f IRIN 
=f 1SCEN 
=f 1SUSP 
=f LTNOF 
=f LUNF 
=f LUSER 
=f LUSRX 
=f VIEW 
=1ACCSb 
=I Ap 
=1BPOSp 
=1COPYb 
=1CPOSb 
=1D0p 
=1Dip 
=]DATEh 
=1 DBE Gb 
=1DEVC 
=1DEVCb 
=1DLENb 
=10p 
=lEOL 
=1FBEGb 
=1FBF Hb 
=1FIB 
=lFIL#b 
=]FILSV 
=1FLAGh 
=1FLENh 
=1FNAM+ 
=1FNANS 
=] FNAMh 
=]FSIZb 
=LFTYPb 
=1FTYPh 
=1LXADR 
=] LXENT 
=] LXFAD 
=) LXID 
=) LXTKR 
=1NSGp 
=1POLKp 
=]POLLp 
=] POLSV 
=1P0Lra 
=1PROTb 
=] RECHb 
=)REC Lb 
=]RLENb 
=]RTNip 
=1RTN2p 
=1RTN3p 
=1SHLNb 
=1SPDTB 
=1$PDn 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Rhs 
Abs 
Abs 
Abs 
Abs 
Rhs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


-44 
-14 
-63 
-51 

-5 

-9 
-58 
-52 


_ 
non— 


—_ 


—_ 
WWHAMNIRANH "OHS HNN AH — 


SrvB 


—_ 


sy 


an 


~ 
—WNM NON NN P| HMMM LS SN NLP PAN W L& uN LK) 


Equate 
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HFFFD4 
HFFFF2 
HFFFC1 
#FFFCD 
#FFFFB 
HFFFF? 
HFFFC6 
#FFFCC 
#00001 
#00010 
#00005 
#00001 
#00006 
#00005 
#00005 
#00006 
#00008 
#00005 
#00001 
#00006 
#00010 
#00002 
#00006 
#0000 3 
#0003F 
#00002 
#00032 
#00002 
#00005 
#00004 
#00010 
#00010 
#00006 
#00004 
#00004 
#00005 
#OO00B 
#00005 
#00002 
#00004 
#00004 
#00005 
#00005 
HOOO3E 
#00006 
#00001 
#00004 
#00004 
#00005 
#00005 
#00005 
#00005 
#00002 
HOOO4E 
#00001 
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873 
834 
90? 
886 
819 
826 
899 
887 
352 
671 
663 
351 
359 
668 
669 
196 
356 
647 
353 
360 
670 
206 
354 
348 
363 
347 
643 
194 
197 
646 
645 
192 
362 
343 
193 
480 
481 
434 
432 
433 
438 
665 
439 
683 
684 
350 
357 
358 
361 
664 
666 
667 
365 
440 
435 


371 


370 
379 


376 
372 
380 
374 
367 


366 


368 
481 


481 
431 
443 


449 


369 
are 
378 
381 


375 
449 
449 


460 
460 





474 
474 
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=1$PDn2 Abs 1 #00001 - 436 449 460 
=1TEXTp Abs 4 #00004 - 437 449 460 
=1TINEh Abs 4 #00004 - 195 
=o41sod Abs 5 #00005 - = 208 
=oACCSb Abs 11 #0000B - 370 371 
=oAp Abs 62 #OO03E - 681 683 
=oBNsod Abs 17 #00011 - 200 
=oBPOSp flbs 5 #00005 - 673 
=oBSsod Abs 17 #00011 - = 201 
=ofOPYb Abs 10 HOOOOR - 369 = 370 
=oCfPOSb Abs 40 #00028 - 378 379 
=oD0p Abs 25 #00019 - = 678 

=oDip Abs 3 #OO01E - 679 
=oDATEh Abs 26 HOOOIA - =: 184 
=oDRsod Abs 13 H0000D - = 202 
=oDBEGb Abs 21 #00015 - 375 376 
=oDEVCb Abs 12 WO0OC - = 371 372 
=oDLENb Abs 46 H0O002E - 379 380 
=oDp Abs 46 #0002E - 680 
=oFBEGb Abs 13 #0000D - = 372-374 
=oFBFH#b Abs 2 40002 - = 366 = 367 
=oFIL#b Abs 0 #00000 - 365 «=: 366 
=OFLAGH Abs 20 #00014 - =: 182 

=oF LENH Abs 32 #00020 - 185 19 
=oF LSTr Abs 49 #00031 - =: 188 
=oFNAMh Abs 0 #00000 - =: 180 
=oFSIZb Abs 57 #0039 - =: 381 
=oFT-FL Abs 16 #00010 - = 190 
=oFTYPb Abs 5 #00005 - 367 = 368 
=oFTYPh Abs 16 #0010 - = 181 1% 
=oINPLh Abs 37 #00025 - =: 1186 
=oKYsod Abs 5 #00005 - = 199 
=oLXsod Abs 5 #00005 - = 203 
=oMAINT Abs 93 #0005D - 449 
=oMSGPT Abs 9 00009 - 474 
=oPOLRp Abs 10 #OO00R - = 675 
=oPROTb Abs 9 #100009 - 368 369 
=oRECHb Abs 32 #00020 - 376 377 
=oRECLb Abs 36 #0024 - 377 =: 378 
=ORLENbD flbs 52 #00034 - 380 = 381 
=oRTNip Abs 10 H0000R - 674 
=oRTN2p Abs 15 #OQ00OF - 676 
=oRTN3p Abs 20 #00014 - 677 
=oSHLNb Abs 19 #00013 - 374 375 
=oSPDTB Abs 273 #00111 - 467 
=oSPDn2 Abs 14 HOOOOE - 460 
=oSUBLn Abs 37 #00025 - = 187 
=oTIMEh Abs 22 #00016 - =: 183 
=oTXsod Abs 5 #00005 - = 204 
=pBSCen Abs 245 HOOOFS - 605 
=pBSCex Abs 246 HOOOF6 - 606 
=pCALRS Abs 54 #00036 - 584 
=pCALSV Abs 55 #00037 - 585 

=pCAT Abs 6 #00006 - = 507 


=pCAT$ Abs ? #00007 - 508 
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=pCLDST 
=pCMPLX 
=pCONFG 
=pCOPYx 
=pCRDAB 
=pCREAT 
=pCRT=8 
=pCURSR 
=pDATLN 
=pDEVCp 
=pDIDST 
=pDSWKY 
=pDSWNK 
=pEDIT 

=pENTER 
=pEOFIL 
=pERROR 
=pExcpt 
=pFASCH 
=pFILDC 
=pFILXQ 
=pF INDF 
=pFNIN 

=pFNOUT 
=pFPROT 
=pFSPCp 
=pFSPCx 
=pF TYPE 
=pINCHR 
=pIMXCH 
=pINxQT 
=pIMbck 
=pINcpi 
=pINcpu 
=pKYDF 

=pLIST 

=pLIST2 
=phen 

=pMERGE 
=pMNLP 

=phRGE2 
=pPARSE 
=pPRGPR 
=pPRIN# 
=pPRICL 
=pPRTIS 
=pPURGE 
= pPUROF 
=pRCRN 

=pRDCBF 
= pRDNBF 
=pREAD# 
=pREN 

= pRNAME 
=pRINTp 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


265 
56 
251 
8 
51 
9 
35 
44 
42 
1 
10 
253 
254 
43 
18 
37 
242 
248 
44 
2 

3 
23 
61 
62 
rr 
4 

5 
45 
30 
31 
29 
32 
33 
34 
27 
12 
4G 
241 
13 
250 
47 
244 
50 
38 
14 
15 
16 
262 
52 
24 
25 
33 
57 
17 
58 
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HOOOF F 
#00038 
HOOOF B 
#00008 
#00033 
#00003 
#0002 3 
#00029 
#OO02—A 
#0000 1 
#OOOOAR 
#OOOF D 
HOOOFE 
#0002B 
HOO01 2 
#00025 
HOOOF 2 
HOOOF 8 
#OO02T 
#00002 
#00003 
#OO01 7 
#0003D 
HOOO3E 
HOOOOB 
#00004 
#00005 
#0002D 
#0001E 
#0001 F 
#0001 D 
#00020 
#00021 
OOO? 2 
#0001B 
ROOOOL 
#OO0ZE 
HOOOF 1 
#00000 
HOOOF R 
#OO02F 
HOOOF 4 
#00032 
#00026 
HOOOOE 
#OO00 F 
#OOOTO 
HOOOFL 
#00034 
#00018 
#00019 
#00027 
#000339 
#00011 
#0003H 


Table 


615 
583 
611 
509 
578 
510 
543 
561 
562 
498 
511 
613 
614 
564 
519 
554 
602 
608 
565 
499 
500 
528 
594 
595 
$12 
502 
503 
566 
541 
542 
540 
543 
544 
545 
535 
513 
567 
601 
514 
610 
568 
604 
574 
555 
515 
516 
517 
612 
579 
529 
5H 
556 
590 
518 
591 
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=pRUNFt Abs 48 #00030 - 569 
=pRUNNB Abs 49 #00031 - 570 
=pSRECH Abs 40 #00028 - 557 
=pSREQ Abs 249 HOOOF9 - 609 
=pTEST Abs 240 HOO0FO - 600 
=pTIMR# Abs 59 #0003B - 592 
=pTRANS Abs 239 HOOOEF - 599 
=pTRFMx Abs 60 #0003C - 593 
=pVER$ = Abs 0 #00000 - =. 494 
=pWARN Abs 243 HOOOF3 - 603 
=pWCRD Abs 53 #00035 - 580 
=pWCRD8 Abs 36 #00024 - 550 
=pWRCBF Abs 26 HOODIA - = 531 
=pWTKY Abs 28 HOOO1C - 536 
=pZERPG Abs 247 HOOOF7? - 607 
=sARITH Abs 7 #00007 - = 728 
=sBYEx Abs 0 #00000 - =. 703 
=sCARD Abs 2 #00002 - 710 
=sCARDC Abs 8 #00008 - = 731 
=sCHRIN Abs 11 #0000B - 739 
=sCONT Abs 10 #OOOOR - = 737 
=sCONTK Abs 9 #00009 - = 735 
=sCURBT Abs 3 #00003 - 715 
=sCURUD Abs 4 #00004 - 718 
=sCURUP Abs 2 #00002 - 711 
=sDEST Abs 3 #00003 - 716 
=sENDx Abs 1 #00001 - = 707 
=sE OF Abs 7 #00007 - = 729 
=sERROR Abs 0 #00000 - =. 704 
=sEXTDV Abs 0 #00000 - 705 
=sEXTGS Abs 5 #00005 - = 722 
=sGOSUB Abs 3 #00003 - 717 
=sIRAM Abs 2 #00002 - = 712 
=sKEYS Abs § #00005 - = 723 
=sMAINc Abs 5 #00005 - = 724 
=sNoChn Abs 2 #00002 - = 713 
=sONERR Abs 4 #00004 - 719 
=sONTNR Abs 6 #00006 - = 725 
=sPCRD Abs 8 #00008 - 732 
=sREADI Abs 4 #00004 - = 720 
=sRENAN Abs 6 #00006 - = 726 
=sRENUM Abs 8 #00008 - 733 
=sRESTR Abs 10 #OOOOA - = 738 
=sRETRN Abs 0 #00000 - = 706 
=sRFILE Abs 8 #00008 - = 734 
=sRUNBn Abs 4 #00004 - 721 
=sRUNDC Rbs 7? #00007 - = 730 
=sSST Abs 2 #00002 - = 714 
=sSSTdc Abs 1 #00001 - 708 
=sSTAT Abs 6 #00006 - = 727 
=sUNDEF Abs 1 #00001 - 709 
=sXWORD Abs 9 #00009 - 736 
=tANGLE Abs 393651 #60183 - 919 
=tCLOCK Abs 1376751 #SO1EF - 926 
=tENTER Abs 1376239 H4FFEF - 937 
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=tEXTND Abs 2490863 HOOTEF - 921 
=tFLOW Abs 2687471 H9O1EF - 925 
=tINTO Abs 3015151 HEOTEF - 922 
=tINTR Abs 5631 HO1SFF - 936 
=tMATH Abs 3539439 HEOITEF - 920 
=tNEAR Abs 3932655 HCOTEF - 928 
=tNEG Abs 3998191 HDOITEF - 929 
=tPCRD Abs 4063727 HEOIEF - 923 
=tPOS Abs 4325811 #201B3 - 930 
=tROUND Abs 4981231 #CO1EF - 927 
=tVARS Abs 5964271 HBOIEF - 924 
tXFN Abs 179 #000B3 - 10 319 9® 
tXWORD Abs 239 HOOOEF - 10 920 921 922 923 924 925 926 
927, 928 «= 929) 931 93? 
=tZERO Abs 1835503 HCO1EF - 931 


suf CHNH Abs 103 #00067 - 69 70 
=ufCNTA Abs 16 #00010 - By 58 
sufFSTK Abs 83 #00053 - 64 65 
=ufGSTK Abs 88 HOODS - 65 66 
suf LENG Abs 106 #OOOGR - 71 
=ufMSTK Abs 78 HOOO4E - 63 64 
=uf PC Abs 11 #0000B - 56 57 
=ufPMCN Abs 93 #OOOSD - 66 67 
suf PATR Abs 95 HOOOSF - 67 68 
=ufRSTK Abs 26 HOOOTA - 59 60 
=ufRTNA Abs 6 #00006 - 55 56 
=ufRTNT Abs 105 #00069 - 70 71 
suf SR-0 Abs 46 #OOO2E - 61 62 
=ufSR-1 Abs 62 HOOOSE - 62 63 
=uf STMO Abs 21 #00015 - 58 59 
=ufSTM1 Abs 41 #00029 - 60 61 
=ufSTSV Abs 100 #00064 - 68 69 
xANGLE Abs 6 #00006 - 11-919 
xCLOCK Abs 21 #OOO15 - 11 926 
xEXTND Abs 38 #00026 - 11 921 
xFLON Abs 41 #00029 - 11 925 
xINTO Abs 46 HOOO2E - 11-922 
xMATH Abs 54 #00036 - 11 920 
xNEAR Abs 60 #OOO3C - 11-928 
xNEG Abs 61 #0003D - 11-929 
xPCRD Abs 62 ROOO3E - 11-923 
XPOS Abs 66 #00042 - 11 930 
xROUND Abs 76 ROOO4T - 11 92? 
; xVARS — Abs 91 HOOOSB - 11 924 
» xZERO = Abs 28 HOODIE - ii’ <8 


Saturn Assembler Equate File <831228.1851> Fri Dec W, 1983 2:25 an 
Ver. 3.39/Rev. 206 Statistics Page 35 


Input Paraneters 
Source file nane is TI8EQU::NS 
Listing file nane is TI/EQU: TI:ML::-1 
Object file nane is TIZEQU: TI:MS::-1 


141914 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 


